OSDN Git Service

* c-decl.c (grokdeclarator): Added 'deprecated_state' argument.
[pf3gnuchains/gcc-fork.git] / 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)))