2c2
< Copyright (C) 1989, 93, 94, 95, 96, 97, 1998 Free Software Foundation, Inc.
---
> Copyright (C) 1989, 93-98, 1999 Free Software Foundation, Inc.
104d103
< BUILT_IN_CALLER_RETURN_ADDRESS,
113d111
< BUILT_IN_FP, BUILT_IN_SP,
114a113
> BUILT_IN_DWARF_CFA,
119,122c118
< BUILT_IN_SET_RETURN_ADDR_REG,
< BUILT_IN_EH_STUB_OLD,
< BUILT_IN_EH_STUB,
< BUILT_IN_SET_EH_REGS,
---
> BUILT_IN_EH_RETURN,
229a226,227
> EXPR_WFL_EMIT_LINE_NOTE in
> EXPR_WITH_FILE_LOCATION
332,333c330,331
< #define TYPE_CHECK(t) DO_CHECK (tree_class_check, t, 't')
< #define TYPE_CHECK1(t) DO_CHECK1 (tree_class_check, t, 't')
---
> #define TYPE_CHECK(tree) DO_CHECK (tree_class_check, tree, 't')
> #define TYPE_CHECK1(tree) DO_CHECK1 (tree_class_check, tree, 't')
689c687,698
< /* In expression with file location information. */
---
> /* In a LABELED_BLOCK_EXPR node. */
> #define LABELED_BLOCK_LABEL(NODE) TREE_OPERAND (NODE, 0)
> #define LABELED_BLOCK_BODY(NODE) TREE_OPERAND (NODE, 1)
>
> /* In a EXIT_BLOCK_EXPR node. */
> #define EXIT_BLOCK_LABELED_BLOCK(NODE) TREE_OPERAND (NODE, 0)
> #define EXIT_BLOCK_RETURN(NODE) TREE_OPERAND (NODE, 1)
>
> /* In a LOOP_EXPR node. */
> #define LOOP_EXPR_BODY(NODE) TREE_OPERAND (NODE, 0)
>
> /* In a EXPR_WITH_FILE_LOCATION node. */
698c707
< #define EXPR_WFL_EMIT_LINE_NOTE(NODE) ((NODE)->common.lang_flag_0)
---
> #define EXPR_WFL_EMIT_LINE_NOTE(NODE) ((NODE)->common.public_flag)
781d789
< #define TYPE_BINFO(NODE) (TYPE_CHECK (NODE)->type.binfo)
786a795,799
> /* For aggregate types, information about this type, as a base type
> for itself. Used in a language-dependent way for types that are
> neither a RECORD_TYPE, QUAL_UNION_TYPE, nor a UNION_TYPE. */
> #define TYPE_BINFO(NODE) (TYPE_CHECK (NODE)->type.binfo)
>
819a833,851
> /* If nonzero, this type is `restrict'-qualified, in the C sense of
> the term. */
> #define TYPE_RESTRICT(NODE) (TYPE_CHECK (NODE)->type.restrict_flag)
>
> /* There is a TYPE_QUAL value for each type qualifier. They can be
> combined by bitwise-or to form the complete set of qualifiers for a
> type. */
>
> #define TYPE_UNQUALIFIED 0x0
> #define TYPE_QUAL_CONST 0x1
> #define TYPE_QUAL_VOLATILE 0x2
> #define TYPE_QUAL_RESTRICT 0x4
>
> /* The set of type qualifiers for this type. */
> #define TYPE_QUALS(NODE) \
> ((TYPE_READONLY(NODE) * TYPE_QUAL_CONST) | \
> (TYPE_VOLATILE(NODE) * TYPE_QUAL_VOLATILE) | \
> (TYPE_RESTRICT(NODE) * TYPE_QUAL_RESTRICT))
>
870a903,904
> unsigned restrict_flag : 1;
>
878c912
< /* room for 4 more bits */
---
> /* room for 3 more bits */
980a1015,1016
> /* Nonzero if DECL represents a decl. */
> #define DECL_P(DECL) (TREE_CODE_CLASS (TREE_CODE (DECL)) == 'd')
1090a1127,1131
> /* Like DECL_ABSTRACT_ORIGIN, but returns NODE if there's no abstract
> origin. This is useful when setting the DECL_ABSTRACT_ORIGIN. */
> #define DECL_ORIGIN(NODE) \
> (DECL_ABSTRACT_ORIGIN (NODE) ? DECL_ABSTRACT_ORIGIN (NODE) : NODE)
>
1124a1166,1171
> /* In a VAR_DECL for a RECORD_TYPE, sets number for non-init_priority
> initializatons. */
> #define DEFAULT_INIT_PRIORITY 65535
> #define MAX_INIT_PRIORITY 65535
> #define MAX_RESERVED_INIT_PRIORITY 100
>
1201a1249,1267
> /* Used in a DECL to indicate that, even if it TREE_PUBLIC, it need
> not be put out unless it is needed in this translation unit.
> Entities like this are shared across translation units (like weak
> entities), but are guaranteed to be generated by any translation
> unit that needs them, and therefore need not be put out anywhere
> where they are not needed. DECL_COMDAT is just a hint to the
> back-end; it is up to front-ends which set this flag to ensure
> that there will never be any harm, other than bloat, in putting out
> something which is DECL_COMDAT. */
> #define DECL_COMDAT(NODE) (DECL_CHECK (NODE)->decl.comdat_flag)
>
> /* Used in FUNCTION_DECLs to indicate that function entry and exit should
> be instrumented with calls to support routines. */
> #define DECL_NO_INSTRUMENT_FUNCTION_ENTRY_EXIT(NODE) ((NODE)->decl.no_instrument_function_entry_exit)
>
> /* Used in FUNCTION_DECLs to indicate that in this function,
> check-memory-usage should be disabled. */
> #define DECL_NO_CHECK_MEMORY_USAGE(NODE) ((NODE)->decl.no_check_memory_usage)
>
1215a1282,1291
> /* Used to indicate an alias set for the memory pointed to by this
> particular FIELD_DECL, PARM_DECL, or VAR_DECL, which must have
> pointer (or reference) type. */
> #define DECL_POINTER_ALIAS_SET(NODE) \
> (DECL_CHECK (NODE)->decl.pointer_alias_set)
>
> /* Nonzero if an alias set has been assigned to this declaration. */
> #define DECL_POINTER_ALIAS_SET_KNOWN_P(NODE) \
> (DECL_POINTER_ALIAS_SET (NODE) != - 1)
>
1246d1321
< /* room for no more */
1257a1333,1335
> unsigned no_instrument_function_entry_exit : 1;
> unsigned no_check_memory_usage : 1;
> unsigned comdat_flag : 1;
1286a1365
> int pointer_alias_set;
1311,1312d1389
< #include "gansidecl.h"
<
1326,1340d1402
< #if 0
< /* At present, don't prototype xrealloc, since all of the callers don't
< cast their pointers to char *, and all of the xrealloc's don't use
< void * yet. */
< extern char *xmalloc PROTO((size_t));
< extern char *xcalloc PROTO((size_t, size_t));
< extern char *xrealloc PROTO((void *, size_t));
< #else
< extern char *xmalloc ();
< extern char *xcalloc ();
< extern char *xrealloc ();
< #endif
<
< extern char *xstrdup PROTO((char *));
<
1369c1431
< extern tree get_identifier PROTO((char *));
---
> extern tree get_identifier PROTO((const char *));
1375c1437
< extern tree maybe_get_identifier PROTO((char *));
---
> extern tree maybe_get_identifier PROTO((const char *));
1390c1452
< extern tree build_string PROTO((int, char *));
---
> extern tree build_string PROTO((int, const char *));
1397c1459
< extern tree build_expr_wfl PROTO((tree, char *, int, int));
---
> extern tree build_expr_wfl PROTO((tree, const char *, int, int));
1462c1524
< extern int is_attribute_p PROTO((char *, tree));
---
> extern int is_attribute_p PROTO((const char *, tree));
1467c1529
< extern tree lookup_attribute PROTO((char *, tree));
---
> extern tree lookup_attribute PROTO((const char *, tree));
1473,1478c1535,1540
< /* Given a type node TYPE, and CONSTP and VOLATILEP, return a type
< for the same kind of data as TYPE describes.
< Variants point to the "main variant" (which has neither CONST nor VOLATILE)
< via TYPE_MAIN_VARIANT, and it points to a chain of other variants
< so that duplicate variants are never made.
< Only main variants should ever appear as types of expressions. */
---
> /* Given a type node TYPE and a TYPE_QUALIFIER_SET, return a type for
> the same kind of data as TYPE describes. Variants point to the
> "main variant" (which has no qualifiers set) via TYPE_MAIN_VARIANT,
> and it points to a chain of other variants so that duplicate
> variants are never made. Only main variants should ever appear as
> types of expressions. */
1480c1542
< extern tree build_type_variant PROTO((tree, int, int));
---
> extern tree build_qualified_type PROTO((tree, int));
1481a1544,1553
> /* Like build_qualified_type, but only deals with the `const' and
> `volatile' qualifiers. This interface is retained for backwards
> compatiblity with the various front-ends; new code should use
> build_qualified_type instead. */
>
> #define build_type_variant(TYPE, CONST_P, VOLATILE_P) \
> build_qualified_type (TYPE, \
> ((CONST_P) ? TYPE_QUAL_CONST : 0) \
> | ((VOLATILE_P) ? TYPE_QUAL_VOLATILE : 0))
>
1615c1687
< extern int lvalue_or_else PROTO((tree, char *));
---
> extern int lvalue_or_else PROTO((tree, const char *));
1748c1820
< extern char *function_cannot_inline_p PROTO((tree));
---
> extern const char *function_cannot_inline_p PROTO((tree));
1839a1912
> extern tree get_file_function_name_long PROTO((const char *));
1843a1917
> extern int new_alias_set PROTO((void));
1873a1948
> extern int optimize_tail_recursion PROTO((tree, struct rtx_def *));
1886c1961
< char *));
---
> const char *));
1894a1970
> extern int stmt_loop_nest_empty PROTO((void));
2092c2168,2169
< extern void print_obstack_statistics PROTO ((char *, struct obstack *));
---
> extern void print_obstack_statistics PROTO ((const char *,
> struct obstack *));
2094c2171
< extern void print_obstack_name PROTO ((char *, FILE *, char *));
---
> extern void print_obstack_name PROTO ((char *, FILE *, const char *));
2104,2106c2181,2186
< extern tree tree_check PROTO ((tree, enum tree_code, char*, int, int));
< extern tree tree_class_check PROTO ((tree, char, char*, int, int));
< extern tree expr_check PROTO ((tree, int, char*, int, int));
---
> extern tree tree_check PROTO ((tree, enum tree_code,
> const char *, int, int));
> extern tree tree_class_check PROTO ((tree, char, const char *,
> int, int));
> extern tree expr_check PROTO ((tree, int, const char *,
> int, int));
2144,2145c2224,2225
< extern void print_node PROTO ((FILE *, char *, tree, int));
< extern void print_node_brief PROTO ((FILE *, char *, tree, int));
---
> extern void print_node PROTO ((FILE *, const char *, tree, int));
> extern void print_node_brief PROTO ((FILE *, const char *, tree, int));
2201c2281
< extern void make_decl_rtl PROTO ((tree, char *, int));
---
> extern void make_decl_rtl PROTO ((tree, const char *, int));
< Copyright (C) 1989, 93, 94, 95, 96, 97, 1998 Free Software Foundation, Inc.
---
> Copyright (C) 1989, 93-98, 1999 Free Software Foundation, Inc.
104d103
< BUILT_IN_CALLER_RETURN_ADDRESS,
113d111
< BUILT_IN_FP, BUILT_IN_SP,
114a113
> BUILT_IN_DWARF_CFA,
119,122c118
< BUILT_IN_SET_RETURN_ADDR_REG,
< BUILT_IN_EH_STUB_OLD,
< BUILT_IN_EH_STUB,
< BUILT_IN_SET_EH_REGS,
---
> BUILT_IN_EH_RETURN,
229a226,227
> EXPR_WFL_EMIT_LINE_NOTE in
> EXPR_WITH_FILE_LOCATION
332,333c330,331
< #define TYPE_CHECK(t) DO_CHECK (tree_class_check, t, 't')
< #define TYPE_CHECK1(t) DO_CHECK1 (tree_class_check, t, 't')
---
> #define TYPE_CHECK(tree) DO_CHECK (tree_class_check, tree, 't')
> #define TYPE_CHECK1(tree) DO_CHECK1 (tree_class_check, tree, 't')
689c687,698
< /* In expression with file location information. */
---
> /* In a LABELED_BLOCK_EXPR node. */
> #define LABELED_BLOCK_LABEL(NODE) TREE_OPERAND (NODE, 0)
> #define LABELED_BLOCK_BODY(NODE) TREE_OPERAND (NODE, 1)
>
> /* In a EXIT_BLOCK_EXPR node. */
> #define EXIT_BLOCK_LABELED_BLOCK(NODE) TREE_OPERAND (NODE, 0)
> #define EXIT_BLOCK_RETURN(NODE) TREE_OPERAND (NODE, 1)
>
> /* In a LOOP_EXPR node. */
> #define LOOP_EXPR_BODY(NODE) TREE_OPERAND (NODE, 0)
>
> /* In a EXPR_WITH_FILE_LOCATION node. */
698c707
< #define EXPR_WFL_EMIT_LINE_NOTE(NODE) ((NODE)->common.lang_flag_0)
---
> #define EXPR_WFL_EMIT_LINE_NOTE(NODE) ((NODE)->common.public_flag)
781d789
< #define TYPE_BINFO(NODE) (TYPE_CHECK (NODE)->type.binfo)
786a795,799
> /* For aggregate types, information about this type, as a base type
> for itself. Used in a language-dependent way for types that are
> neither a RECORD_TYPE, QUAL_UNION_TYPE, nor a UNION_TYPE. */
> #define TYPE_BINFO(NODE) (TYPE_CHECK (NODE)->type.binfo)
>
819a833,851
> /* If nonzero, this type is `restrict'-qualified, in the C sense of
> the term. */
> #define TYPE_RESTRICT(NODE) (TYPE_CHECK (NODE)->type.restrict_flag)
>
> /* There is a TYPE_QUAL value for each type qualifier. They can be
> combined by bitwise-or to form the complete set of qualifiers for a
> type. */
>
> #define TYPE_UNQUALIFIED 0x0
> #define TYPE_QUAL_CONST 0x1
> #define TYPE_QUAL_VOLATILE 0x2
> #define TYPE_QUAL_RESTRICT 0x4
>
> /* The set of type qualifiers for this type. */
> #define TYPE_QUALS(NODE) \
> ((TYPE_READONLY(NODE) * TYPE_QUAL_CONST) | \
> (TYPE_VOLATILE(NODE) * TYPE_QUAL_VOLATILE) | \
> (TYPE_RESTRICT(NODE) * TYPE_QUAL_RESTRICT))
>
870a903,904
> unsigned restrict_flag : 1;
>
878c912
< /* room for 4 more bits */
---
> /* room for 3 more bits */
980a1015,1016
> /* Nonzero if DECL represents a decl. */
> #define DECL_P(DECL) (TREE_CODE_CLASS (TREE_CODE (DECL)) == 'd')
1090a1127,1131
> /* Like DECL_ABSTRACT_ORIGIN, but returns NODE if there's no abstract
> origin. This is useful when setting the DECL_ABSTRACT_ORIGIN. */
> #define DECL_ORIGIN(NODE) \
> (DECL_ABSTRACT_ORIGIN (NODE) ? DECL_ABSTRACT_ORIGIN (NODE) : NODE)
>
1124a1166,1171
> /* In a VAR_DECL for a RECORD_TYPE, sets number for non-init_priority
> initializatons. */
> #define DEFAULT_INIT_PRIORITY 65535
> #define MAX_INIT_PRIORITY 65535
> #define MAX_RESERVED_INIT_PRIORITY 100
>
1201a1249,1267
> /* Used in a DECL to indicate that, even if it TREE_PUBLIC, it need
> not be put out unless it is needed in this translation unit.
> Entities like this are shared across translation units (like weak
> entities), but are guaranteed to be generated by any translation
> unit that needs them, and therefore need not be put out anywhere
> where they are not needed. DECL_COMDAT is just a hint to the
> back-end; it is up to front-ends which set this flag to ensure
> that there will never be any harm, other than bloat, in putting out
> something which is DECL_COMDAT. */
> #define DECL_COMDAT(NODE) (DECL_CHECK (NODE)->decl.comdat_flag)
>
> /* Used in FUNCTION_DECLs to indicate that function entry and exit should
> be instrumented with calls to support routines. */
> #define DECL_NO_INSTRUMENT_FUNCTION_ENTRY_EXIT(NODE) ((NODE)->decl.no_instrument_function_entry_exit)
>
> /* Used in FUNCTION_DECLs to indicate that in this function,
> check-memory-usage should be disabled. */
> #define DECL_NO_CHECK_MEMORY_USAGE(NODE) ((NODE)->decl.no_check_memory_usage)
>
1215a1282,1291
> /* Used to indicate an alias set for the memory pointed to by this
> particular FIELD_DECL, PARM_DECL, or VAR_DECL, which must have
> pointer (or reference) type. */
> #define DECL_POINTER_ALIAS_SET(NODE) \
> (DECL_CHECK (NODE)->decl.pointer_alias_set)
>
> /* Nonzero if an alias set has been assigned to this declaration. */
> #define DECL_POINTER_ALIAS_SET_KNOWN_P(NODE) \
> (DECL_POINTER_ALIAS_SET (NODE) != - 1)
>
1246d1321
< /* room for no more */
1257a1333,1335
> unsigned no_instrument_function_entry_exit : 1;
> unsigned no_check_memory_usage : 1;
> unsigned comdat_flag : 1;
1286a1365
> int pointer_alias_set;
1311,1312d1389
< #include "gansidecl.h"
<
1326,1340d1402
< #if 0
< /* At present, don't prototype xrealloc, since all of the callers don't
< cast their pointers to char *, and all of the xrealloc's don't use
< void * yet. */
< extern char *xmalloc PROTO((size_t));
< extern char *xcalloc PROTO((size_t, size_t));
< extern char *xrealloc PROTO((void *, size_t));
< #else
< extern char *xmalloc ();
< extern char *xcalloc ();
< extern char *xrealloc ();
< #endif
<
< extern char *xstrdup PROTO((char *));
<
1369c1431
< extern tree get_identifier PROTO((char *));
---
> extern tree get_identifier PROTO((const char *));
1375c1437
< extern tree maybe_get_identifier PROTO((char *));
---
> extern tree maybe_get_identifier PROTO((const char *));
1390c1452
< extern tree build_string PROTO((int, char *));
---
> extern tree build_string PROTO((int, const char *));
1397c1459
< extern tree build_expr_wfl PROTO((tree, char *, int, int));
---
> extern tree build_expr_wfl PROTO((tree, const char *, int, int));
1462c1524
< extern int is_attribute_p PROTO((char *, tree));
---
> extern int is_attribute_p PROTO((const char *, tree));
1467c1529
< extern tree lookup_attribute PROTO((char *, tree));
---
> extern tree lookup_attribute PROTO((const char *, tree));
1473,1478c1535,1540
< /* Given a type node TYPE, and CONSTP and VOLATILEP, return a type
< for the same kind of data as TYPE describes.
< Variants point to the "main variant" (which has neither CONST nor VOLATILE)
< via TYPE_MAIN_VARIANT, and it points to a chain of other variants
< so that duplicate variants are never made.
< Only main variants should ever appear as types of expressions. */
---
> /* Given a type node TYPE and a TYPE_QUALIFIER_SET, return a type for
> the same kind of data as TYPE describes. Variants point to the
> "main variant" (which has no qualifiers set) via TYPE_MAIN_VARIANT,
> and it points to a chain of other variants so that duplicate
> variants are never made. Only main variants should ever appear as
> types of expressions. */
1480c1542
< extern tree build_type_variant PROTO((tree, int, int));
---
> extern tree build_qualified_type PROTO((tree, int));
1481a1544,1553
> /* Like build_qualified_type, but only deals with the `const' and
> `volatile' qualifiers. This interface is retained for backwards
> compatiblity with the various front-ends; new code should use
> build_qualified_type instead. */
>
> #define build_type_variant(TYPE, CONST_P, VOLATILE_P) \
> build_qualified_type (TYPE, \
> ((CONST_P) ? TYPE_QUAL_CONST : 0) \
> | ((VOLATILE_P) ? TYPE_QUAL_VOLATILE : 0))
>
1615c1687
< extern int lvalue_or_else PROTO((tree, char *));
---
> extern int lvalue_or_else PROTO((tree, const char *));
1748c1820
< extern char *function_cannot_inline_p PROTO((tree));
---
> extern const char *function_cannot_inline_p PROTO((tree));
1839a1912
> extern tree get_file_function_name_long PROTO((const char *));
1843a1917
> extern int new_alias_set PROTO((void));
1873a1948
> extern int optimize_tail_recursion PROTO((tree, struct rtx_def *));
1886c1961
< char *));
---
> const char *));
1894a1970
> extern int stmt_loop_nest_empty PROTO((void));
2092c2168,2169
< extern void print_obstack_statistics PROTO ((char *, struct obstack *));
---
> extern void print_obstack_statistics PROTO ((const char *,
> struct obstack *));
2094c2171
< extern void print_obstack_name PROTO ((char *, FILE *, char *));
---
> extern void print_obstack_name PROTO ((char *, FILE *, const char *));
2104,2106c2181,2186
< extern tree tree_check PROTO ((tree, enum tree_code, char*, int, int));
< extern tree tree_class_check PROTO ((tree, char, char*, int, int));
< extern tree expr_check PROTO ((tree, int, char*, int, int));
---
> extern tree tree_check PROTO ((tree, enum tree_code,
> const char *, int, int));
> extern tree tree_class_check PROTO ((tree, char, const char *,
> int, int));
> extern tree expr_check PROTO ((tree, int, const char *,
> int, int));
2144,2145c2224,2225
< extern void print_node PROTO ((FILE *, char *, tree, int));
< extern void print_node_brief PROTO ((FILE *, char *, tree, int));
---
> extern void print_node PROTO ((FILE *, const char *, tree, int));
> extern void print_node_brief PROTO ((FILE *, const char *, tree, int));
2201c2281
< extern void make_decl_rtl PROTO ((tree, char *, int));
---
> extern void make_decl_rtl PROTO ((tree, const char *, int));