gcc/cp/cp-tree.h

   1 /* Definitions for C++ parsing and type checking.
   2    Copyright (C) 1987, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000
   3    Free Software Foundation, Inc.
   4    Contributed by Michael Tiemann (tiemann@cygnus.com)
   5
   6 This file is part of GNU CC.
   7
   8 GNU CC is free software; you can redistribute it and/or modify
   9 it under the terms of the GNU General Public License as published by
  10 the Free Software Foundation; either version 2, or (at your option)
  11 any later version.
  12
  13 GNU CC is distributed in the hope that it will be useful,
  14 but WITHOUT ANY WARRANTY; without even the implied warranty of
  15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16 GNU General Public License for more details.
  17
  18 You should have received a copy of the GNU General Public License
  19 along with GNU CC; see the file COPYING.  If not, write to
  20 the Free Software Foundation, 59 Temple Place - Suite 330,
  21 Boston, MA 02111-1307, USA.  */
  22
  23 #include "c-common.h"
  24 #include "function.h"
  25 #include "splay-tree.h"
  26 #include "varray.h"
  27
  28 #ifndef _CP_TREE_H
  29 #define _CP_TREE_H
  30
  31 /* Usage of TREE_LANG_FLAG_?:
  32    0: BINFO_MARKED (BINFO nodes).
  33       COMPOUND_STMT_NO_SCOPE (in COMPOUND_STMT).
  34       NEW_EXPR_USE_GLOBAL (in NEW_EXPR).
  35       DELETE_EXPR_USE_GLOBAL (in DELETE_EXPR).
  36       LOOKUP_EXPR_GLOBAL (in LOOKUP_EXPR).
  37       TREE_NEGATED_INT (in INTEGER_CST).
  38       TREE_INDIRECT_USING (in NAMESPACE_DECL).
  39       IDENTIFIER_MARKED (used by search routines).
  40       LOCAL_BINDING_P (in CPLUS_BINDING)
  41       ICS_USER_FLAG (in _CONV)
  42       CLEANUP_P (in TRY_BLOCK)
  43       AGGR_INIT_VIA_CTOR_P (in AGGR_INIT_EXPR)
  44       SCOPE_BEGIN_P (in SCOPE_STMT)
  45       CTOR_BEGIN_P (in CTOR_STMT)
  46    1: IDENTIFIER_VIRTUAL_P.
  47       TI_PENDING_TEMPLATE_FLAG.
  48       TEMPLATE_PARMS_FOR_INLINE.
  49       DELETE_EXPR_USE_VEC (in DELETE_EXPR).
  50       (TREE_CALLS_NEW) (in _EXPR or _REF) (commented-out).
  51       TYPE_BASE_CONVS_MAY_REQUIRE_CODE_P (in _TYPE).
  52       C_DECLARED_LABEL_FLAG (in LABEL_DECL)
  53       INHERITED_VALUE_BINDING_P (in CPLUS_BINDING)
  54       BASELINK_P (in TREE_LIST)
  55       ICS_ELLIPSIS_FLAG (in _CONV)
  56       STMT_IS_FULL_EXPR_P (in _STMT)
  57    2: IDENTIFIER_OPNAME_P.
  58       BINFO_VBASE_MARKED.
  59       BINFO_FIELDS_MARKED.
  60       TYPE_POLYMORHPIC_P (in _TYPE)
  61       ICS_THIS_FLAG (in _CONV)
  62       STMT_LINENO_FOR_FN_P (in _STMT)
  63       BINDING_HAS_LEVEL_P (in CPLUS_BINDING)
  64    3: TYPE_USES_VIRTUAL_BASECLASSES (in a class TYPE).
  65       BINFO_VTABLE_PATH_MARKED.
  66       BINFO_PUSHDECLS_MARKED.
  67       (TREE_REFERENCE_EXPR) (in NON_LVALUE_EXPR) (commented-out).
  68       ICS_BAD_FLAG (in _CONV)
  69       FN_TRY_BLOCK_P (in TRY_BLOCK)
  70       SCOPE_NO_CLEANUPS_P (in SCOPE_STMT)
  71    4: BINFO_NEW_VTABLE_MARKED.
  72       TREE_HAS_CONSTRUCTOR (in INDIRECT_REF, SAVE_EXPR, CONSTRUCTOR,
  73           or FIELD_DECL).
  74       NEED_TEMPORARY_P (in REF_BIND, BASE_CONV)
  75       SCOPE_PARTIAL_P (in SCOPE_STMT)
  76    5: BINFO_PRIMARY_MARKED_P (in BINFO)
  77    6: BINFO_VBASE_PRIMARY_P (in BINFO)
  78
  79    Usage of TYPE_LANG_FLAG_?:
  80    0: C_TYPE_FIELDS_READONLY (in RECORD_TYPE or UNION_TYPE).
  81    1: TYPE_HAS_CONSTRUCTOR.
  82    2: TYPE_HAS_DESTRUCTOR.
  83    3: TYPE_FOR_JAVA.
  84    4: TYPE_HAS_NONTRIVIAL_DESTRUCTOR
  85    5: IS_AGGR_TYPE.
  86    6: TYPE_BUILT_IN.
  87
  88    Usage of DECL_LANG_FLAG_?:
  89    0: DECL_ERROR_REPORTED (in VAR_DECL).
  90       DECL_TEMPLATE_PARM_P (in CONST_DECL, TYPE_DECL, or TEMPLATE_DECL)
  91       DECL_LOCAL_FUNCTION_P (in FUNCTION_DECL)
  92    1: C_TYPEDEF_EXPLICITLY_SIGNED (in TYPE_DECL).
  93       DECL_TEMPLATE_INSTANTIATED (in a VAR_DECL or a FUNCTION_DECL)
  94    2: DECL_THIS_EXTERN (in VAR_DECL or FUNCTION_DECL).
  95       DECL_IMPLICIT_TYPEDEF_P (in a TYPE_DECL)
  96    3: DECL_IN_AGGR_P.
  97    4: DECL_MAYBE_TEMPLATE.
  98    5: DECL_INTERFACE_KNOWN.
  99    6: DECL_THIS_STATIC (in VAR_DECL or FUNCTION_DECL).
 100    7: DECL_DEAD_FOR_LOCAL (in VAR_DECL).
 101
 102    Usage of language-independent fields in a language-dependent manner:
 103
 104    TYPE_ALIAS_SET
 105      This field is used by TYPENAME_TYPEs, TEMPLATE_TYPE_PARMs, and so
 106      forth as a substitute for the mark bits provided in `lang_type'.
 107      At present, only the six low-order bits are used.
 108
 109    TYPE_BINFO
 110      For an ENUMERAL_TYPE, this is ENUM_TEMPLATE_INFO.
 111      For a TYPENAME_TYPE, this is TYPENAME_TYPE_FULLNAME.
 112      For a TEMPLATE_TEMPLATE_PARM, this is
 113      TEMPLATE_TEMPLATE_PARM_TEMPLATE_INFO.
 114
 115   BINFO_VIRTUALS
 116      For a binfo, this is a TREE_LIST.  The BV_DELTA of each node
 117      gives the amount by which to adjust the `this' pointer when
 118      calling the function.  If the method is an overriden version of a
 119      base class method, then it is assumed that, prior to adjustment,
 120      the this pointer points to an object of the base class.
 121
 122      The BV_VCALL_INDEX of each node, if non-NULL, gives the vtable
 123      index of the vcall offset for this entry.
 124
 125      The BV_FN is the declaration for the virtual function itself.
 126      When CLASSTYPE_COM_INTERFACE_P does not hold, the first entry
 127      does not have a BV_FN; it is just an offset.
 128
 129      The BV_OVERRIDING_BASE is the binfo for the final overrider for
 130      this function.  (This binfo's BINFO_TYPE will always be the same
 131      as the DECL_CLASS_CONTEXT for the function.)
 132
 133    DECL_ARGUMENTS
 134      For a VAR_DECL this is DECL_ANON_UNION_ELEMS.
 135
 136    DECL_VINDEX
 137      This field is NULL for a non-virtual function.  For a virtual
 138      function, it is eventually set to an INTEGER_CST indicating the
 139      index in the vtable at which this function can be found.  When
 140      a virtual function is declared, but before it is known what
 141      function is overriden, this field is the error_mark_node.
 142
 143      Temporarily, it may be set to a TREE_LIST whose TREE_VALUE is
 144      the virtual function this one overrides, and whose TREE_CHAIN is
 145      the old DECL_VINDEX.  */
 146
 147 /* Language-specific tree checkers. */
 148
 149 #if defined ENABLE_TREE_CHECKING && (GCC_VERSION >= 2007)
 150
 151 #define VAR_OR_FUNCTION_DECL_CHECK(NODE)                        \
 152 ({  const tree __t = NODE;                                      \
 153     enum tree_code __c = TREE_CODE(__t);                        \
 154     if (__c != VAR_DECL && __c != FUNCTION_DECL)                \
 155       tree_check_failed (__t, VAR_DECL, __FILE__,               \
 156                          __LINE__, __PRETTY_FUNCTION__);        \
 157     __t; })
 158
 159 #define VAR_FUNCTION_OR_PARM_DECL_CHECK(NODE)                   \
 160 ({  const tree __t = NODE;                                      \
 161     enum tree_code __c = TREE_CODE(__t);                        \
 162     if (__c != VAR_DECL                                         \
 163         && __c != FUNCTION_DECL                                 \
 164         && __c != PARM_DECL)                                    \
 165       tree_check_failed (__t, VAR_DECL, __FILE__,               \
 166                          __LINE__, __PRETTY_FUNCTION__);        \
 167     __t; })
 168
 169 #define VAR_TEMPL_TYPE_OR_FUNCTION_DECL_CHECK(NODE)             \
 170 ({  const tree __t = NODE;                                      \
 171     enum tree_code __c = TREE_CODE(__t);                        \
 172     if (__c != VAR_DECL                                         \
 173         && __c != FUNCTION_DECL                                 \
 174         && __c != TYPE_DECL                                     \
 175         && __c != TEMPLATE_DECL)                                \
 176       tree_check_failed (__t, VAR_DECL, __FILE__,               \
 177                          __LINE__, __PRETTY_FUNCTION__);        \
 178     __t; })
 179
 180 #define RECORD_OR_UNION_TYPE_CHECK(NODE)                        \
 181 ({  const tree __t = NODE;                                      \
 182     enum tree_code __c = TREE_CODE(__t);                        \
 183     if (__c != RECORD_TYPE && __c != UNION_TYPE)                \
 184       tree_check_failed (__t, RECORD_TYPE, __FILE__,            \
 185                          __LINE__, __PRETTY_FUNCTION__);        \
 186     __t; })
 187
 188 #else /* not ENABLE_TREE_CHECKING, or not gcc */
 189
 190 #define VAR_OR_FUNCTION_DECL_CHECK(NODE)        NODE
 191 #define VAR_FUNCTION_OR_PARM_DECL_CHECK(NODE)   NODE
 192 #define VAR_TEMPL_TYPE_OR_FUNCTION_DECL_CHECK(NODE)     NODE
 193 #define RECORD_OR_UNION_TYPE_CHECK(NODE)        NODE
 194
 195 #endif
 196 \f
 197 /* ABI control.  */
 198
 199 /* Nonzero to enable experimental ABI changes.  */
 200
 201 extern int flag_new_abi;
 202
 203 /* Nonzero to use __cxa_atexit, rather than atexit, to register
 204    destructors for local statics and global objects.  */
 205
 206 extern int flag_use_cxa_atexit;
 207
 208 /* Nonzero to not ignore namespace std. */
 209
 210 extern int flag_honor_std;
 211
 212 /* Nonzero means generate 'rtti' that give run-time type information.  */
 213
 214 extern int flag_rtti;
 215
 216 /* Nonzero if virtual base class offsets are stored in the virtual
 217    function table.  Zero if, instead, a pointer to the virtual base is
 218    stored in the object itself.  */
 219 #define vbase_offsets_in_vtable_p() (flag_new_abi)
 220
 221 /* Nonzero if displacements to the `this' pointer to use when calling
 222    virtual functions in a virtual base class are present in the
 223    vtable.  */
 224 #define vcall_offsets_in_vtable_p() (flag_new_abi)
 225
 226 /* Nonzero if a derived class that needs a vptr should always get one,
 227    even if a non-primary base class already has one.  For example,
 228    given:
 229
 230      struct S { int i; virtual void f(); };
 231      struct T : virtual public S {};
 232
 233    one could either reuse the vptr in `S' for `T', or create a new
 234    vptr for `T'.  If this flag is nonzero we choose the latter
 235    alternative; otherwise, we choose the former.  */
 236 #define vptrs_present_everywhere_p() (flag_new_abi)
 237
 238 /* Nonzero if the vtable for a derived class should contain the
 239    virtual functions from the primary base and all virtual functions
 240    present in the class itself.  Zero if, instead, it should contain
 241    only those virtual functions from the primary base together with
 242    the functions declared in the derived class (but not in any base
 243    class).  */
 244 #define all_overridden_vfuns_in_vtables_p() (flag_new_abi)
 245
 246 /* Nonzero if we use access type_info objects directly, and use the
 247    cross-vendor layout for them. Zero if we use an accessor function
 248    to get the type_info object address.  */
 249 #define new_abi_rtti_p() (flag_new_abi)
 250
 251 /* Nonzero if primary and secondary vtables are combined into a single
 252    vtable.  */
 253 #define merge_primary_and_secondary_vtables_p() (flag_new_abi)
 254
 255 \f
 256 /* Language-dependent contents of an identifier.  */
 257
 258 struct lang_identifier
 259 {
 260   struct tree_identifier ignore;
 261   tree namespace_bindings;
 262   tree bindings;
 263   tree class_value;
 264   tree class_template_info;
 265   struct lang_id2 *x;
 266 };
 267
 268 #define LANG_IDENTIFIER_CAST(NODE) \
 269         ((struct lang_identifier*)IDENTIFIER_NODE_CHECK (NODE))
 270
 271 struct lang_id2
 272 {
 273   tree label_value, implicit_decl;
 274   tree error_locus;
 275 };
 276
 277 typedef struct
 278 {
 279   tree t;
 280   int new_type_flag;
 281   tree lookups;
 282 } flagged_type_tree;
 283
 284 typedef struct
 285 {
 286   char common[sizeof (struct tree_common)];
 287   HOST_WIDE_INT index;
 288   HOST_WIDE_INT level;
 289   HOST_WIDE_INT orig_level;
 290   tree decl;
 291 } template_parm_index;
 292
 293 typedef struct ptrmem_cst
 294 {
 295   char common[sizeof (struct tree_common)];
 296   /* This isn't used, but the middle-end expects all constants to have
 297      this field.  */
 298   struct rtx_def *rtl;
 299   tree member;
 300 }* ptrmem_cst_t;
 301
 302 /* Nonzero if this binding is for a local scope, as opposed to a class
 303    or namespace scope.  */
 304 #define LOCAL_BINDING_P(NODE) TREE_LANG_FLAG_0(NODE)
 305
 306 /* Nonzero if BINDING_VALUE is from a base class of the class which is
 307    currently being defined.  */
 308 #define INHERITED_VALUE_BINDING_P(NODE) TREE_LANG_FLAG_1(NODE)
 309
 310 /* For a binding between a name and an entity at a non-local scope,
 311    defines the scope where the binding is declared.  (Either a class
 312    _TYPE node, or a NAMESPACE_DECL.)  This macro should be used only
 313    for namespace-level bindings; on the IDENTIFIER_BINDING list
 314    BINDING_LEVEL is used instead.  */
 315 #define BINDING_SCOPE(NODE) (((struct tree_binding*)CPLUS_BINDING_CHECK (NODE))->scope.scope)
 316
 317 /* Nonzero if NODE has BINDING_LEVEL, rather than BINDING_SCOPE.  */
 318 #define BINDING_HAS_LEVEL_P(NODE) TREE_LANG_FLAG_2 ((NODE))
 319
 320 /* This is the declaration bound to the name. Possible values:
 321    variable, overloaded function, namespace, template, enumerator.  */
 322 #define BINDING_VALUE(NODE)    (((struct tree_binding*)CPLUS_BINDING_CHECK (NODE))->value)
 323
 324 /* If name is bound to a type, this is the type (struct, union, enum).  */
 325 #define BINDING_TYPE(NODE)     TREE_TYPE(NODE)
 326
 327 #define IDENTIFIER_GLOBAL_VALUE(NODE) \
 328   namespace_binding (NODE, global_namespace)
 329 #define SET_IDENTIFIER_GLOBAL_VALUE(NODE, VAL) \
 330   set_namespace_binding (NODE, global_namespace, VAL)
 331 #define IDENTIFIER_NAMESPACE_VALUE(NODE) \
 332   namespace_binding (NODE, current_namespace)
 333 #define SET_IDENTIFIER_NAMESPACE_VALUE(NODE, VAL) \
 334   set_namespace_binding (NODE, current_namespace, VAL)
 335
 336 struct tree_binding
 337 {
 338   char common[sizeof (struct tree_common)];
 339   union {
 340     tree scope;
 341     struct binding_level *level;
 342   } scope;
 343   tree value;
 344 };
 345
 346 /* The overloaded FUNCTION_DECL. */
 347 #define OVL_FUNCTION(NODE)   (((struct tree_overload*)OVERLOAD_CHECK (NODE))->function)
 348 #define OVL_CHAIN(NODE)      TREE_CHAIN(NODE)
 349 /* Polymorphic access to FUNCTION and CHAIN. */
 350 #define OVL_CURRENT(NODE)     \
 351   ((TREE_CODE(NODE)==OVERLOAD) ? OVL_FUNCTION(NODE) : NODE)
 352 #define OVL_NEXT(NODE)        \
 353   ((TREE_CODE(NODE)==OVERLOAD) ? TREE_CHAIN(NODE) : NULL_TREE)
 354 /* If set, this was imported in a using declaration.
 355    This is not to confuse with being used somewhere, which
 356    is not important for this node. */
 357 #define OVL_USED(NODE)        TREE_USED(NODE)
 358
 359 struct tree_overload
 360 {
 361   char common[sizeof (struct tree_common)];
 362   tree function;
 363 };
 364
 365 /* A `baselink' is a TREE_LIST whose TREE_PURPOSE is a BINFO
 366    indicating a particular base class, and whose TREE_VALUE is a
 367    (possibly overloaded) function from that base class.  */
 368 #define BASELINK_P(NODE) \
 369   (TREE_CODE (NODE) == TREE_LIST && TREE_LANG_FLAG_1 (NODE))
 370 #define SET_BASELINK_P(NODE) \
 371   (TREE_LANG_FLAG_1 (NODE) = 1)
 372
 373 #define WRAPPER_PTR(NODE) (((struct tree_wrapper*)WRAPPER_CHECK (NODE))->u.ptr)
 374 #define WRAPPER_INT(NODE) (((struct tree_wrapper*)WRAPPER_CHECK (NODE))->u.i)
 375
 376 struct tree_wrapper
 377 {
 378   char common[sizeof (struct tree_common)];
 379   union {
 380     void *ptr;
 381     int i;
 382   } u;
 383 };
 384
 385 #define SRCLOC_FILE(NODE) (((struct tree_srcloc*)SRCLOC_CHECK (NODE))->filename)
 386 #define SRCLOC_LINE(NODE) (((struct tree_srcloc*)SRCLOC_CHECK (NODE))->linenum)
 387 struct tree_srcloc
 388 {
 389   char common[sizeof (struct tree_common)];
 390   char *filename;
 391   int linenum;
 392 };
 393
 394 /* To identify to the debug emitters if it should pay attention to the
 395    flag `-Wtemplate-debugging'.  */
 396 #define HAVE_TEMPLATES 1
 397
 398 /* Macros for access to language-specific slots in an identifier.  */
 399
 400 #define IDENTIFIER_NAMESPACE_BINDINGS(NODE)     \
 401   (LANG_IDENTIFIER_CAST (NODE)->namespace_bindings)
 402 #define IDENTIFIER_TEMPLATE(NODE)       \
 403   (LANG_IDENTIFIER_CAST (NODE)->class_template_info)
 404
 405 /* The IDENTIFIER_BINDING is the innermost CPLUS_BINDING for the
 406     identifier.  It's TREE_CHAIN is the next outermost binding.  Each
 407     BINDING_VALUE is a DECL for the associated declaration.  Thus,
 408     name lookup consists simply of pulling off the node at the front
 409     of the list (modulo oddities for looking up the names of types,
 410     and such.)  You can use BINDING_SCOPE or BINDING_LEVEL to
 411     determine the scope that bound the name.  */
 412 #define IDENTIFIER_BINDING(NODE) \
 413   (LANG_IDENTIFIER_CAST (NODE)->bindings)
 414
 415 /* The IDENTIFIER_VALUE is the value of the IDENTIFIER_BINDING, or
 416    NULL_TREE if there is no binding.  */
 417 #define IDENTIFIER_VALUE(NODE)                  \
 418   (IDENTIFIER_BINDING (NODE)                    \
 419    ? BINDING_VALUE (IDENTIFIER_BINDING (NODE))  \
 420    : NULL_TREE)
 421
 422 /* If IDENTIFIER_CLASS_VALUE is set, then NODE is bound in the current
 423    class, and IDENTIFIER_CLASS_VALUE is the value binding.  This is
 424    just a pointer to the BINDING_VALUE of one of the bindings in the
 425    IDENTIFIER_BINDINGs list, so any time that this is non-NULL so is
 426    IDENTIFIER_BINDING.  */
 427 #define IDENTIFIER_CLASS_VALUE(NODE) \
 428   (LANG_IDENTIFIER_CAST (NODE)->class_value)
 429
 430 /* The amount of time used by the file whose special "time identifier"
 431    is NODE, represented as an INTEGER_CST.  See get_time_identifier.  */
 432 #define TIME_IDENTIFIER_TIME(NODE) IDENTIFIER_BINDING(NODE)
 433
 434 /* For a "time identifier" this is a INTEGER_CST.  The
 435    TREE_INT_CST_LOW is 1 if the corresponding file is "interface only".
 436    The TRE_INT_CST_HIGH is 1 if it is "interface unknown".  */
 437 #define TIME_IDENTIFIER_FILEINFO(NODE) IDENTIFIER_CLASS_VALUE (NODE)
 438
 439 /* TREE_TYPE only indicates on local and class scope the current
 440    type. For namespace scope, the presence of a type in any namespace
 441    is indicated with global_type_node, and the real type behind must
 442    be found through lookup. */
 443 #define IDENTIFIER_TYPE_VALUE(NODE) (identifier_type_value(NODE))
 444 #define REAL_IDENTIFIER_TYPE_VALUE(NODE) (TREE_TYPE (NODE))
 445 #define SET_IDENTIFIER_TYPE_VALUE(NODE,TYPE) (TREE_TYPE (NODE) = TYPE)
 446 #define IDENTIFIER_HAS_TYPE_VALUE(NODE) (IDENTIFIER_TYPE_VALUE (NODE) ? 1 : 0)
 447
 448 #define LANG_ID_FIELD(NAME,NODE)                        \
 449   (LANG_IDENTIFIER_CAST (NODE)->x                       \
 450    ? LANG_IDENTIFIER_CAST (NODE)->x->NAME : 0)
 451
 452 #define SET_LANG_ID(NODE,VALUE,NAME)                                      \
 453   (LANG_IDENTIFIER_CAST (NODE)->x == 0                            \
 454    ? LANG_IDENTIFIER_CAST (NODE)->x                                       \
 455       = (struct lang_id2 *)perm_calloc (1, sizeof (struct lang_id2)) : 0, \
 456    LANG_IDENTIFIER_CAST (NODE)->x->NAME = (VALUE))
 457
 458 #define IDENTIFIER_LABEL_VALUE(NODE)        LANG_ID_FIELD(label_value, NODE)
 459 #define SET_IDENTIFIER_LABEL_VALUE(NODE,VALUE)   \
 460         SET_LANG_ID(NODE, VALUE, label_value)
 461
 462 #define IDENTIFIER_IMPLICIT_DECL(NODE)      LANG_ID_FIELD(implicit_decl, NODE)
 463 #define SET_IDENTIFIER_IMPLICIT_DECL(NODE,VALUE) \
 464         SET_LANG_ID(NODE, VALUE, implicit_decl)
 465
 466 #define IDENTIFIER_ERROR_LOCUS(NODE)        LANG_ID_FIELD(error_locus, NODE)
 467 #define SET_IDENTIFIER_ERROR_LOCUS(NODE,VALUE)  \
 468         SET_LANG_ID(NODE, VALUE, error_locus)
 469
 470
 471 #define IDENTIFIER_VIRTUAL_P(NODE) TREE_LANG_FLAG_1(NODE)
 472
 473 /* Nonzero if this identifier is the prefix for a mangled C++ operator
 474    name.  */
 475 #define IDENTIFIER_OPNAME_P(NODE) TREE_LANG_FLAG_2(NODE)
 476
 477 /* Nonzero if this identifier is the name of a type-conversion
 478    operator.  */
 479 #define IDENTIFIER_TYPENAME_P(NODE)                     \
 480   (! strncmp (IDENTIFIER_POINTER (NODE),                \
 481               OPERATOR_TYPENAME_FORMAT,                 \
 482               strlen (OPERATOR_TYPENAME_FORMAT)))
 483
 484 /* Nonzero means reject anything that ISO standard C++ forbids.  */
 485 extern int pedantic;
 486
 487 /* In a RECORD_TYPE or UNION_TYPE, nonzero if any component is read-only.  */
 488 #define C_TYPE_FIELDS_READONLY(type) TYPE_LANG_FLAG_0 (type)
 489
 490 /* Record in each node resulting from a binary operator
 491    what operator was specified for it.  */
 492 #define C_EXP_ORIGINAL_CODE(exp) ((enum tree_code) TREE_COMPLEXITY (exp))
 493
 494 /* Store a value in that field.  */
 495 #define C_SET_EXP_ORIGINAL_CODE(exp, code) \
 496   (TREE_COMPLEXITY (exp) = (int)(code))
 497 \f
 498 /* If non-zero, a VAR_DECL whose cleanup will cause a throw to the
 499    next exception handler.  */
 500 extern tree exception_throw_decl;
 501
 502 enum cp_tree_index
 503 {
 504     CPTI_JAVA_BYTE_TYPE,
 505     CPTI_JAVA_SHORT_TYPE,
 506     CPTI_JAVA_INT_TYPE,
 507     CPTI_JAVA_LONG_TYPE,
 508     CPTI_JAVA_FLOAT_TYPE,
 509     CPTI_JAVA_DOUBLE_TYPE,
 510     CPTI_JAVA_CHAR_TYPE,
 511     CPTI_JAVA_BOOLEAN_TYPE,
 512
 513     CPTI_VOID_ZERO,
 514     CPTI_WCHAR_DECL,
 515     CPTI_VTABLE_ENTRY_TYPE,
 516     CPTI_DELTA_TYPE,
 517     CPTI_VTABLE_INDEX_TYPE,
 518     CPTI_CLEANUP_TYPE,
 519
 520     CPTI_TI_DESC_TYPE,
 521     CPTI_BLTN_DESC_TYPE,
 522     CPTI_PTR_DESC_TYPE,
 523     CPTI_ARY_DESC_TYPE,
 524     CPTI_FUNC_DESC_TYPE,
 525     CPTI_ENUM_DESC_TYPE,
 526     CPTI_CLASS_DESC_TYPE,
 527     CPTI_SI_CLASS_DESC_TYPE,
 528     CPTI_VMI_CLASS_DESC_TYPE,
 529     CPTI_PTMD_DESC_TYPE,
 530     CPTI_BASE_DESC_TYPE,
 531
 532     CPTI_CLASS_TYPE,
 533     CPTI_RECORD_TYPE,
 534     CPTI_UNION_TYPE,
 535     CPTI_ENUM_TYPE,
 536     CPTI_UNKNOWN_TYPE,
 537     CPTI_VTBL_TYPE,
 538     CPTI_VTBL_PTR_TYPE,
 539     CPTI_STD,
 540     CPTI_ABI,
 541     CPTI_TYPE_INFO_TYPE,
 542     CPTI_TINFO_DECL_ID,
 543     CPTI_TINFO_DECL_TYPE,
 544     CPTI_TINFO_VAR_ID,
 545     CPTI_ABORT_FNDECL,
 546     CPTI_GLOBAL_DELETE_FNDECL,
 547
 548     CPTI_ACCESS_DEFAULT,
 549     CPTI_ACCESS_PUBLIC,
 550     CPTI_ACCESS_PROTECTED,
 551     CPTI_ACCESS_PRIVATE,
 552     CPTI_ACCESS_DEFAULT_VIRTUAL,
 553     CPTI_ACCESS_PUBLIC_VIRTUAL,
 554     CPTI_ACCESS_PROTECTED_VIRTUAL,
 555     CPTI_ACCESS_PRIVATE_VIRTUAL,
 556
 557     CPTI_CTOR_IDENTIFIER,
 558     CPTI_DELTA2_IDENTIFIER,
 559     CPTI_DELTA_IDENTIFIER,
 560     CPTI_DTOR_IDENTIFIER,
 561     CPTI_IN_CHARGE_IDENTIFIER,
 562     CPTI_INDEX_IDENTIFIER,
 563     CPTI_NELTS_IDENTIFIER,
 564     CPTI_THIS_IDENTIFIER,
 565     CPTI_PFN_IDENTIFIER,
 566     CPTI_PFN_OR_DELTA2_IDENTIFIER,
 567     CPTI_VPTR_IDENTIFIER,
 568
 569     CPTI_LANG_NAME_C,
 570     CPTI_LANG_NAME_CPLUSPLUS,
 571     CPTI_LANG_NAME_JAVA,
 572
 573     CPTI_EMPTY_EXCEPT_SPEC,
 574     CPTI_NULL,
 575     CPTI_JCLASS,
 576     CPTI_MINUS_ONE,
 577     CPTI_TERMINATE,
 578     CPTI_ATEXIT,
 579     CPTI_DSO_HANDLE,
 580     CPTI_DCAST,
 581
 582     CPTI_MAX
 583 };
 584
 585 extern tree cp_global_trees[CPTI_MAX];
 586
 587 #define java_byte_type_node             cp_global_trees[CPTI_JAVA_BYTE_TYPE]
 588 #define java_short_type_node            cp_global_trees[CPTI_JAVA_SHORT_TYPE]
 589 #define java_int_type_node              cp_global_trees[CPTI_JAVA_INT_TYPE]
 590 #define java_long_type_node             cp_global_trees[CPTI_JAVA_LONG_TYPE]
 591 #define java_float_type_node            cp_global_trees[CPTI_JAVA_FLOAT_TYPE]
 592 #define java_double_type_node           cp_global_trees[CPTI_JAVA_DOUBLE_TYPE]
 593 #define java_char_type_node             cp_global_trees[CPTI_JAVA_CHAR_TYPE]
 594 #define java_boolean_type_node          cp_global_trees[CPTI_JAVA_BOOLEAN_TYPE]
 595
 596 #define void_zero_node                  cp_global_trees[CPTI_VOID_ZERO]
 597 #define wchar_decl_node                 cp_global_trees[CPTI_WCHAR_DECL]
 598 #define vtable_entry_type               cp_global_trees[CPTI_VTABLE_ENTRY_TYPE]
 599 /* The type used to represent an offset by which to adjust the `this'
 600    pointer in pointer-to-member types and, when not using vtable
 601    thunks, in vtables.  */
 602 #define delta_type_node                 cp_global_trees[CPTI_DELTA_TYPE]
 603 /* The type used to represent an index into the vtable.  */
 604 #define vtable_index_type               cp_global_trees[CPTI_VTABLE_INDEX_TYPE]
 605
 606 #define ti_desc_type_node               cp_global_trees[CPTI_TI_DESC_TYPE]
 607 #define bltn_desc_type_node             cp_global_trees[CPTI_BLTN_DESC_TYPE]
 608 #define ptr_desc_type_node              cp_global_trees[CPTI_PTR_DESC_TYPE]
 609 #define ary_desc_type_node              cp_global_trees[CPTI_ARY_DESC_TYPE]
 610 #define func_desc_type_node             cp_global_trees[CPTI_FUNC_DESC_TYPE]
 611 #define enum_desc_type_node             cp_global_trees[CPTI_ENUM_DESC_TYPE]
 612 #define class_desc_type_node            cp_global_trees[CPTI_CLASS_DESC_TYPE]
 613 #define si_class_desc_type_node         cp_global_trees[CPTI_SI_CLASS_DESC_TYPE]
 614 #define vmi_class_desc_type_node        cp_global_trees[CPTI_VMI_CLASS_DESC_TYPE]
 615 #define ptmd_desc_type_node             cp_global_trees[CPTI_PTMD_DESC_TYPE]
 616 #define base_desc_type_node             cp_global_trees[CPTI_BASE_DESC_TYPE]
 617
 618 #define class_type_node                 cp_global_trees[CPTI_CLASS_TYPE]
 619 #define record_type_node                cp_global_trees[CPTI_RECORD_TYPE]
 620 #define union_type_node                 cp_global_trees[CPTI_UNION_TYPE]
 621 #define enum_type_node                  cp_global_trees[CPTI_ENUM_TYPE]
 622 #define unknown_type_node               cp_global_trees[CPTI_UNKNOWN_TYPE]
 623 #define vtbl_type_node                  cp_global_trees[CPTI_VTBL_TYPE]
 624 #define vtbl_ptr_type_node              cp_global_trees[CPTI_VTBL_PTR_TYPE]
 625 #define std_node                        cp_global_trees[CPTI_STD]
 626 #define abi_node                        cp_global_trees[CPTI_ABI]
 627 #define type_info_type_node             cp_global_trees[CPTI_TYPE_INFO_TYPE]
 628 #define tinfo_decl_id                   cp_global_trees[CPTI_TINFO_DECL_ID]
 629 #define tinfo_decl_type                 cp_global_trees[CPTI_TINFO_DECL_TYPE]
 630 #define tinfo_var_id                    cp_global_trees[CPTI_TINFO_VAR_ID]
 631 #define abort_fndecl                    cp_global_trees[CPTI_ABORT_FNDECL]
 632 #define global_delete_fndecl            cp_global_trees[CPTI_GLOBAL_DELETE_FNDECL]
 633
 634 /* Define the sets of attributes that member functions and baseclasses
 635    can have.  These are sensible combinations of {public,private,protected}
 636    cross {virtual,non-virtual}.  */
 637
 638 #define access_default_node             cp_global_trees[CPTI_ACCESS_DEFAULT]
 639 #define access_public_node              cp_global_trees[CPTI_ACCESS_PUBLIC]
 640 #define access_protected_node           cp_global_trees[CPTI_ACCESS_PROTECTED]
 641 #define access_private_node             cp_global_trees[CPTI_ACCESS_PRIVATE]
 642 #define access_default_virtual_node     cp_global_trees[CPTI_ACCESS_DEFAULT_VIRTUAL]
 643 #define access_public_virtual_node      cp_global_trees[CPTI_ACCESS_PUBLIC_VIRTUAL]
 644 #define access_protected_virtual_node   cp_global_trees[CPTI_ACCESS_PROTECTED_VIRTUAL]
 645 #define access_private_virtual_node     cp_global_trees[CPTI_ACCESS_PRIVATE_VIRTUAL]
 646
 647 /* We cache these tree nodes so as to call get_identifier less
 648    frequently.  */
 649
 650 #define ctor_identifier                 cp_global_trees[CPTI_CTOR_IDENTIFIER]
 651 #define delta2_identifier               cp_global_trees[CPTI_DELTA2_IDENTIFIER]
 652 #define delta_identifier                cp_global_trees[CPTI_DELTA_IDENTIFIER]
 653 #define dtor_identifier                 cp_global_trees[CPTI_DTOR_IDENTIFIER]
 654 #define in_charge_identifier            cp_global_trees[CPTI_IN_CHARGE_IDENTIFIER]
 655 #define index_identifier                cp_global_trees[CPTI_INDEX_IDENTIFIER]
 656 #define nelts_identifier                cp_global_trees[CPTI_NELTS_IDENTIFIER]
 657 #define this_identifier                 cp_global_trees[CPTI_THIS_IDENTIFIER]
 658 #define pfn_identifier                  cp_global_trees[CPTI_PFN_IDENTIFIER]
 659 #define pfn_or_delta2_identifier        cp_global_trees[CPTI_PFN_OR_DELTA2_IDENTIFIER]
 660 #define vptr_identifier                 cp_global_trees[CPTI_VPTR_IDENTIFIER]
 661
 662 #define lang_name_c                     cp_global_trees[CPTI_LANG_NAME_C]
 663 #define lang_name_cplusplus             cp_global_trees[CPTI_LANG_NAME_CPLUSPLUS]
 664 #define lang_name_java                  cp_global_trees[CPTI_LANG_NAME_JAVA]
 665
 666 /* Exception specifier used for throw().  */
 667 #define empty_except_spec               cp_global_trees[CPTI_EMPTY_EXCEPT_SPEC]
 668
 669 /* The node for `__null'.  */
 670 #define null_node                       cp_global_trees[CPTI_NULL]
 671
 672 /* If non-NULL, a POINTER_TYPE equivalent to (java::lang::Class*). */
 673 #define jclass_node                     cp_global_trees[CPTI_JCLASS]
 674
 675 /* A node for `(int) -1'.  */
 676 #define minus_one_node                  cp_global_trees[CPTI_MINUS_ONE]
 677
 678 /* The declaration for `std::terminate'.  */
 679 #define terminate_node                  cp_global_trees[CPTI_TERMINATE]
 680
 681 /* A pointer to `std::atexit'.  */
 682 #define atexit_node                     cp_global_trees[CPTI_ATEXIT]
 683
 684 /* A pointer to `__dso_handle'.  */
 685 #define dso_handle_node                 cp_global_trees[CPTI_DSO_HANDLE]
 686
 687 /* The declaration of the dynamic_cast runtime.  */
 688 #define dynamic_cast_node               cp_global_trees[CPTI_DCAST]
 689
 690 /* The type of a destructor.  */
 691 #define cleanup_type                    cp_global_trees[CPTI_CLEANUP_TYPE]
 692
 693 /* Global state.  */
 694
 695 struct stmt_tree {
 696   tree x_last_stmt;
 697   tree x_last_expr_type;
 698   int stmts_are_full_exprs_p;
 699 };
 700
 701 struct saved_scope {
 702   tree old_bindings;
 703   tree old_namespace;
 704   tree class_name;
 705   tree class_type;
 706   tree access_specifier;
 707   tree function_decl;
 708   varray_type lang_base;
 709   tree *lang_stack;
 710   tree lang_name;
 711   tree x_function_parms;
 712   tree template_parms;
 713   tree x_previous_class_type;
 714   tree x_previous_class_values;
 715   tree x_saved_tree;
 716   tree incomplete;
 717   tree lookups;
 718
 719   HOST_WIDE_INT x_processing_template_decl;
 720   int x_processing_specialization;
 721   int x_processing_explicit_instantiation;
 722   int need_pop_function_context;
 723
 724   struct stmt_tree x_stmt_tree;
 725
 726   struct binding_level *class_bindings;
 727   struct binding_level *bindings;
 728
 729   struct saved_scope *prev;
 730 };
 731
 732 /* The current open namespace.  */
 733
 734 #define current_namespace scope_chain->old_namespace
 735
 736 /* IDENTIFIER_NODE: name of current class */
 737
 738 #define current_class_name scope_chain->class_name
 739
 740 /* _TYPE: the type of the current class */
 741
 742 #define current_class_type scope_chain->class_type
 743
 744 /* When parsing a class definition, the access specifier most recently
 745    given by the user, or, if no access specifier was given, the
 746    default value appropriate for the kind of class (i.e., struct,
 747    class, or union).  */
 748
 749 #define current_access_specifier scope_chain->access_specifier
 750
 751 /* Pointer to the top of the language name stack.  */
 752
 753 #define current_lang_stack scope_chain->lang_stack
 754 #define current_lang_base scope_chain->lang_base
 755 #define current_lang_name scope_chain->lang_name
 756
 757 /* Parsing a function declarator leaves a list of parameter names
 758    or a chain or parameter decls here.  */
 759
 760 #define current_function_parms scope_chain->x_function_parms
 761 #define current_template_parms scope_chain->template_parms
 762
 763 #define processing_template_decl scope_chain->x_processing_template_decl
 764 #define processing_specialization scope_chain->x_processing_specialization
 765 #define processing_explicit_instantiation scope_chain->x_processing_explicit_instantiation
 766
 767 /* _TYPE: the previous type that was a class */
 768
 769 #define previous_class_type scope_chain->x_previous_class_type
 770
 771 /* This is a copy of the class_shadowed list of the previous class
 772    binding contour when at global scope.  It's used to reset
 773    IDENTIFIER_CLASS_VALUEs when entering another class scope (i.e. a
 774    cache miss).  */
 775
 776 #define previous_class_values scope_chain->x_previous_class_values
 777
 778 /* A list of the declarations with incomplete type at namespace scope.  */
 779
 780 #define namespace_scope_incomplete scope_chain->incomplete
 781
 782 /* A list of private types mentioned, for deferred access checking.  */
 783
 784 #define type_lookups scope_chain->lookups
 785
 786 extern struct saved_scope *scope_chain;
 787
 788 /* Global state pertinent to the current function.  */
 789
 790 struct language_function
 791 {
 792   tree x_named_labels;
 793   tree x_ctor_label;
 794   tree x_dtor_label;
 795   tree x_base_init_list;
 796   tree x_member_init_list;
 797   tree x_current_class_ptr;
 798   tree x_current_class_ref;
 799   tree x_eh_spec_try_block;
 800   tree x_scope_stmt_stack;
 801   tree x_in_charge_parm;
 802
 803   tree *x_vcalls_possible_p;
 804
 805   struct rtx_def *x_result_rtx;
 806
 807   int returns_value;
 808   int returns_null;
 809   int parms_stored;
 810   int temp_name_counter;
 811   int in_function_try_handler;
 812   int x_expanding_p;
 813   int name_declared;
 814   int vtbls_set_up_p;
 815
 816   struct stmt_tree x_stmt_tree;
 817
 818   struct named_label_list *x_named_label_uses;
 819   struct binding_level *bindings;
 820
 821   const char *cannot_inline;
 822 };
 823
 824 /* The current C++-specific per-function global variables.  */
 825
 826 #define cp_function_chain (cfun->language)
 827
 828 /* In a destructor, the point at which all derived class destroying
 829    has been done, just before any base class destroying will be done.  */
 830
 831 #define dtor_label cp_function_chain->x_dtor_label
 832
 833 /* In a constructor, the point at which we are ready to return
 834    the pointer to the initialized object.  */
 835
 836 #define ctor_label cp_function_chain->x_ctor_label
 837
 838 /* In C++, structures with well-defined constructors are initialized by
 839    those constructors, unasked.  CURRENT_BASE_INIT_LIST
 840    holds a list of stmts for a BASE_INIT term in the grammar.
 841    This list has one element for each base class which must be
 842    initialized.  The list elements are [basename, init], with
 843    type basetype.  This allows the possibly anachronistic form
 844    (assuming d : a, b, c) "d (int a) : c(a+5), b (a-4), a (a+3)"
 845    where each successive term can be handed down the constructor
 846    line.  Perhaps this was not intended.  */
 847
 848 #define current_base_init_list cp_function_chain->x_base_init_list
 849 #define current_member_init_list cp_function_chain->x_member_init_list
 850
 851 /* When we're processing a member function, current_class_ptr is the
 852    PARM_DECL for the `this' pointer.  The current_class_ref is an
 853    expression for `*this'.  */
 854
 855 #define current_class_ptr \
 856   (cfun ? cp_function_chain->x_current_class_ptr : NULL_TREE)
 857 #define current_class_ref \
 858   (cfun ? cp_function_chain->x_current_class_ref : NULL_TREE)
 859
 860 /* Information about the current statement tree.  */
 861
 862 #define current_stmt_tree                       \
 863   (cfun                                         \
 864    ? &cp_function_chain->x_stmt_tree            \
 865    : &scope_chain->x_stmt_tree)
 866
 867 /* When building a statement-tree, this is the last statement added to
 868    the tree.  */
 869
 870 #define last_tree current_stmt_tree->x_last_stmt
 871
 872 /* The type of the last expression-statement we have seen.  This is
 873    required because the type of a statement-expression is the type of
 874    the last expression statement.  */
 875
 876 #define last_expr_type current_stmt_tree->x_last_expr_type
 877
 878 /* The TRY_BLOCK for the exception-specifiers for the current
 879    function, if any.  */
 880
 881 #define current_eh_spec_try_block cp_function_chain->x_eh_spec_try_block
 882
 883 /* The stack of SCOPE_STMTs for the current function.  */
 884
 885 #define current_scope_stmt_stack cp_function_chain->x_scope_stmt_stack
 886
 887 /* The `__in_chrg' parameter for the current function.  Only used for
 888    destructors.  */
 889
 890 #define current_in_charge_parm cp_function_chain->x_in_charge_parm
 891
 892 /* In destructors, this is a pointer to a condition in an
 893    if-statement.  If the pointed-to value is boolean_true_node, then
 894    there may be virtual function calls in this destructor.  */
 895
 896 #define current_vcalls_possible_p cp_function_chain->x_vcalls_possible_p
 897
 898 /* Set to 0 at beginning of a function definition, set to 1 if
 899    a return statement that specifies a return value is seen.  */
 900
 901 #define current_function_returns_value cp_function_chain->returns_value
 902
 903 /* Set to 0 at beginning of a function definition, set to 1 if
 904    a return statement with no argument is seen.  */
 905
 906 #define current_function_returns_null cp_function_chain->returns_null
 907
 908 #define current_function_just_assigned_this \
 909   cp_function_chain->just_assigned_this
 910
 911 #define current_function_parms_stored \
 912   cp_function_chain->parms_stored
 913
 914 /* One if we have already declared __FUNCTION__ (and related
 915    variables) in the current function.  Two if we are in the process
 916    of doing so.  */
 917
 918 #define current_function_name_declared \
 919   cp_function_chain->name_declared
 920
 921 /* Nonzero if we have already generated code to initialize virtual
 922    function tables in this function.  */
 923
 924 #define vtbls_set_up_p cp_function_chain->vtbls_set_up_p
 925
 926 /* Used to help generate temporary names which are unique within
 927    a function.  Reset to 0 by start_function.  */
 928
 929 #define temp_name_counter cp_function_chain->temp_name_counter
 930
 931 /* Non-zero if we should generate RTL for functions that we process.
 932    When this is zero, we just accumulate tree structure, without
 933    interacting with the back end.  */
 934
 935 #define expanding_p cp_function_chain->x_expanding_p
 936
 937 /* Non-zero if we are in the semantic analysis phase for the current
 938    function.  */
 939
 940 #define doing_semantic_analysis_p() (!expanding_p)
 941
 942 /* Non-zero if we should treat statements as full expressions.  In
 943    particular, this variable is no-zero if at the end of a statement
 944    we should destroy any temporaries created during that statement.
 945    Similarly, if, at the end of a block, we should destroy any local
 946    variables in this block.  Normally, this variable is non-zero,
 947    since those are the normal semantics of C++.
 948
 949    However, in order to represent aggregate initialization code as
 950    tree structure, we use statement-expressions.  The statements
 951    within the statement expression should not result in cleanups being
 952    run until the entire enclosing statement is complete.  */
 953
 954 #define stmts_are_full_exprs_p \
 955   current_stmt_tree->stmts_are_full_exprs_p
 956
 957 #define in_function_try_handler cp_function_chain->in_function_try_handler
 958
 959 extern tree current_function_return_value;
 960 extern tree global_namespace;
 961
 962 extern tree ridpointers[];
 963 extern tree ansi_opname[];
 964 extern tree ansi_assopname[];
 965
 966 /* Nonzero means `$' can be in an identifier.  */
 967
 968 extern int dollars_in_ident;
 969
 970 /* Nonzero means allow type mismatches in conditional expressions;
 971    just make their values `void'.   */
 972
 973 extern int flag_cond_mismatch;
 974
 975 /* Nonzero means don't recognize the keyword `asm'.  */
 976
 977 extern int flag_no_asm;
 978
 979 /* For cross referencing.  */
 980
 981 extern int flag_gnu_xref;
 982
 983 /* For environments where you can use GNU binutils (as, ld in particular).  */
 984
 985 extern int flag_gnu_binutils;
 986
 987 /* Nonzero means warn about implicit declarations.  */
 988
 989 extern int warn_implicit;
 990
 991 /* Nonzero means warn about usage of long long when `-pedantic'.  */
 992
 993 extern int warn_long_long;
 994
 995 /* Nonzero means warn when all ctors or dtors are private, and the class
 996    has no friends.  */
 997
 998 extern int warn_ctor_dtor_privacy;
 999
1000 /* Nonzero means warn about function definitions that default the return type
1001    or that use a null return and have a return-type other than void.  */
1002
1003 extern int warn_return_type;
1004
1005 /* Nonzero means give string constants the type `const char *', as mandated
1006    by the standard.  */
1007
1008 extern int flag_const_strings;
1009
1010 /* If non-NULL, dump the tree structure for the entire translation
1011    unit to this file.  */
1012
1013 extern char *flag_dump_translation_unit;
1014
1015 /* Nonzero means warn about deprecated conversion from string constant to
1016    `char *'.  */
1017
1018 extern int warn_write_strings;
1019
1020 /* Nonzero means warn about sizeof(function) or addition/subtraction
1021    of function pointers.  */
1022
1023 extern int warn_pointer_arith;
1024
1025 /* Nonzero means warn about suggesting putting in ()'s.  */
1026
1027 extern int warn_parentheses;
1028
1029 /* Nonzero means warn about multiple (redundant) decls for the same single
1030    variable or function.  */
1031
1032 extern int warn_redundant_decls;
1033
1034 /* Warn if initializer is not completely bracketed.  */
1035
1036 extern int warn_missing_braces;
1037
1038 /* Warn about comparison of signed and unsigned values.  */
1039
1040 extern int warn_sign_compare;
1041
1042 /* Warn about testing equality of floating point numbers. */
1043
1044 extern int warn_float_equal;
1045
1046 /* Warn about a subscript that has type char.  */
1047
1048 extern int warn_char_subscripts;
1049
1050 /* Nonzero means warn about pointer casts that can drop a type qualifier
1051    from the pointer target type.  */
1052
1053 extern int warn_cast_qual;
1054
1055 /* Warn about *printf or *scanf format/argument anomalies.  */
1056
1057 extern int warn_format;
1058
1059 /* Nonzero means warn about non virtual destructors in classes that have
1060    virtual functions.  */
1061
1062 extern int warn_nonvdtor;
1063
1064 /* Non-zero means warn when we convert a pointer to member function
1065    into a pointer to (void or function).  */
1066
1067 extern int warn_pmf2ptr;
1068
1069 /* Nonzero means warn about violation of some Effective C++ style rules.  */
1070
1071 extern int warn_ecpp;
1072
1073 /* Nonzero means warn where overload resolution chooses a promotion from
1074    unsigned to signed over a conversion to an unsigned of the same size.  */
1075
1076 extern int warn_sign_promo;
1077
1078 /* Non-zero means warn when a function is declared extern and later inline.  */
1079
1080 extern int warn_extern_inline;
1081
1082 /* Non-zero means warn when an old-style cast is used.  */
1083
1084 extern int warn_old_style_cast;
1085
1086 /* Nonzero means to treat bitfields as unsigned unless they say `signed'.  */
1087
1088 extern int flag_signed_bitfields;
1089
1090 /* True for more efficient but incompatible (not fully tested)
1091    vtable implementation (using thunks).
1092    0 is old behavior; 1 is new behavior.  */
1093 extern int flag_vtable_thunks;
1094
1095 /* INTERFACE_ONLY nonzero means that we are in an "interface"
1096    section of the compiler.  INTERFACE_UNKNOWN nonzero means
1097    we cannot trust the value of INTERFACE_ONLY.  If INTERFACE_UNKNOWN
1098    is zero and INTERFACE_ONLY is zero, it means that we are responsible
1099    for exporting definitions that others might need.  */
1100 extern int interface_only, interface_unknown;
1101
1102 /* Nonzero means we should attempt to elide constructors when possible.  */
1103
1104 extern int flag_elide_constructors;
1105
1106 /* Nonzero means enable obscure standard features and disable GNU
1107    extensions that might cause standard-compliant code to be
1108    miscompiled.  */
1109
1110 extern int flag_ansi;
1111
1112 /* Nonzero means that member functions defined in class scope are
1113    inline by default.  */
1114
1115 extern int flag_default_inline;
1116
1117 /* The name-mangling scheme to use.  Versions of gcc before 2.8 use
1118    version 0.  */
1119 extern int name_mangling_version;
1120
1121 /* Nonzero means that guiding declarations are allowed.  */
1122 extern int flag_guiding_decls;
1123
1124 /* Nonzero if wchar_t should be `unsigned short' instead of whatever it
1125    would normally be, for use with WINE.  */
1126 extern int flag_short_wchar;
1127
1128 /* Nonzero if squashed mangling is to be performed.
1129    This uses the B and K codes to reference previously seen class types
1130    and class qualifiers.       */
1131 extern int flag_do_squangling;
1132
1133 /* Nonzero means generate separate instantiation control files and juggle
1134    them at link time.  */
1135 extern int flag_use_repository;
1136
1137 /* Nonzero if we want to issue diagnostics that the standard says are not
1138    required.  */
1139 extern int flag_optional_diags;
1140
1141 /* Nonzero means do not consider empty argument prototype to mean function
1142    takes no arguments.  */
1143 extern int flag_strict_prototype;
1144
1145 /* Nonzero means output .vtable_{entry,inherit} for use in doing vtable gc.  */
1146 extern int flag_vtable_gc;
1147
1148 /* Nonzero means make the default pedwarns warnings instead of errors.
1149    The value of this flag is ignored if -pedantic is specified.  */
1150 extern int flag_permissive;
1151
1152 /* Nonzero means to implement standard semantics for exception
1153    specifications, calling unexpected if an exception is thrown that
1154    doesn't match the specification.  Zero means to treat them as
1155    assertions and optimize accordingly, but not check them.  */
1156 extern int flag_enforce_eh_specs;
1157
1158 /* Nonzero if we want to obey access control semantics.  */
1159
1160 extern int flag_access_control;
1161
1162 /* If this variable is defined to a non-NULL value, it will be called
1163    after the file has been completely parsed.  The argument will be
1164    the GLOBAL_NAMESPACE.  */
1165
1166 extern void (*back_end_hook) PARAMS ((tree));
1167
1168 \f
1169 /* C++ language-specific tree codes.  */
1170 #define DEFTREECODE(SYM, NAME, TYPE, LENGTH) SYM,
1171 enum cplus_tree_code {
1172   __DUMMY = LAST_AND_UNUSED_TREE_CODE,
1173 #include "cp-tree.def"
1174   LAST_CPLUS_TREE_CODE
1175 };
1176 #undef DEFTREECODE
1177
1178 enum languages { lang_c, lang_cplusplus, lang_java };
1179
1180 /* Macros to make error reporting functions' lives easier.  */
1181 #define TYPE_IDENTIFIER(NODE) (DECL_NAME (TYPE_NAME (NODE)))
1182 #define TYPE_NAME_STRING(NODE) (IDENTIFIER_POINTER (TYPE_IDENTIFIER (NODE)))
1183 #define TYPE_NAME_LENGTH(NODE) (IDENTIFIER_LENGTH (TYPE_IDENTIFIER (NODE)))
1184
1185 #define TYPE_ASSEMBLER_NAME_STRING(NODE) (IDENTIFIER_POINTER (DECL_ASSEMBLER_NAME (TYPE_NAME  (NODE))))
1186 #define TYPE_ASSEMBLER_NAME_LENGTH(NODE) (IDENTIFIER_LENGTH (DECL_ASSEMBLER_NAME (TYPE_NAME (NODE))))
1187
1188 /* The _DECL for this _TYPE.  */
1189 #define TYPE_MAIN_DECL(NODE) (TYPE_STUB_DECL (TYPE_MAIN_VARIANT (NODE)))
1190
1191 /* Nonzero if T is a class (or struct or union) type.  Also nonzero
1192    for template type parameters, typename types, and instantiated
1193    template template parameters.  Despite its name,
1194    this macro has nothing to do with the definition of aggregate given
1195    in the standard.  Think of this macro as MAYBE_CLASS_TYPE_P.  */
1196 #define IS_AGGR_TYPE(t)                         \
1197   (TREE_CODE (t) == TEMPLATE_TYPE_PARM          \
1198    || TREE_CODE (t) == TYPENAME_TYPE            \
1199    || TREE_CODE (t) == TYPEOF_TYPE              \
1200    || (TREE_CODE (t) == TEMPLATE_TEMPLATE_PARM  \
1201        && TYPE_TEMPLATE_INFO (t))               \
1202    || TYPE_LANG_FLAG_5 (t))
1203
1204 /* Set IS_AGGR_TYPE for T to VAL.  T must be a class, struct, or
1205    union type.  */
1206 #define SET_IS_AGGR_TYPE(T, VAL) \
1207   (TYPE_LANG_FLAG_5 (T) = (VAL))
1208
1209 /* Nonzero if T is a class type.  Zero for template type parameters,
1210    typename types, and so forth.  */
1211 #define CLASS_TYPE_P(t) \
1212   (IS_AGGR_TYPE_CODE (TREE_CODE (t)) && IS_AGGR_TYPE (t))
1213
1214 #define IS_AGGR_TYPE_CODE(t)    (t == RECORD_TYPE || t == UNION_TYPE)
1215 #define IS_AGGR_TYPE_2(TYPE1,TYPE2) \
1216   (TREE_CODE (TYPE1) == TREE_CODE (TYPE2)       \
1217    && IS_AGGR_TYPE (TYPE1) && IS_AGGR_TYPE (TYPE2))
1218 #define IS_OVERLOAD_TYPE(t) \
1219   (IS_AGGR_TYPE (t) || TREE_CODE (t) == ENUMERAL_TYPE)
1220
1221 /* In a *_TYPE, nonzero means a built-in type.  */
1222 #define TYPE_BUILT_IN(NODE) TYPE_LANG_FLAG_6(NODE)
1223
1224 /* True if this a "Java" type, defined in 'extern "Java"'. */
1225 #define TYPE_FOR_JAVA(NODE) TYPE_LANG_FLAG_3(NODE)
1226
1227 /* The type qualifiers for this type, including the qualifiers on the
1228    elements for an array type.  */
1229 #define CP_TYPE_QUALS(NODE)                     \
1230   ((TREE_CODE (NODE) != ARRAY_TYPE)             \
1231    ? TYPE_QUALS (NODE) : cp_type_quals (NODE))
1232
1233 /* Nonzero if this type is const-qualified.  */
1234 #define CP_TYPE_CONST_P(NODE)                           \
1235   ((CP_TYPE_QUALS (NODE) & TYPE_QUAL_CONST) != 0)
1236
1237 /* Nonzero if this type is volatile-qualified.  */
1238 #define CP_TYPE_VOLATILE_P(NODE)                        \
1239   ((CP_TYPE_QUALS (NODE) & TYPE_QUAL_VOLATILE) != 0)
1240
1241 /* Nonzero if this type is restrict-qualified.  */
1242 #define CP_TYPE_RESTRICT_P(NODE)                        \
1243   ((CP_TYPE_QUALS (NODE) & TYPE_QUAL_RESTRICT) != 0)
1244
1245 /* Nonzero if this type is const-qualified, but not
1246    volatile-qualified.  Other qualifiers are ignored.  This macro is
1247    used to test whether or not it is OK to bind an rvalue to a
1248    reference.  */
1249 #define CP_TYPE_CONST_NON_VOLATILE_P(NODE)                              \
1250   ((CP_TYPE_QUALS (NODE) & (TYPE_QUAL_CONST | TYPE_QUAL_VOLATILE))      \
1251    == TYPE_QUAL_CONST)
1252
1253 #define DELTA_FROM_VTABLE_ENTRY(ENTRY) \
1254   (!flag_vtable_thunks ? \
1255      TREE_VALUE (CONSTRUCTOR_ELTS (ENTRY)) \
1256    : TREE_CODE (TREE_OPERAND ((ENTRY), 0)) != THUNK_DECL ? integer_zero_node \
1257    : build_int_2 (THUNK_DELTA (TREE_OPERAND ((ENTRY), 0)), 0))
1258
1259 /* Virtual function addresses can be gotten from a virtual function
1260    table entry using this macro.  */
1261 #define FNADDR_FROM_VTABLE_ENTRY(ENTRY) \
1262   (!flag_vtable_thunks ? \
1263      TREE_VALUE (TREE_CHAIN (TREE_CHAIN (CONSTRUCTOR_ELTS (ENTRY)))) \
1264    : TREE_CODE (TREE_OPERAND ((ENTRY), 0)) != THUNK_DECL ? (ENTRY) \
1265    : DECL_INITIAL (TREE_OPERAND ((ENTRY), 0)))
1266 #define SET_FNADDR_FROM_VTABLE_ENTRY(ENTRY,VALUE) \
1267   (TREE_VALUE (TREE_CHAIN (TREE_CHAIN (CONSTRUCTOR_ELTS (ENTRY)))) = (VALUE))
1268 #define FUNCTION_ARG_CHAIN(NODE) (TREE_CHAIN (TYPE_ARG_TYPES (TREE_TYPE (NODE))))
1269 #define PROMOTES_TO_AGGR_TYPE(NODE,CODE)        \
1270   (((CODE) == TREE_CODE (NODE)                  \
1271        && IS_AGGR_TYPE (TREE_TYPE (NODE)))      \
1272    || IS_AGGR_TYPE (NODE))
1273
1274 /* Nonzero iff TYPE is uniquely derived from PARENT.  Under MI, PARENT can
1275    be an ambiguous base class of TYPE, and this macro will be false.  */
1276 #define UNIQUELY_DERIVED_FROM_P(PARENT, TYPE) (get_base_distance (PARENT, TYPE, 0, (tree *)0) >= 0)
1277 #define ACCESSIBLY_DERIVED_FROM_P(PARENT, TYPE) (get_base_distance (PARENT, TYPE, -1, (tree *)0) >= 0)
1278 #define ACCESSIBLY_UNIQUELY_DERIVED_P(PARENT, TYPE) (get_base_distance (PARENT, TYPE, 1, (tree *)0) >= 0)
1279 #define DERIVED_FROM_P(PARENT, TYPE) (get_base_distance (PARENT, TYPE, 0, (tree *)0) != -1)
1280 \f
1281 /* This structure provides additional information above and beyond
1282    what is provide in the ordinary tree_type.  In the past, we used it
1283    for the types of class types, template parameters types, typename
1284    types, and so forth.  However, there can be many (tens to hundreds
1285    of thousands) of template parameter types in a compilation, and
1286    there's no need for this additional information in that case.
1287    Therefore, we now use this data structure only for class types.
1288
1289    In the past, it was thought that there would be relatively few
1290    class types.  However, in the presence of heavy use of templates,
1291    many (i.e., thousands) of classes can easily be generated.
1292    Therefore, we should endeavor to keep the size of this structure to
1293    a minimum.  */
1294 struct lang_type
1295 {
1296   unsigned char align;
1297
1298   unsigned has_type_conversion : 1;
1299   unsigned has_init_ref : 1;
1300   unsigned has_default_ctor : 1;
1301   unsigned uses_multiple_inheritance : 1;
1302   unsigned const_needs_init : 1;
1303   unsigned ref_needs_init : 1;
1304   unsigned has_const_assign_ref : 1;
1305   unsigned anon_aggr : 1;
1306
1307   unsigned has_nonpublic_ctor : 2;
1308   unsigned has_nonpublic_assign_ref : 2;
1309   unsigned vtable_needs_writing : 1;
1310   unsigned has_assign_ref : 1;
1311   unsigned has_new : 1;
1312   unsigned has_array_new : 1;
1313
1314   unsigned gets_delete : 2;
1315   unsigned has_call_overloaded : 1;
1316   unsigned has_array_ref_overloaded : 1;
1317   unsigned has_arrow_overloaded : 1;
1318   unsigned interface_only : 1;
1319   unsigned interface_unknown : 1;
1320   unsigned needs_virtual_reinit : 1;
1321
1322   unsigned marks: 6;
1323   unsigned vec_delete_takes_size : 1;
1324   unsigned declared_class : 1;
1325
1326   unsigned being_defined : 1;
1327   unsigned redefined : 1;
1328   unsigned debug_requested : 1;
1329   unsigned use_template : 2;
1330   unsigned got_semicolon : 1;
1331   unsigned ptrmemfunc_flag : 1;
1332   unsigned was_anonymous : 1;
1333
1334   unsigned has_real_assign_ref : 1;
1335   unsigned has_const_init_ref : 1;
1336   unsigned has_complex_init_ref : 1;
1337   unsigned has_complex_assign_ref : 1;
1338   unsigned has_abstract_assign_ref : 1;
1339   unsigned non_aggregate : 1;
1340   unsigned is_partial_instantiation : 1;
1341   unsigned has_mutable : 1;
1342
1343   unsigned com_interface : 1;
1344   unsigned non_pod_class : 1;
1345   unsigned nearly_empty_p : 1;
1346
1347   /* When adding a flag here, consider whether or not it ought to
1348      apply to a template instance if it applies to the template.  If
1349      so, make sure to copy it in instantiate_class_template!  */
1350
1351   /* There are six bits left to fill out a 32-bit word.  Keep track of
1352      this by updating the size of this bitfield whenever you add or
1353      remove a flag.  */
1354   unsigned dummy : 5;
1355
1356   int vsize;
1357   int vfield_parent;
1358
1359   union tree_node *vfields;
1360   union tree_node *vbases;
1361
1362   union tree_node *tags;
1363
1364   union tree_node *search_slot;
1365
1366   union tree_node *size;
1367   union tree_node *size_unit;
1368
1369   union tree_node *pure_virtuals;
1370   union tree_node *friend_classes;
1371
1372   union tree_node *rtti;
1373
1374   union tree_node *methods;
1375
1376   union tree_node *template_info;
1377   tree befriending_classes;
1378 };
1379
1380 /* Indicates whether or not (and how) a template was expanded for this class.
1381      0=no information yet/non-template class
1382      1=implicit template instantiation
1383      2=explicit template specialization
1384      3=explicit template instantiation  */
1385 #define CLASSTYPE_USE_TEMPLATE(NODE) (TYPE_LANG_SPECIFIC(NODE)->use_template)
1386
1387 /* Fields used for storing information before the class is defined.
1388    After the class is defined, these fields hold other information.  */
1389
1390 /* List of friends which were defined inline in this class definition.  */
1391 #define CLASSTYPE_INLINE_FRIENDS(NODE) (TYPE_NONCOPIED_PARTS (NODE))
1392
1393 /* Nonzero for _CLASSTYPE means that operator delete is defined.  */
1394 #define TYPE_GETS_DELETE(NODE) (TYPE_LANG_SPECIFIC(NODE)->gets_delete)
1395 #define TYPE_GETS_REG_DELETE(NODE) (TYPE_GETS_DELETE (NODE) & 1)
1396
1397 /* Nonzero for _CLASSTYPE means that operator vec delete is defined and
1398    takes the optional size_t argument.  */
1399 #define TYPE_VEC_DELETE_TAKES_SIZE(NODE) \
1400   (TYPE_LANG_SPECIFIC(NODE)->vec_delete_takes_size)
1401
1402 /* Nonzero if `new NODE[x]' should cause the allocation of extra
1403    storage to indicate how many array elements are in use.  The old
1404    ABI had a bug in that we always allocate the extra storage if NODE
1405    has a two-argument array operator delete.  */
1406 #define TYPE_VEC_NEW_USES_COOKIE(NODE)          \
1407   (TYPE_HAS_NONTRIVIAL_DESTRUCTOR (NODE)        \
1408    || (TYPE_LANG_SPECIFIC (NODE)                \
1409        && TYPE_VEC_DELETE_TAKES_SIZE (NODE)))
1410
1411 /* Nonzero means that this _CLASSTYPE node defines ways of converting
1412    itself to other types.  */
1413 #define TYPE_HAS_CONVERSION(NODE) (TYPE_LANG_SPECIFIC(NODE)->has_type_conversion)
1414
1415 /* Nonzero means that this _CLASSTYPE node overloads operator=(X&).  */
1416 #define TYPE_HAS_ASSIGN_REF(NODE) (TYPE_LANG_SPECIFIC(NODE)->has_assign_ref)
1417 #define TYPE_HAS_CONST_ASSIGN_REF(NODE) (TYPE_LANG_SPECIFIC(NODE)->has_const_assign_ref)
1418
1419 /* Nonzero means that this _CLASSTYPE node has an X(X&) constructor.  */
1420 #define TYPE_HAS_INIT_REF(NODE) (TYPE_LANG_SPECIFIC(NODE)->has_init_ref)
1421 #define TYPE_HAS_CONST_INIT_REF(NODE) (TYPE_LANG_SPECIFIC(NODE)->has_const_init_ref)
1422
1423 /* Nonzero if this class defines an overloaded operator new.  (An
1424    operator new [] doesn't count.)  */
1425 #define TYPE_HAS_NEW_OPERATOR(NODE) \
1426   (TYPE_LANG_SPECIFIC (NODE)->has_new)
1427
1428 /* Nonzero if this class defines an overloaded operator new[].  */
1429 #define TYPE_HAS_ARRAY_NEW_OPERATOR(NODE) \
1430   (TYPE_LANG_SPECIFIC (NODE)->has_array_new)
1431
1432 /* Nonzero means that this type is being defined.  I.e., the left brace
1433    starting the definition of this type has been seen.  */
1434 #define TYPE_BEING_DEFINED(NODE) (TYPE_LANG_SPECIFIC(NODE)->being_defined)
1435 /* Nonzero means that this type has been redefined.  In this case, if
1436    convenient, don't reprocess any methods that appear in its redefinition.  */
1437 #define TYPE_REDEFINED(NODE) (TYPE_LANG_SPECIFIC(NODE)->redefined)
1438
1439 /* The is the basetype that contains NODE's rtti.  */
1440 #define CLASSTYPE_RTTI(NODE) (TYPE_LANG_SPECIFIC(NODE)->rtti)
1441
1442 /* Nonzero means that this _CLASSTYPE node overloads operator().  */
1443 #define TYPE_OVERLOADS_CALL_EXPR(NODE) (TYPE_LANG_SPECIFIC(NODE)->has_call_overloaded)
1444
1445 /* Nonzero means that this _CLASSTYPE node overloads operator[].  */
1446 #define TYPE_OVERLOADS_ARRAY_REF(NODE) (TYPE_LANG_SPECIFIC(NODE)->has_array_ref_overloaded)
1447
1448 /* Nonzero means that this _CLASSTYPE node overloads operator->.  */
1449 #define TYPE_OVERLOADS_ARROW(NODE) (TYPE_LANG_SPECIFIC(NODE)->has_arrow_overloaded)
1450
1451 /* Nonzero means that this _CLASSTYPE (or one of its ancestors) uses
1452    multiple inheritance.  If this is 0 for the root of a type
1453    hierarchy, then we can use more efficient search techniques.  */
1454 #define TYPE_USES_MULTIPLE_INHERITANCE(NODE) (TYPE_LANG_SPECIFIC(NODE)->uses_multiple_inheritance)
1455
1456 /* Nonzero means that this _CLASSTYPE (or one of its ancestors) uses
1457    virtual base classes.  If this is 0 for the root of a type
1458    hierarchy, then we can use more efficient search techniques.  */
1459 #define TYPE_USES_VIRTUAL_BASECLASSES(NODE) (TREE_LANG_FLAG_3(NODE))
1460
1461 /* Vector member functions defined in this class.  Each element is
1462    either a FUNCTION_DECL, a TEMPLATE_DECL, or an OVERLOAD.  All
1463    functions with the same name end up in the same slot.  The first
1464    two elements are for constructors, and destructors, respectively.
1465    These are followed by ordinary member functions.  There may be
1466    empty entries at the end of the vector.  */
1467 #define CLASSTYPE_METHOD_VEC(NODE) (TYPE_LANG_SPECIFIC(NODE)->methods)
1468
1469 /* The first type conversion operator in the class (the others can be
1470    searched with TREE_CHAIN), or the first non-constructor function if
1471    there are no type conversion operators.  */
1472 #define CLASSTYPE_FIRST_CONVERSION(NODE) \
1473   TREE_VEC_LENGTH (CLASSTYPE_METHOD_VEC (NODE)) > 2 \
1474     ? TREE_VEC_ELT (CLASSTYPE_METHOD_VEC (NODE), 2) \
1475     : NULL_TREE;
1476
1477 /* Mark bits for depth-first and breath-first searches.  */
1478
1479 /* Get the value of the Nth mark bit.  */
1480 #define CLASSTYPE_MARKED_N(NODE, N)                             \
1481   (((CLASS_TYPE_P (NODE) ? TYPE_LANG_SPECIFIC (NODE)->marks     \
1482      : ((unsigned) TYPE_ALIAS_SET (NODE))) & (1 << N)) != 0)
1483
1484 /* Set the Nth mark bit.  */
1485 #define SET_CLASSTYPE_MARKED_N(NODE, N)                         \
1486   (CLASS_TYPE_P (NODE)                                          \
1487    ? (void) (TYPE_LANG_SPECIFIC (NODE)->marks |= (1 << (N)))    \
1488    : (void) (TYPE_ALIAS_SET (NODE) |= (1 << (N))))
1489
1490 /* Clear the Nth mark bit.  */
1491 #define CLEAR_CLASSTYPE_MARKED_N(NODE, N)                       \
1492   (CLASS_TYPE_P (NODE)                                          \
1493    ? (void) (TYPE_LANG_SPECIFIC (NODE)->marks &= ~(1 << (N)))   \
1494    : (void) (TYPE_ALIAS_SET (NODE) &= ~(1 << (N))))
1495
1496 /* Get the value of the mark bits.  */
1497 #define CLASSTYPE_MARKED(NODE) CLASSTYPE_MARKED_N(NODE, 0)
1498 #define CLASSTYPE_MARKED2(NODE) CLASSTYPE_MARKED_N(NODE, 1)
1499 #define CLASSTYPE_MARKED3(NODE) CLASSTYPE_MARKED_N(NODE, 2)
1500 #define CLASSTYPE_MARKED4(NODE) CLASSTYPE_MARKED_N(NODE, 3)
1501 #define CLASSTYPE_MARKED5(NODE) CLASSTYPE_MARKED_N(NODE, 4)
1502 #define CLASSTYPE_MARKED6(NODE) CLASSTYPE_MARKED_N(NODE, 5)
1503
1504 /* Macros to modify the above flags */
1505 #define SET_CLASSTYPE_MARKED(NODE)    SET_CLASSTYPE_MARKED_N(NODE, 0)
1506 #define CLEAR_CLASSTYPE_MARKED(NODE)  CLEAR_CLASSTYPE_MARKED_N(NODE, 0)
1507 #define SET_CLASSTYPE_MARKED2(NODE)   SET_CLASSTYPE_MARKED_N(NODE, 1)
1508 #define CLEAR_CLASSTYPE_MARKED2(NODE) CLEAR_CLASSTYPE_MARKED_N(NODE, 1)
1509 #define SET_CLASSTYPE_MARKED3(NODE)   SET_CLASSTYPE_MARKED_N(NODE, 2)
1510 #define CLEAR_CLASSTYPE_MARKED3(NODE) CLEAR_CLASSTYPE_MARKED_N(NODE, 2)
1511 #define SET_CLASSTYPE_MARKED4(NODE)   SET_CLASSTYPE_MARKED_N(NODE, 3)
1512 #define CLEAR_CLASSTYPE_MARKED4(NODE) CLEAR_CLASSTYPE_MARKED_N(NODE, 3)
1513 #define SET_CLASSTYPE_MARKED5(NODE)   SET_CLASSTYPE_MARKED_N(NODE, 4)
1514 #define CLEAR_CLASSTYPE_MARKED5(NODE) CLEAR_CLASSTYPE_MARKED_N(NODE, 4)
1515 #define SET_CLASSTYPE_MARKED6(NODE)   SET_CLASSTYPE_MARKED_N(NODE, 5)
1516 #define CLEAR_CLASSTYPE_MARKED6(NODE) CLEAR_CLASSTYPE_MARKED_N(NODE, 5)
1517
1518 /* A list of the nested tag-types (class, struct, union, or enum)
1519    found within this class.  The TREE_PURPOSE of each node is the name
1520    of the type; the TREE_VALUE is the type itself.  This list includes
1521    nested member class templates.  */
1522 #define CLASSTYPE_TAGS(NODE)            (TYPE_LANG_SPECIFIC(NODE)->tags)
1523
1524 /* If this value is non-negative, it is the index (in the
1525    TYPE_BINFO_BASETYPES) for the base-class whose vtable pointer we
1526    are reusing.  For example, in D : B1, B2, PARENT would be 0, if D's
1527    vtable came from B1, 1, if D's vtable came from B2.  */
1528 #define CLASSTYPE_VFIELD_PARENT(NODE)   (TYPE_LANG_SPECIFIC(NODE)->vfield_parent)
1529
1530 /* Nonzero if NODE has a primary base class, i.e., a base class with
1531    which it shares the virtual fucntion table pointer.  */
1532 #define CLASSTYPE_HAS_PRIMARY_BASE_P(NODE) \
1533   (CLASSTYPE_VFIELD_PARENT (NODE) != -1)
1534
1535 /* If non-NULL, this is the binfo for the primary base class, i.e.,
1536    the base class which contains the virtual function table pointer
1537    for this class.  */
1538 #define CLASSTYPE_PRIMARY_BINFO(NODE) \
1539   (BINFO_PRIMARY_BINFO (TYPE_BINFO (NODE)))
1540
1541 /* If non-NULL, this is the binfo for the primary base of BINFO.  */
1542 #define BINFO_PRIMARY_BINFO(NODE)                                       \
1543   (CLASSTYPE_HAS_PRIMARY_BASE_P (BINFO_TYPE (NODE))                     \
1544    ? BINFO_BASETYPE (NODE,                                              \
1545                      CLASSTYPE_VFIELD_PARENT (BINFO_TYPE (NODE)))       \
1546    : NULL_TREE)
1547
1548 /* The number of virtual functions defined for this
1549    _CLASSTYPE node.  */
1550 #define CLASSTYPE_VSIZE(NODE) (TYPE_LANG_SPECIFIC(NODE)->vsize)
1551
1552 /* A chain of BINFOs for the direct and indirect virtual base classes
1553    that this type uses in depth-first left-to-right order.  These
1554    BINFOs are distinct from those in the TYPE_BINFO hierarchy.  So,
1555    given:
1556
1557      struct A {};
1558      struct B : public A {};
1559      struct C : virtual public B {};
1560      struct D : virtual public B {};
1561      struct E : public C, public D {};
1562
1563    there will be two copies of `A' and `B' in the TYPE_BINFO hierarchy
1564    for `E'.  On the CLASSTYPE_VBASECLASSES list, there will be just
1565    one copy of `A' (distinct from the other two) with its own copy of `B'
1566    (also distinct from the copies in the TYPE_BINFO hierarchy.)  */
1567 #define CLASSTYPE_VBASECLASSES(NODE) (TYPE_LANG_SPECIFIC(NODE)->vbases)
1568
1569 /* The BINFO (if any) for the virtual baseclass T of the class C.  */
1570 #define BINFO_FOR_VBASE(T, C) \
1571   (binfo_member (T, CLASSTYPE_VBASECLASSES (C)))
1572
1573 /* Number of direct baseclasses of NODE.  */
1574 #define CLASSTYPE_N_BASECLASSES(NODE) \
1575   (BINFO_N_BASETYPES (TYPE_BINFO (NODE)))
1576
1577 /* Used for keeping search-specific information.  Any search routine
1578    which uses this must define what exactly this slot is used for.  */
1579 #define CLASSTYPE_SEARCH_SLOT(NODE) (TYPE_LANG_SPECIFIC(NODE)->search_slot)
1580
1581 /* These are the size and alignment of the type without its virtual
1582    base classes, for when we use this type as a base itself.  */
1583 #define CLASSTYPE_SIZE(NODE) (TYPE_LANG_SPECIFIC(NODE)->size)
1584 #define CLASSTYPE_SIZE_UNIT(NODE) (TYPE_LANG_SPECIFIC(NODE)->size_unit)
1585 #define CLASSTYPE_ALIGN(NODE) (TYPE_LANG_SPECIFIC(NODE)->align)
1586
1587 /* A cons list of virtual functions which cannot be inherited by
1588    derived classes.  When deriving from this type, the derived
1589    class must provide its own definition for each of these functions.  */
1590 #define CLASSTYPE_PURE_VIRTUALS(NODE) (TYPE_LANG_SPECIFIC(NODE)->pure_virtuals)
1591
1592 /* Nonzero means that this aggr type has been `closed' by a semicolon.  */
1593 #define CLASSTYPE_GOT_SEMICOLON(NODE) (TYPE_LANG_SPECIFIC (NODE)->got_semicolon)
1594
1595 /* Nonzero means that the main virtual function table pointer needs to be
1596    set because base constructors have placed the wrong value there.
1597    If this is zero, it means that they placed the right value there,
1598    and there is no need to change it.  */
1599 #define CLASSTYPE_NEEDS_VIRTUAL_REINIT(NODE) (TYPE_LANG_SPECIFIC(NODE)->needs_virtual_reinit)
1600
1601 /* Nonzero means that if this type has virtual functions, that
1602    the virtual function table will be written out.  */
1603 #define CLASSTYPE_VTABLE_NEEDS_WRITING(NODE) (TYPE_LANG_SPECIFIC(NODE)->vtable_needs_writing)
1604
1605 /* Nonzero means that this type has an X() constructor.  */
1606 #define TYPE_HAS_DEFAULT_CONSTRUCTOR(NODE) (TYPE_LANG_SPECIFIC(NODE)->has_default_ctor)
1607
1608 /* Nonzero means the type declared a ctor as private or protected.  We
1609    use this to make sure we don't try to generate a copy ctor for a
1610    class that has a member of type NODE.  */
1611 #define TYPE_HAS_NONPUBLIC_CTOR(NODE) (TYPE_LANG_SPECIFIC(NODE)->has_nonpublic_ctor)
1612
1613 /* Ditto, for operator=.  */
1614 #define TYPE_HAS_NONPUBLIC_ASSIGN_REF(NODE) (TYPE_LANG_SPECIFIC(NODE)->has_nonpublic_assign_ref)
1615
1616 /* Nonzero means that this type contains a mutable member */
1617 #define CLASSTYPE_HAS_MUTABLE(NODE) (TYPE_LANG_SPECIFIC(NODE)->has_mutable)
1618 #define TYPE_HAS_MUTABLE_P(NODE) (cp_has_mutable_p (NODE))
1619
1620 /*  Nonzero means that this class type is a non-POD class.  */
1621 #define CLASSTYPE_NON_POD_P(NODE) (TYPE_LANG_SPECIFIC (NODE)->non_pod_class)
1622
1623 /* Nonzero if this class is "nearly empty", i.e., contains only a
1624    virtual function table pointer.  */
1625 #define CLASSTYPE_NEARLY_EMPTY_P(NODE) \
1626   (TYPE_LANG_SPECIFIC (NODE)->nearly_empty_p)
1627
1628 /* Nonzero means that this type is meant for communication via COM.  */
1629 #define CLASSTYPE_COM_INTERFACE(NODE) \
1630   (TYPE_LANG_SPECIFIC(NODE)->com_interface)
1631
1632 /* A list of class types of which this type is a friend.  The
1633    TREE_VALUE is normally a TYPE, but will be a TEMPLATE_DECL in the
1634    case of a template friend.  */
1635 #define CLASSTYPE_FRIEND_CLASSES(NODE) (TYPE_LANG_SPECIFIC(NODE)->friend_classes)
1636
1637 /* A list of the classes which grant friendship to this class.  */
1638 #define CLASSTYPE_BEFRIENDING_CLASSES(NODE) \
1639   (TYPE_LANG_SPECIFIC (NODE)->befriending_classes)
1640
1641 /* Say whether this node was declared as a "class" or a "struct".  */
1642 #define CLASSTYPE_DECLARED_CLASS(NODE) (TYPE_LANG_SPECIFIC(NODE)->declared_class)
1643
1644 /* Nonzero if this class has const members which have no specified initialization.  */
1645 #define CLASSTYPE_READONLY_FIELDS_NEED_INIT(NODE) (TYPE_LANG_SPECIFIC(NODE)->const_needs_init)
1646
1647 /* Nonzero if this class has ref members which have no specified initialization.  */
1648 #define CLASSTYPE_REF_FIELDS_NEED_INIT(NODE) (TYPE_LANG_SPECIFIC(NODE)->ref_needs_init)
1649
1650 /* Nonzero if this class is included from a header file which employs
1651    `#pragma interface', and it is not included in its implementation file.  */
1652 #define CLASSTYPE_INTERFACE_ONLY(NODE) (TYPE_LANG_SPECIFIC(NODE)->interface_only)
1653
1654 /* Same as above, but for classes whose purpose we do not know.  */
1655 #define CLASSTYPE_INTERFACE_UNKNOWN(NODE) (TYPE_LANG_SPECIFIC(NODE)->interface_unknown)
1656 #define CLASSTYPE_INTERFACE_KNOWN(NODE) (TYPE_LANG_SPECIFIC(NODE)->interface_unknown == 0)
1657 #define SET_CLASSTYPE_INTERFACE_UNKNOWN_X(NODE,X) (TYPE_LANG_SPECIFIC(NODE)->interface_unknown = !!(X))
1658 #define SET_CLASSTYPE_INTERFACE_UNKNOWN(NODE) (TYPE_LANG_SPECIFIC(NODE)->interface_unknown = 1)
1659 #define SET_CLASSTYPE_INTERFACE_KNOWN(NODE) (TYPE_LANG_SPECIFIC(NODE)->interface_unknown = 0)
1660
1661 /* Nonzero if a _DECL node requires us to output debug info for this class.  */
1662 #define CLASSTYPE_DEBUG_REQUESTED(NODE) (TYPE_LANG_SPECIFIC(NODE)->debug_requested)
1663 \f
1664 /* Additional macros for inheritance information.  */
1665
1666 /* The BINFO_INHERITANCE_CHAIN is used opposite to the description in
1667    gcc/tree.h.  In particular if D is derived from B then the BINFO
1668    for B (in D) will have a BINFO_INHERITANCE_CHAIN pointing to
1669    D.  In tree.h, this pointer is described as pointing in other
1670    direction.  There is a different BINFO for each path to a virtual
1671    base; BINFOs for virtual bases are not shared.  In addition, shared
1672    versions of each of the virtual class BINFOs are stored in
1673    CLASSTYPE_VBASECLASSES.
1674
1675    We use TREE_VIA_PROTECTED and TREE_VIA_PUBLIC, but private
1676    inheritance is indicated by the absence of the other two flags, not
1677    by TREE_VIA_PRIVATE, which is unused.
1678
1679    The TREE_CHAIN is for scratch space in search.c.  */
1680
1681 /* Nonzero means marked by DFS or BFS search, including searches
1682    by `get_binfo' and `get_base_distance'.  */
1683 #define BINFO_MARKED(NODE) (TREE_VIA_VIRTUAL(NODE)?CLASSTYPE_MARKED(BINFO_TYPE(NODE)):TREE_LANG_FLAG_0(NODE))
1684 /* Macros needed because of C compilers that don't allow conditional
1685    expressions to be lvalues.  Grr!  */
1686 #define SET_BINFO_MARKED(NODE) (TREE_VIA_VIRTUAL(NODE)?SET_CLASSTYPE_MARKED(BINFO_TYPE(NODE)):(TREE_LANG_FLAG_0(NODE)=1))
1687 #define CLEAR_BINFO_MARKED(NODE) (TREE_VIA_VIRTUAL(NODE)?CLEAR_CLASSTYPE_MARKED(BINFO_TYPE(NODE)):(TREE_LANG_FLAG_0(NODE)=0))
1688
1689 /* Nonzero means marked in search through virtual inheritance hierarchy.  */
1690 #define BINFO_VBASE_MARKED(NODE) CLASSTYPE_MARKED2 (BINFO_TYPE (NODE))
1691 /* Modifier macros */
1692 #define SET_BINFO_VBASE_MARKED(NODE) SET_CLASSTYPE_MARKED2 (BINFO_TYPE (NODE))
1693 #define CLEAR_BINFO_VBASE_MARKED(NODE) CLEAR_CLASSTYPE_MARKED2 (BINFO_TYPE (NODE))
1694
1695 /* Nonzero means marked in search for members or member functions.  */
1696 #define BINFO_FIELDS_MARKED(NODE) \
1697   (TREE_VIA_VIRTUAL(NODE)?CLASSTYPE_MARKED2 (BINFO_TYPE (NODE)):TREE_LANG_FLAG_2(NODE))
1698 #define SET_BINFO_FIELDS_MARKED(NODE) (TREE_VIA_VIRTUAL(NODE)?SET_CLASSTYPE_MARKED2(BINFO_TYPE(NODE)):(TREE_LANG_FLAG_2(NODE)=1))
1699 #define CLEAR_BINFO_FIELDS_MARKED(NODE) (TREE_VIA_VIRTUAL(NODE)?CLEAR_CLASSTYPE_MARKED2(BINFO_TYPE(NODE)):(TREE_LANG_FLAG_2(NODE)=0))
1700
1701 /* Nonzero means that this class is on a path leading to a new vtable.  */
1702 #define BINFO_VTABLE_PATH_MARKED(NODE) \
1703   (TREE_VIA_VIRTUAL(NODE)?CLASSTYPE_MARKED3(BINFO_TYPE(NODE)):TREE_LANG_FLAG_3(NODE))
1704 #define SET_BINFO_VTABLE_PATH_MARKED(NODE) (TREE_VIA_VIRTUAL(NODE)?SET_CLASSTYPE_MARKED3(BINFO_TYPE(NODE)):(TREE_LANG_FLAG_3(NODE)=1))
1705 #define CLEAR_BINFO_VTABLE_PATH_MARKED(NODE) (TREE_VIA_VIRTUAL(NODE)?CLEAR_CLASSTYPE_MARKED3(BINFO_TYPE(NODE)):(TREE_LANG_FLAG_3(NODE)=0))
1706
1707 /* Nonzero means that this class has a new vtable.  */
1708 #define BINFO_NEW_VTABLE_MARKED(NODE) \
1709   (TREE_VIA_VIRTUAL(NODE)?CLASSTYPE_MARKED4(BINFO_TYPE(NODE)):TREE_LANG_FLAG_4(NODE))
1710 #define SET_BINFO_NEW_VTABLE_MARKED(NODE) (TREE_VIA_VIRTUAL(NODE)?SET_CLASSTYPE_MARKED4(BINFO_TYPE(NODE)):(TREE_LANG_FLAG_4(NODE)=1))
1711 #define CLEAR_BINFO_NEW_VTABLE_MARKED(NODE) (TREE_VIA_VIRTUAL(NODE)?CLEAR_CLASSTYPE_MARKED4(BINFO_TYPE(NODE)):(TREE_LANG_FLAG_4(NODE)=0))
1712
1713 /* Nonzero means this class has done dfs_pushdecls.  */
1714 #define BINFO_PUSHDECLS_MARKED(NODE) BINFO_VTABLE_PATH_MARKED (NODE)
1715 #define SET_BINFO_PUSHDECLS_MARKED(NODE) SET_BINFO_VTABLE_PATH_MARKED (NODE)
1716 #define CLEAR_BINFO_PUSHDECLS_MARKED(NODE) CLEAR_BINFO_VTABLE_PATH_MARKED (NODE)
1717
1718 /* Nonzero if this BINFO is a primary base class.
1719
1720    In the TYPE_BINFO hierarchy, this flag is never set for a base
1721    class of a non-primary virtual base because the copies of a
1722    non-primary virtual base that appear in the TYPE_BINFO hierarchy do
1723    not really exist.  Instead, it is the BINFOs in the
1724    CLASSTYPE_VBASECLASSES list that are used.  In other words, this
1725    flag is only valid for paths (given by BINFO_INHERITANCE_CHAIN)
1726    that really exist in the final object.
1727
1728    For example, consider:
1729
1730       struct A {};
1731       struct B : public A { };
1732       struct C : virtual public B { void f(); };
1733
1734    `A' is the primary base class for `B'.  But, `B' is not a primary
1735    base class for `C'.  So, in the copy of `A' that appears in the
1736    TYPE_BINFO hierarcy for `C' does not have BINFO_PRIMARY_MARKED_P
1737    set; the copy in the CLASSTYPE_VBASECLASSES list does have this
1738    set.  */
1739 #define BINFO_PRIMARY_MARKED_P(NODE) TREE_LANG_FLAG_5 (NODE)
1740
1741 /* Nonzero if the virtual baseclass with the type given by this BINFO
1742    is primary *somewhere* in the hierarchy.  This flag is only set on
1743    entries in the CLASSTYPE_VBASECLASSES list.  */
1744 #define BINFO_VBASE_PRIMARY_P(NODE) TREE_LANG_FLAG_6 (NODE)
1745
1746 /* Used by various search routines.  */
1747 #define IDENTIFIER_MARKED(NODE) TREE_LANG_FLAG_0 (NODE)
1748 \f
1749 /* Accessor macros for the vfield slots in structures.  */
1750
1751 /* The virtual function pointer fields that this type contains.  For a
1752    vfield defined just for this class, or from a primary base, the
1753    TREE_PURPOSE is NULL.  Otherwise, the TREE_PURPOSE is the BINFO for
1754    the class containing the vfield.  The TREE_VALUE is the class where
1755    the vfield was first defined.  */
1756 #define CLASSTYPE_VFIELDS(NODE) (TYPE_LANG_SPECIFIC(NODE)->vfields)
1757
1758 /* Get the assoc info that caused this vfield to exist.  */
1759 #define VF_BINFO_VALUE(NODE) TREE_PURPOSE (NODE)
1760
1761 /* Get that same information as a _TYPE.  */
1762 #define VF_BASETYPE_VALUE(NODE) TREE_VALUE (NODE)
1763
1764 /* Get the value of the top-most type dominating the non-`normal' vfields.  */
1765 #define VF_DERIVED_VALUE(NODE) (VF_BINFO_VALUE (NODE) ? BINFO_TYPE (VF_BINFO_VALUE (NODE)) : NULL_TREE)
1766
1767 /* The number of bytes by which to adjust the `this' pointer when
1768    calling this virtual function.  */
1769 #define BV_DELTA(NODE) (TREE_PURPOSE (NODE))
1770
1771 /* If non-NULL, the vtable index at which to find the vcall offset
1772    when calling this virtual function.  */
1773 #define BV_VCALL_INDEX(NODE) (TREE_TYPE (NODE))
1774
1775 /* The function to call.  */
1776 #define BV_FN(NODE) (TREE_VALUE (NODE))
1777
1778 /* The most derived class.  */
1779
1780 \f
1781 /* Nonzero for TREE_LIST node means that this list of things
1782    is a list of parameters, as opposed to a list of expressions.  */
1783 #define TREE_PARMLIST(NODE) ((NODE)->common.unsigned_flag) /* overloaded! */
1784
1785 /* For FUNCTION_TYPE or METHOD_TYPE, a list of the exceptions that
1786    this type can raise.  Each TREE_VALUE is a _TYPE.  The TREE_VALUE
1787    will be NULL_TREE to indicate a throw specification of `()', or
1788    no exceptions allowed.  */
1789 #define TYPE_RAISES_EXCEPTIONS(NODE) TYPE_NONCOPIED_PARTS (NODE)
1790
1791 /* For FUNCTION_TYPE or METHOD_TYPE, return 1 iff it is declared `throw()'.  */
1792 #define TYPE_NOTHROW_P(NODE) \
1793   (TYPE_RAISES_EXCEPTIONS (NODE) \
1794    && TREE_VALUE (TYPE_RAISES_EXCEPTIONS (NODE)) == NULL_TREE)
1795
1796 /* The binding level associated with the namespace.  */
1797 #define NAMESPACE_LEVEL(NODE) \
1798   (DECL_LANG_SPECIFIC(NODE)->decl_flags.u.level)
1799 \f
1800
1801 /* If a DECL has DECL_LANG_SPECIFIC, it is either a lang_decl_flags or
1802    a lang_decl (which has lang_decl_flags as its initial prefix).
1803    This macro is nonzero for tree nodes whose DECL_LANG_SPECIFIC is
1804    the full lang_decl, and not just lang_decl_flags.  */
1805 #define CAN_HAVE_FULL_LANG_DECL_P(NODE)         \
1806   (!(TREE_CODE ((NODE)) == VAR_DECL             \
1807      || TREE_CODE ((NODE)) == CONST_DECL        \
1808      || TREE_CODE ((NODE)) == FIELD_DECL        \
1809      || TREE_CODE ((NODE)) == USING_DECL))
1810
1811 struct lang_decl_flags
1812 {
1813 #ifdef ONLY_INT_FIELDS
1814   int language : 8;
1815 #else
1816   enum languages language : 8;
1817 #endif
1818
1819   unsigned operator_attr : 1;
1820   unsigned constructor_attr : 1;
1821   unsigned friend_attr : 1;
1822   unsigned static_function : 1;
1823   unsigned const_memfunc : 1;
1824   unsigned volatile_memfunc : 1;
1825   unsigned pure_virtual : 1;
1826   unsigned constructor_for_vbase_attr : 1;
1827
1828   unsigned mutable_flag : 1;
1829   unsigned saved_inline : 1;
1830   unsigned use_template : 2;
1831   unsigned nonconverting : 1;
1832   unsigned declared_inline : 1;
1833   unsigned not_really_extern : 1;
1834   unsigned needs_final_overrider : 1;
1835
1836   unsigned bitfield : 1;
1837   unsigned defined_in_class : 1;
1838   unsigned pending_inline_p : 1;
1839   unsigned global_ctor_p : 1;
1840   unsigned global_dtor_p : 1;
1841   unsigned pretty_function_p : 1;
1842   unsigned dummy : 2;
1843
1844   tree context;
1845
1846   union {
1847     /* In a FUNCTION_DECL, VAR_DECL, TYPE_DECL, or TEMPLATE_DECL, this
1848        is DECL_TEMPLATE_INFO.  */
1849     tree template_info;
1850
1851     /* In a NAMESPACE_DECL, this is NAMESPACE_LEVEL.  */
1852     struct binding_level *level;
1853   } u;
1854
1855   union {
1856     /* This is DECL_ACCESS.  */
1857     tree access;
1858
1859     /* In a namespace-scope FUNCTION_DECL, this is
1860        GLOBAL_INIT_PRIORITY.  */
1861     int init_priority;
1862   } u2;
1863 };
1864
1865 struct lang_decl
1866 {
1867   struct lang_decl_flags decl_flags;
1868
1869   tree main_decl_variant;
1870   tree befriending_classes;
1871
1872   /* In a FUNCTION_DECL, this is DECL_SAVED_TREE.  */
1873   tree saved_tree;
1874
1875   union
1876   {
1877     tree sorted_fields;
1878     struct pending_inline *pending_inline_info;
1879     struct language_function *saved_language_function;
1880   } u;
1881 };
1882
1883 /* Non-zero if NODE is a _DECL with TREE_READONLY set.  */
1884 #define TREE_READONLY_DECL_P(NODE) \
1885   (TREE_READONLY (NODE) && TREE_CODE_CLASS (TREE_CODE (NODE)) == 'd')
1886
1887 /* Non-zero iff DECL is memory-based.  The DECL_RTL of
1888    certain const variables might be a CONST_INT, or a REG
1889    in some cases.  We cannot use `memory_operand' as a test
1890    here because on most RISC machines, a variable's address
1891    is not, by itself, a legitimate address.  */
1892 #define DECL_IN_MEMORY_P(NODE) \
1893   (DECL_RTL (NODE) != NULL_RTX && GET_CODE (DECL_RTL (NODE)) == MEM)
1894
1895 /* For FUNCTION_DECLs: return the language in which this decl
1896    was declared.  */
1897 #define DECL_LANGUAGE(NODE) (DECL_LANG_SPECIFIC(NODE)->decl_flags.language)
1898
1899 /* For FUNCTION_DECLs: nonzero means that this function is a constructor.  */
1900 #define DECL_CONSTRUCTOR_P(NODE) (DECL_LANG_SPECIFIC(NODE)->decl_flags.constructor_attr)
1901
1902 /* There ought to be a better way to find out whether or not something is
1903    a destructor.  */
1904 #define DECL_DESTRUCTOR_P(NODE)                         \
1905   (DESTRUCTOR_NAME_P (DECL_ASSEMBLER_NAME (NODE))       \
1906    && DECL_LANGUAGE (NODE) == lang_cplusplus)
1907
1908 /* Non-zero if NODE is a user-defined conversion operator.  */
1909 #define DECL_CONV_FN_P(NODE)                                                 \
1910   (IDENTIFIER_TYPENAME_P (DECL_NAME (NODE)) && TREE_TYPE (DECL_NAME (NODE)))
1911
1912 /* Non-zero if NODE is an overloaded operator.  */
1913 #define DECL_OVERLOADED_OPERATOR_P(NODE)        \
1914   (IDENTIFIER_OPNAME_P (DECL_NAME ((NODE))))
1915
1916 /* For FUNCTION_DECLs: nonzero means that this function is a constructor
1917    for an object with virtual baseclasses.  */
1918 #define DECL_CONSTRUCTOR_FOR_VBASE_P(NODE) (DECL_LANG_SPECIFIC(NODE)->decl_flags.constructor_for_vbase_attr)
1919
1920 /* Non-zero for a FUNCTION_DECL that declares a type-info function.
1921    This only happens in the old abi.  */
1922 #define DECL_TINFO_FN_P(NODE)                                   \
1923   (TREE_CODE (NODE) == FUNCTION_DECL                            \
1924    && DECL_ARTIFICIAL (NODE)                                    \
1925    && DECL_LANG_SPECIFIC(NODE)->decl_flags.mutable_flag)
1926
1927 /* Mark NODE as a type-info function.  */
1928 #define SET_DECL_TINFO_FN_P(NODE) \
1929   (DECL_LANG_SPECIFIC((NODE))->decl_flags.mutable_flag = 1)
1930
1931 /* Nonzero if NODE is an overloaded `operator delete[]' function.  */
1932 #define DECL_ARRAY_DELETE_OPERATOR_P(NODE) \
1933   (DECL_NAME (NODE) == ansi_opname[(int) VEC_DELETE_EXPR])
1934
1935 /* Nonzero for _DECL means that this decl appears in (or will appear
1936    in) as a member in a RECORD_TYPE or UNION_TYPE node.  It is also for
1937    detecting circularity in case members are multiply defined.  In the
1938    case of a VAR_DECL, it is also used to determine how program storage
1939    should be allocated.  */
1940 #define DECL_IN_AGGR_P(NODE) (DECL_LANG_FLAG_3(NODE))
1941
1942 /* Nonzero if the DECL was defined in the class definition itself,
1943    rather than outside the class.  */
1944 #define DECL_DEFINED_IN_CLASS_P(DECL) \
1945  (DECL_LANG_SPECIFIC (DECL)->decl_flags.defined_in_class)
1946
1947 /* Nonzero for FUNCTION_DECL means that this decl is just a
1948    friend declaration, and should not be added to the list of
1949    member functions for this class.  */
1950 #define DECL_FRIEND_P(NODE) (DECL_LANG_SPECIFIC(NODE)->decl_flags.friend_attr)
1951
1952 /* A TREE_LIST of the types which have befriended this FUNCTION_DECL.  */
1953 #define DECL_BEFRIENDING_CLASSES(NODE) \
1954   (DECL_LANG_SPECIFIC(NODE)->befriending_classes)
1955
1956 /* Nonzero for FUNCTION_DECL means that this decl is a static
1957    member function.  */
1958 #define DECL_STATIC_FUNCTION_P(NODE) (DECL_LANG_SPECIFIC(NODE)->decl_flags.static_function)
1959
1960 /* Nonzero for a class member means that it is shared between all objects
1961    of that class.  */
1962 #define SHARED_MEMBER_P(NODE) \
1963   (TREE_CODE (NODE) == VAR_DECL || TREE_CODE (NODE) == TYPE_DECL \
1964    || TREE_CODE (NODE) == CONST_DECL)
1965
1966 /* Nonzero for FUNCTION_DECL means that this decl is a non-static
1967    member function.  */
1968 #define DECL_NONSTATIC_MEMBER_FUNCTION_P(NODE) \
1969   (TREE_CODE (TREE_TYPE (NODE)) == METHOD_TYPE)
1970
1971 /* Nonzero for FUNCTION_DECL means that this decl is a member function
1972    (static or non-static).  */
1973 #define DECL_FUNCTION_MEMBER_P(NODE) \
1974  (DECL_NONSTATIC_MEMBER_FUNCTION_P (NODE) || DECL_STATIC_FUNCTION_P (NODE))
1975
1976 /* Nonzero for FUNCTION_DECL means that this member function
1977    has `this' as const X *const.  */
1978 #define DECL_CONST_MEMFUNC_P(NODE) (DECL_LANG_SPECIFIC(NODE)->decl_flags.const_memfunc)
1979
1980 /* Nonzero for FUNCTION_DECL means that this member function
1981    has `this' as volatile X *const.  */
1982 #define DECL_VOLATILE_MEMFUNC_P(NODE) (DECL_LANG_SPECIFIC(NODE)->decl_flags.volatile_memfunc)
1983
1984 /* Nonzero for a DECL means that this member is a non-static member.  */
1985 #define DECL_NONSTATIC_MEMBER_P(NODE)           \
1986   ((TREE_CODE (NODE) == FUNCTION_DECL           \
1987     && DECL_NONSTATIC_MEMBER_FUNCTION_P (NODE)) \
1988    || TREE_CODE (NODE) == FIELD_DECL)
1989
1990 /* Nonzero for _DECL means that this member object type
1991    is mutable.  */
1992 #define DECL_MUTABLE_P(NODE) (DECL_LANG_SPECIFIC(NODE)->decl_flags.mutable_flag)
1993
1994 /* Nonzero for _DECL means that this constructor is a non-converting
1995    constructor.  */
1996 #define DECL_NONCONVERTING_P(NODE) (DECL_LANG_SPECIFIC(NODE)->decl_flags.nonconverting)
1997
1998 /* Nonzero for FUNCTION_DECL means that this member function is a pure
1999    virtual function.  */
2000 #define DECL_PURE_VIRTUAL_P(NODE) (DECL_LANG_SPECIFIC(NODE)->decl_flags.pure_virtual)
2001
2002 /* Nonzero for FUNCTION_DECL means that this member function
2003    must be overridden by derived classes.  */
2004 #define DECL_NEEDS_FINAL_OVERRIDER_P(NODE) (DECL_LANG_SPECIFIC(NODE)->decl_flags.needs_final_overrider)
2005
2006 /* Nonzero if this DECL is the __PRETTY_FUNCTION__ variable in a
2007    template function.  */
2008 #define DECL_PRETTY_FUNCTION_P(NODE) \
2009   (DECL_LANG_SPECIFIC(NODE)->decl_flags.pretty_function_p)
2010
2011 /* The _TYPE context in which this _DECL appears.  This field holds the
2012    class where a virtual function instance is actually defined. */
2013 #define DECL_CLASS_CONTEXT(NODE) \
2014   (DECL_CLASS_SCOPE_P (NODE) ? DECL_CONTEXT (NODE) : NULL_TREE)
2015
2016 /* For a non-member friend function, the class (if any) in which this
2017    friend was defined.  For example, given:
2018
2019      struct S { friend void f (); };
2020
2021    the DECL_FRIEND_CONTEXT for `f' will be `S'.  */
2022 #define DECL_FRIEND_CONTEXT(NODE)                               \
2023   ((DECL_FRIEND_P (NODE) && !DECL_FUNCTION_MEMBER_P (NODE))     \
2024    ? DECL_LANG_SPECIFIC (NODE)->decl_flags.context              \
2025    : NULL_TREE)
2026
2027 /* Set the DECL_FRIEND_CONTEXT for NODE to CONTEXT.  */
2028 #define SET_DECL_FRIEND_CONTEXT(NODE, CONTEXT) \
2029   (DECL_LANG_SPECIFIC (NODE)->decl_flags.context = (CONTEXT))
2030
2031 /* NULL_TREE in DECL_CONTEXT represents the global namespace. */
2032 #define CP_DECL_CONTEXT(NODE) \
2033   (DECL_CONTEXT (NODE) ? DECL_CONTEXT (NODE) : global_namespace)
2034 #define FROB_CONTEXT(NODE)   ((NODE) == global_namespace ? NULL_TREE : (NODE))
2035
2036 /* For a virtual function, the base where we find its vtable entry.
2037    For a non-virtual function, the base where it is defined.  */
2038 #define DECL_VIRTUAL_CONTEXT(NODE) \
2039   (DECL_LANG_SPECIFIC (NODE)->decl_flags.context)
2040
2041 /* 1 iff NODE has namespace scope, including the global namespace.  */
2042 #define DECL_NAMESPACE_SCOPE_P(NODE)                            \
2043   (!DECL_TEMPLATE_PARM_P (NODE)                                 \
2044    && TREE_CODE (CP_DECL_CONTEXT (NODE)) == NAMESPACE_DECL)
2045
2046 /* 1 iff NODE is a class member.  */
2047 #define DECL_CLASS_SCOPE_P(NODE) \
2048   (DECL_CONTEXT (NODE) && TYPE_P (DECL_CONTEXT (NODE)))
2049
2050 /* 1 iff NODE is function-local.  */
2051 #define DECL_FUNCTION_SCOPE_P(NODE) \
2052   (DECL_CONTEXT (NODE) \
2053    && TREE_CODE (DECL_CONTEXT (NODE)) == FUNCTION_DECL)
2054
2055 /* For a NAMESPACE_DECL: the list of using namespace directives
2056    The PURPOSE is the used namespace, the value is the namespace
2057    that is the common ancestor. */
2058 #define DECL_NAMESPACE_USING(NODE) DECL_VINDEX (NAMESPACE_DECL_CHECK (NODE))
2059
2060 /* In a NAMESPACE_DECL, the DECL_INITIAL is used to record all users
2061    of a namespace, to record the transitive closure of using namespace. */
2062 #define DECL_NAMESPACE_USERS(NODE) DECL_INITIAL (NAMESPACE_DECL_CHECK (NODE))
2063
2064 /* In a NAMESPACE_DECL, points to the original namespace if this is
2065    a namespace alias.  */
2066 #define DECL_NAMESPACE_ALIAS(NODE) \
2067         DECL_ABSTRACT_ORIGIN (NAMESPACE_DECL_CHECK (NODE))
2068 #define ORIGINAL_NAMESPACE(NODE)  \
2069   (DECL_NAMESPACE_ALIAS (NODE) ? DECL_NAMESPACE_ALIAS (NODE) : (NODE))
2070
2071 /* In a non-local VAR_DECL with static storage duration, this is the
2072    initialization priority.  If this value is zero, the NODE will be
2073    initialized at the DEFAULT_INIT_PRIORITY.  */
2074 #define DECL_INIT_PRIORITY(NODE) (VAR_DECL_CHECK (NODE)->decl.u2.i)
2075
2076 /* In a TREE_LIST concatenating using directives, indicate indirect
2077    directives  */
2078 #define TREE_INDIRECT_USING(NODE) (TREE_LIST_CHECK (NODE)->common.lang_flag_0)
2079
2080 /* In a VAR_DECL for a variable declared in a for statement,
2081    this is the shadowed (local) variable.  */
2082 #define DECL_SHADOWED_FOR_VAR(NODE) DECL_RESULT(VAR_DECL_CHECK (NODE))
2083
2084 /* Points back to the decl which caused this lang_decl to be allocated.  */
2085 #define DECL_MAIN_VARIANT(NODE) (DECL_LANG_SPECIFIC(NODE)->main_decl_variant)
2086
2087 /* In a FUNCTION_DECL, this is nonzero if this function was defined in
2088    the class definition.  We have saved away the text of the function,
2089    but have not yet processed it.  */
2090 #define DECL_PENDING_INLINE_P(NODE) \
2091   (DECL_LANG_SPECIFIC (FUNCTION_DECL_CHECK (NODE))->decl_flags.pending_inline_p)
2092
2093 /* If DECL_PENDING_INLINE_P holds, this is the saved text of the
2094    function.  */
2095 #define DECL_PENDING_INLINE_INFO(NODE) \
2096   (DECL_LANG_SPECIFIC(NODE)->u.pending_inline_info)
2097
2098 /* For a TYPE_DECL: if this function has many fields, we'll sort them
2099    and put them into a TREE_VEC. */
2100 #define DECL_SORTED_FIELDS(NODE) \
2101         (DECL_LANG_SPECIFIC (TYPE_DECL_CHECK (NODE))->u.sorted_fields)
2102
2103 /* True if on the saved_inlines (see decl2.c) list.  */
2104 #define DECL_SAVED_INLINE(DECL) \
2105   (DECL_LANG_SPECIFIC(DECL)->decl_flags.saved_inline)
2106
2107 /* For a VAR_DECL, FUNCTION_DECL, TYPE_DECL or TEMPLATE_DECL:
2108    template-specific information.  */
2109 #define DECL_TEMPLATE_INFO(NODE) \
2110   (DECL_LANG_SPECIFIC(VAR_TEMPL_TYPE_OR_FUNCTION_DECL_CHECK (NODE))->decl_flags.u.template_info)
2111
2112 /* Template information for a RECORD_TYPE or UNION_TYPE.  */
2113 #define CLASSTYPE_TEMPLATE_INFO(NODE) \
2114   (TYPE_LANG_SPECIFIC(RECORD_OR_UNION_TYPE_CHECK (NODE))->template_info)
2115
2116 /* Template information for an ENUMERAL_TYPE.  Although an enumeration may
2117    not be a primary template, it may be declared within the scope of a
2118    primary template and the enumeration constants may depend on
2119    non-type template parameters.  */
2120 #define ENUM_TEMPLATE_INFO(NODE) (TYPE_BINFO (ENUMERAL_TYPE_CHECK (NODE)))
2121
2122 /* Template information for a template template parameter.  */
2123 #define TEMPLATE_TEMPLATE_PARM_TEMPLATE_INFO(NODE) (TYPE_BINFO (NODE))
2124
2125 /* Template information for an ENUMERAL_, RECORD_, or UNION_TYPE.  */
2126 #define TYPE_TEMPLATE_INFO(NODE)                        \
2127   (TREE_CODE (NODE) == ENUMERAL_TYPE                    \
2128    ? ENUM_TEMPLATE_INFO (NODE) :                        \
2129    (TREE_CODE (NODE) == TEMPLATE_TEMPLATE_PARM          \
2130     ? TEMPLATE_TEMPLATE_PARM_TEMPLATE_INFO (NODE)       \
2131     : CLASSTYPE_TEMPLATE_INFO (NODE)))
2132
2133 /* Set the template information for an ENUMERAL_, RECORD_, or
2134    UNION_TYPE to VAL.  */
2135 #define SET_TYPE_TEMPLATE_INFO(NODE, VAL)       \
2136   (TREE_CODE (NODE) == ENUMERAL_TYPE            \
2137    ? (ENUM_TEMPLATE_INFO (NODE) = VAL)          \
2138    : (CLASSTYPE_TEMPLATE_INFO (NODE) = VAL))
2139
2140 #define TI_TEMPLATE(NODE) (TREE_PURPOSE (NODE))
2141 #define TI_ARGS(NODE) (TREE_VALUE (NODE))
2142 #define TI_PENDING_TEMPLATE_FLAG(NODE) TREE_LANG_FLAG_1 (NODE)
2143
2144 /* We use TREE_VECs to hold template arguments.  If there is only one
2145    level of template arguments, then the TREE_VEC contains the
2146    arguments directly.  If there is more than one level of template
2147    arguments, then each entry in the TREE_VEC is itself a TREE_VEC,
2148    containing the template arguments for a single level.  The first
2149    entry in the outer TREE_VEC is the outermost level of template
2150    parameters; the last is the innermost.
2151
2152    It is incorrect to ever form a template argument vector containing
2153    only one level of arguments, but which is a TREE_VEC containing as
2154    its only entry the TREE_VEC for that level.  */
2155
2156 /* Non-zero if the template arguments is actually a vector of vectors,
2157    rather than just a vector.  */
2158 #define TMPL_ARGS_HAVE_MULTIPLE_LEVELS(NODE) \
2159   (NODE != NULL_TREE                                            \
2160    && TREE_CODE (NODE) == TREE_VEC                              \
2161    && TREE_VEC_LENGTH (NODE) > 0                                \
2162    && TREE_VEC_ELT (NODE, 0) != NULL_TREE                       \
2163    && TREE_CODE (TREE_VEC_ELT (NODE, 0)) == TREE_VEC)
2164
2165 /* The depth of a template argument vector.  When called directly by
2166    the parser, we use a TREE_LIST rather than a TREE_VEC to represent
2167    template arguments.  In fact, we may even see NULL_TREE if there
2168    are no template arguments.  In both of those cases, there is only
2169    one level of template arguments.  */
2170 #define TMPL_ARGS_DEPTH(NODE)                                   \
2171   (TMPL_ARGS_HAVE_MULTIPLE_LEVELS (NODE) ? TREE_VEC_LENGTH (NODE) : 1)
2172
2173 /* The LEVELth level of the template ARGS.  Note that template
2174    parameter levels are indexed from 1, not from 0.  */
2175 #define TMPL_ARGS_LEVEL(ARGS, LEVEL)            \
2176   (TMPL_ARGS_HAVE_MULTIPLE_LEVELS (ARGS)        \
2177    ? TREE_VEC_ELT ((ARGS), (LEVEL) - 1) : ARGS)
2178
2179 /* Set the LEVELth level of the template ARGS to VAL.  This macro does
2180    not work with single-level argument vectors.  */
2181 #define SET_TMPL_ARGS_LEVEL(ARGS, LEVEL, VAL)   \
2182   (TREE_VEC_ELT ((ARGS), (LEVEL) - 1) = (VAL))
2183
2184 /* Accesses the IDXth parameter in the LEVELth level of the ARGS.  */
2185 #define TMPL_ARG(ARGS, LEVEL, IDX)                              \
2186   (TREE_VEC_ELT (TMPL_ARGS_LEVEL (ARGS, LEVEL), IDX))
2187
2188 /* Set the IDXth element in the LEVELth level of ARGS to VAL.  This
2189    macro does not work with single-level argument vectors.  */
2190 #define SET_TMPL_ARG(ARGS, LEVEL, IDX, VAL)                     \
2191   (TREE_VEC_ELT (TREE_VEC_ELT ((ARGS), (LEVEL) - 1), (IDX)) = (VAL))
2192
2193 /* Given a single level of template arguments in NODE, return the
2194    number of arguments.  */
2195 #define NUM_TMPL_ARGS(NODE)                             \
2196   ((NODE) == NULL_TREE ? 0                              \
2197    : (TREE_CODE (NODE) == TREE_VEC                      \
2198       ? TREE_VEC_LENGTH (NODE) : list_length (NODE)))
2199
2200 /* The number of levels of template parameters given by NODE.  */
2201 #define TMPL_PARMS_DEPTH(NODE) \
2202   (TREE_INT_CST_HIGH (TREE_PURPOSE (NODE)))
2203
2204 /* The TEMPLATE_DECL instantiated or specialized by NODE.  This
2205    TEMPLATE_DECL will be the immediate parent, not the most general
2206    template.  For example, in:
2207
2208       template <class T> struct S { template <class U> void f(U); }
2209
2210    the FUNCTION_DECL for S<int>::f<double> will have, as its
2211    DECL_TI_TEMPLATE, `template <class U> S<int>::f<U>'.
2212
2213    As a special case, for a member friend template of a template
2214    class, this value will not be a TEMPLATE_DECL, but rather a
2215    LOOKUP_EXPR or IDENTIFIER_NODE indicating the name of the template
2216    and any explicit template arguments provided.  For example, in:
2217
2218      template <class T> struct S { friend void f<int>(int, double); }
2219
2220    the DECL_TI_TEMPLATE will be a LOOKUP_EXPR for `f' and the
2221    DECL_TI_ARGS will be {int}.  */
2222 #define DECL_TI_TEMPLATE(NODE)      TI_TEMPLATE (DECL_TEMPLATE_INFO (NODE))
2223
2224 /* The template arguments used to obtain this decl from the most
2225    general form of DECL_TI_TEMPLATE.  For the example given for
2226    DECL_TI_TEMPLATE, the DECL_TI_ARGS will be {int, double}.  These
2227    are always the full set of arguments required to instantiate this
2228    declaration from the most general template specialized here.  */
2229 #define DECL_TI_ARGS(NODE)          TI_ARGS (DECL_TEMPLATE_INFO (NODE))
2230 #define CLASSTYPE_TI_TEMPLATE(NODE) TI_TEMPLATE (CLASSTYPE_TEMPLATE_INFO (NODE))
2231 #define CLASSTYPE_TI_ARGS(NODE)     TI_ARGS (CLASSTYPE_TEMPLATE_INFO (NODE))
2232 #define ENUM_TI_TEMPLATE(NODE)                  \
2233   TI_TEMPLATE (ENUM_TEMPLATE_INFO (NODE))
2234 #define ENUM_TI_ARGS(NODE)                      \
2235   TI_ARGS (ENUM_TEMPLATE_INFO (NODE))
2236
2237 /* Like DECL_TI_TEMPLATE, but for an ENUMERAL_, RECORD_, or UNION_TYPE.  */
2238 #define TYPE_TI_TEMPLATE(NODE)                  \
2239   (TI_TEMPLATE (TYPE_TEMPLATE_INFO (NODE)))
2240
2241 /* Like DECL_TI_ARGS, but for an ENUMERAL_, RECORD_, or UNION_TYPE.  */
2242 #define TYPE_TI_ARGS(NODE)                      \
2243   (TI_ARGS (TYPE_TEMPLATE_INFO (NODE)))
2244
2245 #define INNERMOST_TEMPLATE_PARMS(NODE)  TREE_VALUE(NODE)
2246
2247 /* Nonzero if the NODE corresponds to the template parameters for a
2248    member template, whose inline definition is being processed after
2249    the class definition is complete.  */
2250 #define TEMPLATE_PARMS_FOR_INLINE(NODE) TREE_LANG_FLAG_1 (NODE)
2251
2252 /* In a FUNCTION_DECL, the saved representation of the body of the
2253    entire function.  Usually a COMPOUND_STMT, but this may also be a
2254    RETURN_INIT, CTOR_INITIALIZER, or TRY_BLOCK.  */
2255 #define DECL_SAVED_TREE(NODE) \
2256   (DECL_LANG_SPECIFIC (FUNCTION_DECL_CHECK (NODE))->saved_tree)
2257
2258 /* In a FUNCTION_DECL, the saved language-specific per-function data.  */
2259 #define DECL_SAVED_FUNCTION_DATA(NODE) \
2260   (DECL_LANG_SPECIFIC (FUNCTION_DECL_CHECK (NODE))->u.saved_language_function)
2261
2262 #define COMPOUND_STMT_NO_SCOPE(NODE)    TREE_LANG_FLAG_0 (NODE)
2263 #define NEW_EXPR_USE_GLOBAL(NODE)       TREE_LANG_FLAG_0 (NODE)
2264 #define DELETE_EXPR_USE_GLOBAL(NODE)    TREE_LANG_FLAG_0 (NODE)
2265 #define DELETE_EXPR_USE_VEC(NODE)       TREE_LANG_FLAG_1 (NODE)
2266 #define LOOKUP_EXPR_GLOBAL(NODE)        TREE_LANG_FLAG_0 (NODE)
2267
2268 /* Nonzero if this AGGR_INIT_EXPR provides for initialization via a
2269    constructor call, rather than an ordinary function call.  */
2270 #define AGGR_INIT_VIA_CTOR_P(NODE) \
2271   TREE_LANG_FLAG_0 (AGGR_INIT_EXPR_CHECK (NODE))
2272
2273 /* Nonzero if this statement should be considered a full-expression.  */
2274 #define STMT_IS_FULL_EXPR_P(NODE) TREE_LANG_FLAG_1 ((NODE))
2275
2276 /* The TYPE_MAIN_DECL for a class template type is a TYPE_DECL, not a
2277    TEMPLATE_DECL.  This macro determines whether or not a given class
2278    type is really a template type, as opposed to an instantiation or
2279    specialization of one.  */
2280 #define CLASSTYPE_IS_TEMPLATE(NODE)  \
2281   (CLASSTYPE_TEMPLATE_INFO (NODE)    \
2282    && !CLASSTYPE_USE_TEMPLATE (NODE) \
2283    && PRIMARY_TEMPLATE_P (CLASSTYPE_TI_TEMPLATE (NODE)))
2284
2285 /* The name used by the user to name the typename type.  Typically,
2286    this is an IDENTIFIER_NODE, and the same as the DECL_NAME on the
2287    corresponding TYPE_DECL.  However, this may also be a
2288    TEMPLATE_ID_EXPR if we had something like `typename X::Y<T>'.  */
2289 #define TYPENAME_TYPE_FULLNAME(NODE) TYPE_BINFO (NODE)
2290
2291 /* Nonzero if NODE is an implicit typename.  */
2292 #define IMPLICIT_TYPENAME_P(NODE) \
2293   (TREE_CODE (NODE) == TYPENAME_TYPE && TREE_TYPE (NODE))
2294
2295 /* Nonzero if NODE is a TYPE_DECL that should not be visible because
2296    it is from a dependent base class.  */
2297 #define IMPLICIT_TYPENAME_TYPE_DECL_P(NODE)     \
2298   (TREE_CODE (NODE) == TYPE_DECL                \
2299    && DECL_ARTIFICIAL (NODE)                    \
2300    && IMPLICIT_TYPENAME_P (TREE_TYPE (NODE)))
2301
2302 /* Nonzero in INTEGER_CST means that this int is negative by dint of
2303    using a twos-complement negated operand.  */
2304 #define TREE_NEGATED_INT(NODE) TREE_LANG_FLAG_0 (INTEGER_CST_CHECK (NODE))
2305
2306 /* Nonzero in any kind of _TYPE where conversions to base-classes may
2307    involve pointer arithmetic.  If this is zero, then converting to
2308    a base-class never requires changing the value of the pointer.  */
2309 #define TYPE_BASE_CONVS_MAY_REQUIRE_CODE_P(NODE) (TREE_LANG_FLAG_1 (NODE))
2310
2311 /* [class.virtual]
2312
2313    A class that declares or inherits a virtual function is called a
2314    polymorphic class.  */
2315 #define TYPE_POLYMORPHIC_P(NODE) (TREE_LANG_FLAG_2 (NODE))
2316
2317 /* Nonzero if this class has a virtual function table pointer.  */
2318 #define TYPE_CONTAINS_VPTR_P(NODE)              \
2319   (TYPE_POLYMORPHIC_P (NODE)                    \
2320    || (vbase_offsets_in_vtable_p ()             \
2321        && TYPE_USES_VIRTUAL_BASECLASSES (NODE)))
2322
2323 extern int flag_new_for_scope;
2324
2325 /* This flag is true of a local VAR_DECL if it was declared in a for
2326    statement, but we are no longer in the scope of the for.  */
2327 #define DECL_DEAD_FOR_LOCAL(NODE) DECL_LANG_FLAG_7 (VAR_DECL_CHECK (NODE))
2328
2329 /* This flag is set on a VAR_DECL that is a DECL_DEAD_FOR_LOCAL
2330    if we already emitted a warning about using it.  */
2331 #define DECL_ERROR_REPORTED(NODE) DECL_LANG_FLAG_0 (VAR_DECL_CHECK (NODE))
2332
2333 /* Nonzero if NODE is a FUNCTION_DECL (for a function with global
2334    scope) declared in a local scope.  */
2335 #define DECL_LOCAL_FUNCTION_P(NODE) \
2336   DECL_LANG_FLAG_0 (FUNCTION_DECL_CHECK (NODE))
2337
2338 /* This _DECL represents a compiler-generated entity.  */
2339 #define SET_DECL_ARTIFICIAL(NODE) (DECL_ARTIFICIAL (NODE) = 1)
2340
2341 /* Record whether a typedef for type `int' was actually `signed int'.  */
2342 #define C_TYPEDEF_EXPLICITLY_SIGNED(exp) DECL_LANG_FLAG_1 ((exp))
2343
2344 /* In a FIELD_DECL, nonzero if the decl was originally a bitfield.  */
2345 #define DECL_C_BIT_FIELD(NODE) \
2346   (DECL_LANG_SPECIFIC (FIELD_DECL_CHECK (NODE))\
2347    && DECL_LANG_SPECIFIC (NODE)->decl_flags.bitfield)
2348 #define SET_DECL_C_BIT_FIELD(NODE) \
2349   (DECL_LANG_SPECIFIC (FIELD_DECL_CHECK (NODE))->decl_flags.bitfield = 1)
2350 #define CLEAR_DECL_C_BIT_FIELD(NODE) \
2351   (DECL_LANG_SPECIFIC (FIELD_DECL_CHECK (NODE))->decl_flags.bitfield = 0)
2352
2353 /* In a FUNCTION_DECL, nonzero if the function cannot be inlined.  */
2354 #define DECL_UNINLINABLE(NODE) \
2355   (DECL_LANG_SPECIFIC (NODE)->decl_flags.bitfield)
2356
2357 #define INTEGRAL_CODE_P(CODE) \
2358   (CODE == INTEGER_TYPE || CODE == ENUMERAL_TYPE || CODE == BOOLEAN_TYPE)
2359
2360 /* [basic.fundamental]
2361
2362    Types  bool, char, wchar_t, and the signed and unsigned integer types
2363    are collectively called integral types.
2364
2365    Note that INTEGRAL_TYPE_P, as defined in tree.h, allows enumeration
2366    types as well, which is incorrect in C++.  */
2367 #define CP_INTEGRAL_TYPE_P(TYPE)                \
2368   (TREE_CODE ((TYPE)) == BOOLEAN_TYPE           \
2369    || TREE_CODE ((TYPE)) == INTEGER_TYPE)
2370
2371 /* [basic.fundamental]
2372
2373    Integral and floating types are collectively called arithmetic
2374    types.  */
2375 #define ARITHMETIC_TYPE_P(TYPE) \
2376   (CP_INTEGRAL_TYPE_P (TYPE) || TREE_CODE (TYPE) == REAL_TYPE)
2377
2378 /* Mark which labels are explicitly declared.
2379    These may be shadowed, and may be referenced from nested functions.  */
2380 #define C_DECLARED_LABEL_FLAG(label) TREE_LANG_FLAG_1 (label)
2381
2382 /* Nonzero for _TYPE means that the _TYPE defines
2383    at least one constructor.  */
2384 #define TYPE_HAS_CONSTRUCTOR(NODE) (TYPE_LANG_FLAG_1(NODE))
2385
2386 /* When appearing in an INDIRECT_REF, it means that the tree structure
2387    underneath is actually a call to a constructor.  This is needed
2388    when the constructor must initialize local storage (which can
2389    be automatically destroyed), rather than allowing it to allocate
2390    space from the heap.
2391
2392    When appearing in a SAVE_EXPR, it means that underneath
2393    is a call to a constructor.
2394
2395    When appearing in a CONSTRUCTOR, it means that it was
2396    a GNU C constructor expression.
2397
2398    When appearing in a FIELD_DECL, it means that this field
2399    has been duly initialized in its constructor.  */
2400 #define TREE_HAS_CONSTRUCTOR(NODE) (TREE_LANG_FLAG_4(NODE))
2401
2402 #define EMPTY_CONSTRUCTOR_P(NODE) (TREE_CODE (NODE) == CONSTRUCTOR         \
2403                                    && CONSTRUCTOR_ELTS (NODE) == NULL_TREE \
2404                                    && ! TREE_HAS_CONSTRUCTOR (NODE))
2405
2406 #if 0
2407 /* Indicates that a NON_LVALUE_EXPR came from a C++ reference.
2408    Used to generate more helpful error message in case somebody
2409    tries to take its address.  */
2410 #define TREE_REFERENCE_EXPR(NODE) (TREE_LANG_FLAG_3(NODE))
2411 #endif
2412
2413 /* Nonzero for _TYPE means that the _TYPE defines a destructor.  */
2414 #define TYPE_HAS_DESTRUCTOR(NODE) (TYPE_LANG_FLAG_2(NODE))
2415
2416 /* Nonzero means that an object of this type can not be initialized using
2417    an initializer list.  */
2418 #define CLASSTYPE_NON_AGGREGATE(NODE) \
2419   (TYPE_LANG_SPECIFIC (NODE)->non_aggregate)
2420 #define TYPE_NON_AGGREGATE_CLASS(NODE) \
2421   (IS_AGGR_TYPE (NODE) && CLASSTYPE_NON_AGGREGATE (NODE))
2422
2423 /* Nonzero if there is a user-defined X::op=(x&) for this class.  */
2424 #define TYPE_HAS_REAL_ASSIGN_REF(NODE) (TYPE_LANG_SPECIFIC(NODE)->has_real_assign_ref)
2425 #define TYPE_HAS_COMPLEX_ASSIGN_REF(NODE) (TYPE_LANG_SPECIFIC(NODE)->has_complex_assign_ref)
2426 #define TYPE_HAS_ABSTRACT_ASSIGN_REF(NODE) (TYPE_LANG_SPECIFIC(NODE)->has_abstract_assign_ref)
2427 #define TYPE_HAS_COMPLEX_INIT_REF(NODE) (TYPE_LANG_SPECIFIC(NODE)->has_complex_init_ref)
2428
2429 /* Nonzero if TYPE has a trivial destructor.  From [class.dtor]:
2430
2431      A destructor is trivial if it is an implicitly declared
2432      destructor and if:
2433
2434        - all of the direct base classes of its class have trivial
2435          destructors,
2436
2437        - for all of the non-static data members of its class that are
2438          of class type (or array thereof), each such class has a
2439          trivial destructor.  */
2440 #define TYPE_HAS_TRIVIAL_DESTRUCTOR(NODE) \
2441   (!TYPE_HAS_NONTRIVIAL_DESTRUCTOR (NODE))
2442
2443 /* Nonzero for _TYPE node means that this type does not have a trivial
2444    destructor.  Therefore, destroying an object of this type will
2445    involve a call to a destructor.  This can apply to objects of
2446    ARRAY_TYPE is the type of the elements needs a destructor.  */
2447 #define TYPE_HAS_NONTRIVIAL_DESTRUCTOR(NODE) \
2448   (TYPE_LANG_FLAG_4(NODE))
2449
2450 /* Nonzero for class type means that initialization of this type can use
2451    a bitwise copy.  */
2452 #define TYPE_HAS_TRIVIAL_INIT_REF(NODE) \
2453   (TYPE_HAS_INIT_REF (NODE) && ! TYPE_HAS_COMPLEX_INIT_REF (NODE))
2454
2455 /* Nonzero for class type means that assignment of this type can use
2456    a bitwise copy.  */
2457 #define TYPE_HAS_TRIVIAL_ASSIGN_REF(NODE) \
2458   (TYPE_HAS_ASSIGN_REF (NODE) && ! TYPE_HAS_COMPLEX_ASSIGN_REF (NODE))
2459
2460 #define TYPE_PTRMEM_P(NODE)                                     \
2461   (TREE_CODE (NODE) == POINTER_TYPE                             \
2462    && TREE_CODE (TREE_TYPE (NODE)) == OFFSET_TYPE)
2463 #define TYPE_PTR_P(NODE)                                \
2464   (TREE_CODE (NODE) == POINTER_TYPE                     \
2465    && TREE_CODE (TREE_TYPE (NODE)) != OFFSET_TYPE)
2466 #define TYPE_PTROB_P(NODE)                                              \
2467   (TYPE_PTR_P (NODE) && TREE_CODE (TREE_TYPE (NODE)) != FUNCTION_TYPE   \
2468    && TREE_CODE (TREE_TYPE (NODE)) != VOID_TYPE)
2469 #define TYPE_PTROBV_P(NODE)                                             \
2470   (TYPE_PTR_P (NODE) && TREE_CODE (TREE_TYPE (NODE)) != FUNCTION_TYPE)
2471 #define TYPE_PTRFN_P(NODE)                              \
2472   (TREE_CODE (NODE) == POINTER_TYPE                     \
2473    && TREE_CODE (TREE_TYPE (NODE)) == FUNCTION_TYPE)
2474
2475 /* Nonzero for _TYPE node means that this type is a pointer to member
2476    function type.  */
2477 #define TYPE_PTRMEMFUNC_P(NODE)         \
2478   (TREE_CODE(NODE) == RECORD_TYPE       \
2479    && TYPE_LANG_SPECIFIC(NODE)          \
2480    && TYPE_PTRMEMFUNC_FLAG (NODE))
2481
2482 #define TYPE_PTRMEMFUNC_FLAG(NODE) \
2483   (TYPE_LANG_SPECIFIC(NODE)->ptrmemfunc_flag)
2484
2485 /* A pointer-to-function member type looks like:
2486
2487    struct {
2488      short __delta;
2489      short __index;
2490      union {
2491        P __pfn;
2492        short __delta2;
2493      } __pfn_or_delta2;
2494    };
2495
2496    where P is a POINTER_TYPE to a METHOD_TYPE appropriate for the
2497    pointer to member.  The fields are used as follows:
2498
2499      If __INDEX is -1, then the function to call is non-virtual, and
2500      is located at the address given by __PFN.
2501
2502      If __INDEX is zero, then this a NULL pointer-to-member.
2503
2504      Otherwise, the function to call is virtual.  Then, __DELTA2 gives
2505      the offset from an instance of the object to the virtual function
2506      table, and __INDEX - 1 is the index into the vtable to use to
2507      find the function.
2508
2509      The value to use for the THIS parameter is the address of the
2510      object plus __DELTA.
2511
2512    For example, given:
2513
2514      struct B1 {
2515        int i;
2516      };
2517
2518      struct B2 {
2519        double d;
2520        void f();
2521      };
2522
2523      struct S : public B1, B2 {};
2524
2525    the pointer-to-member for `&S::f' looks like:
2526
2527      { 4, -1, { &f__2B2 } };
2528
2529    The `4' means that given an `S*' you have to add 4 bytes to get to
2530    the address of the `B2*'.  Then, the -1 indicates that this is a
2531    non-virtual function.  Of course, `&f__2B2' is the name of that
2532    function.
2533
2534    (Of course, the exact values may differ depending on the mangling
2535    scheme, sizes of types, and such.).
2536
2537    Under the new ABI, we do:
2538
2539      struct {
2540        __P __pfn;
2541        ptrdiff_t __delta;
2542      };
2543
2544    (We don't need DELTA2, because the vtable is always the first thing
2545    in the object.)  If the function is virtual, then PFN is one plus
2546    twice the index into the vtable; otherwise, it is just a pointer to
2547    the function.  */
2548
2549 /* Get the POINTER_TYPE to the METHOD_TYPE associated with this
2550    pointer to member function.  TYPE_PTRMEMFUNC_P _must_ be true,
2551    before using this macro.  */
2552 #define TYPE_PTRMEMFUNC_FN_TYPE(NODE) \
2553   (flag_new_abi                       \
2554    ? (TREE_TYPE (TYPE_FIELDS (NODE))) \
2555    : (TREE_TYPE (TYPE_FIELDS (TREE_TYPE (TREE_CHAIN (TREE_CHAIN (TYPE_FIELDS (NODE))))))))
2556
2557 /* Returns `A' for a type like `int (A::*)(double)' */
2558 #define TYPE_PTRMEMFUNC_OBJECT_TYPE(NODE) \
2559   TYPE_METHOD_BASETYPE (TREE_TYPE (TYPE_PTRMEMFUNC_FN_TYPE (NODE)))
2560
2561 /* These are use to manipulate the canonical RECORD_TYPE from the
2562    hashed POINTER_TYPE, and can only be used on the POINTER_TYPE.  */
2563 #define TYPE_GET_PTRMEMFUNC_TYPE(NODE) ((tree)TYPE_LANG_SPECIFIC(NODE))
2564 #define TYPE_SET_PTRMEMFUNC_TYPE(NODE, VALUE) (TYPE_LANG_SPECIFIC(NODE) = ((struct lang_type *)(void*)(VALUE)))
2565 /* These are to get the delta2 and pfn fields from a TYPE_PTRMEMFUNC_P.  */
2566 #define DELTA2_FROM_PTRMEMFUNC(NODE) delta2_from_ptrmemfunc ((NODE))
2567 #define PFN_FROM_PTRMEMFUNC(NODE) pfn_from_ptrmemfunc ((NODE))
2568
2569 /* For a pointer-to-member type of the form `T X::*', this is `X'.  */
2570 #define TYPE_PTRMEM_CLASS_TYPE(NODE)                    \
2571   (TYPE_PTRMEM_P ((NODE))                               \
2572    ? TYPE_OFFSET_BASETYPE (TREE_TYPE ((NODE)))          \
2573    : TYPE_PTRMEMFUNC_OBJECT_TYPE ((NODE)))
2574
2575 /* For a pointer-to-member type of the form `T X::*', this is `T'.  */
2576 #define TYPE_PTRMEM_POINTED_TO_TYPE(NODE)               \
2577    (TYPE_PTRMEM_P ((NODE))                              \
2578     ? TREE_TYPE (TREE_TYPE (NODE))                      \
2579     : TREE_TYPE (TYPE_PTRMEMFUNC_FN_TYPE ((NODE))))
2580
2581 /* For a pointer-to-member constant `X::Y' this is the RECORD_TYPE for
2582    `X'.  */
2583 #define PTRMEM_CST_CLASS(NODE) \
2584   TYPE_PTRMEM_CLASS_TYPE (TREE_TYPE (PTRMEM_CST_CHECK (NODE)))
2585
2586 /* For a pointer-to-member constant `X::Y' this is the _DECL for
2587    `Y'.  */
2588 #define PTRMEM_CST_MEMBER(NODE) (((ptrmem_cst_t)PTRMEM_CST_CHECK (NODE))->member)
2589
2590 /* Nonzero for VAR_DECL and FUNCTION_DECL node means that `extern' was
2591    specified in its declaration.  This can also be set for an
2592    erroneously declared PARM_DECL.  */
2593 #define DECL_THIS_EXTERN(NODE) \
2594   DECL_LANG_FLAG_2 (VAR_FUNCTION_OR_PARM_DECL_CHECK (NODE))
2595
2596 /* Nonzero for VAR_DECL and FUNCTION_DECL node means that `static' was
2597    specified in its declaration.  This can also be set for an
2598    erroneously declared PARM_DECL.  */
2599 #define DECL_THIS_STATIC(NODE) \
2600   DECL_LANG_FLAG_6 (VAR_FUNCTION_OR_PARM_DECL_CHECK (NODE))
2601
2602 /* Nonzero in FUNCTION_DECL means it is really an operator.
2603    Just used to communicate formatting information to dbxout.c.  */
2604 #define DECL_OPERATOR(NODE) \
2605   (DECL_LANG_SPECIFIC(FUNCTION_DECL_CHECK (NODE))->decl_flags.operator_attr)
2606
2607 /* Nonzero if TYPE is an anonymous union or struct type.  We have to use a
2608    flag for this because "A union for which objects or pointers are
2609    declared is not an anonymous union" [class.union].  */
2610 #define ANON_AGGR_TYPE_P(NODE)                          \
2611   (CLASS_TYPE_P (NODE) && TYPE_LANG_SPECIFIC (NODE)->anon_aggr)
2612 #define SET_ANON_AGGR_TYPE_P(NODE)                      \
2613   (TYPE_LANG_SPECIFIC (NODE)->anon_aggr = 1)
2614
2615 /* Nonzero if TYPE is an anonymous union type.  */
2616 #define ANON_UNION_TYPE_P(NODE) \
2617   (TREE_CODE (NODE) == UNION_TYPE && ANON_AGGR_TYPE_P (NODE))
2618
2619 /* For a VAR_DECL that is an anonymous union, these are the various
2620    sub-variables that make up the anonymous union.  */
2621 #define DECL_ANON_UNION_ELEMS(NODE) DECL_ARGUMENTS ((NODE))
2622
2623 #define UNKNOWN_TYPE LANG_TYPE
2624
2625 /* Define fields and accessors for nodes representing declared names.  */
2626
2627 #if 0
2628 /* C++: A derived class may be able to directly use the virtual
2629    function table of a base class.  When it does so, it may
2630    still have a decl node used to access the virtual function
2631    table (so that variables of this type can initialize their
2632    virtual function table pointers by name).  When such thievery
2633    is committed, know exactly which base class's virtual function
2634    table is the one being stolen.  This effectively computes the
2635    transitive closure.  */
2636 #define DECL_VPARENT(NODE) ((NODE)->decl.arguments)
2637 #endif
2638
2639 #define TYPE_WAS_ANONYMOUS(NODE) (TYPE_LANG_SPECIFIC (NODE)->was_anonymous)
2640
2641 /* C++: all of these are overloaded!  These apply only to TYPE_DECLs.  */
2642
2643 /* The format of each node in the DECL_FRIENDLIST is as follows:
2644
2645    The TREE_PURPOSE will be the name of a function, i.e., an
2646    IDENTIFIER_NODE.  The TREE_VALUE will be itself a TREE_LIST, the
2647    list of functions with that name which are friends.  The
2648    TREE_PURPOSE of each node in this sublist will be error_mark_node,
2649    if the function was declared a friend individually, in which case
2650    the TREE_VALUE will be the function_decl.  If, however, all
2651    functions with a given name in a class were declared to be friends,
2652    the TREE_PUROSE will be the class type, and the TREE_VALUE will be
2653    NULL_TREE.  */
2654 #define DECL_FRIENDLIST(NODE)           (DECL_INITIAL (NODE))
2655 #define FRIEND_NAME(LIST) (TREE_PURPOSE (LIST))
2656 #define FRIEND_DECLS(LIST) (TREE_VALUE (LIST))
2657
2658 /* The DECL_ACCESS, if non-NULL, is a TREE_LIST.  The TREE_PURPOSE of
2659    each node is a type; the TREE_VALUE is the access granted for this
2660    DECL in that type.  The DECL_ACCESS is set by access declarations.
2661    For example, if a member that would normally be public in a
2662    derived class is made protected, then the derived class and the
2663    protected_access_node will appear in the DECL_ACCESS for the node.  */
2664 #define DECL_ACCESS(NODE) (DECL_LANG_SPECIFIC(NODE)->decl_flags.u2.access)
2665
2666 /* Nonzero if the FUNCTION_DECL is a global constructor.  */
2667 #define DECL_GLOBAL_CTOR_P(NODE) \
2668   (DECL_LANG_SPECIFIC ((NODE))->decl_flags.global_ctor_p)
2669
2670 /* Nonzero if the FUNCTION_DECL is a global destructor.  */
2671 #define DECL_GLOBAL_DTOR_P(NODE) \
2672   (DECL_LANG_SPECIFIC ((NODE))->decl_flags.global_dtor_p)
2673
2674 /* If DECL_GLOBAL_CTOR_P or DECL_GLOBAL_DTOR_P holds, this macro
2675    returns the initialization priority for the function.  Constructors
2676    with lower numbers should be run first.  Destructors should be run
2677    in the reverse order of constructors.  */
2678 #define GLOBAL_INIT_PRIORITY(NODE) \
2679   (DECL_LANG_SPECIFIC ((NODE))->decl_flags.u2.init_priority)
2680
2681 /* Accessor macros for C++ template decl nodes.  */
2682
2683 /* The DECL_TEMPLATE_PARMS are a list.  The TREE_PURPOSE of each node
2684    is a INT_CST whose TREE_INT_CST_HIGH indicates the level of the
2685    template parameters, with 1 being the outermost set of template
2686    parameters.  The TREE_VALUE is a vector, whose elements are the
2687    template parameters at each level.  Each element in the vector is a
2688    TREE_LIST, whose TREE_VALUE is a PARM_DECL (if the parameter is a
2689    non-type parameter), or a TYPE_DECL (if the parameter is a type
2690    parameter).  The TREE_PURPOSE is the default value, if any.  The
2691    TEMPLATE_PARM_INDEX for the parameter is avilable as the
2692    DECL_INITIAL (for a PARM_DECL) or as the TREE_TYPE (for a
2693    TYPE_DECL).  */
2694 #define DECL_TEMPLATE_PARMS(NODE)       DECL_ARGUMENTS(NODE)
2695 #define DECL_INNERMOST_TEMPLATE_PARMS(NODE) \
2696    INNERMOST_TEMPLATE_PARMS (DECL_TEMPLATE_PARMS (NODE))
2697 #define DECL_NTPARMS(NODE) \
2698    TREE_VEC_LENGTH (DECL_INNERMOST_TEMPLATE_PARMS (NODE))
2699 /* For function, method, class-data templates.  */
2700 #define DECL_TEMPLATE_RESULT(NODE)      DECL_RESULT(NODE)
2701 /* For a static member variable template, the
2702    DECL_TEMPLATE_INSTANTIATIONS list contains the explicitly and
2703    implicitly generated instantiations of the variable.  There are no
2704    partial instantiations of static member variables, so all of these
2705    will be full instantiations.
2706
2707    For a class template the DECL_TEMPLATE_INSTANTIATIONS lists holds
2708    all instantiations and specializations of the class type, including
2709    partial instantiations and partial specializations.
2710
2711    In both cases, the TREE_PURPOSE of each node contains the arguments
2712    used; the TREE_VALUE contains the generated variable.  The template
2713    arguments are always complete.  For example, given:
2714
2715       template <class T> struct S1 {
2716         template <class U> struct S2 {};
2717         template <class U> struct S2<U*> {};
2718       };
2719
2720    the record for the partial specialization will contain, as its
2721    argument list, { {T}, {U*} }, and will be on the
2722    DECL_TEMPLATE_INSTANTIATIONS list for `template <class T> template
2723    <class U> struct S1<T>::S2'.
2724
2725    This list is not used for function templates.  */
2726 #define DECL_TEMPLATE_INSTANTIATIONS(NODE) DECL_VINDEX(NODE)
2727 /* For a function template, the DECL_TEMPLATE_SPECIALIZATIONS lists
2728    contains all instantiations and specializations of the function,
2729    including partial instantiations.  For a partial instantiation
2730    which is a specialization, this list holds only full
2731    specializations of the template that are instantiations of the
2732    partial instantiation.  For example, given:
2733
2734       template <class T> struct S {
2735         template <class U> void f(U);
2736         template <> void f(T);
2737       };
2738
2739    the `S<int>::f<int>(int)' function will appear on the
2740    DECL_TEMPLATE_SPECIALIZATIONS list for both `template <class T>
2741    template <class U> void S<T>::f(U)' and `template <class T> void
2742    S<int>::f(T)'.  In the latter case, however, it will have only the
2743    innermost set of arguments (T, in this case).  The DECL_TI_TEMPLATE
2744    for the function declaration will point at the specialization, not
2745    the fully general template.
2746
2747    For a class template, this list contains the partial
2748    specializations of this template.  (Full specializations are not
2749    recorded on this list.)  The TREE_PURPOSE holds the innermost
2750    arguments used in the partial specialization (e.g., for `template
2751    <class T> struct S<T*, int>' this will be `T*'.)  The TREE_VALUE
2752    holds the innermost template parameters for the specialization
2753    (e.g., `T' in the example above.)  The TREE_TYPE is the _TYPE node
2754    for the partial specialization.
2755
2756    This list is not used for static variable templates.  */
2757 #define DECL_TEMPLATE_SPECIALIZATIONS(NODE)     DECL_SIZE(NODE)
2758
2759 /* Nonzero for a DECL which is actually a template parameter.  */
2760 #define DECL_TEMPLATE_PARM_P(NODE)              \
2761   (DECL_LANG_FLAG_0 (NODE)                      \
2762    && (TREE_CODE (NODE) == CONST_DECL           \
2763        || TREE_CODE (NODE) == TYPE_DECL         \
2764        || TREE_CODE (NODE) == TEMPLATE_DECL))
2765
2766 /* Mark NODE as a template parameter.  */
2767 #define SET_DECL_TEMPLATE_PARM_P(NODE) \
2768   (DECL_LANG_FLAG_0 (NODE) = 1)
2769
2770 /* Nonzero if NODE is a template template parameter.  */
2771 #define DECL_TEMPLATE_TEMPLATE_PARM_P(NODE) \
2772   (TREE_CODE (NODE) == TEMPLATE_DECL && DECL_TEMPLATE_PARM_P (NODE))
2773
2774 #define DECL_FUNCTION_TEMPLATE_P(NODE)  \
2775   (TREE_CODE (NODE) == TEMPLATE_DECL \
2776    && TREE_CODE (DECL_TEMPLATE_RESULT (NODE)) == FUNCTION_DECL)
2777
2778 /* Nonzero for a DECL that represents a template class.  */
2779 #define DECL_CLASS_TEMPLATE_P(NODE) \
2780   (TREE_CODE (NODE) == TEMPLATE_DECL \
2781    && TREE_CODE (DECL_TEMPLATE_RESULT (NODE)) == TYPE_DECL \
2782    && !DECL_TEMPLATE_TEMPLATE_PARM_P (NODE))
2783
2784 /* Nonzero if NODE which declares a type.  */
2785 #define DECL_DECLARES_TYPE_P(NODE) \
2786   (TREE_CODE (NODE) == TYPE_DECL || DECL_CLASS_TEMPLATE_P (NODE))
2787
2788 /* Nonzero if NODE is the typedef implicitly generated for a type when
2789    the type is declared.  (In C++, `struct S {};' is roughly equivalent
2790    to `struct S {}; typedef struct S S;' in C.  This macro will hold
2791    for the typedef indicated in this example.  Note that in C++, there
2792    is a second implicit typedef for each class, in the scope of `S'
2793    itself, so that you can say `S::S'.  This macro does *not* hold for
2794    those typedefs.  */
2795 #define DECL_IMPLICIT_TYPEDEF_P(NODE) \
2796   (TREE_CODE ((NODE)) == TYPE_DECL && DECL_LANG_FLAG_2 ((NODE)))
2797 #define SET_DECL_IMPLICIT_TYPEDEF_P(NODE) \
2798   (DECL_LANG_FLAG_2 ((NODE)) = 1)
2799
2800 /* A `primary' template is one that has its own template header.  A
2801    member function of a class template is a template, but not primary.
2802    A member template is primary.  Friend templates are primary, too.  */
2803
2804 /* Returns the primary template corresponding to these parameters.  */
2805 #define DECL_PRIMARY_TEMPLATE(NODE) \
2806   (TREE_TYPE (DECL_INNERMOST_TEMPLATE_PARMS (NODE)))
2807
2808 /* Returns non-zero if NODE is a primary template.  */
2809 #define PRIMARY_TEMPLATE_P(NODE) (DECL_PRIMARY_TEMPLATE (NODE) == NODE)
2810
2811 #define CLASSTYPE_TEMPLATE_LEVEL(NODE) \
2812   (TREE_INT_CST_HIGH (TREE_PURPOSE (CLASSTYPE_TI_TEMPLATE (NODE))))
2813
2814 /* Indicates whether or not (and how) a template was expanded for this
2815    FUNCTION_DECL or VAR_DECL.
2816      0=normal declaration, e.g. int min (int, int);
2817      1=implicit template instantiation
2818      2=explicit template specialization, e.g. int min<int> (int, int);
2819      3=explicit template instantiation, e.g. template int min<int> (int, int);  */
2820 #define DECL_USE_TEMPLATE(NODE) (DECL_LANG_SPECIFIC(NODE)->decl_flags.use_template)
2821
2822 #define DECL_TEMPLATE_INSTANTIATION(NODE) (DECL_USE_TEMPLATE (NODE) & 1)
2823 #define CLASSTYPE_TEMPLATE_INSTANTIATION(NODE) \
2824   (CLASSTYPE_USE_TEMPLATE (NODE) & 1)
2825
2826 #define DECL_TEMPLATE_SPECIALIZATION(NODE) (DECL_USE_TEMPLATE (NODE) == 2)
2827 #define SET_DECL_TEMPLATE_SPECIALIZATION(NODE) (DECL_USE_TEMPLATE (NODE) = 2)
2828 #define CLASSTYPE_TEMPLATE_SPECIALIZATION(NODE) \
2829   (CLASSTYPE_USE_TEMPLATE (NODE) == 2)
2830 #define SET_CLASSTYPE_TEMPLATE_SPECIALIZATION(NODE) \
2831   (CLASSTYPE_USE_TEMPLATE (NODE) = 2)
2832
2833 #define DECL_IMPLICIT_INSTANTIATION(NODE) (DECL_USE_TEMPLATE (NODE) == 1)
2834 #define SET_DECL_IMPLICIT_INSTANTIATION(NODE) (DECL_USE_TEMPLATE (NODE) = 1)
2835 #define CLASSTYPE_IMPLICIT_INSTANTIATION(NODE) \
2836   (CLASSTYPE_USE_TEMPLATE(NODE) == 1)
2837 #define SET_CLASSTYPE_IMPLICIT_INSTANTIATION(NODE) \
2838   (CLASSTYPE_USE_TEMPLATE(NODE) = 1)
2839
2840 #define DECL_EXPLICIT_INSTANTIATION(NODE) (DECL_USE_TEMPLATE (NODE) == 3)
2841 #define SET_DECL_EXPLICIT_INSTANTIATION(NODE) (DECL_USE_TEMPLATE (NODE) = 3)
2842 #define CLASSTYPE_EXPLICIT_INSTANTIATION(NODE) \
2843   (CLASSTYPE_USE_TEMPLATE(NODE) == 3)
2844 #define SET_CLASSTYPE_EXPLICIT_INSTANTIATION(NODE) \
2845   (CLASSTYPE_USE_TEMPLATE(NODE) = 3)
2846
2847 /* Non-zero if DECL is a friend function which is an instantiation
2848    from the point of view of the compiler, but not from the point of
2849    view of the language.  For example given:
2850       template <class T> struct S { friend void f(T) {}; };
2851    the declaration of `void f(int)' generated when S<int> is
2852    instantiated will not be a DECL_TEMPLATE_INSTANTIATION, but will be
2853    a DECL_FRIEND_PSUEDO_TEMPLATE_INSTANTIATION.  */
2854 #define DECL_FRIEND_PSEUDO_TEMPLATE_INSTANTIATION(DECL) \
2855   (DECL_TEMPLATE_INFO (DECL) && !DECL_USE_TEMPLATE (DECL))
2856
2857 /* Non-zero if TYPE is a partial instantiation of a template class,
2858    i.e., an instantiation whose instantiation arguments involve
2859    template types.  */
2860 #define PARTIAL_INSTANTIATION_P(TYPE) \
2861   (TYPE_LANG_SPECIFIC (TYPE)->is_partial_instantiation)
2862
2863 /* Non-zero iff we are currently processing a declaration for an
2864    entity with its own template parameter list, and which is not a
2865    full specialization.  */
2866 #define PROCESSING_REAL_TEMPLATE_DECL_P() \
2867   (processing_template_decl > template_class_depth (current_class_type))
2868
2869 /* This function may be a guiding decl for a template.  */
2870 #define DECL_MAYBE_TEMPLATE(NODE) DECL_LANG_FLAG_4 (NODE)
2871
2872 /* Nonzero if this VAR_DECL or FUNCTION_DECL has already been
2873    instantiated, i.e. its definition has been generated from the
2874    pattern given in the the template.  */
2875 #define DECL_TEMPLATE_INSTANTIATED(NODE) \
2876   DECL_LANG_FLAG_1 (VAR_OR_FUNCTION_DECL_CHECK (NODE))
2877
2878 /* We know what we're doing with this decl now.  */
2879 #define DECL_INTERFACE_KNOWN(NODE) DECL_LANG_FLAG_5 (NODE)
2880
2881 /* This function was declared inline.  This flag controls the linkage
2882    semantics of 'inline'; whether or not the function is inlined is
2883    controlled by DECL_INLINE.  */
2884 #define DECL_THIS_INLINE(NODE) \
2885   (DECL_LANG_SPECIFIC (NODE)->decl_flags.declared_inline)
2886
2887 /* DECL_EXTERNAL must be set on a decl until the decl is actually emitted,
2888    so that assemble_external will work properly.  So we have this flag to
2889    tell us whether the decl is really not external.  */
2890 #define DECL_NOT_REALLY_EXTERN(NODE) \
2891   (DECL_LANG_SPECIFIC (NODE)->decl_flags.not_really_extern)
2892
2893 #define DECL_REALLY_EXTERN(NODE) \
2894   (DECL_EXTERNAL (NODE) && ! DECL_NOT_REALLY_EXTERN (NODE))
2895
2896 /* An integer indicating how many bytes should be subtracted from the
2897    `this' pointer when this function is called.  */
2898 #define THUNK_DELTA(DECL) (DECL_CHECK (DECL)->decl.u1.i)
2899
2900 /* An integer indicating how many bytes should be subtracted from the
2901    vtable for the `this' pointer to find the vcall offset.  (The vptr
2902    is always located at offset zero from the f `this' pointer.)  If
2903    zero, then there is no vcall offset.  */
2904 #define THUNK_VCALL_OFFSET(DECL) (DECL_CHECK (DECL)->decl.u2.i)
2905
2906 /* DECL_NEEDED_P holds of a declaration when we need to emit its
2907    definition.  This is true when the back-end tells us that
2908    the symbol has been referenced in the generated code.  If, however,
2909    we are not generating code, then it is also true when a symbol has
2910    just been used somewhere, even if it's not really needed.  We need
2911    anything that isn't comdat, but we don't know for sure whether or
2912    not something is comdat until end-of-file.  */
2913 #define DECL_NEEDED_P(DECL)                                     \
2914   ((at_eof && !DECL_COMDAT (DECL))                              \
2915    || (TREE_SYMBOL_REFERENCED (DECL_ASSEMBLER_NAME ((DECL))))   \
2916    || (flag_syntax_only && TREE_USED ((DECL))))
2917
2918 /* An un-parsed default argument looks like an identifier.  */
2919 #define DEFARG_LENGTH(NODE)  (DEFAULT_ARG_CHECK(NODE)->identifier.length)
2920 #define DEFARG_POINTER(NODE) (DEFAULT_ARG_CHECK(NODE)->identifier.pointer)
2921
2922 /* These macros provide convenient access to the various _STMT nodes
2923    created when parsing template declarations.  */
2924 #define IF_COND(NODE)           TREE_OPERAND (IF_STMT_CHECK (NODE), 0)
2925 #define THEN_CLAUSE(NODE)       TREE_OPERAND (IF_STMT_CHECK (NODE), 1)
2926 #define ELSE_CLAUSE(NODE)       TREE_OPERAND (IF_STMT_CHECK (NODE), 2)
2927 #define WHILE_COND(NODE)        TREE_OPERAND (WHILE_STMT_CHECK (NODE), 0)
2928 #define WHILE_BODY(NODE)        TREE_OPERAND (WHILE_STMT_CHECK (NODE), 1)
2929 #define DO_COND(NODE)           TREE_OPERAND (DO_STMT_CHECK (NODE), 0)
2930 #define DO_BODY(NODE)           TREE_OPERAND (DO_STMT_CHECK (NODE), 1)
2931 #define RETURN_EXPR(NODE)       TREE_OPERAND (RETURN_STMT_CHECK (NODE), 0)
2932 #define EXPR_STMT_EXPR(NODE)    TREE_OPERAND (EXPR_STMT_CHECK (NODE), 0)
2933 #define FOR_INIT_STMT(NODE)     TREE_OPERAND (FOR_STMT_CHECK (NODE), 0)
2934 #define FOR_COND(NODE)          TREE_OPERAND (FOR_STMT_CHECK (NODE), 1)
2935 #define FOR_EXPR(NODE)          TREE_OPERAND (FOR_STMT_CHECK (NODE), 2)
2936 #define FOR_BODY(NODE)          TREE_OPERAND (FOR_STMT_CHECK (NODE), 3)
2937 #define SWITCH_COND(NODE)       TREE_OPERAND (SWITCH_STMT_CHECK (NODE), 0)
2938 #define SWITCH_BODY(NODE)       TREE_OPERAND (SWITCH_STMT_CHECK (NODE), 1)
2939 #define CASE_LOW(NODE)          TREE_OPERAND (CASE_LABEL_CHECK (NODE), 0)
2940 #define CASE_HIGH(NODE)         TREE_OPERAND (CASE_LABEL_CHECK (NODE), 1)
2941 #define GOTO_DESTINATION(NODE)  TREE_OPERAND (GOTO_STMT_CHECK (NODE), 0)
2942 #define TRY_STMTS(NODE)         TREE_OPERAND (TRY_BLOCK_CHECK (NODE), 0)
2943 #define TRY_HANDLERS(NODE)      TREE_OPERAND (TRY_BLOCK_CHECK (NODE), 1)
2944 #define CLEANUP_P(NODE)         TREE_LANG_FLAG_0 (TRY_BLOCK_CHECK (NODE))
2945 /* Nonzero if this try block is a function try block.  */
2946 #define FN_TRY_BLOCK_P(NODE)    TREE_LANG_FLAG_3 (TRY_BLOCK_CHECK (NODE))
2947 #define HANDLER_PARMS(NODE)     TREE_OPERAND (HANDLER_CHECK (NODE), 0)
2948 #define HANDLER_BODY(NODE)      TREE_OPERAND (HANDLER_CHECK (NODE), 1)
2949 #define COMPOUND_BODY(NODE)     TREE_OPERAND (COMPOUND_STMT_CHECK (NODE), 0)
2950 #define ASM_CV_QUAL(NODE)       TREE_OPERAND (ASM_STMT_CHECK (NODE), 0)
2951 #define ASM_STRING(NODE)        TREE_OPERAND (ASM_STMT_CHECK (NODE), 1)
2952 #define ASM_OUTPUTS(NODE)       TREE_OPERAND (ASM_STMT_CHECK (NODE), 2)
2953 #define ASM_INPUTS(NODE)        TREE_OPERAND (ASM_STMT_CHECK (NODE), 3)
2954 #define ASM_CLOBBERS(NODE)      TREE_OPERAND (ASM_STMT_CHECK (NODE), 4)
2955 #define DECL_STMT_DECL(NODE)    TREE_OPERAND (DECL_STMT_CHECK (NODE), 0)
2956 #define STMT_EXPR_STMT(NODE)    TREE_OPERAND (STMT_EXPR_CHECK (NODE), 0)
2957 #define SUBOBJECT_CLEANUP(NODE) TREE_OPERAND (SUBOBJECT_CHECK (NODE), 0)
2958 #define CLEANUP_DECL(NODE)      TREE_OPERAND (CLEANUP_STMT_CHECK (NODE), 0)
2959 #define CLEANUP_EXPR(NODE)      TREE_OPERAND (CLEANUP_STMT_CHECK (NODE), 1)
2960 #define START_CATCH_TYPE(NODE)  TREE_TYPE (START_CATCH_STMT_CHECK (NODE))
2961 #define LABEL_STMT_LABEL(NODE)  TREE_OPERAND (LABEL_STMT_CHECK (NODE), 0)
2962
2963 /* Nonzero if this SCOPE_STMT is for the beginning of a scope.  */
2964 #define SCOPE_BEGIN_P(NODE) \
2965   (TREE_LANG_FLAG_0 (SCOPE_STMT_CHECK (NODE)))
2966
2967 /* Nonzero if this SCOPE_STMT is for the end of a scope.  */
2968 #define SCOPE_END_P(NODE) \
2969   (!SCOPE_BEGIN_P (SCOPE_STMT_CHECK (NODE)))
2970
2971 /* The BLOCK containing the declarations contained in this scope.  */
2972 #define SCOPE_STMT_BLOCK(NODE) \
2973   (TREE_OPERAND (SCOPE_STMT_CHECK (NODE), 0))
2974
2975 /* Nonzero if this CTOR_STMT is for the beginning of a constructor.  */
2976 #define CTOR_BEGIN_P(NODE) \
2977   (TREE_LANG_FLAG_0 (CTOR_STMT_CHECK (NODE)))
2978
2979 /* Nonzero if this CTOR_STMT is for the end of a constructor.  */
2980 #define CTOR_END_P(NODE) \
2981   (!CTOR_BEGIN_P (NODE))
2982
2983 /* Nonzero for a SCOPE_STMT if there were no variables in this scope.  */
2984 #define SCOPE_NULLIFIED_P(NODE) \
2985   (SCOPE_STMT_BLOCK ((NODE)) == NULL_TREE)
2986
2987 /* Nonzero for a SCOPE_STMT which represents a lexical scope, but
2988    which should be treated as non-existant from the point of view of
2989    running cleanup actions.  */
2990 #define SCOPE_NO_CLEANUPS_P(NODE) \
2991   (TREE_LANG_FLAG_3 (SCOPE_STMT_CHECK (NODE)))
2992
2993 /* Nonzero for a SCOPE_STMT if this statement is for a partial scope.
2994    For example, in:
2995
2996      S s;
2997      l:
2998      S s2;
2999      goto l;
3000
3001    there is (implicitly) a new scope after `l', even though there are
3002    no curly braces.  In particular, when we hit the goto, we must
3003    destroy s2 and then re-construct it.  For the implicit scope,
3004    SCOPE_PARTIAL_P will be set.  */
3005 #define SCOPE_PARTIAL_P(NODE) \
3006   (TREE_LANG_FLAG_4 (SCOPE_STMT_CHECK (NODE)))
3007
3008 /* Nonzero for an ASM_STMT if the assembly statement is volatile.  */
3009 #define ASM_VOLATILE_P(NODE)                    \
3010   (ASM_CV_QUAL (ASM_STMT_CHECK (NODE)) != NULL_TREE)
3011
3012 /* The line-number at which a statement began.  But if
3013    STMT_LINENO_FOR_FN_P does holds, then this macro gives the
3014    line number for the end of the current function instead.  */
3015 #define STMT_LINENO(NODE)                       \
3016   (TREE_COMPLEXITY ((NODE)))
3017
3018 /* If non-zero, the STMT_LINENO for NODE is the line at which the
3019    function ended.  */
3020 #define STMT_LINENO_FOR_FN_P(NODE)              \
3021   (TREE_LANG_FLAG_2 ((NODE)))
3022
3023 /* The parameters for a call-declarator.  */
3024 #define CALL_DECLARATOR_PARMS(NODE) \
3025   (TREE_PURPOSE (TREE_OPERAND ((NODE), 1)))
3026
3027 /* The cv-qualifiers for a call-declarator.  */
3028 #define CALL_DECLARATOR_QUALS(NODE) \
3029   (TREE_VALUE (TREE_OPERAND ((NODE), 1)))
3030
3031 /* The exception-specification for a call-declarator.  */
3032 #define CALL_DECLARATOR_EXCEPTION_SPEC(NODE) \
3033   (TREE_TYPE ((NODE)))
3034
3035 /* An enumeration of the kind of tags that C++ accepts.  */
3036 enum tag_types { record_type, class_type, union_type, enum_type };
3037
3038 /* The various kinds of lvalues we distinguish.  */
3039 typedef enum cp_lvalue_kind {
3040   clk_none = 0,     /* Things that are not an lvalue.  */
3041   clk_ordinary = 1, /* An ordinary lvalue.  */
3042   clk_class = 2,    /* An rvalue of class-type.  */
3043   clk_bitfield = 4, /* An lvalue for a bit-field.  */
3044 } cp_lvalue_kind;
3045
3046 /* The kinds of scopes we recognize.  */
3047 typedef enum scope_kind {
3048   sk_template_parms, /* A scope for template parameters.  */
3049   sk_template_spec   /* A scope corresponding to a template
3050                         specialization.  There is never anything in
3051                         this scope.  */
3052 } scope_kind;
3053
3054 /* Various kinds of template specialization, instantiation, etc.  */
3055 typedef enum tmpl_spec_kind {
3056   tsk_none,                /* Not a template at all.  */
3057   tsk_invalid_member_spec, /* An explicit member template
3058                               specialization, but the enclosing
3059                               classes have not all been explicitly
3060                               specialized.  */
3061   tsk_invalid_expl_inst,   /* An explicit instantiation containing
3062                               template parameter lists.  */
3063   tsk_excessive_parms,     /* A template declaration with too many
3064                               template parameter lists.  */
3065   tsk_insufficient_parms,  /* A template declaration with too few
3066                               parameter lists.  */
3067   tsk_template,            /* A template declaration.  */
3068   tsk_expl_spec,           /* An explicit specialization.  */
3069   tsk_expl_inst            /* An explicit instantiation.  */
3070 } tmpl_spec_kind;
3071
3072 /* Zero means prototype weakly, as in ANSI C (no args means nothing).
3073    Each language context defines how this variable should be set.  */
3074 extern int strict_prototype;
3075 extern int strict_prototypes_lang_c, strict_prototypes_lang_cplusplus;
3076
3077 /* Non-zero means that if a label exists, and no other identifier
3078    applies, use the value of the label.  */
3079 extern int flag_labels_ok;
3080
3081 /* Nonzero means allow Microsoft extensions without a pedwarn.  */
3082 extern int flag_ms_extensions;
3083
3084 /* Non-zero means to collect statistics which might be expensive
3085    and to print them when we are done.  */
3086 extern int flag_detailed_statistics;
3087
3088 /* Non-zero means warn in function declared in derived class has the
3089    same name as a virtual in the base class, but fails to match the
3090    type signature of any virtual function in the base class.  */
3091 extern int warn_overloaded_virtual;
3092
3093 /* Nonzero means warn about use of multicharacter literals.  */
3094 extern int warn_multichar;
3095
3096 /* Non-zero means warn if a non-templatized friend function is
3097    declared in a templatized class. This behavior is warned about with
3098    flag_guiding_decls in do_friend. */
3099 extern int warn_nontemplate_friend;
3100
3101 /* in c-common.c */
3102 extern void declare_function_name               PARAMS ((void));
3103 extern void decl_attributes                     PARAMS ((tree, tree, tree));
3104 extern void init_function_format_info           PARAMS ((void));
3105 extern void record_function_format              PARAMS ((tree, tree, int, int, int));
3106 extern void check_function_format               PARAMS ((tree, tree, tree));
3107 /* Print an error message for invalid operands to arith operation CODE.
3108    NOP_EXPR is used as a special case (see truthvalue_conversion).  */
3109 extern void binary_op_error                     PARAMS ((enum tree_code));
3110 extern tree canonical_type_variant              PARAMS ((tree));
3111 extern void c_expand_expr_stmt                  PARAMS ((tree));
3112 /* Validate the expression after `case' and apply default promotions.  */
3113 extern tree check_case_value                    PARAMS ((tree));
3114 /* Concatenate a list of STRING_CST nodes into one STRING_CST.  */
3115 extern tree combine_strings                     PARAMS ((tree));
3116 extern void constant_expression_warning         PARAMS ((tree));
3117 extern tree convert_and_check                   PARAMS ((tree, tree));
3118 extern void overflow_warning                    PARAMS ((tree));
3119 extern void unsigned_conversion_warning         PARAMS ((tree, tree));
3120 extern void c_apply_type_quals_to_decl          PARAMS ((int, tree));
3121 extern unsigned int min_precision               PARAMS ((tree, int));
3122
3123 /* Read the rest of the current #-directive line.  */
3124 #if USE_CPPLIB
3125 extern char *get_directive_line                 PARAMS ((void));
3126 #define GET_DIRECTIVE_LINE() get_directive_line ()
3127 #else
3128 extern char *get_directive_line                 PARAMS ((FILE *));
3129 #define GET_DIRECTIVE_LINE() get_directive_line (finput)
3130 #endif
3131 /* Subroutine of build_binary_op, used for comparison operations.
3132    See if the operands have both been converted from subword integer types
3133    and, if so, perhaps change them both back to their original type.  */
3134 extern tree shorten_compare                     PARAMS ((tree *, tree *, tree *, enum tree_code *));
3135 /* Prepare expr to be an argument of a TRUTH_NOT_EXPR,
3136    or validate its data type for an `if' or `while' statement or ?..: exp.  */
3137 extern tree truthvalue_conversion               PARAMS ((tree));
3138 extern tree type_for_mode                       PARAMS ((enum machine_mode, int));
3139 extern tree type_for_size                       PARAMS ((unsigned, int));
3140 extern int c_get_alias_set                      PARAMS ((tree));
3141
3142 /* in decl{2}.c */
3143 /* A node that is a list (length 1) of error_mark_nodes.  */
3144 extern tree error_mark_list;
3145
3146 /* A list of virtual function tables we must make sure to write out.  */
3147 extern tree pending_vtables;
3148
3149 /* Node for "pointer to (virtual) function".
3150    This may be distinct from ptr_type_node so gdb can distinguish them.  */
3151 #define vfunc_ptr_type_node \
3152   (flag_vtable_thunks ? vtable_entry_type : ptr_type_node)
3153
3154
3155 /* For building calls to `delete'.  */
3156 extern tree integer_two_node, integer_three_node;
3157
3158 extern tree anonymous_namespace_name;
3159
3160 /* in pt.c  */
3161
3162 /* These values are used for the `STRICT' parameter to type_unfication and
3163    fn_type_unification.  Their meanings are described with the
3164    documentation for fn_type_unification.  */
3165
3166 typedef enum unification_kind_t {
3167   DEDUCE_CALL,
3168   DEDUCE_CONV,
3169   DEDUCE_EXACT
3170 } unification_kind_t;
3171
3172 /* The template currently being instantiated, and where the instantiation
3173    was triggered.  */
3174 struct tinst_level
3175 {
3176   tree decl;
3177   int line;
3178   char *file;
3179   struct tinst_level *next;
3180 };
3181
3182 extern void maybe_print_template_context        PARAMS ((void));
3183
3184 /* in class.c */
3185
3186 extern int current_class_depth;
3187
3188 /* Points to the name of that function. May not be the DECL_NAME
3189    of CURRENT_FUNCTION_DECL due to overloading */
3190 extern tree original_function_name;
3191
3192 /* in init.c  */
3193 extern tree global_base_init_list;
3194
3195 \f
3196 /* Here's where we control how name mangling takes place.  */
3197
3198 #define OPERATOR_ASSIGN_FORMAT "__a%s"
3199 #define OPERATOR_FORMAT "__%s"
3200 #define OPERATOR_TYPENAME_FORMAT "__op"
3201
3202 /* Cannot use '$' up front, because this confuses gdb
3203    (names beginning with '$' are gdb-local identifiers).
3204
3205    Note that all forms in which the '$' is significant are long enough
3206    for direct indexing (meaning that if we know there is a '$'
3207    at a particular location, we can index into the string at
3208    any other location that provides distinguishing characters).  */
3209
3210 /* Define NO_DOLLAR_IN_LABEL in your favorite tm file if your assembler
3211    doesn't allow '$' in symbol names.  */
3212 #ifndef NO_DOLLAR_IN_LABEL
3213
3214 #define JOINER '$'
3215
3216 #define VPTR_NAME "$v"
3217 #define THROW_NAME "$eh_throw"
3218 #define DESTRUCTOR_DECL_PREFIX "_$_"
3219 #define AUTO_VTABLE_NAME "__vtbl$me__"
3220 #define AUTO_TEMP_NAME "_$tmp_"
3221 #define AUTO_TEMP_FORMAT "_$tmp_%d"
3222 #define VTABLE_BASE "$vb"
3223 #define VTABLE_NAME_PREFIX (flag_vtable_thunks ? "__vt_" : "_vt$")
3224 #define VFIELD_BASE "$vf"
3225 #define VFIELD_NAME "_vptr$"
3226 #define VFIELD_NAME_FORMAT "_vptr$%s"
3227 #define VBASE_NAME "_vb$"
3228 #define VBASE_NAME_FORMAT "_vb$%s"
3229 #define STATIC_NAME_FORMAT "_%s$%s"
3230 #define ANON_AGGRNAME_FORMAT "$_%d"
3231
3232 #else /* NO_DOLLAR_IN_LABEL */
3233
3234 #ifndef NO_DOT_IN_LABEL
3235
3236 #define JOINER '.'
3237
3238 #define VPTR_NAME ".v"
3239 #define THROW_NAME ".eh_throw"
3240 #define DESTRUCTOR_DECL_PREFIX "_._"
3241 #define AUTO_VTABLE_NAME "__vtbl.me__"
3242 #define AUTO_TEMP_NAME "_.tmp_"
3243 #define AUTO_TEMP_FORMAT "_.tmp_%d"
3244 #define VTABLE_BASE ".vb"
3245 #define VTABLE_NAME_PREFIX (flag_vtable_thunks ? "__vt_" : "_vt.")
3246 #define VFIELD_BASE ".vf"
3247 #define VFIELD_NAME "_vptr."
3248 #define VFIELD_NAME_FORMAT "_vptr.%s"
3249 #define VBASE_NAME "_vb."
3250 #define VBASE_NAME_FORMAT "_vb.%s"
3251 #define STATIC_NAME_FORMAT "_%s.%s"
3252
3253 #define ANON_AGGRNAME_FORMAT "._%d"
3254
3255 #else /* NO_DOT_IN_LABEL */
3256
3257 #define VPTR_NAME "__vptr"
3258 #define VPTR_NAME_P(ID_NODE) \
3259   (!strncmp (IDENTIFIER_POINTER (ID_NODE), VPTR_NAME, sizeof (VPTR_NAME) - 1))
3260 #define THROW_NAME "__eh_throw"
3261 #define DESTRUCTOR_DECL_PREFIX "__destr_"
3262 #define DESTRUCTOR_NAME_P(ID_NODE) \
3263   (!strncmp (IDENTIFIER_POINTER (ID_NODE), DESTRUCTOR_DECL_PREFIX, \
3264              sizeof (DESTRUCTOR_DECL_PREFIX) - 1))
3265 #define IN_CHARGE_NAME "__in_chrg"
3266 #define AUTO_VTABLE_NAME "__vtbl_me__"
3267 #define AUTO_TEMP_NAME "__tmp_"
3268 #define TEMP_NAME_P(ID_NODE) \
3269   (!strncmp (IDENTIFIER_POINTER (ID_NODE), AUTO_TEMP_NAME, \
3270              sizeof (AUTO_TEMP_NAME) - 1))
3271 #define AUTO_TEMP_FORMAT "__tmp_%d"
3272 #define VTABLE_BASE "__vtb"
3273 #define VTABLE_NAME "__vt_"
3274 #define VTABLE_NAME_PREFIX (flag_vtable_thunks ? "__vt_" : "_vt_")
3275 #define VTABLE_NAME_P(ID_NODE) \
3276   (!strncmp (IDENTIFIER_POINTER (ID_NODE), VTABLE_NAME, \
3277              sizeof (VTABLE_NAME) - 1))
3278 #define VFIELD_BASE "__vfb"
3279 #define VFIELD_NAME "__vptr_"
3280 #define VFIELD_NAME_P(ID_NODE) \
3281   (!strncmp (IDENTIFIER_POINTER (ID_NODE), VFIELD_NAME, \
3282             sizeof (VFIELD_NAME) - 1))
3283 #define VFIELD_NAME_FORMAT "_vptr_%s"
3284 #define VBASE_NAME "__vb_"
3285 #define VBASE_NAME_P(ID_NODE) \
3286   (!strncmp (IDENTIFIER_POINTER (ID_NODE), VBASE_NAME, \
3287              sizeof (VBASE_NAME) - 1))
3288 #define VBASE_NAME_FORMAT "__vb_%s"
3289 #define STATIC_NAME_FORMAT "__static_%s_%s"
3290
3291 #define ANON_AGGRNAME_PREFIX "__anon_"
3292 #define ANON_AGGRNAME_P(ID_NODE) \
3293   (!strncmp (IDENTIFIER_POINTER (ID_NODE), ANON_AGGRNAME_PREFIX, \
3294              sizeof (ANON_AGGRNAME_PREFIX) - 1))
3295 #define ANON_AGGRNAME_FORMAT "__anon_%d"
3296 #define ANON_PARMNAME_FORMAT "__%d"
3297 #define ANON_PARMNAME_P(ID_NODE) (IDENTIFIER_POINTER (ID_NODE)[0] == '_' \
3298                                   && IDENTIFIER_POINTER (ID_NODE)[1] == '_' \
3299                                   && IDENTIFIER_POINTER (ID_NODE)[2] <= '9')
3300
3301 #endif  /* NO_DOT_IN_LABEL */
3302 #endif  /* NO_DOLLAR_IN_LABEL */
3303
3304 #define THIS_NAME "this"
3305 #define DESTRUCTOR_NAME_FORMAT "~%s"
3306 #define FILE_FUNCTION_PREFIX_LEN 9
3307 #define CTOR_NAME "__ct"
3308 #define DTOR_NAME "__dt"
3309
3310 #define IN_CHARGE_NAME "__in_chrg"
3311
3312 #define VTBL_PTR_TYPE           "__vtbl_ptr_type"
3313 #define VTABLE_DELTA_NAME       "__delta"
3314 #define VTABLE_INDEX_NAME       "__index"
3315 #define VTABLE_PFN_NAME         "__pfn"
3316 #define VTABLE_DELTA2_NAME      "__delta2"
3317
3318 #define EXCEPTION_CLEANUP_NAME  "exception cleanup"
3319
3320 #define THIS_NAME_P(ID_NODE) (strcmp(IDENTIFIER_POINTER (ID_NODE), "this") == 0)
3321
3322 #if !defined(NO_DOLLAR_IN_LABEL) || !defined(NO_DOT_IN_LABEL)
3323
3324 #define VPTR_NAME_P(ID_NODE) (IDENTIFIER_POINTER (ID_NODE)[0] == JOINER \
3325                               && IDENTIFIER_POINTER (ID_NODE)[1] == 'v')
3326 #define DESTRUCTOR_NAME_P(ID_NODE) (IDENTIFIER_POINTER (ID_NODE)[1] == JOINER \
3327                                     && IDENTIFIER_POINTER (ID_NODE)[2] == '_')
3328
3329 #define VTABLE_NAME_P(ID_NODE) (IDENTIFIER_POINTER (ID_NODE)[1] == 'v' \
3330   && IDENTIFIER_POINTER (ID_NODE)[2] == 't' \
3331   && IDENTIFIER_POINTER (ID_NODE)[3] == JOINER)
3332
3333 #define VBASE_NAME_P(ID_NODE) (IDENTIFIER_POINTER (ID_NODE)[1] == 'v' \
3334   && IDENTIFIER_POINTER (ID_NODE)[2] == 'b' \
3335   && IDENTIFIER_POINTER (ID_NODE)[3] == JOINER)
3336
3337 #define TEMP_NAME_P(ID_NODE) (!strncmp (IDENTIFIER_POINTER (ID_NODE), AUTO_TEMP_NAME, sizeof (AUTO_TEMP_NAME)-1))
3338 #define VFIELD_NAME_P(ID_NODE) (!strncmp (IDENTIFIER_POINTER (ID_NODE), VFIELD_NAME, sizeof(VFIELD_NAME)-1))
3339
3340 /* For anonymous aggregate types, we need some sort of name to
3341    hold on to.  In practice, this should not appear, but it should
3342    not be harmful if it does.  */
3343 #define ANON_AGGRNAME_P(ID_NODE) (IDENTIFIER_POINTER (ID_NODE)[0] == JOINER \
3344                                   && IDENTIFIER_POINTER (ID_NODE)[1] == '_')
3345 #define ANON_PARMNAME_FORMAT "_%d"
3346 #define ANON_PARMNAME_P(ID_NODE) (IDENTIFIER_POINTER (ID_NODE)[0] == '_' \
3347                                   && IDENTIFIER_POINTER (ID_NODE)[1] <= '9')
3348 #endif /* !defined(NO_DOLLAR_IN_LABEL) || !defined(NO_DOT_IN_LABEL) */
3349
3350 /* Store the vbase pointer field name for type TYPE into pointer BUF.  */
3351 #define FORMAT_VBASE_NAME(BUF,TYPE) do {                                \
3352   char *wbuf = (char *) alloca (TYPE_ASSEMBLER_NAME_LENGTH (TYPE)       \
3353                          + sizeof (VBASE_NAME) + 1);                    \
3354   sprintf (wbuf, VBASE_NAME_FORMAT, TYPE_ASSEMBLER_NAME_STRING (TYPE)); \
3355   (BUF) = wbuf;                                                         \
3356 } while (0)
3357
3358 /* Returns non-zero iff ID_NODE is an IDENTIFIER_NODE whose name is
3359    `main'.  */
3360 #define MAIN_NAME_P(ID_NODE) \
3361    (strcmp (IDENTIFIER_POINTER (ID_NODE), "main") == 0)
3362
3363 /* Returns non-zero iff NODE is a declaration for the global function
3364    `main'.  */
3365 #define DECL_MAIN_P(NODE)                               \
3366    (TREE_CODE (NODE) == FUNCTION_DECL                   \
3367     && DECL_LANGUAGE (NODE) == lang_c                   \
3368     && DECL_NAME (NODE) != NULL_TREE                    \
3369     && MAIN_NAME_P (DECL_NAME (NODE)))
3370
3371 \f
3372 /* Things for handling inline functions.  */
3373
3374 struct pending_inline
3375 {
3376   struct pending_inline *next;  /* pointer to next in chain */
3377   int lineno;                   /* line number we got the text from */
3378   char *filename;               /* name of file we were processing */
3379   tree fndecl;                  /* FUNCTION_DECL that brought us here */
3380   int token;                    /* token we were scanning */
3381   int token_value;              /* value of token we were scanning (YYSTYPE) */
3382
3383   char *buf;                    /* pointer to character stream */
3384   int len;                      /* length of stream */
3385   unsigned int can_free : 1;    /* free this after we're done with it? */
3386   unsigned int deja_vu : 1;     /* set iff we don't want to see it again.  */
3387   unsigned int interface : 2;   /* 0=interface 1=unknown 2=implementation */
3388 };
3389
3390 /* in method.c */
3391 extern struct pending_inline *pending_inlines;
3392
3393 /* Negative values means we know `this' to be of static type.  */
3394
3395 extern int flag_this_is_variable;
3396
3397 /* Nonzero means do emit exported implementations of functions even if
3398    they can be inlined.  */
3399
3400 extern int flag_implement_inlines;
3401
3402 /* Nonzero means templates obey #pragma interface and implementation.  */
3403
3404 extern int flag_external_templates;
3405
3406 /* Nonzero means templates are emitted where they are instantiated.  */
3407
3408 extern int flag_alt_external_templates;
3409
3410 /* Nonzero means implicit template instantiations are emitted.  */
3411
3412 extern int flag_implicit_templates;
3413
3414 /* Nonzero if we want to emit defined symbols with common-like linkage as
3415    weak symbols where possible, in order to conform to C++ semantics.
3416    Otherwise, emit them as local symbols.  */
3417
3418 extern int flag_weak;
3419
3420 /* Nonzero if we should expand functions calls inline at the tree
3421    level, rather than at the RTL level.  */
3422
3423 extern int flag_inline_trees;
3424
3425 /* Nonzero if we're done parsing and into end-of-file activities.  */
3426
3427 extern int at_eof;
3428
3429 enum overload_flags { NO_SPECIAL = 0, DTOR_FLAG, OP_FLAG, TYPENAME_FLAG };
3430
3431 /* Some macros for char-based bitfields.  */
3432 #define B_SET(a,x) (a[x>>3] |= (1 << (x&7)))
3433 #define B_CLR(a,x) (a[x>>3] &= ~(1 << (x&7)))
3434 #define B_TST(a,x) (a[x>>3] & (1 << (x&7)))
3435
3436 /* These are uses as bits in flags passed to build_method_call
3437    to control its error reporting behavior.
3438
3439    LOOKUP_PROTECT means flag access violations.
3440    LOOKUP_COMPLAIN mean complain if no suitable member function
3441      matching the arguments is found.
3442    LOOKUP_NORMAL is just a combination of these two.
3443    LOOKUP_NONVIRTUAL means make a direct call to the member function found
3444    LOOKUP_GLOBAL means search through the space of overloaded functions,
3445      as well as the space of member functions.
3446    LOOKUP_HAS_IN_CHARGE means that the "in charge" variable is already
3447      in the parameter list.
3448    LOOKUP_ONLYCONVERTING means that non-conversion constructors are not tried.
3449    DIRECT_BIND means that if a temporary is created, it should be created so
3450      that it lives as long as the current variable bindings; otherwise it
3451      only lives until the end of the complete-expression.
3452    LOOKUP_SPECULATIVELY means return NULL_TREE if we cannot find what we are
3453      after.  Note, LOOKUP_COMPLAIN is checked and error messages printed
3454      before LOOKUP_SPECULATIVELY is checked.
3455    LOOKUP_NO_CONVERSION means that user-defined conversions are not
3456      permitted.  Built-in conversions are permitted.
3457    LOOKUP_DESTRUCTOR means explicit call to destructor.
3458    LOOKUP_NO_TEMP_BIND means temporaries will not be bound to references.
3459
3460    These are used in global lookup to support elaborated types and
3461    qualifiers.
3462
3463    LOOKUP_PREFER_TYPES means not to accept objects, and possibly namespaces.
3464    LOOKUP_PREFER_NAMESPACES means not to accept objects, and possibly types.
3465    LOOKUP_PREFER_BOTH means class-or-namespace-name.
3466    LOOKUP_TEMPLATES_EXPECTED means that class templates also count
3467      as types.  */
3468
3469 #define LOOKUP_PROTECT (1)
3470 #define LOOKUP_COMPLAIN (2)
3471 #define LOOKUP_NORMAL (3)
3472 /* #define LOOKUP_UNUSED (4) */
3473 #define LOOKUP_NONVIRTUAL (8)
3474 #define LOOKUP_GLOBAL (16)
3475 #define LOOKUP_HAS_IN_CHARGE (32)
3476 #define LOOKUP_SPECULATIVELY (64)
3477 #define LOOKUP_ONLYCONVERTING (128)
3478 #define DIRECT_BIND (256)
3479 #define LOOKUP_NO_CONVERSION (512)
3480 #define LOOKUP_DESTRUCTOR (512)
3481 #define LOOKUP_NO_TEMP_BIND (1024)
3482 #define LOOKUP_PREFER_TYPES (2048)
3483 #define LOOKUP_PREFER_NAMESPACES (4096)
3484 #define LOOKUP_PREFER_BOTH (6144)
3485 #define LOOKUP_TEMPLATES_EXPECTED (8192)
3486
3487 #define LOOKUP_NAMESPACES_ONLY(f)  \
3488   (((f) & LOOKUP_PREFER_NAMESPACES) && !((f) & LOOKUP_PREFER_TYPES))
3489 #define LOOKUP_TYPES_ONLY(f)  \
3490   (!((f) & LOOKUP_PREFER_NAMESPACES) && ((f) & LOOKUP_PREFER_TYPES))
3491 #define LOOKUP_QUALIFIERS_ONLY(f)     ((f) & LOOKUP_PREFER_BOTH)
3492
3493
3494 /* These flags are used by the conversion code.
3495    CONV_IMPLICIT   :  Perform implicit conversions (standard and user-defined).
3496    CONV_STATIC     :  Perform the explicit conversions for static_cast.
3497    CONV_CONST      :  Perform the explicit conversions for const_cast.
3498    CONV_REINTERPRET:  Perform the explicit conversions for reinterpret_cast.
3499    CONV_PRIVATE    :  Perform upcasts to private bases.
3500    CONV_FORCE_TEMP :  Require a new temporary when converting to the same
3501                       aggregate type.  */
3502
3503 #define CONV_IMPLICIT    1
3504 #define CONV_STATIC      2
3505 #define CONV_CONST       4
3506 #define CONV_REINTERPRET 8
3507 #define CONV_PRIVATE     16
3508 /* #define CONV_NONCONVERTING 32 */
3509 #define CONV_FORCE_TEMP  64
3510 #define CONV_STATIC_CAST (CONV_IMPLICIT | CONV_STATIC | CONV_FORCE_TEMP)
3511 #define CONV_OLD_CONVERT (CONV_IMPLICIT | CONV_STATIC | CONV_CONST \
3512                           | CONV_REINTERPRET)
3513 #define CONV_C_CAST      (CONV_IMPLICIT | CONV_STATIC | CONV_CONST \
3514                           | CONV_REINTERPRET | CONV_PRIVATE | CONV_FORCE_TEMP)
3515
3516 /* Used by build_expr_type_conversion to indicate which types are
3517    acceptable as arguments to the expression under consideration.  */
3518
3519 #define WANT_INT        1 /* integer types, including bool */
3520 #define WANT_FLOAT      2 /* floating point types */
3521 #define WANT_ENUM       4 /* enumerated types */
3522 #define WANT_POINTER    8 /* pointer types */
3523 #define WANT_NULL      16 /* null pointer constant */
3524 #define WANT_ARITH      (WANT_INT | WANT_FLOAT)
3525
3526 /* Used with comptypes, and related functions, to guide type
3527    comparison.  */
3528
3529 #define COMPARE_STRICT        0 /* Just check if the types are the
3530                                    same.  */
3531 #define COMPARE_BASE          1 /* Check to see if the second type is
3532                                    derived from the first, or if both
3533                                    are pointers (or references) and
3534                                    the types pointed to by the second
3535                                    type is derived from the pointed to
3536                                    by the first.  */
3537 #define COMPARE_RELAXED       2 /* Like COMPARE_DERIVED, but in
3538                                    reverse.  Also treat enmeration
3539                                    types as the same as integer types
3540                                    of the same width.  */
3541 #define COMPARE_REDECLARATION 4 /* The comparsion is being done when
3542                                    another declaration of an existing
3543                                    entity is seen.  */
3544 #define COMPARE_NO_ATTRIBUTES 8 /* The comparison should ignore
3545                                    extra-linguistic type attributes.  */
3546
3547 /* Used with push_overloaded_decl.  */
3548 #define PUSH_GLOBAL          0  /* Push the DECL into namespace scope,
3549                                    regardless of the current scope.  */
3550 #define PUSH_LOCAL           1  /* Push the DECL into the current
3551                                    scope.  */
3552 #define PUSH_USING           2  /* We are pushing this DECL as the
3553                                    result of a using declaration.  */
3554
3555 /* Used with start function.  */
3556 #define SF_DEFAULT           0  /* No flags.  */
3557 #define SF_PRE_PARSED        1  /* The function declaration has
3558                                    already been parsed.  */
3559 #define SF_INCLASS_INLINE    2  /* The function is an inline, defined
3560                                    in the class body.  */
3561 #define SF_EXPAND            4  /* Generate RTL for this function.  */
3562
3563 /* Returns nonzero iff TYPE1 and TYPE2 are the same type, in the usual
3564    sense of `same'.  */
3565 #define same_type_p(type1, type2) \
3566   comptypes ((type1), (type2), COMPARE_STRICT)
3567
3568 /* Returns nonzero iff TYPE1 and TYPE2 are the same type, or if TYPE2
3569    is derived from TYPE1, or if TYPE2 is a pointer (reference) to a
3570    class derived from the type pointed to (referred to) by TYPE1.  */
3571 #define same_or_base_type_p(type1, type2) \
3572   comptypes ((type1), (type2), COMPARE_BASE)
3573
3574 /* These macros are used to access a TEMPLATE_PARM_INDEX.  */
3575 #define TEMPLATE_PARM_INDEX_CAST(NODE) \
3576         ((template_parm_index*)TEMPLATE_PARM_INDEX_CHECK (NODE))
3577 #define TEMPLATE_PARM_IDX(NODE) (TEMPLATE_PARM_INDEX_CAST (NODE)->index)
3578 #define TEMPLATE_PARM_LEVEL(NODE) (TEMPLATE_PARM_INDEX_CAST (NODE)->level)
3579 #define TEMPLATE_PARM_DESCENDANTS(NODE) (TREE_CHAIN (NODE))
3580 #define TEMPLATE_PARM_ORIG_LEVEL(NODE) (TEMPLATE_PARM_INDEX_CAST (NODE)->orig_level)
3581 #define TEMPLATE_PARM_DECL(NODE) (TEMPLATE_PARM_INDEX_CAST (NODE)->decl)
3582
3583 /* These macros are for accessing the fields of TEMPLATE_TYPE_PARM
3584    and TEMPLATE_TEMPLATE_PARM nodes.  */
3585 #define TEMPLATE_TYPE_PARM_INDEX(NODE) (TYPE_FIELDS (NODE))
3586 #define TEMPLATE_TYPE_IDX(NODE) \
3587   (TEMPLATE_PARM_IDX (TEMPLATE_TYPE_PARM_INDEX (NODE)))
3588 #define TEMPLATE_TYPE_LEVEL(NODE) \
3589   (TEMPLATE_PARM_LEVEL (TEMPLATE_TYPE_PARM_INDEX (NODE)))
3590 #define TEMPLATE_TYPE_ORIG_LEVEL(NODE) \
3591   (TEMPLATE_PARM_ORIG_LEVEL (TEMPLATE_TYPE_PARM_INDEX (NODE)))
3592 #define TEMPLATE_TYPE_DECL(NODE) \
3593   (TEMPLATE_PARM_DECL (TEMPLATE_TYPE_PARM_INDEX (NODE)))
3594
3595 /* Control stringification of trees (types, decls & exprs).
3596    Bit or them together.  */
3597 enum tree_string_flags
3598 {
3599     TS_PLAIN,                    /* nothing special */
3600     TS_CHASE_TYPEDEFS = 1 <<  0, /* look through typedefs */
3601     TS_DECORATE       = 1 <<  1, /* decorate things */
3602     TS_FUNC_NORETURN  = 1 <<  2, /* inhibit function return type */
3603     TS_FUNC_THROW     = 1 <<  3, /* show throw spec */
3604     TS_PARM_DEFAULTS  = 1 <<  4, /* show parm defaults */
3605     TS_EXPR_PARENS    = 1 <<  5, /* enclose in parens */
3606     TS_AGGR_TAGS      = 1 <<  6, /* show struct tags */
3607     TS_DECL_TYPE      = 1 <<  7, /* show decl's type */
3608     TS_FUNC_SCOPE     = 1 <<  8, /* show function scope */
3609     TS_PEDANTIC_NAME  = 1 <<  9, /* pedantically name things */
3610     TS_TEMPLATE_PREFIX= 1 << 10, /* show template <parms> prefix */
3611
3612     /* Internal use flags */
3613     TS_TEMPLATE_PARM  = 1 << 11, /* decl is really a non-type template parm */
3614     TS_TEMPLATE_PLAIN = 1 << 12, /* don't decorate primary template_name */
3615
3616     TS_NEXT_BIT       = 13       /* next available bit */
3617 };
3618
3619 /* in lex.c  */
3620 /* Indexed by TREE_CODE, these tables give C-looking names to
3621    operators represented by TREE_CODES.  For example,
3622    opname_tab[(int) MINUS_EXPR] == "-".  */
3623 extern const char **opname_tab, **assignop_tab;
3624 \f
3625 /* in call.c */
3626 extern int check_dtor_name                      PARAMS ((tree, tree));
3627 extern int get_arglist_len_in_bytes             PARAMS ((tree));
3628
3629 extern tree build_vfield_ref                    PARAMS ((tree, tree));
3630 extern tree resolve_scope_to_name               PARAMS ((tree, tree));
3631 extern tree build_scoped_method_call            PARAMS ((tree, tree, tree, tree));
3632 extern tree build_addr_func                     PARAMS ((tree));
3633 extern tree build_call                          PARAMS ((tree, tree));
3634 extern tree build_method_call                   PARAMS ((tree, tree, tree, tree, int));
3635 extern int null_ptr_cst_p                       PARAMS ((tree));
3636 extern tree type_decays_to                      PARAMS ((tree));
3637 extern tree build_user_type_conversion          PARAMS ((tree, tree, int));
3638 extern tree build_new_function_call             PARAMS ((tree, tree));
3639 extern tree build_new_op                        PARAMS ((enum tree_code, int, tree, tree, tree));
3640 extern tree build_op_delete_call                PARAMS ((enum tree_code, tree, tree, int, tree));
3641 extern int can_convert                          PARAMS ((tree, tree));
3642 extern int can_convert_arg                      PARAMS ((tree, tree, tree));
3643 extern int enforce_access                       PARAMS ((tree, tree));
3644 extern tree convert_default_arg                 PARAMS ((tree, tree, tree, int));
3645 extern tree convert_arg_to_ellipsis             PARAMS ((tree));
3646 extern tree build_x_va_arg                      PARAMS ((tree, tree));
3647 extern tree convert_type_from_ellipsis          PARAMS ((tree));
3648 extern int is_properly_derived_from             PARAMS ((tree, tree));
3649 extern tree initialize_reference                PARAMS ((tree, tree));
3650 extern tree strip_top_quals                     PARAMS ((tree));
3651 extern tree perform_implicit_conversion         PARAMS ((tree, tree));
3652
3653 /* in class.c */
3654 extern tree build_vbase_path                    PARAMS ((enum tree_code, tree, tree, tree, int));
3655 extern tree build_vtbl_ref                      PARAMS ((tree, tree));
3656 extern tree build_vfn_ref                       PARAMS ((tree *, tree, tree));
3657 extern tree get_vtable_decl                     PARAMS ((tree, int));
3658 extern void add_method                          PARAMS ((tree, tree *, tree));
3659 extern int currently_open_class                 PARAMS ((tree));
3660 extern tree currently_open_derived_class        PARAMS ((tree));
3661 extern tree get_vfield_offset                   PARAMS ((tree));
3662 extern void duplicate_tag_error                 PARAMS ((tree));
3663 extern tree finish_struct                       PARAMS ((tree, tree));
3664 extern void finish_struct_1                     PARAMS ((tree));
3665 extern int resolves_to_fixed_type_p             PARAMS ((tree, int *));
3666 extern void init_class_processing               PARAMS ((void));
3667 extern int is_empty_class                       PARAMS ((tree));
3668 extern void pushclass                           PARAMS ((tree, int));
3669 extern void popclass                            PARAMS ((void));
3670 extern void push_nested_class                   PARAMS ((tree, int));
3671 extern void pop_nested_class                    PARAMS ((void));
3672 extern void push_lang_context                   PARAMS ((tree));
3673 extern void pop_lang_context                    PARAMS ((void));
3674 extern tree instantiate_type                    PARAMS ((tree, tree, int));
3675 extern void print_class_statistics              PARAMS ((void));
3676 extern tree skip_rtti_stuff                     PARAMS ((tree, tree,
3677                                                          HOST_WIDE_INT *));
3678 extern void build_self_reference                PARAMS ((void));
3679 extern void warn_hidden                         PARAMS ((tree));
3680 extern tree get_enclosing_class                 PARAMS ((tree));
3681 int is_base_of_enclosing_class                  PARAMS ((tree, tree));
3682 extern void unreverse_member_declarations       PARAMS ((tree));
3683 extern void invalidate_class_lookup_cache       PARAMS ((void));
3684 extern void maybe_note_name_used_in_class       PARAMS ((tree, tree));
3685 extern void note_name_declared_in_class         PARAMS ((tree, tree));
3686 extern tree num_extra_vtbl_entries              PARAMS ((tree));
3687 extern tree size_extra_vtbl_entries             PARAMS ((tree));
3688
3689 /* in cvt.c */
3690 extern tree convert_to_reference                PARAMS ((tree, tree, int, int, tree));
3691 extern tree convert_from_reference              PARAMS ((tree));
3692 extern tree convert_pointer_to_real             PARAMS ((tree, tree));
3693 extern tree convert_pointer_to                  PARAMS ((tree, tree));
3694 extern tree ocp_convert                         PARAMS ((tree, tree, int, int));
3695 extern tree cp_convert                          PARAMS ((tree, tree));
3696 extern tree convert_to_void                     PARAMS ((tree, const char */*implicit context*/));
3697 extern tree convert                             PARAMS ((tree, tree));
3698 extern tree convert_force                       PARAMS ((tree, tree, int));
3699 extern tree build_type_conversion               PARAMS ((tree, tree, int));
3700 extern tree build_expr_type_conversion          PARAMS ((int, tree, int));
3701 extern tree type_promotes_to                    PARAMS ((tree));
3702 extern tree perform_qualification_conversions   PARAMS ((tree, tree));
3703
3704 /* decl.c */
3705 /* resume_binding_level */
3706 extern void set_identifier_local_value          PARAMS ((tree, tree));
3707 extern int global_bindings_p                    PARAMS ((void));
3708 extern int toplevel_bindings_p                  PARAMS ((void));
3709 extern int namespace_bindings_p                 PARAMS ((void));
3710 extern void keep_next_level                     PARAMS ((int));
3711 extern int kept_level_p                         PARAMS ((void));
3712 extern int template_parm_scope_p                PARAMS ((void));
3713 extern void set_class_shadows                   PARAMS ((tree));
3714 extern void begin_scope                         PARAMS ((scope_kind));
3715 extern void finish_scope                        PARAMS ((void));
3716 extern void note_level_for_for                  PARAMS ((void));
3717 extern void resume_level                        PARAMS ((struct binding_level *));
3718 extern void delete_block                        PARAMS ((tree));
3719 extern void insert_block                        PARAMS ((tree));
3720 extern void add_block_current_level             PARAMS ((tree));
3721 extern void set_block                           PARAMS ((tree));
3722 extern void pushlevel_class                     PARAMS ((void));
3723 extern void poplevel_class                      PARAMS ((void));
3724 extern void print_binding_stack                 PARAMS ((void));
3725 extern void print_binding_level                 PARAMS ((struct binding_level *));
3726 extern void push_namespace                      PARAMS ((tree));
3727 extern void pop_namespace                       PARAMS ((void));
3728 extern void push_nested_namespace               PARAMS ((tree));
3729 extern void pop_nested_namespace                PARAMS ((tree));
3730 extern void maybe_push_to_top_level             PARAMS ((int));
3731 extern void push_to_top_level                   PARAMS ((void));
3732 extern void pop_from_top_level                  PARAMS ((void));
3733 extern tree identifier_type_value               PARAMS ((tree));
3734 extern void set_identifier_type_value           PARAMS ((tree, tree));
3735 extern void pop_everything                      PARAMS ((void));
3736 extern void pushtag                             PARAMS ((tree, tree, int));
3737 extern tree make_anon_name                      PARAMS ((void));
3738 extern void clear_anon_tags                     PARAMS ((void));
3739 extern int decls_match                          PARAMS ((tree, tree));
3740 extern int duplicate_decls                      PARAMS ((tree, tree));
3741 extern tree pushdecl                            PARAMS ((tree));
3742 extern tree pushdecl_top_level                  PARAMS ((tree));
3743 extern void pushdecl_class_level                PARAMS ((tree));
3744 #if 0
3745 extern void pushdecl_nonclass_level             PARAMS ((tree));
3746 #endif
3747 extern tree pushdecl_namespace_level            PARAMS ((tree));
3748 extern tree push_using_decl                     PARAMS ((tree, tree));
3749 extern tree push_using_directive                PARAMS ((tree));
3750 extern void push_class_level_binding            PARAMS ((tree, tree));
3751 extern tree implicitly_declare                  PARAMS ((tree));
3752 extern tree lookup_label                        PARAMS ((tree));
3753 extern tree declare_local_label                 PARAMS ((tree));
3754 extern tree define_label                        PARAMS ((char *, int, tree));
3755 extern void push_switch                         PARAMS ((void));
3756 extern void pop_switch                          PARAMS ((void));
3757 extern void define_case_label                   PARAMS ((void));
3758 extern tree getdecls                            PARAMS ((void));
3759 extern tree gettags                             PARAMS ((void));
3760 #if 0
3761 extern void set_current_level_tags_transparency PARAMS ((int));
3762 #endif
3763 extern tree binding_for_name                    PARAMS ((tree, tree));
3764 extern tree namespace_binding                   PARAMS ((tree, tree));
3765 extern void set_namespace_binding               PARAMS ((tree, tree, tree));
3766 extern tree lookup_namespace_name               PARAMS ((tree, tree));
3767 extern tree build_typename_type                 PARAMS ((tree, tree, tree, tree));
3768 extern tree make_typename_type                  PARAMS ((tree, tree, int));
3769 extern tree lookup_name_nonclass                PARAMS ((tree));
3770 extern tree lookup_function_nonclass            PARAMS ((tree, tree));
3771 extern tree lookup_name                         PARAMS ((tree, int));
3772 extern tree lookup_name_current_level           PARAMS ((tree));
3773 extern tree lookup_type_current_level           PARAMS ((tree));
3774 extern tree lookup_name_namespace_only          PARAMS ((tree));
3775 extern void begin_only_namespace_names          PARAMS ((void));
3776 extern void end_only_namespace_names            PARAMS ((void));
3777 extern tree namespace_ancestor                  PARAMS ((tree, tree));
3778 extern tree unqualified_namespace_lookup        PARAMS ((tree, int, tree *));
3779 extern int  lookup_using_namespace              PARAMS ((tree, tree, tree, tree, int, tree *));
3780 extern int  qualified_lookup_using_namespace    PARAMS ((tree, tree, tree, int));
3781 extern tree build_library_fn                    PARAMS ((tree, tree));
3782 extern tree build_cp_library_fn                 PARAMS ((tree, tree));
3783 extern tree build_library_fn_ptr                PARAMS ((const char *, tree));
3784 extern tree build_cp_library_fn_ptr             PARAMS ((const char *, tree));
3785 extern tree push_library_fn                     PARAMS ((tree, tree));
3786 extern tree push_cp_library_fn                  PARAMS ((tree, tree));
3787 extern tree push_void_library_fn                PARAMS ((tree, tree));
3788 extern tree push_throw_library_fn               PARAMS ((tree, tree));
3789 extern void init_decl_processing                PARAMS ((void));
3790 extern int init_type_desc                       PARAMS ((void));
3791 extern tree check_tag_decl                      PARAMS ((tree));
3792 extern void shadow_tag                          PARAMS ((tree));
3793 extern tree groktypename                        PARAMS ((tree));
3794 extern tree start_decl                          PARAMS ((tree, tree, int, tree, tree));
3795 extern void start_decl_1                        PARAMS ((tree));
3796 extern void cp_finish_decl                      PARAMS ((tree, tree, tree, int));
3797 extern void finish_decl                         PARAMS ((tree, tree, tree));
3798 extern void maybe_inject_for_scope_var          PARAMS ((tree));
3799 extern void initialize_local_var                PARAMS ((tree, tree, int));
3800 extern void expand_static_init                  PARAMS ((tree, tree));
3801 extern tree start_handler_parms                 PARAMS ((tree, tree));
3802 extern int complete_array_type                  PARAMS ((tree, tree, int));
3803 extern tree build_ptrmemfunc_type               PARAMS ((tree));
3804 /* the grokdeclarator prototype is in decl.h */
3805 extern int parmlist_is_exprlist                 PARAMS ((tree));
3806 extern int copy_args_p                          PARAMS ((tree));
3807 extern int grok_ctor_properties                 PARAMS ((tree, tree));
3808 extern void grok_op_properties                  PARAMS ((tree, int, int));
3809 extern tree xref_tag                            PARAMS ((tree, tree, int));
3810 extern tree xref_tag_from_type                  PARAMS ((tree, tree, int));
3811 extern void xref_basetypes                      PARAMS ((tree, tree, tree, tree));
3812 extern tree start_enum                          PARAMS ((tree));
3813 extern tree finish_enum                         PARAMS ((tree));
3814 extern void build_enumerator                    PARAMS ((tree, tree, tree));
3815 extern int start_function                       PARAMS ((tree, tree, tree, int));
3816 extern void expand_start_early_try_stmts        PARAMS ((void));
3817 extern void store_parm_decls                    PARAMS ((void));
3818 extern void store_return_init                   PARAMS ((tree));
3819 extern tree finish_function                     PARAMS ((int, int));
3820 extern tree start_method                        PARAMS ((tree, tree, tree));
3821 extern tree finish_method                       PARAMS ((tree));
3822 extern void hack_incomplete_structures          PARAMS ((tree));
3823 extern tree maybe_build_cleanup_and_delete      PARAMS ((tree));
3824 extern tree maybe_build_cleanup                 PARAMS ((tree));
3825 extern void cplus_expand_expr_stmt              PARAMS ((tree));
3826 extern void finish_stmt                         PARAMS ((void));
3827 extern int in_function_p                        PARAMS ((void));
3828 extern void replace_defarg                      PARAMS ((tree, tree));
3829 extern void print_other_binding_stack           PARAMS ((struct binding_level *));
3830 extern void revert_static_member_fn             PARAMS ((tree));
3831 extern void fixup_anonymous_aggr                PARAMS ((tree));
3832 extern int check_static_variable_definition     PARAMS ((tree, tree));
3833 extern tree compute_array_index_type            PARAMS ((tree, tree));
3834 extern void push_local_binding                  PARAMS ((tree, tree, int));
3835 extern int push_class_binding                   PARAMS ((tree, tree));
3836 extern tree check_default_argument              PARAMS ((tree, tree));
3837 extern tree push_overloaded_decl                PARAMS ((tree, int));
3838 extern void clear_identifier_class_values       PARAMS ((void));
3839 extern void storetags                           PARAMS ((tree));
3840 extern int vtable_decl_p                        PARAMS ((tree, void *));
3841 extern int vtype_decl_p                         PARAMS ((tree, void *));
3842 extern int sigtable_decl_p                      PARAMS ((tree, void *));
3843 typedef int (*walk_globals_pred)                PARAMS ((tree, void *));
3844 typedef int (*walk_globals_fn)                  PARAMS ((tree *, void *));
3845 extern int walk_globals                         PARAMS ((walk_globals_pred,
3846                                                        walk_globals_fn,
3847                                                        void *));
3848 typedef int (*walk_namespaces_fn)               PARAMS ((tree, void *));
3849 extern int walk_namespaces                      PARAMS ((walk_namespaces_fn,
3850                                                        void *));
3851 extern int wrapup_globals_for_namespace         PARAMS ((tree, void *));
3852 extern tree cp_namespace_decls                  PARAMS ((tree));
3853 extern tree create_implicit_typedef             PARAMS ((tree, tree));
3854 extern tree maybe_push_decl                     PARAMS ((tree));
3855 extern void emit_local_var                      PARAMS ((tree));
3856 extern tree build_target_expr_with_type         PARAMS ((tree, tree));
3857 extern void make_rtl_for_local_static           PARAMS ((tree));
3858 extern int local_variable_p                     PARAMS ((tree));
3859 extern int nonstatic_local_decl_p               PARAMS ((tree));
3860 extern tree declare_global_var                  PARAMS ((tree, tree));
3861 extern void register_dtor_fn                    PARAMS ((tree));
3862 extern tmpl_spec_kind current_tmpl_spec_kind    PARAMS ((int));
3863
3864 /* in decl2.c */
3865 extern void init_decl2                          PARAMS ((void));
3866 extern int check_java_method                    PARAMS ((tree));
3867 extern int lang_decode_option                   PARAMS ((int, char **));
3868 extern int grok_method_quals                    PARAMS ((tree, tree, tree));
3869 extern void warn_if_unknown_interface           PARAMS ((tree));
3870 extern void grok_x_components                   PARAMS ((tree));
3871 extern void maybe_retrofit_in_chrg              PARAMS ((tree));
3872 extern void maybe_make_one_only                 PARAMS ((tree));
3873 extern void grokclassfn                         PARAMS ((tree, tree, enum overload_flags, tree));
3874 extern tree grok_alignof                        PARAMS ((tree));
3875 extern tree grok_array_decl                     PARAMS ((tree, tree));
3876 extern tree delete_sanity                       PARAMS ((tree, tree, int, int));
3877 extern tree check_classfn                       PARAMS ((tree, tree));
3878 extern void check_member_template               PARAMS ((tree));
3879 extern tree grokfield                           PARAMS ((tree, tree, tree, tree, tree));
3880 extern tree grokbitfield                        PARAMS ((tree, tree, tree));
3881 extern tree groktypefield                       PARAMS ((tree, tree));
3882 extern tree grokoptypename                      PARAMS ((tree, tree));
3883 extern int copy_assignment_arg_p                PARAMS ((tree, int));
3884 extern void cplus_decl_attributes               PARAMS ((tree, tree, tree));
3885 extern tree constructor_name_full               PARAMS ((tree));
3886 extern tree constructor_name                    PARAMS ((tree));
3887 extern void setup_vtbl_ptr                      PARAMS ((void));
3888 extern void mark_inline_for_output              PARAMS ((tree));
3889 extern tree get_temp_name                       PARAMS ((tree, int));
3890 extern void finish_anon_union                   PARAMS ((tree));
3891 extern tree finish_table                        PARAMS ((tree, tree, tree, int));
3892 extern void finish_builtin_type                 PARAMS ((tree, const char *,
3893                                                        tree *, int, tree));
3894 extern tree coerce_new_type                     PARAMS ((tree));
3895 extern tree coerce_delete_type                  PARAMS ((tree));
3896 extern void comdat_linkage                      PARAMS ((tree));
3897 extern void import_export_vtable                PARAMS ((tree, tree, int));
3898 extern void import_export_decl                  PARAMS ((tree));
3899 extern tree build_cleanup                       PARAMS ((tree));
3900 extern void finish_file                         PARAMS ((void));
3901 extern tree reparse_absdcl_as_expr              PARAMS ((tree, tree));
3902 extern tree reparse_absdcl_as_casts             PARAMS ((tree, tree));
3903 extern tree build_expr_from_tree                PARAMS ((tree));
3904 extern tree reparse_decl_as_expr                PARAMS ((tree, tree));
3905 extern tree finish_decl_parsing                 PARAMS ((tree));
3906 extern tree check_cp_case_value                 PARAMS ((tree));
3907 extern void set_decl_namespace                  PARAMS ((tree, tree, int));
3908 extern tree current_decl_namespace              PARAMS ((void));
3909 extern void push_decl_namespace                 PARAMS ((tree));
3910 extern void pop_decl_namespace                  PARAMS ((void));
3911 extern void push_scope                          PARAMS ((tree));
3912 extern void pop_scope                           PARAMS ((tree));
3913 extern void do_namespace_alias                  PARAMS ((tree, tree));
3914 extern void do_toplevel_using_decl              PARAMS ((tree));
3915 extern void do_local_using_decl                 PARAMS ((tree));
3916 extern tree do_class_using_decl                 PARAMS ((tree));
3917 extern void do_using_directive                  PARAMS ((tree));
3918 extern void check_default_args                  PARAMS ((tree));
3919 extern void mark_used                           PARAMS ((tree));
3920 extern tree handle_class_head                   PARAMS ((tree, tree, tree));
3921 extern tree lookup_arg_dependent                PARAMS ((tree, tree, tree));
3922 extern void finish_static_data_member_decl      PARAMS ((tree, tree, tree, int));
3923
3924 /* in parse.y */
3925 extern void cp_parse_init                       PARAMS ((void));
3926
3927 /* in errfn.c */
3928 /* The cp_* functions aren't suitable for ATTRIBUTE_PRINTF. */
3929 extern void cp_error                            PARAMS ((const char *, ...));
3930 extern void cp_error_at                         PARAMS ((const char *, ...));
3931 extern void cp_warning                          PARAMS ((const char *, ...));
3932 extern void cp_warning_at                       PARAMS ((const char *, ...));
3933 extern void cp_pedwarn                          PARAMS ((const char *, ...));
3934 extern void cp_pedwarn_at                       PARAMS ((const char *, ...));
3935 extern void cp_compiler_error                   PARAMS ((const char *, ...));
3936 extern void cp_sprintf                          PARAMS ((const char *, ...));
3937 extern void cp_deprecated                       PARAMS ((const char*));
3938
3939 /* in error.c */
3940 extern void init_error                          PARAMS ((void));
3941 extern const char *type_as_string               PARAMS ((tree, enum tree_string_flags));
3942 extern const char *decl_as_string               PARAMS ((tree, enum tree_string_flags));
3943 extern const char *expr_as_string               PARAMS ((tree, enum tree_string_flags));
3944 extern const char *context_as_string            PARAMS ((tree, enum tree_string_flags));
3945 extern const char *lang_decl_name               PARAMS ((tree, int));
3946 extern const char *cp_file_of                   PARAMS ((tree));
3947 extern int cp_line_of                           PARAMS ((tree));
3948
3949 /* in except.c */
3950 extern void init_exception_processing           PARAMS ((void));
3951 extern tree expand_start_catch_block            PARAMS ((tree));
3952 extern void expand_end_catch_block              PARAMS ((tree));
3953 extern void expand_builtin_throw                PARAMS ((void));
3954 extern tree expand_start_eh_spec                PARAMS ((void));
3955 extern void expand_end_eh_spec                  PARAMS ((tree, tree));
3956 extern void expand_exception_blocks             PARAMS ((void));
3957 extern tree build_throw                         PARAMS ((tree));
3958 extern void mark_all_runtime_matches            PARAMS ((void));
3959 extern int nothrow_libfn_p                      PARAMS ((tree));
3960
3961 /* in expr.c */
3962 extern void init_cplus_expand                   PARAMS ((void));
3963 extern void fixup_result_decl                   PARAMS ((tree, struct rtx_def *));
3964 extern int extract_init                         PARAMS ((tree, tree));
3965 extern void do_case                             PARAMS ((tree, tree));
3966 extern tree cplus_expand_constant               PARAMS ((tree));
3967
3968 /* friend.c */
3969 extern int is_friend                            PARAMS ((tree, tree));
3970 extern void make_friend_class                   PARAMS ((tree, tree));
3971 extern void add_friend                          PARAMS ((tree, tree));
3972 extern tree do_friend                           PARAMS ((tree, tree, tree, tree, tree, enum overload_flags, tree, int));
3973
3974 /* in init.c */
3975 extern void init_init_processing                PARAMS ((void));
3976 extern tree emit_base_init                      PARAMS ((tree));
3977 extern void check_base_init                     PARAMS ((tree));
3978 extern void expand_member_init                  PARAMS ((tree, tree, tree));
3979 extern tree build_aggr_init                     PARAMS ((tree, tree, int));
3980 extern int is_aggr_typedef                      PARAMS ((tree, int));
3981 extern int is_aggr_type                         PARAMS ((tree, int));
3982 extern tree get_aggr_from_typedef               PARAMS ((tree, int));
3983 extern tree get_type_value                      PARAMS ((tree));
3984 extern tree build_member_call                   PARAMS ((tree, tree, tree));
3985 extern tree build_offset_ref                    PARAMS ((tree, tree));
3986 extern tree resolve_offset_ref                  PARAMS ((tree));
3987 extern tree decl_constant_value                 PARAMS ((tree));
3988 extern tree build_new                           PARAMS ((tree, tree, tree, int));
3989 extern tree build_vec_init                      PARAMS ((tree, tree, tree, tree, int));
3990 extern tree build_x_delete                      PARAMS ((tree, int, tree));
3991 extern tree build_delete                        PARAMS ((tree, tree, tree, int, int));
3992 extern tree build_vbase_delete                  PARAMS ((tree, tree));
3993 extern tree build_vec_delete                    PARAMS ((tree, tree, tree, int));
3994 extern tree create_temporary_var                PARAMS ((tree));
3995 extern void begin_init_stmts                    PARAMS ((tree *, tree *));
3996 extern tree finish_init_stmts                   PARAMS ((tree, tree));
3997 extern void initialize_vtbl_ptrs                PARAMS ((tree, tree));
3998 extern tree build_java_class_ref                PARAMS ((tree));
3999
4000 /* in input.c */
4001
4002 /* in lex.c */
4003 extern char *file_name_nondirectory             PARAMS ((const char *));
4004 extern tree make_pointer_declarator             PARAMS ((tree, tree));
4005 extern tree make_reference_declarator           PARAMS ((tree, tree));
4006 extern tree make_call_declarator                PARAMS ((tree, tree, tree, tree));
4007 extern void set_quals_and_spec                  PARAMS ((tree, tree, tree));
4008 extern const char *operator_name_string         PARAMS ((tree));
4009 extern void lang_init                           PARAMS ((void));
4010 extern void lang_finish                         PARAMS ((void));
4011 #if 0
4012 extern void reinit_lang_specific                PARAMS ((void));
4013 #endif
4014 extern void reinit_parse_for_function           PARAMS ((void));
4015 extern void print_parse_statistics              PARAMS ((void));
4016 extern void extract_interface_info              PARAMS ((void));
4017 extern void do_pending_inlines                  PARAMS ((void));
4018 extern void process_next_inline                 PARAMS ((struct pending_inline *));
4019 extern struct pending_input *save_pending_input PARAMS ((void));
4020 extern void restore_pending_input               PARAMS ((struct pending_input *));
4021 extern void yyungetc                            PARAMS ((int, int));
4022 extern void reinit_parse_for_method             PARAMS ((int, tree));
4023 extern void reinit_parse_for_block              PARAMS ((int, struct obstack *));
4024 extern tree cons_up_default_function            PARAMS ((tree, tree, int));
4025 extern void check_for_missing_semicolon         PARAMS ((tree));
4026 extern void note_got_semicolon                  PARAMS ((tree));
4027 extern void note_list_got_semicolon             PARAMS ((tree));
4028 extern void do_pending_lang_change              PARAMS ((void));
4029 extern int identifier_type                      PARAMS ((tree));
4030 extern void see_typename                        PARAMS ((void));
4031 extern tree do_identifier                       PARAMS ((tree, int, tree));
4032 extern tree do_scoped_id                        PARAMS ((tree, int));
4033 extern tree identifier_typedecl_value           PARAMS ((tree));
4034 extern int real_yylex                           PARAMS ((void));
4035 extern int is_rid                               PARAMS ((tree));
4036 extern tree build_lang_decl                     PARAMS ((enum tree_code, tree, tree));
4037 extern void retrofit_lang_decl                  PARAMS ((tree));
4038 extern void copy_lang_decl                      PARAMS ((tree));
4039 extern tree cp_make_lang_type                   PARAMS ((enum tree_code));
4040 extern tree make_aggr_type                      PARAMS ((enum tree_code));
4041 extern void dump_time_statistics                PARAMS ((void));
4042 extern void compiler_error                      PARAMS ((const char *, ...))
4043   ATTRIBUTE_PRINTF_1;
4044 extern void yyerror                             PARAMS ((const char *));
4045 extern void clear_inline_text_obstack           PARAMS ((void));
4046 extern void maybe_snarf_defarg                  PARAMS ((void));
4047 extern tree snarf_defarg                        PARAMS ((void));
4048 extern void add_defarg_fn                       PARAMS ((tree));
4049 extern void do_pending_defargs                  PARAMS ((void));
4050 extern int identifier_type                      PARAMS ((tree));
4051 extern void yyhook                              PARAMS ((int));
4052 extern int cp_type_qual_from_rid                PARAMS ((tree));
4053
4054 /* in method.c */
4055 extern void init_method                         PARAMS ((void));
4056 extern char *build_overload_name                PARAMS ((tree, int, int));
4057 extern tree build_static_name                   PARAMS ((tree, tree));
4058 extern tree build_decl_overload                 PARAMS ((tree, tree, int));
4059 extern tree build_decl_overload_real            PARAMS ((tree, tree, tree, tree,
4060                                                        tree, int));
4061 extern void set_mangled_name_for_decl           PARAMS ((tree));
4062 extern tree build_typename_overload             PARAMS ((tree));
4063 extern tree build_overload_with_type            PARAMS ((tree, tree));
4064 extern tree build_destructor_name               PARAMS ((tree));
4065 extern tree build_opfncall                      PARAMS ((enum tree_code, int, tree, tree, tree));
4066 extern tree hack_identifier                     PARAMS ((tree, tree));
4067 extern tree make_thunk                          PARAMS ((tree, int, int));
4068 extern void emit_thunk                          PARAMS ((tree));
4069 extern void synthesize_method                   PARAMS ((tree));
4070 extern tree get_id_2                            PARAMS ((const char *, tree));
4071
4072 /* In optimize.c */
4073 extern void optimize_function                   PARAMS ((tree));
4074 extern int calls_setjmp_p                       PARAMS ((tree));
4075
4076 /* in pt.c */
4077 extern void init_pt                             PARAMS ((void));
4078 extern void check_template_shadow               PARAMS ((tree));
4079 extern tree innermost_args                      PARAMS ((tree));
4080 extern tree tsubst                              PARAMS ((tree, tree, int, tree));
4081 extern tree tsubst_expr                         PARAMS ((tree, tree, int, tree));
4082 extern tree tsubst_copy                         PARAMS ((tree, tree, int, tree));
4083 extern void maybe_begin_member_template_processing PARAMS ((tree));
4084 extern void maybe_end_member_template_processing PARAMS ((void));
4085 extern tree finish_member_template_decl         PARAMS ((tree));
4086 extern void begin_template_parm_list            PARAMS ((void));
4087 extern void begin_specialization                PARAMS ((void));
4088 extern void reset_specialization                PARAMS ((void));
4089 extern void end_specialization                  PARAMS ((void));
4090 extern void begin_explicit_instantiation        PARAMS ((void));
4091 extern void end_explicit_instantiation          PARAMS ((void));
4092 extern tree check_explicit_specialization       PARAMS ((tree, tree, int, int));
4093 extern tree process_template_parm               PARAMS ((tree, tree));
4094 extern tree end_template_parm_list              PARAMS ((tree));
4095 extern void end_template_decl                   PARAMS ((void));
4096 extern tree current_template_args               PARAMS ((void));
4097 extern tree push_template_decl                  PARAMS ((tree));
4098 extern tree push_template_decl_real             PARAMS ((tree, int));
4099 extern void redeclare_class_template            PARAMS ((tree, tree));
4100 extern tree lookup_template_class               PARAMS ((tree, tree, tree, tree, int));
4101 extern tree lookup_template_function            PARAMS ((tree, tree));
4102 extern int uses_template_parms                  PARAMS ((tree));
4103 extern tree instantiate_class_template          PARAMS ((tree));
4104 extern tree instantiate_template                PARAMS ((tree, tree));
4105 extern void overload_template_name              PARAMS ((tree));
4106 extern int fn_type_unification                  PARAMS ((tree, tree, tree, tree, tree, unification_kind_t));
4107 struct tinst_level *tinst_for_decl              PARAMS ((void));
4108 extern void mark_decl_instantiated              PARAMS ((tree, int));
4109 extern int more_specialized                     PARAMS ((tree, tree, tree));
4110 extern void mark_class_instantiated             PARAMS ((tree, int));
4111 extern void do_decl_instantiation               PARAMS ((tree, tree, tree));
4112 extern void do_type_instantiation               PARAMS ((tree, tree));
4113 extern tree instantiate_decl                    PARAMS ((tree));
4114 extern tree get_bindings                        PARAMS ((tree, tree, tree));
4115 extern void add_tree                            PARAMS ((tree));
4116 extern void add_maybe_template                  PARAMS ((tree, tree));
4117 extern void pop_tinst_level                     PARAMS ((void));
4118 extern int more_specialized_class               PARAMS ((tree, tree));
4119 extern int is_member_template                   PARAMS ((tree));
4120 extern int template_parms_equal                 PARAMS ((tree, tree));
4121 extern int comp_template_parms                  PARAMS ((tree, tree));
4122 extern int template_class_depth                 PARAMS ((tree));
4123 extern int is_specialization_of                 PARAMS ((tree, tree));
4124 extern int comp_template_args                   PARAMS ((tree, tree));
4125 extern void maybe_process_partial_specialization PARAMS ((tree));
4126 extern void maybe_check_template_type           PARAMS ((tree));
4127 extern tree most_specialized_instantiation      PARAMS ((tree, tree));
4128 extern void print_candidates                    PARAMS ((tree));
4129 extern int instantiate_pending_templates        PARAMS ((void));
4130 extern tree tsubst_default_argument             PARAMS ((tree, tree, tree));
4131 extern tree most_general_template               PARAMS ((tree));
4132
4133 extern int processing_template_parmlist;
4134
4135 /* in repo.c */
4136 extern void repo_template_used                  PARAMS ((tree));
4137 extern void repo_template_instantiated          PARAMS ((tree, int));
4138 extern void init_repo                           PARAMS ((const char *));
4139 extern void finish_repo                         PARAMS ((void));
4140
4141 /* in rtti.c */
4142 extern void init_rtti_processing                PARAMS((void));
4143 extern tree build_typeid                        PARAMS((tree));
4144 extern tree get_tinfo_decl                      PARAMS((tree));
4145 extern tree get_typeid                          PARAMS((tree));
4146 extern tree get_typeid_1                        PARAMS((tree));
4147 extern tree build_dynamic_cast                  PARAMS((tree, tree));
4148 extern void synthesize_tinfo_fn                 PARAMS((tree));
4149 extern void emit_support_tinfos                 PARAMS((void));
4150 extern int tinfo_decl_p                         PARAMS((tree, void *));
4151 extern int emit_tinfo_decl                      PARAMS((tree *, void *));
4152
4153 /* in search.c */
4154 extern int types_overlap_p                      PARAMS ((tree, tree));
4155 extern tree get_vbase                           PARAMS ((tree, tree));
4156 extern tree get_binfo                           PARAMS ((tree, tree, int));
4157 extern int get_base_distance                    PARAMS ((tree, tree, int, tree *));
4158 extern tree get_dynamic_cast_base_type          PARAMS ((tree, tree));
4159 extern void type_access_control                 PARAMS ((tree, tree));
4160 extern int accessible_p                         PARAMS ((tree, tree));
4161 extern tree lookup_field                        PARAMS ((tree, tree, int, int));
4162 extern int lookup_fnfields_1                    PARAMS ((tree, tree));
4163 extern tree lookup_fnfields                     PARAMS ((tree, tree, int));
4164 extern tree lookup_member                       PARAMS ((tree, tree, int, int));
4165 extern tree lookup_nested_tag                   PARAMS ((tree, tree));
4166 extern tree get_matching_virtual                PARAMS ((tree, tree, int));
4167 extern void get_pure_virtuals                   PARAMS ((tree));
4168 extern tree init_vbase_pointers                 PARAMS ((tree, tree));
4169 extern void expand_indirect_vtbls_init          PARAMS ((tree, tree));
4170 extern void clear_search_slots                  PARAMS ((tree));
4171 extern void get_vbase_types                     PARAMS ((tree));
4172 extern void maybe_suppress_debug_info           PARAMS ((tree));
4173 extern void note_debug_info_needed              PARAMS ((tree));
4174 extern void push_class_decls                    PARAMS ((tree));
4175 extern void pop_class_decls                     PARAMS ((void));
4176 extern void unuse_fields                        PARAMS ((tree));
4177 extern void print_search_statistics             PARAMS ((void));
4178 extern void init_search_processing              PARAMS ((void));
4179 extern void reinit_search_statistics            PARAMS ((void));
4180 extern tree current_scope                       PARAMS ((void));
4181 extern int at_function_scope_p                  PARAMS ((void));
4182 extern tree lookup_conversions                  PARAMS ((tree));
4183 extern tree binfo_for_vtable                    PARAMS ((tree));
4184 extern int  binfo_from_vbase                    PARAMS ((tree));
4185 extern tree dfs_walk                            PARAMS ((tree,
4186                                                        tree (*)(tree, void *),
4187                                                        tree (*) (tree, void *),
4188                                                        void *));
4189 extern tree dfs_walk_real                      PARAMS ((tree,
4190                                                        tree (*) (tree, void *),
4191                                                        tree (*) (tree, void *),
4192                                                        tree (*) (tree, void *),
4193                                                        void *));
4194 extern tree dfs_unmark                          PARAMS ((tree, void *));
4195 extern tree dfs_vbase_unmark                    PARAMS ((tree, void *));
4196 extern tree dfs_vtable_path_unmark              PARAMS ((tree, void *));
4197 extern tree markedp                             PARAMS ((tree, void *));
4198 extern tree unmarkedp                           PARAMS ((tree, void *));
4199 extern tree dfs_skip_nonprimary_vbases_unmarkedp PARAMS ((tree, void *));
4200 extern tree dfs_skip_nonprimary_vbases_markedp  PARAMS ((tree, void *));
4201 extern tree dfs_unmarked_real_bases_queue_p     PARAMS ((tree, void *));
4202 extern tree dfs_marked_real_bases_queue_p       PARAMS ((tree, void *));
4203 extern tree dfs_vtable_path_unmarked_real_bases_queue_p
4204                                                 PARAMS ((tree, void *));
4205 extern tree dfs_vtable_path_marked_real_bases_queue_p
4206                                                 PARAMS ((tree, void *));
4207 extern tree dfs_skip_vbases                     PARAMS ((tree, void *));
4208 extern void mark_primary_bases                  PARAMS ((tree));
4209 extern tree convert_pointer_to_vbase            PARAMS ((tree, tree));
4210 extern tree find_vbase_instance                 PARAMS ((tree, tree));
4211
4212 /* in semantics.c */
4213 extern void finish_expr_stmt                    PARAMS ((tree));
4214 extern tree begin_if_stmt                       PARAMS ((void));
4215 extern void finish_if_stmt_cond                 PARAMS ((tree, tree));
4216 extern tree finish_then_clause                  PARAMS ((tree));
4217 extern void begin_else_clause                   PARAMS ((void));
4218 extern void finish_else_clause                  PARAMS ((tree));
4219 extern void finish_if_stmt                      PARAMS ((void));
4220 extern tree begin_while_stmt                    PARAMS ((void));
4221 extern void finish_while_stmt_cond              PARAMS ((tree, tree));
4222 extern void finish_while_stmt                   PARAMS ((tree));
4223 extern tree begin_do_stmt                       PARAMS ((void));
4224 extern void finish_do_body                      PARAMS ((tree));
4225 extern void finish_do_stmt                      PARAMS ((tree, tree));
4226 extern void finish_return_stmt                  PARAMS ((tree));
4227 extern tree begin_for_stmt                      PARAMS ((void));
4228 extern void finish_for_init_stmt                PARAMS ((tree));
4229 extern void finish_for_cond                     PARAMS ((tree, tree));
4230 extern void finish_for_expr                     PARAMS ((tree, tree));
4231 extern void finish_for_stmt                     PARAMS ((tree, tree));
4232 extern void finish_break_stmt                   PARAMS ((void));
4233 extern void finish_continue_stmt                PARAMS ((void));
4234 extern tree begin_switch_stmt                   PARAMS ((void));
4235 extern void finish_switch_cond                  PARAMS ((tree, tree));
4236 extern void finish_switch_stmt                  PARAMS ((tree, tree));
4237 extern void finish_case_label                   PARAMS ((tree, tree));
4238 extern void finish_goto_stmt                    PARAMS ((tree));
4239 extern tree begin_try_block                     PARAMS ((void));
4240 extern void finish_try_block                    PARAMS ((tree));
4241 extern void finish_handler_sequence             PARAMS ((tree));
4242 extern tree begin_function_try_block            PARAMS ((void));
4243 extern void finish_function_try_block           PARAMS ((tree));
4244 extern void finish_function_handler_sequence    PARAMS ((tree));
4245 extern void finish_cleanup_try_block            PARAMS ((tree));
4246 extern tree begin_handler                       PARAMS ((void));
4247 extern tree finish_handler_parms                PARAMS ((tree, tree));
4248 extern void begin_catch_block                   PARAMS ((tree));
4249 extern void finish_handler                      PARAMS ((tree, tree));
4250 extern void finish_cleanup                      PARAMS ((tree, tree));
4251 extern tree begin_compound_stmt                 PARAMS ((int));
4252 extern tree finish_compound_stmt                PARAMS ((int, tree));
4253 extern void finish_asm_stmt                     PARAMS ((tree, tree, tree, tree, tree));
4254 extern void finish_label_stmt                   PARAMS ((tree));
4255 extern void finish_label_decl                   PARAMS ((tree));
4256 extern void finish_subobject                    PARAMS ((tree));
4257 extern tree finish_parenthesized_expr           PARAMS ((tree));
4258 extern tree begin_stmt_expr                     PARAMS ((void));
4259 extern tree finish_stmt_expr                    PARAMS ((tree));
4260 extern tree finish_call_expr                    PARAMS ((tree, tree, int));
4261 extern tree finish_increment_expr               PARAMS ((tree, enum tree_code));
4262 extern tree finish_this_expr                    PARAMS ((void));
4263 extern tree finish_object_call_expr             PARAMS ((tree, tree, tree));
4264 extern tree finish_qualified_object_call_expr   PARAMS ((tree, tree, tree));
4265 extern tree finish_pseudo_destructor_call_expr  PARAMS ((tree, tree, tree));
4266 extern tree finish_qualified_call_expr          PARAMS ((tree, tree));
4267 extern tree finish_label_address_expr           PARAMS ((tree));
4268 extern tree finish_unary_op_expr                PARAMS ((enum tree_code, tree));
4269 extern tree finish_id_expr                      PARAMS ((tree));
4270 extern void save_type_access_control            PARAMS ((tree));
4271 extern void decl_type_access_control            PARAMS ((tree));
4272 extern int begin_function_definition            PARAMS ((tree, tree));
4273 extern tree begin_constructor_declarator        PARAMS ((tree, tree));
4274 extern tree finish_declarator                   PARAMS ((tree, tree, tree, tree, int));
4275 extern void finish_translation_unit             PARAMS ((void));
4276 extern tree finish_template_type_parm           PARAMS ((tree, tree));
4277 extern tree finish_template_template_parm       PARAMS ((tree, tree));
4278 extern tree finish_parmlist                     PARAMS ((tree, int));
4279 extern tree begin_class_definition              PARAMS ((tree));
4280 extern tree finish_class_definition             PARAMS ((tree, tree, int, int));
4281 extern void finish_default_args                 PARAMS ((void));
4282 extern void begin_inline_definitions            PARAMS ((void));
4283 extern void finish_inline_definitions           PARAMS ((void));
4284 extern tree finish_member_class_template        PARAMS ((tree));
4285 extern void finish_template_decl                PARAMS ((tree));
4286 extern tree finish_template_type                PARAMS ((tree, tree, int));
4287 extern void enter_scope_of                      PARAMS ((tree));
4288 extern tree finish_base_specifier               PARAMS ((tree, tree));
4289 extern void finish_member_declaration           PARAMS ((tree));
4290 extern void check_multiple_declarators          PARAMS ((void));
4291 extern tree finish_typeof                       PARAMS ((tree));
4292 extern void add_decl_stmt                       PARAMS ((tree));
4293 extern void finish_decl_cleanup                 PARAMS ((tree, tree));
4294 extern void finish_named_return_value           PARAMS ((tree, tree));
4295 extern tree expand_stmt                         PARAMS ((tree));
4296 extern void expand_body                         PARAMS ((tree));
4297 extern void begin_stmt_tree                     PARAMS ((tree *));
4298 extern void finish_stmt_tree                    PARAMS ((tree *));
4299 extern void prep_stmt                           PARAMS ((tree));
4300 extern tree add_scope_stmt                      PARAMS ((int, int));
4301 extern void do_pushlevel                        PARAMS ((void));
4302 extern tree do_poplevel                         PARAMS ((void));
4303 /* Non-zero if we are presently building a statement tree, rather
4304    than expanding each statement as we encounter it.  */
4305 #define building_stmt_tree() (last_tree != NULL_TREE)
4306
4307 /* in spew.c */
4308 extern void init_spew                           PARAMS ((void));
4309 extern int peekyylex                            PARAMS ((void));
4310 extern int yylex                                PARAMS ((void));
4311 extern tree arbitrate_lookup                    PARAMS ((tree, tree, tree));
4312
4313 /* in tree.c */
4314 extern void init_tree                           PARAMS ((void));
4315 extern int pod_type_p                           PARAMS ((tree));
4316 extern void unshare_base_binfos                 PARAMS ((tree));
4317 extern int member_p                             PARAMS ((tree));
4318 extern cp_lvalue_kind real_lvalue_p             PARAMS ((tree));
4319 extern tree build_min                           PARAMS ((enum tree_code, tree, ...));
4320 extern tree build_min_nt                        PARAMS ((enum tree_code, ...));
4321 extern int lvalue_p                             PARAMS ((tree));
4322 extern int lvalue_or_else                       PARAMS ((tree, const char *));
4323 extern tree build_cplus_new                     PARAMS ((tree, tree));
4324 extern tree get_target_expr                     PARAMS ((tree));
4325 extern tree break_out_cleanups                  PARAMS ((tree));
4326 extern tree break_out_calls                     PARAMS ((tree));
4327 extern tree build_cplus_method_type             PARAMS ((tree, tree, tree));
4328 extern tree build_cplus_staticfn_type           PARAMS ((tree, tree, tree));
4329 extern tree build_cplus_array_type              PARAMS ((tree, tree));
4330 extern tree hash_tree_cons                      PARAMS ((tree, tree, tree));
4331 extern tree hash_tree_chain                     PARAMS ((tree, tree));
4332 extern tree hash_chainon                        PARAMS ((tree, tree));
4333 extern tree make_binfo                          PARAMS ((tree, tree, tree, tree));
4334 extern tree binfo_value                         PARAMS ((tree, tree));
4335 extern tree reverse_path                        PARAMS ((tree));
4336 extern int count_functions                      PARAMS ((tree));
4337 extern int is_overloaded_fn                     PARAMS ((tree));
4338 extern tree get_first_fn                        PARAMS ((tree));
4339 extern int bound_pmf_p                          PARAMS ((tree));
4340 extern tree ovl_cons                            PARAMS ((tree, tree));
4341 extern int ovl_member                           PARAMS ((tree, tree));
4342 extern tree build_overload                      PARAMS ((tree, tree));
4343 extern tree fnaddr_from_vtable_entry            PARAMS ((tree));
4344 extern tree function_arg_chain                  PARAMS ((tree));
4345 extern int promotes_to_aggr_type                PARAMS ((tree, enum tree_code));
4346 extern int is_aggr_type_2                       PARAMS ((tree, tree));
4347 extern const char *lang_printable_name          PARAMS ((tree, int));
4348 extern tree build_exception_variant             PARAMS ((tree, tree));
4349 extern tree copy_template_template_parm         PARAMS ((tree));
4350 extern void print_lang_statistics               PARAMS ((void));
4351 extern tree array_type_nelts_total              PARAMS ((tree));
4352 extern tree array_type_nelts_top                PARAMS ((tree));
4353 extern tree break_out_target_exprs              PARAMS ((tree));
4354 extern tree get_type_decl                       PARAMS ((tree));
4355 extern tree vec_binfo_member                    PARAMS ((tree, tree));
4356 extern tree decl_namespace_context              PARAMS ((tree));
4357 extern tree lvalue_type                         PARAMS ((tree));
4358 extern tree error_type                          PARAMS ((tree));
4359 extern tree build_ptr_wrapper                   PARAMS ((void *));
4360 extern tree build_expr_ptr_wrapper              PARAMS ((void *));
4361 extern tree build_int_wrapper                   PARAMS ((int));
4362 extern tree build_srcloc_here                   PARAMS ((void));
4363 extern int varargs_function_p                   PARAMS ((tree));
4364 extern int really_overloaded_fn                 PARAMS ((tree));
4365 extern int cp_tree_equal                        PARAMS ((tree, tree));
4366 extern int can_free                             PARAMS ((struct obstack *, tree));
4367 extern tree no_linkage_check                    PARAMS ((tree));
4368 extern void debug_binfo                         PARAMS ((tree));
4369 extern tree build_dummy_object                  PARAMS ((tree));
4370 extern tree maybe_dummy_object                  PARAMS ((tree, tree *));
4371 extern int is_dummy_object                      PARAMS ((tree));
4372 typedef tree (*walk_tree_fn)                    PARAMS ((tree *, int *, void *));
4373 extern tree walk_tree                           PARAMS ((tree *, walk_tree_fn, void *));
4374 extern tree copy_tree_r                         PARAMS ((tree *, int *, void *));
4375 extern int cp_valid_lang_attribute              PARAMS ((tree, tree, tree, tree));
4376 extern tree make_ptrmem_cst                     PARAMS ((tree, tree));
4377 extern tree cp_build_qualified_type_real        PARAMS ((tree, int, int));
4378 extern void remap_save_expr                     PARAMS ((tree *, splay_tree, tree, int *));
4379 #define cp_build_qualified_type(TYPE, QUALS) \
4380   cp_build_qualified_type_real ((TYPE), (QUALS), /*complain=*/1)
4381 extern tree build_shared_int_cst                PARAMS ((int));
4382
4383 /* in typeck.c */
4384 extern int string_conv_p                        PARAMS ((tree, tree, int));
4385 extern tree condition_conversion                PARAMS ((tree));
4386 extern tree target_type                         PARAMS ((tree));
4387 extern tree require_complete_type               PARAMS ((tree));
4388 extern tree complete_type                       PARAMS ((tree));
4389 extern tree complete_type_or_else               PARAMS ((tree, tree));
4390 extern int type_unknown_p                       PARAMS ((tree));
4391 extern int fntype_p                             PARAMS ((tree));
4392 extern tree commonparms                         PARAMS ((tree, tree));
4393 extern tree original_type                       PARAMS ((tree));
4394 extern tree common_type                         PARAMS ((tree, tree));
4395 extern int comp_except_specs                    PARAMS ((tree, tree, int));
4396 extern int comptypes                            PARAMS ((tree, tree, int));
4397 extern int comp_target_types                    PARAMS ((tree, tree, int));
4398 extern int compparms                            PARAMS ((tree, tree));
4399 extern int comp_target_types                    PARAMS ((tree, tree, int));
4400 extern int comp_cv_qualification                PARAMS ((tree, tree));
4401 extern int comp_cv_qual_signature               PARAMS ((tree, tree));
4402 extern tree unsigned_type                       PARAMS ((tree));
4403 extern tree signed_type                         PARAMS ((tree));
4404 extern tree signed_or_unsigned_type             PARAMS ((int, tree));
4405 extern tree expr_sizeof                         PARAMS ((tree));
4406 extern tree c_sizeof                            PARAMS ((tree));
4407 extern tree c_sizeof_nowarn                     PARAMS ((tree));
4408 extern tree c_alignof                           PARAMS ((tree));
4409 extern tree inline_conversion                   PARAMS ((tree));
4410 extern tree decay_conversion                    PARAMS ((tree));
4411 extern tree default_conversion                  PARAMS ((tree));
4412 extern tree build_object_ref                    PARAMS ((tree, tree, tree));
4413 extern tree build_component_ref_1               PARAMS ((tree, tree, int));
4414 extern tree build_component_ref                 PARAMS ((tree, tree, tree, int));
4415 extern tree build_x_component_ref               PARAMS ((tree, tree, tree, int));
4416 extern tree build_x_indirect_ref                PARAMS ((tree, const char *));
4417 extern tree build_indirect_ref                  PARAMS ((tree, const char *));
4418 extern tree build_array_ref                     PARAMS ((tree, tree));
4419 extern tree build_x_function_call               PARAMS ((tree, tree, tree));
4420 extern tree get_member_function_from_ptrfunc    PARAMS ((tree *, tree));
4421 extern tree build_function_call_real            PARAMS ((tree, tree, int, int));
4422 extern tree build_function_call                 PARAMS ((tree, tree));
4423 extern tree build_function_call_maybe           PARAMS ((tree, tree));
4424 extern tree convert_arguments                   PARAMS ((tree, tree, tree, int));
4425 extern tree build_x_binary_op                   PARAMS ((enum tree_code, tree, tree));
4426 extern tree build_binary_op                     PARAMS ((enum tree_code, tree, tree));
4427 extern tree build_x_unary_op                    PARAMS ((enum tree_code, tree));
4428 extern tree build_unary_op                      PARAMS ((enum tree_code, tree, int));
4429 extern tree unary_complex_lvalue                PARAMS ((enum tree_code, tree));
4430 extern int mark_addressable                     PARAMS ((tree));
4431 extern tree build_x_conditional_expr            PARAMS ((tree, tree, tree));
4432 extern tree build_conditional_expr              PARAMS ((tree, tree, tree));
4433 extern tree build_x_compound_expr               PARAMS ((tree));
4434 extern tree build_compound_expr                 PARAMS ((tree));
4435 extern tree build_static_cast                   PARAMS ((tree, tree));
4436 extern tree build_reinterpret_cast              PARAMS ((tree, tree));
4437 extern tree build_const_cast                    PARAMS ((tree, tree));
4438 extern tree build_c_cast                        PARAMS ((tree, tree));
4439 extern tree build_x_modify_expr                 PARAMS ((tree, enum tree_code, tree));
4440 extern tree build_modify_expr                   PARAMS ((tree, enum tree_code, tree));
4441 extern tree dubious_conversion_warnings         PARAMS ((tree, tree, const char *, tree, int));
4442 extern tree convert_for_initialization          PARAMS ((tree, tree, tree, int, const char *, tree, int));
4443 extern void c_expand_asm_operands               PARAMS ((tree, tree, tree, tree, int, char *, int));
4444 extern void c_expand_return                     PARAMS ((tree));
4445 extern tree c_expand_start_case                 PARAMS ((tree));
4446 extern int comp_ptr_ttypes                      PARAMS ((tree, tree));
4447 extern int ptr_reasonably_similar               PARAMS ((tree, tree));
4448 extern tree build_ptrmemfunc                    PARAMS ((tree, tree, int));
4449 extern tree strip_array_types                   PARAMS ((tree));
4450 extern int cp_type_quals                        PARAMS ((tree));
4451 extern int cp_has_mutable_p                     PARAMS ((tree));
4452 extern int at_least_as_qualified_p              PARAMS ((tree, tree));
4453 extern int more_qualified_p                     PARAMS ((tree, tree));
4454 extern tree build_ptrmemfunc1                   PARAMS ((tree, tree, tree, tree, tree));
4455 extern void expand_ptrmemfunc_cst               PARAMS ((tree, tree *, tree *, tree *, tree *));
4456 extern tree delta2_from_ptrmemfunc              PARAMS ((tree));
4457 extern tree pfn_from_ptrmemfunc                 PARAMS ((tree));
4458 extern tree type_after_usual_arithmetic_conversions PARAMS ((tree, tree));
4459 extern tree composite_pointer_type              PARAMS ((tree, tree, tree, tree,
4460                                                        const char*));
4461 extern tree check_return_expr                   PARAMS ((tree));
4462
4463 /* in typeck2.c */
4464 extern tree error_not_base_type                 PARAMS ((tree, tree));
4465 extern tree binfo_or_else                       PARAMS ((tree, tree));
4466 extern void readonly_error                      PARAMS ((tree, const char *, int));
4467 extern int abstract_virtuals_error              PARAMS ((tree, tree));
4468 extern void incomplete_type_error               PARAMS ((tree, tree));
4469 extern void my_friendly_abort                   PARAMS ((int))
4470   ATTRIBUTE_NORETURN;
4471 extern void my_friendly_assert                  PARAMS ((int, int));
4472 extern tree store_init_value                    PARAMS ((tree, tree));
4473 extern tree digest_init                         PARAMS ((tree, tree, tree *));
4474 extern tree build_scoped_ref                    PARAMS ((tree, tree));
4475 extern tree build_x_arrow                       PARAMS ((tree));
4476 extern tree build_m_component_ref               PARAMS ((tree, tree));
4477 extern tree build_functional_cast               PARAMS ((tree, tree));
4478 extern char *enum_name_string                   PARAMS ((tree, tree));
4479 extern void report_case_error                   PARAMS ((int, tree, tree, tree));
4480 extern void check_for_new_type                  PARAMS ((const char *, flagged_type_tree));
4481 extern tree add_exception_specifier             PARAMS ((tree, tree, int));
4482
4483 /* in xref.c */
4484 extern void GNU_xref_begin                      PARAMS ((const char *));
4485 extern void GNU_xref_end                        PARAMS ((int));
4486 extern void GNU_xref_file                       PARAMS ((const char *));
4487 extern void GNU_xref_start_scope                PARAMS ((HOST_WIDE_INT));
4488 extern void GNU_xref_end_scope                  PARAMS ((HOST_WIDE_INT, HOST_WIDE_INT, int, int));
4489 extern void GNU_xref_ref                        PARAMS ((tree, const char *));
4490 extern void GNU_xref_decl                       PARAMS ((tree, tree));
4491 extern void GNU_xref_call                       PARAMS ((tree, const char *));
4492 extern void GNU_xref_function                   PARAMS ((tree, tree));
4493 extern void GNU_xref_assign                     PARAMS ((tree));
4494 extern void GNU_xref_hier                       PARAMS ((tree, tree, int, int, int));
4495 extern void GNU_xref_member                     PARAMS ((tree, tree));
4496
4497 /* in dump.c */
4498 extern void dump_node_to_file                   PARAMS ((tree, const char *));
4499
4500 /* -- end of C++ */
4501
4502 #endif /* not _CP_TREE_H */