xref: /freebsd-12.1/contrib/gcc/cp/cp-tree.h (revision 5bfc7db4)
1 /* Definitions for C++ parsing and type checking.
2    Copyright (C) 1987, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
3    2000, 2001, 2002, 2003, 2004, 2005, 2006  Free Software Foundation, Inc.
4    Contributed by Michael Tiemann ([email protected])
5 
6 This file is part of GCC.
7 
8 GCC 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 GCC 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 GCC; see the file COPYING.  If not, write to
20 the Free Software Foundation, 51 Franklin Street, Fifth Floor,
21 Boston, MA 02110-1301, USA.  */
22 
23 #ifndef GCC_CP_TREE_H
24 #define GCC_CP_TREE_H
25 
26 #include "ggc.h"
27 #include "function.h"
28 #include "hashtab.h"
29 #include "splay-tree.h"
30 #include "vec.h"
31 #include "varray.h"
32 #include "c-common.h"
33 #include "name-lookup.h"
34 struct diagnostic_context;
35 
36 /* Usage of TREE_LANG_FLAG_?:
37    0: IDENTIFIER_MARKED (IDENTIFIER_NODEs)
38       NEW_EXPR_USE_GLOBAL (in NEW_EXPR).
39       DELETE_EXPR_USE_GLOBAL (in DELETE_EXPR).
40       COMPOUND_EXPR_OVERLOADED (in COMPOUND_EXPR).
41       TREE_INDIRECT_USING (in NAMESPACE_DECL).
42       CLEANUP_P (in TRY_BLOCK)
43       AGGR_INIT_VIA_CTOR_P (in AGGR_INIT_EXPR)
44       PTRMEM_OK_P (in ADDR_EXPR, OFFSET_REF)
45       PAREN_STRING_LITERAL (in STRING_CST)
46       DECL_PRETTY_FUNCTION_P (in VAR_DECL)
47       KOENIG_LOOKUP_P (in CALL_EXPR)
48       STATEMENT_LIST_NO_SCOPE (in STATEMENT_LIST).
49       EXPR_STMT_STMT_EXPR_RESULT (in EXPR_STMT)
50       STMT_EXPR_NO_SCOPE (in STMT_EXPR)
51       BIND_EXPR_TRY_BLOCK (in BIND_EXPR)
52       TYPENAME_IS_ENUM_P (in TYPENAME_TYPE)
53       REFERENCE_REF_P (in INDIRECT_EXPR)
54       QUALIFIED_NAME_IS_TEMPLATE (in SCOPE_REF)
55       OMP_ATOMIC_DEPENDENT_P (in OMP_ATOMIC)
56       OMP_FOR_GIMPLIFYING_P (in OMP_FOR)
57       BASELINK_QUALIFIED_P (in BASELINK)
58       TARGET_EXPR_IMPLICIT_P (in TARGET_EXPR)
59    1: IDENTIFIER_VIRTUAL_P (in IDENTIFIER_NODE)
60       TI_PENDING_TEMPLATE_FLAG.
61       TEMPLATE_PARMS_FOR_INLINE.
62       DELETE_EXPR_USE_VEC (in DELETE_EXPR).
63       (TREE_CALLS_NEW) (in _EXPR or _REF) (commented-out).
64       ICS_ELLIPSIS_FLAG (in _CONV)
65       DECL_INITIALIZED_P (in VAR_DECL)
66       TYPENAME_IS_CLASS_P (in TYPENAME_TYPE)
67       STMT_IS_FULL_EXPR_P (in _STMT)
68    2: IDENTIFIER_OPNAME_P (in IDENTIFIER_NODE)
69       ICS_THIS_FLAG (in _CONV)
70       DECL_INITIALIZED_BY_CONSTANT_EXPRESSION_P (in VAR_DECL)
71       STATEMENT_LIST_TRY_BLOCK (in STATEMENT_LIST)
72    3: (TREE_REFERENCE_EXPR) (in NON_LVALUE_EXPR) (commented-out).
73       ICS_BAD_FLAG (in _CONV)
74       FN_TRY_BLOCK_P (in TRY_BLOCK)
75       IDENTIFIER_CTOR_OR_DTOR_P (in IDENTIFIER_NODE)
76       BIND_EXPR_BODY_BLOCK (in BIND_EXPR)
77       DECL_NON_TRIVIALLY_INITIALIZED_P (in VAR_DECL)
78    4: TREE_HAS_CONSTRUCTOR (in INDIRECT_REF, SAVE_EXPR, CONSTRUCTOR,
79 	  or FIELD_DECL).
80       IDENTIFIER_TYPENAME_P (in IDENTIFIER_NODE)
81       DECL_TINFO_P (in VAR_DECL)
82    5: C_IS_RESERVED_WORD (in IDENTIFIER_NODE)
83       DECL_VTABLE_OR_VTT_P (in VAR_DECL)
84    6: IDENTIFIER_REPO_CHOSEN (in IDENTIFIER_NODE)
85       DECL_CONSTRUCTION_VTABLE_P (in VAR_DECL)
86       TYPE_MARKED_P (in _TYPE)
87 
88    Usage of TYPE_LANG_FLAG_?:
89    0: TYPE_DEPENDENT_P
90    1: TYPE_HAS_CONSTRUCTOR.
91    2: Unused
92    3: TYPE_FOR_JAVA.
93    4: TYPE_HAS_NONTRIVIAL_DESTRUCTOR
94    5: IS_AGGR_TYPE.
95    6: TYPE_DEPENDENT_P_VALID
96 
97    Usage of DECL_LANG_FLAG_?:
98    0: DECL_ERROR_REPORTED (in VAR_DECL).
99       DECL_TEMPLATE_PARM_P (in PARM_DECL, CONST_DECL, TYPE_DECL, or TEMPLATE_DECL)
100       DECL_LOCAL_FUNCTION_P (in FUNCTION_DECL)
101       DECL_MUTABLE_P (in FIELD_DECL)
102       DECL_DEPENDENT_P (in USING_DECL)
103    1: C_TYPEDEF_EXPLICITLY_SIGNED (in TYPE_DECL).
104       DECL_TEMPLATE_INSTANTIATED (in a VAR_DECL or a FUNCTION_DECL)
105       DECL_MEMBER_TEMPLATE_P (in TEMPLATE_DECL)
106    2: DECL_THIS_EXTERN (in VAR_DECL or FUNCTION_DECL).
107       DECL_IMPLICIT_TYPEDEF_P (in a TYPE_DECL)
108    3: DECL_IN_AGGR_P.
109    4: DECL_C_BIT_FIELD (in a FIELD_DECL)
110       DECL_ANON_UNION_VAR_P (in a VAR_DECL)
111       DECL_SELF_REFERENCE_P (in a TYPE_DECL)
112       DECL_INVALID_OVERRIDER_P (in a FUNCTION_DECL)
113    5: DECL_INTERFACE_KNOWN.
114    6: DECL_THIS_STATIC (in VAR_DECL or FUNCTION_DECL).
115       DECL_FIELD_IS_BASE (in FIELD_DECL)
116    7: DECL_DEAD_FOR_LOCAL (in VAR_DECL).
117       DECL_THUNK_P (in a member FUNCTION_DECL)
118 
119    Usage of language-independent fields in a language-dependent manner:
120 
121    TYPE_ALIAS_SET
122      This field is used by TYPENAME_TYPEs, TEMPLATE_TYPE_PARMs, and so
123      forth as a substitute for the mark bits provided in `lang_type'.
124      At present, only the six low-order bits are used.
125 
126    TYPE_LANG_SLOT_1
127      For an ENUMERAL_TYPE, this is ENUM_TEMPLATE_INFO.
128      For a FUNCTION_TYPE or METHOD_TYPE, this is TYPE_RAISES_EXCEPTIONS
129 
130   BINFO_VIRTUALS
131      For a binfo, this is a TREE_LIST.  There is an entry for each
132      virtual function declared either in BINFO or its direct and
133      indirect primary bases.
134 
135      The BV_DELTA of each node gives the amount by which to adjust the
136      `this' pointer when calling the function.  If the method is an
137      overridden version of a base class method, then it is assumed
138      that, prior to adjustment, the this pointer points to an object
139      of the base class.
140 
141      The BV_VCALL_INDEX of each node, if non-NULL, gives the vtable
142      index of the vcall offset for this entry.
143 
144      The BV_FN is the declaration for the virtual function itself.
145 
146    BINFO_VTABLE
147      This is an expression with POINTER_TYPE that gives the value
148      to which the vptr should be initialized.  Use get_vtbl_decl_for_binfo
149      to extract the VAR_DECL for the complete vtable.
150 
151    DECL_ARGUMENTS
152      For a VAR_DECL this is DECL_ANON_UNION_ELEMS.
153 
154    DECL_VINDEX
155      This field is NULL for a non-virtual function.  For a virtual
156      function, it is eventually set to an INTEGER_CST indicating the
157      index in the vtable at which this function can be found.  When
158      a virtual function is declared, but before it is known what
159      function is overridden, this field is the error_mark_node.
160 
161      Temporarily, it may be set to a TREE_LIST whose TREE_VALUE is
162      the virtual function this one overrides, and whose TREE_CHAIN is
163      the old DECL_VINDEX.  */
164 
165 /* Language-specific tree checkers.  */
166 
167 #define VAR_OR_FUNCTION_DECL_CHECK(NODE) \
168   TREE_CHECK2(NODE,VAR_DECL,FUNCTION_DECL)
169 
170 #define VAR_FUNCTION_OR_PARM_DECL_CHECK(NODE) \
171   TREE_CHECK3(NODE,VAR_DECL,FUNCTION_DECL,PARM_DECL)
172 
173 #define VAR_TEMPL_TYPE_OR_FUNCTION_DECL_CHECK(NODE) \
174   TREE_CHECK4(NODE,VAR_DECL,FUNCTION_DECL,TYPE_DECL,TEMPLATE_DECL)
175 
176 #define BOUND_TEMPLATE_TEMPLATE_PARM_TYPE_CHECK(NODE) \
177   TREE_CHECK(NODE,BOUND_TEMPLATE_TEMPLATE_PARM)
178 
179 #if defined ENABLE_TREE_CHECKING && (GCC_VERSION >= 2007)
180 #define NON_THUNK_FUNCTION_CHECK(NODE) __extension__			\
181 ({  const tree __t = (NODE);						\
182     if (TREE_CODE (__t) != FUNCTION_DECL &&				\
183 	TREE_CODE (__t) != TEMPLATE_DECL && __t->decl_common.lang_specific	\
184 	&& __t->decl_common.lang_specific->decl_flags.thunk_p)			\
185       tree_check_failed (__t, __FILE__, __LINE__, __FUNCTION__, 0);	\
186     __t; })
187 #define THUNK_FUNCTION_CHECK(NODE) __extension__			\
188 ({  const tree __t = (NODE);						\
189     if (TREE_CODE (__t) != FUNCTION_DECL || !__t->decl_common.lang_specific	\
190 	|| !__t->decl_common.lang_specific->decl_flags.thunk_p)		\
191       tree_check_failed (__t, __FILE__, __LINE__, __FUNCTION__, 0);	\
192      __t; })
193 #else
194 #define NON_THUNK_FUNCTION_CHECK(NODE) (NODE)
195 #define THUNK_FUNCTION_CHECK(NODE) (NODE)
196 #endif
197 
198 /* Language-dependent contents of an identifier.  */
199 
200 struct lang_identifier GTY(())
201 {
202   struct c_common_identifier c_common;
203   cxx_binding *namespace_bindings;
204   cxx_binding *bindings;
205   tree class_template_info;
206   tree label_value;
207 };
208 
209 /* In an IDENTIFIER_NODE, nonzero if this identifier is actually a
210    keyword.  C_RID_CODE (node) is then the RID_* value of the keyword,
211    and C_RID_YYCODE is the token number wanted by Yacc.  */
212 
213 #define C_IS_RESERVED_WORD(ID) TREE_LANG_FLAG_5 (ID)
214 
215 #define LANG_IDENTIFIER_CAST(NODE) \
216 	((struct lang_identifier*)IDENTIFIER_NODE_CHECK (NODE))
217 
218 struct template_parm_index_s GTY(())
219 {
220   struct tree_common common;
221   HOST_WIDE_INT index;
222   HOST_WIDE_INT level;
223   HOST_WIDE_INT orig_level;
224   tree decl;
225 };
226 typedef struct template_parm_index_s template_parm_index;
227 
228 struct tinst_level_s GTY(())
229 {
230   struct tree_common common;
231   tree decl;
232   location_t locus;
233   int in_system_header_p;
234 };
235 typedef struct tinst_level_s * tinst_level_t;
236 
237 struct ptrmem_cst GTY(())
238 {
239   struct tree_common common;
240   /* This isn't used, but the middle-end expects all constants to have
241      this field.  */
242   rtx rtl;
243   tree member;
244 };
245 typedef struct ptrmem_cst * ptrmem_cst_t;
246 
247 #define IDENTIFIER_GLOBAL_VALUE(NODE) \
248   namespace_binding ((NODE), global_namespace)
249 #define SET_IDENTIFIER_GLOBAL_VALUE(NODE, VAL) \
250   set_namespace_binding ((NODE), global_namespace, (VAL))
251 #define IDENTIFIER_NAMESPACE_VALUE(NODE) \
252   namespace_binding ((NODE), current_namespace)
253 #define SET_IDENTIFIER_NAMESPACE_VALUE(NODE, VAL) \
254   set_namespace_binding ((NODE), current_namespace, (VAL))
255 
256 #define CLEANUP_P(NODE)		TREE_LANG_FLAG_0 (TRY_BLOCK_CHECK (NODE))
257 
258 #define BIND_EXPR_TRY_BLOCK(NODE) \
259   TREE_LANG_FLAG_0 (BIND_EXPR_CHECK (NODE))
260 
261 /* Used to mark the block around the member initializers and cleanups.  */
262 #define BIND_EXPR_BODY_BLOCK(NODE) \
263   TREE_LANG_FLAG_3 (BIND_EXPR_CHECK (NODE))
264 #define FUNCTION_NEEDS_BODY_BLOCK(NODE) \
265   (DECL_CONSTRUCTOR_P (NODE) || DECL_DESTRUCTOR_P (NODE))
266 
267 #define STATEMENT_LIST_NO_SCOPE(NODE) \
268   TREE_LANG_FLAG_0 (STATEMENT_LIST_CHECK (NODE))
269 #define STATEMENT_LIST_TRY_BLOCK(NODE) \
270   TREE_LANG_FLAG_2 (STATEMENT_LIST_CHECK (NODE))
271 
272 /* Nonzero if this statement should be considered a full-expression,
273    i.e., if temporaries created during this statement should have
274    their destructors run at the end of this statement.  */
275 #define STMT_IS_FULL_EXPR_P(NODE) TREE_LANG_FLAG_1 ((NODE))
276 
277 /* Marks the result of a statement expression.  */
278 #define EXPR_STMT_STMT_EXPR_RESULT(NODE) \
279   TREE_LANG_FLAG_0 (EXPR_STMT_CHECK (NODE))
280 
281 /* Nonzero if this statement-expression does not have an associated scope.  */
282 #define STMT_EXPR_NO_SCOPE(NODE) \
283    TREE_LANG_FLAG_0 (STMT_EXPR_CHECK (NODE))
284 
285 /* Returns nonzero iff TYPE1 and TYPE2 are the same type, in the usual
286    sense of `same'.  */
287 #define same_type_p(TYPE1, TYPE2) \
288   comptypes ((TYPE1), (TYPE2), COMPARE_STRICT)
289 
290 /* Returns nonzero iff TYPE1 and TYPE2 are the same type, ignoring
291    top-level qualifiers.  */
292 #define same_type_ignoring_top_level_qualifiers_p(TYPE1, TYPE2) \
293   same_type_p (TYPE_MAIN_VARIANT (TYPE1), TYPE_MAIN_VARIANT (TYPE2))
294 
295 /* Nonzero if we are presently building a statement tree, rather
296    than expanding each statement as we encounter it.  */
297 #define building_stmt_tree()  (cur_stmt_list != NULL_TREE)
298 
299 /* Returns nonzero iff NODE is a declaration for the global function
300    `main'.  */
301 #define DECL_MAIN_P(NODE)				\
302    (DECL_EXTERN_C_FUNCTION_P (NODE)			\
303     && DECL_NAME (NODE) != NULL_TREE			\
304     && MAIN_NAME_P (DECL_NAME (NODE)))
305 
306 /* The overloaded FUNCTION_DECL.  */
307 #define OVL_FUNCTION(NODE) \
308   (((struct tree_overload*)OVERLOAD_CHECK (NODE))->function)
309 #define OVL_CHAIN(NODE)      TREE_CHAIN (NODE)
310 /* Polymorphic access to FUNCTION and CHAIN.  */
311 #define OVL_CURRENT(NODE)	\
312   ((TREE_CODE (NODE) == OVERLOAD) ? OVL_FUNCTION (NODE) : (NODE))
313 #define OVL_NEXT(NODE)		\
314   ((TREE_CODE (NODE) == OVERLOAD) ? TREE_CHAIN (NODE) : NULL_TREE)
315 /* If set, this was imported in a using declaration.
316    This is not to confuse with being used somewhere, which
317    is not important for this node.  */
318 #define OVL_USED(NODE)		TREE_USED (NODE)
319 
320 struct tree_overload GTY(())
321 {
322   struct tree_common common;
323   tree function;
324 };
325 
326 /* Returns true iff NODE is a BASELINK.  */
327 #define BASELINK_P(NODE) \
328   (TREE_CODE (NODE) == BASELINK)
329 /* The BINFO indicating the base from which the BASELINK_FUNCTIONS came.  */
330 #define BASELINK_BINFO(NODE) \
331   (((struct tree_baselink*) BASELINK_CHECK (NODE))->binfo)
332 /* The functions referred to by the BASELINK; either a FUNCTION_DECL,
333    a TEMPLATE_DECL, an OVERLOAD, or a TEMPLATE_ID_EXPR.  */
334 #define BASELINK_FUNCTIONS(NODE) \
335   (((struct tree_baselink*) BASELINK_CHECK (NODE))->functions)
336 /* The BINFO in which the search for the functions indicated by this baselink
337    began.  This base is used to determine the accessibility of functions
338    selected by overload resolution.  */
339 #define BASELINK_ACCESS_BINFO(NODE) \
340   (((struct tree_baselink*) BASELINK_CHECK (NODE))->access_binfo)
341 /* For a type-conversion operator, the BASELINK_OPTYPE indicates the type
342    to which the conversion should occur.  This value is important if
343    the BASELINK_FUNCTIONS include a template conversion operator --
344    the BASELINK_OPTYPE can be used to determine what type the user
345    requested.  */
346 #define BASELINK_OPTYPE(NODE) \
347   (TREE_CHAIN (BASELINK_CHECK (NODE)))
348 /* Non-zero if this baselink was from a qualified lookup.  */
349 #define BASELINK_QUALIFIED_P(NODE) \
350   TREE_LANG_FLAG_0 (BASELINK_CHECK (NODE))
351 
352 struct tree_baselink GTY(())
353 {
354   struct tree_common common;
355   tree binfo;
356   tree functions;
357   tree access_binfo;
358 };
359 
360 /* The different kinds of ids that we encounter.  */
361 
362 typedef enum cp_id_kind
363 {
364   /* Not an id at all.  */
365   CP_ID_KIND_NONE,
366   /* An unqualified-id that is not a template-id.  */
367   CP_ID_KIND_UNQUALIFIED,
368   /* An unqualified-id that is a dependent name.  */
369   CP_ID_KIND_UNQUALIFIED_DEPENDENT,
370   /* An unqualified template-id.  */
371   CP_ID_KIND_TEMPLATE_ID,
372   /* A qualified-id.  */
373   CP_ID_KIND_QUALIFIED
374 } cp_id_kind;
375 
376 /* Macros for access to language-specific slots in an identifier.  */
377 
378 #define IDENTIFIER_NAMESPACE_BINDINGS(NODE)	\
379   (LANG_IDENTIFIER_CAST (NODE)->namespace_bindings)
380 #define IDENTIFIER_TEMPLATE(NODE)	\
381   (LANG_IDENTIFIER_CAST (NODE)->class_template_info)
382 
383 /* The IDENTIFIER_BINDING is the innermost cxx_binding for the
384     identifier.  It's PREVIOUS is the next outermost binding.  Each
385     VALUE field is a DECL for the associated declaration.  Thus,
386     name lookup consists simply of pulling off the node at the front
387     of the list (modulo oddities for looking up the names of types,
388     and such.)  You can use SCOPE field to determine the scope
389     that bound the name.  */
390 #define IDENTIFIER_BINDING(NODE) \
391   (LANG_IDENTIFIER_CAST (NODE)->bindings)
392 
393 /* TREE_TYPE only indicates on local and class scope the current
394    type. For namespace scope, the presence of a type in any namespace
395    is indicated with global_type_node, and the real type behind must
396    be found through lookup.  */
397 #define IDENTIFIER_TYPE_VALUE(NODE) identifier_type_value (NODE)
398 #define REAL_IDENTIFIER_TYPE_VALUE(NODE) TREE_TYPE (NODE)
399 #define SET_IDENTIFIER_TYPE_VALUE(NODE,TYPE) (TREE_TYPE (NODE) = (TYPE))
400 #define IDENTIFIER_HAS_TYPE_VALUE(NODE) (IDENTIFIER_TYPE_VALUE (NODE) ? 1 : 0)
401 
402 #define IDENTIFIER_LABEL_VALUE(NODE) \
403   (LANG_IDENTIFIER_CAST (NODE)->label_value)
404 #define SET_IDENTIFIER_LABEL_VALUE(NODE, VALUE)   \
405   IDENTIFIER_LABEL_VALUE (NODE) = (VALUE)
406 
407 /* Nonzero if this identifier is used as a virtual function name somewhere
408    (optimizes searches).  */
409 #define IDENTIFIER_VIRTUAL_P(NODE) TREE_LANG_FLAG_1 (NODE)
410 
411 /* Nonzero if this identifier is the prefix for a mangled C++ operator
412    name.  */
413 #define IDENTIFIER_OPNAME_P(NODE) TREE_LANG_FLAG_2 (NODE)
414 
415 /* Nonzero if this identifier is the name of a type-conversion
416    operator.  */
417 #define IDENTIFIER_TYPENAME_P(NODE) \
418   TREE_LANG_FLAG_4 (NODE)
419 
420 /* Nonzero if this identifier is the name of a constructor or
421    destructor.  */
422 #define IDENTIFIER_CTOR_OR_DTOR_P(NODE) \
423   TREE_LANG_FLAG_3 (NODE)
424 
425 /* True iff NAME is the DECL_ASSEMBLER_NAME for an entity with vague
426    linkage which the prelinker has assigned to this translation
427    unit.  */
428 #define IDENTIFIER_REPO_CHOSEN(NAME) \
429   (TREE_LANG_FLAG_6 (NAME))
430 
431 /* In a RECORD_TYPE or UNION_TYPE, nonzero if any component is read-only.  */
432 #define C_TYPE_FIELDS_READONLY(TYPE) \
433   (LANG_TYPE_CLASS_CHECK (TYPE)->fields_readonly)
434 
435 /* The tokens stored in the default argument.  */
436 
437 #define DEFARG_TOKENS(NODE) \
438   (((struct tree_default_arg *)DEFAULT_ARG_CHECK (NODE))->tokens)
439 #define DEFARG_INSTANTIATIONS(NODE) \
440   (((struct tree_default_arg *)DEFAULT_ARG_CHECK (NODE))->instantiations)
441 
442 struct tree_default_arg GTY (())
443 {
444   struct tree_common common;
445   struct cp_token_cache *tokens;
446   VEC(tree,gc) *instantiations;
447 };
448 
449 enum cp_tree_node_structure_enum {
450   TS_CP_GENERIC,
451   TS_CP_IDENTIFIER,
452   TS_CP_TPI,
453   TS_CP_TINST_LEVEL,
454   TS_CP_PTRMEM,
455   TS_CP_BINDING,
456   TS_CP_OVERLOAD,
457   TS_CP_BASELINK,
458   TS_CP_WRAPPER,
459   TS_CP_DEFAULT_ARG,
460   LAST_TS_CP_ENUM
461 };
462 
463 /* The resulting tree type.  */
464 union lang_tree_node GTY((desc ("cp_tree_node_structure (&%h)"),
465        chain_next ("(union lang_tree_node *)TREE_CHAIN (&%h.generic)")))
466 {
467   union tree_node GTY ((tag ("TS_CP_GENERIC"),
468 			desc ("tree_node_structure (&%h)"))) generic;
469   struct template_parm_index_s GTY ((tag ("TS_CP_TPI"))) tpi;
470   struct tinst_level_s GTY ((tag ("TS_CP_TINST_LEVEL"))) tinst_level;
471   struct ptrmem_cst GTY ((tag ("TS_CP_PTRMEM"))) ptrmem;
472   struct tree_overload GTY ((tag ("TS_CP_OVERLOAD"))) overload;
473   struct tree_baselink GTY ((tag ("TS_CP_BASELINK"))) baselink;
474   struct tree_default_arg GTY ((tag ("TS_CP_DEFAULT_ARG"))) default_arg;
475   struct lang_identifier GTY ((tag ("TS_CP_IDENTIFIER"))) identifier;
476 };
477 
478 
479 enum cp_tree_index
480 {
481     CPTI_JAVA_BYTE_TYPE,
482     CPTI_JAVA_SHORT_TYPE,
483     CPTI_JAVA_INT_TYPE,
484     CPTI_JAVA_LONG_TYPE,
485     CPTI_JAVA_FLOAT_TYPE,
486     CPTI_JAVA_DOUBLE_TYPE,
487     CPTI_JAVA_CHAR_TYPE,
488     CPTI_JAVA_BOOLEAN_TYPE,
489 
490     CPTI_WCHAR_DECL,
491     CPTI_VTABLE_ENTRY_TYPE,
492     CPTI_DELTA_TYPE,
493     CPTI_VTABLE_INDEX_TYPE,
494     CPTI_CLEANUP_TYPE,
495     CPTI_VTT_PARM_TYPE,
496 
497     CPTI_CLASS_TYPE,
498     CPTI_UNKNOWN_TYPE,
499     CPTI_VTBL_TYPE,
500     CPTI_VTBL_PTR_TYPE,
501     CPTI_STD,
502     CPTI_ABI,
503     CPTI_CONST_TYPE_INFO_TYPE,
504     CPTI_TYPE_INFO_PTR_TYPE,
505     CPTI_ABORT_FNDECL,
506     CPTI_GLOBAL_DELETE_FNDECL,
507     CPTI_AGGR_TAG,
508 
509     CPTI_CTOR_IDENTIFIER,
510     CPTI_COMPLETE_CTOR_IDENTIFIER,
511     CPTI_BASE_CTOR_IDENTIFIER,
512     CPTI_DTOR_IDENTIFIER,
513     CPTI_COMPLETE_DTOR_IDENTIFIER,
514     CPTI_BASE_DTOR_IDENTIFIER,
515     CPTI_DELETING_DTOR_IDENTIFIER,
516     CPTI_DELTA_IDENTIFIER,
517     CPTI_IN_CHARGE_IDENTIFIER,
518     CPTI_VTT_PARM_IDENTIFIER,
519     CPTI_NELTS_IDENTIFIER,
520     CPTI_THIS_IDENTIFIER,
521     CPTI_PFN_IDENTIFIER,
522     CPTI_VPTR_IDENTIFIER,
523     CPTI_STD_IDENTIFIER,
524 
525     CPTI_LANG_NAME_C,
526     CPTI_LANG_NAME_CPLUSPLUS,
527     CPTI_LANG_NAME_JAVA,
528 
529     CPTI_EMPTY_EXCEPT_SPEC,
530     CPTI_JCLASS,
531     CPTI_TERMINATE,
532     CPTI_CALL_UNEXPECTED,
533     CPTI_ATEXIT,
534     CPTI_DSO_HANDLE,
535     CPTI_DCAST,
536 
537     CPTI_KEYED_CLASSES,
538 
539     CPTI_MAX
540 };
541 
542 extern GTY(()) tree cp_global_trees[CPTI_MAX];
543 
544 #define java_byte_type_node		cp_global_trees[CPTI_JAVA_BYTE_TYPE]
545 #define java_short_type_node		cp_global_trees[CPTI_JAVA_SHORT_TYPE]
546 #define java_int_type_node		cp_global_trees[CPTI_JAVA_INT_TYPE]
547 #define java_long_type_node		cp_global_trees[CPTI_JAVA_LONG_TYPE]
548 #define java_float_type_node		cp_global_trees[CPTI_JAVA_FLOAT_TYPE]
549 #define java_double_type_node		cp_global_trees[CPTI_JAVA_DOUBLE_TYPE]
550 #define java_char_type_node		cp_global_trees[CPTI_JAVA_CHAR_TYPE]
551 #define java_boolean_type_node		cp_global_trees[CPTI_JAVA_BOOLEAN_TYPE]
552 
553 #define wchar_decl_node			cp_global_trees[CPTI_WCHAR_DECL]
554 #define vtable_entry_type		cp_global_trees[CPTI_VTABLE_ENTRY_TYPE]
555 /* The type used to represent an offset by which to adjust the `this'
556    pointer in pointer-to-member types.  */
557 #define delta_type_node			cp_global_trees[CPTI_DELTA_TYPE]
558 /* The type used to represent an index into the vtable.  */
559 #define vtable_index_type		cp_global_trees[CPTI_VTABLE_INDEX_TYPE]
560 
561 #define class_type_node			cp_global_trees[CPTI_CLASS_TYPE]
562 #define unknown_type_node		cp_global_trees[CPTI_UNKNOWN_TYPE]
563 #define vtbl_type_node			cp_global_trees[CPTI_VTBL_TYPE]
564 #define vtbl_ptr_type_node		cp_global_trees[CPTI_VTBL_PTR_TYPE]
565 #define std_node			cp_global_trees[CPTI_STD]
566 #define abi_node			cp_global_trees[CPTI_ABI]
567 #define const_type_info_type_node	cp_global_trees[CPTI_CONST_TYPE_INFO_TYPE]
568 #define type_info_ptr_type		cp_global_trees[CPTI_TYPE_INFO_PTR_TYPE]
569 #define abort_fndecl			cp_global_trees[CPTI_ABORT_FNDECL]
570 #define global_delete_fndecl		cp_global_trees[CPTI_GLOBAL_DELETE_FNDECL]
571 #define current_aggr			cp_global_trees[CPTI_AGGR_TAG]
572 
573 /* We cache these tree nodes so as to call get_identifier less
574    frequently.  */
575 
576 /* The name of a constructor that takes an in-charge parameter to
577    decide whether or not to construct virtual base classes.  */
578 #define ctor_identifier			cp_global_trees[CPTI_CTOR_IDENTIFIER]
579 /* The name of a constructor that constructs virtual base classes.  */
580 #define complete_ctor_identifier	cp_global_trees[CPTI_COMPLETE_CTOR_IDENTIFIER]
581 /* The name of a constructor that does not construct virtual base classes.  */
582 #define base_ctor_identifier		cp_global_trees[CPTI_BASE_CTOR_IDENTIFIER]
583 /* The name of a destructor that takes an in-charge parameter to
584    decide whether or not to destroy virtual base classes and whether
585    or not to delete the object.  */
586 #define dtor_identifier			cp_global_trees[CPTI_DTOR_IDENTIFIER]
587 /* The name of a destructor that destroys virtual base classes.  */
588 #define complete_dtor_identifier	cp_global_trees[CPTI_COMPLETE_DTOR_IDENTIFIER]
589 /* The name of a destructor that does not destroy virtual base
590    classes.  */
591 #define base_dtor_identifier		cp_global_trees[CPTI_BASE_DTOR_IDENTIFIER]
592 /* The name of a destructor that destroys virtual base classes, and
593    then deletes the entire object.  */
594 #define deleting_dtor_identifier	cp_global_trees[CPTI_DELETING_DTOR_IDENTIFIER]
595 #define delta_identifier		cp_global_trees[CPTI_DELTA_IDENTIFIER]
596 #define in_charge_identifier		cp_global_trees[CPTI_IN_CHARGE_IDENTIFIER]
597 /* The name of the parameter that contains a pointer to the VTT to use
598    for this subobject constructor or destructor.  */
599 #define vtt_parm_identifier		cp_global_trees[CPTI_VTT_PARM_IDENTIFIER]
600 #define nelts_identifier		cp_global_trees[CPTI_NELTS_IDENTIFIER]
601 #define this_identifier			cp_global_trees[CPTI_THIS_IDENTIFIER]
602 #define pfn_identifier			cp_global_trees[CPTI_PFN_IDENTIFIER]
603 #define vptr_identifier			cp_global_trees[CPTI_VPTR_IDENTIFIER]
604 /* The name of the std namespace.  */
605 #define std_identifier			cp_global_trees[CPTI_STD_IDENTIFIER]
606 #define lang_name_c			cp_global_trees[CPTI_LANG_NAME_C]
607 #define lang_name_cplusplus		cp_global_trees[CPTI_LANG_NAME_CPLUSPLUS]
608 #define lang_name_java			cp_global_trees[CPTI_LANG_NAME_JAVA]
609 
610 /* Exception specifier used for throw().  */
611 #define empty_except_spec		cp_global_trees[CPTI_EMPTY_EXCEPT_SPEC]
612 
613 /* If non-NULL, a POINTER_TYPE equivalent to (java::lang::Class*).  */
614 #define jclass_node			cp_global_trees[CPTI_JCLASS]
615 
616 /* The declaration for `std::terminate'.  */
617 #define terminate_node			cp_global_trees[CPTI_TERMINATE]
618 
619 /* The declaration for "__cxa_call_unexpected".  */
620 #define call_unexpected_node		cp_global_trees[CPTI_CALL_UNEXPECTED]
621 
622 /* A pointer to `std::atexit'.  */
623 #define atexit_node			cp_global_trees[CPTI_ATEXIT]
624 
625 /* A pointer to `__dso_handle'.  */
626 #define dso_handle_node			cp_global_trees[CPTI_DSO_HANDLE]
627 
628 /* The declaration of the dynamic_cast runtime.  */
629 #define dynamic_cast_node		cp_global_trees[CPTI_DCAST]
630 
631 /* The type of a destructor.  */
632 #define cleanup_type			cp_global_trees[CPTI_CLEANUP_TYPE]
633 
634 /* The type of the vtt parameter passed to subobject constructors and
635    destructors.  */
636 #define vtt_parm_type			cp_global_trees[CPTI_VTT_PARM_TYPE]
637 
638 /* A TREE_LIST of the dynamic classes whose vtables may have to be
639    emitted in this translation unit.  */
640 
641 #define keyed_classes			cp_global_trees[CPTI_KEYED_CLASSES]
642 
643 /* Node to indicate default access. This must be distinct from the
644    access nodes in tree.h.  */
645 
646 #define access_default_node		null_node
647 
648 /* Global state.  */
649 
650 struct saved_scope GTY(())
651 {
652   VEC(cxx_saved_binding,gc) *old_bindings;
653   tree old_namespace;
654   tree decl_ns_list;
655   tree class_name;
656   tree class_type;
657   tree access_specifier;
658   tree function_decl;
659   VEC(tree,gc) *lang_base;
660   tree lang_name;
661   tree template_parms;
662   struct cp_binding_level *x_previous_class_level;
663   tree x_saved_tree;
664 
665   HOST_WIDE_INT x_processing_template_decl;
666   int x_processing_specialization;
667   bool x_processing_explicit_instantiation;
668   int need_pop_function_context;
669   bool skip_evaluation;
670 
671   struct stmt_tree_s x_stmt_tree;
672 
673   struct cp_binding_level *class_bindings;
674   struct cp_binding_level *bindings;
675 
676   struct saved_scope *prev;
677 };
678 
679 /* The current open namespace.  */
680 
681 #define current_namespace scope_chain->old_namespace
682 
683 /* The stack for namespaces of current declarations.  */
684 
685 #define decl_namespace_list scope_chain->decl_ns_list
686 
687 /* IDENTIFIER_NODE: name of current class */
688 
689 #define current_class_name scope_chain->class_name
690 
691 /* _TYPE: the type of the current class */
692 
693 #define current_class_type scope_chain->class_type
694 
695 /* When parsing a class definition, the access specifier most recently
696    given by the user, or, if no access specifier was given, the
697    default value appropriate for the kind of class (i.e., struct,
698    class, or union).  */
699 
700 #define current_access_specifier scope_chain->access_specifier
701 
702 /* Pointer to the top of the language name stack.  */
703 
704 #define current_lang_base scope_chain->lang_base
705 #define current_lang_name scope_chain->lang_name
706 
707 /* Parsing a function declarator leaves a list of parameter names
708    or a chain or parameter decls here.  */
709 
710 #define current_template_parms scope_chain->template_parms
711 
712 #define processing_template_decl scope_chain->x_processing_template_decl
713 #define processing_specialization scope_chain->x_processing_specialization
714 #define processing_explicit_instantiation scope_chain->x_processing_explicit_instantiation
715 
716 /* The cached class binding level, from the most recently exited
717    class, or NULL if none.  */
718 
719 #define previous_class_level scope_chain->x_previous_class_level
720 
721 /* A list of private types mentioned, for deferred access checking.  */
722 
723 extern GTY(()) struct saved_scope *scope_chain;
724 
725 struct cxx_int_tree_map GTY(())
726 {
727   unsigned int uid;
728   tree to;
729 };
730 
731 extern unsigned int cxx_int_tree_map_hash (const void *);
732 extern int cxx_int_tree_map_eq (const void *, const void *);
733 
734 /* Global state pertinent to the current function.  */
735 
736 struct language_function GTY(())
737 {
738   struct c_language_function base;
739 
740   tree x_cdtor_label;
741   tree x_current_class_ptr;
742   tree x_current_class_ref;
743   tree x_eh_spec_block;
744   tree x_in_charge_parm;
745   tree x_vtt_parm;
746   tree x_return_value;
747 
748   int returns_value;
749   int returns_null;
750   int returns_abnormally;
751   int in_function_try_handler;
752   int in_base_initializer;
753 
754   /* True if this function can throw an exception.  */
755   BOOL_BITFIELD can_throw : 1;
756 
757   htab_t GTY((param_is(struct named_label_entry))) x_named_labels;
758   struct cp_binding_level *bindings;
759   VEC(tree,gc) *x_local_names;
760   htab_t GTY((param_is (struct cxx_int_tree_map))) extern_decl_map;
761 };
762 
763 /* The current C++-specific per-function global variables.  */
764 
765 #define cp_function_chain (cfun->language)
766 
767 /* In a constructor destructor, the point at which all derived class
768    destroying/construction has been has been done. Ie. just before a
769    constructor returns, or before any base class destroying will be done
770    in a destructor.  */
771 
772 #define cdtor_label cp_function_chain->x_cdtor_label
773 
774 /* When we're processing a member function, current_class_ptr is the
775    PARM_DECL for the `this' pointer.  The current_class_ref is an
776    expression for `*this'.  */
777 
778 #define current_class_ptr \
779   (cfun ? cp_function_chain->x_current_class_ptr : NULL_TREE)
780 #define current_class_ref \
781   (cfun ? cp_function_chain->x_current_class_ref : NULL_TREE)
782 
783 /* The EH_SPEC_BLOCK for the exception-specifiers for the current
784    function, if any.  */
785 
786 #define current_eh_spec_block cp_function_chain->x_eh_spec_block
787 
788 /* The `__in_chrg' parameter for the current function.  Only used for
789    constructors and destructors.  */
790 
791 #define current_in_charge_parm cp_function_chain->x_in_charge_parm
792 
793 /* The `__vtt_parm' parameter for the current function.  Only used for
794    constructors and destructors.  */
795 
796 #define current_vtt_parm cp_function_chain->x_vtt_parm
797 
798 /* Set to 0 at beginning of a function definition, set to 1 if
799    a return statement that specifies a return value is seen.  */
800 
801 #define current_function_returns_value cp_function_chain->returns_value
802 
803 /* Set to 0 at beginning of a function definition, set to 1 if
804    a return statement with no argument is seen.  */
805 
806 #define current_function_returns_null cp_function_chain->returns_null
807 
808 /* Set to 0 at beginning of a function definition, set to 1 if
809    a call to a noreturn function is seen.  */
810 
811 #define current_function_returns_abnormally \
812   cp_function_chain->returns_abnormally
813 
814 /* Nonzero if we are processing a base initializer.  Zero elsewhere.  */
815 #define in_base_initializer cp_function_chain->in_base_initializer
816 
817 #define in_function_try_handler cp_function_chain->in_function_try_handler
818 
819 /* Expression always returned from function, or error_mark_node
820    otherwise, for use by the automatic named return value optimization.  */
821 
822 #define current_function_return_value \
823   (cp_function_chain->x_return_value)
824 
825 /* True if NAME is the IDENTIFIER_NODE for an overloaded "operator
826    new" or "operator delete".  */
827 #define NEW_DELETE_OPNAME_P(NAME)		\
828   ((NAME) == ansi_opname (NEW_EXPR)		\
829    || (NAME) == ansi_opname (VEC_NEW_EXPR)	\
830    || (NAME) == ansi_opname (DELETE_EXPR)	\
831    || (NAME) == ansi_opname (VEC_DELETE_EXPR))
832 
833 #define ansi_opname(CODE) \
834   (operator_name_info[(int) (CODE)].identifier)
835 #define ansi_assopname(CODE) \
836   (assignment_operator_name_info[(int) (CODE)].identifier)
837 
838 /* True if NODE is an erroneous expression.  */
839 
840 #define error_operand_p(NODE)					\
841   ((NODE) == error_mark_node					\
842    || ((NODE) && TREE_TYPE ((NODE)) == error_mark_node))
843 
844 /* C++ language-specific tree codes.  */
845 #define DEFTREECODE(SYM, NAME, TYPE, LENGTH) SYM,
846 enum cplus_tree_code {
847   CP_DUMMY_TREE_CODE = LAST_C_TREE_CODE,
848 #include "cp-tree.def"
849   LAST_CPLUS_TREE_CODE
850 };
851 #undef DEFTREECODE
852 
853 /* TRUE if a tree code represents a statement.  */
854 extern bool statement_code_p[MAX_TREE_CODES];
855 
856 #define STATEMENT_CODE_P(CODE) statement_code_p[(int) (CODE)]
857 
858 enum languages { lang_c, lang_cplusplus, lang_java };
859 
860 /* Macros to make error reporting functions' lives easier.  */
861 #define TYPE_IDENTIFIER(NODE) (DECL_NAME (TYPE_NAME (NODE)))
862 #define TYPE_LINKAGE_IDENTIFIER(NODE) \
863   (TYPE_IDENTIFIER (TYPE_MAIN_VARIANT (NODE)))
864 #define TYPE_NAME_STRING(NODE) (IDENTIFIER_POINTER (TYPE_IDENTIFIER (NODE)))
865 #define TYPE_NAME_LENGTH(NODE) (IDENTIFIER_LENGTH (TYPE_IDENTIFIER (NODE)))
866 
867 /* Nonzero if NODE has no name for linkage purposes.  */
868 #define TYPE_ANONYMOUS_P(NODE) \
869   (TAGGED_TYPE_P (NODE) && ANON_AGGRNAME_P (TYPE_LINKAGE_IDENTIFIER (NODE)))
870 
871 /* The _DECL for this _TYPE.  */
872 #define TYPE_MAIN_DECL(NODE) (TYPE_STUB_DECL (TYPE_MAIN_VARIANT (NODE)))
873 
874 /* Nonzero if T is a class (or struct or union) type.  Also nonzero
875    for template type parameters, typename types, and instantiated
876    template template parameters.  Despite its name,
877    this macro has nothing to do with the definition of aggregate given
878    in the standard.  Think of this macro as MAYBE_CLASS_TYPE_P.  Keep
879    these checks in ascending code order.  */
880 #define IS_AGGR_TYPE(T)					\
881   (TREE_CODE (T) == TEMPLATE_TYPE_PARM			\
882    || TREE_CODE (T) == TYPENAME_TYPE			\
883    || TREE_CODE (T) == TYPEOF_TYPE			\
884    || TREE_CODE (T) == BOUND_TEMPLATE_TEMPLATE_PARM	\
885    || TYPE_LANG_FLAG_5 (T))
886 
887 /* Set IS_AGGR_TYPE for T to VAL.  T must be a class, struct, or
888    union type.  */
889 #define SET_IS_AGGR_TYPE(T, VAL) \
890   (TYPE_LANG_FLAG_5 (T) = (VAL))
891 
892 /* Nonzero if T is a class type.  Zero for template type parameters,
893    typename types, and so forth.  */
894 #define CLASS_TYPE_P(T) \
895   (IS_AGGR_TYPE_CODE (TREE_CODE (T)) && TYPE_LANG_FLAG_5 (T))
896 
897 /* Keep these checks in ascending code order.  */
898 #define IS_AGGR_TYPE_CODE(T)	\
899   ((T) == RECORD_TYPE || (T) == UNION_TYPE)
900 #define TAGGED_TYPE_P(T) \
901   (CLASS_TYPE_P (T) || TREE_CODE (T) == ENUMERAL_TYPE)
902 #define IS_OVERLOAD_TYPE(T) TAGGED_TYPE_P (T)
903 
904 /* True if this a "Java" type, defined in 'extern "Java"'.  */
905 #define TYPE_FOR_JAVA(NODE) TYPE_LANG_FLAG_3 (NODE)
906 
907 /* True if this type is dependent.  This predicate is only valid if
908    TYPE_DEPENDENT_P_VALID is true.  */
909 #define TYPE_DEPENDENT_P(NODE) TYPE_LANG_FLAG_0 (NODE)
910 
911 /* True if dependent_type_p has been called for this type, with the
912    result that TYPE_DEPENDENT_P is valid.  */
913 #define TYPE_DEPENDENT_P_VALID(NODE) TYPE_LANG_FLAG_6(NODE)
914 
915 /* Nonzero if this type is const-qualified.  */
916 #define CP_TYPE_CONST_P(NODE)				\
917   ((cp_type_quals (NODE) & TYPE_QUAL_CONST) != 0)
918 
919 /* Nonzero if this type is volatile-qualified.  */
920 #define CP_TYPE_VOLATILE_P(NODE)			\
921   ((cp_type_quals (NODE) & TYPE_QUAL_VOLATILE) != 0)
922 
923 /* Nonzero if this type is restrict-qualified.  */
924 #define CP_TYPE_RESTRICT_P(NODE)			\
925   ((cp_type_quals (NODE) & TYPE_QUAL_RESTRICT) != 0)
926 
927 /* Nonzero if this type is const-qualified, but not
928    volatile-qualified.  Other qualifiers are ignored.  This macro is
929    used to test whether or not it is OK to bind an rvalue to a
930    reference.  */
931 #define CP_TYPE_CONST_NON_VOLATILE_P(NODE)				\
932   ((cp_type_quals (NODE) & (TYPE_QUAL_CONST | TYPE_QUAL_VOLATILE))	\
933    == TYPE_QUAL_CONST)
934 
935 #define FUNCTION_ARG_CHAIN(NODE) \
936   TREE_CHAIN (TYPE_ARG_TYPES (TREE_TYPE (NODE)))
937 
938 /* Given a FUNCTION_DECL, returns the first TREE_LIST out of TYPE_ARG_TYPES
939    which refers to a user-written parameter.  */
940 #define FUNCTION_FIRST_USER_PARMTYPE(NODE) \
941   skip_artificial_parms_for ((NODE), TYPE_ARG_TYPES (TREE_TYPE (NODE)))
942 
943 /* Similarly, but for DECL_ARGUMENTS.  */
944 #define FUNCTION_FIRST_USER_PARM(NODE) \
945   skip_artificial_parms_for ((NODE), DECL_ARGUMENTS (NODE))
946 
947 #define PROMOTES_TO_AGGR_TYPE(NODE, CODE)	\
948   (((CODE) == TREE_CODE (NODE)			\
949     && IS_AGGR_TYPE (TREE_TYPE (NODE)))		\
950    || IS_AGGR_TYPE (NODE))
951 
952 /* Nonzero iff TYPE is derived from PARENT. Ignores accessibility and
953    ambiguity issues.  */
954 #define DERIVED_FROM_P(PARENT, TYPE) \
955   (lookup_base ((TYPE), (PARENT), ba_any, NULL) != NULL_TREE)
956 /* Nonzero iff TYPE is uniquely derived from PARENT. Ignores
957    accessibility.  */
958 #define UNIQUELY_DERIVED_FROM_P(PARENT, TYPE) \
959   (lookup_base ((TYPE), (PARENT), ba_unique | ba_quiet, NULL) != NULL_TREE)
960 /* Nonzero iff TYPE is publicly & uniquely derived from PARENT.  */
961 #define PUBLICLY_UNIQUELY_DERIVED_P(PARENT, TYPE) \
962   (lookup_base ((TYPE), (PARENT), ba_ignore_scope | ba_check | ba_quiet, \
963 		NULL) != NULL_TREE)
964 
965 /* Gives the visibility specification for a class type.  */
966 #define CLASSTYPE_VISIBILITY(TYPE)		\
967 	DECL_VISIBILITY (TYPE_NAME (TYPE))
968 #define CLASSTYPE_VISIBILITY_SPECIFIED(TYPE)	\
969 	DECL_VISIBILITY_SPECIFIED (TYPE_NAME (TYPE))
970 
971 typedef struct tree_pair_s GTY (())
972 {
973   tree purpose;
974   tree value;
975 } tree_pair_s;
976 typedef tree_pair_s *tree_pair_p;
977 DEF_VEC_O (tree_pair_s);
978 DEF_VEC_ALLOC_O (tree_pair_s,gc);
979 
980 /* This is a few header flags for 'struct lang_type'.  Actually,
981    all but the first are used only for lang_type_class; they
982    are put in this structure to save space.  */
983 struct lang_type_header GTY(())
984 {
985   BOOL_BITFIELD is_lang_type_class : 1;
986 
987   BOOL_BITFIELD has_type_conversion : 1;
988   BOOL_BITFIELD has_init_ref : 1;
989   BOOL_BITFIELD has_default_ctor : 1;
990   BOOL_BITFIELD const_needs_init : 1;
991   BOOL_BITFIELD ref_needs_init : 1;
992   BOOL_BITFIELD has_const_assign_ref : 1;
993 
994   BOOL_BITFIELD spare : 1;
995 };
996 
997 /* This structure provides additional information above and beyond
998    what is provide in the ordinary tree_type.  In the past, we used it
999    for the types of class types, template parameters types, typename
1000    types, and so forth.  However, there can be many (tens to hundreds
1001    of thousands) of template parameter types in a compilation, and
1002    there's no need for this additional information in that case.
1003    Therefore, we now use this data structure only for class types.
1004 
1005    In the past, it was thought that there would be relatively few
1006    class types.  However, in the presence of heavy use of templates,
1007    many (i.e., thousands) of classes can easily be generated.
1008    Therefore, we should endeavor to keep the size of this structure to
1009    a minimum.  */
1010 struct lang_type_class GTY(())
1011 {
1012   struct lang_type_header h;
1013 
1014   unsigned char align;
1015 
1016   unsigned has_mutable : 1;
1017   unsigned com_interface : 1;
1018   unsigned non_pod_class : 1;
1019   unsigned nearly_empty_p : 1;
1020   unsigned user_align : 1;
1021   unsigned has_assign_ref : 1;
1022   unsigned has_new : 1;
1023   unsigned has_array_new : 1;
1024 
1025   unsigned gets_delete : 2;
1026   unsigned interface_only : 1;
1027   unsigned interface_unknown : 1;
1028   unsigned contains_empty_class_p : 1;
1029   unsigned anon_aggr : 1;
1030   unsigned non_zero_init : 1;
1031   unsigned empty_p : 1;
1032 
1033   unsigned vec_new_uses_cookie : 1;
1034   unsigned declared_class : 1;
1035   unsigned diamond_shaped : 1;
1036   unsigned repeated_base : 1;
1037   unsigned being_defined : 1;
1038   unsigned java_interface : 1;
1039   unsigned debug_requested : 1;
1040   unsigned fields_readonly : 1;
1041 
1042   unsigned use_template : 2;
1043   unsigned ptrmemfunc_flag : 1;
1044   unsigned was_anonymous : 1;
1045   unsigned lazy_default_ctor : 1;
1046   unsigned lazy_copy_ctor : 1;
1047   unsigned lazy_assignment_op : 1;
1048   unsigned lazy_destructor : 1;
1049 
1050   unsigned has_const_init_ref : 1;
1051   unsigned has_complex_init_ref : 1;
1052   unsigned has_complex_assign_ref : 1;
1053   unsigned non_aggregate : 1;
1054 
1055   /* APPLE LOCAL begin omit calls to empty destructors 5559195 */
1056   unsigned has_nontrivial_destructor_body : 1;
1057   unsigned destructor_nontrivial_because_of_base : 1;
1058   unsigned destructor_triviality_final : 1;
1059   /* APPLE LOCAL end omit calls to empty destructors 5559195 */
1060 
1061 
1062   /* When adding a flag here, consider whether or not it ought to
1063      apply to a template instance if it applies to the template.  If
1064      so, make sure to copy it in instantiate_class_template!  */
1065 
1066   /* There are some bits left to fill out a 32-bit word.  Keep track
1067      of this by updating the size of this bitfield whenever you add or
1068      remove a flag.  */
1069   /* APPLE LOCAL begin omit calls to empty destructors 5559195 */
1070   unsigned dummy : 10;
1071   /* APPLE LOCAL end omit calls to empty destructors 5559195 */
1072 
1073   tree primary_base;
1074   VEC(tree_pair_s,gc) *vcall_indices;
1075   tree vtables;
1076   tree typeinfo_var;
1077   VEC(tree,gc) *vbases;
1078   binding_table nested_udts;
1079   tree as_base;
1080   VEC(tree,gc) *pure_virtuals;
1081   tree friend_classes;
1082   VEC(tree,gc) * GTY((reorder ("resort_type_method_vec"))) methods;
1083   tree key_method;
1084   tree decl_list;
1085   tree template_info;
1086   tree befriending_classes;
1087   /* In a RECORD_TYPE, information specific to Objective-C++, such
1088      as a list of adopted protocols or a pointer to a corresponding
1089      @interface.  See objc/objc-act.h for details.  */
1090   tree objc_info;
1091 };
1092 
1093 struct lang_type_ptrmem GTY(())
1094 {
1095   struct lang_type_header h;
1096   tree record;
1097 };
1098 
1099 struct lang_type GTY(())
1100 {
1101   union lang_type_u
1102   {
1103     struct lang_type_header GTY((skip (""))) h;
1104     struct lang_type_class  GTY((tag ("1"))) c;
1105     struct lang_type_ptrmem GTY((tag ("0"))) ptrmem;
1106   } GTY((desc ("%h.h.is_lang_type_class"))) u;
1107 };
1108 
1109 #if defined ENABLE_TREE_CHECKING && (GCC_VERSION >= 2007)
1110 
1111 #define LANG_TYPE_CLASS_CHECK(NODE) __extension__		\
1112 ({  struct lang_type *lt = TYPE_LANG_SPECIFIC (NODE);		\
1113     if (! lt->u.h.is_lang_type_class)				\
1114       lang_check_failed (__FILE__, __LINE__, __FUNCTION__);	\
1115     &lt->u.c; })
1116 
1117 #define LANG_TYPE_PTRMEM_CHECK(NODE) __extension__		\
1118 ({  struct lang_type *lt = TYPE_LANG_SPECIFIC (NODE);		\
1119     if (lt->u.h.is_lang_type_class)				\
1120       lang_check_failed (__FILE__, __LINE__, __FUNCTION__);	\
1121     &lt->u.ptrmem; })
1122 
1123 #else
1124 
1125 #define LANG_TYPE_CLASS_CHECK(NODE) (&TYPE_LANG_SPECIFIC (NODE)->u.c)
1126 #define LANG_TYPE_PTRMEM_CHECK(NODE) (&TYPE_LANG_SPECIFIC (NODE)->u.ptrmem)
1127 
1128 #endif /* ENABLE_TREE_CHECKING */
1129 
1130 /* Fields used for storing information before the class is defined.
1131    After the class is defined, these fields hold other information.  */
1132 
1133 /* VEC(tree) of friends which were defined inline in this class
1134    definition.  */
1135 #define CLASSTYPE_INLINE_FRIENDS(NODE) CLASSTYPE_PURE_VIRTUALS (NODE)
1136 
1137 /* Nonzero for _CLASSTYPE means that operator delete is defined.  */
1138 #define TYPE_GETS_DELETE(NODE) (LANG_TYPE_CLASS_CHECK (NODE)->gets_delete)
1139 #define TYPE_GETS_REG_DELETE(NODE) (TYPE_GETS_DELETE (NODE) & 1)
1140 
1141 /* Nonzero if `new NODE[x]' should cause the allocation of extra
1142    storage to indicate how many array elements are in use.  */
1143 #define TYPE_VEC_NEW_USES_COOKIE(NODE)			\
1144   (CLASS_TYPE_P (NODE)					\
1145    && LANG_TYPE_CLASS_CHECK (NODE)->vec_new_uses_cookie)
1146 
1147 /* Nonzero means that this _CLASSTYPE node defines ways of converting
1148    itself to other types.  */
1149 #define TYPE_HAS_CONVERSION(NODE) \
1150   (LANG_TYPE_CLASS_CHECK (NODE)->h.has_type_conversion)
1151 
1152 /* Nonzero means that NODE (a class type) has a default constructor --
1153    but that it has not yet been declared.  */
1154 #define CLASSTYPE_LAZY_DEFAULT_CTOR(NODE) \
1155   (LANG_TYPE_CLASS_CHECK (NODE)->lazy_default_ctor)
1156 
1157 /* Nonzero means that NODE (a class type) has a copy constructor --
1158    but that it has not yet been declared.  */
1159 #define CLASSTYPE_LAZY_COPY_CTOR(NODE) \
1160   (LANG_TYPE_CLASS_CHECK (NODE)->lazy_copy_ctor)
1161 
1162 /* Nonzero means that NODE (a class type) has an assignment operator
1163    -- but that it has not yet been declared.  */
1164 #define CLASSTYPE_LAZY_ASSIGNMENT_OP(NODE) \
1165   (LANG_TYPE_CLASS_CHECK (NODE)->lazy_assignment_op)
1166 
1167 /* Nonzero means that NODE (a class type) has a destructor -- but that
1168    it has not yet been declared.  */
1169 #define CLASSTYPE_LAZY_DESTRUCTOR(NODE) \
1170   (LANG_TYPE_CLASS_CHECK (NODE)->lazy_destructor)
1171 
1172 /* Nonzero means that this _CLASSTYPE node overloads operator=(X&).  */
1173 #define TYPE_HAS_ASSIGN_REF(NODE) (LANG_TYPE_CLASS_CHECK (NODE)->has_assign_ref)
1174 
1175 /* True iff the class type NODE has an "operator =" whose parameter
1176    has a parameter of type "const X&".  */
1177 #define TYPE_HAS_CONST_ASSIGN_REF(NODE) \
1178   (LANG_TYPE_CLASS_CHECK (NODE)->h.has_const_assign_ref)
1179 
1180 /* Nonzero means that this _CLASSTYPE node has an X(X&) constructor.  */
1181 #define TYPE_HAS_INIT_REF(NODE) (LANG_TYPE_CLASS_CHECK (NODE)->h.has_init_ref)
1182 #define TYPE_HAS_CONST_INIT_REF(NODE) \
1183   (LANG_TYPE_CLASS_CHECK (NODE)->has_const_init_ref)
1184 
1185 /* Nonzero if this class defines an overloaded operator new.  (An
1186    operator new [] doesn't count.)  */
1187 #define TYPE_HAS_NEW_OPERATOR(NODE) \
1188   (LANG_TYPE_CLASS_CHECK (NODE)->has_new)
1189 
1190 /* Nonzero if this class defines an overloaded operator new[].  */
1191 #define TYPE_HAS_ARRAY_NEW_OPERATOR(NODE) \
1192   (LANG_TYPE_CLASS_CHECK (NODE)->has_array_new)
1193 
1194 /* Nonzero means that this type is being defined.  I.e., the left brace
1195    starting the definition of this type has been seen.  */
1196 #define TYPE_BEING_DEFINED(NODE) (LANG_TYPE_CLASS_CHECK (NODE)->being_defined)
1197 
1198 /* Mark bits for repeated base checks.  */
1199 #define TYPE_MARKED_P(NODE) TREE_LANG_FLAG_6 (TYPE_CHECK (NODE))
1200 
1201 /* Nonzero if the class NODE has multiple paths to the same (virtual)
1202    base object.  */
1203 #define CLASSTYPE_DIAMOND_SHAPED_P(NODE) \
1204   (LANG_TYPE_CLASS_CHECK(NODE)->diamond_shaped)
1205 
1206 /* Nonzero if the class NODE has multiple instances of the same base
1207    type.  */
1208 #define CLASSTYPE_REPEATED_BASE_P(NODE) \
1209   (LANG_TYPE_CLASS_CHECK(NODE)->repeated_base)
1210 
1211 /* The member function with which the vtable will be emitted:
1212    the first noninline non-pure-virtual member function.  NULL_TREE
1213    if there is no key function or if this is a class template */
1214 #define CLASSTYPE_KEY_METHOD(NODE) (LANG_TYPE_CLASS_CHECK (NODE)->key_method)
1215 
1216 /* Vector member functions defined in this class.  Each element is
1217    either a FUNCTION_DECL, a TEMPLATE_DECL, or an OVERLOAD.  All
1218    functions with the same name end up in the same slot.  The first
1219    two elements are for constructors, and destructors, respectively.
1220    All template conversion operators to innermost template dependent
1221    types are overloaded on the next slot, if they exist.  Note, the
1222    names for these functions will not all be the same.  The
1223    non-template conversion operators & templated conversions to
1224    non-innermost template types are next, followed by ordinary member
1225    functions.  There may be empty entries at the end of the vector.
1226    The conversion operators are unsorted. The ordinary member
1227    functions are sorted, once the class is complete.  */
1228 #define CLASSTYPE_METHOD_VEC(NODE) (LANG_TYPE_CLASS_CHECK (NODE)->methods)
1229 
1230 /* For class templates, this is a TREE_LIST of all member data,
1231    functions, types, and friends in the order of declaration.
1232    The TREE_PURPOSE of each TREE_LIST is NULL_TREE for a friend,
1233    and the RECORD_TYPE for the class template otherwise.  */
1234 #define CLASSTYPE_DECL_LIST(NODE) (LANG_TYPE_CLASS_CHECK (NODE)->decl_list)
1235 
1236 /* The slot in the CLASSTYPE_METHOD_VEC where constructors go.  */
1237 #define CLASSTYPE_CONSTRUCTOR_SLOT 0
1238 
1239 /* The slot in the CLASSTYPE_METHOD_VEC where destructors go.  */
1240 #define CLASSTYPE_DESTRUCTOR_SLOT 1
1241 
1242 /* The first slot in the CLASSTYPE_METHOD_VEC where conversion
1243    operators can appear.  */
1244 #define CLASSTYPE_FIRST_CONVERSION_SLOT 2
1245 
1246 /* A FUNCTION_DECL or OVERLOAD for the constructors for NODE.  These
1247    are the constructors that take an in-charge parameter.  */
1248 #define CLASSTYPE_CONSTRUCTORS(NODE) \
1249   (VEC_index (tree, CLASSTYPE_METHOD_VEC (NODE), CLASSTYPE_CONSTRUCTOR_SLOT))
1250 
1251 /* A FUNCTION_DECL for the destructor for NODE.  These are the
1252    destructors that take an in-charge parameter.  If
1253    CLASSTYPE_LAZY_DESTRUCTOR is true, then this entry will be NULL
1254    until the destructor is created with lazily_declare_fn.  */
1255 #define CLASSTYPE_DESTRUCTORS(NODE) \
1256   (CLASSTYPE_METHOD_VEC (NODE)						      \
1257    ? VEC_index (tree, CLASSTYPE_METHOD_VEC (NODE), CLASSTYPE_DESTRUCTOR_SLOT) \
1258    : NULL_TREE)
1259 
1260 /* A dictionary of the nested user-defined-types (class-types, or enums)
1261    found within this class.  This table includes nested member class
1262    templates.  */
1263 #define CLASSTYPE_NESTED_UTDS(NODE) \
1264    (LANG_TYPE_CLASS_CHECK (NODE)->nested_udts)
1265 
1266 /* Nonzero if NODE has a primary base class, i.e., a base class with
1267    which it shares the virtual function table pointer.  */
1268 #define CLASSTYPE_HAS_PRIMARY_BASE_P(NODE) \
1269   (CLASSTYPE_PRIMARY_BINFO (NODE) != NULL_TREE)
1270 
1271 /* If non-NULL, this is the binfo for the primary base class, i.e.,
1272    the base class which contains the virtual function table pointer
1273    for this class.  */
1274 #define CLASSTYPE_PRIMARY_BINFO(NODE) \
1275   (LANG_TYPE_CLASS_CHECK (NODE)->primary_base)
1276 
1277 /* A vector of BINFOs for the direct and indirect virtual base classes
1278    that this type uses in a post-order depth-first left-to-right
1279    order.  (In other words, these bases appear in the order that they
1280    should be initialized.)  */
1281 #define CLASSTYPE_VBASECLASSES(NODE) (LANG_TYPE_CLASS_CHECK (NODE)->vbases)
1282 
1283 /* The type corresponding to NODE when NODE is used as a base class,
1284    i.e., NODE without virtual base classes.  */
1285 
1286 #define CLASSTYPE_AS_BASE(NODE) (LANG_TYPE_CLASS_CHECK (NODE)->as_base)
1287 
1288 /* True iff NODE is the CLASSTYPE_AS_BASE version of some type.  */
1289 
1290 #define IS_FAKE_BASE_TYPE(NODE)					\
1291   (TREE_CODE (NODE) == RECORD_TYPE				\
1292    && TYPE_CONTEXT (NODE) && CLASS_TYPE_P (TYPE_CONTEXT (NODE))	\
1293    && CLASSTYPE_AS_BASE (TYPE_CONTEXT (NODE)) == (NODE))
1294 
1295 /* These are the size and alignment of the type without its virtual
1296    base classes, for when we use this type as a base itself.  */
1297 #define CLASSTYPE_SIZE(NODE) TYPE_SIZE (CLASSTYPE_AS_BASE (NODE))
1298 #define CLASSTYPE_SIZE_UNIT(NODE) TYPE_SIZE_UNIT (CLASSTYPE_AS_BASE (NODE))
1299 #define CLASSTYPE_ALIGN(NODE) TYPE_ALIGN (CLASSTYPE_AS_BASE (NODE))
1300 #define CLASSTYPE_USER_ALIGN(NODE) TYPE_USER_ALIGN (CLASSTYPE_AS_BASE (NODE))
1301 
1302 /* The alignment of NODE, without its virtual bases, in bytes.  */
1303 #define CLASSTYPE_ALIGN_UNIT(NODE) \
1304   (CLASSTYPE_ALIGN (NODE) / BITS_PER_UNIT)
1305 
1306 /* True if this a Java interface type, declared with
1307    '__attribute__ ((java_interface))'.  */
1308 #define TYPE_JAVA_INTERFACE(NODE) \
1309   (LANG_TYPE_CLASS_CHECK (NODE)->java_interface)
1310 
1311 /* A VEC(tree) of virtual functions which cannot be inherited by
1312    derived classes.  When deriving from this type, the derived
1313    class must provide its own definition for each of these functions.  */
1314 #define CLASSTYPE_PURE_VIRTUALS(NODE) \
1315   (LANG_TYPE_CLASS_CHECK (NODE)->pure_virtuals)
1316 
1317 /* Nonzero means that this type has an X() constructor.  */
1318 #define TYPE_HAS_DEFAULT_CONSTRUCTOR(NODE) \
1319   (LANG_TYPE_CLASS_CHECK (NODE)->h.has_default_ctor)
1320 
1321 /* Nonzero means that this type contains a mutable member.  */
1322 #define CLASSTYPE_HAS_MUTABLE(NODE) (LANG_TYPE_CLASS_CHECK (NODE)->has_mutable)
1323 #define TYPE_HAS_MUTABLE_P(NODE) (cp_has_mutable_p (NODE))
1324 
1325 /* Nonzero means that this class type is a non-POD class.  */
1326 #define CLASSTYPE_NON_POD_P(NODE) (LANG_TYPE_CLASS_CHECK (NODE)->non_pod_class)
1327 
1328 /* Nonzero means that this class contains pod types whose default
1329    initialization is not a zero initialization (namely, pointers to
1330    data members).  */
1331 #define CLASSTYPE_NON_ZERO_INIT_P(NODE) \
1332   (LANG_TYPE_CLASS_CHECK (NODE)->non_zero_init)
1333 
1334 /* Nonzero if this class is "empty" in the sense of the C++ ABI.  */
1335 #define CLASSTYPE_EMPTY_P(NODE) \
1336   (LANG_TYPE_CLASS_CHECK (NODE)->empty_p)
1337 
1338 /* Nonzero if this class is "nearly empty", i.e., contains only a
1339    virtual function table pointer.  */
1340 #define CLASSTYPE_NEARLY_EMPTY_P(NODE) \
1341   (LANG_TYPE_CLASS_CHECK (NODE)->nearly_empty_p)
1342 
1343 /* Nonzero if this class contains an empty subobject.  */
1344 #define CLASSTYPE_CONTAINS_EMPTY_CLASS_P(NODE) \
1345   (LANG_TYPE_CLASS_CHECK (NODE)->contains_empty_class_p)
1346 
1347 /* A list of class types of which this type is a friend.  The
1348    TREE_VALUE is normally a TYPE, but will be a TEMPLATE_DECL in the
1349    case of a template friend.  */
1350 #define CLASSTYPE_FRIEND_CLASSES(NODE) \
1351   (LANG_TYPE_CLASS_CHECK (NODE)->friend_classes)
1352 
1353 /* A list of the classes which grant friendship to this class.  */
1354 #define CLASSTYPE_BEFRIENDING_CLASSES(NODE) \
1355   (LANG_TYPE_CLASS_CHECK (NODE)->befriending_classes)
1356 
1357 /* Say whether this node was declared as a "class" or a "struct".  */
1358 #define CLASSTYPE_DECLARED_CLASS(NODE) \
1359   (LANG_TYPE_CLASS_CHECK (NODE)->declared_class)
1360 
1361 /* Nonzero if this class has const members
1362    which have no specified initialization.  */
1363 #define CLASSTYPE_READONLY_FIELDS_NEED_INIT(NODE)	\
1364   (TYPE_LANG_SPECIFIC (NODE)				\
1365    ? LANG_TYPE_CLASS_CHECK (NODE)->h.const_needs_init : 0)
1366 #define SET_CLASSTYPE_READONLY_FIELDS_NEED_INIT(NODE, VALUE) \
1367   (LANG_TYPE_CLASS_CHECK (NODE)->h.const_needs_init = (VALUE))
1368 
1369 /* Nonzero if this class has ref members
1370    which have no specified initialization.  */
1371 #define CLASSTYPE_REF_FIELDS_NEED_INIT(NODE)		\
1372   (TYPE_LANG_SPECIFIC (NODE)				\
1373    ? LANG_TYPE_CLASS_CHECK (NODE)->h.ref_needs_init : 0)
1374 #define SET_CLASSTYPE_REF_FIELDS_NEED_INIT(NODE, VALUE) \
1375   (LANG_TYPE_CLASS_CHECK (NODE)->h.ref_needs_init = (VALUE))
1376 
1377 /* Nonzero if this class is included from a header file which employs
1378    `#pragma interface', and it is not included in its implementation file.  */
1379 #define CLASSTYPE_INTERFACE_ONLY(NODE) \
1380   (LANG_TYPE_CLASS_CHECK (NODE)->interface_only)
1381 
1382 /* True if we have already determined whether or not vtables, VTTs,
1383    typeinfo, and other similar per-class data should be emitted in
1384    this translation unit.  This flag does not indicate whether or not
1385    these items should be emitted; it only indicates that we know one
1386    way or the other.  */
1387 #define CLASSTYPE_INTERFACE_KNOWN(NODE) \
1388   (LANG_TYPE_CLASS_CHECK (NODE)->interface_unknown == 0)
1389 /* The opposite of CLASSTYPE_INTERFACE_KNOWN.  */
1390 #define CLASSTYPE_INTERFACE_UNKNOWN(NODE) \
1391   (LANG_TYPE_CLASS_CHECK (NODE)->interface_unknown)
1392 
1393 #define SET_CLASSTYPE_INTERFACE_UNKNOWN_X(NODE,X) \
1394   (LANG_TYPE_CLASS_CHECK (NODE)->interface_unknown = !!(X))
1395 #define SET_CLASSTYPE_INTERFACE_UNKNOWN(NODE) \
1396   (LANG_TYPE_CLASS_CHECK (NODE)->interface_unknown = 1)
1397 #define SET_CLASSTYPE_INTERFACE_KNOWN(NODE) \
1398   (LANG_TYPE_CLASS_CHECK (NODE)->interface_unknown = 0)
1399 
1400 /* Nonzero if a _DECL node requires us to output debug info for this class.  */
1401 #define CLASSTYPE_DEBUG_REQUESTED(NODE) \
1402   (LANG_TYPE_CLASS_CHECK (NODE)->debug_requested)
1403 
1404 /* Additional macros for inheritance information.  */
1405 
1406 /* Nonzero means that this class is on a path leading to a new vtable.  */
1407 #define BINFO_VTABLE_PATH_MARKED(NODE) BINFO_FLAG_1 (NODE)
1408 
1409 /* Nonzero means B (a BINFO) has its own vtable.  Any copies will not
1410    have this flag set.  */
1411 #define BINFO_NEW_VTABLE_MARKED(B) (BINFO_FLAG_2 (B))
1412 
1413 /* Compare a BINFO_TYPE with another type for equality.  For a binfo,
1414    this is functionally equivalent to using same_type_p, but
1415    measurably faster.  At least one of the arguments must be a
1416    BINFO_TYPE.  The other can be a BINFO_TYPE or a regular type.  If
1417    BINFO_TYPE(T) ever stops being the main variant of the class the
1418    binfo is for, this macro must change.  */
1419 #define SAME_BINFO_TYPE_P(A, B) ((A) == (B))
1420 
1421 /* Any subobject that needs a new vtable must have a vptr and must not
1422    be a non-virtual primary base (since it would then use the vtable from a
1423    derived class and never become non-primary.)  */
1424 #define SET_BINFO_NEW_VTABLE_MARKED(B)					 \
1425   (BINFO_NEW_VTABLE_MARKED (B) = 1,					 \
1426    gcc_assert (!BINFO_PRIMARY_P (B) || BINFO_VIRTUAL_P (B)),		 \
1427    gcc_assert (TYPE_VFIELD (BINFO_TYPE (B))))
1428 
1429 /* Nonzero if this binfo is for a dependent base - one that should not
1430    be searched.  */
1431 #define BINFO_DEPENDENT_BASE_P(NODE) BINFO_FLAG_3 (NODE)
1432 
1433 /* Nonzero if this binfo has lost its primary base binfo (because that
1434    is a nearly-empty virtual base that has been taken by some other
1435    base in the complete hierarchy.  */
1436 #define BINFO_LOST_PRIMARY_P(NODE) BINFO_FLAG_4 (NODE)
1437 
1438 /* Nonzero if this BINFO is a primary base class.  */
1439 #define BINFO_PRIMARY_P(NODE) BINFO_FLAG_5(NODE)
1440 
1441 /* Used by various search routines.  */
1442 #define IDENTIFIER_MARKED(NODE) TREE_LANG_FLAG_0 (NODE)
1443 
1444 /* A VEC(tree_pair_s) of the vcall indices associated with the class
1445    NODE.  The PURPOSE of each element is a FUNCTION_DECL for a virtual
1446    function.  The VALUE is the index into the virtual table where the
1447    vcall offset for that function is stored, when NODE is a virtual
1448    base.  */
1449 #define CLASSTYPE_VCALL_INDICES(NODE) \
1450   (LANG_TYPE_CLASS_CHECK (NODE)->vcall_indices)
1451 
1452 /* The various vtables for the class NODE.  The primary vtable will be
1453    first, followed by the construction vtables and VTT, if any.  */
1454 #define CLASSTYPE_VTABLES(NODE) \
1455   (LANG_TYPE_CLASS_CHECK (NODE)->vtables)
1456 
1457 /* The std::type_info variable representing this class, or NULL if no
1458    such variable has been created.  This field is only set for the
1459    TYPE_MAIN_VARIANT of the class.  */
1460 #define CLASSTYPE_TYPEINFO_VAR(NODE) \
1461   (LANG_TYPE_CLASS_CHECK (NODE)->typeinfo_var)
1462 
1463 /* Accessor macros for the BINFO_VIRTUALS list.  */
1464 
1465 /* The number of bytes by which to adjust the `this' pointer when
1466    calling this virtual function.  Subtract this value from the this
1467    pointer. Always non-NULL, might be constant zero though.  */
1468 #define BV_DELTA(NODE) (TREE_PURPOSE (NODE))
1469 
1470 /* If non-NULL, the vtable index at which to find the vcall offset
1471    when calling this virtual function.  Add the value at that vtable
1472    index to the this pointer.  */
1473 #define BV_VCALL_INDEX(NODE) (TREE_TYPE (NODE))
1474 
1475 /* The function to call.  */
1476 #define BV_FN(NODE) (TREE_VALUE (NODE))
1477 
1478 
1479 /* For FUNCTION_TYPE or METHOD_TYPE, a list of the exceptions that
1480    this type can raise.  Each TREE_VALUE is a _TYPE.  The TREE_VALUE
1481    will be NULL_TREE to indicate a throw specification of `()', or
1482    no exceptions allowed.  */
1483 #define TYPE_RAISES_EXCEPTIONS(NODE) TYPE_LANG_SLOT_1 (NODE)
1484 
1485 /* For FUNCTION_TYPE or METHOD_TYPE, return 1 iff it is declared `throw()'.  */
1486 #define TYPE_NOTHROW_P(NODE) \
1487   (TYPE_RAISES_EXCEPTIONS (NODE) \
1488    && TREE_VALUE (TYPE_RAISES_EXCEPTIONS (NODE)) == NULL_TREE)
1489 
1490 /* The binding level associated with the namespace.  */
1491 #define NAMESPACE_LEVEL(NODE) \
1492   (DECL_LANG_SPECIFIC (NODE)->decl_flags.u.level)
1493 
1494 
1495 /* If a DECL has DECL_LANG_SPECIFIC, it is either a lang_decl_flags or
1496    a lang_decl (which has lang_decl_flags as its initial prefix).
1497    This macro is nonzero for tree nodes whose DECL_LANG_SPECIFIC is
1498    the full lang_decl, and not just lang_decl_flags.  Keep these
1499    checks in ascending code order.  */
1500 #define CAN_HAVE_FULL_LANG_DECL_P(NODE)			\
1501   (!(TREE_CODE (NODE) == FIELD_DECL			\
1502      || TREE_CODE (NODE) == VAR_DECL			\
1503      || TREE_CODE (NODE) == CONST_DECL			\
1504      || TREE_CODE (NODE) == USING_DECL))
1505 
1506 struct lang_decl_flags GTY(())
1507 {
1508   ENUM_BITFIELD(languages) language : 4;
1509   unsigned global_ctor_p : 1;
1510   unsigned global_dtor_p : 1;
1511   unsigned anticipated_p : 1;
1512   unsigned template_conv_p : 1;
1513 
1514   unsigned operator_attr : 1;
1515   unsigned constructor_attr : 1;
1516   unsigned destructor_attr : 1;
1517   unsigned friend_attr : 1;
1518   unsigned static_function : 1;
1519   unsigned pure_virtual : 1;
1520   unsigned has_in_charge_parm_p : 1;
1521   unsigned has_vtt_parm_p : 1;
1522 
1523   unsigned deferred : 1;
1524   unsigned use_template : 2;
1525   unsigned nonconverting : 1;
1526   unsigned not_really_extern : 1;
1527   unsigned initialized_in_class : 1;
1528   unsigned assignment_operator_p : 1;
1529   unsigned u1sel : 1;
1530 
1531   unsigned u2sel : 1;
1532   unsigned can_be_full : 1;
1533   unsigned thunk_p : 1;
1534   unsigned this_thunk_p : 1;
1535   unsigned repo_available_p : 1;
1536   unsigned hidden_friend_p : 1;
1537   unsigned threadprivate_p : 1;
1538   /* One unused bit.  */
1539 
1540   union lang_decl_u {
1541     /* In a FUNCTION_DECL for which DECL_THUNK_P holds, this is
1542        THUNK_ALIAS.
1543        In a FUNCTION_DECL for which DECL_THUNK_P does not hold,
1544        VAR_DECL, TYPE_DECL, or TEMPLATE_DECL, this is
1545        DECL_TEMPLATE_INFO.  */
1546     tree GTY ((tag ("0"))) template_info;
1547 
1548     /* In a NAMESPACE_DECL, this is NAMESPACE_LEVEL.  */
1549     struct cp_binding_level * GTY ((tag ("1"))) level;
1550   } GTY ((desc ("%1.u1sel"))) u;
1551 
1552   union lang_decl_u2 {
1553     /* In a FUNCTION_DECL for which DECL_THUNK_P holds, this is
1554        THUNK_VIRTUAL_OFFSET.
1555        Otherwise this is DECL_ACCESS.  */
1556     tree GTY ((tag ("0"))) access;
1557 
1558     /* For VAR_DECL in function, this is DECL_DISCRIMINATOR.  */
1559     int GTY ((tag ("1"))) discriminator;
1560   } GTY ((desc ("%1.u2sel"))) u2;
1561 };
1562 
1563 /* sorted_fields is sorted based on a pointer, so we need to be able
1564    to resort it if pointers get rearranged.  */
1565 
1566 struct lang_decl GTY(())
1567 {
1568   struct lang_decl_flags decl_flags;
1569 
1570   union lang_decl_u4
1571     {
1572       struct full_lang_decl
1573       {
1574 	/* In an overloaded operator, this is the value of
1575 	   DECL_OVERLOADED_OPERATOR_P.  */
1576 	ENUM_BITFIELD (tree_code) operator_code : 8;
1577 
1578 	unsigned u3sel : 1;
1579 	unsigned pending_inline_p : 1;
1580 	unsigned spare : 22;
1581 
1582 	/* For a non-thunk function decl, this is a tree list of
1583 	   friendly classes. For a thunk function decl, it is the
1584 	   thunked to function decl.  */
1585 	tree befriending_classes;
1586 
1587 	/* For a non-virtual FUNCTION_DECL, this is
1588 	   DECL_FRIEND_CONTEXT.  For a virtual FUNCTION_DECL for which
1589 	   DECL_THIS_THUNK_P does not hold, this is DECL_THUNKS. Both
1590 	   this pointer and result pointer adjusting thunks are
1591 	   chained here.  This pointer thunks to return pointer thunks
1592 	   will be chained on the return pointer thunk.  */
1593 	tree context;
1594 
1595 	union lang_decl_u5
1596 	{
1597 	  /* In a non-thunk FUNCTION_DECL or TEMPLATE_DECL, this is
1598 	     DECL_CLONED_FUNCTION.  */
1599 	  tree GTY ((tag ("0"))) cloned_function;
1600 
1601 	  /* In a FUNCTION_DECL for which THUNK_P holds this is the
1602 	     THUNK_FIXED_OFFSET.  */
1603 	  HOST_WIDE_INT GTY ((tag ("1"))) fixed_offset;
1604 	} GTY ((desc ("%0.decl_flags.thunk_p"))) u5;
1605 
1606 	union lang_decl_u3
1607 	{
1608 	  struct sorted_fields_type * GTY ((tag ("0"), reorder ("resort_sorted_fields")))
1609 	       sorted_fields;
1610 	  struct cp_token_cache * GTY ((tag ("2"))) pending_inline_info;
1611 	  struct language_function * GTY ((tag ("1")))
1612 	       saved_language_function;
1613 	} GTY ((desc ("%1.u3sel + %1.pending_inline_p"))) u;
1614       } GTY ((tag ("1"))) f;
1615   } GTY ((desc ("%1.decl_flags.can_be_full"))) u;
1616 };
1617 
1618 #if defined ENABLE_TREE_CHECKING && (GCC_VERSION >= 2007)
1619 
1620 #define LANG_DECL_U2_CHECK(NODE, TF) __extension__		\
1621 ({  struct lang_decl *lt = DECL_LANG_SPECIFIC (NODE);		\
1622     if (lt->decl_flags.u2sel != TF)				\
1623       lang_check_failed (__FILE__, __LINE__, __FUNCTION__);	\
1624     &lt->decl_flags.u2; })
1625 
1626 #else
1627 
1628 #define LANG_DECL_U2_CHECK(NODE, TF) \
1629   (&DECL_LANG_SPECIFIC (NODE)->decl_flags.u2)
1630 
1631 #endif /* ENABLE_TREE_CHECKING */
1632 
1633 /* For a FUNCTION_DECL or a VAR_DECL, the language linkage for the
1634    declaration.  Some entities (like a member function in a local
1635    class, or a local variable) do not have linkage at all, and this
1636    macro should not be used in those cases.
1637 
1638    Implementation note: A FUNCTION_DECL without DECL_LANG_SPECIFIC was
1639    created by language-independent code, and has C linkage.  Most
1640    VAR_DECLs have C++ linkage, and do not have DECL_LANG_SPECIFIC, but
1641    we do create DECL_LANG_SPECIFIC for variables with non-C++ linkage.  */
1642 #define DECL_LANGUAGE(NODE)				\
1643   (DECL_LANG_SPECIFIC (NODE)				\
1644    ? DECL_LANG_SPECIFIC (NODE)->decl_flags.language	\
1645    : (TREE_CODE (NODE) == FUNCTION_DECL			\
1646       ? lang_c : lang_cplusplus))
1647 
1648 /* Set the language linkage for NODE to LANGUAGE.  */
1649 #define SET_DECL_LANGUAGE(NODE, LANGUAGE) \
1650   (DECL_LANG_SPECIFIC (NODE)->decl_flags.language = (LANGUAGE))
1651 
1652 /* For FUNCTION_DECLs: nonzero means that this function is a constructor.  */
1653 #define DECL_CONSTRUCTOR_P(NODE) \
1654   (DECL_LANG_SPECIFIC (NODE)->decl_flags.constructor_attr)
1655 
1656 /* Nonzero if NODE (a FUNCTION_DECL) is a constructor for a complete
1657    object.  */
1658 #define DECL_COMPLETE_CONSTRUCTOR_P(NODE)		\
1659   (DECL_CONSTRUCTOR_P (NODE)				\
1660    && DECL_NAME (NODE) == complete_ctor_identifier)
1661 
1662 /* Nonzero if NODE (a FUNCTION_DECL) is a constructor for a base
1663    object.  */
1664 #define DECL_BASE_CONSTRUCTOR_P(NODE)		\
1665   (DECL_CONSTRUCTOR_P (NODE)			\
1666    && DECL_NAME (NODE) == base_ctor_identifier)
1667 
1668 /* Nonzero if NODE (a FUNCTION_DECL) is a constructor, but not either the
1669    specialized in-charge constructor or the specialized not-in-charge
1670    constructor.  */
1671 #define DECL_MAYBE_IN_CHARGE_CONSTRUCTOR_P(NODE)		\
1672   (DECL_CONSTRUCTOR_P (NODE) && !DECL_CLONED_FUNCTION_P (NODE))
1673 
1674 /* Nonzero if NODE (a FUNCTION_DECL) is a copy constructor.  */
1675 #define DECL_COPY_CONSTRUCTOR_P(NODE) \
1676   (DECL_CONSTRUCTOR_P (NODE) && copy_fn_p (NODE) > 0)
1677 
1678 /* Nonzero if NODE is a destructor.  */
1679 #define DECL_DESTRUCTOR_P(NODE)				\
1680   (DECL_LANG_SPECIFIC (NODE)->decl_flags.destructor_attr)
1681 
1682 /* Nonzero if NODE (a FUNCTION_DECL) is a destructor, but not the
1683    specialized in-charge constructor, in-charge deleting constructor,
1684    or the base destructor.  */
1685 #define DECL_MAYBE_IN_CHARGE_DESTRUCTOR_P(NODE)			\
1686   (DECL_DESTRUCTOR_P (NODE) && !DECL_CLONED_FUNCTION_P (NODE))
1687 
1688 /* Nonzero if NODE (a FUNCTION_DECL) is a destructor for a complete
1689    object.  */
1690 #define DECL_COMPLETE_DESTRUCTOR_P(NODE)		\
1691   (DECL_DESTRUCTOR_P (NODE)				\
1692    && DECL_NAME (NODE) == complete_dtor_identifier)
1693 
1694 /* Nonzero if NODE (a FUNCTION_DECL) is a destructor for a base
1695    object.  */
1696 #define DECL_BASE_DESTRUCTOR_P(NODE)		\
1697   (DECL_DESTRUCTOR_P (NODE)			\
1698    && DECL_NAME (NODE) == base_dtor_identifier)
1699 
1700 /* Nonzero if NODE (a FUNCTION_DECL) is a destructor for a complete
1701    object that deletes the object after it has been destroyed.  */
1702 #define DECL_DELETING_DESTRUCTOR_P(NODE)		\
1703   (DECL_DESTRUCTOR_P (NODE)				\
1704    && DECL_NAME (NODE) == deleting_dtor_identifier)
1705 
1706 /* Nonzero if NODE (a FUNCTION_DECL) is a cloned constructor or
1707    destructor.  */
1708 #define DECL_CLONED_FUNCTION_P(NODE)			\
1709   ((TREE_CODE (NODE) == FUNCTION_DECL			\
1710     || TREE_CODE (NODE) == TEMPLATE_DECL)		\
1711    && DECL_LANG_SPECIFIC (NODE)				\
1712    && !DECL_LANG_SPECIFIC (NODE)->decl_flags.thunk_p	\
1713    && DECL_CLONED_FUNCTION (NODE) != NULL_TREE)
1714 
1715 /* If DECL_CLONED_FUNCTION_P holds, this is the function that was
1716    cloned.  */
1717 #define DECL_CLONED_FUNCTION(NODE) \
1718   (DECL_LANG_SPECIFIC (NON_THUNK_FUNCTION_CHECK(NODE))->u.f.u5.cloned_function)
1719 
1720 /* Perform an action for each clone of FN, if FN is a function with
1721    clones.  This macro should be used like:
1722 
1723       FOR_EACH_CLONE (clone, fn)
1724 	{ ... }
1725 
1726   */
1727 #define FOR_EACH_CLONE(CLONE, FN)			\
1728   if (TREE_CODE (FN) == FUNCTION_DECL			\
1729       && (DECL_MAYBE_IN_CHARGE_CONSTRUCTOR_P (FN)	\
1730 	  || DECL_MAYBE_IN_CHARGE_DESTRUCTOR_P (FN)))	\
1731      for (CLONE = TREE_CHAIN (FN);			\
1732 	  CLONE && DECL_CLONED_FUNCTION_P (CLONE);	\
1733 	  CLONE = TREE_CHAIN (CLONE))
1734 
1735 /* Nonzero if NODE has DECL_DISCRIMINATOR and not DECL_ACCESS.  */
1736 #define DECL_DISCRIMINATOR_P(NODE)	\
1737   (TREE_CODE (NODE) == VAR_DECL		\
1738    && DECL_FUNCTION_SCOPE_P (NODE))
1739 
1740 /* Discriminator for name mangling.  */
1741 #define DECL_DISCRIMINATOR(NODE) (LANG_DECL_U2_CHECK (NODE, 1)->discriminator)
1742 
1743 /* Nonzero if the VTT parm has been added to NODE.  */
1744 #define DECL_HAS_VTT_PARM_P(NODE) \
1745   (DECL_LANG_SPECIFIC (NODE)->decl_flags.has_vtt_parm_p)
1746 
1747 /* Nonzero if NODE is a FUNCTION_DECL for which a VTT parameter is
1748    required.  */
1749 #define DECL_NEEDS_VTT_PARM_P(NODE)			\
1750   (CLASSTYPE_VBASECLASSES (DECL_CONTEXT (NODE))		\
1751    && (DECL_BASE_CONSTRUCTOR_P (NODE)			\
1752        || DECL_BASE_DESTRUCTOR_P (NODE)))
1753 
1754 /* Nonzero if NODE is a user-defined conversion operator.  */
1755 #define DECL_CONV_FN_P(NODE) \
1756   (DECL_NAME (NODE) && IDENTIFIER_TYPENAME_P (DECL_NAME (NODE)))
1757 
1758 /* If FN is a conversion operator, the type to which it converts.
1759    Otherwise, NULL_TREE.  */
1760 #define DECL_CONV_FN_TYPE(FN) \
1761   (DECL_CONV_FN_P (FN) ? TREE_TYPE (DECL_NAME (FN)) : NULL_TREE)
1762 
1763 /* Nonzero if NODE, which is a TEMPLATE_DECL, is a template
1764    conversion operator to a type dependent on the innermost template
1765    args.  */
1766 #define DECL_TEMPLATE_CONV_FN_P(NODE) \
1767   (DECL_LANG_SPECIFIC (NODE)->decl_flags.template_conv_p)
1768 
1769 /* Set the overloaded operator code for NODE to CODE.  */
1770 #define SET_OVERLOADED_OPERATOR_CODE(NODE, CODE) \
1771   (DECL_LANG_SPECIFIC (NODE)->u.f.operator_code = (CODE))
1772 
1773 /* If NODE is an overloaded operator, then this returns the TREE_CODE
1774    associated with the overloaded operator.
1775    DECL_ASSIGNMENT_OPERATOR_P must also be checked to determine
1776    whether or not NODE is an assignment operator.  If NODE is not an
1777    overloaded operator, ERROR_MARK is returned.  Since the numerical
1778    value of ERROR_MARK is zero, this macro can be used as a predicate
1779    to test whether or not NODE is an overloaded operator.  */
1780 #define DECL_OVERLOADED_OPERATOR_P(NODE)		\
1781   (IDENTIFIER_OPNAME_P (DECL_NAME (NODE))		\
1782    ? DECL_LANG_SPECIFIC (NODE)->u.f.operator_code : ERROR_MARK)
1783 
1784 /* Nonzero if NODE is an assignment operator.  */
1785 #define DECL_ASSIGNMENT_OPERATOR_P(NODE) \
1786   (DECL_LANG_SPECIFIC (NODE)->decl_flags.assignment_operator_p)
1787 
1788 /* For FUNCTION_DECLs: nonzero means that this function is a
1789    constructor or a destructor with an extra in-charge parameter to
1790    control whether or not virtual bases are constructed.  */
1791 #define DECL_HAS_IN_CHARGE_PARM_P(NODE) \
1792   (DECL_LANG_SPECIFIC (NODE)->decl_flags.has_in_charge_parm_p)
1793 
1794 /* Nonzero if DECL is a declaration of __builtin_constant_p.  */
1795 #define DECL_IS_BUILTIN_CONSTANT_P(NODE)		\
1796  (TREE_CODE (NODE) == FUNCTION_DECL			\
1797   && DECL_BUILT_IN_CLASS (NODE) == BUILT_IN_NORMAL	\
1798   && DECL_FUNCTION_CODE (NODE) == BUILT_IN_CONSTANT_P)
1799 
1800 /* Nonzero for _DECL means that this decl appears in (or will appear
1801    in) as a member in a RECORD_TYPE or UNION_TYPE node.  It is also for
1802    detecting circularity in case members are multiply defined.  In the
1803    case of a VAR_DECL, it is also used to determine how program storage
1804    should be allocated.  */
1805 #define DECL_IN_AGGR_P(NODE) (DECL_LANG_FLAG_3 (NODE))
1806 
1807 /* Nonzero for a VAR_DECL means that the variable's initialization (if
1808    any) has been processed.  (In general, DECL_INITIALIZED_P is
1809    !DECL_EXTERN, but static data members may be initialized even if
1810    not defined.)  */
1811 #define DECL_INITIALIZED_P(NODE) \
1812    (TREE_LANG_FLAG_1 (VAR_DECL_CHECK (NODE)))
1813 
1814 /* Nonzero for a VAR_DECL iff an explicit initializer was provided.  */
1815 #define DECL_NONTRIVIALLY_INITIALIZED_P(NODE)	\
1816    (TREE_LANG_FLAG_3 (VAR_DECL_CHECK (NODE)))
1817 
1818 /* Nonzero for a VAR_DECL that was initialized with a
1819    constant-expression.  */
1820 #define DECL_INITIALIZED_BY_CONSTANT_EXPRESSION_P(NODE) \
1821   (TREE_LANG_FLAG_2 (VAR_DECL_CHECK (NODE)))
1822 
1823 /* Nonzero for a VAR_DECL that can be used in an integral constant
1824    expression.
1825 
1826       [expr.const]
1827 
1828       An integral constant-expression can only involve ... const
1829       variables of static or enumeration types initialized with
1830       constant expressions ...
1831 
1832    The standard does not require that the expression be non-volatile.
1833    G++ implements the proposed correction in DR 457.  */
1834 #define DECL_INTEGRAL_CONSTANT_VAR_P(NODE)		\
1835   (TREE_CODE (NODE) == VAR_DECL				\
1836    && CP_TYPE_CONST_NON_VOLATILE_P (TREE_TYPE (NODE))	\
1837    && INTEGRAL_OR_ENUMERATION_TYPE_P (TREE_TYPE (NODE))	\
1838    && DECL_INITIALIZED_BY_CONSTANT_EXPRESSION_P (NODE))
1839 
1840 /* Nonzero if the DECL was initialized in the class definition itself,
1841    rather than outside the class.  This is used for both static member
1842    VAR_DECLS, and FUNTION_DECLS that are defined in the class.  */
1843 #define DECL_INITIALIZED_IN_CLASS_P(DECL) \
1844  (DECL_LANG_SPECIFIC (DECL)->decl_flags.initialized_in_class)
1845 
1846 /* Nonzero for DECL means that this decl is just a friend declaration,
1847    and should not be added to the list of members for this class.  */
1848 #define DECL_FRIEND_P(NODE) (DECL_LANG_SPECIFIC (NODE)->decl_flags.friend_attr)
1849 
1850 /* A TREE_LIST of the types which have befriended this FUNCTION_DECL.  */
1851 #define DECL_BEFRIENDING_CLASSES(NODE) \
1852   (DECL_LANG_SPECIFIC (NODE)->u.f.befriending_classes)
1853 
1854 /* Nonzero for FUNCTION_DECL means that this decl is a static
1855    member function.  */
1856 #define DECL_STATIC_FUNCTION_P(NODE) \
1857   (DECL_LANG_SPECIFIC (NODE)->decl_flags.static_function)
1858 
1859 /* Nonzero for FUNCTION_DECL means that this decl is a non-static
1860    member function.  */
1861 #define DECL_NONSTATIC_MEMBER_FUNCTION_P(NODE) \
1862   (TREE_CODE (TREE_TYPE (NODE)) == METHOD_TYPE)
1863 
1864 /* Nonzero for FUNCTION_DECL means that this decl is a member function
1865    (static or non-static).  */
1866 #define DECL_FUNCTION_MEMBER_P(NODE) \
1867  (DECL_NONSTATIC_MEMBER_FUNCTION_P (NODE) || DECL_STATIC_FUNCTION_P (NODE))
1868 
1869 /* Nonzero for FUNCTION_DECL means that this member function
1870    has `this' as const X *const.  */
1871 #define DECL_CONST_MEMFUNC_P(NODE)					 \
1872   (DECL_NONSTATIC_MEMBER_FUNCTION_P (NODE)				 \
1873    && CP_TYPE_CONST_P (TREE_TYPE (TREE_VALUE				 \
1874 				  (TYPE_ARG_TYPES (TREE_TYPE (NODE))))))
1875 
1876 /* Nonzero for FUNCTION_DECL means that this member function
1877    has `this' as volatile X *const.  */
1878 #define DECL_VOLATILE_MEMFUNC_P(NODE)					 \
1879   (DECL_NONSTATIC_MEMBER_FUNCTION_P (NODE)				 \
1880    && CP_TYPE_VOLATILE_P (TREE_TYPE (TREE_VALUE				 \
1881 				  (TYPE_ARG_TYPES (TREE_TYPE (NODE))))))
1882 
1883 /* Nonzero for a DECL means that this member is a non-static member.  */
1884 #define DECL_NONSTATIC_MEMBER_P(NODE)		\
1885   ((TREE_CODE (NODE) == FUNCTION_DECL		\
1886     && DECL_NONSTATIC_MEMBER_FUNCTION_P (NODE))	\
1887    || TREE_CODE (NODE) == FIELD_DECL)
1888 
1889 /* Nonzero for _DECL means that this member object type
1890    is mutable.  */
1891 #define DECL_MUTABLE_P(NODE) (DECL_LANG_FLAG_0 (NODE))
1892 
1893 /* Nonzero for _DECL means that this constructor is a non-converting
1894    constructor.  */
1895 #define DECL_NONCONVERTING_P(NODE) \
1896   (DECL_LANG_SPECIFIC (NODE)->decl_flags.nonconverting)
1897 
1898 /* Nonzero for FUNCTION_DECL means that this member function is a pure
1899    virtual function.  */
1900 #define DECL_PURE_VIRTUAL_P(NODE) \
1901   (DECL_LANG_SPECIFIC (NODE)->decl_flags.pure_virtual)
1902 
1903 /* True (in a FUNCTION_DECL) if NODE is a virtual function that is an
1904    invalid overrider for a function from a base class.  Once we have
1905    complained about an invalid overrider we avoid complaining about it
1906    again.  */
1907 #define DECL_INVALID_OVERRIDER_P(NODE) \
1908   (DECL_LANG_FLAG_4 (NODE))
1909 
1910 /* The thunks associated with NODE, a FUNCTION_DECL.  */
1911 #define DECL_THUNKS(NODE) \
1912   (DECL_LANG_SPECIFIC (NODE)->u.f.context)
1913 
1914 /* Nonzero if NODE is a thunk, rather than an ordinary function.  */
1915 #define DECL_THUNK_P(NODE)			\
1916   (TREE_CODE (NODE) == FUNCTION_DECL		\
1917    && DECL_LANG_SPECIFIC (NODE)			\
1918    && DECL_LANG_SPECIFIC (NODE)->decl_flags.thunk_p)
1919 
1920 /* Set DECL_THUNK_P for node.  */
1921 #define SET_DECL_THUNK_P(NODE, THIS_ADJUSTING)			\
1922   (DECL_LANG_SPECIFIC (NODE)->decl_flags.thunk_p = 1,		\
1923    DECL_LANG_SPECIFIC (NODE)->u.f.u3sel = 1,			\
1924    DECL_LANG_SPECIFIC (NODE)->decl_flags.this_thunk_p = (THIS_ADJUSTING))
1925 
1926 /* Nonzero if NODE is a this pointer adjusting thunk.  */
1927 #define DECL_THIS_THUNK_P(NODE)			\
1928   (DECL_THUNK_P (NODE) && DECL_LANG_SPECIFIC (NODE)->decl_flags.this_thunk_p)
1929 
1930 /* Nonzero if NODE is a result pointer adjusting thunk.  */
1931 #define DECL_RESULT_THUNK_P(NODE)			\
1932   (DECL_THUNK_P (NODE) && !DECL_LANG_SPECIFIC (NODE)->decl_flags.this_thunk_p)
1933 
1934 /* Nonzero if NODE is a FUNCTION_DECL, but not a thunk.  */
1935 #define DECL_NON_THUNK_FUNCTION_P(NODE)				\
1936   (TREE_CODE (NODE) == FUNCTION_DECL && !DECL_THUNK_P (NODE))
1937 
1938 /* Nonzero if NODE is `extern "C"'.  */
1939 #define DECL_EXTERN_C_P(NODE) \
1940   (DECL_LANGUAGE (NODE) == lang_c)
1941 
1942 /* Nonzero if NODE is an `extern "C"' function.  */
1943 #define DECL_EXTERN_C_FUNCTION_P(NODE) \
1944   (DECL_NON_THUNK_FUNCTION_P (NODE) && DECL_EXTERN_C_P (NODE))
1945 
1946 /* True iff DECL is an entity with vague linkage whose definition is
1947    available in this translation unit.  */
1948 #define DECL_REPO_AVAILABLE_P(NODE) \
1949   (DECL_LANG_SPECIFIC (NODE)->decl_flags.repo_available_p)
1950 
1951 /* Nonzero if this DECL is the __PRETTY_FUNCTION__ variable in a
1952    template function.  */
1953 #define DECL_PRETTY_FUNCTION_P(NODE) \
1954   (TREE_LANG_FLAG_0 (VAR_DECL_CHECK (NODE)))
1955 
1956 /* The _TYPE context in which this _DECL appears.  This field holds the
1957    class where a virtual function instance is actually defined.  */
1958 #define DECL_CLASS_CONTEXT(NODE) \
1959   (DECL_CLASS_SCOPE_P (NODE) ? DECL_CONTEXT (NODE) : NULL_TREE)
1960 
1961 /* For a non-member friend function, the class (if any) in which this
1962    friend was defined.  For example, given:
1963 
1964      struct S { friend void f (); };
1965 
1966    the DECL_FRIEND_CONTEXT for `f' will be `S'.  */
1967 #define DECL_FRIEND_CONTEXT(NODE)				\
1968   ((DECL_FRIEND_P (NODE) && !DECL_FUNCTION_MEMBER_P (NODE))	\
1969    ? DECL_LANG_SPECIFIC (NODE)->u.f.context			\
1970    : NULL_TREE)
1971 
1972 /* Set the DECL_FRIEND_CONTEXT for NODE to CONTEXT.  */
1973 #define SET_DECL_FRIEND_CONTEXT(NODE, CONTEXT) \
1974   (DECL_LANG_SPECIFIC (NODE)->u.f.context = (CONTEXT))
1975 
1976 /* NULL_TREE in DECL_CONTEXT represents the global namespace.  */
1977 #define CP_DECL_CONTEXT(NODE) \
1978   (DECL_CONTEXT (NODE) ? DECL_CONTEXT (NODE) : global_namespace)
1979 #define CP_TYPE_CONTEXT(NODE) \
1980   (TYPE_CONTEXT (NODE) ? TYPE_CONTEXT (NODE) : global_namespace)
1981 #define FROB_CONTEXT(NODE)   ((NODE) == global_namespace ? NULL_TREE : (NODE))
1982 
1983 /* 1 iff NODE has namespace scope, including the global namespace.  */
1984 #define DECL_NAMESPACE_SCOPE_P(NODE)				\
1985   (!DECL_TEMPLATE_PARM_P (NODE)					\
1986    && TREE_CODE (CP_DECL_CONTEXT (NODE)) == NAMESPACE_DECL)
1987 
1988 #define TYPE_NAMESPACE_SCOPE_P(NODE)				\
1989   (TREE_CODE (CP_TYPE_CONTEXT (NODE)) == NAMESPACE_DECL)
1990 
1991 /* 1 iff NODE is a class member.  */
1992 #define DECL_CLASS_SCOPE_P(NODE) \
1993   (DECL_CONTEXT (NODE) && TYPE_P (DECL_CONTEXT (NODE)))
1994 
1995 #define TYPE_CLASS_SCOPE_P(NODE) \
1996   (TYPE_CONTEXT (NODE) && TYPE_P (TYPE_CONTEXT (NODE)))
1997 
1998 /* 1 iff NODE is function-local.  */
1999 #define DECL_FUNCTION_SCOPE_P(NODE) \
2000   (DECL_CONTEXT (NODE) \
2001    && TREE_CODE (DECL_CONTEXT (NODE)) == FUNCTION_DECL)
2002 
2003 #define TYPE_FUNCTION_SCOPE_P(NODE) \
2004   (TYPE_CONTEXT (NODE) \
2005    && TREE_CODE (TYPE_CONTEXT (NODE)) == FUNCTION_DECL)
2006 
2007 /* 1 iff VAR_DECL node NODE is a type-info decl.  This flag is set for
2008    both the primary typeinfo object and the associated NTBS name.  */
2009 #define DECL_TINFO_P(NODE) TREE_LANG_FLAG_4 (VAR_DECL_CHECK (NODE))
2010 
2011 /* 1 iff VAR_DECL node NODE is virtual table or VTT.  */
2012 #define DECL_VTABLE_OR_VTT_P(NODE) TREE_LANG_FLAG_5 (VAR_DECL_CHECK (NODE))
2013 
2014 /* Returns 1 iff VAR_DECL is a construction virtual table.
2015    DECL_VTABLE_OR_VTT_P will be true in this case and must be checked
2016    before using this macro.  */
2017 #define DECL_CONSTRUCTION_VTABLE_P(NODE) \
2018   TREE_LANG_FLAG_6 (VAR_DECL_CHECK (NODE))
2019 
2020 /* 1 iff NODE is function-local, but for types.  */
2021 #define LOCAL_CLASS_P(NODE)				\
2022   (decl_function_context (TYPE_MAIN_DECL (NODE)) != NULL_TREE)
2023 
2024 /* For a NAMESPACE_DECL: the list of using namespace directives
2025    The PURPOSE is the used namespace, the value is the namespace
2026    that is the common ancestor.  */
2027 #define DECL_NAMESPACE_USING(NODE) DECL_VINDEX (NAMESPACE_DECL_CHECK (NODE))
2028 
2029 /* In a NAMESPACE_DECL, the DECL_INITIAL is used to record all users
2030    of a namespace, to record the transitive closure of using namespace.  */
2031 #define DECL_NAMESPACE_USERS(NODE) DECL_INITIAL (NAMESPACE_DECL_CHECK (NODE))
2032 
2033 /* In a NAMESPACE_DECL, the list of namespaces which have associated
2034    themselves with this one.  */
2035 #define DECL_NAMESPACE_ASSOCIATIONS(NODE) \
2036   (NAMESPACE_DECL_CHECK (NODE)->decl_non_common.saved_tree)
2037 
2038 /* In a NAMESPACE_DECL, points to the original namespace if this is
2039    a namespace alias.  */
2040 #define DECL_NAMESPACE_ALIAS(NODE) \
2041 	DECL_ABSTRACT_ORIGIN (NAMESPACE_DECL_CHECK (NODE))
2042 #define ORIGINAL_NAMESPACE(NODE)  \
2043   (DECL_NAMESPACE_ALIAS (NODE) ? DECL_NAMESPACE_ALIAS (NODE) : (NODE))
2044 
2045 /* Nonzero if NODE is the std namespace.  */
2046 #define DECL_NAMESPACE_STD_P(NODE)			\
2047   (TREE_CODE (NODE) == NAMESPACE_DECL			\
2048    && CP_DECL_CONTEXT (NODE) == global_namespace	\
2049    && DECL_NAME (NODE) == std_identifier)
2050 
2051 /* In a TREE_LIST concatenating using directives, indicate indirect
2052    directives  */
2053 #define TREE_INDIRECT_USING(NODE) (TREE_LIST_CHECK (NODE)->common.lang_flag_0)
2054 
2055 extern tree decl_shadowed_for_var_lookup (tree);
2056 extern void decl_shadowed_for_var_insert (tree, tree);
2057 
2058 /* Non zero if this is a using decl for a dependent scope. */
2059 #define DECL_DEPENDENT_P(NODE) DECL_LANG_FLAG_0 (USING_DECL_CHECK (NODE))
2060 
2061 /* The scope named in a using decl.  */
2062 #define USING_DECL_SCOPE(NODE) TREE_TYPE (USING_DECL_CHECK (NODE))
2063 
2064 /* The decls named by a using decl.  */
2065 #define USING_DECL_DECLS(NODE) DECL_INITIAL (USING_DECL_CHECK (NODE))
2066 
2067 /* In a VAR_DECL, true if we have a shadowed local variable
2068    in the shadowed var table for this VAR_DECL.  */
2069 #define DECL_HAS_SHADOWED_FOR_VAR_P(NODE) \
2070   (VAR_DECL_CHECK (NODE)->decl_with_vis.shadowed_for_var_p)
2071 
2072 /* In a VAR_DECL for a variable declared in a for statement,
2073    this is the shadowed (local) variable.  */
2074 #define DECL_SHADOWED_FOR_VAR(NODE) \
2075   (DECL_HAS_SHADOWED_FOR_VAR_P(NODE) ? decl_shadowed_for_var_lookup (NODE) : NULL)
2076 
2077 #define SET_DECL_SHADOWED_FOR_VAR(NODE, VAL) \
2078   (decl_shadowed_for_var_insert (NODE, VAL))
2079 
2080 /* In a FUNCTION_DECL, this is nonzero if this function was defined in
2081    the class definition.  We have saved away the text of the function,
2082    but have not yet processed it.  */
2083 #define DECL_PENDING_INLINE_P(NODE) \
2084   (DECL_LANG_SPECIFIC (NODE)->u.f.pending_inline_p)
2085 
2086 /* If DECL_PENDING_INLINE_P holds, this is the saved text of the
2087    function.  */
2088 #define DECL_PENDING_INLINE_INFO(NODE) \
2089   (DECL_LANG_SPECIFIC (NODE)->u.f.u.pending_inline_info)
2090 
2091 /* For a TYPE_DECL: if this structure has many fields, we'll sort them
2092    and put them into a TREE_VEC.  */
2093 #define DECL_SORTED_FIELDS(NODE) \
2094   (DECL_LANG_SPECIFIC (TYPE_DECL_CHECK (NODE))->u.f.u.sorted_fields)
2095 
2096 /* True if on the deferred_fns (see decl2.c) list.  */
2097 #define DECL_DEFERRED_FN(DECL) \
2098   (DECL_LANG_SPECIFIC (DECL)->decl_flags.deferred)
2099 
2100 /* If non-NULL for a VAR_DECL, FUNCTION_DECL, TYPE_DECL or
2101    TEMPLATE_DECL, the entity is either a template specialization (if
2102    DECL_USE_TEMPLATE is non-zero) or the abstract instance of the
2103    template itself.
2104 
2105    In either case, DECL_TEMPLATE_INFO is a TREE_LIST, whose
2106    TREE_PURPOSE is the TEMPLATE_DECL of which this entity is a
2107    specialization or abstract instance.  The TREE_VALUE is the
2108    template arguments used to specialize the template.
2109 
2110    Consider:
2111 
2112       template <typename T> struct S { friend void f(T) {} };
2113 
2114    In this case, S<int>::f is, from the point of view of the compiler,
2115    an instantiation of a template -- but, from the point of view of
2116    the language, each instantiation of S results in a wholly unrelated
2117    global function f.  In this case, DECL_TEMPLATE_INFO for S<int>::f
2118    will be non-NULL, but DECL_USE_TEMPLATE will be zero.  */
2119 #define DECL_TEMPLATE_INFO(NODE) \
2120   (DECL_LANG_SPECIFIC (VAR_TEMPL_TYPE_OR_FUNCTION_DECL_CHECK (NODE)) \
2121    ->decl_flags.u.template_info)
2122 
2123 /* For a VAR_DECL, indicates that the variable is actually a
2124    non-static data member of anonymous union that has been promoted to
2125    variable status.  */
2126 #define DECL_ANON_UNION_VAR_P(NODE) \
2127   (DECL_LANG_FLAG_4 (VAR_DECL_CHECK (NODE)))
2128 
2129 /* Template information for a RECORD_TYPE or UNION_TYPE.  */
2130 #define CLASSTYPE_TEMPLATE_INFO(NODE) \
2131   (LANG_TYPE_CLASS_CHECK (RECORD_OR_UNION_CHECK (NODE))->template_info)
2132 
2133 /* Template information for an ENUMERAL_TYPE.  Although an enumeration may
2134    not be a primary template, it may be declared within the scope of a
2135    primary template and the enumeration constants may depend on
2136    non-type template parameters.  */
2137 #define ENUM_TEMPLATE_INFO(NODE) \
2138   (TYPE_LANG_SLOT_1 (ENUMERAL_TYPE_CHECK (NODE)))
2139 
2140 /* Template information for a template template parameter.  */
2141 #define TEMPLATE_TEMPLATE_PARM_TEMPLATE_INFO(NODE) \
2142   (LANG_TYPE_CLASS_CHECK (BOUND_TEMPLATE_TEMPLATE_PARM_TYPE_CHECK (NODE)) \
2143    ->template_info)
2144 
2145 /* Template information for an ENUMERAL_, RECORD_, or UNION_TYPE.  */
2146 #define TYPE_TEMPLATE_INFO(NODE)			\
2147   (TREE_CODE (NODE) == ENUMERAL_TYPE			\
2148    ? ENUM_TEMPLATE_INFO (NODE) :			\
2149    (TREE_CODE (NODE) == BOUND_TEMPLATE_TEMPLATE_PARM	\
2150     ? TEMPLATE_TEMPLATE_PARM_TEMPLATE_INFO (NODE) :	\
2151     (TYPE_LANG_SPECIFIC (NODE)				\
2152      ? CLASSTYPE_TEMPLATE_INFO (NODE)			\
2153      : NULL_TREE)))
2154 
2155 /* Set the template information for an ENUMERAL_, RECORD_, or
2156    UNION_TYPE to VAL.  */
2157 #define SET_TYPE_TEMPLATE_INFO(NODE, VAL)	\
2158   (TREE_CODE (NODE) == ENUMERAL_TYPE		\
2159    ? (ENUM_TEMPLATE_INFO (NODE) = (VAL))	\
2160    : (CLASSTYPE_TEMPLATE_INFO (NODE) = (VAL)))
2161 
2162 #define TI_TEMPLATE(NODE) (TREE_PURPOSE (NODE))
2163 #define TI_ARGS(NODE) (TREE_VALUE (NODE))
2164 #define TI_PENDING_TEMPLATE_FLAG(NODE) TREE_LANG_FLAG_1 (NODE)
2165 
2166 /* We use TREE_VECs to hold template arguments.  If there is only one
2167    level of template arguments, then the TREE_VEC contains the
2168    arguments directly.  If there is more than one level of template
2169    arguments, then each entry in the TREE_VEC is itself a TREE_VEC,
2170    containing the template arguments for a single level.  The first
2171    entry in the outer TREE_VEC is the outermost level of template
2172    parameters; the last is the innermost.
2173 
2174    It is incorrect to ever form a template argument vector containing
2175    only one level of arguments, but which is a TREE_VEC containing as
2176    its only entry the TREE_VEC for that level.  */
2177 
2178 /* Nonzero if the template arguments is actually a vector of vectors,
2179    rather than just a vector.  */
2180 #define TMPL_ARGS_HAVE_MULTIPLE_LEVELS(NODE)		\
2181   (NODE && TREE_VEC_ELT (NODE, 0)			\
2182    && TREE_CODE (TREE_VEC_ELT (NODE, 0)) == TREE_VEC)
2183 
2184 /* The depth of a template argument vector.  When called directly by
2185    the parser, we use a TREE_LIST rather than a TREE_VEC to represent
2186    template arguments.  In fact, we may even see NULL_TREE if there
2187    are no template arguments.  In both of those cases, there is only
2188    one level of template arguments.  */
2189 #define TMPL_ARGS_DEPTH(NODE)					\
2190   (TMPL_ARGS_HAVE_MULTIPLE_LEVELS (NODE) ? TREE_VEC_LENGTH (NODE) : 1)
2191 
2192 /* The LEVELth level of the template ARGS.  The outermost level of
2193    args is level 1, not level 0.  */
2194 #define TMPL_ARGS_LEVEL(ARGS, LEVEL)		\
2195   (TMPL_ARGS_HAVE_MULTIPLE_LEVELS (ARGS)	\
2196    ? TREE_VEC_ELT (ARGS, (LEVEL) - 1) : (ARGS))
2197 
2198 /* Set the LEVELth level of the template ARGS to VAL.  This macro does
2199    not work with single-level argument vectors.  */
2200 #define SET_TMPL_ARGS_LEVEL(ARGS, LEVEL, VAL)	\
2201   (TREE_VEC_ELT (ARGS, (LEVEL) - 1) = (VAL))
2202 
2203 /* Accesses the IDXth parameter in the LEVELth level of the ARGS.  */
2204 #define TMPL_ARG(ARGS, LEVEL, IDX)				\
2205   (TREE_VEC_ELT (TMPL_ARGS_LEVEL (ARGS, LEVEL), IDX))
2206 
2207 /* Given a single level of template arguments in NODE, return the
2208    number of arguments.  */
2209 #define NUM_TMPL_ARGS(NODE)				\
2210   (TREE_VEC_LENGTH (NODE))
2211 
2212 /* Returns the innermost level of template arguments in ARGS.  */
2213 #define INNERMOST_TEMPLATE_ARGS(NODE) \
2214   (get_innermost_template_args ((NODE), 1))
2215 
2216 /* The number of levels of template parameters given by NODE.  */
2217 #define TMPL_PARMS_DEPTH(NODE) \
2218   ((HOST_WIDE_INT) TREE_INT_CST_LOW (TREE_PURPOSE (NODE)))
2219 
2220 /* The TEMPLATE_DECL instantiated or specialized by NODE.  This
2221    TEMPLATE_DECL will be the immediate parent, not the most general
2222    template.  For example, in:
2223 
2224       template <class T> struct S { template <class U> void f(U); }
2225 
2226    the FUNCTION_DECL for S<int>::f<double> will have, as its
2227    DECL_TI_TEMPLATE, `template <class U> S<int>::f<U>'.
2228 
2229    As a special case, for a member friend template of a template
2230    class, this value will not be a TEMPLATE_DECL, but rather an
2231    IDENTIFIER_NODE or OVERLOAD indicating the name of the template and
2232    any explicit template arguments provided.  For example, in:
2233 
2234      template <class T> struct S { friend void f<int>(int, double); }
2235 
2236    the DECL_TI_TEMPLATE will be an IDENTIFIER_NODE for `f' and the
2237    DECL_TI_ARGS will be {int}.  */
2238 #define DECL_TI_TEMPLATE(NODE)      TI_TEMPLATE (DECL_TEMPLATE_INFO (NODE))
2239 
2240 /* The template arguments used to obtain this decl from the most
2241    general form of DECL_TI_TEMPLATE.  For the example given for
2242    DECL_TI_TEMPLATE, the DECL_TI_ARGS will be {int, double}.  These
2243    are always the full set of arguments required to instantiate this
2244    declaration from the most general template specialized here.  */
2245 #define DECL_TI_ARGS(NODE)	    TI_ARGS (DECL_TEMPLATE_INFO (NODE))
2246 
2247 /* The TEMPLATE_DECL associated with NODE, a class type.  Even if NODE
2248    will be generated from a partial specialization, the TEMPLATE_DECL
2249    referred to here will be the original template.  For example,
2250    given:
2251 
2252       template <typename T> struct S {};
2253       template <typename T> struct S<T*> {};
2254 
2255    the CLASSTPYE_TI_TEMPLATE for S<int*> will be S, not the S<T*>.  */
2256 #define CLASSTYPE_TI_TEMPLATE(NODE) TI_TEMPLATE (CLASSTYPE_TEMPLATE_INFO (NODE))
2257 #define CLASSTYPE_TI_ARGS(NODE)     TI_ARGS (CLASSTYPE_TEMPLATE_INFO (NODE))
2258 
2259 /* For a template instantiation TYPE, returns the TYPE corresponding
2260    to the primary template.  Otherwise returns TYPE itself.  */
2261 #define CLASSTYPE_PRIMARY_TEMPLATE_TYPE(TYPE)				\
2262   ((CLASSTYPE_USE_TEMPLATE ((TYPE))					\
2263     && !CLASSTYPE_TEMPLATE_SPECIALIZATION ((TYPE)))			\
2264    ? TREE_TYPE (DECL_TEMPLATE_RESULT (DECL_PRIMARY_TEMPLATE		\
2265 				      (CLASSTYPE_TI_TEMPLATE ((TYPE))))) \
2266    : (TYPE))
2267 
2268 /* Like CLASS_TI_TEMPLATE, but also works for ENUMERAL_TYPEs.  */
2269 #define TYPE_TI_TEMPLATE(NODE)			\
2270   (TI_TEMPLATE (TYPE_TEMPLATE_INFO (NODE)))
2271 
2272 /* Like DECL_TI_ARGS, but for an ENUMERAL_, RECORD_, or UNION_TYPE.  */
2273 #define TYPE_TI_ARGS(NODE)			\
2274   (TI_ARGS (TYPE_TEMPLATE_INFO (NODE)))
2275 
2276 #define INNERMOST_TEMPLATE_PARMS(NODE)  TREE_VALUE (NODE)
2277 
2278 /* Nonzero if NODE (a TEMPLATE_DECL) is a member template, in the
2279    sense of [temp.mem].  */
2280 #define DECL_MEMBER_TEMPLATE_P(NODE) \
2281   (DECL_LANG_FLAG_1 (TEMPLATE_DECL_CHECK (NODE)))
2282 
2283 /* Nonzero if the NODE corresponds to the template parameters for a
2284    member template, whose inline definition is being processed after
2285    the class definition is complete.  */
2286 #define TEMPLATE_PARMS_FOR_INLINE(NODE) TREE_LANG_FLAG_1 (NODE)
2287 
2288 /* In a FUNCTION_DECL, the saved language-specific per-function data.  */
2289 #define DECL_SAVED_FUNCTION_DATA(NODE)			\
2290   (DECL_LANG_SPECIFIC (FUNCTION_DECL_CHECK (NODE))	\
2291    ->u.f.u.saved_language_function)
2292 
2293 /* Indicates an indirect_expr is for converting a reference.  */
2294 #define REFERENCE_REF_P(NODE) \
2295   TREE_LANG_FLAG_0 (INDIRECT_REF_CHECK (NODE))
2296 
2297 #define NEW_EXPR_USE_GLOBAL(NODE) \
2298   TREE_LANG_FLAG_0 (NEW_EXPR_CHECK (NODE))
2299 #define DELETE_EXPR_USE_GLOBAL(NODE) \
2300   TREE_LANG_FLAG_0 (DELETE_EXPR_CHECK (NODE))
2301 #define DELETE_EXPR_USE_VEC(NODE) \
2302   TREE_LANG_FLAG_1 (DELETE_EXPR_CHECK (NODE))
2303 
2304 /* Indicates that this is a non-dependent COMPOUND_EXPR which will
2305    resolve to a function call.  */
2306 #define COMPOUND_EXPR_OVERLOADED(NODE) \
2307   TREE_LANG_FLAG_0 (COMPOUND_EXPR_CHECK (NODE))
2308 
2309 /* In a CALL_EXPR appearing in a template, true if Koenig lookup
2310    should be performed at instantiation time.  */
2311 #define KOENIG_LOOKUP_P(NODE) TREE_LANG_FLAG_0 (CALL_EXPR_CHECK (NODE))
2312 
2313 /* Indicates whether a string literal has been parenthesized. Such
2314    usages are disallowed in certain circumstances.  */
2315 
2316 #define PAREN_STRING_LITERAL_P(NODE) \
2317   TREE_LANG_FLAG_0 (STRING_CST_CHECK (NODE))
2318 
2319 /* Nonzero if this AGGR_INIT_EXPR provides for initialization via a
2320    constructor call, rather than an ordinary function call.  */
2321 #define AGGR_INIT_VIA_CTOR_P(NODE) \
2322   TREE_LANG_FLAG_0 (AGGR_INIT_EXPR_CHECK (NODE))
2323 
2324 /* The TYPE_MAIN_DECL for a class template type is a TYPE_DECL, not a
2325    TEMPLATE_DECL.  This macro determines whether or not a given class
2326    type is really a template type, as opposed to an instantiation or
2327    specialization of one.  */
2328 #define CLASSTYPE_IS_TEMPLATE(NODE)  \
2329   (CLASSTYPE_TEMPLATE_INFO (NODE)    \
2330    && !CLASSTYPE_USE_TEMPLATE (NODE) \
2331    && PRIMARY_TEMPLATE_P (CLASSTYPE_TI_TEMPLATE (NODE)))
2332 
2333 /* The name used by the user to name the typename type.  Typically,
2334    this is an IDENTIFIER_NODE, and the same as the DECL_NAME on the
2335    corresponding TYPE_DECL.  However, this may also be a
2336    TEMPLATE_ID_EXPR if we had something like `typename X::Y<T>'.  */
2337 #define TYPENAME_TYPE_FULLNAME(NODE) (TYPENAME_TYPE_CHECK (NODE))->type.values
2338 
2339 /* True if a TYPENAME_TYPE was declared as an "enum".  */
2340 #define TYPENAME_IS_ENUM_P(NODE) \
2341   (TREE_LANG_FLAG_0 (TYPENAME_TYPE_CHECK (NODE)))
2342 
2343 /* True if a TYPENAME_TYPE was declared as a "class", "struct", or
2344    "union".  */
2345 #define TYPENAME_IS_CLASS_P(NODE) \
2346   (TREE_LANG_FLAG_1 (TYPENAME_TYPE_CHECK (NODE)))
2347 
2348 /* Nonzero in INTEGER_CST means that this int is negative by dint of
2349    using a twos-complement negated operand.  */
2350 #define TREE_NEGATED_INT(NODE) TREE_LANG_FLAG_0 (INTEGER_CST_CHECK (NODE))
2351 
2352 /* [class.virtual]
2353 
2354    A class that declares or inherits a virtual function is called a
2355    polymorphic class.  */
2356 #define TYPE_POLYMORPHIC_P(NODE) (TREE_LANG_FLAG_2 (NODE))
2357 
2358 /* Nonzero if this class has a virtual function table pointer.  */
2359 #define TYPE_CONTAINS_VPTR_P(NODE)		\
2360   (TYPE_POLYMORPHIC_P (NODE) || CLASSTYPE_VBASECLASSES (NODE))
2361 
2362 /* This flag is true of a local VAR_DECL if it was declared in a for
2363    statement, but we are no longer in the scope of the for.  */
2364 #define DECL_DEAD_FOR_LOCAL(NODE) DECL_LANG_FLAG_7 (VAR_DECL_CHECK (NODE))
2365 
2366 /* This flag is set on a VAR_DECL that is a DECL_DEAD_FOR_LOCAL
2367    if we already emitted a warning about using it.  */
2368 #define DECL_ERROR_REPORTED(NODE) DECL_LANG_FLAG_0 (VAR_DECL_CHECK (NODE))
2369 
2370 /* Nonzero if NODE is a FUNCTION_DECL (for a function with global
2371    scope) declared in a local scope.  */
2372 #define DECL_LOCAL_FUNCTION_P(NODE) \
2373   DECL_LANG_FLAG_0 (FUNCTION_DECL_CHECK (NODE))
2374 
2375 /* Nonzero if NODE is a DECL which we know about but which has not
2376    been explicitly declared, such as a built-in function or a friend
2377    declared inside a class.  In the latter case DECL_HIDDEN_FRIEND_P
2378    will be set.  */
2379 #define DECL_ANTICIPATED(NODE) \
2380   (DECL_LANG_SPECIFIC (DECL_COMMON_CHECK (NODE))->decl_flags.anticipated_p)
2381 
2382 /* Nonzero if NODE is a FUNCTION_DECL which was declared as a friend
2383    within a class but has not been declared in the surrounding scope.
2384    The function is invisible except via argument dependent lookup.  */
2385 #define DECL_HIDDEN_FRIEND_P(NODE) \
2386   (DECL_LANG_SPECIFIC (DECL_COMMON_CHECK (NODE))->decl_flags.hidden_friend_p)
2387 
2388 /* Nonzero if DECL has been declared threadprivate by
2389    #pragma omp threadprivate.  */
2390 #define CP_DECL_THREADPRIVATE_P(DECL) \
2391   (DECL_LANG_SPECIFIC (VAR_DECL_CHECK (DECL))->decl_flags.threadprivate_p)
2392 
2393 /* Record whether a typedef for type `int' was actually `signed int'.  */
2394 #define C_TYPEDEF_EXPLICITLY_SIGNED(EXP) DECL_LANG_FLAG_1 (EXP)
2395 
2396 /* Returns nonzero if DECL has external linkage, as specified by the
2397    language standard.  (This predicate may hold even when the
2398    corresponding entity is not actually given external linkage in the
2399    object file; see decl_linkage for details.)  */
2400 #define DECL_EXTERNAL_LINKAGE_P(DECL) \
2401   (decl_linkage (DECL) == lk_external)
2402 
2403 /* Keep these codes in ascending code order.  */
2404 
2405 #define INTEGRAL_CODE_P(CODE)	\
2406   ((CODE) == ENUMERAL_TYPE	\
2407    || (CODE) == BOOLEAN_TYPE	\
2408    || (CODE) == INTEGER_TYPE)
2409 
2410 /* [basic.fundamental]
2411 
2412    Types  bool, char, wchar_t, and the signed and unsigned integer types
2413    are collectively called integral types.
2414 
2415    Note that INTEGRAL_TYPE_P, as defined in tree.h, allows enumeration
2416    types as well, which is incorrect in C++.  Keep these checks in
2417    ascending code order.  */
2418 #define CP_INTEGRAL_TYPE_P(TYPE)		\
2419   (TREE_CODE (TYPE) == BOOLEAN_TYPE		\
2420    || TREE_CODE (TYPE) == INTEGER_TYPE)
2421 
2422 /* Returns true if TYPE is an integral or enumeration name.  Keep
2423    these checks in ascending code order.  */
2424 #define INTEGRAL_OR_ENUMERATION_TYPE_P(TYPE) \
2425    (TREE_CODE (TYPE) == ENUMERAL_TYPE || CP_INTEGRAL_TYPE_P (TYPE))
2426 
2427 /* [basic.fundamental]
2428 
2429    Integral and floating types are collectively called arithmetic
2430    types.
2431 
2432    As a GNU extension, we also accept complex types.
2433 
2434    Keep these checks in ascending code order.  */
2435 #define ARITHMETIC_TYPE_P(TYPE) \
2436   (CP_INTEGRAL_TYPE_P (TYPE) \
2437    || TREE_CODE (TYPE) == REAL_TYPE \
2438    || TREE_CODE (TYPE) == COMPLEX_TYPE)
2439 
2440 /* [basic.types]
2441 
2442    Arithmetic types, enumeration types, pointer types, and
2443    pointer-to-member types, are collectively called scalar types.
2444 
2445    Keep these checks in ascending code order.  */
2446 #define SCALAR_TYPE_P(TYPE)			\
2447   (TYPE_PTRMEM_P (TYPE)				\
2448    || TREE_CODE (TYPE) == ENUMERAL_TYPE		\
2449    || ARITHMETIC_TYPE_P (TYPE)			\
2450    || TYPE_PTR_P (TYPE)				\
2451    /* APPLE LOCAL blocks 6040305 */		\
2452    || TREE_CODE (TYPE) == BLOCK_POINTER_TYPE	\
2453    || TYPE_PTRMEMFUNC_P (TYPE))
2454 
2455 /* [dcl.init.aggr]
2456 
2457    An aggregate is an array or a class with no user-declared
2458    constructors, no private or protected non-static data members, no
2459    base classes, and no virtual functions.
2460 
2461    As an extension, we also treat vectors as aggregates.  Keep these
2462    checks in ascending code order.  */
2463 #define CP_AGGREGATE_TYPE_P(TYPE)				\
2464   (TREE_CODE (TYPE) == VECTOR_TYPE				\
2465    ||TREE_CODE (TYPE) == ARRAY_TYPE				\
2466    || (CLASS_TYPE_P (TYPE) && !CLASSTYPE_NON_AGGREGATE (TYPE)))
2467 
2468 /* Nonzero for a class type means that the class type has a
2469    user-declared constructor.  */
2470 #define TYPE_HAS_CONSTRUCTOR(NODE) (TYPE_LANG_FLAG_1 (NODE))
2471 
2472 /* When appearing in an INDIRECT_REF, it means that the tree structure
2473    underneath is actually a call to a constructor.  This is needed
2474    when the constructor must initialize local storage (which can
2475    be automatically destroyed), rather than allowing it to allocate
2476    space from the heap.
2477 
2478    When appearing in a SAVE_EXPR, it means that underneath
2479    is a call to a constructor.
2480 
2481    When appearing in a CONSTRUCTOR, the expression is a
2482    compound literal.
2483 
2484    When appearing in a FIELD_DECL, it means that this field
2485    has been duly initialized in its constructor.  */
2486 #define TREE_HAS_CONSTRUCTOR(NODE) (TREE_LANG_FLAG_4 (NODE))
2487 
2488 /* True if NODE is a brace-enclosed initializer.  */
2489 #define BRACE_ENCLOSED_INITIALIZER_P(NODE) \
2490   (TREE_CODE (NODE) == CONSTRUCTOR && !TREE_TYPE (NODE))
2491 
2492 /* True if NODE is a compound-literal, i.e., a brace-enclosed
2493    initializer cast to a particular type.  */
2494 #define COMPOUND_LITERAL_P(NODE) \
2495   (TREE_CODE (NODE) == CONSTRUCTOR && TREE_HAS_CONSTRUCTOR (NODE))
2496 
2497 #define EMPTY_CONSTRUCTOR_P(NODE) (TREE_CODE (NODE) == CONSTRUCTOR \
2498 				   && VEC_empty (constructor_elt, \
2499 						 CONSTRUCTOR_ELTS (NODE)) \
2500 				   && !TREE_HAS_CONSTRUCTOR (NODE))
2501 
2502 /* Nonzero means that an object of this type can not be initialized using
2503    an initializer list.  */
2504 #define CLASSTYPE_NON_AGGREGATE(NODE) \
2505   (LANG_TYPE_CLASS_CHECK (NODE)->non_aggregate)
2506 #define TYPE_NON_AGGREGATE_CLASS(NODE) \
2507   (IS_AGGR_TYPE (NODE) && CLASSTYPE_NON_AGGREGATE (NODE))
2508 
2509 /* Nonzero if there is a user-defined X::op=(x&) for this class.  */
2510 #define TYPE_HAS_COMPLEX_ASSIGN_REF(NODE) (LANG_TYPE_CLASS_CHECK (NODE)->has_complex_assign_ref)
2511 #define TYPE_HAS_COMPLEX_INIT_REF(NODE) (LANG_TYPE_CLASS_CHECK (NODE)->has_complex_init_ref)
2512 
2513 /* Nonzero if TYPE has a trivial destructor.  From [class.dtor]:
2514 
2515      A destructor is trivial if it is an implicitly declared
2516      destructor and if:
2517 
2518        - all of the direct base classes of its class have trivial
2519 	 destructors,
2520 
2521        - for all of the non-static data members of its class that are
2522 	 of class type (or array thereof), each such class has a
2523 	 trivial destructor.  */
2524 #define TYPE_HAS_TRIVIAL_DESTRUCTOR(NODE) \
2525   (!TYPE_HAS_NONTRIVIAL_DESTRUCTOR (NODE))
2526 
2527 /* Nonzero for _TYPE node means that this type does not have a trivial
2528    destructor.  Therefore, destroying an object of this type will
2529    involve a call to a destructor.  This can apply to objects of
2530    ARRAY_TYPE is the type of the elements needs a destructor.  */
2531 #define TYPE_HAS_NONTRIVIAL_DESTRUCTOR(NODE) \
2532   (TYPE_LANG_FLAG_4 (NODE))
2533 
2534 /* APPLE LOCAL begin omit calls to empty destructors 5559195 */
2535 /* One if the body of the destructor of class type NODE has been shown to do
2536  nothing, else zero. */
2537 #define CLASSTYPE_HAS_NONTRIVIAL_DESTRUCTOR_BODY(NODE) (LANG_TYPE_CLASS_CHECK (NODE)->has_nontrivial_destructor_body)
2538 
2539 /* One if destructor of this type must be called by its base classes because
2540  one of its base classes' destructors must be called. */
2541 #define CLASSTYPE_DESTRUCTOR_NONTRIVIAL_BECAUSE_OF_BASE(NODE) (LANG_TYPE_CLASS_CHECK (NODE)->destructor_nontrivial_because_of_base)
2542 
2543 /* One if the values of CLASSTYPE_DESTRUCTOR_NONTRIVIAL_BECAUSE_OF_BASE
2544  and CLASSTYPE_HAS_NONTRIVIAL_DESTRUCTOR_BODY are final. */
2545 #define CLASSTYPE_DESTRUCTOR_TRIVIALITY_FINAL(NODE) (LANG_TYPE_CLASS_CHECK (NODE)->destructor_triviality_final)
2546 /* APPLE LOCAL end omit calls to empty destructors 5559195 */
2547 
2548 /* Nonzero for class type means that copy initialization of this type can use
2549    a bitwise copy.  */
2550 #define TYPE_HAS_TRIVIAL_INIT_REF(NODE) \
2551   (TYPE_HAS_INIT_REF (NODE) && ! TYPE_HAS_COMPLEX_INIT_REF (NODE))
2552 
2553 /* Nonzero for class type means that assignment of this type can use
2554    a bitwise copy.  */
2555 #define TYPE_HAS_TRIVIAL_ASSIGN_REF(NODE) \
2556   (TYPE_HAS_ASSIGN_REF (NODE) && ! TYPE_HAS_COMPLEX_ASSIGN_REF (NODE))
2557 
2558 /* Returns true if NODE is a pointer-to-data-member.  */
2559 #define TYPE_PTRMEM_P(NODE)			\
2560   (TREE_CODE (NODE) == OFFSET_TYPE)
2561 /* Returns true if NODE is a pointer.  */
2562 #define TYPE_PTR_P(NODE)			\
2563   (TREE_CODE (NODE) == POINTER_TYPE)
2564 
2565 /* Returns true if NODE is an object type:
2566 
2567      [basic.types]
2568 
2569      An object type is a (possibly cv-qualified) type that is not a
2570      function type, not a reference type, and not a void type.
2571 
2572    Keep these checks in ascending order, for speed.  */
2573 #define TYPE_OBJ_P(NODE)			\
2574   (TREE_CODE (NODE) != REFERENCE_TYPE		\
2575    && TREE_CODE (NODE) != VOID_TYPE		\
2576    && TREE_CODE (NODE) != FUNCTION_TYPE		\
2577    && TREE_CODE (NODE) != METHOD_TYPE)
2578 
2579 /* Returns true if NODE is a pointer to an object.  Keep these checks
2580    in ascending tree code order.  */
2581 #define TYPE_PTROB_P(NODE)					\
2582   (TYPE_PTR_P (NODE) && TYPE_OBJ_P (TREE_TYPE (NODE)))
2583 
2584 /* Returns true if NODE is a reference to an object.  Keep these checks
2585    in ascending tree code order.  */
2586 #define TYPE_REF_OBJ_P(NODE)					\
2587   (TREE_CODE (NODE) == REFERENCE_TYPE && TYPE_OBJ_P (TREE_TYPE (NODE)))
2588 
2589 /* Returns true if NODE is a pointer to an object, or a pointer to
2590    void.  Keep these checks in ascending tree code order.  */
2591 #define TYPE_PTROBV_P(NODE)					\
2592   (TYPE_PTR_P (NODE)						\
2593    && !(TREE_CODE (TREE_TYPE (NODE)) == FUNCTION_TYPE		\
2594 	|| TREE_CODE (TREE_TYPE (NODE)) == METHOD_TYPE))
2595 
2596 /* Returns true if NODE is a pointer to function.  */
2597 #define TYPE_PTRFN_P(NODE)				\
2598   (TREE_CODE (NODE) == POINTER_TYPE			\
2599    && TREE_CODE (TREE_TYPE (NODE)) == FUNCTION_TYPE)
2600 
2601 /* Returns true if NODE is a reference to function.  */
2602 #define TYPE_REFFN_P(NODE)				\
2603   (TREE_CODE (NODE) == REFERENCE_TYPE			\
2604    && TREE_CODE (TREE_TYPE (NODE)) == FUNCTION_TYPE)
2605 
2606 /* Nonzero for _TYPE node means that this type is a pointer to member
2607    function type.  */
2608 #define TYPE_PTRMEMFUNC_P(NODE)		\
2609   (TREE_CODE (NODE) == RECORD_TYPE	\
2610    && TYPE_LANG_SPECIFIC (NODE)		\
2611    && TYPE_PTRMEMFUNC_FLAG (NODE))
2612 
2613 #define TYPE_PTRMEMFUNC_FLAG(NODE) \
2614   (LANG_TYPE_CLASS_CHECK (NODE)->ptrmemfunc_flag)
2615 
2616 /* Returns true if NODE is a pointer-to-member.  */
2617 #define TYPE_PTR_TO_MEMBER_P(NODE) \
2618   (TYPE_PTRMEM_P (NODE) || TYPE_PTRMEMFUNC_P (NODE))
2619 
2620 /* Indicates when overload resolution may resolve to a pointer to
2621    member function. [expr.unary.op]/3 */
2622 #define PTRMEM_OK_P(NODE) \
2623   TREE_LANG_FLAG_0 (TREE_CHECK2 ((NODE), ADDR_EXPR, OFFSET_REF))
2624 
2625 /* Get the POINTER_TYPE to the METHOD_TYPE associated with this
2626    pointer to member function.  TYPE_PTRMEMFUNC_P _must_ be true,
2627    before using this macro.  */
2628 #define TYPE_PTRMEMFUNC_FN_TYPE(NODE) \
2629   (TREE_TYPE (TYPE_FIELDS (NODE)))
2630 
2631 /* Returns `A' for a type like `int (A::*)(double)' */
2632 #define TYPE_PTRMEMFUNC_OBJECT_TYPE(NODE) \
2633   TYPE_METHOD_BASETYPE (TREE_TYPE (TYPE_PTRMEMFUNC_FN_TYPE (NODE)))
2634 
2635 /* These are use to manipulate the canonical RECORD_TYPE from the
2636    hashed POINTER_TYPE, and can only be used on the POINTER_TYPE.  */
2637 #define TYPE_GET_PTRMEMFUNC_TYPE(NODE) \
2638   (TYPE_LANG_SPECIFIC (NODE) ? LANG_TYPE_PTRMEM_CHECK (NODE)->record : NULL)
2639 #define TYPE_SET_PTRMEMFUNC_TYPE(NODE, VALUE)				\
2640   do {									\
2641     if (TYPE_LANG_SPECIFIC (NODE) == NULL)				\
2642       {									\
2643 	TYPE_LANG_SPECIFIC (NODE) = GGC_CNEWVAR				\
2644 	 (struct lang_type, sizeof (struct lang_type_ptrmem));		\
2645 	TYPE_LANG_SPECIFIC (NODE)->u.ptrmem.h.is_lang_type_class = 0;	\
2646       }									\
2647     TYPE_LANG_SPECIFIC (NODE)->u.ptrmem.record = (VALUE);		\
2648   } while (0)
2649 
2650 /* For a pointer-to-member type of the form `T X::*', this is `X'.
2651    For a type like `void (X::*)() const', this type is `X', not `const
2652    X'.  To get at the `const X' you have to look at the
2653    TYPE_PTRMEM_POINTED_TO_TYPE; there, the first parameter will have
2654    type `const X*'.  */
2655 #define TYPE_PTRMEM_CLASS_TYPE(NODE)			\
2656   (TYPE_PTRMEM_P (NODE)					\
2657    ? TYPE_OFFSET_BASETYPE (NODE)		\
2658    : TYPE_PTRMEMFUNC_OBJECT_TYPE (NODE))
2659 
2660 /* For a pointer-to-member type of the form `T X::*', this is `T'.  */
2661 #define TYPE_PTRMEM_POINTED_TO_TYPE(NODE)		\
2662    (TYPE_PTRMEM_P (NODE)				\
2663     ? TREE_TYPE (NODE)					\
2664     : TREE_TYPE (TYPE_PTRMEMFUNC_FN_TYPE (NODE)))
2665 
2666 /* For a pointer-to-member constant `X::Y' this is the RECORD_TYPE for
2667    `X'.  */
2668 #define PTRMEM_CST_CLASS(NODE) \
2669   TYPE_PTRMEM_CLASS_TYPE (TREE_TYPE (PTRMEM_CST_CHECK (NODE)))
2670 
2671 /* For a pointer-to-member constant `X::Y' this is the _DECL for
2672    `Y'.  */
2673 #define PTRMEM_CST_MEMBER(NODE) (((ptrmem_cst_t)PTRMEM_CST_CHECK (NODE))->member)
2674 
2675 /* The expression in question for a TYPEOF_TYPE.  */
2676 #define TYPEOF_TYPE_EXPR(NODE) (TYPEOF_TYPE_CHECK (NODE))->type.values
2677 
2678 /* Nonzero for VAR_DECL and FUNCTION_DECL node means that `extern' was
2679    specified in its declaration.  This can also be set for an
2680    erroneously declared PARM_DECL.  */
2681 #define DECL_THIS_EXTERN(NODE) \
2682   DECL_LANG_FLAG_2 (VAR_FUNCTION_OR_PARM_DECL_CHECK (NODE))
2683 
2684 /* Nonzero for VAR_DECL and FUNCTION_DECL node means that `static' was
2685    specified in its declaration.  This can also be set for an
2686    erroneously declared PARM_DECL.  */
2687 #define DECL_THIS_STATIC(NODE) \
2688   DECL_LANG_FLAG_6 (VAR_FUNCTION_OR_PARM_DECL_CHECK (NODE))
2689 
2690 /* Nonzero for FIELD_DECL node means that this field is a base class
2691    of the parent object, as opposed to a member field.  */
2692 #define DECL_FIELD_IS_BASE(NODE) \
2693   DECL_LANG_FLAG_6 (FIELD_DECL_CHECK (NODE))
2694 
2695 /* Nonzero if TYPE is an anonymous union or struct type.  We have to use a
2696    flag for this because "A union for which objects or pointers are
2697    declared is not an anonymous union" [class.union].  */
2698 #define ANON_AGGR_TYPE_P(NODE)				\
2699   (CLASS_TYPE_P (NODE) && LANG_TYPE_CLASS_CHECK (NODE)->anon_aggr)
2700 #define SET_ANON_AGGR_TYPE_P(NODE)			\
2701   (LANG_TYPE_CLASS_CHECK (NODE)->anon_aggr = 1)
2702 
2703 /* Nonzero if TYPE is an anonymous union type.  */
2704 #define ANON_UNION_TYPE_P(NODE) \
2705   (TREE_CODE (NODE) == UNION_TYPE && ANON_AGGR_TYPE_P (NODE))
2706 
2707 #define UNKNOWN_TYPE LANG_TYPE
2708 
2709 /* Define fields and accessors for nodes representing declared names.  */
2710 
2711 #define TYPE_WAS_ANONYMOUS(NODE) (LANG_TYPE_CLASS_CHECK (NODE)->was_anonymous)
2712 
2713 /* C++: all of these are overloaded!  These apply only to TYPE_DECLs.  */
2714 
2715 /* The format of each node in the DECL_FRIENDLIST is as follows:
2716 
2717    The TREE_PURPOSE will be the name of a function, i.e., an
2718    IDENTIFIER_NODE.  The TREE_VALUE will be itself a TREE_LIST, whose
2719    TREE_VALUEs are friends with the given name.  */
2720 #define DECL_FRIENDLIST(NODE)		(DECL_INITIAL (NODE))
2721 #define FRIEND_NAME(LIST) (TREE_PURPOSE (LIST))
2722 #define FRIEND_DECLS(LIST) (TREE_VALUE (LIST))
2723 
2724 /* The DECL_ACCESS, if non-NULL, is a TREE_LIST.  The TREE_PURPOSE of
2725    each node is a type; the TREE_VALUE is the access granted for this
2726    DECL in that type.  The DECL_ACCESS is set by access declarations.
2727    For example, if a member that would normally be public in a
2728    derived class is made protected, then the derived class and the
2729    protected_access_node will appear in the DECL_ACCESS for the node.  */
2730 #define DECL_ACCESS(NODE) (LANG_DECL_U2_CHECK (NODE, 0)->access)
2731 
2732 /* Nonzero if the FUNCTION_DECL is a global constructor.  */
2733 #define DECL_GLOBAL_CTOR_P(NODE) \
2734   (DECL_LANG_SPECIFIC (NODE)->decl_flags.global_ctor_p)
2735 
2736 /* Nonzero if the FUNCTION_DECL is a global destructor.  */
2737 #define DECL_GLOBAL_DTOR_P(NODE) \
2738   (DECL_LANG_SPECIFIC (NODE)->decl_flags.global_dtor_p)
2739 
2740 /* Accessor macros for C++ template decl nodes.  */
2741 
2742 /* The DECL_TEMPLATE_PARMS are a list.  The TREE_PURPOSE of each node
2743    is a INT_CST whose TREE_INT_CST_LOW indicates the level of the
2744    template parameters, with 1 being the outermost set of template
2745    parameters.  The TREE_VALUE is a vector, whose elements are the
2746    template parameters at each level.  Each element in the vector is a
2747    TREE_LIST, whose TREE_VALUE is a PARM_DECL (if the parameter is a
2748    non-type parameter), or a TYPE_DECL (if the parameter is a type
2749    parameter).  The TREE_PURPOSE is the default value, if any.  The
2750    TEMPLATE_PARM_INDEX for the parameter is available as the
2751    DECL_INITIAL (for a PARM_DECL) or as the TREE_TYPE (for a
2752    TYPE_DECL).  */
2753 #define DECL_TEMPLATE_PARMS(NODE)       DECL_NON_COMMON_CHECK (NODE)->decl_non_common.arguments
2754 #define DECL_INNERMOST_TEMPLATE_PARMS(NODE) \
2755    INNERMOST_TEMPLATE_PARMS (DECL_TEMPLATE_PARMS (NODE))
2756 #define DECL_NTPARMS(NODE) \
2757    TREE_VEC_LENGTH (DECL_INNERMOST_TEMPLATE_PARMS (NODE))
2758 /* For function, method, class-data templates.  */
2759 #define DECL_TEMPLATE_RESULT(NODE)      DECL_RESULT_FLD (NODE)
2760 /* For a static member variable template, the
2761    DECL_TEMPLATE_INSTANTIATIONS list contains the explicitly and
2762    implicitly generated instantiations of the variable.  There are no
2763    partial instantiations of static member variables, so all of these
2764    will be full instantiations.
2765 
2766    For a class template the DECL_TEMPLATE_INSTANTIATIONS lists holds
2767    all instantiations and specializations of the class type, including
2768    partial instantiations and partial specializations.
2769 
2770    In both cases, the TREE_PURPOSE of each node contains the arguments
2771    used; the TREE_VALUE contains the generated variable.  The template
2772    arguments are always complete.  For example, given:
2773 
2774       template <class T> struct S1 {
2775 	template <class U> struct S2 {};
2776 	template <class U> struct S2<U*> {};
2777       };
2778 
2779    the record for the partial specialization will contain, as its
2780    argument list, { {T}, {U*} }, and will be on the
2781    DECL_TEMPLATE_INSTANTIATIONS list for `template <class T> template
2782    <class U> struct S1<T>::S2'.
2783 
2784    This list is not used for function templates.  */
2785 #define DECL_TEMPLATE_INSTANTIATIONS(NODE) DECL_VINDEX (NODE)
2786 /* For a function template, the DECL_TEMPLATE_SPECIALIZATIONS lists
2787    contains all instantiations and specializations of the function,
2788    including partial instantiations.  For a partial instantiation
2789    which is a specialization, this list holds only full
2790    specializations of the template that are instantiations of the
2791    partial instantiation.  For example, given:
2792 
2793       template <class T> struct S {
2794 	template <class U> void f(U);
2795 	template <> void f(T);
2796       };
2797 
2798    the `S<int>::f<int>(int)' function will appear on the
2799    DECL_TEMPLATE_SPECIALIZATIONS list for both `template <class T>
2800    template <class U> void S<T>::f(U)' and `template <class T> void
2801    S<int>::f(T)'.  In the latter case, however, it will have only the
2802    innermost set of arguments (T, in this case).  The DECL_TI_TEMPLATE
2803    for the function declaration will point at the specialization, not
2804    the fully general template.
2805 
2806    For a class template, this list contains the partial
2807    specializations of this template.  (Full specializations are not
2808    recorded on this list.)  The TREE_PURPOSE holds the arguments used
2809    in the partial specialization (e.g., for `template <class T> struct
2810    S<T*, int>' this will be `T*'.)  The arguments will also include
2811    any outer template arguments.  The TREE_VALUE holds the innermost
2812    template parameters for the specialization (e.g., `T' in the
2813    example above.)  The TREE_TYPE is the _TYPE node for the partial
2814    specialization.
2815 
2816    This list is not used for static variable templates.  */
2817 #define DECL_TEMPLATE_SPECIALIZATIONS(NODE)     DECL_SIZE (NODE)
2818 
2819 /* Nonzero for a DECL which is actually a template parameter.  Keep
2820    these checks in ascending tree code order.   */
2821 #define DECL_TEMPLATE_PARM_P(NODE)		\
2822   (DECL_LANG_FLAG_0 (NODE)			\
2823    && (TREE_CODE (NODE) == CONST_DECL		\
2824        || TREE_CODE (NODE) == PARM_DECL		\
2825        || TREE_CODE (NODE) == TYPE_DECL		\
2826        || TREE_CODE (NODE) == TEMPLATE_DECL))
2827 
2828 /* Mark NODE as a template parameter.  */
2829 #define SET_DECL_TEMPLATE_PARM_P(NODE) \
2830   (DECL_LANG_FLAG_0 (NODE) = 1)
2831 
2832 /* Nonzero if NODE is a template template parameter.  */
2833 #define DECL_TEMPLATE_TEMPLATE_PARM_P(NODE) \
2834   (TREE_CODE (NODE) == TEMPLATE_DECL && DECL_TEMPLATE_PARM_P (NODE))
2835 
2836 /* Nonzero if NODE is a TEMPLATE_DECL representing an
2837    UNBOUND_CLASS_TEMPLATE tree node.  */
2838 #define DECL_UNBOUND_CLASS_TEMPLATE_P(NODE) \
2839   (TREE_CODE (NODE) == TEMPLATE_DECL && !DECL_TEMPLATE_RESULT (NODE))
2840 
2841 #define DECL_FUNCTION_TEMPLATE_P(NODE)  \
2842   (TREE_CODE (NODE) == TEMPLATE_DECL \
2843    && !DECL_UNBOUND_CLASS_TEMPLATE_P (NODE) \
2844    && TREE_CODE (DECL_TEMPLATE_RESULT (NODE)) == FUNCTION_DECL)
2845 
2846 /* Nonzero for a DECL that represents a template class.  */
2847 #define DECL_CLASS_TEMPLATE_P(NODE) \
2848   (TREE_CODE (NODE) == TEMPLATE_DECL \
2849    && !DECL_UNBOUND_CLASS_TEMPLATE_P (NODE) \
2850    && TREE_CODE (DECL_TEMPLATE_RESULT (NODE)) == TYPE_DECL \
2851    && !DECL_TEMPLATE_TEMPLATE_PARM_P (NODE))
2852 
2853 /* Nonzero if NODE which declares a type.  */
2854 #define DECL_DECLARES_TYPE_P(NODE) \
2855   (TREE_CODE (NODE) == TYPE_DECL || DECL_CLASS_TEMPLATE_P (NODE))
2856 
2857 /* Nonzero if NODE is the typedef implicitly generated for a type when
2858    the type is declared.  In C++, `struct S {};' is roughly
2859    equivalent to `struct S {}; typedef struct S S;' in C.
2860    DECL_IMPLICIT_TYPEDEF_P will hold for the typedef indicated in this
2861    example.  In C++, there is a second implicit typedef for each
2862    class, in the scope of `S' itself, so that you can say `S::S'.
2863    DECL_SELF_REFERENCE_P will hold for that second typedef.  */
2864 #define DECL_IMPLICIT_TYPEDEF_P(NODE) \
2865   (TREE_CODE (NODE) == TYPE_DECL && DECL_LANG_FLAG_2 (NODE))
2866 #define SET_DECL_IMPLICIT_TYPEDEF_P(NODE) \
2867   (DECL_LANG_FLAG_2 (NODE) = 1)
2868 #define DECL_SELF_REFERENCE_P(NODE) \
2869   (TREE_CODE (NODE) == TYPE_DECL && DECL_LANG_FLAG_4 (NODE))
2870 #define SET_DECL_SELF_REFERENCE_P(NODE) \
2871   (DECL_LANG_FLAG_4 (NODE) = 1)
2872 
2873 /* A `primary' template is one that has its own template header.  A
2874    member function of a class template is a template, but not primary.
2875    A member template is primary.  Friend templates are primary, too.  */
2876 
2877 /* Returns the primary template corresponding to these parameters.  */
2878 #define DECL_PRIMARY_TEMPLATE(NODE) \
2879   (TREE_TYPE (DECL_INNERMOST_TEMPLATE_PARMS (NODE)))
2880 
2881 /* Returns nonzero if NODE is a primary template.  */
2882 #define PRIMARY_TEMPLATE_P(NODE) (DECL_PRIMARY_TEMPLATE (NODE) == (NODE))
2883 
2884 /* Non-zero iff NODE is a specialization of a template.  The value
2885    indicates the type of specializations:
2886 
2887      1=implicit instantiation
2888 
2889      2=partial or explicit specialization, e.g.:
2890 
2891         template <> int min<int> (int, int),
2892 
2893      3=explicit instantiation, e.g.:
2894 
2895         template int min<int> (int, int);
2896 
2897    Note that NODE will be marked as a specialization even if the
2898    template it is instantiating is not a primary template.  For
2899    example, given:
2900 
2901      template <typename T> struct O {
2902        void f();
2903        struct I {};
2904      };
2905 
2906    both O<int>::f and O<int>::I will be marked as instantiations.
2907 
2908    If DECL_USE_TEMPLATE is non-zero, then DECL_TEMPLATE_INFO will also
2909    be non-NULL.  */
2910 #define DECL_USE_TEMPLATE(NODE) (DECL_LANG_SPECIFIC (NODE)->decl_flags.use_template)
2911 
2912 /* Like DECL_USE_TEMPLATE, but for class types.  */
2913 #define CLASSTYPE_USE_TEMPLATE(NODE) \
2914   (LANG_TYPE_CLASS_CHECK (NODE)->use_template)
2915 
2916 /* True if NODE is a specialization of a primary template.  */
2917 #define CLASSTYPE_SPECIALIZATION_OF_PRIMARY_TEMPLATE_P(NODE)	\
2918   (CLASS_TYPE_P (NODE)						\
2919    && CLASSTYPE_USE_TEMPLATE (NODE)				\
2920    && PRIMARY_TEMPLATE_P (CLASSTYPE_TI_TEMPLATE (arg)))
2921 
2922 #define DECL_TEMPLATE_INSTANTIATION(NODE) (DECL_USE_TEMPLATE (NODE) & 1)
2923 #define CLASSTYPE_TEMPLATE_INSTANTIATION(NODE) \
2924   (CLASSTYPE_USE_TEMPLATE (NODE) & 1)
2925 
2926 #define DECL_TEMPLATE_SPECIALIZATION(NODE) (DECL_USE_TEMPLATE (NODE) == 2)
2927 #define SET_DECL_TEMPLATE_SPECIALIZATION(NODE) (DECL_USE_TEMPLATE (NODE) = 2)
2928 
2929 /* Returns true for an explicit or partial specialization of a class
2930    template.  */
2931 #define CLASSTYPE_TEMPLATE_SPECIALIZATION(NODE) \
2932   (CLASSTYPE_USE_TEMPLATE (NODE) == 2)
2933 #define SET_CLASSTYPE_TEMPLATE_SPECIALIZATION(NODE) \
2934   (CLASSTYPE_USE_TEMPLATE (NODE) = 2)
2935 
2936 #define DECL_IMPLICIT_INSTANTIATION(NODE) (DECL_USE_TEMPLATE (NODE) == 1)
2937 #define SET_DECL_IMPLICIT_INSTANTIATION(NODE) (DECL_USE_TEMPLATE (NODE) = 1)
2938 #define CLASSTYPE_IMPLICIT_INSTANTIATION(NODE) \
2939   (CLASSTYPE_USE_TEMPLATE (NODE) == 1)
2940 #define SET_CLASSTYPE_IMPLICIT_INSTANTIATION(NODE) \
2941   (CLASSTYPE_USE_TEMPLATE (NODE) = 1)
2942 
2943 #define DECL_EXPLICIT_INSTANTIATION(NODE) (DECL_USE_TEMPLATE (NODE) == 3)
2944 #define SET_DECL_EXPLICIT_INSTANTIATION(NODE) (DECL_USE_TEMPLATE (NODE) = 3)
2945 #define CLASSTYPE_EXPLICIT_INSTANTIATION(NODE) \
2946   (CLASSTYPE_USE_TEMPLATE (NODE) == 3)
2947 #define SET_CLASSTYPE_EXPLICIT_INSTANTIATION(NODE) \
2948   (CLASSTYPE_USE_TEMPLATE (NODE) = 3)
2949 
2950 /* Nonzero if DECL is a friend function which is an instantiation
2951    from the point of view of the compiler, but not from the point of
2952    view of the language.  For example given:
2953       template <class T> struct S { friend void f(T) {}; };
2954    the declaration of `void f(int)' generated when S<int> is
2955    instantiated will not be a DECL_TEMPLATE_INSTANTIATION, but will be
2956    a DECL_FRIEND_PSUEDO_TEMPLATE_INSTANTIATION.  */
2957 #define DECL_FRIEND_PSEUDO_TEMPLATE_INSTANTIATION(DECL) \
2958   (DECL_TEMPLATE_INFO (DECL) && !DECL_USE_TEMPLATE (DECL))
2959 
2960 /* Nonzero iff we are currently processing a declaration for an
2961    entity with its own template parameter list, and which is not a
2962    full specialization.  */
2963 #define PROCESSING_REAL_TEMPLATE_DECL_P() \
2964   (processing_template_decl > template_class_depth (current_scope ()))
2965 
2966 /* Nonzero if this VAR_DECL or FUNCTION_DECL has already been
2967    instantiated, i.e. its definition has been generated from the
2968    pattern given in the template.  */
2969 #define DECL_TEMPLATE_INSTANTIATED(NODE) \
2970   DECL_LANG_FLAG_1 (VAR_OR_FUNCTION_DECL_CHECK (NODE))
2971 
2972 /* We know what we're doing with this decl now.  */
2973 #define DECL_INTERFACE_KNOWN(NODE) DECL_LANG_FLAG_5 (NODE)
2974 
2975 /* DECL_EXTERNAL must be set on a decl until the decl is actually emitted,
2976    so that assemble_external will work properly.  So we have this flag to
2977    tell us whether the decl is really not external.  */
2978 #define DECL_NOT_REALLY_EXTERN(NODE) \
2979   (DECL_LANG_SPECIFIC (NODE)->decl_flags.not_really_extern)
2980 
2981 #define DECL_REALLY_EXTERN(NODE) \
2982   (DECL_EXTERNAL (NODE) && ! DECL_NOT_REALLY_EXTERN (NODE))
2983 
2984 /* A thunk is a stub function.
2985 
2986    A thunk is an alternate entry point for an ordinary FUNCTION_DECL.
2987    The address of the ordinary FUNCTION_DECL is given by the
2988    DECL_INITIAL, which is always an ADDR_EXPR whose operand is a
2989    FUNCTION_DECL.  The job of the thunk is to either adjust the this
2990    pointer before transferring control to the FUNCTION_DECL, or call
2991    FUNCTION_DECL and then adjust the result value. Note, the result
2992    pointer adjusting thunk must perform a call to the thunked
2993    function, (or be implemented via passing some invisible parameter
2994    to the thunked function, which is modified to perform the
2995    adjustment just before returning).
2996 
2997    A thunk may perform either, or both, of the following operations:
2998 
2999    o Adjust the this or result pointer by a constant offset.
3000    o Adjust the this or result pointer by looking up a vcall or vbase offset
3001      in the vtable.
3002 
3003    A this pointer adjusting thunk converts from a base to a derived
3004    class, and hence adds the offsets. A result pointer adjusting thunk
3005    converts from a derived class to a base, and hence subtracts the
3006    offsets.  If both operations are performed, then the constant
3007    adjustment is performed first for this pointer adjustment and last
3008    for the result pointer adjustment.
3009 
3010    The constant adjustment is given by THUNK_FIXED_OFFSET.  If the
3011    vcall or vbase offset is required, THUNK_VIRTUAL_OFFSET is
3012    used. For this pointer adjusting thunks, it is the vcall offset
3013    into the vtable.  For result pointer adjusting thunks it is the
3014    binfo of the virtual base to convert to.  Use that binfo's vbase
3015    offset.
3016 
3017    It is possible to have equivalent covariant thunks.  These are
3018    distinct virtual covariant thunks whose vbase offsets happen to
3019    have the same value.  THUNK_ALIAS is used to pick one as the
3020    canonical thunk, which will get all the this pointer adjusting
3021    thunks attached to it.  */
3022 
3023 /* An integer indicating how many bytes should be subtracted from the
3024    this or result pointer when this function is called.  */
3025 #define THUNK_FIXED_OFFSET(DECL) \
3026   (DECL_LANG_SPECIFIC (THUNK_FUNCTION_CHECK (DECL))->u.f.u5.fixed_offset)
3027 
3028 /* A tree indicating how to perform the virtual adjustment. For a this
3029    adjusting thunk it is the number of bytes to be added to the vtable
3030    to find the vcall offset. For a result adjusting thunk, it is the
3031    binfo of the relevant virtual base.  If NULL, then there is no
3032    virtual adjust.  (The vptr is always located at offset zero from
3033    the this or result pointer.)  (If the covariant type is within the
3034    class hierarchy being laid out, the vbase index is not yet known
3035    at the point we need to create the thunks, hence the need to use
3036    binfos.)  */
3037 
3038 #define THUNK_VIRTUAL_OFFSET(DECL) \
3039   (LANG_DECL_U2_CHECK (FUNCTION_DECL_CHECK (DECL), 0)->access)
3040 
3041 /* A thunk which is equivalent to another thunk.  */
3042 #define THUNK_ALIAS(DECL) \
3043   (DECL_LANG_SPECIFIC (FUNCTION_DECL_CHECK (DECL))->decl_flags.u.template_info)
3044 
3045 /* For thunk NODE, this is the FUNCTION_DECL thunked to.  It is
3046    possible for the target to be a thunk too.  */
3047 #define THUNK_TARGET(NODE)				\
3048   (DECL_LANG_SPECIFIC (NODE)->u.f.befriending_classes)
3049 
3050 /* True for a SCOPE_REF iff the "template" keyword was used to
3051    indicate that the qualified name denotes a template.  */
3052 #define QUALIFIED_NAME_IS_TEMPLATE(NODE) \
3053   (TREE_LANG_FLAG_0 (SCOPE_REF_CHECK (NODE)))
3054 
3055 /* True for an OMP_ATOMIC that has dependent parameters.  These are stored
3056    as bare LHS/RHS, and not as ADDR/RHS, as in the generic statement.  */
3057 #define OMP_ATOMIC_DEPENDENT_P(NODE) \
3058   (TREE_LANG_FLAG_0 (OMP_ATOMIC_CHECK (NODE)))
3059 
3060 /* Used to store the operation code when OMP_ATOMIC_DEPENDENT_P is set.  */
3061 #define OMP_ATOMIC_CODE(NODE) \
3062   (OMP_ATOMIC_CHECK (NODE)->exp.complexity)
3063 
3064 /* Used while gimplifying continue statements bound to OMP_FOR nodes.  */
3065 #define OMP_FOR_GIMPLIFYING_P(NODE) \
3066   (TREE_LANG_FLAG_0 (OMP_FOR_CHECK (NODE)))
3067 
3068 /* A language-specific token attached to the OpenMP data clauses to
3069    hold code (or code fragments) related to ctors, dtors, and op=.
3070    See semantics.c for details.  */
3071 #define CP_OMP_CLAUSE_INFO(NODE) \
3072   TREE_TYPE (OMP_CLAUSE_RANGE_CHECK (NODE, OMP_CLAUSE_PRIVATE, \
3073 				     OMP_CLAUSE_COPYPRIVATE))
3074 
3075 /* These macros provide convenient access to the various _STMT nodes
3076    created when parsing template declarations.  */
3077 #define TRY_STMTS(NODE)		TREE_OPERAND (TRY_BLOCK_CHECK (NODE), 0)
3078 #define TRY_HANDLERS(NODE)	TREE_OPERAND (TRY_BLOCK_CHECK (NODE), 1)
3079 
3080 #define EH_SPEC_STMTS(NODE)	TREE_OPERAND (EH_SPEC_BLOCK_CHECK (NODE), 0)
3081 #define EH_SPEC_RAISES(NODE)	TREE_OPERAND (EH_SPEC_BLOCK_CHECK (NODE), 1)
3082 
3083 #define USING_STMT_NAMESPACE(NODE) TREE_OPERAND (USING_STMT_CHECK (NODE), 0)
3084 
3085 /* Nonzero if this try block is a function try block.  */
3086 #define FN_TRY_BLOCK_P(NODE)	TREE_LANG_FLAG_3 (TRY_BLOCK_CHECK (NODE))
3087 #define HANDLER_PARMS(NODE)	TREE_OPERAND (HANDLER_CHECK (NODE), 0)
3088 #define HANDLER_BODY(NODE)	TREE_OPERAND (HANDLER_CHECK (NODE), 1)
3089 #define HANDLER_TYPE(NODE)	TREE_TYPE (HANDLER_CHECK (NODE))
3090 
3091 /* CLEANUP_STMT accessors.  The statement(s) covered, the cleanup to run
3092    and the VAR_DECL for which this cleanup exists.  */
3093 #define CLEANUP_BODY(NODE)	TREE_OPERAND (CLEANUP_STMT_CHECK (NODE), 0)
3094 #define CLEANUP_EXPR(NODE)	TREE_OPERAND (CLEANUP_STMT_CHECK (NODE), 1)
3095 #define CLEANUP_DECL(NODE)	TREE_OPERAND (CLEANUP_STMT_CHECK (NODE), 2)
3096 
3097 /* IF_STMT accessors. These give access to the condition of the if
3098    statement, the then block of the if statement, and the else block
3099    of the if statement if it exists.  */
3100 #define IF_COND(NODE)		TREE_OPERAND (IF_STMT_CHECK (NODE), 0)
3101 #define THEN_CLAUSE(NODE)	TREE_OPERAND (IF_STMT_CHECK (NODE), 1)
3102 #define ELSE_CLAUSE(NODE)	TREE_OPERAND (IF_STMT_CHECK (NODE), 2)
3103 
3104 /* WHILE_STMT accessors. These give access to the condition of the
3105    while statement and the body of the while statement, respectively.  */
3106 #define WHILE_COND(NODE)	TREE_OPERAND (WHILE_STMT_CHECK (NODE), 0)
3107 #define WHILE_BODY(NODE)	TREE_OPERAND (WHILE_STMT_CHECK (NODE), 1)
3108 /* APPLE LOCAL begin for-fsf-4_4 3274130 5295549 */ \
3109 #define WHILE_ATTRIBUTES(NODE)	TREE_OPERAND (WHILE_STMT_CHECK (NODE), 2)
3110 
3111 /* APPLE LOCAL end for-fsf-4_4 3274130 5295549 */ \
3112 /* DO_STMT accessors. These give access to the condition of the do
3113    statement and the body of the do statement, respectively.  */
3114 #define DO_COND(NODE)		TREE_OPERAND (DO_STMT_CHECK (NODE), 0)
3115 #define DO_BODY(NODE)		TREE_OPERAND (DO_STMT_CHECK (NODE), 1)
3116 /* APPLE LOCAL begin for-fsf-4_4 3274130 5295549 */ \
3117 #define DO_ATTRIBUTES(NODE)	TREE_OPERAND (DO_STMT_CHECK (NODE), 2)
3118 /* APPLE LOCAL begin C* language */
3119 /* Used as a flag to indicate synthesized inner do-while loop of a
3120    foreach statement.  Used for generation of break/continue statement
3121    of the loop. */
3122 #define DO_FOREACH(NODE)           TREE_OPERAND (DO_STMT_CHECK (NODE), 3)
3123 /* APPLE LOCAL end C* language */
3124 
3125 /* APPLE LOCAL end for-fsf-4_4 3274130 5295549 */ \
3126 /* FOR_STMT accessors. These give access to the init statement,
3127    condition, update expression, and body of the for statement,
3128    respectively.  */
3129 #define FOR_INIT_STMT(NODE)	TREE_OPERAND (FOR_STMT_CHECK (NODE), 0)
3130 #define FOR_COND(NODE)		TREE_OPERAND (FOR_STMT_CHECK (NODE), 1)
3131 #define FOR_EXPR(NODE)		TREE_OPERAND (FOR_STMT_CHECK (NODE), 2)
3132 #define FOR_BODY(NODE)		TREE_OPERAND (FOR_STMT_CHECK (NODE), 3)
3133 /* APPLE LOCAL begin for-fsf-4_4 3274130 5295549 */ \
3134 #define FOR_ATTRIBUTES(NODE)	TREE_OPERAND (FOR_STMT_CHECK (NODE), 4)
3135 
3136 /* APPLE LOCAL end for-fsf-4_4 3274130 5295549 */ \
3137 #define SWITCH_STMT_COND(NODE)	TREE_OPERAND (SWITCH_STMT_CHECK (NODE), 0)
3138 #define SWITCH_STMT_BODY(NODE)	TREE_OPERAND (SWITCH_STMT_CHECK (NODE), 1)
3139 #define SWITCH_STMT_TYPE(NODE)	TREE_OPERAND (SWITCH_STMT_CHECK (NODE), 2)
3140 
3141 /* STMT_EXPR accessor.  */
3142 #define STMT_EXPR_STMT(NODE)	TREE_OPERAND (STMT_EXPR_CHECK (NODE), 0)
3143 
3144 /* EXPR_STMT accessor. This gives the expression associated with an
3145    expression statement.  */
3146 #define EXPR_STMT_EXPR(NODE)	TREE_OPERAND (EXPR_STMT_CHECK (NODE), 0)
3147 
3148 /* True if this TARGET_EXPR was created by build_cplus_new, and so we can
3149    discard it if it isn't useful.  */
3150 #define TARGET_EXPR_IMPLICIT_P(NODE) \
3151   TREE_LANG_FLAG_0 (TARGET_EXPR_CHECK (NODE))
3152 
3153 /* An enumeration of the kind of tags that C++ accepts.  */
3154 enum tag_types {
3155   none_type = 0, /* Not a tag type.  */
3156   record_type,   /* "struct" types.  */
3157   class_type,    /* "class" types.  */
3158   union_type,    /* "union" types.  */
3159   enum_type,     /* "enum" types.  */
3160   typename_type  /* "typename" types.  */
3161 };
3162 
3163 /* The various kinds of lvalues we distinguish.  */
3164 typedef enum cp_lvalue_kind {
3165   clk_none = 0,     /* Things that are not an lvalue.  */
3166   clk_ordinary = 1, /* An ordinary lvalue.  */
3167   clk_class = 2,    /* An rvalue of class-type.  */
3168   clk_bitfield = 4, /* An lvalue for a bit-field.  */
3169   clk_packed = 8    /* An lvalue for a packed field.  */
3170 } cp_lvalue_kind;
3171 
3172 /* Various kinds of template specialization, instantiation, etc.  */
3173 typedef enum tmpl_spec_kind {
3174   tsk_none,		   /* Not a template at all.  */
3175   tsk_invalid_member_spec, /* An explicit member template
3176 			      specialization, but the enclosing
3177 			      classes have not all been explicitly
3178 			      specialized.  */
3179   tsk_invalid_expl_inst,   /* An explicit instantiation containing
3180 			      template parameter lists.  */
3181   tsk_excessive_parms,	   /* A template declaration with too many
3182 			      template parameter lists.  */
3183   tsk_insufficient_parms,  /* A template declaration with too few
3184 			      parameter lists.  */
3185   tsk_template,		   /* A template declaration.  */
3186   tsk_expl_spec,	   /* An explicit specialization.  */
3187   tsk_expl_inst		   /* An explicit instantiation.  */
3188 } tmpl_spec_kind;
3189 
3190 /* The various kinds of access.  BINFO_ACCESS depends on these being
3191    two bit quantities.  The numerical values are important; they are
3192    used to initialize RTTI data structures, so changing them changes
3193    the ABI.  */
3194 typedef enum access_kind {
3195   ak_none = 0,		   /* Inaccessible.  */
3196   ak_public = 1,	   /* Accessible, as a `public' thing.  */
3197   ak_protected = 2,	   /* Accessible, as a `protected' thing.  */
3198   ak_private = 3	   /* Accessible, as a `private' thing.  */
3199 } access_kind;
3200 
3201 /* The various kinds of special functions.  If you add to this list,
3202    you should update special_function_p as well.  */
3203 typedef enum special_function_kind {
3204   sfk_none = 0,		   /* Not a special function.  This enumeral
3205 			      must have value zero; see
3206 			      special_function_p.  */
3207   sfk_constructor,	   /* A constructor.  */
3208   sfk_copy_constructor,    /* A copy constructor.  */
3209   sfk_assignment_operator, /* An assignment operator.  */
3210   sfk_destructor,	   /* A destructor.  */
3211   sfk_complete_destructor, /* A destructor for complete objects.  */
3212   sfk_base_destructor,     /* A destructor for base subobjects.  */
3213   sfk_deleting_destructor, /* A destructor for complete objects that
3214 			      deletes the object after it has been
3215 			      destroyed.  */
3216   sfk_conversion	   /* A conversion operator.  */
3217 } special_function_kind;
3218 
3219 /* The various kinds of linkage.  From [basic.link],
3220 
3221       A name is said to have linkage when it might denote the same
3222       object, reference, function, type, template, namespace or value
3223       as a name introduced in another scope:
3224 
3225       -- When a name has external linkage, the entity it denotes can
3226 	 be referred to from scopes of other translation units or from
3227 	 other scopes of the same translation unit.
3228 
3229       -- When a name has internal linkage, the entity it denotes can
3230 	 be referred to by names from other scopes in the same
3231 	 translation unit.
3232 
3233       -- When a name has no linkage, the entity it denotes cannot be
3234 	 referred to by names from other scopes.  */
3235 
3236 typedef enum linkage_kind {
3237   lk_none,			/* No linkage.  */
3238   lk_internal,			/* Internal linkage.  */
3239   lk_external			/* External linkage.  */
3240 } linkage_kind;
3241 
3242 /* Bitmask flags to control type substitution.  */
3243 typedef enum tsubst_flags_t {
3244   tf_none = 0,			/* nothing special */
3245   tf_error = 1 << 0,		/* give error messages  */
3246   tf_warning = 1 << 1,		/* give warnings too  */
3247   tf_ignore_bad_quals = 1 << 2,	/* ignore bad cvr qualifiers */
3248   tf_keep_type_decl = 1 << 3,	/* retain typedef type decls
3249 				   (make_typename_type use) */
3250   tf_ptrmem_ok = 1 << 4,	/* pointers to member ok (internal
3251 				   instantiate_type use) */
3252   tf_user = 1 << 5,		/* found template must be a user template
3253 				   (lookup_template_class use) */
3254   tf_conv = 1 << 6,		/* We are determining what kind of
3255 				   conversion might be permissible,
3256 				   not actually performing the
3257 				   conversion.  */
3258   /* Convenient substitution flags combinations.  */
3259   tf_warning_or_error = tf_warning | tf_error
3260 } tsubst_flags_t;
3261 
3262 /* The kind of checking we can do looking in a class hierarchy.  */
3263 typedef enum base_access {
3264   ba_any = 0,  /* Do not check access, allow an ambiguous base,
3265 		      prefer a non-virtual base */
3266   ba_unique = 1 << 0,  /* Must be a unique base.  */
3267   ba_check_bit = 1 << 1,   /* Check access.  */
3268   ba_check = ba_unique | ba_check_bit,
3269   ba_ignore_scope = 1 << 2, /* Ignore access allowed by local scope.  */
3270   ba_quiet = 1 << 3     /* Do not issue error messages.  */
3271 } base_access;
3272 
3273 /* The various kinds of access check during parsing.  */
3274 typedef enum deferring_kind {
3275   dk_no_deferred = 0, /* Check access immediately */
3276   dk_deferred = 1,    /* Deferred check */
3277   dk_no_check = 2     /* No access check */
3278 } deferring_kind;
3279 
3280 /* The kind of base we can find, looking in a class hierarchy.
3281    Values <0 indicate we failed.  */
3282 typedef enum base_kind {
3283   bk_inaccessible = -3,   /* The base is inaccessible */
3284   bk_ambig = -2,	  /* The base is ambiguous */
3285   bk_not_base = -1,	  /* It is not a base */
3286   bk_same_type = 0,	  /* It is the same type */
3287   bk_proper_base = 1,	  /* It is a proper base */
3288   bk_via_virtual = 2	  /* It is a proper base, but via a virtual
3289 			     path. This might not be the canonical
3290 			     binfo.  */
3291 } base_kind;
3292 
3293 /* Node for "pointer to (virtual) function".
3294    This may be distinct from ptr_type_node so gdb can distinguish them.  */
3295 #define vfunc_ptr_type_node  vtable_entry_type
3296 
3297 
3298 /* For building calls to `delete'.  */
3299 extern GTY(()) tree integer_two_node;
3300 extern GTY(()) tree integer_three_node;
3301 
3302 /* The number of function bodies which we are currently processing.
3303    (Zero if we are at namespace scope, one inside the body of a
3304    function, two inside the body of a function in a local class, etc.)  */
3305 extern int function_depth;
3306 
3307 /* in pt.c  */
3308 
3309 /* These values are used for the `STRICT' parameter to type_unification and
3310    fn_type_unification.  Their meanings are described with the
3311    documentation for fn_type_unification.  */
3312 
3313 typedef enum unification_kind_t {
3314   DEDUCE_CALL,
3315   DEDUCE_CONV,
3316   DEDUCE_EXACT
3317 } unification_kind_t;
3318 
3319 /* Macros for operating on a template instantiation level node.  */
3320 
3321 #define TINST_DECL(NODE) \
3322   (((tinst_level_t) TINST_LEVEL_CHECK (NODE))->decl)
3323 #define TINST_LOCATION(NODE) \
3324   (((tinst_level_t) TINST_LEVEL_CHECK (NODE))->locus)
3325 #define TINST_IN_SYSTEM_HEADER_P(NODE) \
3326   (((tinst_level_t) TINST_LEVEL_CHECK (NODE))->in_system_header_p)
3327 
3328 /* in class.c */
3329 
3330 extern int current_class_depth;
3331 
3332 /* An array of all local classes present in this translation unit, in
3333    declaration order.  */
3334 extern GTY(()) VEC(tree,gc) *local_classes;
3335 
3336 /* Here's where we control how name mangling takes place.  */
3337 
3338 /* Cannot use '$' up front, because this confuses gdb
3339    (names beginning with '$' are gdb-local identifiers).
3340 
3341    Note that all forms in which the '$' is significant are long enough
3342    for direct indexing (meaning that if we know there is a '$'
3343    at a particular location, we can index into the string at
3344    any other location that provides distinguishing characters).  */
3345 
3346 /* Define NO_DOLLAR_IN_LABEL in your favorite tm file if your assembler
3347    doesn't allow '$' in symbol names.  */
3348 #ifndef NO_DOLLAR_IN_LABEL
3349 
3350 #define JOINER '$'
3351 
3352 #define AUTO_TEMP_NAME "_$tmp_"
3353 #define VFIELD_BASE "$vf"
3354 #define VFIELD_NAME "_vptr$"
3355 #define VFIELD_NAME_FORMAT "_vptr$%s"
3356 #define ANON_AGGRNAME_FORMAT "$_%d"
3357 
3358 #else /* NO_DOLLAR_IN_LABEL */
3359 
3360 #ifndef NO_DOT_IN_LABEL
3361 
3362 #define JOINER '.'
3363 
3364 #define AUTO_TEMP_NAME "_.tmp_"
3365 #define VFIELD_BASE ".vf"
3366 #define VFIELD_NAME "_vptr."
3367 #define VFIELD_NAME_FORMAT "_vptr.%s"
3368 
3369 #define ANON_AGGRNAME_FORMAT "._%d"
3370 
3371 #else /* NO_DOT_IN_LABEL */
3372 
3373 #define IN_CHARGE_NAME "__in_chrg"
3374 #define AUTO_TEMP_NAME "__tmp_"
3375 #define TEMP_NAME_P(ID_NODE) \
3376   (!strncmp (IDENTIFIER_POINTER (ID_NODE), AUTO_TEMP_NAME, \
3377 	     sizeof (AUTO_TEMP_NAME) - 1))
3378 #define VTABLE_NAME "__vt_"
3379 #define VTABLE_NAME_P(ID_NODE) \
3380   (!strncmp (IDENTIFIER_POINTER (ID_NODE), VTABLE_NAME, \
3381 	     sizeof (VTABLE_NAME) - 1))
3382 #define VFIELD_BASE "__vfb"
3383 #define VFIELD_NAME "__vptr_"
3384 #define VFIELD_NAME_P(ID_NODE) \
3385   (!strncmp (IDENTIFIER_POINTER (ID_NODE), VFIELD_NAME, \
3386 	    sizeof (VFIELD_NAME) - 1))
3387 #define VFIELD_NAME_FORMAT "__vptr_%s"
3388 
3389 #define ANON_AGGRNAME_PREFIX "__anon_"
3390 #define ANON_AGGRNAME_P(ID_NODE) \
3391   (!strncmp (IDENTIFIER_POINTER (ID_NODE), ANON_AGGRNAME_PREFIX, \
3392 	     sizeof (ANON_AGGRNAME_PREFIX) - 1))
3393 #define ANON_AGGRNAME_FORMAT "__anon_%d"
3394 
3395 #endif	/* NO_DOT_IN_LABEL */
3396 #endif	/* NO_DOLLAR_IN_LABEL */
3397 
3398 #define THIS_NAME "this"
3399 
3400 #define IN_CHARGE_NAME "__in_chrg"
3401 
3402 #define VTBL_PTR_TYPE		"__vtbl_ptr_type"
3403 #define VTABLE_DELTA_NAME	"__delta"
3404 #define VTABLE_PFN_NAME		"__pfn"
3405 
3406 #if !defined(NO_DOLLAR_IN_LABEL) || !defined(NO_DOT_IN_LABEL)
3407 
3408 #define VTABLE_NAME_P(ID_NODE) (IDENTIFIER_POINTER (ID_NODE)[1] == 'v' \
3409   && IDENTIFIER_POINTER (ID_NODE)[2] == 't' \
3410   && IDENTIFIER_POINTER (ID_NODE)[3] == JOINER)
3411 
3412 #define TEMP_NAME_P(ID_NODE) \
3413   (!strncmp (IDENTIFIER_POINTER (ID_NODE), AUTO_TEMP_NAME, sizeof (AUTO_TEMP_NAME)-1))
3414 #define VFIELD_NAME_P(ID_NODE) \
3415   (!strncmp (IDENTIFIER_POINTER (ID_NODE), VFIELD_NAME, sizeof(VFIELD_NAME)-1))
3416 
3417 /* For anonymous aggregate types, we need some sort of name to
3418    hold on to.  In practice, this should not appear, but it should
3419    not be harmful if it does.  */
3420 #define ANON_AGGRNAME_P(ID_NODE) (IDENTIFIER_POINTER (ID_NODE)[0] == JOINER \
3421 				  && IDENTIFIER_POINTER (ID_NODE)[1] == '_')
3422 #endif /* !defined(NO_DOLLAR_IN_LABEL) || !defined(NO_DOT_IN_LABEL) */
3423 
3424 
3425 /* Nonzero if we're done parsing and into end-of-file activities.  */
3426 
3427 extern int at_eof;
3428 
3429 /* A list of namespace-scope objects which have constructors or
3430    destructors which reside in the global scope.  The decl is stored
3431    in the TREE_VALUE slot and the initializer is stored in the
3432    TREE_PURPOSE slot.  */
3433 extern GTY(()) tree static_aggregates;
3434 
3435 /* Functions called along with real static constructors and destructors.  */
3436 
3437 extern GTY(()) tree static_ctors;
3438 extern GTY(()) tree static_dtors;
3439 
3440 enum overload_flags { NO_SPECIAL = 0, DTOR_FLAG, OP_FLAG, TYPENAME_FLAG };
3441 
3442 /* These are uses as bits in flags passed to various functions to
3443    control their behavior.  Despite the LOOKUP_ prefix, many of these
3444    do not control name lookup.  ??? Functions using these flags should
3445    probably be modified to accept explicit boolean flags for the
3446    behaviors relevant to them.  */
3447 /* Check for access violations.  */
3448 #define LOOKUP_PROTECT (1 << 0)
3449 /* Complain if no suitable member function matching the arguments is
3450    found.  */
3451 #define LOOKUP_COMPLAIN (1 << 1)
3452 #define LOOKUP_NORMAL (LOOKUP_PROTECT | LOOKUP_COMPLAIN)
3453 /* Even if the function found by lookup is a virtual function, it
3454    should be called directly.  */
3455 #define LOOKUP_NONVIRTUAL (1 << 2)
3456 /* Non-converting (i.e., "explicit") constructors are not tried.  */
3457 #define LOOKUP_ONLYCONVERTING (1 << 3)
3458 /* If a temporary is created, it should be created so that it lives
3459    as long as the current variable bindings; otherwise it only lives
3460    until the end of the complete-expression.  It also forces
3461    direct-initialization in cases where other parts of the compiler
3462    have already generated a temporary, such as reference
3463    initialization and the catch parameter.  */
3464 #define DIRECT_BIND (1 << 4)
3465 /* User-defined conversions are not permitted.  (Built-in conversions
3466    are permitted.)  */
3467 #define LOOKUP_NO_CONVERSION (1 << 5)
3468 /* The user has explicitly called a destructor.  (Therefore, we do
3469    not need to check that the object is non-NULL before calling the
3470    destructor.)  */
3471 #define LOOKUP_DESTRUCTOR (1 << 6)
3472 /* Do not permit references to bind to temporaries.  */
3473 #define LOOKUP_NO_TEMP_BIND (1 << 7)
3474 /* Do not accept objects, and possibly namespaces.  */
3475 #define LOOKUP_PREFER_TYPES (1 << 8)
3476 /* Do not accept objects, and possibly types.   */
3477 #define LOOKUP_PREFER_NAMESPACES (1 << 9)
3478 /* Accept types or namespaces.  */
3479 #define LOOKUP_PREFER_BOTH (LOOKUP_PREFER_TYPES | LOOKUP_PREFER_NAMESPACES)
3480 /* We are checking that a constructor can be called -- but we do not
3481    actually plan to call it.  */
3482 #define LOOKUP_CONSTRUCTOR_CALLABLE (1 << 10)
3483 /* Return friend declarations and un-declared builtin functions.
3484    (Normally, these entities are registered in the symbol table, but
3485    not found by lookup.)  */
3486 #define LOOKUP_HIDDEN (LOOKUP_CONSTRUCTOR_CALLABLE << 1)
3487 
3488 #define LOOKUP_NAMESPACES_ONLY(F)  \
3489   (((F) & LOOKUP_PREFER_NAMESPACES) && !((F) & LOOKUP_PREFER_TYPES))
3490 #define LOOKUP_TYPES_ONLY(F)  \
3491   (!((F) & LOOKUP_PREFER_NAMESPACES) && ((F) & LOOKUP_PREFER_TYPES))
3492 #define LOOKUP_QUALIFIERS_ONLY(F)     ((F) & LOOKUP_PREFER_BOTH)
3493 
3494 
3495 /* These flags are used by the conversion code.
3496    CONV_IMPLICIT   :  Perform implicit conversions (standard and user-defined).
3497    CONV_STATIC     :  Perform the explicit conversions for static_cast.
3498    CONV_CONST      :  Perform the explicit conversions for const_cast.
3499    CONV_REINTERPRET:  Perform the explicit conversions for reinterpret_cast.
3500    CONV_PRIVATE    :  Perform upcasts to private bases.
3501    CONV_FORCE_TEMP :  Require a new temporary when converting to the same
3502 		      aggregate type.  */
3503 
3504 #define CONV_IMPLICIT    1
3505 #define CONV_STATIC      2
3506 #define CONV_CONST       4
3507 #define CONV_REINTERPRET 8
3508 #define CONV_PRIVATE	 16
3509 /* #define CONV_NONCONVERTING 32 */
3510 #define CONV_FORCE_TEMP  64
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_VECTOR    32 /* vector types */
3525 #define WANT_ARITH	(WANT_INT | WANT_FLOAT | WANT_VECTOR)
3526 
3527 /* Used with comptypes, and related functions, to guide type
3528    comparison.  */
3529 
3530 #define COMPARE_STRICT	      0 /* Just check if the types are the
3531 				   same.  */
3532 #define COMPARE_BASE	      1 /* Check to see if the second type is
3533 				   derived from the first.  */
3534 #define COMPARE_DERIVED	      2 /* Like COMPARE_BASE, but in
3535 				   reverse.  */
3536 #define COMPARE_REDECLARATION 4 /* The comparison is being done when
3537 				   another declaration of an existing
3538 				   entity is seen.  */
3539 
3540 /* Used with push_overloaded_decl.  */
3541 #define PUSH_GLOBAL	     0  /* Push the DECL into namespace scope,
3542 				   regardless of the current scope.  */
3543 #define PUSH_LOCAL	     1  /* Push the DECL into the current
3544 				   scope.  */
3545 #define PUSH_USING	     2  /* We are pushing this DECL as the
3546 				   result of a using declaration.  */
3547 
3548 /* Used with start function.  */
3549 #define SF_DEFAULT	     0  /* No flags.  */
3550 #define SF_PRE_PARSED	     1  /* The function declaration has
3551 				   already been parsed.  */
3552 #define SF_INCLASS_INLINE    2  /* The function is an inline, defined
3553 				   in the class body.  */
3554 
3555 /* Returns nonzero iff TYPE1 and TYPE2 are the same type, or if TYPE2
3556    is derived from TYPE1, or if TYPE2 is a pointer (reference) to a
3557    class derived from the type pointed to (referred to) by TYPE1.  */
3558 #define same_or_base_type_p(TYPE1, TYPE2) \
3559   comptypes ((TYPE1), (TYPE2), COMPARE_BASE)
3560 
3561 /* These macros are used to access a TEMPLATE_PARM_INDEX.  */
3562 #define TEMPLATE_PARM_INDEX_CAST(NODE) \
3563 	((template_parm_index*)TEMPLATE_PARM_INDEX_CHECK (NODE))
3564 #define TEMPLATE_PARM_IDX(NODE) (TEMPLATE_PARM_INDEX_CAST (NODE)->index)
3565 #define TEMPLATE_PARM_LEVEL(NODE) (TEMPLATE_PARM_INDEX_CAST (NODE)->level)
3566 #define TEMPLATE_PARM_DESCENDANTS(NODE) (TREE_CHAIN (NODE))
3567 #define TEMPLATE_PARM_ORIG_LEVEL(NODE) (TEMPLATE_PARM_INDEX_CAST (NODE)->orig_level)
3568 #define TEMPLATE_PARM_DECL(NODE) (TEMPLATE_PARM_INDEX_CAST (NODE)->decl)
3569 
3570 /* These macros are for accessing the fields of TEMPLATE_TYPE_PARM,
3571    TEMPLATE_TEMPLATE_PARM and BOUND_TEMPLATE_TEMPLATE_PARM nodes.  */
3572 #define TEMPLATE_TYPE_PARM_INDEX(NODE)					 \
3573   (TREE_CHECK3 ((NODE), TEMPLATE_TYPE_PARM, TEMPLATE_TEMPLATE_PARM,	\
3574 		BOUND_TEMPLATE_TEMPLATE_PARM))->type.values
3575 #define TEMPLATE_TYPE_IDX(NODE) \
3576   (TEMPLATE_PARM_IDX (TEMPLATE_TYPE_PARM_INDEX (NODE)))
3577 #define TEMPLATE_TYPE_LEVEL(NODE) \
3578   (TEMPLATE_PARM_LEVEL (TEMPLATE_TYPE_PARM_INDEX (NODE)))
3579 #define TEMPLATE_TYPE_ORIG_LEVEL(NODE) \
3580   (TEMPLATE_PARM_ORIG_LEVEL (TEMPLATE_TYPE_PARM_INDEX (NODE)))
3581 #define TEMPLATE_TYPE_DECL(NODE) \
3582   (TEMPLATE_PARM_DECL (TEMPLATE_TYPE_PARM_INDEX (NODE)))
3583 
3584 /* These constants can used as bit flags in the process of tree formatting.
3585 
3586    TFF_PLAIN_IDENTIFIER: unqualified part of a name.
3587    TFF_SCOPE: include the class and namespace scope of the name.
3588    TFF_CHASE_TYPEDEF: print the original type-id instead of the typedef-name.
3589    TFF_DECL_SPECIFIERS: print decl-specifiers.
3590    TFF_CLASS_KEY_OR_ENUM: precede a class-type name (resp. enum name) with
3591        a class-key (resp. `enum').
3592    TFF_RETURN_TYPE: include function return type.
3593    TFF_FUNCTION_DEFAULT_ARGUMENTS: include function default parameter values.
3594    TFF_EXCEPTION_SPECIFICATION: show function exception specification.
3595    TFF_TEMPLATE_HEADER: show the template<...> header in a
3596        template-declaration.
3597    TFF_TEMPLATE_NAME: show only template-name.
3598    TFF_EXPR_IN_PARENS: parenthesize expressions.
3599    TFF_NO_FUNCTION_ARGUMENTS: don't show function arguments.  */
3600 
3601 #define TFF_PLAIN_IDENTIFIER			(0)
3602 #define TFF_SCOPE				(1)
3603 #define TFF_CHASE_TYPEDEF			(1 << 1)
3604 #define TFF_DECL_SPECIFIERS			(1 << 2)
3605 #define TFF_CLASS_KEY_OR_ENUM			(1 << 3)
3606 #define TFF_RETURN_TYPE				(1 << 4)
3607 #define TFF_FUNCTION_DEFAULT_ARGUMENTS		(1 << 5)
3608 #define TFF_EXCEPTION_SPECIFICATION		(1 << 6)
3609 #define TFF_TEMPLATE_HEADER			(1 << 7)
3610 #define TFF_TEMPLATE_NAME			(1 << 8)
3611 #define TFF_EXPR_IN_PARENS			(1 << 9)
3612 #define TFF_NO_FUNCTION_ARGUMENTS		(1 << 10)
3613 
3614 /* Returns the TEMPLATE_DECL associated to a TEMPLATE_TEMPLATE_PARM
3615    node.  */
3616 #define TEMPLATE_TEMPLATE_PARM_TEMPLATE_DECL(NODE)	\
3617   ((TREE_CODE (NODE) == BOUND_TEMPLATE_TEMPLATE_PARM)	\
3618    ? TYPE_TI_TEMPLATE (NODE)				\
3619    : TYPE_NAME (NODE))
3620 
3621 /* in lex.c  */
3622 
3623 extern void init_reswords (void);
3624 
3625 /* Indexed by TREE_CODE, these tables give C-looking names to
3626    operators represented by TREE_CODES.  For example,
3627    opname_tab[(int) MINUS_EXPR] == "-".  */
3628 extern const char **opname_tab, **assignop_tab;
3629 
3630 typedef struct operator_name_info_t GTY(())
3631 {
3632   /* The IDENTIFIER_NODE for the operator.  */
3633   tree identifier;
3634   /* The name of the operator.  */
3635   const char *name;
3636   /* The mangled name of the operator.  */
3637   const char *mangled_name;
3638   /* The arity of the operator.  */
3639   int arity;
3640 } operator_name_info_t;
3641 
3642 /* A mapping from tree codes to operator name information.  */
3643 extern GTY(()) operator_name_info_t operator_name_info
3644   [(int) LAST_CPLUS_TREE_CODE];
3645 /* Similar, but for assignment operators.  */
3646 extern GTY(()) operator_name_info_t assignment_operator_name_info
3647   [(int) LAST_CPLUS_TREE_CODE];
3648 
3649 /* A type-qualifier, or bitmask therefore, using the TYPE_QUAL
3650    constants.  */
3651 
3652 typedef int cp_cv_quals;
3653 
3654 /* A storage class.  */
3655 
3656 typedef enum cp_storage_class {
3657   /* sc_none must be zero so that zeroing a cp_decl_specifier_seq
3658      sets the storage_class field to sc_none.  */
3659   sc_none = 0,
3660   sc_auto,
3661   sc_register,
3662   sc_static,
3663   sc_extern,
3664   sc_mutable
3665 } cp_storage_class;
3666 
3667 /* An individual decl-specifier.  */
3668 
3669 typedef enum cp_decl_spec {
3670   ds_first,
3671   ds_signed = ds_first,
3672   ds_unsigned,
3673   ds_short,
3674   ds_long,
3675   ds_const,
3676   ds_volatile,
3677   ds_restrict,
3678   ds_inline,
3679   ds_virtual,
3680   ds_explicit,
3681   ds_friend,
3682   ds_typedef,
3683   ds_complex,
3684   ds_thread,
3685   ds_last
3686 } cp_decl_spec;
3687 
3688 /* A decl-specifier-seq.  */
3689 
3690 typedef struct cp_decl_specifier_seq {
3691   /* The number of times each of the keywords has been seen.  */
3692   unsigned specs[(int) ds_last];
3693   /* The primary type, if any, given by the decl-specifier-seq.
3694      Modifiers, like "short", "const", and "unsigned" are not
3695      reflected here.  This field will be a TYPE, unless a typedef-name
3696      was used, in which case it will be a TYPE_DECL.  */
3697   tree type;
3698   /* The attributes, if any, provided with the specifier sequence.  */
3699   tree attributes;
3700   /* If non-NULL, a built-in type that the user attempted to redefine
3701      to some other type.  */
3702   tree redefined_builtin_type;
3703   /* The storage class specified -- or sc_none if no storage class was
3704      explicitly specified.  */
3705   cp_storage_class storage_class;
3706   /* True iff TYPE_SPEC indicates a user-defined type.  */
3707   BOOL_BITFIELD user_defined_type_p : 1;
3708   /* True iff multiple types were (erroneously) specified for this
3709      decl-specifier-seq.  */
3710   BOOL_BITFIELD multiple_types_p : 1;
3711   /* True iff multiple storage classes were (erroneously) specified
3712      for this decl-specifier-seq or a combination of a storage class
3713      with a typedef specifier.  */
3714   BOOL_BITFIELD conflicting_specifiers_p : 1;
3715   /* True iff at least one decl-specifier was found.  */
3716   BOOL_BITFIELD any_specifiers_p : 1;
3717   /* True iff "int" was explicitly provided.  */
3718   BOOL_BITFIELD explicit_int_p : 1;
3719   /* True iff "char" was explicitly provided.  */
3720   BOOL_BITFIELD explicit_char_p : 1;
3721 } cp_decl_specifier_seq;
3722 
3723 /* The various kinds of declarators.  */
3724 
3725 typedef enum cp_declarator_kind {
3726   cdk_id,
3727   cdk_function,
3728   cdk_array,
3729   cdk_pointer,
3730   cdk_reference,
3731   cdk_ptrmem,
3732   /* APPLE LOCAL blocks 6040305 (ch) */
3733   cdk_block_pointer,
3734   cdk_error
3735 } cp_declarator_kind;
3736 
3737 /* A declarator.  */
3738 
3739 typedef struct cp_declarator cp_declarator;
3740 
3741 typedef struct cp_parameter_declarator cp_parameter_declarator;
3742 
3743 /* A parameter, before it has been semantically analyzed.  */
3744 struct cp_parameter_declarator {
3745   /* The next parameter, or NULL_TREE if none.  */
3746   cp_parameter_declarator *next;
3747   /* The decl-specifiers-seq for the parameter.  */
3748   cp_decl_specifier_seq decl_specifiers;
3749   /* The declarator for the parameter.  */
3750   cp_declarator *declarator;
3751   /* The default-argument expression, or NULL_TREE, if none.  */
3752   tree default_argument;
3753   /* True iff this is the first parameter in the list and the
3754      parameter sequence ends with an ellipsis.  */
3755   bool ellipsis_p;
3756 };
3757 
3758 /* A declarator.  */
3759 struct cp_declarator {
3760   /* The kind of declarator.  */
3761   cp_declarator_kind kind;
3762   /* Attributes that apply to this declarator.  */
3763   tree attributes;
3764   /* For all but cdk_id and cdk_error, the contained declarator.  For
3765      cdk_id and cdk_error, guaranteed to be NULL.  */
3766   cp_declarator *declarator;
3767   location_t id_loc; /* Currently only set for cdk_id. */
3768   union {
3769     /* For identifiers.  */
3770     struct {
3771       /* If non-NULL, the qualifying scope (a NAMESPACE_DECL or
3772 	 *_TYPE) for this identifier.  */
3773       tree qualifying_scope;
3774       /* The unqualified name of the entity -- an IDENTIFIER_NODE,
3775 	 BIT_NOT_EXPR, or TEMPLATE_ID_EXPR.  */
3776       tree unqualified_name;
3777       /* If this is the name of a function, what kind of special
3778 	 function (if any).  */
3779       special_function_kind sfk;
3780     } id;
3781     /* For functions.  */
3782     struct {
3783       /* The parameters to the function.  */
3784       cp_parameter_declarator *parameters;
3785       /* The cv-qualifiers for the function.  */
3786       cp_cv_quals qualifiers;
3787       /* The exception-specification for the function.  */
3788       tree exception_specification;
3789     } function;
3790     /* For arrays.  */
3791     struct {
3792       /* The bounds to the array.  */
3793       tree bounds;
3794     } array;
3795     /* For cdk_pointer, cdk_reference, and cdk_ptrmem.  */
3796     struct {
3797       /* The cv-qualifiers for the pointer.  */
3798       cp_cv_quals qualifiers;
3799       /* For cdk_ptrmem, the class type containing the member.  */
3800       tree class_type;
3801     } pointer;
3802     /* APPLE LOCAL begin blocks 6040305 (ch) */
3803     /* For cdk_block_pointer.  */
3804     struct {
3805 	 /* The cv-qualifiers for the pointer.  */
3806 	 cp_cv_quals qualifiers;
3807     } block_pointer;
3808     /* APPLE LOCAL end blocks 6040305 (ch) */
3809   } u;
3810 };
3811 
3812 /* A parameter list indicating for a function with no parameters,
3813    e.g  "int f(void)".  */
3814 extern cp_parameter_declarator *no_parameters;
3815 
3816 /* in call.c */
3817 extern bool check_dtor_name			(tree, tree);
3818 
3819 extern tree build_vfield_ref			(tree, tree);
3820 extern tree build_conditional_expr		(tree, tree, tree);
3821 extern tree build_addr_func			(tree);
3822 extern tree build_call				(tree, tree);
3823 extern bool null_ptr_cst_p			(tree);
3824 extern bool sufficient_parms_p			(tree);
3825 extern tree type_decays_to			(tree);
3826 extern tree build_user_type_conversion		(tree, tree, int);
3827 extern tree build_new_function_call		(tree, tree, bool);
3828 extern tree build_operator_new_call		(tree, tree, tree *, tree *,
3829 						 tree *);
3830 extern tree build_new_method_call		(tree, tree, tree, tree, int,
3831 						 tree *);
3832 extern tree build_special_member_call		(tree, tree, tree, tree, int);
3833 extern tree build_new_op			(enum tree_code, int, tree, tree, tree, bool *);
3834 extern tree build_op_delete_call		(enum tree_code, tree, tree, bool, tree, tree);
3835 extern bool can_convert				(tree, tree);
3836 extern bool can_convert_arg			(tree, tree, tree, int);
3837 extern bool can_convert_arg_bad			(tree, tree, tree);
3838 extern bool enforce_access			(tree, tree, tree);
3839 extern tree convert_default_arg			(tree, tree, tree, int);
3840 extern tree convert_arg_to_ellipsis		(tree);
3841 extern tree build_x_va_arg			(tree, tree);
3842 extern tree cxx_type_promotes_to		(tree);
3843 extern tree type_passed_as			(tree);
3844 extern tree convert_for_arg_passing		(tree, tree);
3845 extern bool is_properly_derived_from		(tree, tree);
3846 extern tree initialize_reference		(tree, tree, tree, tree *);
3847 extern tree make_temporary_var_for_ref_to_temp	(tree, tree);
3848 extern tree strip_top_quals			(tree);
3849 extern tree perform_implicit_conversion		(tree, tree);
3850 extern tree perform_direct_initialization_if_possible (tree, tree, bool);
3851 extern tree in_charge_arg_for_name		(tree);
3852 extern tree build_cxx_call			(tree, tree);
3853 #ifdef ENABLE_CHECKING
3854 extern void validate_conversion_obstack		(void);
3855 #endif /* ENABLE_CHECKING */
3856 
3857 /* in class.c */
3858 extern tree build_base_path			(enum tree_code, tree,
3859 						 tree, int);
3860 extern tree convert_to_base			(tree, tree, bool, bool);
3861 extern tree convert_to_base_statically		(tree, tree);
3862 extern tree build_vtbl_ref			(tree, tree);
3863 extern tree build_vfn_ref			(tree, tree);
3864 extern tree get_vtable_decl			(tree, int);
3865 extern void resort_type_method_vec		(void *, void *,
3866 						 gt_pointer_operator, void *);
3867 extern bool add_method				(tree, tree, tree);
3868 extern bool currently_open_class		(tree);
3869 extern tree currently_open_derived_class	(tree);
3870 extern tree finish_struct			(tree, tree);
3871 extern void finish_struct_1			(tree);
3872 extern int resolves_to_fixed_type_p		(tree, int *);
3873 extern void init_class_processing		(void);
3874 extern int is_empty_class			(tree);
3875 extern void pushclass				(tree);
3876 extern void popclass				(void);
3877 extern void push_nested_class			(tree);
3878 extern void pop_nested_class			(void);
3879 extern int current_lang_depth			(void);
3880 extern void push_lang_context			(tree);
3881 extern void pop_lang_context			(void);
3882 extern tree instantiate_type			(tree, tree, tsubst_flags_t);
3883 extern void print_class_statistics		(void);
3884 extern void cxx_print_statistics		(void);
3885 extern void cxx_print_xnode			(FILE *, tree, int);
3886 extern void cxx_print_decl			(FILE *, tree, int);
3887 extern void cxx_print_type			(FILE *, tree, int);
3888 extern void cxx_print_identifier		(FILE *, tree, int);
3889 extern void cxx_print_error_function	(struct diagnostic_context *,
3890 						 const char *);
3891 extern void build_self_reference		(void);
3892 extern int same_signature_p			(tree, tree);
3893 extern void maybe_add_class_template_decl_list	(tree, tree, int);
3894 extern void unreverse_member_declarations	(tree);
3895 extern void invalidate_class_lookup_cache	(void);
3896 extern void maybe_note_name_used_in_class	(tree, tree);
3897 extern void note_name_declared_in_class		(tree, tree);
3898 extern tree get_vtbl_decl_for_binfo		(tree);
3899 extern void debug_class				(tree);
3900 extern void debug_thunks			(tree);
3901 extern tree cp_fold_obj_type_ref		(tree, tree);
3902 extern void set_linkage_according_to_type	(tree, tree);
3903 extern void determine_key_method		(tree);
3904 extern void check_for_override			(tree, tree);
3905 extern void push_class_stack			(void);
3906 extern void pop_class_stack			(void);
3907 
3908 /* in cvt.c */
3909 extern tree convert_to_reference		(tree, tree, int, int, tree);
3910 extern tree convert_from_reference		(tree);
3911 extern tree force_rvalue			(tree);
3912 extern tree ocp_convert				(tree, tree, int, int);
3913 extern tree cp_convert				(tree, tree);
3914 extern tree convert_to_void	(tree, const char */*implicit context*/);
3915 extern tree convert_force			(tree, tree, int);
3916 extern tree build_expr_type_conversion		(int, tree, bool);
3917 extern tree type_promotes_to			(tree);
3918 extern tree perform_qualification_conversions	(tree, tree);
3919 extern void clone_function_decl			(tree, int);
3920 extern void adjust_clone_args			(tree);
3921 
3922 /* decl.c */
3923 extern tree poplevel				(int, int, int);
3924 extern void insert_block			(tree);
3925 extern tree pushdecl				(tree);
3926 extern tree pushdecl_maybe_friend		(tree, bool);
3927 extern void cxx_init_decl_processing		(void);
3928 enum cp_tree_node_structure_enum cp_tree_node_structure
3929 						(union lang_tree_node *);
3930 extern bool cxx_mark_addressable		(tree);
3931 extern void cxx_push_function_context		(struct function *);
3932 extern void cxx_pop_function_context		(struct function *);
3933 extern void maybe_push_cleanup_level		(tree);
3934 extern void finish_scope			(void);
3935 extern void push_switch				(tree);
3936 extern void pop_switch				(void);
3937 extern tree pushtag				(tree, tree, tag_scope);
3938 extern tree make_anon_name			(void);
3939 extern int decls_match				(tree, tree);
3940 extern tree duplicate_decls			(tree, tree, bool);
3941 extern tree pushdecl_top_level_maybe_friend	(tree, bool);
3942 extern tree pushdecl_top_level_and_finish	(tree, tree);
3943 extern tree declare_local_label			(tree);
3944 extern tree define_label			(location_t, tree);
3945 extern void check_goto				(tree);
3946 extern bool check_omp_return			(void);
3947 extern tree make_typename_type			(tree, tree, enum tag_types, tsubst_flags_t);
3948 extern tree make_unbound_class_template		(tree, tree, tree, tsubst_flags_t);
3949 extern tree check_for_out_of_scope_variable	(tree);
3950 extern tree build_library_fn			(tree, tree);
3951 extern tree build_library_fn_ptr		(const char *, tree);
3952 extern tree build_cp_library_fn_ptr		(const char *, tree);
3953 extern tree push_library_fn			(tree, tree);
3954 extern tree push_void_library_fn		(tree, tree);
3955 extern tree push_throw_library_fn		(tree, tree);
3956 extern tree check_tag_decl			(cp_decl_specifier_seq *);
3957 extern tree shadow_tag				(cp_decl_specifier_seq *);
3958 extern tree groktypename			(cp_decl_specifier_seq *, const cp_declarator *);
3959 /* APPLE LOCAL 6339747 */
3960 extern tree grokblockdecl			(cp_decl_specifier_seq *, const cp_declarator *);
3961 extern tree start_decl				(const cp_declarator *, cp_decl_specifier_seq *, int, tree, tree, tree *);
3962 extern void start_decl_1			(tree, bool);
3963 extern void cp_finish_decl			(tree, tree, bool, tree, int);
3964 extern void finish_decl				(tree, tree, tree);
3965 extern int cp_complete_array_type		(tree *, tree, bool);
3966 extern tree build_ptrmemfunc_type		(tree);
3967 extern tree build_ptrmem_type			(tree, tree);
3968 /* the grokdeclarator prototype is in decl.h */
3969 extern tree build_this_parm			(tree, cp_cv_quals);
3970 extern int copy_fn_p				(tree);
3971 extern tree get_scope_of_declarator		(const cp_declarator *);
3972 extern void grok_special_member_properties	(tree);
3973 extern int grok_ctor_properties			(tree, tree);
3974 extern bool grok_op_properties			(tree, bool);
3975 extern tree xref_tag				(enum tag_types, tree, tag_scope, bool);
3976 extern tree xref_tag_from_type			(tree, tree, tag_scope);
3977 extern bool xref_basetypes			(tree, tree);
3978 extern tree start_enum				(tree);
3979 extern void finish_enum				(tree);
3980 extern void build_enumerator			(tree, tree, tree);
3981 extern void start_preparsed_function		(tree, tree, int);
3982 extern int start_function			(cp_decl_specifier_seq *, const cp_declarator *, tree);
3983 extern tree begin_function_body			(void);
3984 extern void finish_function_body		(tree);
3985 extern tree finish_function			(int);
3986 extern tree start_method			(cp_decl_specifier_seq *, const cp_declarator *, tree);
3987 extern tree finish_method			(tree);
3988 extern void maybe_register_incomplete_var	(tree);
3989 extern void complete_vars			(tree);
3990 extern void finish_stmt				(void);
3991 extern void print_other_binding_stack		(struct cp_binding_level *);
3992 extern void revert_static_member_fn		(tree);
3993 extern void fixup_anonymous_aggr		(tree);
3994 extern int check_static_variable_definition	(tree, tree);
3995 extern tree compute_array_index_type		(tree, tree);
3996 extern tree check_default_argument		(tree, tree);
3997 typedef int (*walk_namespaces_fn)		(tree, void *);
3998 extern int walk_namespaces			(walk_namespaces_fn,
3999 						 void *);
4000 extern int wrapup_globals_for_namespace		(tree, void *);
4001 extern tree create_implicit_typedef		(tree, tree);
4002 extern tree maybe_push_decl			(tree);
4003 extern tree force_target_expr			(tree, tree);
4004 extern tree build_target_expr_with_type		(tree, tree);
4005 extern int local_variable_p			(tree);
4006 extern int nonstatic_local_decl_p		(tree);
4007 extern tree register_dtor_fn			(tree);
4008 extern tmpl_spec_kind current_tmpl_spec_kind	(int);
4009 extern tree cp_fname_init			(const char *, tree *);
4010 extern tree builtin_function			(const char *name, tree type,
4011 						 int code,
4012 						 enum built_in_class cl,
4013 						 const char *libname,
4014 						 tree attrs);
4015 extern tree check_elaborated_type_specifier	(enum tag_types, tree, bool);
4016 extern void warn_extern_redeclared_static	(tree, tree);
4017 extern const char *cxx_comdat_group		(tree);
4018 extern bool cp_missing_noreturn_ok_p		(tree);
4019 extern void initialize_artificial_var		(tree, tree);
4020 extern tree check_var_type			(tree, tree);
4021 extern tree reshape_init (tree, tree);
4022 
4023 /* in decl2.c */
4024 extern bool check_java_method			(tree);
4025 extern tree build_memfn_type			(tree, tree, cp_cv_quals);
4026 extern void maybe_retrofit_in_chrg		(tree);
4027 extern void maybe_make_one_only			(tree);
4028 extern void grokclassfn				(tree, tree,
4029 						 enum overload_flags);
4030 extern tree grok_array_decl			(tree, tree);
4031 extern tree delete_sanity			(tree, tree, bool, int);
4032 extern tree check_classfn			(tree, tree, tree);
4033 extern void check_member_template		(tree);
4034 extern tree grokfield (const cp_declarator *, cp_decl_specifier_seq *,
4035 		       tree, bool, tree, tree);
4036 extern tree grokbitfield (const cp_declarator *, cp_decl_specifier_seq *,
4037 			  tree);
4038 extern void cplus_decl_attributes		(tree *, tree, int);
4039 extern void finish_anon_union			(tree);
4040 extern void cp_finish_file			(void);
4041 extern tree coerce_new_type			(tree);
4042 extern tree coerce_delete_type			(tree);
4043 extern void comdat_linkage			(tree);
4044 extern void determine_visibility		(tree);
4045 extern void constrain_class_visibility		(tree);
4046 extern void update_member_visibility		(tree);
4047 extern void import_export_decl			(tree);
4048 extern tree build_cleanup			(tree);
4049 extern tree build_offset_ref_call_from_tree	(tree, tree);
4050 extern void check_default_args			(tree);
4051 extern void mark_used				(tree);
4052 extern void finish_static_data_member_decl	(tree, tree, bool, tree, int);
4053 extern tree cp_build_parm_decl			(tree, tree);
4054 extern tree get_guard				(tree);
4055 extern tree get_guard_cond			(tree);
4056 extern tree set_guard				(tree);
4057 extern tree cxx_callgraph_analyze_expr		(tree *, int *, tree);
4058 extern void mark_needed				(tree);
4059 extern bool decl_needed_p			(tree);
4060 extern void note_vague_linkage_fn		(tree);
4061 extern tree build_artificial_parm		(tree, tree);
4062 
4063 /* in error.c */
4064 extern void init_error				(void);
4065 extern const char *type_as_string		(tree, int);
4066 extern const char *decl_as_string		(tree, int);
4067 extern const char *expr_as_string		(tree, int);
4068 extern const char *lang_decl_name		(tree, int);
4069 extern const char *language_to_string		(enum languages);
4070 extern const char *class_key_or_enum_as_string	(tree);
4071 extern void print_instantiation_context		(void);
4072 
4073 /* in except.c */
4074 extern void init_exception_processing		(void);
4075 extern tree expand_start_catch_block		(tree);
4076 extern void expand_end_catch_block		(void);
4077 extern tree build_exc_ptr			(void);
4078 extern tree build_throw				(tree);
4079 extern int nothrow_libfn_p			(tree);
4080 extern void check_handlers			(tree);
4081 extern void choose_personality_routine		(enum languages);
4082 extern tree eh_type_info			(tree);
4083 
4084 /* in expr.c */
4085 extern rtx cxx_expand_expr			(tree, rtx,
4086 						 enum machine_mode,
4087 						 int, rtx *);
4088 extern tree cplus_expand_constant		(tree);
4089 
4090 /* friend.c */
4091 extern int is_friend				(tree, tree);
4092 extern void make_friend_class			(tree, tree, bool);
4093 extern void add_friend				(tree, tree, bool);
4094 extern tree do_friend				(tree, tree, tree, tree, enum overload_flags, bool);
4095 
4096 /* in init.c */
4097 extern tree expand_member_init			(tree);
4098 extern void emit_mem_initializers		(tree);
4099 extern tree build_aggr_init			(tree, tree, int);
4100 extern int is_aggr_type				(tree, int);
4101 extern tree get_type_value			(tree);
4102 extern tree build_zero_init			(tree, tree, bool);
4103 extern tree build_offset_ref			(tree, tree, bool);
4104 extern tree build_new				(tree, tree, tree, tree, int);
4105 extern tree build_vec_init			(tree, tree, tree, bool, int);
4106 extern tree build_delete			(tree, tree,
4107 						 special_function_kind,
4108 						 int, int);
4109 extern void push_base_cleanups			(void);
4110 extern tree build_vec_delete			(tree, tree,
4111 						 special_function_kind, int);
4112 extern tree create_temporary_var		(tree);
4113 extern void initialize_vtbl_ptrs		(tree);
4114 extern tree build_java_class_ref		(tree);
4115 extern tree integral_constant_value		(tree);
4116 
4117 /* in lex.c */
4118 extern void cxx_dup_lang_specific_decl		(tree);
4119 extern void yyungetc				(int, int);
4120 
4121 extern tree unqualified_name_lookup_error	(tree);
4122 extern tree unqualified_fn_lookup_error		(tree);
4123 extern tree build_lang_decl			(enum tree_code, tree, tree);
4124 extern void retrofit_lang_decl			(tree);
4125 extern tree copy_decl				(tree);
4126 extern tree copy_type				(tree);
4127 extern tree cxx_make_type			(enum tree_code);
4128 extern tree make_aggr_type			(enum tree_code);
4129 extern void yyerror				(const char *);
4130 extern void yyhook				(int);
4131 extern bool cxx_init				(void);
4132 extern void cxx_finish				(void);
4133 extern bool in_main_input_context		(void);
4134 
4135 /* in method.c */
4136 extern void init_method				(void);
4137 extern tree make_thunk				(tree, bool, tree, tree);
4138 extern void finish_thunk			(tree);
4139 extern void use_thunk				(tree, bool);
4140 extern void synthesize_method			(tree);
4141 extern tree lazily_declare_fn			(special_function_kind,
4142 						 tree);
4143 extern tree skip_artificial_parms_for		(tree, tree);
4144 extern tree make_alias_for			(tree, tree);
4145 
4146 /* In optimize.c */
4147 extern bool maybe_clone_body			(tree);
4148 
4149 /* in pt.c */
4150 extern void check_template_shadow		(tree);
4151 extern tree get_innermost_template_args		(tree, int);
4152 extern void maybe_begin_member_template_processing (tree);
4153 extern void maybe_end_member_template_processing (void);
4154 extern tree finish_member_template_decl		(tree);
4155 extern void begin_template_parm_list		(void);
4156 extern bool begin_specialization		(void);
4157 extern void reset_specialization		(void);
4158 extern void end_specialization			(void);
4159 extern void begin_explicit_instantiation	(void);
4160 extern void end_explicit_instantiation		(void);
4161 extern tree check_explicit_specialization	(tree, tree, int, int);
4162 extern tree process_template_parm		(tree, tree, bool);
4163 extern tree end_template_parm_list		(tree);
4164 extern void end_template_decl			(void);
4165 extern tree push_template_decl			(tree);
4166 extern tree push_template_decl_real		(tree, bool);
4167 extern bool redeclare_class_template		(tree, tree);
4168 extern tree lookup_template_class		(tree, tree, tree, tree,
4169 						 int, tsubst_flags_t);
4170 extern tree lookup_template_function		(tree, tree);
4171 extern int uses_template_parms			(tree);
4172 extern int uses_template_parms_level		(tree, int);
4173 extern tree instantiate_class_template		(tree);
4174 extern tree instantiate_template		(tree, tree, tsubst_flags_t);
4175 extern int fn_type_unification			(tree, tree, tree, tree,
4176 						 tree, unification_kind_t, int);
4177 extern void mark_decl_instantiated		(tree, int);
4178 extern int more_specialized_fn			(tree, tree, int);
4179 extern void do_decl_instantiation		(tree, tree);
4180 extern void do_type_instantiation		(tree, tree, tsubst_flags_t);
4181 extern tree instantiate_decl			(tree, int, bool);
4182 extern int comp_template_parms			(tree, tree);
4183 extern int template_class_depth			(tree);
4184 extern int is_specialization_of			(tree, tree);
4185 extern bool is_specialization_of_friend		(tree, tree);
4186 extern int comp_template_args			(tree, tree);
4187 extern tree maybe_process_partial_specialization (tree);
4188 extern tree most_specialized_instantiation	(tree);
4189 extern void print_candidates			(tree);
4190 extern void instantiate_pending_templates	(int);
4191 extern tree tsubst_default_argument		(tree, tree, tree);
4192 extern tree tsubst_copy_and_build		(tree, tree, tsubst_flags_t,
4193 						 tree, bool, bool);
4194 extern tree most_general_template		(tree);
4195 extern tree get_mostly_instantiated_function_type (tree);
4196 extern int problematic_instantiation_changed	(void);
4197 extern void record_last_problematic_instantiation (void);
4198 extern tree current_instantiation		(void);
4199 extern tree maybe_get_template_decl_from_type_decl (tree);
4200 extern int processing_template_parmlist;
4201 extern bool dependent_type_p			(tree);
4202 extern bool any_dependent_template_arguments_p  (tree);
4203 extern bool dependent_template_p		(tree);
4204 extern bool dependent_template_id_p		(tree, tree);
4205 extern bool type_dependent_expression_p		(tree);
4206 extern bool any_type_dependent_arguments_p      (tree);
4207 extern bool value_dependent_expression_p	(tree);
4208 extern bool any_value_dependent_elements_p      (tree);
4209 extern tree resolve_typename_type		(tree, bool);
4210 extern tree template_for_substitution		(tree);
4211 extern tree build_non_dependent_expr		(tree);
4212 extern tree build_non_dependent_args		(tree);
4213 extern bool reregister_specialization		(tree, tree, tree);
4214 extern tree fold_non_dependent_expr		(tree);
4215 extern bool explicit_class_specialization_p     (tree);
4216 extern tree outermost_tinst_level		(void);
4217 
4218 /* in repo.c */
4219 extern void init_repo				(void);
4220 extern int repo_emit_p				(tree);
4221 extern bool repo_export_class_p			(tree);
4222 extern void finish_repo				(void);
4223 
4224 /* in rtti.c */
4225 /* A vector of all tinfo decls that haven't been emitted yet.  */
4226 extern GTY(()) VEC(tree,gc) *unemitted_tinfo_decls;
4227 
4228 extern void init_rtti_processing		(void);
4229 extern tree build_typeid			(tree);
4230 extern tree get_tinfo_decl			(tree);
4231 extern tree get_typeid				(tree);
4232 extern tree build_dynamic_cast			(tree, tree);
4233 extern void emit_support_tinfos			(void);
4234 extern bool emit_tinfo_decl			(tree);
4235 
4236 /* in search.c */
4237 extern bool accessible_base_p			(tree, tree, bool);
4238 extern tree lookup_base				(tree, tree, base_access,
4239 						 base_kind *);
4240 extern tree dcast_base_hint			(tree, tree);
4241 extern int accessible_p				(tree, tree, bool);
4242 extern tree lookup_field_1			(tree, tree, bool);
4243 extern tree lookup_field			(tree, tree, int, bool);
4244 extern int lookup_fnfields_1			(tree, tree);
4245 extern int class_method_index_for_fn		(tree, tree);
4246 extern tree lookup_fnfields			(tree, tree, int);
4247 extern tree lookup_member			(tree, tree, int, bool);
4248 extern int look_for_overrides			(tree, tree);
4249 extern void get_pure_virtuals			(tree);
4250 extern void maybe_suppress_debug_info		(tree);
4251 extern void note_debug_info_needed		(tree);
4252 extern void print_search_statistics		(void);
4253 extern void reinit_search_statistics		(void);
4254 extern tree current_scope			(void);
4255 extern int at_function_scope_p			(void);
4256 extern bool at_class_scope_p			(void);
4257 extern bool at_namespace_scope_p		(void);
4258 extern tree context_for_name_lookup		(tree);
4259 extern tree lookup_conversions			(tree);
4260 extern tree binfo_from_vbase			(tree);
4261 extern tree binfo_for_vbase			(tree, tree);
4262 extern tree look_for_overrides_here		(tree, tree);
4263 #define dfs_skip_bases ((tree)1)
4264 extern tree dfs_walk_all (tree, tree (*) (tree, void *),
4265 			  tree (*) (tree, void *), void *);
4266 extern tree dfs_walk_once (tree, tree (*) (tree, void *),
4267 			   tree (*) (tree, void *), void *);
4268 extern tree binfo_via_virtual			(tree, tree);
4269 extern tree build_baselink			(tree, tree, tree, tree);
4270 extern tree adjust_result_of_qualified_name_lookup
4271 						(tree, tree, tree);
4272 extern tree copied_binfo			(tree, tree);
4273 extern tree original_binfo			(tree, tree);
4274 extern int shared_member_p			(tree);
4275 
4276 
4277 /* The representation of a deferred access check.  */
4278 
4279 typedef struct deferred_access_check GTY(())
4280 {
4281   /* The base class in which the declaration is referenced. */
4282   tree binfo;
4283   /* The declaration whose access must be checked.  */
4284   tree decl;
4285   /* The declaration that should be used in the error message.  */
4286   tree diag_decl;
4287 } deferred_access_check;
4288 DEF_VEC_O(deferred_access_check);
4289 DEF_VEC_ALLOC_O(deferred_access_check,gc);
4290 
4291 /* in semantics.c */
4292 extern void push_deferring_access_checks	(deferring_kind);
4293 extern void resume_deferring_access_checks	(void);
4294 extern void stop_deferring_access_checks	(void);
4295 extern void pop_deferring_access_checks		(void);
4296 extern VEC (deferred_access_check,gc)* get_deferred_access_checks		(void);
4297 extern void pop_to_parent_deferring_access_checks (void);
4298 extern void perform_access_checks		(VEC (deferred_access_check,gc)*);
4299 extern void perform_deferred_access_checks	(void);
4300 extern void perform_or_defer_access_check	(tree, tree, tree);
4301 extern int stmts_are_full_exprs_p		(void);
4302 extern void init_cp_semantics			(void);
4303 extern tree do_poplevel				(tree);
4304 extern void add_decl_expr			(tree);
4305 extern tree finish_expr_stmt			(tree);
4306 extern tree begin_if_stmt			(void);
4307 extern void finish_if_stmt_cond			(tree, tree);
4308 extern tree finish_then_clause			(tree);
4309 extern void begin_else_clause			(tree);
4310 extern void finish_else_clause			(tree);
4311 extern void finish_if_stmt			(tree);
4312 /* APPLE LOCAL begin for-fsf-4_4 3274130 5295549 */ \
4313 extern tree begin_while_stmt			(tree);
4314 /* APPLE LOCAL end for-fsf-4_4 3274130 5295549 */ \
4315 extern void finish_while_stmt_cond		(tree, tree);
4316 extern void finish_while_stmt			(tree);
4317 /* APPLE LOCAL begin for-fsf-4_4 3274130 5295549 */ \
4318 extern tree begin_do_stmt			(tree);
4319 /* APPLE LOCAL end for-fsf-4_4 3274130 5295549 */ \
4320 extern void finish_do_body			(tree);
4321 extern void finish_do_stmt			(tree, tree);
4322 extern tree finish_return_stmt			(tree);
4323 /* APPLE LOCAL begin for-fsf-4_4 3274130 5295549 */ \
4324 extern tree begin_for_stmt			(tree);
4325 /* APPLE LOCAL end for-fsf-4_4 3274130 5295549 */ \
4326 extern void finish_for_init_stmt		(tree);
4327 extern void finish_for_cond			(tree, tree);
4328 extern void finish_for_expr			(tree, tree);
4329 extern void finish_for_stmt			(tree);
4330 extern tree finish_break_stmt			(void);
4331 extern tree finish_continue_stmt		(void);
4332 extern tree begin_switch_stmt			(void);
4333 extern void finish_switch_cond			(tree, tree);
4334 extern void finish_switch_stmt			(tree);
4335 extern tree finish_case_label			(tree, tree);
4336 extern tree finish_goto_stmt			(tree);
4337 extern tree begin_try_block			(void);
4338 extern void finish_try_block			(tree);
4339 extern tree begin_eh_spec_block			(void);
4340 extern void finish_eh_spec_block		(tree, tree);
4341 extern void finish_handler_sequence		(tree);
4342 extern tree begin_function_try_block		(tree *);
4343 extern void finish_function_try_block		(tree);
4344 extern void finish_function_handler_sequence    (tree, tree);
4345 extern void finish_cleanup_try_block		(tree);
4346 extern tree begin_handler			(void);
4347 extern void finish_handler_parms		(tree, tree);
4348 extern void finish_handler			(tree);
4349 extern void finish_cleanup			(tree, tree);
4350 
4351 enum {
4352   BCS_NO_SCOPE = 1,
4353   BCS_TRY_BLOCK = 2,
4354   BCS_FN_BODY = 4
4355 };
4356 extern tree begin_compound_stmt			(unsigned int);
4357 
4358 extern void finish_compound_stmt		(tree);
4359 extern tree finish_asm_stmt			(int, tree, tree, tree, tree);
4360 extern tree finish_label_stmt			(tree);
4361 extern void finish_label_decl			(tree);
4362 extern tree finish_parenthesized_expr		(tree);
4363 extern tree finish_non_static_data_member       (tree, tree, tree);
4364 extern tree begin_stmt_expr			(void);
4365 extern tree finish_stmt_expr_expr		(tree, tree);
4366 extern tree finish_stmt_expr			(tree, bool);
4367 extern tree perform_koenig_lookup		(tree, tree);
4368 extern tree finish_call_expr			(tree, tree, bool, bool);
4369 extern tree finish_increment_expr		(tree, enum tree_code);
4370 extern tree finish_this_expr			(void);
4371 extern tree finish_pseudo_destructor_expr       (tree, tree, tree);
4372 extern tree finish_unary_op_expr		(enum tree_code, tree);
4373 extern tree finish_compound_literal		(tree, VEC(constructor_elt,gc) *);
4374 extern tree finish_fname			(tree);
4375 extern void finish_translation_unit		(void);
4376 extern tree finish_template_type_parm		(tree, tree);
4377 extern tree finish_template_template_parm       (tree, tree);
4378 extern tree begin_class_definition		(tree, tree);
4379 extern void finish_template_decl		(tree);
4380 extern tree finish_template_type		(tree, tree, int);
4381 extern tree finish_base_specifier		(tree, tree, bool);
4382 extern void finish_member_declaration		(tree);
4383 extern void qualified_name_lookup_error		(tree, tree, tree);
4384 extern void check_template_keyword		(tree);
4385 extern tree finish_id_expression		(tree, tree, tree,
4386 						 cp_id_kind *,
4387 						 bool, bool, bool *,
4388 						 bool, bool, bool, bool,
4389 						 const char **);
4390 extern tree finish_typeof			(tree);
4391 extern tree finish_offsetof			(tree);
4392 extern void finish_decl_cleanup			(tree, tree);
4393 extern void finish_eh_cleanup			(tree);
4394 extern void expand_body				(tree);
4395 extern void finish_mem_initializers		(tree);
4396 extern tree check_template_template_default_arg (tree);
4397 extern void expand_or_defer_fn			(tree);
4398 extern void check_accessibility_of_qualified_id (tree, tree, tree);
4399 extern tree finish_qualified_id_expr		(tree, tree, bool, bool,
4400 						 bool, bool);
4401 extern void simplify_aggr_init_expr		(tree *);
4402 extern void finalize_nrv			(tree *, tree, tree);
4403 extern void note_decl_for_pch			(tree);
4404 extern tree finish_omp_clauses			(tree);
4405 extern void finish_omp_threadprivate		(tree);
4406 extern tree begin_omp_structured_block		(void);
4407 extern tree finish_omp_structured_block		(tree);
4408 extern tree begin_omp_parallel			(void);
4409 extern tree finish_omp_parallel			(tree, tree);
4410 extern tree finish_omp_for			(location_t, tree, tree,
4411 						 tree, tree, tree, tree);
4412 extern void finish_omp_atomic			(enum tree_code, tree, tree);
4413 extern void finish_omp_barrier			(void);
4414 extern void finish_omp_flush			(void);
4415 extern enum omp_clause_default_kind cxx_omp_predetermined_sharing (tree);
4416 extern tree cxx_omp_clause_default_ctor		(tree, tree);
4417 extern tree cxx_omp_clause_copy_ctor		(tree, tree, tree);
4418 extern tree cxx_omp_clause_assign_op		(tree, tree, tree);
4419 extern tree cxx_omp_clause_dtor			(tree, tree);
4420 extern bool cxx_omp_privatize_by_reference	(tree);
4421 extern tree baselink_for_fns                    (tree);
4422 
4423 /* in tree.c */
4424 extern void lang_check_failed			(const char *, int,
4425 						 const char *) ATTRIBUTE_NORETURN;
4426 extern tree stabilize_expr			(tree, tree *);
4427 extern void stabilize_call			(tree, tree *);
4428 extern bool stabilize_init			(tree, tree *);
4429 extern tree add_stmt_to_compound		(tree, tree);
4430 extern tree cxx_maybe_build_cleanup		(tree);
4431 extern void init_tree				(void);
4432 extern int pod_type_p				(tree);
4433 extern bool class_tmpl_impl_spec_p		(tree);
4434 extern int zero_init_p				(tree);
4435 extern tree canonical_type_variant		(tree);
4436 extern tree copy_binfo				(tree, tree, tree,
4437 						 tree *, int);
4438 extern int member_p				(tree);
4439 extern cp_lvalue_kind real_lvalue_p		(tree);
4440 extern bool builtin_valid_in_constant_expr_p    (tree);
4441 extern tree build_min				(enum tree_code, tree, ...);
4442 extern tree build_min_nt			(enum tree_code, ...);
4443 extern tree build_min_non_dep			(enum tree_code, tree, ...);
4444 extern tree build_cplus_new			(tree, tree);
4445 extern tree get_target_expr			(tree);
4446 extern tree build_cplus_array_type		(tree, tree);
4447 extern tree hash_tree_cons			(tree, tree, tree);
4448 extern tree hash_tree_chain			(tree, tree);
4449 extern tree build_qualified_name		(tree, tree, tree, bool);
4450 extern int is_overloaded_fn			(tree);
4451 extern tree get_first_fn			(tree);
4452 extern tree ovl_cons				(tree, tree);
4453 extern tree build_overload			(tree, tree);
4454 extern const char *cxx_printable_name		(tree, int);
4455 extern tree build_exception_variant		(tree, tree);
4456 extern tree bind_template_template_parm		(tree, tree);
4457 extern tree array_type_nelts_total		(tree);
4458 extern tree array_type_nelts_top		(tree);
4459 extern tree break_out_target_exprs		(tree);
4460 extern tree get_type_decl			(tree);
4461 extern tree decl_namespace_context		(tree);
4462 extern bool decl_anon_ns_mem_p			(tree);
4463 extern tree lvalue_type				(tree);
4464 extern tree error_type				(tree);
4465 extern int varargs_function_p			(tree);
4466 extern bool really_overloaded_fn		(tree);
4467 extern bool cp_tree_equal			(tree, tree);
4468 extern tree no_linkage_check			(tree, bool);
4469 extern void debug_binfo				(tree);
4470 extern tree build_dummy_object			(tree);
4471 extern tree maybe_dummy_object			(tree, tree *);
4472 extern int is_dummy_object			(tree);
4473 extern const struct attribute_spec cxx_attribute_table[];
4474 extern tree make_ptrmem_cst			(tree, tree);
4475 extern tree cp_build_type_attribute_variant     (tree, tree);
4476 extern tree cp_build_qualified_type_real	(tree, int, tsubst_flags_t);
4477 #define cp_build_qualified_type(TYPE, QUALS) \
4478   cp_build_qualified_type_real ((TYPE), (QUALS), tf_warning_or_error)
4479 extern special_function_kind special_function_p (tree);
4480 extern int count_trees				(tree);
4481 extern int char_type_p				(tree);
4482 extern void verify_stmt_tree			(tree);
4483 extern linkage_kind decl_linkage		(tree);
4484 extern tree cp_walk_subtrees (tree*, int*, walk_tree_fn,
4485 			      void*, struct pointer_set_t*);
4486 extern int cp_cannot_inline_tree_fn		(tree*);
4487 extern tree cp_add_pending_fn_decls		(void*,tree);
4488 extern int cp_auto_var_in_fn_p			(tree,tree);
4489 extern tree fold_if_not_in_template		(tree);
4490 extern tree rvalue				(tree);
4491 extern tree convert_bitfield_to_declared_type   (tree);
4492 extern tree cp_save_expr			(tree);
4493 extern bool cast_valid_in_integral_constant_expression_p (tree);
4494 
4495 /* in typeck.c */
4496 extern int string_conv_p			(tree, tree, int);
4497 extern tree cp_truthvalue_conversion		(tree);
4498 extern tree condition_conversion		(tree);
4499 extern tree require_complete_type		(tree);
4500 extern tree complete_type			(tree);
4501 extern tree complete_type_or_else		(tree, tree);
4502 extern int type_unknown_p			(tree);
4503 extern bool comp_except_specs			(tree, tree, bool);
4504 extern bool comptypes				(tree, tree, int);
4505 extern bool compparms				(tree, tree);
4506 extern int comp_cv_qualification		(tree, tree);
4507 extern int comp_cv_qual_signature		(tree, tree);
4508 extern tree cxx_sizeof_or_alignof_expr		(tree, enum tree_code);
4509 extern tree cxx_sizeof_or_alignof_type		(tree, enum tree_code, bool);
4510 #define cxx_sizeof_nowarn(T) cxx_sizeof_or_alignof_type (T, SIZEOF_EXPR, false)
4511 extern tree inline_conversion			(tree);
4512 extern tree is_bitfield_expr_with_lowered_type  (tree);
4513 extern tree unlowered_expr_type                 (tree);
4514 extern tree decay_conversion			(tree);
4515 extern tree build_class_member_access_expr      (tree, tree, tree, bool);
4516 extern tree finish_class_member_access_expr     (tree, tree, bool);
4517 extern tree build_x_indirect_ref		(tree, const char *);
4518 extern tree build_indirect_ref			(tree, const char *);
4519 extern tree build_array_ref			(tree, tree);
4520 extern tree get_member_function_from_ptrfunc	(tree *, tree);
4521 extern tree build_x_binary_op			(enum tree_code, tree,
4522 						 enum tree_code, tree,
4523 						 enum tree_code, bool *);
4524 extern tree build_x_unary_op			(enum tree_code, tree);
4525 extern tree unary_complex_lvalue		(enum tree_code, tree);
4526 extern tree build_x_conditional_expr		(tree, tree, tree);
4527 extern tree build_x_compound_expr_from_list	(tree, const char *);
4528 extern tree build_x_compound_expr		(tree, tree);
4529 extern tree build_compound_expr			(tree, tree);
4530 extern tree build_static_cast			(tree, tree);
4531 extern tree build_reinterpret_cast		(tree, tree);
4532 extern tree build_const_cast			(tree, tree);
4533 extern tree build_c_cast			(tree, tree);
4534 extern tree build_x_modify_expr			(tree, enum tree_code, tree);
4535 extern tree build_modify_expr			(tree, enum tree_code, tree);
4536 extern tree convert_for_initialization		(tree, tree, tree, int,
4537 						 const char *, tree, int);
4538 extern int comp_ptr_ttypes			(tree, tree);
4539 extern bool comp_ptr_ttypes_const		(tree, tree);
4540 extern int ptr_reasonably_similar		(tree, tree);
4541 extern tree build_ptrmemfunc			(tree, tree, int, bool);
4542 extern int cp_type_quals			(tree);
4543 extern bool cp_type_readonly			(tree);
4544 extern bool cp_has_mutable_p			(tree);
4545 extern bool at_least_as_qualified_p		(tree, tree);
4546 extern void cp_apply_type_quals_to_decl		(int, tree);
4547 extern tree build_ptrmemfunc1			(tree, tree, tree);
4548 extern void expand_ptrmemfunc_cst		(tree, tree *, tree *);
4549 extern tree type_after_usual_arithmetic_conversions (tree, tree);
4550 extern tree composite_pointer_type		(tree, tree, tree, tree,
4551 						 const char*);
4552 extern tree merge_types				(tree, tree);
4553 extern tree check_return_expr			(tree, bool *);
4554 #define cp_build_binary_op(code, arg1, arg2) \
4555   build_binary_op(code, arg1, arg2, 1)
4556 #define cxx_sizeof(T)  cxx_sizeof_or_alignof_type (T, SIZEOF_EXPR, true)
4557 extern tree build_ptrmemfunc_access_expr	(tree, tree);
4558 extern tree build_address			(tree);
4559 extern tree build_nop				(tree, tree);
4560 extern tree non_reference			(tree);
4561 extern tree lookup_anon_field			(tree, tree);
4562 extern bool invalid_nonstatic_memfn_p		(tree);
4563 extern tree convert_member_func_to_ptr		(tree, tree);
4564 extern tree convert_ptrmem			(tree, tree, bool, bool);
4565 extern int lvalue_or_else			(tree, enum lvalue_use);
4566 extern int lvalue_p				(tree);
4567 
4568 /* in typeck2.c */
4569 extern void require_complete_eh_spec_types	(tree, tree);
4570 extern void cxx_incomplete_type_diagnostic	(tree, tree, int);
4571 #undef cxx_incomplete_type_error
4572 extern void cxx_incomplete_type_error		(tree, tree);
4573 #define cxx_incomplete_type_error(V,T) \
4574   (cxx_incomplete_type_diagnostic ((V), (T), 0))
4575 extern tree error_not_base_type			(tree, tree);
4576 extern tree binfo_or_else			(tree, tree);
4577 extern void readonly_error			(tree, const char *, int);
4578 extern void complete_type_check_abstract	(tree);
4579 extern int abstract_virtuals_error		(tree, tree);
4580 
4581 extern tree store_init_value			(tree, tree);
4582 extern tree digest_init				(tree, tree);
4583 extern tree build_scoped_ref			(tree, tree, tree *);
4584 extern tree build_x_arrow			(tree);
4585 extern tree build_m_component_ref		(tree, tree);
4586 extern tree build_functional_cast		(tree, tree);
4587 extern tree add_exception_specifier		(tree, tree, int);
4588 extern tree merge_exception_specifiers		(tree, tree);
4589 
4590 /* in mangle.c */
4591 extern void init_mangle				(void);
4592 extern void mangle_decl				(tree);
4593 extern const char *mangle_type_string		(tree);
4594 extern tree mangle_typeinfo_for_type		(tree);
4595 extern tree mangle_typeinfo_string_for_type	(tree);
4596 extern tree mangle_vtbl_for_type		(tree);
4597 extern tree mangle_vtt_for_type			(tree);
4598 extern tree mangle_ctor_vtbl_for_type		(tree, tree);
4599 extern tree mangle_thunk			(tree, int, tree, tree);
4600 extern tree mangle_conv_op_name_for_type	(tree);
4601 extern tree mangle_guard_variable		(tree);
4602 extern tree mangle_ref_init_variable		(tree);
4603 
4604 /* in dump.c */
4605 extern bool cp_dump_tree			(void *, tree);
4606 
4607 /* In cp/cp-objcp-common.c.  */
4608 
4609 extern HOST_WIDE_INT cxx_get_alias_set		(tree);
4610 extern bool cxx_warn_unused_global_decl		(tree);
4611 extern tree cp_expr_size			(tree);
4612 extern size_t cp_tree_size			(enum tree_code);
4613 extern bool cp_var_mod_type_p			(tree, tree);
4614 extern void cxx_initialize_diagnostics		(struct diagnostic_context *);
4615 extern int cxx_types_compatible_p		(tree, tree);
4616 extern void init_shadowed_var_for_decl		(void);
4617 extern tree cxx_staticp                         (tree);
4618 
4619 /* in cp-gimplify.c */
4620 extern int cp_gimplify_expr			(tree *, tree *, tree *);
4621 extern void cp_genericize			(tree);
4622 
4623 /* -- end of C++ */
4624 
4625 /* In order for the format checking to accept the C++ frontend
4626    diagnostic framework extensions, you must include this file before
4627    toplev.h, not after.  We override the definition of GCC_DIAG_STYLE
4628    in c-common.h.  */
4629 #undef GCC_DIAG_STYLE
4630 #define GCC_DIAG_STYLE __gcc_cxxdiag__
4631 #if GCC_VERSION >= 4001
4632 #define ATTRIBUTE_GCC_CXXDIAG(m, n) __attribute__ ((__format__ (GCC_DIAG_STYLE, m, n))) ATTRIBUTE_NONNULL(m)
4633 #else
4634 #define ATTRIBUTE_GCC_CXXDIAG(m, n) ATTRIBUTE_NONNULL(m)
4635 #endif
4636 extern void cp_cpp_error			(cpp_reader *, int,
4637 						 const char *, va_list *)
4638      ATTRIBUTE_GCC_CXXDIAG(3,0);
4639 /* APPLE LOCAL radar 5741070  */
4640 extern tree c_return_interface_record_type (tree);
4641 
4642 /* APPLE LOCAL begin blocks 6040305 (cg) */
4643 extern cp_declarator* make_block_pointer_declarator (tree, cp_cv_quals,
4644 											 cp_declarator *);
4645 /* APPLE LOCAL end blocks 6040305 (cg) */
4646 #endif /* ! GCC_CP_TREE_H */
4647