Home | History | Annotate | Line # | Download | only in cp
      1 /* Definitions for -*- C++ -*- parsing and type checking.
      2    Copyright (C) 1987-2024 Free Software Foundation, Inc.
      3    Contributed by Michael Tiemann (tiemann (at) cygnus.com)
      4 
      5 This file is part of GCC.
      6 
      7 GCC is free software; you can redistribute it and/or modify
      8 it under the terms of the GNU General Public License as published by
      9 the Free Software Foundation; either version 3, or (at your option)
     10 any later version.
     11 
     12 GCC is distributed in the hope that it will be useful,
     13 but WITHOUT ANY WARRANTY; without even the implied warranty of
     14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
     15 GNU General Public License for more details.
     16 
     17 You should have received a copy of the GNU General Public License
     18 along with GCC; see the file COPYING3.  If not see
     19 <http://www.gnu.org/licenses/>.  */
     20 
     21 #ifndef GCC_CP_TREE_H
     22 #define GCC_CP_TREE_H
     23 
     24 #include "tm.h"
     25 #include "hard-reg-set.h"
     26 #include "function.h"
     27 #include "tristate.h"
     28 #include "contracts.h"
     29 
     30 /* In order for the format checking to accept the C++ front end
     31    diagnostic framework extensions, you must include this file before
     32    diagnostic-core.h, not after.  We override the definition of GCC_DIAG_STYLE
     33    in c-common.h.  */
     34 #undef GCC_DIAG_STYLE
     35 #define GCC_DIAG_STYLE __gcc_cxxdiag__
     36 #if defined(GCC_DIAGNOSTIC_CORE_H) || defined (GCC_C_COMMON_H)
     37 #error \
     38 In order for the format checking to accept the C++ front end diagnostic \
     39 framework extensions, you must include this file before diagnostic-core.h and \
     40 c-common.h, not after.
     41 #endif
     42 #include "c-family/c-common.h"
     43 #include "diagnostic.h"
     44 
     45 /* A tree node, together with a location, so that we can track locations
     46    (and ranges) during parsing.
     47 
     48    The location is redundant for node kinds that have locations,
     49    but not all node kinds do (e.g. constants, and references to
     50    params, locals, etc), so we stash a copy here.  */
     51 
     52 inline location_t cp_expr_location		(const_tree);
     53 
     54 class cp_expr
     55 {
     56 public:
     57   cp_expr () :
     58     m_value (NULL), m_loc (UNKNOWN_LOCATION),
     59     m_decimal (false)
     60   {}
     61 
     62   cp_expr (tree value) :
     63     m_value (value), m_loc (cp_expr_location (m_value)),
     64     m_decimal (false)
     65   {}
     66 
     67   cp_expr (tree value, location_t loc):
     68     m_value (value), m_loc (loc), m_decimal (false)
     69   {
     70     protected_set_expr_location (value, loc);
     71   }
     72 
     73   cp_expr (tree value, location_t loc, bool decimal):
     74     m_value (value), m_loc (loc), m_decimal (decimal)
     75   {
     76     protected_set_expr_location (value, loc);
     77   }
     78 
     79   /* Implicit conversions to tree.  */
     80   operator tree () const { return m_value; }
     81   tree & operator* () { return m_value; }
     82   tree operator* () const { return m_value; }
     83   tree & operator-> () { return m_value; }
     84   tree operator-> () const { return m_value; }
     85 
     86   tree get_value () const { return m_value; }
     87   location_t get_location () const { return m_loc; }
     88   location_t get_start () const
     89   {
     90     source_range src_range = get_range_from_loc (line_table, m_loc);
     91     return src_range.m_start;
     92   }
     93   location_t get_finish () const
     94   {
     95     source_range src_range = get_range_from_loc (line_table, m_loc);
     96     return src_range.m_finish;
     97   }
     98 
     99   void set_location (location_t loc)
    100   {
    101     protected_set_expr_location (m_value, loc);
    102     m_loc = loc;
    103   }
    104 
    105   void set_range (location_t start, location_t finish)
    106   {
    107     set_location (make_location (m_loc, start, finish));
    108   }
    109 
    110   cp_expr& maybe_add_location_wrapper ()
    111   {
    112     m_value = maybe_wrap_with_location (m_value, m_loc);
    113     return *this;
    114   }
    115 
    116   bool decimal_p () const { return m_decimal; }
    117 
    118  private:
    119   tree m_value;
    120   location_t m_loc;
    121   bool m_decimal : 1;
    122 };
    123 
    124 inline bool
    125 operator == (const cp_expr &lhs, tree rhs)
    126 {
    127   return lhs.get_value () == rhs;
    128 }
    129 
    130 
    131 enum cp_tree_index
    133 {
    134     CPTI_WCHAR_DECL,
    135     CPTI_VTABLE_ENTRY_TYPE,
    136     CPTI_DELTA_TYPE,
    137     CPTI_VTABLE_INDEX_TYPE,
    138     CPTI_CLEANUP_TYPE,
    139     CPTI_VTT_PARM_TYPE,
    140 
    141     CPTI_CLASS_TYPE,
    142     CPTI_UNKNOWN_TYPE,
    143     CPTI_INIT_LIST_TYPE,
    144     CPTI_EXPLICIT_VOID_LIST,
    145     CPTI_VTBL_TYPE,
    146     CPTI_VTBL_PTR_TYPE,
    147     CPTI_GLOBAL,
    148     CPTI_ABORT_FNDECL,
    149     CPTI_AGGR_TAG,
    150     CPTI_CONV_OP_MARKER,
    151 
    152     CPTI_CTOR_IDENTIFIER,
    153     CPTI_COMPLETE_CTOR_IDENTIFIER,
    154     CPTI_BASE_CTOR_IDENTIFIER,
    155     CPTI_DTOR_IDENTIFIER,
    156     CPTI_COMPLETE_DTOR_IDENTIFIER,
    157     CPTI_BASE_DTOR_IDENTIFIER,
    158     CPTI_DELETING_DTOR_IDENTIFIER,
    159     CPTI_CONV_OP_IDENTIFIER,
    160     CPTI_DELTA_IDENTIFIER,
    161     CPTI_IN_CHARGE_IDENTIFIER,
    162     CPTI_VTT_PARM_IDENTIFIER,
    163     CPTI_AS_BASE_IDENTIFIER,
    164     CPTI_THIS_IDENTIFIER,
    165     CPTI_PFN_IDENTIFIER,
    166     CPTI_VPTR_IDENTIFIER,
    167     CPTI_GLOBAL_IDENTIFIER,
    168     CPTI_ANON_IDENTIFIER,
    169     CPTI_AUTO_IDENTIFIER,
    170     CPTI_DECLTYPE_AUTO_IDENTIFIER,
    171     CPTI_INIT_LIST_IDENTIFIER,
    172     CPTI_FOR_RANGE__IDENTIFIER,
    173     CPTI_FOR_BEGIN__IDENTIFIER,
    174     CPTI_FOR_END__IDENTIFIER,
    175     CPTI_FOR_RANGE_IDENTIFIER,
    176     CPTI_FOR_BEGIN_IDENTIFIER,
    177     CPTI_FOR_END_IDENTIFIER,
    178     CPTI_ABI_TAG_IDENTIFIER,
    179     CPTI_ALIGNED_IDENTIFIER,
    180     CPTI_BEGIN_IDENTIFIER,
    181     CPTI_END_IDENTIFIER,
    182     CPTI_GET_IDENTIFIER,
    183     CPTI_GNU_IDENTIFIER,
    184     CPTI_TUPLE_ELEMENT_IDENTIFIER,
    185     CPTI_TUPLE_SIZE_IDENTIFIER,
    186     CPTI_TYPE_IDENTIFIER,
    187     CPTI_VALUE_IDENTIFIER,
    188     CPTI_FUN_IDENTIFIER,
    189     CPTI_CLOSURE_IDENTIFIER,
    190     CPTI_HEAP_UNINIT_IDENTIFIER,
    191     CPTI_HEAP_IDENTIFIER,
    192     CPTI_HEAP_DELETED_IDENTIFIER,
    193     CPTI_HEAP_VEC_UNINIT_IDENTIFIER,
    194     CPTI_HEAP_VEC_IDENTIFIER,
    195     CPTI_OMP_IDENTIFIER,
    196 
    197     CPTI_LANG_NAME_C,
    198     CPTI_LANG_NAME_CPLUSPLUS,
    199 
    200     CPTI_EMPTY_EXCEPT_SPEC,
    201     CPTI_NOEXCEPT_TRUE_SPEC,
    202     CPTI_NOEXCEPT_FALSE_SPEC,
    203     CPTI_NOEXCEPT_DEFERRED_SPEC,
    204 
    205     CPTI_ANY_TARG,
    206 
    207     CPTI_MODULE_HWM,
    208     /* Nodes after here change during compilation, or should not be in
    209        the module's global tree table.  Such nodes must be locatable
    210        via name lookup or type-construction, as those are the only
    211        cross-TU matching capabilities remaining.  */
    212 
    213     /* We must find these via the global namespace.  */
    214     CPTI_STD,
    215     CPTI_ABI,
    216 
    217     /* These are created at init time, but the library/headers provide
    218        definitions.  */
    219     CPTI_ALIGN_TYPE,
    220     CPTI_TERMINATE_FN,
    221     CPTI_CALL_TERMINATE_FN,
    222     CPTI_CALL_UNEXPECTED_FN,
    223 
    224     /* These are lazily inited.  */
    225     CPTI_CONST_TYPE_INFO_TYPE,
    226     CPTI_GET_EXCEPTION_PTR_FN,
    227     CPTI_BEGIN_CATCH_FN,
    228     CPTI_END_CATCH_FN,
    229     CPTI_ALLOCATE_EXCEPTION_FN,
    230     CPTI_FREE_EXCEPTION_FN,
    231     CPTI_THROW_FN,
    232     CPTI_RETHROW_FN,
    233     CPTI_ATEXIT_FN_PTR_TYPE,
    234     CPTI_ATEXIT,
    235     CPTI_THREAD_ATEXIT,
    236     CPTI_DSO_HANDLE,
    237     CPTI_DCAST,
    238 
    239     CPTI_PSEUDO_CONTRACT_VIOLATION,
    240 
    241     CPTI_MAX
    242 };
    243 
    244 extern GTY(()) tree cp_global_trees[CPTI_MAX];
    245 
    246 #define wchar_decl_node			cp_global_trees[CPTI_WCHAR_DECL]
    247 #define vtable_entry_type		cp_global_trees[CPTI_VTABLE_ENTRY_TYPE]
    248 /* The type used to represent an offset by which to adjust the `this'
    249    pointer in pointer-to-member types.  */
    250 #define delta_type_node			cp_global_trees[CPTI_DELTA_TYPE]
    251 /* The type used to represent an index into the vtable.  */
    252 #define vtable_index_type		cp_global_trees[CPTI_VTABLE_INDEX_TYPE]
    253 
    254 #define class_type_node			cp_global_trees[CPTI_CLASS_TYPE]
    255 #define unknown_type_node		cp_global_trees[CPTI_UNKNOWN_TYPE]
    256 #define init_list_type_node		cp_global_trees[CPTI_INIT_LIST_TYPE]
    257 #define explicit_void_list_node		cp_global_trees[CPTI_EXPLICIT_VOID_LIST]
    258 #define vtbl_type_node			cp_global_trees[CPTI_VTBL_TYPE]
    259 #define vtbl_ptr_type_node		cp_global_trees[CPTI_VTBL_PTR_TYPE]
    260 #define std_node			cp_global_trees[CPTI_STD]
    261 #define abi_node			cp_global_trees[CPTI_ABI]
    262 #define global_namespace		cp_global_trees[CPTI_GLOBAL]
    263 #define const_type_info_type_node	cp_global_trees[CPTI_CONST_TYPE_INFO_TYPE]
    264 #define conv_op_marker			cp_global_trees[CPTI_CONV_OP_MARKER]
    265 #define abort_fndecl			cp_global_trees[CPTI_ABORT_FNDECL]
    266 #define current_aggr			cp_global_trees[CPTI_AGGR_TAG]
    267 /* std::align_val_t */
    268 #define align_type_node			cp_global_trees[CPTI_ALIGN_TYPE]
    269 #define pseudo_contract_violation_type	cp_global_trees[CPTI_PSEUDO_CONTRACT_VIOLATION]
    270 
    271 /* We cache these tree nodes so as to call get_identifier less frequently.
    272    For identifiers for functions, including special member functions such
    273    as ctors and assignment operators, the nodes can be used (among other
    274    things) to iterate over their overloads defined by/for a type.  For
    275    example:
    276 
    277      tree ovlid = assign_op_identifier;
    278      tree overloads = get_class_binding (type, ovlid);
    279      for (ovl_iterator it (overloads); it; ++it) { ... }
    280 
    281    iterates over the set of implicitly and explicitly defined overloads
    282    of the assignment operator for type (including the copy and move
    283    assignment operators, whether deleted or not).  */
    284 
    285 /* The name of a constructor that takes an in-charge parameter to
    286    decide whether or not to construct virtual base classes.  */
    287 #define ctor_identifier			cp_global_trees[CPTI_CTOR_IDENTIFIER]
    288 /* The name of a constructor that constructs virtual base classes.  */
    289 #define complete_ctor_identifier	cp_global_trees[CPTI_COMPLETE_CTOR_IDENTIFIER]
    290 /* The name of a constructor that does not construct virtual base classes.  */
    291 #define base_ctor_identifier		cp_global_trees[CPTI_BASE_CTOR_IDENTIFIER]
    292 /* The name of a destructor that takes an in-charge parameter to
    293    decide whether or not to destroy virtual base classes and whether
    294    or not to delete the object.  */
    295 #define dtor_identifier			cp_global_trees[CPTI_DTOR_IDENTIFIER]
    296 /* The name of a destructor that destroys virtual base classes.  */
    297 #define complete_dtor_identifier	cp_global_trees[CPTI_COMPLETE_DTOR_IDENTIFIER]
    298 /* The name of a destructor that does not destroy virtual base
    299    classes.  */
    300 #define base_dtor_identifier		cp_global_trees[CPTI_BASE_DTOR_IDENTIFIER]
    301 /* The name of a destructor that destroys virtual base classes, and
    302    then deletes the entire object.  */
    303 #define deleting_dtor_identifier	cp_global_trees[CPTI_DELETING_DTOR_IDENTIFIER]
    304 
    305 /* The name used for conversion operators -- but note that actual
    306    conversion functions use special identifiers outside the identifier
    307    table.  */
    308 #define conv_op_identifier		cp_global_trees[CPTI_CONV_OP_IDENTIFIER]
    309 
    310 #define delta_identifier		cp_global_trees[CPTI_DELTA_IDENTIFIER]
    311 #define in_charge_identifier		cp_global_trees[CPTI_IN_CHARGE_IDENTIFIER]
    312 /* The name of the parameter that contains a pointer to the VTT to use
    313    for this subobject constructor or destructor.  */
    314 #define vtt_parm_identifier		cp_global_trees[CPTI_VTT_PARM_IDENTIFIER]
    315 #define as_base_identifier		cp_global_trees[CPTI_AS_BASE_IDENTIFIER]
    316 #define this_identifier			cp_global_trees[CPTI_THIS_IDENTIFIER]
    317 #define pfn_identifier			cp_global_trees[CPTI_PFN_IDENTIFIER]
    318 #define vptr_identifier			cp_global_trees[CPTI_VPTR_IDENTIFIER]
    319 /* The name of the ::, std & anon namespaces.  */
    320 #define global_identifier		cp_global_trees[CPTI_GLOBAL_IDENTIFIER]
    321 #define anon_identifier			cp_global_trees[CPTI_ANON_IDENTIFIER]
    322 /* auto and declspec(auto) identifiers.  */
    323 #define auto_identifier			cp_global_trees[CPTI_AUTO_IDENTIFIER]
    324 #define decltype_auto_identifier	cp_global_trees[CPTI_DECLTYPE_AUTO_IDENTIFIER]
    325 #define init_list_identifier		cp_global_trees[CPTI_INIT_LIST_IDENTIFIER]
    326 #define for_range__identifier		cp_global_trees[CPTI_FOR_RANGE__IDENTIFIER]
    327 #define for_begin__identifier		cp_global_trees[CPTI_FOR_BEGIN__IDENTIFIER]
    328 #define for_end__identifier		cp_global_trees[CPTI_FOR_END__IDENTIFIER]
    329 #define for_range_identifier		cp_global_trees[CPTI_FOR_RANGE_IDENTIFIER]
    330 #define for_begin_identifier		cp_global_trees[CPTI_FOR_BEGIN_IDENTIFIER]
    331 #define for_end_identifier		cp_global_trees[CPTI_FOR_END_IDENTIFIER]
    332 #define abi_tag_identifier		cp_global_trees[CPTI_ABI_TAG_IDENTIFIER]
    333 #define aligned_identifier		cp_global_trees[CPTI_ALIGNED_IDENTIFIER]
    334 #define begin_identifier		cp_global_trees[CPTI_BEGIN_IDENTIFIER]
    335 #define end_identifier			cp_global_trees[CPTI_END_IDENTIFIER]
    336 #define get__identifier			cp_global_trees[CPTI_GET_IDENTIFIER]
    337 #define gnu_identifier			cp_global_trees[CPTI_GNU_IDENTIFIER]
    338 #define tuple_element_identifier	cp_global_trees[CPTI_TUPLE_ELEMENT_IDENTIFIER]
    339 #define tuple_size_identifier		cp_global_trees[CPTI_TUPLE_SIZE_IDENTIFIER]
    340 #define type_identifier			cp_global_trees[CPTI_TYPE_IDENTIFIER]
    341 #define value_identifier		cp_global_trees[CPTI_VALUE_IDENTIFIER]
    342 #define fun_identifier			cp_global_trees[CPTI_FUN_IDENTIFIER]
    343 #define closure_identifier		cp_global_trees[CPTI_CLOSURE_IDENTIFIER]
    344 #define heap_uninit_identifier		cp_global_trees[CPTI_HEAP_UNINIT_IDENTIFIER]
    345 #define heap_identifier			cp_global_trees[CPTI_HEAP_IDENTIFIER]
    346 #define heap_deleted_identifier		cp_global_trees[CPTI_HEAP_DELETED_IDENTIFIER]
    347 #define heap_vec_uninit_identifier	cp_global_trees[CPTI_HEAP_VEC_UNINIT_IDENTIFIER]
    348 #define heap_vec_identifier		cp_global_trees[CPTI_HEAP_VEC_IDENTIFIER]
    349 #define omp_identifier			cp_global_trees[CPTI_OMP_IDENTIFIER]
    350 #define lang_name_c			cp_global_trees[CPTI_LANG_NAME_C]
    351 #define lang_name_cplusplus		cp_global_trees[CPTI_LANG_NAME_CPLUSPLUS]
    352 
    353 /* Exception specifiers used for throw(), noexcept(true),
    354    noexcept(false) and deferred noexcept.  We rely on these being
    355    uncloned.  */
    356 #define empty_except_spec		cp_global_trees[CPTI_EMPTY_EXCEPT_SPEC]
    357 #define noexcept_true_spec		cp_global_trees[CPTI_NOEXCEPT_TRUE_SPEC]
    358 #define noexcept_false_spec		cp_global_trees[CPTI_NOEXCEPT_FALSE_SPEC]
    359 #define noexcept_deferred_spec		cp_global_trees[CPTI_NOEXCEPT_DEFERRED_SPEC]
    360 
    361 /* Exception handling function declarations.  */
    362 #define terminate_fn			cp_global_trees[CPTI_TERMINATE_FN]
    363 #define call_unexpected_fn		cp_global_trees[CPTI_CALL_UNEXPECTED_FN]
    364 #define call_terminate_fn		cp_global_trees[CPTI_CALL_TERMINATE_FN]
    365 #define get_exception_ptr_fn		cp_global_trees[CPTI_GET_EXCEPTION_PTR_FN]
    366 #define begin_catch_fn			cp_global_trees[CPTI_BEGIN_CATCH_FN]
    367 #define end_catch_fn			cp_global_trees[CPTI_END_CATCH_FN]
    368 #define allocate_exception_fn		cp_global_trees[CPTI_ALLOCATE_EXCEPTION_FN]
    369 #define free_exception_fn		cp_global_trees[CPTI_FREE_EXCEPTION_FN]
    370 #define throw_fn			cp_global_trees[CPTI_THROW_FN]
    371 #define rethrow_fn			cp_global_trees[CPTI_RETHROW_FN]
    372 
    373 /* The type of the function-pointer argument to "std::atexit".  */
    374 #define atexit_fn_ptr_type_node         cp_global_trees[CPTI_ATEXIT_FN_PTR_TYPE]
    375 
    376 /* A pointer to `std::atexit'.  */
    377 #define atexit_node			cp_global_trees[CPTI_ATEXIT]
    378 
    379 /* A pointer to `__cxa_thread_atexit'.  */
    380 #define thread_atexit_node		cp_global_trees[CPTI_THREAD_ATEXIT]
    381 
    382 /* A pointer to `__dso_handle'.  */
    383 #define dso_handle_node			cp_global_trees[CPTI_DSO_HANDLE]
    384 
    385 /* The declaration of the dynamic_cast runtime.  */
    386 #define dynamic_cast_node		cp_global_trees[CPTI_DCAST]
    387 
    388 /* The type of a destructor, passed to __cxa_atexit, __cxa_thread_atexit
    389    or __cxa_throw.  */
    390 #define cleanup_type			cp_global_trees[CPTI_CLEANUP_TYPE]
    391 
    392 /* The type of the vtt parameter passed to subobject constructors and
    393    destructors.  */
    394 #define vtt_parm_type			cp_global_trees[CPTI_VTT_PARM_TYPE]
    395 
    396 /* A node which matches any template argument.  */
    397 #define any_targ_node			cp_global_trees[CPTI_ANY_TARG]
    398 
    399 /* Node to indicate default access. This must be distinct from the
    400    access nodes in tree.h.  */
    401 
    402 #define access_default_node		null_node
    403 
    404 #include "name-lookup.h"
    406 
    407 /* Usage of TREE_LANG_FLAG_?:
    408    0: IDENTIFIER_KIND_BIT_0 (in IDENTIFIER_NODE)
    409       NEW_EXPR_USE_GLOBAL (in NEW_EXPR).
    410       COND_EXPR_IS_VEC_DELETE (in COND_EXPR).
    411       DELETE_EXPR_USE_GLOBAL (in DELETE_EXPR).
    412       CLEANUP_P (in TRY_BLOCK)
    413       AGGR_INIT_VIA_CTOR_P (in AGGR_INIT_EXPR)
    414       PTRMEM_OK_P (in ADDR_EXPR, OFFSET_REF, SCOPE_REF)
    415       PAREN_STRING_LITERAL_P (in STRING_CST)
    416       CP_DECL_THREAD_LOCAL_P (in VAR_DECL)
    417       KOENIG_LOOKUP_P (in CALL_EXPR)
    418       STATEMENT_LIST_NO_SCOPE (in STATEMENT_LIST).
    419       EXPR_STMT_STMT_EXPR_RESULT (in EXPR_STMT)
    420       STMT_EXPR_NO_SCOPE (in STMT_EXPR)
    421       BIND_EXPR_TRY_BLOCK (in BIND_EXPR)
    422       TYPENAME_IS_ENUM_P (in TYPENAME_TYPE)
    423       OMP_FOR_GIMPLIFYING_P (in OMP_FOR, OMP_SIMD, OMP_DISTRIBUTE,
    424 			     and OMP_TASKLOOP)
    425       BASELINK_QUALIFIED_P (in BASELINK)
    426       TARGET_EXPR_IMPLICIT_P (in TARGET_EXPR)
    427       TEMPLATE_PARM_PARAMETER_PACK (in TEMPLATE_PARM_INDEX)
    428       ATTR_IS_DEPENDENT (in the TREE_LIST for an attribute)
    429       ABI_TAG_IMPLICIT (in the TREE_LIST for the argument of abi_tag)
    430       LAMBDA_CAPTURE_EXPLICIT_P (in a TREE_LIST in LAMBDA_EXPR_CAPTURE_LIST)
    431       PARENTHESIZED_LIST_P (in the TREE_LIST for a parameter-declaration-list)
    432       CONSTRUCTOR_IS_DIRECT_INIT (in CONSTRUCTOR)
    433       LAMBDA_EXPR_CAPTURES_THIS_P (in LAMBDA_EXPR)
    434       DECLTYPE_FOR_LAMBDA_CAPTURE (in DECLTYPE_TYPE)
    435       VEC_INIT_EXPR_IS_CONSTEXPR (in VEC_INIT_EXPR)
    436       DECL_OVERRIDE_P (in FUNCTION_DECL)
    437       IMPLICIT_CONV_EXPR_DIRECT_INIT (in IMPLICIT_CONV_EXPR)
    438       TRANSACTION_EXPR_IS_STMT (in TRANSACTION_EXPR)
    439       CONVERT_EXPR_VBASE_PATH (in CONVERT_EXPR)
    440       PACK_EXPANSION_LOCAL_P (in *_PACK_EXPANSION)
    441       TINFO_HAS_ACCESS_ERRORS (in TEMPLATE_INFO)
    442       SIZEOF_EXPR_TYPE_P (in SIZEOF_EXPR)
    443       COMPOUND_REQ_NOEXCEPT_P (in COMPOUND_REQ)
    444       WILDCARD_PACK_P (in WILDCARD_DECL)
    445       BLOCK_OUTER_CURLY_BRACE_P (in BLOCK)
    446       FOLD_EXPR_MODOP_P (*_FOLD_EXPR)
    447       IF_STMT_CONSTEXPR_P (IF_STMT)
    448       DECL_NAMESPACE_INLINE_P (in NAMESPACE_DECL)
    449       SWITCH_STMT_ALL_CASES_P (in SWITCH_STMT)
    450       REINTERPRET_CAST_P (in NOP_EXPR)
    451       ALIGNOF_EXPR_STD_P (in ALIGNOF_EXPR)
    452       OVL_DEDUP_P (in OVERLOAD)
    453       INIT_EXPR_NRV_P (in INIT_EXPR)
    454       ATOMIC_CONSTR_MAP_INSTANTIATED_P (in ATOMIC_CONSTR)
    455       contract_semantic (in ASSERTION_, PRECONDITION_, POSTCONDITION_STMT)
    456       RETURN_EXPR_LOCAL_ADDR_P (in RETURN_EXPR)
    457    1: IDENTIFIER_KIND_BIT_1 (in IDENTIFIER_NODE)
    458       TI_PENDING_TEMPLATE_FLAG.
    459       TEMPLATE_PARMS_FOR_INLINE.
    460       DELETE_EXPR_USE_VEC (in DELETE_EXPR).
    461       ICS_ELLIPSIS_FLAG (in _CONV)
    462       DECL_INITIALIZED_P (in VAR_DECL)
    463       TYPENAME_IS_CLASS_P (in TYPENAME_TYPE)
    464       STMT_IS_FULL_EXPR_P (in _STMT)
    465       TARGET_EXPR_LIST_INIT_P (in TARGET_EXPR)
    466       DECL_FINAL_P (in FUNCTION_DECL)
    467       QUALIFIED_NAME_IS_TEMPLATE (in SCOPE_REF)
    468       CONSTRUCTOR_IS_DEPENDENT (in CONSTRUCTOR)
    469       TINFO_USED_TEMPLATE_ID (in TEMPLATE_INFO)
    470       PACK_EXPANSION_SIZEOF_P (in *_PACK_EXPANSION)
    471       OVL_USING_P (in OVERLOAD)
    472       IMPLICIT_CONV_EXPR_NONTYPE_ARG (in IMPLICIT_CONV_EXPR)
    473       BASELINK_FUNCTIONS_MAYBE_INCOMPLETE_P (in BASELINK)
    474       BIND_EXPR_VEC_DTOR (in BIND_EXPR)
    475       ATOMIC_CONSTR_EXPR_FROM_CONCEPT_P (in ATOMIC_CONSTR)
    476    2: IDENTIFIER_KIND_BIT_2 (in IDENTIFIER_NODE)
    477       ICS_THIS_FLAG (in _CONV)
    478       DECL_INITIALIZED_BY_CONSTANT_EXPRESSION_P (in VAR_DECL)
    479       STATEMENT_LIST_TRY_BLOCK (in STATEMENT_LIST)
    480       TYPENAME_IS_RESOLVING_P (in TYPENAME_TYPE)
    481       TARGET_EXPR_DIRECT_INIT_P (in TARGET_EXPR)
    482       FNDECL_USED_AUTO (in FUNCTION_DECL)
    483       DECLTYPE_FOR_LAMBDA_PROXY (in DECLTYPE_TYPE)
    484       REF_PARENTHESIZED_P (in COMPONENT_REF, INDIRECT_REF, SCOPE_REF,
    485 			   VIEW_CONVERT_EXPR, PAREN_EXPR)
    486       AGGR_INIT_ZERO_FIRST (in AGGR_INIT_EXPR)
    487       CONSTRUCTOR_MUTABLE_POISON (in CONSTRUCTOR)
    488       OVL_HIDDEN_P (in OVERLOAD)
    489       IF_STMT_CONSTEVAL_P (in IF_STMT)
    490       SWITCH_STMT_NO_BREAK_P (in SWITCH_STMT)
    491       LAMBDA_EXPR_CAPTURE_OPTIMIZED (in LAMBDA_EXPR)
    492       IMPLICIT_CONV_EXPR_BRACED_INIT (in IMPLICIT_CONV_EXPR)
    493       PACK_EXPANSION_AUTO_P (in *_PACK_EXPANSION)
    494       contract_semantic (in ASSERTION_, PRECONDITION_, POSTCONDITION_STMT)
    495    3: IMPLICIT_RVALUE_P (in NON_LVALUE_EXPR or STATIC_CAST_EXPR)
    496       ICS_BAD_FLAG (in _CONV)
    497       FN_TRY_BLOCK_P (in TRY_BLOCK)
    498       BIND_EXPR_BODY_BLOCK (in BIND_EXPR)
    499       CALL_EXPR_ORDERED_ARGS (in CALL_EXPR, AGGR_INIT_EXPR)
    500       DECLTYPE_FOR_REF_CAPTURE (in DECLTYPE_TYPE)
    501       CONSTRUCTOR_C99_COMPOUND_LITERAL (in CONSTRUCTOR)
    502       OVL_NESTED_P (in OVERLOAD)
    503       DECL_MODULE_EXPORT_P (in _DECL)
    504       PACK_EXPANSION_FORCE_EXTRA_ARGS_P (in *_PACK_EXPANSION)
    505       LAMBDA_EXPR_STATIC_P (in LAMBDA_EXPR)
    506       TARGET_EXPR_ELIDING_P (in TARGET_EXPR)
    507       contract_semantic (in ASSERTION_, PRECONDITION_, POSTCONDITION_STMT)
    508    4: IDENTIFIER_MARKED (IDENTIFIER_NODEs)
    509       TREE_HAS_CONSTRUCTOR (in INDIRECT_REF, SAVE_EXPR, CONSTRUCTOR,
    510 	  CALL_EXPR, or FIELD_DECL).
    511       DECL_TINFO_P (in VAR_DECL, TYPE_DECL)
    512       FUNCTION_REF_QUALIFIED (in FUNCTION_TYPE, METHOD_TYPE)
    513       OVL_LOOKUP_P (in OVERLOAD)
    514       LOOKUP_FOUND_P (in RECORD_TYPE, UNION_TYPE, ENUMERAL_TYPE, NAMESPACE_DECL)
    515       FNDECL_MANIFESTLY_CONST_EVALUATED (in FUNCTION_DECL)
    516    5: IDENTIFIER_VIRTUAL_P (in IDENTIFIER_NODE)
    517       FUNCTION_RVALUE_QUALIFIED (in FUNCTION_TYPE, METHOD_TYPE)
    518       CALL_EXPR_REVERSE_ARGS (in CALL_EXPR, AGGR_INIT_EXPR)
    519       CONSTRUCTOR_PLACEHOLDER_BOUNDARY (in CONSTRUCTOR)
    520       OVL_EXPORT_P (in OVERLOAD)
    521       DECL_NTTP_OBJECT_P (in VAR_DECL)
    522    6: TYPE_MARKED_P (in _TYPE)
    523       DECL_NONTRIVIALLY_INITIALIZED_P (in VAR_DECL)
    524       RANGE_FOR_IVDEP (in RANGE_FOR_STMT)
    525       CALL_EXPR_OPERATOR_SYNTAX (in CALL_EXPR, AGGR_INIT_EXPR)
    526       CONSTRUCTOR_IS_DESIGNATED_INIT (in CONSTRUCTOR)
    527       OVL_NAME_INDEPENDENT_DECL_P (in OVERLOAD)
    528 
    529    Usage of TYPE_LANG_FLAG_?:
    530    0: TYPE_DEPENDENT_P
    531    1: TYPE_HAS_USER_CONSTRUCTOR.
    532    2: TYPE_HAS_LATE_RETURN_TYPE (in FUNCTION_TYPE, METHOD_TYPE)
    533       TYPE_PTRMEMFUNC_FLAG (in RECORD_TYPE)
    534    4: TYPE_HAS_NONTRIVIAL_DESTRUCTOR
    535    5: CLASS_TYPE_P (in RECORD_TYPE and UNION_TYPE)
    536       ENUM_FIXED_UNDERLYING_TYPE_P (in ENUMERAL_TYPE)
    537       AUTO_IS_DECLTYPE (in TEMPLATE_TYPE_PARM)
    538       TEMPLATE_TEMPLATE_PARM_SIMPLE_P (in TEMPLATE_TEMPLATE_PARM)
    539    6: TYPE_DEPENDENT_P_VALID
    540 
    541    Usage of DECL_LANG_FLAG_?:
    542    0: DECL_TEMPLATE_PARM_P (in PARM_DECL, CONST_DECL, TYPE_DECL, or TEMPLATE_DECL)
    543       DECL_LOCAL_DECL_P (in FUNCTION_DECL, VAR_DECL)
    544       DECL_MUTABLE_P (in FIELD_DECL)
    545       DECL_DEPENDENT_P (in USING_DECL)
    546       LABEL_DECL_BREAK (in LABEL_DECL)
    547    1: C_TYPEDEF_EXPLICITLY_SIGNED (in TYPE_DECL).
    548       DECL_TEMPLATE_INSTANTIATED (in a VAR_DECL or a FUNCTION_DECL)
    549       DECL_MEMBER_TEMPLATE_P (in TEMPLATE_DECL)
    550       USING_DECL_TYPENAME_P (in USING_DECL)
    551       DECL_VLA_CAPTURE_P (in FIELD_DECL)
    552       DECL_ARRAY_PARAMETER_P (in PARM_DECL)
    553       LABEL_DECL_CONTINUE (in LABEL_DECL)
    554    2: DECL_THIS_EXTERN (in VAR_DECL, FUNCTION_DECL or PARM_DECL)
    555       DECL_IMPLICIT_TYPEDEF_P (in a TYPE_DECL)
    556       DECL_CONSTRAINT_VAR_P (in a PARM_DECL)
    557       DECL_INSTANTIATING_NSDMI_P (in a FIELD_DECL)
    558       USING_DECL_UNRELATED_P (in USING_DECL)
    559    3: DECL_IN_AGGR_P.
    560    4: DECL_C_BIT_FIELD (in a FIELD_DECL)
    561       DECL_ANON_UNION_VAR_P (in a VAR_DECL)
    562       DECL_SELF_REFERENCE_P (in a TYPE_DECL)
    563       DECL_INVALID_OVERRIDER_P (in a FUNCTION_DECL)
    564       DECL_UNINSTANIATED_TEMPLATE_FRIEND_P (in TEMPLATE_DECL)
    565    5: DECL_INTERFACE_KNOWN.
    566    6: DECL_THIS_STATIC (in VAR_DECL, FUNCTION_DECL or PARM_DECL)
    567       DECL_FIELD_IS_BASE (in FIELD_DECL)
    568       TYPE_DECL_ALIAS_P (in TYPE_DECL)
    569    7: DECL_THUNK_P (in a member FUNCTION_DECL)
    570       DECL_NORMAL_CAPTURE_P (in FIELD_DECL)
    571       DECL_DECLARED_CONSTINIT_P (in VAR_DECL)
    572    8: DECL_DECLARED_CONSTEXPR_P (in VAR_DECL, FUNCTION_DECL)
    573 
    574    Usage of language-independent fields in a language-dependent manner:
    575 
    576    TYPE_ALIAS_SET
    577      This field is used by TYPENAME_TYPEs, TEMPLATE_TYPE_PARMs, and so
    578      forth as a substitute for the mark bits provided in `lang_type'.
    579      At present, only the six low-order bits are used.
    580 
    581    TYPE_LANG_SLOT_1
    582      For a FUNCTION_TYPE or METHOD_TYPE, this is TYPE_RAISES_EXCEPTIONS.
    583      For a POINTER_TYPE (to a METHOD_TYPE), this is TYPE_PTRMEMFUNC_TYPE.
    584      For an ENUMERAL_TYPE, BOUND_TEMPLATE_TEMPLATE_PARM_TYPE,
    585      RECORD_TYPE or UNION_TYPE this is TYPE_TEMPLATE_INFO,
    586 
    587   BINFO_VIRTUALS
    588      For a binfo, this is a TREE_LIST.  There is an entry for each
    589      virtual function declared either in BINFO or its direct and
    590      indirect primary bases.
    591 
    592      The BV_DELTA of each node gives the amount by which to adjust the
    593      `this' pointer when calling the function.  If the method is an
    594      overridden version of a base class method, then it is assumed
    595      that, prior to adjustment, the this pointer points to an object
    596      of the base class.
    597 
    598      The BV_VCALL_INDEX of each node, if non-NULL, gives the vtable
    599      index of the vcall offset for this entry.
    600 
    601      The BV_FN is the declaration for the virtual function itself.
    602 
    603      If BV_LOST_PRIMARY is set, it means that this entry is for a lost
    604      primary virtual base and can be left null in the vtable.
    605 
    606    BINFO_VTABLE
    607      This is an expression with POINTER_TYPE that gives the value
    608      to which the vptr should be initialized.  Use get_vtbl_decl_for_binfo
    609      to extract the VAR_DECL for the complete vtable.
    610 
    611    DECL_VINDEX
    612      This field is NULL for a non-virtual function.  For a virtual
    613      function, it is eventually set to an INTEGER_CST indicating the
    614      index in the vtable at which this function can be found.  When
    615      a virtual function is declared, but before it is known what
    616      function is overridden, this field is the error_mark_node.
    617 
    618      Temporarily, it may be set to a TREE_LIST whose TREE_VALUE is
    619      the virtual function this one overrides, and whose TREE_CHAIN is
    620      the old DECL_VINDEX.  */
    621 
    622 /* Language-specific tree checkers.  */
    623 
    624 #define VAR_OR_FUNCTION_DECL_CHECK(NODE) \
    625   TREE_CHECK2(NODE,VAR_DECL,FUNCTION_DECL)
    626 
    627 #define TYPE_FUNCTION_OR_TEMPLATE_DECL_CHECK(NODE) \
    628   TREE_CHECK3(NODE,TYPE_DECL,TEMPLATE_DECL,FUNCTION_DECL)
    629 
    630 #define TYPE_FUNCTION_OR_TEMPLATE_DECL_P(NODE) \
    631   (TREE_CODE (NODE) == TYPE_DECL || TREE_CODE (NODE) == TEMPLATE_DECL \
    632    || TREE_CODE (NODE) == FUNCTION_DECL)
    633 
    634 #define VAR_FUNCTION_OR_PARM_DECL_CHECK(NODE) \
    635   TREE_CHECK3(NODE,VAR_DECL,FUNCTION_DECL,PARM_DECL)
    636 
    637 #define VAR_TEMPL_TYPE_OR_FUNCTION_DECL_CHECK(NODE) \
    638   TREE_CHECK4(NODE,VAR_DECL,FUNCTION_DECL,TYPE_DECL,TEMPLATE_DECL)
    639 
    640 #define VAR_TEMPL_TYPE_FIELD_OR_FUNCTION_DECL_CHECK(NODE) \
    641   TREE_CHECK5(NODE,VAR_DECL,FIELD_DECL,FUNCTION_DECL,TYPE_DECL,TEMPLATE_DECL)
    642 
    643 #define BOUND_TEMPLATE_TEMPLATE_PARM_TYPE_CHECK(NODE) \
    644   TREE_CHECK(NODE,BOUND_TEMPLATE_TEMPLATE_PARM)
    645 
    646 #if defined ENABLE_TREE_CHECKING && (GCC_VERSION >= 2007)
    647 
    648 /* Returns t iff the node can have a TEMPLATE_INFO field.  */
    649 
    650 inline tree
    651 template_info_decl_check (const_tree t, const char* f, int l, const char* fn)
    652 {
    653   switch (TREE_CODE (t))
    654     {
    655     case VAR_DECL:
    656     case FUNCTION_DECL:
    657     case FIELD_DECL:
    658     case TYPE_DECL:
    659     case CONCEPT_DECL:
    660     case TEMPLATE_DECL:
    661       return const_cast<tree>(t);
    662     default:
    663       break;
    664     }
    665   tree_check_failed (t, f, l, fn,
    666 		     VAR_DECL, FUNCTION_DECL, FIELD_DECL, TYPE_DECL,
    667 		     CONCEPT_DECL, TEMPLATE_DECL, 0);
    668   gcc_unreachable ();
    669 }
    670 
    671 #define TEMPLATE_INFO_DECL_CHECK(NODE) \
    672   template_info_decl_check ((NODE), __FILE__, __LINE__, __FUNCTION__)
    673 
    674 #define THUNK_FUNCTION_CHECK(NODE) __extension__			\
    675 ({  __typeof (NODE) const __t = (NODE);					\
    676     if (TREE_CODE (__t) != FUNCTION_DECL || !__t->decl_common.lang_specific \
    677 	|| !__t->decl_common.lang_specific->u.fn.thunk_p)		\
    678       tree_check_failed (__t, __FILE__, __LINE__, __FUNCTION__, 0);	\
    679      __t; })
    680 
    681 #define DECL_TEMPLATE_PARM_CHECK(NODE) \
    682   decl_template_parm_check ((NODE), __FILE__, __LINE__, __FUNCTION__)
    683 
    684 #else /* ENABLE_TREE_CHECKING */
    685 
    686 #define TEMPLATE_INFO_DECL_CHECK(NODE) (NODE)
    687 #define THUNK_FUNCTION_CHECK(NODE) (NODE)
    688 #define DECL_TEMPLATE_PARM_CHECK(NODE) (NODE)
    689 
    690 #endif /* ENABLE_TREE_CHECKING */
    691 
    692 /* Language-dependent contents of an identifier.  */
    694 
    695 struct GTY(()) lang_identifier {
    696   struct c_common_identifier c_common;
    697   cxx_binding *bindings;
    698 };
    699 
    700 /* Return a typed pointer version of T if it designates a
    701    C++ front-end identifier.  */
    702 inline lang_identifier*
    703 identifier_p (tree t)
    704 {
    705   if (TREE_CODE (t) == IDENTIFIER_NODE)
    706     return (lang_identifier*) t;
    707   return NULL;
    708 }
    709 
    710 #define LANG_IDENTIFIER_CAST(NODE) \
    711 	((struct lang_identifier*)IDENTIFIER_NODE_CHECK (NODE))
    712 
    713 struct GTY(()) template_parm_index {
    714   struct tree_common common;
    715   int index;
    716   int level;
    717   int orig_level;
    718   tree decl;
    719 };
    720 
    721 struct GTY(()) ptrmem_cst {
    722   struct tree_common common;
    723   tree member;
    724   location_t locus;
    725 };
    726 typedef struct ptrmem_cst * ptrmem_cst_t;
    727 
    728 #define CLEANUP_P(NODE)		TREE_LANG_FLAG_0 (TRY_BLOCK_CHECK (NODE))
    729 
    730 #define BIND_EXPR_TRY_BLOCK(NODE) \
    731   TREE_LANG_FLAG_0 (BIND_EXPR_CHECK (NODE))
    732 
    733 /* This BIND_EXPR is from build_vec_delete_1.  */
    734 #define BIND_EXPR_VEC_DTOR(NODE) \
    735   TREE_LANG_FLAG_1 (BIND_EXPR_CHECK (NODE))
    736 
    737 /* Used to mark the block around the member initializers and cleanups.  */
    738 #define BIND_EXPR_BODY_BLOCK(NODE) \
    739   TREE_LANG_FLAG_3 (BIND_EXPR_CHECK (NODE))
    740 #define FUNCTION_NEEDS_BODY_BLOCK(NODE) \
    741   (DECL_CONSTRUCTOR_P (NODE) || DECL_DESTRUCTOR_P (NODE) \
    742    || LAMBDA_FUNCTION_P (NODE))
    743 
    744 #define STATEMENT_LIST_NO_SCOPE(NODE) \
    745   TREE_LANG_FLAG_0 (STATEMENT_LIST_CHECK (NODE))
    746 #define STATEMENT_LIST_TRY_BLOCK(NODE) \
    747   TREE_LANG_FLAG_2 (STATEMENT_LIST_CHECK (NODE))
    748 
    749 /* Mark the outer curly brace BLOCK.  */
    750 #define BLOCK_OUTER_CURLY_BRACE_P(NODE)	TREE_LANG_FLAG_0 (BLOCK_CHECK (NODE))
    751 
    752 /* Nonzero if this statement should be considered a full-expression,
    753    i.e., if temporaries created during this statement should have
    754    their destructors run at the end of this statement.  */
    755 #define STMT_IS_FULL_EXPR_P(NODE) TREE_LANG_FLAG_1 ((NODE))
    756 
    757 /* Marks the result of a statement expression.  */
    758 #define EXPR_STMT_STMT_EXPR_RESULT(NODE) \
    759   TREE_LANG_FLAG_0 (EXPR_STMT_CHECK (NODE))
    760 
    761 /* Nonzero if this statement-expression does not have an associated scope.  */
    762 #define STMT_EXPR_NO_SCOPE(NODE) \
    763    TREE_LANG_FLAG_0 (STMT_EXPR_CHECK (NODE))
    764 
    765 #define COND_EXPR_IS_VEC_DELETE(NODE) \
    766   TREE_LANG_FLAG_0 (COND_EXPR_CHECK (NODE))
    767 
    768 /* Nonzero if this NOP_EXPR is a reinterpret_cast.  Such conversions
    769    are not constexprs.  Other NOP_EXPRs are.  */
    770 #define REINTERPRET_CAST_P(NODE)		\
    771   TREE_LANG_FLAG_0 (NOP_EXPR_CHECK (NODE))
    772 
    773 /* Returns nonzero iff TYPE1 and TYPE2 are the same type, in the usual
    774    sense of `same'.  */
    775 #define same_type_p(TYPE1, TYPE2) \
    776   comptypes ((TYPE1), (TYPE2), COMPARE_STRICT)
    777 
    778 /* Returns nonzero iff NODE is a declaration for the global function
    779    `main'.  */
    780 #define DECL_MAIN_ANY_P(NODE)				\
    781    (DECL_EXTERN_C_FUNCTION_P (NODE)			\
    782     && DECL_NAME (NODE) != NULL_TREE			\
    783     && MAIN_NAME_P (DECL_NAME (NODE)))
    784 
    785 /* Nonzero iff NODE is a declaration for `int main', or we are hosted. */
    786 #define DECL_MAIN_FREESTANDING_P(NODE)				\
    787   (DECL_MAIN_ANY_P(NODE)					\
    788    && (flag_hosted						\
    789        || TYPE_MAIN_VARIANT (TREE_TYPE (TREE_TYPE (NODE)))	\
    790 	  == integer_type_node))
    791 
    792 /* Nonzero iff NODE is a declaration for `main', and we are hosted. */
    793 #define DECL_MAIN_P(NODE) (DECL_MAIN_ANY_P(NODE) && flag_hosted)
    794 
    795 /* Lookup walker marking.  */
    796 #define LOOKUP_SEEN_P(NODE) TREE_VISITED (NODE)
    797 #define LOOKUP_FOUND_P(NODE) \
    798   TREE_LANG_FLAG_4 (TREE_CHECK4 (NODE,RECORD_TYPE,UNION_TYPE,ENUMERAL_TYPE,\
    799 				 NAMESPACE_DECL))
    800 
    801 /* These two accessors should only be used by OVL manipulators.
    802    Other users should use iterators and convenience functions.  */
    803 #define OVL_FUNCTION(NODE) \
    804   (((struct tree_overload*)OVERLOAD_CHECK (NODE))->function)
    805 #define OVL_CHAIN(NODE) \
    806   (((struct tree_overload*)OVERLOAD_CHECK (NODE))->common.chain)
    807 
    808 /* If set, this or a subsequent overload contains decls that need deduping.  */
    809 #define OVL_DEDUP_P(NODE)	TREE_LANG_FLAG_0 (OVERLOAD_CHECK (NODE))
    810 /* If set, this was imported in a using declaration.   */
    811 #define OVL_USING_P(NODE)	TREE_LANG_FLAG_1 (OVERLOAD_CHECK (NODE))
    812 /* If set, this overload is a hidden decl.  */
    813 #define OVL_HIDDEN_P(NODE)	TREE_LANG_FLAG_2 (OVERLOAD_CHECK (NODE))
    814 /* If set, this overload contains a nested overload.  */
    815 #define OVL_NESTED_P(NODE)	TREE_LANG_FLAG_3 (OVERLOAD_CHECK (NODE))
    816 /* If set, this overload was constructed during lookup.  */
    817 #define OVL_LOOKUP_P(NODE)	TREE_LANG_FLAG_4 (OVERLOAD_CHECK (NODE))
    818 /* If set, this OVL_USING_P overload is exported.  */
    819 #define OVL_EXPORT_P(NODE)	TREE_LANG_FLAG_5 (OVERLOAD_CHECK (NODE))
    820 /* If set, this overload includes name-independent declarations.  */
    821 #define OVL_NAME_INDEPENDENT_DECL_P(NODE) \
    822   TREE_LANG_FLAG_6 (OVERLOAD_CHECK (NODE))
    823 
    824 /* The first decl of an overload.  */
    825 #define OVL_FIRST(NODE)	ovl_first (NODE)
    826 /* The name of the overload set.  */
    827 #define OVL_NAME(NODE) DECL_NAME (OVL_FIRST (NODE))
    828 
    829 /* Whether this is a set of overloaded functions.  TEMPLATE_DECLS are
    830    always wrapped in an OVERLOAD, so we don't need to check them
    831    here.  */
    832 #define OVL_P(NODE) \
    833   (TREE_CODE (NODE) == FUNCTION_DECL || TREE_CODE (NODE) == OVERLOAD)
    834 /* Whether this is a single member overload.  */
    835 #define OVL_SINGLE_P(NODE) \
    836   (TREE_CODE (NODE) != OVERLOAD || !OVL_CHAIN (NODE))
    837 
    838 /* OVL_HIDDEN_P nodes come before other nodes.  */
    839 
    840 struct GTY(()) tree_overload {
    841   struct tree_common common;
    842   tree function;
    843 };
    844 
    845 /* Iterator for a 1 dimensional overload.  Permits iterating over the
    846    outer level of a 2-d overload when explicitly enabled.  */
    847 
    848 class ovl_iterator {
    849   tree ovl;
    850   const bool allow_inner; /* Only used when checking.  */
    851 
    852  public:
    853   explicit ovl_iterator (tree o, bool allow = false)
    854     : ovl (o), allow_inner (allow)
    855   {
    856   }
    857 
    858  public:
    859   operator bool () const
    860   {
    861     return ovl;
    862   }
    863   ovl_iterator &operator++ ()
    864   {
    865     ovl = TREE_CODE (ovl) != OVERLOAD ? NULL_TREE : OVL_CHAIN (ovl);
    866     return *this;
    867   }
    868   tree operator* () const
    869   {
    870     tree fn = TREE_CODE (ovl) != OVERLOAD ? ovl : OVL_FUNCTION (ovl);
    871 
    872     /* Check this is not an unexpected 2-dimensional overload.  */
    873     gcc_checking_assert (allow_inner || TREE_CODE (fn) != OVERLOAD);
    874 
    875     return fn;
    876   }
    877   bool operator== (const ovl_iterator &o) const
    878   {
    879     return ovl == o.ovl;
    880   }
    881   tree get_using () const
    882   {
    883     gcc_checking_assert (using_p ());
    884     return ovl;
    885   }
    886 
    887  public:
    888   /* Whether this overload was introduced by a using decl.  */
    889   bool using_p () const
    890   {
    891     return (TREE_CODE (ovl) == USING_DECL
    892 	    || (TREE_CODE (ovl) == OVERLOAD && OVL_USING_P (ovl)));
    893   }
    894   /* Whether this using is being exported.  */
    895   bool exporting_p () const
    896   {
    897     return OVL_EXPORT_P (get_using ());
    898   }
    899 
    900   bool hidden_p () const
    901   {
    902     return TREE_CODE (ovl) == OVERLOAD && OVL_HIDDEN_P (ovl);
    903   }
    904 
    905  public:
    906   tree remove_node (tree head)
    907   {
    908     return remove_node (head, ovl);
    909   }
    910   tree reveal_node (tree head)
    911   {
    912     return reveal_node (head, ovl);
    913   }
    914 
    915  protected:
    916   /* If we have a nested overload, point at the inner overload and
    917      return the next link on the outer one.  */
    918   tree maybe_push ()
    919   {
    920     tree r = NULL_TREE;
    921 
    922     if (ovl && TREE_CODE (ovl) == OVERLOAD && OVL_NESTED_P (ovl))
    923       {
    924 	r = OVL_CHAIN (ovl);
    925 	ovl = OVL_FUNCTION (ovl);
    926       }
    927     return r;
    928   }
    929   /* Restore an outer nested overload.  */
    930   void pop (tree outer)
    931   {
    932     gcc_checking_assert (!ovl);
    933     ovl = outer;
    934   }
    935 
    936  private:
    937   /* We make these static functions to avoid the address of the
    938      iterator escaping the local context.  */
    939   static tree remove_node (tree head, tree node);
    940   static tree reveal_node (tree ovl, tree node);
    941 };
    942 
    943 /* Treat a tree as a range of ovl_iterator, e.g.
    944    for (tree f : ovl_range (fns)) { ... }  */
    945 
    946 class ovl_range
    947 {
    948   tree t;
    949   bool allow;
    950 public:
    951   explicit ovl_range (tree t, bool allow = false): t(t), allow(allow) { }
    952   ovl_iterator begin() { return ovl_iterator (t, allow); }
    953   ovl_iterator end() { return ovl_iterator (NULL_TREE, allow); }
    954 };
    955 
    956 /* Iterator over a (potentially) 2 dimensional overload, which is
    957    produced by name lookup.  */
    958 
    959 class lkp_iterator : public ovl_iterator {
    960   typedef ovl_iterator parent;
    961 
    962   tree outer;
    963 
    964  public:
    965   explicit lkp_iterator (tree o)
    966     : parent (o, true), outer (maybe_push ())
    967   {
    968   }
    969 
    970  public:
    971   lkp_iterator &operator++ ()
    972   {
    973     bool repush = !outer;
    974 
    975     if (!parent::operator++ () && !repush)
    976       {
    977 	pop (outer);
    978 	repush = true;
    979       }
    980 
    981     if (repush)
    982       outer = maybe_push ();
    983 
    984     return *this;
    985   }
    986 };
    987 
    988 /* Treat a tree as a range of lkp_iterator, e.g.
    989    for (tree f : lkp_range (fns)) { ... }  */
    990 
    991 class lkp_range
    992 {
    993   tree t;
    994 public:
    995   lkp_range (tree t): t(t) { }
    996   lkp_iterator begin() { return lkp_iterator (t); }
    997   lkp_iterator end() { return lkp_iterator (NULL_TREE); }
    998 };
    999 
   1000 /* hash traits for declarations.  Hashes potential overload sets via
   1001    DECL_NAME.  */
   1002 
   1003 struct named_decl_hash : ggc_remove <tree> {
   1004   typedef tree value_type; /* A DECL or OVERLOAD  */
   1005   typedef tree compare_type; /* An identifier.  */
   1006 
   1007   inline static hashval_t hash (const value_type decl);
   1008   inline static bool equal (const value_type existing, compare_type candidate);
   1009 
   1010   static const bool empty_zero_p = true;
   1011   static inline void mark_empty (value_type &p) {p = NULL_TREE;}
   1012   static inline bool is_empty (value_type p) {return !p;}
   1013 
   1014   /* Nothing is deletable.  Everything is insertable.  */
   1015   static bool is_deleted (value_type) { return false; }
   1016   static void mark_deleted (value_type) { gcc_unreachable (); }
   1017 };
   1018 
   1019 /* Simplified unique_ptr clone to release a tree vec on exit.  */
   1020 
   1021 class releasing_vec
   1022 {
   1023 public:
   1024   typedef vec<tree, va_gc> vec_t;
   1025 
   1026   releasing_vec (vec_t *v): v(v) { }
   1027   releasing_vec (): v(make_tree_vector ()) { }
   1028 
   1029   /* Copy ops are deliberately declared but not defined,
   1030      copies must always be elided.  */
   1031   releasing_vec (const releasing_vec &);
   1032   releasing_vec &operator= (const releasing_vec &);
   1033 
   1034   vec_t &operator* () const { return *v; }
   1035   vec_t *operator-> () const { return v; }
   1036   vec_t *get() const { return v; }
   1037   operator vec_t *() const { return v; }
   1038   vec_t ** operator& () { return &v; }
   1039 
   1040   /* Breaks pointer/value consistency for convenience.  This takes ptrdiff_t
   1041      rather than unsigned to avoid ambiguity with the built-in operator[]
   1042      (bootstrap/91828).  */
   1043   tree& operator[] (ptrdiff_t i) const { return (*v)[i]; }
   1044 
   1045   tree *begin() { return ::begin (v); }
   1046   tree *end() { return ::end (v); }
   1047 
   1048   void release () { release_tree_vector (v); v = NULL; }
   1049 
   1050   ~releasing_vec () { release_tree_vector (v); }
   1051 private:
   1052   vec_t *v;
   1053 };
   1054 /* Forwarding functions for vec_safe_* that might reallocate.  */
   1055 inline tree* vec_safe_push (releasing_vec& r, const tree &t CXX_MEM_STAT_INFO)
   1056 { return vec_safe_push (*&r, t PASS_MEM_STAT); }
   1057 inline bool vec_safe_reserve (releasing_vec& r, unsigned n, bool e = false CXX_MEM_STAT_INFO)
   1058 { return vec_safe_reserve (*&r, n, e PASS_MEM_STAT); }
   1059 inline unsigned vec_safe_length (releasing_vec &r)
   1060 { return r->length(); }
   1061 inline void vec_safe_splice (releasing_vec &r, vec<tree, va_gc> *p CXX_MEM_STAT_INFO)
   1062 { vec_safe_splice (*&r, p PASS_MEM_STAT); }
   1063 void release_tree_vector (releasing_vec &); // cause link error
   1064 
   1065 struct GTY(()) tree_template_decl {
   1066   struct tree_decl_common common;
   1067   tree arguments;
   1068   tree result;
   1069 };
   1070 
   1071 /* Returns true iff NODE is a BASELINK.  */
   1072 #define BASELINK_P(NODE) \
   1073   (TREE_CODE (NODE) == BASELINK)
   1074 /* The BINFO indicating the base in which lookup found the
   1075    BASELINK_FUNCTIONS.  */
   1076 #define BASELINK_BINFO(NODE) \
   1077   (((struct tree_baselink*) BASELINK_CHECK (NODE))->binfo)
   1078 /* The functions referred to by the BASELINK; either a FUNCTION_DECL,
   1079    a TEMPLATE_DECL, an OVERLOAD, or a TEMPLATE_ID_EXPR.  */
   1080 #define BASELINK_FUNCTIONS(NODE) \
   1081   (((struct tree_baselink*) BASELINK_CHECK (NODE))->functions)
   1082 /* If T is a BASELINK, grab the functions, otherwise just T, which is
   1083    expected to already be a (list of) functions.  */
   1084 #define MAYBE_BASELINK_FUNCTIONS(T) \
   1085   (BASELINK_P (T) ? BASELINK_FUNCTIONS (T) : T)
   1086 /* The BINFO in which the search for the functions indicated by this baselink
   1087    began.  This base is used to determine the accessibility of functions
   1088    selected by overload resolution.  */
   1089 #define BASELINK_ACCESS_BINFO(NODE) \
   1090   (((struct tree_baselink*) BASELINK_CHECK (NODE))->access_binfo)
   1091 /* For a type-conversion operator, the BASELINK_OPTYPE indicates the type
   1092    to which the conversion should occur.  This value is important if
   1093    the BASELINK_FUNCTIONS include a template conversion operator --
   1094    the BASELINK_OPTYPE can be used to determine what type the user
   1095    requested.  */
   1096 #define BASELINK_OPTYPE(NODE) \
   1097   (TREE_CHAIN (BASELINK_CHECK (NODE)))
   1098 /* Nonzero if this baselink was from a qualified lookup.  */
   1099 #define BASELINK_QUALIFIED_P(NODE) \
   1100   TREE_LANG_FLAG_0 (BASELINK_CHECK (NODE))
   1101 /* Nonzero if the overload set for this baselink might be incomplete due
   1102    to the lookup being performed from an incomplete-class context.  */
   1103 #define BASELINK_FUNCTIONS_MAYBE_INCOMPLETE_P(NODE) \
   1104   TREE_LANG_FLAG_1 (BASELINK_CHECK (NODE))
   1105 
   1106 struct GTY(()) tree_baselink {
   1107   struct tree_common common;
   1108   tree binfo;
   1109   tree functions;
   1110   tree access_binfo;
   1111 };
   1112 
   1113 /* The different kinds of ids that we encounter.  */
   1114 
   1115 enum cp_id_kind
   1116 {
   1117   /* Not an id at all.  */
   1118   CP_ID_KIND_NONE,
   1119   /* An unqualified-id that is not a template-id.  */
   1120   CP_ID_KIND_UNQUALIFIED,
   1121   /* An unqualified-id that is a dependent name.  */
   1122   CP_ID_KIND_UNQUALIFIED_DEPENDENT,
   1123   /* An unqualified template-id.  */
   1124   CP_ID_KIND_TEMPLATE_ID,
   1125   /* A qualified-id.  */
   1126   CP_ID_KIND_QUALIFIED
   1127 };
   1128 
   1129 
   1130 /* The various kinds of C++0x warnings we encounter. */
   1131 
   1132 enum cpp0x_warn_str
   1133 {
   1134   /* extended initializer lists */
   1135   CPP0X_INITIALIZER_LISTS,
   1136   /* explicit conversion operators */
   1137   CPP0X_EXPLICIT_CONVERSION,
   1138   /* variadic templates */
   1139   CPP0X_VARIADIC_TEMPLATES,
   1140   /* lambda expressions */
   1141   CPP0X_LAMBDA_EXPR,
   1142   /* C++0x auto */
   1143   CPP0X_AUTO,
   1144   /* scoped enums */
   1145   CPP0X_SCOPED_ENUMS,
   1146   /* defaulted and deleted functions */
   1147   CPP0X_DEFAULTED_DELETED,
   1148   /* inline namespaces */
   1149   CPP0X_INLINE_NAMESPACES,
   1150   /* override controls, override/final */
   1151   CPP0X_OVERRIDE_CONTROLS,
   1152   /* non-static data member initializers */
   1153   CPP0X_NSDMI,
   1154   /* user defined literals */
   1155   CPP0X_USER_DEFINED_LITERALS,
   1156   /* delegating constructors */
   1157   CPP0X_DELEGATING_CTORS,
   1158   /* inheriting constructors */
   1159   CPP0X_INHERITING_CTORS,
   1160   /* C++11 attributes */
   1161   CPP0X_ATTRIBUTES,
   1162   /* ref-qualified member functions */
   1163   CPP0X_REF_QUALIFIER
   1164 };
   1165 
   1166 /* The various kinds of operation used by composite_pointer_type. */
   1167 
   1168 enum composite_pointer_operation
   1169 {
   1170   /* comparison */
   1171   CPO_COMPARISON,
   1172   /* conversion */
   1173   CPO_CONVERSION,
   1174   /* conditional expression */
   1175   CPO_CONDITIONAL_EXPR
   1176 };
   1177 
   1178 /* Possible cases of expression list used by build_x_compound_expr_from_list. */
   1179 enum expr_list_kind {
   1180   ELK_INIT,		/* initializer */
   1181   ELK_MEM_INIT,		/* member initializer */
   1182   ELK_FUNC_CAST		/* functional cast */
   1183 };
   1184 
   1185 /* Possible cases of implicit bad rhs conversions. */
   1186 enum impl_conv_rhs {
   1187   ICR_DEFAULT_ARGUMENT, /* default argument */
   1188   ICR_CONVERTING,       /* converting */
   1189   ICR_INIT,             /* initialization */
   1190   ICR_ARGPASS,          /* argument passing */
   1191   ICR_RETURN,           /* return */
   1192   ICR_ASSIGN            /* assignment */
   1193 };
   1194 
   1195 /* Possible cases of implicit or explicit bad conversions to void. */
   1196 enum impl_conv_void {
   1197   ICV_CAST,            /* (explicit) conversion to void */
   1198   ICV_SECOND_OF_COND,  /* second operand of conditional expression */
   1199   ICV_THIRD_OF_COND,   /* third operand of conditional expression */
   1200   ICV_RIGHT_OF_COMMA,  /* right operand of comma operator */
   1201   ICV_LEFT_OF_COMMA,   /* left operand of comma operator */
   1202   ICV_STATEMENT,       /* statement */
   1203   ICV_THIRD_IN_FOR     /* for increment expression */
   1204 };
   1205 
   1206 /* Possible invalid uses of an abstract class that might not have a
   1207    specific associated declaration.  */
   1208 enum GTY(()) abstract_class_use {
   1209   ACU_UNKNOWN,			/* unknown or decl provided */
   1210   ACU_CAST,			/* cast to abstract class */
   1211   ACU_NEW,			/* new-expression of abstract class */
   1212   ACU_THROW,			/* throw-expression of abstract class */
   1213   ACU_CATCH,			/* catch-parameter of abstract class */
   1214   ACU_ARRAY,			/* array of abstract class */
   1215   ACU_RETURN,			/* return type of abstract class */
   1216   ACU_PARM			/* parameter type of abstract class */
   1217 };
   1218 
   1219 /* Macros for access to language-specific slots in an identifier.  */
   1220 
   1221 /* Identifiers map directly to block or class-scope bindings.
   1222    Namespace-scope bindings are held in hash tables on the respective
   1223    namespaces.  The identifier bindings are the innermost active
   1224    binding, from whence you can get the decl and/or implicit-typedef
   1225    of an elaborated type.   When not bound to a local entity the
   1226    values are NULL.  */
   1227 #define IDENTIFIER_BINDING(NODE) \
   1228   (LANG_IDENTIFIER_CAST (NODE)->bindings)
   1229 #define REAL_IDENTIFIER_TYPE_VALUE(NODE) TREE_TYPE (NODE)
   1230 #define SET_IDENTIFIER_TYPE_VALUE(NODE,TYPE) (TREE_TYPE (NODE) = (TYPE))
   1231 
   1232 /* Kinds of identifiers.  Values are carefully chosen.  */
   1233 enum cp_identifier_kind {
   1234   cik_normal = 0,	/* Not a special identifier.  */
   1235   cik_keyword = 1,	/* A keyword.  */
   1236   cik_ctor = 2,		/* Constructor (in-chg, complete or base).  */
   1237   cik_dtor = 3,		/* Destructor (in-chg, deleting, complete or
   1238 			   base).  */
   1239   cik_simple_op = 4,	/* Non-assignment operator name.  */
   1240   cik_assign_op = 5,	/* An assignment operator name.  */
   1241   cik_conv_op = 6,	/* Conversion operator name.  */
   1242   cik_trait = 7,	/* Built-in trait name.  */
   1243   cik_max
   1244 };
   1245 
   1246 /* Kind bits.  */
   1247 #define IDENTIFIER_KIND_BIT_0(NODE) \
   1248   TREE_LANG_FLAG_0 (IDENTIFIER_NODE_CHECK (NODE))
   1249 #define IDENTIFIER_KIND_BIT_1(NODE) \
   1250   TREE_LANG_FLAG_1 (IDENTIFIER_NODE_CHECK (NODE))
   1251 #define IDENTIFIER_KIND_BIT_2(NODE) \
   1252   TREE_LANG_FLAG_2 (IDENTIFIER_NODE_CHECK (NODE))
   1253 
   1254 /* Used by various search routines.  */
   1255 #define IDENTIFIER_MARKED(NODE) \
   1256   TREE_LANG_FLAG_4 (IDENTIFIER_NODE_CHECK (NODE))
   1257 
   1258 /* Nonzero if this identifier is used as a virtual function name somewhere
   1259    (optimizes searches).  */
   1260 #define IDENTIFIER_VIRTUAL_P(NODE) \
   1261   TREE_LANG_FLAG_5 (IDENTIFIER_NODE_CHECK (NODE))
   1262 
   1263 /* True if this identifier is a reserved word.  C_RID_CODE (node) is
   1264    then the RID_* value of the keyword.  Value 1.  */
   1265 #define IDENTIFIER_KEYWORD_P(NODE)		\
   1266   ((!IDENTIFIER_KIND_BIT_2 (NODE))		\
   1267    & (!IDENTIFIER_KIND_BIT_1 (NODE))		\
   1268    & IDENTIFIER_KIND_BIT_0 (NODE))
   1269 
   1270 /* True if this identifier is the name of a constructor or
   1271    destructor.  Value 2 or 3.  */
   1272 #define IDENTIFIER_CDTOR_P(NODE)		\
   1273   ((!IDENTIFIER_KIND_BIT_2 (NODE))		\
   1274    & IDENTIFIER_KIND_BIT_1 (NODE))
   1275 
   1276 /* True if this identifier is the name of a constructor.  Value 2.  */
   1277 #define IDENTIFIER_CTOR_P(NODE)			\
   1278   (IDENTIFIER_CDTOR_P(NODE)			\
   1279     & (!IDENTIFIER_KIND_BIT_0 (NODE)))
   1280 
   1281 /* True if this identifier is the name of a destructor.  Value 3.  */
   1282 #define IDENTIFIER_DTOR_P(NODE)			\
   1283   (IDENTIFIER_CDTOR_P(NODE)			\
   1284     & IDENTIFIER_KIND_BIT_0 (NODE))
   1285 
   1286 /* True if this identifier is for any operator name (including
   1287    conversions).  Value 4, 5, or 6.  */
   1288 #define IDENTIFIER_ANY_OP_P(NODE)		\
   1289   (IDENTIFIER_KIND_BIT_2 (NODE) && !IDENTIFIER_TRAIT_P (NODE))
   1290 
   1291 /* True if this identifier is for an overloaded operator. Values 4, 5.  */
   1292 #define IDENTIFIER_OVL_OP_P(NODE)		\
   1293   (IDENTIFIER_ANY_OP_P (NODE)			\
   1294    & (!IDENTIFIER_KIND_BIT_1 (NODE)))
   1295 
   1296 /* True if this identifier is for any assignment. Values 5.  */
   1297 #define IDENTIFIER_ASSIGN_OP_P(NODE)		\
   1298   (IDENTIFIER_OVL_OP_P (NODE)			\
   1299    & IDENTIFIER_KIND_BIT_0 (NODE))
   1300 
   1301 /* True if this identifier is the name of a type-conversion
   1302    operator.  Value 6.  */
   1303 #define IDENTIFIER_CONV_OP_P(NODE)		\
   1304   (IDENTIFIER_ANY_OP_P (NODE)			\
   1305    & IDENTIFIER_KIND_BIT_1 (NODE)		\
   1306    & (!IDENTIFIER_KIND_BIT_0 (NODE)))
   1307 
   1308 /* True if this identifier is the name of a built-in trait.  */
   1309 #define IDENTIFIER_TRAIT_P(NODE)		\
   1310   (IDENTIFIER_KIND_BIT_0 (NODE)			\
   1311    & IDENTIFIER_KIND_BIT_1 (NODE)		\
   1312    & IDENTIFIER_KIND_BIT_2 (NODE))
   1313 
   1314 /* True if this identifier is a new or delete operator.  */
   1315 #define IDENTIFIER_NEWDEL_OP_P(NODE)		\
   1316   (IDENTIFIER_OVL_OP_P (NODE)			\
   1317    && IDENTIFIER_OVL_OP_FLAGS (NODE) & OVL_OP_FLAG_ALLOC)
   1318 
   1319 /* True if this identifier is a new operator.  */
   1320 #define IDENTIFIER_NEW_OP_P(NODE)					\
   1321   (IDENTIFIER_OVL_OP_P (NODE)						\
   1322    && (IDENTIFIER_OVL_OP_FLAGS (NODE)					\
   1323        & (OVL_OP_FLAG_ALLOC | OVL_OP_FLAG_DELETE)) == OVL_OP_FLAG_ALLOC)
   1324 
   1325 /* Access a C++-specific index for identifier NODE.
   1326    Used to optimize operator mappings etc.  */
   1327 #define IDENTIFIER_CP_INDEX(NODE)		\
   1328   (IDENTIFIER_NODE_CHECK(NODE)->base.u.bits.address_space)
   1329 
   1330 /* In a RECORD_TYPE or UNION_TYPE, nonzero if any component is read-only.  */
   1331 #define C_TYPE_FIELDS_READONLY(TYPE) \
   1332   (LANG_TYPE_CLASS_CHECK (TYPE)->fields_readonly)
   1333 
   1334 /* The tokens stored in the unparsed operand.  */
   1335 
   1336 #define DEFPARSE_TOKENS(NODE) \
   1337   (((struct tree_deferred_parse *)DEFERRED_PARSE_CHECK (NODE))->tokens)
   1338 #define DEFPARSE_INSTANTIATIONS(NODE) \
   1339   (((struct tree_deferred_parse *)DEFERRED_PARSE_CHECK (NODE))->instantiations)
   1340 
   1341 struct GTY (()) tree_deferred_parse {
   1342   struct tree_base base;
   1343   struct cp_token_cache *tokens;
   1344   vec<tree, va_gc> *instantiations;
   1345 };
   1346 
   1347 
   1348 #define DEFERRED_NOEXCEPT_PATTERN(NODE) \
   1349   (((struct tree_deferred_noexcept *)DEFERRED_NOEXCEPT_CHECK (NODE))->pattern)
   1350 #define DEFERRED_NOEXCEPT_ARGS(NODE) \
   1351   (((struct tree_deferred_noexcept *)DEFERRED_NOEXCEPT_CHECK (NODE))->args)
   1352 #define DEFERRED_NOEXCEPT_SPEC_P(NODE)				\
   1353   ((NODE) && (TREE_PURPOSE (NODE))				\
   1354    && (TREE_CODE (TREE_PURPOSE (NODE)) == DEFERRED_NOEXCEPT))
   1355 #define UNEVALUATED_NOEXCEPT_SPEC_P(NODE)				\
   1356   (DEFERRED_NOEXCEPT_SPEC_P (NODE)					\
   1357    && DEFERRED_NOEXCEPT_PATTERN (TREE_PURPOSE (NODE)) == NULL_TREE)
   1358 #define UNPARSED_NOEXCEPT_SPEC_P(NODE) \
   1359   ((NODE) && (TREE_PURPOSE (NODE)) \
   1360    && (TREE_CODE (TREE_PURPOSE (NODE)) == DEFERRED_PARSE))
   1361 
   1362 struct GTY (()) tree_deferred_noexcept {
   1363   struct tree_base base;
   1364   tree pattern;
   1365   tree args;
   1366 };
   1367 
   1368 
   1369 /* The condition associated with the static assertion.  This must be
   1370    an integral constant expression.  */
   1371 #define STATIC_ASSERT_CONDITION(NODE) \
   1372   (((struct tree_static_assert *)STATIC_ASSERT_CHECK (NODE))->condition)
   1373 
   1374 /* The message associated with the static assertion.  This must be a
   1375    string constant, which will be emitted as an error message when the
   1376    static assert condition is false.  */
   1377 #define STATIC_ASSERT_MESSAGE(NODE) \
   1378   (((struct tree_static_assert *)STATIC_ASSERT_CHECK (NODE))->message)
   1379 
   1380 /* Source location information for a static assertion.  */
   1381 #define STATIC_ASSERT_SOURCE_LOCATION(NODE) \
   1382   (((struct tree_static_assert *)STATIC_ASSERT_CHECK (NODE))->location)
   1383 
   1384 struct GTY (()) tree_static_assert {
   1385   struct tree_common common;
   1386   tree condition;
   1387   tree message;
   1388   location_t location;
   1389 };
   1390 
   1391 struct GTY (()) tree_argument_pack_select {
   1392   struct tree_common common;
   1393   tree argument_pack;
   1394   int index;
   1395 };
   1396 
   1397 /* The different kinds of traits that we encounter.  The size is limited to
   1398    addr_space_t since a trait is looked up by IDENTIFIER_CP_INDEX.  */
   1399 enum cp_trait_kind : addr_space_t {
   1400 #define DEFTRAIT(TCC, CODE, NAME, ARITY) \
   1401   CPTK_##CODE,
   1402 #include "cp-trait.def"
   1403 #undef DEFTRAIT
   1404 };
   1405 
   1406 /* The trait type.  */
   1407 struct cp_trait {
   1408   const char *name;
   1409   cp_trait_kind kind;
   1410   short arity;
   1411   bool type;
   1412 };
   1413 
   1414 /* The trait table indexed by cp_trait_kind.  */
   1415 extern const struct cp_trait cp_traits[];
   1416 
   1417 /* The types that we are processing.  */
   1418 #define TRAIT_EXPR_TYPE1(NODE) \
   1419   (((struct tree_trait_expr *)TRAIT_EXPR_CHECK (NODE))->type1)
   1420 
   1421 #define TRAIT_EXPR_TYPE2(NODE) \
   1422   (((struct tree_trait_expr *)TRAIT_EXPR_CHECK (NODE))->type2)
   1423 
   1424 /* The specific trait that we are processing.  */
   1425 #define TRAIT_EXPR_KIND(NODE) \
   1426   (((struct tree_trait_expr *)TRAIT_EXPR_CHECK (NODE))->kind)
   1427 
   1428 #define TRAIT_EXPR_LOCATION(NODE) \
   1429   (((struct tree_trait_expr *)TRAIT_EXPR_CHECK (NODE))->locus)
   1430 
   1431 struct GTY (()) tree_trait_expr {
   1432   struct tree_common common;
   1433   tree type1;
   1434   tree type2;
   1435   location_t locus;
   1436   enum cp_trait_kind kind;
   1437 };
   1438 
   1439 /* An INTEGER_CST containing the kind of the trait type NODE.  */
   1440 #define TRAIT_TYPE_KIND_RAW(NODE) \
   1441   TYPE_VALUES_RAW (TRAIT_TYPE_CHECK (NODE))
   1442 
   1443 /* The kind of the trait type NODE.  */
   1444 #define TRAIT_TYPE_KIND(NODE) \
   1445   ((enum cp_trait_kind) TREE_INT_CST_LOW (TRAIT_TYPE_KIND_RAW (NODE)))
   1446 
   1447 /* The first argument of the trait type NODE.  */
   1448 #define TRAIT_TYPE_TYPE1(NODE) \
   1449   TYPE_MIN_VALUE_RAW (TRAIT_TYPE_CHECK (NODE))
   1450 
   1451 /* The rest of the arguments of the trait type NODE.  */
   1452 #define TRAIT_TYPE_TYPE2(NODE) \
   1453   TYPE_MAX_VALUE_RAW (TRAIT_TYPE_CHECK (NODE))
   1454 
   1455 /* Identifiers used for lambda types are almost anonymous.  Use this
   1456    spare flag to distinguish them (they also have the anonymous flag).  */
   1457 #define IDENTIFIER_LAMBDA_P(NODE) \
   1458   (IDENTIFIER_NODE_CHECK(NODE)->base.protected_flag)
   1459 
   1460 /* Based off of TYPE_UNNAMED_P.  */
   1461 #define LAMBDA_TYPE_P(NODE)					\
   1462   (TREE_CODE (NODE) == RECORD_TYPE				\
   1463    && TYPE_LINKAGE_IDENTIFIER (NODE)				\
   1464    && IDENTIFIER_LAMBDA_P (TYPE_LINKAGE_IDENTIFIER (NODE)))
   1465 
   1466 /* Test if FUNCTION_DECL is a lambda function.  */
   1467 #define LAMBDA_FUNCTION_P(FNDECL)				\
   1468   (DECL_DECLARES_FUNCTION_P (FNDECL)				\
   1469    && DECL_OVERLOADED_OPERATOR_P (FNDECL)			\
   1470    && DECL_OVERLOADED_OPERATOR_IS (FNDECL, CALL_EXPR)		\
   1471    && LAMBDA_TYPE_P (CP_DECL_CONTEXT (FNDECL)))
   1472 
   1473 enum cp_lambda_default_capture_mode_type {
   1474   CPLD_NONE,
   1475   CPLD_COPY,
   1476   CPLD_REFERENCE
   1477 };
   1478 
   1479 /* The method of default capture, if any.  */
   1480 #define LAMBDA_EXPR_DEFAULT_CAPTURE_MODE(NODE) \
   1481   (((struct tree_lambda_expr *)LAMBDA_EXPR_CHECK (NODE))->default_capture_mode)
   1482 
   1483 /* The capture-list, including `this'.  Each capture is stored as a FIELD_DECL
   1484  * so that the name, type, and field are all together, whether or not it has
   1485  * been added to the lambda's class type.
   1486    TREE_LIST:
   1487      TREE_PURPOSE: The FIELD_DECL for this capture.
   1488      TREE_VALUE: The initializer. This is part of a GNU extension.  */
   1489 #define LAMBDA_EXPR_CAPTURE_LIST(NODE) \
   1490   (((struct tree_lambda_expr *)LAMBDA_EXPR_CHECK (NODE))->capture_list)
   1491 
   1492 /* During parsing of the lambda-introducer, the node in the capture-list
   1493    that holds the 'this' capture.  During parsing of the body, the
   1494    capture proxy for that node.  */
   1495 #define LAMBDA_EXPR_THIS_CAPTURE(NODE) \
   1496   (((struct tree_lambda_expr *)LAMBDA_EXPR_CHECK (NODE))->this_capture)
   1497 
   1498 /* Predicate tracking whether `this' is in the effective capture set.  */
   1499 #define LAMBDA_EXPR_CAPTURES_THIS_P(NODE) \
   1500   LAMBDA_EXPR_THIS_CAPTURE(NODE)
   1501 
   1502 /* True iff uses of a const variable capture were optimized away.  */
   1503 #define LAMBDA_EXPR_CAPTURE_OPTIMIZED(NODE) \
   1504   TREE_LANG_FLAG_2 (LAMBDA_EXPR_CHECK (NODE))
   1505 
   1506 /* Predicate tracking whether the lambda was declared 'static'.  */
   1507 #define LAMBDA_EXPR_STATIC_P(NODE) \
   1508   TREE_LANG_FLAG_3 (LAMBDA_EXPR_CHECK (NODE))
   1509 
   1510 /* True if this TREE_LIST in LAMBDA_EXPR_CAPTURE_LIST is for an explicit
   1511    capture.  */
   1512 #define LAMBDA_CAPTURE_EXPLICIT_P(NODE) \
   1513   TREE_LANG_FLAG_0 (TREE_LIST_CHECK (NODE))
   1514 
   1515 /* The source location of the lambda.  */
   1516 #define LAMBDA_EXPR_LOCATION(NODE) \
   1517   (((struct tree_lambda_expr *)LAMBDA_EXPR_CHECK (NODE))->locus)
   1518 
   1519 /* The mangling scope for the lambda: FUNCTION_DECL, PARM_DECL, VAR_DECL,
   1520    FIELD_DECL or NULL_TREE.  If this is NULL_TREE, we have no linkage.  */
   1521 #define LAMBDA_EXPR_EXTRA_SCOPE(NODE) \
   1522   (((struct tree_lambda_expr *)LAMBDA_EXPR_CHECK (NODE))->extra_scope)
   1523 
   1524 /* Lambdas in the same extra scope might need a discriminating count.
   1525    For ABI 17, we have single per-scope count, for ABI 18, we have
   1526    per-scope, per-signature numbering.  */
   1527 #define LAMBDA_EXPR_SCOPE_ONLY_DISCRIMINATOR(NODE) \
   1528   (((struct tree_lambda_expr *)LAMBDA_EXPR_CHECK (NODE))->discriminator_scope)
   1529 #define LAMBDA_EXPR_SCOPE_SIG_DISCRIMINATOR(NODE) \
   1530   (((struct tree_lambda_expr *)LAMBDA_EXPR_CHECK (NODE))->discriminator_sig)
   1531 
   1532 /* During parsing of the lambda, a vector of capture proxies which need
   1533    to be pushed once we're done processing a nested lambda.  */
   1534 #define LAMBDA_EXPR_PENDING_PROXIES(NODE) \
   1535   (((struct tree_lambda_expr *)LAMBDA_EXPR_CHECK (NODE))->pending_proxies)
   1536 
   1537 /* If NODE was regenerated via tsubst_lambda_expr, this is a TEMPLATE_INFO
   1538    whose TI_TEMPLATE is the immediate LAMBDA_EXPR from which NODE was
   1539    regenerated, and TI_ARGS is the full set of template arguments used
   1540    to regenerate NODE from the most general lambda.  */
   1541 #define LAMBDA_EXPR_REGEN_INFO(NODE) \
   1542   (((struct tree_lambda_expr *)LAMBDA_EXPR_CHECK (NODE))->regen_info)
   1543 
   1544 /* Like PACK_EXPANSION_EXTRA_ARGS, for lambda-expressions.  */
   1545 #define LAMBDA_EXPR_EXTRA_ARGS(NODE) \
   1546   (((struct tree_lambda_expr *)LAMBDA_EXPR_CHECK (NODE))->extra_args)
   1547 
   1548 /* The closure type of the lambda, which is also the type of the
   1549    LAMBDA_EXPR.  */
   1550 #define LAMBDA_EXPR_CLOSURE(NODE) \
   1551   (TREE_TYPE (LAMBDA_EXPR_CHECK (NODE)))
   1552 
   1553 struct GTY (()) tree_lambda_expr
   1554 {
   1555   struct tree_typed typed;
   1556   tree capture_list;
   1557   tree this_capture;
   1558   tree extra_scope;
   1559   tree regen_info;
   1560   tree extra_args;
   1561   vec<tree, va_gc> *pending_proxies;
   1562   location_t locus;
   1563   enum cp_lambda_default_capture_mode_type default_capture_mode : 2;
   1564   unsigned discriminator_scope : 15; // Per-scope discriminator
   1565   unsigned discriminator_sig : 15; // Per-scope, per-signature discriminator
   1566 };
   1567 
   1568 /* Non-zero if this template specialization has access violations that
   1569    should be rechecked when the function is instantiated outside argument
   1570    deduction.  */
   1571 #define TINFO_HAS_ACCESS_ERRORS(NODE) \
   1572   (TREE_LANG_FLAG_0 (TEMPLATE_INFO_CHECK (NODE)))
   1573 #define FNDECL_HAS_ACCESS_ERRORS(NODE) \
   1574   (TINFO_HAS_ACCESS_ERRORS (DECL_TEMPLATE_INFO (NODE)))
   1575 
   1576 /* Non-zero if this variable template specialization was specified using a
   1577    template-id, so it's a partial or full specialization and not a definition
   1578    of the member template of a particular class specialization.  */
   1579 #define TINFO_USED_TEMPLATE_ID(NODE) \
   1580   (TREE_LANG_FLAG_1 (TEMPLATE_INFO_CHECK (NODE)))
   1581 
   1582 /* The representation of a deferred access check.  */
   1583 
   1584 struct GTY(()) deferred_access_check {
   1585   /* The base class in which the declaration is referenced. */
   1586   tree binfo;
   1587   /* The declaration whose access must be checked.  */
   1588   tree decl;
   1589   /* The declaration that should be used in the error message.  */
   1590   tree diag_decl;
   1591   /* The location of this access.  */
   1592   location_t loc;
   1593 };
   1594 
   1595 struct GTY(()) tree_template_info {
   1596   struct tree_base base;
   1597   tree tmpl;
   1598   tree args;
   1599   tree partial;
   1600   vec<deferred_access_check, va_gc> *deferred_access_checks;
   1601 };
   1602 
   1603 // Constraint information for a C++ declaration. Constraint information is
   1604 // comprised of:
   1605 //
   1606 // - a constraint expression introduced by the template header
   1607 // - a constraint expression introduced by a function declarator
   1608 // - the associated constraints, which are the conjunction of those,
   1609 //   and used for declaration matching
   1610 //
   1611 // The template and declarator requirements are kept to support pretty
   1612 // printing constrained declarations.
   1613 struct GTY(()) tree_constraint_info {
   1614   struct tree_base base;
   1615   tree template_reqs;
   1616   tree declarator_reqs;
   1617   tree associated_constr;
   1618 };
   1619 
   1620 // Require that pointer P is non-null before returning.
   1621 template<typename T>
   1622 inline T*
   1623 check_nonnull (T* p)
   1624 {
   1625   gcc_assert (p);
   1626   return p;
   1627 }
   1628 
   1629 /* Returns true iff T is non-null and represents constraint info.  */
   1630 inline tree_constraint_info *
   1631 check_constraint_info (tree t)
   1632 {
   1633   if (t && TREE_CODE (t) == CONSTRAINT_INFO)
   1634     return (tree_constraint_info *)t;
   1635   return NULL;
   1636 }
   1637 
   1638 /* Access the expression describing the template constraints. This may be
   1639    null if no constraints were introduced in the template parameter list,
   1640    a requirements clause after the template parameter list, or constraints
   1641    through a constrained-type-specifier.  */
   1642 #define CI_TEMPLATE_REQS(NODE) \
   1643   check_constraint_info (check_nonnull (NODE))->template_reqs
   1644 
   1645 /* Access the expression describing the trailing constraints. This is non-null
   1646    for any implicit instantiation of a constrained declaration. For a
   1647    templated declaration it is non-null only when a trailing requires-clause
   1648    was specified.  */
   1649 #define CI_DECLARATOR_REQS(NODE) \
   1650   check_constraint_info (check_nonnull (NODE))->declarator_reqs
   1651 
   1652 /* The computed associated constraint expression for a declaration.  */
   1653 #define CI_ASSOCIATED_CONSTRAINTS(NODE) \
   1654   check_constraint_info (check_nonnull (NODE))->associated_constr
   1655 
   1656 /* Access the constraint-expression introduced by the requires-clause
   1657    associate the template parameter list NODE.  */
   1658 #define TEMPLATE_PARMS_CONSTRAINTS(NODE) \
   1659   TREE_TYPE (TREE_LIST_CHECK (NODE))
   1660 
   1661 /* Access the logical constraints on the template parameter declaration
   1662    indicated by NODE.  */
   1663 #define TEMPLATE_PARM_CONSTRAINTS(NODE) \
   1664   TREE_TYPE (TREE_LIST_CHECK (NODE))
   1665 
   1666 /* Non-zero if the noexcept is present in a compound requirement.  */
   1667 #define COMPOUND_REQ_NOEXCEPT_P(NODE) \
   1668   TREE_LANG_FLAG_0 (TREE_CHECK (NODE, COMPOUND_REQ))
   1669 
   1670 /* A TREE_LIST whose TREE_VALUE is the constraints on the 'auto' placeholder
   1671    type NODE, used in an argument deduction constraint.  The TREE_PURPOSE
   1672    holds the set of template parameters that were in-scope when this 'auto'
   1673    was formed.  */
   1674 #define PLACEHOLDER_TYPE_CONSTRAINTS_INFO(NODE) \
   1675   DECL_SIZE_UNIT (TYPE_NAME (TEMPLATE_TYPE_PARM_CHECK (NODE)))
   1676 
   1677 /* The constraints on the 'auto' placeholder type NODE.  */
   1678 #define PLACEHOLDER_TYPE_CONSTRAINTS(NODE)		   \
   1679   (PLACEHOLDER_TYPE_CONSTRAINTS_INFO (NODE)		   \
   1680    ? TREE_VALUE (PLACEHOLDER_TYPE_CONSTRAINTS_INFO (NODE)) \
   1681    : NULL_TREE)
   1682 
   1683 /* True if NODE is a constraint.  */
   1684 #define CONSTR_P(NODE)                  \
   1685   (TREE_CODE (NODE) == ATOMIC_CONSTR    \
   1686    || TREE_CODE (NODE) == CONJ_CONSTR   \
   1687    || TREE_CODE (NODE) == DISJ_CONSTR)
   1688 
   1689 /* Valid for any normalized constraint.  */
   1690 #define CONSTR_CHECK(NODE) \
   1691   TREE_CHECK3 (NODE, ATOMIC_CONSTR, CONJ_CONSTR, DISJ_CONSTR)
   1692 
   1693 /* The CONSTR_INFO stores normalization data for a constraint. It refers to
   1694    the original expression and the expression or declaration
   1695    from which the constraint was normalized.
   1696 
   1697    This is TREE_LIST whose TREE_PURPOSE is the original expression and whose
   1698    TREE_VALUE is a list of contexts.  */
   1699 #define CONSTR_INFO(NODE) \
   1700   TREE_TYPE (CONSTR_CHECK (NODE))
   1701 
   1702 /* The expression evaluated by the constraint.  */
   1703 #define CONSTR_EXPR(NODE) \
   1704   TREE_PURPOSE (CONSTR_INFO (NODE))
   1705 
   1706 /* The expression or declaration from which this constraint was normalized.
   1707    This is a TREE_LIST whose TREE_VALUE is either a template-id expression
   1708    denoting a concept check or the declaration introducing the constraint.
   1709    These are chained to other context objects.  */
   1710 #define CONSTR_CONTEXT(NODE) \
   1711   TREE_VALUE (CONSTR_INFO (NODE))
   1712 
   1713 /* The parameter mapping for an atomic constraint. */
   1714 #define ATOMIC_CONSTR_MAP(NODE) \
   1715   TREE_OPERAND (TREE_CHECK (NODE, ATOMIC_CONSTR), 0)
   1716 
   1717 /* Whether the parameter mapping of this atomic constraint
   1718    is already instantiated with concrete template arguments.
   1719    Used only in satisfy_atom and in the satisfaction cache.  */
   1720 #define ATOMIC_CONSTR_MAP_INSTANTIATED_P(NODE) \
   1721   TREE_LANG_FLAG_0 (ATOMIC_CONSTR_CHECK (NODE))
   1722 
   1723 /* Whether the expression for this atomic constraint belongs to a
   1724    concept definition.  */
   1725 #define ATOMIC_CONSTR_EXPR_FROM_CONCEPT_P(NODE) \
   1726   TREE_LANG_FLAG_1 (ATOMIC_CONSTR_CHECK (NODE))
   1727 
   1728 /* The expression of an atomic constraint. */
   1729 #define ATOMIC_CONSTR_EXPR(NODE) \
   1730   CONSTR_EXPR (ATOMIC_CONSTR_CHECK (NODE))
   1731 
   1732 /* The concept of a concept check. */
   1733 #define CHECK_CONSTR_CONCEPT(NODE) \
   1734   TREE_OPERAND (TREE_CHECK (NODE, CHECK_CONSTR), 0)
   1735 
   1736 /* The template arguments of a concept check. */
   1737 #define CHECK_CONSTR_ARGS(NODE) \
   1738   TREE_OPERAND (TREE_CHECK (NODE, CHECK_CONSTR), 1)
   1739 
   1740 /* Whether a PARM_DECL represents a local parameter in a
   1741    requires-expression.  */
   1742 #define CONSTRAINT_VAR_P(NODE) \
   1743   DECL_LANG_FLAG_2 (TREE_CHECK (NODE, PARM_DECL))
   1744 
   1745 /* The concept constraining this constrained template-parameter.  */
   1746 #define CONSTRAINED_PARM_CONCEPT(NODE) \
   1747   DECL_SIZE_UNIT (TYPE_DECL_CHECK (NODE))
   1748 /* Any extra template arguments specified for a constrained
   1749    template-parameter.  */
   1750 #define CONSTRAINED_PARM_EXTRA_ARGS(NODE) \
   1751   DECL_SIZE (TYPE_DECL_CHECK (NODE))
   1752 /* The first template parameter of CONSTRAINED_PARM_CONCEPT to be used as a
   1753    prototype for the constrained parameter in finish_shorthand_constraint,
   1754    attached for convenience.  */
   1755 #define CONSTRAINED_PARM_PROTOTYPE(NODE) \
   1756   DECL_INITIAL (TYPE_DECL_CHECK (NODE))
   1757 
   1758 /* Module flags on FUNCTION,VAR,TYPE,CONCEPT or NAMESPACE
   1759    A TEMPLATE_DECL holds them on the DECL_TEMPLATE_RESULT object --
   1760    it's just not practical to keep them consistent.  */
   1761 #define DECL_MODULE_CHECK(NODE)						\
   1762   TREE_NOT_CHECK (NODE, TEMPLATE_DECL)
   1763 
   1764 /* In the purview of a named module (or in the purview of the
   1765    header-unit being compiled).  */
   1766 #define DECL_MODULE_PURVIEW_P(N) \
   1767   (DECL_LANG_SPECIFIC (DECL_MODULE_CHECK (N))->u.base.module_purview_p)
   1768 
   1769 /* Attached to the named module it is in the purview of.  Decls
   1770    attached to the global module will have this false.  */
   1771 #define DECL_MODULE_ATTACH_P(N) \
   1772   (DECL_LANG_SPECIFIC (DECL_MODULE_CHECK (N))->u.base.module_attach_p)
   1773 
   1774 /* True if the live version of the decl was imported.  */
   1775 #define DECL_MODULE_IMPORT_P(NODE) \
   1776   (DECL_LANG_SPECIFIC (DECL_MODULE_CHECK (NODE))->u.base.module_import_p)
   1777 
   1778 /* True if this decl is in the entity hash & array.  This means that
   1779    some variant was imported, even if DECL_MODULE_IMPORT_P is false.  */
   1780 #define DECL_MODULE_ENTITY_P(NODE) \
   1781   (DECL_LANG_SPECIFIC (DECL_MODULE_CHECK (NODE))->u.base.module_entity_p)
   1782 
   1783 /* DECL that has attached decls for ODR-relatedness.  */
   1784 #define DECL_MODULE_KEYED_DECLS_P(NODE) \
   1785   (DECL_LANG_SPECIFIC (DECL_MODULE_CHECK (NODE))->u.base.module_keyed_decls_p)
   1786 
   1787 /* Whether this is an exported DECL.  Held on any decl that can appear
   1788    at namespace scope (function, var, type, template, const or
   1789    namespace).  templates copy from their template_result, consts have
   1790    it for unscoped enums.  */
   1791 #define DECL_MODULE_EXPORT_P(NODE) TREE_LANG_FLAG_3 (NODE)
   1792 
   1793 
   1794 /* The list of local parameters introduced by this requires-expression,
   1796    in the form of a chain of PARM_DECLs.  */
   1797 #define REQUIRES_EXPR_PARMS(NODE) \
   1798   TREE_OPERAND (TREE_CHECK (NODE, REQUIRES_EXPR), 0)
   1799 
   1800 /* A TREE_LIST of the requirements for this requires-expression.
   1801    The requirements are stored in lexical order within the TREE_VALUE
   1802    of each TREE_LIST node.  The TREE_PURPOSE of each node is unused.  */
   1803 #define REQUIRES_EXPR_REQS(NODE) \
   1804   TREE_OPERAND (TREE_CHECK (NODE, REQUIRES_EXPR), 1)
   1805 
   1806 /* Like PACK_EXPANSION_EXTRA_ARGS, for requires-expressions.  */
   1807 #define REQUIRES_EXPR_EXTRA_ARGS(NODE) \
   1808   TREE_OPERAND (TREE_CHECK (NODE, REQUIRES_EXPR), 2)
   1809 
   1810 enum cp_tree_node_structure_enum {
   1811   TS_CP_GENERIC,
   1812   TS_CP_IDENTIFIER,
   1813   TS_CP_TPI,
   1814   TS_CP_PTRMEM,
   1815   TS_CP_OVERLOAD,
   1816   TS_CP_BINDING_VECTOR,
   1817   TS_CP_BASELINK,
   1818   TS_CP_TEMPLATE_DECL,
   1819   TS_CP_DEFERRED_PARSE,
   1820   TS_CP_DEFERRED_NOEXCEPT,
   1821   TS_CP_STATIC_ASSERT,
   1822   TS_CP_ARGUMENT_PACK_SELECT,
   1823   TS_CP_TRAIT_EXPR,
   1824   TS_CP_LAMBDA_EXPR,
   1825   TS_CP_TEMPLATE_INFO,
   1826   TS_CP_CONSTRAINT_INFO,
   1827   TS_CP_USERDEF_LITERAL
   1828 };
   1829 
   1830 /* The resulting tree type.  */
   1831 union GTY((desc ("cp_tree_node_structure (&%h)"),
   1832        chain_next ("(union lang_tree_node *) c_tree_chain_next (&%h.generic)"))) lang_tree_node {
   1833   union tree_node GTY ((tag ("TS_CP_GENERIC"),
   1834 			desc ("tree_node_structure (&%h)"))) generic;
   1835   struct template_parm_index GTY ((tag ("TS_CP_TPI"))) tpi;
   1836   struct ptrmem_cst GTY ((tag ("TS_CP_PTRMEM"))) ptrmem;
   1837   struct tree_overload GTY ((tag ("TS_CP_OVERLOAD"))) overload;
   1838   struct tree_binding_vec GTY ((tag ("TS_CP_BINDING_VECTOR"))) binding_vec;
   1839   struct tree_baselink GTY ((tag ("TS_CP_BASELINK"))) baselink;
   1840   struct tree_template_decl GTY ((tag ("TS_CP_TEMPLATE_DECL"))) template_decl;
   1841   struct tree_deferred_parse GTY ((tag ("TS_CP_DEFERRED_PARSE"))) deferred_parse;
   1842   struct tree_deferred_noexcept GTY ((tag ("TS_CP_DEFERRED_NOEXCEPT"))) deferred_noexcept;
   1843   struct lang_identifier GTY ((tag ("TS_CP_IDENTIFIER"))) identifier;
   1844   struct tree_static_assert GTY ((tag ("TS_CP_STATIC_ASSERT")))
   1845     static_assertion;
   1846   struct tree_argument_pack_select GTY ((tag ("TS_CP_ARGUMENT_PACK_SELECT")))
   1847     argument_pack_select;
   1848   struct tree_trait_expr GTY ((tag ("TS_CP_TRAIT_EXPR")))
   1849     trait_expression;
   1850   struct tree_lambda_expr GTY ((tag ("TS_CP_LAMBDA_EXPR")))
   1851     lambda_expression;
   1852   struct tree_template_info GTY ((tag ("TS_CP_TEMPLATE_INFO")))
   1853     template_info;
   1854   struct tree_constraint_info GTY ((tag ("TS_CP_CONSTRAINT_INFO")))
   1855     constraint_info;
   1856   struct tree_userdef_literal GTY ((tag ("TS_CP_USERDEF_LITERAL")))
   1857     userdef_literal;
   1858 };
   1859 
   1860 
   1861 struct GTY(()) cp_omp_declare_target_attr {
   1863   bool attr_syntax;
   1864   int device_type;
   1865   bool indirect;
   1866 };
   1867 
   1868 struct GTY(()) cp_omp_begin_assumes_data {
   1869   bool attr_syntax;
   1870 };
   1871 
   1872 /* Global state.  */
   1873 
   1874 struct GTY(()) saved_scope {
   1875   vec<cxx_saved_binding, va_gc> *old_bindings;
   1876   tree old_namespace;
   1877   vec<tree, va_gc> *decl_ns_list;
   1878   tree class_name;
   1879   tree class_type;
   1880   tree access_specifier;
   1881   tree function_decl;
   1882   vec<tree, va_gc> *lang_base;
   1883   tree lang_name;
   1884   tree template_parms;
   1885   cp_binding_level *x_previous_class_level;
   1886   tree x_saved_tree;
   1887 
   1888   /* Only used for uses of this in trailing return type.  */
   1889   tree x_current_class_ptr;
   1890   tree x_current_class_ref;
   1891 
   1892   int x_processing_template_decl;
   1893   int x_processing_specialization;
   1894   int x_processing_constraint;
   1895   int x_processing_contract_condition;
   1896   int suppress_location_wrappers;
   1897   BOOL_BITFIELD x_processing_explicit_instantiation : 1;
   1898   BOOL_BITFIELD need_pop_function_context : 1;
   1899 
   1900   /* Nonzero if we are parsing the discarded statement of a constexpr
   1901      if-statement.  */
   1902   BOOL_BITFIELD discarded_stmt : 1;
   1903   /* Nonzero if we are parsing or instantiating the compound-statement
   1904      of consteval if statement.  Also set while processing an immediate
   1905      invocation.  */
   1906   BOOL_BITFIELD consteval_if_p : 1;
   1907 
   1908   int unevaluated_operand;
   1909   int inhibit_evaluation_warnings;
   1910   int noexcept_operand;
   1911   int ref_temp_count;
   1912 
   1913   struct stmt_tree_s x_stmt_tree;
   1914 
   1915   cp_binding_level *class_bindings;
   1916   cp_binding_level *bindings;
   1917 
   1918   hash_map<tree, tree> *GTY((skip)) x_local_specializations;
   1919   vec<cp_omp_declare_target_attr, va_gc> *omp_declare_target_attribute;
   1920   vec<cp_omp_begin_assumes_data, va_gc> *omp_begin_assumes;
   1921 
   1922   struct saved_scope *prev;
   1923 };
   1924 
   1925 extern GTY(()) struct saved_scope *scope_chain;
   1926 
   1927 /* The current open namespace.  */
   1928 
   1929 #define current_namespace scope_chain->old_namespace
   1930 
   1931 /* The stack for namespaces of current declarations.  */
   1932 
   1933 #define decl_namespace_list scope_chain->decl_ns_list
   1934 
   1935 /* IDENTIFIER_NODE: name of current class */
   1936 
   1937 #define current_class_name scope_chain->class_name
   1938 
   1939 /* _TYPE: the type of the current class */
   1940 
   1941 #define current_class_type scope_chain->class_type
   1942 
   1943 /* When parsing a class definition, the access specifier most recently
   1944    given by the user, or, if no access specifier was given, the
   1945    default value appropriate for the kind of class (i.e., struct,
   1946    class, or union).  */
   1947 
   1948 #define current_access_specifier scope_chain->access_specifier
   1949 
   1950 /* Pointer to the top of the language name stack.  */
   1951 
   1952 #define current_lang_base scope_chain->lang_base
   1953 #define current_lang_name scope_chain->lang_name
   1954 
   1955 /* When parsing a template declaration, a TREE_LIST represents the
   1956    active template parameters.  Each node in the list represents one
   1957    level of template parameters.  The innermost level is first in the
   1958    list.  The depth of each level is stored as an INTEGER_CST in the
   1959    TREE_PURPOSE of each node.  The parameters for that level are
   1960    stored in the TREE_VALUE.  */
   1961 
   1962 #define current_template_parms scope_chain->template_parms
   1963 #define current_template_depth \
   1964   (current_template_parms ? TMPL_PARMS_DEPTH (current_template_parms) : 0)
   1965 #define in_template_context (current_template_parms != NULL_TREE)
   1966 
   1967 #define processing_template_decl scope_chain->x_processing_template_decl
   1968 #define processing_specialization scope_chain->x_processing_specialization
   1969 #define processing_explicit_instantiation scope_chain->x_processing_explicit_instantiation
   1970 
   1971 /* Nonzero if we are parsing the conditional expression of a contract
   1972    condition. These expressions appear outside the paramter list (like a
   1973    trailing return type), but are potentially evaluated.  */
   1974 
   1975 #define processing_contract_condition scope_chain->x_processing_contract_condition
   1976 
   1977 #define in_discarded_stmt scope_chain->discarded_stmt
   1978 #define in_consteval_if_p scope_chain->consteval_if_p
   1979 
   1980 #define current_ref_temp_count scope_chain->ref_temp_count
   1981 
   1982 /* RAII sentinel to handle clearing processing_template_decl and restoring
   1983    it when done.  */
   1984 
   1985 class processing_template_decl_sentinel
   1986 {
   1987 public:
   1988   int saved;
   1989   processing_template_decl_sentinel (bool reset = true)
   1990     : saved (processing_template_decl)
   1991   {
   1992     if (reset)
   1993       processing_template_decl = 0;
   1994   }
   1995   ~processing_template_decl_sentinel()
   1996   {
   1997     processing_template_decl = saved;
   1998   }
   1999 };
   2000 
   2001 /* RAII sentinel to disable certain warnings during template substitution
   2002    and elsewhere.  */
   2003 
   2004 class warning_sentinel
   2005 {
   2006 public:
   2007   int &flag;
   2008   int val;
   2009   warning_sentinel(int& flag, bool suppress=true)
   2010     : flag(flag), val(flag) { if (suppress) flag = 0; }
   2011   ~warning_sentinel() { flag = val; }
   2012 };
   2013 
   2014 /* RAII sentinel to temporarily override input_location.  This will not set
   2015    input_location to UNKNOWN_LOCATION or BUILTINS_LOCATION.  */
   2016 
   2017 class iloc_sentinel
   2018 {
   2019   location_t saved_loc;
   2020 public:
   2021   iloc_sentinel (location_t loc): saved_loc (input_location)
   2022   {
   2023     if (loc >= RESERVED_LOCATION_COUNT)
   2024       input_location = loc;
   2025   }
   2026   ~iloc_sentinel ()
   2027   {
   2028     input_location = saved_loc;
   2029   }
   2030 };
   2031 
   2032 /* RAII sentinel that saves the value of a variable, optionally
   2033    overrides it right away, and restores its value when the sentinel
   2034    id destructed.  */
   2035 
   2036 template <typename T>
   2037 class temp_override
   2038 {
   2039   T& overridden_variable;
   2040   T saved_value;
   2041 public:
   2042   temp_override(T& var) : overridden_variable (var), saved_value (var) {}
   2043   temp_override(T& var, T overrider)
   2044     : overridden_variable (var), saved_value (var)
   2045   {
   2046     overridden_variable = overrider;
   2047   }
   2048   ~temp_override() { overridden_variable = saved_value; }
   2049 };
   2050 
   2051 /* Wrapping a template parameter in type_identity_t hides it from template
   2052    argument deduction.  */
   2053 #if __cpp_lib_type_identity
   2054 using std::type_identity_t;
   2055 #else
   2056 template <typename T>
   2057 struct type_identity { typedef T type; };
   2058 template <typename T>
   2059 using type_identity_t = typename type_identity<T>::type;
   2060 #endif
   2061 
   2062 /* Object generator function for temp_override, so you don't need to write the
   2063    type of the object as a template argument.
   2064 
   2065    Use as auto x = make_temp_override (flag); */
   2066 
   2067 template <typename T>
   2068 inline temp_override<T>
   2069 make_temp_override (T& var)
   2070 {
   2071   return { var };
   2072 }
   2073 
   2074 /* Likewise, but use as auto x = make_temp_override (flag, value); */
   2075 
   2076 template <typename T>
   2077 inline temp_override<T>
   2078 make_temp_override (T& var, type_identity_t<T> overrider)
   2079 {
   2080   return { var, overrider };
   2081 }
   2082 
   2083 /* temp_override for in_consteval_if_p, which can't use make_temp_override
   2084    because it is a bitfield.  */
   2085 
   2086 struct in_consteval_if_p_temp_override {
   2087   bool save_in_consteval_if_p;
   2088   in_consteval_if_p_temp_override ()
   2089     : save_in_consteval_if_p (in_consteval_if_p) {}
   2090   void reset () { in_consteval_if_p = save_in_consteval_if_p; }
   2091   ~in_consteval_if_p_temp_override ()
   2092   { reset (); }
   2093 };
   2094 
   2095 /* The cached class binding level, from the most recently exited
   2096    class, or NULL if none.  */
   2097 
   2098 #define previous_class_level scope_chain->x_previous_class_level
   2099 
   2100 /* A map from local variable declarations in the body of the template
   2101    presently being instantiated to the corresponding instantiated
   2102    local variables.  */
   2103 
   2104 #define local_specializations scope_chain->x_local_specializations
   2105 
   2106 /* Nonzero if we are parsing the operand of a noexcept operator.  */
   2107 
   2108 #define cp_noexcept_operand scope_chain->noexcept_operand
   2109 
   2110 struct named_label_entry; /* Defined in decl.cc.  */
   2111 
   2112 struct named_label_hash : ggc_remove <named_label_entry *>
   2113 {
   2114   typedef named_label_entry *value_type;
   2115   typedef tree compare_type; /* An identifier.  */
   2116 
   2117   inline static hashval_t hash (value_type);
   2118   inline static bool equal (const value_type, compare_type);
   2119 
   2120   static const bool empty_zero_p = true;
   2121   inline static void mark_empty (value_type &p) {p = NULL;}
   2122   inline static bool is_empty (value_type p) {return !p;}
   2123 
   2124   /* Nothing is deletable.  Everything is insertable.  */
   2125   inline static bool is_deleted (value_type) { return false; }
   2126   inline static void mark_deleted (value_type) { gcc_unreachable (); }
   2127 };
   2128 
   2129 /* Global state pertinent to the current function.  */
   2130 
   2131 struct GTY(()) language_function {
   2132   struct c_language_function base;
   2133 
   2134   tree x_current_class_ptr;
   2135   tree x_current_class_ref;
   2136   tree x_eh_spec_block;
   2137   tree x_in_charge_parm;
   2138   tree x_vtt_parm;
   2139   tree x_return_value;
   2140 
   2141   BOOL_BITFIELD returns_value : 1;
   2142   BOOL_BITFIELD returns_null : 1;
   2143   BOOL_BITFIELD returns_abnormally : 1;
   2144   BOOL_BITFIELD infinite_loop: 1;
   2145   BOOL_BITFIELD x_in_function_try_handler : 1;
   2146   BOOL_BITFIELD x_in_base_initializer : 1;
   2147 
   2148   /* True if this function can throw an exception.  */
   2149   BOOL_BITFIELD can_throw : 1;
   2150 
   2151   BOOL_BITFIELD invalid_constexpr : 1;
   2152   BOOL_BITFIELD throwing_cleanup : 1;
   2153 
   2154   hash_table<named_label_hash> *x_named_labels;
   2155 
   2156   cp_binding_level *bindings;
   2157 
   2158   /* Tracking possibly infinite loops.  This is a vec<tree> only because
   2159      vec<bool> doesn't work with gtype.  */
   2160   vec<tree, va_gc> *infinite_loops;
   2161 };
   2162 
   2163 /* The current C++-specific per-function global variables.  */
   2164 
   2165 #define cp_function_chain (cfun->language)
   2166 
   2167 /* When we're processing a member function, current_class_ptr is the
   2168    PARM_DECL for the `this' pointer.  The current_class_ref is an
   2169    expression for `*this'.  */
   2170 
   2171 #define current_class_ptr			\
   2172   (*(cfun && cp_function_chain			\
   2173      ? &cp_function_chain->x_current_class_ptr	\
   2174      : &scope_chain->x_current_class_ptr))
   2175 #define current_class_ref			\
   2176   (*(cfun && cp_function_chain			\
   2177      ? &cp_function_chain->x_current_class_ref	\
   2178      : &scope_chain->x_current_class_ref))
   2179 
   2180 /* The EH_SPEC_BLOCK for the exception-specifiers for the current
   2181    function, if any.  */
   2182 
   2183 #define current_eh_spec_block cp_function_chain->x_eh_spec_block
   2184 
   2185 /* The `__in_chrg' parameter for the current function.  Only used for
   2186    constructors and destructors.  */
   2187 
   2188 #define current_in_charge_parm cp_function_chain->x_in_charge_parm
   2189 
   2190 /* The `__vtt_parm' parameter for the current function.  Only used for
   2191    constructors and destructors.  */
   2192 
   2193 #define current_vtt_parm cp_function_chain->x_vtt_parm
   2194 
   2195 /* A boolean flag to control whether we need to clean up the return value if a
   2196    local destructor throws.  Only used in functions that return by value a
   2197    class with a destructor.  Which 'tors don't, so we can use the same
   2198    field as current_vtt_parm.  */
   2199 
   2200 #define current_retval_sentinel current_vtt_parm
   2201 
   2202 /* Set to 0 at beginning of a function definition, set to 1 if
   2203    a return statement that specifies a return value is seen.  */
   2204 
   2205 #define current_function_returns_value cp_function_chain->returns_value
   2206 
   2207 /* Set to 0 at beginning of a function definition, set to 1 if
   2208    a return statement with no argument is seen.  */
   2209 
   2210 #define current_function_returns_null cp_function_chain->returns_null
   2211 
   2212 /* Set to 0 at beginning of a function definition, set to 1 if
   2213    a call to a noreturn function is seen.  */
   2214 
   2215 #define current_function_returns_abnormally \
   2216   cp_function_chain->returns_abnormally
   2217 
   2218 /* Set to 0 at beginning of a function definition, set to 1 if we see an
   2219    obvious infinite loop.  This can have false positives and false
   2220    negatives, so it should only be used as a heuristic.  */
   2221 
   2222 #define current_function_infinite_loop cp_function_chain->infinite_loop
   2223 
   2224 /* Nonzero if we are processing a base initializer.  Zero elsewhere.  */
   2225 #define in_base_initializer cp_function_chain->x_in_base_initializer
   2226 
   2227 #define in_function_try_handler cp_function_chain->x_in_function_try_handler
   2228 
   2229 /* Expression always returned from function, or error_mark_node
   2230    otherwise, for use by the automatic named return value optimization.  */
   2231 
   2232 #define current_function_return_value \
   2233   (cp_function_chain->x_return_value)
   2234 
   2235 /* In parser.cc.  */
   2236 extern tree cp_literal_operator_id (const char *);
   2237 
   2238 #define NON_ERROR(NODE) ((NODE) == error_mark_node ? NULL_TREE : (NODE))
   2239 
   2240 /* TRUE if a tree code represents a statement.  */
   2241 extern bool statement_code_p[MAX_TREE_CODES];
   2242 
   2243 #define STATEMENT_CODE_P(CODE) statement_code_p[(int) (CODE)]
   2244 
   2245 enum languages { lang_c, lang_cplusplus };
   2246 
   2247 /* Macros to make error reporting functions' lives easier.  */
   2248 #define TYPE_LINKAGE_IDENTIFIER(NODE) \
   2249   (TYPE_IDENTIFIER (TYPE_MAIN_VARIANT (NODE)))
   2250 #define TYPE_NAME_STRING(NODE) (IDENTIFIER_POINTER (TYPE_IDENTIFIER (NODE)))
   2251 #define TYPE_NAME_LENGTH(NODE) (IDENTIFIER_LENGTH (TYPE_IDENTIFIER (NODE)))
   2252 
   2253 /* Any kind of anonymous type.  */
   2254 #define TYPE_ANON_P(NODE)					\
   2255   (TYPE_LINKAGE_IDENTIFIER (NODE)				\
   2256    && IDENTIFIER_ANON_P (TYPE_LINKAGE_IDENTIFIER (NODE)))
   2257 
   2258 /* Nonzero if NODE, a TYPE, has no name for linkage purposes.  */
   2259 #define TYPE_UNNAMED_P(NODE)					\
   2260   (TYPE_ANON_P (NODE)						\
   2261    && !IDENTIFIER_LAMBDA_P (TYPE_LINKAGE_IDENTIFIER (NODE)))
   2262 
   2263 /* The _DECL for this _TYPE.  */
   2264 #define TYPE_MAIN_DECL(NODE) (TYPE_STUB_DECL (TYPE_MAIN_VARIANT (NODE)))
   2265 
   2266 /* Nonzero if T is a type that could resolve to any kind of concrete type
   2267    at instantiation time.  */
   2268 #define WILDCARD_TYPE_P(T)				\
   2269   (TREE_CODE (T) == TEMPLATE_TYPE_PARM			\
   2270    || TREE_CODE (T) == TYPENAME_TYPE			\
   2271    || TREE_CODE (T) == TYPEOF_TYPE			\
   2272    || TREE_CODE (T) == BOUND_TEMPLATE_TEMPLATE_PARM	\
   2273    || TREE_CODE (T) == DECLTYPE_TYPE			\
   2274    || TREE_CODE (T) == TRAIT_TYPE			\
   2275    || TREE_CODE (T) == DEPENDENT_OPERATOR_TYPE)
   2276 
   2277 /* Nonzero if T is a class (or struct or union) type.  Also nonzero
   2278    for template type parameters, typename types, and instantiated
   2279    template template parameters.  Keep these checks in ascending code
   2280    order.  */
   2281 #define MAYBE_CLASS_TYPE_P(T) (WILDCARD_TYPE_P (T) || CLASS_TYPE_P (T))
   2282 
   2283 /* Set CLASS_TYPE_P for T to VAL.  T must be a class, struct, or
   2284    union type.  */
   2285 #define SET_CLASS_TYPE_P(T, VAL) \
   2286   (TYPE_LANG_FLAG_5 (RECORD_OR_UNION_CHECK (T)) = (VAL))
   2287 
   2288 /* Nonzero if T is a class type.  Zero for template type parameters,
   2289    typename types, and so forth.  */
   2290 #define CLASS_TYPE_P(T) \
   2291   (RECORD_OR_UNION_CODE_P (TREE_CODE (T)) && TYPE_LANG_FLAG_5 (T))
   2292 
   2293 /* Nonzero if T is a class type but not a union.  */
   2294 #define NON_UNION_CLASS_TYPE_P(T) \
   2295   (TREE_CODE (T) == RECORD_TYPE && TYPE_LANG_FLAG_5 (T))
   2296 
   2297 /* Keep these checks in ascending code order.  */
   2298 #define RECORD_OR_UNION_CODE_P(T)	\
   2299   ((T) == RECORD_TYPE || (T) == UNION_TYPE)
   2300 #define OVERLOAD_TYPE_P(T) \
   2301   (CLASS_TYPE_P (T) || TREE_CODE (T) == ENUMERAL_TYPE)
   2302 
   2303 /* True if this type is dependent.  This predicate is only valid if
   2304    TYPE_DEPENDENT_P_VALID is true.  */
   2305 #define TYPE_DEPENDENT_P(NODE) TYPE_LANG_FLAG_0 (NODE)
   2306 
   2307 /* True if dependent_type_p has been called for this type, with the
   2308    result that TYPE_DEPENDENT_P is valid.  */
   2309 #define TYPE_DEPENDENT_P_VALID(NODE) TYPE_LANG_FLAG_6(NODE)
   2310 
   2311 /* Nonzero if this type is const-qualified.  */
   2312 #define CP_TYPE_CONST_P(NODE)				\
   2313   ((cp_type_quals (NODE) & TYPE_QUAL_CONST) != 0)
   2314 
   2315 /* Nonzero if this type is volatile-qualified.  */
   2316 #define CP_TYPE_VOLATILE_P(NODE)			\
   2317   ((cp_type_quals (NODE) & TYPE_QUAL_VOLATILE) != 0)
   2318 
   2319 /* Nonzero if this type is restrict-qualified.  */
   2320 #define CP_TYPE_RESTRICT_P(NODE)			\
   2321   ((cp_type_quals (NODE) & TYPE_QUAL_RESTRICT) != 0)
   2322 
   2323 /* Nonzero if this type is const-qualified, but not
   2324    volatile-qualified.  Other qualifiers are ignored.  This macro is
   2325    used to test whether or not it is OK to bind an rvalue to a
   2326    reference.  */
   2327 #define CP_TYPE_CONST_NON_VOLATILE_P(NODE)				\
   2328   ((cp_type_quals (NODE) & (TYPE_QUAL_CONST | TYPE_QUAL_VOLATILE))	\
   2329    == TYPE_QUAL_CONST)
   2330 
   2331 #define FUNCTION_ARG_CHAIN(NODE) \
   2332   TREE_CHAIN (TYPE_ARG_TYPES (TREE_TYPE (NODE)))
   2333 
   2334 /* Given a FUNCTION_DECL, returns the first TREE_LIST out of TYPE_ARG_TYPES
   2335    which refers to a user-written parameter.  */
   2336 #define FUNCTION_FIRST_USER_PARMTYPE(NODE) \
   2337   skip_artificial_parms_for ((NODE), TYPE_ARG_TYPES (TREE_TYPE (NODE)))
   2338 
   2339 /* Similarly, but for DECL_ARGUMENTS.  */
   2340 #define FUNCTION_FIRST_USER_PARM(NODE) \
   2341   skip_artificial_parms_for ((NODE), DECL_ARGUMENTS (NODE))
   2342 
   2343 /* Nonzero iff TYPE is derived from PARENT. Ignores accessibility and
   2344    ambiguity issues.  */
   2345 #define DERIVED_FROM_P(PARENT, TYPE) \
   2346   (lookup_base ((TYPE), (PARENT), ba_any, NULL, tf_none) != NULL_TREE)
   2347 
   2348 /* Gives the visibility specification for a class type.  */
   2349 #define CLASSTYPE_VISIBILITY(TYPE)		\
   2350 	DECL_VISIBILITY (TYPE_MAIN_DECL (TYPE))
   2351 #define CLASSTYPE_VISIBILITY_SPECIFIED(TYPE)	\
   2352 	DECL_VISIBILITY_SPECIFIED (TYPE_MAIN_DECL (TYPE))
   2353 
   2354 struct GTY (()) tree_pair_s {
   2355   tree purpose;
   2356   tree value;
   2357 };
   2358 typedef tree_pair_s *tree_pair_p;
   2359 
   2360 /* This structure provides additional information above and beyond
   2361    what is provide in the ordinary tree_type.  In the past, we used it
   2362    for the types of class types, template parameters types, typename
   2363    types, and so forth.  However, there can be many (tens to hundreds
   2364    of thousands) of template parameter types in a compilation, and
   2365    there's no need for this additional information in that case.
   2366    Therefore, we now use this data structure only for class types.
   2367 
   2368    In the past, it was thought that there would be relatively few
   2369    class types.  However, in the presence of heavy use of templates,
   2370    many (i.e., thousands) of classes can easily be generated.
   2371    Therefore, we should endeavor to keep the size of this structure to
   2372    a minimum.  */
   2373 struct GTY(()) lang_type {
   2374   unsigned char align;
   2375 
   2376   unsigned has_type_conversion : 1;
   2377   unsigned has_copy_ctor : 1;
   2378   unsigned has_default_ctor : 1;
   2379   unsigned const_needs_init : 1;
   2380   unsigned ref_needs_init : 1;
   2381   unsigned has_const_copy_assign : 1;
   2382   unsigned use_template : 2;
   2383 
   2384   unsigned has_mutable : 1;
   2385   unsigned com_interface : 1;
   2386   unsigned non_pod_class : 1;
   2387   unsigned nearly_empty_p : 1;
   2388   unsigned user_align : 1;
   2389   unsigned has_copy_assign : 1;
   2390   unsigned has_new : 1;
   2391   unsigned has_array_new : 1;
   2392 
   2393   unsigned gets_delete : 2;
   2394   unsigned interface_only : 1;
   2395   unsigned interface_unknown : 1;
   2396   unsigned contains_empty_class_p : 1;
   2397   unsigned anon_aggr : 1;
   2398   unsigned non_zero_init : 1;
   2399   unsigned empty_p : 1;
   2400   /* 32 bits allocated.  */
   2401 
   2402   unsigned vec_new_uses_cookie : 1;
   2403   unsigned declared_class : 1;
   2404   unsigned diamond_shaped : 1;
   2405   unsigned repeated_base : 1;
   2406   unsigned being_defined : 1;
   2407   unsigned debug_requested : 1;
   2408   unsigned fields_readonly : 1;
   2409   unsigned ptrmemfunc_flag : 1;
   2410 
   2411   unsigned lazy_default_ctor : 1;
   2412   unsigned lazy_copy_ctor : 1;
   2413   unsigned lazy_copy_assign : 1;
   2414   unsigned lazy_destructor : 1;
   2415   unsigned has_const_copy_ctor : 1;
   2416   unsigned has_complex_copy_ctor : 1;
   2417   unsigned has_complex_copy_assign : 1;
   2418   unsigned non_aggregate : 1;
   2419 
   2420   unsigned has_complex_dflt : 1;
   2421   unsigned has_list_ctor : 1;
   2422   unsigned non_std_layout : 1;
   2423   unsigned is_literal : 1;
   2424   unsigned lazy_move_ctor : 1;
   2425   unsigned lazy_move_assign : 1;
   2426   unsigned has_complex_move_ctor : 1;
   2427   unsigned has_complex_move_assign : 1;
   2428 
   2429   unsigned has_constexpr_ctor : 1;
   2430   unsigned unique_obj_representations : 1;
   2431   unsigned unique_obj_representations_set : 1;
   2432   bool erroneous : 1;
   2433   bool non_pod_aggregate : 1;
   2434 
   2435   /* When adding a flag here, consider whether or not it ought to
   2436      apply to a template instance if it applies to the template.  If
   2437      so, make sure to copy it in instantiate_class_template!  */
   2438 
   2439   /* There are some bits left to fill out a 32-bit word.  Keep track
   2440      of this by updating the size of this bitfield whenever you add or
   2441      remove a flag.  */
   2442   unsigned dummy : 3;
   2443 
   2444   tree primary_base;
   2445   vec<tree_pair_s, va_gc> *vcall_indices;
   2446   tree vtables;
   2447   tree typeinfo_var;
   2448   vec<tree, va_gc> *vbases;
   2449   tree as_base;
   2450   vec<tree, va_gc> *pure_virtuals;
   2451   tree friend_classes;
   2452   vec<tree, va_gc> * GTY((reorder ("resort_type_member_vec"))) members;
   2453   tree key_method;
   2454   tree decl_list;
   2455   tree befriending_classes;
   2456   /* In a RECORD_TYPE, information specific to Objective-C++, such
   2457      as a list of adopted protocols or a pointer to a corresponding
   2458      @interface.  See objc/objc-act.h for details.  */
   2459   tree objc_info;
   2460   /* FIXME reuse another field?  */
   2461   tree lambda_expr;
   2462 };
   2463 
   2464 /* We used to have a variant type for lang_type.  Keep the name of the
   2465    checking accessor for the sole survivor.  */
   2466 #define LANG_TYPE_CLASS_CHECK(NODE) (TYPE_LANG_SPECIFIC (NODE))
   2467 
   2468 /* Nonzero for _CLASSTYPE means that operator delete is defined.  */
   2469 #define TYPE_GETS_DELETE(NODE) (LANG_TYPE_CLASS_CHECK (NODE)->gets_delete)
   2470 #define TYPE_GETS_REG_DELETE(NODE) (TYPE_GETS_DELETE (NODE) & 1)
   2471 #define TYPE_GETS_VEC_DELETE(NODE) (TYPE_GETS_DELETE (NODE) & 2)
   2472 
   2473 /* Nonzero if `new NODE[x]' should cause the allocation of extra
   2474    storage to indicate how many array elements are in use.  */
   2475 #define TYPE_VEC_NEW_USES_COOKIE(NODE)			\
   2476   (CLASS_TYPE_P (NODE)					\
   2477    && LANG_TYPE_CLASS_CHECK (NODE)->vec_new_uses_cookie)
   2478 
   2479 /* Nonzero means that this _CLASSTYPE node defines ways of converting
   2480    itself to other types.  */
   2481 #define TYPE_HAS_CONVERSION(NODE) \
   2482   (LANG_TYPE_CLASS_CHECK (NODE)->has_type_conversion)
   2483 
   2484 /* Nonzero means that NODE (a class type) has a default constructor --
   2485    but that it has not yet been declared.  */
   2486 #define CLASSTYPE_LAZY_DEFAULT_CTOR(NODE) \
   2487   (LANG_TYPE_CLASS_CHECK (NODE)->lazy_default_ctor)
   2488 
   2489 /* Nonzero means that NODE (a class type) has a copy constructor --
   2490    but that it has not yet been declared.  */
   2491 #define CLASSTYPE_LAZY_COPY_CTOR(NODE) \
   2492   (LANG_TYPE_CLASS_CHECK (NODE)->lazy_copy_ctor)
   2493 
   2494 /* Nonzero means that NODE (a class type) has a move constructor --
   2495    but that it has not yet been declared.  */
   2496 #define CLASSTYPE_LAZY_MOVE_CTOR(NODE) \
   2497   (LANG_TYPE_CLASS_CHECK (NODE)->lazy_move_ctor)
   2498 
   2499 /* Nonzero means that NODE (a class type) has an assignment operator
   2500    -- but that it has not yet been declared.  */
   2501 #define CLASSTYPE_LAZY_COPY_ASSIGN(NODE) \
   2502   (LANG_TYPE_CLASS_CHECK (NODE)->lazy_copy_assign)
   2503 
   2504 /* Nonzero means that NODE (a class type) has an assignment operator
   2505    -- but that it has not yet been declared.  */
   2506 #define CLASSTYPE_LAZY_MOVE_ASSIGN(NODE) \
   2507   (LANG_TYPE_CLASS_CHECK (NODE)->lazy_move_assign)
   2508 
   2509 /* Nonzero means that NODE (a class type) has a destructor -- but that
   2510    it has not yet been declared.  */
   2511 #define CLASSTYPE_LAZY_DESTRUCTOR(NODE) \
   2512   (LANG_TYPE_CLASS_CHECK (NODE)->lazy_destructor)
   2513 
   2514 /* Nonzero means that NODE (a class type) is final */
   2515 #define CLASSTYPE_FINAL(NODE) \
   2516   TYPE_FINAL_P (NODE)
   2517 
   2518 
   2519 /* Nonzero means that this _CLASSTYPE node overloads operator=(X&).  */
   2520 #define TYPE_HAS_COPY_ASSIGN(NODE) (LANG_TYPE_CLASS_CHECK (NODE)->has_copy_assign)
   2521 
   2522 /* True iff the class type NODE has an "operator =" whose parameter
   2523    has a parameter of type "const X&".  */
   2524 #define TYPE_HAS_CONST_COPY_ASSIGN(NODE) \
   2525   (LANG_TYPE_CLASS_CHECK (NODE)->has_const_copy_assign)
   2526 
   2527 /* Nonzero means that this _CLASSTYPE node has an X(X&) constructor.  */
   2528 #define TYPE_HAS_COPY_CTOR(NODE) (LANG_TYPE_CLASS_CHECK (NODE)->has_copy_ctor)
   2529 #define TYPE_HAS_CONST_COPY_CTOR(NODE) \
   2530   (LANG_TYPE_CLASS_CHECK (NODE)->has_const_copy_ctor)
   2531 
   2532 /* Nonzero if this class has an X(initializer_list<T>) constructor.  */
   2533 #define TYPE_HAS_LIST_CTOR(NODE) \
   2534   (LANG_TYPE_CLASS_CHECK (NODE)->has_list_ctor)
   2535 
   2536 /* Nonzero if this class has a constexpr constructor other than a copy/move
   2537    constructor.  Note that a class can have constexpr constructors for
   2538    static initialization even if it isn't a literal class.  */
   2539 #define TYPE_HAS_CONSTEXPR_CTOR(NODE) \
   2540   (LANG_TYPE_CLASS_CHECK (NODE)->has_constexpr_ctor)
   2541 
   2542 /* Nonzero if this class defines an overloaded operator new.  (An
   2543    operator new [] doesn't count.)  */
   2544 #define TYPE_HAS_NEW_OPERATOR(NODE) \
   2545   (LANG_TYPE_CLASS_CHECK (NODE)->has_new)
   2546 
   2547 /* Nonzero if this class defines an overloaded operator new[].  */
   2548 #define TYPE_HAS_ARRAY_NEW_OPERATOR(NODE) \
   2549   (LANG_TYPE_CLASS_CHECK (NODE)->has_array_new)
   2550 
   2551 /* Nonzero means that this type is being defined.  I.e., the left brace
   2552    starting the definition of this type has been seen.  */
   2553 #define TYPE_BEING_DEFINED(NODE) (LANG_TYPE_CLASS_CHECK (NODE)->being_defined)
   2554 
   2555 /* Nonzero means that this type is either complete or being defined, so we
   2556    can do lookup in it.  */
   2557 #define COMPLETE_OR_OPEN_TYPE_P(NODE) \
   2558   (COMPLETE_TYPE_P (NODE) || (CLASS_TYPE_P (NODE) && TYPE_BEING_DEFINED (NODE)))
   2559 
   2560 /* Mark bits for repeated base checks.  */
   2561 #define TYPE_MARKED_P(NODE) TREE_LANG_FLAG_6 (TYPE_CHECK (NODE))
   2562 
   2563 /* Nonzero if the class NODE has multiple paths to the same (virtual)
   2564    base object.  */
   2565 #define CLASSTYPE_DIAMOND_SHAPED_P(NODE) \
   2566   (LANG_TYPE_CLASS_CHECK(NODE)->diamond_shaped)
   2567 
   2568 /* Nonzero if the class NODE has multiple instances of the same base
   2569    type.  */
   2570 #define CLASSTYPE_REPEATED_BASE_P(NODE) \
   2571   (LANG_TYPE_CLASS_CHECK(NODE)->repeated_base)
   2572 
   2573 /* The member function with which the vtable will be emitted:
   2574    the first noninline non-pure-virtual member function.  NULL_TREE
   2575    if there is no key function or if this is a class template */
   2576 #define CLASSTYPE_KEY_METHOD(NODE) (LANG_TYPE_CLASS_CHECK (NODE)->key_method)
   2577 
   2578 /* Vector of members.  During definition, it is unordered and only
   2579    member functions are present.  After completion it is sorted and
   2580    contains both member functions and non-functions.  STAT_HACK is
   2581    involved to preserve oneslot per name invariant.  */
   2582 #define CLASSTYPE_MEMBER_VEC(NODE) (LANG_TYPE_CLASS_CHECK (NODE)->members)
   2583 
   2584 /* For class templates, this is a TREE_LIST of all member data,
   2585    functions, types, and friends in the order of declaration.
   2586    The TREE_PURPOSE of each TREE_LIST is NULL_TREE for a friend,
   2587    and the RECORD_TYPE for the class template otherwise.  */
   2588 #define CLASSTYPE_DECL_LIST(NODE) (LANG_TYPE_CLASS_CHECK (NODE)->decl_list)
   2589 
   2590 /* A FUNCTION_DECL or OVERLOAD for the constructors for NODE.  These
   2591    are the constructors that take an in-charge parameter.  */
   2592 #define CLASSTYPE_CONSTRUCTORS(NODE) \
   2593   (get_class_binding_direct (NODE, ctor_identifier))
   2594 
   2595 /* A FUNCTION_DECL for the destructor for NODE.  This is the
   2596    destructors that take an in-charge parameter.  If
   2597    CLASSTYPE_LAZY_DESTRUCTOR is true, then this entry will be NULL
   2598    until the destructor is created with lazily_declare_fn.  */
   2599 #define CLASSTYPE_DESTRUCTOR(NODE) \
   2600   (get_class_binding_direct (NODE, dtor_identifier))
   2601 
   2602 /* Nonzero if NODE has a primary base class, i.e., a base class with
   2603    which it shares the virtual function table pointer.  */
   2604 #define CLASSTYPE_HAS_PRIMARY_BASE_P(NODE) \
   2605   (CLASSTYPE_PRIMARY_BINFO (NODE) != NULL_TREE)
   2606 
   2607 /* If non-NULL, this is the binfo for the primary base class, i.e.,
   2608    the base class which contains the virtual function table pointer
   2609    for this class.  */
   2610 #define CLASSTYPE_PRIMARY_BINFO(NODE) \
   2611   (LANG_TYPE_CLASS_CHECK (NODE)->primary_base)
   2612 
   2613 /* A vector of BINFOs for the direct and indirect virtual base classes
   2614    that this type uses in a post-order depth-first left-to-right
   2615    order.  (In other words, these bases appear in the order that they
   2616    should be initialized.)  */
   2617 #define CLASSTYPE_VBASECLASSES(NODE) (LANG_TYPE_CLASS_CHECK (NODE)->vbases)
   2618 
   2619 /* The type corresponding to NODE when NODE is used as a base class,
   2620    i.e., NODE without virtual base classes or tail padding.  */
   2621 #define CLASSTYPE_AS_BASE(NODE) (LANG_TYPE_CLASS_CHECK (NODE)->as_base)
   2622 
   2623 /* True iff NODE is the CLASSTYPE_AS_BASE version of some type.  */
   2624 #define IS_FAKE_BASE_TYPE(NODE)					\
   2625   (TREE_CODE (NODE) == RECORD_TYPE				\
   2626    && TYPE_CONTEXT (NODE) && CLASS_TYPE_P (TYPE_CONTEXT (NODE))	\
   2627    && CLASSTYPE_AS_BASE (TYPE_CONTEXT (NODE)) == (NODE))
   2628 
   2629 /* These are the size and alignment of the type without its virtual
   2630    base classes, for when we use this type as a base itself.  */
   2631 #define CLASSTYPE_SIZE(NODE) TYPE_SIZE (CLASSTYPE_AS_BASE (NODE))
   2632 #define CLASSTYPE_SIZE_UNIT(NODE) TYPE_SIZE_UNIT (CLASSTYPE_AS_BASE (NODE))
   2633 #define CLASSTYPE_ALIGN(NODE) TYPE_ALIGN (CLASSTYPE_AS_BASE (NODE))
   2634 #define CLASSTYPE_USER_ALIGN(NODE) TYPE_USER_ALIGN (CLASSTYPE_AS_BASE (NODE))
   2635 
   2636 /* The alignment of NODE, without its virtual bases, in bytes.  */
   2637 #define CLASSTYPE_ALIGN_UNIT(NODE) \
   2638   (CLASSTYPE_ALIGN (NODE) / BITS_PER_UNIT)
   2639 
   2640 /* A vec<tree> of virtual functions which cannot be inherited by
   2641    derived classes.  When deriving from this type, the derived
   2642    class must provide its own definition for each of these functions.  */
   2643 #define CLASSTYPE_PURE_VIRTUALS(NODE) \
   2644   (LANG_TYPE_CLASS_CHECK (NODE)->pure_virtuals)
   2645 
   2646 /* Nonzero means that this type is an abstract class type.  */
   2647 #define ABSTRACT_CLASS_TYPE_P(NODE) \
   2648   (CLASS_TYPE_P (NODE) && CLASSTYPE_PURE_VIRTUALS(NODE))
   2649 
   2650 /* Nonzero means that this type has an X() constructor.  */
   2651 #define TYPE_HAS_DEFAULT_CONSTRUCTOR(NODE) \
   2652   (LANG_TYPE_CLASS_CHECK (NODE)->has_default_ctor)
   2653 
   2654 /* Nonzero means that this type contains a mutable member.  */
   2655 #define CLASSTYPE_HAS_MUTABLE(NODE) (LANG_TYPE_CLASS_CHECK (NODE)->has_mutable)
   2656 #define TYPE_HAS_MUTABLE_P(NODE) (cp_has_mutable_p (NODE))
   2657 
   2658 /* Nonzero means that this class type is not POD for the purpose of layout
   2659    (as defined in the ABI).  This is different from the language's POD.  */
   2660 #define CLASSTYPE_NON_LAYOUT_POD_P(NODE) \
   2661   (LANG_TYPE_CLASS_CHECK (NODE)->non_pod_class)
   2662 
   2663 /* Nonzero means that this class type is a non-standard-layout class.  */
   2664 #define CLASSTYPE_NON_STD_LAYOUT(NODE) \
   2665   (LANG_TYPE_CLASS_CHECK (NODE)->non_std_layout)
   2666 
   2667 /* Nonzero means that this class type does have unique object
   2668    representations.  */
   2669 #define CLASSTYPE_UNIQUE_OBJ_REPRESENTATIONS(NODE) \
   2670   (LANG_TYPE_CLASS_CHECK (NODE)->unique_obj_representations)
   2671 
   2672 /* Nonzero means that this class type has
   2673    CLASSTYPE_UNIQUE_OBJ_REPRESENTATIONS computed.  */
   2674 #define CLASSTYPE_UNIQUE_OBJ_REPRESENTATIONS_SET(NODE) \
   2675   (LANG_TYPE_CLASS_CHECK (NODE)->unique_obj_representations_set)
   2676 
   2677 /* Nonzero means that this class contains pod types whose default
   2678    initialization is not a zero initialization (namely, pointers to
   2679    data members).  */
   2680 #define CLASSTYPE_NON_ZERO_INIT_P(NODE) \
   2681   (LANG_TYPE_CLASS_CHECK (NODE)->non_zero_init)
   2682 
   2683 /* Nonzero if this class is "empty" in the sense of the C++ ABI.  */
   2684 #define CLASSTYPE_EMPTY_P(NODE) \
   2685   (LANG_TYPE_CLASS_CHECK (NODE)->empty_p)
   2686 
   2687 /* Nonzero if this class is "nearly empty", i.e., contains only a
   2688    virtual function table pointer.  */
   2689 #define CLASSTYPE_NEARLY_EMPTY_P(NODE) \
   2690   (LANG_TYPE_CLASS_CHECK (NODE)->nearly_empty_p)
   2691 
   2692 /* Nonzero if this class contains an empty subobject.  */
   2693 #define CLASSTYPE_CONTAINS_EMPTY_CLASS_P(NODE) \
   2694   (LANG_TYPE_CLASS_CHECK (NODE)->contains_empty_class_p)
   2695 
   2696 /* A list of class types of which this type is a friend.  The
   2697    TREE_VALUE is normally a TYPE, but will be a TEMPLATE_DECL in the
   2698    case of a template friend.  */
   2699 #define CLASSTYPE_FRIEND_CLASSES(NODE) \
   2700   (LANG_TYPE_CLASS_CHECK (NODE)->friend_classes)
   2701 
   2702 /* A list of the classes which grant friendship to this class.  */
   2703 #define CLASSTYPE_BEFRIENDING_CLASSES(NODE) \
   2704   (LANG_TYPE_CLASS_CHECK (NODE)->befriending_classes)
   2705 
   2706 /* The associated LAMBDA_EXPR that made this class.  */
   2707 #define CLASSTYPE_LAMBDA_EXPR(NODE) \
   2708   (LANG_TYPE_CLASS_CHECK (NODE)->lambda_expr)
   2709 /* The extra mangling scope for this closure type.  */
   2710 #define LAMBDA_TYPE_EXTRA_SCOPE(NODE) \
   2711   (LAMBDA_EXPR_EXTRA_SCOPE (CLASSTYPE_LAMBDA_EXPR (NODE)))
   2712 
   2713 /* Say whether this node was declared as a "class" or a "struct".  */
   2714 #define CLASSTYPE_DECLARED_CLASS(NODE) \
   2715   (LANG_TYPE_CLASS_CHECK (NODE)->declared_class)
   2716 
   2717 /* Nonzero if this class has const members
   2718    which have no specified initialization.  */
   2719 #define CLASSTYPE_READONLY_FIELDS_NEED_INIT(NODE)	\
   2720   (TYPE_LANG_SPECIFIC (NODE)				\
   2721    ? LANG_TYPE_CLASS_CHECK (NODE)->const_needs_init : 0)
   2722 #define SET_CLASSTYPE_READONLY_FIELDS_NEED_INIT(NODE, VALUE) \
   2723   (LANG_TYPE_CLASS_CHECK (NODE)->const_needs_init = (VALUE))
   2724 
   2725 /* Nonzero if this class has ref members
   2726    which have no specified initialization.  */
   2727 #define CLASSTYPE_REF_FIELDS_NEED_INIT(NODE)		\
   2728   (TYPE_LANG_SPECIFIC (NODE)				\
   2729    ? LANG_TYPE_CLASS_CHECK (NODE)->ref_needs_init : 0)
   2730 #define SET_CLASSTYPE_REF_FIELDS_NEED_INIT(NODE, VALUE) \
   2731   (LANG_TYPE_CLASS_CHECK (NODE)->ref_needs_init = (VALUE))
   2732 
   2733 /* Nonzero if this class is included from a header file which employs
   2734    `#pragma interface', and it is not included in its implementation file.  */
   2735 #define CLASSTYPE_INTERFACE_ONLY(NODE) \
   2736   (LANG_TYPE_CLASS_CHECK (NODE)->interface_only)
   2737 
   2738 /* True if we have already determined whether or not vtables, VTTs,
   2739    typeinfo, and other similar per-class data should be emitted in
   2740    this translation unit.  This flag does not indicate whether or not
   2741    these items should be emitted; it only indicates that we know one
   2742    way or the other.  */
   2743 #define CLASSTYPE_INTERFACE_KNOWN(NODE) \
   2744   (LANG_TYPE_CLASS_CHECK (NODE)->interface_unknown == 0)
   2745 /* The opposite of CLASSTYPE_INTERFACE_KNOWN.  */
   2746 #define CLASSTYPE_INTERFACE_UNKNOWN(NODE) \
   2747   (LANG_TYPE_CLASS_CHECK (NODE)->interface_unknown)
   2748 
   2749 #define SET_CLASSTYPE_INTERFACE_UNKNOWN_X(NODE,X) \
   2750   (LANG_TYPE_CLASS_CHECK (NODE)->interface_unknown = !!(X))
   2751 #define SET_CLASSTYPE_INTERFACE_UNKNOWN(NODE) \
   2752   (LANG_TYPE_CLASS_CHECK (NODE)->interface_unknown = 1)
   2753 #define SET_CLASSTYPE_INTERFACE_KNOWN(NODE) \
   2754   (LANG_TYPE_CLASS_CHECK (NODE)->interface_unknown = 0)
   2755 
   2756 /* Nonzero if a _DECL node requires us to output debug info for this class.  */
   2757 #define CLASSTYPE_DEBUG_REQUESTED(NODE) \
   2758   (LANG_TYPE_CLASS_CHECK (NODE)->debug_requested)
   2759 
   2760 /* True if we saw errors while instantiating this class.  */
   2761 #define CLASSTYPE_ERRONEOUS(NODE) \
   2762   (LANG_TYPE_CLASS_CHECK (NODE)->erroneous)
   2763 
   2764 /* True if this class is non-layout-POD only because it was not an aggregate
   2765    before C++14.  If we run out of bits in lang_type, this could be replaced
   2766    with a hash_set only filled in when abi_version_crosses (17).  */
   2767 #define CLASSTYPE_NON_POD_AGGREGATE(NODE) \
   2768   (LANG_TYPE_CLASS_CHECK (NODE)->non_pod_aggregate)
   2769 
   2770 /* Additional macros for inheritance information.  */
   2772 
   2773 /* Nonzero means that this class is on a path leading to a new vtable.  */
   2774 #define BINFO_VTABLE_PATH_MARKED(NODE) BINFO_FLAG_1 (NODE)
   2775 
   2776 /* Nonzero means B (a BINFO) has its own vtable.  Any copies will not
   2777    have this flag set.  */
   2778 #define BINFO_NEW_VTABLE_MARKED(B) (BINFO_FLAG_2 (B))
   2779 
   2780 /* Compare a BINFO_TYPE with another type for equality.  For a binfo,
   2781    this is functionally equivalent to using same_type_p, but
   2782    measurably faster.  At least one of the arguments must be a
   2783    BINFO_TYPE.  The other can be a BINFO_TYPE or a regular type.  If
   2784    BINFO_TYPE(T) ever stops being the main variant of the class the
   2785    binfo is for, this macro must change.  */
   2786 #define SAME_BINFO_TYPE_P(A, B) ((A) == (B))
   2787 
   2788 /* Any subobject that needs a new vtable must have a vptr and must not
   2789    be a non-virtual primary base (since it would then use the vtable from a
   2790    derived class and never become non-primary.)  */
   2791 #define SET_BINFO_NEW_VTABLE_MARKED(B)					 \
   2792   (BINFO_NEW_VTABLE_MARKED (B) = 1,					 \
   2793    gcc_assert (!BINFO_PRIMARY_P (B) || BINFO_VIRTUAL_P (B)),		 \
   2794    gcc_assert (TYPE_VFIELD (BINFO_TYPE (B))))
   2795 
   2796 /* Nonzero if this binfo is for a dependent base - one that should not
   2797    be searched.  */
   2798 #define BINFO_DEPENDENT_BASE_P(NODE) BINFO_FLAG_3 (NODE)
   2799 
   2800 /* Nonzero if this binfo has lost its primary base binfo (because that
   2801    is a nearly-empty virtual base that has been taken by some other
   2802    base in the complete hierarchy.  */
   2803 #define BINFO_LOST_PRIMARY_P(NODE) BINFO_FLAG_4 (NODE)
   2804 
   2805 /* Nonzero if this BINFO is a primary base class.  */
   2806 #define BINFO_PRIMARY_P(NODE) BINFO_FLAG_5(NODE)
   2807 
   2808 /* A vec<tree_pair_s> of the vcall indices associated with the class
   2810    NODE.  The PURPOSE of each element is a FUNCTION_DECL for a virtual
   2811    function.  The VALUE is the index into the virtual table where the
   2812    vcall offset for that function is stored, when NODE is a virtual
   2813    base.  */
   2814 #define CLASSTYPE_VCALL_INDICES(NODE) \
   2815   (LANG_TYPE_CLASS_CHECK (NODE)->vcall_indices)
   2816 
   2817 /* The various vtables for the class NODE.  The primary vtable will be
   2818    first, followed by the construction vtables and VTT, if any.  */
   2819 #define CLASSTYPE_VTABLES(NODE) \
   2820   (LANG_TYPE_CLASS_CHECK (NODE)->vtables)
   2821 
   2822 /* The std::type_info variable representing this class, or NULL if no
   2823    such variable has been created.  This field is only set for the
   2824    TYPE_MAIN_VARIANT of the class.  */
   2825 #define CLASSTYPE_TYPEINFO_VAR(NODE) \
   2826   (LANG_TYPE_CLASS_CHECK (NODE)->typeinfo_var)
   2827 
   2828 /* Accessor macros for the BINFO_VIRTUALS list.  */
   2829 
   2830 /* The number of bytes by which to adjust the `this' pointer when
   2831    calling this virtual function.  Subtract this value from the this
   2832    pointer. Always non-NULL, might be constant zero though.  */
   2833 #define BV_DELTA(NODE) (TREE_PURPOSE (NODE))
   2834 
   2835 /* If non-NULL, the vtable index at which to find the vcall offset
   2836    when calling this virtual function.  Add the value at that vtable
   2837    index to the this pointer.  */
   2838 #define BV_VCALL_INDEX(NODE) (TREE_TYPE (NODE))
   2839 
   2840 /* The function to call.  */
   2841 #define BV_FN(NODE) (TREE_VALUE (NODE))
   2842 
   2843 /* Whether or not this entry is for a lost primary virtual base.  */
   2844 #define BV_LOST_PRIMARY(NODE) (TREE_LANG_FLAG_0 (NODE))
   2845 
   2846 /* For FUNCTION_TYPE or METHOD_TYPE, a list of the exceptions that
   2848    this type can raise.  Each TREE_VALUE is a _TYPE.  The TREE_VALUE
   2849    will be NULL_TREE to indicate a throw specification of `()', or
   2850    no exceptions allowed.  For a noexcept specification, TREE_VALUE
   2851    is NULL_TREE and TREE_PURPOSE is the constant-expression.  For
   2852    a deferred noexcept-specification, TREE_PURPOSE is a DEFERRED_NOEXCEPT
   2853    (for templates) or an OVERLOAD list of functions (for implicitly
   2854    declared functions).  */
   2855 #define TYPE_RAISES_EXCEPTIONS(NODE) \
   2856   TYPE_LANG_SLOT_1 (FUNC_OR_METHOD_CHECK (NODE))
   2857 
   2858 /* For FUNCTION_TYPE or METHOD_TYPE, return 1 iff it is declared `throw()'
   2859    or noexcept(true).  */
   2860 #define TYPE_NOTHROW_P(NODE) nothrow_spec_p (TYPE_RAISES_EXCEPTIONS (NODE))
   2861 
   2862 /* For FUNCTION_TYPE or METHOD_TYPE, true if NODE is noexcept.  This is the
   2863    case for things declared noexcept(true) and, with -fnothrow-opt, for
   2864    throw() functions.  */
   2865 #define TYPE_NOEXCEPT_P(NODE) type_noexcept_p (NODE)
   2866 
   2867 /* The binding level associated with the namespace.  */
   2868 #define NAMESPACE_LEVEL(NODE) \
   2869   (LANG_DECL_NS_CHECK (NODE)->level)
   2870 
   2871 /* Discriminator values for lang_decl.  */
   2873 
   2874 enum lang_decl_selector
   2875 {
   2876   lds_min,
   2877   lds_fn,
   2878   lds_ns,
   2879   lds_parm,
   2880   lds_decomp
   2881 };
   2882 
   2883 /* Flags shared by all forms of DECL_LANG_SPECIFIC.
   2884 
   2885    Some of the flags live here only to make lang_decl_min/fn smaller.  Do
   2886    not make this struct larger than 32 bits.  */
   2887 
   2888 struct GTY(()) lang_decl_base {
   2889   ENUM_BITFIELD(lang_decl_selector) selector : 3;
   2890   ENUM_BITFIELD(languages) language : 1;
   2891   unsigned use_template : 2;
   2892   unsigned not_really_extern : 1;	   /* var or fn */
   2893   unsigned initialized_in_class : 1;	   /* var or fn */
   2894 
   2895   unsigned threadprivate_or_deleted_p : 1; /* var or fn */
   2896   /* anticipated_p is no longer used for anticipated_decls (fn, type
   2897      or template).  It is used as DECL_OMP_PRIVATIZED_MEMBER in
   2898      var.  */
   2899   unsigned anticipated_p : 1;
   2900   unsigned friend_or_tls : 1;		   /* var, fn, type or template */
   2901   unsigned unknown_bound_p : 1;		   /* var */
   2902   unsigned odr_used : 1;		   /* var or fn */
   2903   unsigned concept_p : 1;		   /* applies to vars and functions */
   2904   unsigned var_declared_inline_p : 1;	   /* var */
   2905   unsigned dependent_init_p : 1;	   /* var */
   2906 
   2907   /* The following four apply to VAR, FUNCTION, TYPE, CONCEPT, & NAMESPACE
   2908      decls.  */
   2909   unsigned module_purview_p : 1;	   /* in named-module purview */
   2910   unsigned module_attach_p : 1;		   /* attached to named module */
   2911   unsigned module_import_p : 1;		   /* from an import */
   2912   unsigned module_entity_p : 1;		   /* is in the entitity ary & hash */
   2913 
   2914   unsigned module_keyed_decls_p : 1;	   /* has keys, applies to all decls */
   2915 
   2916   /* 11 spare bits.  */
   2917 };
   2918 
   2919 /* True for DECL codes which have template info and access.  */
   2920 #define LANG_DECL_HAS_MIN(NODE)			\
   2921   (VAR_OR_FUNCTION_DECL_P (NODE)		\
   2922    || TREE_CODE (NODE) == FIELD_DECL		\
   2923    || TREE_CODE (NODE) == CONST_DECL		\
   2924    || TREE_CODE (NODE) == TYPE_DECL		\
   2925    || TREE_CODE (NODE) == TEMPLATE_DECL		\
   2926    || TREE_CODE (NODE) == USING_DECL            \
   2927    || TREE_CODE (NODE) == CONCEPT_DECL)
   2928 
   2929 /* DECL_LANG_SPECIFIC for the above codes.  */
   2930 
   2931 struct GTY(()) lang_decl_min {
   2932   struct lang_decl_base base; /* 32-bits.  */
   2933 
   2934   /* In a FUNCTION_DECL for which DECL_THUNK_P holds, this is
   2935      THUNK_ALIAS.
   2936      In a FUNCTION_DECL for which DECL_THUNK_P does not hold,
   2937      VAR_DECL, TYPE_DECL, or TEMPLATE_DECL, this is
   2938      DECL_TEMPLATE_INFO.  */
   2939   tree template_info;
   2940 
   2941   /* In a DECL_THUNK_P FUNCTION_DECL, this is THUNK_VIRTUAL_OFFSET.
   2942      In a lambda-capture proxy VAR_DECL, this is DECL_CAPTURED_VARIABLE.
   2943      In a function-scope TREE_STATIC VAR_DECL or IMPLICIT_TYPEDEF_P TYPE_DECL,
   2944      this is DECL_DISCRIMINATOR.
   2945      In a DECL_LOCAL_DECL_P decl, this is the namespace decl it aliases.
   2946      Otherwise, in a class-scope DECL, this is DECL_ACCESS.   */
   2947   tree access;
   2948 };
   2949 
   2950 /* Additional DECL_LANG_SPECIFIC information for functions.  */
   2951 
   2952 struct GTY(()) lang_decl_fn {
   2953   struct lang_decl_min min;
   2954 
   2955   /* In a overloaded operator, this is the compressed operator code.  */
   2956   unsigned ovl_op_code : 6;
   2957   unsigned global_ctor_p : 1;
   2958   unsigned global_dtor_p : 1;
   2959 
   2960   unsigned static_function : 1;
   2961   unsigned pure_virtual : 1;
   2962   unsigned defaulted_p : 1;
   2963   unsigned has_in_charge_parm_p : 1;
   2964   unsigned has_vtt_parm_p : 1;
   2965   unsigned pending_inline_p : 1;
   2966   unsigned nonconverting : 1;
   2967   unsigned thunk_p : 1;
   2968 
   2969   unsigned this_thunk_p : 1;
   2970   unsigned omp_declare_reduction_p : 1;
   2971   unsigned has_dependent_explicit_spec_p : 1;
   2972   unsigned immediate_fn_p : 1;
   2973   unsigned maybe_deleted : 1;
   2974   unsigned coroutine_p : 1;
   2975   unsigned implicit_constexpr : 1;
   2976   unsigned escalated_p : 1;
   2977   unsigned xobj_func : 1;
   2978 
   2979   unsigned spare : 7;
   2980 
   2981   /* 32-bits padding on 64-bit host.  */
   2982 
   2983   /* For a non-thunk function decl, this is a tree list of
   2984      friendly classes. For a thunk function decl, it is the
   2985      thunked to function decl.  */
   2986   tree befriending_classes;
   2987 
   2988   /* For a virtual FUNCTION_DECL for which
   2989      DECL_THIS_THUNK_P does not hold, this is DECL_THUNKS. Both
   2990      this pointer and result pointer adjusting thunks are
   2991      chained here.  This pointer thunks to return pointer thunks
   2992      will be chained on the return pointer thunk.
   2993      For a DECL_CONSTRUCTOR_P or deduction_guide_p FUNCTION_DECL,
   2994      this is the base from whence we inherit.
   2995      Otherwise, it is the class in which a (namespace-scope) friend
   2996      is defined (if any).  */
   2997   tree context;
   2998 
   2999   union lang_decl_u5
   3000   {
   3001     /* In a non-thunk FUNCTION_DECL, this is DECL_CLONED_FUNCTION.  */
   3002     tree GTY ((tag ("0"))) cloned_function;
   3003 
   3004     /* In a FUNCTION_DECL for which THUNK_P holds this is the
   3005        THUNK_FIXED_OFFSET.  */
   3006     HOST_WIDE_INT GTY ((tag ("1"))) fixed_offset;
   3007   } GTY ((desc ("%1.thunk_p"))) u5;
   3008 
   3009   union lang_decl_u3
   3010   {
   3011     struct cp_token_cache * GTY ((tag ("1"))) pending_inline_info;
   3012     tree GTY ((tag ("0"))) saved_auto_return_type;
   3013   } GTY ((desc ("%1.pending_inline_p"))) u;
   3014 
   3015 };
   3016 
   3017 /* DECL_LANG_SPECIFIC for namespaces.  */
   3018 
   3019 struct GTY(()) lang_decl_ns {
   3020   struct lang_decl_base base; /* 32 bits.  */
   3021   cp_binding_level *level;
   3022 
   3023   /* Inline children.  Needs to be va_gc, because of PCH.  */
   3024   vec<tree, va_gc> *inlinees;
   3025 
   3026   /* Hash table of bound decls. It'd be nice to have this inline, but
   3027      as the hash_map has a dtor, we can't then put this struct into a
   3028      union (until moving to c++11).  */
   3029   hash_table<named_decl_hash> *bindings;
   3030 };
   3031 
   3032 /* DECL_LANG_SPECIFIC for parameters.  */
   3033 
   3034 struct GTY(()) lang_decl_parm {
   3035   struct lang_decl_base base; /* 32 bits.  */
   3036   int level;
   3037   int index;
   3038 };
   3039 
   3040 /* Additional DECL_LANG_SPECIFIC information for structured bindings.  */
   3041 
   3042 struct GTY(()) lang_decl_decomp {
   3043   struct lang_decl_min min;
   3044   /* The artificial underlying "e" variable of the structured binding
   3045      variable.  */
   3046   tree base;
   3047 };
   3048 
   3049 /* DECL_LANG_SPECIFIC for all types.  It would be nice to just make this a
   3050    union rather than a struct containing a union as its only field, but
   3051    tree.h declares it as a struct.  */
   3052 
   3053 struct GTY(()) lang_decl {
   3054   union GTY((desc ("%h.base.selector"))) lang_decl_u {
   3055      /* Nothing of only the base type exists.  */
   3056     struct lang_decl_base GTY ((default)) base;
   3057     struct lang_decl_min GTY((tag ("lds_min"))) min;
   3058     struct lang_decl_fn GTY ((tag ("lds_fn"))) fn;
   3059     struct lang_decl_ns GTY((tag ("lds_ns"))) ns;
   3060     struct lang_decl_parm GTY((tag ("lds_parm"))) parm;
   3061     struct lang_decl_decomp GTY((tag ("lds_decomp"))) decomp;
   3062   } u;
   3063 };
   3064 
   3065 /* Looks through a template (if present) to find what it declares.  */
   3066 #define STRIP_TEMPLATE(NODE) \
   3067   (TREE_CODE (NODE) == TEMPLATE_DECL ? DECL_TEMPLATE_RESULT (NODE) : NODE)
   3068 
   3069 #if defined ENABLE_TREE_CHECKING && (GCC_VERSION >= 2007)
   3070 
   3071 #define LANG_DECL_MIN_CHECK(NODE) __extension__			\
   3072 ({ struct lang_decl *lt = DECL_LANG_SPECIFIC (NODE);		\
   3073    if (!LANG_DECL_HAS_MIN (NODE))				\
   3074      lang_check_failed (__FILE__, __LINE__, __FUNCTION__);	\
   3075    &lt->u.min; })
   3076 
   3077 /* We want to be able to check DECL_CONSTRUCTOR_P and such on a function
   3078    template, not just on a FUNCTION_DECL.  So when looking for things in
   3079    lang_decl_fn, look down through a TEMPLATE_DECL into its result.  */
   3080 #define LANG_DECL_FN_CHECK(NODE) __extension__				\
   3081 ({ struct lang_decl *lt = DECL_LANG_SPECIFIC (STRIP_TEMPLATE (NODE));	\
   3082    if (!DECL_DECLARES_FUNCTION_P (NODE)					\
   3083        || lt->u.base.selector != lds_fn)				\
   3084      lang_check_failed (__FILE__, __LINE__, __FUNCTION__);		\
   3085    &lt->u.fn; })
   3086 
   3087 #define LANG_DECL_NS_CHECK(NODE) __extension__				\
   3088 ({ struct lang_decl *lt = DECL_LANG_SPECIFIC (NODE);			\
   3089    if (TREE_CODE (NODE) != NAMESPACE_DECL				\
   3090        || lt->u.base.selector != lds_ns)				\
   3091      lang_check_failed (__FILE__, __LINE__, __FUNCTION__);		\
   3092    &lt->u.ns; })
   3093 
   3094 #define LANG_DECL_PARM_CHECK(NODE) __extension__		\
   3095 ({ struct lang_decl *lt = DECL_LANG_SPECIFIC (NODE);		\
   3096   if (TREE_CODE (NODE) != PARM_DECL				\
   3097       || lt->u.base.selector != lds_parm)			\
   3098     lang_check_failed (__FILE__, __LINE__, __FUNCTION__);	\
   3099   &lt->u.parm; })
   3100 
   3101 #define LANG_DECL_DECOMP_CHECK(NODE) __extension__		\
   3102 ({ struct lang_decl *lt = DECL_LANG_SPECIFIC (NODE);		\
   3103   if (!VAR_P (NODE)						\
   3104       || lt->u.base.selector != lds_decomp)			\
   3105     lang_check_failed (__FILE__, __LINE__, __FUNCTION__);	\
   3106   &lt->u.decomp; })
   3107 
   3108 #else
   3109 
   3110 #define LANG_DECL_MIN_CHECK(NODE) \
   3111   (&DECL_LANG_SPECIFIC (NODE)->u.min)
   3112 
   3113 #define LANG_DECL_FN_CHECK(NODE) \
   3114   (&DECL_LANG_SPECIFIC (STRIP_TEMPLATE (NODE))->u.fn)
   3115 
   3116 #define LANG_DECL_NS_CHECK(NODE) \
   3117   (&DECL_LANG_SPECIFIC (NODE)->u.ns)
   3118 
   3119 #define LANG_DECL_PARM_CHECK(NODE) \
   3120   (&DECL_LANG_SPECIFIC (NODE)->u.parm)
   3121 
   3122 #define LANG_DECL_DECOMP_CHECK(NODE) \
   3123   (&DECL_LANG_SPECIFIC (NODE)->u.decomp)
   3124 
   3125 #endif /* ENABLE_TREE_CHECKING */
   3126 
   3127 /* For a FUNCTION_DECL or a VAR_DECL, the language linkage for the
   3128    declaration.  Some entities (like a member function in a local
   3129    class, or a local variable) do not have linkage at all, and this
   3130    macro should not be used in those cases.
   3131 
   3132    Implementation note: A FUNCTION_DECL without DECL_LANG_SPECIFIC was
   3133    created by language-independent code, and has C linkage.  Most
   3134    VAR_DECLs have C++ linkage, and do not have DECL_LANG_SPECIFIC, but
   3135    we do create DECL_LANG_SPECIFIC for variables with non-C++ linkage.  */
   3136 #define DECL_LANGUAGE(NODE)				\
   3137   (DECL_LANG_SPECIFIC (NODE)				\
   3138    ? DECL_LANG_SPECIFIC (NODE)->u.base.language		\
   3139    : (TREE_CODE (NODE) == FUNCTION_DECL			\
   3140       ? lang_c : lang_cplusplus))
   3141 
   3142 /* Set the language linkage for NODE to LANGUAGE.  */
   3143 #define SET_DECL_LANGUAGE(NODE, LANGUAGE) \
   3144   (DECL_LANG_SPECIFIC (NODE)->u.base.language = (LANGUAGE))
   3145 
   3146 /* For FUNCTION_DECLs and TEMPLATE_DECLs: nonzero means that this function
   3147    is a constructor.  */
   3148 #define DECL_CONSTRUCTOR_P(NODE) \
   3149   DECL_CXX_CONSTRUCTOR_P (STRIP_TEMPLATE (NODE))
   3150 
   3151 /* Nonzero if NODE (a FUNCTION_DECL) is a constructor for a complete
   3152    object.  */
   3153 #define DECL_COMPLETE_CONSTRUCTOR_P(NODE)		\
   3154   (DECL_NAME (NODE) == complete_ctor_identifier)
   3155 
   3156 /* Nonzero if NODE (a FUNCTION_DECL) is a constructor for a base
   3157    object.  */
   3158 #define DECL_BASE_CONSTRUCTOR_P(NODE)		\
   3159   (DECL_NAME (NODE) == base_ctor_identifier)
   3160 
   3161 /* Nonzero if NODE (a FUNCTION_DECL) is a constructor, but not either the
   3162    specialized in-charge constructor or the specialized not-in-charge
   3163    constructor.  */
   3164 #define DECL_MAYBE_IN_CHARGE_CONSTRUCTOR_P(NODE)		\
   3165   (DECL_NAME (NODE) == ctor_identifier)
   3166 
   3167 /* Nonzero if NODE (a FUNCTION_DECL) is a copy constructor.  */
   3168 #define DECL_COPY_CONSTRUCTOR_P(NODE) \
   3169   (DECL_CONSTRUCTOR_P (NODE) && copy_fn_p (NODE) > 0)
   3170 
   3171 /* Nonzero if NODE (a FUNCTION_DECL) is a move constructor.  */
   3172 #define DECL_MOVE_CONSTRUCTOR_P(NODE) \
   3173   (DECL_CONSTRUCTOR_P (NODE) && move_fn_p (NODE))
   3174 
   3175 /* Nonzero if NODE (a FUNCTION_DECL or TEMPLATE_DECL)
   3176    is a destructor.  */
   3177 #define DECL_DESTRUCTOR_P(NODE)				\
   3178   DECL_CXX_DESTRUCTOR_P (STRIP_TEMPLATE (NODE))
   3179 
   3180 /* Nonzero if NODE (a FUNCTION_DECL) is a destructor, but not the
   3181    specialized in-charge constructor, in-charge deleting constructor,
   3182    or the base destructor.  */
   3183 #define DECL_MAYBE_IN_CHARGE_DESTRUCTOR_P(NODE)			\
   3184   (DECL_NAME (NODE) == dtor_identifier)
   3185 
   3186 /* Nonzero if NODE (a FUNCTION_DECL) is a destructor for a complete
   3187    object.  */
   3188 #define DECL_COMPLETE_DESTRUCTOR_P(NODE)		\
   3189   (DECL_NAME (NODE) == complete_dtor_identifier)
   3190 
   3191 /* Nonzero if NODE (a FUNCTION_DECL) is a destructor for a base
   3192    object.  */
   3193 #define DECL_BASE_DESTRUCTOR_P(NODE)		\
   3194   (DECL_NAME (NODE) == base_dtor_identifier)
   3195 
   3196 /* Nonzero if NODE (a FUNCTION_DECL) is a destructor for a complete
   3197    object that deletes the object after it has been destroyed.  */
   3198 #define DECL_DELETING_DESTRUCTOR_P(NODE)		\
   3199   (DECL_NAME (NODE) == deleting_dtor_identifier)
   3200 
   3201 /* Nonzero if either DECL_MAYBE_IN_CHARGE_CONSTRUCTOR_P or
   3202    DECL_MAYBE_IN_CHARGE_DESTRUCTOR_P is true of NODE.  */
   3203 #define DECL_MAYBE_IN_CHARGE_CDTOR_P(NODE)              \
   3204   (DECL_MAYBE_IN_CHARGE_CONSTRUCTOR_P (NODE)            \
   3205    || DECL_MAYBE_IN_CHARGE_DESTRUCTOR_P (NODE))
   3206 
   3207 /* Nonzero if NODE (a _DECL) is a cloned constructor or
   3208    destructor.  */
   3209 #define DECL_CLONED_FUNCTION_P(NODE)		\
   3210   (DECL_NAME (NODE)				\
   3211    && IDENTIFIER_CDTOR_P (DECL_NAME (NODE))	\
   3212    && !DECL_MAYBE_IN_CHARGE_CDTOR_P (NODE))
   3213 
   3214 /* If DECL_CLONED_FUNCTION_P holds, this is the function that was
   3215    cloned.  */
   3216 #define DECL_CLONED_FUNCTION(NODE)		\
   3217   (DECL_LANG_SPECIFIC (FUNCTION_DECL_CHECK (NODE))->u.fn.u5.cloned_function)
   3218 
   3219 /* Perform an action for each clone of FN, if FN is a function with
   3220    clones.  This macro should be used like:
   3221 
   3222       FOR_EACH_CLONE (clone, fn)
   3223 	{ ... }
   3224 
   3225   */
   3226 #define FOR_EACH_CLONE(CLONE, FN)			\
   3227   if (!(TREE_CODE (FN) == FUNCTION_DECL			\
   3228 	&& DECL_MAYBE_IN_CHARGE_CDTOR_P (FN)))          \
   3229     ;							\
   3230   else							\
   3231     for (CLONE = DECL_CHAIN (FN);			\
   3232 	 CLONE && DECL_CLONED_FUNCTION_P (CLONE);	\
   3233 	 CLONE = DECL_CHAIN (CLONE))
   3234 
   3235 /* Nonzero if NODE has DECL_DISCRIMINATOR and not DECL_ACCESS.  */
   3236 #define DECL_DISCRIMINATOR_P(NODE)				\
   3237   (((VAR_P (NODE) && TREE_STATIC (NODE))	\
   3238     || DECL_IMPLICIT_TYPEDEF_P (NODE))				\
   3239    && DECL_FUNCTION_SCOPE_P (NODE))
   3240 
   3241 /* Discriminator for name mangling.  */
   3242 #define DECL_DISCRIMINATOR(NODE) (LANG_DECL_MIN_CHECK (NODE)->access)
   3243 
   3244 /* The index of a user-declared parameter in its function, starting at 1.
   3245    All artificial parameters will have index 0.  */
   3246 #define DECL_PARM_INDEX(NODE) \
   3247   (LANG_DECL_PARM_CHECK (NODE)->index)
   3248 
   3249 /* The level of a user-declared parameter in its function, starting at 1.
   3250    A parameter of the function will have level 1; a parameter of the first
   3251    nested function declarator (i.e. t in void f (void (*p)(T t))) will have
   3252    level 2.  */
   3253 #define DECL_PARM_LEVEL(NODE) \
   3254   (LANG_DECL_PARM_CHECK (NODE)->level)
   3255 
   3256 /* Nonzero if the VTT parm has been added to NODE.  */
   3257 #define DECL_HAS_VTT_PARM_P(NODE) \
   3258   (LANG_DECL_FN_CHECK (NODE)->has_vtt_parm_p)
   3259 
   3260 /* Nonzero if NODE is a user-defined conversion operator.  */
   3261 #define DECL_CONV_FN_P(NODE) IDENTIFIER_CONV_OP_P (DECL_NAME (NODE))
   3262 
   3263 /* The type to which conversion operator FN converts to.   */
   3264 #define DECL_CONV_FN_TYPE(FN) \
   3265   TREE_TYPE ((gcc_checking_assert (DECL_CONV_FN_P (FN)), DECL_NAME (FN)))
   3266 
   3267 /* Nonzero if NODE, a templated variable, was declared as an
   3268    array of unknown bound.  */
   3269 #define VAR_HAD_UNKNOWN_BOUND(NODE)			\
   3270   (DECL_LANG_SPECIFIC (VAR_DECL_CHECK (NODE))		\
   3271    ? DECL_LANG_SPECIFIC (NODE)->u.base.unknown_bound_p	\
   3272    : false)
   3273 #define SET_VAR_HAD_UNKNOWN_BOUND(NODE) \
   3274   (DECL_LANG_SPECIFIC (VAR_DECL_CHECK (NODE))->u.base.unknown_bound_p = true)
   3275 
   3276 /* True iff decl NODE is for an overloaded operator.  */
   3277 #define DECL_OVERLOADED_OPERATOR_P(NODE)		\
   3278   IDENTIFIER_ANY_OP_P (DECL_NAME (NODE))
   3279 
   3280 /* Nonzero if NODE is an assignment operator (including += and such).  */
   3281 #define DECL_ASSIGNMENT_OPERATOR_P(NODE)		 \
   3282   IDENTIFIER_ASSIGN_OP_P (DECL_NAME (NODE))
   3283 
   3284 /* NODE is a function_decl for an overloaded operator.  Return its
   3285    compressed (raw) operator code.  Note that this is not a TREE_CODE.  */
   3286 #define DECL_OVERLOADED_OPERATOR_CODE_RAW(NODE)		\
   3287   (LANG_DECL_FN_CHECK (NODE)->ovl_op_code)
   3288 
   3289 /* DECL is an overloaded operator.  Test whether it is for TREE_CODE
   3290    (a literal constant).  */
   3291 #define DECL_OVERLOADED_OPERATOR_IS(DECL, CODE)			\
   3292   (DECL_OVERLOADED_OPERATOR_CODE_RAW (DECL) == OVL_OP_##CODE)
   3293 
   3294 /* For FUNCTION_DECLs: nonzero means that this function is a
   3295    constructor or a destructor with an extra in-charge parameter to
   3296    control whether or not virtual bases are constructed.  */
   3297 #define DECL_HAS_IN_CHARGE_PARM_P(NODE) \
   3298   (LANG_DECL_FN_CHECK (NODE)->has_in_charge_parm_p)
   3299 
   3300 /* Nonzero if DECL is a declaration of __builtin_constant_p.  */
   3301 #define DECL_IS_BUILTIN_CONSTANT_P(NODE)		\
   3302  (TREE_CODE (NODE) == FUNCTION_DECL			\
   3303   && DECL_BUILT_IN_CLASS (NODE) == BUILT_IN_NORMAL	\
   3304   && DECL_FUNCTION_CODE (NODE) == BUILT_IN_CONSTANT_P)
   3305 
   3306 /* Nonzero for _DECL means that this decl appears in (or will appear
   3307    in) as a member in a RECORD_TYPE or UNION_TYPE node.  It is also for
   3308    detecting circularity in case members are multiply defined.  In the
   3309    case of a VAR_DECL, it means that no definition has been seen, even
   3310    if an initializer has been.  */
   3311 #define DECL_IN_AGGR_P(NODE) (DECL_LANG_FLAG_3 (NODE))
   3312 
   3313 /* Nonzero for a VAR_DECL means that the variable's initialization (if
   3314    any) has been processed.  (In general, DECL_INITIALIZED_P is
   3315    !DECL_EXTERNAL, but static data members may be initialized even if
   3316    not defined.)  */
   3317 #define DECL_INITIALIZED_P(NODE) \
   3318    (TREE_LANG_FLAG_1 (VAR_DECL_CHECK (NODE)))
   3319 
   3320 /* Nonzero for a VAR_DECL iff an explicit initializer was provided
   3321    or a non-trivial constructor is called.  */
   3322 #define DECL_NONTRIVIALLY_INITIALIZED_P(NODE)	\
   3323    (TREE_LANG_FLAG_6 (VAR_DECL_CHECK (NODE)))
   3324 
   3325 /* Nonzero for a VAR_DECL that was initialized with a
   3326    constant-expression.  */
   3327 #define DECL_INITIALIZED_BY_CONSTANT_EXPRESSION_P(NODE) \
   3328   (TREE_LANG_FLAG_2 (VAR_DECL_CHECK (NODE)))
   3329 
   3330 /* Nonzero if the DECL was initialized in the class definition itself,
   3331    rather than outside the class.  This is used for both static member
   3332    VAR_DECLS, and FUNCTION_DECLS that are defined in the class.  */
   3333 #define DECL_INITIALIZED_IN_CLASS_P(DECL) \
   3334   (DECL_LANG_SPECIFIC (VAR_OR_FUNCTION_DECL_CHECK (DECL)) \
   3335    ->u.base.initialized_in_class)
   3336 
   3337 /* Nonzero if the DECL is used in the sense of 3.2 [basic.def.odr].
   3338    Only available for decls with DECL_LANG_SPECIFIC.  */
   3339 #define DECL_ODR_USED(DECL) \
   3340   (DECL_LANG_SPECIFIC (VAR_OR_FUNCTION_DECL_CHECK (DECL)) \
   3341    ->u.base.odr_used)
   3342 
   3343 /* Nonzero for FUNCTION_DECL means that this is a friend that is
   3344    either not pushed into a namespace/looked up in a class (because it
   3345    is a dependent type, in an uninstantiated template), or it has
   3346    /only/ been subject to hidden friend injection from one or more
   3347    befriending classes.  Once another decl matches, the flag is
   3348    cleared.  There are requirements on its default parms.  */
   3349 #define DECL_UNIQUE_FRIEND_P(NODE) \
   3350   (DECL_LANG_SPECIFIC (FUNCTION_DECL_CHECK (NODE)) \
   3351    ->u.base.friend_or_tls)
   3352 
   3353 /* True of a TEMPLATE_DECL that is a template class friend.  Such
   3354    decls are not pushed until instantiated (as they may depend on
   3355    parameters of the befriending class).  DECL_CHAIN is the
   3356    befriending class.  */
   3357 #define DECL_UNINSTANTIATED_TEMPLATE_FRIEND_P(NODE) \
   3358   (DECL_LANG_FLAG_4 (TEMPLATE_DECL_CHECK (NODE)))
   3359 
   3360 /* Nonzero if the thread-local variable was declared with __thread as
   3361    opposed to thread_local.  */
   3362 #define DECL_GNU_TLS_P(NODE)				\
   3363   (DECL_LANG_SPECIFIC (VAR_DECL_CHECK (NODE))		\
   3364    && DECL_LANG_SPECIFIC (NODE)->u.base.friend_or_tls)
   3365 #define SET_DECL_GNU_TLS_P(NODE)				\
   3366   (retrofit_lang_decl (VAR_DECL_CHECK (NODE)),			\
   3367    DECL_LANG_SPECIFIC (NODE)->u.base.friend_or_tls = true)
   3368 
   3369 /* A TREE_LIST of the types which have befriended this FUNCTION_DECL.  */
   3370 #define DECL_BEFRIENDING_CLASSES(NODE) \
   3371   (LANG_DECL_FN_CHECK (NODE)->befriending_classes)
   3372 
   3373 /* Nonzero for FUNCTION_DECL means that this decl is a static
   3374    member function.  */
   3375 #define DECL_STATIC_FUNCTION_P(NODE) \
   3376   (LANG_DECL_FN_CHECK (NODE)->static_function)
   3377 
   3378 /* Nonzero for FUNCTION_DECL means that this decl is a non-static member
   3379    function.  C++23 explicit object member functions are also considered
   3380    non-static, but most former uses of this macro meant implicit object member
   3381    function.  Instead of this macro, use DECL_IOBJ_MEMBER_FUNCTION_P or
   3382    DECL_OBJECT_MEMBER_FUNCTION_P.  */
   3383 #define DECL_NONSTATIC_MEMBER_FUNCTION_P(NODE) did_you_mean_object_or_iobj
   3384 
   3385 /* Nonzero for FUNCTION_DECL means that this decl is an implicit object
   3386    member function.  */
   3387 #define DECL_IOBJ_MEMBER_FUNCTION_P(NODE) \
   3388   (TREE_CODE (TREE_TYPE (NODE)) == METHOD_TYPE)
   3389 
   3390 /* Simple member access, only valid for FUNCTION_DECL nodes.  */
   3391 #define DECL_FUNCTION_XOBJ_FLAG(NODE)	\
   3392   (LANG_DECL_FN_CHECK (NODE)->xobj_func)
   3393 
   3394 /* Nonzero if NODE is an xobj member function,
   3395    safely evaluates to false for all non FUNCTION_DECL nodes.  */
   3396 #define DECL_XOBJ_MEMBER_FUNCTION_P(NODE)		\
   3397   (TREE_CODE (STRIP_TEMPLATE (NODE)) == FUNCTION_DECL	\
   3398    && DECL_FUNCTION_XOBJ_FLAG (NODE) == 1)
   3399 
   3400 /* Nonzero if NODE is a member function with an object argument,
   3401    in other words, a non-static member function.  */
   3402 #define DECL_OBJECT_MEMBER_FUNCTION_P(NODE) \
   3403   (DECL_IOBJ_MEMBER_FUNCTION_P (NODE) || DECL_XOBJ_MEMBER_FUNCTION_P (NODE))
   3404 
   3405 /* Nonzero for FUNCTION_DECL means that this decl is a member function
   3406    (static or non-static).  */
   3407 #define DECL_FUNCTION_MEMBER_P(NODE) \
   3408   (DECL_OBJECT_MEMBER_FUNCTION_P (NODE) || DECL_STATIC_FUNCTION_P (NODE)) \
   3409 
   3410 /* Nonzero for FUNCTION_DECL means that this member function
   3411    has `this' as const X *const.  */
   3412 #define DECL_CONST_MEMFUNC_P(NODE)					 \
   3413   (DECL_IOBJ_MEMBER_FUNCTION_P (NODE)				 \
   3414    && CP_TYPE_CONST_P (TREE_TYPE (TREE_VALUE				 \
   3415 				  (TYPE_ARG_TYPES (TREE_TYPE (NODE))))))
   3416 
   3417 /* Nonzero for FUNCTION_DECL means that this member function
   3418    has `this' as volatile X *const.  */
   3419 #define DECL_VOLATILE_MEMFUNC_P(NODE)					 \
   3420   (DECL_IOBJ_MEMBER_FUNCTION_P (NODE)				 \
   3421    && CP_TYPE_VOLATILE_P (TREE_TYPE (TREE_VALUE				 \
   3422 				  (TYPE_ARG_TYPES (TREE_TYPE (NODE))))))
   3423 
   3424 /* Nonzero for a DECL means that this member is a non-static member.  */
   3425 #define DECL_NONSTATIC_MEMBER_P(NODE)		\
   3426   (DECL_OBJECT_MEMBER_FUNCTION_P (NODE)	\
   3427    || TREE_CODE (NODE) == FIELD_DECL)
   3428 
   3429 /* Nonzero for a FIELD_DECL means that this member object type
   3430    is mutable.  */
   3431 #define DECL_MUTABLE_P(NODE) (DECL_LANG_FLAG_0 (FIELD_DECL_CHECK (NODE)))
   3432 
   3433 /* Nonzero for _DECL means that this constructor or conversion function is
   3434    non-converting.  */
   3435 #define DECL_NONCONVERTING_P(NODE) \
   3436   (LANG_DECL_FN_CHECK (NODE)->nonconverting)
   3437 
   3438 /* Nonzero for FUNCTION_DECL means that this member function is a pure
   3439    virtual function.  */
   3440 #define DECL_PURE_VIRTUAL_P(NODE) \
   3441   (LANG_DECL_FN_CHECK (NODE)->pure_virtual)
   3442 
   3443 /* Nonzero for FUNCTION_DECL means that this member function (either
   3444    a constructor or a conversion function) has an explicit specifier
   3445    with a value-dependent expression.  */
   3446 #define DECL_HAS_DEPENDENT_EXPLICIT_SPEC_P(NODE) \
   3447   (LANG_DECL_FN_CHECK (NODE)->has_dependent_explicit_spec_p)
   3448 
   3449 /* Nonzero for a defaulted FUNCTION_DECL for which we haven't decided yet if
   3450    it's deleted; we will decide in synthesize_method.  */
   3451 #define DECL_MAYBE_DELETED(NODE) \
   3452   (LANG_DECL_FN_CHECK (NODE)->maybe_deleted)
   3453 
   3454 /* Nonzero for FUNCTION_DECL means that this function's body has been
   3455    checked for immediate-escalating expressions and maybe promoted.  It
   3456    does *not* mean the function is consteval.  It must not be set in
   3457    a function that was marked consteval by the user, so that we can
   3458    distinguish between explicitly consteval functions and promoted consteval
   3459    functions.  */
   3460 #define DECL_ESCALATION_CHECKED_P(NODE) (LANG_DECL_FN_CHECK (NODE)->escalated_p)
   3461 
   3462 /* True (in a FUNCTION_DECL) if NODE is a virtual function that is an
   3463    invalid overrider for a function from a base class.  Once we have
   3464    complained about an invalid overrider we avoid complaining about it
   3465    again.  */
   3466 #define DECL_INVALID_OVERRIDER_P(NODE) \
   3467   (DECL_LANG_FLAG_4 (NODE))
   3468 
   3469 /* True (in a FUNCTION_DECL) if NODE is a function declared with
   3470    an override virt-specifier */
   3471 #define DECL_OVERRIDE_P(NODE) (TREE_LANG_FLAG_0 (NODE))
   3472 
   3473 /* The thunks associated with NODE, a FUNCTION_DECL.  */
   3474 #define DECL_THUNKS(NODE) \
   3475   (DECL_VIRTUAL_P (NODE) ? LANG_DECL_FN_CHECK (NODE)->context : NULL_TREE)
   3476 
   3477 /* Set DECL_THUNKS.  */
   3478 #define SET_DECL_THUNKS(NODE,THUNKS) \
   3479   (LANG_DECL_FN_CHECK (NODE)->context = (THUNKS))
   3480 
   3481 /* If NODE, a FUNCTION_DECL, is a C++11 inheriting constructor, then this
   3482    is the constructor it inherits from.  */
   3483 #define DECL_INHERITED_CTOR(NODE) \
   3484   (DECL_DECLARES_FUNCTION_P (NODE) && DECL_CONSTRUCTOR_P (NODE) \
   3485    ? LANG_DECL_FN_CHECK (NODE)->context : NULL_TREE)
   3486 
   3487 /* And this is the base that constructor comes from.  */
   3488 #define DECL_INHERITED_CTOR_BASE(NODE)			\
   3489   (DECL_INHERITED_CTOR (NODE)				\
   3490    ? DECL_CONTEXT (flag_new_inheriting_ctors		\
   3491 		   ? strip_inheriting_ctors (NODE)	\
   3492 		   : DECL_INHERITED_CTOR (NODE))	\
   3493    : NULL_TREE)
   3494 
   3495 /* Set the inherited base.  */
   3496 #define SET_DECL_INHERITED_CTOR(NODE,INH) \
   3497   (LANG_DECL_FN_CHECK (NODE)->context = (INH))
   3498 
   3499 /* Nonzero if NODE is a thunk, rather than an ordinary function.  */
   3500 #define DECL_THUNK_P(NODE)			\
   3501   (TREE_CODE (NODE) == FUNCTION_DECL		\
   3502    && DECL_LANG_SPECIFIC (NODE)			\
   3503    && LANG_DECL_FN_CHECK (NODE)->thunk_p)
   3504 
   3505 /* Set DECL_THUNK_P for node.  */
   3506 #define SET_DECL_THUNK_P(NODE, THIS_ADJUSTING)			\
   3507   (LANG_DECL_FN_CHECK (NODE)->thunk_p = 1,			\
   3508    LANG_DECL_FN_CHECK (NODE)->this_thunk_p = (THIS_ADJUSTING))
   3509 
   3510 /* Nonzero if NODE is a this pointer adjusting thunk.  */
   3511 #define DECL_THIS_THUNK_P(NODE)			\
   3512   (DECL_THUNK_P (NODE) && LANG_DECL_FN_CHECK (NODE)->this_thunk_p)
   3513 
   3514 /* Nonzero if NODE is a result pointer adjusting thunk.  */
   3515 #define DECL_RESULT_THUNK_P(NODE)			\
   3516   (DECL_THUNK_P (NODE) && !LANG_DECL_FN_CHECK (NODE)->this_thunk_p)
   3517 
   3518 /* Nonzero if NODE is a FUNCTION_DECL, but not a thunk.  */
   3519 #define DECL_NON_THUNK_FUNCTION_P(NODE)				\
   3520   (TREE_CODE (NODE) == FUNCTION_DECL && !DECL_THUNK_P (NODE))
   3521 
   3522 /* Nonzero if NODE is `extern "C"'.  */
   3523 #define DECL_EXTERN_C_P(NODE) \
   3524   (DECL_LANGUAGE (NODE) == lang_c)
   3525 
   3526 /* Nonzero if NODE is an `extern "C"' function.  */
   3527 #define DECL_EXTERN_C_FUNCTION_P(NODE) \
   3528   (DECL_NON_THUNK_FUNCTION_P (NODE) && DECL_EXTERN_C_P (NODE))
   3529 
   3530 /* Non-zero if this variable is declared `constinit' specifier.  */
   3531 #define DECL_DECLARED_CONSTINIT_P(NODE)		\
   3532   (DECL_LANG_FLAG_7 (VAR_DECL_CHECK (NODE)))
   3533 
   3534 /* True if DECL is declared 'constexpr'.  */
   3535 #define DECL_DECLARED_CONSTEXPR_P(DECL) \
   3536   DECL_LANG_FLAG_8 (VAR_OR_FUNCTION_DECL_CHECK (STRIP_TEMPLATE (DECL)))
   3537 
   3538 /* True if FNDECL is an immediate function.  */
   3539 #define DECL_IMMEDIATE_FUNCTION_P(NODE) \
   3540   (DECL_LANG_SPECIFIC (FUNCTION_DECL_CHECK (STRIP_TEMPLATE (NODE)))	\
   3541    ? LANG_DECL_FN_CHECK (NODE)->immediate_fn_p				\
   3542    : false)
   3543 #define SET_DECL_IMMEDIATE_FUNCTION_P(NODE) \
   3544   (retrofit_lang_decl (FUNCTION_DECL_CHECK (NODE)),			\
   3545    LANG_DECL_FN_CHECK (NODE)->immediate_fn_p = true)
   3546 
   3547 // True if NODE was declared as 'concept'.  The flag implies that the
   3548 // declaration is constexpr, that the declaration cannot be specialized or
   3549 // refined, and that the result type must be convertible to bool.
   3550 #define DECL_DECLARED_CONCEPT_P(NODE) \
   3551   (DECL_LANG_SPECIFIC (NODE)->u.base.concept_p)
   3552 
   3553 /* Nonzero if this DECL is the __PRETTY_FUNCTION__ variable in a
   3554    template function.  */
   3555 #define DECL_PRETTY_FUNCTION_P(NODE) \
   3556   (DECL_NAME (NODE) \
   3557    && id_equal (DECL_NAME (NODE), "__PRETTY_FUNCTION__"))
   3558 
   3559 /* For a DECL, true if it is __func__ or similar.  */
   3560 #define DECL_FNAME_P(NODE)					\
   3561   (VAR_P (NODE) && DECL_NAME (NODE) && DECL_ARTIFICIAL (NODE)	\
   3562    && DECL_HAS_VALUE_EXPR_P (NODE)				\
   3563    && (id_equal (DECL_NAME (NODE), "__PRETTY_FUNCTION__")	\
   3564        || id_equal (DECL_NAME (NODE), "__FUNCTION__")		\
   3565        || id_equal (DECL_NAME (NODE), "__func__")))
   3566 
   3567 /* Nonzero if the variable was declared to be thread-local.
   3568    We need a special C++ version of this test because the middle-end
   3569    DECL_THREAD_LOCAL_P uses the symtab, so we can't use it for
   3570    templates.  */
   3571 #define CP_DECL_THREAD_LOCAL_P(NODE) \
   3572   (TREE_LANG_FLAG_0 (VAR_DECL_CHECK (NODE)))
   3573 
   3574 /* The _TYPE context in which this _DECL appears.  This field holds the
   3575    class where a virtual function instance is actually defined.  */
   3576 #define DECL_CLASS_CONTEXT(NODE) \
   3577   (DECL_CLASS_SCOPE_P (NODE) ? DECL_CONTEXT (NODE) : NULL_TREE)
   3578 
   3579 /* For a non-member friend function, the class (if any) in which this
   3580    friend was defined.  For example, given:
   3581 
   3582      struct S { friend void f () { ... } };
   3583 
   3584    the DECL_FRIEND_CONTEXT for `f' will be `S'.  */
   3585 #define DECL_FRIEND_CONTEXT(NODE)				\
   3586   ((DECL_DECLARES_FUNCTION_P (NODE) && !DECL_VIRTUAL_P (NODE)	\
   3587     && !DECL_CONSTRUCTOR_P (NODE)				\
   3588     && (cxx_dialect < cxx23 || !deduction_guide_p (NODE)))	\
   3589    ? LANG_DECL_FN_CHECK (NODE)->context				\
   3590    : NULL_TREE)
   3591 
   3592 /* Set the DECL_FRIEND_CONTEXT for NODE to CONTEXT.  */
   3593 #define SET_DECL_FRIEND_CONTEXT(NODE, CONTEXT) \
   3594   (LANG_DECL_FN_CHECK (NODE)->context = (CONTEXT))
   3595 
   3596 #define CP_DECL_CONTEXT(NODE) \
   3597   (!DECL_FILE_SCOPE_P (NODE) ? DECL_CONTEXT (NODE) : global_namespace)
   3598 #define CP_TYPE_CONTEXT(NODE) \
   3599   (!TYPE_FILE_SCOPE_P (NODE) ? TYPE_CONTEXT (NODE) : global_namespace)
   3600 #define FROB_CONTEXT(NODE) \
   3601   ((NODE) == global_namespace ? DECL_CONTEXT (NODE) : (NODE))
   3602 
   3603 /* 1 iff NODE has namespace scope, including the global namespace.  */
   3604 #define DECL_NAMESPACE_SCOPE_P(NODE)				\
   3605   (!DECL_TEMPLATE_PARM_P (NODE)					\
   3606    && TREE_CODE (CP_DECL_CONTEXT (NODE)) == NAMESPACE_DECL)
   3607 
   3608 #define TYPE_NAMESPACE_SCOPE_P(NODE) \
   3609   (TREE_CODE (CP_TYPE_CONTEXT (NODE)) == NAMESPACE_DECL)
   3610 
   3611 #define NAMESPACE_SCOPE_P(NODE) \
   3612   ((DECL_P (NODE) && DECL_NAMESPACE_SCOPE_P (NODE)) \
   3613    || (TYPE_P (NODE) && TYPE_NAMESPACE_SCOPE_P (NODE)))
   3614 
   3615 /* 1 iff NODE is a class member.  */
   3616 #define DECL_CLASS_SCOPE_P(NODE) \
   3617   (DECL_CONTEXT (NODE) && TYPE_P (DECL_CONTEXT (NODE)))
   3618 
   3619 #define TYPE_CLASS_SCOPE_P(NODE) \
   3620   (TYPE_CONTEXT (NODE) && TYPE_P (TYPE_CONTEXT (NODE)))
   3621 
   3622 /* 1 iff NODE is function-local.  */
   3623 #define DECL_FUNCTION_SCOPE_P(NODE) \
   3624   (DECL_CONTEXT (NODE) \
   3625    && TREE_CODE (DECL_CONTEXT (NODE)) == FUNCTION_DECL)
   3626 
   3627 #define TYPE_FUNCTION_SCOPE_P(NODE) \
   3628   (TYPE_CONTEXT (NODE) && TREE_CODE (TYPE_CONTEXT (NODE)) == FUNCTION_DECL)
   3629 
   3630 /* 1 iff VAR_DECL node NODE is a type-info decl.  This flag is set for
   3631    both the primary typeinfo object and the associated NTBS name.  */
   3632 #define DECL_TINFO_P(NODE)			\
   3633   TREE_LANG_FLAG_4 (TREE_CHECK2 (NODE,VAR_DECL,TYPE_DECL))
   3634 
   3635 /* true iff VAR_DECL node NODE is a NTTP object decl.  */
   3636 #define DECL_NTTP_OBJECT_P(NODE)			\
   3637   TREE_LANG_FLAG_5 (TREE_CHECK (NODE,VAR_DECL))
   3638 
   3639 /* 1 iff VAR_DECL node NODE is virtual table or VTT.  We forward to
   3640    DECL_VIRTUAL_P from the common code, as that has the semantics we
   3641    need.  But we want a more descriptive name.  */
   3642 #define DECL_VTABLE_OR_VTT_P(NODE) DECL_VIRTUAL_P (VAR_DECL_CHECK (NODE))
   3643 
   3644 /* 1 iff a _DECL for a template parameter came from
   3645    synthesize_implicit_template_parm.  */
   3646 #define DECL_IMPLICIT_TEMPLATE_PARM_P(NODE) \
   3647   DECL_VIRTUAL_P (DECL_TEMPLATE_PARM_CHECK (NODE))
   3648 
   3649 /* 1 iff FUNCTION_TYPE or METHOD_TYPE has a ref-qualifier (either & or &&). */
   3650 #define FUNCTION_REF_QUALIFIED(NODE) \
   3651   TREE_LANG_FLAG_4 (FUNC_OR_METHOD_CHECK (NODE))
   3652 
   3653 /* 1 iff FUNCTION_TYPE or METHOD_TYPE has &&-ref-qualifier.  */
   3654 #define FUNCTION_RVALUE_QUALIFIED(NODE) \
   3655   TREE_LANG_FLAG_5 (FUNC_OR_METHOD_CHECK (NODE))
   3656 
   3657 /* 1 iff NODE is function-local, but for types.  */
   3658 #define LOCAL_CLASS_P(NODE)				\
   3659   (decl_function_context (TYPE_MAIN_DECL (NODE)) != NULL_TREE)
   3660 
   3661 /* The nesting depth of namespace, class or function.  Makes is_ancestor much
   3662    simpler.  Only 8 bits available.  */
   3663 #define SCOPE_DEPTH(NODE) \
   3664   (NAMESPACE_DECL_CHECK (NODE)->base.u.bits.address_space)
   3665 
   3666 /* Whether the namepace is an inline namespace.  */
   3667 #define DECL_NAMESPACE_INLINE_P(NODE) \
   3668   TREE_LANG_FLAG_0 (NAMESPACE_DECL_CHECK (NODE))
   3669 
   3670 /* In a NAMESPACE_DECL, a vector of inline namespaces.  */
   3671 #define DECL_NAMESPACE_INLINEES(NODE) \
   3672    (LANG_DECL_NS_CHECK (NODE)->inlinees)
   3673 
   3674 /* Pointer to hash_map from IDENTIFIERS to DECLS  */
   3675 #define DECL_NAMESPACE_BINDINGS(NODE) \
   3676    (LANG_DECL_NS_CHECK (NODE)->bindings)
   3677 
   3678 /* In a NAMESPACE_DECL, points to the original namespace if this is
   3679    a namespace alias.  */
   3680 #define DECL_NAMESPACE_ALIAS(NODE) \
   3681 	DECL_ABSTRACT_ORIGIN (NAMESPACE_DECL_CHECK (NODE))
   3682 #define ORIGINAL_NAMESPACE(NODE)  \
   3683   (DECL_NAMESPACE_ALIAS (NODE) ? DECL_NAMESPACE_ALIAS (NODE) : (NODE))
   3684 
   3685 /* Nonzero if NODE is the std namespace.  */
   3686 #define DECL_NAMESPACE_STD_P(NODE)			\
   3687   ((NODE) == std_node)
   3688 
   3689 /* In a TREE_LIST in an attribute list, indicates that the attribute
   3690    must be applied at instantiation time.  */
   3691 #define ATTR_IS_DEPENDENT(NODE) TREE_LANG_FLAG_0 (TREE_LIST_CHECK (NODE))
   3692 
   3693 /* In a TREE_LIST in the argument of attribute abi_tag, indicates that the tag
   3694    was inherited from a template parameter, not explicitly indicated.  */
   3695 #define ABI_TAG_IMPLICIT(NODE) TREE_LANG_FLAG_0 (TREE_LIST_CHECK (NODE))
   3696 
   3697 /* In a TREE_LIST for a parameter-declaration-list, indicates that all the
   3698    parameters in the list have declarators enclosed in ().  */
   3699 #define PARENTHESIZED_LIST_P(NODE) TREE_LANG_FLAG_0 (TREE_LIST_CHECK (NODE))
   3700 
   3701 /* Non zero if this is a using decl for a dependent scope. */
   3702 #define DECL_DEPENDENT_P(NODE) DECL_LANG_FLAG_0 (USING_DECL_CHECK (NODE))
   3703 
   3704 /* The scope named in a using decl.  */
   3705 #define USING_DECL_SCOPE(NODE) DECL_RESULT_FLD (USING_DECL_CHECK (NODE))
   3706 
   3707 /* The decls named by a using decl.  */
   3708 #define USING_DECL_DECLS(NODE) DECL_INITIAL (USING_DECL_CHECK (NODE))
   3709 
   3710 /* Non zero if the using decl refers to a dependent type.  */
   3711 #define USING_DECL_TYPENAME_P(NODE) DECL_LANG_FLAG_1 (USING_DECL_CHECK (NODE))
   3712 
   3713 /* True if member using decl NODE refers to a non-inherited NODE.  */
   3714 #define USING_DECL_UNRELATED_P(NODE) DECL_LANG_FLAG_2 (USING_DECL_CHECK (NODE))
   3715 
   3716 /* True iff the CONST_DECL is a class-scope clone from C++20 using enum,
   3717    created by handle_using_decl.  */
   3718 #define CONST_DECL_USING_P(NODE)			\
   3719   (TREE_CODE (NODE) == CONST_DECL			\
   3720    && TREE_TYPE (NODE)					\
   3721    && TREE_CODE (TREE_TYPE (NODE)) == ENUMERAL_TYPE	\
   3722    && DECL_CONTEXT (NODE) != TREE_TYPE (NODE))
   3723 
   3724 /* In a FUNCTION_DECL, this is nonzero if this function was defined in
   3725    the class definition.  We have saved away the text of the function,
   3726    but have not yet processed it.  */
   3727 #define DECL_PENDING_INLINE_P(NODE) \
   3728   (LANG_DECL_FN_CHECK (NODE)->pending_inline_p)
   3729 
   3730 /* If DECL_PENDING_INLINE_P holds, this is the saved text of the
   3731    function.  */
   3732 #define DECL_PENDING_INLINE_INFO(NODE) \
   3733   (LANG_DECL_FN_CHECK (NODE)->u.pending_inline_info)
   3734 
   3735 /* Nonzero for TYPE_DECL means that it was written 'using name = type'.  */
   3736 #define TYPE_DECL_ALIAS_P(NODE) \
   3737   DECL_LANG_FLAG_6 (TYPE_DECL_CHECK (NODE))
   3738 
   3739 /* Nonzero for a type which is an alias for another type; i.e, a type
   3740    which declaration was written 'using name-of-type =
   3741    another-type'.  */
   3742 #define TYPE_ALIAS_P(NODE)			\
   3743   (TYPE_P (NODE)				\
   3744    && TYPE_NAME (NODE)				\
   3745    && TREE_CODE (TYPE_NAME (NODE)) == TYPE_DECL	\
   3746    && TYPE_DECL_ALIAS_P (TYPE_NAME (NODE)))
   3747 
   3748 /* If non-NULL for a VAR_DECL, FUNCTION_DECL, TYPE_DECL, TEMPLATE_DECL,
   3749    or CONCEPT_DECL, the entity is either a template specialization (if
   3750    DECL_USE_TEMPLATE is nonzero) or the abstract instance of the
   3751    template itself.
   3752 
   3753    In either case, DECL_TEMPLATE_INFO is a TEMPLATE_INFO, whose
   3754    TI_TEMPLATE is the TEMPLATE_DECL of which this entity is a
   3755    specialization or abstract instance.  The TI_ARGS is the
   3756    template arguments used to specialize the template.
   3757 
   3758    Consider:
   3759 
   3760       template <typename T> struct S { friend void f(T) {} };
   3761 
   3762    In this case, S<int>::f is, from the point of view of the compiler,
   3763    an instantiation of a template -- but, from the point of view of
   3764    the language, each instantiation of S results in a wholly unrelated
   3765    global function f.  In this case, DECL_TEMPLATE_INFO for S<int>::f
   3766    will be non-NULL, but DECL_USE_TEMPLATE will be zero.
   3767 
   3768    In a friend declaration, TI_TEMPLATE can be an overload set, or
   3769    identifier.  */
   3770 #define DECL_TEMPLATE_INFO(NODE) \
   3771   (DECL_LANG_SPECIFIC (TEMPLATE_INFO_DECL_CHECK (NODE)) \
   3772    ->u.min.template_info)
   3773 
   3774 /* For a lambda capture proxy, its captured variable.  */
   3775 #define DECL_CAPTURED_VARIABLE(NODE) \
   3776   (LANG_DECL_MIN_CHECK (NODE)->access)
   3777 
   3778 /* For a VAR_DECL, indicates that the variable is actually a
   3779    non-static data member of anonymous union that has been promoted to
   3780    variable status.  */
   3781 #define DECL_ANON_UNION_VAR_P(NODE) \
   3782   (DECL_LANG_FLAG_4 (VAR_DECL_CHECK (NODE)))
   3783 
   3784 /* Template information for a RECORD_TYPE or UNION_TYPE.  */
   3785 #define CLASSTYPE_TEMPLATE_INFO(NODE) \
   3786   (TYPE_LANG_SLOT_1 (RECORD_OR_UNION_CHECK (NODE)))
   3787 
   3788 /* Template information for a template template parameter.  */
   3789 #define TEMPLATE_TEMPLATE_PARM_TEMPLATE_INFO(NODE) \
   3790   (TYPE_LANG_SLOT_1 (BOUND_TEMPLATE_TEMPLATE_PARM_TYPE_CHECK (NODE)))
   3791 
   3792 /* Template information for an ENUMERAL_, RECORD_, UNION_TYPE, or
   3793    BOUND_TEMPLATE_TEMPLATE_PARM type.  This ignores any alias
   3794    templateness of NODE.  It'd be nice if this could unconditionally
   3795    access the slot, rather than return NULL if given a
   3796    non-templatable type.  */
   3797 #define TYPE_TEMPLATE_INFO(NODE)					\
   3798   (TREE_CODE (NODE) == ENUMERAL_TYPE					\
   3799    || TREE_CODE (NODE) == BOUND_TEMPLATE_TEMPLATE_PARM			\
   3800    || RECORD_OR_UNION_TYPE_P (NODE)					\
   3801    ? TYPE_LANG_SLOT_1 (NODE) : NULL_TREE)
   3802 
   3803 /* Template information (if any) for an alias type.  */
   3804 #define TYPE_ALIAS_TEMPLATE_INFO(NODE)					\
   3805   (DECL_LANG_SPECIFIC (TYPE_NAME (NODE))				\
   3806    ? DECL_TEMPLATE_INFO (TYPE_NAME (NODE))				\
   3807    : NULL_TREE)
   3808 
   3809 /* If NODE is a type alias, this accessor returns the template info
   3810    for the alias template (if any).  Otherwise behave as
   3811    TYPE_TEMPLATE_INFO.  */
   3812 #define TYPE_TEMPLATE_INFO_MAYBE_ALIAS(NODE)				\
   3813   (typedef_variant_p (NODE)						\
   3814    ? TYPE_ALIAS_TEMPLATE_INFO (NODE)					\
   3815    : TYPE_TEMPLATE_INFO (NODE))
   3816 
   3817 /* Set the template information for a non-alias n ENUMERAL_, RECORD_,
   3818    or UNION_TYPE to VAL.  ALIAS's are dealt with separately.  */
   3819 #define SET_TYPE_TEMPLATE_INFO(NODE, VAL)				\
   3820   (TREE_CODE (NODE) == ENUMERAL_TYPE		\
   3821    || (CLASS_TYPE_P (NODE) && !TYPE_ALIAS_P (NODE))			\
   3822    ? (TYPE_LANG_SLOT_1 (NODE) = (VAL))					\
   3823    : (DECL_TEMPLATE_INFO (TYPE_NAME (NODE)) = (VAL)))			\
   3824 
   3825 #define TI_TEMPLATE(NODE) \
   3826   ((struct tree_template_info*)TEMPLATE_INFO_CHECK (NODE))->tmpl
   3827 #define TI_ARGS(NODE) \
   3828   ((struct tree_template_info*)TEMPLATE_INFO_CHECK (NODE))->args
   3829 #define TI_PENDING_TEMPLATE_FLAG(NODE) \
   3830   TREE_LANG_FLAG_1 (TEMPLATE_INFO_CHECK (NODE))
   3831 
   3832 /* For a class or variable template specialization, this contains the
   3833    TEMPLATE_INFO result of most_specialized_partial_spec, i.e. the selected
   3834    partial template specialization and arguments relative to it.  */
   3835 #define TI_PARTIAL_INFO(NODE) \
   3836   (gcc_checking_assert (PRIMARY_TEMPLATE_P (TI_TEMPLATE (NODE))), \
   3837    ((struct tree_template_info*)NODE)->partial)
   3838 
   3839 /* For a given TREE_VEC containing a template argument list,
   3840    this property contains the number of arguments that are not
   3841    defaulted.  */
   3842 #define NON_DEFAULT_TEMPLATE_ARGS_COUNT(NODE) \
   3843   TREE_CHAIN (TREE_VEC_CHECK (NODE))
   3844 
   3845 /* Below are the setter and getter of the NON_DEFAULT_TEMPLATE_ARGS_COUNT
   3846    property.  */
   3847 #define SET_NON_DEFAULT_TEMPLATE_ARGS_COUNT(NODE, INT_VALUE) \
   3848   NON_DEFAULT_TEMPLATE_ARGS_COUNT(NODE) = build_int_cst (NULL_TREE, INT_VALUE)
   3849 #if CHECKING_P
   3850 #define GET_NON_DEFAULT_TEMPLATE_ARGS_COUNT(NODE) \
   3851     int_cst_value (NON_DEFAULT_TEMPLATE_ARGS_COUNT (NODE))
   3852 #else
   3853 #define GET_NON_DEFAULT_TEMPLATE_ARGS_COUNT(NODE) \
   3854   NON_DEFAULT_TEMPLATE_ARGS_COUNT (NODE) \
   3855   ? int_cst_value (NON_DEFAULT_TEMPLATE_ARGS_COUNT (NODE)) \
   3856   : TREE_VEC_LENGTH (INNERMOST_TEMPLATE_ARGS (NODE))
   3857 #endif
   3858 
   3859 /* True iff NODE represents the template args for a type-constraint,
   3860    in which case the first one represents the constrained type.
   3861    Currently only set during mangling.  */
   3862 #define TEMPLATE_ARGS_TYPE_CONSTRAINT_P(NODE) \
   3863   TREE_PRIVATE (TREE_VEC_CHECK (NODE))
   3864 
   3865 /* The list of access checks that were deferred during parsing
   3866    which need to be performed at template instantiation time.
   3867 
   3868    FIXME this should be associated with the TEMPLATE_DECL, not the
   3869    TEMPLATE_INFO.  */
   3870 #define TI_DEFERRED_ACCESS_CHECKS(NODE) \
   3871   ((struct tree_template_info*)TEMPLATE_INFO_CHECK \
   3872      (NODE))->deferred_access_checks
   3873 
   3874 /* We use TREE_VECs to hold template arguments.  If there is only one
   3875    level of template arguments, then the TREE_VEC contains the
   3876    arguments directly.  If there is more than one level of template
   3877    arguments, then each entry in the TREE_VEC is itself a TREE_VEC,
   3878    containing the template arguments for a single level.  The first
   3879    entry in the outer TREE_VEC is the outermost level of template
   3880    parameters; the last is the innermost.
   3881 
   3882    It is incorrect to ever form a template argument vector containing
   3883    only one level of arguments, but which is a TREE_VEC containing as
   3884    its only entry the TREE_VEC for that level.
   3885 
   3886    For each TREE_VEC containing the template arguments for a single
   3887    level, it's possible to get or set the number of non defaulted
   3888    template arguments by using the accessor macros
   3889    GET_NON_DEFAULT_TEMPLATE_ARGS_COUNT or
   3890    SET_NON_DEFAULT_TEMPLATE_ARGS_COUNT.  */
   3891 
   3892 /* Nonzero if the template arguments is actually a vector of vectors,
   3893    rather than just a vector.  */
   3894 #define TMPL_ARGS_HAVE_MULTIPLE_LEVELS(NODE)		     \
   3895   (NODE && TREE_VEC_LENGTH (NODE) && TREE_VEC_ELT (NODE, 0)  \
   3896    && TREE_CODE (TREE_VEC_ELT (NODE, 0)) == TREE_VEC)
   3897 
   3898 /* The depth of a template argument vector.  When called directly by
   3899    the parser, we use a TREE_LIST rather than a TREE_VEC to represent
   3900    template arguments.  In that case, there is only one level of template
   3901    arguments.  We may even see NULL_TREE if there are 0 levels of
   3902    template arguments, as in cp_parser_requires_expression.   */
   3903 #define TMPL_ARGS_DEPTH(NODE)						\
   3904   ((NODE) == NULL_TREE ? 0						\
   3905    : TMPL_ARGS_HAVE_MULTIPLE_LEVELS (NODE) ? TREE_VEC_LENGTH (NODE)	\
   3906    : 1)
   3907 
   3908 /* The LEVELth level of the template ARGS.  The outermost level of
   3909    args is level 1, not level 0.  */
   3910 #define TMPL_ARGS_LEVEL(ARGS, LEVEL)		\
   3911   (TMPL_ARGS_HAVE_MULTIPLE_LEVELS (ARGS)	\
   3912    ? TREE_VEC_ELT (ARGS, (LEVEL) - 1)		\
   3913    : (gcc_checking_assert ((LEVEL) == 1), (ARGS)))
   3914 
   3915 /* Set the LEVELth level of the template ARGS to VAL.  This macro does
   3916    not work with single-level argument vectors.  */
   3917 #define SET_TMPL_ARGS_LEVEL(ARGS, LEVEL, VAL)	\
   3918   (TREE_VEC_ELT (ARGS, (LEVEL) - 1) = (VAL))
   3919 
   3920 /* Accesses the IDXth parameter in the LEVELth level of the ARGS.  */
   3921 #define TMPL_ARG(ARGS, LEVEL, IDX)				\
   3922   (TREE_VEC_ELT (TMPL_ARGS_LEVEL (ARGS, LEVEL), IDX))
   3923 
   3924 /* Given a single level of template arguments in NODE, return the
   3925    number of arguments.  */
   3926 #define NUM_TMPL_ARGS(NODE)				\
   3927   (TREE_VEC_LENGTH (NODE))
   3928 
   3929 /* Returns the innermost level of template arguments in ARGS.  */
   3930 #define INNERMOST_TEMPLATE_ARGS(NODE) \
   3931   (get_innermost_template_args ((NODE), 1))
   3932 
   3933 /* The number of levels of template parameters given by NODE.  */
   3934 #define TMPL_PARMS_DEPTH(NODE) \
   3935   ((HOST_WIDE_INT) TREE_INT_CST_LOW (TREE_PURPOSE (NODE)))
   3936 
   3937 /* The TEMPLATE_DECL instantiated or specialized by NODE.  This
   3938    TEMPLATE_DECL will be the immediate parent, not the most general
   3939    template.  For example, in:
   3940 
   3941       template <class T> struct S { template <class U> void f(U); }
   3942 
   3943    the FUNCTION_DECL for S<int>::f<double> will have, as its
   3944    DECL_TI_TEMPLATE, `template <class U> S<int>::f<U>'.
   3945 
   3946    As a special case, for a member friend template of a template
   3947    class, this value will not be a TEMPLATE_DECL, but rather an
   3948    IDENTIFIER_NODE or OVERLOAD indicating the name of the template and
   3949    any explicit template arguments provided.  For example, in:
   3950 
   3951      template <class T> struct S { friend void f<int>(int, double); }
   3952 
   3953    the DECL_TI_TEMPLATE will be an IDENTIFIER_NODE for `f' and the
   3954    DECL_TI_ARGS will be {int}.
   3955 
   3956    For a FIELD_DECL with a non-static data member initializer, this value
   3957    is the FIELD_DECL it was instantiated from.  */
   3958 #define DECL_TI_TEMPLATE(NODE)      TI_TEMPLATE (DECL_TEMPLATE_INFO (NODE))
   3959 
   3960 /* The template arguments used to obtain this decl from the most
   3961    general form of DECL_TI_TEMPLATE.  For the example given for
   3962    DECL_TI_TEMPLATE, the DECL_TI_ARGS will be {int, double}.  These
   3963    are always the full set of arguments required to instantiate this
   3964    declaration from the most general template specialized here.  */
   3965 #define DECL_TI_ARGS(NODE)	    TI_ARGS (DECL_TEMPLATE_INFO (NODE))
   3966 
   3967 /* The TEMPLATE_DECL associated with NODE, a class type.  Even if NODE
   3968    will be generated from a partial specialization, the TEMPLATE_DECL
   3969    referred to here will be the original template.  For example,
   3970    given:
   3971 
   3972       template <typename T> struct S {};
   3973       template <typename T> struct S<T*> {};
   3974 
   3975    the CLASSTYPE_TI_TEMPLATE for S<int*> will be S, not the S<T*>.
   3976 
   3977    For a member class template, CLASSTYPE_TI_TEMPLATE always refers to the
   3978    partial instantiation rather than the primary template.  CLASSTYPE_TI_ARGS
   3979    are for the primary template if the partial instantiation isn't
   3980    specialized, or for the explicit specialization if it is, e.g.
   3981 
   3982       template <class T> class C { template <class U> class D; }
   3983       template <> template <class U> class C<int>::D;  */
   3984 #define CLASSTYPE_TI_TEMPLATE(NODE) TI_TEMPLATE (CLASSTYPE_TEMPLATE_INFO (NODE))
   3985 #define CLASSTYPE_TI_ARGS(NODE)     TI_ARGS (CLASSTYPE_TEMPLATE_INFO (NODE))
   3986 
   3987 /* For a template instantiation TYPE, returns the TYPE corresponding
   3988    to the primary template.  Otherwise returns TYPE itself.  */
   3989 #define CLASSTYPE_PRIMARY_TEMPLATE_TYPE(TYPE)				\
   3990   ((CLASSTYPE_USE_TEMPLATE ((TYPE))					\
   3991     && !CLASSTYPE_TEMPLATE_SPECIALIZATION ((TYPE)))			\
   3992    ? TREE_TYPE (DECL_TEMPLATE_RESULT (DECL_PRIMARY_TEMPLATE		\
   3993 				      (CLASSTYPE_TI_TEMPLATE ((TYPE))))) \
   3994    : (TYPE))
   3995 
   3996 /* Like CLASS_TI_TEMPLATE, but also works for ENUMERAL_TYPEs.  */
   3997 #define TYPE_TI_TEMPLATE(NODE)			\
   3998   (TI_TEMPLATE (TYPE_TEMPLATE_INFO (NODE)))
   3999 
   4000 /* Like DECL_TI_ARGS, but for an ENUMERAL_, RECORD_, or UNION_TYPE.  */
   4001 #define TYPE_TI_ARGS(NODE)			\
   4002   (TI_ARGS (TYPE_TEMPLATE_INFO (NODE)))
   4003 
   4004 #define INNERMOST_TEMPLATE_PARMS(NODE)  TREE_VALUE (NODE)
   4005 
   4006 /* Nonzero if NODE (a TEMPLATE_DECL) is a member template, in the
   4007    sense of [temp.mem].  */
   4008 #define DECL_MEMBER_TEMPLATE_P(NODE) \
   4009   (DECL_LANG_FLAG_1 (TEMPLATE_DECL_CHECK (NODE)))
   4010 
   4011 /* Nonzero if the NODE corresponds to the template parameters for a
   4012    member template, whose inline definition is being processed after
   4013    the class definition is complete.  */
   4014 #define TEMPLATE_PARMS_FOR_INLINE(NODE) TREE_LANG_FLAG_1 (NODE)
   4015 
   4016 /* Determine if a declaration (PARM_DECL or FIELD_DECL) is a pack.  */
   4017 #define DECL_PACK_P(NODE) \
   4018   (DECL_P (NODE) && PACK_EXPANSION_P (TREE_TYPE (NODE)))
   4019 
   4020 /* Determines if NODE is an expansion of one or more parameter packs,
   4021    e.g., a TYPE_PACK_EXPANSION or EXPR_PACK_EXPANSION.  */
   4022 #define PACK_EXPANSION_P(NODE)                 \
   4023   (TREE_CODE (NODE) == TYPE_PACK_EXPANSION     \
   4024    || TREE_CODE (NODE) == EXPR_PACK_EXPANSION)
   4025 
   4026 #define PACK_EXPANSION_CHECK(NODE) \
   4027   TREE_CHECK2 (NODE, TYPE_PACK_EXPANSION, EXPR_PACK_EXPANSION)
   4028 
   4029 /* Extracts the type or expression pattern from a TYPE_PACK_EXPANSION or
   4030    EXPR_PACK_EXPANSION.  */
   4031 #define PACK_EXPANSION_PATTERN(NODE)                            \
   4032   (TREE_CODE (PACK_EXPANSION_CHECK (NODE)) == TYPE_PACK_EXPANSION \
   4033    ? TREE_TYPE (NODE) : TREE_OPERAND (NODE, 0))
   4034 
   4035 /* The list of parameter packs used in the PACK_EXPANSION_* node. The
   4036    TREE_VALUE of each TREE_LIST contains the parameter packs.  */
   4037 #define PACK_EXPANSION_PARAMETER_PACKS(NODE)		\
   4038   *(TREE_CODE (PACK_EXPANSION_CHECK (NODE)) == EXPR_PACK_EXPANSION \
   4039     ? &TREE_OPERAND (NODE, 1)				\
   4040     : &TYPE_MIN_VALUE_RAW (TYPE_PACK_EXPANSION_CHECK (NODE)))
   4041 
   4042 /* Any additional template args to be applied when substituting into
   4043    the pattern, set by tsubst_pack_expansion for partial instantiations.
   4044    If this is a TREE_LIST, the TREE_VALUE of the first element is the
   4045    usual template argument TREE_VEC, and the TREE_PURPOSE of later elements
   4046    are enclosing functions that provided function parameter packs we'll need
   4047    to map appropriately.  */
   4048 #define PACK_EXPANSION_EXTRA_ARGS(NODE)		\
   4049   *(TREE_CODE (PACK_EXPANSION_CHECK (NODE)) == TYPE_PACK_EXPANSION \
   4050     ? &TYPE_MAX_VALUE_RAW (NODE)			\
   4051     : &TREE_OPERAND ((NODE), 2))
   4052 
   4053 /* True iff this pack expansion is within a function context.  */
   4054 #define PACK_EXPANSION_LOCAL_P(NODE) \
   4055   TREE_LANG_FLAG_0 (PACK_EXPANSION_CHECK (NODE))
   4056 
   4057 /* True iff this pack expansion is for sizeof....  */
   4058 #define PACK_EXPANSION_SIZEOF_P(NODE) \
   4059   TREE_LANG_FLAG_1 (PACK_EXPANSION_CHECK (NODE))
   4060 
   4061 /* True iff this pack expansion is for auto... in lambda init-capture.  */
   4062 #define PACK_EXPANSION_AUTO_P(NODE) \
   4063   TREE_LANG_FLAG_2 (PACK_EXPANSION_CHECK (NODE))
   4064 
   4065 /* True if we must use PACK_EXPANSION_EXTRA_ARGS and avoid partial
   4066    instantiation of this pack expansion.  */
   4067 #define PACK_EXPANSION_FORCE_EXTRA_ARGS_P(NODE) \
   4068   TREE_LANG_FLAG_3 (PACK_EXPANSION_CHECK (NODE))
   4069 
   4070 /* True iff the wildcard can match a template parameter pack.  */
   4071 #define WILDCARD_PACK_P(NODE) TREE_LANG_FLAG_0 (NODE)
   4072 
   4073 /* Determine if this is an argument pack.  */
   4074 #define ARGUMENT_PACK_P(NODE)                          \
   4075   (TREE_CODE (NODE) == TYPE_ARGUMENT_PACK              \
   4076    || TREE_CODE (NODE) == NONTYPE_ARGUMENT_PACK)
   4077 
   4078 #define ARGUMENT_PACK_CHECK(NODE) \
   4079   TREE_CHECK2 (NODE, TYPE_ARGUMENT_PACK, NONTYPE_ARGUMENT_PACK)
   4080 
   4081 /* The arguments stored in an argument pack. Arguments are stored in a
   4082    TREE_VEC, which may have length zero.  */
   4083 #define ARGUMENT_PACK_ARGS(NODE)                               \
   4084   (TREE_CODE (ARGUMENT_PACK_CHECK (NODE)) == TYPE_ARGUMENT_PACK \
   4085    ? TREE_TYPE (NODE) : TREE_OPERAND (NODE, 0))
   4086 
   4087 /* Whether the argument pack is "incomplete", meaning that more
   4088    arguments can still be deduced. Incomplete argument packs are only
   4089    used when the user has provided an explicit template argument list
   4090    for a variadic function template. Some of the explicit template
   4091    arguments will be placed into the beginning of the argument pack,
   4092    but additional arguments might still be deduced.  */
   4093 #define ARGUMENT_PACK_INCOMPLETE_P(NODE)        \
   4094   TREE_ADDRESSABLE (ARGUMENT_PACK_ARGS (NODE))
   4095 
   4096 /* When ARGUMENT_PACK_INCOMPLETE_P, stores the explicit template
   4097    arguments used to fill this pack.  */
   4098 #define ARGUMENT_PACK_EXPLICIT_ARGS(NODE)       \
   4099   TREE_TYPE (ARGUMENT_PACK_ARGS (NODE))
   4100 
   4101 /* In an ARGUMENT_PACK_SELECT, the argument pack from which an
   4102    argument will be selected.  */
   4103 #define ARGUMENT_PACK_SELECT_FROM_PACK(NODE)				\
   4104   (((struct tree_argument_pack_select *)ARGUMENT_PACK_SELECT_CHECK (NODE))->argument_pack)
   4105 
   4106 /* In an ARGUMENT_PACK_SELECT, the index of the argument we want to
   4107    select.  */
   4108 #define ARGUMENT_PACK_SELECT_INDEX(NODE)				\
   4109   (((struct tree_argument_pack_select *)ARGUMENT_PACK_SELECT_CHECK (NODE))->index)
   4110 
   4111 #define FOLD_EXPR_CHECK(NODE)						\
   4112   TREE_CHECK4 (NODE, UNARY_LEFT_FOLD_EXPR, UNARY_RIGHT_FOLD_EXPR,	\
   4113 	       BINARY_LEFT_FOLD_EXPR, BINARY_RIGHT_FOLD_EXPR)
   4114 
   4115 #define BINARY_FOLD_EXPR_CHECK(NODE) \
   4116   TREE_CHECK2 (NODE, BINARY_LEFT_FOLD_EXPR, BINARY_RIGHT_FOLD_EXPR)
   4117 
   4118 /* True if NODE is UNARY_FOLD_EXPR or a BINARY_FOLD_EXPR */
   4119 #define FOLD_EXPR_P(NODE)				\
   4120   (TREE_CODE (NODE) == UNARY_LEFT_FOLD_EXPR		\
   4121    || TREE_CODE (NODE) == UNARY_RIGHT_FOLD_EXPR		\
   4122    || TREE_CODE (NODE) == BINARY_LEFT_FOLD_EXPR		\
   4123    || TREE_CODE (NODE) == BINARY_RIGHT_FOLD_EXPR)
   4124 
   4125 /* True when NODE is a fold over a compound assignment operator. */
   4126 #define FOLD_EXPR_MODIFY_P(NODE) \
   4127   TREE_LANG_FLAG_0 (FOLD_EXPR_CHECK (NODE))
   4128 
   4129 /* An INTEGER_CST containing the tree code of the folded operator. */
   4130 #define FOLD_EXPR_OP_RAW(NODE) \
   4131   TREE_OPERAND (FOLD_EXPR_CHECK (NODE), 0)
   4132 
   4133 /* The tree code of the folded operator.  */
   4134 #define FOLD_EXPR_OP(NODE) \
   4135   ((enum tree_code) TREE_INT_CST_LOW (FOLD_EXPR_OP_RAW (NODE)))
   4136 
   4137 /* The expression containing an unexpanded parameter pack. */
   4138 #define FOLD_EXPR_PACK(NODE) \
   4139   TREE_OPERAND (FOLD_EXPR_CHECK (NODE), 1)
   4140 
   4141 /* In a binary fold expression, the argument with no unexpanded
   4142    parameter packs. */
   4143 #define FOLD_EXPR_INIT(NODE) \
   4144   TREE_OPERAND (BINARY_FOLD_EXPR_CHECK (NODE), 2)
   4145 
   4146 /* In a FUNCTION_DECL, the saved auto-return pattern.  */
   4147 #define DECL_SAVED_AUTO_RETURN_TYPE(NODE)		\
   4148   (LANG_DECL_FN_CHECK (FUNCTION_DECL_CHECK (NODE))	\
   4149    ->u.saved_auto_return_type)
   4150 
   4151 /* In a RETURN_EXPR, whether the expression refers to the address
   4152    of a local variable.  */
   4153 #define RETURN_EXPR_LOCAL_ADDR_P(NODE) \
   4154   TREE_LANG_FLAG_0 (RETURN_EXPR_CHECK (NODE))
   4155 
   4156 /* True if NODE is an implicit INDIRECT_REF from convert_from_reference.  */
   4157 #define REFERENCE_REF_P(NODE)				\
   4158   (INDIRECT_REF_P (NODE)				\
   4159    && TREE_TYPE (TREE_OPERAND (NODE, 0))		\
   4160    && TYPE_REF_P (TREE_TYPE (TREE_OPERAND ((NODE), 0))))
   4161 
   4162 /* Look through an implicit INDIRECT_REF from convert_from_reference.  */
   4163 #define STRIP_REFERENCE_REF(NODE)			\
   4164   (REFERENCE_REF_P (NODE) ? TREE_OPERAND (NODE, 0) : NODE)
   4165 
   4166 /* True iff this represents an lvalue being treated as an rvalue during return
   4167    or throw as per [class.copy.elision].  */
   4168 #define IMPLICIT_RVALUE_P(NODE) \
   4169   TREE_LANG_FLAG_3 (TREE_CHECK2 ((NODE), NON_LVALUE_EXPR, STATIC_CAST_EXPR))
   4170 
   4171 #define NEW_EXPR_USE_GLOBAL(NODE) \
   4172   TREE_LANG_FLAG_0 (NEW_EXPR_CHECK (NODE))
   4173 #define DELETE_EXPR_USE_GLOBAL(NODE) \
   4174   TREE_LANG_FLAG_0 (DELETE_EXPR_CHECK (NODE))
   4175 #define DELETE_EXPR_USE_VEC(NODE) \
   4176   TREE_LANG_FLAG_1 (DELETE_EXPR_CHECK (NODE))
   4177 
   4178 /* True iff this represents returning a potential named return value.  */
   4179 #define INIT_EXPR_NRV_P(NODE) \
   4180   TREE_LANG_FLAG_0 (INIT_EXPR_CHECK (NODE))
   4181 
   4182 #define CALL_OR_AGGR_INIT_CHECK(NODE) \
   4183   TREE_CHECK2 ((NODE), CALL_EXPR, AGGR_INIT_EXPR)
   4184 
   4185 /* In a CALL_EXPR appearing in a template, true if Koenig lookup
   4186    should be performed at instantiation time.  */
   4187 #define KOENIG_LOOKUP_P(NODE) TREE_LANG_FLAG_0 (CALL_EXPR_CHECK (NODE))
   4188 
   4189 /* True if the arguments to NODE should be evaluated in left-to-right
   4190    order regardless of PUSH_ARGS_REVERSED.  */
   4191 #define CALL_EXPR_ORDERED_ARGS(NODE) \
   4192   TREE_LANG_FLAG_3 (CALL_OR_AGGR_INIT_CHECK (NODE))
   4193 
   4194 /* True if the arguments to NODE should be evaluated in right-to-left
   4195    order regardless of PUSH_ARGS_REVERSED.  */
   4196 #define CALL_EXPR_REVERSE_ARGS(NODE) \
   4197   TREE_LANG_FLAG_5 (CALL_OR_AGGR_INIT_CHECK (NODE))
   4198 
   4199 /* True if CALL_EXPR was written as an operator expression, not a function
   4200    call.  */
   4201 #define CALL_EXPR_OPERATOR_SYNTAX(NODE) \
   4202   TREE_LANG_FLAG_6 (CALL_OR_AGGR_INIT_CHECK (NODE))
   4203 
   4204 /* A TREE_LIST containing the result of phase 1 name lookup of the operator
   4205    overloads that are pertinent to the dependent operator expression whose
   4206    type is NODE.  Each TREE_PURPOSE is an IDENTIFIER_NODE and TREE_VALUE is
   4207    the corresponding (possibly empty) lookup result.  The TREE_TYPE of the
   4208    first TREE_LIST node points back to NODE.  */
   4209 #define DEPENDENT_OPERATOR_TYPE_SAVED_LOOKUPS(NODE) \
   4210   TYPE_VALUES_RAW (DEPENDENT_OPERATOR_TYPE_CHECK (NODE))
   4211 
   4212 /* Guarded helper for the above accessor macro that takes a (templated)
   4213    operator expression instead of the type thereof.  */
   4214 inline tree
   4215 templated_operator_saved_lookups (tree t)
   4216 {
   4217   tree type = TREE_TYPE (EXPR_CHECK (t));
   4218   if (type && TREE_CODE (type) == DEPENDENT_OPERATOR_TYPE)
   4219     return DEPENDENT_OPERATOR_TYPE_SAVED_LOOKUPS (type);
   4220   else
   4221     return NULL_TREE;
   4222 }
   4223 
   4224 /* Indicates whether a string literal has been parenthesized. Such
   4225    usages are disallowed in certain circumstances.  */
   4226 
   4227 #define PAREN_STRING_LITERAL_P(NODE) \
   4228   TREE_LANG_FLAG_0 (STRING_CST_CHECK (NODE))
   4229 
   4230 /* Indicates whether a COMPONENT_REF or a SCOPE_REF has been parenthesized, an
   4231    INDIRECT_REF comes from parenthesizing a _DECL, or a PAREN_EXPR identifies a
   4232    parenthesized initializer relevant for decltype(auto).  Currently only set
   4233    some of the time in C++14 mode.  */
   4234 
   4235 #define REF_PARENTHESIZED_P(NODE) \
   4236   TREE_LANG_FLAG_2 (TREE_CHECK5 ((NODE), COMPONENT_REF, INDIRECT_REF, SCOPE_REF, VIEW_CONVERT_EXPR, PAREN_EXPR))
   4237 
   4238 /* Nonzero if this AGGR_INIT_EXPR provides for initialization via a
   4239    constructor call, rather than an ordinary function call.  */
   4240 #define AGGR_INIT_VIA_CTOR_P(NODE) \
   4241   TREE_LANG_FLAG_0 (AGGR_INIT_EXPR_CHECK (NODE))
   4242 
   4243 /* Nonzero if expanding this AGGR_INIT_EXPR should first zero-initialize
   4244    the object.  */
   4245 #define AGGR_INIT_ZERO_FIRST(NODE) \
   4246   TREE_LANG_FLAG_2 (AGGR_INIT_EXPR_CHECK (NODE))
   4247 
   4248 /* Nonzero means that the call is the jump from a thunk to the
   4249    thunked-to function.  */
   4250 #define AGGR_INIT_FROM_THUNK_P(NODE) \
   4251   (AGGR_INIT_EXPR_CHECK (NODE)->base.protected_flag)
   4252 
   4253 /* AGGR_INIT_EXPR accessors.  These are equivalent to the CALL_EXPR
   4254    accessors, except for AGGR_INIT_EXPR_SLOT (which takes the place of
   4255    CALL_EXPR_STATIC_CHAIN).  */
   4256 
   4257 #define AGGR_INIT_EXPR_FN(NODE) TREE_OPERAND (AGGR_INIT_EXPR_CHECK (NODE), 1)
   4258 #define AGGR_INIT_EXPR_SLOT(NODE) \
   4259   TREE_OPERAND (AGGR_INIT_EXPR_CHECK (NODE), 2)
   4260 #define AGGR_INIT_EXPR_ARG(NODE, I) \
   4261   TREE_OPERAND (AGGR_INIT_EXPR_CHECK (NODE), (I) + 3)
   4262 #define aggr_init_expr_nargs(NODE) (VL_EXP_OPERAND_LENGTH(NODE) - 3)
   4263 
   4264 /* AGGR_INIT_EXPR_ARGP returns a pointer to the argument vector for NODE.
   4265    We can't use &AGGR_INIT_EXPR_ARG (NODE, 0) because that will complain if
   4266    the argument count is zero when checking is enabled.  Instead, do
   4267    the pointer arithmetic to advance past the 3 fixed operands in a
   4268    AGGR_INIT_EXPR.  That produces a valid pointer to just past the end of
   4269    the operand array, even if it's not valid to dereference it.  */
   4270 #define AGGR_INIT_EXPR_ARGP(NODE) \
   4271   (&(TREE_OPERAND (AGGR_INIT_EXPR_CHECK (NODE), 0)) + 3)
   4272 
   4273 /* Abstract iterators for AGGR_INIT_EXPRs.  */
   4274 
   4275 /* Structure containing iterator state.  */
   4276 struct aggr_init_expr_arg_iterator {
   4277   tree t;	/* the aggr_init_expr */
   4278   int n;	/* argument count */
   4279   int i;	/* next argument index */
   4280 };
   4281 
   4282 /* Initialize the abstract argument list iterator object ITER with the
   4283    arguments from AGGR_INIT_EXPR node EXP.  */
   4284 inline void
   4285 init_aggr_init_expr_arg_iterator (tree exp,
   4286 				       aggr_init_expr_arg_iterator *iter)
   4287 {
   4288   iter->t = exp;
   4289   iter->n = aggr_init_expr_nargs (exp);
   4290   iter->i = 0;
   4291 }
   4292 
   4293 /* Return the next argument from abstract argument list iterator object ITER,
   4294    and advance its state.  Return NULL_TREE if there are no more arguments.  */
   4295 inline tree
   4296 next_aggr_init_expr_arg (aggr_init_expr_arg_iterator *iter)
   4297 {
   4298   tree result;
   4299   if (iter->i >= iter->n)
   4300     return NULL_TREE;
   4301   result = AGGR_INIT_EXPR_ARG (iter->t, iter->i);
   4302   iter->i++;
   4303   return result;
   4304 }
   4305 
   4306 /* Initialize the abstract argument list iterator object ITER, then advance
   4307    past and return the first argument.  Useful in for expressions, e.g.
   4308      for (arg = first_aggr_init_expr_arg (exp, &iter); arg;
   4309           arg = next_aggr_init_expr_arg (&iter))   */
   4310 inline tree
   4311 first_aggr_init_expr_arg (tree exp, aggr_init_expr_arg_iterator *iter)
   4312 {
   4313   init_aggr_init_expr_arg_iterator (exp, iter);
   4314   return next_aggr_init_expr_arg (iter);
   4315 }
   4316 
   4317 /* Test whether there are more arguments in abstract argument list iterator
   4318    ITER, without changing its state.  */
   4319 inline bool
   4320 more_aggr_init_expr_args_p (const aggr_init_expr_arg_iterator *iter)
   4321 {
   4322   return (iter->i < iter->n);
   4323 }
   4324 
   4325 /* Iterate through each argument ARG of AGGR_INIT_EXPR CALL, using variable
   4326    ITER (of type aggr_init_expr_arg_iterator) to hold the iteration state.  */
   4327 #define FOR_EACH_AGGR_INIT_EXPR_ARG(arg, iter, call)			\
   4328   for ((arg) = first_aggr_init_expr_arg ((call), &(iter)); (arg);	\
   4329        (arg) = next_aggr_init_expr_arg (&(iter)))
   4330 
   4331 /* We have an expression tree T that represents a call, either CALL_EXPR
   4332    or AGGR_INIT_EXPR.  Return a reference to the Nth argument.  */
   4333 
   4334 inline tree&
   4335 get_nth_callarg (tree t, int n)
   4336 {
   4337   switch (TREE_CODE (t))
   4338     {
   4339     case CALL_EXPR:
   4340       return CALL_EXPR_ARG (t, n);
   4341 
   4342     case AGGR_INIT_EXPR:
   4343       return AGGR_INIT_EXPR_ARG (t, n);
   4344 
   4345     default:
   4346       gcc_unreachable ();
   4347     }
   4348 }
   4349 
   4350 /* VEC_INIT_EXPR accessors.  */
   4351 #define VEC_INIT_EXPR_SLOT(NODE) TREE_OPERAND (VEC_INIT_EXPR_CHECK (NODE), 0)
   4352 #define VEC_INIT_EXPR_INIT(NODE) TREE_OPERAND (VEC_INIT_EXPR_CHECK (NODE), 1)
   4353 
   4354 /* Indicates that a VEC_INIT_EXPR is a potential constant expression.
   4355    Only set when the current function is constexpr.  */
   4356 #define VEC_INIT_EXPR_IS_CONSTEXPR(NODE) \
   4357   TREE_LANG_FLAG_0 (VEC_INIT_EXPR_CHECK (NODE))
   4358 
   4359 /* Indicates that a VEC_INIT_EXPR is expressing value-initialization.  */
   4360 #define VEC_INIT_EXPR_VALUE_INIT(NODE) \
   4361   TREE_LANG_FLAG_1 (VEC_INIT_EXPR_CHECK (NODE))
   4362 
   4363 /* If T is a VEC_INIT_EXPR, return it, possibly stripping a TARGET_EXPR
   4364    wrapper.  Otherwise, return null.  */
   4365 inline tree
   4366 get_vec_init_expr (tree t)
   4367 {
   4368   if (t && TREE_CODE (t) == TARGET_EXPR)
   4369     t = TARGET_EXPR_INITIAL (t);
   4370   if (t && TREE_CODE (t) == VEC_INIT_EXPR)
   4371     return t;
   4372   return NULL_TREE;
   4373 }
   4374 
   4375 /* The condition under which this MUST_NOT_THROW_EXPR actually blocks
   4376    exceptions.  NULL_TREE means 'true'.  */
   4377 #define MUST_NOT_THROW_COND(NODE) \
   4378   TREE_OPERAND (MUST_NOT_THROW_EXPR_CHECK (NODE), 1)
   4379 
   4380 /* The TYPE_MAIN_DECL for a class template type is a TYPE_DECL, not a
   4381    TEMPLATE_DECL.  This macro determines whether or not a given class
   4382    type is really a template type, as opposed to an instantiation or
   4383    specialization of one.  */
   4384 #define CLASSTYPE_IS_TEMPLATE(NODE)  \
   4385   (CLASSTYPE_TEMPLATE_INFO (NODE)    \
   4386    && !CLASSTYPE_USE_TEMPLATE (NODE) \
   4387    && PRIMARY_TEMPLATE_P (CLASSTYPE_TI_TEMPLATE (NODE)))
   4388 
   4389 /* The name used by the user to name the typename type.  Typically,
   4390    this is an IDENTIFIER_NODE, and the same as the DECL_NAME on the
   4391    corresponding TYPE_DECL.  However, this may also be a
   4392    TEMPLATE_ID_EXPR if we had something like `typename X::Y<T>'.  */
   4393 #define TYPENAME_TYPE_FULLNAME(NODE) \
   4394   (TYPE_VALUES_RAW (TYPENAME_TYPE_CHECK (NODE)))
   4395 
   4396 /* True if a TYPENAME_TYPE was declared as an "enum".  */
   4397 #define TYPENAME_IS_ENUM_P(NODE) \
   4398   (TREE_LANG_FLAG_0 (TYPENAME_TYPE_CHECK (NODE)))
   4399 
   4400 /* True if a TYPENAME_TYPE was declared as a "class", "struct", or
   4401    "union".  */
   4402 #define TYPENAME_IS_CLASS_P(NODE) \
   4403   (TREE_LANG_FLAG_1 (TYPENAME_TYPE_CHECK (NODE)))
   4404 
   4405 /* True if a TYPENAME_TYPE is in the process of being resolved.  */
   4406 #define TYPENAME_IS_RESOLVING_P(NODE) \
   4407   (TREE_LANG_FLAG_2 (TYPENAME_TYPE_CHECK (NODE)))
   4408 
   4409 /* [class.virtual]
   4410 
   4411    A class that declares or inherits a virtual function is called a
   4412    polymorphic class.  */
   4413 #define TYPE_POLYMORPHIC_P(NODE) (TREE_LANG_FLAG_2 (NODE))
   4414 
   4415 /* Nonzero if this class has a virtual function table pointer.  */
   4416 #define TYPE_CONTAINS_VPTR_P(NODE)		\
   4417   (TYPE_POLYMORPHIC_P (NODE) || CLASSTYPE_VBASECLASSES (NODE))
   4418 
   4419 /* Nonzero if NODE is a FUNCTION_DECL or VARIABLE_DECL (for a decl
   4420    with namespace scope) declared in a local scope.  */
   4421 #define DECL_LOCAL_DECL_P(NODE) \
   4422   DECL_LANG_FLAG_0 (VAR_OR_FUNCTION_DECL_CHECK (NODE))
   4423 
   4424 /* The namespace-scope decl a DECL_LOCAL_DECL_P aliases.  */
   4425 #define DECL_LOCAL_DECL_ALIAS(NODE)			\
   4426   DECL_ACCESS ((gcc_checking_assert (DECL_LOCAL_DECL_P (NODE)), NODE))
   4427 
   4428 /* True if NODE was declared with auto in its return type, but it has
   4429    started compilation and so the return type might have been changed by
   4430    return type deduction; its declared return type should be found in
   4431    DECL_SAVED_AUTO_RETURN_TYPE (NODE).   */
   4432 #define FNDECL_USED_AUTO(NODE) \
   4433   TREE_LANG_FLAG_2 (FUNCTION_DECL_CHECK (NODE))
   4434 
   4435 /* True if NODE is needed for a manifestly constant-evaluated expression.
   4436    This doesn't especially need to be a flag, since currently it's only
   4437    used for error recovery; if we run out of function flags it could move
   4438    to an attribute.  */
   4439 #define FNDECL_MANIFESTLY_CONST_EVALUATED(NODE) \
   4440   TREE_LANG_FLAG_4 (FUNCTION_DECL_CHECK (NODE))
   4441 
   4442 /* True for artificial decls added for OpenMP privatized non-static
   4443    data members.  */
   4444 #define DECL_OMP_PRIVATIZED_MEMBER(NODE) \
   4445   (DECL_LANG_SPECIFIC (VAR_DECL_CHECK (NODE))->u.base.anticipated_p)
   4446 
   4447 /* Nonzero if NODE is an artificial FUNCTION_DECL for
   4448    #pragma omp declare reduction.  */
   4449 #define DECL_OMP_DECLARE_REDUCTION_P(NODE) \
   4450   (LANG_DECL_FN_CHECK (DECL_COMMON_CHECK (NODE))->omp_declare_reduction_p)
   4451 
   4452 /* Nonzero if DECL has been declared threadprivate by
   4453    #pragma omp threadprivate.  */
   4454 #define CP_DECL_THREADPRIVATE_P(DECL) \
   4455   (DECL_LANG_SPECIFIC (VAR_DECL_CHECK (DECL))->u.base.threadprivate_or_deleted_p)
   4456 
   4457 /* Nonzero if NODE is a VAR_DECL which has been declared inline.  */
   4458 #define DECL_VAR_DECLARED_INLINE_P(NODE) \
   4459   (DECL_LANG_SPECIFIC (VAR_DECL_CHECK (NODE))			\
   4460    ? DECL_LANG_SPECIFIC (NODE)->u.base.var_declared_inline_p	\
   4461    : false)
   4462 #define SET_DECL_VAR_DECLARED_INLINE_P(NODE) \
   4463   (DECL_LANG_SPECIFIC (VAR_DECL_CHECK (NODE))->u.base.var_declared_inline_p \
   4464    = true)
   4465 
   4466 /* True if NODE is a constant variable with a value-dependent initializer.  */
   4467 #define DECL_DEPENDENT_INIT_P(NODE)				\
   4468   (DECL_LANG_SPECIFIC (VAR_DECL_CHECK (NODE))			\
   4469    && DECL_LANG_SPECIFIC (NODE)->u.base.dependent_init_p)
   4470 #define SET_DECL_DEPENDENT_INIT_P(NODE, X) \
   4471   (DECL_LANG_SPECIFIC (VAR_DECL_CHECK (NODE))->u.base.dependent_init_p = (X))
   4472 
   4473 /* Nonzero if NODE is an artificial VAR_DECL for a C++17 structured binding
   4474    declaration or one of VAR_DECLs for the user identifiers in it.  */
   4475 #define DECL_DECOMPOSITION_P(NODE) \
   4476   (VAR_P (NODE) && DECL_LANG_SPECIFIC (NODE)			\
   4477    ? DECL_LANG_SPECIFIC (NODE)->u.base.selector == lds_decomp		\
   4478    : false)
   4479 
   4480 /* The underlying artificial VAR_DECL for structured binding.  */
   4481 #define DECL_DECOMP_BASE(NODE) \
   4482   (LANG_DECL_DECOMP_CHECK (NODE)->base)
   4483 
   4484 /* Nonzero if NODE is an inline VAR_DECL.  In C++17, static data members
   4485    declared with constexpr specifier are implicitly inline variables.  */
   4486 #define DECL_INLINE_VAR_P(NODE) \
   4487   (DECL_VAR_DECLARED_INLINE_P (NODE)				\
   4488    || (cxx_dialect >= cxx17					\
   4489        && DECL_DECLARED_CONSTEXPR_P (NODE)			\
   4490        && DECL_CLASS_SCOPE_P (NODE)))
   4491 
   4492 /* Nonzero if DECL was declared with '= delete'.  */
   4493 #define DECL_DELETED_FN(DECL) \
   4494   (LANG_DECL_FN_CHECK (DECL)->min.base.threadprivate_or_deleted_p)
   4495 
   4496 /* Nonzero if DECL was declared with '= default' (maybe implicitly).  */
   4497 #define DECL_DEFAULTED_FN(DECL) \
   4498   (LANG_DECL_FN_CHECK (DECL)->defaulted_p)
   4499 
   4500 /* Nonzero if DECL is explicitly defaulted in the class body.  */
   4501 #define DECL_DEFAULTED_IN_CLASS_P(DECL)					\
   4502   (DECL_DEFAULTED_FN (DECL) && DECL_INITIALIZED_IN_CLASS_P (DECL))
   4503 /* Nonzero if DECL was defaulted outside the class body.  */
   4504 #define DECL_DEFAULTED_OUTSIDE_CLASS_P(DECL)				\
   4505   (DECL_DEFAULTED_FN (DECL)						\
   4506    && !(DECL_ARTIFICIAL (DECL) || DECL_INITIALIZED_IN_CLASS_P (DECL)))
   4507 
   4508 /* Record whether a typedef for type `int' was actually `signed int'.  */
   4509 #define C_TYPEDEF_EXPLICITLY_SIGNED(EXP) DECL_LANG_FLAG_1 (EXP)
   4510 
   4511 /* Returns nonzero if DECL has external linkage, as specified by the
   4512    language standard.  (This predicate may hold even when the
   4513    corresponding entity is not actually given external linkage in the
   4514    object file; see decl_linkage for details.)  */
   4515 #define DECL_EXTERNAL_LINKAGE_P(DECL) \
   4516   (decl_linkage (DECL) == lk_external)
   4517 
   4518 /* Keep these codes in ascending code order.  */
   4519 
   4520 #define INTEGRAL_CODE_P(CODE)	\
   4521   ((CODE) == ENUMERAL_TYPE	\
   4522    || (CODE) == BOOLEAN_TYPE	\
   4523    || (CODE) == INTEGER_TYPE)
   4524 
   4525 /* [basic.fundamental]
   4526 
   4527    Types  bool, char, wchar_t, and the signed and unsigned integer types
   4528    are collectively called integral types.
   4529 
   4530    Note that INTEGRAL_TYPE_P, as defined in tree.h, allows enumeration
   4531    types as well, which is incorrect in C++.  Keep these checks in
   4532    ascending code order.  */
   4533 #define CP_INTEGRAL_TYPE_P(TYPE)		\
   4534   (TREE_CODE (TYPE) == BOOLEAN_TYPE		\
   4535    || TREE_CODE (TYPE) == INTEGER_TYPE)
   4536 
   4537 /* Returns true if TYPE is an integral or enumeration name.  Keep
   4538    these checks in ascending code order.  */
   4539 #define INTEGRAL_OR_ENUMERATION_TYPE_P(TYPE) \
   4540    (TREE_CODE (TYPE) == ENUMERAL_TYPE || CP_INTEGRAL_TYPE_P (TYPE))
   4541 
   4542 /* Returns true if TYPE is an integral or unscoped enumeration type.  */
   4543 #define INTEGRAL_OR_UNSCOPED_ENUMERATION_TYPE_P(TYPE) \
   4544    (UNSCOPED_ENUM_P (TYPE) || CP_INTEGRAL_TYPE_P (TYPE))
   4545 
   4546 /* True if the class type TYPE is a literal type.  */
   4547 #define CLASSTYPE_LITERAL_P(TYPE)              \
   4548    (LANG_TYPE_CLASS_CHECK (TYPE)->is_literal)
   4549 
   4550 /* [basic.fundamental]
   4551 
   4552    Integral and floating types are collectively called arithmetic
   4553    types.
   4554 
   4555    As a GNU extension, we also accept complex types.
   4556 
   4557    Keep these checks in ascending code order.  */
   4558 #define ARITHMETIC_TYPE_P(TYPE) \
   4559   (CP_INTEGRAL_TYPE_P (TYPE) \
   4560    || SCALAR_FLOAT_TYPE_P (TYPE) \
   4561    || TREE_CODE (TYPE) == COMPLEX_TYPE)
   4562 
   4563 /* [basic.types]
   4564 
   4565    Arithmetic types, enumeration types, pointer types,
   4566    pointer-to-member types, and std::nullptr_t are collectively called
   4567    scalar types.
   4568 
   4569    Keep these checks in ascending code order.  */
   4570 #define SCALAR_TYPE_P(TYPE)			\
   4571   (TYPE_PTRDATAMEM_P (TYPE)			\
   4572    || TREE_CODE (TYPE) == ENUMERAL_TYPE		\
   4573    || ARITHMETIC_TYPE_P (TYPE)			\
   4574    || TYPE_PTR_P (TYPE)				\
   4575    || TYPE_PTRMEMFUNC_P (TYPE)                  \
   4576    || NULLPTR_TYPE_P (TYPE))
   4577 
   4578 /* Determines whether this type is a C++0x scoped enumeration
   4579    type. Scoped enumerations types are introduced via "enum class" or
   4580    "enum struct", e.g.,
   4581 
   4582      enum class Color {
   4583        Red, Green, Blue
   4584      };
   4585 
   4586    Scoped enumeration types are different from normal (unscoped)
   4587    enumeration types in several ways:
   4588 
   4589      - The enumerators of a scoped enumeration type are only available
   4590        within the scope of the enumeration type and not in the
   4591        enclosing scope. For example, the Red color can be referred to
   4592        with "Color::Red" but not "Red".
   4593 
   4594      - Scoped enumerators and enumerations do not implicitly convert
   4595        to integers or 'bool'.
   4596 
   4597      - The underlying type of the enum is well-defined.  */
   4598 #define SCOPED_ENUM_P(TYPE)                                             \
   4599   (TREE_CODE (TYPE) == ENUMERAL_TYPE && ENUM_IS_SCOPED (TYPE))
   4600 
   4601 /* Determine whether this is an unscoped enumeration type.  */
   4602 #define UNSCOPED_ENUM_P(TYPE)                                           \
   4603   (TREE_CODE (TYPE) == ENUMERAL_TYPE && !ENUM_IS_SCOPED (TYPE))
   4604 
   4605 /* Set the flag indicating whether an ENUMERAL_TYPE is a C++0x scoped
   4606    enumeration type (1) or a normal (unscoped) enumeration type
   4607    (0).  */
   4608 #define SET_SCOPED_ENUM_P(TYPE, VAL)                    \
   4609   (ENUM_IS_SCOPED (TYPE) = (VAL))
   4610 
   4611 #define SET_OPAQUE_ENUM_P(TYPE, VAL)                    \
   4612   (ENUM_IS_OPAQUE (TYPE) = (VAL))
   4613 
   4614 #define OPAQUE_ENUM_P(TYPE)				\
   4615   (TREE_CODE (TYPE) == ENUMERAL_TYPE && ENUM_IS_OPAQUE (TYPE))
   4616 
   4617 /* [dcl.init.aggr]
   4618 
   4619    An aggregate is an array or a class with no user-provided
   4620    constructors, no brace-or-equal-initializers for non-static data
   4621    members, no private or protected non-static data members, no
   4622    base classes, and no virtual functions.
   4623 
   4624    As an extension, we also treat vectors as aggregates.  Keep these
   4625    checks in ascending code order.  */
   4626 #define CP_AGGREGATE_TYPE_P(TYPE)				\
   4627   (gnu_vector_type_p (TYPE)					\
   4628    || TREE_CODE (TYPE) == ARRAY_TYPE				\
   4629    || (CLASS_TYPE_P (TYPE) && COMPLETE_TYPE_P (TYPE) && !CLASSTYPE_NON_AGGREGATE (TYPE)))
   4630 
   4631 /* Nonzero for a class type means that the class type has a
   4632    user-declared constructor.  */
   4633 #define TYPE_HAS_USER_CONSTRUCTOR(NODE) (TYPE_LANG_FLAG_1 (NODE))
   4634 
   4635 /* Nonzero means that the FUNCTION_TYPE or METHOD_TYPE has a
   4636    late-specified return type.  */
   4637 #define TYPE_HAS_LATE_RETURN_TYPE(NODE) \
   4638   (TYPE_LANG_FLAG_2 (FUNC_OR_METHOD_CHECK (NODE)))
   4639 
   4640 /* When appearing in an INDIRECT_REF, it means that the tree structure
   4641    underneath is actually a call to a constructor.  This is needed
   4642    when the constructor must initialize local storage (which can
   4643    be automatically destroyed), rather than allowing it to allocate
   4644    space from the heap.
   4645 
   4646    When appearing in a SAVE_EXPR, it means that underneath
   4647    is a call to a constructor.
   4648 
   4649    When appearing in a CONSTRUCTOR, the expression is an unconverted
   4650    compound literal.
   4651 
   4652    When appearing in a CALL_EXPR, it means that it is a call to
   4653    a constructor.
   4654 
   4655    When appearing in a FIELD_DECL, it means that this field
   4656    has been duly initialized in its constructor.  */
   4657 #define TREE_HAS_CONSTRUCTOR(NODE) (TREE_LANG_FLAG_4 (NODE))
   4658 
   4659 /* True if NODE is a brace-enclosed initializer.  */
   4660 #define BRACE_ENCLOSED_INITIALIZER_P(NODE) \
   4661   (TREE_CODE (NODE) == CONSTRUCTOR && TREE_TYPE (NODE) == init_list_type_node)
   4662 
   4663 /* True if NODE is a compound-literal, i.e., a brace-enclosed
   4664    initializer cast to a particular type.  This is mostly only set during
   4665    template parsing; once the initializer has been digested into an actual
   4666    value of the type, the expression is represented by a TARGET_EXPR.  */
   4667 #define COMPOUND_LITERAL_P(NODE) \
   4668   (TREE_CODE (NODE) == CONSTRUCTOR && TREE_HAS_CONSTRUCTOR (NODE))
   4669 
   4670 #define EMPTY_CONSTRUCTOR_P(NODE) (TREE_CODE (NODE) == CONSTRUCTOR \
   4671 				   && vec_safe_is_empty(CONSTRUCTOR_ELTS(NODE))\
   4672 				   && !TREE_HAS_CONSTRUCTOR (NODE))
   4673 
   4674 /* True if NODE is a init-list used as a direct-initializer, i.e.
   4675    B b{1,2}, not B b({1,2}) or B b = {1,2}.  */
   4676 #define CONSTRUCTOR_IS_DIRECT_INIT(NODE) (TREE_LANG_FLAG_0 (CONSTRUCTOR_CHECK (NODE)))
   4677 
   4678 /* True if this CONSTRUCTOR is instantiation-dependent and needs to be
   4679    substituted.  */
   4680 #define CONSTRUCTOR_IS_DEPENDENT(NODE) \
   4681   (TREE_LANG_FLAG_1 (CONSTRUCTOR_CHECK (NODE)))
   4682 
   4683 /* True if this CONSTRUCTOR should not be used as a variable initializer
   4684    because it was loaded from a constexpr variable with mutable fields.  */
   4685 #define CONSTRUCTOR_MUTABLE_POISON(NODE) \
   4686   (TREE_LANG_FLAG_2 (CONSTRUCTOR_CHECK (NODE)))
   4687 
   4688 /* True if this typed CONSTRUCTOR represents C99 compound-literal syntax rather
   4689    than C++11 functional cast syntax.  */
   4690 #define CONSTRUCTOR_C99_COMPOUND_LITERAL(NODE) \
   4691   (TREE_LANG_FLAG_3 (CONSTRUCTOR_CHECK (NODE)))
   4692 
   4693 /* True if this CONSTRUCTOR contains PLACEHOLDER_EXPRs referencing the
   4694    CONSTRUCTOR's type not nested inside another CONSTRUCTOR marked with
   4695    CONSTRUCTOR_PLACEHOLDER_BOUNDARY.  */
   4696 #define CONSTRUCTOR_PLACEHOLDER_BOUNDARY(NODE) \
   4697   (TREE_LANG_FLAG_5 (CONSTRUCTOR_CHECK (NODE)))
   4698 
   4699 #define DIRECT_LIST_INIT_P(NODE) \
   4700    (BRACE_ENCLOSED_INITIALIZER_P (NODE) && CONSTRUCTOR_IS_DIRECT_INIT (NODE))
   4701 
   4702 /* True if this is a designated initializer (when we allow initializer-clauses
   4703    mixed with designated-initializer-clauses set whenever there is at least
   4704    one designated-initializer-clause), or a C99 designator.  */
   4705 #define CONSTRUCTOR_IS_DESIGNATED_INIT(NODE) \
   4706   (TREE_LANG_FLAG_6 (CONSTRUCTOR_CHECK (NODE)))
   4707 
   4708 /* True if this CONSTRUCTOR comes from a parenthesized list of values, e.g.
   4709    A(1, 2, 3).  */
   4710 #define CONSTRUCTOR_IS_PAREN_INIT(NODE) \
   4711   (CONSTRUCTOR_CHECK(NODE)->base.private_flag)
   4712 
   4713 /* True if reshape_init built this sub-CONSTRUCTOR to undo the brace elision
   4714    of the original CONSTRUCTOR.  This flag is used during C++20 aggregate
   4715    CTAD.  */
   4716 #define CONSTRUCTOR_BRACES_ELIDED_P(NODE) \
   4717   (CONSTRUCTOR_CHECK (NODE)->base.protected_flag)
   4718 
   4719 /* True if NODE represents a conversion for direct-initialization in a
   4720    template.  Set by perform_implicit_conversion_flags.  */
   4721 #define IMPLICIT_CONV_EXPR_DIRECT_INIT(NODE) \
   4722   (TREE_LANG_FLAG_0 (IMPLICIT_CONV_EXPR_CHECK (NODE)))
   4723 
   4724 /* True if NODE represents a dependent conversion of a non-type template
   4725    argument.  Set by maybe_convert_nontype_argument.  */
   4726 #define IMPLICIT_CONV_EXPR_NONTYPE_ARG(NODE) \
   4727   (TREE_LANG_FLAG_1 (IMPLICIT_CONV_EXPR_CHECK (NODE)))
   4728 
   4729 /* True if NODE represents a conversion for braced-init-list in a
   4730    template.  Set by perform_implicit_conversion_flags.  */
   4731 #define IMPLICIT_CONV_EXPR_BRACED_INIT(NODE) \
   4732   (TREE_LANG_FLAG_2 (IMPLICIT_CONV_EXPR_CHECK (NODE)))
   4733 
   4734 /* True if NODE represents a conversion forced to be represented in
   4735    maybe_convert_nontype_argument, i.e. for an alias template.  */
   4736 #define IMPLICIT_CONV_EXPR_FORCED(NODE) \
   4737   (TREE_LANG_FLAG_3 (IMPLICIT_CONV_EXPR_CHECK (NODE)))
   4738 
   4739 /* Nonzero means that an object of this type cannot be initialized using
   4740    an initializer list.  */
   4741 #define CLASSTYPE_NON_AGGREGATE(NODE) \
   4742   (LANG_TYPE_CLASS_CHECK (NODE)->non_aggregate)
   4743 #define TYPE_NON_AGGREGATE_CLASS(NODE) \
   4744   (CLASS_TYPE_P (NODE) && CLASSTYPE_NON_AGGREGATE (NODE))
   4745 
   4746 /* Nonzero if there is a non-trivial X::op=(cv X&) for this class.  */
   4747 #define TYPE_HAS_COMPLEX_COPY_ASSIGN(NODE) (LANG_TYPE_CLASS_CHECK (NODE)->has_complex_copy_assign)
   4748 
   4749 /* Nonzero if there is a non-trivial X::X(cv X&) for this class.  */
   4750 #define TYPE_HAS_COMPLEX_COPY_CTOR(NODE) (LANG_TYPE_CLASS_CHECK (NODE)->has_complex_copy_ctor)
   4751 
   4752 /* Nonzero if there is a non-trivial X::op=(X&&) for this class.  */
   4753 #define TYPE_HAS_COMPLEX_MOVE_ASSIGN(NODE) (LANG_TYPE_CLASS_CHECK (NODE)->has_complex_move_assign)
   4754 
   4755 /* Nonzero if there is a non-trivial X::X(X&&) for this class.  */
   4756 #define TYPE_HAS_COMPLEX_MOVE_CTOR(NODE) (LANG_TYPE_CLASS_CHECK (NODE)->has_complex_move_ctor)
   4757 
   4758 /* Nonzero if there is no trivial default constructor for this class.  */
   4759 #define TYPE_HAS_COMPLEX_DFLT(NODE) (LANG_TYPE_CLASS_CHECK (NODE)->has_complex_dflt)
   4760 
   4761 /* Nonzero if TYPE has a trivial destructor.  From [class.dtor]:
   4762 
   4763      A destructor is trivial if it is an implicitly declared
   4764      destructor and if:
   4765 
   4766        - all of the direct base classes of its class have trivial
   4767 	 destructors,
   4768 
   4769        - for all of the non-static data members of its class that are
   4770 	 of class type (or array thereof), each such class has a
   4771 	 trivial destructor.  */
   4772 #define TYPE_HAS_TRIVIAL_DESTRUCTOR(NODE) \
   4773   (!TYPE_HAS_NONTRIVIAL_DESTRUCTOR (NODE))
   4774 
   4775 /* Nonzero for _TYPE node means that this type does not have a trivial
   4776    destructor.  Therefore, destroying an object of this type will
   4777    involve a call to a destructor.  This can apply to objects of
   4778    ARRAY_TYPE if the type of the elements needs a destructor.  */
   4779 #define TYPE_HAS_NONTRIVIAL_DESTRUCTOR(NODE) \
   4780   (TYPE_LANG_FLAG_4 (NODE))
   4781 
   4782 /* Nonzero for class type means that the default constructor is trivial.  */
   4783 #define TYPE_HAS_TRIVIAL_DFLT(NODE) \
   4784   (TYPE_HAS_DEFAULT_CONSTRUCTOR (NODE) && ! TYPE_HAS_COMPLEX_DFLT (NODE))
   4785 
   4786 /* Nonzero for class type means that copy initialization of this type can use
   4787    a bitwise copy.  */
   4788 #define TYPE_HAS_TRIVIAL_COPY_CTOR(NODE) \
   4789   (TYPE_HAS_COPY_CTOR (NODE) && ! TYPE_HAS_COMPLEX_COPY_CTOR (NODE))
   4790 
   4791 /* Nonzero for class type means that assignment of this type can use
   4792    a bitwise copy.  */
   4793 #define TYPE_HAS_TRIVIAL_COPY_ASSIGN(NODE) \
   4794   (TYPE_HAS_COPY_ASSIGN (NODE) && ! TYPE_HAS_COMPLEX_COPY_ASSIGN (NODE))
   4795 
   4796 /* Returns true if NODE is a pointer-to-data-member.  */
   4797 #define TYPE_PTRDATAMEM_P(NODE)			\
   4798   (TREE_CODE (NODE) == OFFSET_TYPE)
   4799 
   4800 /* Returns true if NODE is a pointer.  */
   4801 #define TYPE_PTR_P(NODE)			\
   4802   (TREE_CODE (NODE) == POINTER_TYPE)
   4803 
   4804 /* Returns true if NODE is a reference.  */
   4805 #define TYPE_REF_P(NODE)			\
   4806   (TREE_CODE (NODE) == REFERENCE_TYPE)
   4807 
   4808 /* Returns true if NODE is a pointer or a reference.  */
   4809 #define INDIRECT_TYPE_P(NODE)			\
   4810   (TYPE_PTR_P (NODE) || TYPE_REF_P (NODE))
   4811 
   4812 /* Returns true if NODE is an object type:
   4813 
   4814      [basic.types]
   4815 
   4816      An object type is a (possibly cv-qualified) type that is not a
   4817      function type, not a reference type, and not a void type.
   4818 
   4819    Keep these checks in ascending order, for speed.  */
   4820 #define TYPE_OBJ_P(NODE)			\
   4821   (!TYPE_REF_P (NODE)				\
   4822    && !VOID_TYPE_P (NODE)  		        \
   4823    && !FUNC_OR_METHOD_TYPE_P (NODE))
   4824 
   4825 /* Returns true if NODE is a pointer to an object.  Keep these checks
   4826    in ascending tree code order.  */
   4827 #define TYPE_PTROB_P(NODE)					\
   4828   (TYPE_PTR_P (NODE) && TYPE_OBJ_P (TREE_TYPE (NODE)))
   4829 
   4830 /* Returns true if NODE is a reference to an object.  Keep these checks
   4831    in ascending tree code order.  */
   4832 #define TYPE_REF_OBJ_P(NODE)					\
   4833   (TYPE_REF_P (NODE) && TYPE_OBJ_P (TREE_TYPE (NODE)))
   4834 
   4835 /* Returns true if NODE is a pointer to an object, or a pointer to
   4836    void.  Keep these checks in ascending tree code order.  */
   4837 #define TYPE_PTROBV_P(NODE)					\
   4838   (TYPE_PTR_P (NODE)						\
   4839    && !FUNC_OR_METHOD_TYPE_P (TREE_TYPE (NODE)))
   4840 
   4841 /* Returns true if NODE is a pointer to function type.  */
   4842 #define TYPE_PTRFN_P(NODE)				\
   4843   (TYPE_PTR_P (NODE)			                \
   4844    && TREE_CODE (TREE_TYPE (NODE)) == FUNCTION_TYPE)
   4845 
   4846 /* Returns true if NODE is a reference to function type.  */
   4847 #define TYPE_REFFN_P(NODE)				\
   4848   (TYPE_REF_P (NODE)					\
   4849    && TREE_CODE (TREE_TYPE (NODE)) == FUNCTION_TYPE)
   4850 
   4851 /* Returns true if NODE is a pointer to member function type.  */
   4852 #define TYPE_PTRMEMFUNC_P(NODE)		\
   4853   (TREE_CODE (NODE) == RECORD_TYPE	\
   4854    && TYPE_PTRMEMFUNC_FLAG (NODE))
   4855 
   4856 #define TYPE_PTRMEMFUNC_FLAG(NODE) \
   4857   (TYPE_LANG_FLAG_2 (RECORD_TYPE_CHECK (NODE)))
   4858 
   4859 /* Returns true if NODE is a pointer-to-member.  */
   4860 #define TYPE_PTRMEM_P(NODE) \
   4861   (TYPE_PTRDATAMEM_P (NODE) || TYPE_PTRMEMFUNC_P (NODE))
   4862 
   4863 /* Returns true if NODE is a pointer or a pointer-to-member.  */
   4864 #define TYPE_PTR_OR_PTRMEM_P(NODE) \
   4865   (TYPE_PTR_P (NODE) || TYPE_PTRMEM_P (NODE))
   4866 
   4867 /* Indicates when overload resolution may resolve to a pointer to
   4868    member function. [expr.unary.op]/3 */
   4869 #define PTRMEM_OK_P(NODE) \
   4870   TREE_LANG_FLAG_0 (TREE_CHECK3 ((NODE), ADDR_EXPR, OFFSET_REF, SCOPE_REF))
   4871 
   4872 /* True if this ADDR_EXPR denotes a function call; that is, it's
   4873    fn() rather than &fn.  */
   4874 #define ADDR_EXPR_DENOTES_CALL_P(NODE) \
   4875   (ADDR_EXPR_CHECK(NODE)->base.protected_flag)
   4876 
   4877 /* Get the POINTER_TYPE to the METHOD_TYPE associated with this
   4878    pointer to member function.  TYPE_PTRMEMFUNC_P _must_ be true,
   4879    before using this macro.  */
   4880 #define TYPE_PTRMEMFUNC_FN_TYPE(NODE) \
   4881   (cp_build_qualified_type (TREE_TYPE (TYPE_FIELDS (NODE)),\
   4882 			    cp_type_quals (NODE)))
   4883 
   4884 /* As above, but can be used in places that want an lvalue at the expense
   4885    of not necessarily having the correct cv-qualifiers.  */
   4886 #define TYPE_PTRMEMFUNC_FN_TYPE_RAW(NODE) \
   4887   (TREE_TYPE (TYPE_FIELDS (NODE)))
   4888 
   4889 /* Returns `A' for a type like `int (A::*)(double)' */
   4890 #define TYPE_PTRMEMFUNC_OBJECT_TYPE(NODE) \
   4891   TYPE_METHOD_BASETYPE (TREE_TYPE (TYPE_PTRMEMFUNC_FN_TYPE (NODE)))
   4892 
   4893 /* The canonical internal RECORD_TYPE from the POINTER_TYPE to
   4894    METHOD_TYPE.  */
   4895 #define TYPE_PTRMEMFUNC_TYPE(NODE) \
   4896   TYPE_LANG_SLOT_1 (NODE)
   4897 
   4898 /* For a pointer-to-member type of the form `T X::*', this is `X'.
   4899    For a type like `void (X::*)() const', this type is `X', not `const
   4900    X'.  To get at the `const X' you have to look at the
   4901    TYPE_PTRMEM_POINTED_TO_TYPE; there, the first parameter will have
   4902    type `const X*'.  */
   4903 #define TYPE_PTRMEM_CLASS_TYPE(NODE)			\
   4904   (TYPE_PTRDATAMEM_P (NODE)					\
   4905    ? TYPE_OFFSET_BASETYPE (NODE)		\
   4906    : TYPE_PTRMEMFUNC_OBJECT_TYPE (NODE))
   4907 
   4908 /* For a pointer-to-member type of the form `T X::*', this is `T'.  */
   4909 #define TYPE_PTRMEM_POINTED_TO_TYPE(NODE)		\
   4910    (TYPE_PTRDATAMEM_P (NODE)				\
   4911     ? TREE_TYPE (NODE)					\
   4912     : TREE_TYPE (TYPE_PTRMEMFUNC_FN_TYPE (NODE)))
   4913 
   4914 /* For a pointer-to-member constant `X::Y' this is the RECORD_TYPE for
   4915    `X'.  */
   4916 #define PTRMEM_CST_CLASS(NODE) \
   4917   TYPE_PTRMEM_CLASS_TYPE (TREE_TYPE (PTRMEM_CST_CHECK (NODE)))
   4918 
   4919 /* For a pointer-to-member constant `X::Y' this is the _DECL for
   4920    `Y'.  */
   4921 #define PTRMEM_CST_MEMBER(NODE) \
   4922   (((ptrmem_cst_t)PTRMEM_CST_CHECK (NODE))->member)
   4923 
   4924 /* For a pointer-to-member constant `X::Y' this is a location where
   4925    the address of the member has been taken.  */
   4926 #define PTRMEM_CST_LOCATION(NODE) \
   4927   (((ptrmem_cst_t)PTRMEM_CST_CHECK (NODE))->locus)
   4928 
   4929 /* The expression in question for a TYPEOF_TYPE.  */
   4930 #define TYPEOF_TYPE_EXPR(NODE) (TYPE_VALUES_RAW (TYPEOF_TYPE_CHECK (NODE)))
   4931 
   4932 /* The type in question for an UNDERLYING_TYPE.  */
   4933 #define UNDERLYING_TYPE_TYPE(NODE) \
   4934   (TYPE_VALUES_RAW (UNDERLYING_TYPE_CHECK (NODE)))
   4935 
   4936 /* The type in question for BASES.  */
   4937 #define BASES_TYPE(NODE) \
   4938   (TYPE_VALUES_RAW (BASES_CHECK (NODE)))
   4939 
   4940 #define BASES_DIRECT(NODE) \
   4941   TREE_LANG_FLAG_0 (BASES_CHECK (NODE))
   4942 
   4943 /* The expression in question for a DECLTYPE_TYPE.  */
   4944 #define DECLTYPE_TYPE_EXPR(NODE) (TYPE_VALUES_RAW (DECLTYPE_TYPE_CHECK (NODE)))
   4945 
   4946 /* Whether the DECLTYPE_TYPE_EXPR of NODE was originally parsed as an
   4947    id-expression or a member-access expression. When false, it was
   4948    parsed as a full expression.  */
   4949 #define DECLTYPE_TYPE_ID_EXPR_OR_MEMBER_ACCESS_P(NODE) \
   4950   (DECLTYPE_TYPE_CHECK (NODE))->type_common.string_flag
   4951 
   4952 /* These flags indicate that we want different semantics from normal
   4953    decltype: lambda capture just drops references,
   4954    lambda proxies look through implicit dereference.  */
   4955 #define DECLTYPE_FOR_LAMBDA_CAPTURE(NODE) \
   4956   TREE_LANG_FLAG_0 (DECLTYPE_TYPE_CHECK (NODE))
   4957 #define DECLTYPE_FOR_LAMBDA_PROXY(NODE) \
   4958   TREE_LANG_FLAG_2 (DECLTYPE_TYPE_CHECK (NODE))
   4959 #define DECLTYPE_FOR_REF_CAPTURE(NODE) \
   4960   TREE_LANG_FLAG_3 (DECLTYPE_TYPE_CHECK (NODE))
   4961 
   4962 /* Nonzero for VAR_DECL and FUNCTION_DECL node means that `extern' was
   4963    specified in its declaration.  This can also be set for an
   4964    erroneously declared PARM_DECL.  */
   4965 #define DECL_THIS_EXTERN(NODE) \
   4966   DECL_LANG_FLAG_2 (VAR_FUNCTION_OR_PARM_DECL_CHECK (NODE))
   4967 
   4968 /* Nonzero for VAR_DECL and FUNCTION_DECL node means that `static' was
   4969    specified in its declaration.  This can also be set for an
   4970    erroneously declared PARM_DECL.  */
   4971 #define DECL_THIS_STATIC(NODE) \
   4972   DECL_LANG_FLAG_6 (VAR_FUNCTION_OR_PARM_DECL_CHECK (NODE))
   4973 
   4974 /* Nonzero for FIELD_DECL node means that this field is a lambda capture
   4975    field for an array of runtime bound.  */
   4976 #define DECL_VLA_CAPTURE_P(NODE) \
   4977   DECL_LANG_FLAG_1 (FIELD_DECL_CHECK (NODE))
   4978 
   4979 /* Nonzero for PARM_DECL node means that this is an array function
   4980    parameter, i.e, a[] rather than *a.  */
   4981 #define DECL_ARRAY_PARAMETER_P(NODE) \
   4982   DECL_LANG_FLAG_1 (PARM_DECL_CHECK (NODE))
   4983 
   4984 /* Nonzero for a FIELD_DECL who's NSMDI is currently being
   4985    instantiated.  */
   4986 #define DECL_INSTANTIATING_NSDMI_P(NODE) \
   4987   DECL_LANG_FLAG_2 (FIELD_DECL_CHECK (NODE))
   4988 
   4989 /* Nonzero for FIELD_DECL node means that this field is a base class
   4990    of the parent object, as opposed to a member field.  */
   4991 #define DECL_FIELD_IS_BASE(NODE) \
   4992   DECL_LANG_FLAG_6 (FIELD_DECL_CHECK (NODE))
   4993 
   4994 /* Nonzero for FIELD_DECL node means that this field is a simple (no
   4995    explicit initializer) lambda capture field, making it invisible to
   4996    name lookup in unevaluated contexts.  */
   4997 #define DECL_NORMAL_CAPTURE_P(NODE) \
   4998   DECL_LANG_FLAG_7 (FIELD_DECL_CHECK (NODE))
   4999 
   5000 /* Nonzero if TYPE is an anonymous union or struct type.  We have to use a
   5001    flag for this because "A union for which objects or pointers are
   5002    declared is not an anonymous union" [class.union].  */
   5003 #define ANON_AGGR_TYPE_P(NODE)				\
   5004   (CLASS_TYPE_P (NODE) && LANG_TYPE_CLASS_CHECK (NODE)->anon_aggr)
   5005 #define SET_ANON_AGGR_TYPE_P(NODE)			\
   5006   (LANG_TYPE_CLASS_CHECK (NODE)->anon_aggr = 1)
   5007 
   5008 /* Nonzero if TYPE is an anonymous union type.  */
   5009 #define ANON_UNION_TYPE_P(NODE) \
   5010   (TREE_CODE (NODE) == UNION_TYPE && ANON_AGGR_TYPE_P (NODE))
   5011 
   5012 /* For an ANON_AGGR_TYPE_P the single FIELD_DECL it is used with.  */
   5013 #define ANON_AGGR_TYPE_FIELD(NODE) \
   5014   (LANG_TYPE_CLASS_CHECK (NODE)->typeinfo_var)
   5015 
   5016 /* Define fields and accessors for nodes representing declared names.  */
   5017 
   5018 /* True if TYPE is an unnamed structured type with a typedef for
   5019    linkage purposes.  In that case TYPE_NAME and TYPE_STUB_DECL of the
   5020    MAIN-VARIANT are different. */
   5021 #define TYPE_WAS_UNNAMED(NODE)				\
   5022   (TYPE_NAME (TYPE_MAIN_VARIANT (NODE))			\
   5023    != TYPE_STUB_DECL (TYPE_MAIN_VARIANT (NODE)))
   5024 
   5025 /* C++: all of these are overloaded!  These apply only to TYPE_DECLs.  */
   5026 
   5027 /* The format of each node in the DECL_FRIENDLIST is as follows:
   5028 
   5029    The TREE_PURPOSE will be the name of a function, i.e., an
   5030    IDENTIFIER_NODE.  The TREE_VALUE will be itself a TREE_LIST, whose
   5031    TREE_VALUEs are friends with the given name.  */
   5032 #define DECL_FRIENDLIST(NODE)		(DECL_INITIAL (NODE))
   5033 #define FRIEND_NAME(LIST) (TREE_PURPOSE (LIST))
   5034 #define FRIEND_DECLS(LIST) (TREE_VALUE (LIST))
   5035 
   5036 /* The DECL_ACCESS, if non-NULL, is a TREE_LIST.  The TREE_PURPOSE of
   5037    each node is a type; the TREE_VALUE is the access granted for this
   5038    DECL in that type.  The DECL_ACCESS is set by access declarations.
   5039    For example, if a member that would normally be public in a
   5040    derived class is made protected, then the derived class and the
   5041    protected_access_node will appear in the DECL_ACCESS for the node.  */
   5042 #define DECL_ACCESS(NODE) (LANG_DECL_MIN_CHECK (NODE)->access)
   5043 
   5044 /* Nonzero if the FUNCTION_DECL is a global constructor.  */
   5045 #define DECL_GLOBAL_CTOR_P(NODE) \
   5046   (LANG_DECL_FN_CHECK (NODE)->global_ctor_p)
   5047 
   5048 /* Nonzero if the FUNCTION_DECL is a global destructor.  */
   5049 #define DECL_GLOBAL_DTOR_P(NODE) \
   5050   (LANG_DECL_FN_CHECK (NODE)->global_dtor_p)
   5051 
   5052 /* Accessor macros for C++ template decl nodes.  */
   5053 
   5054 /* The DECL_TEMPLATE_PARMS are a list.  The TREE_PURPOSE of each node
   5055    is a INT_CST whose TREE_INT_CST_LOW indicates the level of the
   5056    template parameters, with 1 being the outermost set of template
   5057    parameters.  The TREE_TYPE is TEMPLATE_PARMS_CONSTRAINTS.
   5058    The TREE_VALUE is a vector, whose elements are the
   5059    template parameters at each level.  Each element in the vector is a
   5060    TREE_LIST, whose TREE_VALUE is a PARM_DECL (if the parameter is a
   5061    non-type parameter), or a TYPE_DECL (if the parameter is a type
   5062    parameter) or a TEMPLATE_DECL (if the parameter is a template
   5063    parameter).  The TREE_PURPOSE is the default value, if any.
   5064    The TREE_TYPE is TEMPLATE_PARM_CONSTRAINTS.  The
   5065    TEMPLATE_PARM_INDEX for the parameter is available as the
   5066    DECL_INITIAL (for a PARM_DECL) or as the TREE_TYPE (for a
   5067    TYPE_DECL).
   5068 
   5069    FIXME: CONST_CAST_TREE is a hack that hopefully will go away after
   5070    tree is converted to C++ class hiearchy.  */
   5071 #define DECL_TEMPLATE_PARMS(NODE)       \
   5072    ((struct tree_template_decl *)CONST_CAST_TREE (TEMPLATE_DECL_CHECK (NODE)))->arguments
   5073 #define DECL_INNERMOST_TEMPLATE_PARMS(NODE) \
   5074    INNERMOST_TEMPLATE_PARMS (DECL_TEMPLATE_PARMS (NODE))
   5075 #define DECL_NTPARMS(NODE) \
   5076    TREE_VEC_LENGTH (DECL_INNERMOST_TEMPLATE_PARMS (NODE))
   5077 /* For function, method, class-data templates.
   5078 
   5079    FIXME: CONST_CAST_TREE is a hack that hopefully will go away after
   5080    tree is converted to C++ class hiearchy.  */
   5081 #define DECL_TEMPLATE_RESULT(NODE)      \
   5082    ((struct tree_template_decl *)CONST_CAST_TREE(TEMPLATE_DECL_CHECK (NODE)))->result
   5083 /* For a function template at namespace scope, DECL_TEMPLATE_INSTANTIATIONS
   5084    lists all instantiations and specializations of the function so that
   5085    tsubst_friend_function can reassign them to another template if we find
   5086    that the namespace-scope template is really a partial instantiation of a
   5087    friend template.
   5088 
   5089    For a class template the DECL_TEMPLATE_INSTANTIATIONS lists holds
   5090    all instantiations and specializations of the class type, including
   5091    partial instantiations and partial specializations, so that if we
   5092    explicitly specialize a partial instantiation we can walk the list
   5093    in maybe_process_partial_specialization and reassign them or complain
   5094    as appropriate.
   5095 
   5096    In both cases, the TREE_PURPOSE of each node contains the arguments
   5097    used; the TREE_VALUE contains the generated variable.  The template
   5098    arguments are always complete.  For example, given:
   5099 
   5100       template <class T> struct S1 {
   5101 	template <class U> struct S2 {};
   5102 	template <class U> struct S2<U*> {};
   5103       };
   5104 
   5105    the record for the partial specialization will contain, as its
   5106    argument list, { {T}, {U*} }, and will be on the
   5107    DECL_TEMPLATE_INSTANTIATIONS list for `template <class T> template
   5108    <class U> struct S1<T>::S2'.
   5109 
   5110    This list is not used for other templates.  */
   5111 #define DECL_TEMPLATE_INSTANTIATIONS(NODE) \
   5112   DECL_SIZE_UNIT (TEMPLATE_DECL_CHECK (NODE))
   5113 
   5114 /* For a class template, this list contains the partial
   5115    specializations of this template.  (Full specializations are not
   5116    recorded on this list.)  The TREE_PURPOSE holds the arguments used
   5117    in the partial specialization (e.g., for `template <class T> struct
   5118    S<T*, int>' this will be `T*, int'.)  The arguments will also include
   5119    any outer template arguments.  The TREE_VALUE holds the TEMPLATE_DECL
   5120    for the partial specialization.  The TREE_TYPE is the _TYPE node for
   5121    the partial specialization.
   5122 
   5123    This list is not used for other templates.  */
   5124 #define DECL_TEMPLATE_SPECIALIZATIONS(NODE)     \
   5125   DECL_SIZE (TEMPLATE_DECL_CHECK (NODE))
   5126 
   5127 /* Nonzero for a DECL which is actually a template parameter.  Keep
   5128    these checks in ascending tree code order.   */
   5129 #define DECL_TEMPLATE_PARM_P(NODE)		\
   5130   (DECL_LANG_FLAG_0 (NODE)			\
   5131    && (TREE_CODE (NODE) == CONST_DECL		\
   5132        || TREE_CODE (NODE) == PARM_DECL		\
   5133        || TREE_CODE (NODE) == TYPE_DECL		\
   5134        || TREE_CODE (NODE) == TEMPLATE_DECL))
   5135 
   5136 #if ENABLE_TREE_CHECKING
   5137 inline tree
   5138 decl_template_parm_check (const_tree t, const char *f, int l, const char *fn)
   5139 {
   5140   if (!DECL_TEMPLATE_PARM_P (t))
   5141     tree_check_failed (t, f, l, fn, 0);
   5142   return const_cast<tree>(t);
   5143 }
   5144 #endif
   5145 
   5146 /* Nonzero for a raw template parameter node.  */
   5147 #define TEMPLATE_PARM_P(NODE)					\
   5148   (TREE_CODE (NODE) == TEMPLATE_TYPE_PARM			\
   5149    || TREE_CODE (NODE) == TEMPLATE_TEMPLATE_PARM		\
   5150    || TREE_CODE (NODE) == TEMPLATE_PARM_INDEX)
   5151 
   5152 /* Mark NODE as a template parameter.  */
   5153 #define SET_DECL_TEMPLATE_PARM_P(NODE) \
   5154   (DECL_LANG_FLAG_0 (NODE) = 1)
   5155 
   5156 /* Nonzero if NODE is a template template parameter.  */
   5157 #define DECL_TEMPLATE_TEMPLATE_PARM_P(NODE) \
   5158   (TREE_CODE (NODE) == TEMPLATE_DECL && DECL_TEMPLATE_PARM_P (NODE))
   5159 
   5160 /* Nonzero for a DECL that represents a function template.  */
   5161 #define DECL_FUNCTION_TEMPLATE_P(NODE)                          \
   5162   (TREE_CODE (NODE) == TEMPLATE_DECL                            \
   5163    && DECL_TEMPLATE_RESULT (NODE) != NULL_TREE			\
   5164    && TREE_CODE (DECL_TEMPLATE_RESULT (NODE)) == FUNCTION_DECL)
   5165 
   5166 /* Nonzero for a DECL that represents a class template or alias
   5167    template.  */
   5168 #define DECL_TYPE_TEMPLATE_P(NODE)				\
   5169   (TREE_CODE (NODE) == TEMPLATE_DECL				\
   5170    && DECL_TEMPLATE_RESULT (NODE) != NULL_TREE			\
   5171    && TREE_CODE (DECL_TEMPLATE_RESULT (NODE)) == TYPE_DECL)
   5172 
   5173 /* Nonzero for a DECL that represents a class template.  */
   5174 #define DECL_CLASS_TEMPLATE_P(NODE)				\
   5175   (DECL_TYPE_TEMPLATE_P (NODE)					\
   5176    && DECL_IMPLICIT_TYPEDEF_P (DECL_TEMPLATE_RESULT (NODE)))
   5177 
   5178 /* Nonzero for a TEMPLATE_DECL that represents an alias template.  */
   5179 #define DECL_ALIAS_TEMPLATE_P(NODE)			\
   5180   (DECL_TYPE_TEMPLATE_P (NODE)				\
   5181    && !DECL_ARTIFICIAL (DECL_TEMPLATE_RESULT (NODE)))
   5182 
   5183 /* Nonzero for a NODE which declares a type.  */
   5184 #define DECL_DECLARES_TYPE_P(NODE) \
   5185   (TREE_CODE (NODE) == TYPE_DECL || DECL_TYPE_TEMPLATE_P (NODE))
   5186 
   5187 /* Nonzero if NODE declares a function.  */
   5188 #define DECL_DECLARES_FUNCTION_P(NODE) \
   5189   (TREE_CODE (NODE) == FUNCTION_DECL || DECL_FUNCTION_TEMPLATE_P (NODE))
   5190 
   5191 /* Nonzero if NODE is the typedef implicitly generated for a type when
   5192    the type is declared.  In C++, `struct S {};' is roughly
   5193    equivalent to `struct S {}; typedef struct S S;' in C.
   5194    DECL_IMPLICIT_TYPEDEF_P will hold for the typedef indicated in this
   5195    example.  In C++, there is a second implicit typedef for each
   5196    class, called the injected-class-name, in the scope of `S' itself, so that
   5197    you can say `S::S'.  DECL_SELF_REFERENCE_P will hold for that typedef.  */
   5198 #define DECL_IMPLICIT_TYPEDEF_P(NODE) \
   5199   (TREE_CODE (NODE) == TYPE_DECL && DECL_LANG_FLAG_2 (NODE))
   5200 #define SET_DECL_IMPLICIT_TYPEDEF_P(NODE) \
   5201   (DECL_LANG_FLAG_2 (NODE) = 1)
   5202 #define DECL_SELF_REFERENCE_P(NODE) \
   5203   (TREE_CODE (NODE) == TYPE_DECL && DECL_LANG_FLAG_4 (NODE))
   5204 #define SET_DECL_SELF_REFERENCE_P(NODE) \
   5205   (DECL_LANG_FLAG_4 (NODE) = 1)
   5206 
   5207 /* A `primary' template is one that has its own template header and is not
   5208    a partial specialization.  A member function of a class template is a
   5209    template, but not primary.  A member template is primary.  Friend
   5210    templates are primary, too.  */
   5211 
   5212 /* Returns the primary template corresponding to these parameters.  */
   5213 #define TPARMS_PRIMARY_TEMPLATE(NODE) (TREE_TYPE (TREE_VEC_CHECK (NODE)))
   5214 
   5215 #define DECL_PRIMARY_TEMPLATE(NODE) \
   5216   (TPARMS_PRIMARY_TEMPLATE (DECL_INNERMOST_TEMPLATE_PARMS (NODE)))
   5217 
   5218 /* Returns nonzero if NODE is a primary template.  */
   5219 #define PRIMARY_TEMPLATE_P(NODE) (DECL_PRIMARY_TEMPLATE (NODE) == (NODE))
   5220 
   5221 /* Nonzero iff NODE is a specialization of a template.  The value
   5222    indicates the type of specializations:
   5223 
   5224      1=implicit instantiation
   5225 
   5226      2=partial or explicit specialization, e.g.:
   5227 
   5228         template <> int min<int> (int, int),
   5229 
   5230      3=explicit instantiation, e.g.:
   5231 
   5232         template int min<int> (int, int);
   5233 
   5234    Note that NODE will be marked as a specialization even if the
   5235    template it is instantiating is not a primary template.  For
   5236    example, given:
   5237 
   5238      template <typename T> struct O {
   5239        void f();
   5240        struct I {};
   5241      };
   5242 
   5243    both O<int>::f and O<int>::I will be marked as instantiations.
   5244 
   5245    If DECL_USE_TEMPLATE is nonzero, then DECL_TEMPLATE_INFO will also
   5246    be non-NULL.  */
   5247 #define DECL_USE_TEMPLATE(NODE) (DECL_LANG_SPECIFIC (NODE)->u.base.use_template)
   5248 
   5249 /* Like DECL_USE_TEMPLATE, but for class types.  */
   5250 #define CLASSTYPE_USE_TEMPLATE(NODE) \
   5251   (LANG_TYPE_CLASS_CHECK (NODE)->use_template)
   5252 
   5253 /* True if NODE is a specialization of a primary template.  */
   5254 #define CLASSTYPE_SPECIALIZATION_OF_PRIMARY_TEMPLATE_P(NODE)	\
   5255   (CLASS_TYPE_P (NODE)						\
   5256    && CLASSTYPE_USE_TEMPLATE (NODE)				\
   5257    && PRIMARY_TEMPLATE_P (CLASSTYPE_TI_TEMPLATE (NODE)))
   5258 
   5259 #define DECL_TEMPLATE_INSTANTIATION(NODE) (DECL_USE_TEMPLATE (NODE) & 1)
   5260 #define CLASSTYPE_TEMPLATE_INSTANTIATION(NODE) \
   5261   (CLASSTYPE_USE_TEMPLATE (NODE) & 1)
   5262 
   5263 #define DECL_TEMPLATE_SPECIALIZATION(NODE) (DECL_USE_TEMPLATE (NODE) == 2)
   5264 #define SET_DECL_TEMPLATE_SPECIALIZATION(NODE) (DECL_USE_TEMPLATE (NODE) = 2)
   5265 
   5266 /* Returns true for an explicit or partial specialization of a class
   5267    template.  */
   5268 #define CLASSTYPE_TEMPLATE_SPECIALIZATION(NODE) \
   5269   (CLASSTYPE_USE_TEMPLATE (NODE) == 2)
   5270 #define SET_CLASSTYPE_TEMPLATE_SPECIALIZATION(NODE) \
   5271   (CLASSTYPE_USE_TEMPLATE (NODE) = 2)
   5272 
   5273 #define DECL_IMPLICIT_INSTANTIATION(NODE) (DECL_USE_TEMPLATE (NODE) == 1)
   5274 #define SET_DECL_IMPLICIT_INSTANTIATION(NODE) (DECL_USE_TEMPLATE (NODE) = 1)
   5275 #define CLASSTYPE_IMPLICIT_INSTANTIATION(NODE) \
   5276   (CLASSTYPE_USE_TEMPLATE (NODE) == 1)
   5277 #define SET_CLASSTYPE_IMPLICIT_INSTANTIATION(NODE) \
   5278   (CLASSTYPE_USE_TEMPLATE (NODE) = 1)
   5279 
   5280 #define DECL_EXPLICIT_INSTANTIATION(NODE) (DECL_USE_TEMPLATE (NODE) == 3)
   5281 #define SET_DECL_EXPLICIT_INSTANTIATION(NODE) (DECL_USE_TEMPLATE (NODE) = 3)
   5282 #define CLASSTYPE_EXPLICIT_INSTANTIATION(NODE) \
   5283   (CLASSTYPE_USE_TEMPLATE (NODE) == 3)
   5284 #define SET_CLASSTYPE_EXPLICIT_INSTANTIATION(NODE) \
   5285   (CLASSTYPE_USE_TEMPLATE (NODE) = 3)
   5286 
   5287 /* Nonzero if DECL is a friend function which is an instantiation
   5288    from the point of view of the compiler, but not from the point of
   5289    view of the language.  For example given:
   5290       template <class T> struct S { friend void f(T) {}; };
   5291    the declaration of `void f(int)' generated when S<int> is
   5292    instantiated will not be a DECL_TEMPLATE_INSTANTIATION, but will be
   5293    a DECL_FRIEND_PSEUDO_TEMPLATE_INSTANTIATION.  */
   5294 #define DECL_FRIEND_PSEUDO_TEMPLATE_INSTANTIATION(DECL) \
   5295   (DECL_LANG_SPECIFIC (DECL) && DECL_TEMPLATE_INFO (DECL) \
   5296    && !DECL_USE_TEMPLATE (DECL))
   5297 
   5298 /* Nonzero if DECL is a function generated from a function 'temploid',
   5299    i.e. template, member of class template, or dependent friend.  */
   5300 #define DECL_TEMPLOID_INSTANTIATION(DECL)		\
   5301   (DECL_TEMPLATE_INSTANTIATION (DECL)			\
   5302    || DECL_FRIEND_PSEUDO_TEMPLATE_INSTANTIATION (DECL))
   5303 
   5304 /* Nonzero if DECL is either defined implicitly by the compiler or
   5305    generated from a temploid.  */
   5306 #define DECL_GENERATED_P(DECL) \
   5307   (DECL_TEMPLOID_INSTANTIATION (DECL) || DECL_DEFAULTED_FN (DECL))
   5308 
   5309 /* Nonzero iff we are currently processing a declaration for an
   5310    entity with its own template parameter list, and which is not a
   5311    full specialization.  */
   5312 #define PROCESSING_REAL_TEMPLATE_DECL_P() \
   5313   (!processing_template_parmlist \
   5314    && current_template_depth > template_class_depth (current_scope ()))
   5315 
   5316 /* Nonzero if this VAR_DECL or FUNCTION_DECL has already been
   5317    instantiated, i.e. its definition has been generated from the
   5318    pattern given in the template.  */
   5319 #define DECL_TEMPLATE_INSTANTIATED(NODE) \
   5320   DECL_LANG_FLAG_1 (VAR_OR_FUNCTION_DECL_CHECK (NODE))
   5321 
   5322 /* We know what we're doing with this decl now.  */
   5323 #define DECL_INTERFACE_KNOWN(NODE) DECL_LANG_FLAG_5 (NODE)
   5324 
   5325 /* DECL_EXTERNAL must be set on a decl until the decl is actually emitted,
   5326    so that assemble_external will work properly.  So we have this flag to
   5327    tell us whether the decl is really not external.
   5328 
   5329    This flag does not indicate whether or not the decl is defined in the
   5330    current translation unit; it indicates whether or not we should emit the
   5331    decl at the end of compilation if it is defined and needed.  */
   5332 #define DECL_NOT_REALLY_EXTERN(NODE) \
   5333   (DECL_LANG_SPECIFIC (NODE)->u.base.not_really_extern)
   5334 
   5335 #define DECL_REALLY_EXTERN(NODE) \
   5336   (DECL_EXTERNAL (NODE)				\
   5337    && (!DECL_LANG_SPECIFIC (NODE) || !DECL_NOT_REALLY_EXTERN (NODE)))
   5338 
   5339 /* A thunk is a stub function.
   5340 
   5341    A thunk is an alternate entry point for an ordinary FUNCTION_DECL.
   5342    The address of the ordinary FUNCTION_DECL is given by the
   5343    DECL_INITIAL, which is always an ADDR_EXPR whose operand is a
   5344    FUNCTION_DECL.  The job of the thunk is to either adjust the this
   5345    pointer before transferring control to the FUNCTION_DECL, or call
   5346    FUNCTION_DECL and then adjust the result value. Note, the result
   5347    pointer adjusting thunk must perform a call to the thunked
   5348    function, (or be implemented via passing some invisible parameter
   5349    to the thunked function, which is modified to perform the
   5350    adjustment just before returning).
   5351 
   5352    A thunk may perform either, or both, of the following operations:
   5353 
   5354    o Adjust the this or result pointer by a constant offset.
   5355    o Adjust the this or result pointer by looking up a vcall or vbase offset
   5356      in the vtable.
   5357 
   5358    A this pointer adjusting thunk converts from a base to a derived
   5359    class, and hence adds the offsets. A result pointer adjusting thunk
   5360    converts from a derived class to a base, and hence subtracts the
   5361    offsets.  If both operations are performed, then the constant
   5362    adjustment is performed first for this pointer adjustment and last
   5363    for the result pointer adjustment.
   5364 
   5365    The constant adjustment is given by THUNK_FIXED_OFFSET.  If the
   5366    vcall or vbase offset is required, THUNK_VIRTUAL_OFFSET is
   5367    used. For this pointer adjusting thunks, it is the vcall offset
   5368    into the vtable.  For result pointer adjusting thunks it is the
   5369    binfo of the virtual base to convert to.  Use that binfo's vbase
   5370    offset.
   5371 
   5372    It is possible to have equivalent covariant thunks.  These are
   5373    distinct virtual covariant thunks whose vbase offsets happen to
   5374    have the same value.  THUNK_ALIAS is used to pick one as the
   5375    canonical thunk, which will get all the this pointer adjusting
   5376    thunks attached to it.  */
   5377 
   5378 /* An integer indicating how many bytes should be subtracted from the
   5379    this or result pointer when this function is called.  */
   5380 #define THUNK_FIXED_OFFSET(DECL) \
   5381   (DECL_LANG_SPECIFIC (THUNK_FUNCTION_CHECK (DECL))->u.fn.u5.fixed_offset)
   5382 
   5383 /* A tree indicating how to perform the virtual adjustment. For a this
   5384    adjusting thunk it is the number of bytes to be added to the vtable
   5385    to find the vcall offset. For a result adjusting thunk, it is the
   5386    binfo of the relevant virtual base.  If NULL, then there is no
   5387    virtual adjust.  (The vptr is always located at offset zero from
   5388    the this or result pointer.)  (If the covariant type is within the
   5389    class hierarchy being laid out, the vbase index is not yet known
   5390    at the point we need to create the thunks, hence the need to use
   5391    binfos.)  */
   5392 
   5393 #define THUNK_VIRTUAL_OFFSET(DECL) \
   5394   (LANG_DECL_MIN_CHECK (FUNCTION_DECL_CHECK (DECL))->access)
   5395 
   5396 /* A thunk which is equivalent to another thunk.  */
   5397 #define THUNK_ALIAS(DECL) \
   5398   (DECL_LANG_SPECIFIC (FUNCTION_DECL_CHECK (DECL))->u.min.template_info)
   5399 
   5400 /* For thunk NODE, this is the FUNCTION_DECL thunked to.  It is
   5401    possible for the target to be a thunk too.  */
   5402 #define THUNK_TARGET(NODE)				\
   5403   (LANG_DECL_FN_CHECK (NODE)->befriending_classes)
   5404 
   5405 /* True for a SCOPE_REF iff the "template" keyword was used to
   5406    indicate that the qualified name denotes a template.  */
   5407 #define QUALIFIED_NAME_IS_TEMPLATE(NODE) \
   5408   (TREE_LANG_FLAG_1 (SCOPE_REF_CHECK (NODE)))
   5409 
   5410 /* [coroutines]
   5411 */
   5412 
   5413 /* True if NODE is a co-routine FUNCTION_DECL.  */
   5414 #define DECL_COROUTINE_P(NODE) \
   5415   (LANG_DECL_FN_CHECK (DECL_COMMON_CHECK (NODE))->coroutine_p)
   5416 
   5417 /* For a FUNCTION_DECL of a coroutine, this holds the ACTOR helper function
   5418    decl.  */
   5419 #define DECL_ACTOR_FN(NODE) \
   5420   (coro_get_actor_function ((NODE)))
   5421 
   5422 /* For a FUNCTION_DECL of a coroutine, this holds the DESTROY helper function
   5423   decl.  */
   5424 #define DECL_DESTROY_FN(NODE) \
   5425   (coro_get_destroy_function ((NODE)))
   5426 
   5427 /* For a FUNCTION_DECL of a coroutine helper (ACTOR or DESTROY), this points
   5428    back to the original (ramp) function.  */
   5429 #define DECL_RAMP_FN(NODE) \
   5430   (coro_get_ramp_function (NODE))
   5431 
   5432 /* True for an OMP_ATOMIC that has dependent parameters.  These are stored
   5433    as an expr in operand 1, and integer_zero_node or clauses in operand 0.  */
   5434 #define OMP_ATOMIC_DEPENDENT_P(NODE) \
   5435   (TREE_CODE (TREE_OPERAND (OMP_ATOMIC_CHECK (NODE), 0)) == INTEGER_CST \
   5436    || TREE_CODE (TREE_OPERAND (OMP_ATOMIC_CHECK (NODE), 0)) == OMP_CLAUSE)
   5437 
   5438 /* Used while gimplifying continue statements bound to OMP_FOR nodes.  */
   5439 #define OMP_FOR_GIMPLIFYING_P(NODE) \
   5440   (TREE_LANG_FLAG_0 (OMP_LOOPING_CHECK (NODE)))
   5441 
   5442 /* A language-specific token attached to the OpenMP data clauses to
   5443    hold code (or code fragments) related to ctors, dtors, and op=.
   5444    See semantics.cc for details.  */
   5445 #define CP_OMP_CLAUSE_INFO(NODE) \
   5446   TREE_TYPE (OMP_CLAUSE_RANGE_CHECK (NODE, OMP_CLAUSE_PRIVATE, \
   5447 				     OMP_CLAUSE__CONDTEMP_))
   5448 
   5449 /* Nonzero if this transaction expression's body contains statements.  */
   5450 #define TRANSACTION_EXPR_IS_STMT(NODE) \
   5451    TREE_LANG_FLAG_0 (TRANSACTION_EXPR_CHECK (NODE))
   5452 
   5453 /* These macros provide convenient access to the various _STMT nodes
   5454    created when parsing template declarations.  */
   5455 #define TRY_STMTS(NODE)		TREE_OPERAND (TRY_BLOCK_CHECK (NODE), 0)
   5456 #define TRY_HANDLERS(NODE)	TREE_OPERAND (TRY_BLOCK_CHECK (NODE), 1)
   5457 
   5458 #define EH_SPEC_STMTS(NODE)	TREE_OPERAND (EH_SPEC_BLOCK_CHECK (NODE), 0)
   5459 #define EH_SPEC_RAISES(NODE)	TREE_OPERAND (EH_SPEC_BLOCK_CHECK (NODE), 1)
   5460 
   5461 #define USING_STMT_NAMESPACE(NODE) TREE_OPERAND (USING_STMT_CHECK (NODE), 0)
   5462 
   5463 /* Nonzero if this try block is a function try block.  */
   5464 #define FN_TRY_BLOCK_P(NODE)	TREE_LANG_FLAG_3 (TRY_BLOCK_CHECK (NODE))
   5465 #define HANDLER_PARMS(NODE)	TREE_OPERAND (HANDLER_CHECK (NODE), 0)
   5466 #define HANDLER_BODY(NODE)	TREE_OPERAND (HANDLER_CHECK (NODE), 1)
   5467 #define HANDLER_TYPE(NODE)	TREE_TYPE (HANDLER_CHECK (NODE))
   5468 
   5469 /* CLEANUP_STMT accessors.  The statement(s) covered, the cleanup to run
   5470    and the VAR_DECL for which this cleanup exists.  */
   5471 #define CLEANUP_BODY(NODE)	TREE_OPERAND (CLEANUP_STMT_CHECK (NODE), 0)
   5472 #define CLEANUP_EXPR(NODE)	TREE_OPERAND (CLEANUP_STMT_CHECK (NODE), 1)
   5473 #define CLEANUP_DECL(NODE)	TREE_OPERAND (CLEANUP_STMT_CHECK (NODE), 2)
   5474 
   5475 /* IF_STMT accessors. These give access to the condition of the if
   5476    statement, the then block of the if statement, and the else block
   5477    of the if statement if it exists.  */
   5478 #define IF_COND(NODE)		TREE_OPERAND (IF_STMT_CHECK (NODE), 0)
   5479 #define THEN_CLAUSE(NODE)	TREE_OPERAND (IF_STMT_CHECK (NODE), 1)
   5480 #define ELSE_CLAUSE(NODE)	TREE_OPERAND (IF_STMT_CHECK (NODE), 2)
   5481 #define IF_SCOPE(NODE)		TREE_OPERAND (IF_STMT_CHECK (NODE), 3)
   5482 #define IF_STMT_CONSTEXPR_P(NODE) TREE_LANG_FLAG_0 (IF_STMT_CHECK (NODE))
   5483 #define IF_STMT_CONSTEVAL_P(NODE) TREE_LANG_FLAG_2 (IF_STMT_CHECK (NODE))
   5484 
   5485 /* Like PACK_EXPANSION_EXTRA_ARGS, for constexpr if.  IF_SCOPE is used while
   5486    building an IF_STMT; IF_STMT_EXTRA_ARGS is used after it is complete.  */
   5487 #define IF_STMT_EXTRA_ARGS(NODE) IF_SCOPE (NODE)
   5488 
   5489 /* RANGE_FOR_STMT accessors. These give access to the declarator,
   5490    expression, body, and scope of the statement, respectively.  */
   5491 #define RANGE_FOR_DECL(NODE)	TREE_OPERAND (RANGE_FOR_STMT_CHECK (NODE), 0)
   5492 #define RANGE_FOR_EXPR(NODE)	TREE_OPERAND (RANGE_FOR_STMT_CHECK (NODE), 1)
   5493 #define RANGE_FOR_BODY(NODE)	TREE_OPERAND (RANGE_FOR_STMT_CHECK (NODE), 2)
   5494 #define RANGE_FOR_SCOPE(NODE)	TREE_OPERAND (RANGE_FOR_STMT_CHECK (NODE), 3)
   5495 #define RANGE_FOR_UNROLL(NODE)	TREE_OPERAND (RANGE_FOR_STMT_CHECK (NODE), 4)
   5496 #define RANGE_FOR_INIT_STMT(NODE) TREE_OPERAND (RANGE_FOR_STMT_CHECK (NODE), 5)
   5497 #define RANGE_FOR_IVDEP(NODE)	TREE_LANG_FLAG_6 (RANGE_FOR_STMT_CHECK (NODE))
   5498 #define RANGE_FOR_NOVECTOR(NODE) TREE_LANG_FLAG_5 (RANGE_FOR_STMT_CHECK (NODE))
   5499 
   5500 /* STMT_EXPR accessor.  */
   5501 #define STMT_EXPR_STMT(NODE)	TREE_OPERAND (STMT_EXPR_CHECK (NODE), 0)
   5502 
   5503 /* EXPR_STMT accessor. This gives the expression associated with an
   5504    expression statement.  */
   5505 #define EXPR_STMT_EXPR(NODE)	TREE_OPERAND (EXPR_STMT_CHECK (NODE), 0)
   5506 
   5507 /* True if this TARGET_EXPR was created by build_cplus_new, and so we can
   5508    discard it if it isn't useful.  */
   5509 #define TARGET_EXPR_IMPLICIT_P(NODE) \
   5510   TREE_LANG_FLAG_0 (TARGET_EXPR_CHECK (NODE))
   5511 
   5512 /* True if this TARGET_EXPR is the result of list-initialization of a
   5513    temporary.  */
   5514 #define TARGET_EXPR_LIST_INIT_P(NODE) \
   5515   TREE_LANG_FLAG_1 (TARGET_EXPR_CHECK (NODE))
   5516 
   5517 /* True if this TARGET_EXPR expresses direct-initialization of an object
   5518    to be named later.  */
   5519 #define TARGET_EXPR_DIRECT_INIT_P(NODE) \
   5520   TREE_LANG_FLAG_2 (TARGET_EXPR_CHECK (NODE))
   5521 
   5522 /* True if we expect this TARGET_EXPR to be used as an initializer, not to
   5523    materialize as a temporary.  */
   5524 #define TARGET_EXPR_ELIDING_P(NODE) \
   5525   TREE_LANG_FLAG_3 (TARGET_EXPR_CHECK (NODE))
   5526 
   5527 /* True if NODE is a TARGET_EXPR that just expresses a copy of its INITIAL; if
   5528    the initializer has void type, it's doing something more complicated.  */
   5529 #define SIMPLE_TARGET_EXPR_P(NODE)				\
   5530   (TREE_CODE (NODE) == TARGET_EXPR				\
   5531    && TARGET_EXPR_INITIAL (NODE)				\
   5532    && !VOID_TYPE_P (TREE_TYPE (TARGET_EXPR_INITIAL (NODE))))
   5533 
   5534 /* True if T is a TARGET_EXPR for which we'll need to replace_decl to use it as
   5535    an initializer.  */
   5536 inline bool
   5537 target_expr_needs_replace (tree t)
   5538 {
   5539   if (!t || TREE_CODE (t) != TARGET_EXPR)
   5540     return false;
   5541   tree init = TARGET_EXPR_INITIAL (t);
   5542   if (!init || !VOID_TYPE_P (TREE_TYPE (init)))
   5543     return false;
   5544   while (TREE_CODE (init) == COMPOUND_EXPR)
   5545     init = TREE_OPERAND (init, 1);
   5546   return (TREE_CODE (init) != AGGR_INIT_EXPR
   5547 	  && TREE_CODE (init) != VEC_INIT_EXPR);
   5548 }
   5549 
   5550 /* True if EXPR expresses direct-initialization of a TYPE.  */
   5551 #define DIRECT_INIT_EXPR_P(TYPE,EXPR)					\
   5552   (TREE_CODE (EXPR) == TARGET_EXPR && TREE_LANG_FLAG_2 (EXPR)		\
   5553    && same_type_ignoring_top_level_qualifiers_p (TYPE, TREE_TYPE (EXPR)))
   5554 
   5555 /* True if this CONVERT_EXPR is for a conversion to virtual base in
   5556    an NSDMI, and should be re-evaluated when used in a constructor.  */
   5557 #define CONVERT_EXPR_VBASE_PATH(NODE) \
   5558   TREE_LANG_FLAG_0 (CONVERT_EXPR_CHECK (NODE))
   5559 
   5560 /* True if SIZEOF_EXPR argument is type.  */
   5561 #define SIZEOF_EXPR_TYPE_P(NODE) \
   5562   TREE_LANG_FLAG_0 (SIZEOF_EXPR_CHECK (NODE))
   5563 
   5564 /* True if the ALIGNOF_EXPR was spelled "alignof".  */
   5565 #define ALIGNOF_EXPR_STD_P(NODE) \
   5566   TREE_LANG_FLAG_0 (ALIGNOF_EXPR_CHECK (NODE))
   5567 
   5568 /* OMP_DEPOBJ accessors. These give access to the depobj expression of the
   5569    #pragma omp depobj directive and the clauses, respectively.  If
   5570    OMP_DEPOBJ_CLAUSES is INTEGER_CST, it is instead the update clause kind
   5571    or OMP_CLAUSE_DEPEND_LAST for destroy clause.  */
   5572 #define OMP_DEPOBJ_DEPOBJ(NODE)	 TREE_OPERAND (OMP_DEPOBJ_CHECK (NODE), 0)
   5573 #define OMP_DEPOBJ_CLAUSES(NODE) TREE_OPERAND (OMP_DEPOBJ_CHECK (NODE), 1)
   5574 
   5575 /* An enumeration of the kind of tags that C++ accepts.  */
   5576 enum tag_types {
   5577   none_type = 0, /* Not a tag type.  */
   5578   record_type,   /* "struct" types.  */
   5579   class_type,    /* "class" types.  */
   5580   union_type,    /* "union" types.  */
   5581   enum_type,     /* "enum" types.  */
   5582   typename_type, /* "typename" types.  */
   5583   scope_type	 /* namespace or tagged type name followed by :: */
   5584 };
   5585 
   5586 /* The various kinds of lvalues we distinguish.  */
   5587 enum cp_lvalue_kind_flags {
   5588   clk_none = 0,     /* Things that are not an lvalue.  */
   5589   clk_ordinary = 1, /* An ordinary lvalue.  */
   5590   clk_rvalueref = 2,/* An xvalue (rvalue formed using an rvalue reference) */
   5591   clk_class = 4,    /* A prvalue of class or array type.  */
   5592   clk_bitfield = 8, /* An lvalue for a bit-field.  */
   5593   clk_packed = 16,  /* An lvalue for a packed field.  */
   5594   clk_implicit_rval = 1<<5, /* An lvalue being treated as an xvalue.  */
   5595   clk_mergeable = 1<<6
   5596 };
   5597 
   5598 /* This type is used for parameters and variables which hold
   5599    combinations of the flags in enum cp_lvalue_kind_flags.  */
   5600 typedef int cp_lvalue_kind;
   5601 
   5602 /* Various kinds of template specialization, instantiation, etc.  */
   5603 enum tmpl_spec_kind {
   5604   tsk_none,		   /* Not a template at all.  */
   5605   tsk_invalid_member_spec, /* An explicit member template
   5606 			      specialization, but the enclosing
   5607 			      classes have not all been explicitly
   5608 			      specialized.  */
   5609   tsk_invalid_expl_inst,   /* An explicit instantiation containing
   5610 			      template parameter lists.  */
   5611   tsk_excessive_parms,	   /* A template declaration with too many
   5612 			      template parameter lists.  */
   5613   tsk_insufficient_parms,  /* A template declaration with too few
   5614 			      parameter lists.  */
   5615   tsk_template,		   /* A template declaration.  */
   5616   tsk_expl_spec,	   /* An explicit specialization.  */
   5617   tsk_expl_inst		   /* An explicit instantiation.  */
   5618 };
   5619 
   5620 /* The various kinds of access.  BINFO_ACCESS depends on these being
   5621    two bit quantities.  The numerical values are important; they are
   5622    used to initialize RTTI data structures, so changing them changes
   5623    the ABI.  */
   5624 enum access_kind {
   5625   ak_none = 0,		   /* Inaccessible.  */
   5626   ak_public = 1,	   /* Accessible, as a `public' thing.  */
   5627   ak_protected = 2,	   /* Accessible, as a `protected' thing.  */
   5628   ak_private = 3	   /* Accessible, as a `private' thing.  */
   5629 };
   5630 
   5631 /* The various kinds of special functions.  If you add to this list,
   5632    you should update special_function_p as well.  */
   5633 enum special_function_kind {
   5634   sfk_none = 0,		   /* Not a special function.  This enumeral
   5635 			      must have value zero; see
   5636 			      special_function_p.  */
   5637   /* The following are ordered, for use by member synthesis fns.  */
   5638   sfk_destructor,	   /* A destructor.  */
   5639   sfk_constructor,	   /* A constructor.  */
   5640   sfk_inheriting_constructor, /* An inheriting constructor */
   5641   sfk_copy_constructor,    /* A copy constructor.  */
   5642   sfk_move_constructor,    /* A move constructor.  */
   5643   sfk_copy_assignment,     /* A copy assignment operator.  */
   5644   sfk_move_assignment,     /* A move assignment operator.  */
   5645   /* The following are unordered.  */
   5646   sfk_complete_destructor, /* A destructor for complete objects.  */
   5647   sfk_base_destructor,     /* A destructor for base subobjects.  */
   5648   sfk_deleting_destructor, /* A destructor for complete objects that
   5649 			      deletes the object after it has been
   5650 			      destroyed.  */
   5651   sfk_conversion,	   /* A conversion operator.  */
   5652   sfk_deduction_guide,	   /* A class template deduction guide.  */
   5653   sfk_comparison,	   /* A comparison operator (e.g. ==, <, <=>).  */
   5654   sfk_virtual_destructor   /* Used by member synthesis fns.  */
   5655 };
   5656 
   5657 /* The various kinds of linkage.  From [basic.link],
   5658 
   5659       A name is said to have linkage when it might denote the same
   5660       object, reference, function, type, template, namespace or value
   5661       as a name introduced in another scope:
   5662 
   5663       -- When a name has external linkage, the entity it denotes can
   5664 	 be referred to from scopes of other translation units or from
   5665 	 other scopes of the same translation unit.
   5666 
   5667       -- When a name has internal linkage, the entity it denotes can
   5668 	 be referred to by names from other scopes in the same
   5669 	 translation unit.
   5670 
   5671       -- When a name has no linkage, the entity it denotes cannot be
   5672 	 referred to by names from other scopes.  */
   5673 
   5674 enum linkage_kind {
   5675   lk_none,			/* No linkage.  */
   5676   lk_internal,			/* Internal linkage.  */
   5677   lk_external			/* External linkage.  */
   5678 };
   5679 
   5680 enum duration_kind {
   5681   dk_static,
   5682   dk_thread,
   5683   dk_auto,
   5684   dk_dynamic
   5685 };
   5686 
   5687 /* Bitmask flags to control type substitution.  */
   5688 enum tsubst_flags {
   5689   tf_none = 0,			 /* nothing special */
   5690   tf_error = 1 << 0,		 /* give error messages  */
   5691   tf_warning = 1 << 1,	 	 /* give warnings too  */
   5692   tf_ignore_bad_quals = 1 << 2,	 /* ignore bad cvr qualifiers */
   5693   tf_keep_type_decl = 1 << 3,	 /* retain typedef type decls
   5694 				    (make_typename_type use) */
   5695   tf_ptrmem_ok = 1 << 4,	 /* pointers to member ok (internal
   5696 				    instantiate_type use) */
   5697   tf_user = 1 << 5,		 /* found template must be a user template
   5698 				    (lookup_template_class use) */
   5699   tf_conv = 1 << 6,		 /* We are determining what kind of
   5700 				    conversion might be permissible,
   5701 				    not actually performing the
   5702 				    conversion.  */
   5703   tf_decltype = 1 << 7,          /* We are the operand of decltype.
   5704 				    Used to implement the special rules
   5705 				    for calls in decltype (5.2.2/11).  */
   5706   tf_partial = 1 << 8,		 /* Doing initial explicit argument
   5707 				    substitution in fn_type_unification.  */
   5708   tf_fndecl_type = 1 << 9,   /* Substituting the type of a function
   5709 				declaration.  */
   5710   tf_no_cleanup = 1 << 10,   /* Do not build a cleanup
   5711 				(build_target_expr and friends) */
   5712   tf_norm = 1 << 11,		 /* Build diagnostic information during
   5713 				    constraint normalization.  */
   5714   tf_tst_ok = 1 << 12,		 /* Allow a typename-specifier to name
   5715 				    a template (C++17 or later).  */
   5716   tf_dguide = 1 << 13,		/* Building a deduction guide from a ctor.  */
   5717   tf_qualifying_scope = 1 << 14, /* Substituting the LHS of the :: operator.
   5718 				    Affects TYPENAME_TYPE resolution from
   5719 				    make_typename_type.  */
   5720   tf_no_name_lookup = 1 << 15, /* Don't look up the terminal name of an
   5721 				  outermost id-expression, or resolve its
   5722 				  constituent template-ids or qualified-ids.  */
   5723   /* Convenient substitution flags combinations.  */
   5724   tf_warning_or_error = tf_warning | tf_error
   5725 };
   5726 
   5727 /* This type is used for parameters and variables which hold
   5728    combinations of the flags in enum tsubst_flags.  */
   5729 typedef int tsubst_flags_t;
   5730 
   5731 /* The kind of checking we can do looking in a class hierarchy.  */
   5732 enum base_access_flags {
   5733   ba_any = 0,  /* Do not check access, allow an ambiguous base,
   5734 		      prefer a non-virtual base */
   5735   ba_unique = 1 << 0,  /* Must be a unique base.  */
   5736   ba_check_bit = 1 << 1,   /* Check access.  */
   5737   ba_check = ba_unique | ba_check_bit,
   5738   ba_ignore_scope = 1 << 2 /* Ignore access allowed by local scope.  */
   5739 };
   5740 
   5741 /* This type is used for parameters and variables which hold
   5742    combinations of the flags in enum base_access_flags.  */
   5743 typedef int base_access;
   5744 
   5745 /* The various kinds of access check during parsing.  */
   5746 enum deferring_kind {
   5747   dk_no_deferred = 0, /* Check access immediately */
   5748   dk_deferred = 1,    /* Deferred check */
   5749   dk_no_check = 2     /* No access check */
   5750 };
   5751 
   5752 /* The kind of base we can find, looking in a class hierarchy.
   5753    Values <0 indicate we failed.  */
   5754 enum base_kind {
   5755   bk_inaccessible = -3,   /* The base is inaccessible */
   5756   bk_ambig = -2,	  /* The base is ambiguous */
   5757   bk_not_base = -1,	  /* It is not a base */
   5758   bk_same_type = 0,	  /* It is the same type */
   5759   bk_proper_base = 1,	  /* It is a proper base */
   5760   bk_via_virtual = 2	  /* It is a proper base, but via a virtual
   5761 			     path. This might not be the canonical
   5762 			     binfo.  */
   5763 };
   5764 
   5765 /* Node for "pointer to (virtual) function".
   5766    This may be distinct from ptr_type_node so gdb can distinguish them.  */
   5767 #define vfunc_ptr_type_node  vtable_entry_type
   5768 
   5769 
   5770 /* For building calls to `delete'.  */
   5771 extern GTY(()) tree integer_two_node;
   5772 
   5773 /* The number of function bodies which we are currently processing.
   5774    (Zero if we are at namespace scope, one inside the body of a
   5775    function, two inside the body of a function in a local class, etc.)  */
   5776 extern int function_depth;
   5777 
   5778 /* Nonzero if we are inside spec_hasher::equal, which affects
   5779    comparison of PARM_DECLs in cp_tree_equal.  */
   5780 extern int comparing_specializations;
   5781 
   5782 /* Nonzero if we want different dependent aliases to compare as unequal.
   5783    FIXME we should always do this except during deduction/ordering.  */
   5784 extern int comparing_dependent_aliases;
   5785 
   5786 /* Nonzero if we want to consider different member expressions to compare
   5787    equal if they designate the same entity. This is set when comparing
   5788    contract conditions of overrides.  */
   5789 extern bool comparing_override_contracts;
   5790 
   5791 /* In parser.cc.  */
   5792 
   5793 /* Nonzero if we are parsing an unevaluated operand: an operand to
   5794    sizeof, typeof, or alignof.  This is a count since operands to
   5795    sizeof can be nested.  */
   5796 
   5797 extern int cp_unevaluated_operand;
   5798 
   5799 /* RAII class used to inhibit the evaluation of operands during parsing
   5800    and template instantiation. Evaluation warnings are also inhibited. */
   5801 
   5802 class cp_unevaluated
   5803 {
   5804 public:
   5805   cp_unevaluated ();
   5806   ~cp_unevaluated ();
   5807 };
   5808 
   5809 /* The reverse: an RAII class used for nested contexts that are evaluated even
   5810    if the enclosing context is not.  */
   5811 
   5812 class cp_evaluated
   5813 {
   5814 public:
   5815   int uneval;
   5816   int inhibit;
   5817   cp_evaluated (bool reset = true)
   5818     : uneval(cp_unevaluated_operand), inhibit(c_inhibit_evaluation_warnings)
   5819   { if (reset)
   5820       cp_unevaluated_operand = c_inhibit_evaluation_warnings = 0; }
   5821   ~cp_evaluated ()
   5822   { cp_unevaluated_operand = uneval;
   5823     c_inhibit_evaluation_warnings = inhibit; }
   5824 };
   5825 
   5826 /* in pt.cc  */
   5827 
   5828 /* These values are used for the `STRICT' parameter to type_unification and
   5829    fn_type_unification.  Their meanings are described with the
   5830    documentation for fn_type_unification.  */
   5831 
   5832 enum unification_kind_t {
   5833   DEDUCE_CALL,
   5834   DEDUCE_CONV,
   5835   DEDUCE_EXACT
   5836 };
   5837 
   5838 // An RAII class used to create a new pointer map for local
   5839 // specializations. When the stack goes out of scope, the
   5840 // previous pointer map is restored.
   5841 enum lss_policy { lss_blank, lss_copy, lss_nop };
   5842 class local_specialization_stack
   5843 {
   5844 public:
   5845   local_specialization_stack (lss_policy = lss_blank);
   5846   ~local_specialization_stack ();
   5847 
   5848   hash_map<tree, tree> *saved;
   5849 };
   5850 
   5851 /* Entry in the specialization hash table.  */
   5852 struct GTY((for_user)) spec_entry
   5853 {
   5854   tree tmpl;  /* The general template this is a specialization of.  */
   5855   tree args;  /* The args for this (maybe-partial) specialization.  */
   5856   tree spec;  /* The specialization itself.  */
   5857 };
   5858 
   5859 /* in class.cc */
   5860 
   5861 extern int current_class_depth;
   5862 
   5863 /* in decl.cc */
   5864 
   5865 /* An array of static vars & fns.  */
   5866 extern GTY(()) vec<tree, va_gc> *static_decls;
   5867 
   5868 /* An array of vtable-needing types that have no key function, or have
   5869    an emitted key function.  */
   5870 extern GTY(()) vec<tree, va_gc> *keyed_classes;
   5871 
   5872 /* Here's where we control how name mangling takes place.  */
   5874 
   5875 /* Cannot use '$' up front, because this confuses gdb
   5876    (names beginning with '$' are gdb-local identifiers).
   5877 
   5878    Note that all forms in which the '$' is significant are long enough
   5879    for direct indexing (meaning that if we know there is a '$'
   5880    at a particular location, we can index into the string at
   5881    any other location that provides distinguishing characters).  */
   5882 
   5883 /* Define NO_DOT_IN_LABEL in your favorite tm file if your assembler
   5884    doesn't allow '.' in symbol names.  */
   5885 #ifndef NO_DOT_IN_LABEL
   5886 
   5887 #define JOINER '.'
   5888 #define JOIN_STR "."
   5889 
   5890 #define AUTO_TEMP_NAME "_.tmp_"
   5891 #define VFIELD_BASE ".vf"
   5892 #define VFIELD_NAME "_vptr."
   5893 #define VFIELD_NAME_FORMAT "_vptr.%s"
   5894 
   5895 #else /* NO_DOT_IN_LABEL */
   5896 
   5897 #ifndef NO_DOLLAR_IN_LABEL
   5898 
   5899 #define JOINER '$'
   5900 #define JOIN_STR "$"
   5901 
   5902 #define AUTO_TEMP_NAME "_$tmp_"
   5903 #define VFIELD_BASE "$vf"
   5904 #define VFIELD_NAME "_vptr$"
   5905 #define VFIELD_NAME_FORMAT "_vptr$%s"
   5906 
   5907 #else /* NO_DOLLAR_IN_LABEL */
   5908 
   5909 #define JOIN_STR "_"
   5910 
   5911 #define VTABLE_NAME "__vt_"
   5912 #define VTABLE_NAME_P(ID_NODE) \
   5913   (!strncmp (IDENTIFIER_POINTER (ID_NODE), VTABLE_NAME, \
   5914 	     sizeof (VTABLE_NAME) - 1))
   5915 #define VFIELD_BASE "__vfb"
   5916 #define VFIELD_NAME "__vptr_"
   5917 #define VFIELD_NAME_P(ID_NODE) \
   5918   (!strncmp (IDENTIFIER_POINTER (ID_NODE), VFIELD_NAME, \
   5919 	    sizeof (VFIELD_NAME) - 1))
   5920 #define VFIELD_NAME_FORMAT "__vptr_%s"
   5921 
   5922 #endif	/* NO_DOLLAR_IN_LABEL */
   5923 #endif	/* NO_DOT_IN_LABEL */
   5924 
   5925 #define UDLIT_OP_ANSI_PREFIX "operator\"\""
   5926 #define UDLIT_OP_ANSI_FORMAT UDLIT_OP_ANSI_PREFIX "%s"
   5927 #define UDLIT_OP_MANGLED_PREFIX "li"
   5928 #define UDLIT_OP_MANGLED_FORMAT UDLIT_OP_MANGLED_PREFIX "%s"
   5929 #define UDLIT_OPER_P(ID_NODE) \
   5930   (!strncmp (IDENTIFIER_POINTER (ID_NODE), \
   5931              UDLIT_OP_ANSI_PREFIX, \
   5932 	     sizeof (UDLIT_OP_ANSI_PREFIX) - 1))
   5933 #define UDLIT_OP_SUFFIX(ID_NODE) \
   5934   (IDENTIFIER_POINTER (ID_NODE) + sizeof (UDLIT_OP_ANSI_PREFIX) - 1)
   5935 
   5936 #if !defined(NO_DOLLAR_IN_LABEL) || !defined(NO_DOT_IN_LABEL)
   5937 
   5938 #define VTABLE_NAME_P(ID_NODE) (IDENTIFIER_POINTER (ID_NODE)[1] == 'v' \
   5939   && IDENTIFIER_POINTER (ID_NODE)[2] == 't' \
   5940   && IDENTIFIER_POINTER (ID_NODE)[3] == JOINER)
   5941 
   5942 #define VFIELD_NAME_P(ID_NODE) \
   5943   (!strncmp (IDENTIFIER_POINTER (ID_NODE), VFIELD_NAME, sizeof(VFIELD_NAME)-1))
   5944 
   5945 #endif /* !defined(NO_DOLLAR_IN_LABEL) || !defined(NO_DOT_IN_LABEL) */
   5946 
   5947 
   5948 /* Nonzero if we're done parsing and into end-of-file activities.
   5950    2 if all templates have been instantiated.
   5951    3 if we're done with front-end processing.  */
   5952 
   5953 extern int at_eof;
   5954 
   5955 /* True if note_mangling_alias should enqueue mangling aliases for
   5956    later generation, rather than emitting them right away.  */
   5957 
   5958 extern bool defer_mangling_aliases;
   5959 
   5960 /* True if noexcept is part of the type (i.e. in C++17).  */
   5961 
   5962 extern bool flag_noexcept_type;
   5963 
   5964 /* A list of namespace-scope objects which have constructors or
   5965    destructors which reside in the global scope.  The decl is stored
   5966    in the TREE_VALUE slot and the initializer is stored in the
   5967    TREE_PURPOSE slot.  */
   5968 extern GTY(()) tree static_aggregates;
   5969 /* Likewise, for thread local storage.  */
   5970 extern GTY(()) tree tls_aggregates;
   5971 
   5972 /* A hash-map mapping from variable decls to the dynamic initializer for
   5973    the decl.  This is currently only used by OpenMP.  */
   5974 extern GTY(()) decl_tree_map *dynamic_initializers;
   5975 
   5976 enum overload_flags { NO_SPECIAL = 0, DTOR_FLAG, TYPENAME_FLAG };
   5977 
   5978 /* These are uses as bits in flags passed to various functions to
   5979    control their behavior.  Despite the LOOKUP_ prefix, many of these
   5980    do not control name lookup.  ??? Functions using these flags should
   5981    probably be modified to accept explicit boolean flags for the
   5982    behaviors relevant to them.  */
   5983 /* Check for access violations.  */
   5984 #define LOOKUP_PROTECT (1 << 0)
   5985 #define LOOKUP_NORMAL (LOOKUP_PROTECT)
   5986 /* Even if the function found by lookup is a virtual function, it
   5987    should be called directly.  */
   5988 #define LOOKUP_NONVIRTUAL (1 << 1)
   5989 /* Non-converting (i.e., "explicit") constructors are not tried.  This flag
   5990    indicates that we are not performing direct-initialization.  */
   5991 #define LOOKUP_ONLYCONVERTING (1 << 2)
   5992 #define LOOKUP_IMPLICIT (LOOKUP_NORMAL | LOOKUP_ONLYCONVERTING)
   5993 /* If a temporary is created, it should be created so that it lives
   5994    as long as the current variable bindings; otherwise it only lives
   5995    until the end of the complete-expression.  It also forces
   5996    direct-initialization in cases where other parts of the compiler
   5997    have already generated a temporary, such as reference
   5998    initialization and the catch parameter.  */
   5999 #define DIRECT_BIND (1 << 3)
   6000 /* We're performing a user-defined conversion, so more user-defined
   6001    conversions are not permitted (only built-in conversions).  */
   6002 #define LOOKUP_NO_CONVERSION (1 << 4)
   6003 /* The user has explicitly called a destructor.  (Therefore, we do
   6004    not need to check that the object is non-NULL before calling the
   6005    destructor.)  */
   6006 #define LOOKUP_DESTRUCTOR (1 << 5)
   6007 /* Do not permit references to bind to temporaries.  */
   6008 #define LOOKUP_NO_TEMP_BIND (1 << 6)
   6009 /* We're inside an init-list, so narrowing conversions are ill-formed.  */
   6010 #define LOOKUP_NO_NARROWING (LOOKUP_NO_TEMP_BIND << 1)
   6011 /* We're looking up a constructor for list-initialization.  */
   6012 #define LOOKUP_LIST_INIT_CTOR (LOOKUP_NO_NARROWING << 1)
   6013 /* This is the first parameter of a copy constructor.  */
   6014 #define LOOKUP_COPY_PARM (LOOKUP_LIST_INIT_CTOR << 1)
   6015 /* We only want to consider list constructors.  */
   6016 #define LOOKUP_LIST_ONLY (LOOKUP_COPY_PARM << 1)
   6017 /* Return after determining which function to call and checking access.
   6018    Used by sythesized_method_walk to determine which functions will
   6019    be called to initialize subobjects, in order to determine exception
   6020    specification and possible implicit delete.
   6021    This is kind of a hack, but exiting early avoids problems with trying
   6022    to perform argument conversions when the class isn't complete yet.  */
   6023 #define LOOKUP_SPECULATIVE (LOOKUP_LIST_ONLY << 1)
   6024 /* Used by calls from defaulted functions to limit the overload set to avoid
   6025    cycles trying to declare them (core issue 1092).  */
   6026 #define LOOKUP_DEFAULTED (LOOKUP_SPECULATIVE << 1)
   6027 /* Used in calls to store_init_value to suppress its usual call to
   6028    digest_init.  */
   6029 #define LOOKUP_ALREADY_DIGESTED (LOOKUP_DEFAULTED << 1)
   6030 /* Like LOOKUP_NO_TEMP_BIND, but also prevent binding to xvalues.  */
   6031 #define LOOKUP_NO_RVAL_BIND (LOOKUP_ALREADY_DIGESTED << 1)
   6032 /* Used by case_conversion to disregard non-integral conversions.  */
   6033 #define LOOKUP_NO_NON_INTEGRAL (LOOKUP_NO_RVAL_BIND << 1)
   6034 /* Used for delegating constructors in order to diagnose self-delegation.  */
   6035 #define LOOKUP_DELEGATING_CONS (LOOKUP_NO_NON_INTEGRAL << 1)
   6036 /* Allow initialization of a flexible array members.  */
   6037 #define LOOKUP_ALLOW_FLEXARRAY_INIT (LOOKUP_DELEGATING_CONS << 1)
   6038 /* We're looking for either a rewritten comparison operator candidate or the
   6039    operator to use on the former's result.  We distinguish between the two by
   6040    knowing that comparisons other than == and <=> must be the latter, as must
   6041    a <=> expression trying to rewrite to <=> without reversing.  */
   6042 #define LOOKUP_REWRITTEN (LOOKUP_ALLOW_FLEXARRAY_INIT << 1)
   6043 /* Reverse the order of the two arguments for comparison rewriting.  First we
   6044    swap the arguments in add_operator_candidates, then we swap the conversions
   6045    in add_candidate (so that they correspond to the original order of the
   6046    args), then we swap the conversions back in build_new_op_1 (so they
   6047    correspond to the order of the args in the candidate).  */
   6048 #define LOOKUP_REVERSED (LOOKUP_REWRITTEN << 1)
   6049 /* We're initializing an aggregate from a parenthesized list of values.  */
   6050 #define LOOKUP_AGGREGATE_PAREN_INIT (LOOKUP_REVERSED << 1)
   6051 /* We're computing conversions as part of a first pass of overload resolution
   6052    wherein we don't try to distinguish an unviable candidate from a
   6053    non-strictly viable candidate and thus can avoid computing unnecessary
   6054    bad conversions.  */
   6055 #define LOOKUP_SHORTCUT_BAD_CONVS (LOOKUP_AGGREGATE_PAREN_INIT << 1)
   6056 
   6057 /* These flags are used by the conversion code.
   6058    CONV_IMPLICIT   :  Perform implicit conversions (standard and user-defined).
   6059    CONV_STATIC     :  Perform the explicit conversions for static_cast.
   6060    CONV_CONST      :  Perform the explicit conversions for const_cast.
   6061    CONV_REINTERPRET:  Perform the explicit conversions for reinterpret_cast.
   6062    CONV_PRIVATE    :  Perform upcasts to private bases.
   6063    CONV_FORCE_TEMP :  Require a new temporary when converting to the same
   6064 		      aggregate type.  */
   6065 
   6066 #define CONV_IMPLICIT    1
   6067 #define CONV_STATIC      2
   6068 #define CONV_CONST       4
   6069 #define CONV_REINTERPRET 8
   6070 #define CONV_PRIVATE	 16
   6071 #define CONV_FORCE_TEMP  32
   6072 #define CONV_FOLD	 64
   6073 #define CONV_OLD_CONVERT (CONV_IMPLICIT | CONV_STATIC | CONV_CONST \
   6074 			  | CONV_REINTERPRET)
   6075 #define CONV_C_CAST      (CONV_IMPLICIT | CONV_STATIC | CONV_CONST \
   6076 			  | CONV_REINTERPRET | CONV_PRIVATE | CONV_FORCE_TEMP)
   6077 #define CONV_BACKEND_CONVERT (CONV_OLD_CONVERT | CONV_FOLD)
   6078 
   6079 /* Used by build_expr_type_conversion to indicate which types are
   6080    acceptable as arguments to the expression under consideration.  */
   6081 
   6082 #define WANT_INT	1 /* integer types, including bool */
   6083 #define WANT_FLOAT	2 /* floating point types */
   6084 #define WANT_ENUM	4 /* enumerated types */
   6085 #define WANT_POINTER	8 /* pointer types */
   6086 #define WANT_NULL      16 /* null pointer constant */
   6087 #define WANT_VECTOR_OR_COMPLEX 32 /* vector or complex types */
   6088 #define WANT_ARITH	(WANT_INT | WANT_FLOAT | WANT_VECTOR_OR_COMPLEX)
   6089 
   6090 /* Used with comptypes, and related functions, to guide type
   6091    comparison.  */
   6092 
   6093 #define COMPARE_STRICT	      0 /* Just check if the types are the
   6094 				   same.  */
   6095 #define COMPARE_BASE	      1 /* Check to see if the second type is
   6096 				   derived from the first.  */
   6097 #define COMPARE_DERIVED	      2 /* Like COMPARE_BASE, but in
   6098 				   reverse.  */
   6099 #define COMPARE_REDECLARATION 4 /* The comparison is being done when
   6100 				   another declaration of an existing
   6101 				   entity is seen.  */
   6102 #define COMPARE_STRUCTURAL    8 /* The comparison is intended to be
   6103 				   structural. The actual comparison
   6104 				   will be identical to
   6105 				   COMPARE_STRICT.  */
   6106 
   6107 /* Used with start function.  */
   6108 #define SF_DEFAULT	     0  /* No flags.  */
   6109 #define SF_PRE_PARSED	     1  /* The function declaration has
   6110 				   already been parsed.  */
   6111 #define SF_INCLASS_INLINE    2  /* The function is an inline, defined
   6112 				   in the class body.  */
   6113 
   6114 /* Used with start_decl's initialized parameter.  */
   6115 #define SD_UNINITIALIZED     0
   6116 #define SD_INITIALIZED       1
   6117 /* Like SD_INITIALIZED, but also mark the new decl as DECL_DECOMPOSITION_P.  */
   6118 #define SD_DECOMPOSITION     2
   6119 #define SD_DEFAULTED         3
   6120 #define SD_DELETED           4
   6121 
   6122 /* Returns nonzero iff TYPE1 and TYPE2 are the same type, or if TYPE2
   6123    is derived from TYPE1, or if TYPE2 is a pointer (reference) to a
   6124    class derived from the type pointed to (referred to) by TYPE1.  */
   6125 #define same_or_base_type_p(TYPE1, TYPE2) \
   6126   comptypes ((TYPE1), (TYPE2), COMPARE_BASE)
   6127 
   6128 /* These macros are used to access a TEMPLATE_PARM_INDEX.  */
   6129 #define TEMPLATE_PARM_INDEX_CAST(NODE) \
   6130 	((template_parm_index*)TEMPLATE_PARM_INDEX_CHECK (NODE))
   6131 #define TEMPLATE_PARM_IDX(NODE) (TEMPLATE_PARM_INDEX_CAST (NODE)->index)
   6132 #define TEMPLATE_PARM_LEVEL(NODE) (TEMPLATE_PARM_INDEX_CAST (NODE)->level)
   6133 #define TEMPLATE_PARM_DESCENDANTS(NODE) (TREE_CHAIN (TEMPLATE_PARM_INDEX_CHECK (NODE)))
   6134 #define TEMPLATE_PARM_ORIG_LEVEL(NODE) (TEMPLATE_PARM_INDEX_CAST (NODE)->orig_level)
   6135 #define TEMPLATE_PARM_DECL(NODE) (TEMPLATE_PARM_INDEX_CAST (NODE)->decl)
   6136 #define TEMPLATE_PARM_PARAMETER_PACK(NODE) \
   6137   (TREE_LANG_FLAG_0 (TEMPLATE_PARM_INDEX_CHECK (NODE)))
   6138 
   6139 /* These macros are for accessing the fields of TEMPLATE_TYPE_PARM,
   6140    TEMPLATE_TEMPLATE_PARM and BOUND_TEMPLATE_TEMPLATE_PARM nodes.  */
   6141 #define TEMPLATE_TYPE_PARM_INDEX(NODE)					\
   6142   (TYPE_VALUES_RAW (TREE_CHECK3 ((NODE), TEMPLATE_TYPE_PARM,		\
   6143 				 TEMPLATE_TEMPLATE_PARM,		\
   6144 				 BOUND_TEMPLATE_TEMPLATE_PARM)))
   6145 #define TEMPLATE_TYPE_IDX(NODE) \
   6146   (TEMPLATE_PARM_IDX (TEMPLATE_TYPE_PARM_INDEX (NODE)))
   6147 #define TEMPLATE_TYPE_LEVEL(NODE) \
   6148   (TEMPLATE_PARM_LEVEL (TEMPLATE_TYPE_PARM_INDEX (NODE)))
   6149 #define TEMPLATE_TYPE_ORIG_LEVEL(NODE) \
   6150   (TEMPLATE_PARM_ORIG_LEVEL (TEMPLATE_TYPE_PARM_INDEX (NODE)))
   6151 #define TEMPLATE_TYPE_DESCENDANTS(NODE) \
   6152   (TEMPLATE_PARM_DESCENDANTS (TEMPLATE_TYPE_PARM_INDEX (NODE)))
   6153 #define TEMPLATE_TYPE_DECL(NODE) \
   6154   (TEMPLATE_PARM_DECL (TEMPLATE_TYPE_PARM_INDEX (NODE)))
   6155 #define TEMPLATE_TYPE_PARAMETER_PACK(NODE) \
   6156   (TEMPLATE_PARM_PARAMETER_PACK (TEMPLATE_TYPE_PARM_INDEX (NODE)))
   6157 
   6158 /* For a C++17 class deduction placeholder, the template it represents.  */
   6159 #define CLASS_PLACEHOLDER_TEMPLATE(NODE) \
   6160   (DECL_INITIAL (TYPE_NAME (TEMPLATE_TYPE_PARM_CHECK (NODE))))
   6161 
   6162 /* True iff the template parameters of this TEMPLATE_TEMPLATE_PARM don't
   6163    use any outer template parameters.  */
   6164 #define TEMPLATE_TEMPLATE_PARM_SIMPLE_P(NODE) \
   6165   (TYPE_LANG_FLAG_5 (TEMPLATE_TEMPLATE_PARM_CHECK (NODE)))
   6166 
   6167 /* Contexts in which auto deduction occurs. These flags are
   6168    used to control diagnostics in do_auto_deduction.  */
   6169 
   6170 enum auto_deduction_context
   6171 {
   6172   adc_unspecified,   /* Not given */
   6173   adc_variable_type, /* Variable initializer deduction */
   6174   adc_return_type,   /* Return type deduction */
   6175   adc_unify,         /* Template argument deduction */
   6176   adc_requirement,   /* Argument deduction constraint */
   6177   adc_decomp_type    /* Decomposition declaration initializer deduction */
   6178 };
   6179 
   6180 /* True iff this TEMPLATE_TYPE_PARM represents decltype(auto).  */
   6181 #define AUTO_IS_DECLTYPE(NODE) \
   6182   (TYPE_LANG_FLAG_5 (TEMPLATE_TYPE_PARM_CHECK (NODE)))
   6183 
   6184 /* These constants can used as bit flags in the process of tree formatting.
   6185 
   6186    TFF_PLAIN_IDENTIFIER: unqualified part of a name.
   6187    TFF_SCOPE: include the class and namespace scope of the name.
   6188    TFF_CHASE_TYPEDEF: print the original type-id instead of the typedef-name.
   6189    TFF_DECL_SPECIFIERS: print decl-specifiers.
   6190    TFF_CLASS_KEY_OR_ENUM: precede a class-type name (resp. enum name) with
   6191        a class-key (resp. `enum').
   6192    TFF_RETURN_TYPE: include function return type.
   6193    TFF_FUNCTION_DEFAULT_ARGUMENTS: include function default parameter values.
   6194    TFF_EXCEPTION_SPECIFICATION: show function exception specification.
   6195    TFF_TEMPLATE_HEADER: show the template<...> header in a
   6196        template-declaration.
   6197    TFF_TEMPLATE_NAME: show only template-name.
   6198    TFF_EXPR_IN_PARENS: parenthesize expressions.
   6199    TFF_NO_FUNCTION_ARGUMENTS: don't show function arguments.
   6200    TFF_UNQUALIFIED_NAME: do not print the qualifying scope of the
   6201        top-level entity.
   6202    TFF_NO_OMIT_DEFAULT_TEMPLATE_ARGUMENTS: do not omit template arguments
   6203        identical to their defaults.
   6204    TFF_NO_TEMPLATE_BINDINGS: do not print information about the template
   6205        arguments for a function template specialization.
   6206    TFF_POINTER: we are printing a pointer type.
   6207    TFF_XOBJ_FUNC: we are printing an explicit object member function's
   6208        parameters.  */
   6209 
   6210 #define TFF_PLAIN_IDENTIFIER			(0)
   6211 #define TFF_SCOPE				(1)
   6212 #define TFF_CHASE_TYPEDEF			(1 << 1)
   6213 #define TFF_DECL_SPECIFIERS			(1 << 2)
   6214 #define TFF_CLASS_KEY_OR_ENUM			(1 << 3)
   6215 #define TFF_RETURN_TYPE				(1 << 4)
   6216 #define TFF_FUNCTION_DEFAULT_ARGUMENTS		(1 << 5)
   6217 #define TFF_EXCEPTION_SPECIFICATION		(1 << 6)
   6218 #define TFF_TEMPLATE_HEADER			(1 << 7)
   6219 #define TFF_TEMPLATE_NAME			(1 << 8)
   6220 #define TFF_EXPR_IN_PARENS			(1 << 9)
   6221 #define TFF_NO_FUNCTION_ARGUMENTS		(1 << 10)
   6222 #define TFF_UNQUALIFIED_NAME			(1 << 11)
   6223 #define TFF_NO_OMIT_DEFAULT_TEMPLATE_ARGUMENTS	(1 << 12)
   6224 #define TFF_NO_TEMPLATE_BINDINGS		(1 << 13)
   6225 #define TFF_POINTER		                (1 << 14)
   6226 #define TFF_XOBJ_FUNC				(1 << 15)
   6227 
   6228 /* These constants can be used as bit flags to control strip_typedefs.
   6229 
   6230    STF_USER_VISIBLE: use heuristics to try to avoid stripping user-facing
   6231        aliases of internal details.  This is intended for diagnostics,
   6232        where it should (for example) give more useful "aka" types.
   6233 
   6234    STF_STRIP_DEPENDENT: allow the stripping of aliases with dependent
   6235        template parameters, relying on code elsewhere to report any
   6236        appropriate diagnostics.  */
   6237 const unsigned int STF_USER_VISIBLE = 1U;
   6238 const unsigned int STF_STRIP_DEPENDENT = 1U << 1;
   6239 
   6240 /* Returns the TEMPLATE_DECL associated to a TEMPLATE_TEMPLATE_PARM
   6241    node.  */
   6242 #define TEMPLATE_TEMPLATE_PARM_TEMPLATE_DECL(NODE)	\
   6243   ((TREE_CODE (NODE) == BOUND_TEMPLATE_TEMPLATE_PARM)	\
   6244    ? TYPE_TI_TEMPLATE (NODE)				\
   6245    : TYPE_NAME (TEMPLATE_TEMPLATE_PARM_CHECK (NODE)))
   6246 
   6247 /* in lex.cc  */
   6248 
   6249 extern void init_reswords (void);
   6250 
   6251 /* Various flags for the overloaded operator information.  */
   6252 enum ovl_op_flags {
   6253   OVL_OP_FLAG_NONE = 0,	/* Don't care.  */
   6254   OVL_OP_FLAG_UNARY = 1,	/* Is unary.  */
   6255   OVL_OP_FLAG_BINARY = 2,	/* Is binary.  */
   6256   OVL_OP_FLAG_AMBIARY = 3,	/* May be unary or binary.  */
   6257   OVL_OP_FLAG_ALLOC = 4,  	/* operator new or delete.  */
   6258   OVL_OP_FLAG_DELETE = 1,	/* operator delete.  */
   6259   OVL_OP_FLAG_VEC = 2		/* vector new or delete.  */
   6260 };
   6261 
   6262 /* Compressed operator codes.  Order is determined by operators.def
   6263    and does not match that of tree_codes.  */
   6264 enum ovl_op_code {
   6265   OVL_OP_ERROR_MARK,
   6266   OVL_OP_NOP_EXPR,
   6267 #define DEF_OPERATOR(NAME, CODE, MANGLING, FLAGS) OVL_OP_##CODE,
   6268 #define DEF_ASSN_OPERATOR(NAME, CODE, MANGLING) /* NOTHING */
   6269 #include "operators.def"
   6270   OVL_OP_MAX
   6271 };
   6272 
   6273 /* Make sure it fits in lang_decl_fn::ovl_op_code. */
   6274 STATIC_ASSERT (OVL_OP_MAX < (1 << 6));
   6275 
   6276 struct GTY(()) ovl_op_info_t {
   6277   /* The IDENTIFIER_NODE for the operator.  */
   6278   tree identifier;
   6279   /* The name of the operator.  */
   6280   const char *name;
   6281   /* The mangled name of the operator.  */
   6282   const char *mangled_name;
   6283   /* The (regular) tree code.  */
   6284   enum tree_code tree_code : 16;
   6285   /* The (compressed) operator code.  */
   6286   enum ovl_op_code ovl_op_code : 8;
   6287   /* The ovl_op_flags of the operator */
   6288   unsigned flags : 8;
   6289 };
   6290 
   6291 /* Overloaded operator info indexed by ass_op_p & ovl_op_code.  */
   6292 extern GTY(()) ovl_op_info_t ovl_op_info[2][OVL_OP_MAX];
   6293 /* Mapping from tree_codes to ovl_op_codes.  */
   6294 extern GTY(()) unsigned char ovl_op_mapping[MAX_TREE_CODES];
   6295 /* Mapping for ambi-ary operators from the binary to the unary.  */
   6296 extern GTY(()) unsigned char ovl_op_alternate[OVL_OP_MAX];
   6297 
   6298 /* Given an ass_op_p boolean and a tree code, return a pointer to its
   6299    overloaded operator info.  Tree codes for non-overloaded operators
   6300    map to the error-operator.  */
   6301 #define OVL_OP_INFO(IS_ASS_P, TREE_CODE)			\
   6302   (&ovl_op_info[(IS_ASS_P) != 0][ovl_op_mapping[(TREE_CODE)]])
   6303 /* Overloaded operator info for an identifier for which
   6304    IDENTIFIER_OVL_OP_P is true.  */
   6305 #define IDENTIFIER_OVL_OP_INFO(NODE) \
   6306   (&ovl_op_info[IDENTIFIER_KIND_BIT_0 (NODE)][IDENTIFIER_CP_INDEX (NODE)])
   6307 #define IDENTIFIER_OVL_OP_FLAGS(NODE) \
   6308   (IDENTIFIER_OVL_OP_INFO (NODE)->flags)
   6309 
   6310 inline tree ovl_op_identifier (bool isass, tree_code code)
   6311 { return OVL_OP_INFO(isass, code)->identifier; }
   6312 inline tree ovl_op_identifier (tree_code code) { return ovl_op_identifier (false, code); }
   6313 #define assign_op_identifier (ovl_op_info[true][OVL_OP_NOP_EXPR].identifier)
   6314 #define call_op_identifier (ovl_op_info[false][OVL_OP_CALL_EXPR].identifier)
   6315 
   6316 /* A type-qualifier, or bitmask therefore, using the TYPE_QUAL
   6317    constants.  */
   6318 
   6319 typedef int cp_cv_quals;
   6320 
   6321 /* Non-static member functions have an optional virt-specifier-seq.
   6322    There is a VIRT_SPEC value for each virt-specifier.
   6323    They can be combined by bitwise-or to form the complete set of
   6324    virt-specifiers for a member function.  */
   6325 enum virt_specifier
   6326   {
   6327     VIRT_SPEC_UNSPECIFIED = 0x0,
   6328     VIRT_SPEC_FINAL       = 0x1,
   6329     VIRT_SPEC_OVERRIDE    = 0x2
   6330   };
   6331 
   6332 /* A type-qualifier, or bitmask therefore, using the VIRT_SPEC
   6333    constants.  */
   6334 
   6335 typedef int cp_virt_specifiers;
   6336 
   6337 /* Wherever there is a function-cv-qual, there could also be a ref-qualifier:
   6338 
   6339    [dcl.fct]
   6340    The return type, the parameter-type-list, the ref-qualifier, and
   6341    the cv-qualifier-seq, but not the default arguments or the exception
   6342    specification, are part of the function type.
   6343 
   6344    REF_QUAL_NONE    Ordinary member function with no ref-qualifier
   6345    REF_QUAL_LVALUE  Member function with the &-ref-qualifier
   6346    REF_QUAL_RVALUE  Member function with the &&-ref-qualifier */
   6347 
   6348 enum cp_ref_qualifier {
   6349   REF_QUAL_NONE = 0,
   6350   REF_QUAL_LVALUE = 1,
   6351   REF_QUAL_RVALUE = 2
   6352 };
   6353 
   6354 /* A storage class.  */
   6355 
   6356 enum cp_storage_class {
   6357   /* sc_none must be zero so that zeroing a cp_decl_specifier_seq
   6358      sets the storage_class field to sc_none.  */
   6359   sc_none = 0,
   6360   sc_auto,
   6361   sc_register,
   6362   sc_static,
   6363   sc_extern,
   6364   sc_mutable
   6365 };
   6366 
   6367 /* An individual decl-specifier.  This is used to index the array of
   6368    locations for the declspecs in struct cp_decl_specifier_seq
   6369    below.
   6370    A subset of these enums also corresponds to elements of
   6371    cp_parser_set_decl_spec_type:decl_spec_names in parser.cc.  */
   6372 
   6373 enum cp_decl_spec {
   6374   ds_first,
   6375   ds_signed = ds_first, /* Index of first element of decl_spec_names.  */
   6376   ds_unsigned,
   6377   ds_short,
   6378   ds_long,
   6379   ds_const,
   6380   ds_volatile,
   6381   ds_restrict,
   6382   ds_inline,
   6383   ds_virtual,
   6384   ds_explicit,
   6385   ds_friend,
   6386   ds_typedef,
   6387   ds_alias,
   6388   ds_constexpr,
   6389   ds_complex,
   6390   ds_constinit,
   6391   ds_consteval,
   6392   ds_this, /* Index of last element of decl_spec_names.  */
   6393   ds_thread,
   6394   ds_type_spec,
   6395   ds_redefined_builtin_type_spec,
   6396   ds_attribute,
   6397   ds_std_attribute,
   6398   ds_storage_class,
   6399   ds_long_long,
   6400   ds_concept,
   6401   ds_last /* This enumerator must always be the last one.  */
   6402 };
   6403 
   6404 /* A decl-specifier-seq.  */
   6405 
   6406 struct cp_decl_specifier_seq {
   6407   /* An array of locations for the declaration sepecifiers, indexed by
   6408      enum cp_decl_spec_word.  */
   6409   location_t locations[ds_last];
   6410   /* The primary type, if any, given by the decl-specifier-seq.
   6411      Modifiers, like "short", "const", and "unsigned" are not
   6412      reflected here.  This field will be a TYPE, unless a typedef-name
   6413      was used, in which case it will be a TYPE_DECL.  */
   6414   tree type;
   6415   /* The attributes, if any, provided with the specifier sequence.  */
   6416   tree attributes;
   6417   /* The c++11 attributes that follows the type specifier.  */
   6418   tree std_attributes;
   6419   /* If non-NULL, a built-in type that the user attempted to redefine
   6420      to some other type.  */
   6421   tree redefined_builtin_type;
   6422   /* The explicit-specifier, if any.  */
   6423   tree explicit_specifier;
   6424   /* The storage class specified -- or sc_none if no storage class was
   6425      explicitly specified.  */
   6426   cp_storage_class storage_class;
   6427   /* For the __intN declspec, this stores the index into the int_n_* arrays.  */
   6428   int int_n_idx;
   6429   /* True iff TYPE_SPEC defines a class or enum.  */
   6430   BOOL_BITFIELD type_definition_p : 1;
   6431   /* True iff multiple types were (erroneously) specified for this
   6432      decl-specifier-seq.  */
   6433   BOOL_BITFIELD multiple_types_p : 1;
   6434   /* True iff multiple storage classes were (erroneously) specified
   6435      for this decl-specifier-seq or a combination of a storage class
   6436      with a typedef specifier.  */
   6437   BOOL_BITFIELD conflicting_specifiers_p : 1;
   6438   /* True iff at least one decl-specifier was found.  */
   6439   BOOL_BITFIELD any_specifiers_p : 1;
   6440   /* True iff at least one type-specifier was found.  */
   6441   BOOL_BITFIELD any_type_specifiers_p : 1;
   6442   /* True iff "int" was explicitly provided.  */
   6443   BOOL_BITFIELD explicit_int_p : 1;
   6444   /* True iff "__intN" was explicitly provided.  */
   6445   BOOL_BITFIELD explicit_intN_p : 1;
   6446   /* True iff "char" was explicitly provided.  */
   6447   BOOL_BITFIELD explicit_char_p : 1;
   6448   /* True iff ds_thread is set for __thread, not thread_local.  */
   6449   BOOL_BITFIELD gnu_thread_keyword_p : 1;
   6450   /* True iff the type is a decltype.  */
   6451   BOOL_BITFIELD decltype_p : 1;
   6452   /* True iff the alternate "__intN__" form of the __intN type has been
   6453      used.  */
   6454   BOOL_BITFIELD int_n_alt: 1;
   6455 };
   6456 
   6457 /* The various kinds of declarators.  */
   6458 
   6459 enum cp_declarator_kind {
   6460   cdk_id,
   6461   cdk_function,
   6462   cdk_array,
   6463   cdk_pointer,
   6464   cdk_reference,
   6465   cdk_ptrmem,
   6466   cdk_decomp,
   6467   cdk_error
   6468 };
   6469 
   6470 /* A declarator.  */
   6471 
   6472 typedef struct cp_declarator cp_declarator;
   6473 
   6474 typedef struct cp_parameter_declarator cp_parameter_declarator;
   6475 
   6476 /* A parameter, before it has been semantically analyzed.  */
   6477 struct cp_parameter_declarator {
   6478   /* The next parameter, or NULL_TREE if none.  */
   6479   cp_parameter_declarator *next;
   6480   /* The decl-specifiers-seq for the parameter.  */
   6481   cp_decl_specifier_seq decl_specifiers;
   6482   /* The declarator for the parameter.  */
   6483   cp_declarator *declarator;
   6484   /* The default-argument expression, or NULL_TREE, if none.  */
   6485   tree default_argument;
   6486   /* True iff this is a template parameter pack.  */
   6487   bool template_parameter_pack_p;
   6488   /* Location within source.  */
   6489   location_t loc;
   6490 };
   6491 
   6492 /* A declarator.  */
   6493 struct cp_declarator {
   6494   /* The kind of declarator.  */
   6495   ENUM_BITFIELD (cp_declarator_kind) kind : 4;
   6496   /* Whether we parsed an ellipsis (`...') just before the declarator,
   6497      to indicate this is a parameter pack.  */
   6498   BOOL_BITFIELD parameter_pack_p : 1;
   6499   /* If this declarator is parenthesized, this the open-paren.  It is
   6500      UNKNOWN_LOCATION when not parenthesized.  */
   6501   location_t parenthesized;
   6502   /* Currently only set for cdk_id, cdk_decomp and cdk_function.  */
   6503   location_t id_loc;
   6504   /* If this declarator is part of an init-declarator, the location of the
   6505      initializer.  */
   6506   location_t init_loc;
   6507   /* GNU Attributes that apply to this declarator.  If the declarator
   6508      is a pointer or a reference, these attribute apply to the type
   6509      pointed to.  */
   6510   tree attributes;
   6511   /* Standard C++11 attributes that apply to this declarator.  If the
   6512      declarator is a pointer or a reference, these attributes apply
   6513      to the pointer, rather than to the type pointed to.  */
   6514   tree std_attributes;
   6515   /* For all but cdk_id, cdk_decomp and cdk_error, the contained declarator.
   6516      For cdk_id, cdk_decomp and cdk_error, guaranteed to be NULL.  */
   6517   cp_declarator *declarator;
   6518   union {
   6519     /* For identifiers.  */
   6520     struct {
   6521       /* If non-NULL, the qualifying scope (a NAMESPACE_DECL or
   6522 	 *_TYPE) for this identifier.  */
   6523       tree qualifying_scope;
   6524       /* The unqualified name of the entity -- an IDENTIFIER_NODE,
   6525 	 BIT_NOT_EXPR, or TEMPLATE_ID_EXPR.  */
   6526       tree unqualified_name;
   6527       /* If this is the name of a function, what kind of special
   6528 	 function (if any).  */
   6529       special_function_kind sfk;
   6530     } id;
   6531     /* For functions.  */
   6532     struct {
   6533       /* The parameters to the function as a TREE_LIST of decl/default.  */
   6534       tree parameters;
   6535       /* The cv-qualifiers for the function.  */
   6536       cp_cv_quals qualifiers;
   6537       /* The virt-specifiers for the function.  */
   6538       cp_virt_specifiers virt_specifiers;
   6539       /* The ref-qualifier for the function.  */
   6540       cp_ref_qualifier ref_qualifier;
   6541       /* The transaction-safety qualifier for the function.  */
   6542       tree tx_qualifier;
   6543       /* The exception-specification for the function.  */
   6544       tree exception_specification;
   6545       /* The late-specified return type, if any.  */
   6546       tree late_return_type;
   6547       /* The trailing requires-clause, if any. */
   6548       tree requires_clause;
   6549       location_t parens_loc;
   6550     } function;
   6551     /* For arrays.  */
   6552     struct {
   6553       /* The bounds to the array.  */
   6554       tree bounds;
   6555     } array;
   6556     /* For cdk_pointer and cdk_ptrmem.  */
   6557     struct {
   6558       /* The cv-qualifiers for the pointer.  */
   6559       cp_cv_quals qualifiers;
   6560       /* For cdk_ptrmem, the class type containing the member.  */
   6561       tree class_type;
   6562     } pointer;
   6563     /* For cdk_reference */
   6564     struct {
   6565       /* The cv-qualifiers for the reference.  These qualifiers are
   6566          only used to diagnose ill-formed code.  */
   6567       cp_cv_quals qualifiers;
   6568       /* Whether this is an rvalue reference */
   6569       bool rvalue_ref;
   6570     } reference;
   6571   } u;
   6572 };
   6573 
   6574 /* A level of template instantiation.  */
   6575 struct GTY((chain_next ("%h.next"))) tinst_level {
   6576   /* The immediately deeper level in the chain.  */
   6577   struct tinst_level *next;
   6578 
   6579   /* The original node.  TLDCL can be a DECL (for a function or static
   6580      data member), a TYPE (for a class), depending on what we were
   6581      asked to instantiate, or a TREE_LIST with the template as PURPOSE
   6582      and the template args as VALUE, if we are substituting for
   6583      overload resolution.  In all these cases, TARGS is NULL.
   6584      However, to avoid creating TREE_LIST objects for substitutions if
   6585      we can help, we store PURPOSE and VALUE in TLDCL and TARGS,
   6586      respectively.  So TLDCL stands for TREE_LIST or DECL (the
   6587      template is a DECL too), whereas TARGS stands for the template
   6588      arguments.  */
   6589   tree tldcl, targs;
   6590 
   6591   /* For modules we need to know (a) the modules on the path of
   6592      instantiation and (b) the transitive imports along that path.
   6593      Note that these two bitmaps may be inherited from NEXT, if this
   6594      decl is in the same module as NEXT (or has no new information).  */
   6595   bitmap path;
   6596   bitmap visible;
   6597 
   6598  private:
   6599   /* Return TRUE iff the original node is a split list.  */
   6600   bool split_list_p () const { return targs; }
   6601 
   6602   /* Return TRUE iff the original node is a TREE_LIST object.  */
   6603   bool tree_list_p () const
   6604   {
   6605     return !split_list_p () && TREE_CODE (tldcl) == TREE_LIST;
   6606   }
   6607 
   6608   /* Return TRUE iff the original node is not a list, split or not.  */
   6609   bool not_list_p () const
   6610   {
   6611     return !split_list_p () && !tree_list_p ();
   6612   }
   6613 
   6614   /* Convert (in place) the original node from a split list to a
   6615      TREE_LIST.  */
   6616   tree to_list ();
   6617 
   6618  public:
   6619   /* Release storage for OBJ and node, if it's a TREE_LIST.  */
   6620   static void free (tinst_level *obj);
   6621 
   6622   /* Return TRUE iff the original node is a list, split or not.  */
   6623   bool list_p () const { return !not_list_p (); }
   6624 
   6625   /* Return the original node; if it's a split list, make it a
   6626      TREE_LIST first, so that it can be returned as a single tree
   6627      object.  */
   6628   tree get_node () {
   6629     if (!split_list_p ()) return tldcl;
   6630     else return to_list ();
   6631   }
   6632 
   6633   /* Return the original node if it's a DECL or a TREE_LIST, but do
   6634      NOT convert a split list to a TREE_LIST: return NULL instead.  */
   6635   tree maybe_get_node () const {
   6636     if (!split_list_p ()) return tldcl;
   6637     else return NULL_TREE;
   6638   }
   6639 
   6640   /* The location where the template is instantiated.  */
   6641   location_t locus;
   6642 
   6643   /* errorcount + sorrycount when we pushed this level.  */
   6644   unsigned short errors;
   6645 
   6646   /* Count references to this object.  If refcount reaches
   6647      refcount_infinity value, we don't increment or decrement the
   6648      refcount anymore, as the refcount isn't accurate anymore.
   6649      The object can be still garbage collected if unreferenced from
   6650      anywhere, which might keep referenced objects referenced longer than
   6651      otherwise necessary.  Hitting the infinity is rare though.  */
   6652   unsigned short refcount;
   6653 
   6654   /* Infinity value for the above refcount.  */
   6655   static const unsigned short refcount_infinity = (unsigned short) ~0;
   6656 };
   6657 
   6658 /* BUILT_IN_FRONTEND function codes.  */
   6659 enum cp_built_in_function {
   6660   CP_BUILT_IN_IS_CONSTANT_EVALUATED,
   6661   CP_BUILT_IN_INTEGER_PACK,
   6662   CP_BUILT_IN_IS_CORRESPONDING_MEMBER,
   6663   CP_BUILT_IN_IS_POINTER_INTERCONVERTIBLE_WITH_CLASS,
   6664   CP_BUILT_IN_SOURCE_LOCATION,
   6665   CP_BUILT_IN_LAST
   6666 };
   6667 
   6668 bool decl_spec_seq_has_spec_p (const cp_decl_specifier_seq *, cp_decl_spec);
   6669 
   6670 /* Return the type of the `this' parameter of FNTYPE.  */
   6671 
   6672 inline tree
   6673 type_of_this_parm (const_tree fntype)
   6674 {
   6675   function_args_iterator iter;
   6676   gcc_assert (TREE_CODE (fntype) == METHOD_TYPE);
   6677   function_args_iter_init (&iter, fntype);
   6678   return function_args_iter_cond (&iter);
   6679 }
   6680 
   6681 /* Return the class of the `this' parameter of FNTYPE.  */
   6682 
   6683 inline tree
   6684 class_of_this_parm (const_tree fntype)
   6685 {
   6686   return TREE_TYPE (type_of_this_parm (fntype));
   6687 }
   6688 
   6689 /* A parameter list indicating for a function with no parameters,
   6690    e.g  "int f(void)".  */
   6691 extern cp_parameter_declarator *no_parameters;
   6692 
   6693 /* Various dump ids.  */
   6694 extern int class_dump_id;
   6695 extern int module_dump_id;
   6696 extern int raw_dump_id;
   6697 
   6698 /* Whether the current context is manifestly constant-evaluated.
   6699    Used by the constexpr machinery to control folding of
   6700    __builtin_is_constant_evaluated.  */
   6701 
   6702 enum class mce_value
   6703 {
   6704   /* Unknown, so treat __builtin_is_constant_evaluated as non-constant.  */
   6705   mce_unknown = 0,
   6706   /* Fold it to true.  */
   6707   mce_true = 1,
   6708   /* Fold it to false.  Primarily used during cp_fold_function and
   6709      cp_fully_fold_init.  */
   6710   mce_false = -1,
   6711 };
   6712 constexpr mce_value mce_unknown = mce_value::mce_unknown;
   6713 constexpr mce_value mce_true = mce_value::mce_true;
   6714 constexpr mce_value mce_false = mce_value::mce_false;
   6715 
   6716 /* in call.cc */
   6717 extern bool check_dtor_name			(tree, tree);
   6718 int magic_varargs_p				(tree);
   6719 
   6720 extern tree build_conditional_expr		(const op_location_t &,
   6721 						 tree, tree, tree,
   6722                                                  tsubst_flags_t);
   6723 extern tree build_addr_func			(tree, tsubst_flags_t);
   6724 extern void set_flags_from_callee		(tree);
   6725 extern tree build_call_a			(tree, int, tree*);
   6726 extern tree build_call_n			(tree, int, ...);
   6727 extern bool null_ptr_cst_p			(tree);
   6728 extern bool null_member_pointer_value_p		(tree);
   6729 extern bool sufficient_parms_p			(const_tree);
   6730 extern tree type_decays_to			(tree);
   6731 extern tree extract_call_expr			(tree);
   6732 extern tree build_trivial_dtor_call		(tree, bool = false);
   6733 extern tristate ref_conv_binds_to_temporary	(tree, tree, bool = false);
   6734 extern tree build_user_type_conversion		(tree, tree, int,
   6735 						 tsubst_flags_t);
   6736 extern tree build_new_function_call		(tree, vec<tree, va_gc> **,
   6737 						 tsubst_flags_t);
   6738 extern tree build_operator_new_call		(tree, vec<tree, va_gc> **,
   6739 						 tree *, tree *, tree, tree,
   6740 						 tree *, tsubst_flags_t);
   6741 extern tree build_new_method_call		(tree, tree,
   6742 						 vec<tree, va_gc> **, tree,
   6743 						 int, tree *, tsubst_flags_t);
   6744 extern tree build_special_member_call		(tree, tree,
   6745 						 vec<tree, va_gc> **,
   6746 						 tree, int, tsubst_flags_t);
   6747 extern tree build_new_op			(const op_location_t &,
   6748 						 enum tree_code,
   6749 						 int, tree, tree, tree, tree,
   6750 						 tree *, tsubst_flags_t);
   6751 /* Wrapper that leaves out the usually-null op3 and overload parms.  */
   6752 inline tree build_new_op (const op_location_t &loc, enum tree_code code,
   6753 			  int flags, tree arg1, tree arg2,
   6754 			  tsubst_flags_t complain)
   6755 {
   6756   return build_new_op (loc, code, flags, arg1, arg2, NULL_TREE, NULL_TREE,
   6757 		       NULL, complain);
   6758 }
   6759 extern tree keep_unused_object_arg		(tree, tree, tree);
   6760 extern tree build_op_call			(tree, vec<tree, va_gc> **,
   6761 						 tsubst_flags_t);
   6762 extern tree build_op_subscript			(const op_location_t &, tree,
   6763 						 vec<tree, va_gc> **, tree *,
   6764 						 tsubst_flags_t);
   6765 extern bool aligned_allocation_fn_p		(tree);
   6766 extern tree destroying_delete_p			(tree);
   6767 extern bool usual_deallocation_fn_p		(tree);
   6768 extern tree build_op_delete_call		(enum tree_code, tree, tree,
   6769 						 bool, tree, tree,
   6770 						 tsubst_flags_t);
   6771 extern bool can_convert				(tree, tree, tsubst_flags_t);
   6772 extern bool can_convert_standard		(tree, tree, tsubst_flags_t);
   6773 extern bool can_convert_arg			(tree, tree, tree, int,
   6774 						 tsubst_flags_t);
   6775 extern bool can_convert_arg_bad			(tree, tree, tree, int,
   6776 						 tsubst_flags_t);
   6777 extern int conv_flags				(int, int, tree, tree, int);
   6778 extern struct conversion * good_conversion	(tree, tree, tree, int, tsubst_flags_t);
   6779 extern location_t get_fndecl_argument_location  (tree, int);
   6780 extern void complain_about_bad_argument	(location_t arg_loc,
   6781 						 tree from_type, tree to_type,
   6782 						 tree fndecl, int parmnum);
   6783 extern void maybe_inform_about_fndecl_for_bogus_argument_init (tree, int);
   6784 extern tree perform_dguide_overload_resolution	(tree, const vec<tree, va_gc> *,
   6785 						 tsubst_flags_t);
   6786 
   6787 
   6788 /* A class for recording information about access failures (e.g. private
   6789    fields), so that we can potentially supply a fix-it hint about
   6790    an accessor (from a context in which the constness of the object
   6791    is known).  */
   6792 
   6793 class access_failure_info
   6794 {
   6795  public:
   6796   access_failure_info () : m_was_inaccessible (false),
   6797     m_basetype_path (NULL_TREE),
   6798     m_decl (NULL_TREE), m_diag_decl (NULL_TREE) {}
   6799 
   6800   void record_access_failure (tree basetype_path, tree decl, tree diag_decl);
   6801 
   6802   bool was_inaccessible_p () const { return m_was_inaccessible; }
   6803   tree get_decl () const { return m_decl; }
   6804   tree get_diag_decl () const { return m_diag_decl; }
   6805   tree get_any_accessor (bool const_p) const;
   6806   void maybe_suggest_accessor (bool const_p) const;
   6807   static void add_fixit_hint (rich_location *richloc, tree accessor);
   6808 
   6809  private:
   6810   bool m_was_inaccessible;
   6811   tree m_basetype_path;
   6812   tree m_decl;
   6813   tree m_diag_decl;
   6814 };
   6815 
   6816 extern void complain_about_access		(tree, tree, tree, bool,
   6817 						 access_kind);
   6818 extern void push_defarg_context			(tree);
   6819 extern void pop_defarg_context			(void);
   6820 extern tree convert_default_arg			(tree, tree, tree, int,
   6821 						 tsubst_flags_t);
   6822 extern tree convert_arg_to_ellipsis		(tree, tsubst_flags_t);
   6823 extern tree build_x_va_arg			(location_t, tree, tree);
   6824 extern tree cxx_type_promotes_to		(tree);
   6825 extern tree type_passed_as			(tree);
   6826 extern tree convert_for_arg_passing		(tree, tree, tsubst_flags_t);
   6827 extern bool is_properly_derived_from		(tree, tree);
   6828 extern tree initialize_reference		(tree, tree, int,
   6829 						 tsubst_flags_t);
   6830 extern tree extend_ref_init_temps		(tree, tree,
   6831 						 vec<tree, va_gc>**,
   6832 						 tree * = NULL);
   6833 extern tree make_temporary_var_for_ref_to_temp	(tree, tree);
   6834 extern bool type_has_extended_temps		(tree);
   6835 extern tree strip_top_quals			(tree);
   6836 extern bool reference_related_p			(tree, tree);
   6837 extern bool reference_compatible_p		(tree, tree);
   6838 extern int remaining_arguments			(tree);
   6839 extern tree build_implicit_conv_flags		(tree, tree, int);
   6840 extern tree perform_implicit_conversion		(tree, tree, tsubst_flags_t);
   6841 extern tree perform_implicit_conversion_flags	(tree, tree, tsubst_flags_t, int);
   6842 extern tree build_converted_constant_expr	(tree, tree, tsubst_flags_t);
   6843 extern tree build_converted_constant_bool_expr	(tree, tsubst_flags_t);
   6844 extern tree perform_direct_initialization_if_possible (tree, tree, bool,
   6845                                                        tsubst_flags_t);
   6846 extern vec<tree,va_gc> *resolve_args (vec<tree,va_gc>*, tsubst_flags_t);
   6847 extern tree in_charge_arg_for_name		(tree);
   6848 extern bool in_immediate_context		();
   6849 extern bool immediate_invocation_p		(tree);
   6850 extern tree build_cxx_call			(tree, int, tree *,
   6851 						 tsubst_flags_t,
   6852 						 tree = NULL_TREE);
   6853 extern bool is_std_init_list			(tree);
   6854 extern bool is_list_ctor			(tree);
   6855 extern void validate_conversion_obstack		(void);
   6856 extern void mark_versions_used			(tree);
   6857 extern int unsafe_return_slot_p			(tree);
   6858 extern bool unsafe_copy_elision_p		(tree, tree);
   6859 extern bool make_safe_copy_elision		(tree, tree);
   6860 extern bool cp_handle_deprecated_or_unavailable (tree, tsubst_flags_t = tf_warning_or_error);
   6861 extern void cp_warn_deprecated_use_scopes	(tree);
   6862 extern tree get_function_version_dispatcher	(tree);
   6863 extern bool any_template_arguments_need_structural_equality_p (tree);
   6864 extern void maybe_show_nonconverting_candidate	(tree, tree, tree, int);
   6865 extern bool conv_binds_to_reference_parm_p	(tree, tree);
   6866 
   6867 /* in class.cc */
   6868 extern tree build_vfield_ref			(tree, tree);
   6869 extern tree build_if_in_charge			(tree true_stmt, tree false_stmt = void_node);
   6870 extern tree build_base_path			(enum tree_code, tree,
   6871 						 tree, int, tsubst_flags_t);
   6872 extern tree convert_to_base			(tree, tree, bool, bool,
   6873 						 tsubst_flags_t);
   6874 extern tree convert_to_base_statically		(tree, tree);
   6875 extern bool is_empty_base_ref			(tree);
   6876 extern tree build_vtbl_ref			(tree, tree);
   6877 extern tree build_vfn_ref			(tree, tree);
   6878 extern tree get_vtable_decl			(tree, int);
   6879 extern bool object_parms_correspond		(tree, tree, tree);
   6880 extern bool iobj_parm_corresponds_to		(tree, tree, tree);
   6881 extern bool add_method				(tree, tree, bool);
   6882 extern tree declared_access			(tree);
   6883 extern bool maybe_push_used_methods		(tree);
   6884 extern tree currently_open_class		(tree);
   6885 extern tree currently_open_derived_class	(tree);
   6886 extern tree outermost_open_class		(void);
   6887 extern tree current_nonlambda_class_type	(void);
   6888 extern tree finish_struct			(tree, tree);
   6889 extern void finish_struct_1			(tree);
   6890 extern int resolves_to_fixed_type_p		(tree, int * = NULL);
   6891 extern void init_class_processing		(void);
   6892 extern int is_empty_class			(tree);
   6893 extern bool is_really_empty_class		(tree, bool);
   6894 extern void pushclass				(tree);
   6895 extern void popclass				(void);
   6896 extern void push_nested_class			(tree);
   6897 extern void pop_nested_class			(void);
   6898 extern int current_lang_depth			(void);
   6899 extern void push_lang_context			(tree);
   6900 extern void pop_lang_context			(void);
   6901 extern tree instantiate_type			(tree, tree, tsubst_flags_t);
   6902 extern void build_self_reference		(void);
   6903 extern int same_signature_p			(const_tree, const_tree);
   6904 extern tree lookup_vfn_in_binfo			(tree, tree);
   6905 extern void maybe_add_class_template_decl_list	(tree, tree, int);
   6906 extern void unreverse_member_declarations	(tree);
   6907 extern bool is_empty_field			(tree);
   6908 extern void invalidate_class_lookup_cache	(void);
   6909 extern void maybe_note_name_used_in_class	(tree, tree);
   6910 extern void note_name_declared_in_class		(tree, tree);
   6911 extern tree get_vtbl_decl_for_binfo		(tree);
   6912 extern bool vptr_via_virtual_p			(tree);
   6913 extern void debug_class				(tree);
   6914 extern void debug_thunks			(tree);
   6915 extern void set_linkage_according_to_type	(tree, tree);
   6916 extern void determine_key_method		(tree);
   6917 extern void check_for_override			(tree, tree);
   6918 extern void push_class_stack			(void);
   6919 extern void pop_class_stack			(void);
   6920 extern bool default_ctor_p			(const_tree);
   6921 extern bool type_has_user_nondefault_constructor (tree);
   6922 extern tree in_class_defaulted_default_constructor (tree);
   6923 extern bool user_provided_p			(tree);
   6924 extern bool type_has_user_provided_constructor  (tree);
   6925 extern bool type_has_non_user_provided_default_constructor (tree);
   6926 extern bool vbase_has_user_provided_move_assign (tree);
   6927 extern tree default_init_uninitialized_part (tree);
   6928 extern bool trivial_default_constructor_is_constexpr (tree);
   6929 extern bool type_has_constexpr_default_constructor (tree);
   6930 extern bool type_has_constexpr_destructor	(tree);
   6931 extern bool type_has_virtual_destructor		(tree);
   6932 extern bool type_has_non_deleted_trivial_default_ctor (tree);
   6933 extern bool classtype_has_move_assign_or_move_ctor_p (tree, bool user_declared);
   6934 extern bool classtype_has_non_deleted_move_ctor (tree);
   6935 extern tree classtype_has_depr_implicit_copy	(tree);
   6936 extern bool classtype_has_op (tree, tree_code);
   6937 extern tree classtype_has_defaulted_op (tree, tree_code);
   6938 extern bool type_build_ctor_call		(tree);
   6939 extern bool type_build_dtor_call		(tree);
   6940 extern void explain_non_literal_class		(tree);
   6941 extern void inherit_targ_abi_tags		(tree);
   6942 extern void defaulted_late_check		(tree);
   6943 extern bool defaultable_fn_check		(tree);
   6944 extern void check_abi_tags			(tree);
   6945 extern tree missing_abi_tags			(tree);
   6946 extern void fixup_type_variants			(tree);
   6947 extern void fixup_attribute_variants		(tree);
   6948 extern void build_cdtor_clones 			(tree, bool, bool, bool);
   6949 extern void clone_cdtor				(tree, bool);
   6950 extern tree copy_operator_fn			(tree, tree_code code);
   6951 extern void adjust_clone_args			(tree);
   6952 extern void deduce_noexcept_on_destructor       (tree);
   6953 extern bool uniquely_derived_from_p             (tree, tree);
   6954 extern bool publicly_uniquely_derived_p         (tree, tree);
   6955 extern tree common_enclosing_class		(tree, tree);
   6956 
   6957 /* in cvt.cc */
   6958 extern tree convert_to_reference		(tree, tree, int, int, tree,
   6959 						 tsubst_flags_t);
   6960 extern tree convert_from_reference		(tree);
   6961 extern tree force_rvalue			(tree, tsubst_flags_t);
   6962 extern tree force_lvalue			(tree, tsubst_flags_t);
   6963 extern tree ocp_convert				(tree, tree, int, int,
   6964 						 tsubst_flags_t);
   6965 extern tree cp_convert				(tree, tree, tsubst_flags_t);
   6966 extern tree cp_convert_and_check                (tree, tree, tsubst_flags_t);
   6967 extern tree cp_fold_convert			(tree, tree);
   6968 extern tree cp_get_callee			(tree);
   6969 extern tree cp_get_callee_fndecl		(tree);
   6970 extern tree cp_get_callee_fndecl_nofold		(tree);
   6971 extern tree cp_get_fndecl_from_callee		(tree, bool fold = true);
   6972 extern tree convert_to_void			(tree, impl_conv_void,
   6973                                  		 tsubst_flags_t);
   6974 extern tree convert_force			(tree, tree, int,
   6975 						 tsubst_flags_t);
   6976 extern tree build_expr_type_conversion		(int, tree, bool);
   6977 extern tree type_promotes_to			(tree);
   6978 extern bool can_convert_qual			(tree, tree);
   6979 extern tree perform_qualification_conversions	(tree, tree);
   6980 extern bool tx_safe_fn_type_p			(tree);
   6981 extern tree tx_unsafe_fn_variant		(tree);
   6982 extern bool fnptr_conv_p			(tree, tree);
   6983 extern tree strip_fnptr_conv			(tree);
   6984 
   6985 /* in name-lookup.cc */
   6986 extern void maybe_push_cleanup_level		(tree);
   6987 extern tree maybe_push_decl			(tree);
   6988 extern tree current_decl_namespace		(void);
   6989 
   6990 /* decl.cc */
   6991 extern tree poplevel				(int, int, int);
   6992 extern void cxx_init_decl_processing		(void);
   6993 enum cp_tree_node_structure_enum cp_tree_node_structure
   6994 						(union lang_tree_node *);
   6995 extern void finish_scope			(void);
   6996 extern void push_switch				(tree);
   6997 extern void pop_switch				(void);
   6998 extern void note_break_stmt			(void);
   6999 extern bool note_iteration_stmt_body_start	(void);
   7000 extern void note_iteration_stmt_body_end	(bool);
   7001 extern void determine_local_discriminator	(tree, tree = NULL_TREE);
   7002 extern bool member_like_constrained_friend_p	(tree);
   7003 extern bool fns_correspond			(tree, tree);
   7004 extern int decls_match				(tree, tree, bool = true);
   7005 extern bool maybe_version_functions		(tree, tree, bool);
   7006 extern bool merge_default_template_args		(tree, tree, bool);
   7007 extern tree duplicate_decls			(tree, tree,
   7008 						 bool hiding = false,
   7009 						 bool was_hidden = false);
   7010 extern void mark_label_addressed		(tree);
   7011 extern tree declare_local_label			(tree);
   7012 extern tree define_label			(location_t, tree);
   7013 extern void check_goto				(tree);
   7014 extern bool check_omp_return			(void);
   7015 extern tree make_typename_type			(tree, tree, enum tag_types, tsubst_flags_t);
   7016 extern tree build_typename_type			(tree, tree, tree, tag_types);
   7017 extern tree make_unbound_class_template		(tree, tree, tree, tsubst_flags_t);
   7018 extern tree make_unbound_class_template_raw	(tree, tree, tree);
   7019 extern unsigned push_abi_namespace		(tree node = abi_node);
   7020 extern void pop_abi_namespace			(unsigned flags,
   7021 						 tree node = abi_node);
   7022 extern tree build_library_fn_ptr		(const char *, tree, int);
   7023 extern tree build_cp_library_fn_ptr		(const char *, tree, int);
   7024 extern tree push_library_fn			(tree, tree, tree, int);
   7025 extern tree push_throw_library_fn		(tree, tree);
   7026 extern void warn_misplaced_attr_for_class_type  (location_t location,
   7027 						 tree class_type);
   7028 extern tree check_tag_decl			(cp_decl_specifier_seq *, bool);
   7029 extern tree shadow_tag				(cp_decl_specifier_seq *);
   7030 extern tree groktypename			(cp_decl_specifier_seq *, const cp_declarator *, bool);
   7031 extern tree start_decl				(const cp_declarator *, cp_decl_specifier_seq *, int, tree, tree, tree *);
   7032 extern void start_decl_1			(tree, bool);
   7033 extern bool check_array_initializer		(tree, tree, tree);
   7034 extern void omp_declare_variant_finalize	(tree, tree);
   7035 struct cp_decomp { tree decl; unsigned int count; };
   7036 extern void cp_finish_decl			(tree, tree, bool, tree, int, cp_decomp * = nullptr);
   7037 extern tree lookup_decomp_type			(tree);
   7038 extern void cp_finish_decomp			(tree, cp_decomp *);
   7039 extern int cp_complete_array_type		(tree *, tree, bool);
   7040 extern int cp_complete_array_type_or_error	(tree *, tree, bool, tsubst_flags_t);
   7041 extern tree build_ptrmemfunc_type		(tree);
   7042 extern tree build_ptrmem_type			(tree, tree);
   7043 /* the grokdeclarator prototype is in decl.h */
   7044 extern tree build_this_parm			(tree, tree, cp_cv_quals);
   7045 extern tree grokparms				(tree, tree *);
   7046 extern int copy_fn_p				(const_tree);
   7047 extern bool move_fn_p                           (const_tree);
   7048 extern bool move_signature_fn_p                 (const_tree);
   7049 extern tree get_scope_of_declarator		(const cp_declarator *);
   7050 extern void grok_special_member_properties	(tree);
   7051 extern bool grok_ctor_properties		(const_tree, const_tree);
   7052 extern bool grok_op_properties			(tree, bool);
   7053 extern tree xref_tag				(tag_types, tree,
   7054 						 TAG_how = TAG_how::CURRENT_ONLY,
   7055 						 bool tpl_header_p = false);
   7056 extern void xref_basetypes			(tree, tree);
   7057 extern tree start_enum				(tree, tree, tree, tree, bool, bool *);
   7058 extern void finish_enum_value_list		(tree);
   7059 extern void finish_enum				(tree);
   7060 extern tree build_enumerator			(tree, tree, tree, tree, location_t);
   7061 extern tree lookup_enumerator			(tree, tree);
   7062 extern bool start_preparsed_function		(tree, tree, int);
   7063 extern bool start_function			(cp_decl_specifier_seq *,
   7064 						 const cp_declarator *, tree);
   7065 extern tree maybe_prepare_return_this		(tree);
   7066 extern void maybe_return_this			(void);
   7067 extern tree begin_function_body			(void);
   7068 extern void finish_function_body		(tree);
   7069 extern tree outer_curly_brace_block		(tree);
   7070 extern tree finish_function			(bool);
   7071 extern tree grokmethod				(cp_decl_specifier_seq *, const cp_declarator *, tree);
   7072 extern void maybe_register_incomplete_var	(tree);
   7073 extern void maybe_commonize_var			(tree);
   7074 extern void complete_vars			(tree);
   7075 extern tree static_fn_type			(tree);
   7076 extern void revert_static_member_fn		(tree);
   7077 extern void fixup_anonymous_aggr		(tree);
   7078 extern tree compute_array_index_type		(tree, tree, tsubst_flags_t);
   7079 extern tree check_default_argument		(tree, tree, tsubst_flags_t);
   7080 extern int wrapup_namespace_globals		();
   7081 extern tree create_implicit_typedef		(tree, tree);
   7082 extern int local_variable_p			(const_tree);
   7083 extern tree get_cxa_atexit_fn_ptr_type		();
   7084 extern tree register_dtor_fn			(tree);
   7085 extern tmpl_spec_kind current_tmpl_spec_kind	(int);
   7086 extern tree cxx_builtin_function		(tree decl);
   7087 extern tree cxx_builtin_function_ext_scope	(tree decl);
   7088 extern tree cxx_simulate_builtin_function_decl	(tree);
   7089 extern tree check_elaborated_type_specifier	(enum tag_types, tree, bool);
   7090 extern void warn_extern_redeclared_static	(tree, tree);
   7091 extern tree cxx_comdat_group			(tree);
   7092 extern bool cp_missing_noreturn_ok_p		(tree);
   7093 extern bool is_direct_enum_init			(tree, tree);
   7094 extern void initialize_artificial_var		(tree, vec<constructor_elt, va_gc> *);
   7095 extern tree check_var_type			(tree, tree, location_t);
   7096 extern tree reshape_init                        (tree, tree, tsubst_flags_t);
   7097 extern tree next_aggregate_field		(tree);
   7098 extern tree next_subobject_field		(tree);
   7099 extern tree first_field				(const_tree);
   7100 extern tree fndecl_declared_return_type		(tree);
   7101 extern bool undeduced_auto_decl			(tree);
   7102 extern bool require_deduced_type		(tree, tsubst_flags_t = tf_warning_or_error);
   7103 
   7104 extern tree finish_case_label			(location_t, tree, tree);
   7105 extern tree cxx_maybe_build_cleanup		(tree, tsubst_flags_t);
   7106 extern bool check_array_designated_initializer  (constructor_elt *,
   7107 						 unsigned HOST_WIDE_INT);
   7108 extern bool check_for_uninitialized_const_var   (tree, bool, tsubst_flags_t);
   7109 extern tree build_explicit_specifier		(tree, tsubst_flags_t);
   7110 extern void do_push_parm_decls			(tree, tree, tree *);
   7111 extern tree do_aggregate_paren_init		(tree, tree);
   7112 
   7113 /* in decl2.cc */
   7114 extern void record_mangling			(tree, bool);
   7115 extern void overwrite_mangling			(tree, tree);
   7116 extern void note_mangling_alias			(tree, tree);
   7117 extern void generate_mangling_aliases		(void);
   7118 extern tree build_memfn_type			(tree, tree, cp_cv_quals, cp_ref_qualifier);
   7119 extern tree build_pointer_ptrmemfn_type	(tree);
   7120 extern tree change_return_type			(tree, tree);
   7121 extern void maybe_retrofit_in_chrg		(tree);
   7122 extern void maybe_make_one_only			(tree);
   7123 extern bool vague_linkage_p			(tree);
   7124 extern void grokclassfn				(tree, tree,
   7125 						 enum overload_flags);
   7126 extern tree grok_array_decl			(location_t, tree, tree,
   7127 						 vec<tree, va_gc> **, tsubst_flags_t);
   7128 extern tree grok_omp_array_section		(location_t, tree, tree, tree);
   7129 extern tree delete_sanity			(location_t, tree, tree, bool,
   7130 						 int, tsubst_flags_t);
   7131 extern tree check_classfn			(tree, tree, tree);
   7132 extern void check_member_template		(tree);
   7133 extern tree grokfield (const cp_declarator *, cp_decl_specifier_seq *,
   7134 		       tree, bool, tree, tree);
   7135 extern tree grokbitfield (const cp_declarator *, cp_decl_specifier_seq *,
   7136 			  tree, tree, tree);
   7137 extern tree splice_template_attributes		(tree *, tree);
   7138 extern bool any_dependent_type_attributes_p	(tree);
   7139 extern tree cp_reconstruct_complex_type		(tree, tree);
   7140 extern bool attributes_naming_typedef_ok	(tree);
   7141 extern void cplus_decl_attributes		(tree *, tree, int);
   7142 extern void finish_anon_union			(tree);
   7143 extern void cxx_post_compilation_parsing_cleanups (void);
   7144 extern tree coerce_new_type			(tree, location_t);
   7145 extern void coerce_delete_type			(tree, location_t);
   7146 extern void comdat_linkage			(tree);
   7147 extern void determine_visibility		(tree);
   7148 extern void constrain_class_visibility		(tree);
   7149 extern void reset_type_linkage			(tree);
   7150 extern void tentative_decl_linkage		(tree);
   7151 extern void import_export_decl			(tree);
   7152 extern tree build_cleanup			(tree);
   7153 extern tree build_offset_ref_call_from_tree	(tree, vec<tree, va_gc> **,
   7154 						 tsubst_flags_t);
   7155 extern bool decl_defined_p			(tree);
   7156 extern bool decl_constant_var_p			(tree);
   7157 extern bool decl_maybe_constant_var_p		(tree);
   7158 extern void no_linkage_error			(tree);
   7159 extern void check_default_args			(tree);
   7160 extern bool mark_used			        (tree,
   7161 						 tsubst_flags_t = tf_warning_or_error);
   7162 extern bool mark_single_function	        (tree, tsubst_flags_t);
   7163 extern void finish_static_data_member_decl	(tree, tree, bool, tree, int);
   7164 extern tree cp_build_parm_decl			(tree, tree, tree);
   7165 extern void copy_linkage			(tree, tree);
   7166 extern tree get_guard				(tree);
   7167 extern tree get_guard_cond			(tree, bool);
   7168 extern tree set_guard				(tree);
   7169 extern bool var_needs_tls_wrapper		(tree);
   7170 extern tree maybe_get_tls_wrapper_call		(tree);
   7171 extern void mark_needed				(tree);
   7172 extern bool decl_needed_p			(tree);
   7173 extern void note_vague_linkage_fn		(tree);
   7174 extern void note_vague_linkage_variable		(tree);
   7175 extern tree build_artificial_parm		(tree, tree, tree);
   7176 extern bool possibly_inlined_p			(tree);
   7177 extern int parm_index                           (tree);
   7178 extern tree vtv_start_verification_constructor_init_function (void);
   7179 extern tree vtv_finish_verification_constructor_init_function (tree);
   7180 extern void cp_check_const_attributes (tree);
   7181 extern void maybe_propagate_warmth_attributes (tree, tree);
   7182 
   7183 /* in error.cc */
   7184 extern const char *type_as_string		(tree, int);
   7185 extern const char *type_as_string_translate	(tree, int);
   7186 extern const char *decl_as_string		(tree, int);
   7187 extern const char *decl_as_string_translate	(tree, int);
   7188 extern const char *decl_as_dwarf_string		(tree, int);
   7189 extern const char *expr_as_string		(tree, int);
   7190 extern const char *expr_to_string		(tree);
   7191 extern const char *lang_decl_name		(tree, int, bool);
   7192 extern const char *lang_decl_dwarf_name		(tree, int, bool);
   7193 extern const char *language_to_string		(enum languages);
   7194 extern const char *class_key_or_enum_as_string	(tree);
   7195 extern void maybe_warn_variadic_templates       (void);
   7196 extern void maybe_warn_cpp0x			(cpp0x_warn_str str,
   7197 						 location_t = input_location);
   7198 extern bool pedwarn_cxx98                       (location_t, int, const char *, ...) ATTRIBUTE_GCC_DIAG(3,4);
   7199 extern location_t location_of                   (tree);
   7200 extern void qualified_name_lookup_error		(tree, tree, tree,
   7201 						 location_t);
   7202 
   7203 /* in except.cc */
   7204 extern void init_exception_processing		(void);
   7205 extern tree expand_start_catch_block		(tree);
   7206 extern void expand_end_catch_block		(void);
   7207 extern tree build_exc_ptr			(void);
   7208 extern tree build_throw				(location_t, tree,
   7209 						 tsubst_flags_t);
   7210 extern int nothrow_libfn_p			(const_tree);
   7211 extern void check_handlers			(tree);
   7212 extern tree finish_noexcept_expr		(tree, tsubst_flags_t);
   7213 extern bool expr_noexcept_p			(tree, tsubst_flags_t);
   7214 extern void perform_deferred_noexcept_checks	(void);
   7215 extern bool nothrow_spec_p			(const_tree);
   7216 extern bool type_noexcept_p			(const_tree);
   7217 extern bool type_throw_all_p			(const_tree);
   7218 extern tree build_noexcept_spec			(tree, tsubst_flags_t);
   7219 extern void choose_personality_routine		(enum languages);
   7220 extern tree build_must_not_throw_expr		(tree,tree);
   7221 extern tree eh_type_info			(tree);
   7222 extern tree begin_eh_spec_block			(void);
   7223 extern void finish_eh_spec_block		(tree, tree);
   7224 extern tree build_eh_type_type			(tree);
   7225 extern tree cp_protect_cleanup_actions		(void);
   7226 extern void maybe_splice_retval_cleanup		(tree, bool);
   7227 extern tree maybe_set_retval_sentinel		(void);
   7228 
   7229 extern tree template_parms_to_args		(tree);
   7230 extern tree template_parms_level_to_args	(tree);
   7231 extern tree generic_targs_for			(tree);
   7232 extern tree outer_template_args			(const_tree);
   7233 
   7234 /* in expr.cc */
   7235 extern tree cplus_expand_constant		(tree);
   7236 extern tree mark_use (tree expr, bool rvalue_p, bool read_p,
   7237 		      location_t = UNKNOWN_LOCATION,
   7238 		      bool reject_builtin = true);
   7239 extern tree mark_rvalue_use			(tree,
   7240                                                  location_t = UNKNOWN_LOCATION,
   7241                                                  bool reject_builtin = true);
   7242 extern tree mark_lvalue_use			(tree);
   7243 extern tree mark_lvalue_use_nonread		(tree);
   7244 extern tree mark_type_use			(tree);
   7245 extern tree mark_discarded_use			(tree);
   7246 extern void mark_exp_read			(tree);
   7247 
   7248 /* friend.cc */
   7249 extern int is_friend				(tree, tree);
   7250 extern void make_friend_class			(tree, tree, bool);
   7251 extern void add_friend				(tree, tree, bool);
   7252 extern tree do_friend				(tree, tree, tree,
   7253 						 enum overload_flags, bool);
   7254 
   7255 extern void set_global_friend			(tree);
   7256 extern bool is_global_friend			(tree);
   7257 
   7258 /* in init.cc */
   7259 extern tree find_temps_r			(tree *, int *, void *);
   7260 extern tree expand_member_init			(tree);
   7261 extern void emit_mem_initializers		(tree);
   7262 extern tree build_aggr_init			(tree, tree, int,
   7263                                                  tsubst_flags_t);
   7264 extern int is_class_type			(tree, int);
   7265 extern bool is_copy_initialization		(tree);
   7266 extern tree build_zero_init			(tree, tree, bool);
   7267 extern tree build_value_init			(tree, tsubst_flags_t);
   7268 extern tree build_value_init_noctor		(tree, tsubst_flags_t);
   7269 extern tree maybe_instantiate_nsdmi_init	(tree, tsubst_flags_t);
   7270 extern tree get_nsdmi				(tree, bool, tsubst_flags_t);
   7271 extern tree build_offset_ref			(tree, tree, bool,
   7272 						 tsubst_flags_t);
   7273 extern tree throw_bad_array_new_length		(void);
   7274 extern bool type_has_new_extended_alignment	(tree);
   7275 extern unsigned malloc_alignment		(void);
   7276 extern tree build_new_constexpr_heap_type	(tree, tree, tree);
   7277 extern tree build_new				(location_t,
   7278 						 vec<tree, va_gc> **, tree,
   7279 						 tree, vec<tree, va_gc> **,
   7280 						 int, tsubst_flags_t);
   7281 extern tree get_temp_regvar			(tree, tree);
   7282 extern tree build_vec_init			(tree, tree, tree, bool, int,
   7283 						 tsubst_flags_t,
   7284 						 vec<tree, va_gc> ** = nullptr);
   7285 extern tree build_delete			(location_t, tree, tree,
   7286 						 special_function_kind,
   7287 						 int, int, tsubst_flags_t);
   7288 extern void push_base_cleanups			(void);
   7289 extern tree build_vec_delete			(location_t, tree, tree,
   7290 						 special_function_kind, int,
   7291 						 tsubst_flags_t);
   7292 extern tree create_temporary_var		(tree);
   7293 extern void initialize_vtbl_ptrs		(tree);
   7294 extern tree scalar_constant_value		(tree);
   7295 extern tree decl_constant_value			(tree, bool);
   7296 extern tree decl_really_constant_value		(tree, bool = true);
   7297 extern int diagnose_uninitialized_cst_or_ref_member (tree, bool, bool);
   7298 extern tree build_vtbl_address                  (tree);
   7299 extern bool maybe_reject_flexarray_init		(tree, tree);
   7300 
   7301 /* in lex.cc */
   7302 extern void cxx_dup_lang_specific_decl		(tree);
   7303 extern tree unqualified_name_lookup_error	(tree,
   7304 						 location_t = UNKNOWN_LOCATION);
   7305 extern tree unqualified_fn_lookup_error		(cp_expr);
   7306 extern tree make_conv_op_name			(tree);
   7307 extern tree build_lang_decl			(enum tree_code, tree, tree);
   7308 extern tree build_lang_decl_loc			(location_t, enum tree_code, tree, tree);
   7309 extern bool maybe_add_lang_decl_raw		(tree, bool decomp_p);
   7310 extern bool maybe_add_lang_type_raw		(tree);
   7311 extern void retrofit_lang_decl			(tree);
   7312 extern void fit_decomposition_lang_decl		(tree, tree);
   7313 extern tree copy_decl				(tree CXX_MEM_STAT_INFO);
   7314 extern tree copy_type				(tree CXX_MEM_STAT_INFO);
   7315 extern tree cxx_make_type			(enum tree_code CXX_MEM_STAT_INFO);
   7316 extern tree make_class_type			(enum tree_code CXX_MEM_STAT_INFO);
   7317 extern const char *get_identifier_kind_name	(tree);
   7318 extern void set_identifier_kind			(tree, cp_identifier_kind);
   7319 extern bool cxx_init				(void);
   7320 extern void cxx_finish				(void);
   7321 extern bool in_main_input_context		(void);
   7322 extern uintptr_t module_token_pre (cpp_reader *, const cpp_token *, uintptr_t);
   7323 extern uintptr_t module_token_cdtor (cpp_reader *, uintptr_t);
   7324 extern uintptr_t module_token_lang (int type, int keyword, tree value,
   7325 				    location_t, uintptr_t);
   7326 
   7327 /* in method.cc */
   7328 extern void init_method				(void);
   7329 extern tree make_thunk				(tree, bool, tree, tree);
   7330 extern void finish_thunk			(tree);
   7331 extern void use_thunk				(tree, bool);
   7332 extern bool trivial_fn_p			(tree);
   7333 extern tree forward_parm			(tree);
   7334 extern bool is_trivially_xible			(enum tree_code, tree, tree);
   7335 extern bool is_nothrow_xible			(enum tree_code, tree, tree);
   7336 extern bool is_xible				(enum tree_code, tree, tree);
   7337 extern bool is_convertible			(tree, tree);
   7338 extern bool is_nothrow_convertible		(tree, tree);
   7339 extern bool ref_xes_from_temporary		(tree, tree, bool);
   7340 extern tree get_defaulted_eh_spec		(tree, tsubst_flags_t = tf_warning_or_error);
   7341 extern bool maybe_explain_implicit_delete	(tree);
   7342 extern void explain_implicit_non_constexpr	(tree);
   7343 extern bool deduce_inheriting_ctor		(tree);
   7344 extern bool decl_remember_implicit_trigger_p	(tree);
   7345 extern void synthesize_method			(tree);
   7346 extern void maybe_synthesize_method		(tree);
   7347 extern tree lazily_declare_fn			(special_function_kind,
   7348 						 tree);
   7349 extern tree skip_artificial_parms_for		(const_tree, tree);
   7350 extern int num_artificial_parms_for		(const_tree);
   7351 extern tree make_alias_for			(tree, tree);
   7352 extern tree get_copy_ctor			(tree, tsubst_flags_t);
   7353 extern tree get_copy_assign			(tree);
   7354 extern tree get_default_ctor			(tree);
   7355 extern tree get_dtor				(tree, tsubst_flags_t);
   7356 extern tree build_stub_object			(tree);
   7357 extern tree strip_inheriting_ctors		(tree);
   7358 extern tree inherited_ctor_binfo		(tree);
   7359 extern bool base_ctor_omit_inherited_parms	(tree);
   7360 extern bool ctor_omit_inherited_parms		(tree);
   7361 extern tree locate_ctor				(tree);
   7362 extern tree implicitly_declare_fn               (special_function_kind, tree,
   7363 						 bool, tree, tree);
   7364 /* In module.cc  */
   7365 class module_state; /* Forward declare.  */
   7366 inline bool modules_p () { return flag_modules != 0; }
   7367 
   7368 /* The kind of module or part thereof that we're in.  */
   7369 enum module_kind_bits
   7370 {
   7371   MK_NAMED = 1 << 0,	// TU is a named module
   7372   MK_HEADER = 1 << 1,	// TU is a header unit
   7373   MK_INTERFACE = 1 << 2,  // TU is an interface
   7374   MK_PARTITION = 1 << 3,  // TU is a partition
   7375 
   7376   MK_PURVIEW = 1 << 4,	// In purview of current module
   7377   MK_ATTACH = 1 << 5,	// Attaching to named module
   7378 
   7379   MK_EXPORTING = 1 << 6,  /* We are in an export region.  */
   7380 };
   7381 
   7382 /* We do lots of bit-manipulation, so an unsigned is easier.  */
   7383 extern unsigned module_kind;
   7384 
   7385 inline bool module_p ()
   7386 { return module_kind & (MK_NAMED | MK_HEADER); }
   7387 inline bool named_module_p ()
   7388 { return module_kind & MK_NAMED; }
   7389 inline bool header_module_p ()
   7390 { return module_kind & MK_HEADER; }
   7391 inline bool module_interface_p ()
   7392 { return module_kind & MK_INTERFACE; }
   7393 inline bool module_partition_p ()
   7394 { return module_kind & MK_PARTITION; }
   7395 inline bool module_has_cmi_p ()
   7396 { return module_kind & (MK_INTERFACE | MK_PARTITION); }
   7397 
   7398 inline bool module_purview_p ()
   7399 { return module_kind & MK_PURVIEW; }
   7400 inline bool module_attach_p ()
   7401 { return module_kind & MK_ATTACH; }
   7402 
   7403 inline bool named_module_purview_p ()
   7404 { return named_module_p () && module_purview_p (); }
   7405 inline bool named_module_attach_p ()
   7406 { return named_module_p () && module_attach_p (); }
   7407 
   7408 /* We don't know if this TU will have a CMI while parsing the GMF,
   7409    so tentatively assume that it might, for the purpose of determining
   7410    whether no-linkage decls could be used by an importer.  */
   7411 inline bool module_maybe_has_cmi_p ()
   7412 { return module_has_cmi_p () || (named_module_p () && !module_purview_p ()); }
   7413 
   7414 /* We're currently exporting declarations.  */
   7415 inline bool module_exporting_p ()
   7416 { return module_kind & MK_EXPORTING; }
   7417 
   7418 extern module_state *get_module (tree name, module_state *parent = NULL,
   7419 				 bool partition = false);
   7420 extern bool module_may_redeclare (tree olddecl, tree newdecl = NULL);
   7421 
   7422 extern bool module_global_init_needed ();
   7423 extern bool module_determine_import_inits ();
   7424 extern void module_add_import_initializers ();
   7425 
   7426 /* Where the namespace-scope decl was originally declared.  */
   7427 extern void set_originating_module (tree, bool friend_p = false);
   7428 extern tree get_originating_module_decl (tree) ATTRIBUTE_PURE;
   7429 extern int get_originating_module (tree, bool for_mangle = false) ATTRIBUTE_PURE;
   7430 extern unsigned get_importing_module (tree, bool = false) ATTRIBUTE_PURE;
   7431 
   7432 /* Where current instance of the decl got declared/defined/instantiated.  */
   7433 extern void set_instantiating_module (tree);
   7434 extern void set_defining_module (tree);
   7435 extern void maybe_key_decl (tree ctx, tree decl);
   7436 extern void propagate_defining_module (tree decl, tree orig);
   7437 extern void remove_defining_module (tree decl);
   7438 
   7439 extern void mangle_module (int m, bool include_partition);
   7440 extern void mangle_module_fini ();
   7441 extern void lazy_load_binding (unsigned mod, tree ns, tree id,
   7442 			       binding_slot *bslot);
   7443 extern void lazy_load_pendings (tree decl);
   7444 extern module_state *preprocess_module (module_state *, location_t,
   7445 					bool in_purview,
   7446 					bool is_import, bool export_p,
   7447 					cpp_reader *reader);
   7448 extern void preprocessed_module (cpp_reader *reader);
   7449 extern void import_module (module_state *, location_t, bool export_p,
   7450 			   tree attr, cpp_reader *);
   7451 extern void declare_module (module_state *, location_t, bool export_p,
   7452 			    tree attr, cpp_reader *);
   7453 extern void init_modules (cpp_reader *);
   7454 extern void fini_modules (cpp_reader *, void *cookie, bool);
   7455 extern void maybe_check_all_macros (cpp_reader *);
   7456 extern void *finish_module_processing (cpp_reader *);
   7457 extern char const *module_name (unsigned, bool header_ok);
   7458 extern bitmap get_import_bitmap ();
   7459 extern bitmap visible_instantiation_path (bitmap *);
   7460 extern void module_begin_main_file (cpp_reader *, line_maps *,
   7461 				    const line_map_ordinary *);
   7462 extern void module_preprocess_options (cpp_reader *);
   7463 extern bool handle_module_option (unsigned opt, const char *arg, int value);
   7464 
   7465 /* In optimize.cc */
   7466 extern tree clone_attrs				(tree);
   7467 extern bool maybe_clone_body			(tree);
   7468 
   7469 /* In parser.cc */
   7470 extern tree cp_convert_range_for (tree, tree, tree, cp_decomp *, bool,
   7471 				  tree, bool);
   7472 extern void cp_convert_omp_range_for (tree &, tree &, tree &,
   7473 				      tree &, tree &, tree &, tree &, tree &);
   7474 extern void cp_finish_omp_range_for (tree, tree);
   7475 extern bool cp_maybe_parse_omp_decl (tree, tree);
   7476 extern bool parsing_nsdmi (void);
   7477 extern bool parsing_function_declarator ();
   7478 extern bool parsing_default_capturing_generic_lambda_in_template (void);
   7479 extern void inject_this_parameter (tree, cp_cv_quals);
   7480 extern location_t defparse_location (tree);
   7481 extern void maybe_show_extern_c_location (void);
   7482 extern bool literal_integer_zerop (const_tree);
   7483 extern tree attr_chainon (tree, tree);
   7484 
   7485 /* in pt.cc */
   7486 extern tree canonical_type_parameter		(tree);
   7487 extern void push_access_scope			(tree);
   7488 extern void pop_access_scope			(tree);
   7489 extern bool check_template_shadow		(tree);
   7490 extern bool check_auto_in_tmpl_args             (tree, tree);
   7491 extern tree get_innermost_template_args		(tree, int);
   7492 extern void maybe_begin_member_template_processing (tree);
   7493 extern void maybe_end_member_template_processing (void);
   7494 extern tree finish_member_template_decl		(tree);
   7495 extern void begin_template_parm_list		(void);
   7496 extern bool begin_specialization		(void);
   7497 extern void reset_specialization		(void);
   7498 extern void end_specialization			(void);
   7499 extern void begin_explicit_instantiation	(void);
   7500 extern void end_explicit_instantiation		(void);
   7501 extern void check_unqualified_spec_or_inst	(tree, location_t);
   7502 extern tree check_explicit_specialization	(tree, tree, int, int,
   7503 						 tree = NULL_TREE);
   7504 extern int num_template_headers_for_class	(tree);
   7505 extern void check_template_variable		(tree);
   7506 extern tree make_auto				(void);
   7507 extern tree make_decltype_auto			(void);
   7508 extern tree make_constrained_auto		(tree, tree);
   7509 extern tree make_constrained_decltype_auto	(tree, tree);
   7510 extern tree make_template_placeholder		(tree);
   7511 extern tree make_cast_auto			(void);
   7512 extern bool template_placeholder_p		(tree);
   7513 extern bool ctad_template_p			(tree);
   7514 extern bool unparenthesized_id_or_class_member_access_p (tree);
   7515 extern tree do_auto_deduction                   (tree, tree, tree,
   7516                                                  tsubst_flags_t
   7517 						 = tf_warning_or_error,
   7518                                                  auto_deduction_context
   7519 						 = adc_unspecified,
   7520 						 tree = NULL_TREE,
   7521 						 int = LOOKUP_NORMAL,
   7522 						 tree = NULL_TREE);
   7523 extern tree type_uses_auto			(tree);
   7524 extern tree type_uses_auto_or_concept		(tree);
   7525 extern void append_type_to_template_for_access_check (tree, tree, tree,
   7526 						      location_t);
   7527 extern tree convert_generic_types_to_packs	(tree, int, int);
   7528 extern tree splice_late_return_type		(tree, tree);
   7529 extern bool is_auto				(const_tree);
   7530 extern tree process_template_parm		(tree, location_t, tree,
   7531 						 bool, bool);
   7532 extern tree end_template_parm_list		(tree);
   7533 extern void end_template_parm_list		(void);
   7534 extern void end_template_decl			(void);
   7535 extern tree maybe_update_decl_type		(tree, tree);
   7536 extern bool check_default_tmpl_args             (tree, tree, bool, bool, int);
   7537 extern tree push_template_decl			(tree, bool is_friend = false);
   7538 extern tree add_inherited_template_parms	(tree, tree);
   7539 extern void template_parm_level_and_index	(tree, int*, int*);
   7540 extern bool redeclare_class_template		(tree, tree, tree);
   7541 extern tree lookup_template_class		(tree, tree, tree, tree,
   7542 						 int, tsubst_flags_t);
   7543 extern tree lookup_template_function		(tree, tree);
   7544 extern tree lookup_template_variable		(tree, tree, tsubst_flags_t);
   7545 extern bool uses_template_parms			(tree);
   7546 extern bool uses_template_parms_level		(tree, int);
   7547 extern bool uses_outer_template_parms_in_constraints (tree, tree = NULL_TREE);
   7548 extern bool need_generic_capture		(void);
   7549 extern tree instantiate_class_template		(tree);
   7550 extern tree instantiate_template		(tree, tree, tsubst_flags_t);
   7551 extern tree fn_type_unification			(tree, tree, tree,
   7552 						 const tree *, unsigned int,
   7553 						 tree, unification_kind_t, int,
   7554 						 struct conversion **,
   7555 						 bool, bool);
   7556 extern void mark_decl_instantiated		(tree, int);
   7557 extern int more_specialized_fn			(tree, tree, int);
   7558 extern tree type_targs_deducible_from		(tree, tree);
   7559 extern void do_decl_instantiation		(tree, tree);
   7560 extern void do_type_instantiation		(tree, tree, tsubst_flags_t);
   7561 extern bool always_instantiate_p		(tree);
   7562 extern bool maybe_instantiate_noexcept		(tree, tsubst_flags_t = tf_warning_or_error);
   7563 extern tree instantiate_decl			(tree, bool, bool);
   7564 extern void maybe_instantiate_decl		(tree);
   7565 extern int comp_template_parms			(const_tree, const_tree);
   7566 extern bool template_heads_equivalent_p		(const_tree, const_tree);
   7567 extern bool builtin_pack_fn_p			(tree);
   7568 extern tree uses_parameter_packs                (tree);
   7569 extern bool template_parameter_pack_p           (const_tree);
   7570 extern bool function_parameter_pack_p		(const_tree);
   7571 extern bool function_parameter_expanded_from_pack_p (tree, tree);
   7572 extern tree make_pack_expansion                 (tree, tsubst_flags_t = tf_warning_or_error);
   7573 extern bool check_for_bare_parameter_packs      (tree, location_t = UNKNOWN_LOCATION);
   7574 extern tree build_template_info			(tree, tree);
   7575 extern tree get_template_info			(const_tree);
   7576 extern int template_class_depth			(tree);
   7577 extern int is_specialization_of			(tree, tree);
   7578 extern bool is_specialization_of_friend		(tree, tree);
   7579 extern bool comp_template_args			(tree, tree, tree * = NULL,
   7580 						 tree * = NULL);
   7581 extern int template_args_equal                  (tree, tree);
   7582 extern tree maybe_process_partial_specialization (tree);
   7583 extern tree most_specialized_instantiation	(tree);
   7584 extern tree most_specialized_partial_spec       (tree, tsubst_flags_t, bool = false);
   7585 extern void print_candidates			(tree);
   7586 extern void instantiate_pending_templates	(int);
   7587 extern tree tsubst_default_argument		(tree, int, tree, tree,
   7588 						 tsubst_flags_t);
   7589 extern tree tsubst (tree, tree, tsubst_flags_t, tree);
   7590 extern tree tsubst_expr                         (tree, tree, tsubst_flags_t, tree);
   7591 extern tree tsubst_pack_expansion		(tree, tree, tsubst_flags_t, tree);
   7592 extern tree tsubst_argument_pack		(tree, tree, tsubst_flags_t, tree);
   7593 extern tree tsubst_template_args		(tree, tree, tsubst_flags_t, tree);
   7594 extern tree tsubst_template_arg			(tree, tree, tsubst_flags_t, tree);
   7595 extern tree tsubst_function_parms		(tree, tree, tsubst_flags_t, tree);
   7596 extern tree most_general_template		(const_tree);
   7597 extern tree get_mostly_instantiated_function_type (tree);
   7598 extern bool problematic_instantiation_changed	(void);
   7599 extern void record_last_problematic_instantiation (void);
   7600 extern struct tinst_level *current_instantiation(void);
   7601 extern bool instantiating_current_function_p    (void);
   7602 extern tree maybe_get_template_decl_from_type_decl (tree);
   7603 extern int processing_template_parmlist;
   7604 extern bool dependent_type_p			(tree);
   7605 extern bool dependent_scope_p			(tree);
   7606 extern bool dependentish_scope_p		(tree);
   7607 extern bool any_dependent_template_arguments_p  (const_tree);
   7608 extern bool any_erroneous_template_args_p       (const_tree);
   7609 extern bool dependent_template_p		(tree);
   7610 extern bool dependent_template_id_p		(tree, tree);
   7611 extern bool type_dependent_expression_p		(tree);
   7612 extern bool type_dependent_object_expression_p	(tree);
   7613 extern bool any_type_dependent_arguments_p      (const vec<tree, va_gc> *);
   7614 extern bool any_type_dependent_elements_p       (const_tree);
   7615 extern bool type_dependent_expression_p_push	(tree);
   7616 extern bool value_dependent_expression_p	(tree);
   7617 extern bool instantiation_dependent_uneval_expression_p (tree);
   7618 extern bool any_value_dependent_elements_p      (const_tree);
   7619 extern bool dependent_omp_for_p			(tree, tree, tree, tree);
   7620 extern tree resolve_typename_type		(tree, bool);
   7621 extern tree template_for_substitution		(tree);
   7622 extern bool reregister_specialization		(tree, tree, tree);
   7623 extern tree instantiate_non_dependent_expr	(tree, tsubst_flags_t = tf_error);
   7624 extern tree instantiate_non_dependent_expr_internal (tree, tsubst_flags_t);
   7625 extern tree instantiate_non_dependent_or_null   (tree);
   7626 extern bool variable_template_specialization_p  (tree);
   7627 extern bool alias_type_or_template_p            (tree);
   7628 enum { nt_opaque = false, nt_transparent = true };
   7629 extern tree alias_template_specialization_p     (const_tree, bool);
   7630 extern tree dependent_alias_template_spec_p     (const_tree, bool);
   7631 extern tree get_template_parm_object		(tree expr, tree mangle);
   7632 extern tree tparm_object_argument		(tree);
   7633 extern bool explicit_class_specialization_p     (tree);
   7634 extern bool push_tinst_level                    (tree);
   7635 extern bool push_tinst_level                    (tree, tree);
   7636 extern bool push_tinst_level_loc                (tree, location_t);
   7637 extern bool push_tinst_level_loc                (tree, tree, location_t);
   7638 extern void pop_tinst_level                     (void);
   7639 extern struct tinst_level *outermost_tinst_level(void);
   7640 extern bool non_templated_friend_p		(tree);
   7641 extern void init_template_processing		(void);
   7642 extern void print_template_statistics		(void);
   7643 bool template_template_parameter_p		(const_tree);
   7644 bool template_type_parameter_p                  (const_tree);
   7645 extern bool primary_template_specialization_p   (const_tree);
   7646 extern tree get_primary_template_innermost_parameters	(const_tree);
   7647 extern tree get_template_innermost_arguments	(const_tree);
   7648 extern tree get_template_argument_pack_elems	(const_tree);
   7649 extern tree get_function_template_decl		(const_tree);
   7650 extern tree resolve_nondeduced_context		(tree, tsubst_flags_t);
   7651 extern tree resolve_nondeduced_context_or_error	(tree, tsubst_flags_t);
   7652 extern hashval_t iterative_hash_template_arg	(tree arg, hashval_t val);
   7653 extern tree coerce_template_parms		(tree, tree, tree, tsubst_flags_t,
   7654 						 bool = true);
   7655 extern tree canonicalize_type_argument		(tree, tsubst_flags_t);
   7656 extern void register_local_identity		(tree);
   7657 extern void register_local_specialization       (tree, tree);
   7658 extern tree retrieve_local_specialization       (tree);
   7659 extern void register_parameter_specializations	(tree, tree);
   7660 extern tree extract_fnparm_pack                 (tree, tree *);
   7661 extern tree template_parm_to_arg                (tree);
   7662 extern tree dguide_name				(tree);
   7663 extern bool dguide_name_p			(tree);
   7664 extern bool deduction_guide_p			(const_tree);
   7665 extern bool copy_guide_p			(const_tree);
   7666 extern bool template_guide_p			(const_tree);
   7667 extern bool builtin_guide_p			(const_tree);
   7668 extern bool inherited_guide_p			(const_tree);
   7669 extern void store_explicit_specifier		(tree, tree);
   7670 extern tree lookup_explicit_specifier		(tree);
   7671 extern tree lookup_imported_hidden_friend	(tree);
   7672 extern void walk_specializations		(bool,
   7673 						 void (*)(bool, spec_entry *,
   7674 							  void *),
   7675 						 void *);
   7676 extern tree match_mergeable_specialization	(bool is_decl, spec_entry *);
   7677 extern unsigned get_mergeable_specialization_flags (tree tmpl, tree spec);
   7678 extern void add_mergeable_specialization        (bool is_decl, spec_entry *,
   7679 						 tree outer, unsigned);
   7680 extern tree add_to_template_args		(tree, tree);
   7681 extern tree add_outermost_template_args		(tree, tree);
   7682 extern tree add_extra_args			(tree, tree, tsubst_flags_t, tree);
   7683 extern tree build_extra_args			(tree, tree, tsubst_flags_t);
   7684 
   7685 /* in rtti.cc */
   7686 /* A vector of all tinfo decls that haven't been emitted yet.  */
   7687 extern GTY(()) vec<tree, va_gc> *unemitted_tinfo_decls;
   7688 
   7689 extern void init_rtti_processing		(void);
   7690 extern tree build_typeid			(tree, tsubst_flags_t);
   7691 extern tree get_tinfo_decl_direct	        (tree, tree, int);
   7692 extern tree get_tinfo_decl			(tree);
   7693 extern tree get_typeid				(tree, tsubst_flags_t);
   7694 extern tree build_headof			(tree);
   7695 extern tree build_dynamic_cast			(location_t, tree, tree,
   7696 						 tsubst_flags_t);
   7697 extern void emit_support_tinfos			(void);
   7698 extern bool emit_tinfo_decl			(tree);
   7699 extern unsigned get_pseudo_tinfo_index		(tree);
   7700 extern tree get_pseudo_tinfo_type		(unsigned);
   7701 extern tree build_if_nonnull			(tree, tree, tsubst_flags_t);
   7702 
   7703 /* in search.cc */
   7704 extern tree get_parent_with_private_access 	(tree decl, tree binfo);
   7705 extern bool accessible_base_p			(tree, tree, bool);
   7706 extern tree lookup_base                         (tree, tree, base_access,
   7707 						 base_kind *, tsubst_flags_t,
   7708 						 HOST_WIDE_INT = -1);
   7709 extern tree dcast_base_hint			(tree, tree);
   7710 extern int accessible_p				(tree, tree, bool);
   7711 extern int accessible_in_template_p		(tree, tree);
   7712 extern tree lookup_field			(tree, tree, int, bool);
   7713 extern tree lookup_fnfields			(tree, tree, int, tsubst_flags_t);
   7714 extern tree lookup_member			(tree, tree, int, bool,
   7715 						 tsubst_flags_t,
   7716 						 access_failure_info *afi = NULL);
   7717 extern tree lookup_member_fuzzy			(tree, tree, bool);
   7718 extern tree locate_field_accessor		(tree, tree, bool);
   7719 extern int look_for_overrides			(tree, tree);
   7720 extern void get_pure_virtuals			(tree);
   7721 extern void maybe_suppress_debug_info		(tree);
   7722 extern void note_debug_info_needed		(tree);
   7723 extern tree current_scope			(void);
   7724 extern int at_function_scope_p			(void);
   7725 extern bool at_class_scope_p			(void);
   7726 extern bool at_namespace_scope_p		(void);
   7727 extern tree context_for_name_lookup		(tree);
   7728 extern tree type_context_for_name_lookup	(tree);
   7729 extern tree lookup_conversions			(tree);
   7730 extern tree binfo_from_vbase			(tree);
   7731 extern tree binfo_for_vbase			(tree, tree);
   7732 extern tree look_for_overrides_here		(tree, tree);
   7733 #define dfs_skip_bases ((tree)1)
   7734 extern tree dfs_walk_all (tree, tree (*) (tree, void *),
   7735 			  tree (*) (tree, void *), void *);
   7736 extern tree dfs_walk_once (tree, tree (*) (tree, void *),
   7737 			   tree (*) (tree, void *), void *);
   7738 extern tree binfo_via_virtual			(tree, tree);
   7739 extern bool binfo_direct_p			(tree);
   7740 extern tree build_baselink			(tree, tree, tree, tree);
   7741 extern tree adjust_result_of_qualified_name_lookup
   7742 						(tree, tree, tree);
   7743 extern tree copied_binfo			(tree, tree);
   7744 extern tree original_binfo			(tree, tree);
   7745 extern bool shared_member_p			(tree);
   7746 extern bool any_dependent_bases_p (tree = current_nonlambda_class_type ());
   7747 extern bool maybe_check_overriding_exception_spec (tree, tree);
   7748 
   7749 /* in semantics.cc */
   7750 extern void push_deferring_access_checks	(deferring_kind);
   7751 extern void resume_deferring_access_checks	(void);
   7752 extern void stop_deferring_access_checks	(void);
   7753 extern void pop_deferring_access_checks		(void);
   7754 extern vec<deferred_access_check, va_gc> *get_deferred_access_checks (void);
   7755 extern void reopen_deferring_access_checks (vec<deferred_access_check, va_gc> *);
   7756 extern void pop_to_parent_deferring_access_checks (void);
   7757 extern bool perform_access_checks (vec<deferred_access_check, va_gc> *,
   7758 				   tsubst_flags_t);
   7759 extern bool perform_deferred_access_checks	(tsubst_flags_t);
   7760 extern bool perform_or_defer_access_check	(tree, tree, tree,
   7761 						 tsubst_flags_t,
   7762 						 access_failure_info *afi = NULL);
   7763 
   7764 /* RAII sentinel to ensures that deferred access checks are popped before
   7765   a function returns.  */
   7766 
   7767 class deferring_access_check_sentinel
   7768 {
   7769 public:
   7770   deferring_access_check_sentinel (enum deferring_kind kind = dk_deferred)
   7771   {
   7772     push_deferring_access_checks (kind);
   7773   }
   7774   ~deferring_access_check_sentinel ()
   7775   {
   7776     pop_deferring_access_checks ();
   7777   }
   7778 };
   7779 
   7780 extern int stmts_are_full_exprs_p		(void);
   7781 extern void init_cp_semantics			(void);
   7782 extern tree do_poplevel				(tree);
   7783 extern void break_maybe_infinite_loop		(void);
   7784 extern void add_decl_expr			(tree);
   7785 extern tree maybe_cleanup_point_expr_void	(tree);
   7786 extern tree finish_expr_stmt			(tree);
   7787 extern tree begin_if_stmt			(void);
   7788 extern tree finish_if_stmt_cond			(tree, tree);
   7789 extern tree finish_then_clause			(tree);
   7790 extern void begin_else_clause			(tree);
   7791 extern void finish_else_clause			(tree);
   7792 extern void finish_if_stmt			(tree);
   7793 extern tree begin_while_stmt			(void);
   7794 extern void finish_while_stmt_cond	(tree, tree, bool, tree, bool);
   7795 extern void finish_while_stmt			(tree);
   7796 extern tree begin_do_stmt			(void);
   7797 extern void finish_do_body			(tree);
   7798 extern void finish_do_stmt		(tree, tree, bool, tree, bool);
   7799 extern tree finish_return_stmt			(tree);
   7800 extern tree begin_for_scope			(tree *);
   7801 extern tree begin_for_stmt			(tree, tree);
   7802 extern void finish_init_stmt			(tree);
   7803 extern void finish_for_cond		(tree, tree, bool, tree, bool);
   7804 extern void finish_for_expr			(tree, tree);
   7805 extern void finish_for_stmt			(tree);
   7806 extern tree begin_range_for_stmt		(tree, tree);
   7807 extern void finish_range_for_decl		(tree, tree, tree);
   7808 extern void finish_range_for_stmt		(tree);
   7809 extern tree finish_break_stmt			(void);
   7810 extern tree finish_continue_stmt		(void);
   7811 extern tree begin_switch_stmt			(void);
   7812 extern void finish_switch_cond			(tree, tree);
   7813 extern void finish_switch_stmt			(tree);
   7814 extern tree finish_goto_stmt			(tree);
   7815 extern tree begin_try_block			(void);
   7816 extern void finish_try_block			(tree);
   7817 extern void finish_handler_sequence		(tree);
   7818 extern tree begin_function_try_block		(tree *);
   7819 extern void finish_function_try_block		(tree);
   7820 extern void finish_function_handler_sequence    (tree, tree);
   7821 extern void finish_cleanup_try_block		(tree);
   7822 extern tree begin_handler			(void);
   7823 extern void finish_handler_parms		(tree, tree);
   7824 extern void finish_handler			(tree);
   7825 extern void finish_cleanup			(tree, tree);
   7826 extern bool is_this_parameter                   (tree);
   7827 extern bool is_object_parameter                 (tree);
   7828 
   7829 enum {
   7830   BCS_NORMAL = 0,
   7831   BCS_NO_SCOPE = 1,
   7832   BCS_TRY_BLOCK = 2,
   7833   BCS_FN_BODY = 4,
   7834   BCS_TRANSACTION = 8,
   7835   BCS_STMT_EXPR = 16
   7836 };
   7837 extern tree begin_compound_stmt			(unsigned int);
   7838 
   7839 extern void finish_compound_stmt		(tree);
   7840 extern tree finish_asm_stmt			(location_t, int, tree, tree,
   7841 						 tree, tree, tree, bool);
   7842 extern tree finish_label_stmt			(tree);
   7843 extern void finish_label_decl			(tree);
   7844 extern cp_expr finish_parenthesized_expr	(cp_expr);
   7845 extern tree force_paren_expr			(tree, bool = false);
   7846 inline tree force_paren_expr_uneval 		(tree t)
   7847 { return force_paren_expr (t, true); }
   7848 extern tree maybe_undo_parenthesized_ref	(tree);
   7849 extern tree finish_non_static_data_member       (tree, tree, tree,
   7850 						 tsubst_flags_t = tf_warning_or_error);
   7851 extern tree begin_stmt_expr			(void);
   7852 extern tree finish_stmt_expr_expr		(tree, tree);
   7853 extern tree finish_stmt_expr			(tree, bool);
   7854 extern tree stmt_expr_value_expr		(tree);
   7855 bool empty_expr_stmt_p				(tree);
   7856 extern cp_expr perform_koenig_lookup		(cp_expr, vec<tree, va_gc> *,
   7857 						 tsubst_flags_t);
   7858 extern tree finish_call_expr			(tree, vec<tree, va_gc> **, bool,
   7859 						 bool, tsubst_flags_t);
   7860 extern tree lookup_and_finish_template_variable (tree, tree, tsubst_flags_t = tf_warning_or_error);
   7861 extern tree finish_template_variable		(tree, tsubst_flags_t = tf_warning_or_error);
   7862 extern cp_expr finish_increment_expr		(cp_expr, enum tree_code);
   7863 extern tree finish_this_expr			(void);
   7864 extern tree finish_pseudo_destructor_expr       (tree, tree, tree, location_t);
   7865 extern cp_expr finish_unary_op_expr		(location_t, enum tree_code, cp_expr,
   7866 						 tsubst_flags_t);
   7867 /* Whether this call to finish_compound_literal represents a C++11 functional
   7868    cast or a C99 compound literal.  */
   7869 enum fcl_t { fcl_functional, fcl_c99 };
   7870 extern tree finish_compound_literal		(tree, tree, tsubst_flags_t, fcl_t = fcl_functional);
   7871 extern tree finish_fname			(tree);
   7872 extern void finish_translation_unit		(void);
   7873 extern tree finish_template_type_parm		(tree, tree);
   7874 extern tree finish_template_template_parm       (tree, tree);
   7875 extern tree begin_class_definition		(tree);
   7876 extern void finish_template_decl		(tree);
   7877 extern tree finish_template_type		(tree, tree, int);
   7878 extern tree finish_base_specifier		(tree, tree, bool);
   7879 extern void finish_member_declaration		(tree);
   7880 extern bool outer_automatic_var_p		(tree);
   7881 extern tree process_outer_var_ref		(tree, tsubst_flags_t, bool force_use = false);
   7882 extern cp_expr finish_id_expression		(tree, tree, tree,
   7883 						 cp_id_kind *,
   7884 						 bool, bool, bool *,
   7885 						 bool, bool, bool, bool,
   7886 						 const char **,
   7887                                                  location_t);
   7888 extern tree finish_typeof			(tree);
   7889 extern tree finish_underlying_type	        (tree);
   7890 extern tree calculate_bases                     (tree, tsubst_flags_t);
   7891 extern tree finish_bases                        (tree, bool);
   7892 extern tree calculate_direct_bases              (tree, tsubst_flags_t);
   7893 extern tree finish_offsetof			(tree, tree, location_t);
   7894 extern void finish_decl_cleanup			(tree, tree);
   7895 extern void finish_eh_cleanup			(tree);
   7896 extern void emit_associated_thunks		(tree);
   7897 extern void finish_mem_initializers		(tree);
   7898 extern tree check_template_template_default_arg (tree);
   7899 extern bool expand_or_defer_fn_1		(tree);
   7900 extern void expand_or_defer_fn			(tree);
   7901 extern bool check_accessibility_of_qualified_id (tree, tree, tree, tsubst_flags_t);
   7902 extern tree finish_qualified_id_expr		(tree, tree, bool, bool,
   7903 						 bool, bool, tsubst_flags_t);
   7904 extern void simplify_aggr_init_expr		(tree *);
   7905 extern void finalize_nrv			(tree, tree);
   7906 extern tree omp_reduction_id			(enum tree_code, tree, tree);
   7907 extern tree cp_remove_omp_priv_cleanup_stmt	(tree *, int *, void *);
   7908 extern bool cp_check_omp_declare_reduction	(tree);
   7909 extern void finish_omp_declare_simd_methods	(tree);
   7910 extern tree finish_omp_clauses			(tree, enum c_omp_region_type);
   7911 extern tree push_omp_privatization_clauses	(bool);
   7912 extern void pop_omp_privatization_clauses	(tree);
   7913 extern void save_omp_privatization_clauses	(vec<tree> &);
   7914 extern void restore_omp_privatization_clauses	(vec<tree> &);
   7915 extern void finish_omp_threadprivate		(tree);
   7916 extern tree begin_omp_structured_block		(void);
   7917 extern tree finish_omp_structured_block		(tree);
   7918 extern tree finish_oacc_data			(tree, tree);
   7919 extern tree finish_oacc_host_data		(tree, tree);
   7920 extern tree finish_omp_construct		(enum tree_code, tree, tree);
   7921 extern tree begin_omp_parallel			(void);
   7922 extern tree finish_omp_parallel			(tree, tree);
   7923 extern tree begin_omp_task			(void);
   7924 extern tree finish_omp_task			(tree, tree);
   7925 extern tree finish_omp_for			(location_t, enum tree_code,
   7926 						 tree, tree, tree, tree, tree,
   7927 						 tree, tree, vec<tree> *, tree);
   7928 extern tree finish_omp_for_block		(tree, tree);
   7929 extern void finish_omp_atomic			(location_t, enum tree_code,
   7930 						 enum tree_code, tree, tree,
   7931 						 tree, tree, tree, tree, tree,
   7932 						 enum omp_memory_order, bool);
   7933 extern void finish_omp_barrier			(void);
   7934 extern void finish_omp_depobj			(location_t, tree,
   7935 						 enum omp_clause_depend_kind,
   7936 						 tree);
   7937 extern void finish_omp_flush			(int);
   7938 extern void finish_omp_taskwait			(void);
   7939 extern void finish_omp_taskyield		(void);
   7940 extern void finish_omp_cancel			(tree);
   7941 extern void finish_omp_cancellation_point	(tree);
   7942 extern tree omp_privatize_field			(tree, bool);
   7943 extern tree begin_transaction_stmt		(location_t, tree *, int);
   7944 extern void finish_transaction_stmt		(tree, tree, int, tree);
   7945 extern tree build_transaction_expr		(location_t, tree, int, tree);
   7946 extern bool cxx_omp_create_clause_info		(tree, tree, bool, bool,
   7947 						 bool, bool);
   7948 extern tree baselink_for_fns                    (tree);
   7949 extern void finish_static_assert                (tree, tree, location_t,
   7950 						 bool, bool);
   7951 extern tree finish_decltype_type                (tree, bool, tsubst_flags_t);
   7952 extern tree fold_builtin_is_corresponding_member (location_t, int, tree *);
   7953 extern tree fold_builtin_is_pointer_inverconvertible_with_class (location_t, int, tree *);
   7954 extern tree finish_trait_expr			(location_t, enum cp_trait_kind, tree, tree);
   7955 extern tree finish_trait_type			(enum cp_trait_kind, tree, tree, tsubst_flags_t);
   7956 extern tree build_lambda_expr                   (void);
   7957 extern tree build_lambda_object			(tree);
   7958 extern tree begin_lambda_type                   (tree);
   7959 extern tree lambda_capture_field_type		(tree, bool, bool);
   7960 extern tree lambda_proxy_type			(tree);
   7961 extern tree lambda_function			(tree);
   7962 extern void apply_deduced_return_type           (tree, tree);
   7963 extern tree add_capture                         (tree, tree, tree, bool, bool, unsigned *);
   7964 extern tree add_default_capture                 (tree, tree, tree);
   7965 extern void insert_capture_proxy		(tree);
   7966 extern void insert_pending_capture_proxies	(void);
   7967 extern bool is_capture_proxy			(tree);
   7968 extern bool is_normal_capture_proxy             (tree);
   7969 extern bool is_constant_capture_proxy           (tree);
   7970 extern void register_capture_members		(tree);
   7971 extern tree lambda_expr_this_capture            (tree, int);
   7972 extern void maybe_generic_this_capture		(tree, tree);
   7973 extern tree maybe_resolve_dummy			(tree, bool);
   7974 extern tree current_nonlambda_function		(void);
   7975 extern tree nonlambda_method_basetype		(void);
   7976 extern tree current_nonlambda_scope		(void);
   7977 extern tree current_lambda_expr			(void);
   7978 extern bool generic_lambda_fn_p			(tree);
   7979 extern tree do_dependent_capture		(tree, bool = false);
   7980 extern bool lambda_fn_in_template_p		(tree);
   7981 extern void maybe_add_lambda_conv_op            (tree);
   7982 extern bool is_lambda_ignored_entity            (tree);
   7983 extern bool lambda_static_thunk_p		(tree);
   7984 extern bool call_from_lambda_thunk_p		(tree);
   7985 extern tree finish_builtin_launder		(location_t, tree,
   7986 						 tsubst_flags_t);
   7987 extern tree cp_build_vec_convert		(tree, location_t, tree,
   7988 						 tsubst_flags_t);
   7989 extern tree cp_build_bit_cast			(location_t, tree, tree,
   7990 						 tsubst_flags_t);
   7991 extern void start_lambda_scope			(tree decl);
   7992 extern void finish_lambda_scope			(void);
   7993 extern void record_lambda_scope			(tree lambda);
   7994 extern void record_lambda_scope_discriminator	(tree lambda);
   7995 extern void record_lambda_scope_sig_discriminator (tree lambda, tree fn);
   7996 extern tree start_lambda_function		(tree fn, tree lambda_expr);
   7997 extern void finish_lambda_function		(tree body);
   7998 extern bool regenerated_lambda_fn_p		(tree);
   7999 extern tree lambda_regenerating_args		(tree);
   8000 extern tree most_general_lambda			(tree);
   8001 extern tree finish_omp_target			(location_t, tree, tree, bool);
   8002 extern void finish_omp_target_clauses		(location_t, tree, tree *);
   8003 extern void maybe_warn_unparenthesized_assignment (tree, bool, tsubst_flags_t);
   8004 extern tree cp_check_pragma_unroll		(location_t, tree);
   8005 
   8006 /* in tree.cc */
   8007 extern int cp_tree_operand_length		(const_tree);
   8008 extern int cp_tree_code_length			(enum tree_code);
   8009 extern void cp_free_lang_data 			(tree t);
   8010 extern tree force_target_expr			(tree, tree, tsubst_flags_t);
   8011 extern tree build_target_expr_with_type		(tree, tree, tsubst_flags_t);
   8012 extern void lang_check_failed			(const char *, int,
   8013 						 const char *) ATTRIBUTE_NORETURN
   8014 						 ATTRIBUTE_COLD;
   8015 extern tree stabilize_expr			(tree, tree *);
   8016 extern void stabilize_call			(tree, tree *);
   8017 extern bool stabilize_init			(tree, tree *);
   8018 extern tree add_stmt_to_compound		(tree, tree);
   8019 extern void init_tree				(void);
   8020 extern bool pod_type_p				(const_tree);
   8021 extern bool layout_pod_type_p			(const_tree);
   8022 extern bool std_layout_type_p			(const_tree);
   8023 extern bool trivial_type_p			(const_tree);
   8024 extern bool trivially_copyable_p		(const_tree);
   8025 extern bool type_has_unique_obj_representations (const_tree);
   8026 extern bool scalarish_type_p			(const_tree);
   8027 extern bool structural_type_p			(tree, bool = false);
   8028 extern bool type_has_nontrivial_default_init	(const_tree);
   8029 extern bool type_has_nontrivial_copy_init	(const_tree);
   8030 extern void maybe_warn_parm_abi			(tree, location_t);
   8031 extern bool class_tmpl_impl_spec_p		(const_tree);
   8032 extern int zero_init_p				(const_tree);
   8033 extern bool zero_init_expr_p			(tree);
   8034 extern bool check_abi_tag_redeclaration		(const_tree, const_tree,
   8035 						 const_tree);
   8036 extern bool check_abi_tag_args			(tree, tree);
   8037 extern tree strip_typedefs			(tree, bool * = NULL,
   8038 						 unsigned int = 0);
   8039 extern tree strip_typedefs_expr			(tree, bool * = NULL,
   8040 						 unsigned int = 0);
   8041 extern tree copy_binfo				(tree, tree, tree,
   8042 						 tree *, int);
   8043 extern int member_p				(const_tree);
   8044 extern cp_lvalue_kind real_lvalue_p		(const_tree);
   8045 extern cp_lvalue_kind lvalue_kind		(const_tree);
   8046 extern bool glvalue_p				(const_tree);
   8047 extern bool obvalue_p				(const_tree);
   8048 extern bool xvalue_p	                        (const_tree);
   8049 extern bool bitfield_p				(const_tree);
   8050 extern bool non_mergeable_glvalue_p		(const_tree);
   8051 extern tree cp_stabilize_reference		(tree);
   8052 extern bool builtin_valid_in_constant_expr_p    (const_tree);
   8053 extern tree build_min				(enum tree_code, tree, ...);
   8054 extern tree build_min_nt_loc			(location_t, enum tree_code,
   8055 						 ...);
   8056 extern tree build_min_non_dep			(enum tree_code, tree, ...);
   8057 extern tree build_min_non_dep_op_overload	(enum tree_code, tree, tree, ...);
   8058 extern tree build_min_non_dep_op_overload	(tree, tree, tree,
   8059 						 vec<tree, va_gc> *);
   8060 extern tree build_min_nt_call_vec (tree, vec<tree, va_gc> *);
   8061 extern tree build_min_non_dep_call_vec		(tree, tree, vec<tree, va_gc> *);
   8062 extern vec<tree, va_gc>* vec_copy_and_insert    (vec<tree, va_gc>*, tree, unsigned);
   8063 extern tree build_cplus_new			(tree, tree, tsubst_flags_t);
   8064 extern tree build_local_temp			(tree);
   8065 extern bool is_local_temp			(tree);
   8066 extern tree build_aggr_init_expr		(tree, tree);
   8067 extern tree get_target_expr			(tree,
   8068 						 tsubst_flags_t = tf_warning_or_error);
   8069 extern tree build_cplus_array_type		(tree, tree, int is_dep = -1);
   8070 extern tree build_array_of_n_type		(tree, int);
   8071 extern bool array_of_runtime_bound_p		(tree);
   8072 extern bool vla_type_p				(tree);
   8073 extern tree build_array_copy			(tree);
   8074 extern tree build_vec_init_expr			(tree, tree, tsubst_flags_t);
   8075 extern tree expand_vec_init_expr		(tree, tree, tsubst_flags_t,
   8076 						 vec<tree,va_gc>** = nullptr);
   8077 extern void diagnose_non_constexpr_vec_init	(tree);
   8078 extern tree hash_tree_cons			(tree, tree, tree);
   8079 extern tree hash_tree_chain			(tree, tree);
   8080 extern tree build_qualified_name		(tree, tree, tree, bool);
   8081 extern tree build_ref_qualified_type		(tree, cp_ref_qualifier);
   8082 extern tree make_binding_vec			(tree, unsigned clusters CXX_MEM_STAT_INFO);
   8083 inline tree ovl_first				(tree) ATTRIBUTE_PURE;
   8084 extern tree ovl_make				(tree fn,
   8085 						 tree next = NULL_TREE);
   8086 extern tree ovl_insert				(tree fn, tree maybe_ovl,
   8087 						 int using_or_hidden = 0);
   8088 extern tree ovl_skip_hidden			(tree) ATTRIBUTE_PURE;
   8089 extern void lookup_mark				(tree lookup, bool val);
   8090 extern tree lookup_add				(tree fns, tree lookup);
   8091 extern tree lookup_maybe_add			(tree fns, tree lookup,
   8092 						 bool deduping);
   8093 extern int is_overloaded_fn			(tree) ATTRIBUTE_PURE;
   8094 extern bool really_overloaded_fn		(tree) ATTRIBUTE_PURE;
   8095 extern tree dependent_name			(tree);
   8096 extern tree call_expr_dependent_name		(tree);
   8097 extern tree maybe_get_fns			(tree) ATTRIBUTE_PURE;
   8098 extern tree get_fns				(tree) ATTRIBUTE_PURE;
   8099 extern tree get_first_fn			(tree) ATTRIBUTE_PURE;
   8100 extern tree ovl_scope				(tree);
   8101 extern const char *cxx_printable_name		(tree, int);
   8102 extern const char *cxx_printable_name_translate	(tree, int);
   8103 extern tree canonical_eh_spec			(tree);
   8104 extern tree build_cp_fntype_variant		(tree, cp_ref_qualifier, tree, bool);
   8105 extern tree build_exception_variant		(tree, tree);
   8106 extern void fixup_deferred_exception_variants   (tree, tree);
   8107 extern tree bind_template_template_parm		(tree, tree);
   8108 extern tree array_type_nelts_total		(tree);
   8109 extern tree array_type_nelts_top		(tree);
   8110 extern bool array_of_unknown_bound_p		(const_tree);
   8111 extern tree break_out_target_exprs		(tree, bool = false);
   8112 extern tree build_ctor_subob_ref		(tree, tree, tree);
   8113 extern tree replace_placeholders		(tree, tree, bool * = NULL);
   8114 extern bool find_placeholders			(tree);
   8115 extern tree get_type_decl			(tree);
   8116 extern tree decl_namespace_context		(tree);
   8117 extern bool decl_anon_ns_mem_p			(tree);
   8118 extern bool decl_internal_context_p		(const_tree);
   8119 extern tree lvalue_type				(tree);
   8120 extern tree error_type				(tree);
   8121 extern int varargs_function_p			(const_tree);
   8122 extern bool cp_tree_equal			(tree, tree);
   8123 extern tree no_linkage_check			(tree, bool);
   8124 extern void debug_binfo				(tree);
   8125 extern tree build_dummy_object			(tree);
   8126 extern tree maybe_dummy_object			(tree, tree *);
   8127 extern bool is_dummy_object			(const_tree);
   8128 extern bool is_byte_access_type			(tree);
   8129 extern bool is_byte_access_type_not_plain_char	(tree);
   8130 extern const struct scoped_attribute_specs cxx_gnu_attribute_table;
   8131 extern const struct scoped_attribute_specs std_attribute_table;
   8132 extern tree make_ptrmem_cst			(tree, tree);
   8133 extern tree cp_build_type_attribute_variant     (tree, tree);
   8134 extern tree cp_build_reference_type		(tree, bool);
   8135 extern tree move				(tree);
   8136 extern tree cp_build_qualified_type		(tree, int,
   8137 						 tsubst_flags_t = tf_warning_or_error);
   8138 extern bool cv_qualified_p			(const_tree);
   8139 extern tree cv_unqualified			(tree);
   8140 extern special_function_kind special_function_p (const_tree);
   8141 extern special_function_kind special_memfn_p	(const_tree);
   8142 extern int count_trees				(tree);
   8143 extern int char_type_p				(tree);
   8144 extern void verify_stmt_tree			(tree);
   8145 extern linkage_kind decl_linkage		(tree);
   8146 extern duration_kind decl_storage_duration	(tree);
   8147 extern tree cp_walk_subtrees (tree*, int*, walk_tree_fn,
   8148 			      void*, hash_set<tree> *);
   8149 #define cp_walk_tree(tp,func,data,pset) \
   8150 	walk_tree_1 (tp, func, data, pset, cp_walk_subtrees)
   8151 #define cp_walk_tree_without_duplicates(tp,func,data) \
   8152 	walk_tree_without_duplicates_1 (tp, func, data, cp_walk_subtrees)
   8153 extern tree rvalue				(tree);
   8154 extern tree convert_bitfield_to_declared_type   (tree);
   8155 extern tree cp_save_expr			(tree);
   8156 extern bool cast_valid_in_integral_constant_expression_p (tree);
   8157 extern bool cxx_type_hash_eq			(const_tree, const_tree);
   8158 extern tree cxx_copy_lang_qualifiers		(const_tree, const_tree);
   8159 
   8160 extern void cxx_print_statistics		(void);
   8161 extern bool maybe_warn_zero_as_null_pointer_constant (tree, location_t);
   8162 
   8163 /* in ptree.cc */
   8164 extern void cxx_print_xnode			(FILE *, tree, int);
   8165 extern void cxx_print_decl			(FILE *, tree, int);
   8166 extern void cxx_print_type			(FILE *, tree, int);
   8167 extern void cxx_print_identifier		(FILE *, tree, int);
   8168 extern void cxx_print_error_function		(diagnostic_context *,
   8169 						 const char *,
   8170 						 const diagnostic_info *);
   8171 
   8172 /* in typeck.cc */
   8173 /* Says how we should behave when comparing two arrays one of which
   8174    has unknown bounds.  */
   8175 enum compare_bounds_t { bounds_none, bounds_either, bounds_first };
   8176 
   8177 extern bool cxx_mark_addressable		(tree, bool = false);
   8178 extern int string_conv_p			(const_tree, const_tree, int);
   8179 extern tree cp_truthvalue_conversion		(tree, tsubst_flags_t);
   8180 extern tree contextual_conv_bool		(tree, tsubst_flags_t);
   8181 extern tree condition_conversion		(tree);
   8182 extern tree require_complete_type		(tree,
   8183 						 tsubst_flags_t = tf_warning_or_error);
   8184 extern tree complete_type			(tree);
   8185 extern tree complete_type_or_else		(tree, tree);
   8186 extern tree complete_type_or_maybe_complain	(tree, tree, tsubst_flags_t);
   8187 extern int cp_compare_floating_point_conversion_ranks (tree, tree);
   8188 inline bool type_unknown_p			(const_tree);
   8189 enum { ce_derived, ce_type, ce_normal, ce_exact };
   8190 extern bool comp_except_specs			(const_tree, const_tree, int);
   8191 extern bool comptypes				(tree, tree, int);
   8192 extern bool same_type_ignoring_top_level_qualifiers_p (tree, tree);
   8193 extern bool similar_type_p			(tree, tree);
   8194 extern bool next_common_initial_sequence	(tree &, tree &);
   8195 extern bool layout_compatible_type_p		(tree, tree);
   8196 extern bool compparms				(const_tree, const_tree);
   8197 extern int comp_cv_qualification		(const_tree, const_tree);
   8198 extern int comp_cv_qualification		(int, int);
   8199 extern int comp_cv_qual_signature		(tree, tree);
   8200 extern tree cxx_sizeof_or_alignof_expr		(location_t, tree,
   8201 						 enum tree_code, bool, bool);
   8202 extern tree cxx_sizeof_or_alignof_type		(location_t, tree,
   8203 						 enum tree_code, bool, bool);
   8204 extern tree cxx_alignas_expr                    (tree);
   8205 extern tree cxx_sizeof_nowarn                   (tree);
   8206 extern tree is_bitfield_expr_with_lowered_type  (const_tree);
   8207 extern tree unlowered_expr_type                 (const_tree);
   8208 extern tree decay_conversion			(tree,
   8209                                                  tsubst_flags_t,
   8210                                                  bool = true);
   8211 extern tree build_class_member_access_expr      (cp_expr, tree, tree, bool,
   8212 						 tsubst_flags_t);
   8213 extern tree finish_class_member_access_expr     (cp_expr, tree, bool,
   8214 						 tsubst_flags_t);
   8215 extern tree lookup_destructor			(tree, tree, tree, tsubst_flags_t);
   8216 extern tree build_dependent_operator_type	(tree, enum tree_code, bool);
   8217 extern tree build_x_indirect_ref		(location_t, tree,
   8218 						 ref_operator, tree,
   8219 						 tsubst_flags_t);
   8220 extern tree cp_build_indirect_ref		(location_t, tree,
   8221 						 ref_operator,
   8222 						 tsubst_flags_t);
   8223 extern tree cp_build_fold_indirect_ref		(tree);
   8224 extern tree build_array_ref			(location_t, tree, tree);
   8225 extern tree cp_build_array_ref			(location_t, tree, tree,
   8226 						 tsubst_flags_t);
   8227 extern tree get_member_function_from_ptrfunc	(tree *, tree, tsubst_flags_t);
   8228 extern tree cp_build_function_call_nary         (tree, tsubst_flags_t, ...)
   8229 						ATTRIBUTE_SENTINEL;
   8230 extern tree cp_build_function_call_vec		(tree, vec<tree, va_gc> **,
   8231 						 tsubst_flags_t,
   8232 						 tree = NULL_TREE);
   8233 extern tree build_x_binary_op			(const op_location_t &,
   8234 						 enum tree_code, tree,
   8235 						 enum tree_code, tree,
   8236 						 enum tree_code, tree,
   8237 						 tree *, tsubst_flags_t);
   8238 inline tree build_x_binary_op (const op_location_t &loc,
   8239 			       enum tree_code code, tree arg1, tree arg2,
   8240 			       tsubst_flags_t complain)
   8241 {
   8242   return build_x_binary_op (loc, code, arg1, TREE_CODE (arg1), arg2,
   8243 			    TREE_CODE (arg2), NULL_TREE, NULL, complain);
   8244 }
   8245 extern tree build_x_array_ref			(location_t, tree, tree,
   8246 						 tsubst_flags_t);
   8247 extern tree build_omp_array_section		(location_t, tree, tree, tree);
   8248 extern tree build_x_unary_op			(location_t,
   8249 						 enum tree_code, cp_expr,
   8250 						 tree, tsubst_flags_t);
   8251 extern tree cp_build_addressof			(location_t, tree,
   8252 						 tsubst_flags_t);
   8253 extern tree cp_build_addr_expr			(tree, tsubst_flags_t);
   8254 extern tree cp_build_unary_op                   (enum tree_code, tree, bool,
   8255                                                  tsubst_flags_t);
   8256 extern tree genericize_compound_lvalue		(tree);
   8257 extern tree unary_complex_lvalue		(enum tree_code, tree);
   8258 extern tree build_x_conditional_expr		(location_t, tree, tree, tree,
   8259                                                  tsubst_flags_t);
   8260 extern tree build_x_compound_expr_from_list	(tree, expr_list_kind,
   8261 						 tsubst_flags_t);
   8262 extern tree build_x_compound_expr_from_vec	(vec<tree, va_gc> *,
   8263 						 const char *, tsubst_flags_t);
   8264 extern tree build_x_compound_expr		(location_t, tree, tree,
   8265 						 tree, tsubst_flags_t);
   8266 extern tree build_compound_expr                 (location_t, tree, tree);
   8267 extern tree cp_build_compound_expr		(tree, tree, tsubst_flags_t);
   8268 extern tree build_static_cast			(location_t, tree, tree,
   8269 						 tsubst_flags_t);
   8270 extern tree build_reinterpret_cast		(location_t, tree, tree,
   8271 						 tsubst_flags_t);
   8272 extern tree build_const_cast			(location_t, tree, tree,
   8273 						 tsubst_flags_t);
   8274 extern tree build_c_cast			(location_t, tree, tree);
   8275 extern cp_expr build_c_cast			(location_t loc, tree type,
   8276 						 cp_expr expr);
   8277 extern tree cp_build_c_cast			(location_t, tree, tree,
   8278 						 tsubst_flags_t);
   8279 extern cp_expr build_x_modify_expr		(location_t, tree,
   8280 						 enum tree_code, tree,
   8281 						 tree, tsubst_flags_t);
   8282 extern tree cp_build_modify_expr		(location_t, tree,
   8283 						 enum tree_code, tree,
   8284 						 tsubst_flags_t);
   8285 extern tree convert_for_initialization		(tree, tree, tree, int,
   8286 						 impl_conv_rhs, tree, int,
   8287                                                  tsubst_flags_t);
   8288 extern int comp_ptr_ttypes			(tree, tree);
   8289 extern bool comp_ptr_ttypes_const		(tree, tree, compare_bounds_t);
   8290 extern bool error_type_p			(const_tree);
   8291 extern bool ptr_reasonably_similar		(const_tree, const_tree);
   8292 extern tree build_ptrmemfunc			(tree, tree, int, bool,
   8293 						 tsubst_flags_t);
   8294 extern int cp_type_quals			(const_tree);
   8295 extern int type_memfn_quals			(const_tree);
   8296 extern cp_ref_qualifier type_memfn_rqual	(const_tree);
   8297 extern tree apply_memfn_quals			(tree, cp_cv_quals,
   8298 						 cp_ref_qualifier = REF_QUAL_NONE);
   8299 extern bool cp_has_mutable_p			(const_tree);
   8300 extern bool at_least_as_qualified_p		(const_tree, const_tree);
   8301 extern void cp_apply_type_quals_to_decl		(int, tree);
   8302 extern tree build_ptrmemfunc1			(tree, tree, tree);
   8303 extern void expand_ptrmemfunc_cst		(tree, tree *, tree *);
   8304 extern tree type_after_usual_arithmetic_conversions (tree, tree);
   8305 extern tree common_pointer_type                 (tree, tree);
   8306 extern tree composite_pointer_type		(const op_location_t &,
   8307 						 tree, tree, tree, tree,
   8308 						 composite_pointer_operation,
   8309 						 tsubst_flags_t);
   8310 extern tree merge_types				(tree, tree);
   8311 extern tree strip_array_domain			(tree);
   8312 extern tree check_return_expr			(tree, bool *, bool *);
   8313 extern tree spaceship_type			(tree, tsubst_flags_t = tf_warning_or_error);
   8314 extern tree genericize_spaceship		(location_t, tree, tree, tree);
   8315 extern tree cp_build_binary_op                  (const op_location_t &,
   8316 						 enum tree_code, tree, tree,
   8317 						 tsubst_flags_t);
   8318 extern tree build_x_vec_perm_expr               (location_t,
   8319 						 tree, tree, tree,
   8320 						 tsubst_flags_t);
   8321 extern tree build_x_shufflevector               (location_t,
   8322 						 vec<tree, va_gc> *,
   8323 						 tsubst_flags_t);
   8324 #define cxx_sizeof(T)  cxx_sizeof_or_alignof_type (input_location, T, SIZEOF_EXPR, false, true)
   8325 extern tree build_simple_component_ref		(tree, tree);
   8326 extern tree build_ptrmemfunc_access_expr	(tree, tree);
   8327 extern tree build_address			(tree);
   8328 extern tree build_nop				(tree, tree);
   8329 extern tree non_reference			(tree);
   8330 extern tree lookup_anon_field			(tree, tree);
   8331 extern bool invalid_nonstatic_memfn_p		(location_t, tree,
   8332 						 tsubst_flags_t);
   8333 extern tree convert_member_func_to_ptr		(tree, tree, tsubst_flags_t);
   8334 extern tree convert_ptrmem			(tree, tree, bool, bool,
   8335 						 tsubst_flags_t);
   8336 extern int lvalue_or_else			(tree, enum lvalue_use,
   8337                                                  tsubst_flags_t);
   8338 extern void check_template_keyword		(tree);
   8339 extern bool check_raw_literal_operator		(const_tree decl);
   8340 extern bool check_literal_operator_args		(const_tree, bool *, bool *);
   8341 extern void maybe_warn_about_useless_cast       (location_t, tree, tree,
   8342 						 tsubst_flags_t);
   8343 extern tree cp_perform_integral_promotions      (tree, tsubst_flags_t);
   8344 
   8345 extern tree finish_left_unary_fold_expr      (location_t, tree, int);
   8346 extern tree finish_right_unary_fold_expr     (location_t, tree, int);
   8347 extern tree finish_binary_fold_expr          (location_t, tree, tree, int);
   8348 extern tree treat_lvalue_as_rvalue_p	     (tree, bool);
   8349 extern bool decl_in_std_namespace_p	     (tree);
   8350 extern void maybe_warn_pessimizing_move	     (tree, tree, bool);
   8351 
   8352 /* in typeck2.cc */
   8353 extern void require_complete_eh_spec_types	(tree, tree);
   8354 extern bool cxx_incomplete_type_diagnostic	(location_t, const_tree,
   8355 						 const_tree, diagnostic_t);
   8356 inline location_t
   8357 loc_or_input_loc (location_t loc)
   8358 {
   8359   return loc == UNKNOWN_LOCATION ? input_location : loc;
   8360 }
   8361 
   8362 /* Like EXPR_LOCATION, but also handle some tcc_exceptional that have
   8363    locations.  */
   8364 
   8365 inline location_t
   8366 cp_expr_location (const_tree t_)
   8367 {
   8368   tree t = CONST_CAST_TREE (t_);
   8369   if (t == NULL_TREE)
   8370     return UNKNOWN_LOCATION;
   8371   switch (TREE_CODE (t))
   8372     {
   8373     case LAMBDA_EXPR:
   8374       return LAMBDA_EXPR_LOCATION (t);
   8375     case STATIC_ASSERT:
   8376       return STATIC_ASSERT_SOURCE_LOCATION (t);
   8377     case TRAIT_EXPR:
   8378       return TRAIT_EXPR_LOCATION (t);
   8379     case PTRMEM_CST:
   8380       return PTRMEM_CST_LOCATION (t);
   8381     default:
   8382       return EXPR_LOCATION (t);
   8383     }
   8384 }
   8385 
   8386 inline location_t
   8387 cp_expr_loc_or_loc (const_tree t, location_t or_loc)
   8388 {
   8389   location_t loc = cp_expr_location (t);
   8390   if (loc == UNKNOWN_LOCATION)
   8391     loc = or_loc;
   8392   return loc;
   8393 }
   8394 
   8395 inline location_t
   8396 cp_expr_loc_or_input_loc (const_tree t)
   8397 {
   8398   return cp_expr_loc_or_loc (t, input_location);
   8399 }
   8400 
   8401 inline bool
   8402 cxx_incomplete_type_diagnostic (const_tree value, const_tree type,
   8403 				diagnostic_t diag_kind)
   8404 {
   8405   return cxx_incomplete_type_diagnostic (cp_expr_loc_or_input_loc (value),
   8406 					 value, type, diag_kind);
   8407 }
   8408 
   8409 extern void cxx_incomplete_type_error		(location_t, const_tree,
   8410 						 const_tree);
   8411 inline void
   8412 cxx_incomplete_type_error (const_tree value, const_tree type)
   8413 {
   8414   cxx_incomplete_type_diagnostic (value, type, DK_ERROR);
   8415 }
   8416 
   8417 extern void cxx_incomplete_type_inform 	        (const_tree);
   8418 extern tree error_not_base_type			(tree, tree);
   8419 extern tree binfo_or_else			(tree, tree);
   8420 extern void cxx_readonly_error			(location_t, tree,
   8421 						 enum lvalue_use);
   8422 extern void complete_type_check_abstract	(tree);
   8423 extern int abstract_virtuals_error		(tree, tree,
   8424 						 tsubst_flags_t = tf_warning_or_error);
   8425 extern int abstract_virtuals_error		(abstract_class_use, tree,
   8426 						 tsubst_flags_t = tf_warning_or_error);
   8427 
   8428 extern tree store_init_value			(tree, tree, vec<tree, va_gc>**, int);
   8429 extern tree build_disable_temp_cleanup		(tree);
   8430 extern tree split_nonconstant_init		(tree, tree);
   8431 extern bool check_narrowing			(tree, tree, tsubst_flags_t,
   8432 						 bool = false);
   8433 extern bool ordinary_char_type_p		(tree);
   8434 extern bool array_string_literal_compatible_p	(tree, tree);
   8435 extern tree digest_init				(tree, tree, tsubst_flags_t);
   8436 extern tree digest_init_flags			(tree, tree, int, tsubst_flags_t);
   8437 extern tree digest_nsdmi_init		        (tree, tree, tsubst_flags_t);
   8438 extern tree build_scoped_ref			(tree, tree, tree *);
   8439 extern tree build_x_arrow			(location_t, tree,
   8440 						 tsubst_flags_t);
   8441 extern tree build_m_component_ref		(tree, tree, tsubst_flags_t);
   8442 extern tree build_functional_cast		(location_t, tree, tree,
   8443 						 tsubst_flags_t);
   8444 extern tree add_exception_specifier		(tree, tree, tsubst_flags_t);
   8445 extern tree merge_exception_specifiers		(tree, tree);
   8446 extern void set_target_expr_eliding		(tree);
   8447 extern tree cp_build_init_expr			(location_t, tree, tree);
   8448 inline tree cp_build_init_expr (tree t, tree i)
   8449 { return cp_build_init_expr (input_location, t, i); }
   8450 
   8451 /* in mangle.cc */
   8452 extern void init_mangle				(void);
   8453 extern void mangle_decl				(tree);
   8454 extern const char *mangle_type_string		(tree);
   8455 extern tree mangle_typeinfo_for_type		(tree);
   8456 extern tree mangle_typeinfo_string_for_type	(tree);
   8457 extern tree mangle_vtbl_for_type		(tree);
   8458 extern tree mangle_vtt_for_type			(tree);
   8459 extern tree mangle_ctor_vtbl_for_type		(tree, tree);
   8460 extern tree mangle_thunk			(tree, int, tree, tree, tree);
   8461 extern tree mangle_guard_variable		(tree);
   8462 extern tree mangle_tls_init_fn			(tree);
   8463 extern tree mangle_tls_wrapper_fn		(tree);
   8464 extern bool decl_tls_wrapper_p			(tree);
   8465 extern tree mangle_ref_init_variable		(tree);
   8466 extern tree mangle_template_parm_object		(tree);
   8467 extern char *get_mangled_vtable_map_var_name    (tree);
   8468 extern bool mangle_return_type_p		(tree);
   8469 extern tree mangle_decomp			(tree, vec<tree> &);
   8470 extern void mangle_module_substitution		(int);
   8471 extern int mangle_module_component		(tree id, bool partition);
   8472 extern tree mangle_module_global_init		(int);
   8473 
   8474 /* in dump.cc */
   8475 extern bool cp_dump_tree			(void *, tree);
   8476 
   8477 /* In cp/cp-objcp-common.cc.  */
   8478 
   8479 extern alias_set_type cxx_get_alias_set		(tree);
   8480 extern bool cxx_warn_unused_global_decl		(const_tree);
   8481 extern size_t cp_tree_size			(enum tree_code);
   8482 extern bool cp_var_mod_type_p			(tree, tree);
   8483 extern void cxx_initialize_diagnostics		(diagnostic_context *);
   8484 extern int cxx_types_compatible_p		(tree, tree);
   8485 extern bool cxx_block_may_fallthru		(const_tree);
   8486 
   8487 /* in cp-gimplify.cc */
   8488 extern int cp_gimplify_expr			(tree *, gimple_seq *,
   8489 						 gimple_seq *);
   8490 extern void cp_genericize			(tree);
   8491 extern bool cxx_omp_const_qual_no_mutable	(tree);
   8492 extern enum omp_clause_default_kind cxx_omp_predetermined_sharing_1 (tree);
   8493 extern enum omp_clause_default_kind cxx_omp_predetermined_sharing (tree);
   8494 extern enum omp_clause_defaultmap_kind cxx_omp_predetermined_mapping (tree);
   8495 extern tree cxx_omp_clause_default_ctor		(tree, tree, tree);
   8496 extern tree cxx_omp_clause_copy_ctor		(tree, tree, tree);
   8497 extern tree cxx_omp_clause_assign_op		(tree, tree, tree);
   8498 extern tree cxx_omp_clause_dtor			(tree, tree);
   8499 extern void cxx_omp_finish_clause		(tree, gimple_seq *, bool);
   8500 extern bool cxx_omp_privatize_by_reference	(const_tree);
   8501 extern bool cxx_omp_disregard_value_expr	(tree, bool);
   8502 extern void cp_fold_function			(tree);
   8503 extern tree cp_fold_maybe_rvalue		(tree, bool);
   8504 extern tree cp_fold_rvalue			(tree);
   8505 extern tree cp_fully_fold			(tree);
   8506 extern tree cp_fully_fold_init			(tree);
   8507 extern tree predeclare_vla			(tree);
   8508 extern void clear_fold_cache			(void);
   8509 extern tree lookup_hotness_attribute		(tree);
   8510 extern tree process_stmt_hotness_attribute	(tree, location_t);
   8511 extern tree build_assume_call			(location_t, tree);
   8512 extern tree process_stmt_assume_attribute	(tree, tree, location_t);
   8513 extern bool simple_empty_class_p		(tree, tree, tree_code);
   8514 extern tree fold_builtin_source_location	(const_tree);
   8515 extern tree get_source_location_impl_type	();
   8516 extern tree cp_fold_immediate			(tree *, mce_value,
   8517 						 tree = current_function_decl);
   8518 extern void process_and_check_pending_immediate_escalating_fns ();
   8519 
   8520 /* in name-lookup.cc */
   8521 extern tree strip_using_decl                    (tree);
   8522 extern void diagnose_name_conflict		(tree, tree);
   8523 extern bool dependent_local_decl_p		(tree);
   8524 
   8525 /* Tell the binding oracle what kind of binding we are looking for.  */
   8526 
   8527 enum cp_oracle_request
   8528 {
   8529   CP_ORACLE_IDENTIFIER
   8530 };
   8531 
   8532 /* If this is non-NULL, then it is a "binding oracle" which can lazily
   8533    create bindings when needed by the C compiler.  The oracle is told
   8534    the name and type of the binding to create.  It can call pushdecl
   8535    or the like to ensure the binding is visible; or do nothing,
   8536    leaving the binding untouched.  c-decl.cc takes note of when the
   8537    oracle has been called and will not call it again if it fails to
   8538    create a given binding.  */
   8539 
   8540 typedef void cp_binding_oracle_function (enum cp_oracle_request, tree identifier);
   8541 
   8542 extern cp_binding_oracle_function *cp_binding_oracle;
   8543 
   8544 /* Set during diagnostics to record the failed constraint. This is a
   8545    TREE_LIST whose VALUE is the constraint and whose PURPOSE are the
   8546    instantiation arguments Defined in pt.cc.  */
   8547 
   8548 extern tree current_failed_constraint;
   8549 
   8550 /* An RAII class to manage the failed constraint.  */
   8551 
   8552 struct diagnosing_failed_constraint
   8553 {
   8554   diagnosing_failed_constraint (tree, tree, bool);
   8555   ~diagnosing_failed_constraint ();
   8556   static bool replay_errors_p ();
   8557 
   8558   bool diagnosing_error;
   8559 };
   8560 
   8561 /* in constraint.cc */
   8562 
   8563 extern cp_expr finish_constraint_or_expr	(location_t, cp_expr, cp_expr);
   8564 extern cp_expr finish_constraint_and_expr	(location_t, cp_expr, cp_expr);
   8565 extern cp_expr finish_constraint_primary_expr	(cp_expr);
   8566 extern tree finish_concept_definition		(cp_expr, tree, tree);
   8567 extern tree combine_constraint_expressions      (tree, tree);
   8568 extern tree append_constraint			(tree, tree);
   8569 extern tree get_constraints                     (const_tree);
   8570 extern void set_constraints                     (tree, tree);
   8571 extern void remove_constraints                  (tree);
   8572 extern tree current_template_constraints	(void);
   8573 extern tree associate_classtype_constraints     (tree);
   8574 extern tree build_constraints                   (tree, tree);
   8575 extern tree maybe_substitute_reqs_for		(tree, const_tree);
   8576 extern tree get_trailing_function_requirements	(tree);
   8577 extern tree get_shorthand_constraints           (tree);
   8578 
   8579 extern tree build_concept_id			(tree);
   8580 extern tree build_type_constraint		(tree, tree, tsubst_flags_t);
   8581 extern tree build_concept_check                 (tree, tree, tsubst_flags_t);
   8582 extern tree build_concept_check                 (tree, tree, tree, tsubst_flags_t);
   8583 
   8584 extern tree_pair finish_type_constraints	(tree, tree, tsubst_flags_t);
   8585 extern tree build_constrained_parameter         (tree, tree, tree = NULL_TREE);
   8586 extern void placeholder_extract_concept_and_args (tree, tree&, tree&);
   8587 extern bool equivalent_placeholder_constraints  (tree, tree);
   8588 extern hashval_t hash_placeholder_constraint	(tree);
   8589 extern bool deduce_constrained_parameter        (tree, tree&, tree&);
   8590 extern tree resolve_constraint_check            (tree);
   8591 extern tree check_function_concept              (tree);
   8592 extern tree finish_template_introduction        (tree, tree, location_t loc);
   8593 extern bool valid_requirements_p                (tree);
   8594 extern tree finish_concept_name                 (tree);
   8595 extern tree finish_shorthand_constraint         (tree, tree);
   8596 extern tree finish_requires_expr                (location_t, tree, tree);
   8597 extern tree finish_simple_requirement           (location_t, tree);
   8598 extern tree finish_type_requirement             (location_t, tree);
   8599 extern tree finish_compound_requirement         (location_t, tree, tree, bool);
   8600 extern tree finish_nested_requirement           (location_t, tree);
   8601 extern tree tsubst_requires_expr                (tree, tree, tsubst_flags_t, tree);
   8602 extern tree evaluate_requires_expr		(tree);
   8603 extern tree tsubst_constraint                   (tree, tree, tsubst_flags_t, tree);
   8604 extern tree tsubst_constraint_info              (tree, tree, tsubst_flags_t, tree);
   8605 extern tree tsubst_parameter_mapping		(tree, tree, tsubst_flags_t, tree);
   8606 
   8607 struct processing_constraint_expression_sentinel
   8608 {
   8609   processing_constraint_expression_sentinel ();
   8610   ~processing_constraint_expression_sentinel ();
   8611 };
   8612 
   8613 extern bool processing_constraint_expression_p	();
   8614 
   8615 extern tree unpack_concept_check		(tree);
   8616 extern tree get_concept_check_template		(tree);
   8617 extern tree evaluate_concept_check              (tree);
   8618 extern bool constraints_satisfied_p		(tree, tree = NULL_TREE);
   8619 extern bool* lookup_subsumption_result          (tree, tree);
   8620 extern bool save_subsumption_result             (tree, tree, bool);
   8621 extern tree find_template_parameters		(tree, tree);
   8622 extern bool equivalent_constraints              (tree, tree);
   8623 extern bool equivalently_constrained            (tree, tree);
   8624 extern bool strictly_subsumes			(tree, tree);
   8625 extern bool ttp_subsumes			(tree, tree);
   8626 extern int more_constrained                     (tree, tree);
   8627 extern bool at_least_as_constrained             (tree, tree);
   8628 extern bool constraints_equivalent_p            (tree, tree);
   8629 extern bool atomic_constraints_identical_p	(tree, tree);
   8630 extern hashval_t iterative_hash_constraint      (tree, hashval_t);
   8631 extern hashval_t hash_atomic_constraint         (tree);
   8632 extern void diagnose_constraints                (location_t, tree, tree);
   8633 
   8634 extern void note_failed_type_completion_for_satisfaction (tree);
   8635 
   8636 /* A structural hasher for ATOMIC_CONSTRs.  */
   8637 
   8638 struct atom_hasher : default_hash_traits<tree>
   8639 {
   8640   static hashval_t hash (tree t)
   8641   {
   8642     ++comparing_specializations;
   8643     hashval_t val = hash_atomic_constraint (t);
   8644     --comparing_specializations;
   8645     return val;
   8646   }
   8647 
   8648   static bool equal (tree t1, tree t2)
   8649   {
   8650     ++comparing_specializations;
   8651     bool eq = atomic_constraints_identical_p (t1, t2);
   8652     --comparing_specializations;
   8653     return eq;
   8654   }
   8655 };
   8656 
   8657 /* in logic.cc */
   8658 extern bool subsumes                            (tree, tree);
   8659 
   8660 /* In class.cc */
   8661 extern void set_current_access_from_decl (tree);
   8662 extern void cp_finish_injected_record_type (tree);
   8663 
   8664 /* in vtable-class-hierarchy.cc */
   8665 extern void vtv_compute_class_hierarchy_transitive_closure (void);
   8666 extern void vtv_generate_init_routine           (void);
   8667 extern void vtv_save_class_info                 (tree);
   8668 extern void vtv_recover_class_info              (void);
   8669 extern void vtv_build_vtable_verify_fndecl      (void);
   8670 
   8671 /* In constexpr.cc */
   8672 /* Representation of entries in the constexpr function definition table.  */
   8673 
   8674 struct GTY((for_user)) constexpr_fundef {
   8675   tree decl;
   8676   tree body;
   8677   tree parms;
   8678   tree result;
   8679 };
   8680 
   8681 extern void fini_constexpr			(void);
   8682 extern bool literal_type_p                      (tree);
   8683 extern void maybe_save_constexpr_fundef		(tree);
   8684 extern void register_constexpr_fundef		(const constexpr_fundef &);
   8685 extern constexpr_fundef *retrieve_constexpr_fundef	(tree);
   8686 extern bool is_valid_constexpr_fn		(tree, bool);
   8687 extern bool check_constexpr_ctor_body           (tree, tree, bool);
   8688 extern tree constexpr_fn_retval		(tree);
   8689 extern tree ensure_literal_type_for_constexpr_object (tree);
   8690 extern bool potential_constant_expression       (tree);
   8691 extern bool is_constant_expression (tree);
   8692 extern bool is_rvalue_constant_expression (tree);
   8693 extern bool is_nondependent_constant_expression (tree);
   8694 extern bool is_nondependent_static_init_expression (tree);
   8695 extern bool is_static_init_expression    (tree);
   8696 extern bool is_std_class (tree, const char *);
   8697 extern bool is_std_allocator (tree);
   8698 extern bool potential_rvalue_constant_expression (tree);
   8699 extern bool require_potential_constant_expression (tree);
   8700 extern bool require_constant_expression (tree);
   8701 extern bool require_rvalue_constant_expression (tree);
   8702 extern bool require_potential_rvalue_constant_expression (tree);
   8703 extern bool require_potential_rvalue_constant_expression_fncheck (tree);
   8704 extern tree cxx_constant_value			(tree, tree = NULL_TREE,
   8705 						 tsubst_flags_t = tf_error);
   8706 inline tree cxx_constant_value (tree t, tsubst_flags_t complain)
   8707 { return cxx_constant_value (t, NULL_TREE, complain); }
   8708 extern void cxx_constant_dtor			(tree, tree);
   8709 extern tree cxx_constant_init			(tree, tree = NULL_TREE);
   8710 extern tree maybe_constant_value		(tree, tree = NULL_TREE, mce_value = mce_unknown);
   8711 extern tree maybe_constant_init			(tree, tree = NULL_TREE, bool = false);
   8712 extern tree fold_non_dependent_expr		(tree,
   8713 						 tsubst_flags_t = tf_warning_or_error,
   8714 						 bool = false, tree = NULL_TREE);
   8715 extern tree maybe_fold_non_dependent_expr	(tree,
   8716 						 tsubst_flags_t = tf_warning_or_error);
   8717 extern tree fold_non_dependent_init		(tree,
   8718 						 tsubst_flags_t = tf_warning_or_error,
   8719 						 bool = false, tree = NULL_TREE);
   8720 extern tree fold_simple				(tree);
   8721 extern tree fold_to_constant			(tree);
   8722 extern bool reduced_constant_expression_p       (tree);
   8723 extern bool is_instantiation_of_constexpr       (tree);
   8724 extern bool var_in_constexpr_fn                 (tree);
   8725 extern bool var_in_maybe_constexpr_fn           (tree);
   8726 extern bool maybe_constexpr_fn			(tree);
   8727 extern void explain_invalid_constexpr_fn        (tree);
   8728 extern vec<tree> cx_error_context               (void);
   8729 extern tree fold_sizeof_expr			(tree);
   8730 extern void clear_cv_and_fold_caches		(void);
   8731 extern tree unshare_constructor			(tree CXX_MEM_STAT_INFO);
   8732 extern bool decl_implicit_constexpr_p		(tree);
   8733 struct constexpr_ctx;
   8734 extern tree find_failing_clause			(const constexpr_ctx *ctx, tree);
   8735 extern void diagnose_failing_condition		(tree, location_t, bool,
   8736 						 const constexpr_ctx * = nullptr);
   8737 extern bool replace_decl			(tree *, tree, tree);
   8738 
   8739 /* An RAII sentinel used to restrict constexpr evaluation so that it
   8740    doesn't do anything that causes extra DECL_UID generation.  */
   8741 
   8742 struct uid_sensitive_constexpr_evaluation_sentinel
   8743 {
   8744   temp_override<bool> ovr;
   8745   uid_sensitive_constexpr_evaluation_sentinel ();
   8746 };
   8747 
   8748 /* Used to determine whether uid_sensitive_constexpr_evaluation_p was
   8749    called and returned true, indicating that we've restricted constexpr
   8750    evaluation in order to avoid UID generation.  We use this to control
   8751    updates to the fold_cache and cv_cache.  */
   8752 
   8753 struct uid_sensitive_constexpr_evaluation_checker
   8754 {
   8755   const unsigned saved_counter;
   8756   uid_sensitive_constexpr_evaluation_checker ();
   8757   bool evaluation_restricted_p () const;
   8758 };
   8759 
   8760 void cp_tree_c_finish_parsing ();
   8761 
   8762 /* In cp-ubsan.cc */
   8763 extern void cp_ubsan_maybe_instrument_member_call (tree);
   8764 extern void cp_ubsan_instrument_member_accesses (tree *);
   8765 extern tree cp_ubsan_maybe_instrument_downcast	(location_t, tree, tree, tree);
   8766 extern tree cp_ubsan_maybe_instrument_cast_to_vbase (location_t, tree, tree);
   8767 extern void cp_ubsan_maybe_initialize_vtbl_ptrs (tree);
   8768 
   8769 /* In coroutines.cc */
   8770 extern tree finish_co_return_stmt		(location_t, tree);
   8771 extern tree finish_co_await_expr		(location_t, tree);
   8772 extern tree finish_co_yield_expr		(location_t, tree);
   8773 extern tree coro_validate_builtin_call		(tree,
   8774 						 tsubst_flags_t = tf_warning_or_error);
   8775 extern bool morph_fn_to_coro			(tree, tree *, tree *);
   8776 extern tree coro_get_actor_function		(tree);
   8777 extern tree coro_get_destroy_function		(tree);
   8778 extern tree coro_get_ramp_function		(tree);
   8779 
   8780 extern tree co_await_get_resume_call		(tree await_expr);
   8781 
   8782 /* contracts.cc */
   8783 extern tree make_postcondition_variable		(cp_expr);
   8784 extern tree make_postcondition_variable		(cp_expr, tree);
   8785 extern tree grok_contract			(tree, tree, tree, cp_expr, location_t);
   8786 extern tree finish_contract_condition		(cp_expr);
   8787 
   8788 /* Return the first contract in ATTRS, or NULL_TREE if there are none.  */
   8789 
   8790 inline tree
   8791 find_contract (tree attrs)
   8792 {
   8793   while (attrs && !cxx_contract_attribute_p (attrs))
   8794     attrs = TREE_CHAIN (attrs);
   8795   return attrs;
   8796 }
   8797 
   8798 inline void
   8799 set_decl_contracts (tree decl, tree contract_attrs)
   8800 {
   8801   remove_contract_attributes (decl);
   8802   DECL_ATTRIBUTES (decl) = chainon (DECL_ATTRIBUTES (decl), contract_attrs);
   8803 }
   8804 
   8805 /* Returns the computed semantic of the node.  */
   8806 
   8807 inline contract_semantic
   8808 get_contract_semantic (const_tree t)
   8809 {
   8810   return (contract_semantic) (TREE_LANG_FLAG_3 (CONTRACT_CHECK (t))
   8811       | (TREE_LANG_FLAG_2 (t) << 1)
   8812       | (TREE_LANG_FLAG_0 ((t)) << 2));
   8813 }
   8814 
   8815 /* Sets the computed semantic of the node.  */
   8816 
   8817 inline void
   8818 set_contract_semantic (tree t, contract_semantic semantic)
   8819 {
   8820   TREE_LANG_FLAG_3 (CONTRACT_CHECK (t)) = semantic & 0x01;
   8821   TREE_LANG_FLAG_2 (t) = (semantic & 0x02) >> 1;
   8822   TREE_LANG_FLAG_0 (t) = (semantic & 0x04) >> 2;
   8823 }
   8824 
   8825 /* Inline bodies.  */
   8826 
   8827 inline tree
   8828 ovl_first (tree node)
   8829 {
   8830   while (TREE_CODE (node) == OVERLOAD)
   8831     node = OVL_FUNCTION (node);
   8832   return node;
   8833 }
   8834 
   8835 inline bool
   8836 type_unknown_p (const_tree expr)
   8837 {
   8838   return TREE_TYPE (expr) == unknown_type_node;
   8839 }
   8840 
   8841 inline hashval_t
   8842 named_decl_hash::hash (const value_type decl)
   8843 {
   8844   tree name = (TREE_CODE (decl) == BINDING_VECTOR
   8845 	       ? BINDING_VECTOR_NAME (decl) : OVL_NAME (decl));
   8846   return name ? IDENTIFIER_HASH_VALUE (name) : 0;
   8847 }
   8848 
   8849 inline bool
   8850 named_decl_hash::equal (const value_type existing, compare_type candidate)
   8851 {
   8852   tree name = (TREE_CODE (existing) == BINDING_VECTOR
   8853 	       ? BINDING_VECTOR_NAME (existing) : OVL_NAME (existing));
   8854   return candidate == name;
   8855 }
   8856 
   8857 inline bool
   8858 null_node_p (const_tree expr)
   8859 {
   8860   STRIP_ANY_LOCATION_WRAPPER (expr);
   8861   return expr == null_node;
   8862 }
   8863 
   8864 /* True iff T is a variable template declaration. */
   8865 inline bool
   8866 variable_template_p (tree t)
   8867 {
   8868   if (TREE_CODE (t) != TEMPLATE_DECL)
   8869     return false;
   8870   if (!PRIMARY_TEMPLATE_P (t))
   8871     return false;
   8872   if (tree r = DECL_TEMPLATE_RESULT (t))
   8873     return VAR_P (r);
   8874   return false;
   8875 }
   8876 
   8877 /* True iff T is a standard concept definition. This will return
   8878    true for both the template and underlying declaration.  */
   8879 
   8880 inline bool
   8881 standard_concept_p (tree t)
   8882 {
   8883   if (TREE_CODE (t) == TEMPLATE_DECL)
   8884     t = DECL_TEMPLATE_RESULT (t);
   8885   return TREE_CODE (t) == CONCEPT_DECL;
   8886 }
   8887 
   8888 /* True iff T is a variable concept definition. This will return
   8889    true for both the template and the underlying declaration.  */
   8890 
   8891 inline bool
   8892 variable_concept_p (tree t)
   8893 {
   8894   if (TREE_CODE (t) == TEMPLATE_DECL)
   8895     t = DECL_TEMPLATE_RESULT (t);
   8896   return VAR_P (t) && DECL_DECLARED_CONCEPT_P (t);
   8897 }
   8898 
   8899 /* True iff T is a function concept definition or an overload set
   8900    containing multiple function concepts. This will return true for
   8901    both the template and the underlying declaration.  */
   8902 
   8903 inline bool
   8904 function_concept_p (tree t)
   8905 {
   8906   if (TREE_CODE (t) == OVERLOAD)
   8907     t = OVL_FIRST (t);
   8908   if (TREE_CODE (t) == TEMPLATE_DECL)
   8909     t = DECL_TEMPLATE_RESULT (t);
   8910   return TREE_CODE (t) == FUNCTION_DECL && DECL_DECLARED_CONCEPT_P (t);
   8911 }
   8912 
   8913 /* True iff T is a standard, variable, or function concept.  */
   8914 
   8915 inline bool
   8916 concept_definition_p (tree t)
   8917 {
   8918   if (t == error_mark_node)
   8919     return false;
   8920 
   8921   /* Adjust for function concept overloads.  */
   8922   if (TREE_CODE (t) == OVERLOAD)
   8923     t = OVL_FIRST (t);
   8924 
   8925   /* See through templates. */
   8926   if (TREE_CODE (t) == TEMPLATE_DECL)
   8927     t = DECL_TEMPLATE_RESULT (t);
   8928 
   8929   /* The obvious and easy case.  */
   8930   if (TREE_CODE (t) == CONCEPT_DECL)
   8931     return true;
   8932 
   8933   /* Definitely not a concept.  */
   8934   if (!VAR_OR_FUNCTION_DECL_P (t))
   8935     return false;
   8936   if (!DECL_LANG_SPECIFIC (t))
   8937     return false;
   8938 
   8939   return DECL_DECLARED_CONCEPT_P (t);
   8940 }
   8941 
   8942 /* Same as above, but for const trees.  */
   8943 
   8944 inline bool
   8945 concept_definition_p (const_tree t)
   8946 {
   8947   return concept_definition_p (const_cast<tree> (t));
   8948 }
   8949 
   8950 /* True if t is an expression that checks a concept.  */
   8951 
   8952 inline bool
   8953 concept_check_p (const_tree t)
   8954 {
   8955   if (TREE_CODE (t) == CALL_EXPR)
   8956     t = CALL_EXPR_FN (t);
   8957   if (t && TREE_CODE (t) == TEMPLATE_ID_EXPR)
   8958     return concept_definition_p (TREE_OPERAND (t, 0));
   8959   return false;
   8960 }
   8961 
   8962 /* Helpers for IMPLICIT_RVALUE_P to look through automatic dereference.  */
   8963 
   8964 inline bool
   8965 implicit_rvalue_p (const_tree t)
   8966 {
   8967   if (REFERENCE_REF_P (t))
   8968     t = TREE_OPERAND (t, 0);
   8969   return ((TREE_CODE (t) == NON_LVALUE_EXPR
   8970 	   || TREE_CODE (t) == STATIC_CAST_EXPR)
   8971 	  && IMPLICIT_RVALUE_P (t));
   8972 }
   8973 inline tree
   8974 set_implicit_rvalue_p (tree ot)
   8975 {
   8976   tree t = ot;
   8977   if (REFERENCE_REF_P (t))
   8978     t = TREE_OPERAND (t, 0);
   8979   IMPLICIT_RVALUE_P (t) = 1;
   8980   return ot;
   8981 }
   8982 
   8983 /* True if t is a "constrained auto" type-specifier.  */
   8984 
   8985 inline bool
   8986 is_constrained_auto (const_tree t)
   8987 {
   8988   return is_auto (t) && PLACEHOLDER_TYPE_CONSTRAINTS_INFO (t);
   8989 }
   8990 
   8991 /* True if CODE, a tree code, denotes a tree whose operand is not evaluated
   8992    as per [expr.context], i.e., an operand to sizeof, typeof, decltype, or
   8993    alignof.  */
   8994 
   8995 inline bool
   8996 unevaluated_p (tree_code code)
   8997 {
   8998   return (code == DECLTYPE_TYPE
   8999 	  || code == ALIGNOF_EXPR
   9000 	  || code == SIZEOF_EXPR
   9001 	  || code == NOEXCEPT_EXPR
   9002 	  || code == REQUIRES_EXPR);
   9003 }
   9004 
   9005 /* RAII class to push/pop the access scope for T.  */
   9006 
   9007 struct push_access_scope_guard
   9008 {
   9009   tree decl;
   9010   push_access_scope_guard (tree t)
   9011     : decl (t)
   9012   {
   9013     if (VAR_OR_FUNCTION_DECL_P (decl)
   9014 	|| TREE_CODE (decl) == TYPE_DECL)
   9015       push_access_scope (decl);
   9016     else
   9017       decl = NULL_TREE;
   9018   }
   9019   ~push_access_scope_guard ()
   9020   {
   9021     if (decl)
   9022       pop_access_scope (decl);
   9023   }
   9024 };
   9025 
   9026 /* True if TYPE is an extended floating-point type.  */
   9027 
   9028 inline bool
   9029 extended_float_type_p (tree type)
   9030 {
   9031   type = TYPE_MAIN_VARIANT (type);
   9032   for (int i = 0; i < NUM_FLOATN_NX_TYPES; ++i)
   9033     if (type == FLOATN_TYPE_NODE (i))
   9034       return true;
   9035   if (type == bfloat16_type_node)
   9036     return true;
   9037   return false;
   9038 }
   9039 
   9040 /* True if DECL is name-independent declaration.  */
   9041 
   9042 inline bool
   9043 name_independent_decl_p (tree decl)
   9044 {
   9045   return ((VAR_P (decl) || TREE_CODE (decl) == FIELD_DECL)
   9046 	  && DECL_NAME (decl)
   9047 	  && id_equal (DECL_NAME (decl), "_")
   9048 	  && !TREE_STATIC (decl)
   9049 	  && !DECL_EXTERNAL (decl));
   9050 }
   9051 
   9052 #if CHECKING_P
   9053 namespace selftest {
   9054   extern void run_cp_tests (void);
   9055 
   9056   /* Declarations for specific families of tests within cp,
   9057      by source file, in alphabetical order.  */
   9058   extern void cp_pt_cc_tests ();
   9059   extern void cp_tree_cc_tests (void);
   9060 } // namespace selftest
   9061 #endif /* #if CHECKING_P */
   9062 
   9063 /* -- end of C++ */
   9064 
   9065 #endif /* ! GCC_CP_TREE_H */
   9066