diff options
Diffstat (limited to 'contrib/gcc/tree.h')
| -rw-r--r-- | contrib/gcc/tree.h | 475 |
1 files changed, 223 insertions, 252 deletions
diff --git a/contrib/gcc/tree.h b/contrib/gcc/tree.h index 4a05eff..a64175f 100644 --- a/contrib/gcc/tree.h +++ b/contrib/gcc/tree.h @@ -19,8 +19,12 @@ along with GCC; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ +#ifndef GCC_TREE_H +#define GCC_TREE_H + #include "machmode.h" #include "version.h" +#include "location.h" /* Codes of tree nodes */ @@ -46,10 +50,10 @@ enum tree_code { and `x' for anything else (TREE_LIST, IDENTIFIER, etc). */ #define MAX_TREE_CODES 256 -extern char tree_code_type[MAX_TREE_CODES]; +extern const char tree_code_type[]; #define TREE_CODE_CLASS(CODE) tree_code_type[(int) (CODE)] -/* Returns non-zero iff CLASS is the tree-code class of an +/* Returns nonzero iff CLASS is the tree-code class of an expression. */ #define IS_EXPR_CODE_CLASS(CLASS) \ @@ -57,12 +61,12 @@ extern char tree_code_type[MAX_TREE_CODES]; /* Number of argument-words in each kind of tree-node. */ -extern int tree_code_length[MAX_TREE_CODES]; +extern const unsigned char tree_code_length[]; #define TREE_CODE_LENGTH(CODE) tree_code_length[(int) (CODE)] /* Names of tree components. */ -extern const char *tree_code_name[MAX_TREE_CODES]; +extern const char *const tree_code_name[]; /* Classify which part of the compiler has defined a given builtin function. Note that we assume below that this is no more than two bits. */ @@ -80,7 +84,7 @@ extern const char *const built_in_class_names[4]; /* Codes that identify the various built in functions so that expand_call can identify them quickly. */ -#define DEF_BUILTIN(ENUM, N, C, T, LT, B, F, NA) ENUM, +#define DEF_BUILTIN(ENUM, N, C, T, LT, B, F, NA, AT) ENUM, enum built_in_function { #include "builtins.def" @@ -118,7 +122,7 @@ extern tree built_in_decls[(int) END_BUILTINS]; See the accessor macros, defined below, for documentation of the fields. */ -struct tree_common +struct tree_common GTY(()) { tree chain; tree type; @@ -313,12 +317,26 @@ struct tree_common __FUNCTION__); \ __t; }) +#define TREE_VEC_ELT_CHECK(t, i) __extension__ \ +(*({const tree __t = t; \ + const int __i = (i); \ + if (TREE_CODE (__t) != TREE_VEC) \ + tree_check_failed (__t, TREE_VEC, \ + __FILE__, __LINE__, __FUNCTION__); \ + if (__i < 0 || __i >= __t->vec.length) \ + tree_vec_elt_check_failed (__i, __t->vec.length, \ + __FILE__, __LINE__, __FUNCTION__); \ + &__t->vec.a[__i]; })) + extern void tree_check_failed PARAMS ((const tree, enum tree_code, const char *, int, const char *)) ATTRIBUTE_NORETURN; extern void tree_class_check_failed PARAMS ((const tree, int, const char *, int, const char *)) ATTRIBUTE_NORETURN; +extern void tree_vec_elt_check_failed PARAMS ((int, int, const char *, + int, const char *)) + ATTRIBUTE_NORETURN; #else /* not ENABLE_TREE_CHECKING, or not gcc */ @@ -326,6 +344,7 @@ extern void tree_class_check_failed PARAMS ((const tree, int, #define TREE_CLASS_CHECK(t, code) (t) #define CST_OR_CONSTRUCTOR_CHECK(t) (t) #define EXPR_CHECK(t) (t) +#define TREE_VEC_ELT_CHECK(t, i) ((t)->vec.a[i]) #endif @@ -438,7 +457,7 @@ extern void tree_class_check_failed PARAMS ((const tree, int, is sufficient to check bounds at the time the reference is seated, and assume that all future uses of the reference are safe, since the address of references cannot change. (2) When a reference - supertype is seated to an subtype object. The bounds "remember" + supertype is seated to a subtype object. The bounds "remember" the true size of the complete object, so that subsequent upcasts of the address of the reference will be checked properly (is such a thing valid C++?). */ @@ -492,7 +511,7 @@ extern void tree_class_check_failed PARAMS ((const tree, int, construct the address of this field. This is used for aliasing purposes: see record_component_aliases. In CONSTRUCTOR nodes, it means object constructed must be in memory. - In LABEL_DECL nodes, it means a goto for this label has been seen + In LABEL_DECL nodes, it means a goto for this label has been seen from a place outside all binding contours that restore stack levels. In ..._TYPE nodes, it means that objects of this type must be fully addressable. This means that pieces of this @@ -667,7 +686,7 @@ extern void tree_class_check_failed PARAMS ((const tree, int, #define TREE_BOUNDED(NODE) ((NODE)->common.bounded_flag) -/* Nonzero in a IDENTIFIER_NODE if the use of the name is defined as a +/* Nonzero in an IDENTIFIER_NODE if the use of the name is defined as a deprecated feature by __attribute__((deprecated)). */ #define TREE_DEPRECATED(NODE) ((NODE)->common.deprecated_flag) @@ -699,10 +718,10 @@ extern void tree_class_check_failed PARAMS ((const tree, int, (((unsigned HOST_WIDE_INT) TREE_INT_CST_HIGH (A) \ < (unsigned HOST_WIDE_INT) TREE_INT_CST_HIGH (B)) \ || (((unsigned HOST_WIDE_INT) TREE_INT_CST_HIGH (A) \ - == (unsigned HOST_WIDE_INT) TREE_INT_CST_HIGH (B)) \ + == (unsigned HOST_WIDE_INT) TREE_INT_CST_HIGH (B)) \ && TREE_INT_CST_LOW (A) < TREE_INT_CST_LOW (B))) -struct tree_int_cst +struct tree_int_cst GTY(()) { struct tree_common common; rtx rtl; /* acts as link to register transfer language @@ -710,7 +729,7 @@ struct tree_int_cst /* A sub-struct is necessary here because the function `const_hash' wants to scan both words as a unit and taking the address of the sub-struct yields the properly inclusive bounded pointer. */ - struct { + struct tree_int_cst_lowhi { unsigned HOST_WIDE_INT low; HOST_WIDE_INT high; } int_cst; @@ -722,27 +741,26 @@ struct tree_int_cst #define TREE_CST_RTL(NODE) (CST_OR_CONSTRUCTOR_CHECK (NODE)->real_cst.rtl) -/* In a REAL_CST node. - - We can represent a real value as either a `double' or an array of - longs. */ +/* In a REAL_CST node. struct real_value is an opaque entity, with + manipulators defined in real.h. We don't want tree.h depending on + real.h and transitively on tm.h. */ +struct real_value; -#define TREE_REAL_CST(NODE) (REAL_CST_CHECK (NODE)->real_cst.real_cst) +#define TREE_REAL_CST_PTR(NODE) (REAL_CST_CHECK (NODE)->real_cst.real_cst_ptr) +#define TREE_REAL_CST(NODE) (*TREE_REAL_CST_PTR (NODE)) -#include "real.h" - -struct tree_real_cst +struct tree_real_cst GTY(()) { struct tree_common common; rtx rtl; /* acts as link to register transfer language (rtl) info */ - REAL_VALUE_TYPE real_cst; + struct real_value * real_cst_ptr; }; /* In a STRING_CST */ #define TREE_STRING_LENGTH(NODE) (STRING_CST_CHECK (NODE)->string.length) #define TREE_STRING_POINTER(NODE) (STRING_CST_CHECK (NODE)->string.pointer) -struct tree_string +struct tree_string GTY(()) { struct tree_common common; rtx rtl; /* acts as link to register transfer language (rtl) info */ @@ -754,7 +772,7 @@ struct tree_string #define TREE_REALPART(NODE) (COMPLEX_CST_CHECK (NODE)->complex.real) #define TREE_IMAGPART(NODE) (COMPLEX_CST_CHECK (NODE)->complex.imag) -struct tree_complex +struct tree_complex GTY(()) { struct tree_common common; rtx rtl; /* acts as link to register transfer language (rtl) info */ @@ -765,7 +783,7 @@ struct tree_complex /* In a VECTOR_CST node. */ #define TREE_VECTOR_CST_ELTS(NODE) (VECTOR_CST_CHECK (NODE)->vector.elements) -struct tree_vector +struct tree_vector GTY(()) { struct tree_common common; rtx rtl; @@ -780,6 +798,8 @@ struct tree_vector (IDENTIFIER_NODE_CHECK (NODE)->identifier.id.len) #define IDENTIFIER_POINTER(NODE) \ ((const char *) IDENTIFIER_NODE_CHECK (NODE)->identifier.id.str) +#define IDENTIFIER_HASH_VALUE(NODE) \ + (IDENTIFIER_NODE_CHECK (NODE)->identifier.id.hash_value) /* Translate a hash table identifier pointer to a tree_identifier pointer, and vice versa. */ @@ -788,7 +808,7 @@ struct tree_vector ((tree) ((char *) (NODE) - sizeof (struct tree_common))) #define GCC_IDENT_TO_HT_IDENT(NODE) (&((struct tree_identifier *) (NODE))->id) -struct tree_identifier +struct tree_identifier GTY(()) { struct tree_common common; struct ht_identifier id; @@ -798,7 +818,7 @@ struct tree_identifier #define TREE_PURPOSE(NODE) (TREE_LIST_CHECK (NODE)->list.purpose) #define TREE_VALUE(NODE) (TREE_LIST_CHECK (NODE)->list.value) -struct tree_list +struct tree_list GTY(()) { struct tree_common common; tree purpose; @@ -807,15 +827,16 @@ struct tree_list /* In a TREE_VEC node. */ #define TREE_VEC_LENGTH(NODE) (TREE_VEC_CHECK (NODE)->vec.length) -#define TREE_VEC_ELT(NODE,I) (TREE_VEC_CHECK (NODE)->vec.a[I]) #define TREE_VEC_END(NODE) \ ((void) TREE_VEC_CHECK (NODE), &((NODE)->vec.a[(NODE)->vec.length])) -struct tree_vec +#define TREE_VEC_ELT(NODE,I) TREE_VEC_ELT_CHECK (NODE, I) + +struct tree_vec GTY(()) { struct tree_common common; int length; - tree a[1]; + tree GTY ((length ("TREE_VEC_LENGTH ((tree)&%h)"))) a[1]; }; /* Define fields and accessors for some nodes that represent expressions. */ @@ -852,7 +873,7 @@ struct tree_vec #define LABELED_BLOCK_BODY(NODE) \ TREE_OPERAND (LABELED_BLOCK_EXPR_CHECK (NODE), 1) -/* In a EXIT_BLOCK_EXPR node. */ +/* In an EXIT_BLOCK_EXPR node. */ #define EXIT_BLOCK_LABELED_BLOCK(NODE) \ TREE_OPERAND (EXIT_BLOCK_EXPR_CHECK (NODE), 0) #define EXIT_BLOCK_RETURN(NODE) TREE_OPERAND (EXIT_BLOCK_EXPR_CHECK (NODE), 1) @@ -860,7 +881,7 @@ struct tree_vec /* In a LOOP_EXPR node. */ #define LOOP_EXPR_BODY(NODE) TREE_OPERAND (LOOP_EXPR_CHECK (NODE), 0) -/* In a EXPR_WITH_FILE_LOCATION node. */ +/* In an EXPR_WITH_FILE_LOCATION node. */ #define EXPR_WFL_EMIT_LINE_NOTE(NODE) \ (EXPR_WITH_FILE_LOCATION_CHECK (NODE)->common.public_flag) #define EXPR_WFL_NODE(NODE) \ @@ -876,11 +897,18 @@ struct tree_vec #define EXPR_WFL_SET_LINECOL(NODE, LINE, COL) \ (EXPR_WFL_LINECOL(NODE) = ((LINE) << 12) | ((COL) & 0xfff)) -struct tree_exp +/* In a TARGET_EXPR node. */ +#define TARGET_EXPR_SLOT(NODE) TREE_OPERAND (TARGET_EXPR_CHECK (NODE), 0) +#define TARGET_EXPR_INITIAL(NODE) TREE_OPERAND (TARGET_EXPR_CHECK (NODE), 1) +#define TARGET_EXPR_CLEANUP(NODE) TREE_OPERAND (TARGET_EXPR_CHECK (NODE), 2) + +struct tree_exp GTY(()) { struct tree_common common; int complexity; - tree operands[1]; + tree GTY ((special ("tree_exp"), + desc ("TREE_CODE ((tree) &%0)"))) + operands[1]; }; /* In a BLOCK node. */ @@ -922,13 +950,13 @@ struct tree_exp One of the logical block fragments is arbitrarily chosen to be the ORIGIN. The other fragments will point to the origin via BLOCK_FRAGMENT_ORIGIN; the origin itself will have this pointer - be null. The list of fragments will be chained through + be null. The list of fragments will be chained through BLOCK_FRAGMENT_CHAIN from the origin. */ #define BLOCK_FRAGMENT_ORIGIN(NODE) (BLOCK_CHECK (NODE)->block.fragment_origin) #define BLOCK_FRAGMENT_CHAIN(NODE) (BLOCK_CHECK (NODE)->block.fragment_chain) -struct tree_block +struct tree_block GTY(()) { struct tree_common common; @@ -968,6 +996,7 @@ struct tree_block #define TYPE_PRECISION(NODE) (TYPE_CHECK (NODE)->type.precision) #define TYPE_SYMTAB_ADDRESS(NODE) (TYPE_CHECK (NODE)->type.symtab.address) #define TYPE_SYMTAB_POINTER(NODE) (TYPE_CHECK (NODE)->type.symtab.pointer) +#define TYPE_SYMTAB_DIE(NODE) (TYPE_CHECK (NODE)->type.symtab.die) #define TYPE_NAME(NODE) (TYPE_CHECK (NODE)->type.name) #define TYPE_NEXT_VARIANT(NODE) (TYPE_CHECK (NODE)->type.next_variant) #define TYPE_MAIN_VARIANT(NODE) (TYPE_CHECK (NODE)->type.main_variant) @@ -1205,7 +1234,9 @@ struct tree_block #define MAX_POINTER_DEPTH 2 #define VA_LIST_POINTER_DEPTH 3 -struct tree_type +struct die_struct; + +struct tree_type GTY(()) { struct tree_common common; tree values; @@ -1237,7 +1268,12 @@ struct tree_type unsigned int align; tree pointer_to; tree reference_to; - union {int address; char *pointer; } symtab; + union tree_type_symtab { + int address; + char * GTY ((tag ("1"))) pointer; + struct die_struct * GTY ((tag ("2"), skip (""))) die; + } GTY ((desc ("debug_hooks == &sdb_debug_hooks ? 1 : debug_hooks == &dwarf2_debug_hooks ? 2 : 0"), + descbits ("2"))) symtab; tree name; tree minval; tree maxval; @@ -1273,7 +1309,7 @@ struct tree_type from the base of the complete object to the base of the part of the object that is allocated on behalf of this `type'. This is always 0 except when there is multiple inheritance. */ - + #define BINFO_OFFSET(NODE) TREE_VEC_ELT ((NODE), 1) #define TYPE_BINFO_OFFSET(NODE) BINFO_OFFSET (TYPE_BINFO (NODE)) #define BINFO_OFFSET_ZEROP(NODE) (integer_zerop (BINFO_OFFSET (NODE))) @@ -1319,7 +1355,7 @@ struct tree_type base. The actual contents are language-dependent. Under the old ABI, the C++ front-end uses a FIELD_DECL whose contents are a pointer to the virtual base; under the new ABI this field is - instead a INTEGER_CST giving an offset into the vtable where the + instead an INTEGER_CST giving an offset into the vtable where the offset to the virtual base can be found. */ #define BINFO_VPTR_FIELD(NODE) TREE_VEC_ELT (NODE, 5) @@ -1355,13 +1391,9 @@ struct tree_type /* The name of the object as the assembler will see it (but before any translations made by ASM_OUTPUT_LABELREF). Often this is the same as DECL_NAME. It is an IDENTIFIER_NODE. */ -#define DECL_ASSEMBLER_NAME(NODE) \ - ((DECL_ASSEMBLER_NAME_SET_P (NODE) \ - ? (void) 0 \ - : (*lang_set_decl_assembler_name) (NODE)), \ - DECL_CHECK (NODE)->decl.assembler_name) +#define DECL_ASSEMBLER_NAME(NODE) decl_assembler_name (NODE) -/* Returns non-zero if the DECL_ASSEMBLER_NAME for NODE has been set. If zero, +/* Returns nonzero if the DECL_ASSEMBLER_NAME for NODE has been set. If zero, the NODE might still have a DECL_ASSEMBLER_NAME -- it just hasn't been set yet. */ #define DECL_ASSEMBLER_NAME_SET_P(NODE) \ @@ -1375,15 +1407,15 @@ struct tree_type DECL_ASSEMBLER_NAME has not yet been set, using this macro will not cause the DECL_ASSEMBLER_NAME of either DECL to be set. In other words, the semantics of using this macro, are different than saying: - + SET_DECL_ASSEMBLER_NAME(DECL2, DECL_ASSEMBLER_NAME (DECL1)) which will try to set the DECL_ASSEMBLER_NAME for DECL1. */ #define COPY_DECL_ASSEMBLER_NAME(DECL1, DECL2) \ (DECL_ASSEMBLER_NAME_SET_P (DECL1) \ - ? (void) SET_DECL_ASSEMBLER_NAME (DECL2, \ - DECL_ASSEMBLER_NAME (DECL1)) \ + ? (void) SET_DECL_ASSEMBLER_NAME (DECL2, \ + DECL_ASSEMBLER_NAME (DECL1)) \ : (void) 0) /* Records the section name in a section attribute. Used to pass @@ -1439,8 +1471,9 @@ struct tree_type was. If the declaration appears in several places (as for a C function that is declared first and then defined later), this information should refer to the definition. */ -#define DECL_SOURCE_FILE(NODE) (DECL_CHECK (NODE)->decl.filename) -#define DECL_SOURCE_LINE(NODE) (DECL_CHECK (NODE)->decl.linenum) +#define DECL_SOURCE_LOCATION(NODE) (DECL_CHECK (NODE)->decl.locus) +#define DECL_SOURCE_FILE(NODE) (DECL_SOURCE_LOCATION (NODE).file) +#define DECL_SOURCE_LINE(NODE) (DECL_SOURCE_LOCATION (NODE).line) /* Holds the size of the datum, in bits, as a tree expression. Need not be constant. */ #define DECL_SIZE(NODE) (DECL_CHECK (NODE)->decl.size) @@ -1470,7 +1503,7 @@ struct tree_type PROMOTED_MODE is defined, the mode of this expression may not be same as DECL_MODE. In that case, DECL_MODE contains the mode corresponding to the variable's data type, while the mode - of DECL_RTL is the mode actually used to contain the data. + of DECL_RTL is the mode actually used to contain the data. This value can be evaluated lazily for functions, variables with static storage duration, and labels. */ @@ -1480,7 +1513,7 @@ struct tree_type : (make_decl_rtl (NODE, NULL), (NODE)->decl.rtl)) /* Set the DECL_RTL for NODE to RTL. */ #define SET_DECL_RTL(NODE, RTL) (DECL_CHECK (NODE)->decl.rtl = (RTL)) -/* Returns non-zero if the DECL_RTL for NODE has already been set. */ +/* Returns nonzero if the DECL_RTL for NODE has already been set. */ #define DECL_RTL_SET_P(NODE) (DECL_CHECK (NODE)->decl.rtl != NULL) /* Copy the RTL from NODE1 to NODE2. If the RTL was not set for NODE1, it will not be set for NODE2; this is a lazy copy. */ @@ -1578,7 +1611,7 @@ struct tree_type /* In a TYPE_DECL nonzero means the detail info about this type is not dumped into stabs. - Instead it will generate cross reference ('x') of names. + Instead it will generate cross reference ('x') of names. This uses the same flag as DECL_EXTERNAL. */ #define TYPE_DECL_SUPPRESS_DEBUG(NODE) \ (TYPE_DECL_CHECK (NODE)->decl.external_flag) @@ -1593,7 +1626,7 @@ struct tree_type /* In a FIELD_DECL, indicates this field should be bit-packed. */ #define DECL_PACKED(NODE) (FIELD_DECL_CHECK (NODE)->decl.regdecl_flag) -/* In a FUNCTION_DECL with a non-zero DECL_CONTEXT, indicates that a +/* In a FUNCTION_DECL with a nonzero DECL_CONTEXT, indicates that a static chain is not needed. */ #define DECL_NO_STATIC_CHAIN(NODE) \ (FUNCTION_DECL_CHECK (NODE)->decl.regdecl_flag) @@ -1611,9 +1644,18 @@ struct tree_type where it is called. */ #define DECL_INLINE(NODE) (FUNCTION_DECL_CHECK (NODE)->decl.inline_flag) +/* Nonzero in a FUNCTION_DECL means this function has been found inlinable + only by virtue of -finline-functions */ +#define DID_INLINE_FUNC(NODE) \ + (FUNCTION_DECL_CHECK (NODE)->decl.inlined_function_flag) + /* In a FUNCTION_DECL, nonzero if the function cannot be inlined. */ #define DECL_UNINLINABLE(NODE) (FUNCTION_DECL_CHECK (NODE)->decl.uninlinable) +/* In a VAR_DECL, nonzero if the data should be allocated from + thread-local storage. */ +#define DECL_THREAD_LOCAL(NODE) (VAR_DECL_CHECK (NODE)->decl.thread_local_flag) + /* In a FUNCTION_DECL, the saved representation of the body of the entire function. Usually a COMPOUND_STMT, but in C++ this may also be a RETURN_INIT, CTOR_INITIALIZER, or TRY_BLOCK. */ @@ -1753,11 +1795,10 @@ struct tree_type struct function; -struct tree_decl +struct tree_decl GTY(()) { struct tree_common common; - const char *filename; - int linenum; + location_t locus; unsigned int uid; tree size; ENUM_BITFIELD(machine_mode) mode : 8; @@ -1792,7 +1833,9 @@ struct tree_decl unsigned non_addressable : 1; unsigned user_align : 1; unsigned uninlinable : 1; - /* Three unused bits. */ + unsigned thread_local_flag : 1; + unsigned inlined_function_flag : 1; + /* One unused bit. */ unsigned lang_flag_0 : 1; unsigned lang_flag_1 : 1; @@ -1803,17 +1846,20 @@ struct tree_decl unsigned lang_flag_6 : 1; unsigned lang_flag_7 : 1; - union { + union tree_decl_u1 { /* In a FUNCTION_DECL for which DECL_BUILT_IN holds, this is DECL_FUNCTION_CODE. */ enum built_in_function f; - /* In a FUNCITON_DECL for which DECL_BUILT_IN does not hold, this + /* In a FUNCTION_DECL for which DECL_BUILT_IN does not hold, this is used by language-dependent code. */ HOST_WIDE_INT i; /* DECL_ALIGN and DECL_OFFSET_ALIGN. (These are not used for FUNCTION_DECLs). */ - struct {unsigned int align : 24; unsigned int off_align : 8;} a; - } u1; + struct tree_decl_u1_a { + unsigned int align : 24; + unsigned int off_align : 8; + } a; + } GTY ((skip (""))) u1; tree size_unit; tree name; @@ -1833,12 +1879,12 @@ struct tree_decl In PARM_DECL, holds an RTL for the stack slot of register where the data was actually passed. Used by Chill and Java in LABEL_DECL and by C++ and Java in VAR_DECL. */ - union { - struct function *f; - rtx r; - tree t; + union tree_decl_u2 { + struct function * GTY ((tag ("FUNCTION_DECL"))) f; + rtx GTY ((tag ("PARM_DECL"))) r; + tree GTY ((tag ("FIELD_DECL"))) t; int i; - } u2; + } GTY ((desc ("TREE_CODE((tree) &(%0))"))) u2; /* In a FUNCTION_DECL, this is DECL_SAVED_TREE. */ tree saved_tree; @@ -1853,25 +1899,43 @@ struct tree_decl struct lang_decl *lang_specific; }; +enum tree_node_structure_enum { + TS_COMMON, + TS_INT_CST, + TS_REAL_CST, + TS_VECTOR, + TS_STRING, + TS_COMPLEX, + TS_IDENTIFIER, + TS_DECL, + TS_TYPE, + TS_LIST, + TS_VEC, + TS_EXP, + TS_BLOCK, + LAST_TS_ENUM +}; + /* Define the overall contents of a tree node. It may be any of the structures declared above for various types of node. */ -union tree_node +union tree_node GTY ((ptr_alias (union lang_tree_node), + desc ("tree_node_structure (&%h)"))) { - struct tree_common common; - struct tree_int_cst int_cst; - struct tree_real_cst real_cst; - struct tree_vector vector; - struct tree_string string; - struct tree_complex complex; - struct tree_identifier identifier; - struct tree_decl decl; - struct tree_type type; - struct tree_list list; - struct tree_vec vec; - struct tree_exp exp; - struct tree_block block; + struct tree_common GTY ((tag ("TS_COMMON"))) common; + struct tree_int_cst GTY ((tag ("TS_INT_CST"))) int_cst; + struct tree_real_cst GTY ((tag ("TS_REAL_CST"))) real_cst; + struct tree_vector GTY ((tag ("TS_VECTOR"))) vector; + struct tree_string GTY ((tag ("TS_STRING"))) string; + struct tree_complex GTY ((tag ("TS_COMPLEX"))) complex; + struct tree_identifier GTY ((tag ("TS_IDENTIFIER"))) identifier; + struct tree_decl GTY ((tag ("TS_DECL"))) decl; + struct tree_type GTY ((tag ("TS_TYPE"))) type; + struct tree_list GTY ((tag ("TS_LIST"))) list; + struct tree_vec GTY ((tag ("TS_VEC"))) vec; + struct tree_exp GTY ((tag ("TS_EXP"))) exp; + struct tree_block GTY ((tag ("TS_BLOCK"))) block; }; /* Standard named or nameless data types of the C compiler. */ @@ -1890,7 +1954,7 @@ enum tree_index TI_UINTSI_TYPE, TI_UINTDI_TYPE, TI_UINTTI_TYPE, - + TI_INTEGER_ZERO, TI_INTEGER_ONE, TI_INTEGER_MINUS_ONE, @@ -1926,8 +1990,11 @@ enum tree_index TI_UV8HI_TYPE, TI_UV8QI_TYPE, TI_UV4HI_TYPE, + TI_UV2HI_TYPE, TI_UV2SI_TYPE, TI_UV2SF_TYPE, + TI_UV2DI_TYPE, + TI_UV1DI_TYPE, TI_UV16QI_TYPE, TI_V4SF_TYPE, @@ -1936,8 +2003,12 @@ enum tree_index TI_V8HI_TYPE, TI_V8QI_TYPE, TI_V4HI_TYPE, + TI_V2HI_TYPE, TI_V2SI_TYPE, TI_V2SF_TYPE, + TI_V2DF_TYPE, + TI_V2DI_TYPE, + TI_V1DI_TYPE, TI_V16QI_TYPE, TI_MAIN_IDENTIFIER, @@ -1945,10 +2016,10 @@ enum tree_index TI_MAX }; -extern tree global_trees[TI_MAX]; +extern GTY(()) tree global_trees[TI_MAX]; #define error_mark_node global_trees[TI_ERROR_MARK] - + #define intQI_type_node global_trees[TI_INTQI_TYPE] #define intHI_type_node global_trees[TI_INTHI_TYPE] #define intSI_type_node global_trees[TI_INTSI_TYPE] @@ -2006,7 +2077,10 @@ extern tree global_trees[TI_MAX]; #define unsigned_V8QI_type_node global_trees[TI_UV8QI_TYPE] #define unsigned_V8HI_type_node global_trees[TI_UV8HI_TYPE] #define unsigned_V4HI_type_node global_trees[TI_UV4HI_TYPE] +#define unsigned_V2HI_type_node global_trees[TI_UV2HI_TYPE] #define unsigned_V2SI_type_node global_trees[TI_UV2SI_TYPE] +#define unsigned_V2DI_type_node global_trees[TI_UV2DI_TYPE] +#define unsigned_V1DI_type_node global_trees[TI_UV1DI_TYPE] #define V16QI_type_node global_trees[TI_V16QI_TYPE] #define V4SF_type_node global_trees[TI_V4SF_TYPE] @@ -2014,13 +2088,19 @@ extern tree global_trees[TI_MAX]; #define V8QI_type_node global_trees[TI_V8QI_TYPE] #define V8HI_type_node global_trees[TI_V8HI_TYPE] #define V4HI_type_node global_trees[TI_V4HI_TYPE] +#define V2HI_type_node global_trees[TI_V2HI_TYPE] #define V2SI_type_node global_trees[TI_V2SI_TYPE] #define V2SF_type_node global_trees[TI_V2SF_TYPE] +#define V2DI_type_node global_trees[TI_V2DI_TYPE] +#define V2DF_type_node global_trees[TI_V2DF_TYPE] #define V16SF_type_node global_trees[TI_V16SF_TYPE] +#define V1DI_type_node global_trees[TI_V1DI_TYPE] /* An enumeration of the standard C integer types. These must be - ordered so that shorter types appear before longer ones. */ -enum integer_type_kind + ordered so that shorter types appear before longer ones, and so + that signed types appear before unsigned ones, for the correct + functioning of interpret_integer() in c-lex.c. */ +enum integer_type_kind { itk_char, itk_signed_char, @@ -2040,7 +2120,7 @@ typedef enum integer_type_kind integer_type_kind; /* The standard C integer types. Use integer_type_kind to index into this array. */ -extern tree integer_types[itk_none]; +extern GTY(()) tree integer_types[itk_none]; #define char_type_node integer_types[itk_char] #define signed_char_type_node integer_types[itk_signed_char] @@ -2053,7 +2133,27 @@ extern tree integer_types[itk_none]; #define long_unsigned_type_node integer_types[itk_unsigned_long] #define long_long_integer_type_node integer_types[itk_long_long] #define long_long_unsigned_type_node integer_types[itk_unsigned_long_long] + +/* Set to the default thread-local storage (tls) model to use. */ + +enum tls_model { + TLS_MODEL_GLOBAL_DYNAMIC = 1, + TLS_MODEL_LOCAL_DYNAMIC, + TLS_MODEL_INITIAL_EXEC, + TLS_MODEL_LOCAL_EXEC +}; + +extern enum tls_model flag_tls_default; +/* Enumerate visibility settings. */ + +enum symbol_visibility +{ + VISIBILITY_DEFAULT, + VISIBILITY_INTERNAL, + VISIBILITY_HIDDEN, + VISIBILITY_PROTECTED +}; /* A pointer-to-function member type looks like: @@ -2088,8 +2188,7 @@ enum ptrmemfunc_vbit_where_t statistical reports, not code generation. */ extern double approx_sqrt PARAMS ((double)); -extern char *permalloc PARAMS ((int)); -extern char *expralloc PARAMS ((int)); +extern tree decl_assembler_name PARAMS ((tree)); /* Compute the number of bytes occupied by 'node'. This routine only looks at TREE_CODE and, if the code is TREE_VEC, TREE_VEC_LENGTH. */ @@ -2101,12 +2200,8 @@ extern size_t tree_size PARAMS ((tree)); to zero except for a few of the common fields. */ extern tree make_node PARAMS ((enum tree_code)); -extern tree make_lang_type PARAMS ((enum tree_code)); -extern tree (*make_lang_type_fn) PARAMS ((enum tree_code)); -/* Make a copy of a node, with all the same contents except - for TREE_PERMANENT. (The copy is permanent - iff nodes being made now are permanent.) */ +/* Make a copy of a node, with all the same contents. */ extern tree copy_node PARAMS ((tree)); @@ -2144,7 +2239,6 @@ extern tree build_nt PARAMS ((enum tree_code, ...)); extern tree build_int_2_wide PARAMS ((unsigned HOST_WIDE_INT, HOST_WIDE_INT)); extern tree build_vector PARAMS ((tree, tree)); -extern tree build_real PARAMS ((tree, REAL_VALUE_TYPE)); extern tree build_real_from_int_cst PARAMS ((tree, tree)); extern tree build_complex PARAMS ((tree, tree, tree)); extern tree build_string PARAMS ((int, const char *)); @@ -2160,7 +2254,6 @@ extern tree make_signed_type PARAMS ((int)); extern tree make_unsigned_type PARAMS ((int)); extern void initialize_sizetypes PARAMS ((void)); extern void set_sizetype PARAMS ((tree)); -extern tree signed_or_unsigned_type PARAMS ((int, tree)); extern void fixup_unsigned_type PARAMS ((tree)); extern tree build_pointer_type PARAMS ((tree)); extern tree build_reference_type PARAMS ((tree)); @@ -2169,6 +2262,7 @@ extern tree build_index_type PARAMS ((tree)); extern tree build_index_2_type PARAMS ((tree, tree)); extern tree build_array_type PARAMS ((tree, tree)); extern tree build_function_type PARAMS ((tree, tree)); +extern tree build_function_type_list PARAMS ((tree, ...)); extern tree build_method_type PARAMS ((tree, tree)); extern tree build_offset_type PARAMS ((tree, tree)); extern tree build_complex_type PARAMS ((tree)); @@ -2252,8 +2346,6 @@ struct attribute_spec int flags, bool *no_add_attrs)); }; -extern const struct attribute_spec default_target_attribute_table[]; - /* Flags that may be passed in the third argument of decl_attributes, and to handler functions for attributes. */ enum attribute_flags @@ -2283,11 +2375,8 @@ enum attribute_flags extern tree merge_decl_attributes PARAMS ((tree, tree)); extern tree merge_type_attributes PARAMS ((tree, tree)); -extern int default_comp_type_attributes PARAMS ((tree, tree)); -extern void default_set_default_type_attributes PARAMS ((tree)); -extern void default_insert_attributes PARAMS ((tree, tree *)); -extern bool default_function_attribute_inlinable_p PARAMS ((tree)); -extern bool default_ms_bitfield_layout_p PARAMS ((tree)); +struct cpp_reader; +extern void default_register_cpp_builtins PARAMS ((struct cpp_reader *)); /* Split a list of declspecs and attributes into two. */ @@ -2301,7 +2390,7 @@ extern tree strip_attrs PARAMS ((tree)); extern int valid_machine_attribute PARAMS ((tree, tree, tree, tree)); -/* Given a tree node and a string, return non-zero if the tree node is +/* Given a tree node and a string, return nonzero if the tree node is a valid attribute name for the string. */ extern int is_attribute_p PARAMS ((const char *, tree)); @@ -2382,6 +2471,8 @@ typedef struct record_layout_info_s /* The static variables (i.e., class variables, as opposed to instance variables) encountered in T. */ tree pending_statics; + /* Bits remaining in the current alignment group */ + int remaining_in_alignment; int packed_maybe_necessary; } *record_layout_info; @@ -2401,7 +2492,7 @@ extern tree rli_size_so_far PARAMS ((record_layout_info)); extern void normalize_rli PARAMS ((record_layout_info)); extern void place_field PARAMS ((record_layout_info, tree)); extern void compute_record_mode PARAMS ((tree)); -extern void finish_record_layout PARAMS ((record_layout_info)); +extern void finish_record_layout PARAMS ((record_layout_info, int)); /* Given a hashcode and a ..._TYPE node (for which the hashcode was made), return a canonicalized ..._TYPE node, so that duplicates are not made. @@ -2455,7 +2546,7 @@ enum size_type_kind UBITSIZETYPE, /* Unsifgned representation of sizes in bits. */ TYPE_KIND_LAST}; -extern tree sizetype_tab[(int) TYPE_KIND_LAST]; +extern GTY(()) tree sizetype_tab[(int) TYPE_KIND_LAST]; #define sizetype sizetype_tab[(int) SIZETYPE] #define bitsizetype sizetype_tab[(int) BITSIZETYPE] @@ -2493,7 +2584,7 @@ extern void put_pending_sizes PARAMS ((tree)); /* If nonzero, an upper limit on alignment of structure fields, in bits. */ extern unsigned int maximum_field_alignment; -/* If non-zero, the alignment of a bitstring or (power-)set value, in bits. */ +/* If nonzero, the alignment of a bitstring or (power-)set value, in bits. */ extern unsigned int set_alignment; /* Concatenate two lists (chains of TREE_LIST nodes) X and Y @@ -2523,6 +2614,11 @@ extern int list_length PARAMS ((tree)); extern int fields_length PARAMS ((tree)); +/* Given an initializer INIT, return TRUE if INIT is zero or some + aggregate of zeros. Otherwise return FALSE. */ + +extern bool initializer_zerop PARAMS ((tree)); + /* integer_zerop (tree x) is nonzero if X is an integer constant of value 0 */ extern int integer_zerop PARAMS ((tree)); @@ -2562,6 +2658,10 @@ extern tree save_expr PARAMS ((tree)); extern int first_rtl_op PARAMS ((enum tree_code)); +/* Return which tree structure is used by T. */ + +enum tree_node_structure_enum tree_node_structure PARAMS ((tree)); + /* unsave_expr (EXP) returns an expression equivalent to EXP but it can be used multiple times and will evaluate EXP in its entirety each time. */ @@ -2573,27 +2673,11 @@ extern tree unsave_expr PARAMS ((tree)); extern void unsave_expr_1 PARAMS ((tree)); -/* Like unsave_expr_1, but recurses into all subtrees. */ - -extern tree unsave_expr_now PARAMS ((tree)); - -/* If non-null, these are language-specific helper functions for - unsave_expr_now. If present, LANG_UNSAVE is called before its - argument (an UNSAVE_EXPR) is to be unsaved, and all other - processing in unsave_expr_now is aborted. LANG_UNSAVE_EXPR_NOW is - called from unsave_expr_1 for language-specific tree codes. */ -extern void (*lang_unsave) PARAMS ((tree *)); -extern void (*lang_unsave_expr_now) PARAMS ((tree)); - /* Return 0 if it is safe to evaluate EXPR multiple times, return 1 if it is safe if EXPR is unsaved afterward, or return 2 if it is completely unsafe. */ extern int unsafe_for_reeval PARAMS ((tree)); -/* If non-null, these are language-specific helper functions for - unsafe_for_reeval. Return negative to not handle some tree. */ -extern int (*lang_unsafe_for_reeval) PARAMS ((tree)); - /* Return 1 if EXP contains a PLACEHOLDER_EXPR; i.e., if it represents a size or offset that depends on a field within a record. @@ -2648,40 +2732,6 @@ extern tree get_unwidened PARAMS ((tree, tree)); extern tree get_narrower PARAMS ((tree, int *)); -/* Given MODE and UNSIGNEDP, return a suitable type-tree - with that mode. - The definition of this resides in language-specific code - as the repertoire of available types may vary. */ - -extern tree type_for_mode PARAMS ((enum machine_mode, int)); - -/* Given PRECISION and UNSIGNEDP, return a suitable type-tree - for an integer type with at least that precision. - The definition of this resides in language-specific code - as the repertoire of available types may vary. */ - -extern tree type_for_size PARAMS ((unsigned, int)); - -/* Given an integer type T, return a type like T but unsigned. - If T is unsigned, the value is T. - The definition of this resides in language-specific code - as the repertoire of available types may vary. */ - -extern tree unsigned_type PARAMS ((tree)); - -/* Given an integer type T, return a type like T but signed. - If T is signed, the value is T. - The definition of this resides in language-specific code - as the repertoire of available types may vary. */ - -extern tree signed_type PARAMS ((tree)); - -/* This function must be defined in the language-specific files. - expand_expr calls it to build the cleanup-expression for a TARGET_EXPR. - This is defined in a language-specific file. */ - -extern tree maybe_build_cleanup PARAMS ((tree)); - /* Given an expression EXP that may be a COMPONENT_REF or an ARRAY_REF, look for nested component-refs or array-refs at constant positions and find the ultimate containing object, which is returned. */ @@ -2739,38 +2789,22 @@ extern int immediate_size_expand; /* Points to the FUNCTION_DECL of the function whose body we are reading. */ -extern tree current_function_decl; +extern GTY(()) tree current_function_decl; /* Nonzero means a FUNC_BEGIN label was emitted. */ -extern tree current_function_func_begin_label; +extern GTY(()) tree current_function_func_begin_label; /* Nonzero means all ..._TYPE nodes should be allocated permanently. */ extern int all_types_permanent; -/* Pointer to function to compute the name to use to print a declaration. - DECL is the declaration in question. - VERBOSITY determines what information will be printed: - 0: DECL_NAME, demangled as necessary. - 1: and scope information. - 2: and any other information that might be interesting, such as function - parameter types in C++. */ - -extern const char *(*decl_printable_name) PARAMS ((tree, int)); - -/* Pointer to function to finish handling an incomplete decl at the - end of compilation. */ - -extern void (*incomplete_decl_finalize_hook) PARAMS ((tree)); - /* Declare a predefined function. Return the declaration. This function is provided by each language frontend. */ -extern tree builtin_function PARAMS ((const char *, tree, int, - enum built_in_class, - const char *)); +extern tree builtin_function PARAMS ((const char *, tree, int, + enum built_in_class, + const char *, tree)); /* In tree.c */ -extern char *perm_calloc PARAMS ((int, long)); extern void clean_symbol_name PARAMS ((char *)); extern tree get_file_function_name_long PARAMS ((const char *)); extern tree get_set_constructor_bits PARAMS ((tree, char *, int)); @@ -2779,6 +2813,8 @@ extern tree get_set_constructor_bytes PARAMS ((tree, extern tree get_callee_fndecl PARAMS ((tree)); extern void set_decl_assembler_name PARAMS ((tree)); extern int type_num_arguments PARAMS ((tree)); +extern tree lhd_unsave_expr_now PARAMS ((tree)); + /* In stmt.c */ @@ -2883,42 +2919,8 @@ extern void rrotate_double PARAMS ((unsigned HOST_WIDE_INT, HOST_WIDE_INT, extern int operand_equal_p PARAMS ((tree, tree, int)); extern tree invert_truthvalue PARAMS ((tree)); -/* In builtins.c. Given a type, apply default promotions wrt unnamed - function arguments and return the new type. Return NULL_TREE if no - change. Required by any language that supports variadic arguments. */ - -extern tree (*lang_type_promotes_to) PARAMS ((tree)); extern tree fold_builtin PARAMS ((tree)); -/* The language front-end must define these functions. */ - -/* Function to replace the DECL_LANG_SPECIFIC field of a DECL with a copy. */ -extern void copy_lang_decl PARAMS ((tree)); - -/* Function called with no arguments to parse and compile the input. */ -extern int yyparse PARAMS ((void)); -/* Functions for processing symbol declarations. */ -/* Function to enter a new lexical scope. - Takes one argument: always zero when called from outside the front end. */ -extern void pushlevel PARAMS ((int)); -/* Function to exit a lexical scope. It returns a BINDING for that scope. - Takes three arguments: - KEEP -- nonzero if there were declarations in this scope. - REVERSE -- reverse the order of decls before returning them. - FUNCTIONBODY -- nonzero if this level is the body of a function. */ -extern tree poplevel PARAMS ((int, int, int)); -/* Set the BLOCK node for the current scope level. */ -extern void set_block PARAMS ((tree)); -/* Function to add a decl to the current scope level. - Takes one argument, a decl to add. - Returns that decl, or, if the same symbol is already declared, may - return a different decl for that name. */ -extern tree pushdecl PARAMS ((tree)); -/* Function to return the chain of decls so far in the current scope level. */ -extern tree getdecls PARAMS ((void)); -/* Function to return the chain of structure tags in the current scope level. */ -extern tree gettags PARAMS ((void)); - extern tree build_range_type PARAMS ((tree, tree, tree)); /* In alias.c */ @@ -2929,13 +2931,6 @@ extern int alias_sets_conflict_p PARAMS ((HOST_WIDE_INT, extern int readonly_fields_p PARAMS ((tree)); extern int objects_must_conflict_p PARAMS ((tree, tree)); -/* Set the DECL_ASSEMBLER_NAME for a node. If it is the sort of thing - that the assembler should talk about, set DECL_ASSEMBLER_NAME to an - appropriate IDENTIFIER_NODE. Otherwise, set it to the - ERROR_MARK_NODE to ensure that the assembler does not talk about - it. */ -extern void (*lang_set_decl_assembler_name) PARAMS ((tree)); - struct obstack; /* In tree.c */ @@ -2944,9 +2939,6 @@ extern int int_fits_type_p PARAMS ((tree, tree)); extern bool variably_modified_type_p PARAMS ((tree)); extern int tree_log2 PARAMS ((tree)); extern int tree_floor_log2 PARAMS ((tree)); -extern void preserve_data PARAMS ((void)); -extern int object_permanent_p PARAMS ((tree)); -extern int type_precision PARAMS ((tree)); extern int simple_cst_equal PARAMS ((tree, tree)); extern int compare_tree_int PARAMS ((tree, unsigned HOST_WIDE_INT)); @@ -2972,23 +2964,22 @@ extern void expand_pending_sizes PARAMS ((tree)); extern int real_onep PARAMS ((tree)); extern int real_twop PARAMS ((tree)); +extern int real_minus_onep PARAMS ((tree)); extern void gcc_obstack_init PARAMS ((struct obstack *)); -extern void init_obstacks PARAMS ((void)); +extern void init_ttree PARAMS ((void)); extern void build_common_tree_nodes PARAMS ((int)); extern void build_common_tree_nodes_2 PARAMS ((int)); -extern void mark_tree_hashtable PARAMS ((void *)); /* In function.c */ extern void setjmp_protect_args PARAMS ((void)); extern void setjmp_protect PARAMS ((tree)); extern void expand_main_function PARAMS ((void)); -extern void mark_varargs PARAMS ((void)); extern void init_dummy_function_start PARAMS ((void)); extern void expand_dummy_function_end PARAMS ((void)); extern void init_function_for_compilation PARAMS ((void)); extern void init_function_start PARAMS ((tree, const char *, int)); extern void assign_parms PARAMS ((tree)); -extern void put_var_into_stack PARAMS ((tree)); +extern void put_var_into_stack PARAMS ((tree, int)); extern void flush_addressof PARAMS ((tree)); extern void uninitialized_vars_warning PARAMS ((tree)); extern void setjmp_args_warning PARAMS ((void)); @@ -3009,7 +3000,6 @@ extern void push_function_context PARAMS ((void)); extern void pop_function_context PARAMS ((void)); extern void push_function_context_to PARAMS ((tree)); extern void pop_function_context_from PARAMS ((tree)); -extern void ggc_mark_struct_function PARAMS ((struct function *)); /* In print-rtl.c */ #ifdef BUFSIZ @@ -3039,6 +3029,7 @@ extern rtx emit_line_note PARAMS ((const char *, int)); /* In calls.c */ extern int setjmp_call_p PARAMS ((tree)); +extern bool alloca_call_p PARAMS ((tree)); /* In attribs.c. */ @@ -3052,30 +3043,6 @@ extern int setjmp_call_p PARAMS ((tree)); a decl attribute to the declaration rather than to its type). */ extern tree decl_attributes PARAMS ((tree *, tree, int)); -/* The following function must be provided by front ends - using attribs.c. */ - -/* Possibly apply default attributes to a function (represented by - a FUNCTION_DECL). */ -extern void insert_default_attributes PARAMS ((tree)); - -/* Table of machine-independent attributes for checking formats, if used. */ -extern const struct attribute_spec *format_attribute_table; - -/* Table of machine-independent attributes for a particular language. */ -extern const struct attribute_spec *lang_attribute_table; - -/* Flag saying whether common language attributes are to be supported. */ -extern int lang_attribute_common; - -/* In front end. */ - -extern int mark_addressable PARAMS ((tree)); -extern void incomplete_type_error PARAMS ((tree, tree)); -extern tree truthvalue_conversion PARAMS ((tree)); -extern int global_bindings_p PARAMS ((void)); -extern void insert_block PARAMS ((tree)); - /* In integrate.c */ extern void save_for_inline PARAMS ((tree)); extern void set_decl_abstract_flags PARAMS ((tree, int)); @@ -3091,6 +3058,8 @@ extern void make_decl_rtl PARAMS ((tree, const char *)); extern void make_decl_one_only PARAMS ((tree)); extern int supports_one_only PARAMS ((void)); extern void variable_section PARAMS ((tree, int)); +enum tls_model decl_tls_model PARAMS ((tree)); +enum symbol_visibility decl_visibility PARAMS ((tree)); /* In fold-const.c */ extern int div_and_round_double PARAMS ((enum tree_code, int, @@ -3112,7 +3081,6 @@ extern bool parse_output_constraint PARAMS ((const char **, extern void expand_asm_operands PARAMS ((tree, tree, tree, tree, int, const char *, int)); extern int any_pending_cleanups PARAMS ((int)); -extern void init_stmt PARAMS ((void)); extern void init_stmt_for_function PARAMS ((void)); extern int drop_through_at_end_p PARAMS ((void)); extern void expand_start_target_temps PARAMS ((void)); @@ -3130,6 +3098,7 @@ extern tree case_index_expr_type PARAMS ((void)); extern HOST_WIDE_INT all_cases_count PARAMS ((tree, int *)); extern void check_for_full_enumeration_handling PARAMS ((tree)); extern void declare_nonlocal_label PARAMS ((tree)); +extern void default_flag_random_seed PARAMS ((void)); /* If KIND=='I', return a suitable global initializer (constructor) name. If KIND=='D', return a suitable global clean-up (destructor) name. */ @@ -3211,3 +3180,5 @@ extern const char *dump_flag_name PARAMS ((enum tree_dump_index)); extern void fancy_abort PARAMS ((const char *, int, const char *)) ATTRIBUTE_NORETURN; #define abort() fancy_abort (__FILE__, __LINE__, __FUNCTION__) + +#endif /* GCC_TREE_H */ |
