PR tree-optimization/81303
[official-gcc.git] / gcc / cp / decl.c
blob99b22dc878c4a1525c48483f1fbf2f4bf5c89eef
1 /* Process declarations and variables for C++ compiler.
2 Copyright (C) 1988-2017 Free Software Foundation, Inc.
3 Contributed by Michael Tiemann (tiemann@cygnus.com)
5 This file is part of GCC.
7 GCC is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 3, or (at your option)
10 any later version.
12 GCC is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with GCC; see the file COPYING3. If not see
19 <http://www.gnu.org/licenses/>. */
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. */
26 /* ??? not all decl nodes are given the most useful possible
27 line numbers. For example, the CONST_DECLs for enum values. */
29 #include "config.h"
30 #include "system.h"
31 #include "coretypes.h"
32 #include "target.h"
33 #include "c-family/c-target.h"
34 #include "cp-tree.h"
35 #include "timevar.h"
36 #include "stringpool.h"
37 #include "cgraph.h"
38 #include "stor-layout.h"
39 #include "varasm.h"
40 #include "attribs.h"
41 #include "flags.h"
42 #include "tree-iterator.h"
43 #include "decl.h"
44 #include "intl.h"
45 #include "toplev.h"
46 #include "c-family/c-objc.h"
47 #include "c-family/c-pragma.h"
48 #include "c-family/c-ubsan.h"
49 #include "debug.h"
50 #include "plugin.h"
51 #include "builtins.h"
52 #include "gimplify.h"
53 #include "asan.h"
55 /* Possible cases of bad specifiers type used by bad_specifiers. */
56 enum bad_spec_place {
57 BSP_VAR, /* variable */
58 BSP_PARM, /* parameter */
59 BSP_TYPE, /* type */
60 BSP_FIELD /* field */
63 static const char *redeclaration_error_message (tree, tree);
65 static int decl_jump_unsafe (tree);
66 static void require_complete_types_for_parms (tree);
67 static void push_local_name (tree);
68 static tree grok_reference_init (tree, tree, tree, int);
69 static tree grokvardecl (tree, tree, tree, const cp_decl_specifier_seq *,
70 int, int, int, bool, int, tree);
71 static int check_static_variable_definition (tree, tree);
72 static void record_unknown_type (tree, const char *);
73 static tree builtin_function_1 (tree, tree, bool);
74 static int member_function_or_else (tree, tree, enum overload_flags);
75 static void check_for_uninitialized_const_var (tree);
76 static tree local_variable_p_walkfn (tree *, int *, void *);
77 static const char *tag_name (enum tag_types);
78 static tree lookup_and_check_tag (enum tag_types, tree, tag_scope, bool);
79 static void maybe_deduce_size_from_array_init (tree, tree);
80 static void layout_var_decl (tree);
81 static tree check_initializer (tree, tree, int, vec<tree, va_gc> **);
82 static void make_rtl_for_nonlocal_decl (tree, tree, const char *);
83 static void save_function_data (tree);
84 static void copy_type_enum (tree , tree);
85 static void check_function_type (tree, tree);
86 static void finish_constructor_body (void);
87 static void begin_destructor_body (void);
88 static void finish_destructor_body (void);
89 static void record_key_method_defined (tree);
90 static tree create_array_type_for_decl (tree, tree, tree);
91 static tree get_atexit_node (void);
92 static tree get_dso_handle_node (void);
93 static tree start_cleanup_fn (void);
94 static void end_cleanup_fn (void);
95 static tree cp_make_fname_decl (location_t, tree, int);
96 static void initialize_predefined_identifiers (void);
97 static tree check_special_function_return_type
98 (special_function_kind, tree, tree, int, const location_t*);
99 static tree push_cp_library_fn (enum tree_code, tree, int);
100 static tree build_cp_library_fn (tree, enum tree_code, tree, int);
101 static void store_parm_decls (tree);
102 static void initialize_local_var (tree, tree);
103 static void expand_static_init (tree, tree);
105 /* The following symbols are subsumed in the cp_global_trees array, and
106 listed here individually for documentation purposes.
108 C++ extensions
109 tree wchar_decl_node;
111 tree vtable_entry_type;
112 tree delta_type_node;
113 tree __t_desc_type_node;
115 tree class_type_node;
116 tree unknown_type_node;
118 Array type `vtable_entry_type[]'
120 tree vtbl_type_node;
121 tree vtbl_ptr_type_node;
123 Namespaces,
125 tree std_node;
126 tree abi_node;
128 A FUNCTION_DECL which can call `abort'. Not necessarily the
129 one that the user will declare, but sufficient to be called
130 by routines that want to abort the program.
132 tree abort_fndecl;
134 Used by RTTI
135 tree type_info_type_node, tinfo_decl_id, tinfo_decl_type;
136 tree tinfo_var_id; */
138 tree cp_global_trees[CPTI_MAX];
140 #define local_names cp_function_chain->x_local_names
142 /* A list of objects which have constructors or destructors
143 which reside in the global scope. The decl is stored in
144 the TREE_VALUE slot and the initializer is stored
145 in the TREE_PURPOSE slot. */
146 tree static_aggregates;
148 /* Like static_aggregates, but for thread_local variables. */
149 tree tls_aggregates;
151 /* -- end of C++ */
153 /* A node for the integer constant 2. */
155 tree integer_two_node;
157 /* vector of static decls. */
158 vec<tree, va_gc> *static_decls;
160 /* vector of keyed classes. */
161 vec<tree, va_gc> *keyed_classes;
163 /* Used only for jumps to as-yet undefined labels, since jumps to
164 defined labels can have their validity checked immediately. */
166 struct GTY((chain_next ("%h.next"))) named_label_use_entry {
167 struct named_label_use_entry *next;
168 /* The binding level to which this entry is *currently* attached.
169 This is initially the binding level in which the goto appeared,
170 but is modified as scopes are closed. */
171 cp_binding_level *binding_level;
172 /* The head of the names list that was current when the goto appeared,
173 or the inner scope popped. These are the decls that will *not* be
174 skipped when jumping to the label. */
175 tree names_in_scope;
176 /* The location of the goto, for error reporting. */
177 location_t o_goto_locus;
178 /* True if an OpenMP structured block scope has been closed since
179 the goto appeared. This means that the branch from the label will
180 illegally exit an OpenMP scope. */
181 bool in_omp_scope;
184 /* A list of all LABEL_DECLs in the function that have names. Here so
185 we can clear out their names' definitions at the end of the
186 function, and so we can check the validity of jumps to these labels. */
188 struct GTY((for_user)) named_label_entry {
190 tree name; /* Name of decl. */
192 tree label_decl; /* LABEL_DECL, unless deleted local label. */
194 named_label_entry *outer; /* Outer shadowed chain. */
196 /* The binding level to which the label is *currently* attached.
197 This is initially set to the binding level in which the label
198 is defined, but is modified as scopes are closed. */
199 cp_binding_level *binding_level;
201 /* The head of the names list that was current when the label was
202 defined, or the inner scope popped. These are the decls that will
203 be skipped when jumping to the label. */
204 tree names_in_scope;
206 /* A vector of all decls from all binding levels that would be
207 crossed by a backward branch to the label. */
208 vec<tree, va_gc> *bad_decls;
210 /* A list of uses of the label, before the label is defined. */
211 named_label_use_entry *uses;
213 /* The following bits are set after the label is defined, and are
214 updated as scopes are popped. They indicate that a jump to the
215 label will illegally enter a scope of the given flavor. */
216 bool in_try_scope;
217 bool in_catch_scope;
218 bool in_omp_scope;
219 bool in_transaction_scope;
220 bool in_constexpr_if;
223 #define named_labels cp_function_chain->x_named_labels
225 /* The number of function bodies which we are currently processing.
226 (Zero if we are at namespace scope, one inside the body of a
227 function, two inside the body of a function in a local class, etc.) */
228 int function_depth;
230 /* Whether the exception-specifier is part of a function type (i.e. C++17). */
231 bool flag_noexcept_type;
233 /* States indicating how grokdeclarator() should handle declspecs marked
234 with __attribute__((deprecated)). An object declared as
235 __attribute__((deprecated)) suppresses warnings of uses of other
236 deprecated items. */
237 enum deprecated_states deprecated_state = DEPRECATED_NORMAL;
240 /* A list of VAR_DECLs whose type was incomplete at the time the
241 variable was declared. */
243 struct GTY(()) incomplete_var {
244 tree decl;
245 tree incomplete_type;
249 static GTY(()) vec<incomplete_var, va_gc> *incomplete_vars;
251 /* Returns the kind of template specialization we are currently
252 processing, given that it's declaration contained N_CLASS_SCOPES
253 explicit scope qualifications. */
255 tmpl_spec_kind
256 current_tmpl_spec_kind (int n_class_scopes)
258 int n_template_parm_scopes = 0;
259 int seen_specialization_p = 0;
260 int innermost_specialization_p = 0;
261 cp_binding_level *b;
263 /* Scan through the template parameter scopes. */
264 for (b = current_binding_level;
265 b->kind == sk_template_parms;
266 b = b->level_chain)
268 /* If we see a specialization scope inside a parameter scope,
269 then something is wrong. That corresponds to a declaration
270 like:
272 template <class T> template <> ...
274 which is always invalid since [temp.expl.spec] forbids the
275 specialization of a class member template if the enclosing
276 class templates are not explicitly specialized as well. */
277 if (b->explicit_spec_p)
279 if (n_template_parm_scopes == 0)
280 innermost_specialization_p = 1;
281 else
282 seen_specialization_p = 1;
284 else if (seen_specialization_p == 1)
285 return tsk_invalid_member_spec;
287 ++n_template_parm_scopes;
290 /* Handle explicit instantiations. */
291 if (processing_explicit_instantiation)
293 if (n_template_parm_scopes != 0)
294 /* We've seen a template parameter list during an explicit
295 instantiation. For example:
297 template <class T> template void f(int);
299 This is erroneous. */
300 return tsk_invalid_expl_inst;
301 else
302 return tsk_expl_inst;
305 if (n_template_parm_scopes < n_class_scopes)
306 /* We've not seen enough template headers to match all the
307 specialized classes present. For example:
309 template <class T> void R<T>::S<T>::f(int);
311 This is invalid; there needs to be one set of template
312 parameters for each class. */
313 return tsk_insufficient_parms;
314 else if (n_template_parm_scopes == n_class_scopes)
315 /* We're processing a non-template declaration (even though it may
316 be a member of a template class.) For example:
318 template <class T> void S<T>::f(int);
320 The `class T' matches the `S<T>', leaving no template headers
321 corresponding to the `f'. */
322 return tsk_none;
323 else if (n_template_parm_scopes > n_class_scopes + 1)
324 /* We've got too many template headers. For example:
326 template <> template <class T> void f (T);
328 There need to be more enclosing classes. */
329 return tsk_excessive_parms;
330 else
331 /* This must be a template. It's of the form:
333 template <class T> template <class U> void S<T>::f(U);
335 This is a specialization if the innermost level was a
336 specialization; otherwise it's just a definition of the
337 template. */
338 return innermost_specialization_p ? tsk_expl_spec : tsk_template;
341 /* Exit the current scope. */
343 void
344 finish_scope (void)
346 poplevel (0, 0, 0);
349 /* When a label goes out of scope, check to see if that label was used
350 in a valid manner, and issue any appropriate warnings or errors. */
352 static void
353 check_label_used (tree label)
355 if (!processing_template_decl)
357 if (DECL_INITIAL (label) == NULL_TREE)
359 location_t location;
361 error ("label %q+D used but not defined", label);
362 location = input_location;
363 /* FIXME want (LOCATION_FILE (input_location), (line)0) */
364 /* Avoid crashing later. */
365 define_label (location, DECL_NAME (label));
367 else
368 warn_for_unused_label (label);
372 /* Helper function to sort named label entries in a vector by DECL_UID. */
374 static int
375 sort_labels (const void *a, const void *b)
377 tree label1 = *(tree const *) a;
378 tree label2 = *(tree const *) b;
380 /* DECL_UIDs can never be equal. */
381 return DECL_UID (label1) > DECL_UID (label2) ? -1 : +1;
384 /* At the end of a function, all labels declared within the function
385 go out of scope. BLOCK is the top-level block for the
386 function. */
388 static void
389 pop_labels (tree block)
391 if (!named_labels)
392 return;
394 /* We need to add the labels to the block chain, so debug
395 information is emitted. But, we want the order to be stable so
396 need to sort them first. Otherwise the debug output could be
397 randomly ordered. I guess it's mostly stable, unless the hash
398 table implementation changes. */
399 auto_vec<tree, 32> labels (named_labels->elements ());
400 hash_table<named_label_hash>::iterator end (named_labels->end ());
401 for (hash_table<named_label_hash>::iterator iter
402 (named_labels->begin ()); iter != end; ++iter)
404 named_label_entry *ent = *iter;
406 gcc_checking_assert (!ent->outer);
407 if (ent->label_decl)
408 labels.quick_push (ent->label_decl);
409 ggc_free (ent);
411 named_labels = NULL;
412 labels.qsort (sort_labels);
414 while (labels.length ())
416 tree label = labels.pop ();
418 DECL_CHAIN (label) = BLOCK_VARS (block);
419 BLOCK_VARS (block) = label;
421 check_label_used (label);
425 /* At the end of a block with local labels, restore the outer definition. */
427 static void
428 pop_local_label (tree id, tree label)
430 check_label_used (label);
431 named_label_entry **slot = named_labels->find_slot_with_hash
432 (id, IDENTIFIER_HASH_VALUE (id), NO_INSERT);
433 named_label_entry *ent = *slot;
435 if (ent->outer)
436 ent = ent->outer;
437 else
439 ent = ggc_cleared_alloc<named_label_entry> ();
440 ent->name = id;
442 *slot = ent;
445 /* The following two routines are used to interface to Objective-C++.
446 The binding level is purposely treated as an opaque type. */
448 void *
449 objc_get_current_scope (void)
451 return current_binding_level;
454 /* The following routine is used by the NeXT-style SJLJ exceptions;
455 variables get marked 'volatile' so as to not be clobbered by
456 _setjmp()/_longjmp() calls. All variables in the current scope,
457 as well as parent scopes up to (but not including) ENCLOSING_BLK
458 shall be thusly marked. */
460 void
461 objc_mark_locals_volatile (void *enclosing_blk)
463 cp_binding_level *scope;
465 for (scope = current_binding_level;
466 scope && scope != enclosing_blk;
467 scope = scope->level_chain)
469 tree decl;
471 for (decl = scope->names; decl; decl = TREE_CHAIN (decl))
472 objc_volatilize_decl (decl);
474 /* Do not climb up past the current function. */
475 if (scope->kind == sk_function_parms)
476 break;
480 /* True if B is the level for the condition of a constexpr if. */
482 static bool
483 level_for_constexpr_if (cp_binding_level *b)
485 return (b->kind == sk_cond && b->this_entity
486 && TREE_CODE (b->this_entity) == IF_STMT
487 && IF_STMT_CONSTEXPR_P (b->this_entity));
490 /* Update data for defined and undefined labels when leaving a scope. */
493 poplevel_named_label_1 (named_label_entry **slot, cp_binding_level *bl)
495 named_label_entry *ent = *slot;
496 cp_binding_level *obl = bl->level_chain;
498 if (ent->binding_level == bl)
500 tree decl;
502 /* ENT->NAMES_IN_SCOPE may contain a mixture of DECLs and
503 TREE_LISTs representing OVERLOADs, so be careful. */
504 for (decl = ent->names_in_scope; decl; decl = (DECL_P (decl)
505 ? DECL_CHAIN (decl)
506 : TREE_CHAIN (decl)))
507 if (decl_jump_unsafe (decl))
508 vec_safe_push (ent->bad_decls, decl);
510 ent->binding_level = obl;
511 ent->names_in_scope = obl->names;
512 switch (bl->kind)
514 case sk_try:
515 ent->in_try_scope = true;
516 break;
517 case sk_catch:
518 ent->in_catch_scope = true;
519 break;
520 case sk_omp:
521 ent->in_omp_scope = true;
522 break;
523 case sk_transaction:
524 ent->in_transaction_scope = true;
525 break;
526 case sk_block:
527 if (level_for_constexpr_if (bl->level_chain))
528 ent->in_constexpr_if = true;
529 break;
530 default:
531 break;
534 else if (ent->uses)
536 struct named_label_use_entry *use;
538 for (use = ent->uses; use ; use = use->next)
539 if (use->binding_level == bl)
541 use->binding_level = obl;
542 use->names_in_scope = obl->names;
543 if (bl->kind == sk_omp)
544 use->in_omp_scope = true;
548 return 1;
551 /* Saved errorcount to avoid -Wunused-but-set-{parameter,variable} warnings
552 when errors were reported, except for -Werror-unused-but-set-*. */
553 static int unused_but_set_errorcount;
555 /* Exit a binding level.
556 Pop the level off, and restore the state of the identifier-decl mappings
557 that were in effect when this level was entered.
559 If KEEP == 1, this level had explicit declarations, so
560 and create a "block" (a BLOCK node) for the level
561 to record its declarations and subblocks for symbol table output.
563 If FUNCTIONBODY is nonzero, this level is the body of a function,
564 so create a block as if KEEP were set and also clear out all
565 label names.
567 If REVERSE is nonzero, reverse the order of decls before putting
568 them into the BLOCK. */
570 tree
571 poplevel (int keep, int reverse, int functionbody)
573 tree link;
574 /* The chain of decls was accumulated in reverse order.
575 Put it into forward order, just for cleanliness. */
576 tree decls;
577 tree subblocks;
578 tree block;
579 tree decl;
580 int leaving_for_scope;
581 scope_kind kind;
582 unsigned ix;
584 bool subtime = timevar_cond_start (TV_NAME_LOOKUP);
585 restart:
587 block = NULL_TREE;
589 gcc_assert (current_binding_level->kind != sk_class
590 && current_binding_level->kind != sk_namespace);
592 if (current_binding_level->kind == sk_cleanup)
593 functionbody = 0;
594 subblocks = functionbody >= 0 ? current_binding_level->blocks : 0;
596 gcc_assert (!vec_safe_length (current_binding_level->class_shadowed));
598 /* We used to use KEEP == 2 to indicate that the new block should go
599 at the beginning of the list of blocks at this binding level,
600 rather than the end. This hack is no longer used. */
601 gcc_assert (keep == 0 || keep == 1);
603 if (current_binding_level->keep)
604 keep = 1;
606 /* Any uses of undefined labels, and any defined labels, now operate
607 under constraints of next binding contour. */
608 if (cfun && !functionbody && named_labels)
609 named_labels->traverse<cp_binding_level *, poplevel_named_label_1>
610 (current_binding_level);
612 /* Get the decls in the order they were written.
613 Usually current_binding_level->names is in reverse order.
614 But parameter decls were previously put in forward order. */
616 decls = current_binding_level->names;
617 if (reverse)
619 decls = nreverse (decls);
620 current_binding_level->names = decls;
623 /* If there were any declarations or structure tags in that level,
624 or if this level is a function body,
625 create a BLOCK to record them for the life of this function. */
626 block = NULL_TREE;
627 /* Avoid function body block if possible. */
628 if (functionbody && subblocks && BLOCK_CHAIN (subblocks) == NULL_TREE)
629 keep = 0;
630 else if (keep == 1 || functionbody)
631 block = make_node (BLOCK);
632 if (block != NULL_TREE)
634 BLOCK_VARS (block) = decls;
635 BLOCK_SUBBLOCKS (block) = subblocks;
638 /* In each subblock, record that this is its superior. */
639 if (keep >= 0)
640 for (link = subblocks; link; link = BLOCK_CHAIN (link))
641 BLOCK_SUPERCONTEXT (link) = block;
643 /* We still support the old for-scope rules, whereby the variables
644 in a init statement were in scope after the for-statement ended.
645 We only use the new rules if flag_new_for_scope is nonzero. */
646 leaving_for_scope
647 = current_binding_level->kind == sk_for && flag_new_for_scope == 1;
649 /* Before we remove the declarations first check for unused variables. */
650 if ((warn_unused_variable || warn_unused_but_set_variable)
651 && current_binding_level->kind != sk_template_parms
652 && !processing_template_decl)
653 for (tree d = get_local_decls (); d; d = TREE_CHAIN (d))
655 /* There are cases where D itself is a TREE_LIST. See in
656 push_local_binding where the list of decls returned by
657 getdecls is built. */
658 decl = TREE_CODE (d) == TREE_LIST ? TREE_VALUE (d) : d;
660 tree type = TREE_TYPE (decl);
661 if (VAR_P (decl)
662 && (! TREE_USED (decl) || !DECL_READ_P (decl))
663 && ! DECL_IN_SYSTEM_HEADER (decl)
664 /* For structured bindings, consider only real variables, not
665 subobjects. */
666 && (DECL_DECOMPOSITION_P (decl) ? !DECL_DECOMP_BASE (decl)
667 : (DECL_NAME (decl) && !DECL_ARTIFICIAL (decl)))
668 && type != error_mark_node
669 && (!CLASS_TYPE_P (type)
670 || !TYPE_HAS_NONTRIVIAL_DESTRUCTOR (type)
671 || lookup_attribute ("warn_unused",
672 TYPE_ATTRIBUTES (TREE_TYPE (decl)))))
674 if (! TREE_USED (decl))
676 if (!DECL_NAME (decl) && DECL_DECOMPOSITION_P (decl))
677 warning_at (DECL_SOURCE_LOCATION (decl),
678 OPT_Wunused_variable,
679 "unused structured binding declaration");
680 else
681 warning_at (DECL_SOURCE_LOCATION (decl),
682 OPT_Wunused_variable, "unused variable %qD", decl);
684 else if (DECL_CONTEXT (decl) == current_function_decl
685 // For -Wunused-but-set-variable leave references alone.
686 && TREE_CODE (TREE_TYPE (decl)) != REFERENCE_TYPE
687 && errorcount == unused_but_set_errorcount)
689 if (!DECL_NAME (decl) && DECL_DECOMPOSITION_P (decl))
690 warning_at (DECL_SOURCE_LOCATION (decl),
691 OPT_Wunused_but_set_variable, "structured "
692 "binding declaration set but not used");
693 else
694 warning_at (DECL_SOURCE_LOCATION (decl),
695 OPT_Wunused_but_set_variable,
696 "variable %qD set but not used", decl);
697 unused_but_set_errorcount = errorcount;
702 /* Remove declarations for all the DECLs in this level. */
703 for (link = decls; link; link = TREE_CHAIN (link))
705 decl = TREE_CODE (link) == TREE_LIST ? TREE_VALUE (link) : link;
706 tree name = OVL_NAME (decl);
708 if (leaving_for_scope && VAR_P (decl)
709 /* It's hard to make this ARM compatibility hack play nicely with
710 lambdas, and it really isn't necessary in C++11 mode. */
711 && cxx_dialect < cxx11
712 && name)
714 cxx_binding *ob = outer_binding (name,
715 IDENTIFIER_BINDING (name),
716 /*class_p=*/true);
717 tree ns_binding = NULL_TREE;
718 if (!ob)
719 ns_binding = get_namespace_binding (current_namespace, name);
721 if (ob && ob->scope == current_binding_level->level_chain)
722 /* We have something like:
724 int i;
725 for (int i; ;);
727 and we are leaving the `for' scope. There's no reason to
728 keep the binding of the inner `i' in this case. */
730 else if ((ob && (TREE_CODE (ob->value) == TYPE_DECL))
731 || (ns_binding && TREE_CODE (ns_binding) == TYPE_DECL))
732 /* Here, we have something like:
734 typedef int I;
736 void f () {
737 for (int I; ;);
740 We must pop the for-scope binding so we know what's a
741 type and what isn't. */
743 else
745 /* Mark this VAR_DECL as dead so that we can tell we left it
746 there only for backward compatibility. */
747 DECL_DEAD_FOR_LOCAL (link) = 1;
749 /* Keep track of what should have happened when we
750 popped the binding. */
751 if (ob && ob->value)
753 SET_DECL_SHADOWED_FOR_VAR (link, ob->value);
754 DECL_HAS_SHADOWED_FOR_VAR_P (link) = 1;
757 /* Add it to the list of dead variables in the next
758 outermost binding to that we can remove these when we
759 leave that binding. */
760 vec_safe_push (
761 current_binding_level->level_chain->dead_vars_from_for,
762 link);
764 /* Although we don't pop the cxx_binding, we do clear
765 its SCOPE since the scope is going away now. */
766 IDENTIFIER_BINDING (name)->scope
767 = current_binding_level->level_chain;
769 /* Don't remove the binding. */
770 name = NULL_TREE;
773 /* Remove the binding. */
774 if (TREE_CODE (decl) == LABEL_DECL)
775 pop_local_label (name, decl);
776 else
777 pop_local_binding (name, decl);
780 /* Remove declarations for any `for' variables from inner scopes
781 that we kept around. */
782 FOR_EACH_VEC_SAFE_ELT_REVERSE (current_binding_level->dead_vars_from_for,
783 ix, decl)
784 pop_local_binding (DECL_NAME (decl), decl);
786 /* Restore the IDENTIFIER_TYPE_VALUEs. */
787 for (link = current_binding_level->type_shadowed;
788 link; link = TREE_CHAIN (link))
789 SET_IDENTIFIER_TYPE_VALUE (TREE_PURPOSE (link), TREE_VALUE (link));
791 /* There may be OVERLOADs (wrapped in TREE_LISTs) on the BLOCK_VARs
792 list if a `using' declaration put them there. The debugging
793 back ends won't understand OVERLOAD, so we remove them here.
794 Because the BLOCK_VARS are (temporarily) shared with
795 CURRENT_BINDING_LEVEL->NAMES we must do this fixup after we have
796 popped all the bindings. Also remove undeduced 'auto' decls,
797 which LTO doesn't understand, and can't have been used by anything. */
798 if (block)
800 tree* d;
802 for (d = &BLOCK_VARS (block); *d; )
804 if (TREE_CODE (*d) == TREE_LIST
805 || (!processing_template_decl
806 && undeduced_auto_decl (*d)))
807 *d = TREE_CHAIN (*d);
808 else
809 d = &DECL_CHAIN (*d);
813 /* If the level being exited is the top level of a function,
814 check over all the labels. */
815 if (functionbody)
817 if (block)
819 /* Since this is the top level block of a function, the vars are
820 the function's parameters. Don't leave them in the BLOCK
821 because they are found in the FUNCTION_DECL instead. */
822 BLOCK_VARS (block) = 0;
823 pop_labels (block);
825 else
826 pop_labels (subblocks);
829 kind = current_binding_level->kind;
830 if (kind == sk_cleanup)
832 tree stmt;
834 /* If this is a temporary binding created for a cleanup, then we'll
835 have pushed a statement list level. Pop that, create a new
836 BIND_EXPR for the block, and insert it into the stream. */
837 stmt = pop_stmt_list (current_binding_level->statement_list);
838 stmt = c_build_bind_expr (input_location, block, stmt);
839 add_stmt (stmt);
842 leave_scope ();
843 if (functionbody)
845 /* The current function is being defined, so its DECL_INITIAL
846 should be error_mark_node. */
847 gcc_assert (DECL_INITIAL (current_function_decl) == error_mark_node);
848 DECL_INITIAL (current_function_decl) = block ? block : subblocks;
849 if (subblocks)
851 if (FUNCTION_NEEDS_BODY_BLOCK (current_function_decl))
853 if (BLOCK_SUBBLOCKS (subblocks))
854 BLOCK_OUTER_CURLY_BRACE_P (BLOCK_SUBBLOCKS (subblocks)) = 1;
856 else
857 BLOCK_OUTER_CURLY_BRACE_P (subblocks) = 1;
860 else if (block)
861 current_binding_level->blocks
862 = block_chainon (current_binding_level->blocks, block);
864 /* If we did not make a block for the level just exited,
865 any blocks made for inner levels
866 (since they cannot be recorded as subblocks in that level)
867 must be carried forward so they will later become subblocks
868 of something else. */
869 else if (subblocks)
870 current_binding_level->blocks
871 = block_chainon (current_binding_level->blocks, subblocks);
873 /* Each and every BLOCK node created here in `poplevel' is important
874 (e.g. for proper debugging information) so if we created one
875 earlier, mark it as "used". */
876 if (block)
877 TREE_USED (block) = 1;
879 /* All temporary bindings created for cleanups are popped silently. */
880 if (kind == sk_cleanup)
881 goto restart;
883 timevar_cond_stop (TV_NAME_LOOKUP, subtime);
884 return block;
887 /* Call wrapup_globals_declarations for the globals in NAMESPACE. */
888 /* Diagnose odr-used extern inline variables without definitions
889 in the current TU. */
892 wrapup_namespace_globals ()
894 if (vec<tree, va_gc> *statics = static_decls)
896 tree decl;
897 unsigned int i;
898 FOR_EACH_VEC_ELT (*statics, i, decl)
900 if (warn_unused_function
901 && TREE_CODE (decl) == FUNCTION_DECL
902 && DECL_INITIAL (decl) == 0
903 && DECL_EXTERNAL (decl)
904 && !TREE_PUBLIC (decl)
905 && !DECL_ARTIFICIAL (decl)
906 && !DECL_FRIEND_PSEUDO_TEMPLATE_INSTANTIATION (decl)
907 && !TREE_NO_WARNING (decl))
908 warning_at (DECL_SOURCE_LOCATION (decl),
909 OPT_Wunused_function,
910 "%qF declared %<static%> but never defined", decl);
912 if (VAR_P (decl)
913 && DECL_EXTERNAL (decl)
914 && DECL_INLINE_VAR_P (decl)
915 && DECL_ODR_USED (decl))
916 error_at (DECL_SOURCE_LOCATION (decl),
917 "odr-used inline variable %qD is not defined", decl);
920 /* Clear out the list, so we don't rescan next time. */
921 static_decls = NULL;
923 /* Write out any globals that need to be output. */
924 return wrapup_global_declarations (statics->address (),
925 statics->length ());
927 return 0;
930 /* In C++, you don't have to write `struct S' to refer to `S'; you
931 can just use `S'. We accomplish this by creating a TYPE_DECL as
932 if the user had written `typedef struct S S'. Create and return
933 the TYPE_DECL for TYPE. */
935 tree
936 create_implicit_typedef (tree name, tree type)
938 tree decl;
940 decl = build_decl (input_location, TYPE_DECL, name, type);
941 DECL_ARTIFICIAL (decl) = 1;
942 /* There are other implicit type declarations, like the one *within*
943 a class that allows you to write `S::S'. We must distinguish
944 amongst these. */
945 SET_DECL_IMPLICIT_TYPEDEF_P (decl);
946 TYPE_NAME (type) = decl;
947 TYPE_STUB_DECL (type) = decl;
949 return decl;
952 /* Remember a local name for name-mangling purposes. */
954 static void
955 push_local_name (tree decl)
957 size_t i, nelts;
958 tree t, name;
960 timevar_start (TV_NAME_LOOKUP);
962 name = DECL_NAME (decl);
964 nelts = vec_safe_length (local_names);
965 for (i = 0; i < nelts; i++)
967 t = (*local_names)[i];
968 if (DECL_NAME (t) == name)
970 retrofit_lang_decl (decl);
971 DECL_LANG_SPECIFIC (decl)->u.base.u2sel = 1;
972 if (DECL_DISCRIMINATOR_SET_P (t))
973 DECL_DISCRIMINATOR (decl) = DECL_DISCRIMINATOR (t) + 1;
974 else
975 DECL_DISCRIMINATOR (decl) = 1;
977 (*local_names)[i] = decl;
978 timevar_stop (TV_NAME_LOOKUP);
979 return;
983 vec_safe_push (local_names, decl);
984 timevar_stop (TV_NAME_LOOKUP);
987 /* Subroutine of duplicate_decls: return truthvalue of whether
988 or not types of these decls match.
990 For C++, we must compare the parameter list so that `int' can match
991 `int&' in a parameter position, but `int&' is not confused with
992 `const int&'. */
995 decls_match (tree newdecl, tree olddecl, bool record_versions /* = true */)
997 int types_match;
999 if (newdecl == olddecl)
1000 return 1;
1002 if (TREE_CODE (newdecl) != TREE_CODE (olddecl))
1003 /* If the two DECLs are not even the same kind of thing, we're not
1004 interested in their types. */
1005 return 0;
1007 gcc_assert (DECL_P (newdecl));
1009 if (TREE_CODE (newdecl) == FUNCTION_DECL)
1011 tree f1 = TREE_TYPE (newdecl);
1012 tree f2 = TREE_TYPE (olddecl);
1013 tree p1 = TYPE_ARG_TYPES (f1);
1014 tree p2 = TYPE_ARG_TYPES (f2);
1015 tree r2;
1017 /* Specializations of different templates are different functions
1018 even if they have the same type. */
1019 tree t1 = (DECL_USE_TEMPLATE (newdecl)
1020 ? DECL_TI_TEMPLATE (newdecl)
1021 : NULL_TREE);
1022 tree t2 = (DECL_USE_TEMPLATE (olddecl)
1023 ? DECL_TI_TEMPLATE (olddecl)
1024 : NULL_TREE);
1025 if (t1 != t2)
1026 return 0;
1028 if (CP_DECL_CONTEXT (newdecl) != CP_DECL_CONTEXT (olddecl)
1029 && ! (DECL_EXTERN_C_P (newdecl)
1030 && DECL_EXTERN_C_P (olddecl)))
1031 return 0;
1033 /* A new declaration doesn't match a built-in one unless it
1034 is also extern "C". */
1035 if (DECL_IS_BUILTIN (olddecl)
1036 && DECL_EXTERN_C_P (olddecl) && !DECL_EXTERN_C_P (newdecl))
1037 return 0;
1039 if (TREE_CODE (f1) != TREE_CODE (f2))
1040 return 0;
1042 /* A declaration with deduced return type should use its pre-deduction
1043 type for declaration matching. */
1044 r2 = fndecl_declared_return_type (olddecl);
1046 if (same_type_p (TREE_TYPE (f1), r2))
1048 if (!prototype_p (f2) && DECL_EXTERN_C_P (olddecl)
1049 && (DECL_BUILT_IN (olddecl)
1050 #ifndef NO_IMPLICIT_EXTERN_C
1051 || (DECL_IN_SYSTEM_HEADER (newdecl) && !DECL_CLASS_SCOPE_P (newdecl))
1052 || (DECL_IN_SYSTEM_HEADER (olddecl) && !DECL_CLASS_SCOPE_P (olddecl))
1053 #endif
1056 types_match = self_promoting_args_p (p1);
1057 if (p1 == void_list_node)
1058 TREE_TYPE (newdecl) = TREE_TYPE (olddecl);
1060 #ifndef NO_IMPLICIT_EXTERN_C
1061 else if (!prototype_p (f1)
1062 && (DECL_EXTERN_C_P (olddecl)
1063 && DECL_IN_SYSTEM_HEADER (olddecl)
1064 && !DECL_CLASS_SCOPE_P (olddecl))
1065 && (DECL_EXTERN_C_P (newdecl)
1066 && DECL_IN_SYSTEM_HEADER (newdecl)
1067 && !DECL_CLASS_SCOPE_P (newdecl)))
1069 types_match = self_promoting_args_p (p2);
1070 TREE_TYPE (newdecl) = TREE_TYPE (olddecl);
1072 #endif
1073 else
1074 types_match =
1075 compparms (p1, p2)
1076 && type_memfn_rqual (f1) == type_memfn_rqual (f2)
1077 && (TYPE_ATTRIBUTES (TREE_TYPE (newdecl)) == NULL_TREE
1078 || comp_type_attributes (TREE_TYPE (newdecl),
1079 TREE_TYPE (olddecl)) != 0);
1081 else
1082 types_match = 0;
1084 /* The decls dont match if they correspond to two different versions
1085 of the same function. Disallow extern "C" functions to be
1086 versions for now. */
1087 if (types_match
1088 && !DECL_EXTERN_C_P (newdecl)
1089 && !DECL_EXTERN_C_P (olddecl)
1090 && record_versions
1091 && maybe_version_functions (newdecl, olddecl))
1092 return 0;
1094 else if (TREE_CODE (newdecl) == TEMPLATE_DECL)
1096 tree oldres = DECL_TEMPLATE_RESULT (olddecl);
1097 tree newres = DECL_TEMPLATE_RESULT (newdecl);
1099 if (TREE_CODE (newres) != TREE_CODE (oldres))
1100 return 0;
1102 if (!comp_template_parms (DECL_TEMPLATE_PARMS (newdecl),
1103 DECL_TEMPLATE_PARMS (olddecl)))
1104 return 0;
1106 if (TREE_CODE (DECL_TEMPLATE_RESULT (newdecl)) == TYPE_DECL)
1107 types_match = (same_type_p (TREE_TYPE (oldres), TREE_TYPE (newres))
1108 && equivalently_constrained (olddecl, newdecl));
1109 else
1110 // We don't need to check equivalently_constrained for variable and
1111 // function templates because we check it on the results.
1112 types_match = decls_match (oldres, newres);
1114 else
1116 /* Need to check scope for variable declaration (VAR_DECL).
1117 For typedef (TYPE_DECL), scope is ignored. */
1118 if (VAR_P (newdecl)
1119 && CP_DECL_CONTEXT (newdecl) != CP_DECL_CONTEXT (olddecl)
1120 /* [dcl.link]
1121 Two declarations for an object with C language linkage
1122 with the same name (ignoring the namespace that qualify
1123 it) that appear in different namespace scopes refer to
1124 the same object. */
1125 && !(DECL_EXTERN_C_P (olddecl) && DECL_EXTERN_C_P (newdecl)))
1126 return 0;
1128 if (TREE_TYPE (newdecl) == error_mark_node)
1129 types_match = TREE_TYPE (olddecl) == error_mark_node;
1130 else if (TREE_TYPE (olddecl) == NULL_TREE)
1131 types_match = TREE_TYPE (newdecl) == NULL_TREE;
1132 else if (TREE_TYPE (newdecl) == NULL_TREE)
1133 types_match = 0;
1134 else
1135 types_match = comptypes (TREE_TYPE (newdecl),
1136 TREE_TYPE (olddecl),
1137 COMPARE_REDECLARATION);
1140 // Normal functions can be constrained, as can variable partial
1141 // specializations.
1142 if (types_match && VAR_OR_FUNCTION_DECL_P (newdecl))
1143 types_match = equivalently_constrained (newdecl, olddecl);
1145 return types_match;
1148 /* NEWDECL and OLDDECL have identical signatures. If they are
1149 different versions adjust them and return true. */
1151 bool
1152 maybe_version_functions (tree newdecl, tree olddecl)
1154 if (!targetm.target_option.function_versions (newdecl, olddecl))
1155 return false;
1157 bool record = false;
1159 if (!DECL_FUNCTION_VERSIONED (olddecl))
1161 record = true;
1162 DECL_FUNCTION_VERSIONED (olddecl) = 1;
1163 if (DECL_ASSEMBLER_NAME_SET_P (olddecl))
1164 mangle_decl (olddecl);
1167 if (!DECL_FUNCTION_VERSIONED (newdecl))
1169 record = true;
1170 DECL_FUNCTION_VERSIONED (newdecl) = 1;
1171 if (DECL_ASSEMBLER_NAME_SET_P (newdecl))
1172 mangle_decl (newdecl);
1175 /* Only record if at least one was not already versions. */
1176 if (record)
1177 cgraph_node::record_function_versions (olddecl, newdecl);
1179 return true;
1182 /* If NEWDECL is `static' and an `extern' was seen previously,
1183 warn about it. OLDDECL is the previous declaration.
1185 Note that this does not apply to the C++ case of declaring
1186 a variable `extern const' and then later `const'.
1188 Don't complain about built-in functions, since they are beyond
1189 the user's control. */
1191 void
1192 warn_extern_redeclared_static (tree newdecl, tree olddecl)
1194 if (TREE_CODE (newdecl) == TYPE_DECL
1195 || TREE_CODE (newdecl) == TEMPLATE_DECL
1196 || TREE_CODE (newdecl) == CONST_DECL
1197 || TREE_CODE (newdecl) == NAMESPACE_DECL)
1198 return;
1200 /* Don't get confused by static member functions; that's a different
1201 use of `static'. */
1202 if (TREE_CODE (newdecl) == FUNCTION_DECL
1203 && DECL_STATIC_FUNCTION_P (newdecl))
1204 return;
1206 /* If the old declaration was `static', or the new one isn't, then
1207 everything is OK. */
1208 if (DECL_THIS_STATIC (olddecl) || !DECL_THIS_STATIC (newdecl))
1209 return;
1211 /* It's OK to declare a builtin function as `static'. */
1212 if (TREE_CODE (olddecl) == FUNCTION_DECL
1213 && DECL_ARTIFICIAL (olddecl))
1214 return;
1216 if (permerror (DECL_SOURCE_LOCATION (newdecl),
1217 "%qD was declared %<extern%> and later %<static%>", newdecl))
1218 inform (DECL_SOURCE_LOCATION (olddecl),
1219 "previous declaration of %qD", olddecl);
1222 /* NEW_DECL is a redeclaration of OLD_DECL; both are functions or
1223 function templates. If their exception specifications do not
1224 match, issue a diagnostic. */
1226 static void
1227 check_redeclaration_exception_specification (tree new_decl,
1228 tree old_decl)
1230 tree new_exceptions = TYPE_RAISES_EXCEPTIONS (TREE_TYPE (new_decl));
1231 tree old_exceptions = TYPE_RAISES_EXCEPTIONS (TREE_TYPE (old_decl));
1233 /* Two default specs are equivalent, don't force evaluation. */
1234 if (UNEVALUATED_NOEXCEPT_SPEC_P (new_exceptions)
1235 && UNEVALUATED_NOEXCEPT_SPEC_P (old_exceptions))
1236 return;
1238 maybe_instantiate_noexcept (new_decl);
1239 maybe_instantiate_noexcept (old_decl);
1240 new_exceptions = TYPE_RAISES_EXCEPTIONS (TREE_TYPE (new_decl));
1241 old_exceptions = TYPE_RAISES_EXCEPTIONS (TREE_TYPE (old_decl));
1243 /* [except.spec]
1245 If any declaration of a function has an exception-specification,
1246 all declarations, including the definition and an explicit
1247 specialization, of that function shall have an
1248 exception-specification with the same set of type-ids. */
1249 if (! DECL_IS_BUILTIN (old_decl)
1250 && !comp_except_specs (new_exceptions, old_exceptions, ce_normal))
1252 const char *const msg
1253 = G_("declaration of %qF has a different exception specifier");
1254 bool complained = true;
1255 location_t new_loc = DECL_SOURCE_LOCATION (new_decl);
1256 if (DECL_IN_SYSTEM_HEADER (old_decl))
1257 complained = pedwarn (new_loc, OPT_Wsystem_headers, msg, new_decl);
1258 else if (!flag_exceptions)
1259 /* We used to silently permit mismatched eh specs with
1260 -fno-exceptions, so make them a pedwarn now. */
1261 complained = pedwarn (new_loc, OPT_Wpedantic, msg, new_decl);
1262 else
1263 error_at (new_loc, msg, new_decl);
1264 if (complained)
1265 inform (DECL_SOURCE_LOCATION (old_decl),
1266 "from previous declaration %qF", old_decl);
1270 /* Return true if OLD_DECL and NEW_DECL agree on constexprness.
1271 Otherwise issue diagnostics. */
1273 static bool
1274 validate_constexpr_redeclaration (tree old_decl, tree new_decl)
1276 old_decl = STRIP_TEMPLATE (old_decl);
1277 new_decl = STRIP_TEMPLATE (new_decl);
1278 if (!VAR_OR_FUNCTION_DECL_P (old_decl)
1279 || !VAR_OR_FUNCTION_DECL_P (new_decl))
1280 return true;
1281 if (DECL_DECLARED_CONSTEXPR_P (old_decl)
1282 == DECL_DECLARED_CONSTEXPR_P (new_decl))
1283 return true;
1284 if (TREE_CODE (old_decl) == FUNCTION_DECL)
1286 if (DECL_BUILT_IN (old_decl))
1288 /* Hide a built-in declaration. */
1289 DECL_DECLARED_CONSTEXPR_P (old_decl)
1290 = DECL_DECLARED_CONSTEXPR_P (new_decl);
1291 return true;
1293 /* 7.1.5 [dcl.constexpr]
1294 Note: An explicit specialization can differ from the template
1295 declaration with respect to the constexpr specifier. */
1296 if (! DECL_TEMPLATE_SPECIALIZATION (old_decl)
1297 && DECL_TEMPLATE_SPECIALIZATION (new_decl))
1298 return true;
1300 error_at (DECL_SOURCE_LOCATION (new_decl),
1301 "redeclaration %qD differs in %<constexpr%> "
1302 "from previous declaration", new_decl);
1303 inform (DECL_SOURCE_LOCATION (old_decl),
1304 "previous declaration %qD", old_decl);
1305 return false;
1307 return true;
1310 // If OLDDECL and NEWDECL are concept declarations with the same type
1311 // (i.e., and template parameters), but different requirements,
1312 // emit diagnostics and return true. Otherwise, return false.
1313 static inline bool
1314 check_concept_refinement (tree olddecl, tree newdecl)
1316 if (!DECL_DECLARED_CONCEPT_P (olddecl) || !DECL_DECLARED_CONCEPT_P (newdecl))
1317 return false;
1319 tree d1 = DECL_TEMPLATE_RESULT (olddecl);
1320 tree d2 = DECL_TEMPLATE_RESULT (newdecl);
1321 if (TREE_CODE (d1) != TREE_CODE (d2))
1322 return false;
1324 tree t1 = TREE_TYPE (d1);
1325 tree t2 = TREE_TYPE (d2);
1326 if (TREE_CODE (d1) == FUNCTION_DECL)
1328 if (compparms (TYPE_ARG_TYPES (t1), TYPE_ARG_TYPES (t2))
1329 && comp_template_parms (DECL_TEMPLATE_PARMS (olddecl),
1330 DECL_TEMPLATE_PARMS (newdecl))
1331 && !equivalently_constrained (olddecl, newdecl))
1333 error ("cannot specialize concept %q#D", olddecl);
1334 return true;
1337 return false;
1340 /* DECL is a redeclaration of a function or function template. If
1341 it does have default arguments issue a diagnostic. Note: this
1342 function is used to enforce the requirements in C++11 8.3.6 about
1343 no default arguments in redeclarations. */
1345 static void
1346 check_redeclaration_no_default_args (tree decl)
1348 gcc_assert (DECL_DECLARES_FUNCTION_P (decl));
1350 for (tree t = FUNCTION_FIRST_USER_PARMTYPE (decl);
1351 t && t != void_list_node; t = TREE_CHAIN (t))
1352 if (TREE_PURPOSE (t))
1354 permerror (DECL_SOURCE_LOCATION (decl),
1355 "redeclaration of %q#D may not have default "
1356 "arguments", decl);
1357 return;
1361 #define GNU_INLINE_P(fn) (DECL_DECLARED_INLINE_P (fn) \
1362 && lookup_attribute ("gnu_inline", \
1363 DECL_ATTRIBUTES (fn)))
1365 /* If NEWDECL is a redeclaration of OLDDECL, merge the declarations.
1366 If the redeclaration is invalid, a diagnostic is issued, and the
1367 error_mark_node is returned. Otherwise, OLDDECL is returned.
1369 If NEWDECL is not a redeclaration of OLDDECL, NULL_TREE is
1370 returned.
1372 NEWDECL_IS_FRIEND is true if NEWDECL was declared as a friend. */
1374 tree
1375 duplicate_decls (tree newdecl, tree olddecl, bool newdecl_is_friend)
1377 unsigned olddecl_uid = DECL_UID (olddecl);
1378 int olddecl_friend = 0, types_match = 0, hidden_friend = 0;
1379 int new_defines_function = 0;
1380 tree new_template_info;
1382 if (newdecl == olddecl)
1383 return olddecl;
1385 types_match = decls_match (newdecl, olddecl);
1387 /* If either the type of the new decl or the type of the old decl is an
1388 error_mark_node, then that implies that we have already issued an
1389 error (earlier) for some bogus type specification, and in that case,
1390 it is rather pointless to harass the user with yet more error message
1391 about the same declaration, so just pretend the types match here. */
1392 if (TREE_TYPE (newdecl) == error_mark_node
1393 || TREE_TYPE (olddecl) == error_mark_node)
1394 return error_mark_node;
1396 if (UDLIT_OPER_P (DECL_NAME (newdecl))
1397 && UDLIT_OPER_P (DECL_NAME (olddecl)))
1399 if (TREE_CODE (newdecl) == TEMPLATE_DECL
1400 && TREE_CODE (olddecl) != TEMPLATE_DECL
1401 && check_raw_literal_operator (olddecl))
1402 error ("literal operator template %q+D conflicts with"
1403 " raw literal operator %qD", newdecl, olddecl);
1404 else if (TREE_CODE (newdecl) != TEMPLATE_DECL
1405 && TREE_CODE (olddecl) == TEMPLATE_DECL
1406 && check_raw_literal_operator (newdecl))
1407 error ("raw literal operator %q+D conflicts with"
1408 " literal operator template %qD", newdecl, olddecl);
1411 if (DECL_P (olddecl)
1412 && TREE_CODE (newdecl) == FUNCTION_DECL
1413 && TREE_CODE (olddecl) == FUNCTION_DECL
1414 && diagnose_mismatched_attributes (olddecl, newdecl))
1416 if (DECL_INITIAL (olddecl))
1417 inform (DECL_SOURCE_LOCATION (olddecl),
1418 "previous definition of %qD was here", olddecl);
1419 else
1420 inform (DECL_SOURCE_LOCATION (olddecl),
1421 "previous declaration of %qD was here", olddecl);
1424 /* Check for redeclaration and other discrepancies. */
1425 if (TREE_CODE (olddecl) == FUNCTION_DECL
1426 && DECL_ARTIFICIAL (olddecl))
1428 gcc_assert (!DECL_HIDDEN_FRIEND_P (olddecl));
1429 if (TREE_CODE (newdecl) != FUNCTION_DECL)
1431 /* Avoid warnings redeclaring built-ins which have not been
1432 explicitly declared. */
1433 if (DECL_ANTICIPATED (olddecl))
1435 if (TREE_PUBLIC (newdecl)
1436 && CP_DECL_CONTEXT (newdecl) == global_namespace)
1437 warning_at (DECL_SOURCE_LOCATION (newdecl),
1438 OPT_Wbuiltin_declaration_mismatch,
1439 "built-in function %qD declared as non-function",
1440 newdecl);
1441 return NULL_TREE;
1444 /* If you declare a built-in or predefined function name as static,
1445 the old definition is overridden, but optionally warn this was a
1446 bad choice of name. */
1447 if (! TREE_PUBLIC (newdecl))
1449 warning (OPT_Wshadow,
1450 DECL_BUILT_IN (olddecl)
1451 ? G_("shadowing built-in function %q#D")
1452 : G_("shadowing library function %q#D"), olddecl);
1453 /* Discard the old built-in function. */
1454 return NULL_TREE;
1456 /* If the built-in is not ansi, then programs can override
1457 it even globally without an error. */
1458 else if (! DECL_BUILT_IN (olddecl))
1459 warning_at (DECL_SOURCE_LOCATION (newdecl), 0,
1460 "library function %q#D redeclared as non-function %q#D",
1461 olddecl, newdecl);
1462 else
1463 error ("declaration of %q+#D conflicts with built-in "
1464 "declaration %q#D", newdecl, olddecl);
1465 return NULL_TREE;
1467 else if (DECL_OMP_DECLARE_REDUCTION_P (olddecl))
1469 gcc_assert (DECL_OMP_DECLARE_REDUCTION_P (newdecl));
1470 error_at (DECL_SOURCE_LOCATION (newdecl),
1471 "redeclaration of %<pragma omp declare reduction%>");
1472 inform (DECL_SOURCE_LOCATION (olddecl),
1473 "previous %<pragma omp declare reduction%> declaration");
1474 return error_mark_node;
1476 else if (!types_match)
1478 /* Avoid warnings redeclaring built-ins which have not been
1479 explicitly declared. */
1480 if (DECL_ANTICIPATED (olddecl))
1482 tree t1, t2;
1484 /* A new declaration doesn't match a built-in one unless it
1485 is also extern "C". */
1486 gcc_assert (DECL_IS_BUILTIN (olddecl));
1487 gcc_assert (DECL_EXTERN_C_P (olddecl));
1488 if (!DECL_EXTERN_C_P (newdecl))
1489 return NULL_TREE;
1491 for (t1 = TYPE_ARG_TYPES (TREE_TYPE (newdecl)),
1492 t2 = TYPE_ARG_TYPES (TREE_TYPE (olddecl));
1493 t1 || t2;
1494 t1 = TREE_CHAIN (t1), t2 = TREE_CHAIN (t2))
1496 if (!t1 || !t2)
1497 break;
1498 /* FILE, tm types are not known at the time
1499 we create the builtins. */
1500 for (unsigned i = 0;
1501 i < sizeof (builtin_structptr_types)
1502 / sizeof (builtin_structptr_type);
1503 ++i)
1504 if (TREE_VALUE (t2) == builtin_structptr_types[i].node)
1506 tree t = TREE_VALUE (t1);
1508 if (TYPE_PTR_P (t)
1509 && TYPE_IDENTIFIER (TREE_TYPE (t))
1510 == get_identifier (builtin_structptr_types[i].str)
1511 && compparms (TREE_CHAIN (t1), TREE_CHAIN (t2)))
1513 tree oldargs = TYPE_ARG_TYPES (TREE_TYPE (olddecl));
1515 TYPE_ARG_TYPES (TREE_TYPE (olddecl))
1516 = TYPE_ARG_TYPES (TREE_TYPE (newdecl));
1517 types_match = decls_match (newdecl, olddecl);
1518 if (types_match)
1519 return duplicate_decls (newdecl, olddecl,
1520 newdecl_is_friend);
1521 TYPE_ARG_TYPES (TREE_TYPE (olddecl)) = oldargs;
1523 goto next_arg;
1526 if (! same_type_p (TREE_VALUE (t1), TREE_VALUE (t2)))
1527 break;
1528 next_arg:;
1531 warning_at (DECL_SOURCE_LOCATION (newdecl),
1532 OPT_Wbuiltin_declaration_mismatch,
1533 "declaration of %q#D conflicts with built-in "
1534 "declaration %q#D", newdecl, olddecl);
1536 else if ((DECL_EXTERN_C_P (newdecl)
1537 && DECL_EXTERN_C_P (olddecl))
1538 || compparms (TYPE_ARG_TYPES (TREE_TYPE (newdecl)),
1539 TYPE_ARG_TYPES (TREE_TYPE (olddecl))))
1541 /* A near match; override the builtin. */
1543 if (TREE_PUBLIC (newdecl))
1544 warning_at (DECL_SOURCE_LOCATION (newdecl),
1545 OPT_Wbuiltin_declaration_mismatch,
1546 "new declaration %q#D ambiguates built-in "
1547 "declaration %q#D", newdecl, olddecl);
1548 else
1549 warning (OPT_Wshadow,
1550 DECL_BUILT_IN (olddecl)
1551 ? G_("shadowing built-in function %q#D")
1552 : G_("shadowing library function %q#D"), olddecl);
1554 else
1555 /* Discard the old built-in function. */
1556 return NULL_TREE;
1558 /* Replace the old RTL to avoid problems with inlining. */
1559 COPY_DECL_RTL (newdecl, olddecl);
1561 /* Even if the types match, prefer the new declarations type for
1562 built-ins which have not been explicitly declared, for
1563 exception lists, etc... */
1564 else if (DECL_IS_BUILTIN (olddecl))
1566 tree type = TREE_TYPE (newdecl);
1567 tree attribs = (*targetm.merge_type_attributes)
1568 (TREE_TYPE (olddecl), type);
1570 type = cp_build_type_attribute_variant (type, attribs);
1571 TREE_TYPE (newdecl) = TREE_TYPE (olddecl) = type;
1574 /* If a function is explicitly declared "throw ()", propagate that to
1575 the corresponding builtin. */
1576 if (DECL_BUILT_IN_CLASS (olddecl) == BUILT_IN_NORMAL
1577 && DECL_ANTICIPATED (olddecl)
1578 && TREE_NOTHROW (newdecl)
1579 && !TREE_NOTHROW (olddecl))
1581 enum built_in_function fncode = DECL_FUNCTION_CODE (olddecl);
1582 tree tmpdecl = builtin_decl_explicit (fncode);
1583 if (tmpdecl && tmpdecl != olddecl && types_match)
1584 TREE_NOTHROW (tmpdecl) = 1;
1587 /* Whether or not the builtin can throw exceptions has no
1588 bearing on this declarator. */
1589 TREE_NOTHROW (olddecl) = 0;
1591 if (DECL_THIS_STATIC (newdecl) && !DECL_THIS_STATIC (olddecl))
1593 /* If a builtin function is redeclared as `static', merge
1594 the declarations, but make the original one static. */
1595 DECL_THIS_STATIC (olddecl) = 1;
1596 TREE_PUBLIC (olddecl) = 0;
1598 /* Make the old declaration consistent with the new one so
1599 that all remnants of the builtin-ness of this function
1600 will be banished. */
1601 SET_DECL_LANGUAGE (olddecl, DECL_LANGUAGE (newdecl));
1602 COPY_DECL_RTL (newdecl, olddecl);
1605 else if (TREE_CODE (olddecl) != TREE_CODE (newdecl))
1607 /* C++ Standard, 3.3, clause 4:
1608 "[Note: a namespace name or a class template name must be unique
1609 in its declarative region (7.3.2, clause 14). ]" */
1610 if (TREE_CODE (olddecl) != NAMESPACE_DECL
1611 && TREE_CODE (newdecl) != NAMESPACE_DECL
1612 && (TREE_CODE (olddecl) != TEMPLATE_DECL
1613 || TREE_CODE (DECL_TEMPLATE_RESULT (olddecl)) != TYPE_DECL)
1614 && (TREE_CODE (newdecl) != TEMPLATE_DECL
1615 || TREE_CODE (DECL_TEMPLATE_RESULT (newdecl)) != TYPE_DECL))
1617 if ((TREE_CODE (olddecl) == TYPE_DECL && DECL_ARTIFICIAL (olddecl)
1618 && TREE_CODE (newdecl) != TYPE_DECL)
1619 || (TREE_CODE (newdecl) == TYPE_DECL && DECL_ARTIFICIAL (newdecl)
1620 && TREE_CODE (olddecl) != TYPE_DECL))
1622 /* We do nothing special here, because C++ does such nasty
1623 things with TYPE_DECLs. Instead, just let the TYPE_DECL
1624 get shadowed, and know that if we need to find a TYPE_DECL
1625 for a given name, we can look in the IDENTIFIER_TYPE_VALUE
1626 slot of the identifier. */
1627 return NULL_TREE;
1630 if ((TREE_CODE (newdecl) == FUNCTION_DECL
1631 && DECL_FUNCTION_TEMPLATE_P (olddecl))
1632 || (TREE_CODE (olddecl) == FUNCTION_DECL
1633 && DECL_FUNCTION_TEMPLATE_P (newdecl)))
1634 return NULL_TREE;
1637 error ("%q#D redeclared as different kind of symbol", newdecl);
1638 if (TREE_CODE (olddecl) == TREE_LIST)
1639 olddecl = TREE_VALUE (olddecl);
1640 inform (DECL_SOURCE_LOCATION (olddecl),
1641 "previous declaration %q#D", olddecl);
1643 return error_mark_node;
1645 else if (!types_match)
1647 if (CP_DECL_CONTEXT (newdecl) != CP_DECL_CONTEXT (olddecl))
1648 /* These are certainly not duplicate declarations; they're
1649 from different scopes. */
1650 return NULL_TREE;
1652 if (TREE_CODE (newdecl) == TEMPLATE_DECL)
1654 /* The name of a class template may not be declared to refer to
1655 any other template, class, function, object, namespace, value,
1656 or type in the same scope. */
1657 if (TREE_CODE (DECL_TEMPLATE_RESULT (olddecl)) == TYPE_DECL
1658 || TREE_CODE (DECL_TEMPLATE_RESULT (newdecl)) == TYPE_DECL)
1660 error ("conflicting declaration of template %q+#D", newdecl);
1661 inform (DECL_SOURCE_LOCATION (olddecl),
1662 "previous declaration %q#D", olddecl);
1663 return error_mark_node;
1665 else if (TREE_CODE (DECL_TEMPLATE_RESULT (olddecl)) == FUNCTION_DECL
1666 && TREE_CODE (DECL_TEMPLATE_RESULT (newdecl)) == FUNCTION_DECL
1667 && compparms (TYPE_ARG_TYPES (TREE_TYPE (DECL_TEMPLATE_RESULT (olddecl))),
1668 TYPE_ARG_TYPES (TREE_TYPE (DECL_TEMPLATE_RESULT (newdecl))))
1669 && comp_template_parms (DECL_TEMPLATE_PARMS (newdecl),
1670 DECL_TEMPLATE_PARMS (olddecl))
1671 /* Template functions can be disambiguated by
1672 return type. */
1673 && same_type_p (TREE_TYPE (TREE_TYPE (newdecl)),
1674 TREE_TYPE (TREE_TYPE (olddecl)))
1675 // Template functions can also be disambiguated by
1676 // constraints.
1677 && equivalently_constrained (olddecl, newdecl))
1679 error ("ambiguating new declaration %q+#D", newdecl);
1680 inform (DECL_SOURCE_LOCATION (olddecl),
1681 "old declaration %q#D", olddecl);
1683 else if (check_concept_refinement (olddecl, newdecl))
1684 return error_mark_node;
1685 return NULL_TREE;
1687 if (TREE_CODE (newdecl) == FUNCTION_DECL)
1689 if (DECL_EXTERN_C_P (newdecl) && DECL_EXTERN_C_P (olddecl))
1691 error ("conflicting declaration of C function %q+#D",
1692 newdecl);
1693 inform (DECL_SOURCE_LOCATION (olddecl),
1694 "previous declaration %q#D", olddecl);
1695 return NULL_TREE;
1697 /* For function versions, params and types match, but they
1698 are not ambiguous. */
1699 else if ((!DECL_FUNCTION_VERSIONED (newdecl)
1700 && !DECL_FUNCTION_VERSIONED (olddecl))
1701 // The functions have the same parameter types.
1702 && compparms (TYPE_ARG_TYPES (TREE_TYPE (newdecl)),
1703 TYPE_ARG_TYPES (TREE_TYPE (olddecl)))
1704 // And the same constraints.
1705 && equivalently_constrained (newdecl, olddecl))
1707 error ("ambiguating new declaration of %q+#D", newdecl);
1708 inform (DECL_SOURCE_LOCATION (olddecl),
1709 "old declaration %q#D", olddecl);
1710 return error_mark_node;
1712 else
1713 return NULL_TREE;
1715 else
1717 error ("conflicting declaration %q+#D", newdecl);
1718 inform (DECL_SOURCE_LOCATION (olddecl),
1719 "previous declaration as %q#D", olddecl);
1720 return error_mark_node;
1723 else if (TREE_CODE (newdecl) == FUNCTION_DECL
1724 && ((DECL_TEMPLATE_SPECIALIZATION (olddecl)
1725 && (!DECL_TEMPLATE_INFO (newdecl)
1726 || (DECL_TI_TEMPLATE (newdecl)
1727 != DECL_TI_TEMPLATE (olddecl))))
1728 || (DECL_TEMPLATE_SPECIALIZATION (newdecl)
1729 && (!DECL_TEMPLATE_INFO (olddecl)
1730 || (DECL_TI_TEMPLATE (olddecl)
1731 != DECL_TI_TEMPLATE (newdecl))))))
1732 /* It's OK to have a template specialization and a non-template
1733 with the same type, or to have specializations of two
1734 different templates with the same type. Note that if one is a
1735 specialization, and the other is an instantiation of the same
1736 template, that we do not exit at this point. That situation
1737 can occur if we instantiate a template class, and then
1738 specialize one of its methods. This situation is valid, but
1739 the declarations must be merged in the usual way. */
1740 return NULL_TREE;
1741 else if (TREE_CODE (newdecl) == FUNCTION_DECL
1742 && ((DECL_TEMPLATE_INSTANTIATION (olddecl)
1743 && !DECL_USE_TEMPLATE (newdecl))
1744 || (DECL_TEMPLATE_INSTANTIATION (newdecl)
1745 && !DECL_USE_TEMPLATE (olddecl))))
1746 /* One of the declarations is a template instantiation, and the
1747 other is not a template at all. That's OK. */
1748 return NULL_TREE;
1749 else if (TREE_CODE (newdecl) == NAMESPACE_DECL)
1751 /* In [namespace.alias] we have:
1753 In a declarative region, a namespace-alias-definition can be
1754 used to redefine a namespace-alias declared in that declarative
1755 region to refer only to the namespace to which it already
1756 refers.
1758 Therefore, if we encounter a second alias directive for the same
1759 alias, we can just ignore the second directive. */
1760 if (DECL_NAMESPACE_ALIAS (newdecl)
1761 && (DECL_NAMESPACE_ALIAS (newdecl)
1762 == DECL_NAMESPACE_ALIAS (olddecl)))
1763 return olddecl;
1765 /* Leave it to update_binding to merge or report error. */
1766 return NULL_TREE;
1768 else
1770 const char *errmsg = redeclaration_error_message (newdecl, olddecl);
1771 if (errmsg)
1773 error_at (DECL_SOURCE_LOCATION (newdecl), errmsg, newdecl);
1774 if (DECL_NAME (olddecl) != NULL_TREE)
1775 inform (DECL_SOURCE_LOCATION (olddecl),
1776 (DECL_INITIAL (olddecl) && namespace_bindings_p ())
1777 ? G_("%q#D previously defined here")
1778 : G_("%q#D previously declared here"), olddecl);
1779 return error_mark_node;
1781 else if (TREE_CODE (olddecl) == FUNCTION_DECL
1782 && DECL_INITIAL (olddecl) != NULL_TREE
1783 && !prototype_p (TREE_TYPE (olddecl))
1784 && prototype_p (TREE_TYPE (newdecl)))
1786 /* Prototype decl follows defn w/o prototype. */
1787 if (warning_at (DECL_SOURCE_LOCATION (newdecl), 0,
1788 "prototype specified for %q#D", newdecl))
1789 inform (DECL_SOURCE_LOCATION (olddecl),
1790 "previous non-prototype definition here");
1792 else if (VAR_OR_FUNCTION_DECL_P (olddecl)
1793 && DECL_LANGUAGE (newdecl) != DECL_LANGUAGE (olddecl))
1795 /* [dcl.link]
1796 If two declarations of the same function or object
1797 specify different linkage-specifications ..., the program
1798 is ill-formed.... Except for functions with C++ linkage,
1799 a function declaration without a linkage specification
1800 shall not precede the first linkage specification for
1801 that function. A function can be declared without a
1802 linkage specification after an explicit linkage
1803 specification has been seen; the linkage explicitly
1804 specified in the earlier declaration is not affected by
1805 such a function declaration.
1807 DR 563 raises the question why the restrictions on
1808 functions should not also apply to objects. Older
1809 versions of G++ silently ignore the linkage-specification
1810 for this example:
1812 namespace N {
1813 extern int i;
1814 extern "C" int i;
1817 which is clearly wrong. Therefore, we now treat objects
1818 like functions. */
1819 if (current_lang_depth () == 0)
1821 /* There is no explicit linkage-specification, so we use
1822 the linkage from the previous declaration. */
1823 retrofit_lang_decl (newdecl);
1824 SET_DECL_LANGUAGE (newdecl, DECL_LANGUAGE (olddecl));
1826 else
1828 error ("conflicting declaration of %q+#D with %qL linkage",
1829 newdecl, DECL_LANGUAGE (newdecl));
1830 inform (DECL_SOURCE_LOCATION (olddecl),
1831 "previous declaration with %qL linkage",
1832 DECL_LANGUAGE (olddecl));
1836 if (DECL_LANG_SPECIFIC (olddecl) && DECL_USE_TEMPLATE (olddecl))
1838 else if (TREE_CODE (olddecl) == FUNCTION_DECL)
1840 /* Note: free functions, as TEMPLATE_DECLs, are handled below. */
1841 if (DECL_FUNCTION_MEMBER_P (olddecl)
1842 && (/* grokfndecl passes member function templates too
1843 as FUNCTION_DECLs. */
1844 DECL_TEMPLATE_INFO (olddecl)
1845 /* C++11 8.3.6/6.
1846 Default arguments for a member function of a class
1847 template shall be specified on the initial declaration
1848 of the member function within the class template. */
1849 || CLASSTYPE_TEMPLATE_INFO (CP_DECL_CONTEXT (olddecl))))
1850 check_redeclaration_no_default_args (newdecl);
1851 else
1853 tree t1 = FUNCTION_FIRST_USER_PARMTYPE (olddecl);
1854 tree t2 = FUNCTION_FIRST_USER_PARMTYPE (newdecl);
1855 int i = 1;
1857 for (; t1 && t1 != void_list_node;
1858 t1 = TREE_CHAIN (t1), t2 = TREE_CHAIN (t2), i++)
1859 if (TREE_PURPOSE (t1) && TREE_PURPOSE (t2))
1861 if (1 == simple_cst_equal (TREE_PURPOSE (t1),
1862 TREE_PURPOSE (t2)))
1864 if (permerror (input_location,
1865 "default argument given for parameter "
1866 "%d of %q#D", i, newdecl))
1867 inform (DECL_SOURCE_LOCATION (olddecl),
1868 "previous specification in %q#D here",
1869 olddecl);
1871 else
1873 error ("default argument given for parameter %d "
1874 "of %q#D", i, newdecl);
1875 inform (DECL_SOURCE_LOCATION (olddecl),
1876 "previous specification in %q#D here",
1877 olddecl);
1884 /* Do not merge an implicit typedef with an explicit one. In:
1886 class A;
1888 typedef class A A __attribute__ ((foo));
1890 the attribute should apply only to the typedef. */
1891 if (TREE_CODE (olddecl) == TYPE_DECL
1892 && (DECL_IMPLICIT_TYPEDEF_P (olddecl)
1893 || DECL_IMPLICIT_TYPEDEF_P (newdecl)))
1894 return NULL_TREE;
1896 /* If new decl is `static' and an `extern' was seen previously,
1897 warn about it. */
1898 warn_extern_redeclared_static (newdecl, olddecl);
1900 if (!validate_constexpr_redeclaration (olddecl, newdecl))
1901 return error_mark_node;
1903 /* We have committed to returning 1 at this point. */
1904 if (TREE_CODE (newdecl) == FUNCTION_DECL)
1906 /* Now that functions must hold information normally held
1907 by field decls, there is extra work to do so that
1908 declaration information does not get destroyed during
1909 definition. */
1910 if (DECL_VINDEX (olddecl))
1911 DECL_VINDEX (newdecl) = DECL_VINDEX (olddecl);
1912 if (DECL_CONTEXT (olddecl))
1913 DECL_CONTEXT (newdecl) = DECL_CONTEXT (olddecl);
1914 DECL_STATIC_CONSTRUCTOR (newdecl) |= DECL_STATIC_CONSTRUCTOR (olddecl);
1915 DECL_STATIC_DESTRUCTOR (newdecl) |= DECL_STATIC_DESTRUCTOR (olddecl);
1916 DECL_PURE_VIRTUAL_P (newdecl) |= DECL_PURE_VIRTUAL_P (olddecl);
1917 DECL_VIRTUAL_P (newdecl) |= DECL_VIRTUAL_P (olddecl);
1918 DECL_INVALID_OVERRIDER_P (newdecl) |= DECL_INVALID_OVERRIDER_P (olddecl);
1919 DECL_FINAL_P (newdecl) |= DECL_FINAL_P (olddecl);
1920 DECL_OVERRIDE_P (newdecl) |= DECL_OVERRIDE_P (olddecl);
1921 DECL_THIS_STATIC (newdecl) |= DECL_THIS_STATIC (olddecl);
1922 if (DECL_OVERLOADED_OPERATOR_P (olddecl))
1923 DECL_OVERLOADED_OPERATOR_CODE_RAW (newdecl)
1924 = DECL_OVERLOADED_OPERATOR_CODE_RAW (olddecl);
1925 new_defines_function = DECL_INITIAL (newdecl) != NULL_TREE;
1927 /* Optionally warn about more than one declaration for the same
1928 name, but don't warn about a function declaration followed by a
1929 definition. */
1930 if (warn_redundant_decls && ! DECL_ARTIFICIAL (olddecl)
1931 && !(new_defines_function && DECL_INITIAL (olddecl) == NULL_TREE)
1932 /* Don't warn about extern decl followed by definition. */
1933 && !(DECL_EXTERNAL (olddecl) && ! DECL_EXTERNAL (newdecl))
1934 /* Don't warn about friends, let add_friend take care of it. */
1935 && ! (newdecl_is_friend || DECL_FRIEND_P (olddecl))
1936 /* Don't warn about declaration followed by specialization. */
1937 && (! DECL_TEMPLATE_SPECIALIZATION (newdecl)
1938 || DECL_TEMPLATE_SPECIALIZATION (olddecl)))
1940 if (warning_at (DECL_SOURCE_LOCATION (newdecl),
1941 OPT_Wredundant_decls,
1942 "redundant redeclaration of %qD in same scope",
1943 newdecl))
1944 inform (DECL_SOURCE_LOCATION (olddecl),
1945 "previous declaration of %qD", olddecl);
1948 if (!(DECL_TEMPLATE_INSTANTIATION (olddecl)
1949 && DECL_TEMPLATE_SPECIALIZATION (newdecl)))
1951 if (DECL_DELETED_FN (newdecl))
1953 error ("deleted definition of %q+D", newdecl);
1954 inform (DECL_SOURCE_LOCATION (olddecl),
1955 "previous declaration of %qD", olddecl);
1957 DECL_DELETED_FN (newdecl) |= DECL_DELETED_FN (olddecl);
1961 /* Deal with C++: must preserve virtual function table size. */
1962 if (TREE_CODE (olddecl) == TYPE_DECL)
1964 tree newtype = TREE_TYPE (newdecl);
1965 tree oldtype = TREE_TYPE (olddecl);
1967 if (newtype != error_mark_node && oldtype != error_mark_node
1968 && TYPE_LANG_SPECIFIC (newtype) && TYPE_LANG_SPECIFIC (oldtype))
1969 CLASSTYPE_FRIEND_CLASSES (newtype)
1970 = CLASSTYPE_FRIEND_CLASSES (oldtype);
1972 DECL_ORIGINAL_TYPE (newdecl) = DECL_ORIGINAL_TYPE (olddecl);
1975 /* Copy all the DECL_... slots specified in the new decl
1976 except for any that we copy here from the old type. */
1977 DECL_ATTRIBUTES (newdecl)
1978 = (*targetm.merge_decl_attributes) (olddecl, newdecl);
1980 if (DECL_DECLARES_FUNCTION_P (olddecl) && DECL_DECLARES_FUNCTION_P (newdecl))
1982 olddecl_friend = DECL_FRIEND_P (olddecl);
1983 hidden_friend = (DECL_ANTICIPATED (olddecl)
1984 && DECL_HIDDEN_FRIEND_P (olddecl)
1985 && newdecl_is_friend);
1986 if (!hidden_friend)
1988 DECL_ANTICIPATED (olddecl) = 0;
1989 DECL_HIDDEN_FRIEND_P (olddecl) = 0;
1993 if (TREE_CODE (newdecl) == TEMPLATE_DECL)
1995 tree old_result;
1996 tree new_result;
1997 old_result = DECL_TEMPLATE_RESULT (olddecl);
1998 new_result = DECL_TEMPLATE_RESULT (newdecl);
1999 TREE_TYPE (olddecl) = TREE_TYPE (old_result);
2000 DECL_TEMPLATE_SPECIALIZATIONS (olddecl)
2001 = chainon (DECL_TEMPLATE_SPECIALIZATIONS (olddecl),
2002 DECL_TEMPLATE_SPECIALIZATIONS (newdecl));
2004 DECL_ATTRIBUTES (old_result)
2005 = (*targetm.merge_decl_attributes) (old_result, new_result);
2007 if (DECL_FUNCTION_TEMPLATE_P (newdecl))
2009 /* Per C++11 8.3.6/4, default arguments cannot be added in later
2010 declarations of a function template. */
2011 if (DECL_SOURCE_LOCATION (newdecl)
2012 != DECL_SOURCE_LOCATION (olddecl))
2013 check_redeclaration_no_default_args (newdecl);
2015 check_default_args (newdecl);
2017 if (GNU_INLINE_P (old_result) != GNU_INLINE_P (new_result)
2018 && DECL_INITIAL (new_result))
2020 if (DECL_INITIAL (old_result))
2021 DECL_UNINLINABLE (old_result) = 1;
2022 else
2023 DECL_UNINLINABLE (old_result) = DECL_UNINLINABLE (new_result);
2024 DECL_EXTERNAL (old_result) = DECL_EXTERNAL (new_result);
2025 DECL_NOT_REALLY_EXTERN (old_result)
2026 = DECL_NOT_REALLY_EXTERN (new_result);
2027 DECL_INTERFACE_KNOWN (old_result)
2028 = DECL_INTERFACE_KNOWN (new_result);
2029 DECL_DECLARED_INLINE_P (old_result)
2030 = DECL_DECLARED_INLINE_P (new_result);
2031 DECL_DISREGARD_INLINE_LIMITS (old_result)
2032 |= DECL_DISREGARD_INLINE_LIMITS (new_result);
2035 else
2037 DECL_DECLARED_INLINE_P (old_result)
2038 |= DECL_DECLARED_INLINE_P (new_result);
2039 DECL_DISREGARD_INLINE_LIMITS (old_result)
2040 |= DECL_DISREGARD_INLINE_LIMITS (new_result);
2041 check_redeclaration_exception_specification (newdecl, olddecl);
2045 /* If the new declaration is a definition, update the file and
2046 line information on the declaration, and also make
2047 the old declaration the same definition. */
2048 if (DECL_INITIAL (new_result) != NULL_TREE)
2050 DECL_SOURCE_LOCATION (olddecl)
2051 = DECL_SOURCE_LOCATION (old_result)
2052 = DECL_SOURCE_LOCATION (newdecl);
2053 DECL_INITIAL (old_result) = DECL_INITIAL (new_result);
2054 if (DECL_FUNCTION_TEMPLATE_P (newdecl))
2056 tree parm;
2057 DECL_ARGUMENTS (old_result)
2058 = DECL_ARGUMENTS (new_result);
2059 for (parm = DECL_ARGUMENTS (old_result); parm;
2060 parm = DECL_CHAIN (parm))
2061 DECL_CONTEXT (parm) = old_result;
2065 return olddecl;
2068 if (types_match)
2070 if (TREE_CODE (newdecl) == FUNCTION_DECL)
2071 check_redeclaration_exception_specification (newdecl, olddecl);
2073 /* Automatically handles default parameters. */
2074 tree oldtype = TREE_TYPE (olddecl);
2075 tree newtype;
2077 /* For typedefs use the old type, as the new type's DECL_NAME points
2078 at newdecl, which will be ggc_freed. */
2079 if (TREE_CODE (newdecl) == TYPE_DECL)
2081 /* But NEWTYPE might have an attribute, honor that. */
2082 tree tem = TREE_TYPE (newdecl);
2083 newtype = oldtype;
2085 if (TYPE_USER_ALIGN (tem))
2087 if (TYPE_ALIGN (tem) > TYPE_ALIGN (newtype))
2088 SET_TYPE_ALIGN (newtype, TYPE_ALIGN (tem));
2089 TYPE_USER_ALIGN (newtype) = true;
2092 /* And remove the new type from the variants list. */
2093 if (TYPE_NAME (TREE_TYPE (newdecl)) == newdecl)
2095 tree remove = TREE_TYPE (newdecl);
2096 for (tree t = TYPE_MAIN_VARIANT (remove); ;
2097 t = TYPE_NEXT_VARIANT (t))
2098 if (TYPE_NEXT_VARIANT (t) == remove)
2100 TYPE_NEXT_VARIANT (t) = TYPE_NEXT_VARIANT (remove);
2101 break;
2105 else
2106 /* Merge the data types specified in the two decls. */
2107 newtype = merge_types (TREE_TYPE (newdecl), TREE_TYPE (olddecl));
2109 if (VAR_P (newdecl))
2111 DECL_THIS_EXTERN (newdecl) |= DECL_THIS_EXTERN (olddecl);
2112 /* For already initialized vars, TREE_READONLY could have been
2113 cleared in cp_finish_decl, because the var needs runtime
2114 initialization or destruction. Make sure not to set
2115 TREE_READONLY on it again. */
2116 if (DECL_INITIALIZED_P (olddecl)
2117 && !DECL_EXTERNAL (olddecl)
2118 && !TREE_READONLY (olddecl))
2119 TREE_READONLY (newdecl) = 0;
2120 DECL_INITIALIZED_P (newdecl) |= DECL_INITIALIZED_P (olddecl);
2121 DECL_NONTRIVIALLY_INITIALIZED_P (newdecl)
2122 |= DECL_NONTRIVIALLY_INITIALIZED_P (olddecl);
2123 DECL_INITIALIZED_BY_CONSTANT_EXPRESSION_P (newdecl)
2124 |= DECL_INITIALIZED_BY_CONSTANT_EXPRESSION_P (olddecl);
2125 if (DECL_CLASS_SCOPE_P (olddecl))
2126 DECL_DECLARED_CONSTEXPR_P (newdecl)
2127 |= DECL_DECLARED_CONSTEXPR_P (olddecl);
2129 /* Merge the threadprivate attribute from OLDDECL into NEWDECL. */
2130 if (DECL_LANG_SPECIFIC (olddecl)
2131 && CP_DECL_THREADPRIVATE_P (olddecl))
2133 /* Allocate a LANG_SPECIFIC structure for NEWDECL, if needed. */
2134 retrofit_lang_decl (newdecl);
2135 CP_DECL_THREADPRIVATE_P (newdecl) = 1;
2139 /* An explicit specialization of a function template or of a member
2140 function of a class template can be declared transaction_safe
2141 independently of whether the corresponding template entity is declared
2142 transaction_safe. */
2143 if (flag_tm && TREE_CODE (newdecl) == FUNCTION_DECL
2144 && DECL_TEMPLATE_INSTANTIATION (olddecl)
2145 && DECL_TEMPLATE_SPECIALIZATION (newdecl)
2146 && tx_safe_fn_type_p (newtype)
2147 && !tx_safe_fn_type_p (TREE_TYPE (newdecl)))
2148 newtype = tx_unsafe_fn_variant (newtype);
2150 TREE_TYPE (newdecl) = TREE_TYPE (olddecl) = newtype;
2152 if (TREE_CODE (newdecl) == FUNCTION_DECL)
2153 check_default_args (newdecl);
2155 /* Lay the type out, unless already done. */
2156 if (! same_type_p (newtype, oldtype)
2157 && TREE_TYPE (newdecl) != error_mark_node
2158 && !(processing_template_decl && uses_template_parms (newdecl)))
2159 layout_type (TREE_TYPE (newdecl));
2161 if ((VAR_P (newdecl)
2162 || TREE_CODE (newdecl) == PARM_DECL
2163 || TREE_CODE (newdecl) == RESULT_DECL
2164 || TREE_CODE (newdecl) == FIELD_DECL
2165 || TREE_CODE (newdecl) == TYPE_DECL)
2166 && !(processing_template_decl && uses_template_parms (newdecl)))
2167 layout_decl (newdecl, 0);
2169 /* Merge the type qualifiers. */
2170 if (TREE_READONLY (newdecl))
2171 TREE_READONLY (olddecl) = 1;
2172 if (TREE_THIS_VOLATILE (newdecl))
2173 TREE_THIS_VOLATILE (olddecl) = 1;
2174 if (TREE_NOTHROW (newdecl))
2175 TREE_NOTHROW (olddecl) = 1;
2177 /* Merge deprecatedness. */
2178 if (TREE_DEPRECATED (newdecl))
2179 TREE_DEPRECATED (olddecl) = 1;
2181 /* Preserve function specific target and optimization options */
2182 if (TREE_CODE (newdecl) == FUNCTION_DECL)
2184 if (DECL_FUNCTION_SPECIFIC_TARGET (olddecl)
2185 && !DECL_FUNCTION_SPECIFIC_TARGET (newdecl))
2186 DECL_FUNCTION_SPECIFIC_TARGET (newdecl)
2187 = DECL_FUNCTION_SPECIFIC_TARGET (olddecl);
2189 if (DECL_FUNCTION_SPECIFIC_OPTIMIZATION (olddecl)
2190 && !DECL_FUNCTION_SPECIFIC_OPTIMIZATION (newdecl))
2191 DECL_FUNCTION_SPECIFIC_OPTIMIZATION (newdecl)
2192 = DECL_FUNCTION_SPECIFIC_OPTIMIZATION (olddecl);
2195 /* Merge the initialization information. */
2196 if (DECL_INITIAL (newdecl) == NULL_TREE
2197 && DECL_INITIAL (olddecl) != NULL_TREE)
2199 DECL_INITIAL (newdecl) = DECL_INITIAL (olddecl);
2200 DECL_SOURCE_LOCATION (newdecl) = DECL_SOURCE_LOCATION (olddecl);
2201 if (TREE_CODE (newdecl) == FUNCTION_DECL)
2203 DECL_SAVED_TREE (newdecl) = DECL_SAVED_TREE (olddecl);
2204 DECL_STRUCT_FUNCTION (newdecl) = DECL_STRUCT_FUNCTION (olddecl);
2208 if (TREE_CODE (newdecl) == FUNCTION_DECL)
2210 DECL_NO_INSTRUMENT_FUNCTION_ENTRY_EXIT (newdecl)
2211 |= DECL_NO_INSTRUMENT_FUNCTION_ENTRY_EXIT (olddecl);
2212 DECL_NO_LIMIT_STACK (newdecl) |= DECL_NO_LIMIT_STACK (olddecl);
2213 TREE_THIS_VOLATILE (newdecl) |= TREE_THIS_VOLATILE (olddecl);
2214 TREE_NOTHROW (newdecl) |= TREE_NOTHROW (olddecl);
2215 DECL_IS_MALLOC (newdecl) |= DECL_IS_MALLOC (olddecl);
2216 DECL_IS_OPERATOR_NEW (newdecl) |= DECL_IS_OPERATOR_NEW (olddecl);
2217 DECL_PURE_P (newdecl) |= DECL_PURE_P (olddecl);
2218 TREE_READONLY (newdecl) |= TREE_READONLY (olddecl);
2219 DECL_LOOPING_CONST_OR_PURE_P (newdecl)
2220 |= DECL_LOOPING_CONST_OR_PURE_P (olddecl);
2221 /* Keep the old RTL. */
2222 COPY_DECL_RTL (olddecl, newdecl);
2224 else if (VAR_P (newdecl)
2225 && (DECL_SIZE (olddecl) || !DECL_SIZE (newdecl)))
2227 /* Keep the old RTL. We cannot keep the old RTL if the old
2228 declaration was for an incomplete object and the new
2229 declaration is not since many attributes of the RTL will
2230 change. */
2231 COPY_DECL_RTL (olddecl, newdecl);
2234 /* If cannot merge, then use the new type and qualifiers,
2235 and don't preserve the old rtl. */
2236 else
2238 /* Clean out any memory we had of the old declaration. */
2239 tree oldstatic = value_member (olddecl, static_aggregates);
2240 if (oldstatic)
2241 TREE_VALUE (oldstatic) = error_mark_node;
2243 TREE_TYPE (olddecl) = TREE_TYPE (newdecl);
2244 TREE_READONLY (olddecl) = TREE_READONLY (newdecl);
2245 TREE_THIS_VOLATILE (olddecl) = TREE_THIS_VOLATILE (newdecl);
2246 TREE_NOTHROW (olddecl) = TREE_NOTHROW (newdecl);
2247 TREE_SIDE_EFFECTS (olddecl) = TREE_SIDE_EFFECTS (newdecl);
2250 /* Merge the storage class information. */
2251 merge_weak (newdecl, olddecl);
2253 DECL_DEFER_OUTPUT (newdecl) |= DECL_DEFER_OUTPUT (olddecl);
2254 TREE_PUBLIC (newdecl) = TREE_PUBLIC (olddecl);
2255 TREE_STATIC (olddecl) = TREE_STATIC (newdecl) |= TREE_STATIC (olddecl);
2256 if (! DECL_EXTERNAL (olddecl))
2257 DECL_EXTERNAL (newdecl) = 0;
2258 if (! DECL_COMDAT (olddecl))
2259 DECL_COMDAT (newdecl) = 0;
2261 new_template_info = NULL_TREE;
2262 if (DECL_LANG_SPECIFIC (newdecl) && DECL_LANG_SPECIFIC (olddecl))
2264 bool new_redefines_gnu_inline = false;
2266 if (new_defines_function
2267 && ((DECL_INTERFACE_KNOWN (olddecl)
2268 && TREE_CODE (olddecl) == FUNCTION_DECL)
2269 || (TREE_CODE (olddecl) == TEMPLATE_DECL
2270 && (TREE_CODE (DECL_TEMPLATE_RESULT (olddecl))
2271 == FUNCTION_DECL))))
2273 tree fn = olddecl;
2275 if (TREE_CODE (fn) == TEMPLATE_DECL)
2276 fn = DECL_TEMPLATE_RESULT (olddecl);
2278 new_redefines_gnu_inline = GNU_INLINE_P (fn) && DECL_INITIAL (fn);
2281 if (!new_redefines_gnu_inline)
2283 DECL_INTERFACE_KNOWN (newdecl) |= DECL_INTERFACE_KNOWN (olddecl);
2284 DECL_NOT_REALLY_EXTERN (newdecl) |= DECL_NOT_REALLY_EXTERN (olddecl);
2285 DECL_COMDAT (newdecl) |= DECL_COMDAT (olddecl);
2287 DECL_TEMPLATE_INSTANTIATED (newdecl)
2288 |= DECL_TEMPLATE_INSTANTIATED (olddecl);
2289 DECL_ODR_USED (newdecl) |= DECL_ODR_USED (olddecl);
2291 /* If the OLDDECL is an instantiation and/or specialization,
2292 then the NEWDECL must be too. But, it may not yet be marked
2293 as such if the caller has created NEWDECL, but has not yet
2294 figured out that it is a redeclaration. */
2295 if (!DECL_USE_TEMPLATE (newdecl))
2296 DECL_USE_TEMPLATE (newdecl) = DECL_USE_TEMPLATE (olddecl);
2298 /* Don't really know how much of the language-specific
2299 values we should copy from old to new. */
2300 DECL_IN_AGGR_P (newdecl) = DECL_IN_AGGR_P (olddecl);
2301 DECL_REPO_AVAILABLE_P (newdecl) = DECL_REPO_AVAILABLE_P (olddecl);
2302 DECL_INITIALIZED_IN_CLASS_P (newdecl)
2303 |= DECL_INITIALIZED_IN_CLASS_P (olddecl);
2305 if (LANG_DECL_HAS_MIN (newdecl))
2307 DECL_LANG_SPECIFIC (newdecl)->u.min.u2 =
2308 DECL_LANG_SPECIFIC (olddecl)->u.min.u2;
2309 if (DECL_TEMPLATE_INFO (newdecl))
2311 new_template_info = DECL_TEMPLATE_INFO (newdecl);
2312 if (DECL_TEMPLATE_INSTANTIATION (olddecl)
2313 && DECL_TEMPLATE_SPECIALIZATION (newdecl))
2314 /* Remember the presence of explicit specialization args. */
2315 TINFO_USED_TEMPLATE_ID (DECL_TEMPLATE_INFO (olddecl))
2316 = TINFO_USED_TEMPLATE_ID (new_template_info);
2318 DECL_TEMPLATE_INFO (newdecl) = DECL_TEMPLATE_INFO (olddecl);
2320 /* Only functions have these fields. */
2321 if (DECL_DECLARES_FUNCTION_P (newdecl))
2323 DECL_NONCONVERTING_P (newdecl) = DECL_NONCONVERTING_P (olddecl);
2324 DECL_BEFRIENDING_CLASSES (newdecl)
2325 = chainon (DECL_BEFRIENDING_CLASSES (newdecl),
2326 DECL_BEFRIENDING_CLASSES (olddecl));
2327 /* DECL_THUNKS is only valid for virtual functions,
2328 otherwise it is a DECL_FRIEND_CONTEXT. */
2329 if (DECL_VIRTUAL_P (newdecl))
2330 SET_DECL_THUNKS (newdecl, DECL_THUNKS (olddecl));
2332 /* Only variables have this field. */
2333 else if (VAR_P (newdecl)
2334 && VAR_HAD_UNKNOWN_BOUND (olddecl))
2335 SET_VAR_HAD_UNKNOWN_BOUND (newdecl);
2338 if (TREE_CODE (newdecl) == FUNCTION_DECL)
2340 tree parm;
2342 /* Merge parameter attributes. */
2343 tree oldarg, newarg;
2344 for (oldarg = DECL_ARGUMENTS(olddecl),
2345 newarg = DECL_ARGUMENTS(newdecl);
2346 oldarg && newarg;
2347 oldarg = DECL_CHAIN(oldarg), newarg = DECL_CHAIN(newarg)) {
2348 DECL_ATTRIBUTES (newarg)
2349 = (*targetm.merge_decl_attributes) (oldarg, newarg);
2350 DECL_ATTRIBUTES (oldarg) = DECL_ATTRIBUTES (newarg);
2353 if (DECL_TEMPLATE_INSTANTIATION (olddecl)
2354 && !DECL_TEMPLATE_INSTANTIATION (newdecl))
2356 /* If newdecl is not a specialization, then it is not a
2357 template-related function at all. And that means that we
2358 should have exited above, returning 0. */
2359 gcc_assert (DECL_TEMPLATE_SPECIALIZATION (newdecl));
2361 if (DECL_ODR_USED (olddecl))
2362 /* From [temp.expl.spec]:
2364 If a template, a member template or the member of a class
2365 template is explicitly specialized then that
2366 specialization shall be declared before the first use of
2367 that specialization that would cause an implicit
2368 instantiation to take place, in every translation unit in
2369 which such a use occurs. */
2370 error ("explicit specialization of %qD after first use",
2371 olddecl);
2373 SET_DECL_TEMPLATE_SPECIALIZATION (olddecl);
2374 DECL_COMDAT (newdecl) = (TREE_PUBLIC (newdecl)
2375 && DECL_DECLARED_INLINE_P (newdecl));
2377 /* Don't propagate visibility from the template to the
2378 specialization here. We'll do that in determine_visibility if
2379 appropriate. */
2380 DECL_VISIBILITY_SPECIFIED (olddecl) = 0;
2382 /* [temp.expl.spec/14] We don't inline explicit specialization
2383 just because the primary template says so. */
2385 /* But still keep DECL_DISREGARD_INLINE_LIMITS in sync with
2386 the always_inline attribute. */
2387 if (DECL_DISREGARD_INLINE_LIMITS (olddecl)
2388 && !DECL_DISREGARD_INLINE_LIMITS (newdecl))
2390 if (DECL_DECLARED_INLINE_P (newdecl))
2391 DECL_DISREGARD_INLINE_LIMITS (newdecl) = true;
2392 else
2393 DECL_ATTRIBUTES (newdecl)
2394 = remove_attribute ("always_inline",
2395 DECL_ATTRIBUTES (newdecl));
2398 else if (new_defines_function && DECL_INITIAL (olddecl))
2400 /* Never inline re-defined extern inline functions.
2401 FIXME: this could be better handled by keeping both
2402 function as separate declarations. */
2403 DECL_UNINLINABLE (newdecl) = 1;
2405 else
2407 if (DECL_PENDING_INLINE_P (olddecl))
2409 DECL_PENDING_INLINE_P (newdecl) = 1;
2410 DECL_PENDING_INLINE_INFO (newdecl)
2411 = DECL_PENDING_INLINE_INFO (olddecl);
2413 else if (DECL_PENDING_INLINE_P (newdecl))
2415 else if (DECL_SAVED_FUNCTION_DATA (newdecl) == NULL)
2416 DECL_SAVED_FUNCTION_DATA (newdecl)
2417 = DECL_SAVED_FUNCTION_DATA (olddecl);
2419 DECL_DECLARED_INLINE_P (newdecl) |= DECL_DECLARED_INLINE_P (olddecl);
2421 DECL_UNINLINABLE (newdecl) = DECL_UNINLINABLE (olddecl)
2422 = (DECL_UNINLINABLE (newdecl) || DECL_UNINLINABLE (olddecl));
2424 DECL_DISREGARD_INLINE_LIMITS (newdecl)
2425 = DECL_DISREGARD_INLINE_LIMITS (olddecl)
2426 = (DECL_DISREGARD_INLINE_LIMITS (newdecl)
2427 || DECL_DISREGARD_INLINE_LIMITS (olddecl));
2430 /* Preserve abstractness on cloned [cd]tors. */
2431 DECL_ABSTRACT_P (newdecl) = DECL_ABSTRACT_P (olddecl);
2433 /* Update newdecl's parms to point at olddecl. */
2434 for (parm = DECL_ARGUMENTS (newdecl); parm;
2435 parm = DECL_CHAIN (parm))
2436 DECL_CONTEXT (parm) = olddecl;
2438 if (! types_match)
2440 SET_DECL_LANGUAGE (olddecl, DECL_LANGUAGE (newdecl));
2441 COPY_DECL_ASSEMBLER_NAME (newdecl, olddecl);
2442 COPY_DECL_RTL (newdecl, olddecl);
2444 if (! types_match || new_defines_function)
2446 /* These need to be copied so that the names are available.
2447 Note that if the types do match, we'll preserve inline
2448 info and other bits, but if not, we won't. */
2449 DECL_ARGUMENTS (olddecl) = DECL_ARGUMENTS (newdecl);
2450 DECL_RESULT (olddecl) = DECL_RESULT (newdecl);
2452 /* If redeclaring a builtin function, it stays built in
2453 if newdecl is a gnu_inline definition, or if newdecl is just
2454 a declaration. */
2455 if (DECL_BUILT_IN (olddecl)
2456 && (new_defines_function ? GNU_INLINE_P (newdecl) : types_match))
2458 DECL_BUILT_IN_CLASS (newdecl) = DECL_BUILT_IN_CLASS (olddecl);
2459 DECL_FUNCTION_CODE (newdecl) = DECL_FUNCTION_CODE (olddecl);
2460 /* If we're keeping the built-in definition, keep the rtl,
2461 regardless of declaration matches. */
2462 COPY_DECL_RTL (olddecl, newdecl);
2463 if (DECL_BUILT_IN_CLASS (newdecl) == BUILT_IN_NORMAL)
2465 enum built_in_function fncode = DECL_FUNCTION_CODE (newdecl);
2466 switch (fncode)
2468 /* If a compatible prototype of these builtin functions
2469 is seen, assume the runtime implements it with the
2470 expected semantics. */
2471 case BUILT_IN_STPCPY:
2472 if (builtin_decl_explicit_p (fncode))
2473 set_builtin_decl_implicit_p (fncode, true);
2474 break;
2475 default:
2476 if (builtin_decl_explicit_p (fncode))
2477 set_builtin_decl_declared_p (fncode, true);
2478 break;
2482 copy_attributes_to_builtin (newdecl);
2484 if (new_defines_function)
2485 /* If defining a function declared with other language
2486 linkage, use the previously declared language linkage. */
2487 SET_DECL_LANGUAGE (newdecl, DECL_LANGUAGE (olddecl));
2488 else if (types_match)
2490 DECL_RESULT (newdecl) = DECL_RESULT (olddecl);
2491 /* Don't clear out the arguments if we're just redeclaring a
2492 function. */
2493 if (DECL_ARGUMENTS (olddecl))
2494 DECL_ARGUMENTS (newdecl) = DECL_ARGUMENTS (olddecl);
2497 else if (TREE_CODE (newdecl) == NAMESPACE_DECL)
2498 NAMESPACE_LEVEL (newdecl) = NAMESPACE_LEVEL (olddecl);
2500 /* Now preserve various other info from the definition. */
2501 TREE_ADDRESSABLE (newdecl) = TREE_ADDRESSABLE (olddecl);
2502 TREE_ASM_WRITTEN (newdecl) = TREE_ASM_WRITTEN (olddecl);
2503 DECL_COMMON (newdecl) = DECL_COMMON (olddecl);
2504 COPY_DECL_ASSEMBLER_NAME (olddecl, newdecl);
2506 /* Warn about conflicting visibility specifications. */
2507 if (DECL_VISIBILITY_SPECIFIED (olddecl)
2508 && DECL_VISIBILITY_SPECIFIED (newdecl)
2509 && DECL_VISIBILITY (newdecl) != DECL_VISIBILITY (olddecl))
2511 if (warning_at (DECL_SOURCE_LOCATION (newdecl), OPT_Wattributes,
2512 "%qD: visibility attribute ignored because it "
2513 "conflicts with previous declaration", newdecl))
2514 inform (DECL_SOURCE_LOCATION (olddecl),
2515 "previous declaration of %qD", olddecl);
2517 /* Choose the declaration which specified visibility. */
2518 if (DECL_VISIBILITY_SPECIFIED (olddecl))
2520 DECL_VISIBILITY (newdecl) = DECL_VISIBILITY (olddecl);
2521 DECL_VISIBILITY_SPECIFIED (newdecl) = 1;
2523 /* Init priority used to be merged from newdecl to olddecl by the memcpy,
2524 so keep this behavior. */
2525 if (VAR_P (newdecl) && DECL_HAS_INIT_PRIORITY_P (newdecl))
2527 SET_DECL_INIT_PRIORITY (olddecl, DECL_INIT_PRIORITY (newdecl));
2528 DECL_HAS_INIT_PRIORITY_P (olddecl) = 1;
2530 /* Likewise for DECL_ALIGN, DECL_USER_ALIGN and DECL_PACKED. */
2531 if (DECL_ALIGN (olddecl) > DECL_ALIGN (newdecl))
2533 SET_DECL_ALIGN (newdecl, DECL_ALIGN (olddecl));
2534 DECL_USER_ALIGN (newdecl) |= DECL_USER_ALIGN (olddecl);
2536 DECL_USER_ALIGN (olddecl) = DECL_USER_ALIGN (newdecl);
2537 if (DECL_WARN_IF_NOT_ALIGN (olddecl)
2538 > DECL_WARN_IF_NOT_ALIGN (newdecl))
2539 SET_DECL_WARN_IF_NOT_ALIGN (newdecl,
2540 DECL_WARN_IF_NOT_ALIGN (olddecl));
2541 if (TREE_CODE (newdecl) == FIELD_DECL)
2542 DECL_PACKED (olddecl) = DECL_PACKED (newdecl);
2544 /* The DECL_LANG_SPECIFIC information in OLDDECL will be replaced
2545 with that from NEWDECL below. */
2546 if (DECL_LANG_SPECIFIC (olddecl))
2548 gcc_assert (DECL_LANG_SPECIFIC (olddecl)
2549 != DECL_LANG_SPECIFIC (newdecl));
2550 ggc_free (DECL_LANG_SPECIFIC (olddecl));
2553 /* Merge the USED information. */
2554 if (TREE_USED (olddecl))
2555 TREE_USED (newdecl) = 1;
2556 else if (TREE_USED (newdecl))
2557 TREE_USED (olddecl) = 1;
2558 if (VAR_P (newdecl))
2560 if (DECL_READ_P (olddecl))
2561 DECL_READ_P (newdecl) = 1;
2562 else if (DECL_READ_P (newdecl))
2563 DECL_READ_P (olddecl) = 1;
2565 if (DECL_PRESERVE_P (olddecl))
2566 DECL_PRESERVE_P (newdecl) = 1;
2567 else if (DECL_PRESERVE_P (newdecl))
2568 DECL_PRESERVE_P (olddecl) = 1;
2570 /* Merge the DECL_FUNCTION_VERSIONED information. newdecl will be copied
2571 to olddecl and deleted. */
2572 if (TREE_CODE (newdecl) == FUNCTION_DECL
2573 && DECL_FUNCTION_VERSIONED (olddecl))
2575 /* Set the flag for newdecl so that it gets copied to olddecl. */
2576 DECL_FUNCTION_VERSIONED (newdecl) = 1;
2577 /* newdecl will be purged after copying to olddecl and is no longer
2578 a version. */
2579 cgraph_node::delete_function_version_by_decl (newdecl);
2582 if (TREE_CODE (newdecl) == FUNCTION_DECL)
2584 int function_size;
2585 struct symtab_node *snode = symtab_node::get (olddecl);
2587 function_size = sizeof (struct tree_decl_common);
2589 memcpy ((char *) olddecl + sizeof (struct tree_common),
2590 (char *) newdecl + sizeof (struct tree_common),
2591 function_size - sizeof (struct tree_common));
2593 memcpy ((char *) olddecl + sizeof (struct tree_decl_common),
2594 (char *) newdecl + sizeof (struct tree_decl_common),
2595 sizeof (struct tree_function_decl) - sizeof (struct tree_decl_common));
2597 /* Preserve symtab node mapping. */
2598 olddecl->decl_with_vis.symtab_node = snode;
2600 if (new_template_info)
2601 /* If newdecl is a template instantiation, it is possible that
2602 the following sequence of events has occurred:
2604 o A friend function was declared in a class template. The
2605 class template was instantiated.
2607 o The instantiation of the friend declaration was
2608 recorded on the instantiation list, and is newdecl.
2610 o Later, however, instantiate_class_template called pushdecl
2611 on the newdecl to perform name injection. But, pushdecl in
2612 turn called duplicate_decls when it discovered that another
2613 declaration of a global function with the same name already
2614 existed.
2616 o Here, in duplicate_decls, we decided to clobber newdecl.
2618 If we're going to do that, we'd better make sure that
2619 olddecl, and not newdecl, is on the list of
2620 instantiations so that if we try to do the instantiation
2621 again we won't get the clobbered declaration. */
2622 reregister_specialization (newdecl,
2623 new_template_info,
2624 olddecl);
2626 else
2628 size_t size = tree_code_size (TREE_CODE (newdecl));
2630 memcpy ((char *) olddecl + sizeof (struct tree_common),
2631 (char *) newdecl + sizeof (struct tree_common),
2632 sizeof (struct tree_decl_common) - sizeof (struct tree_common));
2633 switch (TREE_CODE (newdecl))
2635 case LABEL_DECL:
2636 case VAR_DECL:
2637 case RESULT_DECL:
2638 case PARM_DECL:
2639 case FIELD_DECL:
2640 case TYPE_DECL:
2641 case CONST_DECL:
2643 struct symtab_node *snode = NULL;
2645 if (VAR_P (newdecl)
2646 && (TREE_STATIC (olddecl) || TREE_PUBLIC (olddecl)
2647 || DECL_EXTERNAL (olddecl)))
2648 snode = symtab_node::get (olddecl);
2649 memcpy ((char *) olddecl + sizeof (struct tree_decl_common),
2650 (char *) newdecl + sizeof (struct tree_decl_common),
2651 size - sizeof (struct tree_decl_common)
2652 + TREE_CODE_LENGTH (TREE_CODE (newdecl)) * sizeof (char *));
2653 if (VAR_P (newdecl))
2654 olddecl->decl_with_vis.symtab_node = snode;
2656 break;
2657 default:
2658 memcpy ((char *) olddecl + sizeof (struct tree_decl_common),
2659 (char *) newdecl + sizeof (struct tree_decl_common),
2660 sizeof (struct tree_decl_non_common) - sizeof (struct tree_decl_common)
2661 + TREE_CODE_LENGTH (TREE_CODE (newdecl)) * sizeof (char *));
2662 break;
2666 if (VAR_OR_FUNCTION_DECL_P (newdecl))
2668 if (DECL_EXTERNAL (olddecl)
2669 || TREE_PUBLIC (olddecl)
2670 || TREE_STATIC (olddecl))
2672 /* Merge the section attribute.
2673 We want to issue an error if the sections conflict but that must be
2674 done later in decl_attributes since we are called before attributes
2675 are assigned. */
2676 if (DECL_SECTION_NAME (newdecl) != NULL)
2677 set_decl_section_name (olddecl, DECL_SECTION_NAME (newdecl));
2679 if (DECL_ONE_ONLY (newdecl))
2681 struct symtab_node *oldsym, *newsym;
2682 if (TREE_CODE (olddecl) == FUNCTION_DECL)
2683 oldsym = cgraph_node::get_create (olddecl);
2684 else
2685 oldsym = varpool_node::get_create (olddecl);
2686 newsym = symtab_node::get (newdecl);
2687 oldsym->set_comdat_group (newsym->get_comdat_group ());
2691 if (VAR_P (newdecl)
2692 && CP_DECL_THREAD_LOCAL_P (newdecl))
2694 CP_DECL_THREAD_LOCAL_P (olddecl) = true;
2695 if (!processing_template_decl)
2696 set_decl_tls_model (olddecl, DECL_TLS_MODEL (newdecl));
2700 DECL_UID (olddecl) = olddecl_uid;
2701 if (olddecl_friend)
2702 DECL_FRIEND_P (olddecl) = 1;
2703 if (hidden_friend)
2705 DECL_ANTICIPATED (olddecl) = 1;
2706 DECL_HIDDEN_FRIEND_P (olddecl) = 1;
2709 /* NEWDECL contains the merged attribute lists.
2710 Update OLDDECL to be the same. */
2711 DECL_ATTRIBUTES (olddecl) = DECL_ATTRIBUTES (newdecl);
2713 /* If OLDDECL had its DECL_RTL instantiated, re-invoke make_decl_rtl
2714 so that encode_section_info has a chance to look at the new decl
2715 flags and attributes. */
2716 if (DECL_RTL_SET_P (olddecl)
2717 && (TREE_CODE (olddecl) == FUNCTION_DECL
2718 || (VAR_P (olddecl)
2719 && TREE_STATIC (olddecl))))
2720 make_decl_rtl (olddecl);
2722 /* The NEWDECL will no longer be needed. Because every out-of-class
2723 declaration of a member results in a call to duplicate_decls,
2724 freeing these nodes represents in a significant savings.
2726 Before releasing the node, be sore to remove function from symbol
2727 table that might have been inserted there to record comdat group.
2728 Be sure to however do not free DECL_STRUCT_FUNCTION because this
2729 structure is shared in between newdecl and oldecl. */
2730 if (TREE_CODE (newdecl) == FUNCTION_DECL)
2731 DECL_STRUCT_FUNCTION (newdecl) = NULL;
2732 if (VAR_OR_FUNCTION_DECL_P (newdecl))
2734 struct symtab_node *snode = symtab_node::get (newdecl);
2735 if (snode)
2736 snode->remove ();
2739 /* Remove the associated constraints for newdecl, if any, before
2740 reclaiming memory. */
2741 if (flag_concepts)
2742 remove_constraints (newdecl);
2744 ggc_free (newdecl);
2746 return olddecl;
2749 /* Return zero if the declaration NEWDECL is valid
2750 when the declaration OLDDECL (assumed to be for the same name)
2751 has already been seen.
2752 Otherwise return an error message format string with a %s
2753 where the identifier should go. */
2755 static const char *
2756 redeclaration_error_message (tree newdecl, tree olddecl)
2758 if (TREE_CODE (newdecl) == TYPE_DECL)
2760 /* Because C++ can put things into name space for free,
2761 constructs like "typedef struct foo { ... } foo"
2762 would look like an erroneous redeclaration. */
2763 if (same_type_p (TREE_TYPE (newdecl), TREE_TYPE (olddecl)))
2764 return NULL;
2765 else
2766 return G_("redefinition of %q#D");
2768 else if (TREE_CODE (newdecl) == FUNCTION_DECL)
2770 /* If this is a pure function, its olddecl will actually be
2771 the original initialization to `0' (which we force to call
2772 abort()). Don't complain about redefinition in this case. */
2773 if (DECL_LANG_SPECIFIC (olddecl) && DECL_PURE_VIRTUAL_P (olddecl)
2774 && DECL_INITIAL (olddecl) == NULL_TREE)
2775 return NULL;
2777 /* If both functions come from different namespaces, this is not
2778 a redeclaration - this is a conflict with a used function. */
2779 if (DECL_NAMESPACE_SCOPE_P (olddecl)
2780 && DECL_CONTEXT (olddecl) != DECL_CONTEXT (newdecl)
2781 && ! decls_match (olddecl, newdecl))
2782 return G_("%qD conflicts with used function");
2784 /* We'll complain about linkage mismatches in
2785 warn_extern_redeclared_static. */
2787 /* Defining the same name twice is no good. */
2788 if (decl_defined_p (olddecl)
2789 && decl_defined_p (newdecl))
2791 if (DECL_NAME (olddecl) == NULL_TREE)
2792 return G_("%q#D not declared in class");
2793 else if (!GNU_INLINE_P (olddecl)
2794 || GNU_INLINE_P (newdecl))
2795 return G_("redefinition of %q#D");
2798 if (DECL_DECLARED_INLINE_P (olddecl) && DECL_DECLARED_INLINE_P (newdecl))
2800 bool olda = GNU_INLINE_P (olddecl);
2801 bool newa = GNU_INLINE_P (newdecl);
2803 if (olda != newa)
2805 if (newa)
2806 return G_("%q+D redeclared inline with "
2807 "%<gnu_inline%> attribute");
2808 else
2809 return G_("%q+D redeclared inline without "
2810 "%<gnu_inline%> attribute");
2814 check_abi_tag_redeclaration
2815 (olddecl, lookup_attribute ("abi_tag", DECL_ATTRIBUTES (olddecl)),
2816 lookup_attribute ("abi_tag", DECL_ATTRIBUTES (newdecl)));
2818 return NULL;
2820 else if (TREE_CODE (newdecl) == TEMPLATE_DECL)
2822 tree nt, ot;
2824 if (TREE_CODE (DECL_TEMPLATE_RESULT (newdecl)) == TYPE_DECL)
2826 if (COMPLETE_TYPE_P (TREE_TYPE (newdecl))
2827 && COMPLETE_TYPE_P (TREE_TYPE (olddecl)))
2828 return G_("redefinition of %q#D");
2829 return NULL;
2832 if (TREE_CODE (DECL_TEMPLATE_RESULT (newdecl)) != FUNCTION_DECL
2833 || (DECL_TEMPLATE_RESULT (newdecl)
2834 == DECL_TEMPLATE_RESULT (olddecl)))
2835 return NULL;
2837 nt = DECL_TEMPLATE_RESULT (newdecl);
2838 if (DECL_TEMPLATE_INFO (nt))
2839 nt = DECL_TEMPLATE_RESULT (template_for_substitution (nt));
2840 ot = DECL_TEMPLATE_RESULT (olddecl);
2841 if (DECL_TEMPLATE_INFO (ot))
2842 ot = DECL_TEMPLATE_RESULT (template_for_substitution (ot));
2843 if (DECL_INITIAL (nt) && DECL_INITIAL (ot)
2844 && (!GNU_INLINE_P (ot) || GNU_INLINE_P (nt)))
2845 return G_("redefinition of %q#D");
2847 if (DECL_DECLARED_INLINE_P (ot) && DECL_DECLARED_INLINE_P (nt))
2849 bool olda = GNU_INLINE_P (ot);
2850 bool newa = GNU_INLINE_P (nt);
2852 if (olda != newa)
2854 if (newa)
2855 return G_("%q+D redeclared inline with "
2856 "%<gnu_inline%> attribute");
2857 else
2858 return G_("%q+D redeclared inline without "
2859 "%<gnu_inline%> attribute");
2863 /* Core issue #226 (C++0x):
2865 If a friend function template declaration specifies a
2866 default template-argument, that declaration shall be a
2867 definition and shall be the only declaration of the
2868 function template in the translation unit. */
2869 if ((cxx_dialect != cxx98)
2870 && TREE_CODE (ot) == FUNCTION_DECL && DECL_FRIEND_P (ot)
2871 && !check_default_tmpl_args (nt, DECL_TEMPLATE_PARMS (newdecl),
2872 /*is_primary=*/true,
2873 /*is_partial=*/false,
2874 /*is_friend_decl=*/2))
2875 return G_("redeclaration of friend %q#D "
2876 "may not have default template arguments");
2878 return NULL;
2880 else if (VAR_P (newdecl)
2881 && CP_DECL_THREAD_LOCAL_P (newdecl) != CP_DECL_THREAD_LOCAL_P (olddecl)
2882 && (! DECL_LANG_SPECIFIC (olddecl)
2883 || ! CP_DECL_THREADPRIVATE_P (olddecl)
2884 || CP_DECL_THREAD_LOCAL_P (newdecl)))
2886 /* Only variables can be thread-local, and all declarations must
2887 agree on this property. */
2888 if (CP_DECL_THREAD_LOCAL_P (newdecl))
2889 return G_("thread-local declaration of %q#D follows "
2890 "non-thread-local declaration");
2891 else
2892 return G_("non-thread-local declaration of %q#D follows "
2893 "thread-local declaration");
2895 else if (toplevel_bindings_p () || DECL_NAMESPACE_SCOPE_P (newdecl))
2897 /* The objects have been declared at namespace scope. If either
2898 is a member of an anonymous union, then this is an invalid
2899 redeclaration. For example:
2901 int i;
2902 union { int i; };
2904 is invalid. */
2905 if ((VAR_P (newdecl) && DECL_ANON_UNION_VAR_P (newdecl))
2906 || (VAR_P (olddecl) && DECL_ANON_UNION_VAR_P (olddecl)))
2907 return G_("redeclaration of %q#D");
2908 /* If at least one declaration is a reference, there is no
2909 conflict. For example:
2911 int i = 3;
2912 extern int i;
2914 is valid. */
2915 if (DECL_EXTERNAL (newdecl) || DECL_EXTERNAL (olddecl))
2916 return NULL;
2918 /* Static data member declared outside a class definition
2919 if the variable is defined within the class with constexpr
2920 specifier is declaration rather than definition (and
2921 deprecated). */
2922 if (cxx_dialect >= cxx17
2923 && DECL_CLASS_SCOPE_P (olddecl)
2924 && DECL_DECLARED_CONSTEXPR_P (olddecl)
2925 && !DECL_INITIAL (newdecl))
2927 DECL_EXTERNAL (newdecl) = 1;
2928 /* For now, only warn with explicit -Wdeprecated. */
2929 if (global_options_set.x_warn_deprecated
2930 && warning_at (DECL_SOURCE_LOCATION (newdecl), OPT_Wdeprecated,
2931 "redundant redeclaration of %<constexpr%> static "
2932 "data member %qD", newdecl))
2933 inform (DECL_SOURCE_LOCATION (olddecl),
2934 "previous declaration of %qD", olddecl);
2935 return NULL;
2938 /* Reject two definitions. */
2939 return G_("redefinition of %q#D");
2941 else
2943 /* Objects declared with block scope: */
2944 /* Reject two definitions, and reject a definition
2945 together with an external reference. */
2946 if (!(DECL_EXTERNAL (newdecl) && DECL_EXTERNAL (olddecl)))
2947 return G_("redeclaration of %q#D");
2948 return NULL;
2953 /* Hash and equality functions for the named_label table. */
2955 hashval_t
2956 named_label_hash::hash (const value_type entry)
2958 return IDENTIFIER_HASH_VALUE (entry->name);
2961 bool
2962 named_label_hash::equal (const value_type entry, compare_type name)
2964 return name == entry->name;
2967 /* Look for a label named ID in the current function. If one cannot
2968 be found, create one. Return the named_label_entry, or NULL on
2969 failure. */
2971 static named_label_entry *
2972 lookup_label_1 (tree id, bool making_local_p)
2974 /* You can't use labels at global scope. */
2975 if (current_function_decl == NULL_TREE)
2977 error ("label %qE referenced outside of any function", id);
2978 return NULL;
2981 if (!named_labels)
2982 named_labels = hash_table<named_label_hash>::create_ggc (13);
2984 hashval_t hash = IDENTIFIER_HASH_VALUE (id);
2985 named_label_entry **slot
2986 = named_labels->find_slot_with_hash (id, hash, INSERT);
2987 named_label_entry *old = *slot;
2989 if (old && old->label_decl)
2991 if (!making_local_p)
2992 return old;
2994 if (old->binding_level == current_binding_level)
2996 error ("local label %qE conflicts with existing label", id);
2997 inform (DECL_SOURCE_LOCATION (old->label_decl), "previous label");
2998 return NULL;
3002 /* We are making a new decl, create or reuse the named_label_entry */
3003 named_label_entry *ent = NULL;
3004 if (old && !old->label_decl)
3005 ent = old;
3006 else
3008 ent = ggc_cleared_alloc<named_label_entry> ();
3009 ent->name = id;
3010 ent->outer = old;
3011 *slot = ent;
3014 /* Now create the LABEL_DECL. */
3015 tree decl = build_decl (input_location, LABEL_DECL, id, void_type_node);
3017 DECL_CONTEXT (decl) = current_function_decl;
3018 SET_DECL_MODE (decl, VOIDmode);
3019 if (making_local_p)
3021 C_DECLARED_LABEL_FLAG (decl) = true;
3022 DECL_CHAIN (decl) = current_binding_level->names;
3023 current_binding_level->names = decl;
3026 ent->label_decl = decl;
3028 return ent;
3031 /* Wrapper for lookup_label_1. */
3033 tree
3034 lookup_label (tree id)
3036 bool subtime = timevar_cond_start (TV_NAME_LOOKUP);
3037 named_label_entry *ent = lookup_label_1 (id, false);
3038 timevar_cond_stop (TV_NAME_LOOKUP, subtime);
3039 return ent ? ent->label_decl : NULL_TREE;
3042 tree
3043 declare_local_label (tree id)
3045 bool subtime = timevar_cond_start (TV_NAME_LOOKUP);
3046 named_label_entry *ent = lookup_label_1 (id, true);
3047 timevar_cond_stop (TV_NAME_LOOKUP, subtime);
3048 return ent ? ent->label_decl : NULL_TREE;
3051 /* Returns nonzero if it is ill-formed to jump past the declaration of
3052 DECL. Returns 2 if it's also a real problem. */
3054 static int
3055 decl_jump_unsafe (tree decl)
3057 /* [stmt.dcl]/3: A program that jumps from a point where a local variable
3058 with automatic storage duration is not in scope to a point where it is
3059 in scope is ill-formed unless the variable has scalar type, class type
3060 with a trivial default constructor and a trivial destructor, a
3061 cv-qualified version of one of these types, or an array of one of the
3062 preceding types and is declared without an initializer (8.5). */
3063 tree type = TREE_TYPE (decl);
3065 if (!VAR_P (decl) || TREE_STATIC (decl)
3066 || type == error_mark_node)
3067 return 0;
3069 if (DECL_NONTRIVIALLY_INITIALIZED_P (decl)
3070 || variably_modified_type_p (type, NULL_TREE))
3071 return 2;
3073 if (TYPE_HAS_NONTRIVIAL_DESTRUCTOR (type))
3074 return 1;
3076 return 0;
3079 /* A subroutine of check_previous_goto_1 and check_goto to identify a branch
3080 to the user. */
3082 static bool
3083 identify_goto (tree decl, location_t loc, const location_t *locus,
3084 diagnostic_t diag_kind)
3086 bool complained
3087 = emit_diagnostic (diag_kind, loc, 0,
3088 decl ? N_("jump to label %qD")
3089 : N_("jump to case label"), decl);
3090 if (complained && locus)
3091 inform (*locus, " from here");
3092 return complained;
3095 /* Check that a single previously seen jump to a newly defined label
3096 is OK. DECL is the LABEL_DECL or 0; LEVEL is the binding_level for
3097 the jump context; NAMES are the names in scope in LEVEL at the jump
3098 context; LOCUS is the source position of the jump or 0. Returns
3099 true if all is well. */
3101 static bool
3102 check_previous_goto_1 (tree decl, cp_binding_level* level, tree names,
3103 bool exited_omp, const location_t *locus)
3105 cp_binding_level *b;
3106 bool complained = false;
3107 int identified = 0;
3108 bool saw_eh = false, saw_omp = false, saw_tm = false, saw_cxif = false;
3110 if (exited_omp)
3112 complained = identify_goto (decl, input_location, locus, DK_ERROR);
3113 if (complained)
3114 inform (input_location, " exits OpenMP structured block");
3115 saw_omp = true;
3116 identified = 2;
3119 for (b = current_binding_level; b ; b = b->level_chain)
3121 tree new_decls, old_decls = (b == level ? names : NULL_TREE);
3123 for (new_decls = b->names; new_decls != old_decls;
3124 new_decls = (DECL_P (new_decls) ? DECL_CHAIN (new_decls)
3125 : TREE_CHAIN (new_decls)))
3127 int problem = decl_jump_unsafe (new_decls);
3128 if (! problem)
3129 continue;
3131 if (!identified)
3133 complained = identify_goto (decl, input_location, locus,
3134 DK_PERMERROR);
3135 identified = 1;
3137 if (complained)
3139 if (problem > 1)
3140 inform (DECL_SOURCE_LOCATION (new_decls),
3141 " crosses initialization of %q#D", new_decls);
3142 else
3143 inform (DECL_SOURCE_LOCATION (new_decls),
3144 " enters scope of %q#D, which has "
3145 "non-trivial destructor", new_decls);
3149 if (b == level)
3150 break;
3152 const char *inf = NULL;
3153 location_t loc = input_location;
3154 switch (b->kind)
3156 case sk_try:
3157 if (!saw_eh)
3158 inf = N_("enters try block");
3159 saw_eh = true;
3160 break;
3162 case sk_catch:
3163 if (!saw_eh)
3164 inf = N_("enters catch block");
3165 saw_eh = true;
3166 break;
3168 case sk_omp:
3169 if (!saw_omp)
3170 inf = N_("enters OpenMP structured block");
3171 saw_omp = true;
3172 break;
3174 case sk_transaction:
3175 if (!saw_tm)
3176 inf = N_("enters synchronized or atomic statement");
3177 saw_tm = true;
3178 break;
3180 case sk_block:
3181 if (!saw_cxif && level_for_constexpr_if (b->level_chain))
3183 inf = N_("enters constexpr if statement");
3184 loc = EXPR_LOCATION (b->level_chain->this_entity);
3185 saw_cxif = true;
3187 break;
3189 default:
3190 break;
3193 if (inf)
3195 if (identified < 2)
3196 complained = identify_goto (decl, input_location, locus, DK_ERROR);
3197 identified = 2;
3198 if (complained)
3199 inform (loc, " %s", inf);
3203 return !identified;
3206 static void
3207 check_previous_goto (tree decl, struct named_label_use_entry *use)
3209 check_previous_goto_1 (decl, use->binding_level,
3210 use->names_in_scope, use->in_omp_scope,
3211 &use->o_goto_locus);
3214 static bool
3215 check_switch_goto (cp_binding_level* level)
3217 return check_previous_goto_1 (NULL_TREE, level, level->names, false, NULL);
3220 /* Check that a new jump to a label DECL is OK. Called by
3221 finish_goto_stmt. */
3223 void
3224 check_goto (tree decl)
3226 /* We can't know where a computed goto is jumping.
3227 So we assume that it's OK. */
3228 if (TREE_CODE (decl) != LABEL_DECL)
3229 return;
3231 /* We didn't record any information about this label when we created it,
3232 and there's not much point since it's trivial to analyze as a return. */
3233 if (decl == cdtor_label)
3234 return;
3236 hashval_t hash = IDENTIFIER_HASH_VALUE (DECL_NAME (decl));
3237 named_label_entry **slot
3238 = named_labels->find_slot_with_hash (DECL_NAME (decl), hash, NO_INSERT);
3239 named_label_entry *ent = *slot;
3241 /* If the label hasn't been defined yet, defer checking. */
3242 if (! DECL_INITIAL (decl))
3244 /* Don't bother creating another use if the last goto had the
3245 same data, and will therefore create the same set of errors. */
3246 if (ent->uses
3247 && ent->uses->names_in_scope == current_binding_level->names)
3248 return;
3250 named_label_use_entry *new_use
3251 = ggc_alloc<named_label_use_entry> ();
3252 new_use->binding_level = current_binding_level;
3253 new_use->names_in_scope = current_binding_level->names;
3254 new_use->o_goto_locus = input_location;
3255 new_use->in_omp_scope = false;
3257 new_use->next = ent->uses;
3258 ent->uses = new_use;
3259 return;
3262 bool saw_catch = false, complained = false;
3263 int identified = 0;
3264 tree bad;
3265 unsigned ix;
3267 if (ent->in_try_scope || ent->in_catch_scope || ent->in_transaction_scope
3268 || ent->in_constexpr_if
3269 || ent->in_omp_scope || !vec_safe_is_empty (ent->bad_decls))
3271 diagnostic_t diag_kind = DK_PERMERROR;
3272 if (ent->in_try_scope || ent->in_catch_scope || ent->in_constexpr_if
3273 || ent->in_transaction_scope || ent->in_omp_scope)
3274 diag_kind = DK_ERROR;
3275 complained = identify_goto (decl, DECL_SOURCE_LOCATION (decl),
3276 &input_location, diag_kind);
3277 identified = 1 + (diag_kind == DK_ERROR);
3280 FOR_EACH_VEC_SAFE_ELT (ent->bad_decls, ix, bad)
3282 int u = decl_jump_unsafe (bad);
3284 if (u > 1 && DECL_ARTIFICIAL (bad))
3286 /* Can't skip init of __exception_info. */
3287 if (identified == 1)
3289 complained = identify_goto (decl, DECL_SOURCE_LOCATION (decl),
3290 &input_location, DK_ERROR);
3291 identified = 2;
3293 if (complained)
3294 inform (DECL_SOURCE_LOCATION (bad), " enters catch block");
3295 saw_catch = true;
3297 else if (complained)
3299 if (u > 1)
3300 inform (DECL_SOURCE_LOCATION (bad),
3301 " skips initialization of %q#D", bad);
3302 else
3303 inform (DECL_SOURCE_LOCATION (bad),
3304 " enters scope of %q#D which has "
3305 "non-trivial destructor", bad);
3309 if (complained)
3311 if (ent->in_try_scope)
3312 inform (input_location, " enters try block");
3313 else if (ent->in_catch_scope && !saw_catch)
3314 inform (input_location, " enters catch block");
3315 else if (ent->in_transaction_scope)
3316 inform (input_location, " enters synchronized or atomic statement");
3317 else if (ent->in_constexpr_if)
3318 inform (input_location, " enters %<constexpr%> if statement");
3321 if (ent->in_omp_scope)
3323 if (complained)
3324 inform (input_location, " enters OpenMP structured block");
3326 else if (flag_openmp)
3327 for (cp_binding_level *b = current_binding_level; b ; b = b->level_chain)
3329 if (b == ent->binding_level)
3330 break;
3331 if (b->kind == sk_omp)
3333 if (identified < 2)
3335 complained = identify_goto (decl,
3336 DECL_SOURCE_LOCATION (decl),
3337 &input_location, DK_ERROR);
3338 identified = 2;
3340 if (complained)
3341 inform (input_location, " exits OpenMP structured block");
3342 break;
3347 /* Check that a return is ok wrt OpenMP structured blocks.
3348 Called by finish_return_stmt. Returns true if all is well. */
3350 bool
3351 check_omp_return (void)
3353 for (cp_binding_level *b = current_binding_level; b ; b = b->level_chain)
3354 if (b->kind == sk_omp)
3356 error ("invalid exit from OpenMP structured block");
3357 return false;
3359 else if (b->kind == sk_function_parms)
3360 break;
3361 return true;
3364 /* Define a label, specifying the location in the source file.
3365 Return the LABEL_DECL node for the label. */
3367 static tree
3368 define_label_1 (location_t location, tree name)
3370 /* After labels, make any new cleanups in the function go into their
3371 own new (temporary) binding contour. */
3372 for (cp_binding_level *p = current_binding_level;
3373 p->kind != sk_function_parms;
3374 p = p->level_chain)
3375 p->more_cleanups_ok = 0;
3377 named_label_entry *ent = lookup_label_1 (name, false);
3378 tree decl = ent->label_decl;
3380 if (DECL_INITIAL (decl) != NULL_TREE)
3382 error ("duplicate label %qD", decl);
3383 return error_mark_node;
3385 else
3387 /* Mark label as having been defined. */
3388 DECL_INITIAL (decl) = error_mark_node;
3389 /* Say where in the source. */
3390 DECL_SOURCE_LOCATION (decl) = location;
3392 ent->binding_level = current_binding_level;
3393 ent->names_in_scope = current_binding_level->names;
3395 for (named_label_use_entry *use = ent->uses; use; use = use->next)
3396 check_previous_goto (decl, use);
3397 ent->uses = NULL;
3400 return decl;
3403 /* Wrapper for define_label_1. */
3405 tree
3406 define_label (location_t location, tree name)
3408 bool running = timevar_cond_start (TV_NAME_LOOKUP);
3409 tree ret = define_label_1 (location, name);
3410 timevar_cond_stop (TV_NAME_LOOKUP, running);
3411 return ret;
3415 struct cp_switch
3417 cp_binding_level *level;
3418 struct cp_switch *next;
3419 /* The SWITCH_STMT being built. */
3420 tree switch_stmt;
3421 /* A splay-tree mapping the low element of a case range to the high
3422 element, or NULL_TREE if there is no high element. Used to
3423 determine whether or not a new case label duplicates an old case
3424 label. We need a tree, rather than simply a hash table, because
3425 of the GNU case range extension. */
3426 splay_tree cases;
3427 /* Remember whether there was a case value that is outside the
3428 range of the original type of the controlling expression. */
3429 bool outside_range_p;
3430 /* Remember whether a default: case label has been seen. */
3431 bool has_default_p;
3432 /* Remember whether a BREAK_STMT has been seen in this SWITCH_STMT. */
3433 bool break_stmt_seen_p;
3434 /* Set if inside of {FOR,DO,WHILE}_BODY nested inside of a switch,
3435 where BREAK_STMT doesn't belong to the SWITCH_STMT. */
3436 bool in_loop_body_p;
3439 /* A stack of the currently active switch statements. The innermost
3440 switch statement is on the top of the stack. There is no need to
3441 mark the stack for garbage collection because it is only active
3442 during the processing of the body of a function, and we never
3443 collect at that point. */
3445 static struct cp_switch *switch_stack;
3447 /* Called right after a switch-statement condition is parsed.
3448 SWITCH_STMT is the switch statement being parsed. */
3450 void
3451 push_switch (tree switch_stmt)
3453 struct cp_switch *p = XNEW (struct cp_switch);
3454 p->level = current_binding_level;
3455 p->next = switch_stack;
3456 p->switch_stmt = switch_stmt;
3457 p->cases = splay_tree_new (case_compare, NULL, NULL);
3458 p->outside_range_p = false;
3459 p->has_default_p = false;
3460 p->break_stmt_seen_p = false;
3461 p->in_loop_body_p = false;
3462 switch_stack = p;
3465 void
3466 pop_switch (void)
3468 struct cp_switch *cs = switch_stack;
3469 location_t switch_location;
3471 /* Emit warnings as needed. */
3472 switch_location = EXPR_LOC_OR_LOC (cs->switch_stmt, input_location);
3473 const bool bool_cond_p
3474 = (SWITCH_STMT_TYPE (cs->switch_stmt)
3475 && TREE_CODE (SWITCH_STMT_TYPE (cs->switch_stmt)) == BOOLEAN_TYPE);
3476 if (!processing_template_decl)
3477 c_do_switch_warnings (cs->cases, switch_location,
3478 SWITCH_STMT_TYPE (cs->switch_stmt),
3479 SWITCH_STMT_COND (cs->switch_stmt),
3480 bool_cond_p, cs->outside_range_p);
3482 /* For the benefit of block_may_fallthru remember if the switch body
3483 case labels cover all possible values and if there are break; stmts. */
3484 if (cs->has_default_p
3485 || (!processing_template_decl
3486 && c_switch_covers_all_cases_p (cs->cases,
3487 SWITCH_STMT_TYPE (cs->switch_stmt))))
3488 SWITCH_STMT_ALL_CASES_P (cs->switch_stmt) = 1;
3489 if (!cs->break_stmt_seen_p)
3490 SWITCH_STMT_NO_BREAK_P (cs->switch_stmt) = 1;
3491 gcc_assert (!cs->in_loop_body_p);
3492 splay_tree_delete (cs->cases);
3493 switch_stack = switch_stack->next;
3494 free (cs);
3497 /* Note that a BREAK_STMT is about to be added. If it is inside of
3498 a SWITCH_STMT and not inside of a loop body inside of it, note
3499 in switch_stack we've seen a BREAK_STMT. */
3501 void
3502 note_break_stmt (void)
3504 if (switch_stack && !switch_stack->in_loop_body_p)
3505 switch_stack->break_stmt_seen_p = true;
3508 /* Note the start of processing of an iteration statement's body.
3509 The note_break_stmt function will do nothing while processing it.
3510 Return a flag that should be passed to note_iteration_stmt_body_end. */
3512 bool
3513 note_iteration_stmt_body_start (void)
3515 if (!switch_stack)
3516 return false;
3517 bool ret = switch_stack->in_loop_body_p;
3518 switch_stack->in_loop_body_p = true;
3519 return ret;
3522 /* Note the end of processing of an iteration statement's body. */
3524 void
3525 note_iteration_stmt_body_end (bool prev)
3527 if (switch_stack)
3528 switch_stack->in_loop_body_p = prev;
3531 /* Convert a case constant VALUE in a switch to the type TYPE of the switch
3532 condition. Note that if TYPE and VALUE are already integral we don't
3533 really do the conversion because the language-independent
3534 warning/optimization code will work better that way. */
3536 static tree
3537 case_conversion (tree type, tree value)
3539 if (value == NULL_TREE)
3540 return value;
3542 if (cxx_dialect >= cxx11
3543 && (SCOPED_ENUM_P (type)
3544 || !INTEGRAL_OR_UNSCOPED_ENUMERATION_TYPE_P (TREE_TYPE (value))))
3546 if (INTEGRAL_OR_UNSCOPED_ENUMERATION_TYPE_P (type))
3547 type = type_promotes_to (type);
3548 value = (perform_implicit_conversion_flags
3549 (type, value, tf_warning_or_error,
3550 LOOKUP_IMPLICIT | LOOKUP_NO_NON_INTEGRAL));
3552 return cxx_constant_value (value);
3555 /* Note that we've seen a definition of a case label, and complain if this
3556 is a bad place for one. */
3558 tree
3559 finish_case_label (location_t loc, tree low_value, tree high_value)
3561 tree cond, r;
3562 cp_binding_level *p;
3563 tree type;
3565 if (low_value == NULL_TREE && high_value == NULL_TREE)
3566 switch_stack->has_default_p = true;
3568 if (processing_template_decl)
3570 tree label;
3572 /* For templates, just add the case label; we'll do semantic
3573 analysis at instantiation-time. */
3574 label = build_decl (loc, LABEL_DECL, NULL_TREE, NULL_TREE);
3575 return add_stmt (build_case_label (low_value, high_value, label));
3578 /* Find the condition on which this switch statement depends. */
3579 cond = SWITCH_STMT_COND (switch_stack->switch_stmt);
3580 if (cond && TREE_CODE (cond) == TREE_LIST)
3581 cond = TREE_VALUE (cond);
3583 if (!check_switch_goto (switch_stack->level))
3584 return error_mark_node;
3586 type = SWITCH_STMT_TYPE (switch_stack->switch_stmt);
3588 low_value = case_conversion (type, low_value);
3589 high_value = case_conversion (type, high_value);
3591 r = c_add_case_label (loc, switch_stack->cases, cond, type,
3592 low_value, high_value,
3593 &switch_stack->outside_range_p);
3595 /* After labels, make any new cleanups in the function go into their
3596 own new (temporary) binding contour. */
3597 for (p = current_binding_level;
3598 p->kind != sk_function_parms;
3599 p = p->level_chain)
3600 p->more_cleanups_ok = 0;
3602 return r;
3605 struct typename_info {
3606 tree scope;
3607 tree name;
3608 tree template_id;
3609 bool enum_p;
3610 bool class_p;
3613 struct typename_hasher : ggc_ptr_hash<tree_node>
3615 typedef typename_info *compare_type;
3617 /* Hash a TYPENAME_TYPE. */
3619 static hashval_t
3620 hash (tree t)
3622 hashval_t hash;
3624 hash = (htab_hash_pointer (TYPE_CONTEXT (t))
3625 ^ htab_hash_pointer (TYPE_IDENTIFIER (t)));
3627 return hash;
3630 /* Compare two TYPENAME_TYPEs. */
3632 static bool
3633 equal (tree t1, const typename_info *t2)
3635 return (TYPE_IDENTIFIER (t1) == t2->name
3636 && TYPE_CONTEXT (t1) == t2->scope
3637 && TYPENAME_TYPE_FULLNAME (t1) == t2->template_id
3638 && TYPENAME_IS_ENUM_P (t1) == t2->enum_p
3639 && TYPENAME_IS_CLASS_P (t1) == t2->class_p);
3643 /* Build a TYPENAME_TYPE. If the type is `typename T::t', CONTEXT is
3644 the type of `T', NAME is the IDENTIFIER_NODE for `t'.
3646 Returns the new TYPENAME_TYPE. */
3648 static GTY (()) hash_table<typename_hasher> *typename_htab;
3650 tree
3651 build_typename_type (tree context, tree name, tree fullname,
3652 enum tag_types tag_type)
3654 tree t;
3655 tree d;
3656 typename_info ti;
3657 tree *e;
3658 hashval_t hash;
3660 if (typename_htab == NULL)
3661 typename_htab = hash_table<typename_hasher>::create_ggc (61);
3663 ti.scope = FROB_CONTEXT (context);
3664 ti.name = name;
3665 ti.template_id = fullname;
3666 ti.enum_p = tag_type == enum_type;
3667 ti.class_p = (tag_type == class_type
3668 || tag_type == record_type
3669 || tag_type == union_type);
3670 hash = (htab_hash_pointer (ti.scope)
3671 ^ htab_hash_pointer (ti.name));
3673 /* See if we already have this type. */
3674 e = typename_htab->find_slot_with_hash (&ti, hash, INSERT);
3675 if (*e)
3676 t = *e;
3677 else
3679 /* Build the TYPENAME_TYPE. */
3680 t = cxx_make_type (TYPENAME_TYPE);
3681 TYPE_CONTEXT (t) = ti.scope;
3682 TYPENAME_TYPE_FULLNAME (t) = ti.template_id;
3683 TYPENAME_IS_ENUM_P (t) = ti.enum_p;
3684 TYPENAME_IS_CLASS_P (t) = ti.class_p;
3686 /* Build the corresponding TYPE_DECL. */
3687 d = build_decl (input_location, TYPE_DECL, name, t);
3688 TYPE_NAME (TREE_TYPE (d)) = d;
3689 TYPE_STUB_DECL (TREE_TYPE (d)) = d;
3690 DECL_CONTEXT (d) = FROB_CONTEXT (context);
3691 DECL_ARTIFICIAL (d) = 1;
3693 /* Store it in the hash table. */
3694 *e = t;
3696 /* TYPENAME_TYPEs must always be compared structurally, because
3697 they may or may not resolve down to another type depending on
3698 the currently open classes. */
3699 SET_TYPE_STRUCTURAL_EQUALITY (t);
3702 return t;
3705 /* Resolve `typename CONTEXT::NAME'. TAG_TYPE indicates the tag
3706 provided to name the type. Returns an appropriate type, unless an
3707 error occurs, in which case error_mark_node is returned. If we
3708 locate a non-artificial TYPE_DECL and TF_KEEP_TYPE_DECL is set, we
3709 return that, rather than the _TYPE it corresponds to, in other
3710 cases we look through the type decl. If TF_ERROR is set, complain
3711 about errors, otherwise be quiet. */
3713 tree
3714 make_typename_type (tree context, tree name, enum tag_types tag_type,
3715 tsubst_flags_t complain)
3717 tree fullname;
3718 tree t;
3719 bool want_template;
3721 if (name == error_mark_node
3722 || context == NULL_TREE
3723 || context == error_mark_node)
3724 return error_mark_node;
3726 if (TYPE_P (name))
3728 if (!(TYPE_LANG_SPECIFIC (name)
3729 && (CLASSTYPE_IS_TEMPLATE (name)
3730 || CLASSTYPE_USE_TEMPLATE (name))))
3731 name = TYPE_IDENTIFIER (name);
3732 else
3733 /* Create a TEMPLATE_ID_EXPR for the type. */
3734 name = build_nt (TEMPLATE_ID_EXPR,
3735 CLASSTYPE_TI_TEMPLATE (name),
3736 CLASSTYPE_TI_ARGS (name));
3738 else if (TREE_CODE (name) == TYPE_DECL)
3739 name = DECL_NAME (name);
3741 fullname = name;
3743 if (TREE_CODE (name) == TEMPLATE_ID_EXPR)
3745 name = TREE_OPERAND (name, 0);
3746 if (DECL_TYPE_TEMPLATE_P (name))
3747 name = TREE_OPERAND (fullname, 0) = DECL_NAME (name);
3748 if (TREE_CODE (name) != IDENTIFIER_NODE)
3750 if (complain & tf_error)
3751 error ("%qD is not a type", name);
3752 return error_mark_node;
3755 if (TREE_CODE (name) == TEMPLATE_DECL)
3757 if (complain & tf_error)
3758 error ("%qD used without template parameters", name);
3759 return error_mark_node;
3761 gcc_assert (identifier_p (name));
3762 gcc_assert (TYPE_P (context));
3764 if (!MAYBE_CLASS_TYPE_P (context))
3766 if (complain & tf_error)
3767 error ("%q#T is not a class", context);
3768 return error_mark_node;
3771 /* When the CONTEXT is a dependent type, NAME could refer to a
3772 dependent base class of CONTEXT. But look inside it anyway
3773 if CONTEXT is a currently open scope, in case it refers to a
3774 member of the current instantiation or a non-dependent base;
3775 lookup will stop when we hit a dependent base. */
3776 if (!dependent_scope_p (context))
3777 /* We should only set WANT_TYPE when we're a nested typename type.
3778 Then we can give better diagnostics if we find a non-type. */
3779 t = lookup_field (context, name, 2, /*want_type=*/true);
3780 else
3781 t = NULL_TREE;
3783 if ((!t || TREE_CODE (t) == TREE_LIST) && dependent_type_p (context))
3784 return build_typename_type (context, name, fullname, tag_type);
3786 want_template = TREE_CODE (fullname) == TEMPLATE_ID_EXPR;
3788 if (!t)
3790 if (complain & tf_error)
3792 if (!COMPLETE_TYPE_P (context))
3793 cxx_incomplete_type_error (NULL_TREE, context);
3794 else
3795 error (want_template ? G_("no class template named %q#T in %q#T")
3796 : G_("no type named %q#T in %q#T"), name, context);
3798 return error_mark_node;
3801 /* Pull out the template from an injected-class-name (or multiple). */
3802 if (want_template)
3803 t = maybe_get_template_decl_from_type_decl (t);
3805 if (TREE_CODE (t) == TREE_LIST)
3807 if (complain & tf_error)
3809 error ("lookup of %qT in %qT is ambiguous", name, context);
3810 print_candidates (t);
3812 return error_mark_node;
3815 if (want_template && !DECL_TYPE_TEMPLATE_P (t))
3817 if (complain & tf_error)
3818 error ("%<typename %T::%D%> names %q#T, which is not a class template",
3819 context, name, t);
3820 return error_mark_node;
3822 if (!want_template && TREE_CODE (t) != TYPE_DECL)
3824 if (complain & tf_error)
3825 error ("%<typename %T::%D%> names %q#T, which is not a type",
3826 context, name, t);
3827 return error_mark_node;
3830 if (!perform_or_defer_access_check (TYPE_BINFO (context), t, t, complain))
3831 return error_mark_node;
3833 /* If we are currently parsing a template and if T is a typedef accessed
3834 through CONTEXT then we need to remember and check access of T at
3835 template instantiation time. */
3836 add_typedef_to_current_template_for_access_check (t, context, input_location);
3838 if (want_template)
3839 return lookup_template_class (t, TREE_OPERAND (fullname, 1),
3840 NULL_TREE, context,
3841 /*entering_scope=*/0,
3842 complain | tf_user);
3844 if (DECL_ARTIFICIAL (t) || !(complain & tf_keep_type_decl))
3845 t = TREE_TYPE (t);
3847 maybe_record_typedef_use (t);
3849 return t;
3852 /* Resolve `CONTEXT::template NAME'. Returns a TEMPLATE_DECL if the name
3853 can be resolved or an UNBOUND_CLASS_TEMPLATE, unless an error occurs,
3854 in which case error_mark_node is returned.
3856 If PARM_LIST is non-NULL, also make sure that the template parameter
3857 list of TEMPLATE_DECL matches.
3859 If COMPLAIN zero, don't complain about any errors that occur. */
3861 tree
3862 make_unbound_class_template (tree context, tree name, tree parm_list,
3863 tsubst_flags_t complain)
3865 tree t;
3866 tree d;
3868 if (TYPE_P (name))
3869 name = TYPE_IDENTIFIER (name);
3870 else if (DECL_P (name))
3871 name = DECL_NAME (name);
3872 gcc_assert (identifier_p (name));
3874 if (!dependent_type_p (context)
3875 || currently_open_class (context))
3877 tree tmpl = NULL_TREE;
3879 if (MAYBE_CLASS_TYPE_P (context))
3880 tmpl = lookup_field (context, name, 0, false);
3882 if (tmpl && TREE_CODE (tmpl) == TYPE_DECL)
3883 tmpl = maybe_get_template_decl_from_type_decl (tmpl);
3885 if (!tmpl || !DECL_TYPE_TEMPLATE_P (tmpl))
3887 if (complain & tf_error)
3888 error ("no class template named %q#T in %q#T", name, context);
3889 return error_mark_node;
3892 if (parm_list
3893 && !comp_template_parms (DECL_TEMPLATE_PARMS (tmpl), parm_list))
3895 if (complain & tf_error)
3897 error ("template parameters do not match template %qD", tmpl);
3898 inform (DECL_SOURCE_LOCATION (tmpl),
3899 "%qD declared here", tmpl);
3901 return error_mark_node;
3904 if (!perform_or_defer_access_check (TYPE_BINFO (context), tmpl, tmpl,
3905 complain))
3906 return error_mark_node;
3908 return tmpl;
3911 /* Build the UNBOUND_CLASS_TEMPLATE. */
3912 t = cxx_make_type (UNBOUND_CLASS_TEMPLATE);
3913 TYPE_CONTEXT (t) = FROB_CONTEXT (context);
3914 TREE_TYPE (t) = NULL_TREE;
3915 SET_TYPE_STRUCTURAL_EQUALITY (t);
3917 /* Build the corresponding TEMPLATE_DECL. */
3918 d = build_decl (input_location, TEMPLATE_DECL, name, t);
3919 TYPE_NAME (TREE_TYPE (d)) = d;
3920 TYPE_STUB_DECL (TREE_TYPE (d)) = d;
3921 DECL_CONTEXT (d) = FROB_CONTEXT (context);
3922 DECL_ARTIFICIAL (d) = 1;
3923 DECL_TEMPLATE_PARMS (d) = parm_list;
3925 return t;
3930 /* Push the declarations of builtin types into the global namespace.
3931 RID_INDEX is the index of the builtin type in the array
3932 RID_POINTERS. NAME is the name used when looking up the builtin
3933 type. TYPE is the _TYPE node for the builtin type.
3935 The calls to set_global_binding below should be
3936 eliminated. Built-in types should not be looked up name; their
3937 names are keywords that the parser can recognize. However, there
3938 is code in c-common.c that uses identifier_global_value to look up
3939 built-in types by name. */
3941 void
3942 record_builtin_type (enum rid rid_index,
3943 const char* name,
3944 tree type)
3946 tree decl = NULL_TREE;
3948 if (name)
3950 tree tname = get_identifier (name);
3951 tree tdecl = build_decl (BUILTINS_LOCATION, TYPE_DECL, tname, type);
3952 DECL_ARTIFICIAL (tdecl) = 1;
3953 set_global_binding (tdecl);
3954 decl = tdecl;
3957 if ((int) rid_index < (int) RID_MAX)
3958 if (tree rname = ridpointers[(int) rid_index])
3959 if (!decl || DECL_NAME (decl) != rname)
3961 tree rdecl = build_decl (BUILTINS_LOCATION, TYPE_DECL, rname, type);
3962 DECL_ARTIFICIAL (rdecl) = 1;
3963 set_global_binding (rdecl);
3964 if (!decl)
3965 decl = rdecl;
3968 if (decl)
3970 if (!TYPE_NAME (type))
3971 TYPE_NAME (type) = decl;
3972 debug_hooks->type_decl (decl, 0);
3976 /* Push a type into the namespace so that the back ends ignore it. */
3978 static void
3979 record_unknown_type (tree type, const char* name)
3981 tree decl = pushdecl (build_decl (UNKNOWN_LOCATION,
3982 TYPE_DECL, get_identifier (name), type));
3983 /* Make sure the "unknown type" typedecl gets ignored for debug info. */
3984 DECL_IGNORED_P (decl) = 1;
3985 TYPE_DECL_SUPPRESS_DEBUG (decl) = 1;
3986 TYPE_SIZE (type) = TYPE_SIZE (void_type_node);
3987 SET_TYPE_ALIGN (type, 1);
3988 TYPE_USER_ALIGN (type) = 0;
3989 SET_TYPE_MODE (type, TYPE_MODE (void_type_node));
3992 /* Create all the predefined identifiers. */
3994 static void
3995 initialize_predefined_identifiers (void)
3997 struct predefined_identifier
3999 const char *name; /* Name. */
4000 tree *node; /* Node to store it in. */
4001 cp_identifier_kind kind; /* Kind of identifier. */
4004 /* A table of identifiers to create at startup. */
4005 static const predefined_identifier predefined_identifiers[] = {
4006 {"C++", &lang_name_cplusplus, cik_normal},
4007 {"C", &lang_name_c, cik_normal},
4008 /* Some of these names have a trailing space so that it is
4009 impossible for them to conflict with names written by users. */
4010 {"__ct ", &ctor_identifier, cik_ctor},
4011 {"__ct_base ", &base_ctor_identifier, cik_ctor},
4012 {"__ct_comp ", &complete_ctor_identifier, cik_ctor},
4013 {"__dt ", &dtor_identifier, cik_dtor},
4014 {"__dt_base ", &base_dtor_identifier, cik_dtor},
4015 {"__dt_comp ", &complete_dtor_identifier, cik_dtor},
4016 {"__dt_del ", &deleting_dtor_identifier, cik_dtor},
4017 {"__conv_op ", &conv_op_identifier, cik_conv_op},
4018 {"__in_chrg", &in_charge_identifier, cik_normal},
4019 {"this", &this_identifier, cik_normal},
4020 {"__delta", &delta_identifier, cik_normal},
4021 {"__pfn", &pfn_identifier, cik_normal},
4022 {"_vptr", &vptr_identifier, cik_normal},
4023 {"__vtt_parm", &vtt_parm_identifier, cik_normal},
4024 {"::", &global_identifier, cik_normal},
4025 {"std", &std_identifier, cik_normal},
4026 /* The demangler expects anonymous namespaces to be called
4027 something starting with '_GLOBAL__N_'. It no longer needs
4028 to be unique to the TU. */
4029 {"_GLOBAL__N_1", &anon_identifier, cik_normal},
4030 {"auto", &auto_identifier, cik_normal},
4031 {"decltype(auto)", &decltype_auto_identifier, cik_normal},
4032 {"initializer_list", &init_list_identifier, cik_normal},
4033 {NULL, NULL, cik_normal}
4036 for (const predefined_identifier *pid = predefined_identifiers;
4037 pid->name; ++pid)
4039 *pid->node = get_identifier (pid->name);
4040 /* Some of these identifiers already have a special kind. */
4041 if (pid->kind != cik_normal)
4042 set_identifier_kind (*pid->node, pid->kind);
4046 /* Create the predefined scalar types of C,
4047 and some nodes representing standard constants (0, 1, (void *)0).
4048 Initialize the global binding level.
4049 Make definitions for built-in primitive functions. */
4051 void
4052 cxx_init_decl_processing (void)
4054 tree void_ftype;
4055 tree void_ftype_ptr;
4057 /* Create all the identifiers we need. */
4058 initialize_predefined_identifiers ();
4060 /* Create the global variables. */
4061 push_to_top_level ();
4063 current_function_decl = NULL_TREE;
4064 current_binding_level = NULL;
4065 /* Enter the global namespace. */
4066 gcc_assert (global_namespace == NULL_TREE);
4067 global_namespace = build_lang_decl (NAMESPACE_DECL, global_identifier,
4068 void_type_node);
4069 TREE_PUBLIC (global_namespace) = 1;
4070 DECL_CONTEXT (global_namespace)
4071 = build_translation_unit_decl (get_identifier (main_input_filename));
4072 /* Remember whether we want the empty class passing ABI change warning
4073 in this TU. */
4074 TRANSLATION_UNIT_WARN_EMPTY_P (DECL_CONTEXT (global_namespace))
4075 = warn_abi && abi_version_crosses (12);
4076 debug_hooks->register_main_translation_unit
4077 (DECL_CONTEXT (global_namespace));
4078 begin_scope (sk_namespace, global_namespace);
4079 current_namespace = global_namespace;
4081 if (flag_visibility_ms_compat)
4082 default_visibility = VISIBILITY_HIDDEN;
4084 /* Initially, C. */
4085 current_lang_name = lang_name_c;
4087 /* Create the `std' namespace. */
4088 push_namespace (std_identifier);
4089 std_node = current_namespace;
4090 pop_namespace ();
4092 flag_noexcept_type = (cxx_dialect >= cxx17);
4094 c_common_nodes_and_builtins ();
4096 integer_two_node = build_int_cst (NULL_TREE, 2);
4098 /* Guess at the initial static decls size. */
4099 vec_alloc (static_decls, 500);
4101 /* ... and keyed classes. */
4102 vec_alloc (keyed_classes, 100);
4104 record_builtin_type (RID_BOOL, "bool", boolean_type_node);
4105 truthvalue_type_node = boolean_type_node;
4106 truthvalue_false_node = boolean_false_node;
4107 truthvalue_true_node = boolean_true_node;
4109 empty_except_spec = build_tree_list (NULL_TREE, NULL_TREE);
4110 noexcept_true_spec = build_tree_list (boolean_true_node, NULL_TREE);
4111 noexcept_false_spec = build_tree_list (boolean_false_node, NULL_TREE);
4112 noexcept_deferred_spec = build_tree_list (make_node (DEFERRED_NOEXCEPT),
4113 NULL_TREE);
4115 #if 0
4116 record_builtin_type (RID_MAX, NULL, string_type_node);
4117 #endif
4119 delta_type_node = ptrdiff_type_node;
4120 vtable_index_type = ptrdiff_type_node;
4122 vtt_parm_type = build_pointer_type (const_ptr_type_node);
4123 void_ftype = build_function_type_list (void_type_node, NULL_TREE);
4124 void_ftype_ptr = build_function_type_list (void_type_node,
4125 ptr_type_node, NULL_TREE);
4126 void_ftype_ptr
4127 = build_exception_variant (void_ftype_ptr, empty_except_spec);
4129 /* Create the conversion operator marker. This operator's DECL_NAME
4130 is in the identifier table, so we can use identifier equality to
4131 find it. */
4132 conv_op_marker = build_lang_decl (FUNCTION_DECL, conv_op_identifier,
4133 void_ftype);
4135 /* C++ extensions */
4137 unknown_type_node = make_node (LANG_TYPE);
4138 record_unknown_type (unknown_type_node, "unknown type");
4140 /* Indirecting an UNKNOWN_TYPE node yields an UNKNOWN_TYPE node. */
4141 TREE_TYPE (unknown_type_node) = unknown_type_node;
4143 /* Looking up TYPE_POINTER_TO and TYPE_REFERENCE_TO yield the same
4144 result. */
4145 TYPE_POINTER_TO (unknown_type_node) = unknown_type_node;
4146 TYPE_REFERENCE_TO (unknown_type_node) = unknown_type_node;
4148 init_list_type_node = make_node (LANG_TYPE);
4149 record_unknown_type (init_list_type_node, "init list");
4152 /* Make sure we get a unique function type, so we can give
4153 its pointer type a name. (This wins for gdb.) */
4154 tree vfunc_type = make_node (FUNCTION_TYPE);
4155 TREE_TYPE (vfunc_type) = integer_type_node;
4156 TYPE_ARG_TYPES (vfunc_type) = NULL_TREE;
4157 layout_type (vfunc_type);
4159 vtable_entry_type = build_pointer_type (vfunc_type);
4161 record_builtin_type (RID_MAX, "__vtbl_ptr_type", vtable_entry_type);
4163 vtbl_type_node
4164 = build_cplus_array_type (vtable_entry_type, NULL_TREE);
4165 layout_type (vtbl_type_node);
4166 vtbl_type_node = cp_build_qualified_type (vtbl_type_node, TYPE_QUAL_CONST);
4167 record_builtin_type (RID_MAX, NULL, vtbl_type_node);
4168 vtbl_ptr_type_node = build_pointer_type (vtable_entry_type);
4169 layout_type (vtbl_ptr_type_node);
4170 record_builtin_type (RID_MAX, NULL, vtbl_ptr_type_node);
4172 push_namespace (get_identifier ("__cxxabiv1"));
4173 abi_node = current_namespace;
4174 pop_namespace ();
4176 global_type_node = make_node (LANG_TYPE);
4177 record_unknown_type (global_type_node, "global type");
4179 any_targ_node = make_node (LANG_TYPE);
4180 record_unknown_type (any_targ_node, "any type");
4182 /* Now, C++. */
4183 current_lang_name = lang_name_cplusplus;
4185 if (aligned_new_threshold > 1
4186 && !pow2p_hwi (aligned_new_threshold))
4188 error ("-faligned-new=%d is not a power of two", aligned_new_threshold);
4189 aligned_new_threshold = 1;
4191 if (aligned_new_threshold == -1)
4192 aligned_new_threshold = (cxx_dialect >= cxx17) ? 1 : 0;
4193 if (aligned_new_threshold == 1)
4194 aligned_new_threshold = malloc_alignment () / BITS_PER_UNIT;
4197 tree newattrs, extvisattr;
4198 tree newtype, deltype;
4199 tree ptr_ftype_sizetype;
4200 tree new_eh_spec;
4202 ptr_ftype_sizetype
4203 = build_function_type_list (ptr_type_node, size_type_node, NULL_TREE);
4204 if (cxx_dialect == cxx98)
4206 tree bad_alloc_id;
4207 tree bad_alloc_type_node;
4208 tree bad_alloc_decl;
4210 push_namespace (std_identifier);
4211 bad_alloc_id = get_identifier ("bad_alloc");
4212 bad_alloc_type_node = make_class_type (RECORD_TYPE);
4213 TYPE_CONTEXT (bad_alloc_type_node) = current_namespace;
4214 bad_alloc_decl
4215 = create_implicit_typedef (bad_alloc_id, bad_alloc_type_node);
4216 DECL_CONTEXT (bad_alloc_decl) = current_namespace;
4217 pop_namespace ();
4219 new_eh_spec
4220 = add_exception_specifier (NULL_TREE, bad_alloc_type_node, -1);
4222 else
4223 new_eh_spec = noexcept_false_spec;
4225 /* Ensure attribs.c is initialized. */
4226 init_attributes ();
4228 /* Ensure constraint.cc is initialized. */
4229 init_constraint_processing ();
4231 extvisattr = build_tree_list (get_identifier ("externally_visible"),
4232 NULL_TREE);
4233 newattrs = tree_cons (get_identifier ("alloc_size"),
4234 build_tree_list (NULL_TREE, integer_one_node),
4235 extvisattr);
4236 newtype = cp_build_type_attribute_variant (ptr_ftype_sizetype, newattrs);
4237 newtype = build_exception_variant (newtype, new_eh_spec);
4238 deltype = cp_build_type_attribute_variant (void_ftype_ptr, extvisattr);
4239 deltype = build_exception_variant (deltype, empty_except_spec);
4240 tree opnew = push_cp_library_fn (NEW_EXPR, newtype, 0);
4241 DECL_IS_MALLOC (opnew) = 1;
4242 DECL_IS_OPERATOR_NEW (opnew) = 1;
4243 opnew = push_cp_library_fn (VEC_NEW_EXPR, newtype, 0);
4244 DECL_IS_MALLOC (opnew) = 1;
4245 DECL_IS_OPERATOR_NEW (opnew) = 1;
4246 push_cp_library_fn (DELETE_EXPR, deltype, ECF_NOTHROW);
4247 push_cp_library_fn (VEC_DELETE_EXPR, deltype, ECF_NOTHROW);
4248 if (flag_sized_deallocation)
4250 /* Also push the sized deallocation variants:
4251 void operator delete(void*, std::size_t) throw();
4252 void operator delete[](void*, std::size_t) throw(); */
4253 tree void_ftype_ptr_size
4254 = build_function_type_list (void_type_node, ptr_type_node,
4255 size_type_node, NULL_TREE);
4256 deltype = cp_build_type_attribute_variant (void_ftype_ptr_size,
4257 extvisattr);
4258 deltype = build_exception_variant (deltype, empty_except_spec);
4259 push_cp_library_fn (DELETE_EXPR, deltype, ECF_NOTHROW);
4260 push_cp_library_fn (VEC_DELETE_EXPR, deltype, ECF_NOTHROW);
4263 if (aligned_new_threshold)
4265 push_namespace (std_identifier);
4266 tree align_id = get_identifier ("align_val_t");
4267 align_type_node = start_enum (align_id, NULL_TREE, size_type_node,
4268 NULL_TREE, /*scoped*/true, NULL);
4269 pop_namespace ();
4271 /* operator new (size_t, align_val_t); */
4272 newtype = build_function_type_list (ptr_type_node, size_type_node,
4273 align_type_node, NULL_TREE);
4274 newtype = cp_build_type_attribute_variant (newtype, newattrs);
4275 newtype = build_exception_variant (newtype, new_eh_spec);
4276 opnew = push_cp_library_fn (NEW_EXPR, newtype, 0);
4277 DECL_IS_MALLOC (opnew) = 1;
4278 DECL_IS_OPERATOR_NEW (opnew) = 1;
4279 opnew = push_cp_library_fn (VEC_NEW_EXPR, newtype, 0);
4280 DECL_IS_MALLOC (opnew) = 1;
4281 DECL_IS_OPERATOR_NEW (opnew) = 1;
4283 /* operator delete (void *, align_val_t); */
4284 deltype = build_function_type_list (void_type_node, ptr_type_node,
4285 align_type_node, NULL_TREE);
4286 deltype = cp_build_type_attribute_variant (deltype, extvisattr);
4287 deltype = build_exception_variant (deltype, empty_except_spec);
4288 push_cp_library_fn (DELETE_EXPR, deltype, ECF_NOTHROW);
4289 push_cp_library_fn (VEC_DELETE_EXPR, deltype, ECF_NOTHROW);
4291 if (flag_sized_deallocation)
4293 /* operator delete (void *, size_t, align_val_t); */
4294 deltype = build_function_type_list (void_type_node, ptr_type_node,
4295 size_type_node, align_type_node,
4296 NULL_TREE);
4297 deltype = cp_build_type_attribute_variant (deltype, extvisattr);
4298 deltype = build_exception_variant (deltype, empty_except_spec);
4299 push_cp_library_fn (DELETE_EXPR, deltype, ECF_NOTHROW);
4300 push_cp_library_fn (VEC_DELETE_EXPR, deltype, ECF_NOTHROW);
4304 nullptr_type_node = make_node (NULLPTR_TYPE);
4305 TYPE_SIZE (nullptr_type_node) = bitsize_int (GET_MODE_BITSIZE (ptr_mode));
4306 TYPE_SIZE_UNIT (nullptr_type_node) = size_int (GET_MODE_SIZE (ptr_mode));
4307 TYPE_UNSIGNED (nullptr_type_node) = 1;
4308 TYPE_PRECISION (nullptr_type_node) = GET_MODE_BITSIZE (ptr_mode);
4309 if (abi_version_at_least (9))
4310 SET_TYPE_ALIGN (nullptr_type_node, GET_MODE_ALIGNMENT (ptr_mode));
4311 SET_TYPE_MODE (nullptr_type_node, ptr_mode);
4312 record_builtin_type (RID_MAX, "decltype(nullptr)", nullptr_type_node);
4313 nullptr_node = build_int_cst (nullptr_type_node, 0);
4316 abort_fndecl
4317 = build_library_fn_ptr ("__cxa_pure_virtual", void_ftype,
4318 ECF_NORETURN | ECF_NOTHROW | ECF_COLD);
4320 /* Perform other language dependent initializations. */
4321 init_class_processing ();
4322 init_rtti_processing ();
4323 init_template_processing ();
4325 if (flag_exceptions)
4326 init_exception_processing ();
4328 if (! supports_one_only ())
4329 flag_weak = 0;
4331 make_fname_decl = cp_make_fname_decl;
4332 start_fname_decls ();
4334 /* Show we use EH for cleanups. */
4335 if (flag_exceptions)
4336 using_eh_for_cleanups ();
4339 /* Generate an initializer for a function naming variable from
4340 NAME. NAME may be NULL, to indicate a dependent name. TYPE_P is
4341 filled in with the type of the init. */
4343 tree
4344 cp_fname_init (const char* name, tree *type_p)
4346 tree domain = NULL_TREE;
4347 tree type;
4348 tree init = NULL_TREE;
4349 size_t length = 0;
4351 if (name)
4353 length = strlen (name);
4354 domain = build_index_type (size_int (length));
4355 init = build_string (length + 1, name);
4358 type = cp_build_qualified_type (char_type_node, TYPE_QUAL_CONST);
4359 type = build_cplus_array_type (type, domain);
4361 *type_p = type;
4363 if (init)
4364 TREE_TYPE (init) = type;
4365 else
4366 init = error_mark_node;
4368 return init;
4371 /* Create the VAR_DECL for __FUNCTION__ etc. ID is the name to give
4372 the decl, LOC is the location to give the decl, NAME is the
4373 initialization string and TYPE_DEP indicates whether NAME depended
4374 on the type of the function. We make use of that to detect
4375 __PRETTY_FUNCTION__ inside a template fn. This is being done lazily
4376 at the point of first use, so we mustn't push the decl now. */
4378 static tree
4379 cp_make_fname_decl (location_t loc, tree id, int type_dep)
4381 const char *const name = (type_dep && processing_template_decl
4382 ? NULL : fname_as_string (type_dep));
4383 tree type;
4384 tree init = cp_fname_init (name, &type);
4385 tree decl = build_decl (loc, VAR_DECL, id, type);
4387 if (name)
4388 free (CONST_CAST (char *, name));
4390 TREE_STATIC (decl) = 1;
4391 TREE_READONLY (decl) = 1;
4392 DECL_ARTIFICIAL (decl) = 1;
4394 TREE_USED (decl) = 1;
4396 if (current_function_decl)
4398 DECL_CONTEXT (decl) = current_function_decl;
4399 decl = pushdecl_outermost_localscope (decl);
4400 cp_finish_decl (decl, init, /*init_const_expr_p=*/false, NULL_TREE,
4401 LOOKUP_ONLYCONVERTING);
4403 else
4405 DECL_THIS_STATIC (decl) = true;
4406 pushdecl_top_level_and_finish (decl, init);
4409 return decl;
4412 static tree
4413 builtin_function_1 (tree decl, tree context, bool is_global)
4415 tree id = DECL_NAME (decl);
4416 const char *name = IDENTIFIER_POINTER (id);
4418 retrofit_lang_decl (decl);
4420 DECL_ARTIFICIAL (decl) = 1;
4421 SET_DECL_LANGUAGE (decl, lang_c);
4422 /* Runtime library routines are, by definition, available in an
4423 external shared object. */
4424 DECL_VISIBILITY (decl) = VISIBILITY_DEFAULT;
4425 DECL_VISIBILITY_SPECIFIED (decl) = 1;
4427 DECL_CONTEXT (decl) = context;
4429 /* A function in the user's namespace should have an explicit
4430 declaration before it is used. Mark the built-in function as
4431 anticipated but not actually declared. */
4432 if (name[0] != '_' || name[1] != '_')
4433 DECL_ANTICIPATED (decl) = 1;
4434 else if (strncmp (name + 2, "builtin_", strlen ("builtin_")) != 0)
4436 size_t len = strlen (name);
4438 /* Treat __*_chk fortification functions as anticipated as well,
4439 unless they are __builtin_*. */
4440 if (len > strlen ("___chk")
4441 && memcmp (name + len - strlen ("_chk"),
4442 "_chk", strlen ("_chk") + 1) == 0)
4443 DECL_ANTICIPATED (decl) = 1;
4446 if (is_global)
4447 pushdecl_top_level (decl);
4448 else
4449 pushdecl (decl);
4451 return decl;
4454 tree
4455 cxx_builtin_function (tree decl)
4457 tree id = DECL_NAME (decl);
4458 const char *name = IDENTIFIER_POINTER (id);
4459 /* All builtins that don't begin with an '_' should additionally
4460 go in the 'std' namespace. */
4461 if (name[0] != '_')
4463 tree decl2 = copy_node(decl);
4464 push_namespace (std_identifier);
4465 builtin_function_1 (decl2, std_node, false);
4466 pop_namespace ();
4469 return builtin_function_1 (decl, NULL_TREE, false);
4472 /* Like cxx_builtin_function, but guarantee the function is added to the global
4473 scope. This is to allow function specific options to add new machine
4474 dependent builtins when the target ISA changes via attribute((target(...)))
4475 which saves space on program startup if the program does not use non-generic
4476 ISAs. */
4478 tree
4479 cxx_builtin_function_ext_scope (tree decl)
4482 tree id = DECL_NAME (decl);
4483 const char *name = IDENTIFIER_POINTER (id);
4484 /* All builtins that don't begin with an '_' should additionally
4485 go in the 'std' namespace. */
4486 if (name[0] != '_')
4488 tree decl2 = copy_node(decl);
4489 push_namespace (std_identifier);
4490 builtin_function_1 (decl2, std_node, true);
4491 pop_namespace ();
4494 return builtin_function_1 (decl, NULL_TREE, true);
4497 /* Generate a FUNCTION_DECL with the typical flags for a runtime library
4498 function. Not called directly. */
4500 static tree
4501 build_library_fn (tree name, enum tree_code operator_code, tree type,
4502 int ecf_flags)
4504 tree fn = build_lang_decl (FUNCTION_DECL, name, type);
4505 DECL_EXTERNAL (fn) = 1;
4506 TREE_PUBLIC (fn) = 1;
4507 DECL_ARTIFICIAL (fn) = 1;
4508 DECL_OVERLOADED_OPERATOR_CODE_RAW (fn)
4509 = OVL_OP_INFO (false, operator_code)->ovl_op_code;
4510 SET_DECL_LANGUAGE (fn, lang_c);
4511 /* Runtime library routines are, by definition, available in an
4512 external shared object. */
4513 DECL_VISIBILITY (fn) = VISIBILITY_DEFAULT;
4514 DECL_VISIBILITY_SPECIFIED (fn) = 1;
4515 set_call_expr_flags (fn, ecf_flags);
4516 return fn;
4519 /* Returns the _DECL for a library function with C++ linkage. */
4521 static tree
4522 build_cp_library_fn (tree name, enum tree_code operator_code, tree type,
4523 int ecf_flags)
4525 tree fn = build_library_fn (name, operator_code, type, ecf_flags);
4526 DECL_CONTEXT (fn) = FROB_CONTEXT (current_namespace);
4527 SET_DECL_LANGUAGE (fn, lang_cplusplus);
4528 return fn;
4531 /* Like build_library_fn, but takes a C string instead of an
4532 IDENTIFIER_NODE. */
4534 tree
4535 build_library_fn_ptr (const char* name, tree type, int ecf_flags)
4537 return build_library_fn (get_identifier (name), ERROR_MARK, type, ecf_flags);
4540 /* Like build_cp_library_fn, but takes a C string instead of an
4541 IDENTIFIER_NODE. */
4543 tree
4544 build_cp_library_fn_ptr (const char* name, tree type, int ecf_flags)
4546 return build_cp_library_fn (get_identifier (name), ERROR_MARK, type,
4547 ecf_flags);
4550 /* Like build_library_fn, but also pushes the function so that we will
4551 be able to find it via get_global_binding. Also, the function
4552 may throw exceptions listed in RAISES. */
4554 tree
4555 push_library_fn (tree name, tree type, tree raises, int ecf_flags)
4557 tree fn;
4559 if (raises)
4560 type = build_exception_variant (type, raises);
4562 fn = build_library_fn (name, ERROR_MARK, type, ecf_flags);
4563 pushdecl_top_level (fn);
4564 return fn;
4567 /* Like build_cp_library_fn, but also pushes the function so that it
4568 will be found by normal lookup. */
4570 static tree
4571 push_cp_library_fn (enum tree_code operator_code, tree type,
4572 int ecf_flags)
4574 tree fn = build_cp_library_fn (ovl_op_identifier (false, operator_code),
4575 operator_code, type, ecf_flags);
4576 pushdecl (fn);
4577 if (flag_tm)
4578 apply_tm_attr (fn, get_identifier ("transaction_safe"));
4579 return fn;
4582 /* Like push_library_fn, but takes a TREE_LIST of parm types rather than
4583 a FUNCTION_TYPE. */
4585 tree
4586 push_void_library_fn (tree name, tree parmtypes, int ecf_flags)
4588 tree type = build_function_type (void_type_node, parmtypes);
4589 return push_library_fn (name, type, NULL_TREE, ecf_flags);
4592 /* Like push_library_fn, but also note that this function throws
4593 and does not return. Used for __throw_foo and the like. */
4595 tree
4596 push_throw_library_fn (tree name, tree type)
4598 tree fn = push_library_fn (name, type, NULL_TREE, ECF_NORETURN | ECF_COLD);
4599 return fn;
4602 /* When we call finish_struct for an anonymous union, we create
4603 default copy constructors and such. But, an anonymous union
4604 shouldn't have such things; this function undoes the damage to the
4605 anonymous union type T.
4607 (The reason that we create the synthesized methods is that we don't
4608 distinguish `union { int i; }' from `typedef union { int i; } U'.
4609 The first is an anonymous union; the second is just an ordinary
4610 union type.) */
4612 void
4613 fixup_anonymous_aggr (tree t)
4615 /* Wipe out memory of synthesized methods. */
4616 TYPE_HAS_USER_CONSTRUCTOR (t) = 0;
4617 TYPE_HAS_DEFAULT_CONSTRUCTOR (t) = 0;
4618 TYPE_HAS_COPY_CTOR (t) = 0;
4619 TYPE_HAS_CONST_COPY_CTOR (t) = 0;
4620 TYPE_HAS_COPY_ASSIGN (t) = 0;
4621 TYPE_HAS_CONST_COPY_ASSIGN (t) = 0;
4623 /* Splice the implicitly generated functions out of TYPE_FIELDS. */
4624 for (tree probe, *prev_p = &TYPE_FIELDS (t); (probe = *prev_p);)
4625 if (TREE_CODE (probe) == FUNCTION_DECL && DECL_ARTIFICIAL (probe))
4626 *prev_p = DECL_CHAIN (probe);
4627 else
4628 prev_p = &DECL_CHAIN (probe);
4630 /* Anonymous aggregates cannot have fields with ctors, dtors or complex
4631 assignment operators (because they cannot have these methods themselves).
4632 For anonymous unions this is already checked because they are not allowed
4633 in any union, otherwise we have to check it. */
4634 if (TREE_CODE (t) != UNION_TYPE)
4636 tree field, type;
4638 for (field = TYPE_FIELDS (t); field; field = DECL_CHAIN (field))
4639 if (TREE_CODE (field) == FIELD_DECL)
4641 type = TREE_TYPE (field);
4642 if (CLASS_TYPE_P (type))
4644 if (TYPE_NEEDS_CONSTRUCTING (type))
4645 error ("member %q+#D with constructor not allowed "
4646 "in anonymous aggregate", field);
4647 if (TYPE_HAS_NONTRIVIAL_DESTRUCTOR (type))
4648 error ("member %q+#D with destructor not allowed "
4649 "in anonymous aggregate", field);
4650 if (TYPE_HAS_COMPLEX_COPY_ASSIGN (type))
4651 error ("member %q+#D with copy assignment operator "
4652 "not allowed in anonymous aggregate", field);
4658 /* Warn for an attribute located at LOCATION that appertains to the
4659 class type CLASS_TYPE that has not been properly placed after its
4660 class-key, in it class-specifier. */
4662 void
4663 warn_misplaced_attr_for_class_type (source_location location,
4664 tree class_type)
4666 gcc_assert (OVERLOAD_TYPE_P (class_type));
4668 if (warning_at (location, OPT_Wattributes,
4669 "attribute ignored in declaration "
4670 "of %q#T", class_type))
4671 inform (location,
4672 "attribute for %q#T must follow the %qs keyword",
4673 class_type, class_key_or_enum_as_string (class_type));
4676 /* Make sure that a declaration with no declarator is well-formed, i.e.
4677 just declares a tagged type or anonymous union.
4679 Returns the type declared; or NULL_TREE if none. */
4681 tree
4682 check_tag_decl (cp_decl_specifier_seq *declspecs,
4683 bool explicit_type_instantiation_p)
4685 int saw_friend = decl_spec_seq_has_spec_p (declspecs, ds_friend);
4686 int saw_typedef = decl_spec_seq_has_spec_p (declspecs, ds_typedef);
4687 /* If a class, struct, or enum type is declared by the DECLSPECS
4688 (i.e, if a class-specifier, enum-specifier, or non-typename
4689 elaborated-type-specifier appears in the DECLSPECS),
4690 DECLARED_TYPE is set to the corresponding type. */
4691 tree declared_type = NULL_TREE;
4692 bool error_p = false;
4694 if (declspecs->multiple_types_p)
4695 error ("multiple types in one declaration");
4696 else if (declspecs->redefined_builtin_type)
4698 if (!in_system_header_at (input_location))
4699 permerror (declspecs->locations[ds_redefined_builtin_type_spec],
4700 "redeclaration of C++ built-in type %qT",
4701 declspecs->redefined_builtin_type);
4702 return NULL_TREE;
4705 if (declspecs->type
4706 && TYPE_P (declspecs->type)
4707 && ((TREE_CODE (declspecs->type) != TYPENAME_TYPE
4708 && MAYBE_CLASS_TYPE_P (declspecs->type))
4709 || TREE_CODE (declspecs->type) == ENUMERAL_TYPE))
4710 declared_type = declspecs->type;
4711 else if (declspecs->type == error_mark_node)
4712 error_p = true;
4713 if (declared_type == NULL_TREE && ! saw_friend && !error_p)
4714 permerror (input_location, "declaration does not declare anything");
4715 else if (declared_type != NULL_TREE && type_uses_auto (declared_type))
4717 error_at (declspecs->locations[ds_type_spec],
4718 "%<auto%> can only be specified for variables "
4719 "or function declarations");
4720 return error_mark_node;
4722 /* Check for an anonymous union. */
4723 else if (declared_type && RECORD_OR_UNION_CODE_P (TREE_CODE (declared_type))
4724 && TYPE_UNNAMED_P (declared_type))
4726 /* 7/3 In a simple-declaration, the optional init-declarator-list
4727 can be omitted only when declaring a class (clause 9) or
4728 enumeration (7.2), that is, when the decl-specifier-seq contains
4729 either a class-specifier, an elaborated-type-specifier with
4730 a class-key (9.1), or an enum-specifier. In these cases and
4731 whenever a class-specifier or enum-specifier is present in the
4732 decl-specifier-seq, the identifiers in these specifiers are among
4733 the names being declared by the declaration (as class-name,
4734 enum-names, or enumerators, depending on the syntax). In such
4735 cases, and except for the declaration of an unnamed bit-field (9.6),
4736 the decl-specifier-seq shall introduce one or more names into the
4737 program, or shall redeclare a name introduced by a previous
4738 declaration. [Example:
4739 enum { }; // ill-formed
4740 typedef class { }; // ill-formed
4741 --end example] */
4742 if (saw_typedef)
4744 error ("missing type-name in typedef-declaration");
4745 return NULL_TREE;
4747 /* Anonymous unions are objects, so they can have specifiers. */;
4748 SET_ANON_AGGR_TYPE_P (declared_type);
4750 if (TREE_CODE (declared_type) != UNION_TYPE
4751 && !in_system_header_at (input_location))
4752 pedwarn (input_location, OPT_Wpedantic, "ISO C++ prohibits anonymous structs");
4755 else
4757 if (decl_spec_seq_has_spec_p (declspecs, ds_inline))
4758 error_at (declspecs->locations[ds_inline],
4759 "%<inline%> can only be specified for functions");
4760 else if (decl_spec_seq_has_spec_p (declspecs, ds_virtual))
4761 error_at (declspecs->locations[ds_virtual],
4762 "%<virtual%> can only be specified for functions");
4763 else if (saw_friend
4764 && (!current_class_type
4765 || current_scope () != current_class_type))
4766 error_at (declspecs->locations[ds_friend],
4767 "%<friend%> can only be specified inside a class");
4768 else if (decl_spec_seq_has_spec_p (declspecs, ds_explicit))
4769 error_at (declspecs->locations[ds_explicit],
4770 "%<explicit%> can only be specified for constructors");
4771 else if (declspecs->storage_class)
4772 error_at (declspecs->locations[ds_storage_class],
4773 "a storage class can only be specified for objects "
4774 "and functions");
4775 else if (decl_spec_seq_has_spec_p (declspecs, ds_const))
4776 error_at (declspecs->locations[ds_const],
4777 "%<const%> can only be specified for objects and "
4778 "functions");
4779 else if (decl_spec_seq_has_spec_p (declspecs, ds_volatile))
4780 error_at (declspecs->locations[ds_volatile],
4781 "%<volatile%> can only be specified for objects and "
4782 "functions");
4783 else if (decl_spec_seq_has_spec_p (declspecs, ds_restrict))
4784 error_at (declspecs->locations[ds_restrict],
4785 "%<__restrict%> can only be specified for objects and "
4786 "functions");
4787 else if (decl_spec_seq_has_spec_p (declspecs, ds_thread))
4788 error_at (declspecs->locations[ds_thread],
4789 "%<__thread%> can only be specified for objects "
4790 "and functions");
4791 else if (saw_typedef)
4792 warning_at (declspecs->locations[ds_typedef], 0,
4793 "%<typedef%> was ignored in this declaration");
4794 else if (decl_spec_seq_has_spec_p (declspecs, ds_constexpr))
4795 error_at (declspecs->locations[ds_constexpr],
4796 "%<constexpr%> cannot be used for type declarations");
4799 if (declspecs->attributes && warn_attributes && declared_type)
4801 location_t loc;
4802 if (!CLASS_TYPE_P (declared_type)
4803 || !CLASSTYPE_TEMPLATE_INSTANTIATION (declared_type))
4804 /* For a non-template class, use the name location. */
4805 loc = location_of (declared_type);
4806 else
4807 /* For a template class (an explicit instantiation), use the
4808 current location. */
4809 loc = input_location;
4811 if (explicit_type_instantiation_p)
4812 /* [dcl.attr.grammar]/4:
4814 No attribute-specifier-seq shall appertain to an explicit
4815 instantiation. */
4817 if (warning_at (loc, OPT_Wattributes,
4818 "attribute ignored in explicit instantiation %q#T",
4819 declared_type))
4820 inform (loc,
4821 "no attribute can be applied to "
4822 "an explicit instantiation");
4824 else
4825 warn_misplaced_attr_for_class_type (loc, declared_type);
4828 return declared_type;
4831 /* Called when a declaration is seen that contains no names to declare.
4832 If its type is a reference to a structure, union or enum inherited
4833 from a containing scope, shadow that tag name for the current scope
4834 with a forward reference.
4835 If its type defines a new named structure or union
4836 or defines an enum, it is valid but we need not do anything here.
4837 Otherwise, it is an error.
4839 C++: may have to grok the declspecs to learn about static,
4840 complain for anonymous unions.
4842 Returns the TYPE declared -- or NULL_TREE if none. */
4844 tree
4845 shadow_tag (cp_decl_specifier_seq *declspecs)
4847 tree t = check_tag_decl (declspecs,
4848 /*explicit_type_instantiation_p=*/false);
4850 if (!t)
4851 return NULL_TREE;
4853 if (maybe_process_partial_specialization (t) == error_mark_node)
4854 return NULL_TREE;
4856 /* This is where the variables in an anonymous union are
4857 declared. An anonymous union declaration looks like:
4858 union { ... } ;
4859 because there is no declarator after the union, the parser
4860 sends that declaration here. */
4861 if (ANON_AGGR_TYPE_P (t))
4863 fixup_anonymous_aggr (t);
4865 if (TYPE_FIELDS (t))
4867 tree decl = grokdeclarator (/*declarator=*/NULL,
4868 declspecs, NORMAL, 0, NULL);
4869 finish_anon_union (decl);
4873 return t;
4876 /* Decode a "typename", such as "int **", returning a ..._TYPE node. */
4878 tree
4879 groktypename (cp_decl_specifier_seq *type_specifiers,
4880 const cp_declarator *declarator,
4881 bool is_template_arg)
4883 tree attrs;
4884 tree type;
4885 enum decl_context context
4886 = is_template_arg ? TEMPLATE_TYPE_ARG : TYPENAME;
4887 attrs = type_specifiers->attributes;
4888 type_specifiers->attributes = NULL_TREE;
4889 type = grokdeclarator (declarator, type_specifiers, context, 0, &attrs);
4890 if (attrs && type != error_mark_node)
4892 if (CLASS_TYPE_P (type))
4893 warning (OPT_Wattributes, "ignoring attributes applied to class type %qT "
4894 "outside of definition", type);
4895 else if (MAYBE_CLASS_TYPE_P (type))
4896 /* A template type parameter or other dependent type. */
4897 warning (OPT_Wattributes, "ignoring attributes applied to dependent "
4898 "type %qT without an associated declaration", type);
4899 else
4900 cplus_decl_attributes (&type, attrs, 0);
4902 return type;
4905 /* Process a DECLARATOR for a function-scope variable declaration,
4906 namespace-scope variable declaration, or function declaration.
4907 (Function definitions go through start_function; class member
4908 declarations appearing in the body of the class go through
4909 grokfield.) The DECL corresponding to the DECLARATOR is returned.
4910 If an error occurs, the error_mark_node is returned instead.
4912 DECLSPECS are the decl-specifiers for the declaration. INITIALIZED is
4913 SD_INITIALIZED if an explicit initializer is present, or SD_DEFAULTED
4914 for an explicitly defaulted function, or SD_DELETED for an explicitly
4915 deleted function, but 0 (SD_UNINITIALIZED) if this is a variable
4916 implicitly initialized via a default constructor. ATTRIBUTES and
4917 PREFIX_ATTRIBUTES are GNU attributes associated with this declaration.
4919 The scope represented by the context of the returned DECL is pushed
4920 (if it is not the global namespace) and is assigned to
4921 *PUSHED_SCOPE_P. The caller is then responsible for calling
4922 pop_scope on *PUSHED_SCOPE_P if it is set. */
4924 tree
4925 start_decl (const cp_declarator *declarator,
4926 cp_decl_specifier_seq *declspecs,
4927 int initialized,
4928 tree attributes,
4929 tree prefix_attributes,
4930 tree *pushed_scope_p)
4932 tree decl;
4933 tree context;
4934 bool was_public;
4935 int flags;
4936 bool alias;
4938 *pushed_scope_p = NULL_TREE;
4940 /* An object declared as __attribute__((deprecated)) suppresses
4941 warnings of uses of other deprecated items. */
4942 if (lookup_attribute ("deprecated", attributes))
4943 deprecated_state = DEPRECATED_SUPPRESS;
4945 attributes = chainon (attributes, prefix_attributes);
4947 decl = grokdeclarator (declarator, declspecs, NORMAL, initialized,
4948 &attributes);
4950 deprecated_state = DEPRECATED_NORMAL;
4952 if (decl == NULL_TREE || VOID_TYPE_P (decl)
4953 || decl == error_mark_node)
4954 return error_mark_node;
4956 context = CP_DECL_CONTEXT (decl);
4957 if (context != global_namespace)
4958 *pushed_scope_p = push_scope (context);
4960 /* Is it valid for this decl to have an initializer at all?
4961 If not, set INITIALIZED to zero, which will indirectly
4962 tell `cp_finish_decl' to ignore the initializer once it is parsed. */
4963 if (initialized
4964 && TREE_CODE (decl) == TYPE_DECL)
4966 error ("typedef %qD is initialized (use decltype instead)", decl);
4967 return error_mark_node;
4970 if (initialized)
4972 if (! toplevel_bindings_p ()
4973 && DECL_EXTERNAL (decl))
4974 warning (0, "declaration of %q#D has %<extern%> and is initialized",
4975 decl);
4976 DECL_EXTERNAL (decl) = 0;
4977 if (toplevel_bindings_p ())
4978 TREE_STATIC (decl) = 1;
4980 alias = lookup_attribute ("alias", DECL_ATTRIBUTES (decl)) != 0;
4982 if (alias && TREE_CODE (decl) == FUNCTION_DECL)
4983 record_key_method_defined (decl);
4985 /* If this is a typedef that names the class for linkage purposes
4986 (7.1.3p8), apply any attributes directly to the type. */
4987 if (TREE_CODE (decl) == TYPE_DECL
4988 && OVERLOAD_TYPE_P (TREE_TYPE (decl))
4989 && decl == TYPE_NAME (TYPE_MAIN_VARIANT (TREE_TYPE (decl))))
4990 flags = ATTR_FLAG_TYPE_IN_PLACE;
4991 else
4992 flags = 0;
4994 /* Set attributes here so if duplicate decl, will have proper attributes. */
4995 cplus_decl_attributes (&decl, attributes, flags);
4997 /* Dllimported symbols cannot be defined. Static data members (which
4998 can be initialized in-class and dllimported) go through grokfield,
4999 not here, so we don't need to exclude those decls when checking for
5000 a definition. */
5001 if (initialized && DECL_DLLIMPORT_P (decl))
5003 error ("definition of %q#D is marked %<dllimport%>", decl);
5004 DECL_DLLIMPORT_P (decl) = 0;
5007 /* If #pragma weak was used, mark the decl weak now. */
5008 if (!processing_template_decl)
5009 maybe_apply_pragma_weak (decl);
5011 if (TREE_CODE (decl) == FUNCTION_DECL
5012 && DECL_DECLARED_INLINE_P (decl)
5013 && DECL_UNINLINABLE (decl)
5014 && lookup_attribute ("noinline", DECL_ATTRIBUTES (decl)))
5015 warning_at (DECL_SOURCE_LOCATION (decl), 0,
5016 "inline function %qD given attribute noinline", decl);
5018 if (TYPE_P (context) && COMPLETE_TYPE_P (complete_type (context)))
5020 bool this_tmpl = (processing_template_decl
5021 > template_class_depth (context));
5022 if (VAR_P (decl))
5024 tree field = lookup_field (context, DECL_NAME (decl), 0, false);
5025 if (field == NULL_TREE
5026 || !(VAR_P (field) || variable_template_p (field)))
5027 error ("%q+#D is not a static data member of %q#T", decl, context);
5028 else if (variable_template_p (field) && !this_tmpl)
5030 if (DECL_LANG_SPECIFIC (decl)
5031 && DECL_TEMPLATE_SPECIALIZATION (decl))
5032 /* OK, specialization was already checked. */;
5033 else
5035 error_at (DECL_SOURCE_LOCATION (decl),
5036 "non-member-template declaration of %qD", decl);
5037 inform (DECL_SOURCE_LOCATION (field), "does not match "
5038 "member template declaration here");
5039 return error_mark_node;
5042 else
5044 if (variable_template_p (field))
5045 field = DECL_TEMPLATE_RESULT (field);
5047 if (DECL_CONTEXT (field) != context)
5049 if (!same_type_p (DECL_CONTEXT (field), context))
5050 permerror (input_location, "ISO C++ does not permit %<%T::%D%> "
5051 "to be defined as %<%T::%D%>",
5052 DECL_CONTEXT (field), DECL_NAME (decl),
5053 context, DECL_NAME (decl));
5054 DECL_CONTEXT (decl) = DECL_CONTEXT (field);
5056 /* Static data member are tricky; an in-class initialization
5057 still doesn't provide a definition, so the in-class
5058 declaration will have DECL_EXTERNAL set, but will have an
5059 initialization. Thus, duplicate_decls won't warn
5060 about this situation, and so we check here. */
5061 if (initialized && DECL_INITIALIZED_IN_CLASS_P (field))
5062 error ("duplicate initialization of %qD", decl);
5063 field = duplicate_decls (decl, field,
5064 /*newdecl_is_friend=*/false);
5065 if (field == error_mark_node)
5066 return error_mark_node;
5067 else if (field)
5068 decl = field;
5071 else
5073 tree field = check_classfn (context, decl,
5074 this_tmpl
5075 ? current_template_parms
5076 : NULL_TREE);
5077 if (field && field != error_mark_node
5078 && duplicate_decls (decl, field,
5079 /*newdecl_is_friend=*/false))
5080 decl = field;
5083 /* cp_finish_decl sets DECL_EXTERNAL if DECL_IN_AGGR_P is set. */
5084 DECL_IN_AGGR_P (decl) = 0;
5085 /* Do not mark DECL as an explicit specialization if it was not
5086 already marked as an instantiation; a declaration should
5087 never be marked as a specialization unless we know what
5088 template is being specialized. */
5089 if (DECL_LANG_SPECIFIC (decl) && DECL_USE_TEMPLATE (decl))
5091 SET_DECL_TEMPLATE_SPECIALIZATION (decl);
5092 if (TREE_CODE (decl) == FUNCTION_DECL)
5093 DECL_COMDAT (decl) = (TREE_PUBLIC (decl)
5094 && DECL_DECLARED_INLINE_P (decl));
5095 else
5096 DECL_COMDAT (decl) = false;
5098 /* [temp.expl.spec] An explicit specialization of a static data
5099 member of a template is a definition if the declaration
5100 includes an initializer; otherwise, it is a declaration.
5102 We check for processing_specialization so this only applies
5103 to the new specialization syntax. */
5104 if (!initialized && processing_specialization)
5105 DECL_EXTERNAL (decl) = 1;
5108 if (DECL_EXTERNAL (decl) && ! DECL_TEMPLATE_SPECIALIZATION (decl)
5109 /* Aliases are definitions. */
5110 && !alias)
5111 permerror (input_location, "declaration of %q#D outside of class is not definition",
5112 decl);
5115 was_public = TREE_PUBLIC (decl);
5117 /* Enter this declaration into the symbol table. Don't push the plain
5118 VAR_DECL for a variable template. */
5119 if (!template_parm_scope_p ()
5120 || !VAR_P (decl))
5121 decl = maybe_push_decl (decl);
5123 if (processing_template_decl)
5124 decl = push_template_decl (decl);
5125 if (decl == error_mark_node)
5126 return error_mark_node;
5128 if (VAR_P (decl)
5129 && DECL_NAMESPACE_SCOPE_P (decl) && !TREE_PUBLIC (decl) && !was_public
5130 && !DECL_THIS_STATIC (decl) && !DECL_ARTIFICIAL (decl))
5132 /* This is a const variable with implicit 'static'. Set
5133 DECL_THIS_STATIC so we can tell it from variables that are
5134 !TREE_PUBLIC because of the anonymous namespace. */
5135 gcc_assert (CP_TYPE_CONST_P (TREE_TYPE (decl)) || errorcount);
5136 DECL_THIS_STATIC (decl) = 1;
5139 if (current_function_decl && VAR_P (decl)
5140 && DECL_DECLARED_CONSTEXPR_P (current_function_decl))
5142 bool ok = false;
5143 if (CP_DECL_THREAD_LOCAL_P (decl))
5144 error ("%qD declared %<thread_local%> in %<constexpr%> function",
5145 decl);
5146 else if (TREE_STATIC (decl))
5147 error ("%qD declared %<static%> in %<constexpr%> function", decl);
5148 else
5149 ok = true;
5150 if (!ok)
5151 cp_function_chain->invalid_constexpr = true;
5154 if (!processing_template_decl && VAR_P (decl))
5155 start_decl_1 (decl, initialized);
5157 return decl;
5160 /* Process the declaration of a variable DECL. INITIALIZED is true
5161 iff DECL is explicitly initialized. (INITIALIZED is false if the
5162 variable is initialized via an implicitly-called constructor.)
5163 This function must be called for ordinary variables (including, for
5164 example, implicit instantiations of templates), but must not be
5165 called for template declarations. */
5167 void
5168 start_decl_1 (tree decl, bool initialized)
5170 tree type;
5171 bool complete_p;
5172 bool aggregate_definition_p;
5174 gcc_assert (!processing_template_decl);
5176 if (error_operand_p (decl))
5177 return;
5179 gcc_assert (VAR_P (decl));
5181 type = TREE_TYPE (decl);
5182 complete_p = COMPLETE_TYPE_P (type);
5183 aggregate_definition_p = MAYBE_CLASS_TYPE_P (type) && !DECL_EXTERNAL (decl);
5185 /* If an explicit initializer is present, or if this is a definition
5186 of an aggregate, then we need a complete type at this point.
5187 (Scalars are always complete types, so there is nothing to
5188 check.) This code just sets COMPLETE_P; errors (if necessary)
5189 are issued below. */
5190 if ((initialized || aggregate_definition_p)
5191 && !complete_p
5192 && COMPLETE_TYPE_P (complete_type (type)))
5194 complete_p = true;
5195 /* We will not yet have set TREE_READONLY on DECL if the type
5196 was "const", but incomplete, before this point. But, now, we
5197 have a complete type, so we can try again. */
5198 cp_apply_type_quals_to_decl (cp_type_quals (type), decl);
5201 if (initialized)
5202 /* Is it valid for this decl to have an initializer at all? */
5204 /* Don't allow initializations for incomplete types except for
5205 arrays which might be completed by the initialization. */
5206 if (complete_p)
5207 ; /* A complete type is ok. */
5208 else if (type_uses_auto (type))
5209 ; /* An auto type is ok. */
5210 else if (TREE_CODE (type) != ARRAY_TYPE)
5212 error ("variable %q#D has initializer but incomplete type", decl);
5213 type = TREE_TYPE (decl) = error_mark_node;
5215 else if (!COMPLETE_TYPE_P (complete_type (TREE_TYPE (type))))
5217 if (DECL_LANG_SPECIFIC (decl) && DECL_TEMPLATE_INFO (decl))
5218 error ("elements of array %q#D have incomplete type", decl);
5219 /* else we already gave an error in start_decl. */
5222 else if (aggregate_definition_p && !complete_p)
5224 if (type_uses_auto (type))
5225 gcc_assert (CLASS_PLACEHOLDER_TEMPLATE (type));
5226 else
5228 error ("aggregate %q#D has incomplete type and cannot be defined",
5229 decl);
5230 /* Change the type so that assemble_variable will give
5231 DECL an rtl we can live with: (mem (const_int 0)). */
5232 type = TREE_TYPE (decl) = error_mark_node;
5236 /* Create a new scope to hold this declaration if necessary.
5237 Whether or not a new scope is necessary cannot be determined
5238 until after the type has been completed; if the type is a
5239 specialization of a class template it is not until after
5240 instantiation has occurred that TYPE_HAS_NONTRIVIAL_DESTRUCTOR
5241 will be set correctly. */
5242 maybe_push_cleanup_level (type);
5245 /* Handle initialization of references. DECL, TYPE, and INIT have the
5246 same meaning as in cp_finish_decl. *CLEANUP must be NULL on entry,
5247 but will be set to a new CLEANUP_STMT if a temporary is created
5248 that must be destroyed subsequently.
5250 Returns an initializer expression to use to initialize DECL, or
5251 NULL if the initialization can be performed statically.
5253 Quotes on semantics can be found in ARM 8.4.3. */
5255 static tree
5256 grok_reference_init (tree decl, tree type, tree init, int flags)
5258 if (init == NULL_TREE)
5260 if ((DECL_LANG_SPECIFIC (decl) == 0
5261 || DECL_IN_AGGR_P (decl) == 0)
5262 && ! DECL_THIS_EXTERN (decl))
5263 error ("%qD declared as reference but not initialized", decl);
5264 return NULL_TREE;
5267 if (TREE_CODE (init) == TREE_LIST)
5268 init = build_x_compound_expr_from_list (init, ELK_INIT,
5269 tf_warning_or_error);
5271 tree ttype = TREE_TYPE (type);
5272 if (TREE_CODE (ttype) != ARRAY_TYPE
5273 && TREE_CODE (TREE_TYPE (init)) == ARRAY_TYPE)
5274 /* Note: default conversion is only called in very special cases. */
5275 init = decay_conversion (init, tf_warning_or_error);
5277 /* check_initializer handles this for non-reference variables, but for
5278 references we need to do it here or the initializer will get the
5279 incomplete array type and confuse later calls to
5280 cp_complete_array_type. */
5281 if (TREE_CODE (ttype) == ARRAY_TYPE
5282 && TYPE_DOMAIN (ttype) == NULL_TREE
5283 && (BRACE_ENCLOSED_INITIALIZER_P (init)
5284 || TREE_CODE (init) == STRING_CST))
5286 cp_complete_array_type (&ttype, init, false);
5287 if (ttype != TREE_TYPE (type))
5288 type = cp_build_reference_type (ttype, TYPE_REF_IS_RVALUE (type));
5291 /* Convert INIT to the reference type TYPE. This may involve the
5292 creation of a temporary, whose lifetime must be the same as that
5293 of the reference. If so, a DECL_EXPR for the temporary will be
5294 added just after the DECL_EXPR for DECL. That's why we don't set
5295 DECL_INITIAL for local references (instead assigning to them
5296 explicitly); we need to allow the temporary to be initialized
5297 first. */
5298 return initialize_reference (type, init, flags,
5299 tf_warning_or_error);
5302 /* Designated initializers in arrays are not supported in GNU C++.
5303 The parser cannot detect this error since it does not know whether
5304 a given brace-enclosed initializer is for a class type or for an
5305 array. This function checks that CE does not use a designated
5306 initializer. If it does, an error is issued. Returns true if CE
5307 is valid, i.e., does not have a designated initializer. */
5309 static bool
5310 check_array_designated_initializer (constructor_elt *ce,
5311 unsigned HOST_WIDE_INT index)
5313 /* Designated initializers for array elements are not supported. */
5314 if (ce->index)
5316 /* The parser only allows identifiers as designated
5317 initializers. */
5318 if (ce->index == error_mark_node)
5320 error ("name used in a GNU-style designated "
5321 "initializer for an array");
5322 return false;
5324 else if (identifier_p (ce->index))
5326 error ("name %qD used in a GNU-style designated "
5327 "initializer for an array", ce->index);
5328 return false;
5331 tree ce_index = build_expr_type_conversion (WANT_INT | WANT_ENUM,
5332 ce->index, true);
5333 if (ce_index
5334 && INTEGRAL_OR_UNSCOPED_ENUMERATION_TYPE_P (TREE_TYPE (ce_index))
5335 && (TREE_CODE (ce_index = maybe_constant_value (ce_index))
5336 == INTEGER_CST))
5338 /* A C99 designator is OK if it matches the current index. */
5339 if (wi::to_wide (ce_index) == index)
5340 return true;
5341 else
5342 sorry ("non-trivial designated initializers not supported");
5344 else
5345 error ("C99 designator %qE is not an integral constant-expression",
5346 ce->index);
5348 return false;
5351 return true;
5354 /* When parsing `int a[] = {1, 2};' we don't know the size of the
5355 array until we finish parsing the initializer. If that's the
5356 situation we're in, update DECL accordingly. */
5358 static void
5359 maybe_deduce_size_from_array_init (tree decl, tree init)
5361 tree type = TREE_TYPE (decl);
5363 if (TREE_CODE (type) == ARRAY_TYPE
5364 && TYPE_DOMAIN (type) == NULL_TREE
5365 && TREE_CODE (decl) != TYPE_DECL)
5367 /* do_default is really a C-ism to deal with tentative definitions.
5368 But let's leave it here to ease the eventual merge. */
5369 int do_default = !DECL_EXTERNAL (decl);
5370 tree initializer = init ? init : DECL_INITIAL (decl);
5371 int failure = 0;
5373 /* Check that there are no designated initializers in INIT, as
5374 those are not supported in GNU C++, and as the middle-end
5375 will crash if presented with a non-numeric designated
5376 initializer. */
5377 if (initializer && BRACE_ENCLOSED_INITIALIZER_P (initializer))
5379 vec<constructor_elt, va_gc> *v = CONSTRUCTOR_ELTS (initializer);
5380 constructor_elt *ce;
5381 HOST_WIDE_INT i;
5382 FOR_EACH_VEC_SAFE_ELT (v, i, ce)
5383 if (!check_array_designated_initializer (ce, i))
5384 failure = 1;
5387 if (!failure)
5389 failure = cp_complete_array_type (&TREE_TYPE (decl), initializer,
5390 do_default);
5391 if (failure == 1)
5393 error_at (EXPR_LOC_OR_LOC (initializer,
5394 DECL_SOURCE_LOCATION (decl)),
5395 "initializer fails to determine size of %qD", decl);
5397 else if (failure == 2)
5399 if (do_default)
5401 error_at (DECL_SOURCE_LOCATION (decl),
5402 "array size missing in %qD", decl);
5404 /* If a `static' var's size isn't known, make it extern as
5405 well as static, so it does not get allocated. If it's not
5406 `static', then don't mark it extern; finish_incomplete_decl
5407 will give it a default size and it will get allocated. */
5408 else if (!pedantic && TREE_STATIC (decl) && !TREE_PUBLIC (decl))
5409 DECL_EXTERNAL (decl) = 1;
5411 else if (failure == 3)
5413 error_at (DECL_SOURCE_LOCATION (decl),
5414 "zero-size array %qD", decl);
5418 cp_apply_type_quals_to_decl (cp_type_quals (TREE_TYPE (decl)), decl);
5420 relayout_decl (decl);
5424 /* Set DECL_SIZE, DECL_ALIGN, etc. for DECL (a VAR_DECL), and issue
5425 any appropriate error messages regarding the layout. */
5427 static void
5428 layout_var_decl (tree decl)
5430 tree type;
5432 type = TREE_TYPE (decl);
5433 if (type == error_mark_node)
5434 return;
5436 /* If we haven't already laid out this declaration, do so now.
5437 Note that we must not call complete type for an external object
5438 because it's type might involve templates that we are not
5439 supposed to instantiate yet. (And it's perfectly valid to say
5440 `extern X x' for some incomplete type `X'.) */
5441 if (!DECL_EXTERNAL (decl))
5442 complete_type (type);
5443 if (!DECL_SIZE (decl)
5444 && TREE_TYPE (decl) != error_mark_node
5445 && complete_or_array_type_p (type))
5446 layout_decl (decl, 0);
5448 if (!DECL_EXTERNAL (decl) && DECL_SIZE (decl) == NULL_TREE)
5450 /* An automatic variable with an incomplete type: that is an error.
5451 Don't talk about array types here, since we took care of that
5452 message in grokdeclarator. */
5453 error_at (DECL_SOURCE_LOCATION (decl),
5454 "storage size of %qD isn%'t known", decl);
5455 TREE_TYPE (decl) = error_mark_node;
5457 #if 0
5458 /* Keep this code around in case we later want to control debug info
5459 based on whether a type is "used". (jason 1999-11-11) */
5461 else if (!DECL_EXTERNAL (decl) && MAYBE_CLASS_TYPE_P (ttype))
5462 /* Let debugger know it should output info for this type. */
5463 note_debug_info_needed (ttype);
5465 if (TREE_STATIC (decl) && DECL_CLASS_SCOPE_P (decl))
5466 note_debug_info_needed (DECL_CONTEXT (decl));
5467 #endif
5469 if ((DECL_EXTERNAL (decl) || TREE_STATIC (decl))
5470 && DECL_SIZE (decl) != NULL_TREE
5471 && ! TREE_CONSTANT (DECL_SIZE (decl)))
5473 if (TREE_CODE (DECL_SIZE (decl)) == INTEGER_CST)
5474 constant_expression_warning (DECL_SIZE (decl));
5475 else
5477 error_at (DECL_SOURCE_LOCATION (decl),
5478 "storage size of %qD isn%'t constant", decl);
5479 TREE_TYPE (decl) = error_mark_node;
5484 /* If a local static variable is declared in an inline function, or if
5485 we have a weak definition, we must endeavor to create only one
5486 instance of the variable at link-time. */
5488 void
5489 maybe_commonize_var (tree decl)
5491 /* Static data in a function with comdat linkage also has comdat
5492 linkage. */
5493 if ((TREE_STATIC (decl)
5494 /* Don't mess with __FUNCTION__. */
5495 && ! DECL_ARTIFICIAL (decl)
5496 && DECL_FUNCTION_SCOPE_P (decl)
5497 && vague_linkage_p (DECL_CONTEXT (decl)))
5498 || (TREE_PUBLIC (decl) && DECL_INLINE_VAR_P (decl)))
5500 if (flag_weak)
5502 /* With weak symbols, we simply make the variable COMDAT;
5503 that will cause copies in multiple translations units to
5504 be merged. */
5505 comdat_linkage (decl);
5507 else
5509 if (DECL_INITIAL (decl) == NULL_TREE
5510 || DECL_INITIAL (decl) == error_mark_node)
5512 /* Without weak symbols, we can use COMMON to merge
5513 uninitialized variables. */
5514 TREE_PUBLIC (decl) = 1;
5515 DECL_COMMON (decl) = 1;
5517 else
5519 /* While for initialized variables, we must use internal
5520 linkage -- which means that multiple copies will not
5521 be merged. */
5522 TREE_PUBLIC (decl) = 0;
5523 DECL_COMMON (decl) = 0;
5524 const char *msg;
5525 if (DECL_INLINE_VAR_P (decl))
5526 msg = G_("sorry: semantics of inline variable "
5527 "%q#D are wrong (you%'ll wind up with "
5528 "multiple copies)");
5529 else
5530 msg = G_("sorry: semantics of inline function "
5531 "static data %q#D are wrong (you%'ll wind "
5532 "up with multiple copies)");
5533 if (warning_at (DECL_SOURCE_LOCATION (decl), 0,
5534 msg, decl))
5535 inform (DECL_SOURCE_LOCATION (decl),
5536 "you can work around this by removing the initializer");
5542 /* Issue an error message if DECL is an uninitialized const variable. */
5544 static void
5545 check_for_uninitialized_const_var (tree decl)
5547 tree type = strip_array_types (TREE_TYPE (decl));
5549 /* ``Unless explicitly declared extern, a const object does not have
5550 external linkage and must be initialized. ($8.4; $12.1)'' ARM
5551 7.1.6 */
5552 if (VAR_P (decl)
5553 && TREE_CODE (type) != REFERENCE_TYPE
5554 && (CP_TYPE_CONST_P (type) || var_in_constexpr_fn (decl))
5555 && !DECL_INITIAL (decl))
5557 tree field = default_init_uninitialized_part (type);
5558 if (!field)
5559 return;
5561 if (CP_TYPE_CONST_P (type))
5562 permerror (DECL_SOURCE_LOCATION (decl),
5563 "uninitialized const %qD", decl);
5564 else
5566 if (!is_instantiation_of_constexpr (current_function_decl))
5567 error_at (DECL_SOURCE_LOCATION (decl),
5568 "uninitialized variable %qD in %<constexpr%> function",
5569 decl);
5570 cp_function_chain->invalid_constexpr = true;
5573 if (CLASS_TYPE_P (type))
5575 tree defaulted_ctor;
5577 inform (DECL_SOURCE_LOCATION (TYPE_MAIN_DECL (type)),
5578 "%q#T has no user-provided default constructor", type);
5579 defaulted_ctor = in_class_defaulted_default_constructor (type);
5580 if (defaulted_ctor)
5581 inform (DECL_SOURCE_LOCATION (defaulted_ctor),
5582 "constructor is not user-provided because it is "
5583 "explicitly defaulted in the class body");
5584 inform (DECL_SOURCE_LOCATION (field),
5585 "and the implicitly-defined constructor does not "
5586 "initialize %q#D", field);
5591 /* Structure holding the current initializer being processed by reshape_init.
5592 CUR is a pointer to the current element being processed, END is a pointer
5593 after the last element present in the initializer. */
5594 struct reshape_iter
5596 constructor_elt *cur;
5597 constructor_elt *end;
5600 static tree reshape_init_r (tree, reshape_iter *, bool, tsubst_flags_t);
5602 /* FIELD is a FIELD_DECL or NULL. In the former case, the value
5603 returned is the next FIELD_DECL (possibly FIELD itself) that can be
5604 initialized. If there are no more such fields, the return value
5605 will be NULL. */
5607 tree
5608 next_initializable_field (tree field)
5610 while (field
5611 && (TREE_CODE (field) != FIELD_DECL
5612 || (DECL_C_BIT_FIELD (field) && !DECL_NAME (field))
5613 || (DECL_ARTIFICIAL (field)
5614 && !(cxx_dialect >= cxx17 && DECL_FIELD_IS_BASE (field)))))
5615 field = DECL_CHAIN (field);
5617 return field;
5620 /* Return true for [dcl.init.list] direct-list-initialization from
5621 single element of enumeration with a fixed underlying type. */
5623 bool
5624 is_direct_enum_init (tree type, tree init)
5626 if (cxx_dialect >= cxx17
5627 && TREE_CODE (type) == ENUMERAL_TYPE
5628 && ENUM_FIXED_UNDERLYING_TYPE_P (type)
5629 && TREE_CODE (init) == CONSTRUCTOR
5630 && CONSTRUCTOR_IS_DIRECT_INIT (init)
5631 && CONSTRUCTOR_NELTS (init) == 1)
5632 return true;
5633 return false;
5636 /* Subroutine of reshape_init_array and reshape_init_vector, which does
5637 the actual work. ELT_TYPE is the element type of the array. MAX_INDEX is an
5638 INTEGER_CST representing the size of the array minus one (the maximum index),
5639 or NULL_TREE if the array was declared without specifying the size. D is
5640 the iterator within the constructor. */
5642 static tree
5643 reshape_init_array_1 (tree elt_type, tree max_index, reshape_iter *d,
5644 tsubst_flags_t complain)
5646 tree new_init;
5647 bool sized_array_p = (max_index && TREE_CONSTANT (max_index));
5648 unsigned HOST_WIDE_INT max_index_cst = 0;
5649 unsigned HOST_WIDE_INT index;
5651 /* The initializer for an array is always a CONSTRUCTOR. */
5652 new_init = build_constructor (init_list_type_node, NULL);
5654 if (sized_array_p)
5656 /* Minus 1 is used for zero sized arrays. */
5657 if (integer_all_onesp (max_index))
5658 return new_init;
5660 if (tree_fits_uhwi_p (max_index))
5661 max_index_cst = tree_to_uhwi (max_index);
5662 /* sizetype is sign extended, not zero extended. */
5663 else
5664 max_index_cst = tree_to_uhwi (fold_convert (size_type_node, max_index));
5667 /* Loop until there are no more initializers. */
5668 for (index = 0;
5669 d->cur != d->end && (!sized_array_p || index <= max_index_cst);
5670 ++index)
5672 tree elt_init;
5673 constructor_elt *old_cur = d->cur;
5675 check_array_designated_initializer (d->cur, index);
5676 elt_init = reshape_init_r (elt_type, d, /*first_initializer_p=*/false,
5677 complain);
5678 if (elt_init == error_mark_node)
5679 return error_mark_node;
5680 CONSTRUCTOR_APPEND_ELT (CONSTRUCTOR_ELTS (new_init),
5681 size_int (index), elt_init);
5682 if (!TREE_CONSTANT (elt_init))
5683 TREE_CONSTANT (new_init) = false;
5685 /* This can happen with an invalid initializer (c++/54501). */
5686 if (d->cur == old_cur && !sized_array_p)
5687 break;
5690 return new_init;
5693 /* Subroutine of reshape_init_r, processes the initializers for arrays.
5694 Parameters are the same of reshape_init_r. */
5696 static tree
5697 reshape_init_array (tree type, reshape_iter *d, tsubst_flags_t complain)
5699 tree max_index = NULL_TREE;
5701 gcc_assert (TREE_CODE (type) == ARRAY_TYPE);
5703 if (TYPE_DOMAIN (type))
5704 max_index = array_type_nelts (type);
5706 return reshape_init_array_1 (TREE_TYPE (type), max_index, d, complain);
5709 /* Subroutine of reshape_init_r, processes the initializers for vectors.
5710 Parameters are the same of reshape_init_r. */
5712 static tree
5713 reshape_init_vector (tree type, reshape_iter *d, tsubst_flags_t complain)
5715 tree max_index = NULL_TREE;
5717 gcc_assert (VECTOR_TYPE_P (type));
5719 if (COMPOUND_LITERAL_P (d->cur->value))
5721 tree value = d->cur->value;
5722 if (!same_type_p (TREE_TYPE (value), type))
5724 if (complain & tf_error)
5725 error ("invalid type %qT as initializer for a vector of type %qT",
5726 TREE_TYPE (d->cur->value), type);
5727 value = error_mark_node;
5729 ++d->cur;
5730 return value;
5733 /* For a vector, we initialize it as an array of the appropriate size. */
5734 if (VECTOR_TYPE_P (type))
5735 max_index = size_int (TYPE_VECTOR_SUBPARTS (type) - 1);
5737 return reshape_init_array_1 (TREE_TYPE (type), max_index, d, complain);
5740 /* Subroutine of reshape_init_r, processes the initializers for classes
5741 or union. Parameters are the same of reshape_init_r. */
5743 static tree
5744 reshape_init_class (tree type, reshape_iter *d, bool first_initializer_p,
5745 tsubst_flags_t complain)
5747 tree field;
5748 tree new_init;
5750 gcc_assert (CLASS_TYPE_P (type));
5752 /* The initializer for a class is always a CONSTRUCTOR. */
5753 new_init = build_constructor (init_list_type_node, NULL);
5754 field = next_initializable_field (TYPE_FIELDS (type));
5756 if (!field)
5758 /* [dcl.init.aggr]
5760 An initializer for an aggregate member that is an
5761 empty class shall have the form of an empty
5762 initializer-list {}. */
5763 if (!first_initializer_p)
5765 if (complain & tf_error)
5766 error ("initializer for %qT must be brace-enclosed", type);
5767 return error_mark_node;
5769 return new_init;
5772 /* Loop through the initializable fields, gathering initializers. */
5773 while (d->cur != d->end)
5775 tree field_init;
5776 constructor_elt *old_cur = d->cur;
5778 /* Handle designated initializers, as an extension. */
5779 if (d->cur->index)
5781 if (d->cur->index == error_mark_node)
5782 return error_mark_node;
5784 if (TREE_CODE (d->cur->index) == FIELD_DECL)
5785 /* We already reshaped this. */
5786 gcc_assert (d->cur->index == field);
5787 else if (TREE_CODE (d->cur->index) == IDENTIFIER_NODE)
5788 field = get_class_binding (type, d->cur->index, false);
5789 else
5791 if (complain & tf_error)
5792 error ("%<[%E] =%> used in a GNU-style designated initializer"
5793 " for class %qT", d->cur->index, type);
5794 return error_mark_node;
5797 if (!field || TREE_CODE (field) != FIELD_DECL)
5799 if (complain & tf_error)
5800 error ("%qT has no non-static data member named %qD", type,
5801 d->cur->index);
5802 return error_mark_node;
5806 /* If we processed all the member of the class, we are done. */
5807 if (!field)
5808 break;
5810 field_init = reshape_init_r (TREE_TYPE (field), d,
5811 /*first_initializer_p=*/false, complain);
5812 if (field_init == error_mark_node)
5813 return error_mark_node;
5815 if (d->cur == old_cur && d->cur->index)
5817 /* This can happen with an invalid initializer for a flexible
5818 array member (c++/54441). */
5819 if (complain & tf_error)
5820 error ("invalid initializer for %q#D", field);
5821 return error_mark_node;
5824 CONSTRUCTOR_APPEND_ELT (CONSTRUCTOR_ELTS (new_init), field, field_init);
5826 /* [dcl.init.aggr]
5828 When a union is initialized with a brace-enclosed
5829 initializer, the braces shall only contain an
5830 initializer for the first member of the union. */
5831 if (TREE_CODE (type) == UNION_TYPE)
5832 break;
5834 field = next_initializable_field (DECL_CHAIN (field));
5837 return new_init;
5840 /* Subroutine of reshape_init_r. We're in a context where C99 initializer
5841 designators are not valid; either complain or return true to indicate
5842 that reshape_init_r should return error_mark_node. */
5844 static bool
5845 has_designator_problem (reshape_iter *d, tsubst_flags_t complain)
5847 if (d->cur->index)
5849 if (complain & tf_error)
5850 error ("C99 designator %qE outside aggregate initializer",
5851 d->cur->index);
5852 else
5853 return true;
5855 return false;
5858 /* Subroutine of reshape_init, which processes a single initializer (part of
5859 a CONSTRUCTOR). TYPE is the type of the variable being initialized, D is the
5860 iterator within the CONSTRUCTOR which points to the initializer to process.
5861 FIRST_INITIALIZER_P is true if this is the first initializer of the
5862 outermost CONSTRUCTOR node. */
5864 static tree
5865 reshape_init_r (tree type, reshape_iter *d, bool first_initializer_p,
5866 tsubst_flags_t complain)
5868 tree init = d->cur->value;
5870 if (error_operand_p (init))
5871 return error_mark_node;
5873 if (first_initializer_p && !CP_AGGREGATE_TYPE_P (type)
5874 && has_designator_problem (d, complain))
5875 return error_mark_node;
5877 if (TREE_CODE (type) == COMPLEX_TYPE)
5879 /* A complex type can be initialized from one or two initializers,
5880 but braces are not elided. */
5881 d->cur++;
5882 if (BRACE_ENCLOSED_INITIALIZER_P (init))
5884 if (CONSTRUCTOR_NELTS (init) > 2)
5886 if (complain & tf_error)
5887 error ("too many initializers for %qT", type);
5888 else
5889 return error_mark_node;
5892 else if (first_initializer_p && d->cur != d->end)
5894 vec<constructor_elt, va_gc> *v = 0;
5895 CONSTRUCTOR_APPEND_ELT (v, NULL_TREE, init);
5896 CONSTRUCTOR_APPEND_ELT (v, NULL_TREE, d->cur->value);
5897 if (has_designator_problem (d, complain))
5898 return error_mark_node;
5899 d->cur++;
5900 init = build_constructor (init_list_type_node, v);
5902 return init;
5905 /* A non-aggregate type is always initialized with a single
5906 initializer. */
5907 if (!CP_AGGREGATE_TYPE_P (type))
5909 /* It is invalid to initialize a non-aggregate type with a
5910 brace-enclosed initializer before C++0x.
5911 We need to check for BRACE_ENCLOSED_INITIALIZER_P here because
5912 of g++.old-deja/g++.mike/p7626.C: a pointer-to-member constant is
5913 a CONSTRUCTOR (with a record type). */
5914 if (TREE_CODE (init) == CONSTRUCTOR
5915 /* Don't complain about a capture-init. */
5916 && !CONSTRUCTOR_IS_DIRECT_INIT (init)
5917 && BRACE_ENCLOSED_INITIALIZER_P (init)) /* p7626.C */
5919 if (SCALAR_TYPE_P (type))
5921 if (cxx_dialect < cxx11
5922 /* Isn't value-initialization. */
5923 || CONSTRUCTOR_NELTS (init) > 0)
5925 if (complain & tf_error)
5926 error ("braces around scalar initializer for type %qT",
5927 type);
5928 init = error_mark_node;
5931 else
5932 maybe_warn_cpp0x (CPP0X_INITIALIZER_LISTS);
5935 d->cur++;
5936 return init;
5939 /* "If T is a class type and the initializer list has a single element of
5940 type cv U, where U is T or a class derived from T, the object is
5941 initialized from that element." Even if T is an aggregate. */
5942 if (cxx_dialect >= cxx11 && (CLASS_TYPE_P (type) || VECTOR_TYPE_P (type))
5943 && first_initializer_p
5944 && d->end - d->cur == 1
5945 && reference_related_p (type, TREE_TYPE (init)))
5947 d->cur++;
5948 return init;
5951 /* [dcl.init.aggr]
5953 All implicit type conversions (clause _conv_) are considered when
5954 initializing the aggregate member with an initializer from an
5955 initializer-list. If the initializer can initialize a member,
5956 the member is initialized. Otherwise, if the member is itself a
5957 non-empty subaggregate, brace elision is assumed and the
5958 initializer is considered for the initialization of the first
5959 member of the subaggregate. */
5960 if (TREE_CODE (init) != CONSTRUCTOR
5961 /* But don't try this for the first initializer, since that would be
5962 looking through the outermost braces; A a2 = { a1 }; is not a
5963 valid aggregate initialization. */
5964 && !first_initializer_p
5965 && (same_type_ignoring_top_level_qualifiers_p (type, TREE_TYPE (init))
5966 || can_convert_arg (type, TREE_TYPE (init), init, LOOKUP_NORMAL,
5967 complain)))
5969 d->cur++;
5970 return init;
5973 /* [dcl.init.string]
5975 A char array (whether plain char, signed char, or unsigned char)
5976 can be initialized by a string-literal (optionally enclosed in
5977 braces); a wchar_t array can be initialized by a wide
5978 string-literal (optionally enclosed in braces). */
5979 if (TREE_CODE (type) == ARRAY_TYPE
5980 && char_type_p (TYPE_MAIN_VARIANT (TREE_TYPE (type))))
5982 tree str_init = init;
5984 /* Strip one level of braces if and only if they enclose a single
5985 element (as allowed by [dcl.init.string]). */
5986 if (!first_initializer_p
5987 && TREE_CODE (str_init) == CONSTRUCTOR
5988 && CONSTRUCTOR_NELTS (str_init) == 1)
5990 str_init = (*CONSTRUCTOR_ELTS (str_init))[0].value;
5993 /* If it's a string literal, then it's the initializer for the array
5994 as a whole. Otherwise, continue with normal initialization for
5995 array types (one value per array element). */
5996 if (TREE_CODE (str_init) == STRING_CST)
5998 if (has_designator_problem (d, complain))
5999 return error_mark_node;
6000 d->cur++;
6001 return str_init;
6005 /* The following cases are about aggregates. If we are not within a full
6006 initializer already, and there is not a CONSTRUCTOR, it means that there
6007 is a missing set of braces (that is, we are processing the case for
6008 which reshape_init exists). */
6009 if (!first_initializer_p)
6011 if (TREE_CODE (init) == CONSTRUCTOR)
6013 if (TREE_TYPE (init) && TYPE_PTRMEMFUNC_P (TREE_TYPE (init)))
6014 /* There is no need to reshape pointer-to-member function
6015 initializers, as they are always constructed correctly
6016 by the front end. */
6018 else if (COMPOUND_LITERAL_P (init))
6019 /* For a nested compound literal, there is no need to reshape since
6020 brace elision is not allowed. Even if we decided to allow it,
6021 we should add a call to reshape_init in finish_compound_literal,
6022 before calling digest_init, so changing this code would still
6023 not be necessary. */
6024 gcc_assert (!BRACE_ENCLOSED_INITIALIZER_P (init));
6025 else
6027 ++d->cur;
6028 gcc_assert (BRACE_ENCLOSED_INITIALIZER_P (init));
6029 return reshape_init (type, init, complain);
6033 if (complain & tf_warning)
6034 warning (OPT_Wmissing_braces,
6035 "missing braces around initializer for %qT",
6036 type);
6039 /* Dispatch to specialized routines. */
6040 if (CLASS_TYPE_P (type))
6041 return reshape_init_class (type, d, first_initializer_p, complain);
6042 else if (TREE_CODE (type) == ARRAY_TYPE)
6043 return reshape_init_array (type, d, complain);
6044 else if (VECTOR_TYPE_P (type))
6045 return reshape_init_vector (type, d, complain);
6046 else
6047 gcc_unreachable();
6050 /* Undo the brace-elision allowed by [dcl.init.aggr] in a
6051 brace-enclosed aggregate initializer.
6053 INIT is the CONSTRUCTOR containing the list of initializers describing
6054 a brace-enclosed initializer for an entity of the indicated aggregate TYPE.
6055 It may not presently match the shape of the TYPE; for example:
6057 struct S { int a; int b; };
6058 struct S a[] = { 1, 2, 3, 4 };
6060 Here INIT will hold a vector of four elements, rather than a
6061 vector of two elements, each itself a vector of two elements. This
6062 routine transforms INIT from the former form into the latter. The
6063 revised CONSTRUCTOR node is returned. */
6065 tree
6066 reshape_init (tree type, tree init, tsubst_flags_t complain)
6068 vec<constructor_elt, va_gc> *v;
6069 reshape_iter d;
6070 tree new_init;
6072 gcc_assert (BRACE_ENCLOSED_INITIALIZER_P (init));
6074 v = CONSTRUCTOR_ELTS (init);
6076 /* An empty constructor does not need reshaping, and it is always a valid
6077 initializer. */
6078 if (vec_safe_is_empty (v))
6079 return init;
6081 /* Handle [dcl.init.list] direct-list-initialization from
6082 single element of enumeration with a fixed underlying type. */
6083 if (is_direct_enum_init (type, init))
6085 tree elt = CONSTRUCTOR_ELT (init, 0)->value;
6086 type = cv_unqualified (type);
6087 if (check_narrowing (ENUM_UNDERLYING_TYPE (type), elt, complain))
6089 warning_sentinel w (warn_useless_cast);
6090 return cp_build_c_cast (type, elt, tf_warning_or_error);
6092 else
6093 return error_mark_node;
6096 /* Recurse on this CONSTRUCTOR. */
6097 d.cur = &(*v)[0];
6098 d.end = d.cur + v->length ();
6100 new_init = reshape_init_r (type, &d, true, complain);
6101 if (new_init == error_mark_node)
6102 return error_mark_node;
6104 /* Make sure all the element of the constructor were used. Otherwise,
6105 issue an error about exceeding initializers. */
6106 if (d.cur != d.end)
6108 if (complain & tf_error)
6109 error ("too many initializers for %qT", type);
6110 return error_mark_node;
6113 if (CONSTRUCTOR_IS_DIRECT_INIT (init)
6114 && BRACE_ENCLOSED_INITIALIZER_P (new_init))
6115 CONSTRUCTOR_IS_DIRECT_INIT (new_init) = true;
6117 return new_init;
6120 /* Verify array initializer. Returns true if errors have been reported. */
6122 bool
6123 check_array_initializer (tree decl, tree type, tree init)
6125 tree element_type = TREE_TYPE (type);
6127 /* The array type itself need not be complete, because the
6128 initializer may tell us how many elements are in the array.
6129 But, the elements of the array must be complete. */
6130 if (!COMPLETE_TYPE_P (complete_type (element_type)))
6132 if (decl)
6133 error_at (DECL_SOURCE_LOCATION (decl),
6134 "elements of array %q#D have incomplete type", decl);
6135 else
6136 error ("elements of array %q#T have incomplete type", type);
6137 return true;
6139 /* A compound literal can't have variable size. */
6140 if (init && !decl
6141 && ((COMPLETE_TYPE_P (type) && !TREE_CONSTANT (TYPE_SIZE (type)))
6142 || !TREE_CONSTANT (TYPE_SIZE (element_type))))
6144 error ("variable-sized compound literal");
6145 return true;
6147 return false;
6150 /* Subroutine of check_initializer; args are passed down from that function.
6151 Set stmts_are_full_exprs_p to 1 across a call to build_aggr_init. */
6153 static tree
6154 build_aggr_init_full_exprs (tree decl, tree init, int flags)
6157 gcc_assert (stmts_are_full_exprs_p ());
6158 return build_aggr_init (decl, init, flags, tf_warning_or_error);
6161 /* Verify INIT (the initializer for DECL), and record the
6162 initialization in DECL_INITIAL, if appropriate. CLEANUP is as for
6163 grok_reference_init.
6165 If the return value is non-NULL, it is an expression that must be
6166 evaluated dynamically to initialize DECL. */
6168 static tree
6169 check_initializer (tree decl, tree init, int flags, vec<tree, va_gc> **cleanups)
6171 tree type = TREE_TYPE (decl);
6172 tree init_code = NULL;
6173 tree core_type;
6175 /* Things that are going to be initialized need to have complete
6176 type. */
6177 TREE_TYPE (decl) = type = complete_type (TREE_TYPE (decl));
6179 if (DECL_HAS_VALUE_EXPR_P (decl))
6181 /* A variable with DECL_HAS_VALUE_EXPR_P set is just a placeholder,
6182 it doesn't have storage to be initialized. */
6183 gcc_assert (init == NULL_TREE);
6184 return NULL_TREE;
6187 if (type == error_mark_node)
6188 /* We will have already complained. */
6189 return NULL_TREE;
6191 if (TREE_CODE (type) == ARRAY_TYPE)
6193 if (check_array_initializer (decl, type, init))
6194 return NULL_TREE;
6196 else if (!COMPLETE_TYPE_P (type))
6198 error_at (DECL_SOURCE_LOCATION (decl),
6199 "%q#D has incomplete type", decl);
6200 TREE_TYPE (decl) = error_mark_node;
6201 return NULL_TREE;
6203 else
6204 /* There is no way to make a variable-sized class type in GNU C++. */
6205 gcc_assert (TREE_CONSTANT (TYPE_SIZE (type)));
6207 if (init && BRACE_ENCLOSED_INITIALIZER_P (init))
6209 int init_len = CONSTRUCTOR_NELTS (init);
6210 if (SCALAR_TYPE_P (type))
6212 if (init_len == 0)
6214 maybe_warn_cpp0x (CPP0X_INITIALIZER_LISTS);
6215 init = build_zero_init (type, NULL_TREE, false);
6217 else if (init_len != 1 && TREE_CODE (type) != COMPLEX_TYPE)
6219 error_at (EXPR_LOC_OR_LOC (init, DECL_SOURCE_LOCATION (decl)),
6220 "scalar object %qD requires one element in "
6221 "initializer", decl);
6222 TREE_TYPE (decl) = error_mark_node;
6223 return NULL_TREE;
6228 if (TREE_CODE (decl) == CONST_DECL)
6230 gcc_assert (TREE_CODE (type) != REFERENCE_TYPE);
6232 DECL_INITIAL (decl) = init;
6234 gcc_assert (init != NULL_TREE);
6235 init = NULL_TREE;
6237 else if (!init && DECL_REALLY_EXTERN (decl))
6239 else if (init || type_build_ctor_call (type)
6240 || TREE_CODE (type) == REFERENCE_TYPE)
6242 if (TREE_CODE (type) == REFERENCE_TYPE)
6244 init = grok_reference_init (decl, type, init, flags);
6245 flags |= LOOKUP_ALREADY_DIGESTED;
6247 else if (!init)
6248 check_for_uninitialized_const_var (decl);
6249 /* Do not reshape constructors of vectors (they don't need to be
6250 reshaped. */
6251 else if (BRACE_ENCLOSED_INITIALIZER_P (init))
6253 if (is_std_init_list (type))
6255 init = perform_implicit_conversion (type, init,
6256 tf_warning_or_error);
6257 flags |= LOOKUP_ALREADY_DIGESTED;
6259 else if (TYPE_NON_AGGREGATE_CLASS (type))
6261 /* Don't reshape if the class has constructors. */
6262 if (cxx_dialect == cxx98)
6263 error_at (EXPR_LOC_OR_LOC (init, DECL_SOURCE_LOCATION (decl)),
6264 "in C++98 %qD must be initialized by "
6265 "constructor, not by %<{...}%>",
6266 decl);
6268 else if (VECTOR_TYPE_P (type) && TYPE_VECTOR_OPAQUE (type))
6270 error ("opaque vector types cannot be initialized");
6271 init = error_mark_node;
6273 else
6275 init = reshape_init (type, init, tf_warning_or_error);
6276 flags |= LOOKUP_NO_NARROWING;
6279 else if (TREE_CODE (init) == TREE_LIST
6280 && TREE_TYPE (init) != unknown_type_node
6281 && !MAYBE_CLASS_TYPE_P (type))
6283 gcc_assert (TREE_CODE (decl) != RESULT_DECL);
6285 /* We get here with code like `int a (2);' */
6286 init = build_x_compound_expr_from_list (init, ELK_INIT,
6287 tf_warning_or_error);
6290 /* If DECL has an array type without a specific bound, deduce the
6291 array size from the initializer. */
6292 maybe_deduce_size_from_array_init (decl, init);
6293 type = TREE_TYPE (decl);
6294 if (type == error_mark_node)
6295 return NULL_TREE;
6297 if (((type_build_ctor_call (type) || CLASS_TYPE_P (type))
6298 && !(flags & LOOKUP_ALREADY_DIGESTED)
6299 && !(init && BRACE_ENCLOSED_INITIALIZER_P (init)
6300 && CP_AGGREGATE_TYPE_P (type)
6301 && (CLASS_TYPE_P (type)
6302 || !TYPE_NEEDS_CONSTRUCTING (type)
6303 || type_has_extended_temps (type))))
6304 || (DECL_DECOMPOSITION_P (decl) && TREE_CODE (type) == ARRAY_TYPE))
6306 init_code = build_aggr_init_full_exprs (decl, init, flags);
6308 /* A constructor call is a non-trivial initializer even if
6309 it isn't explicitly written. */
6310 if (TREE_SIDE_EFFECTS (init_code))
6311 DECL_NONTRIVIALLY_INITIALIZED_P (decl) = true;
6313 /* If this is a constexpr initializer, expand_default_init will
6314 have returned an INIT_EXPR rather than a CALL_EXPR. In that
6315 case, pull the initializer back out and pass it down into
6316 store_init_value. */
6317 while (TREE_CODE (init_code) == EXPR_STMT
6318 || TREE_CODE (init_code) == CONVERT_EXPR)
6319 init_code = TREE_OPERAND (init_code, 0);
6320 if (TREE_CODE (init_code) == INIT_EXPR)
6322 init = TREE_OPERAND (init_code, 1);
6323 init_code = NULL_TREE;
6324 /* Don't call digest_init; it's unnecessary and will complain
6325 about aggregate initialization of non-aggregate classes. */
6326 flags |= LOOKUP_ALREADY_DIGESTED;
6328 else if (DECL_DECLARED_CONSTEXPR_P (decl))
6330 /* Declared constexpr, but no suitable initializer; massage
6331 init appropriately so we can pass it into store_init_value
6332 for the error. */
6333 if (CLASS_TYPE_P (type)
6334 && (!init || TREE_CODE (init) == TREE_LIST))
6336 init = build_functional_cast (type, init, tf_none);
6337 if (TREE_CODE (init) == TARGET_EXPR)
6338 TARGET_EXPR_DIRECT_INIT_P (init) = true;
6340 init_code = NULL_TREE;
6342 else
6343 init = NULL_TREE;
6346 if (init && TREE_CODE (init) != TREE_VEC)
6348 /* In aggregate initialization of a variable, each element
6349 initialization is a full-expression because there is no
6350 enclosing expression. */
6351 gcc_assert (stmts_are_full_exprs_p ());
6353 init_code = store_init_value (decl, init, cleanups, flags);
6355 if (pedantic && TREE_CODE (type) == ARRAY_TYPE
6356 && DECL_INITIAL (decl)
6357 && TREE_CODE (DECL_INITIAL (decl)) == STRING_CST
6358 && PAREN_STRING_LITERAL_P (DECL_INITIAL (decl)))
6359 warning_at (EXPR_LOC_OR_LOC (DECL_INITIAL (decl),
6360 DECL_SOURCE_LOCATION (decl)),
6361 0, "array %qD initialized by parenthesized "
6362 "string literal %qE",
6363 decl, DECL_INITIAL (decl));
6364 init = NULL;
6367 else
6369 if (CLASS_TYPE_P (core_type = strip_array_types (type))
6370 && (CLASSTYPE_READONLY_FIELDS_NEED_INIT (core_type)
6371 || CLASSTYPE_REF_FIELDS_NEED_INIT (core_type)))
6372 diagnose_uninitialized_cst_or_ref_member (core_type, /*using_new=*/false,
6373 /*complain=*/true);
6375 check_for_uninitialized_const_var (decl);
6378 if (init && init != error_mark_node)
6379 init_code = build2 (INIT_EXPR, type, decl, init);
6381 if (init_code)
6383 /* We might have set these in cp_finish_decl. */
6384 DECL_INITIALIZED_BY_CONSTANT_EXPRESSION_P (decl) = false;
6385 TREE_CONSTANT (decl) = false;
6388 if (init_code
6389 && (DECL_IN_AGGR_P (decl) && !DECL_VAR_DECLARED_INLINE_P (decl)))
6391 static int explained = 0;
6393 if (cxx_dialect < cxx11)
6394 error ("initializer invalid for static member with constructor");
6395 else if (cxx_dialect < cxx17)
6396 error ("non-constant in-class initialization invalid for static "
6397 "member %qD", decl);
6398 else
6399 error ("non-constant in-class initialization invalid for non-inline "
6400 "static member %qD", decl);
6401 if (!explained)
6403 inform (input_location,
6404 "(an out of class initialization is required)");
6405 explained = 1;
6407 return NULL_TREE;
6410 return init_code;
6413 /* If DECL is not a local variable, give it RTL. */
6415 static void
6416 make_rtl_for_nonlocal_decl (tree decl, tree init, const char* asmspec)
6418 int toplev = toplevel_bindings_p ();
6419 int defer_p;
6421 /* Set the DECL_ASSEMBLER_NAME for the object. */
6422 if (asmspec)
6424 /* The `register' keyword, when used together with an
6425 asm-specification, indicates that the variable should be
6426 placed in a particular register. */
6427 if (VAR_P (decl) && DECL_REGISTER (decl))
6429 set_user_assembler_name (decl, asmspec);
6430 DECL_HARD_REGISTER (decl) = 1;
6432 else
6434 if (TREE_CODE (decl) == FUNCTION_DECL
6435 && DECL_BUILT_IN_CLASS (decl) == BUILT_IN_NORMAL)
6436 set_builtin_user_assembler_name (decl, asmspec);
6437 set_user_assembler_name (decl, asmspec);
6441 /* Handle non-variables up front. */
6442 if (!VAR_P (decl))
6444 rest_of_decl_compilation (decl, toplev, at_eof);
6445 return;
6448 /* If we see a class member here, it should be a static data
6449 member. */
6450 if (DECL_LANG_SPECIFIC (decl) && DECL_IN_AGGR_P (decl))
6452 gcc_assert (TREE_STATIC (decl));
6453 /* An in-class declaration of a static data member should be
6454 external; it is only a declaration, and not a definition. */
6455 if (init == NULL_TREE)
6456 gcc_assert (DECL_EXTERNAL (decl)
6457 || !TREE_PUBLIC (decl)
6458 || DECL_INLINE_VAR_P (decl));
6461 /* We don't create any RTL for local variables. */
6462 if (DECL_FUNCTION_SCOPE_P (decl) && !TREE_STATIC (decl))
6463 return;
6465 /* We defer emission of local statics until the corresponding
6466 DECL_EXPR is expanded. But with constexpr its function might never
6467 be expanded, so go ahead and tell cgraph about the variable now. */
6468 defer_p = ((DECL_FUNCTION_SCOPE_P (decl)
6469 && !var_in_maybe_constexpr_fn (decl))
6470 || DECL_VIRTUAL_P (decl));
6472 /* Defer template instantiations. */
6473 if (DECL_LANG_SPECIFIC (decl)
6474 && DECL_IMPLICIT_INSTANTIATION (decl))
6475 defer_p = 1;
6477 /* If we're not deferring, go ahead and assemble the variable. */
6478 if (!defer_p)
6479 rest_of_decl_compilation (decl, toplev, at_eof);
6482 /* walk_tree helper for wrap_temporary_cleanups, below. */
6484 static tree
6485 wrap_cleanups_r (tree *stmt_p, int *walk_subtrees, void *data)
6487 /* Stop at types or full-expression boundaries. */
6488 if (TYPE_P (*stmt_p)
6489 || TREE_CODE (*stmt_p) == CLEANUP_POINT_EXPR)
6491 *walk_subtrees = 0;
6492 return NULL_TREE;
6495 if (TREE_CODE (*stmt_p) == TARGET_EXPR)
6497 tree guard = (tree)data;
6498 tree tcleanup = TARGET_EXPR_CLEANUP (*stmt_p);
6500 tcleanup = build2 (TRY_CATCH_EXPR, void_type_node, tcleanup, guard);
6501 /* Tell honor_protect_cleanup_actions to handle this as a separate
6502 cleanup. */
6503 TRY_CATCH_IS_CLEANUP (tcleanup) = 1;
6505 TARGET_EXPR_CLEANUP (*stmt_p) = tcleanup;
6508 return NULL_TREE;
6511 /* We're initializing a local variable which has a cleanup GUARD. If there
6512 are any temporaries used in the initializer INIT of this variable, we
6513 need to wrap their cleanups with TRY_CATCH_EXPR (, GUARD) so that the
6514 variable will be cleaned up properly if one of them throws.
6516 Unfortunately, there's no way to express this properly in terms of
6517 nesting, as the regions for the temporaries overlap the region for the
6518 variable itself; if there are two temporaries, the variable needs to be
6519 the first thing destroyed if either of them throws. However, we only
6520 want to run the variable's cleanup if it actually got constructed. So
6521 we need to guard the temporary cleanups with the variable's cleanup if
6522 they are run on the normal path, but not if they are run on the
6523 exceptional path. We implement this by telling
6524 honor_protect_cleanup_actions to strip the variable cleanup from the
6525 exceptional path. */
6527 static void
6528 wrap_temporary_cleanups (tree init, tree guard)
6530 cp_walk_tree_without_duplicates (&init, wrap_cleanups_r, (void *)guard);
6533 /* Generate code to initialize DECL (a local variable). */
6535 static void
6536 initialize_local_var (tree decl, tree init)
6538 tree type = TREE_TYPE (decl);
6539 tree cleanup;
6540 int already_used;
6542 gcc_assert (VAR_P (decl)
6543 || TREE_CODE (decl) == RESULT_DECL);
6544 gcc_assert (!TREE_STATIC (decl));
6546 if (DECL_SIZE (decl) == NULL_TREE)
6548 /* If we used it already as memory, it must stay in memory. */
6549 DECL_INITIAL (decl) = NULL_TREE;
6550 TREE_ADDRESSABLE (decl) = TREE_USED (decl);
6551 return;
6554 if (type == error_mark_node)
6555 return;
6557 /* Compute and store the initial value. */
6558 already_used = TREE_USED (decl) || TREE_USED (type);
6559 if (TREE_USED (type))
6560 DECL_READ_P (decl) = 1;
6562 /* Generate a cleanup, if necessary. */
6563 cleanup = cxx_maybe_build_cleanup (decl, tf_warning_or_error);
6565 /* Perform the initialization. */
6566 if (init)
6568 tree rinit = (TREE_CODE (init) == INIT_EXPR
6569 ? TREE_OPERAND (init, 1) : NULL_TREE);
6570 if (rinit && !TREE_SIDE_EFFECTS (rinit))
6572 /* Stick simple initializers in DECL_INITIAL so that
6573 -Wno-init-self works (c++/34772). */
6574 gcc_assert (TREE_OPERAND (init, 0) == decl);
6575 DECL_INITIAL (decl) = rinit;
6577 if (warn_init_self && TREE_CODE (type) == REFERENCE_TYPE)
6579 STRIP_NOPS (rinit);
6580 if (rinit == decl)
6581 warning_at (DECL_SOURCE_LOCATION (decl),
6582 OPT_Winit_self,
6583 "reference %qD is initialized with itself", decl);
6586 else
6588 int saved_stmts_are_full_exprs_p;
6590 /* If we're only initializing a single object, guard the
6591 destructors of any temporaries used in its initializer with
6592 its destructor. This isn't right for arrays because each
6593 element initialization is a full-expression. */
6594 if (cleanup && TREE_CODE (type) != ARRAY_TYPE)
6595 wrap_temporary_cleanups (init, cleanup);
6597 gcc_assert (building_stmt_list_p ());
6598 saved_stmts_are_full_exprs_p = stmts_are_full_exprs_p ();
6599 current_stmt_tree ()->stmts_are_full_exprs_p = 1;
6600 finish_expr_stmt (init);
6601 current_stmt_tree ()->stmts_are_full_exprs_p =
6602 saved_stmts_are_full_exprs_p;
6606 /* Set this to 0 so we can tell whether an aggregate which was
6607 initialized was ever used. Don't do this if it has a
6608 destructor, so we don't complain about the 'resource
6609 allocation is initialization' idiom. Now set
6610 attribute((unused)) on types so decls of that type will be
6611 marked used. (see TREE_USED, above.) */
6612 if (TYPE_NEEDS_CONSTRUCTING (type)
6613 && ! already_used
6614 && TYPE_HAS_TRIVIAL_DESTRUCTOR (type)
6615 && DECL_NAME (decl))
6616 TREE_USED (decl) = 0;
6617 else if (already_used)
6618 TREE_USED (decl) = 1;
6620 if (cleanup)
6621 finish_decl_cleanup (decl, cleanup);
6624 /* DECL is a VAR_DECL for a compiler-generated variable with static
6625 storage duration (like a virtual table) whose initializer is a
6626 compile-time constant. Initialize the variable and provide it to the
6627 back end. */
6629 void
6630 initialize_artificial_var (tree decl, vec<constructor_elt, va_gc> *v)
6632 tree init;
6633 gcc_assert (DECL_ARTIFICIAL (decl));
6634 init = build_constructor (TREE_TYPE (decl), v);
6635 gcc_assert (TREE_CODE (init) == CONSTRUCTOR);
6636 DECL_INITIAL (decl) = init;
6637 DECL_INITIALIZED_P (decl) = 1;
6638 determine_visibility (decl);
6639 layout_var_decl (decl);
6640 maybe_commonize_var (decl);
6641 make_rtl_for_nonlocal_decl (decl, init, /*asmspec=*/NULL);
6644 /* INIT is the initializer for a variable, as represented by the
6645 parser. Returns true iff INIT is type-dependent. */
6647 static bool
6648 type_dependent_init_p (tree init)
6650 if (TREE_CODE (init) == TREE_LIST)
6651 /* A parenthesized initializer, e.g.: int i (3, 2); ? */
6652 return any_type_dependent_elements_p (init);
6653 else if (TREE_CODE (init) == CONSTRUCTOR)
6654 /* A brace-enclosed initializer, e.g.: int i = { 3 }; ? */
6656 if (dependent_type_p (TREE_TYPE (init)))
6657 return true;
6659 vec<constructor_elt, va_gc> *elts;
6660 size_t nelts;
6661 size_t i;
6663 elts = CONSTRUCTOR_ELTS (init);
6664 nelts = vec_safe_length (elts);
6665 for (i = 0; i < nelts; ++i)
6666 if (type_dependent_init_p ((*elts)[i].value))
6667 return true;
6669 else
6670 /* It must be a simple expression, e.g., int i = 3; */
6671 return type_dependent_expression_p (init);
6673 return false;
6676 /* INIT is the initializer for a variable, as represented by the
6677 parser. Returns true iff INIT is value-dependent. */
6679 static bool
6680 value_dependent_init_p (tree init)
6682 if (TREE_CODE (init) == TREE_LIST)
6683 /* A parenthesized initializer, e.g.: int i (3, 2); ? */
6684 return any_value_dependent_elements_p (init);
6685 else if (TREE_CODE (init) == CONSTRUCTOR)
6686 /* A brace-enclosed initializer, e.g.: int i = { 3 }; ? */
6688 vec<constructor_elt, va_gc> *elts;
6689 size_t nelts;
6690 size_t i;
6692 elts = CONSTRUCTOR_ELTS (init);
6693 nelts = vec_safe_length (elts);
6694 for (i = 0; i < nelts; ++i)
6695 if (value_dependent_init_p ((*elts)[i].value))
6696 return true;
6698 else
6699 /* It must be a simple expression, e.g., int i = 3; */
6700 return value_dependent_expression_p (init);
6702 return false;
6705 // Returns true if a DECL is VAR_DECL with the concept specifier.
6706 static inline bool
6707 is_concept_var (tree decl)
6709 return (VAR_P (decl)
6710 // Not all variables have DECL_LANG_SPECIFIC.
6711 && DECL_LANG_SPECIFIC (decl)
6712 && DECL_DECLARED_CONCEPT_P (decl));
6715 /* A helper function to be called via walk_tree. If any label exists
6716 under *TP, it is (going to be) forced. Set has_forced_label_in_static. */
6718 static tree
6719 notice_forced_label_r (tree *tp, int *walk_subtrees, void *)
6721 if (TYPE_P (*tp))
6722 *walk_subtrees = 0;
6723 if (TREE_CODE (*tp) == LABEL_DECL)
6724 cfun->has_forced_label_in_static = 1;
6725 return NULL_TREE;
6728 /* Finish processing of a declaration;
6729 install its line number and initial value.
6730 If the length of an array type is not known before,
6731 it must be determined now, from the initial value, or it is an error.
6733 INIT is the initializer (if any) for DECL. If INIT_CONST_EXPR_P is
6734 true, then INIT is an integral constant expression.
6736 FLAGS is LOOKUP_ONLYCONVERTING if the = init syntax was used, else 0
6737 if the (init) syntax was used. */
6739 void
6740 cp_finish_decl (tree decl, tree init, bool init_const_expr_p,
6741 tree asmspec_tree, int flags)
6743 tree type;
6744 vec<tree, va_gc> *cleanups = NULL;
6745 const char *asmspec = NULL;
6746 int was_readonly = 0;
6747 bool var_definition_p = false;
6748 tree auto_node;
6750 if (decl == error_mark_node)
6751 return;
6752 else if (! decl)
6754 if (init)
6755 error ("assignment (not initialization) in declaration");
6756 return;
6759 gcc_assert (TREE_CODE (decl) != RESULT_DECL);
6760 /* Parameters are handled by store_parm_decls, not cp_finish_decl. */
6761 gcc_assert (TREE_CODE (decl) != PARM_DECL);
6763 type = TREE_TYPE (decl);
6764 if (type == error_mark_node)
6765 return;
6767 /* Warn about register storage specifiers except when in GNU global
6768 or local register variable extension. */
6769 if (VAR_P (decl) && DECL_REGISTER (decl) && asmspec_tree == NULL_TREE)
6771 if (cxx_dialect >= cxx17)
6772 pedwarn (DECL_SOURCE_LOCATION (decl), OPT_Wregister,
6773 "ISO C++17 does not allow %<register%> storage "
6774 "class specifier");
6775 else
6776 warning_at (DECL_SOURCE_LOCATION (decl), OPT_Wregister,
6777 "%<register%> storage class specifier used");
6780 /* If a name was specified, get the string. */
6781 if (at_namespace_scope_p ())
6782 asmspec_tree = maybe_apply_renaming_pragma (decl, asmspec_tree);
6783 if (asmspec_tree && asmspec_tree != error_mark_node)
6784 asmspec = TREE_STRING_POINTER (asmspec_tree);
6786 if (current_class_type
6787 && CP_DECL_CONTEXT (decl) == current_class_type
6788 && TYPE_BEING_DEFINED (current_class_type)
6789 && !CLASSTYPE_TEMPLATE_INSTANTIATION (current_class_type)
6790 && (DECL_INITIAL (decl) || init))
6791 DECL_INITIALIZED_IN_CLASS_P (decl) = 1;
6793 if (TREE_CODE (decl) != FUNCTION_DECL
6794 && (auto_node = type_uses_auto (type)))
6796 tree d_init;
6797 if (init == NULL_TREE)
6799 if (DECL_LANG_SPECIFIC (decl)
6800 && DECL_TEMPLATE_INSTANTIATION (decl)
6801 && !DECL_TEMPLATE_INSTANTIATED (decl))
6803 /* init is null because we're deferring instantiating the
6804 initializer until we need it. Well, we need it now. */
6805 instantiate_decl (decl, /*defer_ok*/true, /*expl*/false);
6806 return;
6809 gcc_assert (CLASS_PLACEHOLDER_TEMPLATE (auto_node));
6811 d_init = init;
6812 if (d_init)
6814 if (TREE_CODE (d_init) == TREE_LIST
6815 && !CLASS_PLACEHOLDER_TEMPLATE (auto_node))
6816 d_init = build_x_compound_expr_from_list (d_init, ELK_INIT,
6817 tf_warning_or_error);
6818 d_init = resolve_nondeduced_context (d_init, tf_warning_or_error);
6820 enum auto_deduction_context adc = adc_variable_type;
6821 if (VAR_P (decl) && DECL_DECOMPOSITION_P (decl))
6822 adc = adc_decomp_type;
6823 type = TREE_TYPE (decl) = do_auto_deduction (type, d_init, auto_node,
6824 tf_warning_or_error, adc,
6825 NULL_TREE, flags);
6826 if (type == error_mark_node)
6827 return;
6828 if (TREE_CODE (type) == FUNCTION_TYPE)
6830 error ("initializer for %<decltype(auto) %D%> has function type "
6831 "(did you forget the %<()%> ?)", decl);
6832 TREE_TYPE (decl) = error_mark_node;
6833 return;
6835 cp_apply_type_quals_to_decl (cp_type_quals (type), decl);
6838 if (!ensure_literal_type_for_constexpr_object (decl))
6839 DECL_DECLARED_CONSTEXPR_P (decl) = 0;
6841 if (VAR_P (decl)
6842 && DECL_CLASS_SCOPE_P (decl)
6843 && DECL_INITIALIZED_IN_CLASS_P (decl))
6844 check_static_variable_definition (decl, type);
6846 if (init && TREE_CODE (decl) == FUNCTION_DECL)
6848 tree clone;
6849 if (init == ridpointers[(int)RID_DELETE])
6851 /* FIXME check this is 1st decl. */
6852 DECL_DELETED_FN (decl) = 1;
6853 DECL_DECLARED_INLINE_P (decl) = 1;
6854 DECL_INITIAL (decl) = error_mark_node;
6855 FOR_EACH_CLONE (clone, decl)
6857 DECL_DELETED_FN (clone) = 1;
6858 DECL_DECLARED_INLINE_P (clone) = 1;
6859 DECL_INITIAL (clone) = error_mark_node;
6861 init = NULL_TREE;
6863 else if (init == ridpointers[(int)RID_DEFAULT])
6865 if (defaultable_fn_check (decl))
6866 DECL_DEFAULTED_FN (decl) = 1;
6867 else
6868 DECL_INITIAL (decl) = NULL_TREE;
6872 if (init && VAR_P (decl))
6874 DECL_NONTRIVIALLY_INITIALIZED_P (decl) = 1;
6875 /* If DECL is a reference, then we want to know whether init is a
6876 reference constant; init_const_expr_p as passed tells us whether
6877 it's an rvalue constant. */
6878 if (TREE_CODE (type) == REFERENCE_TYPE)
6879 init_const_expr_p = potential_constant_expression (init);
6880 if (init_const_expr_p)
6882 /* Set these flags now for templates. We'll update the flags in
6883 store_init_value for instantiations. */
6884 DECL_INITIALIZED_BY_CONSTANT_EXPRESSION_P (decl) = 1;
6885 if (decl_maybe_constant_var_p (decl)
6886 /* FIXME setting TREE_CONSTANT on refs breaks the back end. */
6887 && TREE_CODE (type) != REFERENCE_TYPE)
6888 TREE_CONSTANT (decl) = 1;
6892 if (processing_template_decl)
6894 bool type_dependent_p;
6896 /* Add this declaration to the statement-tree. */
6897 if (at_function_scope_p ())
6898 add_decl_expr (decl);
6900 type_dependent_p = dependent_type_p (type);
6902 if (check_for_bare_parameter_packs (init))
6904 init = NULL_TREE;
6905 DECL_INITIAL (decl) = NULL_TREE;
6908 /* Generally, initializers in templates are expanded when the
6909 template is instantiated. But, if DECL is a variable constant
6910 then it can be used in future constant expressions, so its value
6911 must be available. */
6913 if (!VAR_P (decl) || type_dependent_p)
6914 /* We can't do anything if the decl has dependent type. */;
6915 else if (init
6916 && init_const_expr_p
6917 && TREE_CODE (type) != REFERENCE_TYPE
6918 && decl_maybe_constant_var_p (decl)
6919 && !type_dependent_init_p (init)
6920 && !value_dependent_init_p (init))
6922 /* This variable seems to be a non-dependent constant, so process
6923 its initializer. If check_initializer returns non-null the
6924 initialization wasn't constant after all. */
6925 tree init_code;
6926 cleanups = make_tree_vector ();
6927 init_code = check_initializer (decl, init, flags, &cleanups);
6928 if (init_code == NULL_TREE)
6929 init = NULL_TREE;
6930 release_tree_vector (cleanups);
6932 else if (!init && is_concept_var (decl))
6933 error ("variable concept has no initializer");
6934 else if (!DECL_PRETTY_FUNCTION_P (decl))
6936 /* Deduce array size even if the initializer is dependent. */
6937 maybe_deduce_size_from_array_init (decl, init);
6938 /* And complain about multiple initializers. */
6939 if (init && TREE_CODE (init) == TREE_LIST && TREE_CHAIN (init)
6940 && !MAYBE_CLASS_TYPE_P (type))
6941 init = build_x_compound_expr_from_list (init, ELK_INIT,
6942 tf_warning_or_error);
6945 if (init)
6946 DECL_INITIAL (decl) = init;
6947 return;
6950 /* Just store non-static data member initializers for later. */
6951 if (init && TREE_CODE (decl) == FIELD_DECL)
6952 DECL_INITIAL (decl) = init;
6954 /* Take care of TYPE_DECLs up front. */
6955 if (TREE_CODE (decl) == TYPE_DECL)
6957 if (type != error_mark_node
6958 && MAYBE_CLASS_TYPE_P (type) && DECL_NAME (decl))
6960 if (TREE_TYPE (DECL_NAME (decl)) && TREE_TYPE (decl) != type)
6961 warning (0, "shadowing previous type declaration of %q#D", decl);
6962 set_identifier_type_value (DECL_NAME (decl), decl);
6965 /* If we have installed this as the canonical typedef for this
6966 type, and that type has not been defined yet, delay emitting
6967 the debug information for it, as we will emit it later. */
6968 if (TYPE_MAIN_DECL (TREE_TYPE (decl)) == decl
6969 && !COMPLETE_TYPE_P (TREE_TYPE (decl)))
6970 TYPE_DECL_SUPPRESS_DEBUG (decl) = 1;
6972 rest_of_decl_compilation (decl, DECL_FILE_SCOPE_P (decl),
6973 at_eof);
6974 return;
6977 /* A reference will be modified here, as it is initialized. */
6978 if (! DECL_EXTERNAL (decl)
6979 && TREE_READONLY (decl)
6980 && TREE_CODE (type) == REFERENCE_TYPE)
6982 was_readonly = 1;
6983 TREE_READONLY (decl) = 0;
6986 if (VAR_P (decl))
6988 /* If this is a local variable that will need a mangled name,
6989 register it now. We must do this before processing the
6990 initializer for the variable, since the initialization might
6991 require a guard variable, and since the mangled name of the
6992 guard variable will depend on the mangled name of this
6993 variable. */
6994 if (DECL_FUNCTION_SCOPE_P (decl)
6995 && TREE_STATIC (decl)
6996 && !DECL_ARTIFICIAL (decl))
6998 push_local_name (decl);
6999 /* Normally has_forced_label_in_static is set during GIMPLE
7000 lowering, but [cd]tors are never actually compiled directly.
7001 We need to set this early so we can deal with the label
7002 address extension. */
7003 if ((DECL_CONSTRUCTOR_P (current_function_decl)
7004 || DECL_DESTRUCTOR_P (current_function_decl))
7005 && init)
7007 walk_tree (&init, notice_forced_label_r, NULL, NULL);
7008 add_local_decl (cfun, decl);
7010 /* And make sure it's in the symbol table for
7011 c_parse_final_cleanups to find. */
7012 varpool_node::get_create (decl);
7015 /* Convert the initializer to the type of DECL, if we have not
7016 already initialized DECL. */
7017 if (!DECL_INITIALIZED_P (decl)
7018 /* If !DECL_EXTERNAL then DECL is being defined. In the
7019 case of a static data member initialized inside the
7020 class-specifier, there can be an initializer even if DECL
7021 is *not* defined. */
7022 && (!DECL_EXTERNAL (decl) || init))
7024 cleanups = make_tree_vector ();
7025 init = check_initializer (decl, init, flags, &cleanups);
7027 /* Handle:
7029 [dcl.init]
7031 The memory occupied by any object of static storage
7032 duration is zero-initialized at program startup before
7033 any other initialization takes place.
7035 We cannot create an appropriate initializer until after
7036 the type of DECL is finalized. If DECL_INITIAL is set,
7037 then the DECL is statically initialized, and any
7038 necessary zero-initialization has already been performed. */
7039 if (TREE_STATIC (decl) && !DECL_INITIAL (decl))
7040 DECL_INITIAL (decl) = build_zero_init (TREE_TYPE (decl),
7041 /*nelts=*/NULL_TREE,
7042 /*static_storage_p=*/true);
7043 /* Remember that the initialization for this variable has
7044 taken place. */
7045 DECL_INITIALIZED_P (decl) = 1;
7046 /* This declaration is the definition of this variable,
7047 unless we are initializing a static data member within
7048 the class specifier. */
7049 if (!DECL_EXTERNAL (decl))
7050 var_definition_p = true;
7052 /* If the variable has an array type, lay out the type, even if
7053 there is no initializer. It is valid to index through the
7054 array, and we must get TYPE_ALIGN set correctly on the array
7055 type. */
7056 else if (TREE_CODE (type) == ARRAY_TYPE)
7057 layout_type (type);
7059 if (TREE_STATIC (decl)
7060 && !at_function_scope_p ()
7061 && current_function_decl == NULL)
7062 /* So decl is a global variable or a static member of a
7063 non local class. Record the types it uses
7064 so that we can decide later to emit debug info for them. */
7065 record_types_used_by_current_var_decl (decl);
7068 /* Add this declaration to the statement-tree. This needs to happen
7069 after the call to check_initializer so that the DECL_EXPR for a
7070 reference temp is added before the DECL_EXPR for the reference itself. */
7071 if (DECL_FUNCTION_SCOPE_P (decl))
7073 /* If we're building a variable sized type, and we might be
7074 reachable other than via the top of the current binding
7075 level, then create a new BIND_EXPR so that we deallocate
7076 the object at the right time. */
7077 if (VAR_P (decl)
7078 && DECL_SIZE (decl)
7079 && !TREE_CONSTANT (DECL_SIZE (decl))
7080 && STATEMENT_LIST_HAS_LABEL (cur_stmt_list))
7082 tree bind;
7083 bind = build3 (BIND_EXPR, void_type_node, NULL, NULL, NULL);
7084 TREE_SIDE_EFFECTS (bind) = 1;
7085 add_stmt (bind);
7086 BIND_EXPR_BODY (bind) = push_stmt_list ();
7088 add_decl_expr (decl);
7091 /* Let the middle end know about variables and functions -- but not
7092 static data members in uninstantiated class templates. */
7093 if (VAR_OR_FUNCTION_DECL_P (decl))
7095 if (VAR_P (decl))
7097 layout_var_decl (decl);
7098 maybe_commonize_var (decl);
7101 /* This needs to happen after the linkage is set. */
7102 determine_visibility (decl);
7104 if (var_definition_p && TREE_STATIC (decl))
7106 /* If a TREE_READONLY variable needs initialization
7107 at runtime, it is no longer readonly and we need to
7108 avoid MEM_READONLY_P being set on RTL created for it. */
7109 if (init)
7111 if (TREE_READONLY (decl))
7112 TREE_READONLY (decl) = 0;
7113 was_readonly = 0;
7115 else if (was_readonly)
7116 TREE_READONLY (decl) = 1;
7118 /* Likewise if it needs destruction. */
7119 if (TYPE_HAS_NONTRIVIAL_DESTRUCTOR (type))
7120 TREE_READONLY (decl) = 0;
7123 make_rtl_for_nonlocal_decl (decl, init, asmspec);
7125 /* Check for abstractness of the type. Notice that there is no
7126 need to strip array types here since the check for those types
7127 is already done within create_array_type_for_decl. */
7128 abstract_virtuals_error (decl, type);
7130 if (TREE_TYPE (decl) == error_mark_node)
7131 /* No initialization required. */
7133 else if (TREE_CODE (decl) == FUNCTION_DECL)
7135 if (init)
7137 if (init == ridpointers[(int)RID_DEFAULT])
7139 /* An out-of-class default definition is defined at
7140 the point where it is explicitly defaulted. */
7141 if (DECL_DELETED_FN (decl))
7142 maybe_explain_implicit_delete (decl);
7143 else if (DECL_INITIAL (decl) == error_mark_node)
7144 synthesize_method (decl);
7146 else
7147 error ("function %q#D is initialized like a variable", decl);
7149 /* else no initialization required. */
7151 else if (DECL_EXTERNAL (decl)
7152 && ! (DECL_LANG_SPECIFIC (decl)
7153 && DECL_NOT_REALLY_EXTERN (decl)))
7155 if (init)
7156 DECL_INITIAL (decl) = init;
7158 /* A variable definition. */
7159 else if (DECL_FUNCTION_SCOPE_P (decl) && !TREE_STATIC (decl))
7160 /* Initialize the local variable. */
7161 initialize_local_var (decl, init);
7163 /* If a variable is defined, and then a subsequent
7164 definition with external linkage is encountered, we will
7165 get here twice for the same variable. We want to avoid
7166 calling expand_static_init more than once. For variables
7167 that are not static data members, we can call
7168 expand_static_init only when we actually process the
7169 initializer. It is not legal to redeclare a static data
7170 member, so this issue does not arise in that case. */
7171 else if (var_definition_p && TREE_STATIC (decl))
7172 expand_static_init (decl, init);
7175 /* If a CLEANUP_STMT was created to destroy a temporary bound to a
7176 reference, insert it in the statement-tree now. */
7177 if (cleanups)
7179 unsigned i; tree t;
7180 FOR_EACH_VEC_ELT (*cleanups, i, t)
7181 push_cleanup (decl, t, false);
7182 release_tree_vector (cleanups);
7185 if (was_readonly)
7186 TREE_READONLY (decl) = 1;
7188 invoke_plugin_callbacks (PLUGIN_FINISH_DECL, decl);
7191 /* For class TYPE return itself or some its bases that contain
7192 any direct non-static data members. Return error_mark_node if an
7193 error has been diagnosed. */
7195 static tree
7196 find_decomp_class_base (location_t loc, tree type, tree ret)
7198 bool member_seen = false;
7199 for (tree field = TYPE_FIELDS (type); field; field = DECL_CHAIN (field))
7200 if (TREE_CODE (field) != FIELD_DECL || DECL_ARTIFICIAL (field))
7201 continue;
7202 else if (ret)
7203 return type;
7204 else if (ANON_AGGR_TYPE_P (TREE_TYPE (field)))
7206 if (TREE_CODE (TREE_TYPE (field)) == RECORD_TYPE)
7207 error_at (loc, "cannot decompose class type %qT because it has an "
7208 "anonymous struct member", type);
7209 else
7210 error_at (loc, "cannot decompose class type %qT because it has an "
7211 "anonymous union member", type);
7212 inform (DECL_SOURCE_LOCATION (field), "declared here");
7213 return error_mark_node;
7215 else if (TREE_PRIVATE (field) || TREE_PROTECTED (field))
7217 error_at (loc, "cannot decompose non-public member %qD of %qT",
7218 field, type);
7219 inform (DECL_SOURCE_LOCATION (field),
7220 TREE_PRIVATE (field)
7221 ? G_("declared private here")
7222 : G_("declared protected here"));
7223 return error_mark_node;
7225 else
7226 member_seen = true;
7228 tree base_binfo, binfo;
7229 tree orig_ret = ret;
7230 int i;
7231 if (member_seen)
7232 ret = type;
7233 for (binfo = TYPE_BINFO (type), i = 0;
7234 BINFO_BASE_ITERATE (binfo, i, base_binfo); i++)
7236 tree t = find_decomp_class_base (loc, TREE_TYPE (base_binfo), ret);
7237 if (t == error_mark_node)
7238 return error_mark_node;
7239 if (t != NULL_TREE)
7241 if (ret == type)
7243 error_at (loc, "cannot decompose class type %qT: both it and "
7244 "its base class %qT have non-static data members",
7245 type, t);
7246 return error_mark_node;
7248 else if (orig_ret != NULL_TREE)
7249 return t;
7250 else if (ret == t)
7251 /* OK, found the same base along another path. We'll complain
7252 in convert_to_base if it's ambiguous. */;
7253 else if (ret != NULL_TREE)
7255 error_at (loc, "cannot decompose class type %qT: its base "
7256 "classes %qT and %qT have non-static data "
7257 "members", type, ret, t);
7258 return error_mark_node;
7260 else
7261 ret = t;
7264 return ret;
7267 /* Return std::tuple_size<TYPE>::value. */
7269 static tree
7270 get_tuple_size (tree type)
7272 tree args = make_tree_vec (1);
7273 TREE_VEC_ELT (args, 0) = type;
7274 tree inst = lookup_template_class (get_identifier ("tuple_size"), args,
7275 /*in_decl*/NULL_TREE,
7276 /*context*/std_node,
7277 /*entering_scope*/false, tf_none);
7278 inst = complete_type (inst);
7279 if (inst == error_mark_node || !COMPLETE_TYPE_P (inst))
7280 return NULL_TREE;
7281 tree val = lookup_qualified_name (inst, get_identifier ("value"),
7282 /*type*/false, /*complain*/false);
7283 if (TREE_CODE (val) == VAR_DECL || TREE_CODE (val) == CONST_DECL)
7284 val = maybe_constant_value (val);
7285 if (TREE_CODE (val) == INTEGER_CST)
7286 return val;
7287 else
7288 return error_mark_node;
7291 /* Return std::tuple_element<I,TYPE>::type. */
7293 static tree
7294 get_tuple_element_type (tree type, unsigned i)
7296 tree args = make_tree_vec (2);
7297 TREE_VEC_ELT (args, 0) = build_int_cst (integer_type_node, i);
7298 TREE_VEC_ELT (args, 1) = type;
7299 tree inst = lookup_template_class (get_identifier ("tuple_element"), args,
7300 /*in_decl*/NULL_TREE,
7301 /*context*/std_node,
7302 /*entering_scope*/false,
7303 tf_warning_or_error);
7304 return make_typename_type (inst, get_identifier ("type"),
7305 none_type, tf_warning_or_error);
7308 /* Return e.get<i>() or get<i>(e). */
7310 static tree
7311 get_tuple_decomp_init (tree decl, unsigned i)
7313 tree get_id = get_identifier ("get");
7314 tree targs = make_tree_vec (1);
7315 TREE_VEC_ELT (targs, 0) = build_int_cst (integer_type_node, i);
7317 tree etype = TREE_TYPE (decl);
7318 tree e = convert_from_reference (decl);
7320 /* [The id-expression] e is an lvalue if the type of the entity e is an
7321 lvalue reference and an xvalue otherwise. */
7322 if (TREE_CODE (etype) != REFERENCE_TYPE
7323 || TYPE_REF_IS_RVALUE (etype))
7324 e = move (e);
7326 tree fns = lookup_qualified_name (TREE_TYPE (e), get_id,
7327 /*type*/false, /*complain*/false);
7328 if (fns != error_mark_node)
7330 fns = lookup_template_function (fns, targs);
7331 return build_new_method_call (e, fns, /*args*/NULL,
7332 /*path*/NULL_TREE, LOOKUP_NORMAL,
7333 /*fn_p*/NULL, tf_warning_or_error);
7335 else
7337 vec<tree,va_gc> *args = make_tree_vector_single (e);
7338 fns = lookup_template_function (get_id, targs);
7339 fns = perform_koenig_lookup (fns, args, tf_warning_or_error);
7340 return finish_call_expr (fns, &args, /*novirt*/false,
7341 /*koenig*/true, tf_warning_or_error);
7345 /* It's impossible to recover the decltype of a tuple decomposition variable
7346 based on the actual type of the variable, so store it in a hash table. */
7348 static GTY((cache)) tree_cache_map *decomp_type_table;
7349 static void
7350 store_decomp_type (tree v, tree t)
7352 if (!decomp_type_table)
7353 decomp_type_table = tree_cache_map::create_ggc (13);
7354 decomp_type_table->put (v, t);
7357 tree
7358 lookup_decomp_type (tree v)
7360 return *decomp_type_table->get (v);
7363 /* Finish a decomposition declaration. DECL is the underlying declaration
7364 "e", FIRST is the head of a chain of decls for the individual identifiers
7365 chained through DECL_CHAIN in reverse order and COUNT is the number of
7366 those decls. */
7368 void
7369 cp_finish_decomp (tree decl, tree first, unsigned int count)
7371 if (error_operand_p (decl))
7373 error_out:
7374 while (count--)
7376 TREE_TYPE (first) = error_mark_node;
7377 if (DECL_HAS_VALUE_EXPR_P (first))
7379 SET_DECL_VALUE_EXPR (first, NULL_TREE);
7380 DECL_HAS_VALUE_EXPR_P (first) = 0;
7382 first = DECL_CHAIN (first);
7384 if (DECL_P (decl) && DECL_NAMESPACE_SCOPE_P (decl))
7385 SET_DECL_ASSEMBLER_NAME (decl, get_identifier ("<decomp>"));
7386 return;
7389 location_t loc = DECL_SOURCE_LOCATION (decl);
7390 if (type_dependent_expression_p (decl)
7391 /* This happens for range for when not in templates.
7392 Still add the DECL_VALUE_EXPRs for later processing. */
7393 || (!processing_template_decl
7394 && type_uses_auto (TREE_TYPE (decl))))
7396 for (unsigned int i = 0; i < count; i++)
7398 if (!DECL_HAS_VALUE_EXPR_P (first))
7400 tree v = build_nt (ARRAY_REF, decl,
7401 size_int (count - i - 1),
7402 NULL_TREE, NULL_TREE);
7403 SET_DECL_VALUE_EXPR (first, v);
7404 DECL_HAS_VALUE_EXPR_P (first) = 1;
7406 if (processing_template_decl)
7407 fit_decomposition_lang_decl (first, decl);
7408 first = DECL_CHAIN (first);
7410 return;
7413 auto_vec<tree, 16> v;
7414 v.safe_grow (count);
7415 tree d = first;
7416 for (unsigned int i = 0; i < count; i++, d = DECL_CHAIN (d))
7418 v[count - i - 1] = d;
7419 fit_decomposition_lang_decl (d, decl);
7422 tree type = TREE_TYPE (decl);
7423 tree dexp = decl;
7425 if (TREE_CODE (type) == REFERENCE_TYPE)
7427 dexp = convert_from_reference (dexp);
7428 type = TREE_TYPE (type);
7431 tree eltype = NULL_TREE;
7432 unsigned HOST_WIDE_INT eltscnt = 0;
7433 if (TREE_CODE (type) == ARRAY_TYPE)
7435 tree nelts;
7436 nelts = array_type_nelts_top (type);
7437 if (nelts == error_mark_node)
7438 goto error_out;
7439 if (!tree_fits_uhwi_p (nelts))
7441 error_at (loc, "cannot decompose variable length array %qT", type);
7442 goto error_out;
7444 eltscnt = tree_to_uhwi (nelts);
7445 if (count != eltscnt)
7447 cnt_mismatch:
7448 if (count > eltscnt)
7449 error_at (loc, "%u names provided while %qT decomposes into "
7450 "%wu elements", count, type, eltscnt);
7451 else
7452 error_at (loc, "only %u names provided while %qT decomposes into "
7453 "%wu elements", count, type, eltscnt);
7454 goto error_out;
7456 eltype = TREE_TYPE (type);
7457 for (unsigned int i = 0; i < count; i++)
7459 TREE_TYPE (v[i]) = eltype;
7460 layout_decl (v[i], 0);
7461 if (processing_template_decl)
7462 continue;
7463 tree t = unshare_expr (dexp);
7464 t = build4_loc (DECL_SOURCE_LOCATION (v[i]), ARRAY_REF,
7465 eltype, t, size_int (i), NULL_TREE,
7466 NULL_TREE);
7467 SET_DECL_VALUE_EXPR (v[i], t);
7468 DECL_HAS_VALUE_EXPR_P (v[i]) = 1;
7471 /* 2 GNU extensions. */
7472 else if (TREE_CODE (type) == COMPLEX_TYPE)
7474 eltscnt = 2;
7475 if (count != eltscnt)
7476 goto cnt_mismatch;
7477 eltype = cp_build_qualified_type (TREE_TYPE (type), TYPE_QUALS (type));
7478 for (unsigned int i = 0; i < count; i++)
7480 TREE_TYPE (v[i]) = eltype;
7481 layout_decl (v[i], 0);
7482 if (processing_template_decl)
7483 continue;
7484 tree t = unshare_expr (dexp);
7485 t = build1_loc (DECL_SOURCE_LOCATION (v[i]),
7486 i ? IMAGPART_EXPR : REALPART_EXPR, eltype,
7488 SET_DECL_VALUE_EXPR (v[i], t);
7489 DECL_HAS_VALUE_EXPR_P (v[i]) = 1;
7492 else if (TREE_CODE (type) == VECTOR_TYPE)
7494 eltscnt = TYPE_VECTOR_SUBPARTS (type);
7495 if (count != eltscnt)
7496 goto cnt_mismatch;
7497 eltype = cp_build_qualified_type (TREE_TYPE (type), TYPE_QUALS (type));
7498 for (unsigned int i = 0; i < count; i++)
7500 TREE_TYPE (v[i]) = eltype;
7501 layout_decl (v[i], 0);
7502 if (processing_template_decl)
7503 continue;
7504 tree t = unshare_expr (dexp);
7505 convert_vector_to_array_for_subscript (DECL_SOURCE_LOCATION (v[i]),
7506 &t, size_int (i));
7507 t = build4_loc (DECL_SOURCE_LOCATION (v[i]), ARRAY_REF,
7508 eltype, t, size_int (i), NULL_TREE,
7509 NULL_TREE);
7510 SET_DECL_VALUE_EXPR (v[i], t);
7511 DECL_HAS_VALUE_EXPR_P (v[i]) = 1;
7514 else if (tree tsize = get_tuple_size (type))
7516 if (tsize == error_mark_node)
7518 error_at (loc, "%<std::tuple_size<%T>::value%> is not an integral "
7519 "constant expression", type);
7520 goto error_out;
7522 eltscnt = tree_to_uhwi (tsize);
7523 if (count != eltscnt)
7524 goto cnt_mismatch;
7525 int save_read = DECL_READ_P (decl);
7526 for (unsigned i = 0; i < count; ++i)
7528 location_t sloc = input_location;
7529 location_t dloc = DECL_SOURCE_LOCATION (v[i]);
7531 input_location = dloc;
7532 tree init = get_tuple_decomp_init (decl, i);
7533 tree eltype = (init == error_mark_node ? error_mark_node
7534 : get_tuple_element_type (type, i));
7535 input_location = sloc;
7537 if (init == error_mark_node || eltype == error_mark_node)
7539 inform (dloc, "in initialization of structured binding "
7540 "variable %qD", v[i]);
7541 goto error_out;
7543 /* Save the decltype away before reference collapse. */
7544 store_decomp_type (v[i], eltype);
7545 eltype = cp_build_reference_type (eltype, !lvalue_p (init));
7546 TREE_TYPE (v[i]) = eltype;
7547 layout_decl (v[i], 0);
7548 if (DECL_HAS_VALUE_EXPR_P (v[i]))
7550 /* In this case the names are variables, not just proxies. */
7551 SET_DECL_VALUE_EXPR (v[i], NULL_TREE);
7552 DECL_HAS_VALUE_EXPR_P (v[i]) = 0;
7554 if (!processing_template_decl)
7555 cp_finish_decl (v[i], init, /*constexpr*/false,
7556 /*asm*/NULL_TREE, LOOKUP_NORMAL);
7558 /* Ignore reads from the underlying decl performed during initialization
7559 of the individual variables. If those will be read, we'll mark
7560 the underlying decl as read at that point. */
7561 DECL_READ_P (decl) = save_read;
7563 else if (TREE_CODE (type) == UNION_TYPE)
7565 error_at (loc, "cannot decompose union type %qT", type);
7566 goto error_out;
7568 else if (!CLASS_TYPE_P (type))
7570 error_at (loc, "cannot decompose non-array non-class type %qT", type);
7571 goto error_out;
7573 else if (LAMBDA_TYPE_P (type))
7575 error_at (loc, "cannot decompose lambda closure type %qT", type);
7576 goto error_out;
7578 else
7580 tree btype = find_decomp_class_base (loc, type, NULL_TREE);
7581 if (btype == error_mark_node)
7582 goto error_out;
7583 else if (btype == NULL_TREE)
7585 error_at (loc, "cannot decompose class type %qT without non-static "
7586 "data members", type);
7587 goto error_out;
7589 for (tree field = TYPE_FIELDS (btype); field; field = TREE_CHAIN (field))
7590 if (TREE_CODE (field) != FIELD_DECL || DECL_ARTIFICIAL (field))
7591 continue;
7592 else
7593 eltscnt++;
7594 if (count != eltscnt)
7595 goto cnt_mismatch;
7596 tree t = dexp;
7597 if (type != btype)
7599 t = convert_to_base (t, btype, /*check_access*/true,
7600 /*nonnull*/false, tf_warning_or_error);
7601 type = btype;
7603 unsigned int i = 0;
7604 for (tree field = TYPE_FIELDS (btype); field; field = TREE_CHAIN (field))
7605 if (TREE_CODE (field) != FIELD_DECL || DECL_ARTIFICIAL (field))
7606 continue;
7607 else
7609 tree tt = finish_non_static_data_member (field, unshare_expr (t),
7610 NULL_TREE);
7611 if (REFERENCE_REF_P (tt))
7612 tt = TREE_OPERAND (tt, 0);
7613 TREE_TYPE (v[i]) = TREE_TYPE (tt);
7614 layout_decl (v[i], 0);
7615 if (!processing_template_decl)
7617 SET_DECL_VALUE_EXPR (v[i], tt);
7618 DECL_HAS_VALUE_EXPR_P (v[i]) = 1;
7620 i++;
7623 if (processing_template_decl)
7625 for (unsigned int i = 0; i < count; i++)
7626 if (!DECL_HAS_VALUE_EXPR_P (v[i]))
7628 tree a = build_nt (ARRAY_REF, decl, size_int (i),
7629 NULL_TREE, NULL_TREE);
7630 SET_DECL_VALUE_EXPR (v[i], a);
7631 DECL_HAS_VALUE_EXPR_P (v[i]) = 1;
7634 else if (DECL_NAMESPACE_SCOPE_P (decl))
7635 SET_DECL_ASSEMBLER_NAME (decl, mangle_decomp (decl, v));
7638 /* Returns a declaration for a VAR_DECL as if:
7640 extern "C" TYPE NAME;
7642 had been seen. Used to create compiler-generated global
7643 variables. */
7645 static tree
7646 declare_global_var (tree name, tree type)
7648 tree decl;
7650 push_to_top_level ();
7651 decl = build_decl (input_location, VAR_DECL, name, type);
7652 TREE_PUBLIC (decl) = 1;
7653 DECL_EXTERNAL (decl) = 1;
7654 DECL_ARTIFICIAL (decl) = 1;
7655 DECL_CONTEXT (decl) = FROB_CONTEXT (global_namespace);
7656 /* If the user has explicitly declared this variable (perhaps
7657 because the code we are compiling is part of a low-level runtime
7658 library), then it is possible that our declaration will be merged
7659 with theirs by pushdecl. */
7660 decl = pushdecl (decl);
7661 cp_finish_decl (decl, NULL_TREE, false, NULL_TREE, 0);
7662 pop_from_top_level ();
7664 return decl;
7667 /* Returns the type for the argument to "__cxa_atexit" (or "atexit",
7668 if "__cxa_atexit" is not being used) corresponding to the function
7669 to be called when the program exits. */
7671 static tree
7672 get_atexit_fn_ptr_type (void)
7674 tree fn_type;
7676 if (!atexit_fn_ptr_type_node)
7678 tree arg_type;
7679 if (flag_use_cxa_atexit
7680 && !targetm.cxx.use_atexit_for_cxa_atexit ())
7681 /* The parameter to "__cxa_atexit" is "void (*)(void *)". */
7682 arg_type = ptr_type_node;
7683 else
7684 /* The parameter to "atexit" is "void (*)(void)". */
7685 arg_type = NULL_TREE;
7687 fn_type = build_function_type_list (void_type_node,
7688 arg_type, NULL_TREE);
7689 atexit_fn_ptr_type_node = build_pointer_type (fn_type);
7692 return atexit_fn_ptr_type_node;
7695 /* Returns a pointer to the `atexit' function. Note that if
7696 FLAG_USE_CXA_ATEXIT is nonzero, then this will actually be the new
7697 `__cxa_atexit' function specified in the IA64 C++ ABI. */
7699 static tree
7700 get_atexit_node (void)
7702 tree atexit_fndecl;
7703 tree fn_type;
7704 tree fn_ptr_type;
7705 const char *name;
7706 bool use_aeabi_atexit;
7708 if (atexit_node)
7709 return atexit_node;
7711 if (flag_use_cxa_atexit && !targetm.cxx.use_atexit_for_cxa_atexit ())
7713 /* The declaration for `__cxa_atexit' is:
7715 int __cxa_atexit (void (*)(void *), void *, void *)
7717 We build up the argument types and then the function type
7718 itself. */
7719 tree argtype0, argtype1, argtype2;
7721 use_aeabi_atexit = targetm.cxx.use_aeabi_atexit ();
7722 /* First, build the pointer-to-function type for the first
7723 argument. */
7724 fn_ptr_type = get_atexit_fn_ptr_type ();
7725 /* Then, build the rest of the argument types. */
7726 argtype2 = ptr_type_node;
7727 if (use_aeabi_atexit)
7729 argtype1 = fn_ptr_type;
7730 argtype0 = ptr_type_node;
7732 else
7734 argtype1 = ptr_type_node;
7735 argtype0 = fn_ptr_type;
7737 /* And the final __cxa_atexit type. */
7738 fn_type = build_function_type_list (integer_type_node,
7739 argtype0, argtype1, argtype2,
7740 NULL_TREE);
7741 if (use_aeabi_atexit)
7742 name = "__aeabi_atexit";
7743 else
7744 name = "__cxa_atexit";
7746 else
7748 /* The declaration for `atexit' is:
7750 int atexit (void (*)());
7752 We build up the argument types and then the function type
7753 itself. */
7754 fn_ptr_type = get_atexit_fn_ptr_type ();
7755 /* Build the final atexit type. */
7756 fn_type = build_function_type_list (integer_type_node,
7757 fn_ptr_type, NULL_TREE);
7758 name = "atexit";
7761 /* Now, build the function declaration. */
7762 push_lang_context (lang_name_c);
7763 atexit_fndecl = build_library_fn_ptr (name, fn_type, ECF_LEAF | ECF_NOTHROW);
7764 mark_used (atexit_fndecl);
7765 pop_lang_context ();
7766 atexit_node = decay_conversion (atexit_fndecl, tf_warning_or_error);
7768 return atexit_node;
7771 /* Like get_atexit_node, but for thread-local cleanups. */
7773 static tree
7774 get_thread_atexit_node (void)
7776 /* The declaration for `__cxa_thread_atexit' is:
7778 int __cxa_thread_atexit (void (*)(void *), void *, void *) */
7779 tree fn_type = build_function_type_list (integer_type_node,
7780 get_atexit_fn_ptr_type (),
7781 ptr_type_node, ptr_type_node,
7782 NULL_TREE);
7784 /* Now, build the function declaration. */
7785 tree atexit_fndecl = build_library_fn_ptr ("__cxa_thread_atexit", fn_type,
7786 ECF_LEAF | ECF_NOTHROW);
7787 return decay_conversion (atexit_fndecl, tf_warning_or_error);
7790 /* Returns the __dso_handle VAR_DECL. */
7792 static tree
7793 get_dso_handle_node (void)
7795 if (dso_handle_node)
7796 return dso_handle_node;
7798 /* Declare the variable. */
7799 dso_handle_node = declare_global_var (get_identifier ("__dso_handle"),
7800 ptr_type_node);
7802 #ifdef HAVE_GAS_HIDDEN
7803 if (dso_handle_node != error_mark_node)
7805 DECL_VISIBILITY (dso_handle_node) = VISIBILITY_HIDDEN;
7806 DECL_VISIBILITY_SPECIFIED (dso_handle_node) = 1;
7808 #endif
7810 return dso_handle_node;
7813 /* Begin a new function with internal linkage whose job will be simply
7814 to destroy some particular variable. */
7816 static GTY(()) int start_cleanup_cnt;
7818 static tree
7819 start_cleanup_fn (void)
7821 char name[32];
7822 tree fntype;
7823 tree fndecl;
7824 bool use_cxa_atexit = flag_use_cxa_atexit
7825 && !targetm.cxx.use_atexit_for_cxa_atexit ();
7827 push_to_top_level ();
7829 /* No need to mangle this. */
7830 push_lang_context (lang_name_c);
7832 /* Build the name of the function. */
7833 sprintf (name, "__tcf_%d", start_cleanup_cnt++);
7834 /* Build the function declaration. */
7835 fntype = TREE_TYPE (get_atexit_fn_ptr_type ());
7836 fndecl = build_lang_decl (FUNCTION_DECL, get_identifier (name), fntype);
7837 /* It's a function with internal linkage, generated by the
7838 compiler. */
7839 TREE_PUBLIC (fndecl) = 0;
7840 DECL_ARTIFICIAL (fndecl) = 1;
7841 /* Make the function `inline' so that it is only emitted if it is
7842 actually needed. It is unlikely that it will be inlined, since
7843 it is only called via a function pointer, but we avoid unnecessary
7844 emissions this way. */
7845 DECL_DECLARED_INLINE_P (fndecl) = 1;
7846 DECL_INTERFACE_KNOWN (fndecl) = 1;
7847 /* Build the parameter. */
7848 if (use_cxa_atexit)
7850 tree parmdecl = cp_build_parm_decl (fndecl, NULL_TREE, ptr_type_node);
7851 TREE_USED (parmdecl) = 1;
7852 DECL_READ_P (parmdecl) = 1;
7853 DECL_ARGUMENTS (fndecl) = parmdecl;
7856 pushdecl (fndecl);
7857 start_preparsed_function (fndecl, NULL_TREE, SF_PRE_PARSED);
7859 pop_lang_context ();
7861 return current_function_decl;
7864 /* Finish the cleanup function begun by start_cleanup_fn. */
7866 static void
7867 end_cleanup_fn (void)
7869 expand_or_defer_fn (finish_function (/*inline_p=*/false));
7871 pop_from_top_level ();
7874 /* Generate code to handle the destruction of DECL, an object with
7875 static storage duration. */
7877 tree
7878 register_dtor_fn (tree decl)
7880 tree cleanup;
7881 tree addr;
7882 tree compound_stmt;
7883 tree fcall;
7884 tree type;
7885 bool ob_parm, dso_parm, use_dtor;
7886 tree arg0, arg1, arg2;
7887 tree atex_node;
7889 type = TREE_TYPE (decl);
7890 if (TYPE_HAS_TRIVIAL_DESTRUCTOR (type))
7891 return void_node;
7893 /* If we're using "__cxa_atexit" (or "__cxa_thread_atexit" or
7894 "__aeabi_atexit"), and DECL is a class object, we can just pass the
7895 destructor to "__cxa_atexit"; we don't have to build a temporary
7896 function to do the cleanup. */
7897 dso_parm = (flag_use_cxa_atexit
7898 && !targetm.cxx.use_atexit_for_cxa_atexit ());
7899 ob_parm = (CP_DECL_THREAD_LOCAL_P (decl) || dso_parm);
7900 use_dtor = ob_parm && CLASS_TYPE_P (type);
7901 if (use_dtor)
7903 cleanup = get_class_binding (type, complete_dtor_identifier);
7905 /* Make sure it is accessible. */
7906 perform_or_defer_access_check (TYPE_BINFO (type), cleanup, cleanup,
7907 tf_warning_or_error);
7909 else
7911 /* Call build_cleanup before we enter the anonymous function so
7912 that any access checks will be done relative to the current
7913 scope, rather than the scope of the anonymous function. */
7914 build_cleanup (decl);
7916 /* Now start the function. */
7917 cleanup = start_cleanup_fn ();
7919 /* Now, recompute the cleanup. It may contain SAVE_EXPRs that refer
7920 to the original function, rather than the anonymous one. That
7921 will make the back end think that nested functions are in use,
7922 which causes confusion. */
7923 push_deferring_access_checks (dk_no_check);
7924 fcall = build_cleanup (decl);
7925 pop_deferring_access_checks ();
7927 /* Create the body of the anonymous function. */
7928 compound_stmt = begin_compound_stmt (BCS_FN_BODY);
7929 finish_expr_stmt (fcall);
7930 finish_compound_stmt (compound_stmt);
7931 end_cleanup_fn ();
7934 /* Call atexit with the cleanup function. */
7935 mark_used (cleanup);
7936 cleanup = build_address (cleanup);
7938 if (CP_DECL_THREAD_LOCAL_P (decl))
7939 atex_node = get_thread_atexit_node ();
7940 else
7941 atex_node = get_atexit_node ();
7943 if (use_dtor)
7945 /* We must convert CLEANUP to the type that "__cxa_atexit"
7946 expects. */
7947 cleanup = build_nop (get_atexit_fn_ptr_type (), cleanup);
7948 /* "__cxa_atexit" will pass the address of DECL to the
7949 cleanup function. */
7950 mark_used (decl);
7951 addr = build_address (decl);
7952 /* The declared type of the parameter to "__cxa_atexit" is
7953 "void *". For plain "T*", we could just let the
7954 machinery in cp_build_function_call convert it -- but if the
7955 type is "cv-qualified T *", then we need to convert it
7956 before passing it in, to avoid spurious errors. */
7957 addr = build_nop (ptr_type_node, addr);
7959 else
7960 /* Since the cleanup functions we build ignore the address
7961 they're given, there's no reason to pass the actual address
7962 in, and, in general, it's cheaper to pass NULL than any
7963 other value. */
7964 addr = null_pointer_node;
7966 if (dso_parm)
7967 arg2 = cp_build_addr_expr (get_dso_handle_node (),
7968 tf_warning_or_error);
7969 else if (ob_parm)
7970 /* Just pass NULL to the dso handle parm if we don't actually
7971 have a DSO handle on this target. */
7972 arg2 = null_pointer_node;
7973 else
7974 arg2 = NULL_TREE;
7976 if (ob_parm)
7978 if (!CP_DECL_THREAD_LOCAL_P (decl)
7979 && targetm.cxx.use_aeabi_atexit ())
7981 arg1 = cleanup;
7982 arg0 = addr;
7984 else
7986 arg1 = addr;
7987 arg0 = cleanup;
7990 else
7992 arg0 = cleanup;
7993 arg1 = NULL_TREE;
7995 return cp_build_function_call_nary (atex_node, tf_warning_or_error,
7996 arg0, arg1, arg2, NULL_TREE);
7999 /* DECL is a VAR_DECL with static storage duration. INIT, if present,
8000 is its initializer. Generate code to handle the construction
8001 and destruction of DECL. */
8003 static void
8004 expand_static_init (tree decl, tree init)
8006 gcc_assert (VAR_P (decl));
8007 gcc_assert (TREE_STATIC (decl));
8009 /* Some variables require no dynamic initialization. */
8010 if (TYPE_HAS_TRIVIAL_DESTRUCTOR (TREE_TYPE (decl)))
8012 /* Make sure the destructor is callable. */
8013 cxx_maybe_build_cleanup (decl, tf_warning_or_error);
8014 if (!init)
8015 return;
8018 if (CP_DECL_THREAD_LOCAL_P (decl) && DECL_GNU_TLS_P (decl)
8019 && !DECL_FUNCTION_SCOPE_P (decl))
8021 if (init)
8022 error ("non-local variable %qD declared %<__thread%> "
8023 "needs dynamic initialization", decl);
8024 else
8025 error ("non-local variable %qD declared %<__thread%> "
8026 "has a non-trivial destructor", decl);
8027 static bool informed;
8028 if (!informed)
8030 inform (DECL_SOURCE_LOCATION (decl),
8031 "C++11 %<thread_local%> allows dynamic initialization "
8032 "and destruction");
8033 informed = true;
8035 return;
8038 if (DECL_FUNCTION_SCOPE_P (decl))
8040 /* Emit code to perform this initialization but once. */
8041 tree if_stmt = NULL_TREE, inner_if_stmt = NULL_TREE;
8042 tree then_clause = NULL_TREE, inner_then_clause = NULL_TREE;
8043 tree guard, guard_addr;
8044 tree flag, begin;
8045 /* We don't need thread-safety code for thread-local vars. */
8046 bool thread_guard = (flag_threadsafe_statics
8047 && !CP_DECL_THREAD_LOCAL_P (decl));
8049 /* Emit code to perform this initialization but once. This code
8050 looks like:
8052 static <type> guard;
8053 if (!__atomic_load (guard.first_byte)) {
8054 if (__cxa_guard_acquire (&guard)) {
8055 bool flag = false;
8056 try {
8057 // Do initialization.
8058 flag = true; __cxa_guard_release (&guard);
8059 // Register variable for destruction at end of program.
8060 } catch {
8061 if (!flag) __cxa_guard_abort (&guard);
8066 Note that the `flag' variable is only set to 1 *after* the
8067 initialization is complete. This ensures that an exception,
8068 thrown during the construction, will cause the variable to
8069 reinitialized when we pass through this code again, as per:
8071 [stmt.dcl]
8073 If the initialization exits by throwing an exception, the
8074 initialization is not complete, so it will be tried again
8075 the next time control enters the declaration.
8077 This process should be thread-safe, too; multiple threads
8078 should not be able to initialize the variable more than
8079 once. */
8081 /* Create the guard variable. */
8082 guard = get_guard (decl);
8084 /* Begin the conditional initialization. */
8085 if_stmt = begin_if_stmt ();
8087 finish_if_stmt_cond (get_guard_cond (guard, thread_guard), if_stmt);
8088 then_clause = begin_compound_stmt (BCS_NO_SCOPE);
8090 if (thread_guard)
8092 tree vfntype = NULL_TREE;
8093 tree acquire_name, release_name, abort_name;
8094 tree acquire_fn, release_fn, abort_fn;
8095 guard_addr = build_address (guard);
8097 acquire_name = get_identifier ("__cxa_guard_acquire");
8098 release_name = get_identifier ("__cxa_guard_release");
8099 abort_name = get_identifier ("__cxa_guard_abort");
8100 acquire_fn = get_global_binding (acquire_name);
8101 release_fn = get_global_binding (release_name);
8102 abort_fn = get_global_binding (abort_name);
8103 if (!acquire_fn)
8104 acquire_fn = push_library_fn
8105 (acquire_name, build_function_type_list (integer_type_node,
8106 TREE_TYPE (guard_addr),
8107 NULL_TREE),
8108 NULL_TREE, ECF_NOTHROW | ECF_LEAF);
8109 if (!release_fn || !abort_fn)
8110 vfntype = build_function_type_list (void_type_node,
8111 TREE_TYPE (guard_addr),
8112 NULL_TREE);
8113 if (!release_fn)
8114 release_fn = push_library_fn (release_name, vfntype, NULL_TREE,
8115 ECF_NOTHROW | ECF_LEAF);
8116 if (!abort_fn)
8117 abort_fn = push_library_fn (abort_name, vfntype, NULL_TREE,
8118 ECF_NOTHROW | ECF_LEAF);
8120 inner_if_stmt = begin_if_stmt ();
8121 finish_if_stmt_cond (build_call_n (acquire_fn, 1, guard_addr),
8122 inner_if_stmt);
8124 inner_then_clause = begin_compound_stmt (BCS_NO_SCOPE);
8125 begin = get_target_expr (boolean_false_node);
8126 flag = TARGET_EXPR_SLOT (begin);
8128 TARGET_EXPR_CLEANUP (begin)
8129 = build3 (COND_EXPR, void_type_node, flag,
8130 void_node,
8131 build_call_n (abort_fn, 1, guard_addr));
8132 CLEANUP_EH_ONLY (begin) = 1;
8134 /* Do the initialization itself. */
8135 init = add_stmt_to_compound (begin, init);
8136 init = add_stmt_to_compound
8137 (init, build2 (MODIFY_EXPR, void_type_node, flag, boolean_true_node));
8138 init = add_stmt_to_compound
8139 (init, build_call_n (release_fn, 1, guard_addr));
8141 else
8142 init = add_stmt_to_compound (init, set_guard (guard));
8144 /* Use atexit to register a function for destroying this static
8145 variable. */
8146 init = add_stmt_to_compound (init, register_dtor_fn (decl));
8148 finish_expr_stmt (init);
8150 if (thread_guard)
8152 finish_compound_stmt (inner_then_clause);
8153 finish_then_clause (inner_if_stmt);
8154 finish_if_stmt (inner_if_stmt);
8157 finish_compound_stmt (then_clause);
8158 finish_then_clause (if_stmt);
8159 finish_if_stmt (if_stmt);
8161 else if (CP_DECL_THREAD_LOCAL_P (decl))
8162 tls_aggregates = tree_cons (init, decl, tls_aggregates);
8163 else
8164 static_aggregates = tree_cons (init, decl, static_aggregates);
8168 /* Make TYPE a complete type based on INITIAL_VALUE.
8169 Return 0 if successful, 1 if INITIAL_VALUE can't be deciphered,
8170 2 if there was no information (in which case assume 0 if DO_DEFAULT),
8171 3 if the initializer list is empty (in pedantic mode). */
8174 cp_complete_array_type (tree *ptype, tree initial_value, bool do_default)
8176 int failure;
8177 tree type, elt_type;
8179 /* Don't get confused by a CONSTRUCTOR for some other type. */
8180 if (initial_value && TREE_CODE (initial_value) == CONSTRUCTOR
8181 && !BRACE_ENCLOSED_INITIALIZER_P (initial_value)
8182 && TREE_CODE (TREE_TYPE (initial_value)) != ARRAY_TYPE)
8183 return 1;
8185 if (initial_value)
8187 unsigned HOST_WIDE_INT i;
8188 tree value;
8190 /* An array of character type can be initialized from a
8191 brace-enclosed string constant.
8193 FIXME: this code is duplicated from reshape_init. Probably
8194 we should just call reshape_init here? */
8195 if (char_type_p (TYPE_MAIN_VARIANT (TREE_TYPE (*ptype)))
8196 && TREE_CODE (initial_value) == CONSTRUCTOR
8197 && !vec_safe_is_empty (CONSTRUCTOR_ELTS (initial_value)))
8199 vec<constructor_elt, va_gc> *v = CONSTRUCTOR_ELTS (initial_value);
8200 tree value = (*v)[0].value;
8202 if (TREE_CODE (value) == STRING_CST
8203 && v->length () == 1)
8204 initial_value = value;
8207 /* If any of the elements are parameter packs, we can't actually
8208 complete this type now because the array size is dependent. */
8209 if (TREE_CODE (initial_value) == CONSTRUCTOR)
8211 FOR_EACH_CONSTRUCTOR_VALUE (CONSTRUCTOR_ELTS (initial_value),
8212 i, value)
8214 if (PACK_EXPANSION_P (value))
8215 return 0;
8220 failure = complete_array_type (ptype, initial_value, do_default);
8222 /* We can create the array before the element type is complete, which
8223 means that we didn't have these two bits set in the original type
8224 either. In completing the type, we are expected to propagate these
8225 bits. See also complete_type which does the same thing for arrays
8226 of fixed size. */
8227 type = *ptype;
8228 if (TYPE_DOMAIN (type))
8230 elt_type = TREE_TYPE (type);
8231 TYPE_NEEDS_CONSTRUCTING (type) = TYPE_NEEDS_CONSTRUCTING (elt_type);
8232 TYPE_HAS_NONTRIVIAL_DESTRUCTOR (type)
8233 = TYPE_HAS_NONTRIVIAL_DESTRUCTOR (elt_type);
8236 return failure;
8239 /* As above, but either give an error or reject zero-size arrays, depending
8240 on COMPLAIN. */
8243 cp_complete_array_type_or_error (tree *ptype, tree initial_value,
8244 bool do_default, tsubst_flags_t complain)
8246 int failure;
8247 bool sfinae = !(complain & tf_error);
8248 /* In SFINAE context we can't be lenient about zero-size arrays. */
8249 if (sfinae)
8250 ++pedantic;
8251 failure = cp_complete_array_type (ptype, initial_value, do_default);
8252 if (sfinae)
8253 --pedantic;
8254 if (failure)
8256 if (sfinae)
8257 /* Not an error. */;
8258 else if (failure == 1)
8259 error ("initializer fails to determine size of %qT", *ptype);
8260 else if (failure == 2)
8262 if (do_default)
8263 error ("array size missing in %qT", *ptype);
8265 else if (failure == 3)
8266 error ("zero-size array %qT", *ptype);
8267 *ptype = error_mark_node;
8269 return failure;
8272 /* Return zero if something is declared to be a member of type
8273 CTYPE when in the context of CUR_TYPE. STRING is the error
8274 message to print in that case. Otherwise, quietly return 1. */
8276 static int
8277 member_function_or_else (tree ctype, tree cur_type, enum overload_flags flags)
8279 if (ctype && ctype != cur_type)
8281 if (flags == DTOR_FLAG)
8282 error ("destructor for alien class %qT cannot be a member", ctype);
8283 else
8284 error ("constructor for alien class %qT cannot be a member", ctype);
8285 return 0;
8287 return 1;
8290 /* Subroutine of `grokdeclarator'. */
8292 /* Generate errors possibly applicable for a given set of specifiers.
8293 This is for ARM $7.1.2. */
8295 static void
8296 bad_specifiers (tree object,
8297 enum bad_spec_place type,
8298 int virtualp,
8299 int quals,
8300 int inlinep,
8301 int friendp,
8302 int raises)
8304 switch (type)
8306 case BSP_VAR:
8307 if (virtualp)
8308 error ("%qD declared as a %<virtual%> variable", object);
8309 if (quals)
8310 error ("%<const%> and %<volatile%> function specifiers on "
8311 "%qD invalid in variable declaration", object);
8312 break;
8313 case BSP_PARM:
8314 if (virtualp)
8315 error ("%qD declared as a %<virtual%> parameter", object);
8316 if (inlinep)
8317 error ("%qD declared as an %<inline%> parameter", object);
8318 if (quals)
8319 error ("%<const%> and %<volatile%> function specifiers on "
8320 "%qD invalid in parameter declaration", object);
8321 break;
8322 case BSP_TYPE:
8323 if (virtualp)
8324 error ("%qD declared as a %<virtual%> type", object);
8325 if (inlinep)
8326 error ("%qD declared as an %<inline%> type", object);
8327 if (quals)
8328 error ("%<const%> and %<volatile%> function specifiers on "
8329 "%qD invalid in type declaration", object);
8330 break;
8331 case BSP_FIELD:
8332 if (virtualp)
8333 error ("%qD declared as a %<virtual%> field", object);
8334 if (inlinep)
8335 error ("%qD declared as an %<inline%> field", object);
8336 if (quals)
8337 error ("%<const%> and %<volatile%> function specifiers on "
8338 "%qD invalid in field declaration", object);
8339 break;
8340 default:
8341 gcc_unreachable();
8343 if (friendp)
8344 error ("%q+D declared as a friend", object);
8345 if (raises
8346 && !flag_noexcept_type
8347 && (TREE_CODE (object) == TYPE_DECL
8348 || (!TYPE_PTRFN_P (TREE_TYPE (object))
8349 && !TYPE_REFFN_P (TREE_TYPE (object))
8350 && !TYPE_PTRMEMFUNC_P (TREE_TYPE (object)))))
8351 error ("%q+D declared with an exception specification", object);
8354 /* DECL is a member function or static data member and is presently
8355 being defined. Check that the definition is taking place in a
8356 valid namespace. */
8358 static void
8359 check_class_member_definition_namespace (tree decl)
8361 /* These checks only apply to member functions and static data
8362 members. */
8363 gcc_assert (VAR_OR_FUNCTION_DECL_P (decl));
8364 /* We check for problems with specializations in pt.c in
8365 check_specialization_namespace, where we can issue better
8366 diagnostics. */
8367 if (processing_specialization)
8368 return;
8369 /* We check this in check_explicit_instantiation_namespace. */
8370 if (processing_explicit_instantiation)
8371 return;
8372 /* [class.mfct]
8374 A member function definition that appears outside of the
8375 class definition shall appear in a namespace scope enclosing
8376 the class definition.
8378 [class.static.data]
8380 The definition for a static data member shall appear in a
8381 namespace scope enclosing the member's class definition. */
8382 if (!is_ancestor (current_namespace, DECL_CONTEXT (decl)))
8383 permerror (input_location, "definition of %qD is not in namespace enclosing %qT",
8384 decl, DECL_CONTEXT (decl));
8387 /* Build a PARM_DECL for the "this" parameter of FN. TYPE is the
8388 METHOD_TYPE for a non-static member function; QUALS are the
8389 cv-qualifiers that apply to the function. */
8391 tree
8392 build_this_parm (tree fn, tree type, cp_cv_quals quals)
8394 tree this_type;
8395 tree qual_type;
8396 tree parm;
8397 cp_cv_quals this_quals;
8399 if (CLASS_TYPE_P (type))
8401 this_type
8402 = cp_build_qualified_type (type, quals & ~TYPE_QUAL_RESTRICT);
8403 this_type = build_pointer_type (this_type);
8405 else
8406 this_type = type_of_this_parm (type);
8407 /* The `this' parameter is implicitly `const'; it cannot be
8408 assigned to. */
8409 this_quals = (quals & TYPE_QUAL_RESTRICT) | TYPE_QUAL_CONST;
8410 qual_type = cp_build_qualified_type (this_type, this_quals);
8411 parm = build_artificial_parm (fn, this_identifier, qual_type);
8412 cp_apply_type_quals_to_decl (this_quals, parm);
8413 return parm;
8416 /* DECL is a static member function. Complain if it was declared
8417 with function-cv-quals. */
8419 static void
8420 check_static_quals (tree decl, cp_cv_quals quals)
8422 if (quals != TYPE_UNQUALIFIED)
8423 error ("static member function %q#D declared with type qualifiers",
8424 decl);
8427 // Check that FN takes no arguments and returns bool.
8428 static void
8429 check_concept_fn (tree fn)
8431 // A constraint is nullary.
8432 if (DECL_ARGUMENTS (fn))
8433 error ("concept %q#D declared with function parameters", fn);
8435 // The declared return type of the concept shall be bool, and
8436 // it shall not be deduced from it definition.
8437 tree type = TREE_TYPE (TREE_TYPE (fn));
8438 if (is_auto (type))
8439 error ("concept %q#D declared with a deduced return type", fn);
8440 else if (type != boolean_type_node)
8441 error ("concept %q#D with non-%<bool%> return type %qT", fn, type);
8444 /* Helper function. Replace the temporary this parameter injected
8445 during cp_finish_omp_declare_simd with the real this parameter. */
8447 static tree
8448 declare_simd_adjust_this (tree *tp, int *walk_subtrees, void *data)
8450 tree this_parm = (tree) data;
8451 if (TREE_CODE (*tp) == PARM_DECL
8452 && DECL_NAME (*tp) == this_identifier
8453 && *tp != this_parm)
8454 *tp = this_parm;
8455 else if (TYPE_P (*tp))
8456 *walk_subtrees = 0;
8457 return NULL_TREE;
8460 /* CTYPE is class type, or null if non-class.
8461 TYPE is type this FUNCTION_DECL should have, either FUNCTION_TYPE
8462 or METHOD_TYPE.
8463 DECLARATOR is the function's name.
8464 PARMS is a chain of PARM_DECLs for the function.
8465 VIRTUALP is truthvalue of whether the function is virtual or not.
8466 FLAGS are to be passed through to `grokclassfn'.
8467 QUALS are qualifiers indicating whether the function is `const'
8468 or `volatile'.
8469 RAISES is a list of exceptions that this function can raise.
8470 CHECK is 1 if we must find this method in CTYPE, 0 if we should
8471 not look, and -1 if we should not call `grokclassfn' at all.
8473 SFK is the kind of special function (if any) for the new function.
8475 Returns `NULL_TREE' if something goes wrong, after issuing
8476 applicable error messages. */
8478 static tree
8479 grokfndecl (tree ctype,
8480 tree type,
8481 tree declarator,
8482 tree parms,
8483 tree orig_declarator,
8484 tree decl_reqs,
8485 int virtualp,
8486 enum overload_flags flags,
8487 cp_cv_quals quals,
8488 cp_ref_qualifier rqual,
8489 tree raises,
8490 int check,
8491 int friendp,
8492 int publicp,
8493 int inlinep,
8494 bool deletedp,
8495 special_function_kind sfk,
8496 bool funcdef_flag,
8497 int template_count,
8498 tree in_namespace,
8499 tree* attrlist,
8500 location_t location)
8502 tree decl;
8503 int staticp = ctype && TREE_CODE (type) == FUNCTION_TYPE;
8504 tree t;
8506 // Was the concept specifier present?
8507 bool concept_p = inlinep & 4;
8509 // Concept declarations must have a corresponding definition.
8510 if (concept_p && !funcdef_flag)
8512 error ("concept %qD has no definition", declarator);
8513 return NULL_TREE;
8516 if (rqual)
8517 type = build_ref_qualified_type (type, rqual);
8518 if (raises)
8519 type = build_exception_variant (type, raises);
8521 decl = build_lang_decl (FUNCTION_DECL, declarator, type);
8523 /* Set the constraints on the declaration. */
8524 if (flag_concepts)
8526 tree tmpl_reqs = NULL_TREE;
8527 if (processing_template_decl > template_class_depth (ctype))
8528 tmpl_reqs = TEMPLATE_PARMS_CONSTRAINTS (current_template_parms);
8530 /* Adjust the required expression into a constraint. */
8531 if (decl_reqs)
8532 decl_reqs = normalize_expression (decl_reqs);
8534 tree ci = build_constraints (tmpl_reqs, decl_reqs);
8535 set_constraints (decl, ci);
8538 /* If we have an explicit location, use it, otherwise use whatever
8539 build_lang_decl used (probably input_location). */
8540 if (location != UNKNOWN_LOCATION)
8541 DECL_SOURCE_LOCATION (decl) = location;
8543 if (TREE_CODE (type) == METHOD_TYPE)
8545 tree parm = build_this_parm (decl, type, quals);
8546 DECL_CHAIN (parm) = parms;
8547 parms = parm;
8549 /* Allocate space to hold the vptr bit if needed. */
8550 SET_DECL_ALIGN (decl, MINIMUM_METHOD_BOUNDARY);
8553 DECL_ARGUMENTS (decl) = parms;
8554 for (t = parms; t; t = DECL_CHAIN (t))
8555 DECL_CONTEXT (t) = decl;
8557 /* Propagate volatile out from type to decl. */
8558 if (TYPE_VOLATILE (type))
8559 TREE_THIS_VOLATILE (decl) = 1;
8561 /* Setup decl according to sfk. */
8562 switch (sfk)
8564 case sfk_constructor:
8565 case sfk_copy_constructor:
8566 case sfk_move_constructor:
8567 DECL_CXX_CONSTRUCTOR_P (decl) = 1;
8568 DECL_NAME (decl) = ctor_identifier;
8569 break;
8570 case sfk_destructor:
8571 DECL_CXX_DESTRUCTOR_P (decl) = 1;
8572 DECL_NAME (decl) = dtor_identifier;
8573 break;
8574 default:
8575 break;
8578 if (friendp && TREE_CODE (orig_declarator) == TEMPLATE_ID_EXPR)
8580 if (funcdef_flag)
8581 error ("defining explicit specialization %qD in friend declaration",
8582 orig_declarator);
8583 else
8585 tree fns = TREE_OPERAND (orig_declarator, 0);
8586 tree args = TREE_OPERAND (orig_declarator, 1);
8588 if (PROCESSING_REAL_TEMPLATE_DECL_P ())
8590 /* Something like `template <class T> friend void f<T>()'. */
8591 error ("invalid use of template-id %qD in declaration "
8592 "of primary template",
8593 orig_declarator);
8594 return NULL_TREE;
8598 /* A friend declaration of the form friend void f<>(). Record
8599 the information in the TEMPLATE_ID_EXPR. */
8600 SET_DECL_IMPLICIT_INSTANTIATION (decl);
8602 gcc_assert (identifier_p (fns) || TREE_CODE (fns) == OVERLOAD);
8603 DECL_TEMPLATE_INFO (decl) = build_template_info (fns, args);
8605 for (t = TYPE_ARG_TYPES (TREE_TYPE (decl)); t; t = TREE_CHAIN (t))
8606 if (TREE_PURPOSE (t)
8607 && TREE_CODE (TREE_PURPOSE (t)) == DEFAULT_ARG)
8609 error ("default arguments are not allowed in declaration "
8610 "of friend template specialization %qD",
8611 decl);
8612 return NULL_TREE;
8615 if (inlinep & 1)
8617 error ("%<inline%> is not allowed in declaration of friend "
8618 "template specialization %qD",
8619 decl);
8620 return NULL_TREE;
8625 /* If this decl has namespace scope, set that up. */
8626 if (in_namespace)
8627 set_decl_namespace (decl, in_namespace, friendp);
8628 else if (!ctype)
8629 DECL_CONTEXT (decl) = FROB_CONTEXT (current_decl_namespace ());
8631 /* `main' and builtins have implicit 'C' linkage. */
8632 if (ctype == NULL_TREE
8633 && DECL_FILE_SCOPE_P (decl)
8634 && current_lang_name == lang_name_cplusplus
8635 && (MAIN_NAME_P (declarator)
8636 || (IDENTIFIER_LENGTH (declarator) > 10
8637 && IDENTIFIER_POINTER (declarator)[0] == '_'
8638 && IDENTIFIER_POINTER (declarator)[1] == '_'
8639 && strncmp (IDENTIFIER_POINTER (declarator)+2,
8640 "builtin_", 8) == 0)
8641 || (targetcm.cxx_implicit_extern_c
8642 && (targetcm.cxx_implicit_extern_c
8643 (IDENTIFIER_POINTER (declarator))))))
8644 SET_DECL_LANGUAGE (decl, lang_c);
8646 /* Should probably propagate const out from type to decl I bet (mrs). */
8647 if (staticp)
8649 DECL_STATIC_FUNCTION_P (decl) = 1;
8650 DECL_CONTEXT (decl) = ctype;
8653 if (deletedp)
8654 DECL_DELETED_FN (decl) = 1;
8656 if (ctype)
8658 DECL_CONTEXT (decl) = ctype;
8659 if (funcdef_flag)
8660 check_class_member_definition_namespace (decl);
8663 if (ctype == NULL_TREE && DECL_MAIN_P (decl))
8665 if (PROCESSING_REAL_TEMPLATE_DECL_P())
8666 error ("cannot declare %<::main%> to be a template");
8667 if (inlinep & 1)
8668 error ("cannot declare %<::main%> to be inline");
8669 if (inlinep & 2)
8670 error ("cannot declare %<::main%> to be %<constexpr%>");
8671 if (!publicp)
8672 error ("cannot declare %<::main%> to be static");
8673 inlinep = 0;
8674 publicp = 1;
8677 /* Members of anonymous types and local classes have no linkage; make
8678 them internal. If a typedef is made later, this will be changed. */
8679 if (ctype && (!TREE_PUBLIC (TYPE_MAIN_DECL (ctype))
8680 || decl_function_context (TYPE_MAIN_DECL (ctype))))
8681 publicp = 0;
8683 if (publicp && cxx_dialect == cxx98)
8685 /* [basic.link]: A name with no linkage (notably, the name of a class
8686 or enumeration declared in a local scope) shall not be used to
8687 declare an entity with linkage.
8689 DR 757 relaxes this restriction for C++0x. */
8690 no_linkage_error (decl);
8693 TREE_PUBLIC (decl) = publicp;
8694 if (! publicp)
8696 DECL_INTERFACE_KNOWN (decl) = 1;
8697 DECL_NOT_REALLY_EXTERN (decl) = 1;
8700 /* If the declaration was declared inline, mark it as such. */
8701 if (inlinep)
8703 DECL_DECLARED_INLINE_P (decl) = 1;
8704 if (publicp)
8705 DECL_COMDAT (decl) = 1;
8707 if (inlinep & 2)
8708 DECL_DECLARED_CONSTEXPR_P (decl) = true;
8710 // If the concept declaration specifier was found, check
8711 // that the declaration satisfies the necessary requirements.
8712 if (concept_p)
8714 DECL_DECLARED_CONCEPT_P (decl) = true;
8715 check_concept_fn (decl);
8718 DECL_EXTERNAL (decl) = 1;
8719 if (TREE_CODE (type) == FUNCTION_TYPE)
8721 if (quals || rqual)
8722 TREE_TYPE (decl) = apply_memfn_quals (TREE_TYPE (decl),
8723 TYPE_UNQUALIFIED,
8724 REF_QUAL_NONE);
8726 if (quals)
8728 error (ctype
8729 ? G_("static member function %qD cannot have cv-qualifier")
8730 : G_("non-member function %qD cannot have cv-qualifier"),
8731 decl);
8732 quals = TYPE_UNQUALIFIED;
8735 if (rqual)
8737 error (ctype
8738 ? G_("static member function %qD cannot have ref-qualifier")
8739 : G_("non-member function %qD cannot have ref-qualifier"),
8740 decl);
8741 rqual = REF_QUAL_NONE;
8745 if (deduction_guide_p (decl))
8747 if (!DECL_NAMESPACE_SCOPE_P (decl))
8749 error_at (location, "deduction guide %qD must be declared at "
8750 "namespace scope", decl);
8751 return NULL_TREE;
8753 if (funcdef_flag)
8754 error_at (location,
8755 "deduction guide %qD must not have a function body", decl);
8757 else if (IDENTIFIER_ANY_OP_P (DECL_NAME (decl))
8758 && !grok_op_properties (decl, /*complain=*/true))
8759 return NULL_TREE;
8760 else if (UDLIT_OPER_P (DECL_NAME (decl)))
8762 bool long_long_unsigned_p;
8763 bool long_double_p;
8764 const char *suffix = NULL;
8765 /* [over.literal]/6: Literal operators shall not have C linkage. */
8766 if (DECL_LANGUAGE (decl) == lang_c)
8768 error ("literal operator with C linkage");
8769 maybe_show_extern_c_location ();
8770 return NULL_TREE;
8773 if (DECL_NAMESPACE_SCOPE_P (decl))
8775 if (!check_literal_operator_args (decl, &long_long_unsigned_p,
8776 &long_double_p))
8778 error ("%qD has invalid argument list", decl);
8779 return NULL_TREE;
8782 suffix = UDLIT_OP_SUFFIX (DECL_NAME (decl));
8783 if (long_long_unsigned_p)
8785 if (cpp_interpret_int_suffix (parse_in, suffix, strlen (suffix)))
8786 warning (0, "integer suffix %qs"
8787 " shadowed by implementation", suffix);
8789 else if (long_double_p)
8791 if (cpp_interpret_float_suffix (parse_in, suffix, strlen (suffix)))
8792 warning (0, "floating point suffix %qs"
8793 " shadowed by implementation", suffix);
8796 else
8798 error ("%qD must be a non-member function", decl);
8799 return NULL_TREE;
8803 if (funcdef_flag)
8804 /* Make the init_value nonzero so pushdecl knows this is not
8805 tentative. error_mark_node is replaced later with the BLOCK. */
8806 DECL_INITIAL (decl) = error_mark_node;
8808 if (TYPE_NOTHROW_P (type) || nothrow_libfn_p (decl))
8809 TREE_NOTHROW (decl) = 1;
8811 if (flag_openmp || flag_openmp_simd)
8813 /* Adjust "omp declare simd" attributes. */
8814 tree ods = lookup_attribute ("omp declare simd", *attrlist);
8815 if (ods)
8817 tree attr;
8818 for (attr = ods; attr;
8819 attr = lookup_attribute ("omp declare simd", TREE_CHAIN (attr)))
8821 if (TREE_CODE (type) == METHOD_TYPE)
8822 walk_tree (&TREE_VALUE (attr), declare_simd_adjust_this,
8823 DECL_ARGUMENTS (decl), NULL);
8824 if (TREE_VALUE (attr) != NULL_TREE)
8826 tree cl = TREE_VALUE (TREE_VALUE (attr));
8827 cl = c_omp_declare_simd_clauses_to_numbers
8828 (DECL_ARGUMENTS (decl), cl);
8829 if (cl)
8830 TREE_VALUE (TREE_VALUE (attr)) = cl;
8831 else
8832 TREE_VALUE (attr) = NULL_TREE;
8838 /* Caller will do the rest of this. */
8839 if (check < 0)
8840 return decl;
8842 if (ctype != NULL_TREE)
8843 grokclassfn (ctype, decl, flags);
8845 /* 12.4/3 */
8846 if (cxx_dialect >= cxx11
8847 && DECL_DESTRUCTOR_P (decl)
8848 && !TYPE_BEING_DEFINED (DECL_CONTEXT (decl))
8849 && !processing_template_decl)
8850 deduce_noexcept_on_destructor (decl);
8852 decl = check_explicit_specialization (orig_declarator, decl,
8853 template_count,
8854 2 * funcdef_flag +
8855 4 * (friendp != 0) +
8856 8 * concept_p);
8857 if (decl == error_mark_node)
8858 return NULL_TREE;
8860 if (DECL_STATIC_FUNCTION_P (decl))
8861 check_static_quals (decl, quals);
8863 if (attrlist)
8865 cplus_decl_attributes (&decl, *attrlist, 0);
8866 *attrlist = NULL_TREE;
8869 /* Check main's type after attributes have been applied. */
8870 if (ctype == NULL_TREE && DECL_MAIN_P (decl))
8872 if (!same_type_p (TREE_TYPE (TREE_TYPE (decl)),
8873 integer_type_node))
8875 tree oldtypeargs = TYPE_ARG_TYPES (TREE_TYPE (decl));
8876 tree newtype;
8877 error ("%<::main%> must return %<int%>");
8878 newtype = build_function_type (integer_type_node, oldtypeargs);
8879 TREE_TYPE (decl) = newtype;
8881 if (warn_main)
8882 check_main_parameter_types (decl);
8885 if (ctype != NULL_TREE && check)
8887 tree old_decl = check_classfn (ctype, decl,
8888 (processing_template_decl
8889 > template_class_depth (ctype))
8890 ? current_template_parms
8891 : NULL_TREE);
8893 if (old_decl == error_mark_node)
8894 return NULL_TREE;
8896 if (old_decl)
8898 tree ok;
8899 tree pushed_scope;
8901 if (TREE_CODE (old_decl) == TEMPLATE_DECL)
8902 /* Because grokfndecl is always supposed to return a
8903 FUNCTION_DECL, we pull out the DECL_TEMPLATE_RESULT
8904 here. We depend on our callers to figure out that its
8905 really a template that's being returned. */
8906 old_decl = DECL_TEMPLATE_RESULT (old_decl);
8908 if (DECL_STATIC_FUNCTION_P (old_decl)
8909 && TREE_CODE (TREE_TYPE (decl)) == METHOD_TYPE)
8911 /* Remove the `this' parm added by grokclassfn. */
8912 revert_static_member_fn (decl);
8913 check_static_quals (decl, quals);
8915 if (DECL_ARTIFICIAL (old_decl))
8917 error ("definition of implicitly-declared %qD", old_decl);
8918 return NULL_TREE;
8920 else if (DECL_DEFAULTED_FN (old_decl))
8922 error ("definition of explicitly-defaulted %q+D", decl);
8923 inform (DECL_SOURCE_LOCATION (old_decl),
8924 "%q#D explicitly defaulted here", old_decl);
8925 return NULL_TREE;
8928 /* Since we've smashed OLD_DECL to its
8929 DECL_TEMPLATE_RESULT, we must do the same to DECL. */
8930 if (TREE_CODE (decl) == TEMPLATE_DECL)
8931 decl = DECL_TEMPLATE_RESULT (decl);
8933 /* Attempt to merge the declarations. This can fail, in
8934 the case of some invalid specialization declarations. */
8935 pushed_scope = push_scope (ctype);
8936 ok = duplicate_decls (decl, old_decl, friendp);
8937 if (pushed_scope)
8938 pop_scope (pushed_scope);
8939 if (!ok)
8941 error ("no %q#D member function declared in class %qT",
8942 decl, ctype);
8943 return NULL_TREE;
8945 if (ok == error_mark_node)
8946 return NULL_TREE;
8947 return old_decl;
8951 if (DECL_CONSTRUCTOR_P (decl) && !grok_ctor_properties (ctype, decl))
8952 return NULL_TREE;
8954 if (ctype == NULL_TREE || check)
8955 return decl;
8957 if (virtualp)
8958 DECL_VIRTUAL_P (decl) = 1;
8960 return decl;
8963 /* decl is a FUNCTION_DECL.
8964 specifiers are the parsed virt-specifiers.
8966 Set flags to reflect the virt-specifiers.
8968 Returns decl. */
8970 static tree
8971 set_virt_specifiers (tree decl, cp_virt_specifiers specifiers)
8973 if (decl == NULL_TREE)
8974 return decl;
8975 if (specifiers & VIRT_SPEC_OVERRIDE)
8976 DECL_OVERRIDE_P (decl) = 1;
8977 if (specifiers & VIRT_SPEC_FINAL)
8978 DECL_FINAL_P (decl) = 1;
8979 return decl;
8982 /* DECL is a VAR_DECL for a static data member. Set flags to reflect
8983 the linkage that DECL will receive in the object file. */
8985 static void
8986 set_linkage_for_static_data_member (tree decl)
8988 /* A static data member always has static storage duration and
8989 external linkage. Note that static data members are forbidden in
8990 local classes -- the only situation in which a class has
8991 non-external linkage. */
8992 TREE_PUBLIC (decl) = 1;
8993 TREE_STATIC (decl) = 1;
8994 /* For non-template classes, static data members are always put
8995 out in exactly those files where they are defined, just as
8996 with ordinary namespace-scope variables. */
8997 if (!processing_template_decl)
8998 DECL_INTERFACE_KNOWN (decl) = 1;
9001 /* Create a VAR_DECL named NAME with the indicated TYPE.
9003 If SCOPE is non-NULL, it is the class type or namespace containing
9004 the variable. If SCOPE is NULL, the variable should is created in
9005 the innermost enclosing scope. */
9007 static tree
9008 grokvardecl (tree type,
9009 tree name,
9010 tree orig_declarator,
9011 const cp_decl_specifier_seq *declspecs,
9012 int initialized,
9013 int type_quals,
9014 int inlinep,
9015 bool conceptp,
9016 int template_count,
9017 tree scope)
9019 tree decl;
9020 tree explicit_scope;
9022 gcc_assert (!name || identifier_p (name));
9024 bool constp = (type_quals & TYPE_QUAL_CONST) != 0;
9025 bool volatilep = (type_quals & TYPE_QUAL_VOLATILE) != 0;
9027 /* Compute the scope in which to place the variable, but remember
9028 whether or not that scope was explicitly specified by the user. */
9029 explicit_scope = scope;
9030 if (!scope)
9032 /* An explicit "extern" specifier indicates a namespace-scope
9033 variable. */
9034 if (declspecs->storage_class == sc_extern)
9035 scope = current_decl_namespace ();
9036 else if (!at_function_scope_p ())
9037 scope = current_scope ();
9040 if (scope
9041 && (/* If the variable is a namespace-scope variable declared in a
9042 template, we need DECL_LANG_SPECIFIC. */
9043 (TREE_CODE (scope) == NAMESPACE_DECL && processing_template_decl)
9044 /* Similarly for namespace-scope variables with language linkage
9045 other than C++. */
9046 || (TREE_CODE (scope) == NAMESPACE_DECL
9047 && current_lang_name != lang_name_cplusplus)
9048 /* Similarly for static data members. */
9049 || TYPE_P (scope)
9050 /* Similarly for explicit specializations. */
9051 || (orig_declarator
9052 && TREE_CODE (orig_declarator) == TEMPLATE_ID_EXPR)))
9053 decl = build_lang_decl (VAR_DECL, name, type);
9054 else
9055 decl = build_decl (input_location, VAR_DECL, name, type);
9057 if (explicit_scope && TREE_CODE (explicit_scope) == NAMESPACE_DECL)
9058 set_decl_namespace (decl, explicit_scope, 0);
9059 else
9060 DECL_CONTEXT (decl) = FROB_CONTEXT (scope);
9062 if (declspecs->storage_class == sc_extern)
9064 DECL_THIS_EXTERN (decl) = 1;
9065 DECL_EXTERNAL (decl) = !initialized;
9068 if (DECL_CLASS_SCOPE_P (decl))
9070 set_linkage_for_static_data_member (decl);
9071 /* This function is only called with out-of-class definitions. */
9072 DECL_EXTERNAL (decl) = 0;
9073 check_class_member_definition_namespace (decl);
9075 /* At top level, either `static' or no s.c. makes a definition
9076 (perhaps tentative), and absence of `static' makes it public. */
9077 else if (toplevel_bindings_p ())
9079 TREE_PUBLIC (decl) = (declspecs->storage_class != sc_static
9080 && (DECL_THIS_EXTERN (decl)
9081 || ! constp
9082 || volatilep
9083 || inlinep));
9084 TREE_STATIC (decl) = ! DECL_EXTERNAL (decl);
9086 /* Not at top level, only `static' makes a static definition. */
9087 else
9089 TREE_STATIC (decl) = declspecs->storage_class == sc_static;
9090 TREE_PUBLIC (decl) = DECL_EXTERNAL (decl);
9093 if (decl_spec_seq_has_spec_p (declspecs, ds_thread))
9095 if (DECL_EXTERNAL (decl) || TREE_STATIC (decl))
9097 CP_DECL_THREAD_LOCAL_P (decl) = true;
9098 if (!processing_template_decl)
9099 set_decl_tls_model (decl, decl_default_tls_model (decl));
9101 if (declspecs->gnu_thread_keyword_p)
9102 SET_DECL_GNU_TLS_P (decl);
9105 /* If the type of the decl has no linkage, make sure that we'll
9106 notice that in mark_used. */
9107 if (cxx_dialect > cxx98
9108 && decl_linkage (decl) != lk_none
9109 && DECL_LANG_SPECIFIC (decl) == NULL
9110 && !DECL_EXTERN_C_P (decl)
9111 && no_linkage_check (TREE_TYPE (decl), /*relaxed_p=*/false))
9112 retrofit_lang_decl (decl);
9114 if (TREE_PUBLIC (decl))
9116 /* [basic.link]: A name with no linkage (notably, the name of a class
9117 or enumeration declared in a local scope) shall not be used to
9118 declare an entity with linkage.
9120 DR 757 relaxes this restriction for C++0x. */
9121 if (cxx_dialect < cxx11)
9122 no_linkage_error (decl);
9124 else
9125 DECL_INTERFACE_KNOWN (decl) = 1;
9127 if (DECL_NAME (decl)
9128 && MAIN_NAME_P (DECL_NAME (decl))
9129 && scope == global_namespace)
9130 error ("cannot declare %<::main%> to be a global variable");
9132 /* Check that the variable can be safely declared as a concept.
9133 Note that this also forbids explicit specializations. */
9134 if (conceptp)
9136 if (!processing_template_decl)
9138 error ("a non-template variable cannot be %<concept%>");
9139 return NULL_TREE;
9141 else
9142 DECL_DECLARED_CONCEPT_P (decl) = true;
9143 if (!same_type_ignoring_top_level_qualifiers_p (type, boolean_type_node))
9144 error_at (declspecs->locations[ds_type_spec],
9145 "concept must have type %<bool%>");
9147 else if (flag_concepts
9148 && processing_template_decl > template_class_depth (scope))
9150 tree reqs = TEMPLATE_PARMS_CONSTRAINTS (current_template_parms);
9151 tree ci = build_constraints (reqs, NULL_TREE);
9152 set_constraints (decl, ci);
9155 // Handle explicit specializations and instantiations of variable templates.
9156 if (orig_declarator)
9157 decl = check_explicit_specialization (orig_declarator, decl,
9158 template_count, conceptp * 8);
9160 return decl != error_mark_node ? decl : NULL_TREE;
9163 /* Create and return a canonical pointer to member function type, for
9164 TYPE, which is a POINTER_TYPE to a METHOD_TYPE. */
9166 tree
9167 build_ptrmemfunc_type (tree type)
9169 tree field, fields;
9170 tree t;
9172 if (type == error_mark_node)
9173 return type;
9175 /* Make sure that we always have the unqualified pointer-to-member
9176 type first. */
9177 if (cp_cv_quals quals = cp_type_quals (type))
9179 tree unqual = build_ptrmemfunc_type (TYPE_MAIN_VARIANT (type));
9180 return cp_build_qualified_type (unqual, quals);
9183 /* If a canonical type already exists for this type, use it. We use
9184 this method instead of type_hash_canon, because it only does a
9185 simple equality check on the list of field members. */
9187 t = TYPE_PTRMEMFUNC_TYPE (type);
9188 if (t)
9189 return t;
9191 t = make_node (RECORD_TYPE);
9193 /* Let the front end know this is a pointer to member function. */
9194 TYPE_PTRMEMFUNC_FLAG (t) = 1;
9196 field = build_decl (input_location, FIELD_DECL, pfn_identifier, type);
9197 fields = field;
9199 field = build_decl (input_location, FIELD_DECL, delta_identifier,
9200 delta_type_node);
9201 DECL_CHAIN (field) = fields;
9202 fields = field;
9204 finish_builtin_struct (t, "__ptrmemfunc_type", fields, ptr_type_node);
9206 /* Zap out the name so that the back end will give us the debugging
9207 information for this anonymous RECORD_TYPE. */
9208 TYPE_NAME (t) = NULL_TREE;
9210 /* Cache this pointer-to-member type so that we can find it again
9211 later. */
9212 TYPE_PTRMEMFUNC_TYPE (type) = t;
9214 if (TYPE_STRUCTURAL_EQUALITY_P (type))
9215 SET_TYPE_STRUCTURAL_EQUALITY (t);
9216 else if (TYPE_CANONICAL (type) != type)
9217 TYPE_CANONICAL (t) = build_ptrmemfunc_type (TYPE_CANONICAL (type));
9219 return t;
9222 /* Create and return a pointer to data member type. */
9224 tree
9225 build_ptrmem_type (tree class_type, tree member_type)
9227 if (TREE_CODE (member_type) == METHOD_TYPE)
9229 cp_cv_quals quals = type_memfn_quals (member_type);
9230 cp_ref_qualifier rqual = type_memfn_rqual (member_type);
9231 member_type = build_memfn_type (member_type, class_type, quals, rqual);
9232 return build_ptrmemfunc_type (build_pointer_type (member_type));
9234 else
9236 gcc_assert (TREE_CODE (member_type) != FUNCTION_TYPE);
9237 return build_offset_type (class_type, member_type);
9241 /* DECL is a VAR_DECL defined in-class, whose TYPE is also given.
9242 Check to see that the definition is valid. Issue appropriate error
9243 messages. Return 1 if the definition is particularly bad, or 0
9244 otherwise. */
9246 static int
9247 check_static_variable_definition (tree decl, tree type)
9249 /* Avoid redundant diagnostics on out-of-class definitions. */
9250 if (!current_class_type || !TYPE_BEING_DEFINED (current_class_type))
9251 return 0;
9252 /* Can't check yet if we don't know the type. */
9253 if (dependent_type_p (type))
9254 return 0;
9255 /* If DECL is declared constexpr, we'll do the appropriate checks
9256 in check_initializer. Similarly for inline static data members. */
9257 if (DECL_P (decl)
9258 && (DECL_DECLARED_CONSTEXPR_P (decl)
9259 || DECL_VAR_DECLARED_INLINE_P (decl)))
9260 return 0;
9261 else if (cxx_dialect >= cxx11 && !INTEGRAL_OR_ENUMERATION_TYPE_P (type))
9263 if (!COMPLETE_TYPE_P (type))
9264 error_at (DECL_SOURCE_LOCATION (decl),
9265 "in-class initialization of static data member %q#D of "
9266 "incomplete type", decl);
9267 else if (literal_type_p (type))
9268 permerror (DECL_SOURCE_LOCATION (decl),
9269 "%<constexpr%> needed for in-class initialization of "
9270 "static data member %q#D of non-integral type", decl);
9271 else
9272 error_at (DECL_SOURCE_LOCATION (decl),
9273 "in-class initialization of static data member %q#D of "
9274 "non-literal type", decl);
9275 return 1;
9278 /* Motion 10 at San Diego: If a static const integral data member is
9279 initialized with an integral constant expression, the initializer
9280 may appear either in the declaration (within the class), or in
9281 the definition, but not both. If it appears in the class, the
9282 member is a member constant. The file-scope definition is always
9283 required. */
9284 if (!ARITHMETIC_TYPE_P (type) && TREE_CODE (type) != ENUMERAL_TYPE)
9286 error_at (DECL_SOURCE_LOCATION (decl),
9287 "invalid in-class initialization of static data member "
9288 "of non-integral type %qT",
9289 type);
9290 return 1;
9292 else if (!CP_TYPE_CONST_P (type))
9293 error_at (DECL_SOURCE_LOCATION (decl),
9294 "ISO C++ forbids in-class initialization of non-const "
9295 "static member %qD",
9296 decl);
9297 else if (!INTEGRAL_OR_ENUMERATION_TYPE_P (type))
9298 pedwarn (DECL_SOURCE_LOCATION (decl), OPT_Wpedantic,
9299 "ISO C++ forbids initialization of member constant "
9300 "%qD of non-integral type %qT", decl, type);
9302 return 0;
9305 /* *expr_p is part of the TYPE_SIZE of a variably-sized array. If any
9306 SAVE_EXPRs in *expr_p wrap expressions with side-effects, break those
9307 expressions out into temporary variables so that walk_tree doesn't
9308 step into them (c++/15764). */
9310 static tree
9311 stabilize_save_expr_r (tree *expr_p, int *walk_subtrees, void *data)
9313 hash_set<tree> *pset = (hash_set<tree> *)data;
9314 tree expr = *expr_p;
9315 if (TREE_CODE (expr) == SAVE_EXPR)
9317 tree op = TREE_OPERAND (expr, 0);
9318 cp_walk_tree (&op, stabilize_save_expr_r, data, pset);
9319 if (TREE_SIDE_EFFECTS (op))
9320 TREE_OPERAND (expr, 0) = get_temp_regvar (TREE_TYPE (op), op);
9321 *walk_subtrees = 0;
9323 else if (!EXPR_P (expr) || !TREE_SIDE_EFFECTS (expr))
9324 *walk_subtrees = 0;
9325 return NULL;
9328 /* Entry point for the above. */
9330 static void
9331 stabilize_vla_size (tree size)
9333 hash_set<tree> pset;
9334 /* Break out any function calls into temporary variables. */
9335 cp_walk_tree (&size, stabilize_save_expr_r, &pset, &pset);
9338 /* Reduce a SIZEOF_EXPR to its value. */
9340 tree
9341 fold_sizeof_expr (tree t)
9343 tree r;
9344 if (SIZEOF_EXPR_TYPE_P (t))
9345 r = cxx_sizeof_or_alignof_type (TREE_TYPE (TREE_OPERAND (t, 0)),
9346 SIZEOF_EXPR, false);
9347 else if (TYPE_P (TREE_OPERAND (t, 0)))
9348 r = cxx_sizeof_or_alignof_type (TREE_OPERAND (t, 0), SIZEOF_EXPR,
9349 false);
9350 else
9351 r = cxx_sizeof_or_alignof_expr (TREE_OPERAND (t, 0), SIZEOF_EXPR,
9352 false);
9353 if (r == error_mark_node)
9354 r = size_one_node;
9355 return r;
9358 /* Given the SIZE (i.e., number of elements) in an array, compute
9359 an appropriate index type for the array. If non-NULL, NAME is
9360 the name of the entity being declared. */
9362 tree
9363 compute_array_index_type (tree name, tree size, tsubst_flags_t complain)
9365 tree itype;
9366 tree osize = size;
9368 if (error_operand_p (size))
9369 return error_mark_node;
9371 if (!type_dependent_expression_p (size))
9373 tree type = TREE_TYPE (size);
9375 size = mark_rvalue_use (size);
9377 if (cxx_dialect < cxx11 && TREE_CODE (size) == NOP_EXPR
9378 && TREE_SIDE_EFFECTS (size))
9379 /* In C++98, we mark a non-constant array bound with a magic
9380 NOP_EXPR with TREE_SIDE_EFFECTS; don't fold in that case. */;
9381 else
9383 size = instantiate_non_dependent_expr_sfinae (size, complain);
9385 if (CLASS_TYPE_P (type)
9386 && CLASSTYPE_LITERAL_P (type))
9388 size = build_expr_type_conversion (WANT_INT, size, true);
9389 if (!size)
9391 if (!(complain & tf_error))
9392 return error_mark_node;
9393 if (name)
9394 error ("size of array %qD has non-integral type %qT",
9395 name, type);
9396 else
9397 error ("size of array has non-integral type %qT", type);
9398 size = integer_one_node;
9400 if (size == error_mark_node)
9401 return error_mark_node;
9402 type = TREE_TYPE (size);
9405 if (INTEGRAL_OR_UNSCOPED_ENUMERATION_TYPE_P (type))
9406 size = maybe_constant_value (size);
9408 if (!TREE_CONSTANT (size))
9409 size = osize;
9412 if (error_operand_p (size))
9413 return error_mark_node;
9415 /* The array bound must be an integer type. */
9416 if (!INTEGRAL_OR_UNSCOPED_ENUMERATION_TYPE_P (type))
9418 if (!(complain & tf_error))
9419 return error_mark_node;
9420 if (name)
9421 error ("size of array %qD has non-integral type %qT", name, type);
9422 else
9423 error ("size of array has non-integral type %qT", type);
9424 size = integer_one_node;
9425 type = TREE_TYPE (size);
9429 /* A type is dependent if it is...an array type constructed from any
9430 dependent type or whose size is specified by a constant expression
9431 that is value-dependent. */
9432 /* We can only call value_dependent_expression_p on integral constant
9433 expressions; treat non-constant expressions as dependent, too. */
9434 if (processing_template_decl
9435 && (type_dependent_expression_p (size)
9436 || !TREE_CONSTANT (size) || value_dependent_expression_p (size)))
9438 /* We cannot do any checking for a SIZE that isn't known to be
9439 constant. Just build the index type and mark that it requires
9440 structural equality checks. */
9441 itype = build_index_type (build_min (MINUS_EXPR, sizetype,
9442 size, size_one_node));
9443 TYPE_DEPENDENT_P (itype) = 1;
9444 TYPE_DEPENDENT_P_VALID (itype) = 1;
9445 SET_TYPE_STRUCTURAL_EQUALITY (itype);
9446 return itype;
9449 if (TREE_CODE (size) != INTEGER_CST)
9451 tree folded = cp_fully_fold (size);
9452 if (TREE_CODE (folded) == INTEGER_CST)
9453 pedwarn (location_of (size), OPT_Wpedantic,
9454 "size of array is not an integral constant-expression");
9455 /* Use the folded result for VLAs, too; it will have resolved
9456 SIZEOF_EXPR. */
9457 size = folded;
9460 /* Normally, the array-bound will be a constant. */
9461 if (TREE_CODE (size) == INTEGER_CST)
9463 /* Check to see if the array bound overflowed. Make that an
9464 error, no matter how generous we're being. */
9465 constant_expression_error (size);
9467 /* An array must have a positive number of elements. */
9468 if (tree_int_cst_lt (size, integer_zero_node))
9470 if (!(complain & tf_error))
9471 return error_mark_node;
9472 if (name)
9473 error ("size of array %qD is negative", name);
9474 else
9475 error ("size of array is negative");
9476 size = integer_one_node;
9478 /* As an extension we allow zero-sized arrays. */
9479 else if (integer_zerop (size))
9481 if (!(complain & tf_error))
9482 /* We must fail if performing argument deduction (as
9483 indicated by the state of complain), so that
9484 another substitution can be found. */
9485 return error_mark_node;
9486 else if (in_system_header_at (input_location))
9487 /* Allow them in system headers because glibc uses them. */;
9488 else if (name)
9489 pedwarn (input_location, OPT_Wpedantic, "ISO C++ forbids zero-size array %qD", name);
9490 else
9491 pedwarn (input_location, OPT_Wpedantic, "ISO C++ forbids zero-size array");
9494 else if (TREE_CONSTANT (size)
9495 /* We don't allow VLAs at non-function scopes, or during
9496 tentative template substitution. */
9497 || !at_function_scope_p ()
9498 || !(complain & tf_error))
9500 if (!(complain & tf_error))
9501 return error_mark_node;
9502 /* `(int) &fn' is not a valid array bound. */
9503 if (name)
9504 error ("size of array %qD is not an integral constant-expression",
9505 name);
9506 else
9507 error ("size of array is not an integral constant-expression");
9508 size = integer_one_node;
9510 else if (pedantic && warn_vla != 0)
9512 if (name)
9513 pedwarn (input_location, OPT_Wvla, "ISO C++ forbids variable length array %qD", name);
9514 else
9515 pedwarn (input_location, OPT_Wvla, "ISO C++ forbids variable length array");
9517 else if (warn_vla > 0)
9519 if (name)
9520 warning (OPT_Wvla,
9521 "variable length array %qD is used", name);
9522 else
9523 warning (OPT_Wvla,
9524 "variable length array is used");
9527 if (processing_template_decl && !TREE_CONSTANT (size))
9528 /* A variable sized array. */
9529 itype = build_min (MINUS_EXPR, sizetype, size, integer_one_node);
9530 else
9532 /* Compute the index of the largest element in the array. It is
9533 one less than the number of elements in the array. We save
9534 and restore PROCESSING_TEMPLATE_DECL so that computations in
9535 cp_build_binary_op will be appropriately folded. */
9537 processing_template_decl_sentinel s;
9538 itype = cp_build_binary_op (input_location,
9539 MINUS_EXPR,
9540 cp_convert (ssizetype, size, complain),
9541 cp_convert (ssizetype, integer_one_node,
9542 complain),
9543 complain);
9544 itype = maybe_constant_value (itype);
9547 if (!TREE_CONSTANT (itype))
9549 /* A variable sized array. */
9550 itype = variable_size (itype);
9552 stabilize_vla_size (itype);
9554 if (sanitize_flags_p (SANITIZE_VLA)
9555 && current_function_decl != NULL_TREE)
9557 /* We have to add 1 -- in the ubsan routine we generate
9558 LE_EXPR rather than LT_EXPR. */
9559 tree t = fold_build2 (PLUS_EXPR, TREE_TYPE (itype), itype,
9560 build_one_cst (TREE_TYPE (itype)));
9561 t = ubsan_instrument_vla (input_location, t);
9562 finish_expr_stmt (t);
9565 /* Make sure that there was no overflow when creating to a signed
9566 index type. (For example, on a 32-bit machine, an array with
9567 size 2^32 - 1 is too big.) */
9568 else if (TREE_CODE (itype) == INTEGER_CST
9569 && TREE_OVERFLOW (itype))
9571 if (!(complain & tf_error))
9572 return error_mark_node;
9573 error ("overflow in array dimension");
9574 TREE_OVERFLOW (itype) = 0;
9578 /* Create and return the appropriate index type. */
9579 itype = build_index_type (itype);
9581 /* If the index type were dependent, we would have returned early, so
9582 remember that it isn't. */
9583 TYPE_DEPENDENT_P (itype) = 0;
9584 TYPE_DEPENDENT_P_VALID (itype) = 1;
9585 return itype;
9588 /* Returns the scope (if any) in which the entity declared by
9589 DECLARATOR will be located. If the entity was declared with an
9590 unqualified name, NULL_TREE is returned. */
9592 tree
9593 get_scope_of_declarator (const cp_declarator *declarator)
9595 while (declarator && declarator->kind != cdk_id)
9596 declarator = declarator->declarator;
9598 /* If the declarator-id is a SCOPE_REF, the scope in which the
9599 declaration occurs is the first operand. */
9600 if (declarator
9601 && declarator->u.id.qualifying_scope)
9602 return declarator->u.id.qualifying_scope;
9604 /* Otherwise, the declarator is not a qualified name; the entity will
9605 be declared in the current scope. */
9606 return NULL_TREE;
9609 /* Returns an ARRAY_TYPE for an array with SIZE elements of the
9610 indicated TYPE. If non-NULL, NAME is the NAME of the declaration
9611 with this type. */
9613 static tree
9614 create_array_type_for_decl (tree name, tree type, tree size)
9616 tree itype = NULL_TREE;
9618 /* If things have already gone awry, bail now. */
9619 if (type == error_mark_node || size == error_mark_node)
9620 return error_mark_node;
9622 /* 8.3.4/1: If the type of the identifier of D contains the auto
9623 type-specifier, the program is ill-formed. */
9624 if (type_uses_auto (type))
9626 error ("%qD declared as array of %qT", name, type);
9627 return error_mark_node;
9630 /* If there are some types which cannot be array elements,
9631 issue an error-message and return. */
9632 switch (TREE_CODE (type))
9634 case VOID_TYPE:
9635 if (name)
9636 error ("declaration of %qD as array of void", name);
9637 else
9638 error ("creating array of void");
9639 return error_mark_node;
9641 case FUNCTION_TYPE:
9642 if (name)
9643 error ("declaration of %qD as array of functions", name);
9644 else
9645 error ("creating array of functions");
9646 return error_mark_node;
9648 case REFERENCE_TYPE:
9649 if (name)
9650 error ("declaration of %qD as array of references", name);
9651 else
9652 error ("creating array of references");
9653 return error_mark_node;
9655 case METHOD_TYPE:
9656 if (name)
9657 error ("declaration of %qD as array of function members", name);
9658 else
9659 error ("creating array of function members");
9660 return error_mark_node;
9662 default:
9663 break;
9666 /* [dcl.array]
9668 The constant expressions that specify the bounds of the arrays
9669 can be omitted only for the first member of the sequence. */
9670 if (TREE_CODE (type) == ARRAY_TYPE && !TYPE_DOMAIN (type))
9672 if (name)
9673 error ("declaration of %qD as multidimensional array must "
9674 "have bounds for all dimensions except the first",
9675 name);
9676 else
9677 error ("multidimensional array must have bounds for all "
9678 "dimensions except the first");
9680 return error_mark_node;
9683 /* Figure out the index type for the array. */
9684 if (size)
9685 itype = compute_array_index_type (name, size, tf_warning_or_error);
9687 /* [dcl.array]
9688 T is called the array element type; this type shall not be [...] an
9689 abstract class type. */
9690 abstract_virtuals_error (name, type);
9692 return build_cplus_array_type (type, itype);
9695 /* Returns the smallest location != UNKNOWN_LOCATION among the
9696 three stored in LOCATIONS[ds_const], LOCATIONS[ds_volatile],
9697 and LOCATIONS[ds_restrict]. */
9699 static location_t
9700 smallest_type_quals_location (int type_quals, const location_t* locations)
9702 location_t loc = UNKNOWN_LOCATION;
9704 if (type_quals & TYPE_QUAL_CONST)
9705 loc = locations[ds_const];
9707 if ((type_quals & TYPE_QUAL_VOLATILE)
9708 && (loc == UNKNOWN_LOCATION || locations[ds_volatile] < loc))
9709 loc = locations[ds_volatile];
9711 if ((type_quals & TYPE_QUAL_RESTRICT)
9712 && (loc == UNKNOWN_LOCATION || locations[ds_restrict] < loc))
9713 loc = locations[ds_restrict];
9715 return loc;
9718 /* Check that it's OK to declare a function with the indicated TYPE
9719 and TYPE_QUALS. SFK indicates the kind of special function (if any)
9720 that this function is. OPTYPE is the type given in a conversion
9721 operator declaration, or the class type for a constructor/destructor.
9722 Returns the actual return type of the function; that may be different
9723 than TYPE if an error occurs, or for certain special functions. */
9725 static tree
9726 check_special_function_return_type (special_function_kind sfk,
9727 tree type,
9728 tree optype,
9729 int type_quals,
9730 const location_t* locations)
9732 switch (sfk)
9734 case sfk_constructor:
9735 if (type)
9736 error ("return type specification for constructor invalid");
9737 else if (type_quals != TYPE_UNQUALIFIED)
9738 error_at (smallest_type_quals_location (type_quals, locations),
9739 "qualifiers are not allowed on constructor declaration");
9741 if (targetm.cxx.cdtor_returns_this ())
9742 type = build_pointer_type (optype);
9743 else
9744 type = void_type_node;
9745 break;
9747 case sfk_destructor:
9748 if (type)
9749 error ("return type specification for destructor invalid");
9750 else if (type_quals != TYPE_UNQUALIFIED)
9751 error_at (smallest_type_quals_location (type_quals, locations),
9752 "qualifiers are not allowed on destructor declaration");
9754 /* We can't use the proper return type here because we run into
9755 problems with ambiguous bases and covariant returns. */
9756 if (targetm.cxx.cdtor_returns_this ())
9757 type = build_pointer_type (void_type_node);
9758 else
9759 type = void_type_node;
9760 break;
9762 case sfk_conversion:
9763 if (type)
9764 error ("return type specified for %<operator %T%>", optype);
9765 else if (type_quals != TYPE_UNQUALIFIED)
9766 error_at (smallest_type_quals_location (type_quals, locations),
9767 "qualifiers are not allowed on declaration of "
9768 "%<operator %T%>", optype);
9770 type = optype;
9771 break;
9773 case sfk_deduction_guide:
9774 if (type)
9775 error ("return type specified for deduction guide");
9776 else if (type_quals != TYPE_UNQUALIFIED)
9777 error_at (smallest_type_quals_location (type_quals, locations),
9778 "qualifiers are not allowed on declaration of "
9779 "deduction guide");
9780 type = make_template_placeholder (CLASSTYPE_TI_TEMPLATE (optype));
9781 for (int i = 0; i < ds_last; ++i)
9782 if (i != ds_explicit && locations[i])
9783 error_at (locations[i],
9784 "decl-specifier in declaration of deduction guide");
9785 break;
9787 default:
9788 gcc_unreachable ();
9791 return type;
9794 /* A variable or data member (whose unqualified name is IDENTIFIER)
9795 has been declared with the indicated TYPE. If the TYPE is not
9796 acceptable, issue an error message and return a type to use for
9797 error-recovery purposes. */
9799 tree
9800 check_var_type (tree identifier, tree type)
9802 if (VOID_TYPE_P (type))
9804 if (!identifier)
9805 error ("unnamed variable or field declared void");
9806 else if (identifier_p (identifier))
9808 gcc_assert (!IDENTIFIER_ANY_OP_P (identifier));
9809 error ("variable or field %qE declared void", identifier);
9811 else
9812 error ("variable or field declared void");
9813 type = error_mark_node;
9816 return type;
9819 /* Handle declaring DECL as an inline variable. */
9821 static void
9822 mark_inline_variable (tree decl)
9824 bool inlinep = true;
9825 if (! toplevel_bindings_p ())
9827 error ("%<inline%> specifier invalid for variable "
9828 "%qD declared at block scope", decl);
9829 inlinep = false;
9831 else if (cxx_dialect < cxx17)
9832 pedwarn (DECL_SOURCE_LOCATION (decl), 0,
9833 "inline variables are only available "
9834 "with -std=c++17 or -std=gnu++17");
9835 if (inlinep)
9837 retrofit_lang_decl (decl);
9838 SET_DECL_VAR_DECLARED_INLINE_P (decl);
9843 /* Assign a typedef-given name to a class or enumeration type declared
9844 as anonymous at first. This was split out of grokdeclarator
9845 because it is also used in libcc1. */
9847 void
9848 name_unnamed_type (tree type, tree decl)
9850 gcc_assert (TYPE_UNNAMED_P (type));
9852 /* Replace the anonymous name with the real name everywhere. */
9853 for (tree t = TYPE_MAIN_VARIANT (type); t; t = TYPE_NEXT_VARIANT (t))
9855 if (anon_aggrname_p (TYPE_IDENTIFIER (t)))
9856 /* We do not rename the debug info representing the
9857 unnamed tagged type because the standard says in
9858 [dcl.typedef] that the naming applies only for
9859 linkage purposes. */
9860 /*debug_hooks->set_name (t, decl);*/
9861 TYPE_NAME (t) = decl;
9864 if (TYPE_LANG_SPECIFIC (type))
9865 TYPE_WAS_UNNAMED (type) = 1;
9867 /* If this is a typedef within a template class, the nested
9868 type is a (non-primary) template. The name for the
9869 template needs updating as well. */
9870 if (TYPE_LANG_SPECIFIC (type) && CLASSTYPE_TEMPLATE_INFO (type))
9871 DECL_NAME (CLASSTYPE_TI_TEMPLATE (type))
9872 = TYPE_IDENTIFIER (type);
9874 /* Adjust linkage now that we aren't unnamed anymore. */
9875 reset_type_linkage (type);
9877 /* FIXME remangle member functions; member functions of a
9878 type with external linkage have external linkage. */
9880 /* Check that our job is done, and that it would fail if we
9881 attempted to do it again. */
9882 gcc_assert (!TYPE_UNNAMED_P (type));
9885 /* Given declspecs and a declarator (abstract or otherwise), determine
9886 the name and type of the object declared and construct a DECL node
9887 for it.
9889 DECLSPECS points to the representation of declaration-specifier
9890 sequence that precedes declarator.
9892 DECL_CONTEXT says which syntactic context this declaration is in:
9893 NORMAL for most contexts. Make a VAR_DECL or FUNCTION_DECL or TYPE_DECL.
9894 FUNCDEF for a function definition. Like NORMAL but a few different
9895 error messages in each case. Return value may be zero meaning
9896 this definition is too screwy to try to parse.
9897 MEMFUNCDEF for a function definition. Like FUNCDEF but prepares to
9898 handle member functions (which have FIELD context).
9899 Return value may be zero meaning this definition is too screwy to
9900 try to parse.
9901 PARM for a parameter declaration (either within a function prototype
9902 or before a function body). Make a PARM_DECL, or return void_type_node.
9903 TPARM for a template parameter declaration.
9904 CATCHPARM for a parameter declaration before a catch clause.
9905 TYPENAME if for a typename (in a cast or sizeof).
9906 Don't make a DECL node; just return the ..._TYPE node.
9907 FIELD for a struct or union field; make a FIELD_DECL.
9908 BITFIELD for a field with specified width.
9910 INITIALIZED is as for start_decl.
9912 ATTRLIST is a pointer to the list of attributes, which may be NULL
9913 if there are none; *ATTRLIST may be modified if attributes from inside
9914 the declarator should be applied to the declaration.
9916 When this function is called, scoping variables (such as
9917 CURRENT_CLASS_TYPE) should reflect the scope in which the
9918 declaration occurs, not the scope in which the new declaration will
9919 be placed. For example, on:
9921 void S::f() { ... }
9923 when grokdeclarator is called for `S::f', the CURRENT_CLASS_TYPE
9924 should not be `S'.
9926 Returns a DECL (if a declarator is present), a TYPE (if there is no
9927 declarator, in cases like "struct S;"), or the ERROR_MARK_NODE if an
9928 error occurs. */
9930 tree
9931 grokdeclarator (const cp_declarator *declarator,
9932 cp_decl_specifier_seq *declspecs,
9933 enum decl_context decl_context,
9934 int initialized,
9935 tree* attrlist)
9937 tree type = NULL_TREE;
9938 int longlong = 0;
9939 int explicit_intN = 0;
9940 int virtualp, explicitp, friendp, inlinep, staticp;
9941 int explicit_int = 0;
9942 int explicit_char = 0;
9943 int defaulted_int = 0;
9945 tree typedef_decl = NULL_TREE;
9946 const char *name = NULL;
9947 tree typedef_type = NULL_TREE;
9948 /* True if this declarator is a function definition. */
9949 bool funcdef_flag = false;
9950 cp_declarator_kind innermost_code = cdk_error;
9951 int bitfield = 0;
9952 #if 0
9953 /* See the code below that used this. */
9954 tree decl_attr = NULL_TREE;
9955 #endif
9957 /* Keep track of what sort of function is being processed
9958 so that we can warn about default return values, or explicit
9959 return values which do not match prescribed defaults. */
9960 special_function_kind sfk = sfk_none;
9962 tree dname = NULL_TREE;
9963 tree ctor_return_type = NULL_TREE;
9964 enum overload_flags flags = NO_SPECIAL;
9965 /* cv-qualifiers that apply to the declarator, for a declaration of
9966 a member function. */
9967 cp_cv_quals memfn_quals = TYPE_UNQUALIFIED;
9968 /* virt-specifiers that apply to the declarator, for a declaration of
9969 a member function. */
9970 cp_virt_specifiers virt_specifiers = VIRT_SPEC_UNSPECIFIED;
9971 /* ref-qualifier that applies to the declarator, for a declaration of
9972 a member function. */
9973 cp_ref_qualifier rqual = REF_QUAL_NONE;
9974 /* cv-qualifiers that apply to the type specified by the DECLSPECS. */
9975 int type_quals = TYPE_UNQUALIFIED;
9976 tree raises = NULL_TREE;
9977 int template_count = 0;
9978 tree returned_attrs = NULL_TREE;
9979 tree parms = NULL_TREE;
9980 const cp_declarator *id_declarator;
9981 /* The unqualified name of the declarator; either an
9982 IDENTIFIER_NODE, BIT_NOT_EXPR, or TEMPLATE_ID_EXPR. */
9983 tree unqualified_id;
9984 /* The class type, if any, in which this entity is located,
9985 or NULL_TREE if none. Note that this value may be different from
9986 the current class type; for example if an attempt is made to declare
9987 "A::f" inside "B", this value will be "A". */
9988 tree ctype = current_class_type;
9989 /* The NAMESPACE_DECL for the namespace in which this entity is
9990 located. If an unqualified name is used to declare the entity,
9991 this value will be NULL_TREE, even if the entity is located at
9992 namespace scope. */
9993 tree in_namespace = NULL_TREE;
9994 cp_storage_class storage_class;
9995 bool unsigned_p, signed_p, short_p, long_p, thread_p;
9996 bool type_was_error_mark_node = false;
9997 bool parameter_pack_p = declarator ? declarator->parameter_pack_p : false;
9998 bool template_type_arg = false;
9999 bool template_parm_flag = false;
10000 bool typedef_p = decl_spec_seq_has_spec_p (declspecs, ds_typedef);
10001 bool constexpr_p = decl_spec_seq_has_spec_p (declspecs, ds_constexpr);
10002 bool late_return_type_p = false;
10003 bool array_parameter_p = false;
10004 source_location saved_loc = input_location;
10005 tree reqs = NULL_TREE;
10007 signed_p = decl_spec_seq_has_spec_p (declspecs, ds_signed);
10008 unsigned_p = decl_spec_seq_has_spec_p (declspecs, ds_unsigned);
10009 short_p = decl_spec_seq_has_spec_p (declspecs, ds_short);
10010 long_p = decl_spec_seq_has_spec_p (declspecs, ds_long);
10011 longlong = decl_spec_seq_has_spec_p (declspecs, ds_long_long);
10012 explicit_intN = declspecs->explicit_intN_p;
10013 thread_p = decl_spec_seq_has_spec_p (declspecs, ds_thread);
10015 // Was concept_p specified? Note that ds_concept
10016 // implies ds_constexpr!
10017 bool concept_p = decl_spec_seq_has_spec_p (declspecs, ds_concept);
10018 if (concept_p)
10019 constexpr_p = true;
10021 if (decl_spec_seq_has_spec_p (declspecs, ds_const))
10022 type_quals |= TYPE_QUAL_CONST;
10023 if (decl_spec_seq_has_spec_p (declspecs, ds_volatile))
10024 type_quals |= TYPE_QUAL_VOLATILE;
10025 if (decl_spec_seq_has_spec_p (declspecs, ds_restrict))
10026 type_quals |= TYPE_QUAL_RESTRICT;
10028 if (decl_context == FUNCDEF)
10029 funcdef_flag = true, decl_context = NORMAL;
10030 else if (decl_context == MEMFUNCDEF)
10031 funcdef_flag = true, decl_context = FIELD;
10032 else if (decl_context == BITFIELD)
10033 bitfield = 1, decl_context = FIELD;
10034 else if (decl_context == TEMPLATE_TYPE_ARG)
10035 template_type_arg = true, decl_context = TYPENAME;
10036 else if (decl_context == TPARM)
10037 template_parm_flag = true, decl_context = PARM;
10039 if (initialized > 1)
10040 funcdef_flag = true;
10042 location_t typespec_loc = smallest_type_quals_location (type_quals,
10043 declspecs->locations);
10044 if (typespec_loc == UNKNOWN_LOCATION)
10045 typespec_loc = declspecs->locations[ds_type_spec];
10046 if (typespec_loc == UNKNOWN_LOCATION)
10047 typespec_loc = input_location;
10049 /* Look inside a declarator for the name being declared
10050 and get it as a string, for an error message. */
10051 for (id_declarator = declarator;
10052 id_declarator;
10053 id_declarator = id_declarator->declarator)
10055 if (id_declarator->kind != cdk_id)
10056 innermost_code = id_declarator->kind;
10058 switch (id_declarator->kind)
10060 case cdk_function:
10061 if (id_declarator->declarator
10062 && id_declarator->declarator->kind == cdk_id)
10064 sfk = id_declarator->declarator->u.id.sfk;
10065 if (sfk == sfk_destructor)
10066 flags = DTOR_FLAG;
10068 break;
10070 case cdk_id:
10072 tree qualifying_scope = id_declarator->u.id.qualifying_scope;
10073 tree decl = id_declarator->u.id.unqualified_name;
10074 if (!decl)
10075 break;
10076 if (qualifying_scope)
10078 if (at_function_scope_p ())
10080 /* [dcl.meaning]
10082 A declarator-id shall not be qualified except
10083 for ...
10085 None of the cases are permitted in block
10086 scope. */
10087 if (qualifying_scope == global_namespace)
10088 error ("invalid use of qualified-name %<::%D%>",
10089 decl);
10090 else if (TYPE_P (qualifying_scope))
10091 error ("invalid use of qualified-name %<%T::%D%>",
10092 qualifying_scope, decl);
10093 else
10094 error ("invalid use of qualified-name %<%D::%D%>",
10095 qualifying_scope, decl);
10096 return error_mark_node;
10098 else if (TYPE_P (qualifying_scope))
10100 ctype = qualifying_scope;
10101 if (!MAYBE_CLASS_TYPE_P (ctype))
10103 error ("%q#T is not a class or a namespace", ctype);
10104 ctype = NULL_TREE;
10106 else if (innermost_code != cdk_function
10107 && current_class_type
10108 && !uniquely_derived_from_p (ctype,
10109 current_class_type))
10111 error ("invalid use of qualified-name %<%T::%D%>",
10112 qualifying_scope, decl);
10113 return error_mark_node;
10116 else if (TREE_CODE (qualifying_scope) == NAMESPACE_DECL)
10117 in_namespace = qualifying_scope;
10119 switch (TREE_CODE (decl))
10121 case BIT_NOT_EXPR:
10123 if (innermost_code != cdk_function)
10125 error ("declaration of %qD as non-function", decl);
10126 return error_mark_node;
10128 else if (!qualifying_scope
10129 && !(current_class_type && at_class_scope_p ()))
10131 error ("declaration of %qD as non-member", decl);
10132 return error_mark_node;
10135 tree type = TREE_OPERAND (decl, 0);
10136 if (TYPE_P (type))
10137 type = constructor_name (type);
10138 name = identifier_to_locale (IDENTIFIER_POINTER (type));
10139 dname = decl;
10141 break;
10143 case TEMPLATE_ID_EXPR:
10145 tree fns = TREE_OPERAND (decl, 0);
10147 dname = fns;
10148 if (!identifier_p (dname))
10149 dname = OVL_NAME (dname);
10151 /* Fall through. */
10153 case IDENTIFIER_NODE:
10154 if (identifier_p (decl))
10155 dname = decl;
10157 if (IDENTIFIER_KEYWORD_P (dname))
10159 error ("declarator-id missing; using reserved word %qD",
10160 dname);
10161 name = identifier_to_locale (IDENTIFIER_POINTER (dname));
10163 else if (!IDENTIFIER_CONV_OP_P (dname))
10164 name = identifier_to_locale (IDENTIFIER_POINTER (dname));
10165 else
10167 gcc_assert (flags == NO_SPECIAL);
10168 flags = TYPENAME_FLAG;
10169 sfk = sfk_conversion;
10170 tree glob = get_global_binding (dname);
10171 if (glob && TREE_CODE (glob) == TYPE_DECL)
10172 name = identifier_to_locale (IDENTIFIER_POINTER (dname));
10173 else
10174 name = "<invalid operator>";
10176 break;
10178 default:
10179 gcc_unreachable ();
10181 break;
10184 case cdk_array:
10185 case cdk_pointer:
10186 case cdk_reference:
10187 case cdk_ptrmem:
10188 break;
10190 case cdk_decomp:
10191 name = "structured binding";
10192 break;
10194 case cdk_error:
10195 return error_mark_node;
10197 default:
10198 gcc_unreachable ();
10200 if (id_declarator->kind == cdk_id)
10201 break;
10204 /* [dcl.fct.edf]
10206 The declarator in a function-definition shall have the form
10207 D1 ( parameter-declaration-clause) ... */
10208 if (funcdef_flag && innermost_code != cdk_function)
10210 error ("function definition does not declare parameters");
10211 return error_mark_node;
10214 if (flags == TYPENAME_FLAG
10215 && innermost_code != cdk_function
10216 && ! (ctype && !declspecs->any_specifiers_p))
10218 error ("declaration of %qD as non-function", dname);
10219 return error_mark_node;
10222 if (dname && identifier_p (dname))
10224 if (UDLIT_OPER_P (dname)
10225 && innermost_code != cdk_function)
10227 error ("declaration of %qD as non-function", dname);
10228 return error_mark_node;
10231 if (IDENTIFIER_ANY_OP_P (dname))
10233 if (typedef_p)
10235 error ("declaration of %qD as %<typedef%>", dname);
10236 return error_mark_node;
10238 else if (decl_context == PARM || decl_context == CATCHPARM)
10240 error ("declaration of %qD as parameter", dname);
10241 return error_mark_node;
10246 /* Anything declared one level down from the top level
10247 must be one of the parameters of a function
10248 (because the body is at least two levels down). */
10250 /* This heuristic cannot be applied to C++ nodes! Fixed, however,
10251 by not allowing C++ class definitions to specify their parameters
10252 with xdecls (must be spec.d in the parmlist).
10254 Since we now wait to push a class scope until we are sure that
10255 we are in a legitimate method context, we must set oldcname
10256 explicitly (since current_class_name is not yet alive).
10258 We also want to avoid calling this a PARM if it is in a namespace. */
10260 if (decl_context == NORMAL && !toplevel_bindings_p ())
10262 cp_binding_level *b = current_binding_level;
10263 current_binding_level = b->level_chain;
10264 if (current_binding_level != 0 && toplevel_bindings_p ())
10265 decl_context = PARM;
10266 current_binding_level = b;
10269 if (name == NULL)
10270 name = decl_context == PARM ? "parameter" : "type name";
10272 if (concept_p && typedef_p)
10274 error ("%<concept%> cannot appear in a typedef declaration");
10275 return error_mark_node;
10278 if (constexpr_p && typedef_p)
10280 error ("%<constexpr%> cannot appear in a typedef declaration");
10281 return error_mark_node;
10284 /* If there were multiple types specified in the decl-specifier-seq,
10285 issue an error message. */
10286 if (declspecs->multiple_types_p)
10288 error ("two or more data types in declaration of %qs", name);
10289 return error_mark_node;
10292 if (declspecs->conflicting_specifiers_p)
10294 error ("conflicting specifiers in declaration of %qs", name);
10295 return error_mark_node;
10298 /* Extract the basic type from the decl-specifier-seq. */
10299 type = declspecs->type;
10300 if (type == error_mark_node)
10302 type = NULL_TREE;
10303 type_was_error_mark_node = true;
10305 /* If the entire declaration is itself tagged as deprecated then
10306 suppress reports of deprecated items. */
10307 if (type && TREE_DEPRECATED (type)
10308 && deprecated_state != DEPRECATED_SUPPRESS)
10309 warn_deprecated_use (type, NULL_TREE);
10310 if (type && TREE_CODE (type) == TYPE_DECL)
10312 typedef_decl = type;
10313 type = TREE_TYPE (typedef_decl);
10314 if (TREE_DEPRECATED (type)
10315 && DECL_ARTIFICIAL (typedef_decl)
10316 && deprecated_state != DEPRECATED_SUPPRESS)
10317 warn_deprecated_use (type, NULL_TREE);
10319 /* No type at all: default to `int', and set DEFAULTED_INT
10320 because it was not a user-defined typedef. */
10321 if (type == NULL_TREE)
10323 if (signed_p || unsigned_p || long_p || short_p)
10325 /* These imply 'int'. */
10326 type = integer_type_node;
10327 defaulted_int = 1;
10329 /* If we just have "complex", it is equivalent to "complex double". */
10330 else if (!longlong && !explicit_intN
10331 && decl_spec_seq_has_spec_p (declspecs, ds_complex))
10333 type = double_type_node;
10334 pedwarn (declspecs->locations[ds_complex], OPT_Wpedantic,
10335 "ISO C++ does not support plain %<complex%> meaning "
10336 "%<double complex%>");
10339 /* Gather flags. */
10340 explicit_int = declspecs->explicit_int_p;
10341 explicit_char = declspecs->explicit_char_p;
10343 #if 0
10344 /* See the code below that used this. */
10345 if (typedef_decl)
10346 decl_attr = DECL_ATTRIBUTES (typedef_decl);
10347 #endif
10348 typedef_type = type;
10350 if (sfk == sfk_conversion || sfk == sfk_deduction_guide)
10351 ctor_return_type = TREE_TYPE (dname);
10352 else
10353 ctor_return_type = ctype;
10355 if (sfk != sfk_none)
10357 type = check_special_function_return_type (sfk, type,
10358 ctor_return_type,
10359 type_quals,
10360 declspecs->locations);
10361 type_quals = TYPE_UNQUALIFIED;
10363 else if (type == NULL_TREE)
10365 int is_main;
10367 explicit_int = -1;
10369 /* We handle `main' specially here, because 'main () { }' is so
10370 common. With no options, it is allowed. With -Wreturn-type,
10371 it is a warning. It is only an error with -pedantic-errors. */
10372 is_main = (funcdef_flag
10373 && dname && identifier_p (dname)
10374 && MAIN_NAME_P (dname)
10375 && ctype == NULL_TREE
10376 && in_namespace == NULL_TREE
10377 && current_namespace == global_namespace);
10379 if (type_was_error_mark_node)
10380 /* We've already issued an error, don't complain more. */;
10381 else if (in_system_header_at (input_location) || flag_ms_extensions)
10382 /* Allow it, sigh. */;
10383 else if (! is_main)
10384 permerror (input_location, "ISO C++ forbids declaration of %qs with no type", name);
10385 else if (pedantic)
10386 pedwarn (input_location, OPT_Wpedantic,
10387 "ISO C++ forbids declaration of %qs with no type", name);
10388 else
10389 warning (OPT_Wreturn_type,
10390 "ISO C++ forbids declaration of %qs with no type", name);
10392 if (type_was_error_mark_node && template_parm_flag)
10393 /* FIXME we should be able to propagate the error_mark_node as is
10394 for other contexts too. */
10395 type = error_mark_node;
10396 else
10397 type = integer_type_node;
10400 ctype = NULL_TREE;
10402 if (explicit_intN)
10404 if (! int_n_enabled_p[declspecs->int_n_idx])
10406 error ("%<__int%d%> is not supported by this target",
10407 int_n_data[declspecs->int_n_idx].bitsize);
10408 explicit_intN = false;
10410 else if (pedantic && ! in_system_header_at (input_location))
10411 pedwarn (input_location, OPT_Wpedantic,
10412 "ISO C++ does not support %<__int%d%> for %qs",
10413 int_n_data[declspecs->int_n_idx].bitsize, name);
10416 /* Now process the modifiers that were specified
10417 and check for invalid combinations. */
10419 /* Long double is a special combination. */
10420 if (long_p && !longlong && TYPE_MAIN_VARIANT (type) == double_type_node)
10422 long_p = false;
10423 type = cp_build_qualified_type (long_double_type_node,
10424 cp_type_quals (type));
10427 /* Check all other uses of type modifiers. */
10429 if (unsigned_p || signed_p || long_p || short_p)
10431 int ok = 0;
10433 if ((signed_p || unsigned_p) && TREE_CODE (type) != INTEGER_TYPE)
10434 error ("%<signed%> or %<unsigned%> invalid for %qs", name);
10435 else if (signed_p && unsigned_p)
10436 error ("%<signed%> and %<unsigned%> specified together for %qs", name);
10437 else if (longlong && TREE_CODE (type) != INTEGER_TYPE)
10438 error ("%<long long%> invalid for %qs", name);
10439 else if (long_p && TREE_CODE (type) == REAL_TYPE)
10440 error ("%<long%> invalid for %qs", name);
10441 else if (short_p && TREE_CODE (type) == REAL_TYPE)
10442 error ("%<short%> invalid for %qs", name);
10443 else if ((long_p || short_p) && TREE_CODE (type) != INTEGER_TYPE)
10444 error ("%<long%> or %<short%> invalid for %qs", name);
10445 else if ((long_p || short_p || explicit_char || explicit_int) && explicit_intN)
10446 error ("%<long%>, %<int%>, %<short%>, or %<char%> invalid for %qs", name);
10447 else if ((long_p || short_p) && explicit_char)
10448 error ("%<long%> or %<short%> specified with char for %qs", name);
10449 else if (long_p && short_p)
10450 error ("%<long%> and %<short%> specified together for %qs", name);
10451 else if (type == char16_type_node || type == char32_type_node)
10453 if (signed_p || unsigned_p)
10454 error ("%<signed%> or %<unsigned%> invalid for %qs", name);
10455 else if (short_p || long_p)
10456 error ("%<short%> or %<long%> invalid for %qs", name);
10458 else
10460 ok = 1;
10461 if (!explicit_int && !defaulted_int && !explicit_char && !explicit_intN && pedantic)
10463 pedwarn (input_location, OPT_Wpedantic,
10464 "long, short, signed or unsigned used invalidly for %qs",
10465 name);
10466 if (flag_pedantic_errors)
10467 ok = 0;
10471 /* Discard the type modifiers if they are invalid. */
10472 if (! ok)
10474 unsigned_p = false;
10475 signed_p = false;
10476 long_p = false;
10477 short_p = false;
10478 longlong = 0;
10482 /* Decide whether an integer type is signed or not.
10483 Optionally treat bitfields as signed by default. */
10484 if (unsigned_p
10485 /* [class.bit]
10487 It is implementation-defined whether a plain (neither
10488 explicitly signed or unsigned) char, short, int, or long
10489 bit-field is signed or unsigned.
10491 Naturally, we extend this to long long as well. Note that
10492 this does not include wchar_t. */
10493 || (bitfield && !flag_signed_bitfields
10494 && !signed_p
10495 /* A typedef for plain `int' without `signed' can be
10496 controlled just like plain `int', but a typedef for
10497 `signed int' cannot be so controlled. */
10498 && !(typedef_decl
10499 && C_TYPEDEF_EXPLICITLY_SIGNED (typedef_decl))
10500 && TREE_CODE (type) == INTEGER_TYPE
10501 && !same_type_p (TYPE_MAIN_VARIANT (type), wchar_type_node)))
10503 if (explicit_intN)
10504 type = int_n_trees[declspecs->int_n_idx].unsigned_type;
10505 else if (longlong)
10506 type = long_long_unsigned_type_node;
10507 else if (long_p)
10508 type = long_unsigned_type_node;
10509 else if (short_p)
10510 type = short_unsigned_type_node;
10511 else if (type == char_type_node)
10512 type = unsigned_char_type_node;
10513 else if (typedef_decl)
10514 type = unsigned_type_for (type);
10515 else
10516 type = unsigned_type_node;
10518 else if (signed_p && type == char_type_node)
10519 type = signed_char_type_node;
10520 else if (explicit_intN)
10521 type = int_n_trees[declspecs->int_n_idx].signed_type;
10522 else if (longlong)
10523 type = long_long_integer_type_node;
10524 else if (long_p)
10525 type = long_integer_type_node;
10526 else if (short_p)
10527 type = short_integer_type_node;
10529 if (decl_spec_seq_has_spec_p (declspecs, ds_complex))
10531 if (TREE_CODE (type) != INTEGER_TYPE && TREE_CODE (type) != REAL_TYPE)
10532 error ("complex invalid for %qs", name);
10533 /* If a modifier is specified, the resulting complex is the complex
10534 form of TYPE. E.g, "complex short" is "complex short int". */
10535 else if (type == integer_type_node)
10536 type = complex_integer_type_node;
10537 else if (type == float_type_node)
10538 type = complex_float_type_node;
10539 else if (type == double_type_node)
10540 type = complex_double_type_node;
10541 else if (type == long_double_type_node)
10542 type = complex_long_double_type_node;
10543 else
10544 type = build_complex_type (type);
10547 /* If we're using the injected-class-name to form a compound type or a
10548 declaration, replace it with the underlying class so we don't get
10549 redundant typedefs in the debug output. But if we are returning the
10550 type unchanged, leave it alone so that it's available to
10551 maybe_get_template_decl_from_type_decl. */
10552 if (CLASS_TYPE_P (type)
10553 && DECL_SELF_REFERENCE_P (TYPE_NAME (type))
10554 && type == TREE_TYPE (TYPE_NAME (type))
10555 && (declarator || type_quals))
10556 type = DECL_ORIGINAL_TYPE (TYPE_NAME (type));
10558 type_quals |= cp_type_quals (type);
10559 type = cp_build_qualified_type_real
10560 (type, type_quals, ((((typedef_decl && !DECL_ARTIFICIAL (typedef_decl))
10561 || declspecs->decltype_p)
10562 ? tf_ignore_bad_quals : 0) | tf_warning_or_error));
10563 /* We might have ignored or rejected some of the qualifiers. */
10564 type_quals = cp_type_quals (type);
10566 if (cxx_dialect >= cxx17 && type && is_auto (type)
10567 && innermost_code != cdk_function
10568 && id_declarator && declarator != id_declarator)
10569 if (tree tmpl = CLASS_PLACEHOLDER_TEMPLATE (type))
10571 error_at (typespec_loc, "template placeholder type %qT must be followed "
10572 "by a simple declarator-id", type);
10573 inform (DECL_SOURCE_LOCATION (tmpl), "%qD declared here", tmpl);
10576 staticp = 0;
10577 inlinep = decl_spec_seq_has_spec_p (declspecs, ds_inline);
10578 virtualp = decl_spec_seq_has_spec_p (declspecs, ds_virtual);
10579 explicitp = decl_spec_seq_has_spec_p (declspecs, ds_explicit);
10581 storage_class = declspecs->storage_class;
10582 if (storage_class == sc_static)
10583 staticp = 1 + (decl_context == FIELD);
10585 if (virtualp)
10587 if (staticp == 2)
10589 error ("member %qD cannot be declared both %<virtual%> "
10590 "and %<static%>", dname);
10591 storage_class = sc_none;
10592 staticp = 0;
10594 if (constexpr_p)
10595 error ("member %qD cannot be declared both %<virtual%> "
10596 "and %<constexpr%>", dname);
10598 friendp = decl_spec_seq_has_spec_p (declspecs, ds_friend);
10600 /* Issue errors about use of storage classes for parameters. */
10601 if (decl_context == PARM)
10603 if (typedef_p)
10605 error ("typedef declaration invalid in parameter declaration");
10606 return error_mark_node;
10608 else if (template_parm_flag && storage_class != sc_none)
10610 error ("storage class specified for template parameter %qs", name);
10611 return error_mark_node;
10613 else if (storage_class == sc_static
10614 || storage_class == sc_extern
10615 || thread_p)
10616 error ("storage class specifiers invalid in parameter declarations");
10618 /* Function parameters cannot be concept. */
10619 if (concept_p)
10620 error ("a parameter cannot be declared %<concept%>");
10621 /* Function parameters cannot be constexpr. If we saw one, moan
10622 and pretend it wasn't there. */
10623 else if (constexpr_p)
10625 error ("a parameter cannot be declared %<constexpr%>");
10626 constexpr_p = 0;
10630 /* Give error if `virtual' is used outside of class declaration. */
10631 if (virtualp
10632 && (current_class_name == NULL_TREE || decl_context != FIELD))
10634 error_at (declspecs->locations[ds_virtual],
10635 "%<virtual%> outside class declaration");
10636 virtualp = 0;
10639 if (innermost_code == cdk_decomp)
10641 location_t loc = (declarator->kind == cdk_reference
10642 ? declarator->declarator->id_loc : declarator->id_loc);
10643 if (inlinep)
10644 error_at (declspecs->locations[ds_inline],
10645 "structured binding declaration cannot be %<inline%>");
10646 if (typedef_p)
10647 error_at (declspecs->locations[ds_typedef],
10648 "structured binding declaration cannot be %<typedef%>");
10649 if (constexpr_p)
10650 error_at (declspecs->locations[ds_constexpr], "structured "
10651 "binding declaration cannot be %<constexpr%>");
10652 if (thread_p)
10653 error_at (declspecs->locations[ds_thread],
10654 "structured binding declaration cannot be %qs",
10655 declspecs->gnu_thread_keyword_p
10656 ? "__thread" : "thread_local");
10657 if (concept_p)
10658 error_at (declspecs->locations[ds_concept],
10659 "structured binding declaration cannot be %<concept%>");
10660 switch (storage_class)
10662 case sc_none:
10663 break;
10664 case sc_register:
10665 error_at (loc, "structured binding declaration cannot be "
10666 "%<register%>");
10667 break;
10668 case sc_static:
10669 error_at (loc, "structured binding declaration cannot be "
10670 "%<static%>");
10671 break;
10672 case sc_extern:
10673 error_at (loc, "structured binding declaration cannot be "
10674 "%<extern%>");
10675 break;
10676 case sc_mutable:
10677 error_at (loc, "structured binding declaration cannot be "
10678 "%<mutable%>");
10679 break;
10680 case sc_auto:
10681 error_at (loc, "structured binding declaration cannot be "
10682 "C++98 %<auto%>");
10683 break;
10684 default:
10685 gcc_unreachable ();
10687 if (TREE_CODE (type) != TEMPLATE_TYPE_PARM
10688 || TYPE_IDENTIFIER (type) != auto_identifier)
10690 if (type != error_mark_node)
10692 error_at (loc, "structured binding declaration cannot have "
10693 "type %qT", type);
10694 inform (loc,
10695 "type must be cv-qualified %<auto%> or reference to "
10696 "cv-qualified %<auto%>");
10698 type = build_qualified_type (make_auto (), type_quals);
10699 declspecs->type = type;
10701 inlinep = 0;
10702 typedef_p = 0;
10703 constexpr_p = 0;
10704 thread_p = 0;
10705 concept_p = 0;
10706 storage_class = sc_none;
10707 staticp = 0;
10708 declspecs->storage_class = sc_none;
10709 declspecs->locations[ds_thread] = UNKNOWN_LOCATION;
10712 /* Static anonymous unions are dealt with here. */
10713 if (staticp && decl_context == TYPENAME
10714 && declspecs->type
10715 && ANON_AGGR_TYPE_P (declspecs->type))
10716 decl_context = FIELD;
10718 /* Warn about storage classes that are invalid for certain
10719 kinds of declarations (parameters, typenames, etc.). */
10720 if (thread_p
10721 && ((storage_class
10722 && storage_class != sc_extern
10723 && storage_class != sc_static)
10724 || typedef_p))
10726 error ("multiple storage classes in declaration of %qs", name);
10727 thread_p = false;
10729 if (decl_context != NORMAL
10730 && ((storage_class != sc_none
10731 && storage_class != sc_mutable)
10732 || thread_p))
10734 if ((decl_context == PARM || decl_context == CATCHPARM)
10735 && (storage_class == sc_register
10736 || storage_class == sc_auto))
10738 else if (typedef_p)
10740 else if (decl_context == FIELD
10741 /* C++ allows static class elements. */
10742 && storage_class == sc_static)
10743 /* C++ also allows inlines and signed and unsigned elements,
10744 but in those cases we don't come in here. */
10746 else
10748 if (decl_context == FIELD)
10749 error ("storage class specified for %qs", name);
10750 else
10752 if (decl_context == PARM || decl_context == CATCHPARM)
10753 error ("storage class specified for parameter %qs", name);
10754 else
10755 error ("storage class specified for typename");
10757 if (storage_class == sc_register
10758 || storage_class == sc_auto
10759 || storage_class == sc_extern
10760 || thread_p)
10761 storage_class = sc_none;
10764 else if (storage_class == sc_extern && funcdef_flag
10765 && ! toplevel_bindings_p ())
10766 error ("nested function %qs declared %<extern%>", name);
10767 else if (toplevel_bindings_p ())
10769 if (storage_class == sc_auto)
10770 error ("top-level declaration of %qs specifies %<auto%>", name);
10772 else if (thread_p
10773 && storage_class != sc_extern
10774 && storage_class != sc_static)
10776 if (declspecs->gnu_thread_keyword_p)
10777 pedwarn (input_location, 0, "function-scope %qs implicitly auto and "
10778 "declared %<__thread%>", name);
10780 /* When thread_local is applied to a variable of block scope the
10781 storage-class-specifier static is implied if it does not appear
10782 explicitly. */
10783 storage_class = declspecs->storage_class = sc_static;
10784 staticp = 1;
10787 if (storage_class && friendp)
10789 error ("storage class specifiers invalid in friend function declarations");
10790 storage_class = sc_none;
10791 staticp = 0;
10794 if (!id_declarator)
10795 unqualified_id = NULL_TREE;
10796 else
10798 unqualified_id = id_declarator->u.id.unqualified_name;
10799 switch (TREE_CODE (unqualified_id))
10801 case BIT_NOT_EXPR:
10802 unqualified_id = TREE_OPERAND (unqualified_id, 0);
10803 if (TYPE_P (unqualified_id))
10804 unqualified_id = constructor_name (unqualified_id);
10805 break;
10807 case IDENTIFIER_NODE:
10808 case TEMPLATE_ID_EXPR:
10809 break;
10811 default:
10812 gcc_unreachable ();
10816 if (declspecs->std_attributes)
10818 /* Apply the c++11 attributes to the type preceding them. */
10819 input_location = declspecs->locations[ds_std_attribute];
10820 decl_attributes (&type, declspecs->std_attributes, 0);
10821 input_location = saved_loc;
10824 /* Determine the type of the entity declared by recurring on the
10825 declarator. */
10826 for (; declarator; declarator = declarator->declarator)
10828 const cp_declarator *inner_declarator;
10829 tree attrs;
10831 if (type == error_mark_node)
10832 return error_mark_node;
10834 attrs = declarator->attributes;
10835 if (attrs)
10837 int attr_flags;
10839 attr_flags = 0;
10840 if (declarator == NULL || declarator->kind == cdk_id)
10841 attr_flags |= (int) ATTR_FLAG_DECL_NEXT;
10842 if (declarator->kind == cdk_function)
10843 attr_flags |= (int) ATTR_FLAG_FUNCTION_NEXT;
10844 if (declarator->kind == cdk_array)
10845 attr_flags |= (int) ATTR_FLAG_ARRAY_NEXT;
10846 returned_attrs = decl_attributes (&type,
10847 chainon (returned_attrs, attrs),
10848 attr_flags);
10851 inner_declarator = declarator->declarator;
10853 /* We don't want to warn in parmeter context because we don't
10854 yet know if the parse will succeed, and this might turn out
10855 to be a constructor call. */
10856 if (decl_context != PARM
10857 && declarator->parenthesized != UNKNOWN_LOCATION
10858 /* If the type is class-like and the inner name used a
10859 global namespace qualifier, we need the parens.
10860 Unfortunately all we can tell is whether a qualified name
10861 was used or not. */
10862 && !(inner_declarator
10863 && inner_declarator->kind == cdk_id
10864 && inner_declarator->u.id.qualifying_scope
10865 && (MAYBE_CLASS_TYPE_P (type)
10866 || TREE_CODE (type) == ENUMERAL_TYPE)))
10867 warning_at (declarator->parenthesized, OPT_Wparentheses,
10868 "unnecessary parentheses in declaration of %qs", name);
10869 if (declarator->kind == cdk_id || declarator->kind == cdk_decomp)
10870 break;
10872 switch (declarator->kind)
10874 case cdk_array:
10875 type = create_array_type_for_decl (dname, type,
10876 declarator->u.array.bounds);
10877 if (!valid_array_size_p (input_location, type, dname))
10878 type = error_mark_node;
10880 if (declarator->std_attributes)
10881 /* [dcl.array]/1:
10883 The optional attribute-specifier-seq appertains to the
10884 array. */
10885 returned_attrs = chainon (returned_attrs,
10886 declarator->std_attributes);
10887 break;
10889 case cdk_function:
10891 tree arg_types;
10892 int funcdecl_p;
10894 /* Declaring a function type. */
10896 input_location = declspecs->locations[ds_type_spec];
10897 abstract_virtuals_error (ACU_RETURN, type);
10898 input_location = saved_loc;
10900 /* Pick up type qualifiers which should be applied to `this'. */
10901 memfn_quals = declarator->u.function.qualifiers;
10902 /* Pick up virt-specifiers. */
10903 virt_specifiers = declarator->u.function.virt_specifiers;
10904 /* And ref-qualifier, too */
10905 rqual = declarator->u.function.ref_qualifier;
10906 /* And tx-qualifier. */
10907 tree tx_qual = declarator->u.function.tx_qualifier;
10908 /* Pick up the exception specifications. */
10909 raises = declarator->u.function.exception_specification;
10910 /* If the exception-specification is ill-formed, let's pretend
10911 there wasn't one. */
10912 if (raises == error_mark_node)
10913 raises = NULL_TREE;
10915 if (reqs)
10916 error_at (location_of (reqs), "requires-clause on return type");
10917 reqs = declarator->u.function.requires_clause;
10919 /* Say it's a definition only for the CALL_EXPR
10920 closest to the identifier. */
10921 funcdecl_p = inner_declarator && inner_declarator->kind == cdk_id;
10923 /* Handle a late-specified return type. */
10924 tree late_return_type = declarator->u.function.late_return_type;
10925 if (funcdecl_p)
10927 if (tree auto_node = type_uses_auto (type))
10929 if (!late_return_type)
10931 if (current_class_type
10932 && LAMBDA_TYPE_P (current_class_type))
10933 /* OK for C++11 lambdas. */;
10934 else if (cxx_dialect < cxx14)
10936 error ("%qs function uses "
10937 "%<auto%> type specifier without trailing "
10938 "return type", name);
10939 inform (input_location, "deduced return type "
10940 "only available with -std=c++14 or "
10941 "-std=gnu++14");
10943 else if (virtualp)
10945 error ("virtual function cannot "
10946 "have deduced return type");
10947 virtualp = false;
10950 else if (!is_auto (type) && sfk != sfk_conversion)
10952 error ("%qs function with trailing return type has"
10953 " %qT as its type rather than plain %<auto%>",
10954 name, type);
10955 return error_mark_node;
10957 if (tree tmpl = CLASS_PLACEHOLDER_TEMPLATE (auto_node))
10959 if (!late_return_type)
10961 if (dguide_name_p (unqualified_id))
10962 error_at (declarator->id_loc, "deduction guide "
10963 "for %qT must have trailing return "
10964 "type", TREE_TYPE (tmpl));
10965 else
10966 error_at (declarator->id_loc, "deduced class "
10967 "type %qT in function return type",
10968 type);
10969 inform (DECL_SOURCE_LOCATION (tmpl),
10970 "%qD declared here", tmpl);
10972 else if (CLASS_TYPE_P (late_return_type)
10973 && CLASSTYPE_TEMPLATE_INFO (late_return_type)
10974 && (CLASSTYPE_TI_TEMPLATE (late_return_type)
10975 == tmpl))
10976 /* OK */;
10977 else
10978 error ("trailing return type %qT of deduction guide "
10979 "is not a specialization of %qT",
10980 late_return_type, TREE_TYPE (tmpl));
10983 else if (late_return_type
10984 && sfk != sfk_conversion)
10986 if (cxx_dialect < cxx11)
10987 /* Not using maybe_warn_cpp0x because this should
10988 always be an error. */
10989 error ("trailing return type only available with "
10990 "-std=c++11 or -std=gnu++11");
10991 else
10992 error ("%qs function with trailing return type not "
10993 "declared with %<auto%> type specifier", name);
10994 return error_mark_node;
10997 type = splice_late_return_type (type, late_return_type);
10998 if (type == error_mark_node)
10999 return error_mark_node;
11001 if (late_return_type)
11003 late_return_type_p = true;
11004 type_quals = cp_type_quals (type);
11007 if (type_quals != TYPE_UNQUALIFIED)
11009 if (SCALAR_TYPE_P (type) || VOID_TYPE_P (type))
11010 warning_at (typespec_loc, OPT_Wignored_qualifiers, "type "
11011 "qualifiers ignored on function return type");
11012 /* We now know that the TYPE_QUALS don't apply to the
11013 decl, but to its return type. */
11014 type_quals = TYPE_UNQUALIFIED;
11017 /* Error about some types functions can't return. */
11019 if (TREE_CODE (type) == FUNCTION_TYPE)
11021 error_at (typespec_loc, "%qs declared as function returning "
11022 "a function", name);
11023 return error_mark_node;
11025 if (TREE_CODE (type) == ARRAY_TYPE)
11027 error_at (typespec_loc, "%qs declared as function returning "
11028 "an array", name);
11029 return error_mark_node;
11032 if (ctype == NULL_TREE
11033 && decl_context == FIELD
11034 && funcdecl_p
11035 && friendp == 0)
11036 ctype = current_class_type;
11038 if (ctype && (sfk == sfk_constructor
11039 || sfk == sfk_destructor))
11041 /* We are within a class's scope. If our declarator name
11042 is the same as the class name, and we are defining
11043 a function, then it is a constructor/destructor, and
11044 therefore returns a void type. */
11046 /* ISO C++ 12.4/2. A destructor may not be declared
11047 const or volatile. A destructor may not be static.
11048 A destructor may not be declared with ref-qualifier.
11050 ISO C++ 12.1. A constructor may not be declared
11051 const or volatile. A constructor may not be
11052 virtual. A constructor may not be static.
11053 A constructor may not be declared with ref-qualifier. */
11054 if (staticp == 2)
11055 error ((flags == DTOR_FLAG)
11056 ? G_("destructor cannot be static member function")
11057 : G_("constructor cannot be static member function"));
11058 if (memfn_quals)
11060 error ((flags == DTOR_FLAG)
11061 ? G_("destructors may not be cv-qualified")
11062 : G_("constructors may not be cv-qualified"));
11063 memfn_quals = TYPE_UNQUALIFIED;
11066 if (rqual)
11068 maybe_warn_cpp0x (CPP0X_REF_QUALIFIER);
11069 error ((flags == DTOR_FLAG)
11070 ? G_("destructors may not be ref-qualified")
11071 : G_("constructors may not be ref-qualified"));
11072 rqual = REF_QUAL_NONE;
11075 if (decl_context == FIELD
11076 && !member_function_or_else (ctype,
11077 current_class_type,
11078 flags))
11079 return error_mark_node;
11081 if (flags != DTOR_FLAG)
11083 /* It's a constructor. */
11084 if (explicitp == 1)
11085 explicitp = 2;
11086 if (virtualp)
11088 permerror (input_location,
11089 "constructors cannot be declared %<virtual%>");
11090 virtualp = 0;
11092 if (decl_context == FIELD
11093 && sfk != sfk_constructor)
11094 return error_mark_node;
11096 if (decl_context == FIELD)
11097 staticp = 0;
11099 else if (friendp)
11101 if (virtualp)
11103 /* Cannot be both friend and virtual. */
11104 error ("virtual functions cannot be friends");
11105 friendp = 0;
11107 if (decl_context == NORMAL)
11108 error ("friend declaration not in class definition");
11109 if (current_function_decl && funcdef_flag)
11110 error ("can%'t define friend function %qs in a local "
11111 "class definition",
11112 name);
11114 else if (ctype && sfk == sfk_conversion)
11116 if (explicitp == 1)
11118 maybe_warn_cpp0x (CPP0X_EXPLICIT_CONVERSION);
11119 explicitp = 2;
11121 if (late_return_type_p)
11122 error ("a conversion function cannot have a trailing return type");
11124 else if (sfk == sfk_deduction_guide)
11126 if (explicitp == 1)
11127 explicitp = 2;
11130 arg_types = grokparms (declarator->u.function.parameters,
11131 &parms);
11133 if (inner_declarator
11134 && inner_declarator->kind == cdk_id
11135 && inner_declarator->u.id.sfk == sfk_destructor
11136 && arg_types != void_list_node)
11138 error ("destructors may not have parameters");
11139 arg_types = void_list_node;
11140 parms = NULL_TREE;
11143 type = build_function_type (type, arg_types);
11145 tree attrs = declarator->std_attributes;
11146 if (tx_qual)
11148 tree att = build_tree_list (tx_qual, NULL_TREE);
11149 /* transaction_safe applies to the type, but
11150 transaction_safe_dynamic applies to the function. */
11151 if (is_attribute_p ("transaction_safe", tx_qual))
11152 attrs = chainon (attrs, att);
11153 else
11154 returned_attrs = chainon (returned_attrs, att);
11156 if (attrs)
11157 /* [dcl.fct]/2:
11159 The optional attribute-specifier-seq appertains to
11160 the function type. */
11161 decl_attributes (&type, attrs, 0);
11163 if (raises)
11164 type = build_exception_variant (type, raises);
11166 break;
11168 case cdk_pointer:
11169 case cdk_reference:
11170 case cdk_ptrmem:
11171 /* Filter out pointers-to-references and references-to-references.
11172 We can get these if a TYPE_DECL is used. */
11174 if (TREE_CODE (type) == REFERENCE_TYPE)
11176 if (declarator->kind != cdk_reference)
11178 error ("cannot declare pointer to %q#T", type);
11179 type = TREE_TYPE (type);
11182 /* In C++0x, we allow reference to reference declarations
11183 that occur indirectly through typedefs [7.1.3/8 dcl.typedef]
11184 and template type arguments [14.3.1/4 temp.arg.type]. The
11185 check for direct reference to reference declarations, which
11186 are still forbidden, occurs below. Reasoning behind the change
11187 can be found in DR106, DR540, and the rvalue reference
11188 proposals. */
11189 else if (cxx_dialect == cxx98)
11191 error ("cannot declare reference to %q#T", type);
11192 type = TREE_TYPE (type);
11195 else if (VOID_TYPE_P (type))
11197 if (declarator->kind == cdk_reference)
11198 error ("cannot declare reference to %q#T", type);
11199 else if (declarator->kind == cdk_ptrmem)
11200 error ("cannot declare pointer to %q#T member", type);
11203 /* We now know that the TYPE_QUALS don't apply to the decl,
11204 but to the target of the pointer. */
11205 type_quals = TYPE_UNQUALIFIED;
11207 /* This code used to handle METHOD_TYPE, but I don't think it's
11208 possible to get it here anymore. */
11209 gcc_assert (TREE_CODE (type) != METHOD_TYPE);
11210 if (declarator->kind == cdk_ptrmem
11211 && TREE_CODE (type) == FUNCTION_TYPE)
11213 memfn_quals |= type_memfn_quals (type);
11214 type = build_memfn_type (type,
11215 declarator->u.pointer.class_type,
11216 memfn_quals,
11217 rqual);
11218 if (type == error_mark_node)
11219 return error_mark_node;
11221 rqual = REF_QUAL_NONE;
11222 memfn_quals = TYPE_UNQUALIFIED;
11225 if (TREE_CODE (type) == FUNCTION_TYPE
11226 && (type_memfn_quals (type) != TYPE_UNQUALIFIED
11227 || type_memfn_rqual (type) != REF_QUAL_NONE))
11228 error (declarator->kind == cdk_reference
11229 ? G_("cannot declare reference to qualified function type %qT")
11230 : G_("cannot declare pointer to qualified function type %qT"),
11231 type);
11233 /* When the pointed-to type involves components of variable size,
11234 care must be taken to ensure that the size evaluation code is
11235 emitted early enough to dominate all the possible later uses
11236 and late enough for the variables on which it depends to have
11237 been assigned.
11239 This is expected to happen automatically when the pointed-to
11240 type has a name/declaration of it's own, but special attention
11241 is required if the type is anonymous.
11243 We handle the NORMAL and FIELD contexts here by inserting a
11244 dummy statement that just evaluates the size at a safe point
11245 and ensures it is not deferred until e.g. within a deeper
11246 conditional context (c++/43555).
11248 We expect nothing to be needed here for PARM or TYPENAME.
11249 Evaluating the size at this point for TYPENAME would
11250 actually be incorrect, as we might be in the middle of an
11251 expression with side effects on the pointed-to type size
11252 "arguments" prior to the pointer declaration point and the
11253 size evaluation could end up prior to the side effects. */
11255 if (!TYPE_NAME (type)
11256 && (decl_context == NORMAL || decl_context == FIELD)
11257 && at_function_scope_p ()
11258 && variably_modified_type_p (type, NULL_TREE))
11260 TYPE_NAME (type) = build_decl (UNKNOWN_LOCATION, TYPE_DECL,
11261 NULL_TREE, type);
11262 add_decl_expr (TYPE_NAME (type));
11265 if (declarator->kind == cdk_reference)
11267 /* In C++0x, the type we are creating a reference to might be
11268 a typedef which is itself a reference type. In that case,
11269 we follow the reference collapsing rules in
11270 [7.1.3/8 dcl.typedef] to create the final reference type:
11272 "If a typedef TD names a type that is a reference to a type
11273 T, an attempt to create the type 'lvalue reference to cv TD'
11274 creates the type 'lvalue reference to T,' while an attempt
11275 to create the type "rvalue reference to cv TD' creates the
11276 type TD."
11278 if (VOID_TYPE_P (type))
11279 /* We already gave an error. */;
11280 else if (TREE_CODE (type) == REFERENCE_TYPE)
11282 if (declarator->u.reference.rvalue_ref)
11283 /* Leave type alone. */;
11284 else
11285 type = cp_build_reference_type (TREE_TYPE (type), false);
11287 else
11288 type = cp_build_reference_type
11289 (type, declarator->u.reference.rvalue_ref);
11291 /* In C++0x, we need this check for direct reference to
11292 reference declarations, which are forbidden by
11293 [8.3.2/5 dcl.ref]. Reference to reference declarations
11294 are only allowed indirectly through typedefs and template
11295 type arguments. Example:
11297 void foo(int & &); // invalid ref-to-ref decl
11299 typedef int & int_ref;
11300 void foo(int_ref &); // valid ref-to-ref decl
11302 if (inner_declarator && inner_declarator->kind == cdk_reference)
11303 error ("cannot declare reference to %q#T, which is not "
11304 "a typedef or a template type argument", type);
11306 else if (TREE_CODE (type) == METHOD_TYPE)
11307 type = build_ptrmemfunc_type (build_pointer_type (type));
11308 else if (declarator->kind == cdk_ptrmem)
11310 gcc_assert (TREE_CODE (declarator->u.pointer.class_type)
11311 != NAMESPACE_DECL);
11312 if (declarator->u.pointer.class_type == error_mark_node)
11313 /* We will already have complained. */
11314 type = error_mark_node;
11315 else
11316 type = build_ptrmem_type (declarator->u.pointer.class_type,
11317 type);
11319 else
11320 type = build_pointer_type (type);
11322 /* Process a list of type modifier keywords (such as
11323 const or volatile) that were given inside the `*' or `&'. */
11325 if (declarator->u.pointer.qualifiers)
11327 type
11328 = cp_build_qualified_type (type,
11329 declarator->u.pointer.qualifiers);
11330 type_quals = cp_type_quals (type);
11333 /* Apply C++11 attributes to the pointer, and not to the
11334 type pointed to. This is unlike what is done for GNU
11335 attributes above. It is to comply with [dcl.ptr]/1:
11337 [the optional attribute-specifier-seq (7.6.1) appertains
11338 to the pointer and not to the object pointed to]. */
11339 if (declarator->std_attributes)
11340 decl_attributes (&type, declarator->std_attributes,
11343 ctype = NULL_TREE;
11344 break;
11346 case cdk_error:
11347 break;
11349 default:
11350 gcc_unreachable ();
11354 /* A `constexpr' specifier used in an object declaration declares
11355 the object as `const'. */
11356 if (constexpr_p && innermost_code != cdk_function)
11358 /* DR1688 says that a `constexpr' specifier in combination with
11359 `volatile' is valid. */
11361 if (TREE_CODE (type) != REFERENCE_TYPE)
11363 type_quals |= TYPE_QUAL_CONST;
11364 type = cp_build_qualified_type (type, type_quals);
11368 if (unqualified_id && TREE_CODE (unqualified_id) == TEMPLATE_ID_EXPR
11369 && TREE_CODE (type) != FUNCTION_TYPE
11370 && TREE_CODE (type) != METHOD_TYPE
11371 && !variable_template_p (TREE_OPERAND (unqualified_id, 0)))
11373 error ("template-id %qD used as a declarator",
11374 unqualified_id);
11375 unqualified_id = dname;
11378 /* If TYPE is a FUNCTION_TYPE, but the function name was explicitly
11379 qualified with a class-name, turn it into a METHOD_TYPE, unless
11380 we know that the function is static. We take advantage of this
11381 opportunity to do other processing that pertains to entities
11382 explicitly declared to be class members. Note that if DECLARATOR
11383 is non-NULL, we know it is a cdk_id declarator; otherwise, we
11384 would not have exited the loop above. */
11385 if (declarator
11386 && declarator->kind == cdk_id
11387 && declarator->u.id.qualifying_scope
11388 && MAYBE_CLASS_TYPE_P (declarator->u.id.qualifying_scope))
11390 ctype = declarator->u.id.qualifying_scope;
11391 ctype = TYPE_MAIN_VARIANT (ctype);
11392 template_count = num_template_headers_for_class (ctype);
11394 if (ctype == current_class_type)
11396 if (friendp)
11398 permerror (input_location, "member functions are implicitly "
11399 "friends of their class");
11400 friendp = 0;
11402 else
11403 permerror (declarator->id_loc,
11404 "extra qualification %<%T::%> on member %qs",
11405 ctype, name);
11407 else if (/* If the qualifying type is already complete, then we
11408 can skip the following checks. */
11409 !COMPLETE_TYPE_P (ctype)
11410 && (/* If the function is being defined, then
11411 qualifying type must certainly be complete. */
11412 funcdef_flag
11413 /* A friend declaration of "T::f" is OK, even if
11414 "T" is a template parameter. But, if this
11415 function is not a friend, the qualifying type
11416 must be a class. */
11417 || (!friendp && !CLASS_TYPE_P (ctype))
11418 /* For a declaration, the type need not be
11419 complete, if either it is dependent (since there
11420 is no meaningful definition of complete in that
11421 case) or the qualifying class is currently being
11422 defined. */
11423 || !(dependent_type_p (ctype)
11424 || currently_open_class (ctype)))
11425 /* Check that the qualifying type is complete. */
11426 && !complete_type_or_else (ctype, NULL_TREE))
11427 return error_mark_node;
11428 else if (TREE_CODE (type) == FUNCTION_TYPE)
11430 if (current_class_type
11431 && (!friendp || funcdef_flag || initialized))
11433 error (funcdef_flag || initialized
11434 ? G_("cannot define member function %<%T::%s%> "
11435 "within %qT")
11436 : G_("cannot declare member function %<%T::%s%> "
11437 "within %qT"),
11438 ctype, name, current_class_type);
11439 return error_mark_node;
11442 else if (typedef_p && current_class_type)
11444 error ("cannot declare member %<%T::%s%> within %qT",
11445 ctype, name, current_class_type);
11446 return error_mark_node;
11450 if (ctype == NULL_TREE && decl_context == FIELD && friendp == 0)
11451 ctype = current_class_type;
11453 /* Now TYPE has the actual type. */
11455 if (returned_attrs)
11457 if (attrlist)
11458 *attrlist = chainon (returned_attrs, *attrlist);
11459 else
11460 attrlist = &returned_attrs;
11463 if (declarator
11464 && declarator->kind == cdk_id
11465 && declarator->std_attributes
11466 && attrlist != NULL)
11467 /* [dcl.meaning]/1: The optional attribute-specifier-seq following
11468 a declarator-id appertains to the entity that is declared. */
11469 *attrlist = chainon (*attrlist, declarator->std_attributes);
11471 /* Handle parameter packs. */
11472 if (parameter_pack_p)
11474 if (decl_context == PARM)
11475 /* Turn the type into a pack expansion.*/
11476 type = make_pack_expansion (type);
11477 else
11478 error ("non-parameter %qs cannot be a parameter pack", name);
11481 if ((decl_context == FIELD || decl_context == PARM)
11482 && !processing_template_decl
11483 && variably_modified_type_p (type, NULL_TREE))
11485 if (decl_context == FIELD)
11486 error ("data member may not have variably modified type %qT", type);
11487 else
11488 error ("parameter may not have variably modified type %qT", type);
11489 type = error_mark_node;
11492 if (explicitp == 1 || (explicitp && friendp))
11494 /* [dcl.fct.spec] (C++11) The explicit specifier shall be used only
11495 in the declaration of a constructor or conversion function within
11496 a class definition. */
11497 if (!current_class_type)
11498 error_at (declspecs->locations[ds_explicit],
11499 "%<explicit%> outside class declaration");
11500 else if (friendp)
11501 error_at (declspecs->locations[ds_explicit],
11502 "%<explicit%> in friend declaration");
11503 else
11504 error_at (declspecs->locations[ds_explicit],
11505 "only declarations of constructors and conversion operators "
11506 "can be %<explicit%>");
11507 explicitp = 0;
11510 if (storage_class == sc_mutable)
11512 if (decl_context != FIELD || friendp)
11514 error ("non-member %qs cannot be declared %<mutable%>", name);
11515 storage_class = sc_none;
11517 else if (decl_context == TYPENAME || typedef_p)
11519 error ("non-object member %qs cannot be declared %<mutable%>", name);
11520 storage_class = sc_none;
11522 else if (TREE_CODE (type) == FUNCTION_TYPE
11523 || TREE_CODE (type) == METHOD_TYPE)
11525 error ("function %qs cannot be declared %<mutable%>", name);
11526 storage_class = sc_none;
11528 else if (staticp)
11530 error ("static %qs cannot be declared %<mutable%>", name);
11531 storage_class = sc_none;
11533 else if (type_quals & TYPE_QUAL_CONST)
11535 error ("const %qs cannot be declared %<mutable%>", name);
11536 storage_class = sc_none;
11538 else if (TREE_CODE (type) == REFERENCE_TYPE)
11540 permerror (input_location, "reference %qs cannot be declared "
11541 "%<mutable%>", name);
11542 storage_class = sc_none;
11546 /* If this is declaring a typedef name, return a TYPE_DECL. */
11547 if (typedef_p && decl_context != TYPENAME)
11549 tree decl;
11551 /* This declaration:
11553 typedef void f(int) const;
11555 declares a function type which is not a member of any
11556 particular class, but which is cv-qualified; for
11557 example "f S::*" declares a pointer to a const-qualified
11558 member function of S. We record the cv-qualification in the
11559 function type. */
11560 if ((rqual || memfn_quals) && TREE_CODE (type) == FUNCTION_TYPE)
11562 type = apply_memfn_quals (type, memfn_quals, rqual);
11564 /* We have now dealt with these qualifiers. */
11565 memfn_quals = TYPE_UNQUALIFIED;
11566 rqual = REF_QUAL_NONE;
11569 if (type_uses_auto (type))
11571 error ("typedef declared %<auto%>");
11572 type = error_mark_node;
11575 if (reqs)
11576 error_at (location_of (reqs), "requires-clause on typedef");
11578 if (decl_context == FIELD)
11579 decl = build_lang_decl (TYPE_DECL, unqualified_id, type);
11580 else
11581 decl = build_decl (input_location, TYPE_DECL, unqualified_id, type);
11582 if (id_declarator && declarator->u.id.qualifying_scope) {
11583 error_at (DECL_SOURCE_LOCATION (decl),
11584 "typedef name may not be a nested-name-specifier");
11585 TREE_TYPE (decl) = error_mark_node;
11588 if (decl_context != FIELD)
11590 if (!current_function_decl)
11591 DECL_CONTEXT (decl) = FROB_CONTEXT (current_namespace);
11592 else if (DECL_MAYBE_IN_CHARGE_CONSTRUCTOR_P (current_function_decl)
11593 || (DECL_MAYBE_IN_CHARGE_DESTRUCTOR_P
11594 (current_function_decl)))
11595 /* The TYPE_DECL is "abstract" because there will be
11596 clones of this constructor/destructor, and there will
11597 be copies of this TYPE_DECL generated in those
11598 clones. The decloning optimization (for space) may
11599 revert this subsequently if it determines that
11600 the clones should share a common implementation. */
11601 DECL_ABSTRACT_P (decl) = true;
11603 else if (current_class_type
11604 && constructor_name_p (unqualified_id, current_class_type))
11605 permerror (input_location, "ISO C++ forbids nested type %qD with same name "
11606 "as enclosing class",
11607 unqualified_id);
11609 /* If the user declares "typedef struct {...} foo" then the
11610 struct will have an anonymous name. Fill that name in now.
11611 Nothing can refer to it, so nothing needs know about the name
11612 change. */
11613 if (type != error_mark_node
11614 && unqualified_id
11615 && TYPE_NAME (type)
11616 && TREE_CODE (TYPE_NAME (type)) == TYPE_DECL
11617 && TYPE_UNNAMED_P (type)
11618 && declspecs->type_definition_p
11619 && attributes_naming_typedef_ok (*attrlist)
11620 && cp_type_quals (type) == TYPE_UNQUALIFIED)
11621 name_unnamed_type (type, decl);
11623 if (signed_p
11624 || (typedef_decl && C_TYPEDEF_EXPLICITLY_SIGNED (typedef_decl)))
11625 C_TYPEDEF_EXPLICITLY_SIGNED (decl) = 1;
11627 bad_specifiers (decl, BSP_TYPE, virtualp,
11628 memfn_quals != TYPE_UNQUALIFIED,
11629 inlinep, friendp, raises != NULL_TREE);
11631 if (decl_spec_seq_has_spec_p (declspecs, ds_alias))
11632 /* Acknowledge that this was written:
11633 `using analias = atype;'. */
11634 TYPE_DECL_ALIAS_P (decl) = 1;
11636 return decl;
11639 /* Detect the case of an array type of unspecified size
11640 which came, as such, direct from a typedef name.
11641 We must copy the type, so that the array's domain can be
11642 individually set by the object's initializer. */
11644 if (type && typedef_type
11645 && TREE_CODE (type) == ARRAY_TYPE && !TYPE_DOMAIN (type)
11646 && TYPE_MAIN_VARIANT (type) == TYPE_MAIN_VARIANT (typedef_type))
11647 type = build_cplus_array_type (TREE_TYPE (type), NULL_TREE);
11649 /* Detect where we're using a typedef of function type to declare a
11650 function. PARMS will not be set, so we must create it now. */
11652 if (type == typedef_type && TREE_CODE (type) == FUNCTION_TYPE)
11654 tree decls = NULL_TREE;
11655 tree args;
11657 for (args = TYPE_ARG_TYPES (type);
11658 args && args != void_list_node;
11659 args = TREE_CHAIN (args))
11661 tree decl = cp_build_parm_decl (NULL_TREE, NULL_TREE,
11662 TREE_VALUE (args));
11664 DECL_CHAIN (decl) = decls;
11665 decls = decl;
11668 parms = nreverse (decls);
11670 if (decl_context != TYPENAME)
11672 /* The qualifiers on the function type become the qualifiers on
11673 the non-static member function. */
11674 memfn_quals |= type_memfn_quals (type);
11675 rqual = type_memfn_rqual (type);
11676 type_quals = TYPE_UNQUALIFIED;
11680 /* If this is a type name (such as, in a cast or sizeof),
11681 compute the type and return it now. */
11683 if (decl_context == TYPENAME)
11685 /* Note that here we don't care about type_quals. */
11687 /* Special case: "friend class foo" looks like a TYPENAME context. */
11688 if (friendp)
11690 if (inlinep)
11692 error ("%<inline%> specified for friend class declaration");
11693 inlinep = 0;
11696 if (!current_aggr)
11698 /* Don't allow friend declaration without a class-key. */
11699 if (TREE_CODE (type) == TEMPLATE_TYPE_PARM)
11700 permerror (input_location, "template parameters cannot be friends");
11701 else if (TREE_CODE (type) == TYPENAME_TYPE)
11702 permerror (input_location, "friend declaration requires class-key, "
11703 "i.e. %<friend class %T::%D%>",
11704 TYPE_CONTEXT (type), TYPENAME_TYPE_FULLNAME (type));
11705 else
11706 permerror (input_location, "friend declaration requires class-key, "
11707 "i.e. %<friend %#T%>",
11708 type);
11711 /* Only try to do this stuff if we didn't already give up. */
11712 if (type != integer_type_node)
11714 /* A friendly class? */
11715 if (current_class_type)
11716 make_friend_class (current_class_type, TYPE_MAIN_VARIANT (type),
11717 /*complain=*/true);
11718 else
11719 error ("trying to make class %qT a friend of global scope",
11720 type);
11722 type = void_type_node;
11725 else if (memfn_quals || rqual)
11727 if (ctype == NULL_TREE
11728 && TREE_CODE (type) == METHOD_TYPE)
11729 ctype = TYPE_METHOD_BASETYPE (type);
11731 if (ctype)
11732 type = build_memfn_type (type, ctype, memfn_quals, rqual);
11733 /* Core issue #547: need to allow this in template type args.
11734 Allow it in general in C++11 for alias-declarations. */
11735 else if ((template_type_arg || cxx_dialect >= cxx11)
11736 && TREE_CODE (type) == FUNCTION_TYPE)
11737 type = apply_memfn_quals (type, memfn_quals, rqual);
11738 else
11739 error ("invalid qualifiers on non-member function type");
11742 if (reqs)
11743 error_at (location_of (reqs), "requires-clause on type-id");
11745 return type;
11747 else if (unqualified_id == NULL_TREE && decl_context != PARM
11748 && decl_context != CATCHPARM
11749 && TREE_CODE (type) != UNION_TYPE
11750 && ! bitfield
11751 && innermost_code != cdk_decomp)
11753 error ("abstract declarator %qT used as declaration", type);
11754 return error_mark_node;
11757 if (!FUNC_OR_METHOD_TYPE_P (type))
11759 /* Only functions may be declared using an operator-function-id. */
11760 if (dname && IDENTIFIER_ANY_OP_P (dname))
11762 error ("declaration of %qD as non-function", dname);
11763 return error_mark_node;
11766 if (reqs)
11767 error_at (location_of (reqs),
11768 "requires-clause on declaration of non-function type %qT",
11769 type);
11772 /* We don't check parameter types here because we can emit a better
11773 error message later. */
11774 if (decl_context != PARM)
11776 type = check_var_type (unqualified_id, type);
11777 if (type == error_mark_node)
11778 return error_mark_node;
11781 /* Now create the decl, which may be a VAR_DECL, a PARM_DECL
11782 or a FUNCTION_DECL, depending on DECL_CONTEXT and TYPE. */
11784 if (decl_context == PARM || decl_context == CATCHPARM)
11786 if (ctype || in_namespace)
11787 error ("cannot use %<::%> in parameter declaration");
11789 if (type_uses_auto (type)
11790 && !(cxx_dialect >= cxx17 && template_parm_flag))
11792 if (cxx_dialect >= cxx14)
11793 error ("%<auto%> parameter not permitted in this context");
11794 else
11795 error ("parameter declared %<auto%>");
11796 type = error_mark_node;
11799 /* A parameter declared as an array of T is really a pointer to T.
11800 One declared as a function is really a pointer to a function.
11801 One declared as a member is really a pointer to member. */
11803 if (TREE_CODE (type) == ARRAY_TYPE)
11805 /* Transfer const-ness of array into that of type pointed to. */
11806 type = build_pointer_type (TREE_TYPE (type));
11807 type_quals = TYPE_UNQUALIFIED;
11808 array_parameter_p = true;
11810 else if (TREE_CODE (type) == FUNCTION_TYPE)
11811 type = build_pointer_type (type);
11814 if (ctype && TREE_CODE (type) == FUNCTION_TYPE && staticp < 2
11815 && !(identifier_p (unqualified_id)
11816 && IDENTIFIER_NEWDEL_OP_P (unqualified_id)))
11818 cp_cv_quals real_quals = memfn_quals;
11819 if (cxx_dialect < cxx14 && constexpr_p
11820 && sfk != sfk_constructor && sfk != sfk_destructor)
11821 real_quals |= TYPE_QUAL_CONST;
11822 type = build_memfn_type (type, ctype, real_quals, rqual);
11826 tree decl = NULL_TREE;
11828 if (decl_context == PARM)
11830 decl = cp_build_parm_decl (NULL_TREE, unqualified_id, type);
11831 DECL_ARRAY_PARAMETER_P (decl) = array_parameter_p;
11833 bad_specifiers (decl, BSP_PARM, virtualp,
11834 memfn_quals != TYPE_UNQUALIFIED,
11835 inlinep, friendp, raises != NULL_TREE);
11837 else if (decl_context == FIELD)
11839 if (!staticp && !friendp && TREE_CODE (type) != METHOD_TYPE)
11840 if (tree auto_node = type_uses_auto (type))
11842 location_t loc = declspecs->locations[ds_type_spec];
11843 if (CLASS_PLACEHOLDER_TEMPLATE (auto_node))
11844 error_at (loc, "invalid use of template-name %qE without an "
11845 "argument list",
11846 CLASS_PLACEHOLDER_TEMPLATE (auto_node));
11847 else
11848 error_at (loc, "non-static data member declared with "
11849 "placeholder %qT", auto_node);
11850 type = error_mark_node;
11853 /* The C99 flexible array extension. */
11854 if (!staticp && TREE_CODE (type) == ARRAY_TYPE
11855 && TYPE_DOMAIN (type) == NULL_TREE)
11857 if (ctype
11858 && (TREE_CODE (ctype) == UNION_TYPE
11859 || TREE_CODE (ctype) == QUAL_UNION_TYPE))
11861 error ("flexible array member in union");
11862 type = error_mark_node;
11864 else
11866 /* Array is a flexible member. */
11867 if (in_system_header_at (input_location))
11868 /* Do not warn on flexible array members in system
11869 headers because glibc uses them. */;
11870 else if (name)
11871 pedwarn (input_location, OPT_Wpedantic,
11872 "ISO C++ forbids flexible array member %qs", name);
11873 else
11874 pedwarn (input_location, OPT_Wpedantic,
11875 "ISO C++ forbids flexible array members");
11877 /* Flexible array member has a null domain. */
11878 type = build_cplus_array_type (TREE_TYPE (type), NULL_TREE);
11882 if (type == error_mark_node)
11884 /* Happens when declaring arrays of sizes which
11885 are error_mark_node, for example. */
11886 decl = NULL_TREE;
11888 else if (in_namespace && !friendp)
11890 /* Something like struct S { int N::j; }; */
11891 error ("invalid use of %<::%>");
11892 return error_mark_node;
11894 else if (TREE_CODE (type) == FUNCTION_TYPE
11895 || TREE_CODE (type) == METHOD_TYPE)
11897 int publicp = 0;
11898 tree function_context;
11900 if (friendp == 0)
11902 /* This should never happen in pure C++ (the check
11903 could be an assert). It could happen in
11904 Objective-C++ if someone writes invalid code that
11905 uses a function declaration for an instance
11906 variable or property (instance variables and
11907 properties are parsed as FIELD_DECLs, but they are
11908 part of an Objective-C class, not a C++ class).
11909 That code is invalid and is caught by this
11910 check. */
11911 if (!ctype)
11913 error ("declaration of function %qD in invalid context",
11914 unqualified_id);
11915 return error_mark_node;
11918 /* ``A union may [ ... ] not [ have ] virtual functions.''
11919 ARM 9.5 */
11920 if (virtualp && TREE_CODE (ctype) == UNION_TYPE)
11922 error ("function %qD declared %<virtual%> inside a union",
11923 unqualified_id);
11924 return error_mark_node;
11927 if (virtualp
11928 && identifier_p (unqualified_id)
11929 && IDENTIFIER_NEWDEL_OP_P (unqualified_id))
11931 error ("%qD cannot be declared %<virtual%>, since it "
11932 "is always static", unqualified_id);
11933 virtualp = 0;
11937 /* Check that the name used for a destructor makes sense. */
11938 if (sfk == sfk_destructor)
11940 tree uqname = id_declarator->u.id.unqualified_name;
11942 if (!ctype)
11944 gcc_assert (friendp);
11945 error ("expected qualified name in friend declaration "
11946 "for destructor %qD", uqname);
11947 return error_mark_node;
11950 if (!check_dtor_name (ctype, TREE_OPERAND (uqname, 0)))
11952 error ("declaration of %qD as member of %qT",
11953 uqname, ctype);
11954 return error_mark_node;
11956 if (concept_p)
11958 error ("a destructor cannot be %<concept%>");
11959 return error_mark_node;
11961 if (constexpr_p)
11963 error ("a destructor cannot be %<constexpr%>");
11964 return error_mark_node;
11967 else if (sfk == sfk_constructor && friendp && !ctype)
11969 error ("expected qualified name in friend declaration "
11970 "for constructor %qD",
11971 id_declarator->u.id.unqualified_name);
11972 return error_mark_node;
11974 if (sfk == sfk_constructor)
11975 if (concept_p)
11977 error ("a constructor cannot be %<concept%>");
11978 return error_mark_node;
11980 if (concept_p)
11982 error ("a concept cannot be a member function");
11983 concept_p = false;
11986 if (TREE_CODE (unqualified_id) == TEMPLATE_ID_EXPR)
11988 tree tmpl = TREE_OPERAND (unqualified_id, 0);
11989 if (variable_template_p (tmpl))
11991 error ("specialization of variable template %qD "
11992 "declared as function", tmpl);
11993 inform (DECL_SOURCE_LOCATION (tmpl),
11994 "variable template declared here");
11995 return error_mark_node;
11999 /* Tell grokfndecl if it needs to set TREE_PUBLIC on the node. */
12000 function_context = (ctype != NULL_TREE) ?
12001 decl_function_context (TYPE_MAIN_DECL (ctype)) : NULL_TREE;
12002 publicp = (! friendp || ! staticp)
12003 && function_context == NULL_TREE;
12005 if (late_return_type_p)
12006 TYPE_HAS_LATE_RETURN_TYPE (type) = 1;
12008 decl = grokfndecl (ctype, type,
12009 TREE_CODE (unqualified_id) != TEMPLATE_ID_EXPR
12010 ? unqualified_id : dname,
12011 parms,
12012 unqualified_id,
12013 reqs,
12014 virtualp, flags, memfn_quals, rqual, raises,
12015 friendp ? -1 : 0, friendp, publicp,
12016 inlinep | (2 * constexpr_p) | (4 * concept_p),
12017 initialized == SD_DELETED, sfk,
12018 funcdef_flag, template_count, in_namespace,
12019 attrlist, declarator->id_loc);
12020 decl = set_virt_specifiers (decl, virt_specifiers);
12021 if (decl == NULL_TREE)
12022 return error_mark_node;
12023 #if 0
12024 /* This clobbers the attrs stored in `decl' from `attrlist'. */
12025 /* The decl and setting of decl_attr is also turned off. */
12026 decl = build_decl_attribute_variant (decl, decl_attr);
12027 #endif
12029 /* [class.conv.ctor]
12031 A constructor declared without the function-specifier
12032 explicit that can be called with a single parameter
12033 specifies a conversion from the type of its first
12034 parameter to the type of its class. Such a constructor
12035 is called a converting constructor. */
12036 if (explicitp == 2)
12037 DECL_NONCONVERTING_P (decl) = 1;
12039 else if (!staticp && !dependent_type_p (type)
12040 && !COMPLETE_TYPE_P (complete_type (type))
12041 && (!complete_or_array_type_p (type)
12042 || initialized == 0))
12044 if (TREE_CODE (type) != ARRAY_TYPE
12045 || !COMPLETE_TYPE_P (TREE_TYPE (type)))
12047 if (unqualified_id)
12049 error ("field %qD has incomplete type %qT",
12050 unqualified_id, type);
12051 cxx_incomplete_type_inform (strip_array_types (type));
12053 else
12054 error ("name %qT has incomplete type", type);
12056 type = error_mark_node;
12057 decl = NULL_TREE;
12060 else
12062 if (friendp)
12064 error ("%qE is neither function nor member function; "
12065 "cannot be declared friend", unqualified_id);
12066 friendp = 0;
12068 decl = NULL_TREE;
12071 if (friendp)
12073 /* Friends are treated specially. */
12074 if (ctype == current_class_type)
12075 ; /* We already issued a permerror. */
12076 else if (decl && DECL_NAME (decl))
12078 if (template_class_depth (current_class_type) == 0)
12080 decl = check_explicit_specialization
12081 (unqualified_id, decl, template_count,
12082 2 * funcdef_flag + 4);
12083 if (decl == error_mark_node)
12084 return error_mark_node;
12087 decl = do_friend (ctype, unqualified_id, decl,
12088 *attrlist, flags,
12089 funcdef_flag);
12090 return decl;
12092 else
12093 return error_mark_node;
12096 /* Structure field. It may not be a function, except for C++. */
12098 if (decl == NULL_TREE)
12100 if (staticp)
12102 /* C++ allows static class members. All other work
12103 for this is done by grokfield. */
12104 decl = build_lang_decl_loc (declarator
12105 ? declarator->id_loc
12106 : input_location,
12107 VAR_DECL, unqualified_id, type);
12108 set_linkage_for_static_data_member (decl);
12109 if (concept_p)
12110 error ("static data member %qE declared %<concept%>",
12111 unqualified_id);
12112 else if (constexpr_p && !initialized)
12114 error ("%<constexpr%> static data member %qD must have an "
12115 "initializer", decl);
12116 constexpr_p = false;
12119 if (inlinep)
12120 mark_inline_variable (decl);
12122 if (!DECL_VAR_DECLARED_INLINE_P (decl)
12123 && !(cxx_dialect >= cxx17 && constexpr_p))
12124 /* Even if there is an in-class initialization, DECL
12125 is considered undefined until an out-of-class
12126 definition is provided, unless this is an inline
12127 variable. */
12128 DECL_EXTERNAL (decl) = 1;
12130 if (thread_p)
12132 CP_DECL_THREAD_LOCAL_P (decl) = true;
12133 if (!processing_template_decl)
12134 set_decl_tls_model (decl, decl_default_tls_model (decl));
12135 if (declspecs->gnu_thread_keyword_p)
12136 SET_DECL_GNU_TLS_P (decl);
12139 else
12141 if (concept_p)
12142 error ("non-static data member %qE declared %<concept%>",
12143 unqualified_id);
12144 else if (constexpr_p)
12146 error ("non-static data member %qE declared %<constexpr%>",
12147 unqualified_id);
12148 constexpr_p = false;
12150 decl = build_decl (input_location,
12151 FIELD_DECL, unqualified_id, type);
12152 DECL_NONADDRESSABLE_P (decl) = bitfield;
12153 if (bitfield && !unqualified_id)
12155 TREE_NO_WARNING (decl) = 1;
12156 DECL_PADDING_P (decl) = 1;
12159 if (storage_class == sc_mutable)
12161 DECL_MUTABLE_P (decl) = 1;
12162 storage_class = sc_none;
12165 if (initialized)
12167 /* An attempt is being made to initialize a non-static
12168 member. This is new in C++11. */
12169 maybe_warn_cpp0x (CPP0X_NSDMI);
12171 /* If this has been parsed with static storage class, but
12172 errors forced staticp to be cleared, ensure NSDMI is
12173 not present. */
12174 if (declspecs->storage_class == sc_static)
12175 DECL_INITIAL (decl) = error_mark_node;
12179 bad_specifiers (decl, BSP_FIELD, virtualp,
12180 memfn_quals != TYPE_UNQUALIFIED,
12181 staticp ? false : inlinep, friendp,
12182 raises != NULL_TREE);
12185 else if (TREE_CODE (type) == FUNCTION_TYPE
12186 || TREE_CODE (type) == METHOD_TYPE)
12188 tree original_name;
12189 int publicp = 0;
12191 if (!unqualified_id)
12192 return error_mark_node;
12194 if (TREE_CODE (unqualified_id) == TEMPLATE_ID_EXPR)
12195 original_name = dname;
12196 else
12197 original_name = unqualified_id;
12198 // FIXME:gcc_assert (original_name == dname);
12200 if (storage_class == sc_auto)
12201 error ("storage class %<auto%> invalid for function %qs", name);
12202 else if (storage_class == sc_register)
12203 error ("storage class %<register%> invalid for function %qs", name);
12204 else if (thread_p)
12206 if (declspecs->gnu_thread_keyword_p)
12207 error ("storage class %<__thread%> invalid for function %qs",
12208 name);
12209 else
12210 error ("storage class %<thread_local%> invalid for function %qs",
12211 name);
12214 if (virt_specifiers)
12215 error ("virt-specifiers in %qs not allowed outside a class definition", name);
12216 /* Function declaration not at top level.
12217 Storage classes other than `extern' are not allowed
12218 and `extern' makes no difference. */
12219 if (! toplevel_bindings_p ()
12220 && (storage_class == sc_static
12221 || decl_spec_seq_has_spec_p (declspecs, ds_inline))
12222 && pedantic)
12224 if (storage_class == sc_static)
12225 pedwarn (input_location, OPT_Wpedantic,
12226 "%<static%> specifier invalid for function %qs "
12227 "declared out of global scope", name);
12228 else
12229 pedwarn (input_location, OPT_Wpedantic,
12230 "%<inline%> specifier invalid for function %qs "
12231 "declared out of global scope", name);
12234 if (ctype == NULL_TREE)
12236 if (virtualp)
12238 error ("virtual non-class function %qs", name);
12239 virtualp = 0;
12241 else if (sfk == sfk_constructor
12242 || sfk == sfk_destructor)
12244 error (funcdef_flag
12245 ? G_("%qs defined in a non-class scope")
12246 : G_("%qs declared in a non-class scope"), name);
12247 sfk = sfk_none;
12251 /* Record whether the function is public. */
12252 publicp = (ctype != NULL_TREE
12253 || storage_class != sc_static);
12255 if (late_return_type_p)
12256 TYPE_HAS_LATE_RETURN_TYPE (type) = 1;
12258 decl = grokfndecl (ctype, type, original_name, parms, unqualified_id,
12259 reqs, virtualp, flags, memfn_quals, rqual, raises,
12260 1, friendp,
12261 publicp,
12262 inlinep | (2 * constexpr_p) | (4 * concept_p),
12263 initialized == SD_DELETED,
12264 sfk,
12265 funcdef_flag,
12266 template_count, in_namespace, attrlist,
12267 declarator->id_loc);
12268 if (decl == NULL_TREE)
12269 return error_mark_node;
12271 if (explicitp == 2)
12272 DECL_NONCONVERTING_P (decl) = 1;
12273 if (staticp == 1)
12275 int invalid_static = 0;
12277 /* Don't allow a static member function in a class, and forbid
12278 declaring main to be static. */
12279 if (TREE_CODE (type) == METHOD_TYPE)
12281 permerror (input_location, "cannot declare member function %qD to have "
12282 "static linkage", decl);
12283 invalid_static = 1;
12285 else if (current_function_decl)
12287 /* 7.1.1: There can be no static function declarations within a
12288 block. */
12289 error ("cannot declare static function inside another function");
12290 invalid_static = 1;
12293 if (invalid_static)
12295 staticp = 0;
12296 storage_class = sc_none;
12300 else
12302 /* It's a variable. */
12304 /* An uninitialized decl with `extern' is a reference. */
12305 decl = grokvardecl (type, dname, unqualified_id,
12306 declspecs,
12307 initialized,
12308 type_quals,
12309 inlinep,
12310 concept_p,
12311 template_count,
12312 ctype ? ctype : in_namespace);
12313 if (decl == NULL_TREE)
12314 return error_mark_node;
12316 bad_specifiers (decl, BSP_VAR, virtualp,
12317 memfn_quals != TYPE_UNQUALIFIED,
12318 inlinep, friendp, raises != NULL_TREE);
12320 if (ctype)
12322 DECL_CONTEXT (decl) = ctype;
12323 if (staticp == 1)
12325 permerror (input_location, "%<static%> may not be used when defining "
12326 "(as opposed to declaring) a static data member");
12327 staticp = 0;
12328 storage_class = sc_none;
12330 if (storage_class == sc_register && TREE_STATIC (decl))
12332 error ("static member %qD declared %<register%>", decl);
12333 storage_class = sc_none;
12335 if (storage_class == sc_extern && pedantic)
12337 pedwarn (input_location, OPT_Wpedantic,
12338 "cannot explicitly declare member %q#D to have "
12339 "extern linkage", decl);
12340 storage_class = sc_none;
12343 else if (constexpr_p && DECL_EXTERNAL (decl))
12345 error ("declaration of %<constexpr%> variable %qD "
12346 "is not a definition", decl);
12347 constexpr_p = false;
12350 if (inlinep)
12351 mark_inline_variable (decl);
12352 if (innermost_code == cdk_decomp)
12354 gcc_assert (declarator && declarator->kind == cdk_decomp);
12355 DECL_SOURCE_LOCATION (decl) = declarator->id_loc;
12356 DECL_ARTIFICIAL (decl) = 1;
12357 fit_decomposition_lang_decl (decl, NULL_TREE);
12361 if (VAR_P (decl) && !initialized)
12362 if (tree auto_node = type_uses_auto (type))
12363 if (!CLASS_PLACEHOLDER_TEMPLATE (auto_node))
12365 location_t loc = declspecs->locations[ds_type_spec];
12366 error_at (loc, "declaration of %q#D has no initializer", decl);
12367 TREE_TYPE (decl) = error_mark_node;
12370 if (storage_class == sc_extern && initialized && !funcdef_flag)
12372 if (toplevel_bindings_p ())
12374 /* It's common practice (and completely valid) to have a const
12375 be initialized and declared extern. */
12376 if (!(type_quals & TYPE_QUAL_CONST))
12377 warning (0, "%qs initialized and declared %<extern%>", name);
12379 else
12381 error ("%qs has both %<extern%> and initializer", name);
12382 return error_mark_node;
12386 /* Record `register' declaration for warnings on &
12387 and in case doing stupid register allocation. */
12389 if (storage_class == sc_register)
12391 DECL_REGISTER (decl) = 1;
12392 /* Warn about register storage specifiers on PARM_DECLs. */
12393 if (TREE_CODE (decl) == PARM_DECL)
12395 if (cxx_dialect >= cxx17)
12396 pedwarn (DECL_SOURCE_LOCATION (decl), OPT_Wregister,
12397 "ISO C++17 does not allow %<register%> storage "
12398 "class specifier");
12399 else
12400 warning_at (DECL_SOURCE_LOCATION (decl), OPT_Wregister,
12401 "%<register%> storage class specifier used");
12404 else if (storage_class == sc_extern)
12405 DECL_THIS_EXTERN (decl) = 1;
12406 else if (storage_class == sc_static)
12407 DECL_THIS_STATIC (decl) = 1;
12409 /* Set constexpr flag on vars (functions got it in grokfndecl). */
12410 if (constexpr_p && VAR_P (decl))
12411 DECL_DECLARED_CONSTEXPR_P (decl) = true;
12413 /* Record constancy and volatility on the DECL itself . There's
12414 no need to do this when processing a template; we'll do this
12415 for the instantiated declaration based on the type of DECL. */
12416 if (!processing_template_decl)
12417 cp_apply_type_quals_to_decl (type_quals, decl);
12419 return decl;
12423 /* Subroutine of start_function. Ensure that each of the parameter
12424 types (as listed in PARMS) is complete, as is required for a
12425 function definition. */
12427 static void
12428 require_complete_types_for_parms (tree parms)
12430 for (; parms; parms = DECL_CHAIN (parms))
12432 if (dependent_type_p (TREE_TYPE (parms)))
12433 continue;
12434 if (!VOID_TYPE_P (TREE_TYPE (parms))
12435 && complete_type_or_else (TREE_TYPE (parms), parms))
12437 relayout_decl (parms);
12438 DECL_ARG_TYPE (parms) = type_passed_as (TREE_TYPE (parms));
12440 maybe_warn_parm_abi (TREE_TYPE (parms),
12441 DECL_SOURCE_LOCATION (parms));
12443 else
12444 /* grokparms or complete_type_or_else will have already issued
12445 an error. */
12446 TREE_TYPE (parms) = error_mark_node;
12450 /* Returns nonzero if T is a local variable. */
12453 local_variable_p (const_tree t)
12455 if ((VAR_P (t)
12456 /* A VAR_DECL with a context that is a _TYPE is a static data
12457 member. */
12458 && !TYPE_P (CP_DECL_CONTEXT (t))
12459 /* Any other non-local variable must be at namespace scope. */
12460 && !DECL_NAMESPACE_SCOPE_P (t))
12461 || (TREE_CODE (t) == PARM_DECL))
12462 return 1;
12464 return 0;
12467 /* Like local_variable_p, but suitable for use as a tree-walking
12468 function. */
12470 static tree
12471 local_variable_p_walkfn (tree *tp, int *walk_subtrees,
12472 void * /*data*/)
12474 if (local_variable_p (*tp)
12475 && (!DECL_ARTIFICIAL (*tp) || DECL_NAME (*tp) == this_identifier))
12476 return *tp;
12477 else if (TYPE_P (*tp))
12478 *walk_subtrees = 0;
12480 return NULL_TREE;
12483 /* Check that ARG, which is a default-argument expression for a
12484 parameter DECL, is valid. Returns ARG, or ERROR_MARK_NODE, if
12485 something goes wrong. DECL may also be a _TYPE node, rather than a
12486 DECL, if there is no DECL available. */
12488 tree
12489 check_default_argument (tree decl, tree arg, tsubst_flags_t complain)
12491 tree var;
12492 tree decl_type;
12494 if (TREE_CODE (arg) == DEFAULT_ARG)
12495 /* We get a DEFAULT_ARG when looking at an in-class declaration
12496 with a default argument. Ignore the argument for now; we'll
12497 deal with it after the class is complete. */
12498 return arg;
12500 if (TYPE_P (decl))
12502 decl_type = decl;
12503 decl = NULL_TREE;
12505 else
12506 decl_type = TREE_TYPE (decl);
12508 if (arg == error_mark_node
12509 || decl == error_mark_node
12510 || TREE_TYPE (arg) == error_mark_node
12511 || decl_type == error_mark_node)
12512 /* Something already went wrong. There's no need to check
12513 further. */
12514 return error_mark_node;
12516 /* [dcl.fct.default]
12518 A default argument expression is implicitly converted to the
12519 parameter type. */
12520 ++cp_unevaluated_operand;
12521 perform_implicit_conversion_flags (decl_type, arg, complain,
12522 LOOKUP_IMPLICIT);
12523 --cp_unevaluated_operand;
12525 /* Avoid redundant -Wzero-as-null-pointer-constant warnings at
12526 the call sites. */
12527 if (TYPE_PTR_OR_PTRMEM_P (decl_type)
12528 && null_ptr_cst_p (arg))
12529 return nullptr_node;
12531 /* [dcl.fct.default]
12533 Local variables shall not be used in default argument
12534 expressions.
12536 The keyword `this' shall not be used in a default argument of a
12537 member function. */
12538 var = cp_walk_tree_without_duplicates (&arg, local_variable_p_walkfn, NULL);
12539 if (var)
12541 if (complain & tf_warning_or_error)
12543 if (DECL_NAME (var) == this_identifier)
12544 permerror (input_location, "default argument %qE uses %qD",
12545 arg, var);
12546 else
12547 error ("default argument %qE uses local variable %qD", arg, var);
12549 return error_mark_node;
12552 /* All is well. */
12553 return arg;
12556 /* Returns a deprecated type used within TYPE, or NULL_TREE if none. */
12558 static tree
12559 type_is_deprecated (tree type)
12561 enum tree_code code;
12562 if (TREE_DEPRECATED (type))
12563 return type;
12564 if (TYPE_NAME (type))
12566 if (TREE_DEPRECATED (TYPE_NAME (type)))
12567 return type;
12568 else
12569 return NULL_TREE;
12572 /* Do warn about using typedefs to a deprecated class. */
12573 if (OVERLOAD_TYPE_P (type) && type != TYPE_MAIN_VARIANT (type))
12574 return type_is_deprecated (TYPE_MAIN_VARIANT (type));
12576 code = TREE_CODE (type);
12578 if (code == POINTER_TYPE || code == REFERENCE_TYPE
12579 || code == OFFSET_TYPE || code == FUNCTION_TYPE
12580 || code == METHOD_TYPE || code == ARRAY_TYPE)
12581 return type_is_deprecated (TREE_TYPE (type));
12583 if (TYPE_PTRMEMFUNC_P (type))
12584 return type_is_deprecated
12585 (TREE_TYPE (TREE_TYPE (TYPE_PTRMEMFUNC_FN_TYPE (type))));
12587 return NULL_TREE;
12590 /* Decode the list of parameter types for a function type.
12591 Given the list of things declared inside the parens,
12592 return a list of types.
12594 If this parameter does not end with an ellipsis, we append
12595 void_list_node.
12597 *PARMS is set to the chain of PARM_DECLs created. */
12599 tree
12600 grokparms (tree parmlist, tree *parms)
12602 tree result = NULL_TREE;
12603 tree decls = NULL_TREE;
12604 tree parm;
12605 int any_error = 0;
12607 for (parm = parmlist; parm != NULL_TREE; parm = TREE_CHAIN (parm))
12609 tree type = NULL_TREE;
12610 tree init = TREE_PURPOSE (parm);
12611 tree decl = TREE_VALUE (parm);
12613 if (parm == void_list_node)
12614 break;
12616 if (! decl || TREE_TYPE (decl) == error_mark_node)
12617 continue;
12619 type = TREE_TYPE (decl);
12620 if (VOID_TYPE_P (type))
12622 if (same_type_p (type, void_type_node)
12623 && !init
12624 && !DECL_NAME (decl) && !result
12625 && TREE_CHAIN (parm) == void_list_node)
12626 /* DR 577: A parameter list consisting of a single
12627 unnamed parameter of non-dependent type 'void'. */
12628 break;
12629 else if (cv_qualified_p (type))
12630 error_at (DECL_SOURCE_LOCATION (decl),
12631 "invalid use of cv-qualified type %qT in "
12632 "parameter declaration", type);
12633 else
12634 error_at (DECL_SOURCE_LOCATION (decl),
12635 "invalid use of type %<void%> in parameter "
12636 "declaration");
12637 /* It's not a good idea to actually create parameters of
12638 type `void'; other parts of the compiler assume that a
12639 void type terminates the parameter list. */
12640 type = error_mark_node;
12641 TREE_TYPE (decl) = error_mark_node;
12644 if (type != error_mark_node)
12646 if (deprecated_state != DEPRECATED_SUPPRESS)
12648 tree deptype = type_is_deprecated (type);
12649 if (deptype)
12650 warn_deprecated_use (deptype, NULL_TREE);
12653 /* Top-level qualifiers on the parameters are
12654 ignored for function types. */
12655 type = cp_build_qualified_type (type, 0);
12656 if (TREE_CODE (type) == METHOD_TYPE)
12658 error ("parameter %qD invalidly declared method type", decl);
12659 type = build_pointer_type (type);
12660 TREE_TYPE (decl) = type;
12662 else if (abstract_virtuals_error (decl, type))
12663 any_error = 1; /* Seems like a good idea. */
12664 else if (cxx_dialect < cxx17 && POINTER_TYPE_P (type))
12666 /* Before C++17 DR 393:
12667 [dcl.fct]/6, parameter types cannot contain pointers
12668 (references) to arrays of unknown bound. */
12669 tree t = TREE_TYPE (type);
12670 int ptr = TYPE_PTR_P (type);
12672 while (1)
12674 if (TYPE_PTR_P (t))
12675 ptr = 1;
12676 else if (TREE_CODE (t) != ARRAY_TYPE)
12677 break;
12678 else if (!TYPE_DOMAIN (t))
12679 break;
12680 t = TREE_TYPE (t);
12682 if (TREE_CODE (t) == ARRAY_TYPE)
12683 pedwarn (DECL_SOURCE_LOCATION (decl), OPT_Wpedantic,
12685 ? G_("parameter %qD includes pointer to array of "
12686 "unknown bound %qT")
12687 : G_("parameter %qD includes reference to array of "
12688 "unknown bound %qT"),
12689 decl, t);
12692 if (any_error)
12693 init = NULL_TREE;
12694 else if (init && !processing_template_decl)
12695 init = check_default_argument (decl, init, tf_warning_or_error);
12698 DECL_CHAIN (decl) = decls;
12699 decls = decl;
12700 result = tree_cons (init, type, result);
12702 decls = nreverse (decls);
12703 result = nreverse (result);
12704 if (parm)
12705 result = chainon (result, void_list_node);
12706 *parms = decls;
12708 return result;
12712 /* D is a constructor or overloaded `operator='.
12714 Let T be the class in which D is declared. Then, this function
12715 returns:
12717 -1 if D's is an ill-formed constructor or copy assignment operator
12718 whose first parameter is of type `T'.
12719 0 if D is not a copy constructor or copy assignment
12720 operator.
12721 1 if D is a copy constructor or copy assignment operator whose
12722 first parameter is a reference to non-const qualified T.
12723 2 if D is a copy constructor or copy assignment operator whose
12724 first parameter is a reference to const qualified T.
12726 This function can be used as a predicate. Positive values indicate
12727 a copy constructor and nonzero values indicate a copy assignment
12728 operator. */
12731 copy_fn_p (const_tree d)
12733 tree args;
12734 tree arg_type;
12735 int result = 1;
12737 gcc_assert (DECL_FUNCTION_MEMBER_P (d));
12739 if (TREE_CODE (d) == TEMPLATE_DECL
12740 || (DECL_TEMPLATE_INFO (d)
12741 && DECL_MEMBER_TEMPLATE_P (DECL_TI_TEMPLATE (d))))
12742 /* Instantiations of template member functions are never copy
12743 functions. Note that member functions of templated classes are
12744 represented as template functions internally, and we must
12745 accept those as copy functions. */
12746 return 0;
12748 args = FUNCTION_FIRST_USER_PARMTYPE (d);
12749 if (!args)
12750 return 0;
12752 arg_type = TREE_VALUE (args);
12753 if (arg_type == error_mark_node)
12754 return 0;
12756 if (TYPE_MAIN_VARIANT (arg_type) == DECL_CONTEXT (d))
12758 /* Pass by value copy assignment operator. */
12759 result = -1;
12761 else if (TREE_CODE (arg_type) == REFERENCE_TYPE
12762 && !TYPE_REF_IS_RVALUE (arg_type)
12763 && TYPE_MAIN_VARIANT (TREE_TYPE (arg_type)) == DECL_CONTEXT (d))
12765 if (CP_TYPE_CONST_P (TREE_TYPE (arg_type)))
12766 result = 2;
12768 else
12769 return 0;
12771 args = TREE_CHAIN (args);
12773 if (args && args != void_list_node && !TREE_PURPOSE (args))
12774 /* There are more non-optional args. */
12775 return 0;
12777 return result;
12780 /* D is a constructor or overloaded `operator='.
12782 Let T be the class in which D is declared. Then, this function
12783 returns true when D is a move constructor or move assignment
12784 operator, false otherwise. */
12786 bool
12787 move_fn_p (const_tree d)
12789 gcc_assert (DECL_FUNCTION_MEMBER_P (d));
12791 if (cxx_dialect == cxx98)
12792 /* There are no move constructors if we are in C++98 mode. */
12793 return false;
12795 if (TREE_CODE (d) == TEMPLATE_DECL
12796 || (DECL_TEMPLATE_INFO (d)
12797 && DECL_MEMBER_TEMPLATE_P (DECL_TI_TEMPLATE (d))))
12798 /* Instantiations of template member functions are never move
12799 functions. Note that member functions of templated classes are
12800 represented as template functions internally, and we must
12801 accept those as move functions. */
12802 return 0;
12804 return move_signature_fn_p (d);
12807 /* D is a constructor or overloaded `operator='.
12809 Then, this function returns true when D has the same signature as a move
12810 constructor or move assignment operator (because either it is such a
12811 ctor/op= or it is a template specialization with the same signature),
12812 false otherwise. */
12814 bool
12815 move_signature_fn_p (const_tree d)
12817 tree args;
12818 tree arg_type;
12819 bool result = false;
12821 args = FUNCTION_FIRST_USER_PARMTYPE (d);
12822 if (!args)
12823 return 0;
12825 arg_type = TREE_VALUE (args);
12826 if (arg_type == error_mark_node)
12827 return 0;
12829 if (TREE_CODE (arg_type) == REFERENCE_TYPE
12830 && TYPE_REF_IS_RVALUE (arg_type)
12831 && same_type_p (TYPE_MAIN_VARIANT (TREE_TYPE (arg_type)),
12832 DECL_CONTEXT (d)))
12833 result = true;
12835 args = TREE_CHAIN (args);
12837 if (args && args != void_list_node && !TREE_PURPOSE (args))
12838 /* There are more non-optional args. */
12839 return false;
12841 return result;
12844 /* Remember any special properties of member function DECL. */
12846 void
12847 grok_special_member_properties (tree decl)
12849 tree class_type;
12851 if (!DECL_NONSTATIC_MEMBER_FUNCTION_P (decl))
12852 return;
12854 class_type = DECL_CONTEXT (decl);
12855 if (IDENTIFIER_CTOR_P (DECL_NAME (decl)))
12857 int ctor = copy_fn_p (decl);
12859 if (!DECL_ARTIFICIAL (decl))
12860 TYPE_HAS_USER_CONSTRUCTOR (class_type) = 1;
12862 if (ctor > 0)
12864 /* [class.copy]
12866 A non-template constructor for class X is a copy
12867 constructor if its first parameter is of type X&, const
12868 X&, volatile X& or const volatile X&, and either there
12869 are no other parameters or else all other parameters have
12870 default arguments. */
12871 TYPE_HAS_COPY_CTOR (class_type) = 1;
12872 if (user_provided_p (decl))
12873 TYPE_HAS_COMPLEX_COPY_CTOR (class_type) = 1;
12874 if (ctor > 1)
12875 TYPE_HAS_CONST_COPY_CTOR (class_type) = 1;
12877 else if (sufficient_parms_p (FUNCTION_FIRST_USER_PARMTYPE (decl)))
12878 TYPE_HAS_DEFAULT_CONSTRUCTOR (class_type) = 1;
12879 else if (move_fn_p (decl) && user_provided_p (decl))
12880 TYPE_HAS_COMPLEX_MOVE_CTOR (class_type) = 1;
12881 else if (is_list_ctor (decl))
12882 TYPE_HAS_LIST_CTOR (class_type) = 1;
12884 if (DECL_DECLARED_CONSTEXPR_P (decl)
12885 && !ctor && !move_fn_p (decl))
12886 TYPE_HAS_CONSTEXPR_CTOR (class_type) = 1;
12888 else if (DECL_NAME (decl) == assign_op_identifier)
12890 /* [class.copy]
12892 A non-template assignment operator for class X is a copy
12893 assignment operator if its parameter is of type X, X&, const
12894 X&, volatile X& or const volatile X&. */
12896 int assop = copy_fn_p (decl);
12898 if (assop)
12900 TYPE_HAS_COPY_ASSIGN (class_type) = 1;
12901 if (user_provided_p (decl))
12902 TYPE_HAS_COMPLEX_COPY_ASSIGN (class_type) = 1;
12903 if (assop != 1)
12904 TYPE_HAS_CONST_COPY_ASSIGN (class_type) = 1;
12906 else if (move_fn_p (decl) && user_provided_p (decl))
12907 TYPE_HAS_COMPLEX_MOVE_ASSIGN (class_type) = 1;
12909 else if (IDENTIFIER_CONV_OP_P (DECL_NAME (decl)))
12910 TYPE_HAS_CONVERSION (class_type) = true;
12912 /* Destructors are handled in check_methods. */
12915 /* Check a constructor DECL has the correct form. Complains
12916 if the class has a constructor of the form X(X). */
12918 bool
12919 grok_ctor_properties (const_tree ctype, const_tree decl)
12921 int ctor_parm = copy_fn_p (decl);
12923 if (ctor_parm < 0)
12925 /* [class.copy]
12927 A declaration of a constructor for a class X is ill-formed if
12928 its first parameter is of type (optionally cv-qualified) X
12929 and either there are no other parameters or else all other
12930 parameters have default arguments.
12932 We *don't* complain about member template instantiations that
12933 have this form, though; they can occur as we try to decide
12934 what constructor to use during overload resolution. Since
12935 overload resolution will never prefer such a constructor to
12936 the non-template copy constructor (which is either explicitly
12937 or implicitly defined), there's no need to worry about their
12938 existence. Theoretically, they should never even be
12939 instantiated, but that's hard to forestall. */
12940 error ("invalid constructor; you probably meant %<%T (const %T&)%>",
12941 ctype, ctype);
12942 return false;
12945 return true;
12948 /* DECL is a declaration for an overloaded or conversion operator. If
12949 COMPLAIN is true, errors are issued for invalid declarations. */
12951 bool
12952 grok_op_properties (tree decl, bool complain)
12954 tree argtypes = TYPE_ARG_TYPES (TREE_TYPE (decl));
12955 bool methodp = TREE_CODE (TREE_TYPE (decl)) == METHOD_TYPE;
12956 tree name = DECL_NAME (decl);
12958 tree class_type = DECL_CONTEXT (decl);
12959 if (class_type && !CLASS_TYPE_P (class_type))
12960 class_type = NULL_TREE;
12962 tree_code operator_code;
12963 unsigned op_flags;
12964 if (IDENTIFIER_CONV_OP_P (name))
12966 /* Conversion operators are TYPE_EXPR for the purposes of this
12967 function. */
12968 operator_code = TYPE_EXPR;
12969 op_flags = OVL_OP_FLAG_UNARY;
12971 else
12973 const ovl_op_info_t *ovl_op = IDENTIFIER_OVL_OP_INFO (name);
12975 operator_code = ovl_op->tree_code;
12976 op_flags = ovl_op->flags;
12977 gcc_checking_assert (operator_code != ERROR_MARK);
12978 DECL_OVERLOADED_OPERATOR_CODE_RAW (decl) = ovl_op->ovl_op_code;
12981 if (op_flags & OVL_OP_FLAG_ALLOC)
12983 /* operator new and operator delete are quite special. */
12984 if (class_type)
12985 switch (op_flags)
12987 case OVL_OP_FLAG_ALLOC:
12988 TYPE_HAS_NEW_OPERATOR (class_type) = 1;
12989 break;
12991 case OVL_OP_FLAG_ALLOC | OVL_OP_FLAG_DELETE:
12992 TYPE_GETS_DELETE (class_type) |= 1;
12993 break;
12995 case OVL_OP_FLAG_ALLOC | OVL_OP_FLAG_VEC:
12996 TYPE_HAS_ARRAY_NEW_OPERATOR (class_type) = 1;
12997 break;
12999 case OVL_OP_FLAG_ALLOC | OVL_OP_FLAG_DELETE | OVL_OP_FLAG_VEC:
13000 TYPE_GETS_DELETE (class_type) |= 2;
13001 break;
13003 default:
13004 gcc_unreachable ();
13007 /* [basic.std.dynamic.allocation]/1:
13009 A program is ill-formed if an allocation function is declared
13010 in a namespace scope other than global scope or declared
13011 static in global scope.
13013 The same also holds true for deallocation functions. */
13014 if (DECL_NAMESPACE_SCOPE_P (decl))
13016 if (CP_DECL_CONTEXT (decl) != global_namespace)
13018 error ("%qD may not be declared within a namespace", decl);
13019 return false;
13022 if (!TREE_PUBLIC (decl))
13024 error ("%qD may not be declared as static", decl);
13025 return false;
13029 if (op_flags & OVL_OP_FLAG_DELETE)
13030 TREE_TYPE (decl) = coerce_delete_type (TREE_TYPE (decl));
13031 else
13033 DECL_IS_OPERATOR_NEW (decl) = 1;
13034 TREE_TYPE (decl) = coerce_new_type (TREE_TYPE (decl));
13037 return true;
13040 /* An operator function must either be a non-static member function
13041 or have at least one parameter of a class, a reference to a class,
13042 an enumeration, or a reference to an enumeration. 13.4.0.6 */
13043 if (! methodp || DECL_STATIC_FUNCTION_P (decl))
13045 if (operator_code == TYPE_EXPR
13046 || operator_code == CALL_EXPR
13047 || operator_code == COMPONENT_REF
13048 || operator_code == ARRAY_REF
13049 || operator_code == NOP_EXPR)
13051 error ("%qD must be a nonstatic member function", decl);
13052 return false;
13055 if (DECL_STATIC_FUNCTION_P (decl))
13057 error ("%qD must be either a non-static member "
13058 "function or a non-member function", decl);
13059 return false;
13062 for (tree arg = argtypes; ; arg = TREE_CHAIN (arg))
13064 if (!arg || arg == void_list_node)
13066 if (complain)
13067 error ("%qD must have an argument of class or "
13068 "enumerated type", decl);
13069 return false;
13072 tree type = non_reference (TREE_VALUE (arg));
13073 if (type == error_mark_node)
13074 return false;
13076 /* MAYBE_CLASS_TYPE_P, rather than CLASS_TYPE_P, is used
13077 because these checks are performed even on template
13078 functions. */
13079 if (MAYBE_CLASS_TYPE_P (type)
13080 || TREE_CODE (type) == ENUMERAL_TYPE)
13081 break;
13085 if (operator_code == CALL_EXPR)
13086 /* There are no further restrictions on the arguments to an overloaded
13087 "operator ()". */
13088 return true;
13090 if (operator_code == COND_EXPR)
13092 /* 13.4.0.3 */
13093 error ("ISO C++ prohibits overloading operator ?:");
13094 return false;
13097 /* Count the number of arguments and check for ellipsis. */
13098 int arity = 0;
13099 for (tree arg = argtypes; arg != void_list_node; arg = TREE_CHAIN (arg))
13101 if (!arg)
13103 /* Variadic. */
13104 error ("%qD must not have variable number of arguments", decl);
13105 return false;
13107 ++arity;
13110 /* Verify correct number of arguments. */
13111 switch (op_flags)
13113 case OVL_OP_FLAG_AMBIARY:
13114 if (arity == 1)
13116 /* We have a unary instance of an ambi-ary op. Remap to the
13117 unary one. */
13118 unsigned alt = ovl_op_alternate[ovl_op_mapping [operator_code]];
13119 const ovl_op_info_t *ovl_op = &ovl_op_info[false][alt];
13120 gcc_checking_assert (ovl_op->flags == OVL_OP_FLAG_UNARY);
13121 operator_code = ovl_op->tree_code;
13122 DECL_OVERLOADED_OPERATOR_CODE_RAW (decl) = ovl_op->ovl_op_code;
13124 else if (arity != 2)
13126 /* This was an ambiguous operator but is invalid. */
13127 error (methodp
13128 ? G_("%qD must have either zero or one argument")
13129 : G_("%qD must have either one or two arguments"), decl);
13130 return false;
13132 else if ((operator_code == POSTINCREMENT_EXPR
13133 || operator_code == POSTDECREMENT_EXPR)
13134 && ! processing_template_decl
13135 /* x++ and x--'s second argument must be an int. */
13136 && ! same_type_p (TREE_VALUE (TREE_CHAIN (argtypes)),
13137 integer_type_node))
13139 error (methodp
13140 ? G_("postfix %qD must have %<int%> as its argument")
13141 : G_("postfix %qD must have %<int%> as its second argument"),
13142 decl);
13143 return false;
13145 break;
13147 case OVL_OP_FLAG_UNARY:
13148 if (arity != 1)
13150 error (methodp
13151 ? G_("%qD must have no arguments")
13152 : G_("%qD must have exactly one argument"), decl);
13153 return false;
13155 break;
13157 case OVL_OP_FLAG_BINARY:
13158 if (arity != 2)
13160 error (methodp
13161 ? G_("%qD must have exactly one argument")
13162 : G_("%qD must have exactly two arguments"), decl);
13163 return false;
13165 break;
13167 default:
13168 gcc_unreachable ();
13171 /* There can be no default arguments. */
13172 for (tree arg = argtypes; arg != void_list_node; arg = TREE_CHAIN (arg))
13173 if (TREE_PURPOSE (arg))
13175 TREE_PURPOSE (arg) = NULL_TREE;
13176 if (operator_code == POSTINCREMENT_EXPR
13177 || operator_code == POSTDECREMENT_EXPR)
13178 pedwarn (input_location, OPT_Wpedantic,
13179 "%qD cannot have default arguments", decl);
13180 else
13182 error ("%qD cannot have default arguments", decl);
13183 return false;
13187 /* At this point the declaration is well-formed. It may not be
13188 sensible though. */
13190 /* Check member function warnings only on the in-class declaration.
13191 There's no point warning on an out-of-class definition. */
13192 if (class_type && class_type != current_class_type)
13193 return true;
13195 /* Warn about conversion operators that will never be used. */
13196 if (IDENTIFIER_CONV_OP_P (name)
13197 && ! DECL_TEMPLATE_INFO (decl)
13198 && warn_conversion)
13200 tree t = TREE_TYPE (name);
13201 int ref = (TREE_CODE (t) == REFERENCE_TYPE);
13203 if (ref)
13204 t = TYPE_MAIN_VARIANT (TREE_TYPE (t));
13206 if (VOID_TYPE_P (t))
13207 warning (OPT_Wconversion,
13209 ? G_("conversion to a reference to void "
13210 "will never use a type conversion operator")
13211 : G_("conversion to void "
13212 "will never use a type conversion operator"));
13213 else if (class_type)
13215 if (t == class_type)
13216 warning (OPT_Wconversion,
13218 ? G_("conversion to a reference to the same type "
13219 "will never use a type conversion operator")
13220 : G_("conversion to the same type "
13221 "will never use a type conversion operator"));
13222 /* Don't force t to be complete here. */
13223 else if (MAYBE_CLASS_TYPE_P (t)
13224 && COMPLETE_TYPE_P (t)
13225 && DERIVED_FROM_P (t, class_type))
13226 warning (OPT_Wconversion,
13228 ? G_("conversion to a reference to a base class "
13229 "will never use a type conversion operator")
13230 : G_("conversion to a base class "
13231 "will never use a type conversion operator"));
13235 if (!warn_ecpp)
13236 return true;
13238 /* Effective C++ rules below. */
13240 /* More Effective C++ rule 7. */
13241 if (operator_code == TRUTH_ANDIF_EXPR
13242 || operator_code == TRUTH_ORIF_EXPR
13243 || operator_code == COMPOUND_EXPR)
13244 warning (OPT_Weffc__,
13245 "user-defined %qD always evaluates both arguments", decl);
13247 /* More Effective C++ rule 6. */
13248 if (operator_code == POSTINCREMENT_EXPR
13249 || operator_code == POSTDECREMENT_EXPR
13250 || operator_code == PREINCREMENT_EXPR
13251 || operator_code == PREDECREMENT_EXPR)
13253 tree arg = TREE_VALUE (argtypes);
13254 tree ret = TREE_TYPE (TREE_TYPE (decl));
13255 if (methodp || TREE_CODE (arg) == REFERENCE_TYPE)
13256 arg = TREE_TYPE (arg);
13257 arg = TYPE_MAIN_VARIANT (arg);
13259 if (operator_code == PREINCREMENT_EXPR
13260 || operator_code == PREDECREMENT_EXPR)
13262 if (TREE_CODE (ret) != REFERENCE_TYPE
13263 || !same_type_p (TYPE_MAIN_VARIANT (TREE_TYPE (ret)), arg))
13264 warning (OPT_Weffc__, "prefix %qD should return %qT", decl,
13265 build_reference_type (arg));
13267 else
13269 if (!same_type_p (TYPE_MAIN_VARIANT (ret), arg))
13270 warning (OPT_Weffc__, "postfix %qD should return %qT", decl, arg);
13274 /* Effective C++ rule 23. */
13275 if (!DECL_ASSIGNMENT_OPERATOR_P (decl)
13276 && (operator_code == PLUS_EXPR
13277 || operator_code == MINUS_EXPR
13278 || operator_code == TRUNC_DIV_EXPR
13279 || operator_code == MULT_EXPR
13280 || operator_code == TRUNC_MOD_EXPR)
13281 && TREE_CODE (TREE_TYPE (TREE_TYPE (decl))) == REFERENCE_TYPE)
13282 warning (OPT_Weffc__, "%qD should return by value", decl);
13284 return true;
13287 /* Return a string giving the keyword associate with CODE. */
13289 static const char *
13290 tag_name (enum tag_types code)
13292 switch (code)
13294 case record_type:
13295 return "struct";
13296 case class_type:
13297 return "class";
13298 case union_type:
13299 return "union";
13300 case enum_type:
13301 return "enum";
13302 case typename_type:
13303 return "typename";
13304 default:
13305 gcc_unreachable ();
13309 /* Name lookup in an elaborated-type-specifier (after the keyword
13310 indicated by TAG_CODE) has found the TYPE_DECL DECL. If the
13311 elaborated-type-specifier is invalid, issue a diagnostic and return
13312 error_mark_node; otherwise, return the *_TYPE to which it referred.
13313 If ALLOW_TEMPLATE_P is true, TYPE may be a class template. */
13315 tree
13316 check_elaborated_type_specifier (enum tag_types tag_code,
13317 tree decl,
13318 bool allow_template_p)
13320 tree type;
13322 /* In the case of:
13324 struct S { struct S *p; };
13326 name lookup will find the TYPE_DECL for the implicit "S::S"
13327 typedef. Adjust for that here. */
13328 if (DECL_SELF_REFERENCE_P (decl))
13329 decl = TYPE_NAME (TREE_TYPE (decl));
13331 type = TREE_TYPE (decl);
13333 /* Check TEMPLATE_TYPE_PARM first because DECL_IMPLICIT_TYPEDEF_P
13334 is false for this case as well. */
13335 if (TREE_CODE (type) == TEMPLATE_TYPE_PARM)
13337 error ("using template type parameter %qT after %qs",
13338 type, tag_name (tag_code));
13339 return error_mark_node;
13341 /* Accept template template parameters. */
13342 else if (allow_template_p
13343 && (TREE_CODE (type) == BOUND_TEMPLATE_TEMPLATE_PARM
13344 || TREE_CODE (type) == TEMPLATE_TEMPLATE_PARM))
13346 /* [dcl.type.elab]
13348 If the identifier resolves to a typedef-name or the
13349 simple-template-id resolves to an alias template
13350 specialization, the elaborated-type-specifier is ill-formed.
13352 In other words, the only legitimate declaration to use in the
13353 elaborated type specifier is the implicit typedef created when
13354 the type is declared. */
13355 else if (!DECL_IMPLICIT_TYPEDEF_P (decl)
13356 && !DECL_SELF_REFERENCE_P (decl)
13357 && tag_code != typename_type)
13359 if (alias_template_specialization_p (type))
13360 error ("using alias template specialization %qT after %qs",
13361 type, tag_name (tag_code));
13362 else
13363 error ("using typedef-name %qD after %qs", decl, tag_name (tag_code));
13364 inform (DECL_SOURCE_LOCATION (decl),
13365 "%qD has a previous declaration here", decl);
13366 return error_mark_node;
13368 else if (TREE_CODE (type) != RECORD_TYPE
13369 && TREE_CODE (type) != UNION_TYPE
13370 && tag_code != enum_type
13371 && tag_code != typename_type)
13373 error ("%qT referred to as %qs", type, tag_name (tag_code));
13374 inform (location_of (type), "%qT has a previous declaration here", type);
13375 return error_mark_node;
13377 else if (TREE_CODE (type) != ENUMERAL_TYPE
13378 && tag_code == enum_type)
13380 error ("%qT referred to as enum", type);
13381 inform (location_of (type), "%qT has a previous declaration here", type);
13382 return error_mark_node;
13384 else if (!allow_template_p
13385 && TREE_CODE (type) == RECORD_TYPE
13386 && CLASSTYPE_IS_TEMPLATE (type))
13388 /* If a class template appears as elaborated type specifier
13389 without a template header such as:
13391 template <class T> class C {};
13392 void f(class C); // No template header here
13394 then the required template argument is missing. */
13395 error ("template argument required for %<%s %T%>",
13396 tag_name (tag_code),
13397 DECL_NAME (CLASSTYPE_TI_TEMPLATE (type)));
13398 return error_mark_node;
13401 return type;
13404 /* Lookup NAME in elaborate type specifier in scope according to
13405 SCOPE and issue diagnostics if necessary.
13406 Return *_TYPE node upon success, NULL_TREE when the NAME is not
13407 found, and ERROR_MARK_NODE for type error. */
13409 static tree
13410 lookup_and_check_tag (enum tag_types tag_code, tree name,
13411 tag_scope scope, bool template_header_p)
13413 tree t;
13414 tree decl;
13415 if (scope == ts_global)
13417 /* First try ordinary name lookup, ignoring hidden class name
13418 injected via friend declaration. */
13419 decl = lookup_name_prefer_type (name, 2);
13420 decl = strip_using_decl (decl);
13421 /* If that fails, the name will be placed in the smallest
13422 non-class, non-function-prototype scope according to 3.3.1/5.
13423 We may already have a hidden name declared as friend in this
13424 scope. So lookup again but not ignoring hidden names.
13425 If we find one, that name will be made visible rather than
13426 creating a new tag. */
13427 if (!decl)
13428 decl = lookup_type_scope (name, ts_within_enclosing_non_class);
13430 else
13431 decl = lookup_type_scope (name, scope);
13433 if (decl
13434 && (DECL_CLASS_TEMPLATE_P (decl)
13435 /* If scope is ts_current we're defining a class, so ignore a
13436 template template parameter. */
13437 || (scope != ts_current
13438 && DECL_TEMPLATE_TEMPLATE_PARM_P (decl))))
13439 decl = DECL_TEMPLATE_RESULT (decl);
13441 if (decl && TREE_CODE (decl) == TYPE_DECL)
13443 /* Look for invalid nested type:
13444 class C {
13445 class C {};
13446 }; */
13447 if (scope == ts_current && DECL_SELF_REFERENCE_P (decl))
13449 error ("%qD has the same name as the class in which it is "
13450 "declared",
13451 decl);
13452 return error_mark_node;
13455 /* Two cases we need to consider when deciding if a class
13456 template is allowed as an elaborated type specifier:
13457 1. It is a self reference to its own class.
13458 2. It comes with a template header.
13460 For example:
13462 template <class T> class C {
13463 class C *c1; // DECL_SELF_REFERENCE_P is true
13464 class D;
13466 template <class U> class C; // template_header_p is true
13467 template <class T> class C<T>::D {
13468 class C *c2; // DECL_SELF_REFERENCE_P is true
13469 }; */
13471 t = check_elaborated_type_specifier (tag_code,
13472 decl,
13473 template_header_p
13474 | DECL_SELF_REFERENCE_P (decl));
13475 if (template_header_p && t && CLASS_TYPE_P (t)
13476 && (!CLASSTYPE_TEMPLATE_INFO (t)
13477 || (!PRIMARY_TEMPLATE_P (CLASSTYPE_TI_TEMPLATE (t)))))
13479 error ("%qT is not a template", t);
13480 inform (location_of (t), "previous declaration here");
13481 if (TYPE_CLASS_SCOPE_P (t)
13482 && CLASSTYPE_TEMPLATE_INFO (TYPE_CONTEXT (t)))
13483 inform (input_location,
13484 "perhaps you want to explicitly add %<%T::%>",
13485 TYPE_CONTEXT (t));
13486 t = error_mark_node;
13489 return t;
13491 else if (decl && TREE_CODE (decl) == TREE_LIST)
13493 error ("reference to %qD is ambiguous", name);
13494 print_candidates (decl);
13495 return error_mark_node;
13497 else
13498 return NULL_TREE;
13501 /* Get the struct, enum or union (TAG_CODE says which) with tag NAME.
13502 Define the tag as a forward-reference if it is not defined.
13504 If a declaration is given, process it here, and report an error if
13505 multiple declarations are not identical.
13507 SCOPE is TS_CURRENT when this is also a definition. Only look in
13508 the current frame for the name (since C++ allows new names in any
13509 scope.) It is TS_WITHIN_ENCLOSING_NON_CLASS if this is a friend
13510 declaration. Only look beginning from the current scope outward up
13511 till the nearest non-class scope. Otherwise it is TS_GLOBAL.
13513 TEMPLATE_HEADER_P is true when this declaration is preceded by
13514 a set of template parameters. */
13516 static tree
13517 xref_tag_1 (enum tag_types tag_code, tree name,
13518 tag_scope scope, bool template_header_p)
13520 enum tree_code code;
13521 tree context = NULL_TREE;
13523 gcc_assert (identifier_p (name));
13525 switch (tag_code)
13527 case record_type:
13528 case class_type:
13529 code = RECORD_TYPE;
13530 break;
13531 case union_type:
13532 code = UNION_TYPE;
13533 break;
13534 case enum_type:
13535 code = ENUMERAL_TYPE;
13536 break;
13537 default:
13538 gcc_unreachable ();
13541 /* In case of anonymous name, xref_tag is only called to
13542 make type node and push name. Name lookup is not required. */
13543 tree t = NULL_TREE;
13544 if (scope != ts_lambda && !anon_aggrname_p (name))
13545 t = lookup_and_check_tag (tag_code, name, scope, template_header_p);
13547 if (t == error_mark_node)
13548 return error_mark_node;
13550 if (scope != ts_current && t && current_class_type
13551 && template_class_depth (current_class_type)
13552 && template_header_p)
13554 if (TREE_CODE (t) == TEMPLATE_TEMPLATE_PARM)
13555 return t;
13557 /* Since SCOPE is not TS_CURRENT, we are not looking at a
13558 definition of this tag. Since, in addition, we are currently
13559 processing a (member) template declaration of a template
13560 class, we must be very careful; consider:
13562 template <class X>
13563 struct S1
13565 template <class U>
13566 struct S2
13567 { template <class V>
13568 friend struct S1; };
13570 Here, the S2::S1 declaration should not be confused with the
13571 outer declaration. In particular, the inner version should
13572 have a template parameter of level 2, not level 1. This
13573 would be particularly important if the member declaration
13574 were instead:
13576 template <class V = U> friend struct S1;
13578 say, when we should tsubst into `U' when instantiating
13579 S2. On the other hand, when presented with:
13581 template <class T>
13582 struct S1 {
13583 template <class U>
13584 struct S2 {};
13585 template <class U>
13586 friend struct S2;
13589 we must find the inner binding eventually. We
13590 accomplish this by making sure that the new type we
13591 create to represent this declaration has the right
13592 TYPE_CONTEXT. */
13593 context = TYPE_CONTEXT (t);
13594 t = NULL_TREE;
13597 if (! t)
13599 /* If no such tag is yet defined, create a forward-reference node
13600 and record it as the "definition".
13601 When a real declaration of this type is found,
13602 the forward-reference will be altered into a real type. */
13603 if (code == ENUMERAL_TYPE)
13605 error ("use of enum %q#D without previous declaration", name);
13606 return error_mark_node;
13608 else
13610 t = make_class_type (code);
13611 TYPE_CONTEXT (t) = context;
13612 if (scope == ts_lambda)
13614 /* Mark it as a lambda type. */
13615 CLASSTYPE_LAMBDA_EXPR (t) = error_mark_node;
13616 /* And push it into current scope. */
13617 scope = ts_current;
13619 t = pushtag (name, t, scope);
13622 else
13624 if (template_header_p && MAYBE_CLASS_TYPE_P (t))
13626 /* Check that we aren't trying to overload a class with different
13627 constraints. */
13628 tree constr = NULL_TREE;
13629 if (current_template_parms)
13631 tree reqs = TEMPLATE_PARMS_CONSTRAINTS (current_template_parms);
13632 constr = build_constraints (reqs, NULL_TREE);
13634 if (!redeclare_class_template (t, current_template_parms, constr))
13635 return error_mark_node;
13637 else if (!processing_template_decl
13638 && CLASS_TYPE_P (t)
13639 && CLASSTYPE_IS_TEMPLATE (t))
13641 error ("redeclaration of %qT as a non-template", t);
13642 inform (location_of (t), "previous declaration %qD", t);
13643 return error_mark_node;
13646 /* Make injected friend class visible. */
13647 if (scope != ts_within_enclosing_non_class && TYPE_HIDDEN_P (t))
13649 tree decl = TYPE_NAME (t);
13651 DECL_ANTICIPATED (decl) = false;
13652 DECL_FRIEND_P (decl) = false;
13654 if (TYPE_TEMPLATE_INFO (t))
13656 tree tmpl = TYPE_TI_TEMPLATE (t);
13657 DECL_ANTICIPATED (tmpl) = false;
13658 DECL_FRIEND_P (tmpl) = false;
13663 return t;
13666 /* Wrapper for xref_tag_1. */
13668 tree
13669 xref_tag (enum tag_types tag_code, tree name,
13670 tag_scope scope, bool template_header_p)
13672 tree ret;
13673 bool subtime;
13674 subtime = timevar_cond_start (TV_NAME_LOOKUP);
13675 ret = xref_tag_1 (tag_code, name, scope, template_header_p);
13676 timevar_cond_stop (TV_NAME_LOOKUP, subtime);
13677 return ret;
13681 tree
13682 xref_tag_from_type (tree old, tree id, tag_scope scope)
13684 enum tag_types tag_kind;
13686 if (TREE_CODE (old) == RECORD_TYPE)
13687 tag_kind = (CLASSTYPE_DECLARED_CLASS (old) ? class_type : record_type);
13688 else
13689 tag_kind = union_type;
13691 if (id == NULL_TREE)
13692 id = TYPE_IDENTIFIER (old);
13694 return xref_tag (tag_kind, id, scope, false);
13697 /* Create the binfo hierarchy for REF with (possibly NULL) base list
13698 BASE_LIST. For each element on BASE_LIST the TREE_PURPOSE is an
13699 access_* node, and the TREE_VALUE is the type of the base-class.
13700 Non-NULL TREE_TYPE indicates virtual inheritance. */
13702 void
13703 xref_basetypes (tree ref, tree base_list)
13705 tree *basep;
13706 tree binfo, base_binfo;
13707 unsigned max_vbases = 0; /* Maximum direct & indirect virtual bases. */
13708 unsigned max_bases = 0; /* Maximum direct bases. */
13709 unsigned max_dvbases = 0; /* Maximum direct virtual bases. */
13710 int i;
13711 tree default_access;
13712 tree igo_prev; /* Track Inheritance Graph Order. */
13714 if (ref == error_mark_node)
13715 return;
13717 /* The base of a derived class is private by default, all others are
13718 public. */
13719 default_access = (TREE_CODE (ref) == RECORD_TYPE
13720 && CLASSTYPE_DECLARED_CLASS (ref)
13721 ? access_private_node : access_public_node);
13723 /* First, make sure that any templates in base-classes are
13724 instantiated. This ensures that if we call ourselves recursively
13725 we do not get confused about which classes are marked and which
13726 are not. */
13727 basep = &base_list;
13728 while (*basep)
13730 tree basetype = TREE_VALUE (*basep);
13732 /* The dependent_type_p call below should really be dependent_scope_p
13733 so that we give a hard error about using an incomplete type as a
13734 base, but we allow it with a pedwarn for backward
13735 compatibility. */
13736 if (processing_template_decl
13737 && CLASS_TYPE_P (basetype) && TYPE_BEING_DEFINED (basetype))
13738 cxx_incomplete_type_diagnostic (NULL_TREE, basetype, DK_PEDWARN);
13739 if (!dependent_type_p (basetype)
13740 && !complete_type_or_else (basetype, NULL))
13741 /* An incomplete type. Remove it from the list. */
13742 *basep = TREE_CHAIN (*basep);
13743 else
13745 max_bases++;
13746 if (TREE_TYPE (*basep))
13747 max_dvbases++;
13748 if (CLASS_TYPE_P (basetype))
13749 max_vbases += vec_safe_length (CLASSTYPE_VBASECLASSES (basetype));
13750 basep = &TREE_CHAIN (*basep);
13753 max_vbases += max_dvbases;
13755 TYPE_MARKED_P (ref) = 1;
13757 /* The binfo slot should be empty, unless this is an (ill-formed)
13758 redefinition. */
13759 gcc_assert (!TYPE_BINFO (ref) || TYPE_SIZE (ref));
13761 gcc_assert (TYPE_MAIN_VARIANT (ref) == ref);
13763 binfo = make_tree_binfo (max_bases);
13765 TYPE_BINFO (ref) = binfo;
13766 BINFO_OFFSET (binfo) = size_zero_node;
13767 BINFO_TYPE (binfo) = ref;
13769 /* Apply base-class info set up to the variants of this type. */
13770 fixup_type_variants (ref);
13772 if (max_bases)
13774 vec_alloc (BINFO_BASE_ACCESSES (binfo), max_bases);
13775 /* A C++98 POD cannot have base classes. */
13776 CLASSTYPE_NON_LAYOUT_POD_P (ref) = true;
13778 if (TREE_CODE (ref) == UNION_TYPE)
13779 error ("derived union %qT invalid", ref);
13782 if (max_bases > 1)
13783 warning (OPT_Wmultiple_inheritance,
13784 "%qT defined with multiple direct bases", ref);
13786 if (max_vbases)
13788 /* An aggregate can't have virtual base classes. */
13789 CLASSTYPE_NON_AGGREGATE (ref) = true;
13791 vec_alloc (CLASSTYPE_VBASECLASSES (ref), max_vbases);
13793 if (max_dvbases)
13794 warning (OPT_Wvirtual_inheritance,
13795 "%qT defined with direct virtual base", ref);
13798 for (igo_prev = binfo; base_list; base_list = TREE_CHAIN (base_list))
13800 tree access = TREE_PURPOSE (base_list);
13801 int via_virtual = TREE_TYPE (base_list) != NULL_TREE;
13802 tree basetype = TREE_VALUE (base_list);
13804 if (access == access_default_node)
13805 access = default_access;
13807 /* Before C++17, an aggregate cannot have base classes. In C++17, an
13808 aggregate can't have virtual, private, or protected base classes. */
13809 if (cxx_dialect < cxx17
13810 || access != access_public_node
13811 || via_virtual)
13812 CLASSTYPE_NON_AGGREGATE (ref) = true;
13814 if (PACK_EXPANSION_P (basetype))
13815 basetype = PACK_EXPANSION_PATTERN (basetype);
13816 if (TREE_CODE (basetype) == TYPE_DECL)
13817 basetype = TREE_TYPE (basetype);
13818 if (!MAYBE_CLASS_TYPE_P (basetype) || TREE_CODE (basetype) == UNION_TYPE)
13820 error ("base type %qT fails to be a struct or class type",
13821 basetype);
13822 goto dropped_base;
13825 base_binfo = NULL_TREE;
13826 if (CLASS_TYPE_P (basetype) && !dependent_scope_p (basetype))
13828 base_binfo = TYPE_BINFO (basetype);
13829 /* The original basetype could have been a typedef'd type. */
13830 basetype = BINFO_TYPE (base_binfo);
13832 /* Inherit flags from the base. */
13833 TYPE_HAS_NEW_OPERATOR (ref)
13834 |= TYPE_HAS_NEW_OPERATOR (basetype);
13835 TYPE_HAS_ARRAY_NEW_OPERATOR (ref)
13836 |= TYPE_HAS_ARRAY_NEW_OPERATOR (basetype);
13837 TYPE_GETS_DELETE (ref) |= TYPE_GETS_DELETE (basetype);
13838 TYPE_HAS_CONVERSION (ref) |= TYPE_HAS_CONVERSION (basetype);
13839 CLASSTYPE_DIAMOND_SHAPED_P (ref)
13840 |= CLASSTYPE_DIAMOND_SHAPED_P (basetype);
13841 CLASSTYPE_REPEATED_BASE_P (ref)
13842 |= CLASSTYPE_REPEATED_BASE_P (basetype);
13845 /* We must do this test after we've seen through a typedef
13846 type. */
13847 if (TYPE_MARKED_P (basetype))
13849 if (basetype == ref)
13850 error ("recursive type %qT undefined", basetype);
13851 else
13852 error ("duplicate base type %qT invalid", basetype);
13853 goto dropped_base;
13856 if (PACK_EXPANSION_P (TREE_VALUE (base_list)))
13857 /* Regenerate the pack expansion for the bases. */
13858 basetype = make_pack_expansion (basetype);
13860 TYPE_MARKED_P (basetype) = 1;
13862 base_binfo = copy_binfo (base_binfo, basetype, ref,
13863 &igo_prev, via_virtual);
13864 if (!BINFO_INHERITANCE_CHAIN (base_binfo))
13865 BINFO_INHERITANCE_CHAIN (base_binfo) = binfo;
13867 BINFO_BASE_APPEND (binfo, base_binfo);
13868 BINFO_BASE_ACCESS_APPEND (binfo, access);
13869 continue;
13871 dropped_base:
13872 /* Update max_vbases to reflect the reality that we are dropping
13873 this base: if it reaches zero we want to undo the vec_alloc
13874 above to avoid inconsistencies during error-recovery: eg, in
13875 build_special_member_call, CLASSTYPE_VBASECLASSES non null
13876 and vtt null (c++/27952). */
13877 if (via_virtual)
13878 max_vbases--;
13879 if (CLASS_TYPE_P (basetype))
13880 max_vbases
13881 -= vec_safe_length (CLASSTYPE_VBASECLASSES (basetype));
13884 if (CLASSTYPE_VBASECLASSES (ref)
13885 && max_vbases == 0)
13886 vec_free (CLASSTYPE_VBASECLASSES (ref));
13888 if (vec_safe_length (CLASSTYPE_VBASECLASSES (ref)) < max_vbases)
13889 /* If we didn't get max_vbases vbases, we must have shared at
13890 least one of them, and are therefore diamond shaped. */
13891 CLASSTYPE_DIAMOND_SHAPED_P (ref) = 1;
13893 /* Unmark all the types. */
13894 for (i = 0; BINFO_BASE_ITERATE (binfo, i, base_binfo); i++)
13895 TYPE_MARKED_P (BINFO_TYPE (base_binfo)) = 0;
13896 TYPE_MARKED_P (ref) = 0;
13898 /* Now see if we have a repeated base type. */
13899 if (!CLASSTYPE_REPEATED_BASE_P (ref))
13901 for (base_binfo = binfo; base_binfo;
13902 base_binfo = TREE_CHAIN (base_binfo))
13904 if (TYPE_MARKED_P (BINFO_TYPE (base_binfo)))
13906 CLASSTYPE_REPEATED_BASE_P (ref) = 1;
13907 break;
13909 TYPE_MARKED_P (BINFO_TYPE (base_binfo)) = 1;
13911 for (base_binfo = binfo; base_binfo;
13912 base_binfo = TREE_CHAIN (base_binfo))
13913 if (TYPE_MARKED_P (BINFO_TYPE (base_binfo)))
13914 TYPE_MARKED_P (BINFO_TYPE (base_binfo)) = 0;
13915 else
13916 break;
13921 /* Copies the enum-related properties from type SRC to type DST.
13922 Used with the underlying type of an enum and the enum itself. */
13923 static void
13924 copy_type_enum (tree dst, tree src)
13926 tree t;
13927 for (t = dst; t; t = TYPE_NEXT_VARIANT (t))
13929 TYPE_MIN_VALUE (t) = TYPE_MIN_VALUE (src);
13930 TYPE_MAX_VALUE (t) = TYPE_MAX_VALUE (src);
13931 TYPE_SIZE (t) = TYPE_SIZE (src);
13932 TYPE_SIZE_UNIT (t) = TYPE_SIZE_UNIT (src);
13933 SET_TYPE_MODE (dst, TYPE_MODE (src));
13934 TYPE_PRECISION (t) = TYPE_PRECISION (src);
13935 unsigned valign = TYPE_ALIGN (src);
13936 if (TYPE_USER_ALIGN (t))
13937 valign = MAX (valign, TYPE_ALIGN (t));
13938 else
13939 TYPE_USER_ALIGN (t) = TYPE_USER_ALIGN (src);
13940 SET_TYPE_ALIGN (t, valign);
13941 TYPE_UNSIGNED (t) = TYPE_UNSIGNED (src);
13945 /* Begin compiling the definition of an enumeration type.
13946 NAME is its name,
13948 if ENUMTYPE is not NULL_TREE then the type has alredy been found.
13950 UNDERLYING_TYPE is the type that will be used as the storage for
13951 the enumeration type. This should be NULL_TREE if no storage type
13952 was specified.
13954 ATTRIBUTES are any attributes specified after the enum-key.
13956 SCOPED_ENUM_P is true if this is a scoped enumeration type.
13958 if IS_NEW is not NULL, gets TRUE iff a new type is created.
13960 Returns the type object, as yet incomplete.
13961 Also records info about it so that build_enumerator
13962 may be used to declare the individual values as they are read. */
13964 tree
13965 start_enum (tree name, tree enumtype, tree underlying_type,
13966 tree attributes, bool scoped_enum_p, bool *is_new)
13968 tree prevtype = NULL_TREE;
13969 gcc_assert (identifier_p (name));
13971 if (is_new)
13972 *is_new = false;
13973 /* [C++0x dcl.enum]p5:
13975 If not explicitly specified, the underlying type of a scoped
13976 enumeration type is int. */
13977 if (!underlying_type && scoped_enum_p)
13978 underlying_type = integer_type_node;
13980 if (underlying_type)
13981 underlying_type = cv_unqualified (underlying_type);
13983 /* If this is the real definition for a previous forward reference,
13984 fill in the contents in the same object that used to be the
13985 forward reference. */
13986 if (!enumtype)
13987 enumtype = lookup_and_check_tag (enum_type, name,
13988 /*tag_scope=*/ts_current,
13989 /*template_header_p=*/false);
13991 /* In case of a template_decl, the only check that should be deferred
13992 to instantiation time is the comparison of underlying types. */
13993 if (enumtype && TREE_CODE (enumtype) == ENUMERAL_TYPE)
13995 if (scoped_enum_p != SCOPED_ENUM_P (enumtype))
13997 error_at (input_location, "scoped/unscoped mismatch "
13998 "in enum %q#T", enumtype);
13999 inform (DECL_SOURCE_LOCATION (TYPE_MAIN_DECL (enumtype)),
14000 "previous definition here");
14001 enumtype = error_mark_node;
14003 else if (ENUM_FIXED_UNDERLYING_TYPE_P (enumtype) != !! underlying_type)
14005 error_at (input_location, "underlying type mismatch "
14006 "in enum %q#T", enumtype);
14007 inform (DECL_SOURCE_LOCATION (TYPE_MAIN_DECL (enumtype)),
14008 "previous definition here");
14009 enumtype = error_mark_node;
14011 else if (underlying_type && ENUM_UNDERLYING_TYPE (enumtype)
14012 && !dependent_type_p (underlying_type)
14013 && !dependent_type_p (ENUM_UNDERLYING_TYPE (enumtype))
14014 && !same_type_p (underlying_type,
14015 ENUM_UNDERLYING_TYPE (enumtype)))
14017 error_at (input_location, "different underlying type "
14018 "in enum %q#T", enumtype);
14019 inform (DECL_SOURCE_LOCATION (TYPE_MAIN_DECL (enumtype)),
14020 "previous definition here");
14021 underlying_type = NULL_TREE;
14025 if (!enumtype || TREE_CODE (enumtype) != ENUMERAL_TYPE
14026 || processing_template_decl)
14028 /* In case of error, make a dummy enum to allow parsing to
14029 continue. */
14030 if (enumtype == error_mark_node)
14032 name = make_anon_name ();
14033 enumtype = NULL_TREE;
14036 /* enumtype may be an ENUMERAL_TYPE if this is a redefinition
14037 of an opaque enum, or an opaque enum of an already defined
14038 enumeration (C++0x only).
14039 In any other case, it'll be NULL_TREE. */
14040 if (!enumtype)
14042 if (is_new)
14043 *is_new = true;
14045 prevtype = enumtype;
14047 /* Do not push the decl more than once, unless we need to
14048 compare underlying types at instantiation time */
14049 if (!enumtype
14050 || TREE_CODE (enumtype) != ENUMERAL_TYPE
14051 || (underlying_type
14052 && dependent_type_p (underlying_type))
14053 || (ENUM_UNDERLYING_TYPE (enumtype)
14054 && dependent_type_p (ENUM_UNDERLYING_TYPE (enumtype))))
14056 enumtype = cxx_make_type (ENUMERAL_TYPE);
14057 enumtype = pushtag (name, enumtype, /*tag_scope=*/ts_current);
14059 /* std::byte aliases anything. */
14060 if (enumtype != error_mark_node
14061 && TYPE_CONTEXT (enumtype) == std_node
14062 && !strcmp ("byte", TYPE_NAME_STRING (enumtype)))
14063 TYPE_ALIAS_SET (enumtype) = 0;
14065 else
14066 enumtype = xref_tag (enum_type, name, /*tag_scope=*/ts_current,
14067 false);
14069 if (enumtype == error_mark_node)
14070 return error_mark_node;
14072 /* The enum is considered opaque until the opening '{' of the
14073 enumerator list. */
14074 SET_OPAQUE_ENUM_P (enumtype, true);
14075 ENUM_FIXED_UNDERLYING_TYPE_P (enumtype) = !! underlying_type;
14078 SET_SCOPED_ENUM_P (enumtype, scoped_enum_p);
14080 cplus_decl_attributes (&enumtype, attributes, (int)ATTR_FLAG_TYPE_IN_PLACE);
14082 if (underlying_type)
14084 if (ENUM_UNDERLYING_TYPE (enumtype))
14085 /* We already checked that it matches, don't change it to a different
14086 typedef variant. */;
14087 else if (CP_INTEGRAL_TYPE_P (underlying_type))
14089 copy_type_enum (enumtype, underlying_type);
14090 ENUM_UNDERLYING_TYPE (enumtype) = underlying_type;
14092 else if (dependent_type_p (underlying_type))
14093 ENUM_UNDERLYING_TYPE (enumtype) = underlying_type;
14094 else
14095 error ("underlying type %qT of %qT must be an integral type",
14096 underlying_type, enumtype);
14099 /* If into a template class, the returned enum is always the first
14100 declaration (opaque or not) seen. This way all the references to
14101 this type will be to the same declaration. The following ones are used
14102 only to check for definition errors. */
14103 if (prevtype && processing_template_decl)
14104 return prevtype;
14105 else
14106 return enumtype;
14109 /* After processing and defining all the values of an enumeration type,
14110 install their decls in the enumeration type.
14111 ENUMTYPE is the type object. */
14113 void
14114 finish_enum_value_list (tree enumtype)
14116 tree values;
14117 tree underlying_type;
14118 tree decl;
14119 tree value;
14120 tree minnode, maxnode;
14121 tree t;
14123 bool fixed_underlying_type_p
14124 = ENUM_UNDERLYING_TYPE (enumtype) != NULL_TREE;
14126 /* We built up the VALUES in reverse order. */
14127 TYPE_VALUES (enumtype) = nreverse (TYPE_VALUES (enumtype));
14129 /* For an enum defined in a template, just set the type of the values;
14130 all further processing is postponed until the template is
14131 instantiated. We need to set the type so that tsubst of a CONST_DECL
14132 works. */
14133 if (processing_template_decl)
14135 for (values = TYPE_VALUES (enumtype);
14136 values;
14137 values = TREE_CHAIN (values))
14138 TREE_TYPE (TREE_VALUE (values)) = enumtype;
14139 return;
14142 /* Determine the minimum and maximum values of the enumerators. */
14143 if (TYPE_VALUES (enumtype))
14145 minnode = maxnode = NULL_TREE;
14147 for (values = TYPE_VALUES (enumtype);
14148 values;
14149 values = TREE_CHAIN (values))
14151 decl = TREE_VALUE (values);
14153 /* [dcl.enum]: Following the closing brace of an enum-specifier,
14154 each enumerator has the type of its enumeration. Prior to the
14155 closing brace, the type of each enumerator is the type of its
14156 initializing value. */
14157 TREE_TYPE (decl) = enumtype;
14159 /* Update the minimum and maximum values, if appropriate. */
14160 value = DECL_INITIAL (decl);
14161 if (value == error_mark_node)
14162 value = integer_zero_node;
14163 /* Figure out what the minimum and maximum values of the
14164 enumerators are. */
14165 if (!minnode)
14166 minnode = maxnode = value;
14167 else if (tree_int_cst_lt (maxnode, value))
14168 maxnode = value;
14169 else if (tree_int_cst_lt (value, minnode))
14170 minnode = value;
14173 else
14174 /* [dcl.enum]
14176 If the enumerator-list is empty, the underlying type is as if
14177 the enumeration had a single enumerator with value 0. */
14178 minnode = maxnode = integer_zero_node;
14180 if (!fixed_underlying_type_p)
14182 /* Compute the number of bits require to represent all values of the
14183 enumeration. We must do this before the type of MINNODE and
14184 MAXNODE are transformed, since tree_int_cst_min_precision relies
14185 on the TREE_TYPE of the value it is passed. */
14186 signop sgn = tree_int_cst_sgn (minnode) >= 0 ? UNSIGNED : SIGNED;
14187 int lowprec = tree_int_cst_min_precision (minnode, sgn);
14188 int highprec = tree_int_cst_min_precision (maxnode, sgn);
14189 int precision = MAX (lowprec, highprec);
14190 unsigned int itk;
14191 bool use_short_enum;
14193 /* Determine the underlying type of the enumeration.
14195 [dcl.enum]
14197 The underlying type of an enumeration is an integral type that
14198 can represent all the enumerator values defined in the
14199 enumeration. It is implementation-defined which integral type is
14200 used as the underlying type for an enumeration except that the
14201 underlying type shall not be larger than int unless the value of
14202 an enumerator cannot fit in an int or unsigned int.
14204 We use "int" or an "unsigned int" as the underlying type, even if
14205 a smaller integral type would work, unless the user has
14206 explicitly requested that we use the smallest possible type. The
14207 user can request that for all enumerations with a command line
14208 flag, or for just one enumeration with an attribute. */
14210 use_short_enum = flag_short_enums
14211 || lookup_attribute ("packed", TYPE_ATTRIBUTES (enumtype));
14213 /* If the precision of the type was specified with an attribute and it
14214 was too small, give an error. Otherwise, use it. */
14215 if (TYPE_PRECISION (enumtype))
14217 if (precision > TYPE_PRECISION (enumtype))
14218 error ("specified mode too small for enumeral values");
14219 else
14221 use_short_enum = true;
14222 precision = TYPE_PRECISION (enumtype);
14226 for (itk = (use_short_enum ? itk_char : itk_int);
14227 itk != itk_none;
14228 itk++)
14230 underlying_type = integer_types[itk];
14231 if (underlying_type != NULL_TREE
14232 && TYPE_PRECISION (underlying_type) >= precision
14233 && TYPE_SIGN (underlying_type) == sgn)
14234 break;
14236 if (itk == itk_none)
14238 /* DR 377
14240 IF no integral type can represent all the enumerator values, the
14241 enumeration is ill-formed. */
14242 error ("no integral type can represent all of the enumerator values "
14243 "for %qT", enumtype);
14244 precision = TYPE_PRECISION (long_long_integer_type_node);
14245 underlying_type = integer_types[itk_unsigned_long_long];
14248 /* [dcl.enum]
14250 The value of sizeof() applied to an enumeration type, an object
14251 of an enumeration type, or an enumerator, is the value of sizeof()
14252 applied to the underlying type. */
14253 copy_type_enum (enumtype, underlying_type);
14255 /* Compute the minimum and maximum values for the type.
14257 [dcl.enum]
14259 For an enumeration where emin is the smallest enumerator and emax
14260 is the largest, the values of the enumeration are the values of the
14261 underlying type in the range bmin to bmax, where bmin and bmax are,
14262 respectively, the smallest and largest values of the smallest bit-
14263 field that can store emin and emax. */
14265 /* The middle-end currently assumes that types with TYPE_PRECISION
14266 narrower than their underlying type are suitably zero or sign
14267 extended to fill their mode. Similarly, it assumes that the front
14268 end assures that a value of a particular type must be within
14269 TYPE_MIN_VALUE and TYPE_MAX_VALUE.
14271 We used to set these fields based on bmin and bmax, but that led
14272 to invalid assumptions like optimizing away bounds checking. So
14273 now we just set the TYPE_PRECISION, TYPE_MIN_VALUE, and
14274 TYPE_MAX_VALUE to the values for the mode above and only restrict
14275 the ENUM_UNDERLYING_TYPE for the benefit of diagnostics. */
14276 ENUM_UNDERLYING_TYPE (enumtype)
14277 = build_distinct_type_copy (underlying_type);
14278 TYPE_PRECISION (ENUM_UNDERLYING_TYPE (enumtype)) = precision;
14279 set_min_and_max_values_for_integral_type
14280 (ENUM_UNDERLYING_TYPE (enumtype), precision, sgn);
14282 /* If -fstrict-enums, still constrain TYPE_MIN/MAX_VALUE. */
14283 if (flag_strict_enums)
14284 set_min_and_max_values_for_integral_type (enumtype, precision, sgn);
14286 else
14287 underlying_type = ENUM_UNDERLYING_TYPE (enumtype);
14289 /* Convert each of the enumerators to the type of the underlying
14290 type of the enumeration. */
14291 for (values = TYPE_VALUES (enumtype); values; values = TREE_CHAIN (values))
14293 location_t saved_location;
14295 decl = TREE_VALUE (values);
14296 saved_location = input_location;
14297 input_location = DECL_SOURCE_LOCATION (decl);
14298 if (fixed_underlying_type_p)
14299 /* If the enumeration type has a fixed underlying type, we
14300 already checked all of the enumerator values. */
14301 value = DECL_INITIAL (decl);
14302 else
14303 value = perform_implicit_conversion (underlying_type,
14304 DECL_INITIAL (decl),
14305 tf_warning_or_error);
14306 input_location = saved_location;
14308 /* Do not clobber shared ints. */
14309 if (value != error_mark_node)
14311 value = copy_node (value);
14313 TREE_TYPE (value) = enumtype;
14315 DECL_INITIAL (decl) = value;
14318 /* Fix up all variant types of this enum type. */
14319 for (t = TYPE_MAIN_VARIANT (enumtype); t; t = TYPE_NEXT_VARIANT (t))
14320 TYPE_VALUES (t) = TYPE_VALUES (enumtype);
14322 if (at_class_scope_p ()
14323 && COMPLETE_TYPE_P (current_class_type)
14324 && UNSCOPED_ENUM_P (enumtype))
14326 insert_late_enum_def_bindings (current_class_type, enumtype);
14327 /* TYPE_FIELDS needs fixup. */
14328 fixup_type_variants (current_class_type);
14331 /* Finish debugging output for this type. */
14332 rest_of_type_compilation (enumtype, namespace_bindings_p ());
14334 /* Each enumerator now has the type of its enumeration. Clear the cache
14335 so that this change in types doesn't confuse us later on. */
14336 clear_cv_and_fold_caches ();
14339 /* Finishes the enum type. This is called only the first time an
14340 enumeration is seen, be it opaque or odinary.
14341 ENUMTYPE is the type object. */
14343 void
14344 finish_enum (tree enumtype)
14346 if (processing_template_decl)
14348 if (at_function_scope_p ())
14349 add_stmt (build_min (TAG_DEFN, enumtype));
14350 return;
14353 /* If this is a forward declaration, there should not be any variants,
14354 though we can get a variant in the middle of an enum-specifier with
14355 wacky code like 'enum E { e = sizeof(const E*) };' */
14356 gcc_assert (enumtype == TYPE_MAIN_VARIANT (enumtype)
14357 && (TYPE_VALUES (enumtype)
14358 || !TYPE_NEXT_VARIANT (enumtype)));
14361 /* Build and install a CONST_DECL for an enumeration constant of the
14362 enumeration type ENUMTYPE whose NAME and VALUE (if any) are provided.
14363 Apply ATTRIBUTES if available. LOC is the location of NAME.
14364 Assignment of sequential values by default is handled here. */
14366 void
14367 build_enumerator (tree name, tree value, tree enumtype, tree attributes,
14368 location_t loc)
14370 tree decl;
14371 tree context;
14372 tree type;
14374 /* scalar_constant_value will pull out this expression, so make sure
14375 it's folded as appropriate. */
14376 if (processing_template_decl)
14377 value = fold_non_dependent_expr (value);
14379 /* If the VALUE was erroneous, pretend it wasn't there; that will
14380 result in the enum being assigned the next value in sequence. */
14381 if (value == error_mark_node)
14382 value = NULL_TREE;
14384 /* Remove no-op casts from the value. */
14385 if (value)
14386 STRIP_TYPE_NOPS (value);
14388 if (! processing_template_decl)
14390 /* Validate and default VALUE. */
14391 if (value != NULL_TREE)
14393 if (!ENUM_UNDERLYING_TYPE (enumtype))
14395 tree tmp_value = build_expr_type_conversion (WANT_INT | WANT_ENUM,
14396 value, true);
14397 if (tmp_value)
14398 value = tmp_value;
14400 else if (! INTEGRAL_OR_UNSCOPED_ENUMERATION_TYPE_P
14401 (TREE_TYPE (value)))
14402 value = perform_implicit_conversion_flags
14403 (ENUM_UNDERLYING_TYPE (enumtype), value, tf_warning_or_error,
14404 LOOKUP_IMPLICIT | LOOKUP_NO_NARROWING);
14406 if (value == error_mark_node)
14407 value = NULL_TREE;
14409 if (value != NULL_TREE)
14411 if (! INTEGRAL_OR_UNSCOPED_ENUMERATION_TYPE_P
14412 (TREE_TYPE (value)))
14414 error ("enumerator value for %qD must have integral or "
14415 "unscoped enumeration type", name);
14416 value = NULL_TREE;
14418 else
14420 value = cxx_constant_value (value);
14422 if (TREE_CODE (value) != INTEGER_CST)
14424 error ("enumerator value for %qD is not an integer "
14425 "constant", name);
14426 value = NULL_TREE;
14432 /* Default based on previous value. */
14433 if (value == NULL_TREE)
14435 if (TYPE_VALUES (enumtype))
14437 tree prev_value;
14438 bool overflowed;
14440 /* C++03 7.2/4: If no initializer is specified for the first
14441 enumerator, the type is an unspecified integral
14442 type. Otherwise the type is the same as the type of the
14443 initializing value of the preceding enumerator unless the
14444 incremented value is not representable in that type, in
14445 which case the type is an unspecified integral type
14446 sufficient to contain the incremented value. */
14447 prev_value = DECL_INITIAL (TREE_VALUE (TYPE_VALUES (enumtype)));
14448 if (error_operand_p (prev_value))
14449 value = error_mark_node;
14450 else
14452 tree type = TREE_TYPE (prev_value);
14453 signop sgn = TYPE_SIGN (type);
14454 widest_int wi = wi::add (wi::to_widest (prev_value), 1, sgn,
14455 &overflowed);
14456 if (!overflowed)
14458 bool pos = !wi::neg_p (wi, sgn);
14459 if (!wi::fits_to_tree_p (wi, type))
14461 unsigned int itk;
14462 for (itk = itk_int; itk != itk_none; itk++)
14464 type = integer_types[itk];
14465 if (type != NULL_TREE
14466 && (pos || !TYPE_UNSIGNED (type))
14467 && wi::fits_to_tree_p (wi, type))
14468 break;
14470 if (type && cxx_dialect < cxx11
14471 && itk > itk_unsigned_long)
14472 pedwarn (input_location, OPT_Wlong_long,
14473 pos ? G_("\
14474 incremented enumerator value is too large for %<unsigned long%>") : G_("\
14475 incremented enumerator value is too large for %<long%>"));
14477 if (type == NULL_TREE)
14478 overflowed = true;
14479 else
14480 value = wide_int_to_tree (type, wi);
14483 if (overflowed)
14485 error ("overflow in enumeration values at %qD", name);
14486 value = error_mark_node;
14490 else
14491 value = integer_zero_node;
14494 /* Remove no-op casts from the value. */
14495 STRIP_TYPE_NOPS (value);
14497 /* If the underlying type of the enum is fixed, check whether
14498 the enumerator values fits in the underlying type. If it
14499 does not fit, the program is ill-formed [C++0x dcl.enum]. */
14500 if (ENUM_UNDERLYING_TYPE (enumtype)
14501 && value
14502 && TREE_CODE (value) == INTEGER_CST)
14504 if (!int_fits_type_p (value, ENUM_UNDERLYING_TYPE (enumtype)))
14505 error ("enumerator value %qE is outside the range of underlying "
14506 "type %qT", value, ENUM_UNDERLYING_TYPE (enumtype));
14508 /* Convert the value to the appropriate type. */
14509 value = fold_convert (ENUM_UNDERLYING_TYPE (enumtype), value);
14513 /* C++ associates enums with global, function, or class declarations. */
14514 context = current_scope ();
14516 /* Build the actual enumeration constant. Note that the enumeration
14517 constants have the underlying type of the enum (if it is fixed)
14518 or the type of their initializer (if the underlying type of the
14519 enum is not fixed):
14521 [ C++0x dcl.enum ]
14523 If the underlying type is fixed, the type of each enumerator
14524 prior to the closing brace is the underlying type; if the
14525 initializing value of an enumerator cannot be represented by
14526 the underlying type, the program is ill-formed. If the
14527 underlying type is not fixed, the type of each enumerator is
14528 the type of its initializing value.
14530 If the underlying type is not fixed, it will be computed by
14531 finish_enum and we will reset the type of this enumerator. Of
14532 course, if we're processing a template, there may be no value. */
14533 type = value ? TREE_TYPE (value) : NULL_TREE;
14535 decl = build_decl (loc, CONST_DECL, name, type);
14537 DECL_CONTEXT (decl) = enumtype;
14538 TREE_CONSTANT (decl) = 1;
14539 TREE_READONLY (decl) = 1;
14540 DECL_INITIAL (decl) = value;
14542 if (attributes)
14543 cplus_decl_attributes (&decl, attributes, 0);
14545 if (context && context == current_class_type && !SCOPED_ENUM_P (enumtype))
14547 /* In something like `struct S { enum E { i = 7 }; };' we put `i'
14548 on the TYPE_FIELDS list for `S'. (That's so that you can say
14549 things like `S::i' later.) */
14551 /* The enumerator may be getting declared outside of its enclosing
14552 class, like so:
14554 class S { public: enum E : int; }; enum S::E : int { i = 7; };
14556 For which case we need to make sure that the access of `S::i'
14557 matches the access of `S::E'. */
14558 tree saved_cas = current_access_specifier;
14559 if (TREE_PRIVATE (TYPE_NAME (enumtype)))
14560 current_access_specifier = access_private_node;
14561 else if (TREE_PROTECTED (TYPE_NAME (enumtype)))
14562 current_access_specifier = access_protected_node;
14563 else
14564 current_access_specifier = access_public_node;
14566 finish_member_declaration (decl);
14568 current_access_specifier = saved_cas;
14570 else
14571 pushdecl (decl);
14573 /* Add this enumeration constant to the list for this type. */
14574 TYPE_VALUES (enumtype) = tree_cons (name, decl, TYPE_VALUES (enumtype));
14577 /* Look for an enumerator with the given NAME within the enumeration
14578 type ENUMTYPE. This routine is used primarily for qualified name
14579 lookup into an enumerator in C++0x, e.g.,
14581 enum class Color { Red, Green, Blue };
14583 Color color = Color::Red;
14585 Returns the value corresponding to the enumerator, or
14586 NULL_TREE if no such enumerator was found. */
14587 tree
14588 lookup_enumerator (tree enumtype, tree name)
14590 tree e;
14591 gcc_assert (enumtype && TREE_CODE (enumtype) == ENUMERAL_TYPE);
14593 e = purpose_member (name, TYPE_VALUES (enumtype));
14594 return e? TREE_VALUE (e) : NULL_TREE;
14598 /* We're defining DECL. Make sure that its type is OK. */
14600 static void
14601 check_function_type (tree decl, tree current_function_parms)
14603 tree fntype = TREE_TYPE (decl);
14604 tree return_type = complete_type (TREE_TYPE (fntype));
14606 /* In a function definition, arg types must be complete. */
14607 require_complete_types_for_parms (current_function_parms);
14609 if (dependent_type_p (return_type)
14610 || type_uses_auto (return_type))
14611 return;
14612 if (!COMPLETE_OR_VOID_TYPE_P (return_type))
14614 tree args = TYPE_ARG_TYPES (fntype);
14616 error ("return type %q#T is incomplete", return_type);
14618 /* Make it return void instead. */
14619 if (TREE_CODE (fntype) == METHOD_TYPE)
14620 fntype = build_method_type_directly (TREE_TYPE (TREE_VALUE (args)),
14621 void_type_node,
14622 TREE_CHAIN (args));
14623 else
14624 fntype = build_function_type (void_type_node, args);
14625 fntype
14626 = build_exception_variant (fntype,
14627 TYPE_RAISES_EXCEPTIONS (TREE_TYPE (decl)));
14628 fntype = (cp_build_type_attribute_variant
14629 (fntype, TYPE_ATTRIBUTES (TREE_TYPE (decl))));
14630 TREE_TYPE (decl) = fntype;
14632 else
14634 abstract_virtuals_error (decl, TREE_TYPE (fntype));
14635 maybe_warn_parm_abi (TREE_TYPE (fntype),
14636 DECL_SOURCE_LOCATION (decl));
14640 /* True iff FN is an implicitly-defined default constructor. */
14642 static bool
14643 implicit_default_ctor_p (tree fn)
14645 return (DECL_CONSTRUCTOR_P (fn)
14646 && !user_provided_p (fn)
14647 && sufficient_parms_p (FUNCTION_FIRST_USER_PARMTYPE (fn)));
14650 /* Clobber the contents of *this to let the back end know that the object
14651 storage is dead when we enter the constructor or leave the destructor. */
14653 static tree
14654 build_clobber_this ()
14656 /* Clobbering an empty base is pointless, and harmful if its one byte
14657 TYPE_SIZE overlays real data. */
14658 if (is_empty_class (current_class_type))
14659 return void_node;
14661 /* If we have virtual bases, clobber the whole object, but only if we're in
14662 charge. If we don't have virtual bases, clobber the as-base type so we
14663 don't mess with tail padding. */
14664 bool vbases = CLASSTYPE_VBASECLASSES (current_class_type);
14666 tree ctype = current_class_type;
14667 if (!vbases)
14668 ctype = CLASSTYPE_AS_BASE (ctype);
14670 tree clobber = build_constructor (ctype, NULL);
14671 TREE_THIS_VOLATILE (clobber) = true;
14673 tree thisref = current_class_ref;
14674 if (ctype != current_class_type)
14676 thisref = build_nop (build_reference_type (ctype), current_class_ptr);
14677 thisref = convert_from_reference (thisref);
14680 tree exprstmt = build2 (MODIFY_EXPR, void_type_node, thisref, clobber);
14681 if (vbases)
14682 exprstmt = build_if_in_charge (exprstmt);
14684 return exprstmt;
14687 /* Create the FUNCTION_DECL for a function definition.
14688 DECLSPECS and DECLARATOR are the parts of the declaration;
14689 they describe the function's name and the type it returns,
14690 but twisted together in a fashion that parallels the syntax of C.
14692 FLAGS is a bitwise or of SF_PRE_PARSED (indicating that the
14693 DECLARATOR is really the DECL for the function we are about to
14694 process and that DECLSPECS should be ignored), SF_INCLASS_INLINE
14695 indicating that the function is an inline defined in-class.
14697 This function creates a binding context for the function body
14698 as well as setting up the FUNCTION_DECL in current_function_decl.
14700 For C++, we must first check whether that datum makes any sense.
14701 For example, "class A local_a(1,2);" means that variable local_a
14702 is an aggregate of type A, which should have a constructor
14703 applied to it with the argument list [1, 2].
14705 On entry, DECL_INITIAL (decl1) should be NULL_TREE or error_mark_node,
14706 or may be a BLOCK if the function has been defined previously
14707 in this translation unit. On exit, DECL_INITIAL (decl1) will be
14708 error_mark_node if the function has never been defined, or
14709 a BLOCK if the function has been defined somewhere. */
14711 bool
14712 start_preparsed_function (tree decl1, tree attrs, int flags)
14714 tree ctype = NULL_TREE;
14715 tree fntype;
14716 tree restype;
14717 int doing_friend = 0;
14718 cp_binding_level *bl;
14719 tree current_function_parms;
14720 struct c_fileinfo *finfo
14721 = get_fileinfo (LOCATION_FILE (DECL_SOURCE_LOCATION (decl1)));
14722 bool honor_interface;
14724 /* Sanity check. */
14725 gcc_assert (VOID_TYPE_P (TREE_VALUE (void_list_node)));
14726 gcc_assert (TREE_CHAIN (void_list_node) == NULL_TREE);
14728 fntype = TREE_TYPE (decl1);
14729 if (TREE_CODE (fntype) == METHOD_TYPE)
14730 ctype = TYPE_METHOD_BASETYPE (fntype);
14732 /* ISO C++ 11.4/5. A friend function defined in a class is in
14733 the (lexical) scope of the class in which it is defined. */
14734 if (!ctype && DECL_FRIEND_P (decl1))
14736 ctype = DECL_FRIEND_CONTEXT (decl1);
14738 /* CTYPE could be null here if we're dealing with a template;
14739 for example, `inline friend float foo()' inside a template
14740 will have no CTYPE set. */
14741 if (ctype && TREE_CODE (ctype) != RECORD_TYPE)
14742 ctype = NULL_TREE;
14743 else
14744 doing_friend = 1;
14747 if (DECL_DECLARED_INLINE_P (decl1)
14748 && lookup_attribute ("noinline", attrs))
14749 warning_at (DECL_SOURCE_LOCATION (decl1), 0,
14750 "inline function %qD given attribute noinline", decl1);
14752 /* Handle gnu_inline attribute. */
14753 if (GNU_INLINE_P (decl1))
14755 DECL_EXTERNAL (decl1) = 1;
14756 DECL_NOT_REALLY_EXTERN (decl1) = 0;
14757 DECL_INTERFACE_KNOWN (decl1) = 1;
14758 DECL_DISREGARD_INLINE_LIMITS (decl1) = 1;
14761 if (DECL_MAYBE_IN_CHARGE_CONSTRUCTOR_P (decl1))
14762 /* This is a constructor, we must ensure that any default args
14763 introduced by this definition are propagated to the clones
14764 now. The clones are used directly in overload resolution. */
14765 adjust_clone_args (decl1);
14767 /* Sometimes we don't notice that a function is a static member, and
14768 build a METHOD_TYPE for it. Fix that up now. */
14769 gcc_assert (!(ctype != NULL_TREE && DECL_STATIC_FUNCTION_P (decl1)
14770 && TREE_CODE (TREE_TYPE (decl1)) == METHOD_TYPE));
14772 /* Set up current_class_type, and enter the scope of the class, if
14773 appropriate. */
14774 if (ctype)
14775 push_nested_class (ctype);
14776 else if (DECL_STATIC_FUNCTION_P (decl1))
14777 push_nested_class (DECL_CONTEXT (decl1));
14779 /* Now that we have entered the scope of the class, we must restore
14780 the bindings for any template parameters surrounding DECL1, if it
14781 is an inline member template. (Order is important; consider the
14782 case where a template parameter has the same name as a field of
14783 the class.) It is not until after this point that
14784 PROCESSING_TEMPLATE_DECL is guaranteed to be set up correctly. */
14785 if (flags & SF_INCLASS_INLINE)
14786 maybe_begin_member_template_processing (decl1);
14788 /* Effective C++ rule 15. */
14789 if (warn_ecpp
14790 && DECL_ASSIGNMENT_OPERATOR_P (decl1)
14791 && DECL_OVERLOADED_OPERATOR_IS (decl1, NOP_EXPR)
14792 && VOID_TYPE_P (TREE_TYPE (fntype)))
14793 warning (OPT_Weffc__,
14794 "%<operator=%> should return a reference to %<*this%>");
14796 /* Make the init_value nonzero so pushdecl knows this is not tentative.
14797 error_mark_node is replaced below (in poplevel) with the BLOCK. */
14798 if (!DECL_INITIAL (decl1))
14799 DECL_INITIAL (decl1) = error_mark_node;
14801 /* This function exists in static storage.
14802 (This does not mean `static' in the C sense!) */
14803 TREE_STATIC (decl1) = 1;
14805 /* We must call push_template_decl after current_class_type is set
14806 up. (If we are processing inline definitions after exiting a
14807 class scope, current_class_type will be NULL_TREE until set above
14808 by push_nested_class.) */
14809 if (processing_template_decl)
14811 tree newdecl1 = push_template_decl (decl1);
14812 if (newdecl1 == error_mark_node)
14814 if (ctype || DECL_STATIC_FUNCTION_P (decl1))
14815 pop_nested_class ();
14816 return false;
14818 decl1 = newdecl1;
14821 /* Make sure the parameter and return types are reasonable. When
14822 you declare a function, these types can be incomplete, but they
14823 must be complete when you define the function. */
14824 check_function_type (decl1, DECL_ARGUMENTS (decl1));
14826 /* Build the return declaration for the function. */
14827 restype = TREE_TYPE (fntype);
14829 if (DECL_RESULT (decl1) == NULL_TREE)
14831 tree resdecl;
14833 resdecl = build_decl (input_location, RESULT_DECL, 0, restype);
14834 DECL_ARTIFICIAL (resdecl) = 1;
14835 DECL_IGNORED_P (resdecl) = 1;
14836 DECL_RESULT (decl1) = resdecl;
14838 cp_apply_type_quals_to_decl (cp_type_quals (restype), resdecl);
14841 /* Record the decl so that the function name is defined.
14842 If we already have a decl for this name, and it is a FUNCTION_DECL,
14843 use the old decl. */
14844 if (!processing_template_decl && !(flags & SF_PRE_PARSED))
14846 /* A specialization is not used to guide overload resolution. */
14847 if (!DECL_FUNCTION_MEMBER_P (decl1)
14848 && !(DECL_USE_TEMPLATE (decl1) &&
14849 PRIMARY_TEMPLATE_P (DECL_TI_TEMPLATE (decl1))))
14851 tree olddecl = pushdecl (decl1);
14853 if (olddecl == error_mark_node)
14854 /* If something went wrong when registering the declaration,
14855 use DECL1; we have to have a FUNCTION_DECL to use when
14856 parsing the body of the function. */
14858 else
14860 /* Otherwise, OLDDECL is either a previous declaration
14861 of the same function or DECL1 itself. */
14863 if (warn_missing_declarations
14864 && olddecl == decl1
14865 && !DECL_MAIN_P (decl1)
14866 && TREE_PUBLIC (decl1)
14867 && !DECL_DECLARED_INLINE_P (decl1))
14869 tree context;
14871 /* Check whether DECL1 is in an anonymous
14872 namespace. */
14873 for (context = DECL_CONTEXT (decl1);
14874 context;
14875 context = DECL_CONTEXT (context))
14877 if (TREE_CODE (context) == NAMESPACE_DECL
14878 && DECL_NAME (context) == NULL_TREE)
14879 break;
14882 if (context == NULL)
14883 warning_at (DECL_SOURCE_LOCATION (decl1),
14884 OPT_Wmissing_declarations,
14885 "no previous declaration for %qD", decl1);
14888 decl1 = olddecl;
14891 else
14893 /* We need to set the DECL_CONTEXT. */
14894 if (!DECL_CONTEXT (decl1) && DECL_TEMPLATE_INFO (decl1))
14895 DECL_CONTEXT (decl1) = DECL_CONTEXT (DECL_TI_TEMPLATE (decl1));
14897 fntype = TREE_TYPE (decl1);
14898 restype = TREE_TYPE (fntype);
14900 /* If #pragma weak applies, mark the decl appropriately now.
14901 The pragma only applies to global functions. Because
14902 determining whether or not the #pragma applies involves
14903 computing the mangled name for the declaration, we cannot
14904 apply the pragma until after we have merged this declaration
14905 with any previous declarations; if the original declaration
14906 has a linkage specification, that specification applies to
14907 the definition as well, and may affect the mangled name. */
14908 if (DECL_FILE_SCOPE_P (decl1))
14909 maybe_apply_pragma_weak (decl1);
14912 /* We are now in the scope of the function being defined. */
14913 current_function_decl = decl1;
14915 /* Save the parm names or decls from this function's declarator
14916 where store_parm_decls will find them. */
14917 current_function_parms = DECL_ARGUMENTS (decl1);
14919 /* Let the user know we're compiling this function. */
14920 announce_function (decl1);
14922 gcc_assert (DECL_INITIAL (decl1));
14924 /* This function may already have been parsed, in which case just
14925 return; our caller will skip over the body without parsing. */
14926 if (DECL_INITIAL (decl1) != error_mark_node)
14927 return true;
14929 /* Initialize RTL machinery. We cannot do this until
14930 CURRENT_FUNCTION_DECL and DECL_RESULT are set up. We do this
14931 even when processing a template; this is how we get
14932 CFUN set up, and our per-function variables initialized.
14933 FIXME factor out the non-RTL stuff. */
14934 bl = current_binding_level;
14935 allocate_struct_function (decl1, processing_template_decl);
14937 /* Initialize the language data structures. Whenever we start
14938 a new function, we destroy temporaries in the usual way. */
14939 cfun->language = ggc_cleared_alloc<language_function> ();
14940 current_stmt_tree ()->stmts_are_full_exprs_p = 1;
14941 current_binding_level = bl;
14943 if (!processing_template_decl && type_uses_auto (restype))
14945 FNDECL_USED_AUTO (decl1) = true;
14946 current_function_auto_return_pattern = restype;
14949 /* Start the statement-tree, start the tree now. */
14950 DECL_SAVED_TREE (decl1) = push_stmt_list ();
14952 /* If we are (erroneously) defining a function that we have already
14953 defined before, wipe out what we knew before. */
14954 if (!DECL_PENDING_INLINE_P (decl1))
14955 DECL_SAVED_FUNCTION_DATA (decl1) = NULL;
14957 if (ctype && !doing_friend && !DECL_STATIC_FUNCTION_P (decl1))
14959 /* We know that this was set up by `grokclassfn'. We do not
14960 wait until `store_parm_decls', since evil parse errors may
14961 never get us to that point. Here we keep the consistency
14962 between `current_class_type' and `current_class_ptr'. */
14963 tree t = DECL_ARGUMENTS (decl1);
14965 gcc_assert (t != NULL_TREE && TREE_CODE (t) == PARM_DECL);
14966 gcc_assert (TYPE_PTR_P (TREE_TYPE (t)));
14968 cp_function_chain->x_current_class_ref
14969 = cp_build_fold_indirect_ref (t);
14970 /* Set this second to avoid shortcut in cp_build_indirect_ref. */
14971 cp_function_chain->x_current_class_ptr = t;
14973 /* Constructors and destructors need to know whether they're "in
14974 charge" of initializing virtual base classes. */
14975 t = DECL_CHAIN (t);
14976 if (DECL_HAS_IN_CHARGE_PARM_P (decl1))
14978 current_in_charge_parm = t;
14979 t = DECL_CHAIN (t);
14981 if (DECL_HAS_VTT_PARM_P (decl1))
14983 gcc_assert (DECL_NAME (t) == vtt_parm_identifier);
14984 current_vtt_parm = t;
14988 honor_interface = (!DECL_TEMPLATE_INSTANTIATION (decl1)
14989 /* Implicitly-defined methods (like the
14990 destructor for a class in which no destructor
14991 is explicitly declared) must not be defined
14992 until their definition is needed. So, we
14993 ignore interface specifications for
14994 compiler-generated functions. */
14995 && !DECL_ARTIFICIAL (decl1));
14997 if (processing_template_decl)
14998 /* Don't mess with interface flags. */;
14999 else if (DECL_INTERFACE_KNOWN (decl1))
15001 tree ctx = decl_function_context (decl1);
15003 if (DECL_NOT_REALLY_EXTERN (decl1))
15004 DECL_EXTERNAL (decl1) = 0;
15006 if (ctx != NULL_TREE && vague_linkage_p (ctx))
15007 /* This is a function in a local class in an extern inline
15008 or template function. */
15009 comdat_linkage (decl1);
15011 /* If this function belongs to an interface, it is public.
15012 If it belongs to someone else's interface, it is also external.
15013 This only affects inlines and template instantiations. */
15014 else if (!finfo->interface_unknown && honor_interface)
15016 if (DECL_DECLARED_INLINE_P (decl1)
15017 || DECL_TEMPLATE_INSTANTIATION (decl1))
15019 DECL_EXTERNAL (decl1)
15020 = (finfo->interface_only
15021 || (DECL_DECLARED_INLINE_P (decl1)
15022 && ! flag_implement_inlines
15023 && !DECL_VINDEX (decl1)));
15025 /* For WIN32 we also want to put these in linkonce sections. */
15026 maybe_make_one_only (decl1);
15028 else
15029 DECL_EXTERNAL (decl1) = 0;
15030 DECL_INTERFACE_KNOWN (decl1) = 1;
15031 /* If this function is in an interface implemented in this file,
15032 make sure that the back end knows to emit this function
15033 here. */
15034 if (!DECL_EXTERNAL (decl1))
15035 mark_needed (decl1);
15037 else if (finfo->interface_unknown && finfo->interface_only
15038 && honor_interface)
15040 /* If MULTIPLE_SYMBOL_SPACES is defined and we saw a #pragma
15041 interface, we will have both finfo->interface_unknown and
15042 finfo->interface_only set. In that case, we don't want to
15043 use the normal heuristics because someone will supply a
15044 #pragma implementation elsewhere, and deducing it here would
15045 produce a conflict. */
15046 comdat_linkage (decl1);
15047 DECL_EXTERNAL (decl1) = 0;
15048 DECL_INTERFACE_KNOWN (decl1) = 1;
15049 DECL_DEFER_OUTPUT (decl1) = 1;
15051 else
15053 /* This is a definition, not a reference.
15054 So clear DECL_EXTERNAL, unless this is a GNU extern inline. */
15055 if (!GNU_INLINE_P (decl1))
15056 DECL_EXTERNAL (decl1) = 0;
15058 if ((DECL_DECLARED_INLINE_P (decl1)
15059 || DECL_TEMPLATE_INSTANTIATION (decl1))
15060 && ! DECL_INTERFACE_KNOWN (decl1))
15061 DECL_DEFER_OUTPUT (decl1) = 1;
15062 else
15063 DECL_INTERFACE_KNOWN (decl1) = 1;
15066 /* Determine the ELF visibility attribute for the function. We must not
15067 do this before calling "pushdecl", as we must allow "duplicate_decls"
15068 to merge any attributes appropriately. We also need to wait until
15069 linkage is set. */
15070 if (!DECL_CLONED_FUNCTION_P (decl1))
15071 determine_visibility (decl1);
15073 if (!processing_template_decl)
15074 maybe_instantiate_noexcept (decl1);
15076 begin_scope (sk_function_parms, decl1);
15078 ++function_depth;
15080 if (DECL_DESTRUCTOR_P (decl1)
15081 || (DECL_CONSTRUCTOR_P (decl1)
15082 && targetm.cxx.cdtor_returns_this ()))
15084 cdtor_label = create_artificial_label (input_location);
15085 LABEL_DECL_CDTOR (cdtor_label) = true;
15088 start_fname_decls ();
15090 store_parm_decls (current_function_parms);
15092 if (!processing_template_decl
15093 && (flag_lifetime_dse > 1)
15094 && DECL_CONSTRUCTOR_P (decl1)
15095 && !DECL_CLONED_FUNCTION_P (decl1)
15096 /* Clobbering an empty base is harmful if it overlays real data. */
15097 && !is_empty_class (current_class_type)
15098 /* We can't clobber safely for an implicitly-defined default constructor
15099 because part of the initialization might happen before we enter the
15100 constructor, via AGGR_INIT_ZERO_FIRST (c++/68006). */
15101 && !implicit_default_ctor_p (decl1))
15102 finish_expr_stmt (build_clobber_this ());
15104 if (!processing_template_decl
15105 && DECL_CONSTRUCTOR_P (decl1)
15106 && sanitize_flags_p (SANITIZE_VPTR)
15107 && !DECL_CLONED_FUNCTION_P (decl1)
15108 && !implicit_default_ctor_p (decl1))
15109 cp_ubsan_maybe_initialize_vtbl_ptrs (current_class_ptr);
15111 start_lambda_scope (decl1);
15113 return true;
15117 /* Like start_preparsed_function, except that instead of a
15118 FUNCTION_DECL, this function takes DECLSPECS and DECLARATOR.
15120 Returns true on success. If the DECLARATOR is not suitable
15121 for a function, we return false, which tells the parser to
15122 skip the entire function. */
15124 bool
15125 start_function (cp_decl_specifier_seq *declspecs,
15126 const cp_declarator *declarator,
15127 tree attrs)
15129 tree decl1;
15131 decl1 = grokdeclarator (declarator, declspecs, FUNCDEF, 1, &attrs);
15132 invoke_plugin_callbacks (PLUGIN_START_PARSE_FUNCTION, decl1);
15133 if (decl1 == error_mark_node)
15134 return false;
15135 /* If the declarator is not suitable for a function definition,
15136 cause a syntax error. */
15137 if (decl1 == NULL_TREE || TREE_CODE (decl1) != FUNCTION_DECL)
15139 error ("invalid function declaration");
15140 return false;
15143 if (DECL_MAIN_P (decl1))
15144 /* main must return int. grokfndecl should have corrected it
15145 (and issued a diagnostic) if the user got it wrong. */
15146 gcc_assert (same_type_p (TREE_TYPE (TREE_TYPE (decl1)),
15147 integer_type_node));
15149 return start_preparsed_function (decl1, attrs, /*flags=*/SF_DEFAULT);
15152 /* Returns true iff an EH_SPEC_BLOCK should be created in the body of
15153 FN. */
15155 static bool
15156 use_eh_spec_block (tree fn)
15158 return (flag_exceptions && flag_enforce_eh_specs
15159 && !processing_template_decl
15160 && !type_throw_all_p (TREE_TYPE (fn))
15161 /* We insert the EH_SPEC_BLOCK only in the original
15162 function; then, it is copied automatically to the
15163 clones. */
15164 && !DECL_CLONED_FUNCTION_P (fn)
15165 /* Implicitly-generated constructors and destructors have
15166 exception specifications. However, those specifications
15167 are the union of the possible exceptions specified by the
15168 constructors/destructors for bases and members, so no
15169 unallowed exception will ever reach this function. By
15170 not creating the EH_SPEC_BLOCK we save a little memory,
15171 and we avoid spurious warnings about unreachable
15172 code. */
15173 && !DECL_DEFAULTED_FN (fn));
15176 /* Store the parameter declarations into the current function declaration.
15177 This is called after parsing the parameter declarations, before
15178 digesting the body of the function.
15180 Also install to binding contour return value identifier, if any. */
15182 static void
15183 store_parm_decls (tree current_function_parms)
15185 tree fndecl = current_function_decl;
15186 tree parm;
15188 /* This is a chain of any other decls that came in among the parm
15189 declarations. If a parm is declared with enum {foo, bar} x;
15190 then CONST_DECLs for foo and bar are put here. */
15191 tree nonparms = NULL_TREE;
15193 if (current_function_parms)
15195 /* This case is when the function was defined with an ANSI prototype.
15196 The parms already have decls, so we need not do anything here
15197 except record them as in effect
15198 and complain if any redundant old-style parm decls were written. */
15200 tree specparms = current_function_parms;
15201 tree next;
15203 /* Must clear this because it might contain TYPE_DECLs declared
15204 at class level. */
15205 current_binding_level->names = NULL;
15207 /* If we're doing semantic analysis, then we'll call pushdecl
15208 for each of these. We must do them in reverse order so that
15209 they end in the correct forward order. */
15210 specparms = nreverse (specparms);
15212 for (parm = specparms; parm; parm = next)
15214 next = DECL_CHAIN (parm);
15215 if (TREE_CODE (parm) == PARM_DECL)
15216 pushdecl (parm);
15217 else
15219 /* If we find an enum constant or a type tag,
15220 put it aside for the moment. */
15221 TREE_CHAIN (parm) = NULL_TREE;
15222 nonparms = chainon (nonparms, parm);
15226 /* Get the decls in their original chain order and record in the
15227 function. This is all and only the PARM_DECLs that were
15228 pushed into scope by the loop above. */
15229 DECL_ARGUMENTS (fndecl) = get_local_decls ();
15231 else
15232 DECL_ARGUMENTS (fndecl) = NULL_TREE;
15234 /* Now store the final chain of decls for the arguments
15235 as the decl-chain of the current lexical scope.
15236 Put the enumerators in as well, at the front so that
15237 DECL_ARGUMENTS is not modified. */
15238 current_binding_level->names = chainon (nonparms, DECL_ARGUMENTS (fndecl));
15240 if (use_eh_spec_block (current_function_decl))
15241 current_eh_spec_block = begin_eh_spec_block ();
15245 /* We have finished doing semantic analysis on DECL, but have not yet
15246 generated RTL for its body. Save away our current state, so that
15247 when we want to generate RTL later we know what to do. */
15249 static void
15250 save_function_data (tree decl)
15252 struct language_function *f;
15254 /* Save the language-specific per-function data so that we can
15255 get it back when we really expand this function. */
15256 gcc_assert (!DECL_PENDING_INLINE_P (decl));
15258 /* Make a copy. */
15259 f = ggc_alloc<language_function> ();
15260 memcpy (f, cp_function_chain, sizeof (struct language_function));
15261 DECL_SAVED_FUNCTION_DATA (decl) = f;
15263 /* Clear out the bits we don't need. */
15264 f->base.x_stmt_tree.x_cur_stmt_list = NULL;
15265 f->bindings = NULL;
15266 f->x_local_names = NULL;
15267 f->base.local_typedefs = NULL;
15271 /* Set the return value of the constructor (if present). */
15273 static void
15274 finish_constructor_body (void)
15276 tree val;
15277 tree exprstmt;
15279 if (targetm.cxx.cdtor_returns_this ())
15281 /* Any return from a constructor will end up here. */
15282 add_stmt (build_stmt (input_location, LABEL_EXPR, cdtor_label));
15284 val = DECL_ARGUMENTS (current_function_decl);
15285 val = build2 (MODIFY_EXPR, TREE_TYPE (val),
15286 DECL_RESULT (current_function_decl), val);
15287 /* Return the address of the object. */
15288 exprstmt = build_stmt (input_location, RETURN_EXPR, val);
15289 add_stmt (exprstmt);
15293 /* Do all the processing for the beginning of a destructor; set up the
15294 vtable pointers and cleanups for bases and members. */
15296 static void
15297 begin_destructor_body (void)
15299 tree compound_stmt;
15301 /* If the CURRENT_CLASS_TYPE is incomplete, we will have already
15302 issued an error message. We still want to try to process the
15303 body of the function, but initialize_vtbl_ptrs will crash if
15304 TYPE_BINFO is NULL. */
15305 if (COMPLETE_TYPE_P (current_class_type))
15307 compound_stmt = begin_compound_stmt (0);
15308 /* Make all virtual function table pointers in non-virtual base
15309 classes point to CURRENT_CLASS_TYPE's virtual function
15310 tables. */
15311 initialize_vtbl_ptrs (current_class_ptr);
15312 finish_compound_stmt (compound_stmt);
15314 if (flag_lifetime_dse
15315 /* Clobbering an empty base is harmful if it overlays real data. */
15316 && !is_empty_class (current_class_type))
15318 if (sanitize_flags_p (SANITIZE_VPTR)
15319 && (flag_sanitize_recover & SANITIZE_VPTR) == 0
15320 && TYPE_CONTAINS_VPTR_P (current_class_type))
15322 tree binfo = TYPE_BINFO (current_class_type);
15323 tree ref
15324 = cp_build_fold_indirect_ref (current_class_ptr);
15326 tree vtbl_ptr = build_vfield_ref (ref, TREE_TYPE (binfo));
15327 tree vtbl = build_zero_cst (TREE_TYPE (vtbl_ptr));
15328 tree stmt = cp_build_modify_expr (input_location, vtbl_ptr,
15329 NOP_EXPR, vtbl,
15330 tf_warning_or_error);
15331 finish_decl_cleanup (NULL_TREE, stmt);
15333 else
15334 finish_decl_cleanup (NULL_TREE, build_clobber_this ());
15337 /* And insert cleanups for our bases and members so that they
15338 will be properly destroyed if we throw. */
15339 push_base_cleanups ();
15343 /* At the end of every destructor we generate code to delete the object if
15344 necessary. Do that now. */
15346 static void
15347 finish_destructor_body (void)
15349 tree exprstmt;
15351 /* Any return from a destructor will end up here; that way all base
15352 and member cleanups will be run when the function returns. */
15353 add_stmt (build_stmt (input_location, LABEL_EXPR, cdtor_label));
15355 if (targetm.cxx.cdtor_returns_this ())
15357 tree val;
15359 val = DECL_ARGUMENTS (current_function_decl);
15360 val = build2 (MODIFY_EXPR, TREE_TYPE (val),
15361 DECL_RESULT (current_function_decl), val);
15362 /* Return the address of the object. */
15363 exprstmt = build_stmt (input_location, RETURN_EXPR, val);
15364 add_stmt (exprstmt);
15368 /* Do the necessary processing for the beginning of a function body, which
15369 in this case includes member-initializers, but not the catch clauses of
15370 a function-try-block. Currently, this means opening a binding level
15371 for the member-initializers (in a ctor), member cleanups (in a dtor),
15372 and capture proxies (in a lambda operator()). */
15374 tree
15375 begin_function_body (void)
15377 tree stmt;
15379 if (! FUNCTION_NEEDS_BODY_BLOCK (current_function_decl))
15380 return NULL_TREE;
15382 if (processing_template_decl)
15383 /* Do nothing now. */;
15384 else
15385 /* Always keep the BLOCK node associated with the outermost pair of
15386 curly braces of a function. These are needed for correct
15387 operation of dwarfout.c. */
15388 keep_next_level (true);
15390 stmt = begin_compound_stmt (BCS_FN_BODY);
15392 if (processing_template_decl)
15393 /* Do nothing now. */;
15394 else if (DECL_DESTRUCTOR_P (current_function_decl))
15395 begin_destructor_body ();
15397 return stmt;
15400 /* Do the processing for the end of a function body. Currently, this means
15401 closing out the cleanups for fully-constructed bases and members, and in
15402 the case of the destructor, deleting the object if desired. Again, this
15403 is only meaningful for [cd]tors, since they are the only functions where
15404 there is a significant distinction between the main body and any
15405 function catch clauses. Handling, say, main() return semantics here
15406 would be wrong, as flowing off the end of a function catch clause for
15407 main() would also need to return 0. */
15409 void
15410 finish_function_body (tree compstmt)
15412 if (compstmt == NULL_TREE)
15413 return;
15415 /* Close the block. */
15416 finish_compound_stmt (compstmt);
15418 if (processing_template_decl)
15419 /* Do nothing now. */;
15420 else if (DECL_CONSTRUCTOR_P (current_function_decl))
15421 finish_constructor_body ();
15422 else if (DECL_DESTRUCTOR_P (current_function_decl))
15423 finish_destructor_body ();
15426 /* Given a function, returns the BLOCK corresponding to the outermost level
15427 of curly braces, skipping the artificial block created for constructor
15428 initializers. */
15430 tree
15431 outer_curly_brace_block (tree fndecl)
15433 tree block = DECL_INITIAL (fndecl);
15434 if (BLOCK_OUTER_CURLY_BRACE_P (block))
15435 return block;
15436 block = BLOCK_SUBBLOCKS (block);
15437 if (BLOCK_OUTER_CURLY_BRACE_P (block))
15438 return block;
15439 block = BLOCK_SUBBLOCKS (block);
15440 gcc_assert (BLOCK_OUTER_CURLY_BRACE_P (block));
15441 return block;
15444 /* If FNDECL is a class's key method, add the class to the list of
15445 keyed classes that should be emitted. */
15447 static void
15448 record_key_method_defined (tree fndecl)
15450 if (DECL_NONSTATIC_MEMBER_FUNCTION_P (fndecl)
15451 && DECL_VIRTUAL_P (fndecl)
15452 && !processing_template_decl)
15454 tree fnclass = DECL_CONTEXT (fndecl);
15455 if (fndecl == CLASSTYPE_KEY_METHOD (fnclass))
15456 vec_safe_push (keyed_classes, fnclass);
15460 /* Subroutine of finish_function.
15461 Save the body of constexpr functions for possible
15462 future compile time evaluation. */
15464 static void
15465 maybe_save_function_definition (tree fun)
15467 if (!processing_template_decl
15468 && DECL_DECLARED_CONSTEXPR_P (fun)
15469 && !cp_function_chain->invalid_constexpr
15470 && !DECL_CLONED_FUNCTION_P (fun))
15471 register_constexpr_fundef (fun, DECL_SAVED_TREE (fun));
15474 /* Finish up a function declaration and compile that function
15475 all the way to assembler language output. The free the storage
15476 for the function definition. INLINE_P is TRUE if we just
15477 finished processing the body of an in-class inline function
15478 definition. (This processing will have taken place after the
15479 class definition is complete.) */
15481 tree
15482 finish_function (bool inline_p)
15484 tree fndecl = current_function_decl;
15485 tree fntype, ctype = NULL_TREE;
15487 /* When we get some parse errors, we can end up without a
15488 current_function_decl, so cope. */
15489 if (fndecl == NULL_TREE)
15490 return error_mark_node;
15492 finish_lambda_scope ();
15494 if (c_dialect_objc ())
15495 objc_finish_function ();
15497 record_key_method_defined (fndecl);
15499 fntype = TREE_TYPE (fndecl);
15501 /* TREE_READONLY (fndecl) = 1;
15502 This caused &foo to be of type ptr-to-const-function
15503 which then got a warning when stored in a ptr-to-function variable. */
15505 gcc_assert (building_stmt_list_p ());
15506 /* The current function is being defined, so its DECL_INITIAL should
15507 be set, and unless there's a multiple definition, it should be
15508 error_mark_node. */
15509 gcc_assert (DECL_INITIAL (fndecl) == error_mark_node);
15511 /* For a cloned function, we've already got all the code we need;
15512 there's no need to add any extra bits. */
15513 if (!DECL_CLONED_FUNCTION_P (fndecl))
15515 /* Make it so that `main' always returns 0 by default. */
15516 if (DECL_MAIN_P (current_function_decl))
15517 finish_return_stmt (integer_zero_node);
15519 if (use_eh_spec_block (current_function_decl))
15520 finish_eh_spec_block (TYPE_RAISES_EXCEPTIONS
15521 (TREE_TYPE (current_function_decl)),
15522 current_eh_spec_block);
15525 /* If we're saving up tree structure, tie off the function now. */
15526 DECL_SAVED_TREE (fndecl) = pop_stmt_list (DECL_SAVED_TREE (fndecl));
15528 finish_fname_decls ();
15530 /* If this function can't throw any exceptions, remember that. */
15531 if (!processing_template_decl
15532 && !cp_function_chain->can_throw
15533 && !flag_non_call_exceptions
15534 && !decl_replaceable_p (fndecl))
15535 TREE_NOTHROW (fndecl) = 1;
15537 /* This must come after expand_function_end because cleanups might
15538 have declarations (from inline functions) that need to go into
15539 this function's blocks. */
15541 /* If the current binding level isn't the outermost binding level
15542 for this function, either there is a bug, or we have experienced
15543 syntax errors and the statement tree is malformed. */
15544 if (current_binding_level->kind != sk_function_parms)
15546 /* Make sure we have already experienced errors. */
15547 gcc_assert (errorcount);
15549 /* Throw away the broken statement tree and extra binding
15550 levels. */
15551 DECL_SAVED_TREE (fndecl) = alloc_stmt_list ();
15553 while (current_binding_level->kind != sk_function_parms)
15555 if (current_binding_level->kind == sk_class)
15556 pop_nested_class ();
15557 else
15558 poplevel (0, 0, 0);
15561 poplevel (1, 0, 1);
15563 /* Statements should always be full-expressions at the outermost set
15564 of curly braces for a function. */
15565 gcc_assert (stmts_are_full_exprs_p ());
15567 /* If there are no return statements in a function with auto return type,
15568 the return type is void. But if the declared type is something like
15569 auto*, this is an error. */
15570 if (!processing_template_decl && FNDECL_USED_AUTO (fndecl)
15571 && TREE_TYPE (fntype) == current_function_auto_return_pattern)
15573 if (is_auto (current_function_auto_return_pattern))
15575 apply_deduced_return_type (fndecl, void_type_node);
15576 fntype = TREE_TYPE (fndecl);
15578 else if (!current_function_returns_value
15579 && !current_function_returns_null)
15581 error ("no return statements in function returning %qT",
15582 current_function_auto_return_pattern);
15583 inform (input_location, "only plain %<auto%> return type can be "
15584 "deduced to %<void%>");
15588 // If this is a concept, check that the definition is reasonable.
15589 if (DECL_DECLARED_CONCEPT_P (fndecl))
15590 check_function_concept (fndecl);
15592 /* Lambda closure members are implicitly constexpr if possible. */
15593 if (cxx_dialect >= cxx17
15594 && LAMBDA_TYPE_P (CP_DECL_CONTEXT (fndecl)))
15595 DECL_DECLARED_CONSTEXPR_P (fndecl)
15596 = ((processing_template_decl
15597 || is_valid_constexpr_fn (fndecl, /*complain*/false))
15598 && potential_constant_expression (DECL_SAVED_TREE (fndecl)));
15600 /* Save constexpr function body before it gets munged by
15601 the NRV transformation. */
15602 maybe_save_function_definition (fndecl);
15604 /* Invoke the pre-genericize plugin before we start munging things. */
15605 if (!processing_template_decl)
15606 invoke_plugin_callbacks (PLUGIN_PRE_GENERICIZE, fndecl);
15608 /* Perform delayed folding before NRV transformation. */
15609 if (!processing_template_decl)
15610 cp_fold_function (fndecl);
15612 /* Set up the named return value optimization, if we can. Candidate
15613 variables are selected in check_return_expr. */
15614 if (current_function_return_value)
15616 tree r = current_function_return_value;
15617 tree outer;
15619 if (r != error_mark_node
15620 /* This is only worth doing for fns that return in memory--and
15621 simpler, since we don't have to worry about promoted modes. */
15622 && aggregate_value_p (TREE_TYPE (TREE_TYPE (fndecl)), fndecl)
15623 /* Only allow this for variables declared in the outer scope of
15624 the function so we know that their lifetime always ends with a
15625 return; see g++.dg/opt/nrv6.C. We could be more flexible if
15626 we were to do this optimization in tree-ssa. */
15627 && (outer = outer_curly_brace_block (fndecl))
15628 && chain_member (r, BLOCK_VARS (outer)))
15629 finalize_nrv (&DECL_SAVED_TREE (fndecl), r, DECL_RESULT (fndecl));
15631 current_function_return_value = NULL_TREE;
15634 /* Remember that we were in class scope. */
15635 if (current_class_name)
15636 ctype = current_class_type;
15638 /* Must mark the RESULT_DECL as being in this function. */
15639 DECL_CONTEXT (DECL_RESULT (fndecl)) = fndecl;
15641 /* Set the BLOCK_SUPERCONTEXT of the outermost function scope to point
15642 to the FUNCTION_DECL node itself. */
15643 BLOCK_SUPERCONTEXT (DECL_INITIAL (fndecl)) = fndecl;
15645 /* Save away current state, if appropriate. */
15646 if (!processing_template_decl)
15647 save_function_data (fndecl);
15649 /* Complain if there's just no return statement. */
15650 if (warn_return_type
15651 && !VOID_TYPE_P (TREE_TYPE (fntype))
15652 && !dependent_type_p (TREE_TYPE (fntype))
15653 && !current_function_returns_value && !current_function_returns_null
15654 /* Don't complain if we abort or throw. */
15655 && !current_function_returns_abnormally
15656 /* Don't complain if there's an infinite loop. */
15657 && !current_function_infinite_loop
15658 /* Don't complain if we are declared noreturn. */
15659 && !TREE_THIS_VOLATILE (fndecl)
15660 && !DECL_NAME (DECL_RESULT (fndecl))
15661 && !TREE_NO_WARNING (fndecl)
15662 /* Structor return values (if any) are set by the compiler. */
15663 && !DECL_CONSTRUCTOR_P (fndecl)
15664 && !DECL_DESTRUCTOR_P (fndecl)
15665 && targetm.warn_func_return (fndecl))
15667 warning (OPT_Wreturn_type,
15668 "no return statement in function returning non-void");
15669 TREE_NO_WARNING (fndecl) = 1;
15672 /* Store the end of the function, so that we get good line number
15673 info for the epilogue. */
15674 cfun->function_end_locus = input_location;
15676 /* Complain about parameters that are only set, but never otherwise used. */
15677 if (warn_unused_but_set_parameter
15678 && !processing_template_decl
15679 && errorcount == unused_but_set_errorcount
15680 && !DECL_CLONED_FUNCTION_P (fndecl))
15682 tree decl;
15684 for (decl = DECL_ARGUMENTS (fndecl);
15685 decl;
15686 decl = DECL_CHAIN (decl))
15687 if (TREE_USED (decl)
15688 && TREE_CODE (decl) == PARM_DECL
15689 && !DECL_READ_P (decl)
15690 && DECL_NAME (decl)
15691 && !DECL_ARTIFICIAL (decl)
15692 && !TREE_NO_WARNING (decl)
15693 && !DECL_IN_SYSTEM_HEADER (decl)
15694 && TREE_TYPE (decl) != error_mark_node
15695 && TREE_CODE (TREE_TYPE (decl)) != REFERENCE_TYPE
15696 && (!CLASS_TYPE_P (TREE_TYPE (decl))
15697 || !TYPE_HAS_NONTRIVIAL_DESTRUCTOR (TREE_TYPE (decl))))
15698 warning_at (DECL_SOURCE_LOCATION (decl),
15699 OPT_Wunused_but_set_parameter,
15700 "parameter %qD set but not used", decl);
15701 unused_but_set_errorcount = errorcount;
15704 /* Complain about locally defined typedefs that are not used in this
15705 function. */
15706 maybe_warn_unused_local_typedefs ();
15708 /* Possibly warn about unused parameters. */
15709 if (warn_unused_parameter
15710 && !processing_template_decl
15711 && !DECL_CLONED_FUNCTION_P (fndecl))
15712 do_warn_unused_parameter (fndecl);
15714 /* Genericize before inlining. */
15715 if (!processing_template_decl)
15717 struct language_function *f = DECL_SAVED_FUNCTION_DATA (fndecl);
15718 cp_genericize (fndecl);
15719 /* Clear out the bits we don't need. */
15720 f->x_current_class_ptr = NULL;
15721 f->x_current_class_ref = NULL;
15722 f->x_eh_spec_block = NULL;
15723 f->x_in_charge_parm = NULL;
15724 f->x_vtt_parm = NULL;
15725 f->x_return_value = NULL;
15726 f->bindings = NULL;
15727 f->extern_decl_map = NULL;
15728 f->infinite_loops = NULL;
15730 /* Clear out the bits we don't need. */
15731 local_names = NULL;
15733 /* We're leaving the context of this function, so zap cfun. It's still in
15734 DECL_STRUCT_FUNCTION, and we'll restore it in tree_rest_of_compilation. */
15735 set_cfun (NULL);
15736 current_function_decl = NULL;
15738 /* If this is an in-class inline definition, we may have to pop the
15739 bindings for the template parameters that we added in
15740 maybe_begin_member_template_processing when start_function was
15741 called. */
15742 if (inline_p)
15743 maybe_end_member_template_processing ();
15745 /* Leave the scope of the class. */
15746 if (ctype)
15747 pop_nested_class ();
15749 --function_depth;
15751 /* Clean up. */
15752 current_function_decl = NULL_TREE;
15754 invoke_plugin_callbacks (PLUGIN_FINISH_PARSE_FUNCTION, fndecl);
15755 return fndecl;
15758 /* Create the FUNCTION_DECL for a function definition.
15759 DECLSPECS and DECLARATOR are the parts of the declaration;
15760 they describe the return type and the name of the function,
15761 but twisted together in a fashion that parallels the syntax of C.
15763 This function creates a binding context for the function body
15764 as well as setting up the FUNCTION_DECL in current_function_decl.
15766 Returns a FUNCTION_DECL on success.
15768 If the DECLARATOR is not suitable for a function (it defines a datum
15769 instead), we return 0, which tells yyparse to report a parse error.
15771 May return void_type_node indicating that this method is actually
15772 a friend. See grokfield for more details.
15774 Came here with a `.pushlevel' .
15776 DO NOT MAKE ANY CHANGES TO THIS CODE WITHOUT MAKING CORRESPONDING
15777 CHANGES TO CODE IN `grokfield'. */
15779 tree
15780 grokmethod (cp_decl_specifier_seq *declspecs,
15781 const cp_declarator *declarator, tree attrlist)
15783 tree fndecl = grokdeclarator (declarator, declspecs, MEMFUNCDEF, 0,
15784 &attrlist);
15786 if (fndecl == error_mark_node)
15787 return error_mark_node;
15789 if (fndecl == NULL || TREE_CODE (fndecl) != FUNCTION_DECL)
15791 error ("invalid member function declaration");
15792 return error_mark_node;
15795 if (attrlist)
15796 cplus_decl_attributes (&fndecl, attrlist, 0);
15798 /* Pass friends other than inline friend functions back. */
15799 if (fndecl == void_type_node)
15800 return fndecl;
15802 if (DECL_IN_AGGR_P (fndecl))
15804 if (DECL_CLASS_SCOPE_P (fndecl))
15805 error ("%qD is already defined in class %qT", fndecl,
15806 DECL_CONTEXT (fndecl));
15807 return error_mark_node;
15810 check_template_shadow (fndecl);
15812 if (TREE_PUBLIC (fndecl))
15813 DECL_COMDAT (fndecl) = 1;
15814 DECL_DECLARED_INLINE_P (fndecl) = 1;
15815 DECL_NO_INLINE_WARNING_P (fndecl) = 1;
15817 /* We process method specializations in finish_struct_1. */
15818 if (processing_template_decl && !DECL_TEMPLATE_SPECIALIZATION (fndecl))
15820 fndecl = push_template_decl (fndecl);
15821 if (fndecl == error_mark_node)
15822 return fndecl;
15825 if (! DECL_FRIEND_P (fndecl))
15827 if (DECL_CHAIN (fndecl))
15829 fndecl = copy_node (fndecl);
15830 TREE_CHAIN (fndecl) = NULL_TREE;
15834 cp_finish_decl (fndecl, NULL_TREE, false, NULL_TREE, 0);
15836 DECL_IN_AGGR_P (fndecl) = 1;
15837 return fndecl;
15841 /* VAR is a VAR_DECL. If its type is incomplete, remember VAR so that
15842 we can lay it out later, when and if its type becomes complete.
15844 Also handle constexpr variables where the initializer involves
15845 an unlowered PTRMEM_CST because the class isn't complete yet. */
15847 void
15848 maybe_register_incomplete_var (tree var)
15850 gcc_assert (VAR_P (var));
15852 /* Keep track of variables with incomplete types. */
15853 if (!processing_template_decl && TREE_TYPE (var) != error_mark_node
15854 && DECL_EXTERNAL (var))
15856 tree inner_type = TREE_TYPE (var);
15858 while (TREE_CODE (inner_type) == ARRAY_TYPE)
15859 inner_type = TREE_TYPE (inner_type);
15860 inner_type = TYPE_MAIN_VARIANT (inner_type);
15862 if ((!COMPLETE_TYPE_P (inner_type) && CLASS_TYPE_P (inner_type))
15863 /* RTTI TD entries are created while defining the type_info. */
15864 || (TYPE_LANG_SPECIFIC (inner_type)
15865 && TYPE_BEING_DEFINED (inner_type)))
15867 incomplete_var iv = {var, inner_type};
15868 vec_safe_push (incomplete_vars, iv);
15870 else if (!(DECL_LANG_SPECIFIC (var) && DECL_TEMPLATE_INFO (var))
15871 && decl_constant_var_p (var)
15872 && (TYPE_PTRMEM_P (inner_type) || CLASS_TYPE_P (inner_type)))
15874 /* When the outermost open class is complete we can resolve any
15875 pointers-to-members. */
15876 tree context = outermost_open_class ();
15877 incomplete_var iv = {var, context};
15878 vec_safe_push (incomplete_vars, iv);
15883 /* Called when a class type (given by TYPE) is defined. If there are
15884 any existing VAR_DECLs whose type has been completed by this
15885 declaration, update them now. */
15887 void
15888 complete_vars (tree type)
15890 unsigned ix;
15891 incomplete_var *iv;
15893 for (ix = 0; vec_safe_iterate (incomplete_vars, ix, &iv); )
15895 if (same_type_p (type, iv->incomplete_type))
15897 tree var = iv->decl;
15898 tree type = TREE_TYPE (var);
15900 if (type != error_mark_node
15901 && (TYPE_MAIN_VARIANT (strip_array_types (type))
15902 == iv->incomplete_type))
15904 /* Complete the type of the variable. The VAR_DECL itself
15905 will be laid out in expand_expr. */
15906 complete_type (type);
15907 cp_apply_type_quals_to_decl (cp_type_quals (type), var);
15910 /* Remove this entry from the list. */
15911 incomplete_vars->unordered_remove (ix);
15913 else
15914 ix++;
15917 /* Check for pending declarations which may have abstract type. */
15918 complete_type_check_abstract (type);
15921 /* If DECL is of a type which needs a cleanup, build and return an
15922 expression to perform that cleanup here. Return NULL_TREE if no
15923 cleanup need be done. DECL can also be a _REF when called from
15924 split_nonconstant_init_1. */
15926 tree
15927 cxx_maybe_build_cleanup (tree decl, tsubst_flags_t complain)
15929 tree type;
15930 tree attr;
15931 tree cleanup;
15933 /* Assume no cleanup is required. */
15934 cleanup = NULL_TREE;
15936 if (error_operand_p (decl))
15937 return cleanup;
15939 /* Handle "__attribute__((cleanup))". We run the cleanup function
15940 before the destructor since the destructor is what actually
15941 terminates the lifetime of the object. */
15942 if (DECL_P (decl))
15943 attr = lookup_attribute ("cleanup", DECL_ATTRIBUTES (decl));
15944 else
15945 attr = NULL_TREE;
15946 if (attr)
15948 tree id;
15949 tree fn;
15950 tree arg;
15952 /* Get the name specified by the user for the cleanup function. */
15953 id = TREE_VALUE (TREE_VALUE (attr));
15954 /* Look up the name to find the cleanup function to call. It is
15955 important to use lookup_name here because that is what is
15956 used in c-common.c:handle_cleanup_attribute when performing
15957 initial checks on the attribute. Note that those checks
15958 include ensuring that the function found is not an overloaded
15959 function, or an object with an overloaded call operator,
15960 etc.; we can rely on the fact that the function found is an
15961 ordinary FUNCTION_DECL. */
15962 fn = lookup_name (id);
15963 arg = build_address (decl);
15964 if (!mark_used (decl, complain) && !(complain & tf_error))
15965 return error_mark_node;
15966 cleanup = cp_build_function_call_nary (fn, complain, arg, NULL_TREE);
15967 if (cleanup == error_mark_node)
15968 return error_mark_node;
15970 /* Handle ordinary C++ destructors. */
15971 type = TREE_TYPE (decl);
15972 if (type_build_dtor_call (type))
15974 int flags = LOOKUP_NORMAL|LOOKUP_NONVIRTUAL|LOOKUP_DESTRUCTOR;
15975 tree addr;
15976 tree call;
15978 if (TREE_CODE (type) == ARRAY_TYPE)
15979 addr = decl;
15980 else
15981 addr = build_address (decl);
15983 call = build_delete (TREE_TYPE (addr), addr,
15984 sfk_complete_destructor, flags, 0, complain);
15985 if (call == error_mark_node)
15986 cleanup = error_mark_node;
15987 else if (TYPE_HAS_TRIVIAL_DESTRUCTOR (type))
15988 /* Discard the call. */;
15989 else if (cleanup)
15990 cleanup = cp_build_compound_expr (cleanup, call, complain);
15991 else
15992 cleanup = call;
15995 /* build_delete sets the location of the destructor call to the
15996 current location, even though the destructor is going to be
15997 called later, at the end of the current scope. This can lead to
15998 a "jumpy" behavior for users of debuggers when they step around
15999 the end of the block. So let's unset the location of the
16000 destructor call instead. */
16001 protected_set_expr_location (cleanup, UNKNOWN_LOCATION);
16003 if (cleanup
16004 && DECL_P (decl)
16005 && !lookup_attribute ("warn_unused", TYPE_ATTRIBUTES (TREE_TYPE (decl)))
16006 /* Treat objects with destructors as used; the destructor may do
16007 something substantive. */
16008 && !mark_used (decl, complain) && !(complain & tf_error))
16009 return error_mark_node;
16011 return cleanup;
16015 /* Return the FUNCTION_TYPE that corresponds to MEMFNTYPE, which can be a
16016 FUNCTION_DECL, METHOD_TYPE, FUNCTION_TYPE, pointer or reference to
16017 METHOD_TYPE or FUNCTION_TYPE, or pointer to member function. */
16019 tree
16020 static_fn_type (tree memfntype)
16022 tree fntype;
16023 tree args;
16025 if (TYPE_PTRMEMFUNC_P (memfntype))
16026 memfntype = TYPE_PTRMEMFUNC_FN_TYPE (memfntype);
16027 if (POINTER_TYPE_P (memfntype)
16028 || TREE_CODE (memfntype) == FUNCTION_DECL)
16029 memfntype = TREE_TYPE (memfntype);
16030 if (TREE_CODE (memfntype) == FUNCTION_TYPE)
16031 return memfntype;
16032 gcc_assert (TREE_CODE (memfntype) == METHOD_TYPE);
16033 args = TYPE_ARG_TYPES (memfntype);
16034 cp_ref_qualifier rqual = type_memfn_rqual (memfntype);
16035 fntype = build_function_type (TREE_TYPE (memfntype), TREE_CHAIN (args));
16036 fntype = apply_memfn_quals (fntype, type_memfn_quals (memfntype), rqual);
16037 fntype = (cp_build_type_attribute_variant
16038 (fntype, TYPE_ATTRIBUTES (memfntype)));
16039 fntype = (build_exception_variant
16040 (fntype, TYPE_RAISES_EXCEPTIONS (memfntype)));
16041 if (TYPE_HAS_LATE_RETURN_TYPE (memfntype))
16042 TYPE_HAS_LATE_RETURN_TYPE (fntype) = 1;
16043 return fntype;
16046 /* DECL was originally constructed as a non-static member function,
16047 but turned out to be static. Update it accordingly. */
16049 void
16050 revert_static_member_fn (tree decl)
16052 tree stype = static_fn_type (decl);
16053 cp_cv_quals quals = type_memfn_quals (stype);
16054 cp_ref_qualifier rqual = type_memfn_rqual (stype);
16056 if (quals != TYPE_UNQUALIFIED || rqual != REF_QUAL_NONE)
16057 stype = apply_memfn_quals (stype, TYPE_UNQUALIFIED, REF_QUAL_NONE);
16059 TREE_TYPE (decl) = stype;
16061 if (DECL_ARGUMENTS (decl))
16062 DECL_ARGUMENTS (decl) = DECL_CHAIN (DECL_ARGUMENTS (decl));
16063 DECL_STATIC_FUNCTION_P (decl) = 1;
16066 /* Return which tree structure is used by T, or TS_CP_GENERIC if T is
16067 one of the language-independent trees. */
16069 enum cp_tree_node_structure_enum
16070 cp_tree_node_structure (union lang_tree_node * t)
16072 switch (TREE_CODE (&t->generic))
16074 case DEFAULT_ARG: return TS_CP_DEFAULT_ARG;
16075 case DEFERRED_NOEXCEPT: return TS_CP_DEFERRED_NOEXCEPT;
16076 case IDENTIFIER_NODE: return TS_CP_IDENTIFIER;
16077 case OVERLOAD: return TS_CP_OVERLOAD;
16078 case TEMPLATE_PARM_INDEX: return TS_CP_TPI;
16079 case PTRMEM_CST: return TS_CP_PTRMEM;
16080 case BASELINK: return TS_CP_BASELINK;
16081 case TEMPLATE_DECL: return TS_CP_TEMPLATE_DECL;
16082 case STATIC_ASSERT: return TS_CP_STATIC_ASSERT;
16083 case ARGUMENT_PACK_SELECT: return TS_CP_ARGUMENT_PACK_SELECT;
16084 case TRAIT_EXPR: return TS_CP_TRAIT_EXPR;
16085 case LAMBDA_EXPR: return TS_CP_LAMBDA_EXPR;
16086 case TEMPLATE_INFO: return TS_CP_TEMPLATE_INFO;
16087 case CONSTRAINT_INFO: return TS_CP_CONSTRAINT_INFO;
16088 case USERDEF_LITERAL: return TS_CP_USERDEF_LITERAL;
16089 default: return TS_CP_GENERIC;
16093 /* Build the void_list_node (void_type_node having been created). */
16094 tree
16095 build_void_list_node (void)
16097 tree t = build_tree_list (NULL_TREE, void_type_node);
16098 return t;
16101 bool
16102 cp_missing_noreturn_ok_p (tree decl)
16104 /* A missing noreturn is ok for the `main' function. */
16105 return DECL_MAIN_P (decl);
16108 /* Return the decl used to identify the COMDAT group into which DECL should
16109 be placed. */
16111 tree
16112 cxx_comdat_group (tree decl)
16114 /* Virtual tables, construction virtual tables, and virtual table
16115 tables all go in a single COMDAT group, named after the primary
16116 virtual table. */
16117 if (VAR_P (decl) && DECL_VTABLE_OR_VTT_P (decl))
16118 decl = CLASSTYPE_VTABLES (DECL_CONTEXT (decl));
16119 /* For all other DECLs, the COMDAT group is the mangled name of the
16120 declaration itself. */
16121 else
16123 while (DECL_THUNK_P (decl))
16125 /* If TARGET_USE_LOCAL_THUNK_ALIAS_P, use_thunk puts the thunk
16126 into the same section as the target function. In that case
16127 we must return target's name. */
16128 tree target = THUNK_TARGET (decl);
16129 if (TARGET_USE_LOCAL_THUNK_ALIAS_P (target)
16130 && DECL_SECTION_NAME (target) != NULL
16131 && DECL_ONE_ONLY (target))
16132 decl = target;
16133 else
16134 break;
16138 return decl;
16141 /* Returns the return type for FN as written by the user, which may include
16142 a placeholder for a deduced return type. */
16144 tree
16145 fndecl_declared_return_type (tree fn)
16147 fn = STRIP_TEMPLATE (fn);
16148 if (FNDECL_USED_AUTO (fn))
16150 struct language_function *f = NULL;
16151 if (DECL_STRUCT_FUNCTION (fn))
16152 f = DECL_STRUCT_FUNCTION (fn)->language;
16153 if (f == NULL)
16154 f = DECL_SAVED_FUNCTION_DATA (fn);
16155 return f->x_auto_return_pattern;
16157 return TREE_TYPE (TREE_TYPE (fn));
16160 /* Returns true iff DECL was declared with an auto type and it has
16161 not yet been deduced to a real type. */
16163 bool
16164 undeduced_auto_decl (tree decl)
16166 if (cxx_dialect < cxx11)
16167 return false;
16168 return type_uses_auto (TREE_TYPE (decl));
16171 /* Complain if DECL has an undeduced return type. */
16173 bool
16174 require_deduced_type (tree decl, tsubst_flags_t complain)
16176 if (undeduced_auto_decl (decl))
16178 if (complain & tf_error)
16179 error ("use of %qD before deduction of %<auto%>", decl);
16180 return false;
16182 return true;
16185 #include "gt-cp-decl.h"