gcc/c-common.h

   1 /* Definitions for c-common.c.
   2    Copyright (C) 1987, 1993, 1994, 1995, 1997, 1998,
   3    1999, 2000 Free Software Foundation, Inc.
   4
   5 This file is part of GNU CC.
   6
   7 GNU CC 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 2, or (at your option)
  10 any later version.
  11
  12 GNU CC 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 GNU CC; see the file COPYING.  If not, write to
  19 the Free Software Foundation, 59 Temple Place - Suite 330,
  20 Boston, MA 02111-1307, USA.  */
  21
  22 #ifndef GCC_C_COMMON_H
  23 #define GCC_C_COMMON_H
  24
  25 /* Usage of TREE_LANG_FLAG_?:
  26    0: COMPOUND_STMT_NO_SCOPE (in COMPOUND_STMT).
  27       TREE_NEGATED_INT (in INTEGER_CST).
  28       IDENTIFIER_MARKED (used by search routines).
  29       SCOPE_BEGIN_P (in SCOPE_STMT)
  30       DECL_PRETTY_FUNCTION_P (in VAR_DECL)
  31       NEW_FOR_SCOPE_P (in FOR_STMT)
  32    1: C_DECLARED_LABEL_FLAG (in LABEL_DECL)
  33       STMT_IS_FULL_EXPR_P (in _STMT)
  34    2: STMT_LINENO_FOR_FN_P (in _STMT)
  35    3: SCOPE_NO_CLEANUPS_P (in SCOPE_STMT)
  36    4: SCOPE_PARTIAL_P (in SCOPE_STMT)
  37 */
  38
  39 /* Reserved identifiers.  This is the union of all the keywords for C,
  40    C++, and Objective C.  All the type modifiers have to be in one
  41    block at the beginning, because they are used as mask bits.  There
  42    are 27 type modifiers; if we add many more we will have to redesign
  43    the mask mechanism.  */
  44
  45 enum rid
  46 {
  47   /* Modifiers: */
  48   /* C, in empirical order of frequency. */
  49   RID_STATIC = 0,
  50   RID_UNSIGNED, RID_LONG,    RID_CONST, RID_EXTERN,
  51   RID_REGISTER, RID_TYPEDEF, RID_SHORT, RID_INLINE,
  52   RID_VOLATILE, RID_SIGNED,  RID_AUTO,  RID_RESTRICT,
  53
  54   /* C extensions */
  55   RID_BOUNDED, RID_UNBOUNDED, RID_COMPLEX,
  56
  57   /* C++ */
  58   RID_FRIEND, RID_VIRTUAL, RID_EXPLICIT, RID_EXPORT, RID_MUTABLE,
  59
  60   /* ObjC */
  61   RID_IN, RID_OUT, RID_INOUT, RID_BYCOPY, RID_BYREF, RID_ONEWAY,
  62
  63   /* C */
  64   RID_INT,     RID_CHAR,   RID_FLOAT,    RID_DOUBLE, RID_VOID,
  65   RID_ENUM,    RID_STRUCT, RID_UNION,    RID_IF,     RID_ELSE,
  66   RID_WHILE,   RID_DO,     RID_FOR,      RID_SWITCH, RID_CASE,
  67   RID_DEFAULT, RID_BREAK,  RID_CONTINUE, RID_RETURN, RID_GOTO,
  68   RID_SIZEOF,
  69
  70   /* C extensions */
  71   RID_ASM,       RID_TYPEOF,   RID_ALIGNOF,  RID_ATTRIBUTE,  RID_VA_ARG,
  72   RID_EXTENSION, RID_IMAGPART, RID_REALPART, RID_LABEL,      RID_PTRBASE,
  73   RID_PTREXTENT, RID_PTRVALUE,
  74
  75   /* C++ */
  76   RID_BOOL,     RID_WCHAR,    RID_CLASS,
  77   RID_PUBLIC,   RID_PRIVATE,  RID_PROTECTED,
  78   RID_TEMPLATE, RID_NULL,     RID_CATCH,
  79   RID_DELETE,   RID_FALSE,    RID_NAMESPACE,
  80   RID_NEW,      RID_OPERATOR, RID_THIS,
  81   RID_THROW,    RID_TRUE,     RID_TRY,
  82   RID_TYPENAME, RID_TYPEID,   RID_USING,
  83
  84   /* casts */
  85   RID_CONSTCAST, RID_DYNCAST, RID_REINTCAST, RID_STATCAST,
  86
  87   /* alternate spellings */
  88   RID_AND, RID_AND_EQ, RID_NOT, RID_NOT_EQ,
  89   RID_OR,  RID_OR_EQ,  RID_XOR, RID_XOR_EQ,
  90   RID_BITAND, RID_BITOR, RID_COMPL,
  91
  92   /* Objective C */
  93   RID_ID,          RID_AT_ENCODE,    RID_AT_END,
  94   RID_AT_CLASS,    RID_AT_ALIAS,     RID_AT_DEFS,
  95   RID_AT_PRIVATE,  RID_AT_PROTECTED, RID_AT_PUBLIC,
  96   RID_AT_PROTOCOL, RID_AT_SELECTOR,  RID_AT_INTERFACE,
  97   RID_AT_IMPLEMENTATION,
  98
  99   RID_MAX,
 100
 101   RID_FIRST_MODIFIER = RID_STATIC,
 102   RID_LAST_MODIFIER = RID_ONEWAY
 103 };
 104
 105 /* The elements of `ridpointers' are identifier nodes for the reserved
 106    type names and storage classes.  It is indexed by a RID_... value.  */
 107 extern tree *ridpointers;
 108
 109 /* Standard named or nameless data types of the C compiler.  */
 110
 111 enum c_tree_index
 112 {
 113     CTI_WCHAR_TYPE,
 114     CTI_SIGNED_WCHAR_TYPE,
 115     CTI_UNSIGNED_WCHAR_TYPE,
 116     CTI_WINT_TYPE,
 117     CTI_C_SIZE_TYPE, /* For format checking only.  */
 118     CTI_SIGNED_SIZE_TYPE, /* For format checking only.  */
 119     CTI_UNSIGNED_PTRDIFF_TYPE, /* For format checking only.  */
 120     CTI_WIDEST_INT_LIT_TYPE,
 121     CTI_WIDEST_UINT_LIT_TYPE,
 122
 123     CTI_CHAR_ARRAY_TYPE,
 124     CTI_WCHAR_ARRAY_TYPE,
 125     CTI_INT_ARRAY_TYPE,
 126     CTI_STRING_TYPE,
 127     CTI_CONST_STRING_TYPE,
 128
 129     CTI_BOOLEAN_TYPE,
 130     CTI_BOOLEAN_TRUE,
 131     CTI_BOOLEAN_FALSE,
 132     CTI_DEFAULT_FUNCTION_TYPE,
 133     CTI_VOID_LIST,
 134
 135     CTI_VOID_FTYPE,
 136     CTI_VOID_FTYPE_PTR,
 137     CTI_INT_FTYPE_INT,
 138     CTI_PTR_FTYPE_SIZETYPE,
 139
 140     CTI_G77_INTEGER_TYPE,
 141     CTI_G77_UINTEGER_TYPE,
 142     CTI_G77_LONGINT_TYPE,
 143     CTI_G77_ULONGINT_TYPE,
 144
 145     /* These are not types, but we have to look them up all the time.  */
 146     CTI_FUNCTION_ID,
 147     CTI_PRETTY_FUNCTION_ID,
 148     CTI_FUNC_ID,
 149
 150     CTI_VOID_ZERO,
 151
 152     CTI_MAX
 153 };
 154
 155 #define wchar_type_node                 c_global_trees[CTI_WCHAR_TYPE]
 156 #define signed_wchar_type_node          c_global_trees[CTI_SIGNED_WCHAR_TYPE]
 157 #define unsigned_wchar_type_node        c_global_trees[CTI_UNSIGNED_WCHAR_TYPE]
 158 #define wint_type_node                  c_global_trees[CTI_WINT_TYPE]
 159 #define c_size_type_node                c_global_trees[CTI_C_SIZE_TYPE]
 160 #define signed_size_type_node           c_global_trees[CTI_SIGNED_SIZE_TYPE]
 161 #define unsigned_ptrdiff_type_node      c_global_trees[CTI_UNSIGNED_PTRDIFF_TYPE]
 162 #define widest_integer_literal_type_node c_global_trees[CTI_WIDEST_INT_LIT_TYPE]
 163 #define widest_unsigned_literal_type_node c_global_trees[CTI_WIDEST_UINT_LIT_TYPE]
 164
 165 #define boolean_type_node               c_global_trees[CTI_BOOLEAN_TYPE]
 166 #define boolean_true_node               c_global_trees[CTI_BOOLEAN_TRUE]
 167 #define boolean_false_node              c_global_trees[CTI_BOOLEAN_FALSE]
 168
 169 #define char_array_type_node            c_global_trees[CTI_CHAR_ARRAY_TYPE]
 170 #define wchar_array_type_node           c_global_trees[CTI_WCHAR_ARRAY_TYPE]
 171 #define int_array_type_node             c_global_trees[CTI_INT_ARRAY_TYPE]
 172 #define string_type_node                c_global_trees[CTI_STRING_TYPE]
 173 #define const_string_type_node          c_global_trees[CTI_CONST_STRING_TYPE]
 174
 175 #define default_function_type           c_global_trees[CTI_DEFAULT_FUNCTION_TYPE]
 176 #define void_list_node                  c_global_trees[CTI_VOID_LIST]
 177 #define void_ftype                      c_global_trees[CTI_VOID_FTYPE]
 178 #define void_ftype_ptr                  c_global_trees[CTI_VOID_FTYPE_PTR]
 179 #define int_ftype_int                   c_global_trees[CTI_INT_FTYPE_INT]
 180 #define ptr_ftype_sizetype              c_global_trees[CTI_PTR_FTYPE_SIZETYPE]
 181
 182 /* g77 integer types, which which must be kept in sync with f/com.h */
 183 #define g77_integer_type_node           c_global_trees[CTI_G77_INTEGER_TYPE]
 184 #define g77_uinteger_type_node          c_global_trees[CTI_G77_UINTEGER_TYPE]
 185 #define g77_longint_type_node           c_global_trees[CTI_G77_LONGINT_TYPE]
 186 #define g77_ulongint_type_node          c_global_trees[CTI_G77_ULONGINT_TYPE]
 187
 188 #define function_id_node                c_global_trees[CTI_FUNCTION_ID]
 189 #define pretty_function_id_node         c_global_trees[CTI_PRETTY_FUNCTION_ID]
 190 #define func_id_node                    c_global_trees[CTI_FUNC_ID]
 191
 192 /* A node for `((void) 0)'.  */
 193 #define void_zero_node                  c_global_trees[CTI_VOID_ZERO]
 194
 195 extern tree c_global_trees[CTI_MAX];
 196
 197 typedef enum c_language_kind
 198 {
 199   clk_c,           /* A dialect of C: K&R C, ANSI/ISO C89, C2000,
 200                        etc. */
 201   clk_cplusplus,   /* ANSI/ISO C++ */
 202   clk_objective_c  /* Objective C */
 203 }
 204 c_language_kind;
 205
 206 /* Information about a statement tree.  */
 207
 208 struct stmt_tree_s {
 209   /* The last statement added to the tree.  */
 210   tree x_last_stmt;
 211   /* The type of the last expression statement.  (This information is
 212      needed to implement the statement-expression extension.)  */
 213   tree x_last_expr_type;
 214   /* In C++, Non-zero if we should treat statements as full
 215      expressions.  In particular, this variable is no-zero if at the
 216      end of a statement we should destroy any temporaries created
 217      during that statement.  Similarly, if, at the end of a block, we
 218      should destroy any local variables in this block.  Normally, this
 219      variable is non-zero, since those are the normal semantics of
 220      C++.
 221
 222      However, in order to represent aggregate initialization code as
 223      tree structure, we use statement-expressions.  The statements
 224      within the statement expression should not result in cleanups
 225      being run until the entire enclosing statement is complete.
 226
 227      This flag has no effect in C.  */
 228   int stmts_are_full_exprs_p;
 229 };
 230
 231 typedef struct stmt_tree_s *stmt_tree;
 232
 233 /* Global state pertinent to the current function.  Some C dialects
 234    extend this structure with additional fields.  */
 235
 236 struct language_function {
 237   /* While we are parsing the function, this contains information
 238      about the statement-tree that we are building.  */
 239   struct stmt_tree_s x_stmt_tree;
 240 };
 241
 242 /* When building a statement-tree, this is the last statement added to
 243    the tree.  */
 244
 245 #define last_tree (current_stmt_tree ()->x_last_stmt)
 246
 247 /* The type of the last expression-statement we have seen.  */
 248
 249 #define last_expr_type (current_stmt_tree ()->x_last_expr_type)
 250
 251 /* The type of a function that walks over tree structure.  */
 252
 253 typedef tree (*walk_tree_fn)                    PARAMS ((tree *,
 254                                                          int *,
 255                                                          void *));
 256
 257 extern stmt_tree current_stmt_tree              PARAMS ((void));
 258 extern void begin_stmt_tree                     PARAMS ((tree *));
 259 extern tree add_stmt                            PARAMS ((tree));
 260 extern void finish_stmt_tree                    PARAMS ((tree *));
 261
 262 extern int statement_code_p                     PARAMS ((enum tree_code));
 263 extern int (*lang_statement_code_p)             PARAMS ((enum tree_code));
 264 extern tree walk_stmt_tree                      PARAMS ((tree *,
 265                                                          walk_tree_fn,
 266                                                          void *));
 267 extern void prep_stmt                           PARAMS ((tree));
 268 extern void (*lang_expand_stmt)                 PARAMS ((tree));
 269 extern void expand_stmt                         PARAMS ((tree));
 270
 271 /* LAST_TREE contains the last statement parsed.  These are chained
 272    together through the TREE_CHAIN field, but often need to be
 273    re-organized since the parse is performed bottom-up.  This macro
 274    makes LAST_TREE the indicated SUBSTMT of STMT.  */
 275
 276 #define RECHAIN_STMTS(stmt, substmt)            \
 277   do {                                          \
 278     substmt = TREE_CHAIN (stmt);                \
 279     TREE_CHAIN (stmt) = NULL_TREE;              \
 280     last_tree = stmt;                           \
 281   } while (0)
 282
 283 /* The variant of the C language being processed.  Each C language
 284    front-end defines this variable.  */
 285
 286 extern c_language_kind c_language;
 287
 288 /* Nonzero means give string constants the type `const char *', rather
 289    than `char *'.  */
 290
 291 extern int flag_const_strings;
 292
 293 /* Warn about *printf or *scanf format/argument anomalies. */
 294
 295 extern int warn_format;
 296
 297 /* Nonzero means do some things the same way PCC does.  */
 298
 299 extern int flag_traditional;
 300
 301 /* Nonzero means enable C89 Amendment 1 features, other than digraphs.  */
 302
 303 extern int flag_isoc94;
 304
 305 /* Nonzero means use the ISO C99 dialect of C.  */
 306
 307 extern int flag_isoc99;
 308
 309 /* Nonzero means accept digraphs.  */
 310
 311 extern int flag_digraphs;
 312
 313 /* Nonzero means environment is hosted (i.e., not freestanding) */
 314
 315 extern int flag_hosted;
 316
 317 /* Nonzero means add default format_arg attributes for functions not
 318    in ISO C.  */
 319
 320 extern int flag_noniso_default_format_attributes;
 321
 322 /* Nonzero means warn about suggesting putting in ()'s.  */
 323
 324 extern int warn_parentheses;
 325
 326 /* Warn if a type conversion is done that might have confusing results.  */
 327
 328 extern int warn_conversion;
 329
 330 /* C types are partitioned into three subsets: object, function, and
 331    incomplete types.  */
 332 #define C_TYPE_OBJECT_P(type) \
 333   (TREE_CODE (type) != FUNCTION_TYPE && TYPE_SIZE (type))
 334
 335 #define C_TYPE_INCOMPLETE_P(type) \
 336   (TREE_CODE (type) != FUNCTION_TYPE && TYPE_SIZE (type) == 0)
 337
 338 #define C_TYPE_FUNCTION_P(type) \
 339   (TREE_CODE (type) == FUNCTION_TYPE)
 340
 341 /* For convenience we define a single macro to identify the class of
 342    object or incomplete types.  */
 343 #define C_TYPE_OBJECT_OR_INCOMPLETE_P(type) \
 344   (!C_TYPE_FUNCTION_P (type))
 345
 346 /* Record in each node resulting from a binary operator
 347    what operator was specified for it.  */
 348 #define C_EXP_ORIGINAL_CODE(exp) ((enum tree_code) TREE_COMPLEXITY (exp))
 349
 350 /* Pointer to function to generate the VAR_DECL for __FUNCTION__ etc.
 351    ID is the identifier to use, NAME is the string.
 352    TYPE_DEP indicates whether it depends on type of the function or not
 353    (i.e. __PRETTY_FUNCTION__).  */
 354
 355 extern tree (*make_fname_decl)                  PARAMS ((tree, const char *, int));
 356
 357 extern void declare_function_name               PARAMS ((void));
 358 extern void decl_attributes                     PARAMS ((tree, tree, tree));
 359 extern void init_function_format_info           PARAMS ((void));
 360 extern void check_function_format               PARAMS ((tree, tree, tree));
 361 extern void c_apply_type_quals_to_decl          PARAMS ((int, tree));
 362 /* Print an error message for invalid operands to arith operation CODE.
 363    NOP_EXPR is used as a special case (see truthvalue_conversion).  */
 364 extern void binary_op_error                     PARAMS ((enum tree_code));
 365 extern void c_expand_expr_stmt                  PARAMS ((tree));
 366 extern void c_expand_start_cond                 PARAMS ((tree, int, int));
 367 extern void c_expand_start_else                 PARAMS ((void));
 368 extern void c_expand_end_cond                   PARAMS ((void));
 369 /* Validate the expression after `case' and apply default promotions.  */
 370 extern tree check_case_value                    PARAMS ((tree));
 371 /* Concatenate a list of STRING_CST nodes into one STRING_CST.  */
 372 extern tree combine_strings                     PARAMS ((tree));
 373 extern void constant_expression_warning         PARAMS ((tree));
 374 extern tree convert_and_check                   PARAMS ((tree, tree));
 375 extern void overflow_warning                    PARAMS ((tree));
 376 extern void unsigned_conversion_warning         PARAMS ((tree, tree));
 377
 378 /* Read the rest of the current #-directive line.  */
 379 #if USE_CPPLIB
 380 extern char *get_directive_line                 PARAMS ((void));
 381 #define GET_DIRECTIVE_LINE() get_directive_line ()
 382 #else
 383 extern char *get_directive_line                 PARAMS ((FILE *));
 384 #define GET_DIRECTIVE_LINE() get_directive_line (finput)
 385 #endif
 386
 387 /* Subroutine of build_binary_op, used for comparison operations.
 388    See if the operands have both been converted from subword integer types
 389    and, if so, perhaps change them both back to their original type.  */
 390 extern tree shorten_compare                     PARAMS ((tree *, tree *, tree *, enum tree_code *));
 391 /* Prepare expr to be an argument of a TRUTH_NOT_EXPR,
 392    or validate its data type for an `if' or `while' statement or ?..: exp. */
 393 extern tree truthvalue_conversion               PARAMS ((tree));
 394 extern tree type_for_mode                       PARAMS ((enum machine_mode, int));
 395 extern tree type_for_size                       PARAMS ((unsigned, int));
 396
 397 extern unsigned int min_precision               PARAMS ((tree, int));
 398
 399 /* Add qualifiers to a type, in the fashion for C.  */
 400 extern tree c_build_qualified_type              PARAMS ((tree, int));
 401
 402 /* Build tree nodes and builtin functions common to both C and C++ language
 403    frontends.  */
 404 extern void c_common_nodes_and_builtins         PARAMS ((int, int, int));
 405
 406 extern tree build_va_arg                        PARAMS ((tree, tree));
 407
 408 /* Nonzero if the type T promotes to itself.
 409    ANSI C states explicitly the list of types that promote;
 410    in particular, short promotes to int even if they have the same width.  */
 411 #define C_PROMOTING_INTEGER_TYPE_P(t)                           \
 412   (TREE_CODE ((t)) == INTEGER_TYPE                              \
 413    && (TYPE_MAIN_VARIANT (t) == char_type_node                  \
 414        || TYPE_MAIN_VARIANT (t) == signed_char_type_node        \
 415        || TYPE_MAIN_VARIANT (t) == unsigned_char_type_node      \
 416        || TYPE_MAIN_VARIANT (t) == short_integer_type_node      \
 417        || TYPE_MAIN_VARIANT (t) == short_unsigned_type_node))
 418
 419 extern int self_promoting_args_p                PARAMS ((tree));
 420 extern tree simple_type_promotes_to             PARAMS ((tree));
 421
 422 /* These macros provide convenient access to the various _STMT nodes.  */
 423
 424 /* Nonzero if this statement should be considered a full-expression,
 425    i.e., if temporaries created during this statement should have
 426    their destructors run at the end of this statement.  (In C, this
 427    will always be false, since there are no destructors.)  */
 428 #define STMT_IS_FULL_EXPR_P(NODE) TREE_LANG_FLAG_1 ((NODE))
 429
 430 /* IF_STMT accessors. These give access to the condtion of the if
 431    statement, the then block of the if statement, and the else block
 432    of the if stsatement if it exists. */
 433 #define IF_COND(NODE)           TREE_OPERAND (IF_STMT_CHECK (NODE), 0)
 434 #define THEN_CLAUSE(NODE)       TREE_OPERAND (IF_STMT_CHECK (NODE), 1)
 435 #define ELSE_CLAUSE(NODE)       TREE_OPERAND (IF_STMT_CHECK (NODE), 2)
 436
 437 /* WHILE_STMT accessors. These give access to the condtion of the
 438    while statement and the body of the while statement, respectively. */
 439 #define WHILE_COND(NODE)        TREE_OPERAND (WHILE_STMT_CHECK (NODE), 0)
 440 #define WHILE_BODY(NODE)        TREE_OPERAND (WHILE_STMT_CHECK (NODE), 1)
 441
 442 /* DO_STMT accessors. These give access to the condition of the do
 443    statement and the body of the do statement, respectively. */
 444 #define DO_COND(NODE)           TREE_OPERAND (DO_STMT_CHECK (NODE), 0)
 445 #define DO_BODY(NODE)           TREE_OPERAND (DO_STMT_CHECK (NODE), 1)
 446
 447 /* RETURN_STMT accessor. This gives the expression associated with a
 448    return statement. */
 449 #define RETURN_EXPR(NODE)       TREE_OPERAND (RETURN_STMT_CHECK (NODE), 0)
 450
 451 /* EXPR_STMT accessor. This gives the expression associated with an
 452    expression statement. */
 453 #define EXPR_STMT_EXPR(NODE)    TREE_OPERAND (EXPR_STMT_CHECK (NODE), 0)
 454
 455 /* FOR_STMT accessors. These give access to the init statement,
 456    condition, update expression, and body of the for statement,
 457    respectively. */
 458 #define FOR_INIT_STMT(NODE)     TREE_OPERAND (FOR_STMT_CHECK (NODE), 0)
 459 #define FOR_COND(NODE)          TREE_OPERAND (FOR_STMT_CHECK (NODE), 1)
 460 #define FOR_EXPR(NODE)          TREE_OPERAND (FOR_STMT_CHECK (NODE), 2)
 461 #define FOR_BODY(NODE)          TREE_OPERAND (FOR_STMT_CHECK (NODE), 3)
 462
 463 /* SWITCH_STMT accessors. These give access to the condition and body
 464    of the switch statement, respectively. */
 465 #define SWITCH_COND(NODE)       TREE_OPERAND (SWITCH_STMT_CHECK (NODE), 0)
 466 #define SWITCH_BODY(NODE)       TREE_OPERAND (SWITCH_STMT_CHECK (NODE), 1)
 467
 468 /* CASE_LABEL accessors. These give access to the high and low values
 469    of a case label, respectively. */
 470 #define CASE_LOW(NODE)          TREE_OPERAND (CASE_LABEL_CHECK (NODE), 0)
 471 #define CASE_HIGH(NODE)         TREE_OPERAND (CASE_LABEL_CHECK (NODE), 1)
 472 #define CASE_LABEL_DECL(NODE)   TREE_OPERAND (CASE_LABEL_CHECK (NODE), 2)
 473
 474 /* GOTO_STMT accessor. This gives access to the label associated with
 475    a goto statement. */
 476 #define GOTO_DESTINATION(NODE)  TREE_OPERAND (GOTO_STMT_CHECK (NODE), 0)
 477
 478 /* COMPOUND_STMT accessor. This gives access to the TREE_LIST of
 479    statements assocated with a compound statement. The result is the
 480    first statement in the list. Succeeding nodes can be acccessed by
 481    calling TREE_CHAIN on a node in the list. */
 482 #define COMPOUND_BODY(NODE)     TREE_OPERAND (COMPOUND_STMT_CHECK (NODE), 0)
 483
 484 /* ASM_STMT accessors. ASM_STRING returns a STRING_CST for the
 485    instruction (e.g., "mov x, y"). ASM_OUTPUTS, ASM_INPUTS, and
 486    ASM_CLOBBERS represent the outputs, inputs, and clobbers for the
 487    statement. */
 488 #define ASM_CV_QUAL(NODE)       TREE_OPERAND (ASM_STMT_CHECK (NODE), 0)
 489 #define ASM_STRING(NODE)        TREE_OPERAND (ASM_STMT_CHECK (NODE), 1)
 490 #define ASM_OUTPUTS(NODE)       TREE_OPERAND (ASM_STMT_CHECK (NODE), 2)
 491 #define ASM_INPUTS(NODE)        TREE_OPERAND (ASM_STMT_CHECK (NODE), 3)
 492 #define ASM_CLOBBERS(NODE)      TREE_OPERAND (ASM_STMT_CHECK (NODE), 4)
 493
 494 /* DECL_STMT accessor. This gives access to the DECL associated with
 495    the given declaration statement. */
 496 #define DECL_STMT_DECL(NODE)    TREE_OPERAND (DECL_STMT_CHECK (NODE), 0)
 497
 498 /* STMT_EXPR accessor. */
 499 #define STMT_EXPR_STMT(NODE)    TREE_OPERAND (STMT_EXPR_CHECK (NODE), 0)
 500
 501 /* LABEL_STMT accessor. This gives access to the label associated with
 502    the given label statement. */
 503 #define LABEL_STMT_LABEL(NODE)  TREE_OPERAND (LABEL_STMT_CHECK (NODE), 0)
 504
 505 /* Nonzero if this SCOPE_STMT is for the beginning of a scope.  */
 506 #define SCOPE_BEGIN_P(NODE) \
 507   (TREE_LANG_FLAG_0 (SCOPE_STMT_CHECK (NODE)))
 508
 509 /* Nonzero if this SCOPE_STMT is for the end of a scope.  */
 510 #define SCOPE_END_P(NODE) \
 511   (!SCOPE_BEGIN_P (SCOPE_STMT_CHECK (NODE)))
 512
 513 /* The BLOCK containing the declarations contained in this scope.  */
 514 #define SCOPE_STMT_BLOCK(NODE) \
 515   (TREE_OPERAND (SCOPE_STMT_CHECK (NODE), 0))
 516
 517 /* Nonzero for a SCOPE_STMT if there were no variables in this scope.  */
 518 #define SCOPE_NULLIFIED_P(NODE) \
 519   (SCOPE_STMT_BLOCK ((NODE)) == NULL_TREE)
 520
 521 /* Nonzero for a SCOPE_STMT which represents a lexical scope, but
 522    which should be treated as non-existant from the point of view of
 523    running cleanup actions.  */
 524 #define SCOPE_NO_CLEANUPS_P(NODE) \
 525   (TREE_LANG_FLAG_3 (SCOPE_STMT_CHECK (NODE)))
 526
 527 /* Nonzero for a SCOPE_STMT if this statement is for a partial scope.
 528    For example, in:
 529
 530      S s;
 531      l:
 532      S s2;
 533      goto l;
 534
 535    there is (implicitly) a new scope after `l', even though there are
 536    no curly braces.  In particular, when we hit the goto, we must
 537    destroy s2 and then re-construct it.  For the implicit scope,
 538    SCOPE_PARTIAL_P will be set.  */
 539 #define SCOPE_PARTIAL_P(NODE) \
 540   (TREE_LANG_FLAG_4 (SCOPE_STMT_CHECK (NODE)))
 541
 542 /* Nonzero for an ASM_STMT if the assembly statement is volatile.  */
 543 #define ASM_VOLATILE_P(NODE)                    \
 544   (ASM_CV_QUAL (ASM_STMT_CHECK (NODE)) != NULL_TREE)
 545
 546 /* The line-number at which a statement began.  But if
 547    STMT_LINENO_FOR_FN_P does holds, then this macro gives the
 548    line number for the end of the current function instead.  */
 549 #define STMT_LINENO(NODE)                       \
 550   (TREE_COMPLEXITY ((NODE)))
 551
 552 /* If non-zero, the STMT_LINENO for NODE is the line at which the
 553    function ended.  */
 554 #define STMT_LINENO_FOR_FN_P(NODE)              \
 555   (TREE_LANG_FLAG_2 ((NODE)))
 556
 557 /* Nonzero if we want the new ISO rules for pushing a new scope for `for'
 558    initialization variables. */
 559 #define NEW_FOR_SCOPE_P(NODE) (TREE_LANG_FLAG_0 (NODE))
 560
 561 #define DEFTREECODE(SYM, NAME, TYPE, LENGTH) SYM,
 562
 563 enum c_tree_code {
 564   C_DUMMY_TREE_CODE = LAST_AND_UNUSED_TREE_CODE,
 565 #include "c-common.def"
 566   LAST_C_TREE_CODE
 567 };
 568
 569 #undef DEFTREECODE
 570
 571 extern void add_c_tree_codes                    PARAMS ((void));
 572 extern void genrtl_do_pushlevel                 PARAMS ((void));
 573 extern void genrtl_goto_stmt                    PARAMS ((tree));
 574 extern void genrtl_expr_stmt                    PARAMS ((tree));
 575 extern void genrtl_decl_stmt                    PARAMS ((tree));
 576 extern void genrtl_if_stmt                      PARAMS ((tree));
 577 extern void genrtl_while_stmt                   PARAMS ((tree));
 578 extern void genrtl_do_stmt                      PARAMS ((tree));
 579 extern void genrtl_return_stmt                  PARAMS ((tree));
 580 extern void genrtl_for_stmt                     PARAMS ((tree));
 581 extern void genrtl_break_stmt                   PARAMS ((void));
 582 extern void genrtl_continue_stmt                PARAMS ((void));
 583 extern void genrtl_scope_stmt                   PARAMS ((tree));
 584 extern void genrtl_switch_stmt                  PARAMS ((tree));
 585 extern void genrtl_case_label                   PARAMS ((tree));
 586 extern void genrtl_compound_stmt                PARAMS ((tree));
 587 extern void genrtl_asm_stmt                     PARAMS ((tree, tree,
 588                                                          tree, tree,
 589                                                          tree));
 590 extern void genrtl_decl_cleanup                 PARAMS ((tree, tree));
 591 extern int stmts_are_full_exprs_p               PARAMS ((void));
 592 typedef void (*expand_expr_stmt_fn)             PARAMS ((tree));
 593 extern expand_expr_stmt_fn lang_expand_expr_stmt;
 594 extern int anon_aggr_type_p                     PARAMS ((tree));
 595
 596 /* For a VAR_DECL that is an anonymous union, these are the various
 597    sub-variables that make up the anonymous union.  */
 598 #define DECL_ANON_UNION_ELEMS(NODE) DECL_ARGUMENTS ((NODE))
 599
 600 extern void emit_local_var                      PARAMS ((tree));
 601 extern void make_rtl_for_local_static           PARAMS ((tree));
 602 extern tree expand_cond                         PARAMS ((tree));
 603 extern void c_expand_return                     PARAMS ((tree));
 604 extern void do_case                             PARAMS ((tree, tree));
 605 extern tree build_stmt                          PARAMS ((enum tree_code, ...));
 606 extern tree build_case_label                    PARAMS ((tree, tree, tree));
 607 extern tree build_continue_stmt                 PARAMS ((void));
 608 extern tree build_break_stmt                    PARAMS ((void));
 609 extern tree build_return_stmt                   PARAMS ((tree));
 610
 611 #define COMPOUND_STMT_NO_SCOPE(NODE)    TREE_LANG_FLAG_0 (NODE)
 612
 613 extern void c_expand_asm_operands               PARAMS ((tree, tree, tree, tree, int, const char *, int));
 614 extern int current_function_name_declared       PARAMS ((void));
 615 extern void set_current_function_name_declared  PARAMS ((int));
 616
 617 /* These functions must be defined by each front-end which implements
 618    a variant of the C language.  They are used in c-common.c.  */
 619
 620 extern tree build_unary_op                      PARAMS ((enum tree_code,
 621                                                          tree, int));
 622 extern tree build_binary_op                     PARAMS ((enum tree_code,
 623                                                          tree, tree, int));
 624 extern int lvalue_p                             PARAMS ((tree));
 625 extern tree default_conversion                  PARAMS ((tree));
 626
 627 /* Given two integer or real types, return the type for their sum.
 628    Given two compatible ANSI C types, returns the merged type.  */
 629
 630 extern tree common_type                         PARAMS ((tree, tree));
 631
 632 extern tree expand_tree_builtin                 PARAMS ((tree, tree, tree));
 633
 634 extern tree decl_constant_value         PARAMS ((tree));
 635
 636 /* Hook currently used only by the C++ front end to reset internal state
 637    after entering or leaving a header file.  */
 638 extern void extract_interface_info              PARAMS ((void));
 639
 640 /* Information recorded about each file examined during compilation.  */
 641
 642 struct c_fileinfo
 643 {
 644   int time;     /* Time spent in the file.  */
 645   short interface_only;         /* Flags - used only by C++ */
 646   short interface_unknown;
 647 };
 648
 649 struct c_fileinfo *get_fileinfo                 PARAMS ((const char *));
 650 extern void dump_time_statistics                PARAMS ((void));
 651
 652 #endif