gcc/c-decl.c

   1 /* Process declarations and variables for C compiler.
   2    Copyright (C) 1988, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000,
   3    2001, 2002, 2003, 2004, 2005, 2006, 2007 Free Software Foundation, Inc.
   4
   5 This file is part of GCC.
   6
   7 GCC is free software; you can redistribute it and/or modify it under
   8 the terms of the GNU General Public License as published by the Free
   9 Software Foundation; either version 2, or (at your option) any later
  10 version.
  11
  12 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
  13 WARRANTY; without even the implied warranty of MERCHANTABILITY or
  14 FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  15 for more details.
  16
  17 You should have received a copy of the GNU General Public License
  18 along with GCC; see the file COPYING.  If not, write to the Free
  19 Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
  20 02110-1301, USA.  */
  21
  22 /* Process declarations and symbol lookup for C front end.
  23    Also constructs types; the standard scalar types at initialization,
  24    and structure, union, array and enum types when they are declared.  */
  25
  26 /* ??? not all decl nodes are given the most useful possible
  27    line numbers.  For example, the CONST_DECLs for enum values.  */
  28
  29 #include "config.h"
  30 #include "system.h"
  31 #include "coretypes.h"
  32 #include "input.h"
  33 #include "tm.h"
  34 #include "intl.h"
  35 #include "tree.h"
  36 #include "tree-inline.h"
  37 #include "rtl.h"
  38 #include "flags.h"
  39 #include "function.h"
  40 #include "output.h"
  41 #include "expr.h"
  42 #include "c-tree.h"
  43 #include "toplev.h"
  44 #include "ggc.h"
  45 #include "tm_p.h"
  46 #include "cpplib.h"
  47 #include "target.h"
  48 #include "debug.h"
  49 #include "opts.h"
  50 #include "timevar.h"
  51 #include "c-common.h"
  52 #include "c-pragma.h"
  53 #include "langhooks.h"
  54 #include "tree-mudflap.h"
  55 #include "tree-gimple.h"
  56 #include "diagnostic.h"
  57 #include "tree-dump.h"
  58 #include "cgraph.h"
  59 #include "hashtab.h"
  60 #include "libfuncs.h"
  61 #include "except.h"
  62 #include "langhooks-def.h"
  63 #include "pointer-set.h"
  64
  65 /* In grokdeclarator, distinguish syntactic contexts of declarators.  */
  66 enum decl_context
  67 { NORMAL,                       /* Ordinary declaration */
  68   FUNCDEF,                      /* Function definition */
  69   PARM,                         /* Declaration of parm before function body */
  70   FIELD,                        /* Declaration inside struct or union */
  71   TYPENAME};                    /* Typename (inside cast or sizeof)  */
  72
  73 /* States indicating how grokdeclarator() should handle declspecs marked
  74    with __attribute__((deprecated)).  An object declared as
  75    __attribute__((deprecated)) suppresses warnings of uses of other
  76    deprecated items.  */
  77
  78 enum deprecated_states {
  79   DEPRECATED_NORMAL,
  80   DEPRECATED_SUPPRESS
  81 };
  82
  83 \f
  84 /* Nonzero if we have seen an invalid cross reference
  85    to a struct, union, or enum, but not yet printed the message.  */
  86 tree pending_invalid_xref;
  87
  88 /* File and line to appear in the eventual error message.  */
  89 location_t pending_invalid_xref_location;
  90
  91 /* True means we've initialized exception handling.  */
  92 bool c_eh_initialized_p;
  93
  94 /* The file and line that the prototype came from if this is an
  95    old-style definition; used for diagnostics in
  96    store_parm_decls_oldstyle.  */
  97
  98 static location_t current_function_prototype_locus;
  99
 100 /* Whether this prototype was built-in.  */
 101
 102 static bool current_function_prototype_built_in;
 103
 104 /* The argument type information of this prototype.  */
 105
 106 static tree current_function_prototype_arg_types;
 107
 108 /* The argument information structure for the function currently being
 109    defined.  */
 110
 111 static struct c_arg_info *current_function_arg_info;
 112
 113 /* The obstack on which parser and related data structures, which are
 114    not live beyond their top-level declaration or definition, are
 115    allocated.  */
 116 struct obstack parser_obstack;
 117
 118 /* The current statement tree.  */
 119
 120 static GTY(()) struct stmt_tree_s c_stmt_tree;
 121
 122 /* State saving variables.  */
 123 tree c_break_label;
 124 tree c_cont_label;
 125
 126 /* Linked list of TRANSLATION_UNIT_DECLS for the translation units
 127    included in this invocation.  Note that the current translation
 128    unit is not included in this list.  */
 129
 130 static GTY(()) tree all_translation_units;
 131
 132 /* A list of decls to be made automatically visible in each file scope.  */
 133 static GTY(()) tree visible_builtins;
 134
 135 /* Set to 0 at beginning of a function definition, set to 1 if
 136    a return statement that specifies a return value is seen.  */
 137
 138 int current_function_returns_value;
 139
 140 /* Set to 0 at beginning of a function definition, set to 1 if
 141    a return statement with no argument is seen.  */
 142
 143 int current_function_returns_null;
 144
 145 /* Set to 0 at beginning of a function definition, set to 1 if
 146    a call to a noreturn function is seen.  */
 147
 148 int current_function_returns_abnormally;
 149
 150 /* Set to nonzero by `grokdeclarator' for a function
 151    whose return type is defaulted, if warnings for this are desired.  */
 152
 153 static int warn_about_return_type;
 154
 155 /* Nonzero when the current toplevel function contains a declaration
 156    of a nested function which is never defined.  */
 157
 158 static bool undef_nested_function;
 159
 160 /* True means global_bindings_p should return false even if the scope stack
 161    says we are in file scope.  */
 162 bool c_override_global_bindings_to_false;
 163
 164 \f
 165 /* Each c_binding structure describes one binding of an identifier to
 166    a decl.  All the decls in a scope - irrespective of namespace - are
 167    chained together by the ->prev field, which (as the name implies)
 168    runs in reverse order.  All the decls in a given namespace bound to
 169    a given identifier are chained by the ->shadowed field, which runs
 170    from inner to outer scopes.
 171
 172    The ->decl field usually points to a DECL node, but there are two
 173    exceptions.  In the namespace of type tags, the bound entity is a
 174    RECORD_TYPE, UNION_TYPE, or ENUMERAL_TYPE node.  If an undeclared
 175    identifier is encountered, it is bound to error_mark_node to
 176    suppress further errors about that identifier in the current
 177    function.
 178
 179    The ->type field stores the type of the declaration in this scope;
 180    if NULL, the type is the type of the ->decl field.  This is only of
 181    relevance for objects with external or internal linkage which may
 182    be redeclared in inner scopes, forming composite types that only
 183    persist for the duration of those scopes.  In the external scope,
 184    this stores the composite of all the types declared for this
 185    object, visible or not.  The ->inner_comp field (used only at file
 186    scope) stores whether an incomplete array type at file scope was
 187    completed at an inner scope to an array size other than 1.
 188
 189    The depth field is copied from the scope structure that holds this
 190    decl.  It is used to preserve the proper ordering of the ->shadowed
 191    field (see bind()) and also for a handful of special-case checks.
 192    Finally, the invisible bit is true for a decl which should be
 193    ignored for purposes of normal name lookup, and the nested bit is
 194    true for a decl that's been bound a second time in an inner scope;
 195    in all such cases, the binding in the outer scope will have its
 196    invisible bit true.  */
 197
 198 struct c_binding GTY((chain_next ("%h.prev")))
 199 {
 200   tree decl;                    /* the decl bound */
 201   tree type;                    /* the type in this scope */
 202   tree id;                      /* the identifier it's bound to */
 203   struct c_binding *prev;       /* the previous decl in this scope */
 204   struct c_binding *shadowed;   /* the innermost decl shadowed by this one */
 205   unsigned int depth : 28;      /* depth of this scope */
 206   BOOL_BITFIELD invisible : 1;  /* normal lookup should ignore this binding */
 207   BOOL_BITFIELD nested : 1;     /* do not set DECL_CONTEXT when popping */
 208   BOOL_BITFIELD inner_comp : 1; /* incomplete array completed in inner scope */
 209   /* one free bit */
 210 };
 211 #define B_IN_SCOPE(b1, b2) ((b1)->depth == (b2)->depth)
 212 #define B_IN_CURRENT_SCOPE(b) ((b)->depth == current_scope->depth)
 213 #define B_IN_FILE_SCOPE(b) ((b)->depth == 1 /*file_scope->depth*/)
 214 #define B_IN_EXTERNAL_SCOPE(b) ((b)->depth == 0 /*external_scope->depth*/)
 215
 216 #define I_SYMBOL_BINDING(node) \
 217   (((struct lang_identifier *) IDENTIFIER_NODE_CHECK(node))->symbol_binding)
 218 #define I_SYMBOL_DECL(node) \
 219  (I_SYMBOL_BINDING(node) ? I_SYMBOL_BINDING(node)->decl : 0)
 220
 221 #define I_TAG_BINDING(node) \
 222   (((struct lang_identifier *) IDENTIFIER_NODE_CHECK(node))->tag_binding)
 223 #define I_TAG_DECL(node) \
 224  (I_TAG_BINDING(node) ? I_TAG_BINDING(node)->decl : 0)
 225
 226 #define I_LABEL_BINDING(node) \
 227   (((struct lang_identifier *) IDENTIFIER_NODE_CHECK(node))->label_binding)
 228 #define I_LABEL_DECL(node) \
 229  (I_LABEL_BINDING(node) ? I_LABEL_BINDING(node)->decl : 0)
 230
 231 /* Each C symbol points to three linked lists of c_binding structures.
 232    These describe the values of the identifier in the three different
 233    namespaces defined by the language.  */
 234
 235 struct lang_identifier GTY(())
 236 {
 237   struct c_common_identifier common_id;
 238   struct c_binding *symbol_binding; /* vars, funcs, constants, typedefs */
 239   struct c_binding *tag_binding;    /* struct/union/enum tags */
 240   struct c_binding *label_binding;  /* labels */
 241 };
 242
 243 /* Validate c-lang.c's assumptions.  */
 244 extern char C_SIZEOF_STRUCT_LANG_IDENTIFIER_isnt_accurate
 245 [(sizeof(struct lang_identifier) == C_SIZEOF_STRUCT_LANG_IDENTIFIER) ? 1 : -1];
 246
 247 /* The resulting tree type.  */
 248
 249 union lang_tree_node
 250   GTY((desc ("TREE_CODE (&%h.generic) == IDENTIFIER_NODE"),
 251        chain_next ("TREE_CODE (&%h.generic) == INTEGER_TYPE ? (union lang_tree_node *) TYPE_NEXT_VARIANT (&%h.generic) : ((union lang_tree_node *) GENERIC_NEXT (&%h.generic))")))
 252 {
 253   union tree_node GTY ((tag ("0"),
 254                         desc ("tree_node_structure (&%h)")))
 255     generic;
 256   struct lang_identifier GTY ((tag ("1"))) identifier;
 257 };
 258
 259 /* Each c_scope structure describes the complete contents of one
 260    scope.  Four scopes are distinguished specially: the innermost or
 261    current scope, the innermost function scope, the file scope (always
 262    the second to outermost) and the outermost or external scope.
 263
 264    Most declarations are recorded in the current scope.
 265
 266    All normal label declarations are recorded in the innermost
 267    function scope, as are bindings of undeclared identifiers to
 268    error_mark_node.  (GCC permits nested functions as an extension,
 269    hence the 'innermost' qualifier.)  Explicitly declared labels
 270    (using the __label__ extension) appear in the current scope.
 271
 272    Being in the file scope (current_scope == file_scope) causes
 273    special behavior in several places below.  Also, under some
 274    conditions the Objective-C front end records declarations in the
 275    file scope even though that isn't the current scope.
 276
 277    All declarations with external linkage are recorded in the external
 278    scope, even if they aren't visible there; this models the fact that
 279    such declarations are visible to the entire program, and (with a
 280    bit of cleverness, see pushdecl) allows diagnosis of some violations
 281    of C99 6.2.2p7 and 6.2.7p2:
 282
 283      If, within the same translation unit, the same identifier appears
 284      with both internal and external linkage, the behavior is
 285      undefined.
 286
 287      All declarations that refer to the same object or function shall
 288      have compatible type; otherwise, the behavior is undefined.
 289
 290    Initially only the built-in declarations, which describe compiler
 291    intrinsic functions plus a subset of the standard library, are in
 292    this scope.
 293
 294    The order of the blocks list matters, and it is frequently appended
 295    to.  To avoid having to walk all the way to the end of the list on
 296    each insertion, or reverse the list later, we maintain a pointer to
 297    the last list entry.  (FIXME: It should be feasible to use a reversed
 298    list here.)
 299
 300    The bindings list is strictly in reverse order of declarations;
 301    pop_scope relies on this.  */
 302
 303
 304 struct c_scope GTY((chain_next ("%h.outer")))
 305 {
 306   /* The scope containing this one.  */
 307   struct c_scope *outer;
 308
 309   /* The next outermost function scope.  */
 310   struct c_scope *outer_function;
 311
 312   /* All bindings in this scope.  */
 313   struct c_binding *bindings;
 314
 315   /* For each scope (except the global one), a chain of BLOCK nodes
 316      for all the scopes that were entered and exited one level down.  */
 317   tree blocks;
 318   tree blocks_last;
 319
 320   /* The depth of this scope.  Used to keep the ->shadowed chain of
 321      bindings sorted innermost to outermost.  */
 322   unsigned int depth : 28;
 323
 324   /* True if we are currently filling this scope with parameter
 325      declarations.  */
 326   BOOL_BITFIELD parm_flag : 1;
 327
 328   /* True if we saw [*] in this scope.  Used to give an error messages
 329      if these appears in a function definition.  */
 330   BOOL_BITFIELD had_vla_unspec : 1;
 331
 332   /* True if we already complained about forward parameter decls
 333      in this scope.  This prevents double warnings on
 334      foo (int a; int b; ...)  */
 335   BOOL_BITFIELD warned_forward_parm_decls : 1;
 336
 337   /* True if this is the outermost block scope of a function body.
 338      This scope contains the parameters, the local variables declared
 339      in the outermost block, and all the labels (except those in
 340      nested functions, or declared at block scope with __label__).  */
 341   BOOL_BITFIELD function_body : 1;
 342
 343   /* True means make a BLOCK for this scope no matter what.  */
 344   BOOL_BITFIELD keep : 1;
 345 };
 346
 347 /* The scope currently in effect.  */
 348
 349 static GTY(()) struct c_scope *current_scope;
 350
 351 /* The innermost function scope.  Ordinary (not explicitly declared)
 352    labels, bindings to error_mark_node, and the lazily-created
 353    bindings of __func__ and its friends get this scope.  */
 354
 355 static GTY(()) struct c_scope *current_function_scope;
 356
 357 /* The C file scope.  This is reset for each input translation unit.  */
 358
 359 static GTY(()) struct c_scope *file_scope;
 360
 361 /* The outermost scope.  This is used for all declarations with
 362    external linkage, and only these, hence the name.  */
 363
 364 static GTY(()) struct c_scope *external_scope;
 365
 366 /* A chain of c_scope structures awaiting reuse.  */
 367
 368 static GTY((deletable)) struct c_scope *scope_freelist;
 369
 370 /* A chain of c_binding structures awaiting reuse.  */
 371
 372 static GTY((deletable)) struct c_binding *binding_freelist;
 373
 374 /* Append VAR to LIST in scope SCOPE.  */
 375 #define SCOPE_LIST_APPEND(scope, list, decl) do {       \
 376   struct c_scope *s_ = (scope);                         \
 377   tree d_ = (decl);                                     \
 378   if (s_->list##_last)                                  \
 379     TREE_CHAIN (s_->list##_last) = d_;                  \
 380   else                                                  \
 381     s_->list = d_;                                      \
 382   s_->list##_last = d_;                                 \
 383 } while (0)
 384
 385 /* Concatenate FROM in scope FSCOPE onto TO in scope TSCOPE.  */
 386 #define SCOPE_LIST_CONCAT(tscope, to, fscope, from) do {        \
 387   struct c_scope *t_ = (tscope);                                \
 388   struct c_scope *f_ = (fscope);                                \
 389   if (t_->to##_last)                                            \
 390     TREE_CHAIN (t_->to##_last) = f_->from;                      \
 391   else                                                          \
 392     t_->to = f_->from;                                          \
 393   t_->to##_last = f_->from##_last;                              \
 394 } while (0)
 395
 396 /* True means unconditionally make a BLOCK for the next scope pushed.  */
 397
 398 static bool keep_next_level_flag;
 399
 400 /* True means the next call to push_scope will be the outermost scope
 401    of a function body, so do not push a new scope, merely cease
 402    expecting parameter decls.  */
 403
 404 static bool next_is_function_body;
 405
 406 /* Forward declarations.  */
 407 static tree lookup_name_in_scope (tree, struct c_scope *);
 408 static tree c_make_fname_decl (tree, int);
 409 static tree grokdeclarator (const struct c_declarator *,
 410                             struct c_declspecs *,
 411                             enum decl_context, bool, tree *,
 412                             enum deprecated_states);
 413 static tree grokparms (struct c_arg_info *, bool);
 414 static void layout_array_type (tree);
 415 \f
 416 /* T is a statement.  Add it to the statement-tree.  This is the
 417    C/ObjC version--C++ has a slightly different version of this
 418    function.  */
 419
 420 tree
 421 add_stmt (tree t)
 422 {
 423   enum tree_code code = TREE_CODE (t);
 424
 425   if (CAN_HAVE_LOCATION_P (t) && code != LABEL_EXPR)
 426     {
 427       if (!EXPR_HAS_LOCATION (t))
 428         SET_EXPR_LOCATION (t, input_location);
 429     }
 430
 431   if (code == LABEL_EXPR || code == CASE_LABEL_EXPR)
 432     STATEMENT_LIST_HAS_LABEL (cur_stmt_list) = 1;
 433
 434   /* Add T to the statement-tree.  Non-side-effect statements need to be
 435      recorded during statement expressions.  */
 436   append_to_statement_list_force (t, &cur_stmt_list);
 437
 438   return t;
 439 }
 440 \f
 441
 442 void
 443 c_print_identifier (FILE *file, tree node, int indent)
 444 {
 445   print_node (file, "symbol", I_SYMBOL_DECL (node), indent + 4);
 446   print_node (file, "tag", I_TAG_DECL (node), indent + 4);
 447   print_node (file, "label", I_LABEL_DECL (node), indent + 4);
 448   if (C_IS_RESERVED_WORD (node))
 449     {
 450       tree rid = ridpointers[C_RID_CODE (node)];
 451       indent_to (file, indent + 4);
 452       fprintf (file, "rid %p \"%s\"",
 453                (void *) rid, IDENTIFIER_POINTER (rid));
 454     }
 455 }
 456
 457 /* Establish a binding between NAME, an IDENTIFIER_NODE, and DECL,
 458    which may be any of several kinds of DECL or TYPE or error_mark_node,
 459    in the scope SCOPE.  */
 460 static void
 461 bind (tree name, tree decl, struct c_scope *scope, bool invisible, bool nested)
 462 {
 463   struct c_binding *b, **here;
 464
 465   if (binding_freelist)
 466     {
 467       b = binding_freelist;
 468       binding_freelist = b->prev;
 469     }
 470   else
 471     b = GGC_NEW (struct c_binding);
 472
 473   b->shadowed = 0;
 474   b->decl = decl;
 475   b->id = name;
 476   b->depth = scope->depth;
 477   b->invisible = invisible;
 478   b->nested = nested;
 479   b->inner_comp = 0;
 480
 481   b->type = 0;
 482
 483   b->prev = scope->bindings;
 484   scope->bindings = b;
 485
 486   if (!name)
 487     return;
 488
 489   switch (TREE_CODE (decl))
 490     {
 491     case LABEL_DECL:     here = &I_LABEL_BINDING (name);   break;
 492     case ENUMERAL_TYPE:
 493     case UNION_TYPE:
 494     case RECORD_TYPE:    here = &I_TAG_BINDING (name);     break;
 495     case VAR_DECL:
 496     case FUNCTION_DECL:
 497     case TYPE_DECL:
 498     case CONST_DECL:
 499     case PARM_DECL:
 500     case ERROR_MARK:     here = &I_SYMBOL_BINDING (name);  break;
 501
 502     default:
 503       gcc_unreachable ();
 504     }
 505
 506   /* Locate the appropriate place in the chain of shadowed decls
 507      to insert this binding.  Normally, scope == current_scope and
 508      this does nothing.  */
 509   while (*here && (*here)->depth > scope->depth)
 510     here = &(*here)->shadowed;
 511
 512   b->shadowed = *here;
 513   *here = b;
 514 }
 515
 516 /* Clear the binding structure B, stick it on the binding_freelist,
 517    and return the former value of b->prev.  This is used by pop_scope
 518    and get_parm_info to iterate destructively over all the bindings
 519    from a given scope.  */
 520 static struct c_binding *
 521 free_binding_and_advance (struct c_binding *b)
 522 {
 523   struct c_binding *prev = b->prev;
 524
 525   memset (b, 0, sizeof (struct c_binding));
 526   b->prev = binding_freelist;
 527   binding_freelist = b;
 528
 529   return prev;
 530 }
 531
 532 \f
 533 /* Hook called at end of compilation to assume 1 elt
 534    for a file-scope tentative array defn that wasn't complete before.  */
 535
 536 void
 537 c_finish_incomplete_decl (tree decl)
 538 {
 539   if (TREE_CODE (decl) == VAR_DECL)
 540     {
 541       tree type = TREE_TYPE (decl);
 542       if (type != error_mark_node
 543           && TREE_CODE (type) == ARRAY_TYPE
 544           && !DECL_EXTERNAL (decl)
 545           && TYPE_DOMAIN (type) == 0)
 546         {
 547           warning (0, "array %q+D assumed to have one element", decl);
 548
 549           complete_array_type (&TREE_TYPE (decl), NULL_TREE, true);
 550
 551           layout_decl (decl, 0);
 552         }
 553     }
 554 }
 555 \f
 556 /* The Objective-C front-end often needs to determine the current scope.  */
 557
 558 void *
 559 objc_get_current_scope (void)
 560 {
 561   return current_scope;
 562 }
 563
 564 /* The following function is used only by Objective-C.  It needs to live here
 565    because it accesses the innards of c_scope.  */
 566
 567 void
 568 objc_mark_locals_volatile (void *enclosing_blk)
 569 {
 570   struct c_scope *scope;
 571   struct c_binding *b;
 572
 573   for (scope = current_scope;
 574        scope && scope != enclosing_blk;
 575        scope = scope->outer)
 576     {
 577       for (b = scope->bindings; b; b = b->prev)
 578         objc_volatilize_decl (b->decl);
 579
 580       /* Do not climb up past the current function.  */
 581       if (scope->function_body)
 582         break;
 583     }
 584 }
 585
 586 /* Nonzero if we are currently in file scope.  */
 587
 588 int
 589 global_bindings_p (void)
 590 {
 591   return current_scope == file_scope && !c_override_global_bindings_to_false;
 592 }
 593
 594 void
 595 keep_next_level (void)
 596 {
 597   keep_next_level_flag = true;
 598 }
 599
 600 /* Identify this scope as currently being filled with parameters.  */
 601
 602 void
 603 declare_parm_level (void)
 604 {
 605   current_scope->parm_flag = true;
 606 }
 607
 608 void
 609 push_scope (void)
 610 {
 611   if (next_is_function_body)
 612     {
 613       /* This is the transition from the parameters to the top level
 614          of the function body.  These are the same scope
 615          (C99 6.2.1p4,6) so we do not push another scope structure.
 616          next_is_function_body is set only by store_parm_decls, which
 617          in turn is called when and only when we are about to
 618          encounter the opening curly brace for the function body.
 619
 620          The outermost block of a function always gets a BLOCK node,
 621          because the debugging output routines expect that each
 622          function has at least one BLOCK.  */
 623       current_scope->parm_flag         = false;
 624       current_scope->function_body     = true;
 625       current_scope->keep              = true;
 626       current_scope->outer_function    = current_function_scope;
 627       current_function_scope           = current_scope;
 628
 629       keep_next_level_flag = false;
 630       next_is_function_body = false;
 631     }
 632   else
 633     {
 634       struct c_scope *scope;
 635       if (scope_freelist)
 636         {
 637           scope = scope_freelist;
 638           scope_freelist = scope->outer;
 639         }
 640       else
 641         scope = GGC_CNEW (struct c_scope);
 642
 643       scope->keep          = keep_next_level_flag;
 644       scope->outer         = current_scope;
 645       scope->depth         = current_scope ? (current_scope->depth + 1) : 0;
 646
 647       /* Check for scope depth overflow.  Unlikely (2^28 == 268,435,456) but
 648          possible.  */
 649       if (current_scope && scope->depth == 0)
 650         {
 651           scope->depth--;
 652           sorry ("GCC supports only %u nested scopes", scope->depth);
 653         }
 654
 655       current_scope        = scope;
 656       keep_next_level_flag = false;
 657     }
 658 }
 659
 660 /* Set the TYPE_CONTEXT of all of TYPE's variants to CONTEXT.  */
 661
 662 static void
 663 set_type_context (tree type, tree context)
 664 {
 665   for (type = TYPE_MAIN_VARIANT (type); type;
 666        type = TYPE_NEXT_VARIANT (type))
 667     TYPE_CONTEXT (type) = context;
 668 }
 669
 670 /* Exit a scope.  Restore the state of the identifier-decl mappings
 671    that were in effect when this scope was entered.  Return a BLOCK
 672    node containing all the DECLs in this scope that are of interest
 673    to debug info generation.  */
 674
 675 tree
 676 pop_scope (void)
 677 {
 678   struct c_scope *scope = current_scope;
 679   tree block, context, p;
 680   struct c_binding *b;
 681
 682   bool functionbody = scope->function_body;
 683   bool keep = functionbody || scope->keep || scope->bindings;
 684
 685   c_end_vm_scope (scope->depth);
 686
 687   /* If appropriate, create a BLOCK to record the decls for the life
 688      of this function.  */
 689   block = 0;
 690   if (keep)
 691     {
 692       block = make_node (BLOCK);
 693       BLOCK_SUBBLOCKS (block) = scope->blocks;
 694       TREE_USED (block) = 1;
 695
 696       /* In each subblock, record that this is its superior.  */
 697       for (p = scope->blocks; p; p = TREE_CHAIN (p))
 698         BLOCK_SUPERCONTEXT (p) = block;
 699
 700       BLOCK_VARS (block) = 0;
 701     }
 702
 703   /* The TYPE_CONTEXTs for all of the tagged types belonging to this
 704      scope must be set so that they point to the appropriate
 705      construct, i.e.  either to the current FUNCTION_DECL node, or
 706      else to the BLOCK node we just constructed.
 707
 708      Note that for tagged types whose scope is just the formal
 709      parameter list for some function type specification, we can't
 710      properly set their TYPE_CONTEXTs here, because we don't have a
 711      pointer to the appropriate FUNCTION_TYPE node readily available
 712      to us.  For those cases, the TYPE_CONTEXTs of the relevant tagged
 713      type nodes get set in `grokdeclarator' as soon as we have created
 714      the FUNCTION_TYPE node which will represent the "scope" for these
 715      "parameter list local" tagged types.  */
 716   if (scope->function_body)
 717     context = current_function_decl;
 718   else if (scope == file_scope)
 719     {
 720       tree file_decl = build_decl (TRANSLATION_UNIT_DECL, 0, 0);
 721       TREE_CHAIN (file_decl) = all_translation_units;
 722       all_translation_units = file_decl;
 723       context = file_decl;
 724     }
 725   else
 726     context = block;
 727
 728   /* Clear all bindings in this scope.  */
 729   for (b = scope->bindings; b; b = free_binding_and_advance (b))
 730     {
 731       p = b->decl;
 732       switch (TREE_CODE (p))
 733         {
 734         case LABEL_DECL:
 735           /* Warnings for unused labels, errors for undefined labels.  */
 736           if (TREE_USED (p) && !DECL_INITIAL (p))
 737             {
 738               error ("label %q+D used but not defined", p);
 739               DECL_INITIAL (p) = error_mark_node;
 740             }
 741           else
 742             warn_for_unused_label (p);
 743
 744           /* Labels go in BLOCK_VARS.  */
 745           TREE_CHAIN (p) = BLOCK_VARS (block);
 746           BLOCK_VARS (block) = p;
 747           gcc_assert (I_LABEL_BINDING (b->id) == b);
 748           I_LABEL_BINDING (b->id) = b->shadowed;
 749           break;
 750
 751         case ENUMERAL_TYPE:
 752         case UNION_TYPE:
 753         case RECORD_TYPE:
 754           set_type_context (p, context);
 755
 756           /* Types may not have tag-names, in which case the type
 757              appears in the bindings list with b->id NULL.  */
 758           if (b->id)
 759             {
 760               gcc_assert (I_TAG_BINDING (b->id) == b);
 761               I_TAG_BINDING (b->id) = b->shadowed;
 762             }
 763           break;
 764
 765         case FUNCTION_DECL:
 766           /* Propagate TREE_ADDRESSABLE from nested functions to their
 767              containing functions.  */
 768           if (!TREE_ASM_WRITTEN (p)
 769               && DECL_INITIAL (p) != 0
 770               && TREE_ADDRESSABLE (p)
 771               && DECL_ABSTRACT_ORIGIN (p) != 0
 772               && DECL_ABSTRACT_ORIGIN (p) != p)
 773             TREE_ADDRESSABLE (DECL_ABSTRACT_ORIGIN (p)) = 1;
 774           if (!DECL_EXTERNAL (p)
 775               && !DECL_INITIAL (p)
 776               && scope != file_scope
 777               && scope != external_scope)
 778             {
 779               error ("nested function %q+D declared but never defined", p);
 780               undef_nested_function = true;
 781             }
 782           /* C99 6.7.4p6: "a function with external linkage... declared
 783              with an inline function specifier ... shall also be defined in the
 784              same translation unit."  */
 785           else if (DECL_DECLARED_INLINE_P (p)
 786                    && TREE_PUBLIC (p)
 787                    && !DECL_INITIAL (p)
 788                    && !flag_gnu89_inline)
 789             pedwarn ("inline function %q+D declared but never defined", p);
 790
 791           goto common_symbol;
 792
 793         case VAR_DECL:
 794           /* Warnings for unused variables.  */
 795           if (!TREE_USED (p)
 796               && !TREE_NO_WARNING (p)
 797               && !DECL_IN_SYSTEM_HEADER (p)
 798               && DECL_NAME (p)
 799               && !DECL_ARTIFICIAL (p)
 800               && scope != file_scope
 801               && scope != external_scope)
 802             warning (OPT_Wunused_variable, "unused variable %q+D", p);
 803
 804           if (b->inner_comp)
 805             {
 806               error ("type of array %q+D completed incompatibly with"
 807                      " implicit initialization", p);
 808             }
 809
 810           /* Fall through.  */
 811         case TYPE_DECL:
 812         case CONST_DECL:
 813         common_symbol:
 814           /* All of these go in BLOCK_VARS, but only if this is the
 815              binding in the home scope.  */
 816           if (!b->nested)
 817             {
 818               TREE_CHAIN (p) = BLOCK_VARS (block);
 819               BLOCK_VARS (block) = p;
 820             }
 821           /* If this is the file scope, and we are processing more
 822              than one translation unit in this compilation, set
 823              DECL_CONTEXT of each decl to the TRANSLATION_UNIT_DECL.
 824              This makes same_translation_unit_p work, and causes
 825              static declarations to be given disambiguating suffixes.  */
 826           if (scope == file_scope && num_in_fnames > 1)
 827             {
 828               DECL_CONTEXT (p) = context;
 829               if (TREE_CODE (p) == TYPE_DECL)
 830                 set_type_context (TREE_TYPE (p), context);
 831             }
 832
 833           /* Fall through.  */
 834           /* Parameters go in DECL_ARGUMENTS, not BLOCK_VARS, and have
 835              already been put there by store_parm_decls.  Unused-
 836              parameter warnings are handled by function.c.
 837              error_mark_node obviously does not go in BLOCK_VARS and
 838              does not get unused-variable warnings.  */
 839         case PARM_DECL:
 840         case ERROR_MARK:
 841           /* It is possible for a decl not to have a name.  We get
 842              here with b->id NULL in this case.  */
 843           if (b->id)
 844             {
 845               gcc_assert (I_SYMBOL_BINDING (b->id) == b);
 846               I_SYMBOL_BINDING (b->id) = b->shadowed;
 847               if (b->shadowed && b->shadowed->type)
 848                 TREE_TYPE (b->shadowed->decl) = b->shadowed->type;
 849             }
 850           break;
 851
 852         default:
 853           gcc_unreachable ();
 854         }
 855     }
 856
 857
 858   /* Dispose of the block that we just made inside some higher level.  */
 859   if ((scope->function_body || scope == file_scope) && context)
 860     {
 861       DECL_INITIAL (context) = block;
 862       BLOCK_SUPERCONTEXT (block) = context;
 863     }
 864   else if (scope->outer)
 865     {
 866       if (block)
 867         SCOPE_LIST_APPEND (scope->outer, blocks, block);
 868       /* If we did not make a block for the scope just exited, any
 869          blocks made for inner scopes must be carried forward so they
 870          will later become subblocks of something else.  */
 871       else if (scope->blocks)
 872         SCOPE_LIST_CONCAT (scope->outer, blocks, scope, blocks);
 873     }
 874
 875   /* Pop the current scope, and free the structure for reuse.  */
 876   current_scope = scope->outer;
 877   if (scope->function_body)
 878     current_function_scope = scope->outer_function;
 879
 880   memset (scope, 0, sizeof (struct c_scope));
 881   scope->outer = scope_freelist;
 882   scope_freelist = scope;
 883
 884   return block;
 885 }
 886
 887 void
 888 push_file_scope (void)
 889 {
 890   tree decl;
 891
 892   if (file_scope)
 893     return;
 894
 895   push_scope ();
 896   file_scope = current_scope;
 897
 898   start_fname_decls ();
 899
 900   for (decl = visible_builtins; decl; decl = TREE_CHAIN (decl))
 901     bind (DECL_NAME (decl), decl, file_scope,
 902           /*invisible=*/false, /*nested=*/true);
 903 }
 904
 905 void
 906 pop_file_scope (void)
 907 {
 908   /* In case there were missing closebraces, get us back to the global
 909      binding level.  */
 910   while (current_scope != file_scope)
 911     pop_scope ();
 912
 913   /* __FUNCTION__ is defined at file scope ("").  This
 914      call may not be necessary as my tests indicate it
 915      still works without it.  */
 916   finish_fname_decls ();
 917
 918   /* This is the point to write out a PCH if we're doing that.
 919      In that case we do not want to do anything else.  */
 920   if (pch_file)
 921     {
 922       c_common_write_pch ();
 923       return;
 924     }
 925
 926   /* Pop off the file scope and close this translation unit.  */
 927   pop_scope ();
 928   file_scope = 0;
 929
 930   maybe_apply_pending_pragma_weaks ();
 931   cgraph_finalize_compilation_unit ();
 932 }
 933
 934 /* Insert BLOCK at the end of the list of subblocks of the current
 935    scope.  This is used when a BIND_EXPR is expanded, to handle the
 936    BLOCK node inside the BIND_EXPR.  */
 937
 938 void
 939 insert_block (tree block)
 940 {
 941   TREE_USED (block) = 1;
 942   SCOPE_LIST_APPEND (current_scope, blocks, block);
 943 }
 944 \f
 945 /* Push a definition or a declaration of struct, union or enum tag "name".
 946    "type" should be the type node.
 947    We assume that the tag "name" is not already defined.
 948
 949    Note that the definition may really be just a forward reference.
 950    In that case, the TYPE_SIZE will be zero.  */
 951
 952 static void
 953 pushtag (tree name, tree type)
 954 {
 955   /* Record the identifier as the type's name if it has none.  */
 956   if (name && !TYPE_NAME (type))
 957     TYPE_NAME (type) = name;
 958   bind (name, type, current_scope, /*invisible=*/false, /*nested=*/false);
 959
 960   /* Create a fake NULL-named TYPE_DECL node whose TREE_TYPE will be the
 961      tagged type we just added to the current scope.  This fake
 962      NULL-named TYPE_DECL node helps dwarfout.c to know when it needs
 963      to output a representation of a tagged type, and it also gives
 964      us a convenient place to record the "scope start" address for the
 965      tagged type.  */
 966
 967   TYPE_STUB_DECL (type) = pushdecl (build_decl (TYPE_DECL, NULL_TREE, type));
 968
 969   /* An approximation for now, so we can tell this is a function-scope tag.
 970      This will be updated in pop_scope.  */
 971   TYPE_CONTEXT (type) = DECL_CONTEXT (TYPE_STUB_DECL (type));
 972 }
 973 \f
 974 /* Subroutine of compare_decls.  Allow harmless mismatches in return
 975    and argument types provided that the type modes match.  This function
 976    return a unified type given a suitable match, and 0 otherwise.  */
 977
 978 static tree
 979 match_builtin_function_types (tree newtype, tree oldtype)
 980 {
 981   tree newrettype, oldrettype;
 982   tree newargs, oldargs;
 983   tree trytype, tryargs;
 984
 985   /* Accept the return type of the new declaration if same modes.  */
 986   oldrettype = TREE_TYPE (oldtype);
 987   newrettype = TREE_TYPE (newtype);
 988
 989   if (TYPE_MODE (oldrettype) != TYPE_MODE (newrettype))
 990     return 0;
 991
 992   oldargs = TYPE_ARG_TYPES (oldtype);
 993   newargs = TYPE_ARG_TYPES (newtype);
 994   tryargs = newargs;
 995
 996   while (oldargs || newargs)
 997     {
 998       if (!oldargs
 999           || !newargs
1000           || !TREE_VALUE (oldargs)
1001           || !TREE_VALUE (newargs)
1002           || TYPE_MODE (TREE_VALUE (oldargs))
1003              != TYPE_MODE (TREE_VALUE (newargs)))
1004         return 0;
1005
1006       oldargs = TREE_CHAIN (oldargs);
1007       newargs = TREE_CHAIN (newargs);
1008     }
1009
1010   trytype = build_function_type (newrettype, tryargs);
1011   return build_type_attribute_variant (trytype, TYPE_ATTRIBUTES (oldtype));
1012 }
1013
1014 /* Subroutine of diagnose_mismatched_decls.  Check for function type
1015    mismatch involving an empty arglist vs a nonempty one and give clearer
1016    diagnostics.  */
1017 static void
1018 diagnose_arglist_conflict (tree newdecl, tree olddecl,
1019                            tree newtype, tree oldtype)
1020 {
1021   tree t;
1022
1023   if (TREE_CODE (olddecl) != FUNCTION_DECL
1024       || !comptypes (TREE_TYPE (oldtype), TREE_TYPE (newtype))
1025       || !((TYPE_ARG_TYPES (oldtype) == 0 && DECL_INITIAL (olddecl) == 0)
1026            ||
1027            (TYPE_ARG_TYPES (newtype) == 0 && DECL_INITIAL (newdecl) == 0)))
1028     return;
1029
1030   t = TYPE_ARG_TYPES (oldtype);
1031   if (t == 0)
1032     t = TYPE_ARG_TYPES (newtype);
1033   for (; t; t = TREE_CHAIN (t))
1034     {
1035       tree type = TREE_VALUE (t);
1036
1037       if (TREE_CHAIN (t) == 0
1038           && TYPE_MAIN_VARIANT (type) != void_type_node)
1039         {
1040           inform ("a parameter list with an ellipsis can%'t match "
1041                   "an empty parameter name list declaration");
1042           break;
1043         }
1044
1045       if (c_type_promotes_to (type) != type)
1046         {
1047           inform ("an argument type that has a default promotion can%'t match "
1048                   "an empty parameter name list declaration");
1049           break;
1050         }
1051     }
1052 }
1053
1054 /* Another subroutine of diagnose_mismatched_decls.  OLDDECL is an
1055    old-style function definition, NEWDECL is a prototype declaration.
1056    Diagnose inconsistencies in the argument list.  Returns TRUE if
1057    the prototype is compatible, FALSE if not.  */
1058 static bool
1059 validate_proto_after_old_defn (tree newdecl, tree newtype, tree oldtype)
1060 {
1061   tree newargs, oldargs;
1062   int i;
1063
1064 #define END_OF_ARGLIST(t) ((t) == void_type_node)
1065
1066   oldargs = TYPE_ACTUAL_ARG_TYPES (oldtype);
1067   newargs = TYPE_ARG_TYPES (newtype);
1068   i = 1;
1069
1070   for (;;)
1071     {
1072       tree oldargtype = TREE_VALUE (oldargs);
1073       tree newargtype = TREE_VALUE (newargs);
1074
1075       if (oldargtype == error_mark_node || newargtype == error_mark_node)
1076         return false;
1077
1078       oldargtype = TYPE_MAIN_VARIANT (oldargtype);
1079       newargtype = TYPE_MAIN_VARIANT (newargtype);
1080
1081       if (END_OF_ARGLIST (oldargtype) && END_OF_ARGLIST (newargtype))
1082         break;
1083
1084       /* Reaching the end of just one list means the two decls don't
1085          agree on the number of arguments.  */
1086       if (END_OF_ARGLIST (oldargtype))
1087         {
1088           error ("prototype for %q+D declares more arguments "
1089                  "than previous old-style definition", newdecl);
1090           return false;
1091         }
1092       else if (END_OF_ARGLIST (newargtype))
1093         {
1094           error ("prototype for %q+D declares fewer arguments "
1095                  "than previous old-style definition", newdecl);
1096           return false;
1097         }
1098
1099       /* Type for passing arg must be consistent with that declared
1100          for the arg.  */
1101       else if (!comptypes (oldargtype, newargtype))
1102         {
1103           error ("prototype for %q+D declares argument %d"
1104                  " with incompatible type",
1105                  newdecl, i);
1106           return false;
1107         }
1108
1109       oldargs = TREE_CHAIN (oldargs);
1110       newargs = TREE_CHAIN (newargs);
1111       i++;
1112     }
1113
1114   /* If we get here, no errors were found, but do issue a warning
1115      for this poor-style construct.  */
1116   warning (0, "prototype for %q+D follows non-prototype definition",
1117            newdecl);
1118   return true;
1119 #undef END_OF_ARGLIST
1120 }
1121
1122 /* Subroutine of diagnose_mismatched_decls.  Report the location of DECL,
1123    first in a pair of mismatched declarations, using the diagnostic
1124    function DIAG.  */
1125 static void
1126 locate_old_decl (tree decl, void (*diag)(const char *, ...) ATTRIBUTE_GCC_CDIAG(1,2))
1127 {
1128   if (TREE_CODE (decl) == FUNCTION_DECL && DECL_BUILT_IN (decl))
1129     ;
1130   else if (DECL_INITIAL (decl))
1131     diag (G_("previous definition of %q+D was here"), decl);
1132   else if (C_DECL_IMPLICIT (decl))
1133     diag (G_("previous implicit declaration of %q+D was here"), decl);
1134   else
1135     diag (G_("previous declaration of %q+D was here"), decl);
1136 }
1137
1138 /* Subroutine of duplicate_decls.  Compare NEWDECL to OLDDECL.
1139    Returns true if the caller should proceed to merge the two, false
1140    if OLDDECL should simply be discarded.  As a side effect, issues
1141    all necessary diagnostics for invalid or poor-style combinations.
1142    If it returns true, writes the types of NEWDECL and OLDDECL to
1143    *NEWTYPEP and *OLDTYPEP - these may have been adjusted from
1144    TREE_TYPE (NEWDECL, OLDDECL) respectively.  */
1145
1146 static bool
1147 diagnose_mismatched_decls (tree newdecl, tree olddecl,
1148                            tree *newtypep, tree *oldtypep)
1149 {
1150   tree newtype, oldtype;
1151   bool pedwarned = false;
1152   bool warned = false;
1153   bool retval = true;
1154
1155 #define DECL_EXTERN_INLINE(DECL) (DECL_DECLARED_INLINE_P (DECL)  \
1156                                   && DECL_EXTERNAL (DECL))
1157
1158   /* If we have error_mark_node for either decl or type, just discard
1159      the previous decl - we're in an error cascade already.  */
1160   if (olddecl == error_mark_node || newdecl == error_mark_node)
1161     return false;
1162   *oldtypep = oldtype = TREE_TYPE (olddecl);
1163   *newtypep = newtype = TREE_TYPE (newdecl);
1164   if (oldtype == error_mark_node || newtype == error_mark_node)
1165     return false;
1166
1167   /* Two different categories of symbol altogether.  This is an error
1168      unless OLDDECL is a builtin.  OLDDECL will be discarded in any case.  */
1169   if (TREE_CODE (olddecl) != TREE_CODE (newdecl))
1170     {
1171       if (!(TREE_CODE (olddecl) == FUNCTION_DECL
1172             && DECL_BUILT_IN (olddecl)
1173             && !C_DECL_DECLARED_BUILTIN (olddecl)))
1174         {
1175           error ("%q+D redeclared as different kind of symbol", newdecl);
1176           locate_old_decl (olddecl, error);
1177         }
1178       else if (TREE_PUBLIC (newdecl))
1179         warning (0, "built-in function %q+D declared as non-function",
1180                  newdecl);
1181       else
1182         warning (OPT_Wshadow, "declaration of %q+D shadows "
1183                  "a built-in function", newdecl);
1184       return false;
1185     }
1186
1187   /* Enumerators have no linkage, so may only be declared once in a
1188      given scope.  */
1189   if (TREE_CODE (olddecl) == CONST_DECL)
1190     {
1191       error ("redeclaration of enumerator %q+D", newdecl);
1192       locate_old_decl (olddecl, error);
1193       return false;
1194     }
1195
1196   if (!comptypes (oldtype, newtype))
1197     {
1198       if (TREE_CODE (olddecl) == FUNCTION_DECL
1199           && DECL_BUILT_IN (olddecl) && !C_DECL_DECLARED_BUILTIN (olddecl))
1200         {
1201           /* Accept harmless mismatch in function types.
1202              This is for the ffs and fprintf builtins.  */
1203           tree trytype = match_builtin_function_types (newtype, oldtype);
1204
1205           if (trytype && comptypes (newtype, trytype))
1206             *oldtypep = oldtype = trytype;
1207           else
1208             {
1209               /* If types don't match for a built-in, throw away the
1210                  built-in.  No point in calling locate_old_decl here, it
1211                  won't print anything.  */
1212               warning (0, "conflicting types for built-in function %q+D",
1213                        newdecl);
1214               return false;
1215             }
1216         }
1217       else if (TREE_CODE (olddecl) == FUNCTION_DECL
1218                && DECL_IS_BUILTIN (olddecl))
1219         {
1220           /* A conflicting function declaration for a predeclared
1221              function that isn't actually built in.  Objective C uses
1222              these.  The new declaration silently overrides everything
1223              but the volatility (i.e. noreturn) indication.  See also
1224              below.  FIXME: Make Objective C use normal builtins.  */
1225           TREE_THIS_VOLATILE (newdecl) |= TREE_THIS_VOLATILE (olddecl);
1226           return false;
1227         }
1228       /* Permit void foo (...) to match int foo (...) if the latter is
1229          the definition and implicit int was used.  See
1230          c-torture/compile/920625-2.c.  */
1231       else if (TREE_CODE (newdecl) == FUNCTION_DECL && DECL_INITIAL (newdecl)
1232                && TYPE_MAIN_VARIANT (TREE_TYPE (oldtype)) == void_type_node
1233                && TYPE_MAIN_VARIANT (TREE_TYPE (newtype)) == integer_type_node
1234                && C_FUNCTION_IMPLICIT_INT (newdecl) && !DECL_INITIAL (olddecl))
1235         {
1236           pedwarn ("conflicting types for %q+D", newdecl);
1237           /* Make sure we keep void as the return type.  */
1238           TREE_TYPE (newdecl) = *newtypep = newtype = oldtype;
1239           C_FUNCTION_IMPLICIT_INT (newdecl) = 0;
1240           pedwarned = true;
1241         }
1242       /* Permit void foo (...) to match an earlier call to foo (...) with
1243          no declared type (thus, implicitly int).  */
1244       else if (TREE_CODE (newdecl) == FUNCTION_DECL
1245                && TYPE_MAIN_VARIANT (TREE_TYPE (newtype)) == void_type_node
1246                && TYPE_MAIN_VARIANT (TREE_TYPE (oldtype)) == integer_type_node
1247                && C_DECL_IMPLICIT (olddecl) && !DECL_INITIAL (olddecl))
1248         {
1249           pedwarn ("conflicting types for %q+D", newdecl);
1250           /* Make sure we keep void as the return type.  */
1251           TREE_TYPE (olddecl) = *oldtypep = oldtype = newtype;
1252           pedwarned = true;
1253         }
1254       else
1255         {
1256           if (TYPE_QUALS (newtype) != TYPE_QUALS (oldtype))
1257             error ("conflicting type qualifiers for %q+D", newdecl);
1258           else
1259             error ("conflicting types for %q+D", newdecl);
1260           diagnose_arglist_conflict (newdecl, olddecl, newtype, oldtype);
1261           locate_old_decl (olddecl, error);
1262           return false;
1263         }
1264     }
1265
1266   /* Redeclaration of a type is a constraint violation (6.7.2.3p1),
1267      but silently ignore the redeclaration if either is in a system
1268      header.  (Conflicting redeclarations were handled above.)  */
1269   if (TREE_CODE (newdecl) == TYPE_DECL)
1270     {
1271       if (DECL_IN_SYSTEM_HEADER (newdecl) || DECL_IN_SYSTEM_HEADER (olddecl))
1272         return true;  /* Allow OLDDECL to continue in use.  */
1273
1274       error ("redefinition of typedef %q+D", newdecl);
1275       locate_old_decl (olddecl, error);
1276       return false;
1277     }
1278
1279   /* Function declarations can either be 'static' or 'extern' (no
1280      qualifier is equivalent to 'extern' - C99 6.2.2p5) and therefore
1281      can never conflict with each other on account of linkage
1282      (6.2.2p4).  Multiple definitions are not allowed (6.9p3,5) but
1283      gnu89 mode permits two definitions if one is 'extern inline' and
1284      one is not.  The non- extern-inline definition supersedes the
1285      extern-inline definition.  */
1286
1287   else if (TREE_CODE (newdecl) == FUNCTION_DECL)
1288     {
1289       /* If you declare a built-in function name as static, or
1290          define the built-in with an old-style definition (so we
1291          can't validate the argument list) the built-in definition is
1292          overridden, but optionally warn this was a bad choice of name.  */
1293       if (DECL_BUILT_IN (olddecl)
1294           && !C_DECL_DECLARED_BUILTIN (olddecl)
1295           && (!TREE_PUBLIC (newdecl)
1296               || (DECL_INITIAL (newdecl)
1297                   && !TYPE_ARG_TYPES (TREE_TYPE (newdecl)))))
1298         {
1299           warning (OPT_Wshadow, "declaration of %q+D shadows "
1300                    "a built-in function", newdecl);
1301           /* Discard the old built-in function.  */
1302           return false;
1303         }
1304
1305       if (DECL_INITIAL (newdecl))
1306         {
1307           if (DECL_INITIAL (olddecl))
1308             {
1309               /* If both decls are in the same TU and the new declaration
1310                  isn't overriding an extern inline reject the new decl.
1311                  In c99, no overriding is allowed in the same translation
1312                  unit.  */
1313               if ((!DECL_EXTERN_INLINE (olddecl)
1314                    || DECL_EXTERN_INLINE (newdecl)
1315                    || (!flag_gnu89_inline
1316                        && (!DECL_DECLARED_INLINE_P (olddecl)
1317                            || !lookup_attribute ("gnu_inline",
1318                                                  DECL_ATTRIBUTES (olddecl)))
1319                        && (!DECL_DECLARED_INLINE_P (newdecl)
1320                            || !lookup_attribute ("gnu_inline",
1321                                                  DECL_ATTRIBUTES (newdecl))))
1322                   )
1323                   && same_translation_unit_p (newdecl, olddecl))
1324                 {
1325                   error ("redefinition of %q+D", newdecl);
1326                   locate_old_decl (olddecl, error);
1327                   return false;
1328                 }
1329             }
1330         }
1331       /* If we have a prototype after an old-style function definition,
1332          the argument types must be checked specially.  */
1333       else if (DECL_INITIAL (olddecl)
1334                && !TYPE_ARG_TYPES (oldtype) && TYPE_ARG_TYPES (newtype)
1335                && TYPE_ACTUAL_ARG_TYPES (oldtype)
1336                && !validate_proto_after_old_defn (newdecl, newtype, oldtype))
1337         {
1338           locate_old_decl (olddecl, error);
1339           return false;
1340         }
1341       /* A non-static declaration (even an "extern") followed by a
1342          static declaration is undefined behavior per C99 6.2.2p3-5,7.
1343          The same is true for a static forward declaration at block
1344          scope followed by a non-static declaration/definition at file
1345          scope.  Static followed by non-static at the same scope is
1346          not undefined behavior, and is the most convenient way to get
1347          some effects (see e.g.  what unwind-dw2-fde-glibc.c does to
1348          the definition of _Unwind_Find_FDE in unwind-dw2-fde.c), but
1349          we do diagnose it if -Wtraditional.  */
1350       if (TREE_PUBLIC (olddecl) && !TREE_PUBLIC (newdecl))
1351         {
1352           /* Two exceptions to the rule.  If olddecl is an extern
1353              inline, or a predeclared function that isn't actually
1354              built in, newdecl silently overrides olddecl.  The latter
1355              occur only in Objective C; see also above.  (FIXME: Make
1356              Objective C use normal builtins.)  */
1357           if (!DECL_IS_BUILTIN (olddecl)
1358               && !DECL_EXTERN_INLINE (olddecl))
1359             {
1360               error ("static declaration of %q+D follows "
1361                      "non-static declaration", newdecl);
1362               locate_old_decl (olddecl, error);
1363             }
1364           return false;
1365         }
1366       else if (TREE_PUBLIC (newdecl) && !TREE_PUBLIC (olddecl))
1367         {
1368           if (DECL_CONTEXT (olddecl))
1369             {
1370               error ("non-static declaration of %q+D follows "
1371                      "static declaration", newdecl);
1372               locate_old_decl (olddecl, error);
1373               return false;
1374             }
1375           else if (warn_traditional)
1376             {
1377               warning (OPT_Wtraditional, "non-static declaration of %q+D "
1378                        "follows static declaration", newdecl);
1379               warned = true;
1380             }
1381         }
1382
1383       /* Make sure gnu_inline attribute is either not present, or
1384          present on all inline decls.  */
1385       if (DECL_DECLARED_INLINE_P (olddecl)
1386           && DECL_DECLARED_INLINE_P (newdecl))
1387         {
1388           bool newa = lookup_attribute ("gnu_inline",
1389                                         DECL_ATTRIBUTES (newdecl)) != NULL;
1390           bool olda = lookup_attribute ("gnu_inline",
1391                                         DECL_ATTRIBUTES (olddecl)) != NULL;
1392           if (newa != olda)
1393             {
1394               error ("%<gnu_inline%> attribute present on %q+D",
1395                      newa ? newdecl : olddecl);
1396               error ("%Jbut not here", newa ? olddecl : newdecl);
1397             }
1398         }
1399     }
1400   else if (TREE_CODE (newdecl) == VAR_DECL)
1401     {
1402       /* Only variables can be thread-local, and all declarations must
1403          agree on this property.  */
1404       if (C_DECL_THREADPRIVATE_P (olddecl) && !DECL_THREAD_LOCAL_P (newdecl))
1405         {
1406           /* Nothing to check.  Since OLDDECL is marked threadprivate
1407              and NEWDECL does not have a thread-local attribute, we
1408              will merge the threadprivate attribute into NEWDECL.  */
1409           ;
1410         }
1411       else if (DECL_THREAD_LOCAL_P (newdecl) != DECL_THREAD_LOCAL_P (olddecl))
1412         {
1413           if (DECL_THREAD_LOCAL_P (newdecl))
1414             error ("thread-local declaration of %q+D follows "
1415                    "non-thread-local declaration", newdecl);
1416           else
1417             error ("non-thread-local declaration of %q+D follows "
1418                    "thread-local declaration", newdecl);
1419
1420           locate_old_decl (olddecl, error);
1421           return false;
1422         }
1423
1424       /* Multiple initialized definitions are not allowed (6.9p3,5).  */
1425       if (DECL_INITIAL (newdecl) && DECL_INITIAL (olddecl))
1426         {
1427           error ("redefinition of %q+D", newdecl);
1428           locate_old_decl (olddecl, error);
1429           return false;
1430         }
1431
1432       /* Objects declared at file scope: if the first declaration had
1433          external linkage (even if it was an external reference) the
1434          second must have external linkage as well, or the behavior is
1435          undefined.  If the first declaration had internal linkage, then
1436          the second must too, or else be an external reference (in which
1437          case the composite declaration still has internal linkage).
1438          As for function declarations, we warn about the static-then-
1439          extern case only for -Wtraditional.  See generally 6.2.2p3-5,7.  */
1440       if (DECL_FILE_SCOPE_P (newdecl)
1441           && TREE_PUBLIC (newdecl) != TREE_PUBLIC (olddecl))
1442         {
1443           if (DECL_EXTERNAL (newdecl))
1444             {
1445               if (!DECL_FILE_SCOPE_P (olddecl))
1446                 {
1447                   error ("extern declaration of %q+D follows "
1448                          "declaration with no linkage", newdecl);
1449                   locate_old_decl (olddecl, error);
1450                   return false;
1451                 }
1452               else if (warn_traditional)
1453                 {
1454                   warning (OPT_Wtraditional, "non-static declaration of %q+D "
1455                            "follows static declaration", newdecl);
1456                   warned = true;
1457                 }
1458             }
1459           else
1460             {
1461               if (TREE_PUBLIC (newdecl))
1462                 error ("non-static declaration of %q+D follows "
1463                        "static declaration", newdecl);
1464               else
1465                 error ("static declaration of %q+D follows "
1466                        "non-static declaration", newdecl);
1467
1468               locate_old_decl (olddecl, error);
1469               return false;
1470             }
1471         }
1472       /* Two objects with the same name declared at the same block
1473          scope must both be external references (6.7p3).  */
1474       else if (!DECL_FILE_SCOPE_P (newdecl))
1475         {
1476           if (DECL_EXTERNAL (newdecl))
1477             {
1478               /* Extern with initializer at block scope, which will
1479                  already have received an error.  */
1480             }
1481           else if (DECL_EXTERNAL (olddecl))
1482             {
1483               error ("declaration of %q+D with no linkage follows "
1484                      "extern declaration", newdecl);
1485               locate_old_decl (olddecl, error);
1486             }
1487           else
1488             {
1489               error ("redeclaration of %q+D with no linkage", newdecl);
1490               locate_old_decl (olddecl, error);
1491             }
1492
1493           return false;
1494         }
1495     }
1496
1497   /* warnings */
1498   /* All decls must agree on a visibility.  */
1499   if (CODE_CONTAINS_STRUCT (TREE_CODE (newdecl), TS_DECL_WITH_VIS)
1500       && DECL_VISIBILITY_SPECIFIED (newdecl) && DECL_VISIBILITY_SPECIFIED (olddecl)
1501       && DECL_VISIBILITY (newdecl) != DECL_VISIBILITY (olddecl))
1502     {
1503       warning (0, "redeclaration of %q+D with different visibility "
1504                "(old visibility preserved)", newdecl);
1505       warned = true;
1506     }
1507
1508   if (TREE_CODE (newdecl) == FUNCTION_DECL)
1509     {
1510       /* Diagnose inline __attribute__ ((noinline)) which is silly.  */
1511       if (DECL_DECLARED_INLINE_P (newdecl)
1512           && lookup_attribute ("noinline", DECL_ATTRIBUTES (olddecl)))
1513         {
1514           warning (OPT_Wattributes, "inline declaration of %qD follows "
1515                    "declaration with attribute noinline", newdecl);
1516           warned = true;
1517         }
1518       else if (DECL_DECLARED_INLINE_P (olddecl)
1519                && lookup_attribute ("noinline", DECL_ATTRIBUTES (newdecl)))
1520         {
1521           warning (OPT_Wattributes, "declaration of %q+D with attribute "
1522                    "noinline follows inline declaration ", newdecl);
1523           warned = true;
1524         }
1525
1526       /* Inline declaration after use or definition.
1527          ??? Should we still warn about this now we have unit-at-a-time
1528          mode and can get it right?
1529          Definitely don't complain if the decls are in different translation
1530          units.
1531          C99 permits this, so don't warn in that case.  (The function
1532          may not be inlined everywhere in function-at-a-time mode, but
1533          we still shouldn't warn.)  */
1534       if (DECL_DECLARED_INLINE_P (newdecl) && !DECL_DECLARED_INLINE_P (olddecl)
1535           && same_translation_unit_p (olddecl, newdecl)
1536           && flag_gnu89_inline)
1537         {
1538           if (TREE_USED (olddecl))
1539             {
1540               warning (0, "%q+D declared inline after being called", olddecl);
1541               warned = true;
1542             }
1543           else if (DECL_INITIAL (olddecl))
1544             {
1545               warning (0, "%q+D declared inline after its definition", olddecl);
1546               warned = true;
1547             }
1548         }
1549     }
1550   else /* PARM_DECL, VAR_DECL */
1551     {
1552       /* Redeclaration of a parameter is a constraint violation (this is
1553          not explicitly stated, but follows from C99 6.7p3 [no more than
1554          one declaration of the same identifier with no linkage in the
1555          same scope, except type tags] and 6.2.2p6 [parameters have no
1556          linkage]).  We must check for a forward parameter declaration,
1557          indicated by TREE_ASM_WRITTEN on the old declaration - this is
1558          an extension, the mandatory diagnostic for which is handled by
1559          mark_forward_parm_decls.  */
1560
1561       if (TREE_CODE (newdecl) == PARM_DECL
1562           && (!TREE_ASM_WRITTEN (olddecl) || TREE_ASM_WRITTEN (newdecl)))
1563         {
1564           error ("redefinition of parameter %q+D", newdecl);
1565           locate_old_decl (olddecl, error);
1566           return false;
1567         }
1568     }
1569
1570   /* Optional warning for completely redundant decls.  */
1571   if (!warned && !pedwarned
1572       && warn_redundant_decls
1573       /* Don't warn about a function declaration followed by a
1574          definition.  */
1575       && !(TREE_CODE (newdecl) == FUNCTION_DECL
1576            && DECL_INITIAL (newdecl) && !DECL_INITIAL (olddecl))
1577       /* Don't warn about redundant redeclarations of builtins.  */
1578       && !(TREE_CODE (newdecl) == FUNCTION_DECL
1579            && !DECL_BUILT_IN (newdecl)
1580            && DECL_BUILT_IN (olddecl)
1581            && !C_DECL_DECLARED_BUILTIN (olddecl))
1582       /* Don't warn about an extern followed by a definition.  */
1583       && !(DECL_EXTERNAL (olddecl) && !DECL_EXTERNAL (newdecl))
1584       /* Don't warn about forward parameter decls.  */
1585       && !(TREE_CODE (newdecl) == PARM_DECL
1586            && TREE_ASM_WRITTEN (olddecl) && !TREE_ASM_WRITTEN (newdecl))
1587       /* Don't warn about a variable definition following a declaration.  */
1588       && !(TREE_CODE (newdecl) == VAR_DECL
1589            && DECL_INITIAL (newdecl) && !DECL_INITIAL (olddecl)))
1590     {
1591       warning (OPT_Wredundant_decls, "redundant redeclaration of %q+D",
1592                newdecl);
1593       warned = true;
1594     }
1595
1596   /* Report location of previous decl/defn in a consistent manner.  */
1597   if (warned || pedwarned)
1598     locate_old_decl (olddecl, pedwarned ? pedwarn : warning0);
1599
1600 #undef DECL_EXTERN_INLINE
1601
1602   return retval;
1603 }
1604
1605 /* Subroutine of duplicate_decls.  NEWDECL has been found to be
1606    consistent with OLDDECL, but carries new information.  Merge the
1607    new information into OLDDECL.  This function issues no
1608    diagnostics.  */
1609
1610 static void
1611 merge_decls (tree newdecl, tree olddecl, tree newtype, tree oldtype)
1612 {
1613   bool new_is_definition = (TREE_CODE (newdecl) == FUNCTION_DECL
1614                             && DECL_INITIAL (newdecl) != 0);
1615   bool new_is_prototype = (TREE_CODE (newdecl) == FUNCTION_DECL
1616                            && TYPE_ARG_TYPES (TREE_TYPE (newdecl)) != 0);
1617   bool old_is_prototype = (TREE_CODE (olddecl) == FUNCTION_DECL
1618                            && TYPE_ARG_TYPES (TREE_TYPE (olddecl)) != 0);
1619   bool extern_changed = false;
1620
1621   /* For real parm decl following a forward decl, rechain the old decl
1622      in its new location and clear TREE_ASM_WRITTEN (it's not a
1623      forward decl anymore).  */
1624   if (TREE_CODE (newdecl) == PARM_DECL
1625       && TREE_ASM_WRITTEN (olddecl) && !TREE_ASM_WRITTEN (newdecl))
1626     {
1627       struct c_binding *b, **here;
1628
1629       for (here = &current_scope->bindings; *here; here = &(*here)->prev)
1630         if ((*here)->decl == olddecl)
1631           goto found;
1632       gcc_unreachable ();
1633
1634     found:
1635       b = *here;
1636       *here = b->prev;
1637       b->prev = current_scope->bindings;
1638       current_scope->bindings = b;
1639
1640       TREE_ASM_WRITTEN (olddecl) = 0;
1641     }
1642
1643   DECL_ATTRIBUTES (newdecl)
1644     = targetm.merge_decl_attributes (olddecl, newdecl);
1645
1646   /* Merge the data types specified in the two decls.  */
1647   TREE_TYPE (newdecl)
1648     = TREE_TYPE (olddecl)
1649     = composite_type (newtype, oldtype);
1650
1651   /* Lay the type out, unless already done.  */
1652   if (!comptypes (oldtype, TREE_TYPE (newdecl)))
1653     {
1654       if (TREE_TYPE (newdecl) != error_mark_node)
1655         layout_type (TREE_TYPE (newdecl));
1656       if (TREE_CODE (newdecl) != FUNCTION_DECL
1657           && TREE_CODE (newdecl) != TYPE_DECL
1658           && TREE_CODE (newdecl) != CONST_DECL)
1659         layout_decl (newdecl, 0);
1660     }
1661   else
1662     {
1663       /* Since the type is OLDDECL's, make OLDDECL's size go with.  */
1664       DECL_SIZE (newdecl) = DECL_SIZE (olddecl);
1665       DECL_SIZE_UNIT (newdecl) = DECL_SIZE_UNIT (olddecl);
1666       DECL_MODE (newdecl) = DECL_MODE (olddecl);
1667       if (TREE_CODE (olddecl) != FUNCTION_DECL)
1668         if (DECL_ALIGN (olddecl) > DECL_ALIGN (newdecl))
1669           {
1670             DECL_ALIGN (newdecl) = DECL_ALIGN (olddecl);
1671             DECL_USER_ALIGN (newdecl) |= DECL_ALIGN (olddecl);
1672           }
1673     }
1674
1675
1676   /* Merge the type qualifiers.  */
1677   if (TREE_READONLY (newdecl))
1678     TREE_READONLY (olddecl) = 1;
1679
1680   if (TREE_THIS_VOLATILE (newdecl))
1681     TREE_THIS_VOLATILE (olddecl) = 1;
1682
1683   /* Merge deprecatedness.  */
1684   if (TREE_DEPRECATED (newdecl))
1685     TREE_DEPRECATED (olddecl) = 1;
1686
1687   /* Keep source location of definition rather than declaration and of
1688      prototype rather than non-prototype unless that prototype is
1689      built-in.  */
1690   if ((DECL_INITIAL (newdecl) == 0 && DECL_INITIAL (olddecl) != 0)
1691       || (old_is_prototype && !new_is_prototype
1692           && !C_DECL_BUILTIN_PROTOTYPE (olddecl)))
1693     DECL_SOURCE_LOCATION (newdecl) = DECL_SOURCE_LOCATION (olddecl);
1694
1695   /* Merge the initialization information.  */
1696    if (DECL_INITIAL (newdecl) == 0)
1697     DECL_INITIAL (newdecl) = DECL_INITIAL (olddecl);
1698
1699   /* Merge the threadprivate attribute.  */
1700   if (TREE_CODE (olddecl) == VAR_DECL && C_DECL_THREADPRIVATE_P (olddecl))
1701     {
1702       DECL_TLS_MODEL (newdecl) = DECL_TLS_MODEL (olddecl);
1703       C_DECL_THREADPRIVATE_P (newdecl) = 1;
1704     }
1705
1706   if (CODE_CONTAINS_STRUCT (TREE_CODE (olddecl), TS_DECL_WITH_VIS))
1707     {
1708       /* Merge the unused-warning information.  */
1709       if (DECL_IN_SYSTEM_HEADER (olddecl))
1710         DECL_IN_SYSTEM_HEADER (newdecl) = 1;
1711       else if (DECL_IN_SYSTEM_HEADER (newdecl))
1712         DECL_IN_SYSTEM_HEADER (olddecl) = 1;
1713
1714       /* Merge the section attribute.
1715          We want to issue an error if the sections conflict but that
1716          must be done later in decl_attributes since we are called
1717          before attributes are assigned.  */
1718       if (DECL_SECTION_NAME (newdecl) == NULL_TREE)
1719         DECL_SECTION_NAME (newdecl) = DECL_SECTION_NAME (olddecl);
1720
1721       /* Copy the assembler name.
1722          Currently, it can only be defined in the prototype.  */
1723       COPY_DECL_ASSEMBLER_NAME (olddecl, newdecl);
1724
1725       /* Use visibility of whichever declaration had it specified */
1726       if (DECL_VISIBILITY_SPECIFIED (olddecl))
1727         {
1728           DECL_VISIBILITY (newdecl) = DECL_VISIBILITY (olddecl);
1729           DECL_VISIBILITY_SPECIFIED (newdecl) = 1;
1730         }
1731
1732       if (TREE_CODE (newdecl) == FUNCTION_DECL)
1733         {
1734           DECL_STATIC_CONSTRUCTOR(newdecl) |= DECL_STATIC_CONSTRUCTOR(olddecl);
1735           DECL_STATIC_DESTRUCTOR (newdecl) |= DECL_STATIC_DESTRUCTOR (olddecl);
1736           DECL_NO_LIMIT_STACK (newdecl) |= DECL_NO_LIMIT_STACK (olddecl);
1737           DECL_NO_INSTRUMENT_FUNCTION_ENTRY_EXIT (newdecl)
1738             |= DECL_NO_INSTRUMENT_FUNCTION_ENTRY_EXIT (olddecl);
1739           TREE_THIS_VOLATILE (newdecl) |= TREE_THIS_VOLATILE (olddecl);
1740           TREE_READONLY (newdecl) |= TREE_READONLY (olddecl);
1741           DECL_IS_MALLOC (newdecl) |= DECL_IS_MALLOC (olddecl);
1742           DECL_IS_PURE (newdecl) |= DECL_IS_PURE (olddecl);
1743           DECL_IS_NOVOPS (newdecl) |= DECL_IS_NOVOPS (olddecl);
1744         }
1745
1746       /* Merge the storage class information.  */
1747       merge_weak (newdecl, olddecl);
1748
1749       /* For functions, static overrides non-static.  */
1750       if (TREE_CODE (newdecl) == FUNCTION_DECL)
1751         {
1752           TREE_PUBLIC (newdecl) &= TREE_PUBLIC (olddecl);
1753           /* This is since we don't automatically
1754              copy the attributes of NEWDECL into OLDDECL.  */
1755           TREE_PUBLIC (olddecl) = TREE_PUBLIC (newdecl);
1756           /* If this clears `static', clear it in the identifier too.  */
1757           if (!TREE_PUBLIC (olddecl))
1758             TREE_PUBLIC (DECL_NAME (olddecl)) = 0;
1759         }
1760     }
1761
1762   /* In c99, 'extern' declaration before (or after) 'inline' means this
1763      function is not DECL_EXTERNAL, unless 'gnu_inline' attribute
1764      is present.  */
1765   if (TREE_CODE (newdecl) == FUNCTION_DECL
1766       && !flag_gnu89_inline
1767       && (DECL_DECLARED_INLINE_P (newdecl)
1768           || DECL_DECLARED_INLINE_P (olddecl))
1769       && (!DECL_DECLARED_INLINE_P (newdecl)
1770           || !DECL_DECLARED_INLINE_P (olddecl)
1771           || !DECL_EXTERNAL (olddecl))
1772       && DECL_EXTERNAL (newdecl)
1773       && !lookup_attribute ("gnu_inline", DECL_ATTRIBUTES (newdecl)))
1774     DECL_EXTERNAL (newdecl) = 0;
1775
1776   if (DECL_EXTERNAL (newdecl))
1777     {
1778       TREE_STATIC (newdecl) = TREE_STATIC (olddecl);
1779       DECL_EXTERNAL (newdecl) = DECL_EXTERNAL (olddecl);
1780
1781       /* An extern decl does not override previous storage class.  */
1782       TREE_PUBLIC (newdecl) = TREE_PUBLIC (olddecl);
1783       if (!DECL_EXTERNAL (newdecl))
1784         {
1785           DECL_CONTEXT (newdecl) = DECL_CONTEXT (olddecl);
1786           DECL_COMMON (newdecl) = DECL_COMMON (olddecl);
1787         }
1788     }
1789   else
1790     {
1791       TREE_STATIC (olddecl) = TREE_STATIC (newdecl);
1792       TREE_PUBLIC (olddecl) = TREE_PUBLIC (newdecl);
1793     }
1794
1795   if (TREE_CODE (newdecl) == FUNCTION_DECL)
1796     {
1797       /* If we're redefining a function previously defined as extern
1798          inline, make sure we emit debug info for the inline before we
1799          throw it away, in case it was inlined into a function that
1800          hasn't been written out yet.  */
1801       if (new_is_definition && DECL_INITIAL (olddecl))
1802         {
1803           if (TREE_USED (olddecl)
1804               /* In unit-at-a-time mode we never inline re-defined extern
1805                  inline functions.  */
1806               && !flag_unit_at_a_time
1807               && cgraph_function_possibly_inlined_p (olddecl))
1808             (*debug_hooks->outlining_inline_function) (olddecl);
1809
1810           /* The new defn must not be inline.  */
1811           DECL_INLINE (newdecl) = 0;
1812           DECL_UNINLINABLE (newdecl) = 1;
1813         }
1814       else
1815         {
1816           /* If either decl says `inline', this fn is inline, unless
1817              its definition was passed already.  */
1818           if (DECL_DECLARED_INLINE_P (newdecl)
1819               || DECL_DECLARED_INLINE_P (olddecl))
1820             DECL_DECLARED_INLINE_P (newdecl) = 1;
1821
1822           DECL_UNINLINABLE (newdecl) = DECL_UNINLINABLE (olddecl)
1823             = (DECL_UNINLINABLE (newdecl) || DECL_UNINLINABLE (olddecl));
1824         }
1825
1826       if (DECL_BUILT_IN (olddecl))
1827         {
1828           /* If redeclaring a builtin function, it stays built in.
1829              But it gets tagged as having been declared.  */
1830           DECL_BUILT_IN_CLASS (newdecl) = DECL_BUILT_IN_CLASS (olddecl);
1831           DECL_FUNCTION_CODE (newdecl) = DECL_FUNCTION_CODE (olddecl);
1832           C_DECL_DECLARED_BUILTIN (newdecl) = 1;
1833           if (new_is_prototype)
1834             C_DECL_BUILTIN_PROTOTYPE (newdecl) = 0;
1835           else
1836             C_DECL_BUILTIN_PROTOTYPE (newdecl)
1837               = C_DECL_BUILTIN_PROTOTYPE (olddecl);
1838         }
1839
1840       /* Also preserve various other info from the definition.  */
1841       if (!new_is_definition)
1842         {
1843           DECL_RESULT (newdecl) = DECL_RESULT (olddecl);
1844           DECL_INITIAL (newdecl) = DECL_INITIAL (olddecl);
1845           DECL_STRUCT_FUNCTION (newdecl) = DECL_STRUCT_FUNCTION (olddecl);
1846           DECL_SAVED_TREE (newdecl) = DECL_SAVED_TREE (olddecl);
1847           DECL_ARGUMENTS (newdecl) = DECL_ARGUMENTS (olddecl);
1848
1849           /* Set DECL_INLINE on the declaration if we've got a body
1850              from which to instantiate.  */
1851           if (DECL_INLINE (olddecl) && !DECL_UNINLINABLE (newdecl))
1852             {
1853               DECL_INLINE (newdecl) = 1;
1854               DECL_ABSTRACT_ORIGIN (newdecl)
1855                 = DECL_ABSTRACT_ORIGIN (olddecl);
1856             }
1857         }
1858       else
1859         {
1860           /* If a previous declaration said inline, mark the
1861              definition as inlinable.  */
1862           if (DECL_DECLARED_INLINE_P (newdecl)
1863               && !DECL_UNINLINABLE (newdecl))
1864             DECL_INLINE (newdecl) = 1;
1865         }
1866     }
1867
1868    extern_changed = DECL_EXTERNAL (olddecl) && !DECL_EXTERNAL (newdecl);
1869
1870   /* Copy most of the decl-specific fields of NEWDECL into OLDDECL.
1871      But preserve OLDDECL's DECL_UID and DECL_CONTEXT.  */
1872   {
1873     unsigned olddecl_uid = DECL_UID (olddecl);
1874     tree olddecl_context = DECL_CONTEXT (olddecl);
1875
1876     memcpy ((char *) olddecl + sizeof (struct tree_common),
1877             (char *) newdecl + sizeof (struct tree_common),
1878             sizeof (struct tree_decl_common) - sizeof (struct tree_common));
1879     switch (TREE_CODE (olddecl))
1880       {
1881       case FIELD_DECL:
1882       case VAR_DECL:
1883       case PARM_DECL:
1884       case LABEL_DECL:
1885       case RESULT_DECL:
1886       case CONST_DECL:
1887       case TYPE_DECL:
1888       case FUNCTION_DECL:
1889         memcpy ((char *) olddecl + sizeof (struct tree_decl_common),
1890                 (char *) newdecl + sizeof (struct tree_decl_common),
1891                 tree_code_size (TREE_CODE (olddecl)) - sizeof (struct tree_decl_common));
1892         break;
1893
1894       default:
1895
1896         memcpy ((char *) olddecl + sizeof (struct tree_decl_common),
1897                 (char *) newdecl + sizeof (struct tree_decl_common),
1898                 sizeof (struct tree_decl_non_common) - sizeof (struct tree_decl_common));
1899       }
1900     DECL_UID (olddecl) = olddecl_uid;
1901     DECL_CONTEXT (olddecl) = olddecl_context;
1902   }
1903
1904   /* If OLDDECL had its DECL_RTL instantiated, re-invoke make_decl_rtl
1905      so that encode_section_info has a chance to look at the new decl
1906      flags and attributes.  */
1907   if (DECL_RTL_SET_P (olddecl)
1908       && (TREE_CODE (olddecl) == FUNCTION_DECL
1909           || (TREE_CODE (olddecl) == VAR_DECL
1910               && TREE_STATIC (olddecl))))
1911     make_decl_rtl (olddecl);
1912
1913   /* If we changed a function from DECL_EXTERNAL to !DECL_EXTERNAL,
1914      and the definition is coming from the old version, cgraph needs
1915      to be called again.  */
1916   if (extern_changed && !new_is_definition
1917       && TREE_CODE (olddecl) == FUNCTION_DECL && DECL_INITIAL (olddecl))
1918     cgraph_finalize_function (olddecl, false);
1919 }
1920
1921 /* Handle when a new declaration NEWDECL has the same name as an old
1922    one OLDDECL in the same binding contour.  Prints an error message
1923    if appropriate.
1924
1925    If safely possible, alter OLDDECL to look like NEWDECL, and return
1926    true.  Otherwise, return false.  */
1927
1928 static bool
1929 duplicate_decls (tree newdecl, tree olddecl)
1930 {
1931   tree newtype = NULL, oldtype = NULL;
1932
1933   if (!diagnose_mismatched_decls (newdecl, olddecl, &newtype, &oldtype))
1934     {
1935       /* Avoid `unused variable' and other warnings warnings for OLDDECL.  */
1936       TREE_NO_WARNING (olddecl) = 1;
1937       return false;
1938     }
1939
1940   merge_decls (newdecl, olddecl, newtype, oldtype);
1941   return true;
1942 }
1943
1944 \f
1945 /* Check whether decl-node NEW_DECL shadows an existing declaration.  */
1946 static void
1947 warn_if_shadowing (tree new_decl)
1948 {
1949   struct c_binding *b;
1950
1951   /* Shadow warnings wanted?  */
1952   if (!warn_shadow
1953       /* No shadow warnings for internally generated vars.  */
1954       || DECL_IS_BUILTIN (new_decl)
1955       /* No shadow warnings for vars made for inlining.  */
1956       || DECL_FROM_INLINE (new_decl))
1957     return;
1958
1959   /* Is anything being shadowed?  Invisible decls do not count.  */
1960   for (b = I_SYMBOL_BINDING (DECL_NAME (new_decl)); b; b = b->shadowed)
1961     if (b->decl && b->decl != new_decl && !b->invisible)
1962       {
1963         tree old_decl = b->decl;
1964
1965         if (old_decl == error_mark_node)
1966           {
1967             warning (OPT_Wshadow, "declaration of %q+D shadows previous "
1968                      "non-variable", new_decl);
1969             break;
1970           }
1971         else if (TREE_CODE (old_decl) == PARM_DECL)
1972           warning (OPT_Wshadow, "declaration of %q+D shadows a parameter",
1973                    new_decl);
1974         else if (DECL_FILE_SCOPE_P (old_decl))
1975           warning (OPT_Wshadow, "declaration of %q+D shadows a global "
1976                    "declaration", new_decl);
1977         else if (TREE_CODE (old_decl) == FUNCTION_DECL
1978                  && DECL_BUILT_IN (old_decl))
1979           {
1980             warning (OPT_Wshadow, "declaration of %q+D shadows "
1981                      "a built-in function", new_decl);
1982             break;
1983           }
1984         else
1985           warning (OPT_Wshadow, "declaration of %q+D shadows a previous local",
1986                    new_decl);
1987
1988         warning (OPT_Wshadow, "%Jshadowed declaration is here", old_decl);
1989
1990         break;
1991       }
1992 }
1993
1994
1995 /* Subroutine of pushdecl.
1996
1997    X is a TYPE_DECL for a typedef statement.  Create a brand new
1998    ..._TYPE node (which will be just a variant of the existing
1999    ..._TYPE node with identical properties) and then install X
2000    as the TYPE_NAME of this brand new (duplicate) ..._TYPE node.
2001
2002    The whole point here is to end up with a situation where each
2003    and every ..._TYPE node the compiler creates will be uniquely
2004    associated with AT MOST one node representing a typedef name.
2005    This way, even though the compiler substitutes corresponding
2006    ..._TYPE nodes for TYPE_DECL (i.e. "typedef name") nodes very
2007    early on, later parts of the compiler can always do the reverse
2008    translation and get back the corresponding typedef name.  For
2009    example, given:
2010
2011         typedef struct S MY_TYPE;
2012         MY_TYPE object;
2013
2014    Later parts of the compiler might only know that `object' was of
2015    type `struct S' if it were not for code just below.  With this
2016    code however, later parts of the compiler see something like:
2017
2018         struct S' == struct S
2019         typedef struct S' MY_TYPE;
2020         struct S' object;
2021
2022     And they can then deduce (from the node for type struct S') that
2023     the original object declaration was:
2024
2025                 MY_TYPE object;
2026
2027     Being able to do this is important for proper support of protoize,
2028     and also for generating precise symbolic debugging information
2029     which takes full account of the programmer's (typedef) vocabulary.
2030
2031     Obviously, we don't want to generate a duplicate ..._TYPE node if
2032     the TYPE_DECL node that we are now processing really represents a
2033     standard built-in type.
2034
2035     Since all standard types are effectively declared at line zero
2036     in the source file, we can easily check to see if we are working
2037     on a standard type by checking the current value of lineno.  */
2038
2039 static void
2040 clone_underlying_type (tree x)
2041 {
2042   if (DECL_IS_BUILTIN (x))
2043     {
2044       if (TYPE_NAME (TREE_TYPE (x)) == 0)
2045         TYPE_NAME (TREE_TYPE (x)) = x;
2046     }
2047   else if (TREE_TYPE (x) != error_mark_node
2048            && DECL_ORIGINAL_TYPE (x) == NULL_TREE)
2049     {
2050       tree tt = TREE_TYPE (x);
2051       DECL_ORIGINAL_TYPE (x) = tt;
2052       tt = build_variant_type_copy (tt);
2053       TYPE_NAME (tt) = x;
2054       TREE_USED (tt) = TREE_USED (x);
2055       TREE_TYPE (x) = tt;
2056     }
2057 }
2058
2059 /* Record a decl-node X as belonging to the current lexical scope.
2060    Check for errors (such as an incompatible declaration for the same
2061    name already seen in the same scope).
2062
2063    Returns either X or an old decl for the same name.
2064    If an old decl is returned, it may have been smashed
2065    to agree with what X says.  */
2066
2067 tree
2068 pushdecl (tree x)
2069 {
2070   tree name = DECL_NAME (x);
2071   struct c_scope *scope = current_scope;
2072   struct c_binding *b;
2073   bool nested = false;
2074
2075   /* Functions need the lang_decl data.  */
2076   if (TREE_CODE (x) == FUNCTION_DECL && !DECL_LANG_SPECIFIC (x))
2077     DECL_LANG_SPECIFIC (x) = GGC_CNEW (struct lang_decl);
2078
2079   /* Must set DECL_CONTEXT for everything not at file scope or
2080      DECL_FILE_SCOPE_P won't work.  Local externs don't count
2081      unless they have initializers (which generate code).  */
2082   if (current_function_decl
2083       && ((TREE_CODE (x) != FUNCTION_DECL && TREE_CODE (x) != VAR_DECL)
2084           || DECL_INITIAL (x) || !DECL_EXTERNAL (x)))
2085     DECL_CONTEXT (x) = current_function_decl;
2086
2087   /* If this is of variably modified type, prevent jumping into its
2088      scope.  */
2089   if ((TREE_CODE (x) == VAR_DECL || TREE_CODE (x) == TYPE_DECL)
2090       && variably_modified_type_p (TREE_TYPE (x), NULL_TREE))
2091     c_begin_vm_scope (scope->depth);
2092
2093   /* Anonymous decls are just inserted in the scope.  */
2094   if (!name)
2095     {
2096       bind (name, x, scope, /*invisible=*/false, /*nested=*/false);
2097       return x;
2098     }
2099
2100   /* First, see if there is another declaration with the same name in
2101      the current scope.  If there is, duplicate_decls may do all the
2102      work for us.  If duplicate_decls returns false, that indicates
2103      two incompatible decls in the same scope; we are to silently
2104      replace the old one (duplicate_decls has issued all appropriate
2105      diagnostics).  In particular, we should not consider possible
2106      duplicates in the external scope, or shadowing.  */
2107   b = I_SYMBOL_BINDING (name);
2108   if (b && B_IN_SCOPE (b, scope))
2109     {
2110       struct c_binding *b_ext, *b_use;
2111       tree type = TREE_TYPE (x);
2112       tree visdecl = b->decl;
2113       tree vistype = TREE_TYPE (visdecl);
2114       if (TREE_CODE (TREE_TYPE (x)) == ARRAY_TYPE
2115           && COMPLETE_TYPE_P (TREE_TYPE (x)))
2116         b->inner_comp = false;
2117       b_use = b;
2118       b_ext = b;
2119       /* If this is an external linkage declaration, we should check
2120          for compatibility with the type in the external scope before
2121          setting the type at this scope based on the visible
2122          information only.  */
2123       if (TREE_PUBLIC (x) && TREE_PUBLIC (visdecl))
2124         {
2125           while (b_ext && !B_IN_EXTERNAL_SCOPE (b_ext))
2126             b_ext = b_ext->shadowed;
2127           if (b_ext)
2128             {
2129               b_use = b_ext;
2130               if (b_use->type)
2131                 TREE_TYPE (b_use->decl) = b_use->type;
2132             }
2133         }
2134       if (duplicate_decls (x, b_use->decl))
2135         {
2136           if (b_use != b)
2137             {
2138               /* Save the updated type in the external scope and
2139                  restore the proper type for this scope.  */
2140               tree thistype;
2141               if (comptypes (vistype, type))
2142                 thistype = composite_type (vistype, type);
2143               else
2144                 thistype = TREE_TYPE (b_use->decl);
2145               b_use->type = TREE_TYPE (b_use->decl);
2146               if (TREE_CODE (b_use->decl) == FUNCTION_DECL
2147                   && DECL_BUILT_IN (b_use->decl))
2148                 thistype
2149                   = build_type_attribute_variant (thistype,
2150                                                   TYPE_ATTRIBUTES
2151                                                   (b_use->type));
2152               TREE_TYPE (b_use->decl) = thistype;
2153             }
2154           return b_use->decl;
2155         }
2156       else
2157         goto skip_external_and_shadow_checks;
2158     }
2159
2160   /* All declarations with external linkage, and all external
2161      references, go in the external scope, no matter what scope is
2162      current.  However, the binding in that scope is ignored for
2163      purposes of normal name lookup.  A separate binding structure is
2164      created in the requested scope; this governs the normal
2165      visibility of the symbol.
2166
2167      The binding in the externals scope is used exclusively for
2168      detecting duplicate declarations of the same object, no matter
2169      what scope they are in; this is what we do here.  (C99 6.2.7p2:
2170      All declarations that refer to the same object or function shall
2171      have compatible type; otherwise, the behavior is undefined.)  */
2172   if (DECL_EXTERNAL (x) || scope == file_scope)
2173     {
2174       tree type = TREE_TYPE (x);
2175       tree vistype = 0;
2176       tree visdecl = 0;
2177       bool type_saved = false;
2178       if (b && !B_IN_EXTERNAL_SCOPE (b)
2179           && (TREE_CODE (b->decl) == FUNCTION_DECL
2180               || TREE_CODE (b->decl) == VAR_DECL)
2181           && DECL_FILE_SCOPE_P (b->decl))
2182         {
2183           visdecl = b->decl;
2184           vistype = TREE_TYPE (visdecl);
2185         }
2186       if (scope != file_scope
2187           && !DECL_IN_SYSTEM_HEADER (x))
2188         warning (OPT_Wnested_externs, "nested extern declaration of %qD", x);
2189
2190       while (b && !B_IN_EXTERNAL_SCOPE (b))
2191         {
2192           /* If this decl might be modified, save its type.  This is
2193              done here rather than when the decl is first bound
2194              because the type may change after first binding, through
2195              being completed or through attributes being added.  If we
2196              encounter multiple such decls, only the first should have
2197              its type saved; the others will already have had their
2198              proper types saved and the types will not have changed as
2199              their scopes will not have been re-entered.  */
2200           if (DECL_P (b->decl) && DECL_FILE_SCOPE_P (b->decl) && !type_saved)
2201             {
2202               b->type = TREE_TYPE (b->decl);
2203               type_saved = true;
2204             }
2205           if (B_IN_FILE_SCOPE (b)
2206               && TREE_CODE (b->decl) == VAR_DECL
2207               && TREE_STATIC (b->decl)
2208               && TREE_CODE (TREE_TYPE (b->decl)) == ARRAY_TYPE
2209               && !TYPE_DOMAIN (TREE_TYPE (b->decl))
2210               && TREE_CODE (type) == ARRAY_TYPE
2211               && TYPE_DOMAIN (type)
2212               && TYPE_MAX_VALUE (TYPE_DOMAIN (type))
2213               && !integer_zerop (TYPE_MAX_VALUE (TYPE_DOMAIN (type))))
2214             {
2215               /* Array type completed in inner scope, which should be
2216                  diagnosed if the completion does not have size 1 and
2217                  it does not get completed in the file scope.  */
2218               b->inner_comp = true;
2219             }
2220           b = b->shadowed;
2221         }
2222
2223       /* If a matching external declaration has been found, set its
2224          type to the composite of all the types of that declaration.
2225          After the consistency checks, it will be reset to the
2226          composite of the visible types only.  */
2227       if (b && (TREE_PUBLIC (x) || same_translation_unit_p (x, b->decl))
2228           && b->type)
2229         TREE_TYPE (b->decl) = b->type;
2230
2231       /* The point of the same_translation_unit_p check here is,
2232          we want to detect a duplicate decl for a construct like
2233          foo() { extern bar(); } ... static bar();  but not if
2234          they are in different translation units.  In any case,
2235          the static does not go in the externals scope.  */
2236       if (b
2237           && (TREE_PUBLIC (x) || same_translation_unit_p (x, b->decl))
2238           && duplicate_decls (x, b->decl))
2239         {
2240           tree thistype;
2241           if (vistype)
2242             {
2243               if (comptypes (vistype, type))
2244                 thistype = composite_type (vistype, type);
2245               else
2246                 thistype = TREE_TYPE (b->decl);
2247             }
2248           else
2249             thistype = type;
2250           b->type = TREE_TYPE (b->decl);
2251           if (TREE_CODE (b->decl) == FUNCTION_DECL && DECL_BUILT_IN (b->decl))
2252             thistype
2253               = build_type_attribute_variant (thistype,
2254                                               TYPE_ATTRIBUTES (b->type));
2255           TREE_TYPE (b->decl) = thistype;
2256           bind (name, b->decl, scope, /*invisible=*/false, /*nested=*/true);
2257           return b->decl;
2258         }
2259       else if (TREE_PUBLIC (x))
2260         {
2261           if (visdecl && !b && duplicate_decls (x, visdecl))
2262             {
2263               /* An external declaration at block scope referring to a
2264                  visible entity with internal linkage.  The composite
2265                  type will already be correct for this scope, so we
2266                  just need to fall through to make the declaration in
2267                  this scope.  */
2268               nested = true;
2269               x = visdecl;
2270             }
2271           else
2272             {
2273               bind (name, x, external_scope, /*invisible=*/true,
2274                     /*nested=*/false);
2275               nested = true;
2276             }
2277         }
2278     }
2279
2280   if (TREE_CODE (x) != PARM_DECL)
2281     warn_if_shadowing (x);
2282
2283  skip_external_and_shadow_checks:
2284   if (TREE_CODE (x) == TYPE_DECL)
2285     clone_underlying_type (x);
2286
2287   bind (name, x, scope, /*invisible=*/false, nested);
2288
2289   /* If x's type is incomplete because it's based on a
2290      structure or union which has not yet been fully declared,
2291      attach it to that structure or union type, so we can go
2292      back and complete the variable declaration later, if the
2293      structure or union gets fully declared.
2294
2295      If the input is erroneous, we can have error_mark in the type
2296      slot (e.g. "f(void a, ...)") - that doesn't count as an
2297      incomplete type.  */
2298   if (TREE_TYPE (x) != error_mark_node
2299       && !COMPLETE_TYPE_P (TREE_TYPE (x)))
2300     {
2301       tree element = TREE_TYPE (x);
2302
2303       while (TREE_CODE (element) == ARRAY_TYPE)
2304         element = TREE_TYPE (element);
2305       element = TYPE_MAIN_VARIANT (element);
2306
2307       if ((TREE_CODE (element) == RECORD_TYPE
2308            || TREE_CODE (element) == UNION_TYPE)
2309           && (TREE_CODE (x) != TYPE_DECL
2310               || TREE_CODE (TREE_TYPE (x)) == ARRAY_TYPE)
2311           && !COMPLETE_TYPE_P (element))
2312         C_TYPE_INCOMPLETE_VARS (element)
2313           = tree_cons (NULL_TREE, x, C_TYPE_INCOMPLETE_VARS (element));
2314     }
2315   return x;
2316 }
2317
2318 /* Record X as belonging to file scope.
2319    This is used only internally by the Objective-C front end,
2320    and is limited to its needs.  duplicate_decls is not called;
2321    if there is any preexisting decl for this identifier, it is an ICE.  */
2322
2323 tree
2324 pushdecl_top_level (tree x)
2325 {
2326   tree name;
2327   bool nested = false;
2328   gcc_assert (TREE_CODE (x) == VAR_DECL || TREE_CODE (x) == CONST_DECL);
2329
2330   name = DECL_NAME (x);
2331
2332  gcc_assert (TREE_CODE (x) == CONST_DECL || !I_SYMBOL_BINDING (name));
2333
2334   if (TREE_PUBLIC (x))
2335     {
2336       bind (name, x, external_scope, /*invisible=*/true, /*nested=*/false);
2337       nested = true;
2338     }
2339   if (file_scope)
2340     bind (name, x, file_scope, /*invisible=*/false, nested);
2341
2342   return x;
2343 }
2344 \f
2345 static void
2346 implicit_decl_warning (tree id, tree olddecl)
2347 {
2348   if (warn_implicit_function_declaration)
2349     {
2350       if (flag_isoc99)
2351         pedwarn (G_("implicit declaration of function %qE"), id);
2352       else
2353         warning (OPT_Wimplicit_function_declaration,
2354                  G_("implicit declaration of function %qE"), id);
2355       if (olddecl)
2356         locate_old_decl (olddecl, inform);
2357     }
2358 }
2359
2360 /* Generate an implicit declaration for identifier FUNCTIONID as a
2361    function of type int ().  */
2362
2363 tree
2364 implicitly_declare (tree functionid)
2365 {
2366   struct c_binding *b;
2367   tree decl = 0;
2368   tree asmspec_tree;
2369
2370   for (b = I_SYMBOL_BINDING (functionid); b; b = b->shadowed)
2371     {
2372       if (B_IN_SCOPE (b, external_scope))
2373         {
2374           decl = b->decl;
2375           break;
2376         }
2377     }
2378
2379   if (decl)
2380     {
2381       if (decl == error_mark_node)
2382         return decl;
2383
2384       /* FIXME: Objective-C has weird not-really-builtin functions
2385          which are supposed to be visible automatically.  They wind up
2386          in the external scope because they're pushed before the file
2387          scope gets created.  Catch this here and rebind them into the
2388          file scope.  */
2389       if (!DECL_BUILT_IN (decl) && DECL_IS_BUILTIN (decl))
2390         {
2391           bind (functionid, decl, file_scope,
2392                 /*invisible=*/false, /*nested=*/true);
2393           return decl;
2394         }
2395       else
2396         {
2397           tree newtype = default_function_type;
2398           if (b->type)
2399             TREE_TYPE (decl) = b->type;
2400           /* Implicit declaration of a function already declared
2401              (somehow) in a different scope, or as a built-in.
2402              If this is the first time this has happened, warn;
2403              then recycle the old declaration but with the new type.  */
2404           if (!C_DECL_IMPLICIT (decl))
2405             {
2406               implicit_decl_warning (functionid, decl);
2407               C_DECL_IMPLICIT (decl) = 1;
2408             }
2409           if (DECL_BUILT_IN (decl))
2410             {
2411               newtype = build_type_attribute_variant (newtype,
2412                                                       TYPE_ATTRIBUTES
2413                                                       (TREE_TYPE (decl)));
2414               if (!comptypes (newtype, TREE_TYPE (decl)))
2415                 {
2416                   warning (0, "incompatible implicit declaration of built-in"
2417                            " function %qD", decl);
2418                   newtype = TREE_TYPE (decl);
2419                 }
2420             }
2421           else
2422             {
2423               if (!comptypes (newtype, TREE_TYPE (decl)))
2424                 {
2425                   error ("incompatible implicit declaration of function %qD",
2426                          decl);
2427                   locate_old_decl (decl, error);
2428                 }
2429             }
2430           b->type = TREE_TYPE (decl);
2431           TREE_TYPE (decl) = newtype;
2432           bind (functionid, decl, current_scope,
2433                 /*invisible=*/false, /*nested=*/true);
2434           return decl;
2435         }
2436     }
2437
2438   /* Not seen before.  */
2439   decl = build_decl (FUNCTION_DECL, functionid, default_function_type);
2440   DECL_EXTERNAL (decl) = 1;
2441   TREE_PUBLIC (decl) = 1;
2442   C_DECL_IMPLICIT (decl) = 1;
2443   implicit_decl_warning (functionid, 0);
2444   asmspec_tree = maybe_apply_renaming_pragma (decl, /*asmname=*/NULL);
2445   if (asmspec_tree)
2446     set_user_assembler_name (decl, TREE_STRING_POINTER (asmspec_tree));
2447
2448   /* C89 says implicit declarations are in the innermost block.
2449      So we record the decl in the standard fashion.  */
2450   decl = pushdecl (decl);
2451
2452   /* No need to call objc_check_decl here - it's a function type.  */
2453   rest_of_decl_compilation (decl, 0, 0);
2454
2455   /* Write a record describing this implicit function declaration
2456      to the prototypes file (if requested).  */
2457   gen_aux_info_record (decl, 0, 1, 0);
2458
2459   /* Possibly apply some default attributes to this implicit declaration.  */
2460   decl_attributes (&decl, NULL_TREE, 0);
2461
2462   return decl;
2463 }
2464
2465 /* Issue an error message for a reference to an undeclared variable
2466    ID, including a reference to a builtin outside of function-call
2467    context.  Establish a binding of the identifier to error_mark_node
2468    in an appropriate scope, which will suppress further errors for the
2469    same identifier.  The error message should be given location LOC.  */
2470 void
2471 undeclared_variable (tree id, location_t loc)
2472 {
2473   static bool already = false;
2474   struct c_scope *scope;
2475
2476   if (current_function_decl == 0)
2477     {
2478       error ("%H%qE undeclared here (not in a function)", &loc, id);
2479       scope = current_scope;
2480     }
2481   else
2482     {
2483       error ("%H%qE undeclared (first use in this function)", &loc, id);
2484
2485       if (!already)
2486         {
2487           error ("%H(Each undeclared identifier is reported only once", &loc);
2488           error ("%Hfor each function it appears in.)", &loc);
2489           already = true;
2490         }
2491
2492       /* If we are parsing old-style parameter decls, current_function_decl
2493          will be nonnull but current_function_scope will be null.  */
2494       scope = current_function_scope ? current_function_scope : current_scope;
2495     }
2496   bind (id, error_mark_node, scope, /*invisible=*/false, /*nested=*/false);
2497 }
2498 \f
2499 /* Subroutine of lookup_label, declare_label, define_label: construct a
2500    LABEL_DECL with all the proper frills.  */
2501
2502 static tree
2503 make_label (tree name, location_t location)
2504 {
2505   tree label = build_decl (LABEL_DECL, name, void_type_node);
2506
2507   DECL_CONTEXT (label) = current_function_decl;
2508   DECL_MODE (label) = VOIDmode;
2509   DECL_SOURCE_LOCATION (label) = location;
2510
2511   return label;
2512 }
2513
2514 /* Get the LABEL_DECL corresponding to identifier NAME as a label.
2515    Create one if none exists so far for the current function.
2516    This is called when a label is used in a goto expression or
2517    has its address taken.  */
2518
2519 tree
2520 lookup_label (tree name)
2521 {
2522   tree label;
2523
2524   if (current_function_decl == 0)
2525     {
2526       error ("label %qE referenced outside of any function", name);
2527       return 0;
2528     }
2529
2530   /* Use a label already defined or ref'd with this name, but not if
2531      it is inherited from a containing function and wasn't declared
2532      using __label__.  */
2533   label = I_LABEL_DECL (name);
2534   if (label && (DECL_CONTEXT (label) == current_function_decl
2535                 || C_DECLARED_LABEL_FLAG (label)))
2536     {
2537       /* If the label has only been declared, update its apparent
2538          location to point here, for better diagnostics if it
2539          turns out not to have been defined.  */
2540       if (!TREE_USED (label))
2541         DECL_SOURCE_LOCATION (label) = input_location;
2542       return label;
2543     }
2544
2545   /* No label binding for that identifier; make one.  */
2546   label = make_label (name, input_location);
2547
2548   /* Ordinary labels go in the current function scope.  */
2549   bind (name, label, current_function_scope,
2550         /*invisible=*/false, /*nested=*/false);
2551   return label;
2552 }
2553
2554 /* Make a label named NAME in the current function, shadowing silently
2555    any that may be inherited from containing functions or containing
2556    scopes.  This is called for __label__ declarations.  */
2557
2558 tree
2559 declare_label (tree name)
2560 {
2561   struct c_binding *b = I_LABEL_BINDING (name);
2562   tree label;
2563
2564   /* Check to make sure that the label hasn't already been declared
2565      at this scope */
2566   if (b && B_IN_CURRENT_SCOPE (b))
2567     {
2568       error ("duplicate label declaration %qE", name);
2569       locate_old_decl (b->decl, error);
2570
2571       /* Just use the previous declaration.  */
2572       return b->decl;
2573     }
2574
2575   label = make_label (name, input_location);
2576   C_DECLARED_LABEL_FLAG (label) = 1;
2577
2578   /* Declared labels go in the current scope.  */
2579   bind (name, label, current_scope,
2580         /*invisible=*/false, /*nested=*/false);
2581   return label;
2582 }
2583
2584 /* Define a label, specifying the location in the source file.
2585    Return the LABEL_DECL node for the label, if the definition is valid.
2586    Otherwise return 0.  */
2587
2588 tree
2589 define_label (location_t location, tree name)
2590 {
2591   /* Find any preexisting label with this name.  It is an error
2592      if that label has already been defined in this function, or
2593      if there is a containing function with a declared label with
2594      the same name.  */
2595   tree label = I_LABEL_DECL (name);
2596   struct c_label_list *nlist_se, *nlist_vm;
2597
2598   if (label
2599       && ((DECL_CONTEXT (label) == current_function_decl
2600            && DECL_INITIAL (label) != 0)
2601           || (DECL_CONTEXT (label) != current_function_decl
2602               && C_DECLARED_LABEL_FLAG (label))))
2603     {
2604       error ("%Hduplicate label %qD", &location, label);
2605       locate_old_decl (label, error);
2606       return 0;
2607     }
2608   else if (label && DECL_CONTEXT (label) == current_function_decl)
2609     {
2610       /* The label has been used or declared already in this function,
2611          but not defined.  Update its location to point to this
2612          definition.  */
2613       if (C_DECL_UNDEFINABLE_STMT_EXPR (label))
2614         error ("%Jjump into statement expression", label);
2615       if (C_DECL_UNDEFINABLE_VM (label))
2616         error ("%Jjump into scope of identifier with variably modified type",
2617                label);
2618       DECL_SOURCE_LOCATION (label) = location;
2619     }
2620   else
2621     {
2622       /* No label binding for that identifier; make one.  */
2623       label = make_label (name, location);
2624
2625       /* Ordinary labels go in the current function scope.  */
2626       bind (name, label, current_function_scope,
2627             /*invisible=*/false, /*nested=*/false);
2628     }
2629
2630   if (!in_system_header && lookup_name (name))
2631     warning (OPT_Wtraditional, "%Htraditional C lacks a separate namespace "
2632              "for labels, identifier %qE conflicts", &location, name);
2633
2634   nlist_se = XOBNEW (&parser_obstack, struct c_label_list);
2635   nlist_se->next = label_context_stack_se->labels_def;
2636   nlist_se->label = label;
2637   label_context_stack_se->labels_def = nlist_se;
2638
2639   nlist_vm = XOBNEW (&parser_obstack, struct c_label_list);
2640   nlist_vm->next = label_context_stack_vm->labels_def;
2641   nlist_vm->label = label;
2642   label_context_stack_vm->labels_def = nlist_vm;
2643
2644   /* Mark label as having been defined.  */
2645   DECL_INITIAL (label) = error_mark_node;
2646   return label;
2647 }
2648 \f
2649 /* Given NAME, an IDENTIFIER_NODE,
2650    return the structure (or union or enum) definition for that name.
2651    If THISLEVEL_ONLY is nonzero, searches only the current_scope.
2652    CODE says which kind of type the caller wants;
2653    it is RECORD_TYPE or UNION_TYPE or ENUMERAL_TYPE.
2654    If the wrong kind of type is found, an error is reported.  */
2655
2656 static tree
2657 lookup_tag (enum tree_code code, tree name, int thislevel_only)
2658 {
2659   struct c_binding *b = I_TAG_BINDING (name);
2660   int thislevel = 0;
2661
2662   if (!b || !b->decl)
2663     return 0;
2664
2665   /* We only care about whether it's in this level if
2666      thislevel_only was set or it might be a type clash.  */
2667   if (thislevel_only || TREE_CODE (b->decl) != code)
2668     {
2669       /* For our purposes, a tag in the external scope is the same as
2670          a tag in the file scope.  (Primarily relevant to Objective-C
2671          and its builtin structure tags, which get pushed before the
2672          file scope is created.)  */
2673       if (B_IN_CURRENT_SCOPE (b)
2674           || (current_scope == file_scope && B_IN_EXTERNAL_SCOPE (b)))
2675         thislevel = 1;
2676     }
2677
2678   if (thislevel_only && !thislevel)
2679     return 0;
2680
2681   if (TREE_CODE (b->decl) != code)
2682     {
2683       /* Definition isn't the kind we were looking for.  */
2684       pending_invalid_xref = name;
2685       pending_invalid_xref_location = input_location;
2686
2687       /* If in the same binding level as a declaration as a tag
2688          of a different type, this must not be allowed to
2689          shadow that tag, so give the error immediately.
2690          (For example, "struct foo; union foo;" is invalid.)  */
2691       if (thislevel)
2692         pending_xref_error ();
2693     }
2694   return b->decl;
2695 }
2696
2697 /* Print an error message now
2698    for a recent invalid struct, union or enum cross reference.
2699    We don't print them immediately because they are not invalid
2700    when used in the `struct foo;' construct for shadowing.  */
2701
2702 void
2703 pending_xref_error (void)
2704 {
2705   if (pending_invalid_xref != 0)
2706     error ("%H%qE defined as wrong kind of tag",
2707            &pending_invalid_xref_location, pending_invalid_xref);
2708   pending_invalid_xref = 0;
2709 }
2710
2711 \f
2712 /* Look up NAME in the current scope and its superiors
2713    in the namespace of variables, functions and typedefs.
2714    Return a ..._DECL node of some kind representing its definition,
2715    or return 0 if it is undefined.  */
2716
2717 tree
2718 lookup_name (tree name)
2719 {
2720   struct c_binding *b = I_SYMBOL_BINDING (name);
2721   if (b && !b->invisible)
2722     return b->decl;
2723   return 0;
2724 }
2725
2726 /* Similar to `lookup_name' but look only at the indicated scope.  */
2727
2728 static tree
2729 lookup_name_in_scope (tree name, struct c_scope *scope)
2730 {
2731   struct c_binding *b;
2732
2733   for (b = I_SYMBOL_BINDING (name); b; b = b->shadowed)
2734     if (B_IN_SCOPE (b, scope))
2735       return b->decl;
2736   return 0;
2737 }
2738 \f
2739 /* Create the predefined scalar types of C,
2740    and some nodes representing standard constants (0, 1, (void *) 0).
2741    Initialize the global scope.
2742    Make definitions for built-in primitive functions.  */
2743
2744 void
2745 c_init_decl_processing (void)
2746 {
2747   location_t save_loc = input_location;
2748
2749   /* Initialize reserved words for parser.  */
2750   c_parse_init ();
2751
2752   current_function_decl = 0;
2753
2754   gcc_obstack_init (&parser_obstack);
2755
2756   /* Make the externals scope.  */
2757   push_scope ();
2758   external_scope = current_scope;
2759
2760   /* Declarations from c_common_nodes_and_builtins must not be associated
2761      with this input file, lest we get differences between using and not
2762      using preprocessed headers.  */
2763 #ifdef USE_MAPPED_LOCATION
2764   input_location = BUILTINS_LOCATION;
2765 #else
2766   input_location.file = "<built-in>";
2767   input_location.line = 0;
2768 #endif
2769
2770   build_common_tree_nodes (flag_signed_char, false);
2771
2772   c_common_nodes_and_builtins ();
2773
2774   /* In C, comparisons and TRUTH_* expressions have type int.  */
2775   truthvalue_type_node = integer_type_node;
2776   truthvalue_true_node = integer_one_node;
2777   truthvalue_false_node = integer_zero_node;
2778
2779   /* Even in C99, which has a real boolean type.  */
2780   pushdecl (build_decl (TYPE_DECL, get_identifier ("_Bool"),
2781                         boolean_type_node));
2782
2783   input_location = save_loc;
2784
2785   pedantic_lvalues = true;
2786
2787   make_fname_decl = c_make_fname_decl;
2788   start_fname_decls ();
2789 }
2790
2791 /* Create the VAR_DECL for __FUNCTION__ etc. ID is the name to give the
2792    decl, NAME is the initialization string and TYPE_DEP indicates whether
2793    NAME depended on the type of the function.  As we don't yet implement
2794    delayed emission of static data, we mark the decl as emitted
2795    so it is not placed in the output.  Anything using it must therefore pull
2796    out the STRING_CST initializer directly.  FIXME.  */
2797
2798 static tree
2799 c_make_fname_decl (tree id, int type_dep)
2800 {
2801   const char *name = fname_as_string (type_dep);
2802   tree decl, type, init;
2803   size_t length = strlen (name);
2804
2805   type = build_array_type (char_type_node,
2806                            build_index_type (size_int (length)));
2807   type = c_build_qualified_type (type, TYPE_QUAL_CONST);
2808
2809   decl = build_decl (VAR_DECL, id, type);
2810
2811   TREE_STATIC (decl) = 1;
2812   TREE_READONLY (decl) = 1;
2813   DECL_ARTIFICIAL (decl) = 1;
2814
2815   init = build_string (length + 1, name);
2816   free ((char *) name);
2817   TREE_TYPE (init) = type;
2818   DECL_INITIAL (decl) = init;
2819
2820   TREE_USED (decl) = 1;
2821
2822   if (current_function_decl
2823       /* For invalid programs like this:
2824
2825          void foo()
2826          const char* p = __FUNCTION__;
2827
2828          the __FUNCTION__ is believed to appear in K&R style function
2829          parameter declarator.  In that case we still don't have
2830          function_scope.  */
2831       && (!errorcount || current_function_scope))
2832     {
2833       DECL_CONTEXT (decl) = current_function_decl;
2834       bind (id, decl, current_function_scope,
2835             /*invisible=*/false, /*nested=*/false);
2836     }
2837
2838   finish_decl (decl, init, NULL_TREE);
2839
2840   return decl;
2841 }
2842
2843 tree
2844 c_builtin_function (tree decl)
2845 {
2846   tree type = TREE_TYPE (decl);
2847   tree   id = DECL_NAME (decl);
2848
2849   const char *name = IDENTIFIER_POINTER (id);
2850   DECL_LANG_SPECIFIC (decl) = GGC_CNEW (struct lang_decl);
2851   C_DECL_BUILTIN_PROTOTYPE (decl) = (TYPE_ARG_TYPES (type) != 0);
2852
2853   /* Should never be called on a symbol with a preexisting meaning.  */
2854   gcc_assert (!I_SYMBOL_BINDING (id));
2855
2856   bind (id, decl, external_scope, /*invisible=*/true, /*nested=*/false);
2857
2858   /* Builtins in the implementation namespace are made visible without
2859      needing to be explicitly declared.  See push_file_scope.  */
2860   if (name[0] == '_' && (name[1] == '_' || ISUPPER (name[1])))
2861     {
2862       TREE_CHAIN (decl) = visible_builtins;
2863       visible_builtins = decl;
2864     }
2865
2866   return decl;
2867 }
2868 \f
2869 /* Called when a declaration is seen that contains no names to declare.
2870    If its type is a reference to a structure, union or enum inherited
2871    from a containing scope, shadow that tag name for the current scope
2872    with a forward reference.
2873    If its type defines a new named structure or union
2874    or defines an enum, it is valid but we need not do anything here.
2875    Otherwise, it is an error.  */
2876
2877 void
2878 shadow_tag (const struct c_declspecs *declspecs)
2879 {
2880   shadow_tag_warned (declspecs, 0);
2881 }
2882
2883 /* WARNED is 1 if we have done a pedwarn, 2 if we have done a warning,
2884    but no pedwarn.  */
2885 void
2886 shadow_tag_warned (const struct c_declspecs *declspecs, int warned)
2887 {
2888   bool found_tag = false;
2889
2890   if (declspecs->type && !declspecs->default_int_p && !declspecs->typedef_p)
2891     {
2892       tree value = declspecs->type;
2893       enum tree_code code = TREE_CODE (value);
2894
2895       if (code == RECORD_TYPE || code == UNION_TYPE || code == ENUMERAL_TYPE)
2896         /* Used to test also that TYPE_SIZE (value) != 0.
2897            That caused warning for `struct foo;' at top level in the file.  */
2898         {
2899           tree name = TYPE_NAME (value);
2900           tree t;
2901
2902           found_tag = true;
2903
2904           if (name == 0)
2905             {
2906               if (warned != 1 && code != ENUMERAL_TYPE)
2907                 /* Empty unnamed enum OK */
2908                 {
2909                   pedwarn ("unnamed struct/union that defines no instances");
2910                   warned = 1;
2911                 }
2912             }
2913           else if (!declspecs->tag_defined_p
2914                    && declspecs->storage_class != csc_none)
2915             {
2916               if (warned != 1)
2917                 pedwarn ("empty declaration with storage class specifier "
2918                          "does not redeclare tag");
2919               warned = 1;
2920               pending_xref_error ();
2921             }
2922           else if (!declspecs->tag_defined_p
2923                    && (declspecs->const_p
2924                        || declspecs->volatile_p
2925                        || declspecs->restrict_p))
2926             {
2927               if (warned != 1)
2928                 pedwarn ("empty declaration with type qualifier "
2929                          "does not redeclare tag");
2930               warned = 1;
2931               pending_xref_error ();
2932             }
2933           else
2934             {
2935               pending_invalid_xref = 0;
2936               t = lookup_tag (code, name, 1);
2937
2938               if (t == 0)
2939                 {
2940                   t = make_node (code);
2941                   pushtag (name, t);
2942                 }
2943             }
2944         }
2945       else
2946         {
2947           if (warned != 1 && !in_system_header)
2948             {
2949               pedwarn ("useless type name in empty declaration");
2950               warned = 1;
2951             }
2952         }
2953     }
2954   else if (warned != 1 && !in_system_header && declspecs->typedef_p)
2955     {
2956       pedwarn ("useless type name in empty declaration");
2957       warned = 1;
2958     }
2959
2960   pending_invalid_xref = 0;
2961
2962   if (declspecs->inline_p)
2963     {
2964       error ("%<inline%> in empty declaration");
2965       warned = 1;
2966     }
2967
2968   if (current_scope == file_scope && declspecs->storage_class == csc_auto)
2969     {
2970       error ("%<auto%> in file-scope empty declaration");
2971       warned = 1;
2972     }
2973
2974   if (current_scope == file_scope && declspecs->storage_class == csc_register)
2975     {
2976       error ("%<register%> in file-scope empty declaration");
2977       warned = 1;
2978     }
2979
2980   if (!warned && !in_system_header && declspecs->storage_class != csc_none)
2981     {
2982       warning (0, "useless storage class specifier in empty declaration");
2983       warned = 2;
2984     }
2985
2986   if (!warned && !in_system_header && declspecs->thread_p)
2987     {
2988       warning (0, "useless %<__thread%> in empty declaration");
2989       warned = 2;
2990     }
2991
2992   if (!warned && !in_system_header && (declspecs->const_p
2993                                        || declspecs->volatile_p
2994                                        || declspecs->restrict_p))
2995     {
2996       warning (0, "useless type qualifier in empty declaration");
2997       warned = 2;
2998     }
2999
3000   if (warned != 1)
3001     {
3002       if (!found_tag)
3003         pedwarn ("empty declaration");
3004     }
3005 }
3006 \f
3007
3008 /* Return the qualifiers from SPECS as a bitwise OR of TYPE_QUAL_*
3009    bits.  SPECS represents declaration specifiers that the grammar
3010    only permits to contain type qualifiers and attributes.  */
3011
3012 int
3013 quals_from_declspecs (const struct c_declspecs *specs)
3014 {
3015   int quals = ((specs->const_p ? TYPE_QUAL_CONST : 0)
3016                | (specs->volatile_p ? TYPE_QUAL_VOLATILE : 0)
3017                | (specs->restrict_p ? TYPE_QUAL_RESTRICT : 0));
3018   gcc_assert (!specs->type
3019               && !specs->decl_attr
3020               && specs->typespec_word == cts_none
3021               && specs->storage_class == csc_none
3022               && !specs->typedef_p
3023               && !specs->explicit_signed_p
3024               && !specs->deprecated_p
3025               && !specs->long_p
3026               && !specs->long_long_p
3027               && !specs->short_p
3028               && !specs->signed_p
3029               && !specs->unsigned_p
3030               && !specs->complex_p
3031               && !specs->inline_p
3032               && !specs->thread_p);
3033   return quals;
3034 }
3035
3036 /* Construct an array declarator.  EXPR is the expression inside [],
3037    or NULL_TREE.  QUALS are the type qualifiers inside the [] (to be
3038    applied to the pointer to which a parameter array is converted).
3039    STATIC_P is true if "static" is inside the [], false otherwise.
3040    VLA_UNSPEC_P is true if the array is [*], a VLA of unspecified
3041    length which is nevertheless a complete type, false otherwise.  The
3042    field for the contained declarator is left to be filled in by
3043    set_array_declarator_inner.  */
3044
3045 struct c_declarator *
3046 build_array_declarator (tree expr, struct c_declspecs *quals, bool static_p,
3047                         bool vla_unspec_p)
3048 {
3049   struct c_declarator *declarator = XOBNEW (&parser_obstack,
3050                                             struct c_declarator);
3051   declarator->kind = cdk_array;
3052   declarator->declarator = 0;
3053   declarator->u.array.dimen = expr;
3054   if (quals)
3055     {
3056       declarator->u.array.attrs = quals->attrs;
3057       declarator->u.array.quals = quals_from_declspecs (quals);
3058     }
3059   else
3060     {
3061       declarator->u.array.attrs = NULL_TREE;
3062       declarator->u.array.quals = 0;
3063     }
3064   declarator->u.array.static_p = static_p;
3065   declarator->u.array.vla_unspec_p = vla_unspec_p;
3066   if (pedantic && !flag_isoc99)
3067     {
3068       if (static_p || quals != NULL)
3069         pedwarn ("ISO C90 does not support %<static%> or type "
3070                  "qualifiers in parameter array declarators");
3071       if (vla_unspec_p)
3072         pedwarn ("ISO C90 does not support %<[*]%> array declarators");
3073     }
3074   if (vla_unspec_p)
3075     {
3076       if (!current_scope->parm_flag)
3077         {
3078           /* C99 6.7.5.2p4 */
3079           error ("%<[*]%> not allowed in other than function prototype scope");
3080           declarator->u.array.vla_unspec_p = false;
3081           return NULL;
3082         }
3083       current_scope->had_vla_unspec = true;
3084     }
3085   return declarator;
3086 }
3087
3088 /* Set the contained declarator of an array declarator.  DECL is the
3089    declarator, as constructed by build_array_declarator; INNER is what
3090    appears on the left of the [].  ABSTRACT_P is true if it is an
3091    abstract declarator, false otherwise; this is used to reject static
3092    and type qualifiers in abstract declarators, where they are not in
3093    the C99 grammar (subject to possible change in DR#289).  */
3094
3095 struct c_declarator *
3096 set_array_declarator_inner (struct c_declarator *decl,
3097                             struct c_declarator *inner, bool abstract_p)
3098 {
3099   decl->declarator = inner;
3100   if (abstract_p && (decl->u.array.quals != TYPE_UNQUALIFIED
3101                      || decl->u.array.attrs != NULL_TREE
3102                      || decl->u.array.static_p))
3103     error ("static or type qualifiers in abstract declarator");
3104   return decl;
3105 }
3106
3107 /* INIT is a constructor that forms DECL's initializer.  If the final
3108    element initializes a flexible array field, add the size of that
3109    initializer to DECL's size.  */
3110
3111 static void
3112 add_flexible_array_elts_to_size (tree decl, tree init)
3113 {
3114   tree elt, type;
3115
3116   if (VEC_empty (constructor_elt, CONSTRUCTOR_ELTS (init)))
3117     return;
3118
3119   elt = VEC_last (constructor_elt, CONSTRUCTOR_ELTS (init))->value;
3120   type = TREE_TYPE (elt);
3121   if (TREE_CODE (type) == ARRAY_TYPE
3122       && TYPE_SIZE (type) == NULL_TREE
3123       && TYPE_DOMAIN (type) != NULL_TREE
3124       && TYPE_MAX_VALUE (TYPE_DOMAIN (type)) == NULL_TREE)
3125     {
3126       complete_array_type (&type, elt, false);
3127       DECL_SIZE (decl)
3128         = size_binop (PLUS_EXPR, DECL_SIZE (decl), TYPE_SIZE (type));
3129       DECL_SIZE_UNIT (decl)
3130         = size_binop (PLUS_EXPR, DECL_SIZE_UNIT (decl), TYPE_SIZE_UNIT (type));
3131     }
3132 }
3133 \f
3134 /* Decode a "typename", such as "int **", returning a ..._TYPE node.  */
3135
3136 tree
3137 groktypename (struct c_type_name *type_name)
3138 {
3139   tree type;
3140   tree attrs = type_name->specs->attrs;
3141
3142   type_name->specs->attrs = NULL_TREE;
3143
3144   type = grokdeclarator (type_name->declarator, type_name->specs, TYPENAME,
3145                          false, NULL, DEPRECATED_NORMAL);
3146
3147   /* Apply attributes.  */
3148   decl_attributes (&type, attrs, 0);
3149
3150   return type;
3151 }
3152
3153 /* Decode a declarator in an ordinary declaration or data definition.
3154    This is called as soon as the type information and variable name
3155    have been parsed, before parsing the initializer if any.
3156    Here we create the ..._DECL node, fill in its type,
3157    and put it on the list of decls for the current context.
3158    The ..._DECL node is returned as the value.
3159
3160    Exception: for arrays where the length is not specified,
3161    the type is left null, to be filled in by `finish_decl'.
3162
3163    Function definitions do not come here; they go to start_function
3164    instead.  However, external and forward declarations of functions
3165    do go through here.  Structure field declarations are done by
3166    grokfield and not through here.  */
3167
3168 tree
3169 start_decl (struct c_declarator *declarator, struct c_declspecs *declspecs,
3170             bool initialized, tree attributes)
3171 {
3172   tree decl;
3173   tree tem;
3174   enum deprecated_states deprecated_state = DEPRECATED_NORMAL;
3175
3176   /* An object declared as __attribute__((deprecated)) suppresses
3177      warnings of uses of other deprecated items.  */
3178   if (lookup_attribute ("deprecated", attributes))
3179     deprecated_state = DEPRECATED_SUPPRESS;
3180
3181   decl = grokdeclarator (declarator, declspecs,
3182                          NORMAL, initialized, NULL,
3183                          deprecated_state);
3184   if (!decl)
3185     return 0;
3186
3187   if (warn_main > 0 && TREE_CODE (decl) != FUNCTION_DECL
3188       && MAIN_NAME_P (DECL_NAME (decl)))
3189     warning (OPT_Wmain, "%q+D is usually a function", decl);
3190
3191   if (initialized)
3192     /* Is it valid for this decl to have an initializer at all?
3193        If not, set INITIALIZED to zero, which will indirectly
3194        tell 'finish_decl' to ignore the initializer once it is parsed.  */
3195     switch (TREE_CODE (decl))
3196       {
3197       case TYPE_DECL:
3198         error ("typedef %qD is initialized (use __typeof__ instead)", decl);
3199         initialized = 0;
3200         break;
3201
3202       case FUNCTION_DECL:
3203         error ("function %qD is initialized like a variable", decl);
3204         initialized = 0;
3205         break;
3206
3207       case PARM_DECL:
3208         /* DECL_INITIAL in a PARM_DECL is really DECL_ARG_TYPE.  */
3209         error ("parameter %qD is initialized", decl);
3210         initialized = 0;
3211         break;
3212
3213       default:
3214         /* Don't allow initializations for incomplete types except for
3215            arrays which might be completed by the initialization.  */
3216
3217         /* This can happen if the array size is an undefined macro.
3218            We already gave a warning, so we don't need another one.  */
3219         if (TREE_TYPE (decl) == error_mark_node)
3220           initialized = 0;
3221         else if (COMPLETE_TYPE_P (TREE_TYPE (decl)))
3222           {
3223             /* A complete type is ok if size is fixed.  */
3224
3225             if (TREE_CODE (TYPE_SIZE (TREE_TYPE (decl))) != INTEGER_CST
3226                 || C_DECL_VARIABLE_SIZE (decl))
3227               {
3228                 error ("variable-sized object may not be initialized");
3229                 initialized = 0;
3230               }
3231           }
3232         else if (TREE_CODE (TREE_TYPE (decl)) != ARRAY_TYPE)
3233           {
3234             error ("variable %qD has initializer but incomplete type", decl);
3235             initialized = 0;
3236           }
3237         else if (C_DECL_VARIABLE_SIZE (decl))
3238           {
3239             /* Although C99 is unclear about whether incomplete arrays
3240                of VLAs themselves count as VLAs, it does not make
3241                sense to permit them to be initialized given that
3242                ordinary VLAs may not be initialized.  */
3243             error ("variable-sized object may not be initialized");
3244             initialized = 0;
3245           }
3246       }
3247
3248   if (initialized)
3249     {
3250       if (current_scope == file_scope)
3251         TREE_STATIC (decl) = 1;
3252
3253       /* Tell 'pushdecl' this is an initialized decl
3254          even though we don't yet have the initializer expression.
3255          Also tell 'finish_decl' it may store the real initializer.  */
3256       DECL_INITIAL (decl) = error_mark_node;
3257     }
3258
3259   /* If this is a function declaration, write a record describing it to the
3260      prototypes file (if requested).  */
3261
3262   if (TREE_CODE (decl) == FUNCTION_DECL)
3263     gen_aux_info_record (decl, 0, 0, TYPE_ARG_TYPES (TREE_TYPE (decl)) != 0);
3264
3265   /* ANSI specifies that a tentative definition which is not merged with
3266      a non-tentative definition behaves exactly like a definition with an
3267      initializer equal to zero.  (Section 3.7.2)
3268
3269      -fno-common gives strict ANSI behavior, though this tends to break
3270      a large body of code that grew up without this rule.
3271
3272      Thread-local variables are never common, since there's no entrenched
3273      body of code to break, and it allows more efficient variable references
3274      in the presence of dynamic linking.  */
3275
3276   if (TREE_CODE (decl) == VAR_DECL
3277       && !initialized
3278       && TREE_PUBLIC (decl)
3279       && !DECL_THREAD_LOCAL_P (decl)
3280       && !flag_no_common)
3281     DECL_COMMON (decl) = 1;
3282
3283   /* Set attributes here so if duplicate decl, will have proper attributes.  */
3284   decl_attributes (&decl, attributes, 0);
3285
3286   /* Handle gnu_inline attribute.  */
3287   if (declspecs->inline_p
3288       && !flag_gnu89_inline
3289       && TREE_CODE (decl) == FUNCTION_DECL
3290       && lookup_attribute ("gnu_inline", DECL_ATTRIBUTES (decl)))
3291     {
3292       if (declspecs->storage_class == csc_auto && current_scope != file_scope)
3293         ;
3294       else if (declspecs->storage_class != csc_static)
3295         DECL_EXTERNAL (decl) = !DECL_EXTERNAL (decl);
3296     }
3297
3298   if (TREE_CODE (decl) == FUNCTION_DECL
3299       && targetm.calls.promote_prototypes (TREE_TYPE (decl)))
3300     {
3301       struct c_declarator *ce = declarator;
3302
3303       if (ce->kind == cdk_pointer)
3304         ce = declarator->declarator;
3305       if (ce->kind == cdk_function)
3306         {
3307           tree args = ce->u.arg_info->parms;
3308           for (; args; args = TREE_CHAIN (args))
3309             {
3310               tree type = TREE_TYPE (args);
3311               if (type && INTEGRAL_TYPE_P (type)
3312                   && TYPE_PRECISION (type) < TYPE_PRECISION (integer_type_node))
3313                 DECL_ARG_TYPE (args) = integer_type_node;
3314             }
3315         }
3316     }
3317
3318   if (TREE_CODE (decl) == FUNCTION_DECL
3319       && DECL_DECLARED_INLINE_P (decl)
3320       && DECL_UNINLINABLE (decl)
3321       && lookup_attribute ("noinline", DECL_ATTRIBUTES (decl)))
3322     warning (OPT_Wattributes, "inline function %q+D given attribute noinline",
3323              decl);
3324
3325   /* C99 6.7.4p3: An inline definition of a function with external
3326      linkage shall not contain a definition of a modifiable object
3327      with static storage duration...  */
3328   if (TREE_CODE (decl) == VAR_DECL
3329       && current_scope != file_scope
3330       && TREE_STATIC (decl)
3331       && DECL_DECLARED_INLINE_P (current_function_decl)
3332       && DECL_EXTERNAL (current_function_decl))
3333     pedwarn ("%q+D is static but declared in inline function %qD "
3334              "which is not static", decl, current_function_decl);
3335
3336   /* Add this decl to the current scope.
3337      TEM may equal DECL or it may be a previous decl of the same name.  */
3338   tem = pushdecl (decl);
3339
3340   if (initialized && DECL_EXTERNAL (tem))
3341     {
3342       DECL_EXTERNAL (tem) = 0;
3343       TREE_STATIC (tem) = 1;
3344     }
3345
3346   return tem;
3347 }
3348
3349 /* Initialize EH if not initialized yet and exceptions are enabled.  */
3350
3351 void
3352 c_maybe_initialize_eh (void)
3353 {
3354   if (!flag_exceptions || c_eh_initialized_p)
3355     return;
3356
3357   c_eh_initialized_p = true;
3358   eh_personality_libfunc
3359     = init_one_libfunc (USING_SJLJ_EXCEPTIONS
3360                         ? "__gcc_personality_sj0"
3361                         : "__gcc_personality_v0");
3362   default_init_unwind_resume_libfunc ();
3363   using_eh_for_cleanups ();
3364 }
3365
3366 /* Finish processing of a declaration;
3367    install its initial value.
3368    If the length of an array type is not known before,
3369    it must be determined now, from the initial value, or it is an error.  */
3370
3371 void
3372 finish_decl (tree decl, tree init, tree asmspec_tree)
3373 {
3374   tree type;
3375   int was_incomplete = (DECL_SIZE (decl) == 0);
3376   const char *asmspec = 0;
3377
3378   /* If a name was specified, get the string.  */
3379   if ((TREE_CODE (decl) == FUNCTION_DECL || TREE_CODE (decl) == VAR_DECL)
3380       && DECL_FILE_SCOPE_P (decl))
3381     asmspec_tree = maybe_apply_renaming_pragma (decl, asmspec_tree);
3382   if (asmspec_tree)
3383     asmspec = TREE_STRING_POINTER (asmspec_tree);
3384
3385   /* If `start_decl' didn't like having an initialization, ignore it now.  */
3386   if (init != 0 && DECL_INITIAL (decl) == 0)
3387     init = 0;
3388
3389   /* Don't crash if parm is initialized.  */
3390   if (TREE_CODE (decl) == PARM_DECL)
3391     init = 0;
3392
3393   if (init)
3394     store_init_value (decl, init);
3395
3396   if (c_dialect_objc () && (TREE_CODE (decl) == VAR_DECL
3397                             || TREE_CODE (decl) == FUNCTION_DECL
3398                             || TREE_CODE (decl) == FIELD_DECL))
3399     objc_check_decl (decl);
3400
3401   type = TREE_TYPE (decl);
3402
3403   /* Deduce size of array from initialization, if not already known.  */
3404   if (TREE_CODE (type) == ARRAY_TYPE
3405       && TYPE_DOMAIN (type) == 0
3406       && TREE_CODE (decl) != TYPE_DECL)
3407     {
3408       bool do_default
3409         = (TREE_STATIC (decl)
3410            /* Even if pedantic, an external linkage array
3411               may have incomplete type at first.  */
3412            ? pedantic && !TREE_PUBLIC (decl)
3413            : !DECL_EXTERNAL (decl));
3414       int failure
3415         = complete_array_type (&TREE_TYPE (decl), DECL_INITIAL (decl),
3416                                do_default);
3417
3418       /* Get the completed type made by complete_array_type.  */
3419       type = TREE_TYPE (decl);
3420
3421       switch (failure)
3422         {
3423         case 1:
3424           error ("initializer fails to determine size of %q+D", decl);
3425           break;
3426
3427         case 2:
3428           if (do_default)
3429             error ("array size missing in %q+D", decl);
3430           /* If a `static' var's size isn't known,
3431              make it extern as well as static, so it does not get
3432              allocated.
3433              If it is not `static', then do not mark extern;
3434              finish_incomplete_decl will give it a default size
3435              and it will get allocated.  */
3436           else if (!pedantic && TREE_STATIC (decl) && !TREE_PUBLIC (decl))
3437             DECL_EXTERNAL (decl) = 1;
3438           break;
3439
3440         case 3:
3441           error ("zero or negative size array %q+D", decl);
3442           break;
3443
3444         case 0:
3445           /* For global variables, update the copy of the type that
3446              exists in the binding.  */
3447           if (TREE_PUBLIC (decl))
3448             {
3449               struct c_binding *b_ext = I_SYMBOL_BINDING (DECL_NAME (decl));
3450               while (b_ext && !B_IN_EXTERNAL_SCOPE (b_ext))
3451                 b_ext = b_ext->shadowed;
3452               if (b_ext)
3453                 {
3454                   if (b_ext->type)
3455                     b_ext->type = composite_type (b_ext->type, type);
3456                   else
3457                     b_ext->type = type;
3458                 }
3459             }
3460           break;
3461
3462         default:
3463           gcc_unreachable ();
3464         }
3465
3466       if (DECL_INITIAL (decl))
3467         TREE_TYPE (DECL_INITIAL (decl)) = type;
3468
3469       layout_decl (decl, 0);
3470     }
3471
3472   if (TREE_CODE (decl) == VAR_DECL)
3473     {
3474       if (init && TREE_CODE (init) == CONSTRUCTOR)
3475         add_flexible_array_elts_to_size (decl, init);
3476
3477       if (DECL_SIZE (decl) == 0 && TREE_TYPE (decl) != error_mark_node
3478           && COMPLETE_TYPE_P (TREE_TYPE (decl)))
3479         layout_decl (decl, 0);
3480
3481       if (DECL_SIZE (decl) == 0
3482           /* Don't give an error if we already gave one earlier.  */
3483           && TREE_TYPE (decl) != error_mark_node
3484           && (TREE_STATIC (decl)
3485               /* A static variable with an incomplete type
3486                  is an error if it is initialized.
3487                  Also if it is not file scope.
3488                  Otherwise, let it through, but if it is not `extern'
3489                  then it may cause an error message later.  */
3490               ? (DECL_INITIAL (decl) != 0
3491                  || !DECL_FILE_SCOPE_P (decl))
3492               /* An automatic variable with an incomplete type
3493                  is an error.  */
3494               : !DECL_EXTERNAL (decl)))
3495          {
3496            error ("storage size of %q+D isn%'t known", decl);
3497            TREE_TYPE (decl) = error_mark_node;
3498          }
3499
3500       if ((DECL_EXTERNAL (decl) || TREE_STATIC (decl))
3501           && DECL_SIZE (decl) != 0)
3502         {
3503           if (TREE_CODE (DECL_SIZE (decl)) == INTEGER_CST)
3504             constant_expression_warning (DECL_SIZE (decl));
3505           else
3506             error ("storage size of %q+D isn%'t constant", decl);
3507         }
3508
3509       if (TREE_USED (type))
3510         TREE_USED (decl) = 1;
3511     }
3512
3513   /* If this is a function and an assembler name is specified, reset DECL_RTL
3514      so we can give it its new name.  Also, update built_in_decls if it
3515      was a normal built-in.  */
3516   if (TREE_CODE (decl) == FUNCTION_DECL && asmspec)
3517     {
3518       if (DECL_BUILT_IN_CLASS (decl) == BUILT_IN_NORMAL)
3519         set_builtin_user_assembler_name (decl, asmspec);
3520       set_user_assembler_name (decl, asmspec);
3521     }
3522
3523   /* If #pragma weak was used, mark the decl weak now.  */
3524   maybe_apply_pragma_weak (decl);
3525
3526   /* Output the assembler code and/or RTL code for variables and functions,
3527      unless the type is an undefined structure or union.
3528      If not, it will get done when the type is completed.  */
3529
3530   if (TREE_CODE (decl) == VAR_DECL || TREE_CODE (decl) == FUNCTION_DECL)
3531     {
3532       /* Determine the ELF visibility.  */
3533       if (TREE_PUBLIC (decl))
3534         c_determine_visibility (decl);
3535
3536       /* This is a no-op in c-lang.c or something real in objc-act.c.  */
3537       if (c_dialect_objc ())
3538         objc_check_decl (decl);
3539
3540       if (asmspec)
3541         {
3542           /* If this is not a static variable, issue a warning.
3543              It doesn't make any sense to give an ASMSPEC for an
3544              ordinary, non-register local variable.  Historically,
3545              GCC has accepted -- but ignored -- the ASMSPEC in
3546              this case.  */
3547           if (!DECL_FILE_SCOPE_P (decl)
3548               && TREE_CODE (decl) == VAR_DECL
3549               && !C_DECL_REGISTER (decl)
3550               && !TREE_STATIC (decl))
3551             warning (0, "ignoring asm-specifier for non-static local "
3552                      "variable %q+D", decl);
3553           else
3554             set_user_assembler_name (decl, asmspec);
3555         }
3556
3557       if (DECL_FILE_SCOPE_P (decl))
3558         {
3559           if (DECL_INITIAL (decl) == NULL_TREE
3560               || DECL_INITIAL (decl) == error_mark_node)
3561             /* Don't output anything
3562                when a tentative file-scope definition is seen.
3563                But at end of compilation, do output code for them.  */
3564             DECL_DEFER_OUTPUT (decl) = 1;
3565           rest_of_decl_compilation (decl, true, 0);
3566         }
3567       else
3568         {
3569           /* In conjunction with an ASMSPEC, the `register'
3570              keyword indicates that we should place the variable
3571              in a particular register.  */
3572           if (asmspec && C_DECL_REGISTER (decl))
3573             {
3574               DECL_HARD_REGISTER (decl) = 1;
3575               /* This cannot be done for a structure with volatile
3576                  fields, on which DECL_REGISTER will have been
3577                  reset.  */
3578               if (!DECL_REGISTER (decl))
3579                 error ("cannot put object with volatile field into register");
3580             }
3581
3582           if (TREE_CODE (decl) != FUNCTION_DECL)
3583             {
3584               /* If we're building a variable sized type, and we might be
3585                  reachable other than via the top of the current binding
3586                  level, then create a new BIND_EXPR so that we deallocate
3587                  the object at the right time.  */
3588               /* Note that DECL_SIZE can be null due to errors.  */
3589               if (DECL_SIZE (decl)
3590                   && !TREE_CONSTANT (DECL_SIZE (decl))
3591                   && STATEMENT_LIST_HAS_LABEL (cur_stmt_list))
3592                 {
3593                   tree bind;
3594                   bind = build3 (BIND_EXPR, void_type_node, NULL, NULL, NULL);
3595                   TREE_SIDE_EFFECTS (bind) = 1;
3596                   add_stmt (bind);
3597                   BIND_EXPR_BODY (bind) = push_stmt_list ();
3598                 }
3599               add_stmt (build_stmt (DECL_EXPR, decl));
3600             }
3601         }
3602
3603
3604       if (!DECL_FILE_SCOPE_P (decl))
3605         {
3606           /* Recompute the RTL of a local array now
3607              if it used to be an incomplete type.  */
3608           if (was_incomplete
3609               && !TREE_STATIC (decl) && !DECL_EXTERNAL (decl))
3610             {
3611               /* If we used it already as memory, it must stay in memory.  */
3612               TREE_ADDRESSABLE (decl) = TREE_USED (decl);
3613               /* If it's still incomplete now, no init will save it.  */
3614               if (DECL_SIZE (decl) == 0)
3615                 DECL_INITIAL (decl) = 0;
3616             }
3617         }
3618     }
3619
3620   /* If this was marked 'used', be sure it will be output.  */
3621   if (!flag_unit_at_a_time && lookup_attribute ("used", DECL_ATTRIBUTES (decl)))
3622     mark_decl_referenced (decl);
3623
3624   if (TREE_CODE (decl) == TYPE_DECL)
3625     {
3626       if (!DECL_FILE_SCOPE_P (decl)
3627           && variably_modified_type_p (TREE_TYPE (decl), NULL_TREE))
3628         add_stmt (build_stmt (DECL_EXPR, decl));
3629
3630       rest_of_decl_compilation (decl, DECL_FILE_SCOPE_P (decl), 0);
3631     }
3632
3633   /* At the end of a declaration, throw away any variable type sizes
3634      of types defined inside that declaration.  There is no use
3635      computing them in the following function definition.  */
3636   if (current_scope == file_scope)
3637     get_pending_sizes ();
3638
3639   /* Install a cleanup (aka destructor) if one was given.  */
3640   if (TREE_CODE (decl) == VAR_DECL && !TREE_STATIC (decl))
3641     {
3642       tree attr = lookup_attribute ("cleanup", DECL_ATTRIBUTES (decl));
3643       if (attr)
3644         {
3645           tree cleanup_id = TREE_VALUE (TREE_VALUE (attr));
3646           tree cleanup_decl = lookup_name (cleanup_id);
3647           tree cleanup;
3648
3649           /* Build "cleanup(&decl)" for the destructor.  */
3650           cleanup = build_unary_op (ADDR_EXPR, decl, 0);
3651           cleanup = build_tree_list (NULL_TREE, cleanup);
3652           cleanup = build_function_call (cleanup_decl, cleanup);
3653
3654           /* Don't warn about decl unused; the cleanup uses it.  */
3655           TREE_USED (decl) = 1;
3656           TREE_USED (cleanup_decl) = 1;
3657
3658           /* Initialize EH, if we've been told to do so.  */
3659           c_maybe_initialize_eh ();
3660
3661           push_cleanup (decl, cleanup, false);
3662         }
3663     }
3664 }
3665
3666 /* Given a parsed parameter declaration, decode it into a PARM_DECL.  */
3667
3668 tree
3669 grokparm (const struct c_parm *parm)
3670 {
3671   tree decl = grokdeclarator (parm->declarator, parm->specs, PARM, false,
3672                               NULL, DEPRECATED_NORMAL);
3673
3674   decl_attributes (&decl, parm->attrs, 0);
3675
3676   return decl;
3677 }
3678
3679 /* Given a parsed parameter declaration, decode it into a PARM_DECL
3680    and push that on the current scope.  */
3681
3682 void
3683 push_parm_decl (const struct c_parm *parm)
3684 {
3685   tree decl;
3686
3687   decl = grokdeclarator (parm->declarator, parm->specs, PARM, false, NULL,
3688                          DEPRECATED_NORMAL);
3689   decl_attributes (&decl, parm->attrs, 0);
3690
3691   decl = pushdecl (decl);
3692
3693   finish_decl (decl, NULL_TREE, NULL_TREE);
3694 }
3695
3696 /* Mark all the parameter declarations to date as forward decls.
3697    Also diagnose use of this extension.  */
3698
3699 void
3700 mark_forward_parm_decls (void)
3701 {
3702   struct c_binding *b;
3703
3704   if (pedantic && !current_scope->warned_forward_parm_decls)
3705     {
3706       pedwarn ("ISO C forbids forward parameter declarations");
3707       current_scope->warned_forward_parm_decls = true;
3708     }
3709
3710   for (b = current_scope->bindings; b; b = b->prev)
3711     if (TREE_CODE (b->decl) == PARM_DECL)
3712       TREE_ASM_WRITTEN (b->decl) = 1;
3713 }
3714 \f
3715 /* Build a COMPOUND_LITERAL_EXPR.  TYPE is the type given in the compound
3716    literal, which may be an incomplete array type completed by the
3717    initializer; INIT is a CONSTRUCTOR that initializes the compound
3718    literal.  */
3719
3720 tree
3721 build_compound_literal (tree type, tree init)
3722 {
3723   /* We do not use start_decl here because we have a type, not a declarator;
3724      and do not use finish_decl because the decl should be stored inside
3725      the COMPOUND_LITERAL_EXPR rather than added elsewhere as a DECL_EXPR.  */
3726   tree decl;
3727   tree complit;
3728   tree stmt;
3729
3730   if (type == error_mark_node)
3731     return error_mark_node;
3732
3733   decl = build_decl (VAR_DECL, NULL_TREE, type);
3734   DECL_EXTERNAL (decl) = 0;
3735   TREE_PUBLIC (decl) = 0;
3736   TREE_STATIC (decl) = (current_scope == file_scope);
3737   DECL_CONTEXT (decl) = current_function_decl;
3738   TREE_USED (decl) = 1;
3739   TREE_TYPE (decl) = type;
3740   TREE_READONLY (decl) = TYPE_READONLY (type);
3741   store_init_value (decl, init);
3742
3743   if (TREE_CODE (type) == ARRAY_TYPE && !COMPLETE_TYPE_P (type))
3744     {
3745       int failure = complete_array_type (&TREE_TYPE (decl),
3746                                          DECL_INITIAL (decl), true);
3747       gcc_assert (!failure);
3748
3749       type = TREE_TYPE (decl);
3750       TREE_TYPE (DECL_INITIAL (decl)) = type;
3751     }
3752
3753   if (type == error_mark_node || !COMPLETE_TYPE_P (type))
3754     return error_mark_node;
3755
3756   stmt = build_stmt (DECL_EXPR, decl);
3757   complit = build1 (COMPOUND_LITERAL_EXPR, type, stmt);
3758   TREE_SIDE_EFFECTS (complit) = 1;
3759
3760   layout_decl (decl, 0);
3761
3762   if (TREE_STATIC (decl))
3763     {
3764       /* This decl needs a name for the assembler output.  */
3765       set_compound_literal_name (decl);
3766       DECL_DEFER_OUTPUT (decl) = 1;
3767       DECL_COMDAT (decl) = 1;
3768       DECL_ARTIFICIAL (decl) = 1;
3769       DECL_IGNORED_P (decl) = 1;
3770       pushdecl (decl);
3771       rest_of_decl_compilation (decl, 1, 0);
3772     }
3773
3774   return complit;
3775 }
3776 \f
3777 /* Determine whether TYPE is a structure with a flexible array member,
3778    or a union containing such a structure (possibly recursively).  */
3779
3780 static bool
3781 flexible_array_type_p (tree type)
3782 {
3783   tree x;
3784   switch (TREE_CODE (type))
3785     {
3786     case RECORD_TYPE:
3787       x = TYPE_FIELDS (type);
3788       if (x == NULL_TREE)
3789         return false;
3790       while (TREE_CHAIN (x) != NULL_TREE)
3791         x = TREE_CHAIN (x);
3792       if (TREE_CODE (TREE_TYPE (x)) == ARRAY_TYPE
3793           && TYPE_SIZE (TREE_TYPE (x)) == NULL_TREE
3794           && TYPE_DOMAIN (TREE_TYPE (x)) != NULL_TREE
3795           && TYPE_MAX_VALUE (TYPE_DOMAIN (TREE_TYPE (x))) == NULL_TREE)
3796         return true;
3797       return false;
3798     case UNION_TYPE:
3799       for (x = TYPE_FIELDS (type); x != NULL_TREE; x = TREE_CHAIN (x))
3800         {
3801           if (flexible_array_type_p (TREE_TYPE (x)))
3802             return true;
3803         }
3804       return false;
3805     default:
3806     return false;
3807   }
3808 }
3809 \f
3810 /* Performs sanity checks on the TYPE and WIDTH of the bit-field NAME,
3811    replacing with appropriate values if they are invalid.  */
3812 static void
3813 check_bitfield_type_and_width (tree *type, tree *width, const char *orig_name)
3814 {
3815   tree type_mv;
3816   unsigned int max_width;
3817   unsigned HOST_WIDE_INT w;
3818   const char *name = orig_name ? orig_name: _("<anonymous>");
3819
3820   /* Detect and ignore out of range field width and process valid
3821      field widths.  */
3822   if (!INTEGRAL_TYPE_P (TREE_TYPE (*width))
3823       || TREE_CODE (*width) != INTEGER_CST)
3824     {
3825       error ("bit-field %qs width not an integer constant", name);
3826       *width = integer_one_node;
3827     }
3828   else
3829     {
3830       constant_expression_warning (*width);
3831       if (tree_int_cst_sgn (*width) < 0)
3832         {
3833           error ("negative width in bit-field %qs", name);
3834           *width = integer_one_node;
3835         }
3836       else if (integer_zerop (*width) && orig_name)
3837         {
3838           error ("zero width for bit-field %qs", name);
3839           *width = integer_one_node;
3840         }
3841     }
3842
3843   /* Detect invalid bit-field type.  */
3844   if (TREE_CODE (*type) != INTEGER_TYPE
3845       && TREE_CODE (*type) != BOOLEAN_TYPE
3846       && TREE_CODE (*type) != ENUMERAL_TYPE)
3847     {
3848       error ("bit-field %qs has invalid type", name);
3849       *type = unsigned_type_node;
3850     }
3851
3852   type_mv = TYPE_MAIN_VARIANT (*type);
3853   if (pedantic
3854       && !in_system_header
3855       && type_mv != integer_type_node
3856       && type_mv != unsigned_type_node
3857       && type_mv != boolean_type_node)
3858     pedwarn ("type of bit-field %qs is a GCC extension", name);
3859
3860   if (type_mv == boolean_type_node)
3861     max_width = CHAR_TYPE_SIZE;
3862   else
3863     max_width = TYPE_PRECISION (*type);
3864
3865   if (0 < compare_tree_int (*width, max_width))
3866     {
3867       error ("width of %qs exceeds its type", name);
3868       w = max_width;
3869       *width = build_int_cst (NULL_TREE, w);
3870     }
3871   else
3872     w = tree_low_cst (*width, 1);
3873
3874   if (TREE_CODE (*type) == ENUMERAL_TYPE)
3875     {
3876       struct lang_type *lt = TYPE_LANG_SPECIFIC (*type);
3877       if (!lt
3878           || w < min_precision (lt->enum_min, TYPE_UNSIGNED (*type))
3879           || w < min_precision (lt->enum_max, TYPE_UNSIGNED (*type)))
3880         warning (0, "%qs is narrower than values of its type", name);
3881     }
3882 }
3883
3884 \f
3885
3886 /* Print warning about variable length array if necessary.  */
3887
3888 static void
3889 warn_variable_length_array (const char *name, tree size)
3890 {
3891   int ped = !flag_isoc99 && pedantic && warn_vla != 0;
3892   int const_size = TREE_CONSTANT (size);
3893
3894   if (ped)
3895     {
3896       if (const_size)
3897         {
3898           if (name)
3899             pedwarn ("ISO C90 forbids array %qs whose size "
3900                      "can%'t be evaluated",
3901                      name);
3902           else
3903             pedwarn ("ISO C90 forbids array whose size "
3904                      "can%'t be evaluated");
3905         }
3906       else
3907         {
3908           if (name)
3909             pedwarn ("ISO C90 forbids variable length array %qs",
3910                      name);
3911           else
3912             pedwarn ("ISO C90 forbids variable length array");
3913         }
3914     }
3915   else if (warn_vla > 0)
3916     {
3917       if (const_size)
3918         {
3919           if (name)
3920             warning (OPT_Wvla,
3921                      "the size of array %qs can"
3922                      "%'t be evaluated", name);
3923           else
3924             warning (OPT_Wvla,
3925                      "the size of array can %'t be evaluated");
3926         }
3927       else
3928         {
3929           if (name)
3930             warning (OPT_Wvla,
3931                      "variable length array %qs is used",
3932                      name);
3933           else
3934             warning (OPT_Wvla,
3935                      "variable length array is used");
3936         }
3937     }
3938 }
3939
3940 /* Given declspecs and a declarator,
3941    determine the name and type of the object declared
3942    and construct a ..._DECL node for it.
3943    (In one case we can return a ..._TYPE node instead.
3944     For invalid input we sometimes return 0.)
3945
3946    DECLSPECS is a c_declspecs structure for the declaration specifiers.
3947
3948    DECL_CONTEXT says which syntactic context this declaration is in:
3949      NORMAL for most contexts.  Make a VAR_DECL or FUNCTION_DECL or TYPE_DECL.
3950      FUNCDEF for a function definition.  Like NORMAL but a few different
3951       error messages in each case.  Return value may be zero meaning
3952       this definition is too screwy to try to parse.
3953      PARM for a parameter declaration (either within a function prototype
3954       or before a function body).  Make a PARM_DECL, or return void_type_node.
3955      TYPENAME if for a typename (in a cast or sizeof).
3956       Don't make a DECL node; just return the ..._TYPE node.
3957      FIELD for a struct or union field; make a FIELD_DECL.
3958    INITIALIZED is true if the decl has an initializer.
3959    WIDTH is non-NULL for bit-fields, and is a pointer to an INTEGER_CST node
3960    representing the width of the bit-field.
3961    DEPRECATED_STATE is a deprecated_states value indicating whether
3962    deprecation warnings should be suppressed.
3963
3964    In the TYPENAME case, DECLARATOR is really an absolute declarator.
3965    It may also be so in the PARM case, for a prototype where the
3966    argument type is specified but not the name.
3967
3968    This function is where the complicated C meanings of `static'
3969    and `extern' are interpreted.  */
3970
3971 static tree
3972 grokdeclarator (const struct c_declarator *declarator,
3973                 struct c_declspecs *declspecs,
3974                 enum decl_context decl_context, bool initialized, tree *width,
3975                 enum deprecated_states deprecated_state)
3976 {
3977   tree type = declspecs->type;
3978   bool threadp = declspecs->thread_p;
3979   enum c_storage_class storage_class = declspecs->storage_class;
3980   int constp;
3981   int restrictp;
3982   int volatilep;
3983   int type_quals = TYPE_UNQUALIFIED;
3984   const char *name, *orig_name;
3985   tree typedef_type = 0;
3986   bool funcdef_flag = false;
3987   bool funcdef_syntax = false;
3988   int size_varies = 0;
3989   tree decl_attr = declspecs->decl_attr;
3990   int array_ptr_quals = TYPE_UNQUALIFIED;
3991   tree array_ptr_attrs = NULL_TREE;
3992   int array_parm_static = 0;
3993   bool array_parm_vla_unspec_p = false;
3994   tree returned_attrs = NULL_TREE;
3995   bool bitfield = width != NULL;
3996   tree element_type;
3997   struct c_arg_info *arg_info = 0;
3998
3999   if (decl_context == FUNCDEF)
4000     funcdef_flag = true, decl_context = NORMAL;
4001
4002   /* Look inside a declarator for the name being declared
4003      and get it as a string, for an error message.  */
4004   {
4005     const struct c_declarator *decl = declarator;
4006     name = 0;
4007
4008     while (decl)
4009       switch (decl->kind)
4010         {
4011         case cdk_function:
4012         case cdk_array:
4013         case cdk_pointer:
4014           funcdef_syntax = (decl->kind == cdk_function);
4015           decl = decl->declarator;
4016           break;
4017
4018         case cdk_attrs:
4019           decl = decl->declarator;
4020           break;
4021
4022         case cdk_id:
4023           if (decl->u.id)
4024             name = IDENTIFIER_POINTER (decl->u.id);
4025           decl = 0;
4026           break;
4027
4028         default:
4029           gcc_unreachable ();
4030         }
4031     orig_name = name;
4032     if (name == 0)
4033       name = "type name";
4034   }
4035
4036   /* A function definition's declarator must have the form of
4037      a function declarator.  */
4038
4039   if (funcdef_flag && !funcdef_syntax)
4040     return 0;
4041
4042   /* If this looks like a function definition, make it one,
4043      even if it occurs where parms are expected.
4044      Then store_parm_decls will reject it and not use it as a parm.  */
4045   if (decl_context == NORMAL && !funcdef_flag && current_scope->parm_flag)
4046     decl_context = PARM;
4047
4048   if (declspecs->deprecated_p && deprecated_state != DEPRECATED_SUPPRESS)
4049     warn_deprecated_use (declspecs->type);
4050
4051   if ((decl_context == NORMAL || decl_context == FIELD)
4052       && current_scope == file_scope
4053       && variably_modified_type_p (type, NULL_TREE))
4054     {
4055       error ("variably modified %qs at file scope", name);
4056       type = integer_type_node;
4057     }
4058
4059   typedef_type = type;
4060   size_varies = C_TYPE_VARIABLE_SIZE (type);
4061
4062   /* Diagnose defaulting to "int".  */
4063
4064   if (declspecs->default_int_p && !in_system_header)
4065     {
4066       /* Issue a warning if this is an ISO C 99 program or if
4067          -Wreturn-type and this is a function, or if -Wimplicit;
4068          prefer the former warning since it is more explicit.  */
4069       if ((warn_implicit_int || warn_return_type || flag_isoc99)
4070           && funcdef_flag)
4071         warn_about_return_type = 1;
4072       else if (warn_implicit_int || flag_isoc99)
4073         pedwarn_c99 ("type defaults to %<int%> in declaration of %qs", name);
4074     }
4075
4076   /* Adjust the type if a bit-field is being declared,
4077      -funsigned-bitfields applied and the type is not explicitly
4078      "signed".  */
4079   if (bitfield && !flag_signed_bitfields && !declspecs->explicit_signed_p
4080       && TREE_CODE (type) == INTEGER_TYPE)
4081     type = c_common_unsigned_type (type);
4082
4083   /* Figure out the type qualifiers for the declaration.  There are
4084      two ways a declaration can become qualified.  One is something
4085      like `const int i' where the `const' is explicit.  Another is
4086      something like `typedef const int CI; CI i' where the type of the
4087      declaration contains the `const'.  A third possibility is that
4088      there is a type qualifier on the element type of a typedefed
4089      array type, in which case we should extract that qualifier so
4090      that c_apply_type_quals_to_decls receives the full list of
4091      qualifiers to work with (C90 is not entirely clear about whether
4092      duplicate qualifiers should be diagnosed in this case, but it
4093      seems most appropriate to do so).  */
4094   element_type = strip_array_types (type);
4095   constp = declspecs->const_p + TYPE_READONLY (element_type);
4096   restrictp = declspecs->restrict_p + TYPE_RESTRICT (element_type);
4097   volatilep = declspecs->volatile_p + TYPE_VOLATILE (element_type);
4098   if (pedantic && !flag_isoc99)
4099     {
4100       if (constp > 1)
4101         pedwarn ("duplicate %<const%>");
4102       if (restrictp > 1)
4103         pedwarn ("duplicate %<restrict%>");
4104       if (volatilep > 1)
4105         pedwarn ("duplicate %<volatile%>");
4106     }
4107   if (!flag_gen_aux_info && (TYPE_QUALS (element_type)))
4108     type = TYPE_MAIN_VARIANT (type);
4109   type_quals = ((constp ? TYPE_QUAL_CONST : 0)
4110                 | (restrictp ? TYPE_QUAL_RESTRICT : 0)
4111                 | (volatilep ? TYPE_QUAL_VOLATILE : 0));
4112
4113   /* Warn about storage classes that are invalid for certain
4114      kinds of declarations (parameters, typenames, etc.).  */
4115
4116   if (funcdef_flag
4117       && (threadp
4118           || storage_class == csc_auto
4119           || storage_class == csc_register
4120           || storage_class == csc_typedef))
4121     {
4122       if (storage_class == csc_auto
4123           && (pedantic || current_scope == file_scope))
4124         pedwarn ("function definition declared %<auto%>");
4125       if (storage_class == csc_register)
4126         error ("function definition declared %<register%>");
4127       if (storage_class == csc_typedef)
4128         error ("function definition declared %<typedef%>");
4129       if (threadp)
4130         error ("function definition declared %<__thread%>");
4131       threadp = false;
4132       if (storage_class == csc_auto
4133           || storage_class == csc_register
4134           || storage_class == csc_typedef)
4135         storage_class = csc_none;
4136     }
4137   else if (decl_context != NORMAL && (storage_class != csc_none || threadp))
4138     {
4139       if (decl_context == PARM && storage_class == csc_register)
4140         ;
4141       else
4142         {
4143           switch (decl_context)
4144             {
4145             case FIELD:
4146               error ("storage class specified for structure field %qs",
4147                      name);
4148               break;
4149             case PARM:
4150               error ("storage class specified for parameter %qs", name);
4151               break;
4152             default:
4153               error ("storage class specified for typename");
4154               break;
4155             }
4156           storage_class = csc_none;
4157           threadp = false;
4158         }
4159     }
4160   else if (storage_class == csc_extern
4161            && initialized
4162            && !funcdef_flag)
4163     {
4164       /* 'extern' with initialization is invalid if not at file scope.  */
4165        if (current_scope == file_scope)
4166          {
4167            /* It is fine to have 'extern const' when compiling at C
4168               and C++ intersection.  */
4169            if (!(warn_cxx_compat && constp))
4170              warning (0, "%qs initialized and declared %<extern%>", name);
4171          }
4172       else
4173         error ("%qs has both %<extern%> and initializer", name);
4174     }
4175   else if (current_scope == file_scope)
4176     {
4177       if (storage_class == csc_auto)
4178         error ("file-scope declaration of %qs specifies %<auto%>", name);
4179       if (pedantic && storage_class == csc_register)
4180         pedwarn ("file-scope declaration of %qs specifies %<register%>", name);
4181     }
4182   else
4183     {
4184       if (storage_class == csc_extern && funcdef_flag)
4185         error ("nested function %qs declared %<extern%>", name);
4186       else if (threadp && storage_class == csc_none)
4187         {
4188           error ("function-scope %qs implicitly auto and declared "
4189                  "%<__thread%>",
4190                  name);
4191           threadp = false;
4192         }
4193     }
4194
4195   /* Now figure out the structure of the declarator proper.
4196      Descend through it, creating more complex types, until we reach
4197      the declared identifier (or NULL_TREE, in an absolute declarator).
4198      At each stage we maintain an unqualified version of the type
4199      together with any qualifiers that should be applied to it with
4200      c_build_qualified_type; this way, array types including
4201      multidimensional array types are first built up in unqualified
4202      form and then the qualified form is created with
4203      TYPE_MAIN_VARIANT pointing to the unqualified form.  */
4204
4205   while (declarator && declarator->kind != cdk_id)
4206     {
4207       if (type == error_mark_node)
4208         {
4209           declarator = declarator->declarator;
4210           continue;
4211         }
4212
4213       /* Each level of DECLARATOR is either a cdk_array (for ...[..]),
4214          a cdk_pointer (for *...),
4215          a cdk_function (for ...(...)),
4216          a cdk_attrs (for nested attributes),
4217          or a cdk_id (for the name being declared
4218          or the place in an absolute declarator
4219          where the name was omitted).
4220          For the last case, we have just exited the loop.
4221
4222          At this point, TYPE is the type of elements of an array,
4223          or for a function to return, or for a pointer to point to.
4224          After this sequence of ifs, TYPE is the type of the
4225          array or function or pointer, and DECLARATOR has had its
4226          outermost layer removed.  */
4227
4228       if (array_ptr_quals != TYPE_UNQUALIFIED
4229           || array_ptr_attrs != NULL_TREE
4230           || array_parm_static)
4231         {
4232           /* Only the innermost declarator (making a parameter be of
4233              array type which is converted to pointer type)
4234              may have static or type qualifiers.  */
4235           error ("static or type qualifiers in non-parameter array declarator");
4236           array_ptr_quals = TYPE_UNQUALIFIED;
4237           array_ptr_attrs = NULL_TREE;
4238           array_parm_static = 0;
4239         }
4240
4241       switch (declarator->kind)
4242         {
4243         case cdk_attrs:
4244           {
4245             /* A declarator with embedded attributes.  */
4246             tree attrs = declarator->u.attrs;
4247             const struct c_declarator *inner_decl;
4248             int attr_flags = 0;
4249             declarator = declarator->declarator;
4250             inner_decl = declarator;
4251             while (inner_decl->kind == cdk_attrs)
4252               inner_decl = inner_decl->declarator;
4253             if (inner_decl->kind == cdk_id)
4254               attr_flags |= (int) ATTR_FLAG_DECL_NEXT;
4255             else if (inner_decl->kind == cdk_function)
4256               attr_flags |= (int) ATTR_FLAG_FUNCTION_NEXT;
4257             else if (inner_decl->kind == cdk_array)
4258               attr_flags |= (int) ATTR_FLAG_ARRAY_NEXT;
4259             returned_attrs = decl_attributes (&type,
4260                                               chainon (returned_attrs, attrs),
4261                                               attr_flags);
4262             break;
4263           }
4264         case cdk_array:
4265           {
4266             tree itype = NULL_TREE;
4267             tree size = declarator->u.array.dimen;
4268             /* The index is a signed object `sizetype' bits wide.  */
4269             tree index_type = c_common_signed_type (sizetype);
4270
4271             array_ptr_quals = declarator->u.array.quals;
4272             array_ptr_attrs = declarator->u.array.attrs;
4273             array_parm_static = declarator->u.array.static_p;
4274             array_parm_vla_unspec_p = declarator->u.array.vla_unspec_p;
4275
4276             declarator = declarator->declarator;
4277
4278             /* Check for some types that there cannot be arrays of.  */
4279
4280             if (VOID_TYPE_P (type))
4281               {
4282                 error ("declaration of %qs as array of voids", name);
4283                 type = error_mark_node;
4284               }
4285
4286             if (TREE_CODE (type) == FUNCTION_TYPE)
4287               {
4288                 error ("declaration of %qs as array of functions", name);
4289                 type = error_mark_node;
4290               }
4291
4292             if (pedantic && !in_system_header && flexible_array_type_p (type))
4293               pedwarn ("invalid use of structure with flexible array member");
4294
4295             if (size == error_mark_node)
4296               type = error_mark_node;
4297
4298             if (type == error_mark_node)
4299               continue;
4300
4301             /* If size was specified, set ITYPE to a range-type for
4302                that size.  Otherwise, ITYPE remains null.  finish_decl
4303                may figure it out from an initial value.  */
4304
4305             if (size)
4306               {
4307                 /* Strip NON_LVALUE_EXPRs since we aren't using as an
4308                    lvalue.  */
4309                 STRIP_TYPE_NOPS (size);
4310
4311                 if (!INTEGRAL_TYPE_P (TREE_TYPE (size)))
4312                   {
4313                     error ("size of array %qs has non-integer type", name);
4314                     size = integer_one_node;
4315                   }
4316
4317                 if (pedantic && integer_zerop (size))
4318                   pedwarn ("ISO C forbids zero-size array %qs", name);
4319
4320                 if (TREE_CODE (size) == INTEGER_CST)
4321                   {
4322                     constant_expression_warning (size);
4323                     if (tree_int_cst_sgn (size) < 0)
4324                       {
4325                         error ("size of array %qs is negative", name);
4326                         size = integer_one_node;
4327                       }
4328                   }
4329                 else if ((decl_context == NORMAL || decl_context == FIELD)
4330                          && current_scope == file_scope)
4331                   {
4332                     error ("variably modified %qs at file scope", name);
4333                     size = integer_one_node;
4334                   }
4335                 else
4336                   {
4337                     /* Make sure the array size remains visibly
4338                        nonconstant even if it is (eg) a const variable
4339                        with known value.  */
4340                     size_varies = 1;
4341                     warn_variable_length_array (orig_name, size);
4342                   }
4343
4344                 if (integer_zerop (size))
4345                   {
4346                     /* A zero-length array cannot be represented with
4347                        an unsigned index type, which is what we'll
4348                        get with build_index_type.  Create an
4349                        open-ended range instead.  */
4350                     itype = build_range_type (sizetype, size, NULL_TREE);
4351                   }
4352                 else
4353                   {
4354                     /* Arrange for the SAVE_EXPR on the inside of the
4355                        MINUS_EXPR, which allows the -1 to get folded
4356                        with the +1 that happens when building TYPE_SIZE.  */
4357                     if (size_varies)
4358                       size = variable_size (size);
4359
4360                     /* Compute the maximum valid index, that is, size
4361                        - 1.  Do the calculation in index_type, so that
4362                        if it is a variable the computations will be
4363                        done in the proper mode.  */
4364                     itype = fold_build2 (MINUS_EXPR, index_type,
4365                                          convert (index_type, size),
4366                                          convert (index_type,
4367                                                   size_one_node));
4368
4369                     /* If that overflowed, the array is too big.  ???
4370                        While a size of INT_MAX+1 technically shouldn't
4371                        cause an overflow (because we subtract 1), the
4372                        overflow is recorded during the conversion to
4373                        index_type, before the subtraction.  Handling
4374                        this case seems like an unnecessary
4375                        complication.  */
4376                     if (TREE_CODE (itype) == INTEGER_CST
4377                         && TREE_OVERFLOW (itype))
4378                       {
4379                         error ("size of array %qs is too large", name);
4380                         type = error_mark_node;
4381                         continue;
4382                       }
4383
4384                     itype = build_index_type (itype);
4385                   }
4386               }
4387             else if (decl_context == FIELD)
4388               {
4389                 if (pedantic && !flag_isoc99 && !in_system_header)
4390                   pedwarn ("ISO C90 does not support flexible array members");
4391
4392                 /* ISO C99 Flexible array members are effectively
4393                    identical to GCC's zero-length array extension.  */
4394                 itype = build_range_type (sizetype, size_zero_node, NULL_TREE);
4395               }
4396             else if (decl_context == PARM)
4397               {
4398                 if (array_parm_vla_unspec_p)
4399                   {
4400                     if (! orig_name)
4401                       {
4402                         /* C99 6.7.5.2p4 */
4403                         error ("%<[*]%> not allowed in other than a declaration");
4404                       }
4405
4406                     itype = build_range_type (sizetype, size_zero_node, NULL_TREE);
4407                     size_varies = 1;
4408                   }
4409               }
4410             else if (decl_context == TYPENAME)
4411               {
4412                 if (array_parm_vla_unspec_p)
4413                   {
4414                     /* The error is printed elsewhere.  We use this to
4415                        avoid messing up with incomplete array types of
4416                        the same type, that would otherwise be modified
4417                        below.  */
4418                     itype = build_range_type (sizetype, size_zero_node,
4419                                               NULL_TREE);
4420                   }
4421               }
4422
4423              /* Complain about arrays of incomplete types.  */
4424             if (!COMPLETE_TYPE_P (type))
4425               {
4426                 error ("array type has incomplete element type");
4427                 type = error_mark_node;
4428               }
4429             else
4430             /* When itype is NULL, a shared incomplete array type is
4431                returned for all array of a given type.  Elsewhere we
4432                make sure we don't complete that type before copying
4433                it, but here we want to make sure we don't ever
4434                modify the shared type, so we gcc_assert (itype)
4435                below.  */
4436               type = build_array_type (type, itype);
4437
4438             if (type != error_mark_node)
4439               {
4440                 if (size_varies)
4441                   {
4442                     /* It is ok to modify type here even if itype is
4443                        NULL: if size_varies, we're in a
4444                        multi-dimensional array and the inner type has
4445                        variable size, so the enclosing shared array type
4446                        must too.  */
4447                     if (size && TREE_CODE (size) == INTEGER_CST)
4448                       type
4449                         = build_distinct_type_copy (TYPE_MAIN_VARIANT (type));
4450                     C_TYPE_VARIABLE_SIZE (type) = 1;
4451                   }
4452
4453                 /* The GCC extension for zero-length arrays differs from
4454                    ISO flexible array members in that sizeof yields
4455                    zero.  */
4456                 if (size && integer_zerop (size))
4457                   {
4458                     gcc_assert (itype);
4459                     TYPE_SIZE (type) = bitsize_zero_node;
4460                     TYPE_SIZE_UNIT (type) = size_zero_node;
4461                   }
4462                 if (array_parm_vla_unspec_p)
4463                   {
4464                     gcc_assert (itype);
4465                     /* The type is complete.  C99 6.7.5.2p4  */
4466                     TYPE_SIZE (type) = bitsize_zero_node;
4467                     TYPE_SIZE_UNIT (type) = size_zero_node;
4468                   }
4469               }
4470
4471             if (decl_context != PARM
4472                 && (array_ptr_quals != TYPE_UNQUALIFIED
4473                     || array_ptr_attrs != NULL_TREE
4474                     || array_parm_static))
4475               {
4476                 error ("static or type qualifiers in non-parameter array declarator");
4477                 array_ptr_quals = TYPE_UNQUALIFIED;
4478                 array_ptr_attrs = NULL_TREE;
4479                 array_parm_static = 0;
4480               }
4481             break;
4482           }
4483         case cdk_function:
4484           {
4485             /* Say it's a definition only for the declarator closest
4486                to the identifier, apart possibly from some
4487                attributes.  */
4488             bool really_funcdef = false;
4489             tree arg_types;
4490             if (funcdef_flag)
4491               {
4492                 const struct c_declarator *t = declarator->declarator;
4493                 while (t->kind == cdk_attrs)
4494                   t = t->declarator;
4495                 really_funcdef = (t->kind == cdk_id);
4496               }
4497
4498             /* Declaring a function type.  Make sure we have a valid
4499                type for the function to return.  */
4500             if (type == error_mark_node)
4501               continue;
4502
4503             size_varies = 0;
4504
4505             /* Warn about some types functions can't return.  */
4506             if (TREE_CODE (type) == FUNCTION_TYPE)
4507               {
4508                 error ("%qs declared as function returning a function", name);
4509                 type = integer_type_node;
4510               }
4511             if (TREE_CODE (type) == ARRAY_TYPE)
4512               {
4513                 error ("%qs declared as function returning an array", name);
4514                 type = integer_type_node;
4515               }
4516
4517             /* Construct the function type and go to the next
4518                inner layer of declarator.  */
4519             arg_info = declarator->u.arg_info;
4520             arg_types = grokparms (arg_info, really_funcdef);
4521             if (really_funcdef)
4522               put_pending_sizes (arg_info->pending_sizes);
4523
4524             /* Type qualifiers before the return type of the function
4525                qualify the return type, not the function type.  */
4526             if (type_quals)
4527               {
4528                 /* Type qualifiers on a function return type are
4529                    normally permitted by the standard but have no
4530                    effect, so give a warning at -Wreturn-type.
4531                    Qualifiers on a void return type are banned on
4532                    function definitions in ISO C; GCC used to used
4533                    them for noreturn functions.  */
4534                 if (VOID_TYPE_P (type) && really_funcdef)
4535                   pedwarn ("function definition has qualified void return type");
4536                 else
4537                   warning (OPT_Wreturn_type,
4538                            "type qualifiers ignored on function return type");
4539
4540                 type = c_build_qualified_type (type, type_quals);
4541               }
4542             type_quals = TYPE_UNQUALIFIED;
4543
4544             type = build_function_type (type, arg_types);
4545             declarator = declarator->declarator;
4546
4547             /* Set the TYPE_CONTEXTs for each tagged type which is local to
4548                the formal parameter list of this FUNCTION_TYPE to point to
4549                the FUNCTION_TYPE node itself.  */
4550             {
4551               tree link;
4552
4553               for (link = arg_info->tags;
4554                    link;
4555                    link = TREE_CHAIN (link))
4556                 TYPE_CONTEXT (TREE_VALUE (link)) = type;
4557             }
4558             break;
4559           }
4560         case cdk_pointer:
4561           {
4562             /* Merge any constancy or volatility into the target type
4563                for the pointer.  */
4564
4565             if (pedantic && TREE_CODE (type) == FUNCTION_TYPE
4566                 && type_quals)
4567               pedwarn ("ISO C forbids qualified function types");
4568             if (type_quals)
4569               type = c_build_qualified_type (type, type_quals);
4570             size_varies = 0;
4571
4572             /* When the pointed-to type involves components of variable size,
4573                care must be taken to ensure that the size evaluation code is
4574                emitted early enough to dominate all the possible later uses
4575                and late enough for the variables on which it depends to have
4576                been assigned.
4577
4578                This is expected to happen automatically when the pointed-to
4579                type has a name/declaration of it's own, but special attention
4580                is required if the type is anonymous.
4581
4582                We handle the NORMAL and FIELD contexts here by attaching an
4583                artificial TYPE_DECL to such pointed-to type.  This forces the
4584                sizes evaluation at a safe point and ensures it is not deferred
4585                until e.g. within a deeper conditional context.
4586
4587                We expect nothing to be needed here for PARM or TYPENAME.
4588                Pushing a TYPE_DECL at this point for TYPENAME would actually
4589                be incorrect, as we might be in the middle of an expression
4590                with side effects on the pointed-to type size "arguments" prior
4591                to the pointer declaration point and the fake TYPE_DECL in the
4592                enclosing context would force the size evaluation prior to the
4593                side effects.  */
4594
4595             if (!TYPE_NAME (type)
4596                 && (decl_context == NORMAL || decl_context == FIELD)
4597                 && variably_modified_type_p (type, NULL_TREE))
4598               {
4599                 tree decl = build_decl (TYPE_DECL, NULL_TREE, type);
4600                 DECL_ARTIFICIAL (decl) = 1;
4601                 pushdecl (decl);
4602                 finish_decl (decl, NULL_TREE, NULL_TREE);
4603                 TYPE_NAME (type) = decl;
4604               }
4605
4606             type = build_pointer_type (type);
4607
4608             /* Process type qualifiers (such as const or volatile)
4609                that were given inside the `*'.  */
4610             type_quals = declarator->u.pointer_quals;
4611
4612             declarator = declarator->declarator;
4613             break;
4614           }
4615         default:
4616           gcc_unreachable ();
4617         }
4618     }
4619
4620   /* Now TYPE has the actual type, apart from any qualifiers in
4621      TYPE_QUALS.  */
4622
4623   /* Check the type and width of a bit-field.  */
4624   if (bitfield)
4625     check_bitfield_type_and_width (&type, width, orig_name);
4626
4627   /* Did array size calculations overflow?  */
4628
4629   if (TREE_CODE (type) == ARRAY_TYPE
4630       && COMPLETE_TYPE_P (type)
4631       && TREE_CODE (TYPE_SIZE_UNIT (type)) == INTEGER_CST
4632       && TREE_OVERFLOW (TYPE_SIZE_UNIT (type)))
4633     {
4634       error ("size of array %qs is too large", name);
4635       /* If we proceed with the array type as it is, we'll eventually
4636          crash in tree_low_cst().  */
4637       type = error_mark_node;
4638     }
4639
4640   /* If this is declaring a typedef name, return a TYPE_DECL.  */
4641
4642   if (storage_class == csc_typedef)
4643     {
4644       tree decl;
4645       if (pedantic && TREE_CODE (type) == FUNCTION_TYPE
4646           && type_quals)
4647         pedwarn ("ISO C forbids qualified function types");
4648       if (type_quals)
4649         type = c_build_qualified_type (type, type_quals);
4650       decl = build_decl (TYPE_DECL, declarator->u.id, type);
4651       if (declspecs->explicit_signed_p)
4652         C_TYPEDEF_EXPLICITLY_SIGNED (decl) = 1;
4653       decl_attributes (&decl, returned_attrs, 0);
4654       if (declspecs->inline_p)
4655         pedwarn ("typedef %q+D declared %<inline%>", decl);
4656       return decl;
4657     }
4658
4659   /* If this is a type name (such as, in a cast or sizeof),
4660      compute the type and return it now.  */
4661
4662   if (decl_context == TYPENAME)
4663     {
4664       /* Note that the grammar rejects storage classes in typenames
4665          and fields.  */
4666       gcc_assert (storage_class == csc_none && !threadp
4667                   && !declspecs->inline_p);
4668       if (pedantic && TREE_CODE (type) == FUNCTION_TYPE
4669           && type_quals)
4670         pedwarn ("ISO C forbids const or volatile function types");
4671       if (type_quals)
4672         type = c_build_qualified_type (type, type_quals);
4673       decl_attributes (&type, returned_attrs, 0);
4674       return type;
4675     }
4676
4677   if (pedantic && decl_context == FIELD
4678       && variably_modified_type_p (type, NULL_TREE))
4679     {
4680       /* C99 6.7.2.1p8 */
4681       pedwarn ("a member of a structure or union cannot have a variably modified type");
4682     }
4683
4684   /* Aside from typedefs and type names (handle above),
4685      `void' at top level (not within pointer)
4686      is allowed only in public variables.
4687      We don't complain about parms either, but that is because
4688      a better error message can be made later.  */
4689
4690   if (VOID_TYPE_P (type) && decl_context != PARM
4691       && !((decl_context != FIELD && TREE_CODE (type) != FUNCTION_TYPE)
4692             && (storage_class == csc_extern
4693                 || (current_scope == file_scope
4694                     && !(storage_class == csc_static
4695                          || storage_class == csc_register)))))
4696     {
4697       error ("variable or field %qs declared void", name);
4698       type = integer_type_node;
4699     }
4700
4701   /* Now create the decl, which may be a VAR_DECL, a PARM_DECL
4702      or a FUNCTION_DECL, depending on DECL_CONTEXT and TYPE.  */
4703
4704   {
4705     tree decl;
4706
4707     if (decl_context == PARM)
4708       {
4709         tree type_as_written;
4710         tree promoted_type;
4711
4712         /* A parameter declared as an array of T is really a pointer to T.
4713            One declared as a function is really a pointer to a function.  */
4714
4715         if (TREE_CODE (type) == ARRAY_TYPE)
4716           {
4717             /* Transfer const-ness of array into that of type pointed to.  */
4718             type = TREE_TYPE (type);
4719             if (type_quals)
4720               type = c_build_qualified_type (type, type_quals);
4721             type = build_pointer_type (type);
4722             type_quals = array_ptr_quals;
4723
4724             /* We don't yet implement attributes in this context.  */
4725             if (array_ptr_attrs != NULL_TREE)
4726               warning (OPT_Wattributes,
4727                        "attributes in parameter array declarator ignored");
4728
4729             size_varies = 0;
4730           }
4731         else if (TREE_CODE (type) == FUNCTION_TYPE)
4732           {
4733             if (pedantic && type_quals)
4734               pedwarn ("ISO C forbids qualified function types");
4735             if (type_quals)
4736               type = c_build_qualified_type (type, type_quals);
4737             type = build_pointer_type (type);
4738             type_quals = TYPE_UNQUALIFIED;
4739           }
4740         else if (type_quals)
4741           type = c_build_qualified_type (type, type_quals);
4742
4743         type_as_written = type;
4744
4745         decl = build_decl (PARM_DECL, declarator->u.id, type);
4746         if (size_varies)
4747           C_DECL_VARIABLE_SIZE (decl) = 1;
4748
4749         /* Compute the type actually passed in the parmlist,
4750            for the case where there is no prototype.
4751            (For example, shorts and chars are passed as ints.)
4752            When there is a prototype, this is overridden later.  */
4753
4754         if (type == error_mark_node)
4755           promoted_type = type;
4756         else
4757           promoted_type = c_type_promotes_to (type);
4758
4759         DECL_ARG_TYPE (decl) = promoted_type;
4760         if (declspecs->inline_p)
4761           pedwarn ("parameter %q+D declared %<inline%>", decl);
4762       }
4763     else if (decl_context == FIELD)
4764       {
4765         /* Note that the grammar rejects storage classes in typenames
4766            and fields.  */
4767         gcc_assert (storage_class == csc_none && !threadp
4768                     && !declspecs->inline_p);
4769
4770         /* Structure field.  It may not be a function.  */
4771
4772         if (TREE_CODE (type) == FUNCTION_TYPE)
4773           {
4774             error ("field %qs declared as a function", name);
4775             type = build_pointer_type (type);
4776           }
4777         else if (TREE_CODE (type) != ERROR_MARK
4778                  && !COMPLETE_OR_UNBOUND_ARRAY_TYPE_P (type))
4779           {
4780             error ("field %qs has incomplete type", name);
4781             type = error_mark_node;
4782           }
4783         type = c_build_qualified_type (type, type_quals);
4784         decl = build_decl (FIELD_DECL, declarator->u.id, type);
4785         DECL_NONADDRESSABLE_P (decl) = bitfield;
4786         if (bitfield && !declarator->u.id)
4787           TREE_NO_WARNING (decl) = 1;
4788
4789         if (size_varies)
4790           C_DECL_VARIABLE_SIZE (decl) = 1;
4791       }
4792     else if (TREE_CODE (type) == FUNCTION_TYPE)
4793       {
4794         if (storage_class == csc_register || threadp)
4795           {
4796             error ("invalid storage class for function %qs", name);
4797            }
4798         else if (current_scope != file_scope)
4799           {
4800             /* Function declaration not at file scope.  Storage
4801                classes other than `extern' are not allowed, C99
4802                6.7.1p5, and `extern' makes no difference.  However,
4803                GCC allows 'auto', perhaps with 'inline', to support
4804                nested functions.  */
4805             if (storage_class == csc_auto)
4806               {
4807                 if (pedantic)
4808                   pedwarn ("invalid storage class for function %qs", name);
4809               }
4810             else if (storage_class == csc_static)
4811               {
4812                 error ("invalid storage class for function %qs", name);
4813                 if (funcdef_flag)
4814                   storage_class = declspecs->storage_class = csc_none;
4815                 else
4816                   return 0;
4817               }
4818           }
4819
4820         decl = build_decl (FUNCTION_DECL, declarator->u.id, type);
4821         decl = build_decl_attribute_variant (decl, decl_attr);
4822
4823         DECL_LANG_SPECIFIC (decl) = GGC_CNEW (struct lang_decl);
4824
4825         if (pedantic && type_quals && !DECL_IN_SYSTEM_HEADER (decl))
4826           pedwarn ("ISO C forbids qualified function types");
4827
4828         /* GNU C interprets a volatile-qualified function type to indicate
4829            that the function does not return.  */
4830         if ((type_quals & TYPE_QUAL_VOLATILE)
4831             && !VOID_TYPE_P (TREE_TYPE (TREE_TYPE (decl))))
4832           warning (0, "%<noreturn%> function returns non-void value");
4833
4834         /* Every function declaration is an external reference
4835            (DECL_EXTERNAL) except for those which are not at file
4836            scope and are explicitly declared "auto".  This is
4837            forbidden by standard C (C99 6.7.1p5) and is interpreted by
4838            GCC to signify a forward declaration of a nested function.  */
4839         if (storage_class == csc_auto && current_scope != file_scope)
4840           DECL_EXTERNAL (decl) = 0;
4841         /* In C99, a function which is declared 'inline' with 'extern'
4842            is not an external reference (which is confusing).  It
4843            means that the later definition of the function must be output
4844            in this file, C99 6.7.4p6.  In GNU C89, a function declared
4845            'extern inline' is an external reference.  */
4846         else if (declspecs->inline_p && storage_class != csc_static)
4847           DECL_EXTERNAL (decl) = ((storage_class == csc_extern)
4848                                   == flag_gnu89_inline);
4849         else
4850           DECL_EXTERNAL (decl) = !initialized;
4851
4852         /* Record absence of global scope for `static' or `auto'.  */
4853         TREE_PUBLIC (decl)
4854           = !(storage_class == csc_static || storage_class == csc_auto);
4855
4856         /* For a function definition, record the argument information
4857            block where store_parm_decls will look for it.  */
4858         if (funcdef_flag)
4859           current_function_arg_info = arg_info;
4860
4861         if (declspecs->default_int_p)
4862           C_FUNCTION_IMPLICIT_INT (decl) = 1;
4863
4864         /* Record presence of `inline', if it is reasonable.  */
4865         if (flag_hosted && MAIN_NAME_P (declarator->u.id))
4866           {
4867             if (declspecs->inline_p)
4868               pedwarn ("cannot inline function %<main%>");
4869           }
4870         else if (declspecs->inline_p)
4871           {
4872             /* Record that the function is declared `inline'.  */
4873             DECL_DECLARED_INLINE_P (decl) = 1;
4874
4875             /* Do not mark bare declarations as DECL_INLINE.  Doing so
4876                in the presence of multiple declarations can result in
4877                the abstract origin pointing between the declarations,
4878                which will confuse dwarf2out.  */
4879             if (initialized)
4880               DECL_INLINE (decl) = 1;
4881           }
4882         /* If -finline-functions, assume it can be inlined.  This does
4883            two things: let the function be deferred until it is actually
4884            needed, and let dwarf2 know that the function is inlinable.  */
4885         else if (flag_inline_trees == 2 && initialized)
4886           DECL_INLINE (decl) = 1;
4887       }
4888     else
4889       {
4890         /* It's a variable.  */
4891         /* An uninitialized decl with `extern' is a reference.  */
4892         int extern_ref = !initialized && storage_class == csc_extern;
4893
4894         type = c_build_qualified_type (type, type_quals);
4895
4896         /* C99 6.2.2p7: It is invalid (compile-time undefined
4897            behavior) to create an 'extern' declaration for a
4898            variable if there is a global declaration that is
4899            'static' and the global declaration is not visible.
4900            (If the static declaration _is_ currently visible,
4901            the 'extern' declaration is taken to refer to that decl.) */
4902         if (extern_ref && current_scope != file_scope)
4903           {
4904             tree global_decl  = identifier_global_value (declarator->u.id);
4905             tree visible_decl = lookup_name (declarator->u.id);
4906
4907             if (global_decl
4908                 && global_decl != visible_decl
4909                 && TREE_CODE (global_decl) == VAR_DECL
4910                 && !TREE_PUBLIC (global_decl))
4911               error ("variable previously declared %<static%> redeclared "
4912                      "%<extern%>");
4913           }
4914
4915         decl = build_decl (VAR_DECL, declarator->u.id, type);
4916         DECL_SOURCE_LOCATION (decl) = declarator->id_loc;
4917         if (size_varies)
4918           C_DECL_VARIABLE_SIZE (decl) = 1;
4919
4920         if (declspecs->inline_p)
4921           pedwarn ("variable %q+D declared %<inline%>", decl);
4922
4923         /* At file scope, an initialized extern declaration may follow
4924            a static declaration.  In that case, DECL_EXTERNAL will be
4925            reset later in start_decl.  */
4926         DECL_EXTERNAL (decl) = (storage_class == csc_extern);
4927
4928         /* At file scope, the presence of a `static' or `register' storage
4929            class specifier, or the absence of all storage class specifiers
4930            makes this declaration a definition (perhaps tentative).  Also,
4931            the absence of `static' makes it public.  */
4932         if (current_scope == file_scope)
4933           {
4934             TREE_PUBLIC (decl) = storage_class != csc_static;
4935             TREE_STATIC (decl) = !extern_ref;
4936           }
4937         /* Not at file scope, only `static' makes a static definition.  */
4938         else
4939           {
4940             TREE_STATIC (decl) = (storage_class == csc_static);
4941             TREE_PUBLIC (decl) = extern_ref;
4942           }
4943
4944         if (threadp)
4945           DECL_TLS_MODEL (decl) = decl_default_tls_model (decl);
4946       }
4947
4948     if (storage_class == csc_extern
4949         && variably_modified_type_p (type, NULL_TREE))
4950       {
4951         /* C99 6.7.5.2p2 */
4952         error ("object with variably modified type must have no linkage");
4953       }
4954
4955     /* Record `register' declaration for warnings on &
4956        and in case doing stupid register allocation.  */
4957
4958     if (storage_class == csc_register)
4959       {
4960         C_DECL_REGISTER (decl) = 1;
4961         DECL_REGISTER (decl) = 1;
4962       }
4963
4964     /* Record constancy and volatility.  */
4965     c_apply_type_quals_to_decl (type_quals, decl);
4966
4967     /* If a type has volatile components, it should be stored in memory.
4968        Otherwise, the fact that those components are volatile
4969        will be ignored, and would even crash the compiler.
4970        Of course, this only makes sense on  VAR,PARM, and RESULT decl's.   */
4971     if (C_TYPE_FIELDS_VOLATILE (TREE_TYPE (decl))
4972         && (TREE_CODE (decl) == VAR_DECL ||  TREE_CODE (decl) == PARM_DECL
4973           || TREE_CODE (decl) == RESULT_DECL))
4974       {
4975         /* It is not an error for a structure with volatile fields to
4976            be declared register, but reset DECL_REGISTER since it
4977            cannot actually go in a register.  */
4978         int was_reg = C_DECL_REGISTER (decl);
4979         C_DECL_REGISTER (decl) = 0;
4980         DECL_REGISTER (decl) = 0;
4981         c_mark_addressable (decl);
4982         C_DECL_REGISTER (decl) = was_reg;
4983       }
4984
4985   /* This is the earliest point at which we might know the assembler
4986      name of a variable.  Thus, if it's known before this, die horribly.  */
4987     gcc_assert (!DECL_ASSEMBLER_NAME_SET_P (decl));
4988
4989     decl_attributes (&decl, returned_attrs, 0);
4990
4991     return decl;
4992   }
4993 }
4994 \f
4995 /* Decode the parameter-list info for a function type or function definition.
4996    The argument is the value returned by `get_parm_info' (or made in c-parse.c
4997    if there is an identifier list instead of a parameter decl list).
4998    These two functions are separate because when a function returns
4999    or receives functions then each is called multiple times but the order
5000    of calls is different.  The last call to `grokparms' is always the one
5001    that contains the formal parameter names of a function definition.
5002
5003    Return a list of arg types to use in the FUNCTION_TYPE for this function.
5004
5005    FUNCDEF_FLAG is true for a function definition, false for
5006    a mere declaration.  A nonempty identifier-list gets an error message
5007    when FUNCDEF_FLAG is false.  */
5008
5009 static tree
5010 grokparms (struct c_arg_info *arg_info, bool funcdef_flag)
5011 {
5012   tree arg_types = arg_info->types;
5013
5014   if (funcdef_flag && arg_info->had_vla_unspec)
5015     {
5016       /* A function definition isn't function prototype scope C99 6.2.1p4.  */
5017       /* C99 6.7.5.2p4 */
5018       error ("%<[*]%> not allowed in other than function prototype scope");
5019     }
5020
5021   if (arg_types == 0 && !funcdef_flag && !in_system_header)
5022     warning (OPT_Wstrict_prototypes,
5023              "function declaration isn%'t a prototype");
5024
5025   if (arg_types == error_mark_node)
5026     return 0;  /* don't set TYPE_ARG_TYPES in this case */
5027
5028   else if (arg_types && TREE_CODE (TREE_VALUE (arg_types)) == IDENTIFIER_NODE)
5029     {
5030       if (!funcdef_flag)
5031         pedwarn ("parameter names (without types) in function declaration");
5032
5033       arg_info->parms = arg_info->types;
5034       arg_info->types = 0;
5035       return 0;
5036     }
5037   else
5038     {
5039       tree parm, type, typelt;
5040       unsigned int parmno;
5041
5042       /* If there is a parameter of incomplete type in a definition,
5043          this is an error.  In a declaration this is valid, and a
5044          struct or union type may be completed later, before any calls
5045          or definition of the function.  In the case where the tag was
5046          first declared within the parameter list, a warning has
5047          already been given.  If a parameter has void type, then
5048          however the function cannot be defined or called, so
5049          warn.  */
5050
5051       for (parm = arg_info->parms, typelt = arg_types, parmno = 1;
5052            parm;
5053            parm = TREE_CHAIN (parm), typelt = TREE_CHAIN (typelt), parmno++)
5054         {
5055           type = TREE_VALUE (typelt);
5056           if (type == error_mark_node)
5057             continue;
5058
5059           if (!COMPLETE_TYPE_P (type))
5060             {
5061               if (funcdef_flag)
5062                 {
5063                   if (DECL_NAME (parm))
5064                     error ("parameter %u (%q+D) has incomplete type",
5065                            parmno, parm);
5066                   else
5067                     error ("%Jparameter %u has incomplete type",
5068                            parm, parmno);
5069
5070                   TREE_VALUE (typelt) = error_mark_node;
5071                   TREE_TYPE (parm) = error_mark_node;
5072                 }
5073               else if (VOID_TYPE_P (type))
5074                 {
5075                   if (DECL_NAME (parm))
5076                     warning (0, "parameter %u (%q+D) has void type",
5077                              parmno, parm);
5078                   else
5079                     warning (0, "%Jparameter %u has void type",
5080                              parm, parmno);
5081                 }
5082             }
5083
5084           if (DECL_NAME (parm) && TREE_USED (parm))
5085             warn_if_shadowing (parm);
5086         }
5087       return arg_types;
5088     }
5089 }
5090
5091 /* Take apart the current scope and return a c_arg_info structure with
5092    info on a parameter list just parsed.
5093
5094    This structure is later fed to 'grokparms' and 'store_parm_decls'.
5095
5096    ELLIPSIS being true means the argument list ended in '...' so don't
5097    append a sentinel (void_list_node) to the end of the type-list.  */
5098
5099 struct c_arg_info *
5100 get_parm_info (bool ellipsis)
5101 {
5102   struct c_binding *b = current_scope->bindings;
5103   struct c_arg_info *arg_info = XOBNEW (&parser_obstack,
5104                                         struct c_arg_info);
5105   tree parms    = 0;
5106   tree tags     = 0;
5107   tree types    = 0;
5108   tree others   = 0;
5109
5110   static bool explained_incomplete_types = false;
5111   bool gave_void_only_once_err = false;
5112
5113   arg_info->parms = 0;
5114   arg_info->tags = 0;
5115   arg_info->types = 0;
5116   arg_info->others = 0;
5117   arg_info->pending_sizes = 0;
5118   arg_info->had_vla_unspec = current_scope->had_vla_unspec;
5119
5120   /* The bindings in this scope must not get put into a block.
5121      We will take care of deleting the binding nodes.  */
5122   current_scope->bindings = 0;
5123
5124   /* This function is only called if there was *something* on the
5125      parameter list.  */
5126   gcc_assert (b);
5127
5128   /* A parameter list consisting solely of 'void' indicates that the
5129      function takes no arguments.  But if the 'void' is qualified
5130      (by 'const' or 'volatile'), or has a storage class specifier
5131      ('register'), then the behavior is undefined; issue an error.
5132      Typedefs for 'void' are OK (see DR#157).  */
5133   if (b->prev == 0                          /* one binding */
5134       && TREE_CODE (b->decl) == PARM_DECL   /* which is a parameter */
5135       && !DECL_NAME (b->decl)               /* anonymous */
5136       && VOID_TYPE_P (TREE_TYPE (b->decl))) /* of void type */
5137     {
5138       if (TREE_THIS_VOLATILE (b->decl)
5139           || TREE_READONLY (b->decl)
5140           || C_DECL_REGISTER (b->decl))
5141         error ("%<void%> as only parameter may not be qualified");
5142
5143       /* There cannot be an ellipsis.  */
5144       if (ellipsis)
5145         error ("%<void%> must be the only parameter");
5146
5147       arg_info->types = void_list_node;
5148       return arg_info;
5149     }
5150
5151   if (!ellipsis)
5152     types = void_list_node;
5153
5154   /* Break up the bindings list into parms, tags, types, and others;
5155      apply sanity checks; purge the name-to-decl bindings.  */
5156   while (b)
5157     {
5158       tree decl = b->decl;
5159       tree type = TREE_TYPE (decl);
5160       const char *keyword;
5161
5162       switch (TREE_CODE (decl))
5163         {
5164         case PARM_DECL:
5165           if (b->id)
5166             {
5167               gcc_assert (I_SYMBOL_BINDING (b->id) == b);
5168               I_SYMBOL_BINDING (b->id) = b->shadowed;
5169             }
5170
5171           /* Check for forward decls that never got their actual decl.  */
5172           if (TREE_ASM_WRITTEN (decl))
5173             error ("parameter %q+D has just a forward declaration", decl);
5174           /* Check for (..., void, ...) and issue an error.  */
5175           else if (VOID_TYPE_P (type) && !DECL_NAME (decl))
5176             {
5177               if (!gave_void_only_once_err)
5178                 {
5179                   error ("%<void%> must be the only parameter");
5180                   gave_void_only_once_err = true;
5181                 }
5182             }
5183           else
5184             {
5185               /* Valid parameter, add it to the list.  */
5186               TREE_CHAIN (decl) = parms;
5187               parms = decl;
5188
5189               /* Since there is a prototype, args are passed in their
5190                  declared types.  The back end may override this later.  */
5191               DECL_ARG_TYPE (decl) = type;
5192               types = tree_cons (0, type, types);
5193             }
5194           break;
5195
5196         case ENUMERAL_TYPE: keyword = "enum"; goto tag;
5197         case UNION_TYPE:    keyword = "union"; goto tag;
5198         case RECORD_TYPE:   keyword = "struct"; goto tag;
5199         tag:
5200           /* Types may not have tag-names, in which case the type
5201              appears in the bindings list with b->id NULL.  */
5202           if (b->id)
5203             {
5204               gcc_assert (I_TAG_BINDING (b->id) == b);
5205               I_TAG_BINDING (b->id) = b->shadowed;
5206             }
5207
5208           /* Warn about any struct, union or enum tags defined in a
5209              parameter list.  The scope of such types is limited to
5210              the parameter list, which is rarely if ever desirable
5211              (it's impossible to call such a function with type-
5212              correct arguments).  An anonymous union parm type is
5213              meaningful as a GNU extension, so don't warn for that.  */
5214           if (TREE_CODE (decl) != UNION_TYPE || b->id != 0)
5215             {
5216               if (b->id)
5217                 /* The %s will be one of 'struct', 'union', or 'enum'.  */
5218                 warning (0, "%<%s %E%> declared inside parameter list",
5219                          keyword, b->id);
5220               else
5221                 /* The %s will be one of 'struct', 'union', or 'enum'.  */
5222                 warning (0, "anonymous %s declared inside parameter list",
5223                          keyword);
5224
5225               if (!explained_incomplete_types)
5226                 {
5227                   warning (0, "its scope is only this definition or declaration,"
5228                            " which is probably not what you want");
5229                   explained_incomplete_types = true;
5230                 }
5231             }
5232
5233           tags = tree_cons (b->id, decl, tags);
5234           break;
5235
5236         case CONST_DECL:
5237         case TYPE_DECL:
5238         case FUNCTION_DECL:
5239           /* CONST_DECLs appear here when we have an embedded enum,
5240              and TYPE_DECLs appear here when we have an embedded struct
5241              or union.  No warnings for this - we already warned about the
5242              type itself.  FUNCTION_DECLs appear when there is an implicit
5243              function declaration in the parameter list.  */
5244
5245           TREE_CHAIN (decl) = others;
5246           others = decl;
5247           /* fall through */
5248
5249         case ERROR_MARK:
5250           /* error_mark_node appears here when we have an undeclared
5251              variable.  Just throw it away.  */
5252           if (b->id)
5253             {
5254               gcc_assert (I_SYMBOL_BINDING (b->id) == b);
5255               I_SYMBOL_BINDING (b->id) = b->shadowed;
5256             }
5257           break;
5258
5259           /* Other things that might be encountered.  */
5260         case LABEL_DECL:
5261         case VAR_DECL:
5262         default:
5263           gcc_unreachable ();
5264         }
5265
5266       b = free_binding_and_advance (b);
5267     }
5268
5269   arg_info->parms = parms;
5270   arg_info->tags = tags;
5271   arg_info->types = types;
5272   arg_info->others = others;
5273   arg_info->pending_sizes = get_pending_sizes ();
5274   return arg_info;
5275 }
5276 \f
5277 /* Get the struct, enum or union (CODE says which) with tag NAME.
5278    Define the tag as a forward-reference if it is not defined.
5279    Return a c_typespec structure for the type specifier.  */
5280
5281 struct c_typespec
5282 parser_xref_tag (enum tree_code code, tree name)
5283 {
5284   struct c_typespec ret;
5285   /* If a cross reference is requested, look up the type
5286      already defined for this tag and return it.  */
5287
5288   tree ref = lookup_tag (code, name, 0);
5289   /* If this is the right type of tag, return what we found.
5290      (This reference will be shadowed by shadow_tag later if appropriate.)
5291      If this is the wrong type of tag, do not return it.  If it was the
5292      wrong type in the same scope, we will have had an error
5293      message already; if in a different scope and declaring
5294      a name, pending_xref_error will give an error message; but if in a
5295      different scope and not declaring a name, this tag should
5296      shadow the previous declaration of a different type of tag, and
5297      this would not work properly if we return the reference found.
5298      (For example, with "struct foo" in an outer scope, "union foo;"
5299      must shadow that tag with a new one of union type.)  */
5300   ret.kind = (ref ? ctsk_tagref : ctsk_tagfirstref);
5301   if (ref && TREE_CODE (ref) == code)
5302     {
5303       ret.spec = ref;
5304       return ret;
5305     }
5306
5307   /* If no such tag is yet defined, create a forward-reference node
5308      and record it as the "definition".
5309      When a real declaration of this type is found,
5310      the forward-reference will be altered into a real type.  */
5311
5312   ref = make_node (code);
5313   if (code == ENUMERAL_TYPE)
5314     {
5315       /* Give the type a default layout like unsigned int
5316          to avoid crashing if it does not get defined.  */
5317       TYPE_MODE (ref) = TYPE_MODE (unsigned_type_node);
5318       TYPE_ALIGN (ref) = TYPE_ALIGN (unsigned_type_node);
5319       TYPE_USER_ALIGN (ref) = 0;
5320       TYPE_UNSIGNED (ref) = 1;
5321       TYPE_PRECISION (ref) = TYPE_PRECISION (unsigned_type_node);
5322       TYPE_MIN_VALUE (ref) = TYPE_MIN_VALUE (unsigned_type_node);
5323       TYPE_MAX_VALUE (ref) = TYPE_MAX_VALUE (unsigned_type_node);
5324     }
5325
5326   pushtag (name, ref);
5327
5328   ret.spec = ref;
5329   return ret;
5330 }
5331
5332 /* Get the struct, enum or union (CODE says which) with tag NAME.
5333    Define the tag as a forward-reference if it is not defined.
5334    Return a tree for the type.  */
5335
5336 tree
5337 xref_tag (enum tree_code code, tree name)
5338 {
5339   return parser_xref_tag (code, name).spec;
5340 }
5341 \f
5342 /* Make sure that the tag NAME is defined *in the current scope*
5343    at least as a forward reference.
5344    CODE says which kind of tag NAME ought to be.  */
5345
5346 tree
5347 start_struct (enum tree_code code, tree name)
5348 {
5349   /* If there is already a tag defined at this scope
5350      (as a forward reference), just return it.  */
5351
5352   tree ref = 0;
5353
5354   if (name != 0)
5355     ref = lookup_tag (code, name, 1);
5356   if (ref && TREE_CODE (ref) == code)
5357     {
5358       if (TYPE_SIZE (ref))
5359         {
5360           if (code == UNION_TYPE)
5361             error ("redefinition of %<union %E%>", name);
5362           else
5363             error ("redefinition of %<struct %E%>", name);
5364         }
5365       else if (C_TYPE_BEING_DEFINED (ref))
5366         {
5367           if (code == UNION_TYPE)
5368             error ("nested redefinition of %<union %E%>", name);
5369           else
5370             error ("nested redefinition of %<struct %E%>", name);
5371           /* Don't create structures that contain themselves.  */
5372           ref = NULL_TREE;
5373         }
5374     }
5375
5376   /* Otherwise create a forward-reference just so the tag is in scope.  */
5377
5378   if (ref == NULL_TREE || TREE_CODE (ref) != code)
5379     {
5380       ref = make_node (code);
5381       pushtag (name, ref);
5382     }
5383
5384   C_TYPE_BEING_DEFINED (ref) = 1;
5385   TYPE_PACKED (ref) = flag_pack_struct;
5386   return ref;
5387 }
5388
5389 /* Process the specs, declarator and width (NULL if omitted)
5390    of a structure component, returning a FIELD_DECL node.
5391    WIDTH is non-NULL for bit-fields only, and is an INTEGER_CST node.
5392
5393    This is done during the parsing of the struct declaration.
5394    The FIELD_DECL nodes are chained together and the lot of them
5395    are ultimately passed to `build_struct' to make the RECORD_TYPE node.  */
5396
5397 tree
5398 grokfield (struct c_declarator *declarator, struct c_declspecs *declspecs,
5399            tree width)
5400 {
5401   tree value;
5402
5403   if (declarator->kind == cdk_id && declarator->u.id == NULL_TREE
5404       && width == NULL_TREE)
5405     {
5406       /* This is an unnamed decl.
5407
5408          If we have something of the form "union { list } ;" then this
5409          is the anonymous union extension.  Similarly for struct.
5410
5411          If this is something of the form "struct foo;", then
5412            If MS extensions are enabled, this is handled as an
5413              anonymous struct.
5414            Otherwise this is a forward declaration of a structure tag.
5415
5416          If this is something of the form "foo;" and foo is a TYPE_DECL, then
5417            If MS extensions are enabled and foo names a structure, then
5418              again this is an anonymous struct.
5419            Otherwise this is an error.
5420
5421          Oh what a horrid tangled web we weave.  I wonder if MS consciously
5422          took this from Plan 9 or if it was an accident of implementation
5423          that took root before someone noticed the bug...  */
5424
5425       tree type = declspecs->type;
5426       bool type_ok = (TREE_CODE (type) == RECORD_TYPE
5427                       || TREE_CODE (type) == UNION_TYPE);
5428       bool ok = false;
5429
5430       if (type_ok
5431           && (flag_ms_extensions || !declspecs->typedef_p))
5432         {
5433           if (flag_ms_extensions)
5434             ok = true;
5435           else if (flag_iso)
5436             ok = false;
5437           else if (TYPE_NAME (type) == NULL)
5438             ok = true;
5439           else
5440             ok = false;
5441         }
5442       if (!ok)
5443         {
5444           pedwarn ("declaration does not declare anything");
5445           return NULL_TREE;
5446         }
5447       if (pedantic)
5448         pedwarn ("ISO C doesn%'t support unnamed structs/unions");
5449     }
5450
5451   value = grokdeclarator (declarator, declspecs, FIELD, false,
5452                           width ? &width : NULL, DEPRECATED_NORMAL);
5453
5454   finish_decl (value, NULL_TREE, NULL_TREE);
5455   DECL_INITIAL (value) = width;
5456
5457   return value;
5458 }
5459 \f
5460 /* Generate an error for any duplicate field names in FIELDLIST.  Munge
5461    the list such that this does not present a problem later.  */
5462
5463 static void
5464 detect_field_duplicates (tree fieldlist)
5465 {
5466   tree x, y;
5467   int timeout = 10;
5468
5469   /* First, see if there are more than "a few" fields.
5470      This is trivially true if there are zero or one fields.  */
5471   if (!fieldlist)
5472     return;
5473   x = TREE_CHAIN (fieldlist);
5474   if (!x)
5475     return;
5476   do {
5477     timeout--;
5478     x = TREE_CHAIN (x);
5479   } while (timeout > 0 && x);
5480
5481   /* If there were "few" fields, avoid the overhead of allocating
5482      a hash table.  Instead just do the nested traversal thing.  */
5483   if (timeout > 0)
5484     {
5485       for (x = TREE_CHAIN (fieldlist); x ; x = TREE_CHAIN (x))
5486         if (DECL_NAME (x))
5487           {
5488             for (y = fieldlist; y != x; y = TREE_CHAIN (y))
5489               if (DECL_NAME (y) == DECL_NAME (x))
5490                 {
5491                   error ("duplicate member %q+D", x);
5492                   DECL_NAME (x) = NULL_TREE;
5493                 }
5494           }
5495     }
5496   else
5497     {
5498       htab_t htab = htab_create (37, htab_hash_pointer, htab_eq_pointer, NULL);
5499       void **slot;
5500
5501       for (x = fieldlist; x ; x = TREE_CHAIN (x))
5502         if ((y = DECL_NAME (x)) != 0)
5503           {
5504             slot = htab_find_slot (htab, y, INSERT);
5505             if (*slot)
5506               {
5507                 error ("duplicate member %q+D", x);
5508                 DECL_NAME (x) = NULL_TREE;
5509               }
5510             *slot = y;
5511           }
5512
5513       htab_delete (htab);
5514     }
5515 }
5516
5517 /* Fill in the fields of a RECORD_TYPE or UNION_TYPE node, T.
5518    FIELDLIST is a chain of FIELD_DECL nodes for the fields.
5519    ATTRIBUTES are attributes to be applied to the structure.  */
5520
5521 tree
5522 finish_struct (tree t, tree fieldlist, tree attributes)
5523 {
5524   tree x;
5525   bool toplevel = file_scope == current_scope;
5526   int saw_named_field;
5527
5528   /* If this type was previously laid out as a forward reference,
5529      make sure we lay it out again.  */
5530
5531   TYPE_SIZE (t) = 0;
5532
5533   decl_attributes (&t, attributes, (int) ATTR_FLAG_TYPE_IN_PLACE);
5534
5535   if (pedantic)
5536     {
5537       for (x = fieldlist; x; x = TREE_CHAIN (x))
5538         if (DECL_NAME (x) != 0)
5539           break;
5540
5541       if (x == 0)
5542         {
5543           if (TREE_CODE (t) == UNION_TYPE)
5544             {
5545               if (fieldlist)
5546                 pedwarn ("union has no named members");
5547               else
5548                 pedwarn ("union has no members");
5549             }
5550           else
5551             {
5552               if (fieldlist)
5553                 pedwarn ("struct has no named members");
5554               else
5555                 pedwarn ("struct has no members");
5556             }
5557         }
5558     }
5559
5560   /* Install struct as DECL_CONTEXT of each field decl.
5561      Also process specified field sizes, found in the DECL_INITIAL,
5562      storing 0 there after the type has been changed to precision equal
5563      to its width, rather than the precision of the specified standard
5564      type.  (Correct layout requires the original type to have been preserved
5565      until now.)  */
5566
5567   saw_named_field = 0;
5568   for (x = fieldlist; x; x = TREE_CHAIN (x))
5569     {
5570       if (TREE_TYPE (x) == error_mark_node)
5571         continue;
5572
5573       DECL_CONTEXT (x) = t;
5574
5575       if (TYPE_PACKED (t) && TYPE_ALIGN (TREE_TYPE (x)) > BITS_PER_UNIT)
5576         DECL_PACKED (x) = 1;
5577
5578       /* If any field is const, the structure type is pseudo-const.  */
5579       if (TREE_READONLY (x))
5580         C_TYPE_FIELDS_READONLY (t) = 1;
5581       else
5582         {
5583           /* A field that is pseudo-const makes the structure likewise.  */
5584           tree t1 = TREE_TYPE (x);
5585           while (TREE_CODE (t1) == ARRAY_TYPE)
5586             t1 = TREE_TYPE (t1);
5587           if ((TREE_CODE (t1) == RECORD_TYPE || TREE_CODE (t1) == UNION_TYPE)
5588               && C_TYPE_FIELDS_READONLY (t1))
5589             C_TYPE_FIELDS_READONLY (t) = 1;
5590         }
5591
5592       /* Any field that is volatile means variables of this type must be
5593          treated in some ways as volatile.  */
5594       if (TREE_THIS_VOLATILE (x))
5595         C_TYPE_FIELDS_VOLATILE (t) = 1;
5596
5597       /* Any field of nominal variable size implies structure is too.  */
5598       if (C_DECL_VARIABLE_SIZE (x))
5599         C_TYPE_VARIABLE_SIZE (t) = 1;
5600
5601       if (DECL_INITIAL (x))
5602         {
5603           unsigned HOST_WIDE_INT width = tree_low_cst (DECL_INITIAL (x), 1);
5604           DECL_SIZE (x) = bitsize_int (width);
5605           DECL_BIT_FIELD (x) = 1;
5606           SET_DECL_C_BIT_FIELD (x);
5607         }
5608
5609       /* Detect flexible array member in an invalid context.  */
5610       if (TREE_CODE (TREE_TYPE (x)) == ARRAY_TYPE
5611           && TYPE_SIZE (TREE_TYPE (x)) == NULL_TREE
5612           && TYPE_DOMAIN (TREE_TYPE (x)) != NULL_TREE
5613           && TYPE_MAX_VALUE (TYPE_DOMAIN (TREE_TYPE (x))) == NULL_TREE)
5614         {
5615           if (TREE_CODE (t) == UNION_TYPE)
5616             {
5617               error ("%Jflexible array member in union", x);
5618               TREE_TYPE (x) = error_mark_node;
5619             }
5620           else if (TREE_CHAIN (x) != NULL_TREE)
5621             {
5622               error ("%Jflexible array member not at end of struct", x);
5623               TREE_TYPE (x) = error_mark_node;
5624             }
5625           else if (!saw_named_field)
5626             {
5627               error ("%Jflexible array member in otherwise empty struct", x);
5628               TREE_TYPE (x) = error_mark_node;
5629             }
5630         }
5631
5632       if (pedantic && !in_system_header && TREE_CODE (t) == RECORD_TYPE
5633           && flexible_array_type_p (TREE_TYPE (x)))
5634         pedwarn ("%Jinvalid use of structure with flexible array member", x);
5635
5636       if (DECL_NAME (x))
5637         saw_named_field = 1;
5638     }
5639
5640   detect_field_duplicates (fieldlist);
5641
5642   /* Now we have the nearly final fieldlist.  Record it,
5643      then lay out the structure or union (including the fields).  */
5644
5645   TYPE_FIELDS (t) = fieldlist;
5646
5647   layout_type (t);
5648
5649   /* Give bit-fields their proper types.  */
5650   {
5651     tree *fieldlistp = &fieldlist;
5652     while (*fieldlistp)
5653       if (TREE_CODE (*fieldlistp) == FIELD_DECL && DECL_INITIAL (*fieldlistp)
5654           && TREE_TYPE (*fieldlistp) != error_mark_node)
5655         {
5656           unsigned HOST_WIDE_INT width
5657             = tree_low_cst (DECL_INITIAL (*fieldlistp), 1);
5658           tree type = TREE_TYPE (*fieldlistp);
5659           if (width != TYPE_PRECISION (type))
5660             {
5661               TREE_TYPE (*fieldlistp)
5662                 = c_build_bitfield_integer_type (width, TYPE_UNSIGNED (type));
5663               DECL_MODE (*fieldlistp) = TYPE_MODE (TREE_TYPE (*fieldlistp));
5664             }
5665           DECL_INITIAL (*fieldlistp) = 0;
5666         }
5667       else
5668         fieldlistp = &TREE_CHAIN (*fieldlistp);
5669   }
5670
5671   /* Now we have the truly final field list.
5672      Store it in this type and in the variants.  */
5673
5674   TYPE_FIELDS (t) = fieldlist;
5675
5676   /* If there are lots of fields, sort so we can look through them fast.
5677      We arbitrarily consider 16 or more elts to be "a lot".  */
5678
5679   {
5680     int len = 0;
5681
5682     for (x = fieldlist; x; x = TREE_CHAIN (x))
5683       {
5684         if (len > 15 || DECL_NAME (x) == NULL)
5685           break;
5686         len += 1;
5687       }
5688
5689     if (len > 15)
5690       {
5691         tree *field_array;
5692         struct lang_type *space;
5693         struct sorted_fields_type *space2;
5694
5695         len += list_length (x);
5696
5697         /* Use the same allocation policy here that make_node uses, to
5698           ensure that this lives as long as the rest of the struct decl.
5699           All decls in an inline function need to be saved.  */
5700
5701         space = GGC_CNEW (struct lang_type);
5702         space2 = GGC_NEWVAR (struct sorted_fields_type,
5703                              sizeof (struct sorted_fields_type) + len * sizeof (tree));
5704
5705         len = 0;
5706         space->s = space2;
5707         field_array = &space2->elts[0];
5708         for (x = fieldlist; x; x = TREE_CHAIN (x))
5709           {
5710             field_array[len++] = x;
5711
5712             /* If there is anonymous struct or union, break out of the loop.  */
5713             if (DECL_NAME (x) == NULL)
5714               break;
5715           }
5716         /* Found no anonymous struct/union.  Add the TYPE_LANG_SPECIFIC.  */
5717         if (x == NULL)
5718           {
5719             TYPE_LANG_SPECIFIC (t) = space;
5720             TYPE_LANG_SPECIFIC (t)->s->len = len;
5721             field_array = TYPE_LANG_SPECIFIC (t)->s->elts;
5722             qsort (field_array, len, sizeof (tree), field_decl_cmp);
5723           }
5724       }
5725   }
5726
5727   for (x = TYPE_MAIN_VARIANT (t); x; x = TYPE_NEXT_VARIANT (x))
5728     {
5729       TYPE_FIELDS (x) = TYPE_FIELDS (t);
5730       TYPE_LANG_SPECIFIC (x) = TYPE_LANG_SPECIFIC (t);
5731       C_TYPE_FIELDS_READONLY (x) = C_TYPE_FIELDS_READONLY (t);
5732       C_TYPE_FIELDS_VOLATILE (x) = C_TYPE_FIELDS_VOLATILE (t);
5733       C_TYPE_VARIABLE_SIZE (x) = C_TYPE_VARIABLE_SIZE (t);
5734     }
5735
5736   /* If this was supposed to be a transparent union, but we can't
5737      make it one, warn and turn off the flag.  */
5738   if (TREE_CODE (t) == UNION_TYPE
5739       && TYPE_TRANSPARENT_UNION (t)
5740       && (!TYPE_FIELDS (t) || TYPE_MODE (t) != DECL_MODE (TYPE_FIELDS (t))))
5741     {
5742       TYPE_TRANSPARENT_UNION (t) = 0;
5743       warning (0, "union cannot be made transparent");
5744     }
5745
5746   /* If this structure or union completes the type of any previous
5747      variable declaration, lay it out and output its rtl.  */
5748   for (x = C_TYPE_INCOMPLETE_VARS (TYPE_MAIN_VARIANT (t));
5749        x;
5750        x = TREE_CHAIN (x))
5751     {
5752       tree decl = TREE_VALUE (x);
5753       if (TREE_CODE (TREE_TYPE (decl)) == ARRAY_TYPE)
5754         layout_array_type (TREE_TYPE (decl));
5755       if (TREE_CODE (decl) != TYPE_DECL)
5756         {
5757           layout_decl (decl, 0);
5758           if (c_dialect_objc ())
5759             objc_check_decl (decl);
5760           rest_of_decl_compilation (decl, toplevel, 0);
5761           if (!toplevel)
5762             expand_decl (decl);
5763         }
5764     }
5765   C_TYPE_INCOMPLETE_VARS (TYPE_MAIN_VARIANT (t)) = 0;
5766
5767   /* Finish debugging output for this type.  */
5768   rest_of_type_compilation (t, toplevel);
5769
5770   /* If we're inside a function proper, i.e. not file-scope and not still
5771      parsing parameters, then arrange for the size of a variable sized type
5772      to be bound now.  */
5773   if (cur_stmt_list && variably_modified_type_p (t, NULL_TREE))
5774     add_stmt (build_stmt (DECL_EXPR, build_decl (TYPE_DECL, NULL, t)));
5775
5776   return t;
5777 }
5778
5779 /* Lay out the type T, and its element type, and so on.  */
5780
5781 static void
5782 layout_array_type (tree t)
5783 {
5784   if (TREE_CODE (TREE_TYPE (t)) == ARRAY_TYPE)
5785     layout_array_type (TREE_TYPE (t));
5786   layout_type (t);
5787 }
5788 \f
5789 /* Begin compiling the definition of an enumeration type.
5790    NAME is its name (or null if anonymous).
5791    Returns the type object, as yet incomplete.
5792    Also records info about it so that build_enumerator
5793    may be used to declare the individual values as they are read.  */
5794
5795 tree
5796 start_enum (struct c_enum_contents *the_enum, tree name)
5797 {
5798   tree enumtype = 0;
5799
5800   /* If this is the real definition for a previous forward reference,
5801      fill in the contents in the same object that used to be the
5802      forward reference.  */
5803
5804   if (name != 0)
5805     enumtype = lookup_tag (ENUMERAL_TYPE, name, 1);
5806
5807   if (enumtype == 0 || TREE_CODE (enumtype) != ENUMERAL_TYPE)
5808     {
5809       enumtype = make_node (ENUMERAL_TYPE);
5810       pushtag (name, enumtype);
5811     }
5812
5813   if (C_TYPE_BEING_DEFINED (enumtype))
5814     error ("nested redefinition of %<enum %E%>", name);
5815
5816   C_TYPE_BEING_DEFINED (enumtype) = 1;
5817
5818   if (TYPE_VALUES (enumtype) != 0)
5819     {
5820       /* This enum is a named one that has been declared already.  */
5821       error ("redeclaration of %<enum %E%>", name);
5822
5823       /* Completely replace its old definition.
5824          The old enumerators remain defined, however.  */
5825       TYPE_VALUES (enumtype) = 0;
5826     }
5827
5828   the_enum->enum_next_value = integer_zero_node;
5829   the_enum->enum_overflow = 0;
5830
5831   if (flag_short_enums)
5832     TYPE_PACKED (enumtype) = 1;
5833
5834   return enumtype;
5835 }
5836
5837 /* After processing and defining all the values of an enumeration type,
5838    install their decls in the enumeration type and finish it off.
5839    ENUMTYPE is the type object, VALUES a list of decl-value pairs,
5840    and ATTRIBUTES are the specified attributes.
5841    Returns ENUMTYPE.  */
5842
5843 tree
5844 finish_enum (tree enumtype, tree values, tree attributes)
5845 {
5846   tree pair, tem;
5847   tree minnode = 0, maxnode = 0;
5848   int precision, unsign;
5849   bool toplevel = (file_scope == current_scope);
5850   struct lang_type *lt;
5851
5852   decl_attributes (&enumtype, attributes, (int) ATTR_FLAG_TYPE_IN_PLACE);
5853
5854   /* Calculate the maximum value of any enumerator in this type.  */
5855
5856   if (values == error_mark_node)
5857     minnode = maxnode = integer_zero_node;
5858   else
5859     {
5860       minnode = maxnode = TREE_VALUE (values);
5861       for (pair = TREE_CHAIN (values); pair; pair = TREE_CHAIN (pair))
5862         {
5863           tree value = TREE_VALUE (pair);
5864           if (tree_int_cst_lt (maxnode, value))
5865             maxnode = value;
5866           if (tree_int_cst_lt (value, minnode))
5867             minnode = value;
5868         }
5869     }
5870
5871   /* Construct the final type of this enumeration.  It is the same
5872      as one of the integral types - the narrowest one that fits, except
5873      that normally we only go as narrow as int - and signed iff any of
5874      the values are negative.  */
5875   unsign = (tree_int_cst_sgn (minnode) >= 0);
5876   precision = MAX (min_precision (minnode, unsign),
5877                    min_precision (maxnode, unsign));
5878
5879   if (TYPE_PACKED (enumtype) || precision > TYPE_PRECISION (integer_type_node))
5880     {
5881       tem = c_common_type_for_size (precision, unsign);
5882       if (tem == NULL)
5883         {
5884           warning (0, "enumeration values exceed range of largest integer");
5885           tem = long_long_integer_type_node;
5886         }
5887     }
5888   else
5889     tem = unsign ? unsigned_type_node : integer_type_node;
5890
5891   TYPE_MIN_VALUE (enumtype) = TYPE_MIN_VALUE (tem);
5892   TYPE_MAX_VALUE (enumtype) = TYPE_MAX_VALUE (tem);
5893   TYPE_UNSIGNED (enumtype) = TYPE_UNSIGNED (tem);
5894   TYPE_SIZE (enumtype) = 0;
5895
5896   /* If the precision of the type was specific with an attribute and it
5897      was too small, give an error.  Otherwise, use it.  */
5898   if (TYPE_PRECISION (enumtype))
5899     {
5900       if (precision > TYPE_PRECISION (enumtype))
5901         error ("specified mode too small for enumeral values");
5902     }
5903   else
5904     TYPE_PRECISION (enumtype) = TYPE_PRECISION (tem);
5905
5906   layout_type (enumtype);
5907
5908   if (values != error_mark_node)
5909     {
5910       /* Change the type of the enumerators to be the enum type.  We
5911          need to do this irrespective of the size of the enum, for
5912          proper type checking.  Replace the DECL_INITIALs of the
5913          enumerators, and the value slots of the list, with copies
5914          that have the enum type; they cannot be modified in place
5915          because they may be shared (e.g.  integer_zero_node) Finally,
5916          change the purpose slots to point to the names of the decls.  */
5917       for (pair = values; pair; pair = TREE_CHAIN (pair))
5918         {
5919           tree enu = TREE_PURPOSE (pair);
5920           tree ini = DECL_INITIAL (enu);
5921
5922           TREE_TYPE (enu) = enumtype;
5923
5924           /* The ISO C Standard mandates enumerators to have type int,
5925              even though the underlying type of an enum type is
5926              unspecified.  Here we convert any enumerators that fit in
5927              an int to type int, to avoid promotions to unsigned types
5928              when comparing integers with enumerators that fit in the
5929              int range.  When -pedantic is given, build_enumerator()
5930              would have already taken care of those that don't fit.  */
5931           if (int_fits_type_p (ini, integer_type_node))
5932             tem = integer_type_node;
5933           else
5934             tem = enumtype;
5935           ini = convert (tem, ini);
5936
5937           DECL_INITIAL (enu) = ini;
5938           TREE_PURPOSE (pair) = DECL_NAME (enu);
5939           TREE_VALUE (pair) = ini;
5940         }
5941
5942       TYPE_VALUES (enumtype) = values;
5943     }
5944
5945   /* Record the min/max values so that we can warn about bit-field
5946      enumerations that are too small for the values.  */
5947   lt = GGC_CNEW (struct lang_type);
5948   lt->enum_min = minnode;
5949   lt->enum_max = maxnode;
5950   TYPE_LANG_SPECIFIC (enumtype) = lt;
5951
5952   /* Fix up all variant types of this enum type.  */
5953   for (tem = TYPE_MAIN_VARIANT (enumtype); tem; tem = TYPE_NEXT_VARIANT (tem))
5954     {
5955       if (tem == enumtype)
5956         continue;
5957       TYPE_VALUES (tem) = TYPE_VALUES (enumtype);
5958       TYPE_MIN_VALUE (tem) = TYPE_MIN_VALUE (enumtype);
5959       TYPE_MAX_VALUE (tem) = TYPE_MAX_VALUE (enumtype);
5960       TYPE_SIZE (tem) = TYPE_SIZE (enumtype);
5961       TYPE_SIZE_UNIT (tem) = TYPE_SIZE_UNIT (enumtype);
5962       TYPE_MODE (tem) = TYPE_MODE (enumtype);
5963       TYPE_PRECISION (tem) = TYPE_PRECISION (enumtype);
5964       TYPE_ALIGN (tem) = TYPE_ALIGN (enumtype);
5965       TYPE_USER_ALIGN (tem) = TYPE_USER_ALIGN (enumtype);
5966       TYPE_UNSIGNED (tem) = TYPE_UNSIGNED (enumtype);
5967       TYPE_LANG_SPECIFIC (tem) = TYPE_LANG_SPECIFIC (enumtype);
5968     }
5969
5970   /* Finish debugging output for this type.  */
5971   rest_of_type_compilation (enumtype, toplevel);
5972
5973   return enumtype;
5974 }
5975
5976 /* Build and install a CONST_DECL for one value of the
5977    current enumeration type (one that was begun with start_enum).
5978    Return a tree-list containing the CONST_DECL and its value.
5979    Assignment of sequential values by default is handled here.  */
5980
5981 tree
5982 build_enumerator (struct c_enum_contents *the_enum, tree name, tree value)
5983 {
5984   tree decl, type;
5985
5986   /* Validate and default VALUE.  */
5987
5988   if (value != 0)
5989     {
5990       /* Don't issue more errors for error_mark_node (i.e. an
5991          undeclared identifier) - just ignore the value expression.  */
5992       if (value == error_mark_node)
5993         value = 0;
5994       else if (!INTEGRAL_TYPE_P (TREE_TYPE (value))
5995                || TREE_CODE (value) != INTEGER_CST)
5996         {
5997           error ("enumerator value for %qE is not an integer constant", name);
5998           value = 0;
5999         }
6000       else
6001         {
6002           value = default_conversion (value);
6003           constant_expression_warning (value);
6004         }
6005     }
6006
6007   /* Default based on previous value.  */
6008   /* It should no longer be possible to have NON_LVALUE_EXPR
6009      in the default.  */
6010   if (value == 0)
6011     {
6012       value = the_enum->enum_next_value;
6013       if (the_enum->enum_overflow)
6014         error ("overflow in enumeration values");
6015     }
6016
6017   if (pedantic && !int_fits_type_p (value, integer_type_node))
6018     {
6019       pedwarn ("ISO C restricts enumerator values to range of %<int%>");
6020       /* XXX This causes -pedantic to change the meaning of the program.
6021          Remove?  -zw 2004-03-15  */
6022       value = convert (integer_type_node, value);
6023     }
6024
6025   /* Set basis for default for next value.  */
6026   the_enum->enum_next_value = build_binary_op (PLUS_EXPR, value,
6027                                                integer_one_node, 0);
6028   the_enum->enum_overflow = tree_int_cst_lt (the_enum->enum_next_value, value);
6029
6030   /* Now create a declaration for the enum value name.  */
6031
6032   type = TREE_TYPE (value);
6033   type = c_common_type_for_size (MAX (TYPE_PRECISION (type),
6034                                       TYPE_PRECISION (integer_type_node)),
6035                                  (TYPE_PRECISION (type)
6036                                   >= TYPE_PRECISION (integer_type_node)
6037                                   && TYPE_UNSIGNED (type)));
6038
6039   decl = build_decl (CONST_DECL, name, type);
6040   DECL_INITIAL (decl) = convert (type, value);
6041   pushdecl (decl);
6042
6043   return tree_cons (decl, value, NULL_TREE);
6044 }
6045
6046 \f
6047 /* Create the FUNCTION_DECL for a function definition.
6048    DECLSPECS, DECLARATOR and ATTRIBUTES are the parts of
6049    the declaration; they describe the function's name and the type it returns,
6050    but twisted together in a fashion that parallels the syntax of C.
6051
6052    This function creates a binding context for the function body
6053    as well as setting up the FUNCTION_DECL in current_function_decl.
6054
6055    Returns 1 on success.  If the DECLARATOR is not suitable for a function
6056    (it defines a datum instead), we return 0, which tells
6057    yyparse to report a parse error.  */
6058
6059 int
6060 start_function (struct c_declspecs *declspecs, struct c_declarator *declarator,
6061                 tree attributes)
6062 {
6063   tree decl1, old_decl;
6064   tree restype, resdecl;
6065   struct c_label_context_se *nstack_se;
6066   struct c_label_context_vm *nstack_vm;
6067
6068   current_function_returns_value = 0;  /* Assume, until we see it does.  */
6069   current_function_returns_null = 0;
6070   current_function_returns_abnormally = 0;
6071   warn_about_return_type = 0;
6072   c_switch_stack = NULL;
6073
6074   nstack_se = XOBNEW (&parser_obstack, struct c_label_context_se);
6075   nstack_se->labels_def = NULL;
6076   nstack_se->labels_used = NULL;
6077   nstack_se->next = label_context_stack_se;
6078   label_context_stack_se = nstack_se;
6079
6080   nstack_vm = XOBNEW (&parser_obstack, struct c_label_context_vm);
6081   nstack_vm->labels_def = NULL;
6082   nstack_vm->labels_used = NULL;
6083   nstack_vm->scope = 0;
6084   nstack_vm->next = label_context_stack_vm;
6085   label_context_stack_vm = nstack_vm;
6086
6087   /* Indicate no valid break/continue context by setting these variables
6088      to some non-null, non-label value.  We'll notice and emit the proper
6089      error message in c_finish_bc_stmt.  */
6090   c_break_label = c_cont_label = size_zero_node;
6091
6092   decl1 = grokdeclarator (declarator, declspecs, FUNCDEF, true, NULL,
6093                           DEPRECATED_NORMAL);
6094
6095   /* If the declarator is not suitable for a function definition,
6096      cause a syntax error.  */
6097   if (decl1 == 0)
6098     {
6099       label_context_stack_se = label_context_stack_se->next;
6100       label_context_stack_vm = label_context_stack_vm->next;
6101       return 0;
6102     }
6103
6104   decl_attributes (&decl1, attributes, 0);
6105
6106   if (DECL_DECLARED_INLINE_P (decl1)
6107       && DECL_UNINLINABLE (decl1)
6108       && lookup_attribute ("noinline", DECL_ATTRIBUTES (decl1)))
6109     warning (OPT_Wattributes, "inline function %q+D given attribute noinline",
6110              decl1);
6111
6112   /* Handle gnu_inline attribute.  */
6113   if (declspecs->inline_p
6114       && !flag_gnu89_inline
6115       && TREE_CODE (decl1) == FUNCTION_DECL
6116       && lookup_attribute ("gnu_inline", DECL_ATTRIBUTES (decl1)))
6117     {
6118       if (declspecs->storage_class != csc_static)
6119         DECL_EXTERNAL (decl1) = !DECL_EXTERNAL (decl1);
6120     }
6121
6122   announce_function (decl1);
6123
6124   if (!COMPLETE_OR_VOID_TYPE_P (TREE_TYPE (TREE_TYPE (decl1))))
6125     {
6126       error ("return type is an incomplete type");
6127       /* Make it return void instead.  */
6128       TREE_TYPE (decl1)
6129         = build_function_type (void_type_node,
6130                                TYPE_ARG_TYPES (TREE_TYPE (decl1)));
6131     }
6132
6133   if (warn_about_return_type)
6134     pedwarn_c99 ("return type defaults to %<int%>");
6135
6136   /* Make the init_value nonzero so pushdecl knows this is not tentative.
6137      error_mark_node is replaced below (in pop_scope) with the BLOCK.  */
6138   DECL_INITIAL (decl1) = error_mark_node;
6139
6140   /* If this definition isn't a prototype and we had a prototype declaration
6141      before, copy the arg type info from that prototype.  */
6142   old_decl = lookup_name_in_scope (DECL_NAME (decl1), current_scope);
6143   if (old_decl && TREE_CODE (old_decl) != FUNCTION_DECL)
6144     old_decl = 0;
6145   current_function_prototype_locus = UNKNOWN_LOCATION;
6146   current_function_prototype_built_in = false;
6147   current_function_prototype_arg_types = NULL_TREE;
6148   if (TYPE_ARG_TYPES (TREE_TYPE (decl1)) == 0)
6149     {
6150       if (old_decl != 0 && TREE_CODE (TREE_TYPE (old_decl)) == FUNCTION_TYPE
6151           && comptypes (TREE_TYPE (TREE_TYPE (decl1)),
6152                         TREE_TYPE (TREE_TYPE (old_decl))))
6153         {
6154           TREE_TYPE (decl1) = composite_type (TREE_TYPE (old_decl),
6155                                               TREE_TYPE (decl1));
6156           current_function_prototype_locus = DECL_SOURCE_LOCATION (old_decl);
6157           current_function_prototype_built_in
6158             = C_DECL_BUILTIN_PROTOTYPE (old_decl);
6159           current_function_prototype_arg_types
6160             = TYPE_ARG_TYPES (TREE_TYPE (decl1));
6161         }
6162       if (TREE_PUBLIC (decl1))
6163         {
6164           /* If there is an external prototype declaration of this
6165              function, record its location but do not copy information
6166              to this decl.  This may be an invisible declaration
6167              (built-in or in a scope which has finished) or simply
6168              have more refined argument types than any declaration
6169              found above.  */
6170           struct c_binding *b;
6171           for (b = I_SYMBOL_BINDING (DECL_NAME (decl1)); b; b = b->shadowed)
6172             if (B_IN_SCOPE (b, external_scope))
6173               break;
6174           if (b)
6175             {
6176               tree ext_decl, ext_type;
6177               ext_decl = b->decl;
6178               ext_type = b->type ? b->type : TREE_TYPE (ext_decl);
6179               if (TREE_CODE (ext_type) == FUNCTION_TYPE
6180                   && comptypes (TREE_TYPE (TREE_TYPE (decl1)),
6181                                 TREE_TYPE (ext_type)))
6182                 {
6183                   current_function_prototype_locus
6184                     = DECL_SOURCE_LOCATION (ext_decl);
6185                   current_function_prototype_built_in
6186                     = C_DECL_BUILTIN_PROTOTYPE (ext_decl);
6187                   current_function_prototype_arg_types
6188                     = TYPE_ARG_TYPES (ext_type);
6189                 }
6190             }
6191         }
6192     }
6193
6194   /* Optionally warn of old-fashioned def with no previous prototype.  */
6195   if (warn_strict_prototypes
6196       && old_decl != error_mark_node
6197       && TYPE_ARG_TYPES (TREE_TYPE (decl1)) == 0
6198       && C_DECL_ISNT_PROTOTYPE (old_decl))
6199     warning (OPT_Wstrict_prototypes,
6200              "function declaration isn%'t a prototype");
6201   /* Optionally warn of any global def with no previous prototype.  */
6202   else if (warn_missing_prototypes
6203            && old_decl != error_mark_node
6204            && TREE_PUBLIC (decl1)
6205            && !MAIN_NAME_P (DECL_NAME (decl1))
6206            && C_DECL_ISNT_PROTOTYPE (old_decl))
6207     warning (OPT_Wmissing_prototypes, "no previous prototype for %q+D", decl1);
6208   /* Optionally warn of any def with no previous prototype
6209      if the function has already been used.  */
6210   else if (warn_missing_prototypes
6211            && old_decl != 0
6212            && old_decl != error_mark_node
6213            && TREE_USED (old_decl)
6214            && TYPE_ARG_TYPES (TREE_TYPE (old_decl)) == 0)
6215     warning (OPT_Wmissing_prototypes,
6216              "%q+D was used with no prototype before its definition", decl1);
6217   /* Optionally warn of any global def with no previous declaration.  */
6218   else if (warn_missing_declarations
6219            && TREE_PUBLIC (decl1)
6220            && old_decl == 0
6221            && !MAIN_NAME_P (DECL_NAME (decl1)))
6222     warning (OPT_Wmissing_declarations, "no previous declaration for %q+D",
6223              decl1);
6224   /* Optionally warn of any def with no previous declaration
6225      if the function has already been used.  */
6226   else if (warn_missing_declarations
6227            && old_decl != 0
6228            && old_decl != error_mark_node
6229            && TREE_USED (old_decl)
6230            && C_DECL_IMPLICIT (old_decl))
6231     warning (OPT_Wmissing_declarations,
6232              "%q+D was used with no declaration before its definition", decl1);
6233
6234   /* This function exists in static storage.
6235      (This does not mean `static' in the C sense!)  */
6236   TREE_STATIC (decl1) = 1;
6237
6238   /* A nested function is not global.  */
6239   if (current_function_decl != 0)
6240     TREE_PUBLIC (decl1) = 0;
6241
6242   /* This is the earliest point at which we might know the assembler
6243      name of the function.  Thus, if it's set before this, die horribly.  */
6244   gcc_assert (!DECL_ASSEMBLER_NAME_SET_P (decl1));
6245
6246   /* If #pragma weak was used, mark the decl weak now.  */
6247   if (current_scope == file_scope)
6248     maybe_apply_pragma_weak (decl1);
6249
6250   /* Warn for unlikely, improbable, or stupid declarations of `main'.  */
6251   if (warn_main > 0 && MAIN_NAME_P (DECL_NAME (decl1)))
6252     {
6253       if (TYPE_MAIN_VARIANT (TREE_TYPE (TREE_TYPE (decl1)))
6254           != integer_type_node)
6255         pedwarn ("return type of %q+D is not %<int%>", decl1);
6256
6257       check_main_parameter_types(decl1);
6258
6259       if (!TREE_PUBLIC (decl1))
6260         pedwarn ("%q+D is normally a non-static function", decl1);
6261     }
6262
6263   /* Record the decl so that the function name is defined.
6264      If we already have a decl for this name, and it is a FUNCTION_DECL,
6265      use the old decl.  */
6266
6267   current_function_decl = pushdecl (decl1);
6268
6269   push_scope ();
6270   declare_parm_level ();
6271
6272   restype = TREE_TYPE (TREE_TYPE (current_function_decl));
6273   /* Promote the value to int before returning it.  */
6274   if (c_promoting_integer_type_p (restype))
6275     {
6276       /* It retains unsignedness if not really getting wider.  */
6277       if (TYPE_UNSIGNED (restype)
6278           && (TYPE_PRECISION (restype)
6279                   == TYPE_PRECISION (integer_type_node)))
6280         restype = unsigned_type_node;
6281       else
6282         restype = integer_type_node;
6283     }
6284
6285   resdecl = build_decl (RESULT_DECL, NULL_TREE, restype);
6286   DECL_ARTIFICIAL (resdecl) = 1;
6287   DECL_IGNORED_P (resdecl) = 1;
6288   DECL_RESULT (current_function_decl) = resdecl;
6289
6290   start_fname_decls ();
6291
6292   return 1;
6293 }
6294 \f
6295 /* Subroutine of store_parm_decls which handles new-style function
6296    definitions (prototype format). The parms already have decls, so we
6297    need only record them as in effect and complain if any redundant
6298    old-style parm decls were written.  */
6299 static void
6300 store_parm_decls_newstyle (tree fndecl, const struct c_arg_info *arg_info)
6301 {
6302   tree decl;
6303
6304   if (current_scope->bindings)
6305     {
6306       error ("%Jold-style parameter declarations in prototyped "
6307              "function definition", fndecl);
6308
6309       /* Get rid of the old-style declarations.  */
6310       pop_scope ();
6311       push_scope ();
6312     }
6313   /* Don't issue this warning for nested functions, and don't issue this
6314      warning if we got here because ARG_INFO_TYPES was error_mark_node
6315      (this happens when a function definition has just an ellipsis in
6316      its parameter list).  */
6317   else if (!in_system_header && !current_function_scope
6318            && arg_info->types != error_mark_node)
6319     warning (OPT_Wtraditional,
6320              "%Jtraditional C rejects ISO C style function definitions",
6321              fndecl);
6322
6323   /* Now make all the parameter declarations visible in the function body.
6324      We can bypass most of the grunt work of pushdecl.  */
6325   for (decl = arg_info->parms; decl; decl = TREE_CHAIN (decl))
6326     {
6327       DECL_CONTEXT (decl) = current_function_decl;
6328       if (DECL_NAME (decl))
6329         {
6330           bind (DECL_NAME (decl), decl, current_scope,
6331                 /*invisible=*/false, /*nested=*/false);
6332           if (!TREE_USED (decl))
6333             warn_if_shadowing (decl);
6334         }
6335       else
6336         error ("%Jparameter name omitted", decl);
6337     }
6338
6339   /* Record the parameter list in the function declaration.  */
6340   DECL_ARGUMENTS (fndecl) = arg_info->parms;
6341
6342   /* Now make all the ancillary declarations visible, likewise.  */
6343   for (decl = arg_info->others; decl; decl = TREE_CHAIN (decl))
6344     {
6345       DECL_CONTEXT (decl) = current_function_decl;
6346       if (DECL_NAME (decl))
6347         bind (DECL_NAME (decl), decl, current_scope,
6348               /*invisible=*/false, /*nested=*/false);
6349     }
6350
6351   /* And all the tag declarations.  */
6352   for (decl = arg_info->tags; decl; decl = TREE_CHAIN (decl))
6353     if (TREE_PURPOSE (decl))
6354       bind (TREE_PURPOSE (decl), TREE_VALUE (decl), current_scope,
6355             /*invisible=*/false, /*nested=*/false);
6356 }
6357
6358 /* Subroutine of store_parm_decls which handles old-style function
6359    definitions (separate parameter list and declarations).  */
6360
6361 static void
6362 store_parm_decls_oldstyle (tree fndecl, const struct c_arg_info *arg_info)
6363 {
6364   struct c_binding *b;
6365   tree parm, decl, last;
6366   tree parmids = arg_info->parms;
6367   struct pointer_set_t *seen_args = pointer_set_create ();
6368
6369   if (!in_system_header)
6370     warning (OPT_Wold_style_definition, "%Jold-style function definition",
6371              fndecl);
6372
6373   /* Match each formal parameter name with its declaration.  Save each
6374      decl in the appropriate TREE_PURPOSE slot of the parmids chain.  */
6375   for (parm = parmids; parm; parm = TREE_CHAIN (parm))
6376     {
6377       if (TREE_VALUE (parm) == 0)
6378         {
6379           error ("%Jparameter name missing from parameter list", fndecl);
6380           TREE_PURPOSE (parm) = 0;
6381           continue;
6382         }
6383
6384       b = I_SYMBOL_BINDING (TREE_VALUE (parm));
6385       if (b && B_IN_CURRENT_SCOPE (b))
6386         {
6387           decl = b->decl;
6388           /* If we got something other than a PARM_DECL it is an error.  */
6389           if (TREE_CODE (decl) != PARM_DECL)
6390             error ("%q+D declared as a non-parameter", decl);
6391           /* If the declaration is already marked, we have a duplicate
6392              name.  Complain and ignore the duplicate.  */
6393           else if (pointer_set_contains (seen_args, decl))
6394             {
6395               error ("multiple parameters named %q+D", decl);
6396               TREE_PURPOSE (parm) = 0;
6397               continue;
6398             }
6399           /* If the declaration says "void", complain and turn it into
6400              an int.  */
6401           else if (VOID_TYPE_P (TREE_TYPE (decl)))
6402             {
6403               error ("parameter %q+D declared with void type", decl);
6404               TREE_TYPE (decl) = integer_type_node;
6405               DECL_ARG_TYPE (decl) = integer_type_node;
6406               layout_decl (decl, 0);
6407             }
6408           warn_if_shadowing (decl);
6409         }
6410       /* If no declaration found, default to int.  */
6411       else
6412         {
6413           decl = build_decl (PARM_DECL, TREE_VALUE (parm), integer_type_node);
6414           DECL_ARG_TYPE (decl) = TREE_TYPE (decl);
6415           DECL_SOURCE_LOCATION (decl) = DECL_SOURCE_LOCATION (fndecl);
6416           pushdecl (decl);
6417           warn_if_shadowing (decl);
6418
6419           if (flag_isoc99)
6420             pedwarn ("type of %q+D defaults to %<int%>", decl);
6421           else
6422             warning (OPT_Wmissing_parameter_type, "type of %q+D defaults to %<int%>", decl);
6423         }
6424
6425       TREE_PURPOSE (parm) = decl;
6426       pointer_set_insert (seen_args, decl);
6427     }
6428
6429   /* Now examine the parms chain for incomplete declarations
6430      and declarations with no corresponding names.  */
6431
6432   for (b = current_scope->bindings; b; b = b->prev)
6433     {
6434       parm = b->decl;
6435       if (TREE_CODE (parm) != PARM_DECL)
6436         continue;
6437
6438       if (TREE_TYPE (parm) != error_mark_node
6439           && !COMPLETE_TYPE_P (TREE_TYPE (parm)))
6440         {
6441           error ("parameter %q+D has incomplete type", parm);
6442           TREE_TYPE (parm) = error_mark_node;
6443         }
6444
6445       if (!pointer_set_contains (seen_args, parm))
6446         {
6447           error ("declaration for parameter %q+D but no such parameter", parm);
6448
6449           /* Pretend the parameter was not missing.
6450              This gets us to a standard state and minimizes
6451              further error messages.  */
6452           parmids = chainon (parmids, tree_cons (parm, 0, 0));
6453         }
6454     }
6455
6456   /* Chain the declarations together in the order of the list of
6457      names.  Store that chain in the function decl, replacing the
6458      list of names.  Update the current scope to match.  */
6459   DECL_ARGUMENTS (fndecl) = 0;
6460
6461   for (parm = parmids; parm; parm = TREE_CHAIN (parm))
6462     if (TREE_PURPOSE (parm))
6463       break;
6464   if (parm && TREE_PURPOSE (parm))
6465     {
6466       last = TREE_PURPOSE (parm);
6467       DECL_ARGUMENTS (fndecl) = last;
6468
6469       for (parm = TREE_CHAIN (parm); parm; parm = TREE_CHAIN (parm))
6470         if (TREE_PURPOSE (parm))
6471           {
6472             TREE_CHAIN (last) = TREE_PURPOSE (parm);
6473             last = TREE_PURPOSE (parm);
6474           }
6475       TREE_CHAIN (last) = 0;
6476     }
6477
6478   pointer_set_destroy (seen_args);
6479
6480   /* If there was a previous prototype,
6481      set the DECL_ARG_TYPE of each argument according to
6482      the type previously specified, and report any mismatches.  */
6483
6484   if (current_function_prototype_arg_types)
6485     {
6486       tree type;
6487       for (parm = DECL_ARGUMENTS (fndecl),
6488              type = current_function_prototype_arg_types;
6489            parm || (type && TREE_VALUE (type) != error_mark_node
6490                    && (TYPE_MAIN_VARIANT (TREE_VALUE (type)) != void_type_node));
6491            parm = TREE_CHAIN (parm), type = TREE_CHAIN (type))
6492         {
6493           if (parm == 0 || type == 0
6494               || TYPE_MAIN_VARIANT (TREE_VALUE (type)) == void_type_node)
6495             {
6496               if (current_function_prototype_built_in)
6497                 warning (0, "number of arguments doesn%'t match "
6498                          "built-in prototype");
6499               else
6500                 {
6501                   error ("number of arguments doesn%'t match prototype");
6502                   error ("%Hprototype declaration",
6503                          &current_function_prototype_locus);
6504                 }
6505               break;
6506             }
6507           /* Type for passing arg must be consistent with that
6508              declared for the arg.  ISO C says we take the unqualified
6509              type for parameters declared with qualified type.  */
6510           if (!comptypes (TYPE_MAIN_VARIANT (DECL_ARG_TYPE (parm)),
6511                           TYPE_MAIN_VARIANT (TREE_VALUE (type))))
6512             {
6513               if (TYPE_MAIN_VARIANT (TREE_TYPE (parm))
6514                   == TYPE_MAIN_VARIANT (TREE_VALUE (type)))
6515                 {
6516                   /* Adjust argument to match prototype.  E.g. a previous
6517                      `int foo(float);' prototype causes
6518                      `int foo(x) float x; {...}' to be treated like
6519                      `int foo(float x) {...}'.  This is particularly
6520                      useful for argument types like uid_t.  */
6521                   DECL_ARG_TYPE (parm) = TREE_TYPE (parm);
6522
6523                   if (targetm.calls.promote_prototypes (TREE_TYPE (current_function_decl))
6524                       && INTEGRAL_TYPE_P (TREE_TYPE (parm))
6525                       && TYPE_PRECISION (TREE_TYPE (parm))
6526                       < TYPE_PRECISION (integer_type_node))
6527                     DECL_ARG_TYPE (parm) = integer_type_node;
6528
6529                   if (pedantic)
6530                     {
6531                       /* ??? Is it possible to get here with a
6532                          built-in prototype or will it always have
6533                          been diagnosed as conflicting with an
6534                          old-style definition and discarded?  */
6535                       if (current_function_prototype_built_in)
6536                         warning (0, "promoted argument %qD "
6537                                  "doesn%'t match built-in prototype", parm);
6538                       else
6539                         {
6540                           pedwarn ("promoted argument %qD "
6541                                    "doesn%'t match prototype", parm);
6542                           pedwarn ("%Hprototype declaration",
6543                                    &current_function_prototype_locus);
6544                         }
6545                     }
6546                 }
6547               else
6548                 {
6549                   if (current_function_prototype_built_in)
6550                     warning (0, "argument %qD doesn%'t match "
6551                              "built-in prototype", parm);
6552                   else
6553                     {
6554                       error ("argument %qD doesn%'t match prototype", parm);
6555                       error ("%Hprototype declaration",
6556                              &current_function_prototype_locus);
6557                     }
6558                 }
6559             }
6560         }
6561       TYPE_ACTUAL_ARG_TYPES (TREE_TYPE (fndecl)) = 0;
6562     }
6563
6564   /* Otherwise, create a prototype that would match.  */
6565
6566   else
6567     {
6568       tree actual = 0, last = 0, type;
6569
6570       for (parm = DECL_ARGUMENTS (fndecl); parm; parm = TREE_CHAIN (parm))
6571         {
6572           type = tree_cons (NULL_TREE, DECL_ARG_TYPE (parm), NULL_TREE);
6573           if (last)
6574             TREE_CHAIN (last) = type;
6575           else
6576             actual = type;
6577           last = type;
6578         }
6579       type = tree_cons (NULL_TREE, void_type_node, NULL_TREE);
6580       if (last)
6581         TREE_CHAIN (last) = type;
6582       else
6583         actual = type;
6584
6585       /* We are going to assign a new value for the TYPE_ACTUAL_ARG_TYPES
6586          of the type of this function, but we need to avoid having this
6587          affect the types of other similarly-typed functions, so we must
6588          first force the generation of an identical (but separate) type
6589          node for the relevant function type.  The new node we create
6590          will be a variant of the main variant of the original function
6591          type.  */
6592
6593       TREE_TYPE (fndecl) = build_variant_type_copy (TREE_TYPE (fndecl));
6594
6595       TYPE_ACTUAL_ARG_TYPES (TREE_TYPE (fndecl)) = actual;
6596     }
6597 }
6598
6599 /* Store parameter declarations passed in ARG_INFO into the current
6600    function declaration.  */
6601
6602 void
6603 store_parm_decls_from (struct c_arg_info *arg_info)
6604 {
6605   current_function_arg_info = arg_info;
6606   store_parm_decls ();
6607 }
6608
6609 /* Store the parameter declarations into the current function declaration.
6610    This is called after parsing the parameter declarations, before
6611    digesting the body of the function.
6612
6613    For an old-style definition, construct a prototype out of the old-style
6614    parameter declarations and inject it into the function's type.  */
6615
6616 void
6617 store_parm_decls (void)
6618 {
6619   tree fndecl = current_function_decl;
6620   bool proto;
6621
6622   /* The argument information block for FNDECL.  */
6623   struct c_arg_info *arg_info = current_function_arg_info;
6624   current_function_arg_info = 0;
6625
6626   /* True if this definition is written with a prototype.  Note:
6627      despite C99 6.7.5.3p14, we can *not* treat an empty argument
6628      list in a function definition as equivalent to (void) -- an
6629      empty argument list specifies the function has no parameters,
6630      but only (void) sets up a prototype for future calls.  */
6631   proto = arg_info->types != 0;
6632
6633   if (proto)
6634     store_parm_decls_newstyle (fndecl, arg_info);
6635   else
6636     store_parm_decls_oldstyle (fndecl, arg_info);
6637
6638   /* The next call to push_scope will be a function body.  */
6639
6640   next_is_function_body = true;
6641
6642   /* Write a record describing this function definition to the prototypes
6643      file (if requested).  */
6644
6645   gen_aux_info_record (fndecl, 1, 0, proto);
6646
6647   /* Initialize the RTL code for the function.  */
6648   allocate_struct_function (fndecl);
6649
6650   /* Begin the statement tree for this function.  */
6651   DECL_SAVED_TREE (fndecl) = push_stmt_list ();
6652
6653   /* ??? Insert the contents of the pending sizes list into the function
6654      to be evaluated.  The only reason left to have this is
6655         void foo(int n, int array[n++])
6656      because we throw away the array type in favor of a pointer type, and
6657      thus won't naturally see the SAVE_EXPR containing the increment.  All
6658      other pending sizes would be handled by gimplify_parameters.  */
6659   {
6660     tree t;
6661     for (t = nreverse (get_pending_sizes ()); t ; t = TREE_CHAIN (t))
6662       add_stmt (TREE_VALUE (t));
6663   }
6664
6665   /* Even though we're inside a function body, we still don't want to
6666      call expand_expr to calculate the size of a variable-sized array.
6667      We haven't necessarily assigned RTL to all variables yet, so it's
6668      not safe to try to expand expressions involving them.  */
6669   cfun->x_dont_save_pending_sizes_p = 1;
6670 }
6671 \f
6672 /* Emit diagnostics that require gimple input for detection.  Operate on
6673    FNDECL and all its nested functions.  */
6674
6675 static void
6676 c_gimple_diagnostics_recursively (tree fndecl)
6677 {
6678   struct cgraph_node *cgn;
6679
6680   /* Handle attribute((warn_unused_result)).  Relies on gimple input.  */
6681   c_warn_unused_result (&DECL_SAVED_TREE (fndecl));
6682
6683   /* Notice when OpenMP structured block constraints are violated.  */
6684   if (flag_openmp)
6685     diagnose_omp_structured_block_errors (fndecl);
6686
6687   /* Finalize all nested functions now.  */
6688   cgn = cgraph_node (fndecl);
6689   for (cgn = cgn->nested; cgn ; cgn = cgn->next_nested)
6690     c_gimple_diagnostics_recursively (cgn->decl);
6691 }
6692
6693 /* Finish up a function declaration and compile that function
6694    all the way to assembler language output.  The free the storage
6695    for the function definition.
6696
6697    This is called after parsing the body of the function definition.  */
6698
6699 void
6700 finish_function (void)
6701 {
6702   tree fndecl = current_function_decl;
6703
6704   label_context_stack_se = label_context_stack_se->next;
6705   label_context_stack_vm = label_context_stack_vm->next;
6706
6707   if (TREE_CODE (fndecl) == FUNCTION_DECL
6708       && targetm.calls.promote_prototypes (TREE_TYPE (fndecl)))
6709     {
6710       tree args = DECL_ARGUMENTS (fndecl);
6711       for (; args; args = TREE_CHAIN (args))
6712         {
6713           tree type = TREE_TYPE (args);
6714           if (INTEGRAL_TYPE_P (type)
6715               && TYPE_PRECISION (type) < TYPE_PRECISION (integer_type_node))
6716             DECL_ARG_TYPE (args) = integer_type_node;
6717         }
6718     }
6719
6720   if (DECL_INITIAL (fndecl) && DECL_INITIAL (fndecl) != error_mark_node)
6721     BLOCK_SUPERCONTEXT (DECL_INITIAL (fndecl)) = fndecl;
6722
6723   /* Must mark the RESULT_DECL as being in this function.  */
6724
6725   if (DECL_RESULT (fndecl) && DECL_RESULT (fndecl) != error_mark_node)
6726     DECL_CONTEXT (DECL_RESULT (fndecl)) = fndecl;
6727
6728   if (MAIN_NAME_P (DECL_NAME (fndecl)) && flag_hosted)
6729     {
6730       if (TYPE_MAIN_VARIANT (TREE_TYPE (TREE_TYPE (fndecl)))
6731           != integer_type_node)
6732         {
6733           /* If warn_main is 1 (-Wmain) or 2 (-Wall), we have already warned.
6734              If warn_main is -1 (-Wno-main) we don't want to be warned.  */
6735           if (!warn_main)
6736             pedwarn ("return type of %q+D is not %<int%>", fndecl);
6737         }
6738       else
6739         {
6740           if (flag_isoc99)
6741             {
6742               tree stmt = c_finish_return (integer_zero_node);
6743 #ifdef USE_MAPPED_LOCATION
6744               /* Hack.  We don't want the middle-end to warn that this return
6745                  is unreachable, so we mark its location as special.  Using
6746                  UNKNOWN_LOCATION has the problem that it gets clobbered in
6747                  annotate_one_with_locus.  A cleaner solution might be to
6748                  ensure ! should_carry_locus_p (stmt), but that needs a flag.
6749               */
6750               SET_EXPR_LOCATION (stmt, BUILTINS_LOCATION);
6751 #else
6752               /* Hack.  We don't want the middle-end to warn that this
6753                  return is unreachable, so put the statement on the
6754                  special line 0.  */
6755               annotate_with_file_line (stmt, input_filename, 0);
6756 #endif
6757             }
6758         }
6759     }
6760
6761   /* Tie off the statement tree for this function.  */
6762   DECL_SAVED_TREE (fndecl) = pop_stmt_list (DECL_SAVED_TREE (fndecl));
6763
6764   finish_fname_decls ();
6765
6766   /* Complain if there's just no return statement.  */
6767   if (warn_return_type
6768       && TREE_CODE (TREE_TYPE (TREE_TYPE (fndecl))) != VOID_TYPE
6769       && !current_function_returns_value && !current_function_returns_null
6770       /* Don't complain if we are no-return.  */
6771       && !current_function_returns_abnormally
6772       /* Don't warn for main().  */
6773       && !MAIN_NAME_P (DECL_NAME (fndecl))
6774       /* Or if they didn't actually specify a return type.  */
6775       && !C_FUNCTION_IMPLICIT_INT (fndecl)
6776       /* Normally, with -Wreturn-type, flow will complain.  Unless we're an
6777          inline function, as we might never be compiled separately.  */
6778       && DECL_INLINE (fndecl))
6779     {
6780       warning (OPT_Wreturn_type,
6781                "no return statement in function returning non-void");
6782       TREE_NO_WARNING (fndecl) = 1;
6783     }
6784
6785   /* Store the end of the function, so that we get good line number
6786      info for the epilogue.  */
6787   cfun->function_end_locus = input_location;
6788
6789   /* Finalize the ELF visibility for the function.  */
6790   c_determine_visibility (fndecl);
6791
6792   /* Genericize before inlining.  Delay genericizing nested functions
6793      until their parent function is genericized.  Since finalizing
6794      requires GENERIC, delay that as well.  */
6795
6796   if (DECL_INITIAL (fndecl) && DECL_INITIAL (fndecl) != error_mark_node
6797       && !undef_nested_function)
6798     {
6799       if (!decl_function_context (fndecl))
6800         {
6801           c_genericize (fndecl);
6802           c_gimple_diagnostics_recursively (fndecl);
6803
6804           /* ??? Objc emits functions after finalizing the compilation unit.
6805              This should be cleaned up later and this conditional removed.  */
6806           if (cgraph_global_info_ready)
6807             {
6808               c_expand_body (fndecl);
6809               return;
6810             }
6811
6812           cgraph_finalize_function (fndecl, false);
6813         }
6814       else
6815         {
6816           /* Register this function with cgraph just far enough to get it
6817             added to our parent's nested function list.  Handy, since the
6818             C front end doesn't have such a list.  */
6819           (void) cgraph_node (fndecl);
6820         }
6821     }
6822
6823   if (!decl_function_context (fndecl))
6824     undef_nested_function = false;
6825
6826   /* We're leaving the context of this function, so zap cfun.
6827      It's still in DECL_STRUCT_FUNCTION, and we'll restore it in
6828      tree_rest_of_compilation.  */
6829   cfun = NULL;
6830   current_function_decl = NULL;
6831 }
6832 \f
6833 /* Check the declarations given in a for-loop for satisfying the C99
6834    constraints.  If exactly one such decl is found, return it.  */
6835
6836 tree
6837 check_for_loop_decls (void)
6838 {
6839   struct c_binding *b;
6840   tree one_decl = NULL_TREE;
6841   int n_decls = 0;
6842
6843
6844   if (!flag_isoc99)
6845     {
6846       /* If we get here, declarations have been used in a for loop without
6847          the C99 for loop scope.  This doesn't make much sense, so don't
6848          allow it.  */
6849       error ("%<for%> loop initial declaration used outside C99 mode");
6850       return NULL_TREE;
6851     }
6852   /* C99 subclause 6.8.5 paragraph 3:
6853
6854        [#3]  The  declaration  part  of  a for statement shall only
6855        declare identifiers for objects having storage class auto or
6856        register.
6857
6858      It isn't clear whether, in this sentence, "identifiers" binds to
6859      "shall only declare" or to "objects" - that is, whether all identifiers
6860      declared must be identifiers for objects, or whether the restriction
6861      only applies to those that are.  (A question on this in comp.std.c
6862      in November 2000 received no answer.)  We implement the strictest
6863      interpretation, to avoid creating an extension which later causes
6864      problems.  */
6865
6866   for (b = current_scope->bindings; b; b = b->prev)
6867     {
6868       tree id = b->id;
6869       tree decl = b->decl;
6870
6871       if (!id)
6872         continue;
6873
6874       switch (TREE_CODE (decl))
6875         {
6876         case VAR_DECL:
6877           if (TREE_STATIC (decl))
6878             error ("declaration of static variable %q+D in %<for%> loop "
6879                    "initial declaration", decl);
6880           else if (DECL_EXTERNAL (decl))
6881             error ("declaration of %<extern%> variable %q+D in %<for%> loop "
6882                    "initial declaration", decl);
6883           break;
6884
6885         case RECORD_TYPE:
6886           error ("%<struct %E%> declared in %<for%> loop initial declaration",
6887                  id);
6888           break;
6889         case UNION_TYPE:
6890           error ("%<union %E%> declared in %<for%> loop initial declaration",
6891                  id);
6892           break;
6893         case ENUMERAL_TYPE:
6894           error ("%<enum %E%> declared in %<for%> loop initial declaration",
6895                  id);
6896           break;
6897         default:
6898           error ("declaration of non-variable %q+D in %<for%> loop "
6899                  "initial declaration", decl);
6900         }
6901
6902       n_decls++;
6903       one_decl = decl;
6904     }
6905
6906   return n_decls == 1 ? one_decl : NULL_TREE;
6907 }
6908 \f
6909 /* Save and reinitialize the variables
6910    used during compilation of a C function.  */
6911
6912 void
6913 c_push_function_context (struct function *f)
6914 {
6915   struct language_function *p;
6916   p = GGC_NEW (struct language_function);
6917   f->language = p;
6918
6919   p->base.x_stmt_tree = c_stmt_tree;
6920   p->x_break_label = c_break_label;
6921   p->x_cont_label = c_cont_label;
6922   p->x_switch_stack = c_switch_stack;
6923   p->arg_info = current_function_arg_info;
6924   p->returns_value = current_function_returns_value;
6925   p->returns_null = current_function_returns_null;
6926   p->returns_abnormally = current_function_returns_abnormally;
6927   p->warn_about_return_type = warn_about_return_type;
6928 }
6929
6930 /* Restore the variables used during compilation of a C function.  */
6931
6932 void
6933 c_pop_function_context (struct function *f)
6934 {
6935   struct language_function *p = f->language;
6936
6937   if (DECL_STRUCT_FUNCTION (current_function_decl) == 0
6938       && DECL_SAVED_TREE (current_function_decl) == NULL_TREE)
6939     {
6940       /* Stop pointing to the local nodes about to be freed.  */
6941       /* But DECL_INITIAL must remain nonzero so we know this
6942          was an actual function definition.  */
6943       DECL_INITIAL (current_function_decl) = error_mark_node;
6944       DECL_ARGUMENTS (current_function_decl) = 0;
6945     }
6946
6947   c_stmt_tree = p->base.x_stmt_tree;
6948   c_break_label = p->x_break_label;
6949   c_cont_label = p->x_cont_label;
6950   c_switch_stack = p->x_switch_stack;
6951   current_function_arg_info = p->arg_info;
6952   current_function_returns_value = p->returns_value;
6953   current_function_returns_null = p->returns_null;
6954   current_function_returns_abnormally = p->returns_abnormally;
6955   warn_about_return_type = p->warn_about_return_type;
6956
6957   f->language = NULL;
6958 }
6959
6960 /* Copy the DECL_LANG_SPECIFIC data associated with DECL.  */
6961
6962 void
6963 c_dup_lang_specific_decl (tree decl)
6964 {
6965   struct lang_decl *ld;
6966
6967   if (!DECL_LANG_SPECIFIC (decl))
6968     return;
6969
6970   ld = GGC_NEW (struct lang_decl);
6971   memcpy (ld, DECL_LANG_SPECIFIC (decl), sizeof (struct lang_decl));
6972   DECL_LANG_SPECIFIC (decl) = ld;
6973 }
6974
6975 /* The functions below are required for functionality of doing
6976    function at once processing in the C front end. Currently these
6977    functions are not called from anywhere in the C front end, but as
6978    these changes continue, that will change.  */
6979
6980 /* Returns the stmt_tree (if any) to which statements are currently
6981    being added.  If there is no active statement-tree, NULL is
6982    returned.  */
6983
6984 stmt_tree
6985 current_stmt_tree (void)
6986 {
6987   return &c_stmt_tree;
6988 }
6989
6990 /* Nonzero if TYPE is an anonymous union or struct type.  Always 0 in
6991    C.  */
6992
6993 int
6994 anon_aggr_type_p (tree ARG_UNUSED (node))
6995 {
6996   return 0;
6997 }
6998
6999 /* Return the global value of T as a symbol.  */
7000
7001 tree
7002 identifier_global_value (tree t)
7003 {
7004   struct c_binding *b;
7005
7006   for (b = I_SYMBOL_BINDING (t); b; b = b->shadowed)
7007     if (B_IN_FILE_SCOPE (b) || B_IN_EXTERNAL_SCOPE (b))
7008       return b->decl;
7009
7010   return 0;
7011 }
7012
7013 /* Record a builtin type for C.  If NAME is non-NULL, it is the name used;
7014    otherwise the name is found in ridpointers from RID_INDEX.  */
7015
7016 void
7017 record_builtin_type (enum rid rid_index, const char *name, tree type)
7018 {
7019   tree id, decl;
7020   if (name == 0)
7021     id = ridpointers[(int) rid_index];
7022   else
7023     id = get_identifier (name);
7024   decl = build_decl (TYPE_DECL, id, type);
7025   pushdecl (decl);
7026   if (debug_hooks->type_decl)
7027     debug_hooks->type_decl (decl, false);
7028 }
7029
7030 /* Build the void_list_node (void_type_node having been created).  */
7031 tree
7032 build_void_list_node (void)
7033 {
7034   tree t = build_tree_list (NULL_TREE, void_type_node);
7035   return t;
7036 }
7037
7038 /* Return a c_parm structure with the given SPECS, ATTRS and DECLARATOR.  */
7039
7040 struct c_parm *
7041 build_c_parm (struct c_declspecs *specs, tree attrs,
7042               struct c_declarator *declarator)
7043 {
7044   struct c_parm *ret = XOBNEW (&parser_obstack, struct c_parm);
7045   ret->specs = specs;
7046   ret->attrs = attrs;
7047   ret->declarator = declarator;
7048   return ret;
7049 }
7050
7051 /* Return a declarator with nested attributes.  TARGET is the inner
7052    declarator to which these attributes apply.  ATTRS are the
7053    attributes.  */
7054
7055 struct c_declarator *
7056 build_attrs_declarator (tree attrs, struct c_declarator *target)
7057 {
7058   struct c_declarator *ret = XOBNEW (&parser_obstack, struct c_declarator);
7059   ret->kind = cdk_attrs;
7060   ret->declarator = target;
7061   ret->u.attrs = attrs;
7062   return ret;
7063 }
7064
7065 /* Return a declarator for a function with arguments specified by ARGS
7066    and return type specified by TARGET.  */
7067
7068 struct c_declarator *
7069 build_function_declarator (struct c_arg_info *args,
7070                            struct c_declarator *target)
7071 {
7072   struct c_declarator *ret = XOBNEW (&parser_obstack, struct c_declarator);
7073   ret->kind = cdk_function;
7074   ret->declarator = target;
7075   ret->u.arg_info = args;
7076   return ret;
7077 }
7078
7079 /* Return a declarator for the identifier IDENT (which may be
7080    NULL_TREE for an abstract declarator).  */
7081
7082 struct c_declarator *
7083 build_id_declarator (tree ident)
7084 {
7085   struct c_declarator *ret = XOBNEW (&parser_obstack, struct c_declarator);
7086   ret->kind = cdk_id;
7087   ret->declarator = 0;
7088   ret->u.id = ident;
7089   /* Default value - may get reset to a more precise location. */
7090   ret->id_loc = input_location;
7091   return ret;
7092 }
7093
7094 /* Return something to represent absolute declarators containing a *.
7095    TARGET is the absolute declarator that the * contains.
7096    TYPE_QUALS_ATTRS is a structure for type qualifiers and attributes
7097    to apply to the pointer type.  */
7098
7099 struct c_declarator *
7100 make_pointer_declarator (struct c_declspecs *type_quals_attrs,
7101                          struct c_declarator *target)
7102 {
7103   tree attrs;
7104   int quals = 0;
7105   struct c_declarator *itarget = target;
7106   struct c_declarator *ret = XOBNEW (&parser_obstack, struct c_declarator);
7107   if (type_quals_attrs)
7108     {
7109       attrs = type_quals_attrs->attrs;
7110       quals = quals_from_declspecs (type_quals_attrs);
7111       if (attrs != NULL_TREE)
7112         itarget = build_attrs_declarator (attrs, target);
7113     }
7114   ret->kind = cdk_pointer;
7115   ret->declarator = itarget;
7116   ret->u.pointer_quals = quals;
7117   return ret;
7118 }
7119
7120 /* Return a pointer to a structure for an empty list of declaration
7121    specifiers.  */
7122
7123 struct c_declspecs *
7124 build_null_declspecs (void)
7125 {
7126   struct c_declspecs *ret = XOBNEW (&parser_obstack, struct c_declspecs);
7127   ret->type = 0;
7128   ret->decl_attr = 0;
7129   ret->attrs = 0;
7130   ret->typespec_word = cts_none;
7131   ret->storage_class = csc_none;
7132   ret->declspecs_seen_p = false;
7133   ret->type_seen_p = false;
7134   ret->non_sc_seen_p = false;
7135   ret->typedef_p = false;
7136   ret->tag_defined_p = false;
7137   ret->explicit_signed_p = false;
7138   ret->deprecated_p = false;
7139   ret->default_int_p = false;
7140   ret->long_p = false;
7141   ret->long_long_p = false;
7142   ret->short_p = false;
7143   ret->signed_p = false;
7144   ret->unsigned_p = false;
7145   ret->complex_p = false;
7146   ret->inline_p = false;
7147   ret->thread_p = false;
7148   ret->const_p = false;
7149   ret->volatile_p = false;
7150   ret->restrict_p = false;
7151   return ret;
7152 }
7153
7154 /* Add the type qualifier QUAL to the declaration specifiers SPECS,
7155    returning SPECS.  */
7156
7157 struct c_declspecs *
7158 declspecs_add_qual (struct c_declspecs *specs, tree qual)
7159 {
7160   enum rid i;
7161   bool dupe = false;
7162   specs->non_sc_seen_p = true;
7163   specs->declspecs_seen_p = true;
7164   gcc_assert (TREE_CODE (qual) == IDENTIFIER_NODE
7165               && C_IS_RESERVED_WORD (qual));
7166   i = C_RID_CODE (qual);
7167   switch (i)
7168     {
7169     case RID_CONST:
7170       dupe = specs->const_p;
7171       specs->const_p = true;
7172       break;
7173     case RID_VOLATILE:
7174       dupe = specs->volatile_p;
7175       specs->volatile_p = true;
7176       break;
7177     case RID_RESTRICT:
7178       dupe = specs->restrict_p;
7179       specs->restrict_p = true;
7180       break;
7181     default:
7182       gcc_unreachable ();
7183     }
7184   if (dupe && pedantic && !flag_isoc99)
7185     pedwarn ("duplicate %qE", qual);
7186   return specs;
7187 }
7188
7189 /* Add the type specifier TYPE to the declaration specifiers SPECS,
7190    returning SPECS.  */
7191
7192 struct c_declspecs *
7193 declspecs_add_type (struct c_declspecs *specs, struct c_typespec spec)
7194 {
7195   tree type = spec.spec;
7196   specs->non_sc_seen_p = true;
7197   specs->declspecs_seen_p = true;
7198   specs->type_seen_p = true;
7199   if (TREE_DEPRECATED (type))
7200     specs->deprecated_p = true;
7201
7202   /* Handle type specifier keywords.  */
7203   if (TREE_CODE (type) == IDENTIFIER_NODE && C_IS_RESERVED_WORD (type))
7204     {
7205       enum rid i = C_RID_CODE (type);
7206       if (specs->type)
7207         {
7208           error ("two or more data types in declaration specifiers");
7209           return specs;
7210         }
7211       if ((int) i <= (int) RID_LAST_MODIFIER)
7212         {
7213           /* "long", "short", "signed", "unsigned" or "_Complex".  */
7214           bool dupe = false;
7215           switch (i)
7216             {
7217             case RID_LONG:
7218               if (specs->long_long_p)
7219                 {
7220                   error ("%<long long long%> is too long for GCC");
7221                   break;
7222                 }
7223               if (specs->long_p)
7224                 {
7225                   if (specs->typespec_word == cts_double)
7226                     {
7227                       error ("both %<long long%> and %<double%> in "
7228                              "declaration specifiers");
7229                       break;
7230                     }
7231                   if (pedantic && !flag_isoc99 && !in_system_header
7232                       && warn_long_long)
7233                     pedwarn ("ISO C90 does not support %<long long%>");
7234                   specs->long_long_p = 1;
7235                   break;
7236                 }
7237               if (specs->short_p)
7238                 error ("both %<long%> and %<short%> in "
7239                        "declaration specifiers");
7240               else if (specs->typespec_word == cts_void)
7241                 error ("both %<long%> and %<void%> in "
7242                        "declaration specifiers");
7243               else if (specs->typespec_word == cts_bool)
7244                 error ("both %<long%> and %<_Bool%> in "
7245                        "declaration specifiers");
7246               else if (specs->typespec_word == cts_char)
7247                 error ("both %<long%> and %<char%> in "
7248                        "declaration specifiers");
7249               else if (specs->typespec_word == cts_float)
7250                 error ("both %<long%> and %<float%> in "
7251                        "declaration specifiers");
7252               else if (specs->typespec_word == cts_dfloat32)
7253                 error ("both %<long%> and %<_Decimal32%> in "
7254                        "declaration specifiers");
7255               else if (specs->typespec_word == cts_dfloat64)
7256                 error ("both %<long%> and %<_Decimal64%> in "
7257                        "declaration specifiers");
7258               else if (specs->typespec_word == cts_dfloat128)
7259                 error ("both %<long%> and %<_Decimal128%> in "
7260                        "declaration specifiers");
7261               else
7262                 specs->long_p = true;
7263               break;
7264             case RID_SHORT:
7265               dupe = specs->short_p;
7266               if (specs->long_p)
7267                 error ("both %<long%> and %<short%> in "
7268                        "declaration specifiers");
7269               else if (specs->typespec_word == cts_void)
7270                 error ("both %<short%> and %<void%> in "
7271                        "declaration specifiers");
7272               else if (specs->typespec_word == cts_bool)
7273                 error ("both %<short%> and %<_Bool%> in "
7274                        "declaration specifiers");
7275               else if (specs->typespec_word == cts_char)
7276                 error ("both %<short%> and %<char%> in "
7277                        "declaration specifiers");
7278               else if (specs->typespec_word == cts_float)
7279                 error ("both %<short%> and %<float%> in "
7280                        "declaration specifiers");
7281               else if (specs->typespec_word == cts_double)
7282                 error ("both %<short%> and %<double%> in "
7283                        "declaration specifiers");
7284               else if (specs->typespec_word == cts_dfloat32)
7285                 error ("both %<short%> and %<_Decimal32%> in "
7286                        "declaration specifiers");
7287               else if (specs->typespec_word == cts_dfloat64)
7288                 error ("both %<short%> and %<_Decimal64%> in "
7289                                         "declaration specifiers");
7290               else if (specs->typespec_word == cts_dfloat128)
7291                 error ("both %<short%> and %<_Decimal128%> in "
7292                        "declaration specifiers");
7293               else
7294                 specs->short_p = true;
7295               break;
7296             case RID_SIGNED:
7297               dupe = specs->signed_p;
7298               if (specs->unsigned_p)
7299                 error ("both %<signed%> and %<unsigned%> in "
7300                        "declaration specifiers");
7301               else if (specs->typespec_word == cts_void)
7302                 error ("both %<signed%> and %<void%> in "
7303                        "declaration specifiers");
7304               else if (specs->typespec_word == cts_bool)
7305                 error ("both %<signed%> and %<_Bool%> in "
7306                        "declaration specifiers");
7307               else if (specs->typespec_word == cts_float)
7308                 error ("both %<signed%> and %<float%> in "
7309                        "declaration specifiers");
7310               else if (specs->typespec_word == cts_double)
7311                 error ("both %<signed%> and %<double%> in "
7312                        "declaration specifiers");
7313               else if (specs->typespec_word == cts_dfloat32)
7314                 error ("both %<signed%> and %<_Decimal32%> in "
7315                        "declaration specifiers");
7316               else if (specs->typespec_word == cts_dfloat64)
7317                 error ("both %<signed%> and %<_Decimal64%> in "
7318                        "declaration specifiers");
7319               else if (specs->typespec_word == cts_dfloat128)
7320                 error ("both %<signed%> and %<_Decimal128%> in "
7321                        "declaration specifiers");
7322               else
7323                 specs->signed_p = true;
7324               break;
7325             case RID_UNSIGNED:
7326               dupe = specs->unsigned_p;
7327               if (specs->signed_p)
7328                 error ("both %<signed%> and %<unsigned%> in "
7329                        "declaration specifiers");
7330               else if (specs->typespec_word == cts_void)
7331                 error ("both %<unsigned%> and %<void%> in "
7332                        "declaration specifiers");
7333               else if (specs->typespec_word == cts_bool)
7334                 error ("both %<unsigned%> and %<_Bool%> in "
7335                        "declaration specifiers");
7336               else if (specs->typespec_word == cts_float)
7337                 error ("both %<unsigned%> and %<float%> in "
7338                        "declaration specifiers");
7339               else if (specs->typespec_word == cts_double)
7340                 error ("both %<unsigned%> and %<double%> in "
7341                        "declaration specifiers");
7342               else if (specs->typespec_word == cts_dfloat32)
7343                 error ("both %<unsigned%> and %<_Decimal32%> in "
7344                        "declaration specifiers");
7345               else if (specs->typespec_word == cts_dfloat64)
7346                 error ("both %<unsigned%> and %<_Decimal64%> in "
7347                        "declaration specifiers");
7348               else if (specs->typespec_word == cts_dfloat128)
7349                 error ("both %<unsigned%> and %<_Decimal128%> in "
7350                        "declaration specifiers");
7351               else
7352                 specs->unsigned_p = true;
7353               break;
7354             case RID_COMPLEX:
7355               dupe = specs->complex_p;
7356               if (pedantic && !flag_isoc99 && !in_system_header)
7357                 pedwarn ("ISO C90 does not support complex types");
7358               if (specs->typespec_word == cts_void)
7359                 error ("both %<complex%> and %<void%> in "
7360                        "declaration specifiers");
7361               else if (specs->typespec_word == cts_bool)
7362                 error ("both %<complex%> and %<_Bool%> in "
7363                        "declaration specifiers");
7364               else if (specs->typespec_word == cts_dfloat32)
7365                 error ("both %<complex%> and %<_Decimal32%> in "
7366                        "declaration specifiers");
7367               else if (specs->typespec_word == cts_dfloat64)
7368                 error ("both %<complex%> and %<_Decimal64%> in "
7369                        "declaration specifiers");
7370               else if (specs->typespec_word == cts_dfloat128)
7371                 error ("both %<complex%> and %<_Decimal128%> in "
7372                        "declaration specifiers");
7373               else
7374                 specs->complex_p = true;
7375               break;
7376             default:
7377               gcc_unreachable ();
7378             }
7379
7380           if (dupe)
7381             error ("duplicate %qE", type);
7382
7383           return specs;
7384         }
7385       else
7386         {
7387           /* "void", "_Bool", "char", "int", "float" or "double".  */
7388           if (specs->typespec_word != cts_none)
7389             {
7390               error ("two or more data types in declaration specifiers");
7391               return specs;
7392             }
7393           switch (i)
7394             {
7395             case RID_VOID:
7396               if (specs->long_p)
7397                 error ("both %<long%> and %<void%> in "
7398                        "declaration specifiers");
7399               else if (specs->short_p)
7400                 error ("both %<short%> and %<void%> in "
7401                        "declaration specifiers");
7402               else if (specs->signed_p)
7403                 error ("both %<signed%> and %<void%> in "
7404                        "declaration specifiers");
7405               else if (specs->unsigned_p)
7406                 error ("both %<unsigned%> and %<void%> in "
7407                        "declaration specifiers");
7408               else if (specs->complex_p)
7409                 error ("both %<complex%> and %<void%> in "
7410                        "declaration specifiers");
7411               else
7412                 specs->typespec_word = cts_void;
7413               return specs;
7414             case RID_BOOL:
7415               if (specs->long_p)
7416                 error ("both %<long%> and %<_Bool%> in "
7417                        "declaration specifiers");
7418               else if (specs->short_p)
7419                 error ("both %<short%> and %<_Bool%> in "
7420                        "declaration specifiers");
7421               else if (specs->signed_p)
7422                 error ("both %<signed%> and %<_Bool%> in "
7423                        "declaration specifiers");
7424               else if (specs->unsigned_p)
7425                 error ("both %<unsigned%> and %<_Bool%> in "
7426                        "declaration specifiers");
7427               else if (specs->complex_p)
7428                 error ("both %<complex%> and %<_Bool%> in "
7429                        "declaration specifiers");
7430               else
7431                 specs->typespec_word = cts_bool;
7432               return specs;
7433             case RID_CHAR:
7434               if (specs->long_p)
7435                 error ("both %<long%> and %<char%> in "
7436                        "declaration specifiers");
7437               else if (specs->short_p)
7438                 error ("both %<short%> and %<char%> in "
7439                        "declaration specifiers");
7440               else
7441                 specs->typespec_word = cts_char;
7442               return specs;
7443             case RID_INT:
7444               specs->typespec_word = cts_int;
7445               return specs;
7446             case RID_FLOAT:
7447               if (specs->long_p)
7448                 error ("both %<long%> and %<float%> in "
7449                        "declaration specifiers");
7450               else if (specs->short_p)
7451                 error ("both %<short%> and %<float%> in "
7452                        "declaration specifiers");
7453               else if (specs->signed_p)
7454                 error ("both %<signed%> and %<float%> in "
7455                        "declaration specifiers");
7456               else if (specs->unsigned_p)
7457                 error ("both %<unsigned%> and %<float%> in "
7458                        "declaration specifiers");
7459               else
7460                 specs->typespec_word = cts_float;
7461               return specs;
7462             case RID_DOUBLE:
7463               if (specs->long_long_p)
7464                 error ("both %<long long%> and %<double%> in "
7465                        "declaration specifiers");
7466               else if (specs->short_p)
7467                 error ("both %<short%> and %<double%> in "
7468                        "declaration specifiers");
7469               else if (specs->signed_p)
7470                 error ("both %<signed%> and %<double%> in "
7471                        "declaration specifiers");
7472               else if (specs->unsigned_p)
7473                 error ("both %<unsigned%> and %<double%> in "
7474                        "declaration specifiers");
7475               else
7476                 specs->typespec_word = cts_double;
7477               return specs;
7478             case RID_DFLOAT32:
7479             case RID_DFLOAT64:
7480             case RID_DFLOAT128:
7481               {
7482                 const char *str;
7483                 if (i == RID_DFLOAT32)
7484                   str = "_Decimal32";
7485                 else if (i == RID_DFLOAT64)
7486                   str = "_Decimal64";
7487                 else
7488                   str = "_Decimal128";
7489                 if (specs->long_long_p)
7490                   error ("both %<long long%> and %<%s%> in "
7491                          "declaration specifiers", str);
7492                 if (specs->long_p)
7493                   error ("both %<long%> and %<%s%> in "
7494                          "declaration specifiers", str);
7495                 else if (specs->short_p)
7496                   error ("both %<short%> and %<%s%> in "
7497                          "declaration specifiers", str);
7498                 else if (specs->signed_p)
7499                   error ("both %<signed%> and %<%s%> in "
7500                          "declaration specifiers", str);
7501                 else if (specs->unsigned_p)
7502                   error ("both %<unsigned%> and %<%s%> in "
7503                          "declaration specifiers", str);
7504                 else if (specs->complex_p)
7505                   error ("both %<complex%> and %<%s%> in "
7506                          "declaration specifiers", str);
7507                 else if (i == RID_DFLOAT32)
7508                   specs->typespec_word = cts_dfloat32;
7509                 else if (i == RID_DFLOAT64)
7510                   specs->typespec_word = cts_dfloat64;
7511                 else
7512                   specs->typespec_word = cts_dfloat128;
7513               }
7514               if (!targetm.decimal_float_supported_p ())
7515                 error ("decimal floating point not supported for this target");
7516               if (pedantic)
7517                 pedwarn ("ISO C does not support decimal floating point");
7518               return specs;
7519             default:
7520               /* ObjC reserved word "id", handled below.  */
7521               break;
7522             }
7523         }
7524     }
7525
7526   /* Now we have a typedef (a TYPE_DECL node), an identifier (some
7527      form of ObjC type, cases such as "int" and "long" being handled
7528      above), a TYPE (struct, union, enum and typeof specifiers) or an
7529      ERROR_MARK.  In none of these cases may there have previously
7530      been any type specifiers.  */
7531   if (specs->type || specs->typespec_word != cts_none
7532       || specs->long_p || specs->short_p || specs->signed_p
7533       || specs->unsigned_p || specs->complex_p)
7534     error ("two or more data types in declaration specifiers");
7535   else if (TREE_CODE (type) == TYPE_DECL)
7536     {
7537       if (TREE_TYPE (type) == error_mark_node)
7538         ; /* Allow the type to default to int to avoid cascading errors.  */
7539       else
7540         {
7541           specs->type = TREE_TYPE (type);
7542           specs->decl_attr = DECL_ATTRIBUTES (type);
7543           specs->typedef_p = true;
7544           specs->explicit_signed_p = C_TYPEDEF_EXPLICITLY_SIGNED (type);
7545         }
7546     }
7547   else if (TREE_CODE (type) == IDENTIFIER_NODE)
7548     {
7549       tree t = lookup_name (type);
7550       if (!t || TREE_CODE (t) != TYPE_DECL)
7551         error ("%qE fails to be a typedef or built in type", type);
7552       else if (TREE_TYPE (t) == error_mark_node)
7553         ;
7554       else
7555         specs->type = TREE_TYPE (t);
7556     }
7557   else if (TREE_CODE (type) != ERROR_MARK)
7558     {
7559       if (spec.kind == ctsk_tagdef || spec.kind == ctsk_tagfirstref)
7560         specs->tag_defined_p = true;
7561       if (spec.kind == ctsk_typeof)
7562         specs->typedef_p = true;
7563       specs->type = type;
7564     }
7565
7566   return specs;
7567 }
7568
7569 /* Add the storage class specifier or function specifier SCSPEC to the
7570    declaration specifiers SPECS, returning SPECS.  */
7571
7572 struct c_declspecs *
7573 declspecs_add_scspec (struct c_declspecs *specs, tree scspec)
7574 {
7575   enum rid i;
7576   enum c_storage_class n = csc_none;
7577   bool dupe = false;
7578   specs->declspecs_seen_p = true;
7579   gcc_assert (TREE_CODE (scspec) == IDENTIFIER_NODE
7580               && C_IS_RESERVED_WORD (scspec));
7581   i = C_RID_CODE (scspec);
7582   if (specs->non_sc_seen_p)
7583     warning (OPT_Wold_style_declaration,
7584              "%qE is not at beginning of declaration", scspec);
7585   switch (i)
7586     {
7587     case RID_INLINE:
7588       /* C99 permits duplicate inline.  Although of doubtful utility,
7589          it seems simplest to permit it in gnu89 mode as well, as
7590          there is also little utility in maintaining this as a
7591          difference between gnu89 and C99 inline.  */
7592       dupe = false;
7593       specs->inline_p = true;
7594       break;
7595     case RID_THREAD:
7596       dupe = specs->thread_p;
7597       if (specs->storage_class == csc_auto)
7598         error ("%<__thread%> used with %<auto%>");
7599       else if (specs->storage_class == csc_register)
7600         error ("%<__thread%> used with %<register%>");
7601       else if (specs->storage_class == csc_typedef)
7602         error ("%<__thread%> used with %<typedef%>");
7603       else
7604         specs->thread_p = true;
7605       break;
7606     case RID_AUTO:
7607       n = csc_auto;
7608       break;
7609     case RID_EXTERN:
7610       n = csc_extern;
7611       /* Diagnose "__thread extern".  */
7612       if (specs->thread_p)
7613         error ("%<__thread%> before %<extern%>");
7614       break;
7615     case RID_REGISTER:
7616       n = csc_register;
7617       break;
7618     case RID_STATIC:
7619       n = csc_static;
7620       /* Diagnose "__thread static".  */
7621       if (specs->thread_p)
7622         error ("%<__thread%> before %<static%>");
7623       break;
7624     case RID_TYPEDEF:
7625       n = csc_typedef;
7626       break;
7627     default:
7628       gcc_unreachable ();
7629     }
7630   if (n != csc_none && n == specs->storage_class)
7631     dupe = true;
7632   if (dupe)
7633     error ("duplicate %qE", scspec);
7634   if (n != csc_none)
7635     {
7636       if (specs->storage_class != csc_none && n != specs->storage_class)
7637         {
7638           error ("multiple storage classes in declaration specifiers");
7639         }
7640       else
7641         {
7642           specs->storage_class = n;
7643           if (n != csc_extern && n != csc_static && specs->thread_p)
7644             {
7645               error ("%<__thread%> used with %qE", scspec);
7646               specs->thread_p = false;
7647             }
7648         }
7649     }
7650   return specs;
7651 }
7652
7653 /* Add the attributes ATTRS to the declaration specifiers SPECS,
7654    returning SPECS.  */
7655
7656 struct c_declspecs *
7657 declspecs_add_attrs (struct c_declspecs *specs, tree attrs)
7658 {
7659   specs->attrs = chainon (attrs, specs->attrs);
7660   specs->declspecs_seen_p = true;
7661   return specs;
7662 }
7663
7664 /* Combine "long", "short", "signed", "unsigned" and "_Complex" type
7665    specifiers with any other type specifier to determine the resulting
7666    type.  This is where ISO C checks on complex types are made, since
7667    "_Complex long" is a prefix of the valid ISO C type "_Complex long
7668    double".  */
7669
7670 struct c_declspecs *
7671 finish_declspecs (struct c_declspecs *specs)
7672 {
7673   /* If a type was specified as a whole, we have no modifiers and are
7674      done.  */
7675   if (specs->type != NULL_TREE)
7676     {
7677       gcc_assert (!specs->long_p && !specs->long_long_p && !specs->short_p
7678                   && !specs->signed_p && !specs->unsigned_p
7679                   && !specs->complex_p);
7680       return specs;
7681     }
7682
7683   /* If none of "void", "_Bool", "char", "int", "float" or "double"
7684      has been specified, treat it as "int" unless "_Complex" is
7685      present and there are no other specifiers.  If we just have
7686      "_Complex", it is equivalent to "_Complex double", but e.g.
7687      "_Complex short" is equivalent to "_Complex short int".  */
7688   if (specs->typespec_word == cts_none)
7689     {
7690       if (specs->long_p || specs->short_p
7691           || specs->signed_p || specs->unsigned_p)
7692         {
7693           specs->typespec_word = cts_int;
7694         }
7695       else if (specs->complex_p)
7696         {
7697           specs->typespec_word = cts_double;
7698           if (pedantic)
7699             pedwarn ("ISO C does not support plain %<complex%> meaning "
7700                      "%<double complex%>");
7701         }
7702       else
7703         {
7704           specs->typespec_word = cts_int;
7705           specs->default_int_p = true;
7706           /* We don't diagnose this here because grokdeclarator will
7707              give more specific diagnostics according to whether it is
7708              a function definition.  */
7709         }
7710     }
7711
7712   /* If "signed" was specified, record this to distinguish "int" and
7713      "signed int" in the case of a bit-field with
7714      -funsigned-bitfields.  */
7715   specs->explicit_signed_p = specs->signed_p;
7716
7717   /* Now compute the actual type.  */
7718   switch (specs->typespec_word)
7719     {
7720     case cts_void:
7721       gcc_assert (!specs->long_p && !specs->short_p
7722                   && !specs->signed_p && !specs->unsigned_p
7723                   && !specs->complex_p);
7724       specs->type = void_type_node;
7725       break;
7726     case cts_bool:
7727       gcc_assert (!specs->long_p && !specs->short_p
7728                   && !specs->signed_p && !specs->unsigned_p
7729                   && !specs->complex_p);
7730       specs->type = boolean_type_node;
7731       break;
7732     case cts_char:
7733       gcc_assert (!specs->long_p && !specs->short_p);
7734       gcc_assert (!(specs->signed_p && specs->unsigned_p));
7735       if (specs->signed_p)
7736         specs->type = signed_char_type_node;
7737       else if (specs->unsigned_p)
7738         specs->type = unsigned_char_type_node;
7739       else
7740         specs->type = char_type_node;
7741       if (specs->complex_p)
7742         {
7743           if (pedantic)
7744             pedwarn ("ISO C does not support complex integer types");
7745           specs->type = build_complex_type (specs->type);
7746         }
7747       break;
7748     case cts_int:
7749       gcc_assert (!(specs->long_p && specs->short_p));
7750       gcc_assert (!(specs->signed_p && specs->unsigned_p));
7751       if (specs->long_long_p)
7752         specs->type = (specs->unsigned_p
7753                        ? long_long_unsigned_type_node
7754                        : long_long_integer_type_node);
7755       else if (specs->long_p)
7756         specs->type = (specs->unsigned_p
7757                        ? long_unsigned_type_node
7758                        : long_integer_type_node);
7759       else if (specs->short_p)
7760         specs->type = (specs->unsigned_p
7761                        ? short_unsigned_type_node
7762                        : short_integer_type_node);
7763       else
7764         specs->type = (specs->unsigned_p
7765                        ? unsigned_type_node
7766                        : integer_type_node);
7767       if (specs->complex_p)
7768         {
7769           if (pedantic)
7770             pedwarn ("ISO C does not support complex integer types");
7771           specs->type = build_complex_type (specs->type);
7772         }
7773       break;
7774     case cts_float:
7775       gcc_assert (!specs->long_p && !specs->short_p
7776                   && !specs->signed_p && !specs->unsigned_p);
7777       specs->type = (specs->complex_p
7778                      ? complex_float_type_node
7779                      : float_type_node);
7780       break;
7781     case cts_double:
7782       gcc_assert (!specs->long_long_p && !specs->short_p
7783                   && !specs->signed_p && !specs->unsigned_p);
7784       if (specs->long_p)
7785         {
7786           specs->type = (specs->complex_p
7787                          ? complex_long_double_type_node
7788                          : long_double_type_node);
7789         }
7790       else
7791         {
7792           specs->type = (specs->complex_p
7793                          ? complex_double_type_node
7794                          : double_type_node);
7795         }
7796       break;
7797     case cts_dfloat32:
7798     case cts_dfloat64:
7799     case cts_dfloat128:
7800       gcc_assert (!specs->long_p && !specs->long_long_p && !specs->short_p
7801                   && !specs->signed_p && !specs->unsigned_p && !specs->complex_p);
7802       if (specs->typespec_word == cts_dfloat32)
7803         specs->type = dfloat32_type_node;
7804       else if (specs->typespec_word == cts_dfloat64)
7805         specs->type = dfloat64_type_node;
7806       else
7807         specs->type = dfloat128_type_node;
7808       break;
7809     default:
7810       gcc_unreachable ();
7811     }
7812
7813   return specs;
7814 }
7815
7816 /* A subroutine of c_write_global_declarations.  Perform final processing
7817    on one file scope's declarations (or the external scope's declarations),
7818    GLOBALS.  */
7819
7820 static void
7821 c_write_global_declarations_1 (tree globals)
7822 {
7823   tree decl;
7824   bool reconsider;
7825
7826   /* Process the decls in the order they were written.  */
7827   for (decl = globals; decl; decl = TREE_CHAIN (decl))
7828     {
7829       /* Check for used but undefined static functions using the C
7830          standard's definition of "used", and set TREE_NO_WARNING so
7831          that check_global_declarations doesn't repeat the check.  */
7832       if (TREE_CODE (decl) == FUNCTION_DECL
7833           && DECL_INITIAL (decl) == 0
7834           && DECL_EXTERNAL (decl)
7835           && !TREE_PUBLIC (decl)
7836           && C_DECL_USED (decl))
7837         {
7838           pedwarn ("%q+F used but never defined", decl);
7839           TREE_NO_WARNING (decl) = 1;
7840         }
7841
7842       wrapup_global_declaration_1 (decl);
7843     }
7844
7845   do
7846     {
7847       reconsider = false;
7848       for (decl = globals; decl; decl = TREE_CHAIN (decl))
7849         reconsider |= wrapup_global_declaration_2 (decl);
7850     }
7851   while (reconsider);
7852
7853   for (decl = globals; decl; decl = TREE_CHAIN (decl))
7854     check_global_declaration_1 (decl);
7855 }
7856
7857 /* A subroutine of c_write_global_declarations Emit debug information for each
7858    of the declarations in GLOBALS.  */
7859
7860 static void
7861 c_write_global_declarations_2 (tree globals)
7862 {
7863   tree decl;
7864
7865   for (decl = globals; decl ; decl = TREE_CHAIN (decl))
7866     debug_hooks->global_decl (decl);
7867 }
7868
7869 /* Preserve the external declarations scope across a garbage collect.  */
7870 static GTY(()) tree ext_block;
7871
7872 void
7873 c_write_global_declarations (void)
7874 {
7875   tree t;
7876
7877   /* We don't want to do this if generating a PCH.  */
7878   if (pch_file)
7879     return;
7880
7881   /* Don't waste time on further processing if -fsyntax-only or we've
7882      encountered errors.  */
7883   if (flag_syntax_only || errorcount || sorrycount || cpp_errors (parse_in))
7884     return;
7885
7886   /* Close the external scope.  */
7887   ext_block = pop_scope ();
7888   external_scope = 0;
7889   gcc_assert (!current_scope);
7890
7891   if (ext_block)
7892     {
7893       tree tmp = BLOCK_VARS (ext_block);
7894       int flags;
7895       FILE * stream = dump_begin (TDI_tu, &flags);
7896       if (stream && tmp)
7897         {
7898           dump_node (tmp, flags & ~TDF_SLIM, stream);
7899           dump_end (TDI_tu, stream);
7900         }
7901     }
7902
7903   /* Process all file scopes in this compilation, and the external_scope,
7904      through wrapup_global_declarations and check_global_declarations.  */
7905   for (t = all_translation_units; t; t = TREE_CHAIN (t))
7906     c_write_global_declarations_1 (BLOCK_VARS (DECL_INITIAL (t)));
7907   c_write_global_declarations_1 (BLOCK_VARS (ext_block));
7908
7909   /* We're done parsing; proceed to optimize and emit assembly.
7910      FIXME: shouldn't be the front end's responsibility to call this.  */
7911   cgraph_optimize ();
7912
7913   /* After cgraph has had a chance to emit everything that's going to
7914      be emitted, output debug information for globals.  */
7915   if (errorcount == 0 && sorrycount == 0)
7916     {
7917       timevar_push (TV_SYMOUT);
7918       for (t = all_translation_units; t; t = TREE_CHAIN (t))
7919         c_write_global_declarations_2 (BLOCK_VARS (DECL_INITIAL (t)));
7920       c_write_global_declarations_2 (BLOCK_VARS (ext_block));
7921       timevar_pop (TV_SYMOUT);
7922     }
7923
7924   ext_block = NULL;
7925 }
7926
7927 #include "gt-c-decl.h"