PR tree-optimization/85699
[official-gcc.git] / gcc / cp / pt.c
blob180dfd6861c1c910e01cb12b2291d3be880da056
1 /* Handle parameterized types (templates) for GNU -*- C++ -*-.
2 Copyright (C) 1992-2018 Free Software Foundation, Inc.
3 Written by Ken Raeburn (raeburn@cygnus.com) while at Watchmaker Computing.
4 Rewritten by Jason Merrill (jason@cygnus.com).
6 This file is part of GCC.
8 GCC is free software; you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation; either version 3, or (at your option)
11 any later version.
13 GCC is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with GCC; see the file COPYING3. If not see
20 <http://www.gnu.org/licenses/>. */
22 /* Known bugs or deficiencies include:
24 all methods must be provided in header files; can't use a source
25 file that contains only the method templates and "just win". */
27 #include "config.h"
28 #include "system.h"
29 #include "coretypes.h"
30 #include "cp-tree.h"
31 #include "timevar.h"
32 #include "stringpool.h"
33 #include "varasm.h"
34 #include "attribs.h"
35 #include "stor-layout.h"
36 #include "intl.h"
37 #include "c-family/c-objc.h"
38 #include "cp-objcp-common.h"
39 #include "toplev.h"
40 #include "tree-iterator.h"
41 #include "type-utils.h"
42 #include "gimplify.h"
43 #include "gcc-rich-location.h"
44 #include "selftest.h"
46 /* The type of functions taking a tree, and some additional data, and
47 returning an int. */
48 typedef int (*tree_fn_t) (tree, void*);
50 /* The PENDING_TEMPLATES is a TREE_LIST of templates whose
51 instantiations have been deferred, either because their definitions
52 were not yet available, or because we were putting off doing the work. */
53 struct GTY ((chain_next ("%h.next"))) pending_template
55 struct pending_template *next;
56 struct tinst_level *tinst;
59 static GTY(()) struct pending_template *pending_templates;
60 static GTY(()) struct pending_template *last_pending_template;
62 int processing_template_parmlist;
63 static int template_header_count;
65 static GTY(()) tree saved_trees;
66 static vec<int> inline_parm_levels;
68 static GTY(()) struct tinst_level *current_tinst_level;
70 static GTY(()) tree saved_access_scope;
72 /* Live only within one (recursive) call to tsubst_expr. We use
73 this to pass the statement expression node from the STMT_EXPR
74 to the EXPR_STMT that is its result. */
75 static tree cur_stmt_expr;
77 // -------------------------------------------------------------------------- //
78 // Local Specialization Stack
80 // Implementation of the RAII helper for creating new local
81 // specializations.
82 local_specialization_stack::local_specialization_stack (lss_policy policy)
83 : saved (local_specializations)
85 if (policy == lss_blank || !saved)
86 local_specializations = new hash_map<tree, tree>;
87 else
88 local_specializations = new hash_map<tree, tree>(*saved);
91 local_specialization_stack::~local_specialization_stack ()
93 delete local_specializations;
94 local_specializations = saved;
97 /* True if we've recursed into fn_type_unification too many times. */
98 static bool excessive_deduction_depth;
100 struct GTY((for_user)) spec_entry
102 tree tmpl;
103 tree args;
104 tree spec;
107 struct spec_hasher : ggc_ptr_hash<spec_entry>
109 static hashval_t hash (spec_entry *);
110 static bool equal (spec_entry *, spec_entry *);
113 static GTY (()) hash_table<spec_hasher> *decl_specializations;
115 static GTY (()) hash_table<spec_hasher> *type_specializations;
117 /* Contains canonical template parameter types. The vector is indexed by
118 the TEMPLATE_TYPE_IDX of the template parameter. Each element is a
119 TREE_LIST, whose TREE_VALUEs contain the canonical template
120 parameters of various types and levels. */
121 static GTY(()) vec<tree, va_gc> *canonical_template_parms;
123 #define UNIFY_ALLOW_NONE 0
124 #define UNIFY_ALLOW_MORE_CV_QUAL 1
125 #define UNIFY_ALLOW_LESS_CV_QUAL 2
126 #define UNIFY_ALLOW_DERIVED 4
127 #define UNIFY_ALLOW_INTEGER 8
128 #define UNIFY_ALLOW_OUTER_LEVEL 16
129 #define UNIFY_ALLOW_OUTER_MORE_CV_QUAL 32
130 #define UNIFY_ALLOW_OUTER_LESS_CV_QUAL 64
132 enum template_base_result {
133 tbr_incomplete_type,
134 tbr_ambiguous_baseclass,
135 tbr_success
138 static void push_access_scope (tree);
139 static void pop_access_scope (tree);
140 static bool resolve_overloaded_unification (tree, tree, tree, tree,
141 unification_kind_t, int,
142 bool);
143 static int try_one_overload (tree, tree, tree, tree, tree,
144 unification_kind_t, int, bool, bool);
145 static int unify (tree, tree, tree, tree, int, bool);
146 static void add_pending_template (tree);
147 static tree reopen_tinst_level (struct tinst_level *);
148 static tree tsubst_initializer_list (tree, tree);
149 static tree get_partial_spec_bindings (tree, tree, tree);
150 static tree coerce_template_parms (tree, tree, tree, tsubst_flags_t,
151 bool, bool);
152 static tree coerce_innermost_template_parms (tree, tree, tree, tsubst_flags_t,
153 bool, bool);
154 static void tsubst_enum (tree, tree, tree);
155 static tree add_to_template_args (tree, tree);
156 static tree add_outermost_template_args (tree, tree);
157 static bool check_instantiated_args (tree, tree, tsubst_flags_t);
158 static int maybe_adjust_types_for_deduction (unification_kind_t, tree*, tree*,
159 tree);
160 static int type_unification_real (tree, tree, tree, const tree *,
161 unsigned int, int, unification_kind_t, int,
162 vec<deferred_access_check, va_gc> **,
163 bool);
164 static void note_template_header (int);
165 static tree convert_nontype_argument_function (tree, tree, tsubst_flags_t);
166 static tree convert_nontype_argument (tree, tree, tsubst_flags_t);
167 static tree convert_template_argument (tree, tree, tree,
168 tsubst_flags_t, int, tree);
169 static tree for_each_template_parm (tree, tree_fn_t, void*,
170 hash_set<tree> *, bool, tree_fn_t = NULL);
171 static tree expand_template_argument_pack (tree);
172 static tree build_template_parm_index (int, int, int, tree, tree);
173 static bool inline_needs_template_parms (tree, bool);
174 static void push_inline_template_parms_recursive (tree, int);
175 static tree reduce_template_parm_level (tree, tree, int, tree, tsubst_flags_t);
176 static int mark_template_parm (tree, void *);
177 static int template_parm_this_level_p (tree, void *);
178 static tree tsubst_friend_function (tree, tree);
179 static tree tsubst_friend_class (tree, tree);
180 static int can_complete_type_without_circularity (tree);
181 static tree get_bindings (tree, tree, tree, bool);
182 static int template_decl_level (tree);
183 static int check_cv_quals_for_unify (int, tree, tree);
184 static void template_parm_level_and_index (tree, int*, int*);
185 static int unify_pack_expansion (tree, tree, tree,
186 tree, unification_kind_t, bool, bool);
187 static tree copy_template_args (tree);
188 static tree tsubst_template_arg (tree, tree, tsubst_flags_t, tree);
189 static tree tsubst_template_args (tree, tree, tsubst_flags_t, tree);
190 static tree tsubst_template_parms (tree, tree, tsubst_flags_t);
191 static tree most_specialized_partial_spec (tree, tsubst_flags_t);
192 static tree tsubst_aggr_type (tree, tree, tsubst_flags_t, tree, int);
193 static tree tsubst_arg_types (tree, tree, tree, tsubst_flags_t, tree);
194 static tree tsubst_function_type (tree, tree, tsubst_flags_t, tree);
195 static bool check_specialization_scope (void);
196 static tree process_partial_specialization (tree);
197 static void set_current_access_from_decl (tree);
198 static enum template_base_result get_template_base (tree, tree, tree, tree,
199 bool , tree *);
200 static tree try_class_unification (tree, tree, tree, tree, bool);
201 static int coerce_template_template_parms (tree, tree, tsubst_flags_t,
202 tree, tree);
203 static bool template_template_parm_bindings_ok_p (tree, tree);
204 static void tsubst_default_arguments (tree, tsubst_flags_t);
205 static tree for_each_template_parm_r (tree *, int *, void *);
206 static tree copy_default_args_to_explicit_spec_1 (tree, tree);
207 static void copy_default_args_to_explicit_spec (tree);
208 static bool invalid_nontype_parm_type_p (tree, tsubst_flags_t);
209 static bool dependent_template_arg_p (tree);
210 static bool any_template_arguments_need_structural_equality_p (tree);
211 static bool dependent_type_p_r (tree);
212 static tree tsubst_copy (tree, tree, tsubst_flags_t, tree);
213 static tree tsubst_decl (tree, tree, tsubst_flags_t);
214 static void perform_typedefs_access_check (tree tmpl, tree targs);
215 static void append_type_to_template_for_access_check_1 (tree, tree, tree,
216 location_t);
217 static tree listify (tree);
218 static tree listify_autos (tree, tree);
219 static tree tsubst_template_parm (tree, tree, tsubst_flags_t);
220 static tree instantiate_alias_template (tree, tree, tsubst_flags_t);
221 static bool complex_alias_template_p (const_tree tmpl);
222 static tree tsubst_attributes (tree, tree, tsubst_flags_t, tree);
223 static tree canonicalize_expr_argument (tree, tsubst_flags_t);
224 static tree make_argument_pack (tree);
225 static void register_parameter_specializations (tree, tree);
226 static tree enclosing_instantiation_of (tree tctx);
228 /* Make the current scope suitable for access checking when we are
229 processing T. T can be FUNCTION_DECL for instantiated function
230 template, VAR_DECL for static member variable, or TYPE_DECL for
231 alias template (needed by instantiate_decl). */
233 static void
234 push_access_scope (tree t)
236 gcc_assert (VAR_OR_FUNCTION_DECL_P (t)
237 || TREE_CODE (t) == TYPE_DECL);
239 if (DECL_FRIEND_CONTEXT (t))
240 push_nested_class (DECL_FRIEND_CONTEXT (t));
241 else if (DECL_CLASS_SCOPE_P (t))
242 push_nested_class (DECL_CONTEXT (t));
243 else
244 push_to_top_level ();
246 if (TREE_CODE (t) == FUNCTION_DECL)
248 saved_access_scope = tree_cons
249 (NULL_TREE, current_function_decl, saved_access_scope);
250 current_function_decl = t;
254 /* Restore the scope set up by push_access_scope. T is the node we
255 are processing. */
257 static void
258 pop_access_scope (tree t)
260 if (TREE_CODE (t) == FUNCTION_DECL)
262 current_function_decl = TREE_VALUE (saved_access_scope);
263 saved_access_scope = TREE_CHAIN (saved_access_scope);
266 if (DECL_FRIEND_CONTEXT (t) || DECL_CLASS_SCOPE_P (t))
267 pop_nested_class ();
268 else
269 pop_from_top_level ();
272 /* Do any processing required when DECL (a member template
273 declaration) is finished. Returns the TEMPLATE_DECL corresponding
274 to DECL, unless it is a specialization, in which case the DECL
275 itself is returned. */
277 tree
278 finish_member_template_decl (tree decl)
280 if (decl == error_mark_node)
281 return error_mark_node;
283 gcc_assert (DECL_P (decl));
285 if (TREE_CODE (decl) == TYPE_DECL)
287 tree type;
289 type = TREE_TYPE (decl);
290 if (type == error_mark_node)
291 return error_mark_node;
292 if (MAYBE_CLASS_TYPE_P (type)
293 && CLASSTYPE_TEMPLATE_INFO (type)
294 && !CLASSTYPE_TEMPLATE_SPECIALIZATION (type))
296 tree tmpl = CLASSTYPE_TI_TEMPLATE (type);
297 check_member_template (tmpl);
298 return tmpl;
300 return NULL_TREE;
302 else if (TREE_CODE (decl) == FIELD_DECL)
303 error ("data member %qD cannot be a member template", decl);
304 else if (DECL_TEMPLATE_INFO (decl))
306 if (!DECL_TEMPLATE_SPECIALIZATION (decl))
308 check_member_template (DECL_TI_TEMPLATE (decl));
309 return DECL_TI_TEMPLATE (decl);
311 else
312 return decl;
314 else
315 error ("invalid member template declaration %qD", decl);
317 return error_mark_node;
320 /* Create a template info node. */
322 tree
323 build_template_info (tree template_decl, tree template_args)
325 tree result = make_node (TEMPLATE_INFO);
326 TI_TEMPLATE (result) = template_decl;
327 TI_ARGS (result) = template_args;
328 return result;
331 /* Return the template info node corresponding to T, whatever T is. */
333 tree
334 get_template_info (const_tree t)
336 tree tinfo = NULL_TREE;
338 if (!t || t == error_mark_node)
339 return NULL;
341 if (TREE_CODE (t) == NAMESPACE_DECL
342 || TREE_CODE (t) == PARM_DECL)
343 return NULL;
345 if (DECL_P (t) && DECL_LANG_SPECIFIC (t))
346 tinfo = DECL_TEMPLATE_INFO (t);
348 if (!tinfo && DECL_IMPLICIT_TYPEDEF_P (t))
349 t = TREE_TYPE (t);
351 if (OVERLOAD_TYPE_P (t))
352 tinfo = TYPE_TEMPLATE_INFO (t);
353 else if (TREE_CODE (t) == BOUND_TEMPLATE_TEMPLATE_PARM)
354 tinfo = TEMPLATE_TEMPLATE_PARM_TEMPLATE_INFO (t);
356 return tinfo;
359 /* Returns the template nesting level of the indicated class TYPE.
361 For example, in:
362 template <class T>
363 struct A
365 template <class U>
366 struct B {};
369 A<T>::B<U> has depth two, while A<T> has depth one.
370 Both A<T>::B<int> and A<int>::B<U> have depth one, if
371 they are instantiations, not specializations.
373 This function is guaranteed to return 0 if passed NULL_TREE so
374 that, for example, `template_class_depth (current_class_type)' is
375 always safe. */
378 template_class_depth (tree type)
380 int depth;
382 for (depth = 0; type && TREE_CODE (type) != NAMESPACE_DECL; )
384 tree tinfo = get_template_info (type);
386 if (tinfo && PRIMARY_TEMPLATE_P (TI_TEMPLATE (tinfo))
387 && uses_template_parms (INNERMOST_TEMPLATE_ARGS (TI_ARGS (tinfo))))
388 ++depth;
390 if (DECL_P (type))
391 type = CP_DECL_CONTEXT (type);
392 else if (LAMBDA_TYPE_P (type))
393 type = LAMBDA_TYPE_EXTRA_SCOPE (type);
394 else
395 type = CP_TYPE_CONTEXT (type);
398 return depth;
401 /* Subroutine of maybe_begin_member_template_processing.
402 Returns true if processing DECL needs us to push template parms. */
404 static bool
405 inline_needs_template_parms (tree decl, bool nsdmi)
407 if (!decl || (!nsdmi && ! DECL_TEMPLATE_INFO (decl)))
408 return false;
410 return (TMPL_PARMS_DEPTH (DECL_TEMPLATE_PARMS (most_general_template (decl)))
411 > (processing_template_decl + DECL_TEMPLATE_SPECIALIZATION (decl)));
414 /* Subroutine of maybe_begin_member_template_processing.
415 Push the template parms in PARMS, starting from LEVELS steps into the
416 chain, and ending at the beginning, since template parms are listed
417 innermost first. */
419 static void
420 push_inline_template_parms_recursive (tree parmlist, int levels)
422 tree parms = TREE_VALUE (parmlist);
423 int i;
425 if (levels > 1)
426 push_inline_template_parms_recursive (TREE_CHAIN (parmlist), levels - 1);
428 ++processing_template_decl;
429 current_template_parms
430 = tree_cons (size_int (processing_template_decl),
431 parms, current_template_parms);
432 TEMPLATE_PARMS_FOR_INLINE (current_template_parms) = 1;
434 begin_scope (TREE_VEC_LENGTH (parms) ? sk_template_parms : sk_template_spec,
435 NULL);
436 for (i = 0; i < TREE_VEC_LENGTH (parms); ++i)
438 tree parm = TREE_VALUE (TREE_VEC_ELT (parms, i));
440 if (error_operand_p (parm))
441 continue;
443 gcc_assert (DECL_P (parm));
445 switch (TREE_CODE (parm))
447 case TYPE_DECL:
448 case TEMPLATE_DECL:
449 pushdecl (parm);
450 break;
452 case PARM_DECL:
453 /* Push the CONST_DECL. */
454 pushdecl (TEMPLATE_PARM_DECL (DECL_INITIAL (parm)));
455 break;
457 default:
458 gcc_unreachable ();
463 /* Restore the template parameter context for a member template, a
464 friend template defined in a class definition, or a non-template
465 member of template class. */
467 void
468 maybe_begin_member_template_processing (tree decl)
470 tree parms;
471 int levels = 0;
472 bool nsdmi = TREE_CODE (decl) == FIELD_DECL;
474 if (nsdmi)
476 tree ctx = DECL_CONTEXT (decl);
477 decl = (CLASSTYPE_TEMPLATE_INFO (ctx)
478 /* Disregard full specializations (c++/60999). */
479 && uses_template_parms (ctx)
480 ? CLASSTYPE_TI_TEMPLATE (ctx) : NULL_TREE);
483 if (inline_needs_template_parms (decl, nsdmi))
485 parms = DECL_TEMPLATE_PARMS (most_general_template (decl));
486 levels = TMPL_PARMS_DEPTH (parms) - processing_template_decl;
488 if (DECL_TEMPLATE_SPECIALIZATION (decl))
490 --levels;
491 parms = TREE_CHAIN (parms);
494 push_inline_template_parms_recursive (parms, levels);
497 /* Remember how many levels of template parameters we pushed so that
498 we can pop them later. */
499 inline_parm_levels.safe_push (levels);
502 /* Undo the effects of maybe_begin_member_template_processing. */
504 void
505 maybe_end_member_template_processing (void)
507 int i;
508 int last;
510 if (inline_parm_levels.length () == 0)
511 return;
513 last = inline_parm_levels.pop ();
514 for (i = 0; i < last; ++i)
516 --processing_template_decl;
517 current_template_parms = TREE_CHAIN (current_template_parms);
518 poplevel (0, 0, 0);
522 /* Return a new template argument vector which contains all of ARGS,
523 but has as its innermost set of arguments the EXTRA_ARGS. */
525 static tree
526 add_to_template_args (tree args, tree extra_args)
528 tree new_args;
529 int extra_depth;
530 int i;
531 int j;
533 if (args == NULL_TREE || extra_args == error_mark_node)
534 return extra_args;
536 extra_depth = TMPL_ARGS_DEPTH (extra_args);
537 new_args = make_tree_vec (TMPL_ARGS_DEPTH (args) + extra_depth);
539 for (i = 1; i <= TMPL_ARGS_DEPTH (args); ++i)
540 SET_TMPL_ARGS_LEVEL (new_args, i, TMPL_ARGS_LEVEL (args, i));
542 for (j = 1; j <= extra_depth; ++j, ++i)
543 SET_TMPL_ARGS_LEVEL (new_args, i, TMPL_ARGS_LEVEL (extra_args, j));
545 return new_args;
548 /* Like add_to_template_args, but only the outermost ARGS are added to
549 the EXTRA_ARGS. In particular, all but TMPL_ARGS_DEPTH
550 (EXTRA_ARGS) levels are added. This function is used to combine
551 the template arguments from a partial instantiation with the
552 template arguments used to attain the full instantiation from the
553 partial instantiation. */
555 static tree
556 add_outermost_template_args (tree args, tree extra_args)
558 tree new_args;
560 /* If there are more levels of EXTRA_ARGS than there are ARGS,
561 something very fishy is going on. */
562 gcc_assert (TMPL_ARGS_DEPTH (args) >= TMPL_ARGS_DEPTH (extra_args));
564 /* If *all* the new arguments will be the EXTRA_ARGS, just return
565 them. */
566 if (TMPL_ARGS_DEPTH (args) == TMPL_ARGS_DEPTH (extra_args))
567 return extra_args;
569 /* For the moment, we make ARGS look like it contains fewer levels. */
570 TREE_VEC_LENGTH (args) -= TMPL_ARGS_DEPTH (extra_args);
572 new_args = add_to_template_args (args, extra_args);
574 /* Now, we restore ARGS to its full dimensions. */
575 TREE_VEC_LENGTH (args) += TMPL_ARGS_DEPTH (extra_args);
577 return new_args;
580 /* Return the N levels of innermost template arguments from the ARGS. */
582 tree
583 get_innermost_template_args (tree args, int n)
585 tree new_args;
586 int extra_levels;
587 int i;
589 gcc_assert (n >= 0);
591 /* If N is 1, just return the innermost set of template arguments. */
592 if (n == 1)
593 return TMPL_ARGS_LEVEL (args, TMPL_ARGS_DEPTH (args));
595 /* If we're not removing anything, just return the arguments we were
596 given. */
597 extra_levels = TMPL_ARGS_DEPTH (args) - n;
598 gcc_assert (extra_levels >= 0);
599 if (extra_levels == 0)
600 return args;
602 /* Make a new set of arguments, not containing the outer arguments. */
603 new_args = make_tree_vec (n);
604 for (i = 1; i <= n; ++i)
605 SET_TMPL_ARGS_LEVEL (new_args, i,
606 TMPL_ARGS_LEVEL (args, i + extra_levels));
608 return new_args;
611 /* The inverse of get_innermost_template_args: Return all but the innermost
612 EXTRA_LEVELS levels of template arguments from the ARGS. */
614 static tree
615 strip_innermost_template_args (tree args, int extra_levels)
617 tree new_args;
618 int n = TMPL_ARGS_DEPTH (args) - extra_levels;
619 int i;
621 gcc_assert (n >= 0);
623 /* If N is 1, just return the outermost set of template arguments. */
624 if (n == 1)
625 return TMPL_ARGS_LEVEL (args, 1);
627 /* If we're not removing anything, just return the arguments we were
628 given. */
629 gcc_assert (extra_levels >= 0);
630 if (extra_levels == 0)
631 return args;
633 /* Make a new set of arguments, not containing the inner arguments. */
634 new_args = make_tree_vec (n);
635 for (i = 1; i <= n; ++i)
636 SET_TMPL_ARGS_LEVEL (new_args, i,
637 TMPL_ARGS_LEVEL (args, i));
639 return new_args;
642 /* We've got a template header coming up; push to a new level for storing
643 the parms. */
645 void
646 begin_template_parm_list (void)
648 /* We use a non-tag-transparent scope here, which causes pushtag to
649 put tags in this scope, rather than in the enclosing class or
650 namespace scope. This is the right thing, since we want
651 TEMPLATE_DECLS, and not TYPE_DECLS for template classes. For a
652 global template class, push_template_decl handles putting the
653 TEMPLATE_DECL into top-level scope. For a nested template class,
654 e.g.:
656 template <class T> struct S1 {
657 template <class T> struct S2 {};
660 pushtag contains special code to insert the TEMPLATE_DECL for S2
661 at the right scope. */
662 begin_scope (sk_template_parms, NULL);
663 ++processing_template_decl;
664 ++processing_template_parmlist;
665 note_template_header (0);
667 /* Add a dummy parameter level while we process the parameter list. */
668 current_template_parms
669 = tree_cons (size_int (processing_template_decl),
670 make_tree_vec (0),
671 current_template_parms);
674 /* This routine is called when a specialization is declared. If it is
675 invalid to declare a specialization here, an error is reported and
676 false is returned, otherwise this routine will return true. */
678 static bool
679 check_specialization_scope (void)
681 tree scope = current_scope ();
683 /* [temp.expl.spec]
685 An explicit specialization shall be declared in the namespace of
686 which the template is a member, or, for member templates, in the
687 namespace of which the enclosing class or enclosing class
688 template is a member. An explicit specialization of a member
689 function, member class or static data member of a class template
690 shall be declared in the namespace of which the class template
691 is a member. */
692 if (scope && TREE_CODE (scope) != NAMESPACE_DECL)
694 error ("explicit specialization in non-namespace scope %qD", scope);
695 return false;
698 /* [temp.expl.spec]
700 In an explicit specialization declaration for a member of a class
701 template or a member template that appears in namespace scope,
702 the member template and some of its enclosing class templates may
703 remain unspecialized, except that the declaration shall not
704 explicitly specialize a class member template if its enclosing
705 class templates are not explicitly specialized as well. */
706 if (current_template_parms)
708 error ("enclosing class templates are not explicitly specialized");
709 return false;
712 return true;
715 /* We've just seen template <>. */
717 bool
718 begin_specialization (void)
720 begin_scope (sk_template_spec, NULL);
721 note_template_header (1);
722 return check_specialization_scope ();
725 /* Called at then end of processing a declaration preceded by
726 template<>. */
728 void
729 end_specialization (void)
731 finish_scope ();
732 reset_specialization ();
735 /* Any template <>'s that we have seen thus far are not referring to a
736 function specialization. */
738 void
739 reset_specialization (void)
741 processing_specialization = 0;
742 template_header_count = 0;
745 /* We've just seen a template header. If SPECIALIZATION is nonzero,
746 it was of the form template <>. */
748 static void
749 note_template_header (int specialization)
751 processing_specialization = specialization;
752 template_header_count++;
755 /* We're beginning an explicit instantiation. */
757 void
758 begin_explicit_instantiation (void)
760 gcc_assert (!processing_explicit_instantiation);
761 processing_explicit_instantiation = true;
765 void
766 end_explicit_instantiation (void)
768 gcc_assert (processing_explicit_instantiation);
769 processing_explicit_instantiation = false;
772 /* An explicit specialization or partial specialization of TMPL is being
773 declared. Check that the namespace in which the specialization is
774 occurring is permissible. Returns false iff it is invalid to
775 specialize TMPL in the current namespace. */
777 static bool
778 check_specialization_namespace (tree tmpl)
780 tree tpl_ns = decl_namespace_context (tmpl);
782 /* [tmpl.expl.spec]
784 An explicit specialization shall be declared in a namespace enclosing the
785 specialized template. An explicit specialization whose declarator-id is
786 not qualified shall be declared in the nearest enclosing namespace of the
787 template, or, if the namespace is inline (7.3.1), any namespace from its
788 enclosing namespace set. */
789 if (current_scope() != DECL_CONTEXT (tmpl)
790 && !at_namespace_scope_p ())
792 error ("specialization of %qD must appear at namespace scope", tmpl);
793 return false;
796 if (is_nested_namespace (current_namespace, tpl_ns, cxx_dialect < cxx11))
797 /* Same or enclosing namespace. */
798 return true;
799 else
801 permerror (input_location,
802 "specialization of %qD in different namespace", tmpl);
803 inform (DECL_SOURCE_LOCATION (tmpl),
804 " from definition of %q#D", tmpl);
805 return false;
809 /* SPEC is an explicit instantiation. Check that it is valid to
810 perform this explicit instantiation in the current namespace. */
812 static void
813 check_explicit_instantiation_namespace (tree spec)
815 tree ns;
817 /* DR 275: An explicit instantiation shall appear in an enclosing
818 namespace of its template. */
819 ns = decl_namespace_context (spec);
820 if (!is_nested_namespace (current_namespace, ns))
821 permerror (input_location, "explicit instantiation of %qD in namespace %qD "
822 "(which does not enclose namespace %qD)",
823 spec, current_namespace, ns);
826 // Returns the type of a template specialization only if that
827 // specialization needs to be defined. Otherwise (e.g., if the type has
828 // already been defined), the function returns NULL_TREE.
829 static tree
830 maybe_new_partial_specialization (tree type)
832 // An implicit instantiation of an incomplete type implies
833 // the definition of a new class template.
835 // template<typename T>
836 // struct S;
838 // template<typename T>
839 // struct S<T*>;
841 // Here, S<T*> is an implicit instantiation of S whose type
842 // is incomplete.
843 if (CLASSTYPE_IMPLICIT_INSTANTIATION (type) && !COMPLETE_TYPE_P (type))
844 return type;
846 // It can also be the case that TYPE is a completed specialization.
847 // Continuing the previous example, suppose we also declare:
849 // template<typename T>
850 // requires Integral<T>
851 // struct S<T*>;
853 // Here, S<T*> refers to the specialization S<T*> defined
854 // above. However, we need to differentiate definitions because
855 // we intend to define a new partial specialization. In this case,
856 // we rely on the fact that the constraints are different for
857 // this declaration than that above.
859 // Note that we also get here for injected class names and
860 // late-parsed template definitions. We must ensure that we
861 // do not create new type declarations for those cases.
862 if (flag_concepts && CLASSTYPE_TEMPLATE_SPECIALIZATION (type))
864 tree tmpl = CLASSTYPE_TI_TEMPLATE (type);
865 tree args = CLASSTYPE_TI_ARGS (type);
867 // If there are no template parameters, this cannot be a new
868 // partial template specializtion?
869 if (!current_template_parms)
870 return NULL_TREE;
872 // The injected-class-name is not a new partial specialization.
873 if (DECL_SELF_REFERENCE_P (TYPE_NAME (type)))
874 return NULL_TREE;
876 // If the constraints are not the same as those of the primary
877 // then, we can probably create a new specialization.
878 tree type_constr = current_template_constraints ();
880 if (type == TREE_TYPE (tmpl))
882 tree main_constr = get_constraints (tmpl);
883 if (equivalent_constraints (type_constr, main_constr))
884 return NULL_TREE;
887 // Also, if there's a pre-existing specialization with matching
888 // constraints, then this also isn't new.
889 tree specs = DECL_TEMPLATE_SPECIALIZATIONS (tmpl);
890 while (specs)
892 tree spec_tmpl = TREE_VALUE (specs);
893 tree spec_args = TREE_PURPOSE (specs);
894 tree spec_constr = get_constraints (spec_tmpl);
895 if (comp_template_args (args, spec_args)
896 && equivalent_constraints (type_constr, spec_constr))
897 return NULL_TREE;
898 specs = TREE_CHAIN (specs);
901 // Create a new type node (and corresponding type decl)
902 // for the newly declared specialization.
903 tree t = make_class_type (TREE_CODE (type));
904 CLASSTYPE_DECLARED_CLASS (t) = CLASSTYPE_DECLARED_CLASS (type);
905 SET_TYPE_TEMPLATE_INFO (t, build_template_info (tmpl, args));
907 /* We only need a separate type node for storing the definition of this
908 partial specialization; uses of S<T*> are unconstrained, so all are
909 equivalent. So keep TYPE_CANONICAL the same. */
910 TYPE_CANONICAL (t) = TYPE_CANONICAL (type);
912 // Build the corresponding type decl.
913 tree d = create_implicit_typedef (DECL_NAME (tmpl), t);
914 DECL_CONTEXT (d) = TYPE_CONTEXT (t);
915 DECL_SOURCE_LOCATION (d) = input_location;
917 return t;
920 return NULL_TREE;
923 /* The TYPE is being declared. If it is a template type, that means it
924 is a partial specialization. Do appropriate error-checking. */
926 tree
927 maybe_process_partial_specialization (tree type)
929 tree context;
931 if (type == error_mark_node)
932 return error_mark_node;
934 /* A lambda that appears in specialization context is not itself a
935 specialization. */
936 if (CLASS_TYPE_P (type) && CLASSTYPE_LAMBDA_EXPR (type))
937 return type;
939 if (TREE_CODE (type) == BOUND_TEMPLATE_TEMPLATE_PARM)
941 error ("name of class shadows template template parameter %qD",
942 TYPE_NAME (type));
943 return error_mark_node;
946 context = TYPE_CONTEXT (type);
948 if (TYPE_ALIAS_P (type))
950 tree tinfo = TYPE_ALIAS_TEMPLATE_INFO (type);
952 if (tinfo && DECL_ALIAS_TEMPLATE_P (TI_TEMPLATE (tinfo)))
953 error ("specialization of alias template %qD",
954 TI_TEMPLATE (tinfo));
955 else
956 error ("explicit specialization of non-template %qT", type);
957 return error_mark_node;
959 else if (CLASS_TYPE_P (type) && CLASSTYPE_USE_TEMPLATE (type))
961 /* This is for ordinary explicit specialization and partial
962 specialization of a template class such as:
964 template <> class C<int>;
968 template <class T> class C<T*>;
970 Make sure that `C<int>' and `C<T*>' are implicit instantiations. */
972 if (tree t = maybe_new_partial_specialization (type))
974 if (!check_specialization_namespace (CLASSTYPE_TI_TEMPLATE (t))
975 && !at_namespace_scope_p ())
976 return error_mark_node;
977 SET_CLASSTYPE_TEMPLATE_SPECIALIZATION (t);
978 DECL_SOURCE_LOCATION (TYPE_MAIN_DECL (t)) = input_location;
979 if (processing_template_decl)
981 tree decl = push_template_decl (TYPE_MAIN_DECL (t));
982 if (decl == error_mark_node)
983 return error_mark_node;
984 return TREE_TYPE (decl);
987 else if (CLASSTYPE_TEMPLATE_INSTANTIATION (type))
988 error ("specialization of %qT after instantiation", type);
989 else if (errorcount && !processing_specialization
990 && CLASSTYPE_TEMPLATE_SPECIALIZATION (type)
991 && !uses_template_parms (CLASSTYPE_TI_ARGS (type)))
992 /* Trying to define a specialization either without a template<> header
993 or in an inappropriate place. We've already given an error, so just
994 bail now so we don't actually define the specialization. */
995 return error_mark_node;
997 else if (CLASS_TYPE_P (type)
998 && !CLASSTYPE_USE_TEMPLATE (type)
999 && CLASSTYPE_TEMPLATE_INFO (type)
1000 && context && CLASS_TYPE_P (context)
1001 && CLASSTYPE_TEMPLATE_INFO (context))
1003 /* This is for an explicit specialization of member class
1004 template according to [temp.expl.spec/18]:
1006 template <> template <class U> class C<int>::D;
1008 The context `C<int>' must be an implicit instantiation.
1009 Otherwise this is just a member class template declared
1010 earlier like:
1012 template <> class C<int> { template <class U> class D; };
1013 template <> template <class U> class C<int>::D;
1015 In the first case, `C<int>::D' is a specialization of `C<T>::D'
1016 while in the second case, `C<int>::D' is a primary template
1017 and `C<T>::D' may not exist. */
1019 if (CLASSTYPE_IMPLICIT_INSTANTIATION (context)
1020 && !COMPLETE_TYPE_P (type))
1022 tree t;
1023 tree tmpl = CLASSTYPE_TI_TEMPLATE (type);
1025 if (current_namespace
1026 != decl_namespace_context (tmpl))
1028 permerror (input_location,
1029 "specializing %q#T in different namespace", type);
1030 permerror (DECL_SOURCE_LOCATION (tmpl),
1031 " from definition of %q#D", tmpl);
1034 /* Check for invalid specialization after instantiation:
1036 template <> template <> class C<int>::D<int>;
1037 template <> template <class U> class C<int>::D; */
1039 for (t = DECL_TEMPLATE_INSTANTIATIONS (tmpl);
1040 t; t = TREE_CHAIN (t))
1042 tree inst = TREE_VALUE (t);
1043 if (CLASSTYPE_TEMPLATE_SPECIALIZATION (inst)
1044 || !COMPLETE_OR_OPEN_TYPE_P (inst))
1046 /* We already have a full specialization of this partial
1047 instantiation, or a full specialization has been
1048 looked up but not instantiated. Reassign it to the
1049 new member specialization template. */
1050 spec_entry elt;
1051 spec_entry *entry;
1053 elt.tmpl = most_general_template (tmpl);
1054 elt.args = CLASSTYPE_TI_ARGS (inst);
1055 elt.spec = inst;
1057 type_specializations->remove_elt (&elt);
1059 elt.tmpl = tmpl;
1060 elt.args = INNERMOST_TEMPLATE_ARGS (elt.args);
1062 spec_entry **slot
1063 = type_specializations->find_slot (&elt, INSERT);
1064 entry = ggc_alloc<spec_entry> ();
1065 *entry = elt;
1066 *slot = entry;
1068 else
1069 /* But if we've had an implicit instantiation, that's a
1070 problem ([temp.expl.spec]/6). */
1071 error ("specialization %qT after instantiation %qT",
1072 type, inst);
1075 /* Mark TYPE as a specialization. And as a result, we only
1076 have one level of template argument for the innermost
1077 class template. */
1078 SET_CLASSTYPE_TEMPLATE_SPECIALIZATION (type);
1079 DECL_SOURCE_LOCATION (TYPE_MAIN_DECL (type)) = input_location;
1080 CLASSTYPE_TI_ARGS (type)
1081 = INNERMOST_TEMPLATE_ARGS (CLASSTYPE_TI_ARGS (type));
1084 else if (processing_specialization)
1086 /* Someday C++0x may allow for enum template specialization. */
1087 if (cxx_dialect > cxx98 && TREE_CODE (type) == ENUMERAL_TYPE
1088 && CLASS_TYPE_P (context) && CLASSTYPE_USE_TEMPLATE (context))
1089 pedwarn (input_location, OPT_Wpedantic, "template specialization "
1090 "of %qD not allowed by ISO C++", type);
1091 else
1093 error ("explicit specialization of non-template %qT", type);
1094 return error_mark_node;
1098 return type;
1101 /* Returns nonzero if we can optimize the retrieval of specializations
1102 for TMPL, a TEMPLATE_DECL. In particular, for such a template, we
1103 do not use DECL_TEMPLATE_SPECIALIZATIONS at all. */
1105 static inline bool
1106 optimize_specialization_lookup_p (tree tmpl)
1108 return (DECL_FUNCTION_TEMPLATE_P (tmpl)
1109 && DECL_CLASS_SCOPE_P (tmpl)
1110 /* DECL_CLASS_SCOPE_P holds of T::f even if T is a template
1111 parameter. */
1112 && CLASS_TYPE_P (DECL_CONTEXT (tmpl))
1113 /* The optimized lookup depends on the fact that the
1114 template arguments for the member function template apply
1115 purely to the containing class, which is not true if the
1116 containing class is an explicit or partial
1117 specialization. */
1118 && !CLASSTYPE_TEMPLATE_SPECIALIZATION (DECL_CONTEXT (tmpl))
1119 && !DECL_MEMBER_TEMPLATE_P (tmpl)
1120 && !DECL_CONV_FN_P (tmpl)
1121 /* It is possible to have a template that is not a member
1122 template and is not a member of a template class:
1124 template <typename T>
1125 struct S { friend A::f(); };
1127 Here, the friend function is a template, but the context does
1128 not have template information. The optimized lookup relies
1129 on having ARGS be the template arguments for both the class
1130 and the function template. */
1131 && !DECL_FRIEND_P (DECL_TEMPLATE_RESULT (tmpl)));
1134 /* Make sure ARGS doesn't use any inappropriate typedefs; we should have
1135 gone through coerce_template_parms by now. */
1137 static void
1138 verify_unstripped_args_1 (tree inner)
1140 for (int i = 0; i < TREE_VEC_LENGTH (inner); ++i)
1142 tree arg = TREE_VEC_ELT (inner, i);
1143 if (TREE_CODE (arg) == TEMPLATE_DECL)
1144 /* OK */;
1145 else if (TYPE_P (arg))
1146 gcc_assert (strip_typedefs (arg, NULL) == arg);
1147 else if (ARGUMENT_PACK_P (arg))
1148 verify_unstripped_args_1 (ARGUMENT_PACK_ARGS (arg));
1149 else if (strip_typedefs (TREE_TYPE (arg), NULL) != TREE_TYPE (arg))
1150 /* Allow typedefs on the type of a non-type argument, since a
1151 parameter can have them. */;
1152 else
1153 gcc_assert (strip_typedefs_expr (arg, NULL) == arg);
1157 static void
1158 verify_unstripped_args (tree args)
1160 ++processing_template_decl;
1161 if (!any_dependent_template_arguments_p (args))
1162 verify_unstripped_args_1 (INNERMOST_TEMPLATE_ARGS (args));
1163 --processing_template_decl;
1166 /* Retrieve the specialization (in the sense of [temp.spec] - a
1167 specialization is either an instantiation or an explicit
1168 specialization) of TMPL for the given template ARGS. If there is
1169 no such specialization, return NULL_TREE. The ARGS are a vector of
1170 arguments, or a vector of vectors of arguments, in the case of
1171 templates with more than one level of parameters.
1173 If TMPL is a type template and CLASS_SPECIALIZATIONS_P is true,
1174 then we search for a partial specialization matching ARGS. This
1175 parameter is ignored if TMPL is not a class template.
1177 We can also look up a FIELD_DECL, if it is a lambda capture pack; the
1178 result is a NONTYPE_ARGUMENT_PACK. */
1180 static tree
1181 retrieve_specialization (tree tmpl, tree args, hashval_t hash)
1183 if (tmpl == NULL_TREE)
1184 return NULL_TREE;
1186 if (args == error_mark_node)
1187 return NULL_TREE;
1189 gcc_assert (TREE_CODE (tmpl) == TEMPLATE_DECL
1190 || TREE_CODE (tmpl) == FIELD_DECL);
1192 /* There should be as many levels of arguments as there are
1193 levels of parameters. */
1194 gcc_assert (TMPL_ARGS_DEPTH (args)
1195 == (TREE_CODE (tmpl) == TEMPLATE_DECL
1196 ? TMPL_PARMS_DEPTH (DECL_TEMPLATE_PARMS (tmpl))
1197 : template_class_depth (DECL_CONTEXT (tmpl))));
1199 if (flag_checking)
1200 verify_unstripped_args (args);
1202 /* Lambda functions in templates aren't instantiated normally, but through
1203 tsubst_lambda_expr. */
1204 if (lambda_fn_in_template_p (tmpl))
1205 return NULL_TREE;
1207 if (optimize_specialization_lookup_p (tmpl))
1209 /* The template arguments actually apply to the containing
1210 class. Find the class specialization with those
1211 arguments. */
1212 tree class_template = CLASSTYPE_TI_TEMPLATE (DECL_CONTEXT (tmpl));
1213 tree class_specialization
1214 = retrieve_specialization (class_template, args, 0);
1215 if (!class_specialization)
1216 return NULL_TREE;
1218 /* Find the instance of TMPL. */
1219 tree fns = get_class_binding (class_specialization, DECL_NAME (tmpl));
1220 for (ovl_iterator iter (fns); iter; ++iter)
1222 tree fn = *iter;
1223 if (DECL_TEMPLATE_INFO (fn) && DECL_TI_TEMPLATE (fn) == tmpl
1224 /* using-declarations can add base methods to the method vec,
1225 and we don't want those here. */
1226 && DECL_CONTEXT (fn) == class_specialization)
1227 return fn;
1229 return NULL_TREE;
1231 else
1233 spec_entry *found;
1234 spec_entry elt;
1235 hash_table<spec_hasher> *specializations;
1237 elt.tmpl = tmpl;
1238 elt.args = args;
1239 elt.spec = NULL_TREE;
1241 if (DECL_CLASS_TEMPLATE_P (tmpl))
1242 specializations = type_specializations;
1243 else
1244 specializations = decl_specializations;
1246 if (hash == 0)
1247 hash = spec_hasher::hash (&elt);
1248 found = specializations->find_with_hash (&elt, hash);
1249 if (found)
1250 return found->spec;
1253 return NULL_TREE;
1256 /* Like retrieve_specialization, but for local declarations. */
1258 tree
1259 retrieve_local_specialization (tree tmpl)
1261 if (local_specializations == NULL)
1262 return NULL_TREE;
1264 tree *slot = local_specializations->get (tmpl);
1265 return slot ? *slot : NULL_TREE;
1268 /* Returns nonzero iff DECL is a specialization of TMPL. */
1271 is_specialization_of (tree decl, tree tmpl)
1273 tree t;
1275 if (TREE_CODE (decl) == FUNCTION_DECL)
1277 for (t = decl;
1278 t != NULL_TREE;
1279 t = DECL_TEMPLATE_INFO (t) ? DECL_TI_TEMPLATE (t) : NULL_TREE)
1280 if (t == tmpl)
1281 return 1;
1283 else
1285 gcc_assert (TREE_CODE (decl) == TYPE_DECL);
1287 for (t = TREE_TYPE (decl);
1288 t != NULL_TREE;
1289 t = CLASSTYPE_USE_TEMPLATE (t)
1290 ? TREE_TYPE (CLASSTYPE_TI_TEMPLATE (t)) : NULL_TREE)
1291 if (same_type_ignoring_top_level_qualifiers_p (t, TREE_TYPE (tmpl)))
1292 return 1;
1295 return 0;
1298 /* Returns nonzero iff DECL is a specialization of friend declaration
1299 FRIEND_DECL according to [temp.friend]. */
1301 bool
1302 is_specialization_of_friend (tree decl, tree friend_decl)
1304 bool need_template = true;
1305 int template_depth;
1307 gcc_assert (TREE_CODE (decl) == FUNCTION_DECL
1308 || TREE_CODE (decl) == TYPE_DECL);
1310 /* For [temp.friend/6] when FRIEND_DECL is an ordinary member function
1311 of a template class, we want to check if DECL is a specialization
1312 if this. */
1313 if (TREE_CODE (friend_decl) == FUNCTION_DECL
1314 && DECL_TEMPLATE_INFO (friend_decl)
1315 && !DECL_USE_TEMPLATE (friend_decl))
1317 /* We want a TEMPLATE_DECL for `is_specialization_of'. */
1318 friend_decl = DECL_TI_TEMPLATE (friend_decl);
1319 need_template = false;
1321 else if (TREE_CODE (friend_decl) == TEMPLATE_DECL
1322 && !PRIMARY_TEMPLATE_P (friend_decl))
1323 need_template = false;
1325 /* There is nothing to do if this is not a template friend. */
1326 if (TREE_CODE (friend_decl) != TEMPLATE_DECL)
1327 return false;
1329 if (is_specialization_of (decl, friend_decl))
1330 return true;
1332 /* [temp.friend/6]
1333 A member of a class template may be declared to be a friend of a
1334 non-template class. In this case, the corresponding member of
1335 every specialization of the class template is a friend of the
1336 class granting friendship.
1338 For example, given a template friend declaration
1340 template <class T> friend void A<T>::f();
1342 the member function below is considered a friend
1344 template <> struct A<int> {
1345 void f();
1348 For this type of template friend, TEMPLATE_DEPTH below will be
1349 nonzero. To determine if DECL is a friend of FRIEND, we first
1350 check if the enclosing class is a specialization of another. */
1352 template_depth = template_class_depth (CP_DECL_CONTEXT (friend_decl));
1353 if (template_depth
1354 && DECL_CLASS_SCOPE_P (decl)
1355 && is_specialization_of (TYPE_NAME (DECL_CONTEXT (decl)),
1356 CLASSTYPE_TI_TEMPLATE (DECL_CONTEXT (friend_decl))))
1358 /* Next, we check the members themselves. In order to handle
1359 a few tricky cases, such as when FRIEND_DECL's are
1361 template <class T> friend void A<T>::g(T t);
1362 template <class T> template <T t> friend void A<T>::h();
1364 and DECL's are
1366 void A<int>::g(int);
1367 template <int> void A<int>::h();
1369 we need to figure out ARGS, the template arguments from
1370 the context of DECL. This is required for template substitution
1371 of `T' in the function parameter of `g' and template parameter
1372 of `h' in the above examples. Here ARGS corresponds to `int'. */
1374 tree context = DECL_CONTEXT (decl);
1375 tree args = NULL_TREE;
1376 int current_depth = 0;
1378 while (current_depth < template_depth)
1380 if (CLASSTYPE_TEMPLATE_INFO (context))
1382 if (current_depth == 0)
1383 args = TYPE_TI_ARGS (context);
1384 else
1385 args = add_to_template_args (TYPE_TI_ARGS (context), args);
1386 current_depth++;
1388 context = TYPE_CONTEXT (context);
1391 if (TREE_CODE (decl) == FUNCTION_DECL)
1393 bool is_template;
1394 tree friend_type;
1395 tree decl_type;
1396 tree friend_args_type;
1397 tree decl_args_type;
1399 /* Make sure that both DECL and FRIEND_DECL are templates or
1400 non-templates. */
1401 is_template = DECL_TEMPLATE_INFO (decl)
1402 && PRIMARY_TEMPLATE_P (DECL_TI_TEMPLATE (decl));
1403 if (need_template ^ is_template)
1404 return false;
1405 else if (is_template)
1407 /* If both are templates, check template parameter list. */
1408 tree friend_parms
1409 = tsubst_template_parms (DECL_TEMPLATE_PARMS (friend_decl),
1410 args, tf_none);
1411 if (!comp_template_parms
1412 (DECL_TEMPLATE_PARMS (DECL_TI_TEMPLATE (decl)),
1413 friend_parms))
1414 return false;
1416 decl_type = TREE_TYPE (DECL_TI_TEMPLATE (decl));
1418 else
1419 decl_type = TREE_TYPE (decl);
1421 friend_type = tsubst_function_type (TREE_TYPE (friend_decl), args,
1422 tf_none, NULL_TREE);
1423 if (friend_type == error_mark_node)
1424 return false;
1426 /* Check if return types match. */
1427 if (!same_type_p (TREE_TYPE (decl_type), TREE_TYPE (friend_type)))
1428 return false;
1430 /* Check if function parameter types match, ignoring the
1431 `this' parameter. */
1432 friend_args_type = TYPE_ARG_TYPES (friend_type);
1433 decl_args_type = TYPE_ARG_TYPES (decl_type);
1434 if (DECL_NONSTATIC_MEMBER_FUNCTION_P (friend_decl))
1435 friend_args_type = TREE_CHAIN (friend_args_type);
1436 if (DECL_NONSTATIC_MEMBER_FUNCTION_P (decl))
1437 decl_args_type = TREE_CHAIN (decl_args_type);
1439 return compparms (decl_args_type, friend_args_type);
1441 else
1443 /* DECL is a TYPE_DECL */
1444 bool is_template;
1445 tree decl_type = TREE_TYPE (decl);
1447 /* Make sure that both DECL and FRIEND_DECL are templates or
1448 non-templates. */
1449 is_template
1450 = CLASSTYPE_TEMPLATE_INFO (decl_type)
1451 && PRIMARY_TEMPLATE_P (CLASSTYPE_TI_TEMPLATE (decl_type));
1453 if (need_template ^ is_template)
1454 return false;
1455 else if (is_template)
1457 tree friend_parms;
1458 /* If both are templates, check the name of the two
1459 TEMPLATE_DECL's first because is_friend didn't. */
1460 if (DECL_NAME (CLASSTYPE_TI_TEMPLATE (decl_type))
1461 != DECL_NAME (friend_decl))
1462 return false;
1464 /* Now check template parameter list. */
1465 friend_parms
1466 = tsubst_template_parms (DECL_TEMPLATE_PARMS (friend_decl),
1467 args, tf_none);
1468 return comp_template_parms
1469 (DECL_TEMPLATE_PARMS (CLASSTYPE_TI_TEMPLATE (decl_type)),
1470 friend_parms);
1472 else
1473 return (DECL_NAME (decl)
1474 == DECL_NAME (friend_decl));
1477 return false;
1480 /* Register the specialization SPEC as a specialization of TMPL with
1481 the indicated ARGS. IS_FRIEND indicates whether the specialization
1482 is actually just a friend declaration. ATTRLIST is the list of
1483 attributes that the specialization is declared with or NULL when
1484 it isn't. Returns SPEC, or an equivalent prior declaration, if
1485 available.
1487 We also store instantiations of field packs in the hash table, even
1488 though they are not themselves templates, to make lookup easier. */
1490 static tree
1491 register_specialization (tree spec, tree tmpl, tree args, bool is_friend,
1492 hashval_t hash)
1494 tree fn;
1495 spec_entry **slot = NULL;
1496 spec_entry elt;
1498 gcc_assert ((TREE_CODE (tmpl) == TEMPLATE_DECL && DECL_P (spec))
1499 || (TREE_CODE (tmpl) == FIELD_DECL
1500 && TREE_CODE (spec) == NONTYPE_ARGUMENT_PACK));
1502 if (TREE_CODE (spec) == FUNCTION_DECL
1503 && uses_template_parms (DECL_TI_ARGS (spec)))
1504 /* This is the FUNCTION_DECL for a partial instantiation. Don't
1505 register it; we want the corresponding TEMPLATE_DECL instead.
1506 We use `uses_template_parms (DECL_TI_ARGS (spec))' rather than
1507 the more obvious `uses_template_parms (spec)' to avoid problems
1508 with default function arguments. In particular, given
1509 something like this:
1511 template <class T> void f(T t1, T t = T())
1513 the default argument expression is not substituted for in an
1514 instantiation unless and until it is actually needed. */
1515 return spec;
1517 if (optimize_specialization_lookup_p (tmpl))
1518 /* We don't put these specializations in the hash table, but we might
1519 want to give an error about a mismatch. */
1520 fn = retrieve_specialization (tmpl, args, 0);
1521 else
1523 elt.tmpl = tmpl;
1524 elt.args = args;
1525 elt.spec = spec;
1527 if (hash == 0)
1528 hash = spec_hasher::hash (&elt);
1530 slot =
1531 decl_specializations->find_slot_with_hash (&elt, hash, INSERT);
1532 if (*slot)
1533 fn = ((spec_entry *) *slot)->spec;
1534 else
1535 fn = NULL_TREE;
1538 /* We can sometimes try to re-register a specialization that we've
1539 already got. In particular, regenerate_decl_from_template calls
1540 duplicate_decls which will update the specialization list. But,
1541 we'll still get called again here anyhow. It's more convenient
1542 to simply allow this than to try to prevent it. */
1543 if (fn == spec)
1544 return spec;
1545 else if (fn && DECL_TEMPLATE_SPECIALIZATION (spec))
1547 if (DECL_TEMPLATE_INSTANTIATION (fn))
1549 if (DECL_ODR_USED (fn)
1550 || DECL_EXPLICIT_INSTANTIATION (fn))
1552 error ("specialization of %qD after instantiation",
1553 fn);
1554 return error_mark_node;
1556 else
1558 tree clone;
1559 /* This situation should occur only if the first
1560 specialization is an implicit instantiation, the
1561 second is an explicit specialization, and the
1562 implicit instantiation has not yet been used. That
1563 situation can occur if we have implicitly
1564 instantiated a member function and then specialized
1565 it later.
1567 We can also wind up here if a friend declaration that
1568 looked like an instantiation turns out to be a
1569 specialization:
1571 template <class T> void foo(T);
1572 class S { friend void foo<>(int) };
1573 template <> void foo(int);
1575 We transform the existing DECL in place so that any
1576 pointers to it become pointers to the updated
1577 declaration.
1579 If there was a definition for the template, but not
1580 for the specialization, we want this to look as if
1581 there were no definition, and vice versa. */
1582 DECL_INITIAL (fn) = NULL_TREE;
1583 duplicate_decls (spec, fn, is_friend);
1584 /* The call to duplicate_decls will have applied
1585 [temp.expl.spec]:
1587 An explicit specialization of a function template
1588 is inline only if it is explicitly declared to be,
1589 and independently of whether its function template
1592 to the primary function; now copy the inline bits to
1593 the various clones. */
1594 FOR_EACH_CLONE (clone, fn)
1596 DECL_DECLARED_INLINE_P (clone)
1597 = DECL_DECLARED_INLINE_P (fn);
1598 DECL_SOURCE_LOCATION (clone)
1599 = DECL_SOURCE_LOCATION (fn);
1600 DECL_DELETED_FN (clone)
1601 = DECL_DELETED_FN (fn);
1603 check_specialization_namespace (tmpl);
1605 return fn;
1608 else if (DECL_TEMPLATE_SPECIALIZATION (fn))
1610 tree dd = duplicate_decls (spec, fn, is_friend);
1611 if (dd == error_mark_node)
1612 /* We've already complained in duplicate_decls. */
1613 return error_mark_node;
1615 if (dd == NULL_TREE && DECL_INITIAL (spec))
1616 /* Dup decl failed, but this is a new definition. Set the
1617 line number so any errors match this new
1618 definition. */
1619 DECL_SOURCE_LOCATION (fn) = DECL_SOURCE_LOCATION (spec);
1621 return fn;
1624 else if (fn)
1625 return duplicate_decls (spec, fn, is_friend);
1627 /* A specialization must be declared in the same namespace as the
1628 template it is specializing. */
1629 if (DECL_P (spec) && DECL_TEMPLATE_SPECIALIZATION (spec)
1630 && !check_specialization_namespace (tmpl))
1631 DECL_CONTEXT (spec) = DECL_CONTEXT (tmpl);
1633 if (slot != NULL /* !optimize_specialization_lookup_p (tmpl) */)
1635 spec_entry *entry = ggc_alloc<spec_entry> ();
1636 gcc_assert (tmpl && args && spec);
1637 *entry = elt;
1638 *slot = entry;
1639 if ((TREE_CODE (spec) == FUNCTION_DECL && DECL_NAMESPACE_SCOPE_P (spec)
1640 && PRIMARY_TEMPLATE_P (tmpl)
1641 && DECL_SAVED_TREE (DECL_TEMPLATE_RESULT (tmpl)) == NULL_TREE)
1642 || variable_template_p (tmpl))
1643 /* If TMPL is a forward declaration of a template function, keep a list
1644 of all specializations in case we need to reassign them to a friend
1645 template later in tsubst_friend_function.
1647 Also keep a list of all variable template instantiations so that
1648 process_partial_specialization can check whether a later partial
1649 specialization would have used it. */
1650 DECL_TEMPLATE_INSTANTIATIONS (tmpl)
1651 = tree_cons (args, spec, DECL_TEMPLATE_INSTANTIATIONS (tmpl));
1654 return spec;
1657 /* Returns true iff two spec_entry nodes are equivalent. */
1659 int comparing_specializations;
1661 bool
1662 spec_hasher::equal (spec_entry *e1, spec_entry *e2)
1664 int equal;
1666 ++comparing_specializations;
1667 equal = (e1->tmpl == e2->tmpl
1668 && comp_template_args (e1->args, e2->args));
1669 if (equal && flag_concepts
1670 /* tmpl could be a FIELD_DECL for a capture pack. */
1671 && TREE_CODE (e1->tmpl) == TEMPLATE_DECL
1672 && VAR_P (DECL_TEMPLATE_RESULT (e1->tmpl))
1673 && uses_template_parms (e1->args))
1675 /* Partial specializations of a variable template can be distinguished by
1676 constraints. */
1677 tree c1 = e1->spec ? get_constraints (e1->spec) : NULL_TREE;
1678 tree c2 = e2->spec ? get_constraints (e2->spec) : NULL_TREE;
1679 equal = equivalent_constraints (c1, c2);
1681 --comparing_specializations;
1683 return equal;
1686 /* Returns a hash for a template TMPL and template arguments ARGS. */
1688 static hashval_t
1689 hash_tmpl_and_args (tree tmpl, tree args)
1691 hashval_t val = iterative_hash_object (DECL_UID (tmpl), 0);
1692 return iterative_hash_template_arg (args, val);
1695 /* Returns a hash for a spec_entry node based on the TMPL and ARGS members,
1696 ignoring SPEC. */
1698 hashval_t
1699 spec_hasher::hash (spec_entry *e)
1701 return hash_tmpl_and_args (e->tmpl, e->args);
1704 /* Recursively calculate a hash value for a template argument ARG, for use
1705 in the hash tables of template specializations. */
1707 hashval_t
1708 iterative_hash_template_arg (tree arg, hashval_t val)
1710 unsigned HOST_WIDE_INT i;
1711 enum tree_code code;
1712 char tclass;
1714 if (arg == NULL_TREE)
1715 return iterative_hash_object (arg, val);
1717 if (!TYPE_P (arg))
1718 STRIP_NOPS (arg);
1720 if (TREE_CODE (arg) == ARGUMENT_PACK_SELECT)
1721 gcc_unreachable ();
1723 code = TREE_CODE (arg);
1724 tclass = TREE_CODE_CLASS (code);
1726 val = iterative_hash_object (code, val);
1728 switch (code)
1730 case ERROR_MARK:
1731 return val;
1733 case IDENTIFIER_NODE:
1734 return iterative_hash_object (IDENTIFIER_HASH_VALUE (arg), val);
1736 case TREE_VEC:
1738 int i, len = TREE_VEC_LENGTH (arg);
1739 for (i = 0; i < len; ++i)
1740 val = iterative_hash_template_arg (TREE_VEC_ELT (arg, i), val);
1741 return val;
1744 case TYPE_PACK_EXPANSION:
1745 case EXPR_PACK_EXPANSION:
1746 val = iterative_hash_template_arg (PACK_EXPANSION_PATTERN (arg), val);
1747 return iterative_hash_template_arg (PACK_EXPANSION_EXTRA_ARGS (arg), val);
1749 case TYPE_ARGUMENT_PACK:
1750 case NONTYPE_ARGUMENT_PACK:
1751 return iterative_hash_template_arg (ARGUMENT_PACK_ARGS (arg), val);
1753 case TREE_LIST:
1754 for (; arg; arg = TREE_CHAIN (arg))
1755 val = iterative_hash_template_arg (TREE_VALUE (arg), val);
1756 return val;
1758 case OVERLOAD:
1759 for (lkp_iterator iter (arg); iter; ++iter)
1760 val = iterative_hash_template_arg (*iter, val);
1761 return val;
1763 case CONSTRUCTOR:
1765 tree field, value;
1766 iterative_hash_template_arg (TREE_TYPE (arg), val);
1767 FOR_EACH_CONSTRUCTOR_ELT (CONSTRUCTOR_ELTS (arg), i, field, value)
1769 val = iterative_hash_template_arg (field, val);
1770 val = iterative_hash_template_arg (value, val);
1772 return val;
1775 case PARM_DECL:
1776 if (!DECL_ARTIFICIAL (arg))
1778 val = iterative_hash_object (DECL_PARM_INDEX (arg), val);
1779 val = iterative_hash_object (DECL_PARM_LEVEL (arg), val);
1781 return iterative_hash_template_arg (TREE_TYPE (arg), val);
1783 case TARGET_EXPR:
1784 return iterative_hash_template_arg (TARGET_EXPR_INITIAL (arg), val);
1786 case PTRMEM_CST:
1787 val = iterative_hash_template_arg (PTRMEM_CST_CLASS (arg), val);
1788 return iterative_hash_template_arg (PTRMEM_CST_MEMBER (arg), val);
1790 case TEMPLATE_PARM_INDEX:
1791 val = iterative_hash_template_arg
1792 (TREE_TYPE (TEMPLATE_PARM_DECL (arg)), val);
1793 val = iterative_hash_object (TEMPLATE_PARM_LEVEL (arg), val);
1794 return iterative_hash_object (TEMPLATE_PARM_IDX (arg), val);
1796 case TRAIT_EXPR:
1797 val = iterative_hash_object (TRAIT_EXPR_KIND (arg), val);
1798 val = iterative_hash_template_arg (TRAIT_EXPR_TYPE1 (arg), val);
1799 return iterative_hash_template_arg (TRAIT_EXPR_TYPE2 (arg), val);
1801 case BASELINK:
1802 val = iterative_hash_template_arg (BINFO_TYPE (BASELINK_BINFO (arg)),
1803 val);
1804 return iterative_hash_template_arg (DECL_NAME (get_first_fn (arg)),
1805 val);
1807 case MODOP_EXPR:
1808 val = iterative_hash_template_arg (TREE_OPERAND (arg, 0), val);
1809 code = TREE_CODE (TREE_OPERAND (arg, 1));
1810 val = iterative_hash_object (code, val);
1811 return iterative_hash_template_arg (TREE_OPERAND (arg, 2), val);
1813 case LAMBDA_EXPR:
1814 /* A lambda can't appear in a template arg, but don't crash on
1815 erroneous input. */
1816 gcc_assert (seen_error ());
1817 return val;
1819 case CAST_EXPR:
1820 case IMPLICIT_CONV_EXPR:
1821 case STATIC_CAST_EXPR:
1822 case REINTERPRET_CAST_EXPR:
1823 case CONST_CAST_EXPR:
1824 case DYNAMIC_CAST_EXPR:
1825 case NEW_EXPR:
1826 val = iterative_hash_template_arg (TREE_TYPE (arg), val);
1827 /* Now hash operands as usual. */
1828 break;
1830 default:
1831 break;
1834 switch (tclass)
1836 case tcc_type:
1837 if (alias_template_specialization_p (arg))
1839 // We want an alias specialization that survived strip_typedefs
1840 // to hash differently from its TYPE_CANONICAL, to avoid hash
1841 // collisions that compare as different in template_args_equal.
1842 // These could be dependent specializations that strip_typedefs
1843 // left alone, or untouched specializations because
1844 // coerce_template_parms returns the unconverted template
1845 // arguments if it sees incomplete argument packs.
1846 tree ti = TYPE_ALIAS_TEMPLATE_INFO (arg);
1847 return hash_tmpl_and_args (TI_TEMPLATE (ti), TI_ARGS (ti));
1849 if (TYPE_CANONICAL (arg))
1850 return iterative_hash_object (TYPE_HASH (TYPE_CANONICAL (arg)),
1851 val);
1852 else if (TREE_CODE (arg) == DECLTYPE_TYPE)
1853 return iterative_hash_template_arg (DECLTYPE_TYPE_EXPR (arg), val);
1854 /* Otherwise just compare the types during lookup. */
1855 return val;
1857 case tcc_declaration:
1858 case tcc_constant:
1859 return iterative_hash_expr (arg, val);
1861 default:
1862 gcc_assert (IS_EXPR_CODE_CLASS (tclass));
1864 unsigned n = cp_tree_operand_length (arg);
1865 for (i = 0; i < n; ++i)
1866 val = iterative_hash_template_arg (TREE_OPERAND (arg, i), val);
1867 return val;
1870 gcc_unreachable ();
1871 return 0;
1874 /* Unregister the specialization SPEC as a specialization of TMPL.
1875 Replace it with NEW_SPEC, if NEW_SPEC is non-NULL. Returns true
1876 if the SPEC was listed as a specialization of TMPL.
1878 Note that SPEC has been ggc_freed, so we can't look inside it. */
1880 bool
1881 reregister_specialization (tree spec, tree tinfo, tree new_spec)
1883 spec_entry *entry;
1884 spec_entry elt;
1886 elt.tmpl = most_general_template (TI_TEMPLATE (tinfo));
1887 elt.args = TI_ARGS (tinfo);
1888 elt.spec = NULL_TREE;
1890 entry = decl_specializations->find (&elt);
1891 if (entry != NULL)
1893 gcc_assert (entry->spec == spec || entry->spec == new_spec);
1894 gcc_assert (new_spec != NULL_TREE);
1895 entry->spec = new_spec;
1896 return 1;
1899 return 0;
1902 /* Like register_specialization, but for local declarations. We are
1903 registering SPEC, an instantiation of TMPL. */
1905 void
1906 register_local_specialization (tree spec, tree tmpl)
1908 gcc_assert (tmpl != spec);
1909 local_specializations->put (tmpl, spec);
1912 /* TYPE is a class type. Returns true if TYPE is an explicitly
1913 specialized class. */
1915 bool
1916 explicit_class_specialization_p (tree type)
1918 if (!CLASSTYPE_TEMPLATE_SPECIALIZATION (type))
1919 return false;
1920 return !uses_template_parms (CLASSTYPE_TI_ARGS (type));
1923 /* Print the list of functions at FNS, going through all the overloads
1924 for each element of the list. Alternatively, FNS can not be a
1925 TREE_LIST, in which case it will be printed together with all the
1926 overloads.
1928 MORE and *STR should respectively be FALSE and NULL when the function
1929 is called from the outside. They are used internally on recursive
1930 calls. print_candidates manages the two parameters and leaves NULL
1931 in *STR when it ends. */
1933 static void
1934 print_candidates_1 (tree fns, char **str, bool more = false)
1936 if (TREE_CODE (fns) == TREE_LIST)
1937 for (; fns; fns = TREE_CHAIN (fns))
1938 print_candidates_1 (TREE_VALUE (fns), str, more || TREE_CHAIN (fns));
1939 else
1940 for (lkp_iterator iter (fns); iter;)
1942 tree cand = *iter;
1943 ++iter;
1945 const char *pfx = *str;
1946 if (!pfx)
1948 if (more || iter)
1949 pfx = _("candidates are:");
1950 else
1951 pfx = _("candidate is:");
1952 *str = get_spaces (pfx);
1954 inform (DECL_SOURCE_LOCATION (cand), "%s %#qD", pfx, cand);
1958 /* Print the list of candidate FNS in an error message. FNS can also
1959 be a TREE_LIST of non-functions in the case of an ambiguous lookup. */
1961 void
1962 print_candidates (tree fns)
1964 char *str = NULL;
1965 print_candidates_1 (fns, &str);
1966 free (str);
1969 /* Get a (possibly) constrained template declaration for the
1970 purpose of ordering candidates. */
1971 static tree
1972 get_template_for_ordering (tree list)
1974 gcc_assert (TREE_CODE (list) == TREE_LIST);
1975 tree f = TREE_VALUE (list);
1976 if (tree ti = DECL_TEMPLATE_INFO (f))
1977 return TI_TEMPLATE (ti);
1978 return f;
1981 /* Among candidates having the same signature, return the
1982 most constrained or NULL_TREE if there is no best candidate.
1983 If the signatures of candidates vary (e.g., template
1984 specialization vs. member function), then there can be no
1985 most constrained.
1987 Note that we don't compare constraints on the functions
1988 themselves, but rather those of their templates. */
1989 static tree
1990 most_constrained_function (tree candidates)
1992 // Try to find the best candidate in a first pass.
1993 tree champ = candidates;
1994 for (tree c = TREE_CHAIN (champ); c; c = TREE_CHAIN (c))
1996 int winner = more_constrained (get_template_for_ordering (champ),
1997 get_template_for_ordering (c));
1998 if (winner == -1)
1999 champ = c; // The candidate is more constrained
2000 else if (winner == 0)
2001 return NULL_TREE; // Neither is more constrained
2004 // Verify that the champ is better than previous candidates.
2005 for (tree c = candidates; c != champ; c = TREE_CHAIN (c)) {
2006 if (!more_constrained (get_template_for_ordering (champ),
2007 get_template_for_ordering (c)))
2008 return NULL_TREE;
2011 return champ;
2015 /* Returns the template (one of the functions given by TEMPLATE_ID)
2016 which can be specialized to match the indicated DECL with the
2017 explicit template args given in TEMPLATE_ID. The DECL may be
2018 NULL_TREE if none is available. In that case, the functions in
2019 TEMPLATE_ID are non-members.
2021 If NEED_MEMBER_TEMPLATE is nonzero the function is known to be a
2022 specialization of a member template.
2024 The TEMPLATE_COUNT is the number of references to qualifying
2025 template classes that appeared in the name of the function. See
2026 check_explicit_specialization for a more accurate description.
2028 TSK indicates what kind of template declaration (if any) is being
2029 declared. TSK_TEMPLATE indicates that the declaration given by
2030 DECL, though a FUNCTION_DECL, has template parameters, and is
2031 therefore a template function.
2033 The template args (those explicitly specified and those deduced)
2034 are output in a newly created vector *TARGS_OUT.
2036 If it is impossible to determine the result, an error message is
2037 issued. The error_mark_node is returned to indicate failure. */
2039 static tree
2040 determine_specialization (tree template_id,
2041 tree decl,
2042 tree* targs_out,
2043 int need_member_template,
2044 int template_count,
2045 tmpl_spec_kind tsk)
2047 tree fns;
2048 tree targs;
2049 tree explicit_targs;
2050 tree candidates = NULL_TREE;
2052 /* A TREE_LIST of templates of which DECL may be a specialization.
2053 The TREE_VALUE of each node is a TEMPLATE_DECL. The
2054 corresponding TREE_PURPOSE is the set of template arguments that,
2055 when used to instantiate the template, would produce a function
2056 with the signature of DECL. */
2057 tree templates = NULL_TREE;
2058 int header_count;
2059 cp_binding_level *b;
2061 *targs_out = NULL_TREE;
2063 if (template_id == error_mark_node || decl == error_mark_node)
2064 return error_mark_node;
2066 /* We shouldn't be specializing a member template of an
2067 unspecialized class template; we already gave an error in
2068 check_specialization_scope, now avoid crashing. */
2069 if (!VAR_P (decl)
2070 && template_count && DECL_CLASS_SCOPE_P (decl)
2071 && template_class_depth (DECL_CONTEXT (decl)) > 0)
2073 gcc_assert (errorcount);
2074 return error_mark_node;
2077 fns = TREE_OPERAND (template_id, 0);
2078 explicit_targs = TREE_OPERAND (template_id, 1);
2080 if (fns == error_mark_node)
2081 return error_mark_node;
2083 /* Check for baselinks. */
2084 if (BASELINK_P (fns))
2085 fns = BASELINK_FUNCTIONS (fns);
2087 if (TREE_CODE (decl) == FUNCTION_DECL && !is_overloaded_fn (fns))
2089 error ("%qD is not a function template", fns);
2090 return error_mark_node;
2092 else if (VAR_P (decl) && !variable_template_p (fns))
2094 error ("%qD is not a variable template", fns);
2095 return error_mark_node;
2098 /* Count the number of template headers specified for this
2099 specialization. */
2100 header_count = 0;
2101 for (b = current_binding_level;
2102 b->kind == sk_template_parms;
2103 b = b->level_chain)
2104 ++header_count;
2106 tree orig_fns = fns;
2108 if (variable_template_p (fns))
2110 tree parms = INNERMOST_TEMPLATE_PARMS (DECL_TEMPLATE_PARMS (fns));
2111 targs = coerce_template_parms (parms, explicit_targs, fns,
2112 tf_warning_or_error,
2113 /*req_all*/true, /*use_defarg*/true);
2114 if (targs != error_mark_node)
2115 templates = tree_cons (targs, fns, templates);
2117 else for (lkp_iterator iter (fns); iter; ++iter)
2119 tree fn = *iter;
2121 if (TREE_CODE (fn) == TEMPLATE_DECL)
2123 tree decl_arg_types;
2124 tree fn_arg_types;
2125 tree insttype;
2127 /* In case of explicit specialization, we need to check if
2128 the number of template headers appearing in the specialization
2129 is correct. This is usually done in check_explicit_specialization,
2130 but the check done there cannot be exhaustive when specializing
2131 member functions. Consider the following code:
2133 template <> void A<int>::f(int);
2134 template <> template <> void A<int>::f(int);
2136 Assuming that A<int> is not itself an explicit specialization
2137 already, the first line specializes "f" which is a non-template
2138 member function, whilst the second line specializes "f" which
2139 is a template member function. So both lines are syntactically
2140 correct, and check_explicit_specialization does not reject
2141 them.
2143 Here, we can do better, as we are matching the specialization
2144 against the declarations. We count the number of template
2145 headers, and we check if they match TEMPLATE_COUNT + 1
2146 (TEMPLATE_COUNT is the number of qualifying template classes,
2147 plus there must be another header for the member template
2148 itself).
2150 Notice that if header_count is zero, this is not a
2151 specialization but rather a template instantiation, so there
2152 is no check we can perform here. */
2153 if (header_count && header_count != template_count + 1)
2154 continue;
2156 /* Check that the number of template arguments at the
2157 innermost level for DECL is the same as for FN. */
2158 if (current_binding_level->kind == sk_template_parms
2159 && !current_binding_level->explicit_spec_p
2160 && (TREE_VEC_LENGTH (DECL_INNERMOST_TEMPLATE_PARMS (fn))
2161 != TREE_VEC_LENGTH (INNERMOST_TEMPLATE_PARMS
2162 (current_template_parms))))
2163 continue;
2165 /* DECL might be a specialization of FN. */
2166 decl_arg_types = TYPE_ARG_TYPES (TREE_TYPE (decl));
2167 fn_arg_types = TYPE_ARG_TYPES (TREE_TYPE (fn));
2169 /* For a non-static member function, we need to make sure
2170 that the const qualification is the same. Since
2171 get_bindings does not try to merge the "this" parameter,
2172 we must do the comparison explicitly. */
2173 if (DECL_NONSTATIC_MEMBER_FUNCTION_P (fn))
2175 if (!same_type_p (TREE_VALUE (fn_arg_types),
2176 TREE_VALUE (decl_arg_types)))
2177 continue;
2179 /* And the ref-qualification. */
2180 if (type_memfn_rqual (TREE_TYPE (decl))
2181 != type_memfn_rqual (TREE_TYPE (fn)))
2182 continue;
2185 /* Skip the "this" parameter and, for constructors of
2186 classes with virtual bases, the VTT parameter. A
2187 full specialization of a constructor will have a VTT
2188 parameter, but a template never will. */
2189 decl_arg_types
2190 = skip_artificial_parms_for (decl, decl_arg_types);
2191 fn_arg_types
2192 = skip_artificial_parms_for (fn, fn_arg_types);
2194 /* Function templates cannot be specializations; there are
2195 no partial specializations of functions. Therefore, if
2196 the type of DECL does not match FN, there is no
2197 match.
2199 Note that it should never be the case that we have both
2200 candidates added here, and for regular member functions
2201 below. */
2202 if (tsk == tsk_template)
2204 if (compparms (fn_arg_types, decl_arg_types))
2205 candidates = tree_cons (NULL_TREE, fn, candidates);
2206 continue;
2209 /* See whether this function might be a specialization of this
2210 template. Suppress access control because we might be trying
2211 to make this specialization a friend, and we have already done
2212 access control for the declaration of the specialization. */
2213 push_deferring_access_checks (dk_no_check);
2214 targs = get_bindings (fn, decl, explicit_targs, /*check_ret=*/true);
2215 pop_deferring_access_checks ();
2217 if (!targs)
2218 /* We cannot deduce template arguments that when used to
2219 specialize TMPL will produce DECL. */
2220 continue;
2222 if (uses_template_parms (targs))
2223 /* We deduced something involving 'auto', which isn't a valid
2224 template argument. */
2225 continue;
2227 /* Remove, from the set of candidates, all those functions
2228 whose constraints are not satisfied. */
2229 if (flag_concepts && !constraints_satisfied_p (fn, targs))
2230 continue;
2232 // Then, try to form the new function type.
2233 insttype = tsubst (TREE_TYPE (fn), targs, tf_fndecl_type, NULL_TREE);
2234 if (insttype == error_mark_node)
2235 continue;
2236 fn_arg_types
2237 = skip_artificial_parms_for (fn, TYPE_ARG_TYPES (insttype));
2238 if (!compparms (fn_arg_types, decl_arg_types))
2239 continue;
2241 /* Save this template, and the arguments deduced. */
2242 templates = tree_cons (targs, fn, templates);
2244 else if (need_member_template)
2245 /* FN is an ordinary member function, and we need a
2246 specialization of a member template. */
2248 else if (TREE_CODE (fn) != FUNCTION_DECL)
2249 /* We can get IDENTIFIER_NODEs here in certain erroneous
2250 cases. */
2252 else if (!DECL_FUNCTION_MEMBER_P (fn))
2253 /* This is just an ordinary non-member function. Nothing can
2254 be a specialization of that. */
2256 else if (DECL_ARTIFICIAL (fn))
2257 /* Cannot specialize functions that are created implicitly. */
2259 else
2261 tree decl_arg_types;
2263 /* This is an ordinary member function. However, since
2264 we're here, we can assume its enclosing class is a
2265 template class. For example,
2267 template <typename T> struct S { void f(); };
2268 template <> void S<int>::f() {}
2270 Here, S<int>::f is a non-template, but S<int> is a
2271 template class. If FN has the same type as DECL, we
2272 might be in business. */
2274 if (!DECL_TEMPLATE_INFO (fn))
2275 /* Its enclosing class is an explicit specialization
2276 of a template class. This is not a candidate. */
2277 continue;
2279 if (!same_type_p (TREE_TYPE (TREE_TYPE (decl)),
2280 TREE_TYPE (TREE_TYPE (fn))))
2281 /* The return types differ. */
2282 continue;
2284 /* Adjust the type of DECL in case FN is a static member. */
2285 decl_arg_types = TYPE_ARG_TYPES (TREE_TYPE (decl));
2286 if (DECL_STATIC_FUNCTION_P (fn)
2287 && DECL_NONSTATIC_MEMBER_FUNCTION_P (decl))
2288 decl_arg_types = TREE_CHAIN (decl_arg_types);
2290 if (!compparms (TYPE_ARG_TYPES (TREE_TYPE (fn)),
2291 decl_arg_types))
2292 continue;
2294 if (DECL_NONSTATIC_MEMBER_FUNCTION_P (fn)
2295 && (type_memfn_rqual (TREE_TYPE (decl))
2296 != type_memfn_rqual (TREE_TYPE (fn))))
2297 continue;
2299 // If the deduced arguments do not satisfy the constraints,
2300 // this is not a candidate.
2301 if (flag_concepts && !constraints_satisfied_p (fn))
2302 continue;
2304 // Add the candidate.
2305 candidates = tree_cons (NULL_TREE, fn, candidates);
2309 if (templates && TREE_CHAIN (templates))
2311 /* We have:
2313 [temp.expl.spec]
2315 It is possible for a specialization with a given function
2316 signature to be instantiated from more than one function
2317 template. In such cases, explicit specification of the
2318 template arguments must be used to uniquely identify the
2319 function template specialization being specialized.
2321 Note that here, there's no suggestion that we're supposed to
2322 determine which of the candidate templates is most
2323 specialized. However, we, also have:
2325 [temp.func.order]
2327 Partial ordering of overloaded function template
2328 declarations is used in the following contexts to select
2329 the function template to which a function template
2330 specialization refers:
2332 -- when an explicit specialization refers to a function
2333 template.
2335 So, we do use the partial ordering rules, at least for now.
2336 This extension can only serve to make invalid programs valid,
2337 so it's safe. And, there is strong anecdotal evidence that
2338 the committee intended the partial ordering rules to apply;
2339 the EDG front end has that behavior, and John Spicer claims
2340 that the committee simply forgot to delete the wording in
2341 [temp.expl.spec]. */
2342 tree tmpl = most_specialized_instantiation (templates);
2343 if (tmpl != error_mark_node)
2345 templates = tmpl;
2346 TREE_CHAIN (templates) = NULL_TREE;
2350 // Concepts allows multiple declarations of member functions
2351 // with the same signature. Like above, we need to rely on
2352 // on the partial ordering of those candidates to determine which
2353 // is the best.
2354 if (flag_concepts && candidates && TREE_CHAIN (candidates))
2356 if (tree cand = most_constrained_function (candidates))
2358 candidates = cand;
2359 TREE_CHAIN (cand) = NULL_TREE;
2363 if (templates == NULL_TREE && candidates == NULL_TREE)
2365 error ("template-id %qD for %q+D does not match any template "
2366 "declaration", template_id, decl);
2367 if (header_count && header_count != template_count + 1)
2368 inform (input_location, "saw %d %<template<>%>, need %d for "
2369 "specializing a member function template",
2370 header_count, template_count + 1);
2371 else
2372 print_candidates (orig_fns);
2373 return error_mark_node;
2375 else if ((templates && TREE_CHAIN (templates))
2376 || (candidates && TREE_CHAIN (candidates))
2377 || (templates && candidates))
2379 error ("ambiguous template specialization %qD for %q+D",
2380 template_id, decl);
2381 candidates = chainon (candidates, templates);
2382 print_candidates (candidates);
2383 return error_mark_node;
2386 /* We have one, and exactly one, match. */
2387 if (candidates)
2389 tree fn = TREE_VALUE (candidates);
2390 *targs_out = copy_node (DECL_TI_ARGS (fn));
2392 // Propagate the candidate's constraints to the declaration.
2393 set_constraints (decl, get_constraints (fn));
2395 /* DECL is a re-declaration or partial instantiation of a template
2396 function. */
2397 if (TREE_CODE (fn) == TEMPLATE_DECL)
2398 return fn;
2399 /* It was a specialization of an ordinary member function in a
2400 template class. */
2401 return DECL_TI_TEMPLATE (fn);
2404 /* It was a specialization of a template. */
2405 targs = DECL_TI_ARGS (DECL_TEMPLATE_RESULT (TREE_VALUE (templates)));
2406 if (TMPL_ARGS_HAVE_MULTIPLE_LEVELS (targs))
2408 *targs_out = copy_node (targs);
2409 SET_TMPL_ARGS_LEVEL (*targs_out,
2410 TMPL_ARGS_DEPTH (*targs_out),
2411 TREE_PURPOSE (templates));
2413 else
2414 *targs_out = TREE_PURPOSE (templates);
2415 return TREE_VALUE (templates);
2418 /* Returns a chain of parameter types, exactly like the SPEC_TYPES,
2419 but with the default argument values filled in from those in the
2420 TMPL_TYPES. */
2422 static tree
2423 copy_default_args_to_explicit_spec_1 (tree spec_types,
2424 tree tmpl_types)
2426 tree new_spec_types;
2428 if (!spec_types)
2429 return NULL_TREE;
2431 if (spec_types == void_list_node)
2432 return void_list_node;
2434 /* Substitute into the rest of the list. */
2435 new_spec_types =
2436 copy_default_args_to_explicit_spec_1 (TREE_CHAIN (spec_types),
2437 TREE_CHAIN (tmpl_types));
2439 /* Add the default argument for this parameter. */
2440 return hash_tree_cons (TREE_PURPOSE (tmpl_types),
2441 TREE_VALUE (spec_types),
2442 new_spec_types);
2445 /* DECL is an explicit specialization. Replicate default arguments
2446 from the template it specializes. (That way, code like:
2448 template <class T> void f(T = 3);
2449 template <> void f(double);
2450 void g () { f (); }
2452 works, as required.) An alternative approach would be to look up
2453 the correct default arguments at the call-site, but this approach
2454 is consistent with how implicit instantiations are handled. */
2456 static void
2457 copy_default_args_to_explicit_spec (tree decl)
2459 tree tmpl;
2460 tree spec_types;
2461 tree tmpl_types;
2462 tree new_spec_types;
2463 tree old_type;
2464 tree new_type;
2465 tree t;
2466 tree object_type = NULL_TREE;
2467 tree in_charge = NULL_TREE;
2468 tree vtt = NULL_TREE;
2470 /* See if there's anything we need to do. */
2471 tmpl = DECL_TI_TEMPLATE (decl);
2472 tmpl_types = TYPE_ARG_TYPES (TREE_TYPE (DECL_TEMPLATE_RESULT (tmpl)));
2473 for (t = tmpl_types; t; t = TREE_CHAIN (t))
2474 if (TREE_PURPOSE (t))
2475 break;
2476 if (!t)
2477 return;
2479 old_type = TREE_TYPE (decl);
2480 spec_types = TYPE_ARG_TYPES (old_type);
2482 if (DECL_NONSTATIC_MEMBER_FUNCTION_P (decl))
2484 /* Remove the this pointer, but remember the object's type for
2485 CV quals. */
2486 object_type = TREE_TYPE (TREE_VALUE (spec_types));
2487 spec_types = TREE_CHAIN (spec_types);
2488 tmpl_types = TREE_CHAIN (tmpl_types);
2490 if (DECL_HAS_IN_CHARGE_PARM_P (decl))
2492 /* DECL may contain more parameters than TMPL due to the extra
2493 in-charge parameter in constructors and destructors. */
2494 in_charge = spec_types;
2495 spec_types = TREE_CHAIN (spec_types);
2497 if (DECL_HAS_VTT_PARM_P (decl))
2499 vtt = spec_types;
2500 spec_types = TREE_CHAIN (spec_types);
2504 /* Compute the merged default arguments. */
2505 new_spec_types =
2506 copy_default_args_to_explicit_spec_1 (spec_types, tmpl_types);
2508 /* Compute the new FUNCTION_TYPE. */
2509 if (object_type)
2511 if (vtt)
2512 new_spec_types = hash_tree_cons (TREE_PURPOSE (vtt),
2513 TREE_VALUE (vtt),
2514 new_spec_types);
2516 if (in_charge)
2517 /* Put the in-charge parameter back. */
2518 new_spec_types = hash_tree_cons (TREE_PURPOSE (in_charge),
2519 TREE_VALUE (in_charge),
2520 new_spec_types);
2522 new_type = build_method_type_directly (object_type,
2523 TREE_TYPE (old_type),
2524 new_spec_types);
2526 else
2527 new_type = build_function_type (TREE_TYPE (old_type),
2528 new_spec_types);
2529 new_type = cp_build_type_attribute_variant (new_type,
2530 TYPE_ATTRIBUTES (old_type));
2531 new_type = build_exception_variant (new_type,
2532 TYPE_RAISES_EXCEPTIONS (old_type));
2534 if (TYPE_HAS_LATE_RETURN_TYPE (old_type))
2535 TYPE_HAS_LATE_RETURN_TYPE (new_type) = 1;
2537 TREE_TYPE (decl) = new_type;
2540 /* Return the number of template headers we expect to see for a definition
2541 or specialization of CTYPE or one of its non-template members. */
2544 num_template_headers_for_class (tree ctype)
2546 int num_templates = 0;
2548 while (ctype && CLASS_TYPE_P (ctype))
2550 /* You're supposed to have one `template <...>' for every
2551 template class, but you don't need one for a full
2552 specialization. For example:
2554 template <class T> struct S{};
2555 template <> struct S<int> { void f(); };
2556 void S<int>::f () {}
2558 is correct; there shouldn't be a `template <>' for the
2559 definition of `S<int>::f'. */
2560 if (!CLASSTYPE_TEMPLATE_INFO (ctype))
2561 /* If CTYPE does not have template information of any
2562 kind, then it is not a template, nor is it nested
2563 within a template. */
2564 break;
2565 if (explicit_class_specialization_p (ctype))
2566 break;
2567 if (PRIMARY_TEMPLATE_P (CLASSTYPE_TI_TEMPLATE (ctype)))
2568 ++num_templates;
2570 ctype = TYPE_CONTEXT (ctype);
2573 return num_templates;
2576 /* Do a simple sanity check on the template headers that precede the
2577 variable declaration DECL. */
2579 void
2580 check_template_variable (tree decl)
2582 tree ctx = CP_DECL_CONTEXT (decl);
2583 int wanted = num_template_headers_for_class (ctx);
2584 if (DECL_LANG_SPECIFIC (decl) && DECL_TEMPLATE_INFO (decl)
2585 && PRIMARY_TEMPLATE_P (DECL_TI_TEMPLATE (decl)))
2587 if (cxx_dialect < cxx14)
2588 pedwarn (DECL_SOURCE_LOCATION (decl), 0,
2589 "variable templates only available with "
2590 "-std=c++14 or -std=gnu++14");
2592 // Namespace-scope variable templates should have a template header.
2593 ++wanted;
2595 if (template_header_count > wanted)
2597 bool warned = pedwarn (DECL_SOURCE_LOCATION (decl), 0,
2598 "too many template headers for %qD "
2599 "(should be %d)",
2600 decl, wanted);
2601 if (warned && CLASS_TYPE_P (ctx)
2602 && CLASSTYPE_TEMPLATE_SPECIALIZATION (ctx))
2603 inform (DECL_SOURCE_LOCATION (decl),
2604 "members of an explicitly specialized class are defined "
2605 "without a template header");
2609 /* An explicit specialization whose declarator-id or class-head-name is not
2610 qualified shall be declared in the nearest enclosing namespace of the
2611 template, or, if the namespace is inline (7.3.1), any namespace from its
2612 enclosing namespace set.
2614 If the name declared in the explicit instantiation is an unqualified name,
2615 the explicit instantiation shall appear in the namespace where its template
2616 is declared or, if that namespace is inline (7.3.1), any namespace from its
2617 enclosing namespace set. */
2619 void
2620 check_unqualified_spec_or_inst (tree t, location_t loc)
2622 tree tmpl = most_general_template (t);
2623 if (DECL_NAMESPACE_SCOPE_P (tmpl)
2624 && !is_nested_namespace (current_namespace,
2625 CP_DECL_CONTEXT (tmpl), true))
2627 if (processing_specialization)
2628 permerror (loc, "explicit specialization of %qD outside its "
2629 "namespace must use a nested-name-specifier", tmpl);
2630 else if (processing_explicit_instantiation
2631 && cxx_dialect >= cxx11)
2632 /* This was allowed in C++98, so only pedwarn. */
2633 pedwarn (loc, OPT_Wpedantic, "explicit instantiation of %qD "
2634 "outside its namespace must use a nested-name-"
2635 "specifier", tmpl);
2639 /* Warn for a template specialization SPEC that is missing some of a set
2640 of function or type attributes that the template TEMPL is declared with.
2641 ATTRLIST is a list of additional attributes that SPEC should be taken
2642 to ultimately be declared with. */
2644 static void
2645 warn_spec_missing_attributes (tree tmpl, tree spec, tree attrlist)
2647 if (DECL_FUNCTION_TEMPLATE_P (tmpl))
2648 tmpl = DECL_TEMPLATE_RESULT (tmpl);
2650 if (TREE_CODE (tmpl) != FUNCTION_DECL)
2651 return;
2653 /* Avoid warning if either declaration or its type is deprecated. */
2654 if (TREE_DEPRECATED (tmpl)
2655 || TREE_DEPRECATED (spec))
2656 return;
2658 tree tmpl_type = TREE_TYPE (tmpl);
2659 tree spec_type = TREE_TYPE (spec);
2661 if (TREE_DEPRECATED (tmpl_type)
2662 || TREE_DEPRECATED (spec_type)
2663 || TREE_DEPRECATED (TREE_TYPE (tmpl_type))
2664 || TREE_DEPRECATED (TREE_TYPE (spec_type)))
2665 return;
2667 tree tmpl_attrs[] = { DECL_ATTRIBUTES (tmpl), TYPE_ATTRIBUTES (tmpl_type) };
2668 tree spec_attrs[] = { DECL_ATTRIBUTES (spec), TYPE_ATTRIBUTES (spec_type) };
2670 if (!spec_attrs[0])
2671 spec_attrs[0] = attrlist;
2672 else if (!spec_attrs[1])
2673 spec_attrs[1] = attrlist;
2675 /* Avoid warning if the primary has no attributes. */
2676 if (!tmpl_attrs[0] && !tmpl_attrs[1])
2677 return;
2679 /* Avoid warning if either declaration contains an attribute on
2680 the white list below. */
2681 const char* const whitelist[] = {
2682 "error", "warning"
2685 for (unsigned i = 0; i != 2; ++i)
2686 for (unsigned j = 0; j != sizeof whitelist / sizeof *whitelist; ++j)
2687 if (lookup_attribute (whitelist[j], tmpl_attrs[i])
2688 || lookup_attribute (whitelist[j], spec_attrs[i]))
2689 return;
2691 /* Avoid warning if the difference between the primary and
2692 the specialization is not in one of the attributes below. */
2693 const char* const blacklist[] = {
2694 "alloc_align", "alloc_size", "assume_aligned", "format",
2695 "format_arg", "malloc", "nonnull"
2698 /* Put together a list of the black listed attributes that the primary
2699 template is declared with that the specialization is not, in case
2700 it's not apparent from the most recent declaration of the primary. */
2701 unsigned nattrs = 0;
2702 pretty_printer str;
2704 for (unsigned i = 0; i != sizeof blacklist / sizeof *blacklist; ++i)
2706 for (unsigned j = 0; j != 2; ++j)
2708 if (!lookup_attribute (blacklist[i], tmpl_attrs[j]))
2709 continue;
2711 for (unsigned k = 0; k != 1 + !!spec_attrs[1]; ++k)
2713 if (lookup_attribute (blacklist[i], spec_attrs[k]))
2714 break;
2716 if (nattrs)
2717 pp_string (&str, ", ");
2718 pp_begin_quote (&str, pp_show_color (global_dc->printer));
2719 pp_string (&str, blacklist[i]);
2720 pp_end_quote (&str, pp_show_color (global_dc->printer));
2721 ++nattrs;
2726 if (!nattrs)
2727 return;
2729 if (warning_at (DECL_SOURCE_LOCATION (spec), OPT_Wmissing_attributes,
2730 "explicit specialization %q#D may be missing attributes",
2731 spec))
2732 inform (DECL_SOURCE_LOCATION (tmpl),
2733 nattrs > 1
2734 ? G_("missing primary template attributes %s")
2735 : G_("missing primary template attribute %s"),
2736 pp_formatted_text (&str));
2739 /* Check to see if the function just declared, as indicated in
2740 DECLARATOR, and in DECL, is a specialization of a function
2741 template. We may also discover that the declaration is an explicit
2742 instantiation at this point.
2744 Returns DECL, or an equivalent declaration that should be used
2745 instead if all goes well. Issues an error message if something is
2746 amiss. Returns error_mark_node if the error is not easily
2747 recoverable.
2749 FLAGS is a bitmask consisting of the following flags:
2751 2: The function has a definition.
2752 4: The function is a friend.
2754 The TEMPLATE_COUNT is the number of references to qualifying
2755 template classes that appeared in the name of the function. For
2756 example, in
2758 template <class T> struct S { void f(); };
2759 void S<int>::f();
2761 the TEMPLATE_COUNT would be 1. However, explicitly specialized
2762 classes are not counted in the TEMPLATE_COUNT, so that in
2764 template <class T> struct S {};
2765 template <> struct S<int> { void f(); }
2766 template <> void S<int>::f();
2768 the TEMPLATE_COUNT would be 0. (Note that this declaration is
2769 invalid; there should be no template <>.)
2771 If the function is a specialization, it is marked as such via
2772 DECL_TEMPLATE_SPECIALIZATION. Furthermore, its DECL_TEMPLATE_INFO
2773 is set up correctly, and it is added to the list of specializations
2774 for that template. */
2776 tree
2777 check_explicit_specialization (tree declarator,
2778 tree decl,
2779 int template_count,
2780 int flags,
2781 tree attrlist)
2783 int have_def = flags & 2;
2784 int is_friend = flags & 4;
2785 bool is_concept = flags & 8;
2786 int specialization = 0;
2787 int explicit_instantiation = 0;
2788 int member_specialization = 0;
2789 tree ctype = DECL_CLASS_CONTEXT (decl);
2790 tree dname = DECL_NAME (decl);
2791 tmpl_spec_kind tsk;
2793 if (is_friend)
2795 if (!processing_specialization)
2796 tsk = tsk_none;
2797 else
2798 tsk = tsk_excessive_parms;
2800 else
2801 tsk = current_tmpl_spec_kind (template_count);
2803 switch (tsk)
2805 case tsk_none:
2806 if (processing_specialization && !VAR_P (decl))
2808 specialization = 1;
2809 SET_DECL_TEMPLATE_SPECIALIZATION (decl);
2811 else if (TREE_CODE (declarator) == TEMPLATE_ID_EXPR)
2813 if (is_friend)
2814 /* This could be something like:
2816 template <class T> void f(T);
2817 class S { friend void f<>(int); } */
2818 specialization = 1;
2819 else
2821 /* This case handles bogus declarations like template <>
2822 template <class T> void f<int>(); */
2824 error ("template-id %qD in declaration of primary template",
2825 declarator);
2826 return decl;
2829 break;
2831 case tsk_invalid_member_spec:
2832 /* The error has already been reported in
2833 check_specialization_scope. */
2834 return error_mark_node;
2836 case tsk_invalid_expl_inst:
2837 error ("template parameter list used in explicit instantiation");
2839 /* Fall through. */
2841 case tsk_expl_inst:
2842 if (have_def)
2843 error ("definition provided for explicit instantiation");
2845 explicit_instantiation = 1;
2846 break;
2848 case tsk_excessive_parms:
2849 case tsk_insufficient_parms:
2850 if (tsk == tsk_excessive_parms)
2851 error ("too many template parameter lists in declaration of %qD",
2852 decl);
2853 else if (template_header_count)
2854 error("too few template parameter lists in declaration of %qD", decl);
2855 else
2856 error("explicit specialization of %qD must be introduced by "
2857 "%<template <>%>", decl);
2859 /* Fall through. */
2860 case tsk_expl_spec:
2861 if (is_concept)
2862 error ("explicit specialization declared %<concept%>");
2864 if (VAR_P (decl) && TREE_CODE (declarator) != TEMPLATE_ID_EXPR)
2865 /* In cases like template<> constexpr bool v = true;
2866 We'll give an error in check_template_variable. */
2867 break;
2869 SET_DECL_TEMPLATE_SPECIALIZATION (decl);
2870 if (ctype)
2871 member_specialization = 1;
2872 else
2873 specialization = 1;
2874 break;
2876 case tsk_template:
2877 if (TREE_CODE (declarator) == TEMPLATE_ID_EXPR)
2879 /* This case handles bogus declarations like template <>
2880 template <class T> void f<int>(); */
2882 if (!uses_template_parms (declarator))
2883 error ("template-id %qD in declaration of primary template",
2884 declarator);
2885 else if (variable_template_p (TREE_OPERAND (declarator, 0)))
2887 /* Partial specialization of variable template. */
2888 SET_DECL_TEMPLATE_SPECIALIZATION (decl);
2889 specialization = 1;
2890 goto ok;
2892 else if (cxx_dialect < cxx14)
2893 error ("non-type partial specialization %qD "
2894 "is not allowed", declarator);
2895 else
2896 error ("non-class, non-variable partial specialization %qD "
2897 "is not allowed", declarator);
2898 return decl;
2899 ok:;
2902 if (ctype && CLASSTYPE_TEMPLATE_INSTANTIATION (ctype))
2903 /* This is a specialization of a member template, without
2904 specialization the containing class. Something like:
2906 template <class T> struct S {
2907 template <class U> void f (U);
2909 template <> template <class U> void S<int>::f(U) {}
2911 That's a specialization -- but of the entire template. */
2912 specialization = 1;
2913 break;
2915 default:
2916 gcc_unreachable ();
2919 if ((specialization || member_specialization)
2920 /* This doesn't apply to variable templates. */
2921 && (TREE_CODE (TREE_TYPE (decl)) == FUNCTION_TYPE
2922 || TREE_CODE (TREE_TYPE (decl)) == METHOD_TYPE))
2924 tree t = TYPE_ARG_TYPES (TREE_TYPE (decl));
2925 for (; t; t = TREE_CHAIN (t))
2926 if (TREE_PURPOSE (t))
2928 permerror (input_location,
2929 "default argument specified in explicit specialization");
2930 break;
2934 if (specialization || member_specialization || explicit_instantiation)
2936 tree tmpl = NULL_TREE;
2937 tree targs = NULL_TREE;
2938 bool was_template_id = (TREE_CODE (declarator) == TEMPLATE_ID_EXPR);
2940 /* Make sure that the declarator is a TEMPLATE_ID_EXPR. */
2941 if (!was_template_id)
2943 tree fns;
2945 gcc_assert (identifier_p (declarator));
2946 if (ctype)
2947 fns = dname;
2948 else
2950 /* If there is no class context, the explicit instantiation
2951 must be at namespace scope. */
2952 gcc_assert (DECL_NAMESPACE_SCOPE_P (decl));
2954 /* Find the namespace binding, using the declaration
2955 context. */
2956 fns = lookup_qualified_name (CP_DECL_CONTEXT (decl), dname,
2957 false, true);
2958 if (fns == error_mark_node)
2959 /* If lookup fails, look for a friend declaration so we can
2960 give a better diagnostic. */
2961 fns = lookup_qualified_name (CP_DECL_CONTEXT (decl), dname,
2962 /*type*/false, /*complain*/true,
2963 /*hidden*/true);
2965 if (fns == error_mark_node || !is_overloaded_fn (fns))
2967 error ("%qD is not a template function", dname);
2968 fns = error_mark_node;
2972 declarator = lookup_template_function (fns, NULL_TREE);
2975 if (declarator == error_mark_node)
2976 return error_mark_node;
2978 if (ctype != NULL_TREE && TYPE_BEING_DEFINED (ctype))
2980 if (!explicit_instantiation)
2981 /* A specialization in class scope. This is invalid,
2982 but the error will already have been flagged by
2983 check_specialization_scope. */
2984 return error_mark_node;
2985 else
2987 /* It's not valid to write an explicit instantiation in
2988 class scope, e.g.:
2990 class C { template void f(); }
2992 This case is caught by the parser. However, on
2993 something like:
2995 template class C { void f(); };
2997 (which is invalid) we can get here. The error will be
2998 issued later. */
3002 return decl;
3004 else if (ctype != NULL_TREE
3005 && (identifier_p (TREE_OPERAND (declarator, 0))))
3007 // We'll match variable templates in start_decl.
3008 if (VAR_P (decl))
3009 return decl;
3011 /* Find the list of functions in ctype that have the same
3012 name as the declared function. */
3013 tree name = TREE_OPERAND (declarator, 0);
3015 if (constructor_name_p (name, ctype))
3017 if (DECL_CONSTRUCTOR_P (decl)
3018 ? !TYPE_HAS_USER_CONSTRUCTOR (ctype)
3019 : !CLASSTYPE_DESTRUCTOR (ctype))
3021 /* From [temp.expl.spec]:
3023 If such an explicit specialization for the member
3024 of a class template names an implicitly-declared
3025 special member function (clause _special_), the
3026 program is ill-formed.
3028 Similar language is found in [temp.explicit]. */
3029 error ("specialization of implicitly-declared special member function");
3030 return error_mark_node;
3033 name = DECL_NAME (decl);
3036 /* For a type-conversion operator, We might be looking for
3037 `operator int' which will be a specialization of
3038 `operator T'. Grab all the conversion operators, and
3039 then select from them. */
3040 tree fns = get_class_binding (ctype, IDENTIFIER_CONV_OP_P (name)
3041 ? conv_op_identifier : name);
3043 if (fns == NULL_TREE)
3045 error ("no member function %qD declared in %qT", name, ctype);
3046 return error_mark_node;
3048 else
3049 TREE_OPERAND (declarator, 0) = fns;
3052 /* Figure out what exactly is being specialized at this point.
3053 Note that for an explicit instantiation, even one for a
3054 member function, we cannot tell a priori whether the
3055 instantiation is for a member template, or just a member
3056 function of a template class. Even if a member template is
3057 being instantiated, the member template arguments may be
3058 elided if they can be deduced from the rest of the
3059 declaration. */
3060 tmpl = determine_specialization (declarator, decl,
3061 &targs,
3062 member_specialization,
3063 template_count,
3064 tsk);
3066 if (!tmpl || tmpl == error_mark_node)
3067 /* We couldn't figure out what this declaration was
3068 specializing. */
3069 return error_mark_node;
3070 else
3072 if (TREE_CODE (decl) == FUNCTION_DECL
3073 && DECL_HIDDEN_FRIEND_P (tmpl))
3075 if (pedwarn (DECL_SOURCE_LOCATION (decl), 0,
3076 "friend declaration %qD is not visible to "
3077 "explicit specialization", tmpl))
3078 inform (DECL_SOURCE_LOCATION (tmpl),
3079 "friend declaration here");
3081 else if (!ctype && !is_friend
3082 && CP_DECL_CONTEXT (decl) == current_namespace)
3083 check_unqualified_spec_or_inst (tmpl, DECL_SOURCE_LOCATION (decl));
3085 tree gen_tmpl = most_general_template (tmpl);
3087 if (explicit_instantiation)
3089 /* We don't set DECL_EXPLICIT_INSTANTIATION here; that
3090 is done by do_decl_instantiation later. */
3092 int arg_depth = TMPL_ARGS_DEPTH (targs);
3093 int parm_depth = TMPL_PARMS_DEPTH (DECL_TEMPLATE_PARMS (tmpl));
3095 if (arg_depth > parm_depth)
3097 /* If TMPL is not the most general template (for
3098 example, if TMPL is a friend template that is
3099 injected into namespace scope), then there will
3100 be too many levels of TARGS. Remove some of them
3101 here. */
3102 int i;
3103 tree new_targs;
3105 new_targs = make_tree_vec (parm_depth);
3106 for (i = arg_depth - parm_depth; i < arg_depth; ++i)
3107 TREE_VEC_ELT (new_targs, i - (arg_depth - parm_depth))
3108 = TREE_VEC_ELT (targs, i);
3109 targs = new_targs;
3112 return instantiate_template (tmpl, targs, tf_error);
3115 /* If we thought that the DECL was a member function, but it
3116 turns out to be specializing a static member function,
3117 make DECL a static member function as well. */
3118 if (DECL_FUNCTION_TEMPLATE_P (tmpl)
3119 && DECL_STATIC_FUNCTION_P (tmpl)
3120 && DECL_NONSTATIC_MEMBER_FUNCTION_P (decl))
3121 revert_static_member_fn (decl);
3123 /* If this is a specialization of a member template of a
3124 template class, we want to return the TEMPLATE_DECL, not
3125 the specialization of it. */
3126 if (tsk == tsk_template && !was_template_id)
3128 tree result = DECL_TEMPLATE_RESULT (tmpl);
3129 SET_DECL_TEMPLATE_SPECIALIZATION (tmpl);
3130 DECL_INITIAL (result) = NULL_TREE;
3131 if (have_def)
3133 tree parm;
3134 DECL_SOURCE_LOCATION (tmpl) = DECL_SOURCE_LOCATION (decl);
3135 DECL_SOURCE_LOCATION (result)
3136 = DECL_SOURCE_LOCATION (decl);
3137 /* We want to use the argument list specified in the
3138 definition, not in the original declaration. */
3139 DECL_ARGUMENTS (result) = DECL_ARGUMENTS (decl);
3140 for (parm = DECL_ARGUMENTS (result); parm;
3141 parm = DECL_CHAIN (parm))
3142 DECL_CONTEXT (parm) = result;
3144 return register_specialization (tmpl, gen_tmpl, targs,
3145 is_friend, 0);
3148 /* Set up the DECL_TEMPLATE_INFO for DECL. */
3149 DECL_TEMPLATE_INFO (decl) = build_template_info (tmpl, targs);
3151 if (was_template_id)
3152 TINFO_USED_TEMPLATE_ID (DECL_TEMPLATE_INFO (decl)) = true;
3154 /* Inherit default function arguments from the template
3155 DECL is specializing. */
3156 if (DECL_FUNCTION_TEMPLATE_P (tmpl))
3157 copy_default_args_to_explicit_spec (decl);
3159 /* This specialization has the same protection as the
3160 template it specializes. */
3161 TREE_PRIVATE (decl) = TREE_PRIVATE (gen_tmpl);
3162 TREE_PROTECTED (decl) = TREE_PROTECTED (gen_tmpl);
3164 /* 7.1.1-1 [dcl.stc]
3166 A storage-class-specifier shall not be specified in an
3167 explicit specialization...
3169 The parser rejects these, so unless action is taken here,
3170 explicit function specializations will always appear with
3171 global linkage.
3173 The action recommended by the C++ CWG in response to C++
3174 defect report 605 is to make the storage class and linkage
3175 of the explicit specialization match the templated function:
3177 http://www.open-std.org/jtc1/sc22/wg21/docs/cwg_active.html#605
3179 if (tsk == tsk_expl_spec && DECL_FUNCTION_TEMPLATE_P (gen_tmpl))
3181 tree tmpl_func = DECL_TEMPLATE_RESULT (gen_tmpl);
3182 gcc_assert (TREE_CODE (tmpl_func) == FUNCTION_DECL);
3184 /* A concept cannot be specialized. */
3185 if (DECL_DECLARED_CONCEPT_P (tmpl_func))
3187 error ("explicit specialization of function concept %qD",
3188 gen_tmpl);
3189 return error_mark_node;
3192 /* This specialization has the same linkage and visibility as
3193 the function template it specializes. */
3194 TREE_PUBLIC (decl) = TREE_PUBLIC (tmpl_func);
3195 if (! TREE_PUBLIC (decl))
3197 DECL_INTERFACE_KNOWN (decl) = 1;
3198 DECL_NOT_REALLY_EXTERN (decl) = 1;
3200 DECL_THIS_STATIC (decl) = DECL_THIS_STATIC (tmpl_func);
3201 if (DECL_VISIBILITY_SPECIFIED (tmpl_func))
3203 DECL_VISIBILITY_SPECIFIED (decl) = 1;
3204 DECL_VISIBILITY (decl) = DECL_VISIBILITY (tmpl_func);
3208 /* If DECL is a friend declaration, declared using an
3209 unqualified name, the namespace associated with DECL may
3210 have been set incorrectly. For example, in:
3212 template <typename T> void f(T);
3213 namespace N {
3214 struct S { friend void f<int>(int); }
3217 we will have set the DECL_CONTEXT for the friend
3218 declaration to N, rather than to the global namespace. */
3219 if (DECL_NAMESPACE_SCOPE_P (decl))
3220 DECL_CONTEXT (decl) = DECL_CONTEXT (tmpl);
3222 if (is_friend && !have_def)
3223 /* This is not really a declaration of a specialization.
3224 It's just the name of an instantiation. But, it's not
3225 a request for an instantiation, either. */
3226 SET_DECL_IMPLICIT_INSTANTIATION (decl);
3227 else if (TREE_CODE (decl) == FUNCTION_DECL)
3228 /* A specialization is not necessarily COMDAT. */
3229 DECL_COMDAT (decl) = (TREE_PUBLIC (decl)
3230 && DECL_DECLARED_INLINE_P (decl));
3231 else if (VAR_P (decl))
3232 DECL_COMDAT (decl) = false;
3234 /* If this is a full specialization, register it so that we can find
3235 it again. Partial specializations will be registered in
3236 process_partial_specialization. */
3237 if (!processing_template_decl)
3239 warn_spec_missing_attributes (gen_tmpl, decl, attrlist);
3241 decl = register_specialization (decl, gen_tmpl, targs,
3242 is_friend, 0);
3246 /* A 'structor should already have clones. */
3247 gcc_assert (decl == error_mark_node
3248 || variable_template_p (tmpl)
3249 || !(DECL_CONSTRUCTOR_P (decl)
3250 || DECL_DESTRUCTOR_P (decl))
3251 || DECL_CLONED_FUNCTION_P (DECL_CHAIN (decl)));
3255 return decl;
3258 /* Returns 1 iff PARMS1 and PARMS2 are identical sets of template
3259 parameters. These are represented in the same format used for
3260 DECL_TEMPLATE_PARMS. */
3263 comp_template_parms (const_tree parms1, const_tree parms2)
3265 const_tree p1;
3266 const_tree p2;
3268 if (parms1 == parms2)
3269 return 1;
3271 for (p1 = parms1, p2 = parms2;
3272 p1 != NULL_TREE && p2 != NULL_TREE;
3273 p1 = TREE_CHAIN (p1), p2 = TREE_CHAIN (p2))
3275 tree t1 = TREE_VALUE (p1);
3276 tree t2 = TREE_VALUE (p2);
3277 int i;
3279 gcc_assert (TREE_CODE (t1) == TREE_VEC);
3280 gcc_assert (TREE_CODE (t2) == TREE_VEC);
3282 if (TREE_VEC_LENGTH (t1) != TREE_VEC_LENGTH (t2))
3283 return 0;
3285 for (i = 0; i < TREE_VEC_LENGTH (t2); ++i)
3287 tree parm1 = TREE_VALUE (TREE_VEC_ELT (t1, i));
3288 tree parm2 = TREE_VALUE (TREE_VEC_ELT (t2, i));
3290 /* If either of the template parameters are invalid, assume
3291 they match for the sake of error recovery. */
3292 if (error_operand_p (parm1) || error_operand_p (parm2))
3293 return 1;
3295 if (TREE_CODE (parm1) != TREE_CODE (parm2))
3296 return 0;
3298 if (TREE_CODE (parm1) == TEMPLATE_TYPE_PARM
3299 && (TEMPLATE_TYPE_PARAMETER_PACK (parm1)
3300 == TEMPLATE_TYPE_PARAMETER_PACK (parm2)))
3301 continue;
3302 else if (!same_type_p (TREE_TYPE (parm1), TREE_TYPE (parm2)))
3303 return 0;
3307 if ((p1 != NULL_TREE) != (p2 != NULL_TREE))
3308 /* One set of parameters has more parameters lists than the
3309 other. */
3310 return 0;
3312 return 1;
3315 /* Determine whether PARM is a parameter pack. */
3317 bool
3318 template_parameter_pack_p (const_tree parm)
3320 /* Determine if we have a non-type template parameter pack. */
3321 if (TREE_CODE (parm) == PARM_DECL)
3322 return (DECL_TEMPLATE_PARM_P (parm)
3323 && TEMPLATE_PARM_PARAMETER_PACK (DECL_INITIAL (parm)));
3324 if (TREE_CODE (parm) == TEMPLATE_PARM_INDEX)
3325 return TEMPLATE_PARM_PARAMETER_PACK (parm);
3327 /* If this is a list of template parameters, we could get a
3328 TYPE_DECL or a TEMPLATE_DECL. */
3329 if (TREE_CODE (parm) == TYPE_DECL || TREE_CODE (parm) == TEMPLATE_DECL)
3330 parm = TREE_TYPE (parm);
3332 /* Otherwise it must be a type template parameter. */
3333 return ((TREE_CODE (parm) == TEMPLATE_TYPE_PARM
3334 || TREE_CODE (parm) == TEMPLATE_TEMPLATE_PARM)
3335 && TEMPLATE_TYPE_PARAMETER_PACK (parm));
3338 /* Determine if T is a function parameter pack. */
3340 bool
3341 function_parameter_pack_p (const_tree t)
3343 if (t && TREE_CODE (t) == PARM_DECL)
3344 return DECL_PACK_P (t);
3345 return false;
3348 /* Return the function template declaration of PRIMARY_FUNC_TMPL_INST.
3349 PRIMARY_FUNC_TMPL_INST is a primary function template instantiation. */
3351 tree
3352 get_function_template_decl (const_tree primary_func_tmpl_inst)
3354 if (! primary_func_tmpl_inst
3355 || TREE_CODE (primary_func_tmpl_inst) != FUNCTION_DECL
3356 || ! primary_template_specialization_p (primary_func_tmpl_inst))
3357 return NULL;
3359 return DECL_TEMPLATE_RESULT (DECL_TI_TEMPLATE (primary_func_tmpl_inst));
3362 /* Return true iff the function parameter PARAM_DECL was expanded
3363 from the function parameter pack PACK. */
3365 bool
3366 function_parameter_expanded_from_pack_p (tree param_decl, tree pack)
3368 if (DECL_ARTIFICIAL (param_decl)
3369 || !function_parameter_pack_p (pack))
3370 return false;
3372 /* The parameter pack and its pack arguments have the same
3373 DECL_PARM_INDEX. */
3374 return DECL_PARM_INDEX (pack) == DECL_PARM_INDEX (param_decl);
3377 /* Determine whether ARGS describes a variadic template args list,
3378 i.e., one that is terminated by a template argument pack. */
3380 static bool
3381 template_args_variadic_p (tree args)
3383 int nargs;
3384 tree last_parm;
3386 if (args == NULL_TREE)
3387 return false;
3389 args = INNERMOST_TEMPLATE_ARGS (args);
3390 nargs = TREE_VEC_LENGTH (args);
3392 if (nargs == 0)
3393 return false;
3395 last_parm = TREE_VEC_ELT (args, nargs - 1);
3397 return ARGUMENT_PACK_P (last_parm);
3400 /* Generate a new name for the parameter pack name NAME (an
3401 IDENTIFIER_NODE) that incorporates its */
3403 static tree
3404 make_ith_pack_parameter_name (tree name, int i)
3406 /* Munge the name to include the parameter index. */
3407 #define NUMBUF_LEN 128
3408 char numbuf[NUMBUF_LEN];
3409 char* newname;
3410 int newname_len;
3412 if (name == NULL_TREE)
3413 return name;
3414 snprintf (numbuf, NUMBUF_LEN, "%i", i);
3415 newname_len = IDENTIFIER_LENGTH (name)
3416 + strlen (numbuf) + 2;
3417 newname = (char*)alloca (newname_len);
3418 snprintf (newname, newname_len,
3419 "%s#%i", IDENTIFIER_POINTER (name), i);
3420 return get_identifier (newname);
3423 /* Return true if T is a primary function, class or alias template
3424 specialization, not including the template pattern. */
3426 bool
3427 primary_template_specialization_p (const_tree t)
3429 if (!t)
3430 return false;
3432 if (TREE_CODE (t) == FUNCTION_DECL || VAR_P (t))
3433 return (DECL_LANG_SPECIFIC (t)
3434 && DECL_USE_TEMPLATE (t)
3435 && DECL_TEMPLATE_INFO (t)
3436 && PRIMARY_TEMPLATE_P (DECL_TI_TEMPLATE (t)));
3437 else if (CLASS_TYPE_P (t) && !TYPE_DECL_ALIAS_P (TYPE_NAME (t)))
3438 return (CLASSTYPE_TEMPLATE_INFO (t)
3439 && CLASSTYPE_USE_TEMPLATE (t)
3440 && PRIMARY_TEMPLATE_P (CLASSTYPE_TI_TEMPLATE (t)));
3441 else if (alias_template_specialization_p (t))
3442 return true;
3443 return false;
3446 /* Return true if PARM is a template template parameter. */
3448 bool
3449 template_template_parameter_p (const_tree parm)
3451 return DECL_TEMPLATE_TEMPLATE_PARM_P (parm);
3454 /* Return true iff PARM is a DECL representing a type template
3455 parameter. */
3457 bool
3458 template_type_parameter_p (const_tree parm)
3460 return (parm
3461 && (TREE_CODE (parm) == TYPE_DECL
3462 || TREE_CODE (parm) == TEMPLATE_DECL)
3463 && DECL_TEMPLATE_PARM_P (parm));
3466 /* Return the template parameters of T if T is a
3467 primary template instantiation, NULL otherwise. */
3469 tree
3470 get_primary_template_innermost_parameters (const_tree t)
3472 tree parms = NULL, template_info = NULL;
3474 if ((template_info = get_template_info (t))
3475 && primary_template_specialization_p (t))
3476 parms = INNERMOST_TEMPLATE_PARMS
3477 (DECL_TEMPLATE_PARMS (TI_TEMPLATE (template_info)));
3479 return parms;
3482 /* Return the template parameters of the LEVELth level from the full list
3483 of template parameters PARMS. */
3485 tree
3486 get_template_parms_at_level (tree parms, int level)
3488 tree p;
3489 if (!parms
3490 || TREE_CODE (parms) != TREE_LIST
3491 || level > TMPL_PARMS_DEPTH (parms))
3492 return NULL_TREE;
3494 for (p = parms; p; p = TREE_CHAIN (p))
3495 if (TMPL_PARMS_DEPTH (p) == level)
3496 return p;
3498 return NULL_TREE;
3501 /* Returns the template arguments of T if T is a template instantiation,
3502 NULL otherwise. */
3504 tree
3505 get_template_innermost_arguments (const_tree t)
3507 tree args = NULL, template_info = NULL;
3509 if ((template_info = get_template_info (t))
3510 && TI_ARGS (template_info))
3511 args = INNERMOST_TEMPLATE_ARGS (TI_ARGS (template_info));
3513 return args;
3516 /* Return the argument pack elements of T if T is a template argument pack,
3517 NULL otherwise. */
3519 tree
3520 get_template_argument_pack_elems (const_tree t)
3522 if (TREE_CODE (t) != TYPE_ARGUMENT_PACK
3523 && TREE_CODE (t) != NONTYPE_ARGUMENT_PACK)
3524 return NULL;
3526 return ARGUMENT_PACK_ARGS (t);
3529 /* In an ARGUMENT_PACK_SELECT, the actual underlying argument that the
3530 ARGUMENT_PACK_SELECT represents. */
3532 static tree
3533 argument_pack_select_arg (tree t)
3535 tree args = ARGUMENT_PACK_ARGS (ARGUMENT_PACK_SELECT_FROM_PACK (t));
3536 tree arg = TREE_VEC_ELT (args, ARGUMENT_PACK_SELECT_INDEX (t));
3538 /* If the selected argument is an expansion E, that most likely means we were
3539 called from gen_elem_of_pack_expansion_instantiation during the
3540 substituting of an argument pack (of which the Ith element is a pack
3541 expansion, where I is ARGUMENT_PACK_SELECT_INDEX) into a pack expansion.
3542 In this case, the Ith element resulting from this substituting is going to
3543 be a pack expansion, which pattern is the pattern of E. Let's return the
3544 pattern of E, and gen_elem_of_pack_expansion_instantiation will build the
3545 resulting pack expansion from it. */
3546 if (PACK_EXPANSION_P (arg))
3548 /* Make sure we aren't throwing away arg info. */
3549 gcc_assert (!PACK_EXPANSION_EXTRA_ARGS (arg));
3550 arg = PACK_EXPANSION_PATTERN (arg);
3553 return arg;
3557 /* True iff FN is a function representing a built-in variadic parameter
3558 pack. */
3560 bool
3561 builtin_pack_fn_p (tree fn)
3563 if (!fn
3564 || TREE_CODE (fn) != FUNCTION_DECL
3565 || !DECL_IS_BUILTIN (fn))
3566 return false;
3568 if (id_equal (DECL_NAME (fn), "__integer_pack"))
3569 return true;
3571 return false;
3574 /* True iff CALL is a call to a function representing a built-in variadic
3575 parameter pack. */
3577 static bool
3578 builtin_pack_call_p (tree call)
3580 if (TREE_CODE (call) != CALL_EXPR)
3581 return false;
3582 return builtin_pack_fn_p (CALL_EXPR_FN (call));
3585 /* Return a TREE_VEC for the expansion of __integer_pack(HI). */
3587 static tree
3588 expand_integer_pack (tree call, tree args, tsubst_flags_t complain,
3589 tree in_decl)
3591 tree ohi = CALL_EXPR_ARG (call, 0);
3592 tree hi = tsubst_copy_and_build (ohi, args, complain, in_decl,
3593 false/*fn*/, true/*int_cst*/);
3595 if (value_dependent_expression_p (hi))
3597 if (hi != ohi)
3599 call = copy_node (call);
3600 CALL_EXPR_ARG (call, 0) = hi;
3602 tree ex = make_pack_expansion (call, complain);
3603 tree vec = make_tree_vec (1);
3604 TREE_VEC_ELT (vec, 0) = ex;
3605 return vec;
3607 else
3609 hi = cxx_constant_value (hi);
3610 int len = valid_constant_size_p (hi) ? tree_to_shwi (hi) : -1;
3612 /* Calculate the largest value of len that won't make the size of the vec
3613 overflow an int. The compiler will exceed resource limits long before
3614 this, but it seems a decent place to diagnose. */
3615 int max = ((INT_MAX - sizeof (tree_vec)) / sizeof (tree)) + 1;
3617 if (len < 0 || len > max)
3619 if ((complain & tf_error)
3620 && hi != error_mark_node)
3621 error ("argument to __integer_pack must be between 0 and %d", max);
3622 return error_mark_node;
3625 tree vec = make_tree_vec (len);
3627 for (int i = 0; i < len; ++i)
3628 TREE_VEC_ELT (vec, i) = size_int (i);
3630 return vec;
3634 /* Return a TREE_VEC for the expansion of built-in template parameter pack
3635 CALL. */
3637 static tree
3638 expand_builtin_pack_call (tree call, tree args, tsubst_flags_t complain,
3639 tree in_decl)
3641 if (!builtin_pack_call_p (call))
3642 return NULL_TREE;
3644 tree fn = CALL_EXPR_FN (call);
3646 if (id_equal (DECL_NAME (fn), "__integer_pack"))
3647 return expand_integer_pack (call, args, complain, in_decl);
3649 return NULL_TREE;
3652 /* Structure used to track the progress of find_parameter_packs_r. */
3653 struct find_parameter_pack_data
3655 /* TREE_LIST that will contain all of the parameter packs found by
3656 the traversal. */
3657 tree* parameter_packs;
3659 /* Set of AST nodes that have been visited by the traversal. */
3660 hash_set<tree> *visited;
3662 /* True iff we're making a type pack expansion. */
3663 bool type_pack_expansion_p;
3666 /* Identifies all of the argument packs that occur in a template
3667 argument and appends them to the TREE_LIST inside DATA, which is a
3668 find_parameter_pack_data structure. This is a subroutine of
3669 make_pack_expansion and uses_parameter_packs. */
3670 static tree
3671 find_parameter_packs_r (tree *tp, int *walk_subtrees, void* data)
3673 tree t = *tp;
3674 struct find_parameter_pack_data* ppd =
3675 (struct find_parameter_pack_data*)data;
3676 bool parameter_pack_p = false;
3678 /* Handle type aliases/typedefs. */
3679 if (TYPE_ALIAS_P (t))
3681 if (tree tinfo = TYPE_ALIAS_TEMPLATE_INFO (t))
3682 cp_walk_tree (&TI_ARGS (tinfo),
3683 &find_parameter_packs_r,
3684 ppd, ppd->visited);
3685 *walk_subtrees = 0;
3686 return NULL_TREE;
3689 /* Identify whether this is a parameter pack or not. */
3690 switch (TREE_CODE (t))
3692 case TEMPLATE_PARM_INDEX:
3693 if (TEMPLATE_PARM_PARAMETER_PACK (t))
3694 parameter_pack_p = true;
3695 break;
3697 case TEMPLATE_TYPE_PARM:
3698 t = TYPE_MAIN_VARIANT (t);
3699 /* FALLTHRU */
3700 case TEMPLATE_TEMPLATE_PARM:
3701 /* If the placeholder appears in the decl-specifier-seq of a function
3702 parameter pack (14.6.3), or the type-specifier-seq of a type-id that
3703 is a pack expansion, the invented template parameter is a template
3704 parameter pack. */
3705 if (ppd->type_pack_expansion_p && is_auto (t))
3706 TEMPLATE_TYPE_PARAMETER_PACK (t) = true;
3707 if (TEMPLATE_TYPE_PARAMETER_PACK (t))
3708 parameter_pack_p = true;
3709 break;
3711 case FIELD_DECL:
3712 case PARM_DECL:
3713 if (DECL_PACK_P (t))
3715 /* We don't want to walk into the type of a PARM_DECL,
3716 because we don't want to see the type parameter pack. */
3717 *walk_subtrees = 0;
3718 parameter_pack_p = true;
3720 break;
3722 case VAR_DECL:
3723 if (DECL_PACK_P (t))
3725 /* We don't want to walk into the type of a variadic capture proxy,
3726 because we don't want to see the type parameter pack. */
3727 *walk_subtrees = 0;
3728 parameter_pack_p = true;
3730 else if (variable_template_specialization_p (t))
3732 cp_walk_tree (&DECL_TI_ARGS (t),
3733 find_parameter_packs_r,
3734 ppd, ppd->visited);
3735 *walk_subtrees = 0;
3737 break;
3739 case CALL_EXPR:
3740 if (builtin_pack_call_p (t))
3741 parameter_pack_p = true;
3742 break;
3744 case BASES:
3745 parameter_pack_p = true;
3746 break;
3747 default:
3748 /* Not a parameter pack. */
3749 break;
3752 if (parameter_pack_p)
3754 /* Add this parameter pack to the list. */
3755 *ppd->parameter_packs = tree_cons (NULL_TREE, t, *ppd->parameter_packs);
3758 if (TYPE_P (t))
3759 cp_walk_tree (&TYPE_CONTEXT (t),
3760 &find_parameter_packs_r, ppd, ppd->visited);
3762 /* This switch statement will return immediately if we don't find a
3763 parameter pack. */
3764 switch (TREE_CODE (t))
3766 case TEMPLATE_PARM_INDEX:
3767 return NULL_TREE;
3769 case BOUND_TEMPLATE_TEMPLATE_PARM:
3770 /* Check the template itself. */
3771 cp_walk_tree (&TREE_TYPE (TYPE_TI_TEMPLATE (t)),
3772 &find_parameter_packs_r, ppd, ppd->visited);
3773 /* Check the template arguments. */
3774 cp_walk_tree (&TYPE_TI_ARGS (t), &find_parameter_packs_r, ppd,
3775 ppd->visited);
3776 *walk_subtrees = 0;
3777 return NULL_TREE;
3779 case TEMPLATE_TYPE_PARM:
3780 case TEMPLATE_TEMPLATE_PARM:
3781 return NULL_TREE;
3783 case PARM_DECL:
3784 return NULL_TREE;
3786 case DECL_EXPR:
3787 /* Ignore the declaration of a capture proxy for a parameter pack. */
3788 if (is_capture_proxy (DECL_EXPR_DECL (t)))
3789 *walk_subtrees = 0;
3790 return NULL_TREE;
3792 case RECORD_TYPE:
3793 if (TYPE_PTRMEMFUNC_P (t))
3794 return NULL_TREE;
3795 /* Fall through. */
3797 case UNION_TYPE:
3798 case ENUMERAL_TYPE:
3799 if (TYPE_TEMPLATE_INFO (t))
3800 cp_walk_tree (&TYPE_TI_ARGS (t),
3801 &find_parameter_packs_r, ppd, ppd->visited);
3803 *walk_subtrees = 0;
3804 return NULL_TREE;
3806 case TEMPLATE_DECL:
3807 if (!DECL_TEMPLATE_TEMPLATE_PARM_P (t))
3808 return NULL_TREE;
3809 gcc_fallthrough();
3811 case CONSTRUCTOR:
3812 cp_walk_tree (&TREE_TYPE (t),
3813 &find_parameter_packs_r, ppd, ppd->visited);
3814 return NULL_TREE;
3816 case TYPENAME_TYPE:
3817 cp_walk_tree (&TYPENAME_TYPE_FULLNAME (t), &find_parameter_packs_r,
3818 ppd, ppd->visited);
3819 *walk_subtrees = 0;
3820 return NULL_TREE;
3822 case TYPE_PACK_EXPANSION:
3823 case EXPR_PACK_EXPANSION:
3824 *walk_subtrees = 0;
3825 return NULL_TREE;
3827 case INTEGER_TYPE:
3828 cp_walk_tree (&TYPE_MAX_VALUE (t), &find_parameter_packs_r,
3829 ppd, ppd->visited);
3830 *walk_subtrees = 0;
3831 return NULL_TREE;
3833 case IDENTIFIER_NODE:
3834 cp_walk_tree (&TREE_TYPE (t), &find_parameter_packs_r, ppd,
3835 ppd->visited);
3836 *walk_subtrees = 0;
3837 return NULL_TREE;
3839 case LAMBDA_EXPR:
3841 /* Look at explicit captures. */
3842 for (tree cap = LAMBDA_EXPR_CAPTURE_LIST (t);
3843 cap; cap = TREE_CHAIN (cap))
3844 cp_walk_tree (&TREE_VALUE (cap), &find_parameter_packs_r, ppd,
3845 ppd->visited);
3846 /* Since we defer implicit capture, look in the body as well. */
3847 tree fn = lambda_function (t);
3848 cp_walk_tree (&DECL_SAVED_TREE (fn), &find_parameter_packs_r, ppd,
3849 ppd->visited);
3850 *walk_subtrees = 0;
3851 return NULL_TREE;
3854 case DECLTYPE_TYPE:
3856 /* When traversing a DECLTYPE_TYPE_EXPR, we need to set
3857 type_pack_expansion_p to false so that any placeholders
3858 within the expression don't get marked as parameter packs. */
3859 bool type_pack_expansion_p = ppd->type_pack_expansion_p;
3860 ppd->type_pack_expansion_p = false;
3861 cp_walk_tree (&DECLTYPE_TYPE_EXPR (t), &find_parameter_packs_r,
3862 ppd, ppd->visited);
3863 ppd->type_pack_expansion_p = type_pack_expansion_p;
3864 *walk_subtrees = 0;
3865 return NULL_TREE;
3868 default:
3869 return NULL_TREE;
3872 return NULL_TREE;
3875 /* Determines if the expression or type T uses any parameter packs. */
3876 bool
3877 uses_parameter_packs (tree t)
3879 tree parameter_packs = NULL_TREE;
3880 struct find_parameter_pack_data ppd;
3881 ppd.parameter_packs = &parameter_packs;
3882 ppd.visited = new hash_set<tree>;
3883 ppd.type_pack_expansion_p = false;
3884 cp_walk_tree (&t, &find_parameter_packs_r, &ppd, ppd.visited);
3885 delete ppd.visited;
3886 return parameter_packs != NULL_TREE;
3889 /* Turn ARG, which may be an expression, type, or a TREE_LIST
3890 representation a base-class initializer into a parameter pack
3891 expansion. If all goes well, the resulting node will be an
3892 EXPR_PACK_EXPANSION, TYPE_PACK_EXPANSION, or TREE_LIST,
3893 respectively. */
3894 tree
3895 make_pack_expansion (tree arg, tsubst_flags_t complain)
3897 tree result;
3898 tree parameter_packs = NULL_TREE;
3899 bool for_types = false;
3900 struct find_parameter_pack_data ppd;
3902 if (!arg || arg == error_mark_node)
3903 return arg;
3905 if (TREE_CODE (arg) == TREE_LIST && TREE_PURPOSE (arg))
3907 /* A TREE_LIST with a non-null TREE_PURPOSE is for a base
3908 class initializer. In this case, the TREE_PURPOSE will be a
3909 _TYPE node (representing the base class expansion we're
3910 initializing) and the TREE_VALUE will be a TREE_LIST
3911 containing the initialization arguments.
3913 The resulting expansion looks somewhat different from most
3914 expansions. Rather than returning just one _EXPANSION, we
3915 return a TREE_LIST whose TREE_PURPOSE is a
3916 TYPE_PACK_EXPANSION containing the bases that will be
3917 initialized. The TREE_VALUE will be identical to the
3918 original TREE_VALUE, which is a list of arguments that will
3919 be passed to each base. We do not introduce any new pack
3920 expansion nodes into the TREE_VALUE (although it is possible
3921 that some already exist), because the TREE_PURPOSE and
3922 TREE_VALUE all need to be expanded together with the same
3923 _EXPANSION node. Note that the TYPE_PACK_EXPANSION in the
3924 resulting TREE_PURPOSE will mention the parameter packs in
3925 both the bases and the arguments to the bases. */
3926 tree purpose;
3927 tree value;
3928 tree parameter_packs = NULL_TREE;
3930 /* Determine which parameter packs will be used by the base
3931 class expansion. */
3932 ppd.visited = new hash_set<tree>;
3933 ppd.parameter_packs = &parameter_packs;
3934 ppd.type_pack_expansion_p = true;
3935 gcc_assert (TYPE_P (TREE_PURPOSE (arg)));
3936 cp_walk_tree (&TREE_PURPOSE (arg), &find_parameter_packs_r,
3937 &ppd, ppd.visited);
3939 if (parameter_packs == NULL_TREE)
3941 if (complain & tf_error)
3942 error ("base initializer expansion %qT contains no parameter packs",
3943 arg);
3944 delete ppd.visited;
3945 return error_mark_node;
3948 if (TREE_VALUE (arg) != void_type_node)
3950 /* Collect the sets of parameter packs used in each of the
3951 initialization arguments. */
3952 for (value = TREE_VALUE (arg); value; value = TREE_CHAIN (value))
3954 /* Determine which parameter packs will be expanded in this
3955 argument. */
3956 cp_walk_tree (&TREE_VALUE (value), &find_parameter_packs_r,
3957 &ppd, ppd.visited);
3961 delete ppd.visited;
3963 /* Create the pack expansion type for the base type. */
3964 purpose = cxx_make_type (TYPE_PACK_EXPANSION);
3965 SET_PACK_EXPANSION_PATTERN (purpose, TREE_PURPOSE (arg));
3966 PACK_EXPANSION_PARAMETER_PACKS (purpose) = parameter_packs;
3967 PACK_EXPANSION_LOCAL_P (purpose) = at_function_scope_p ();
3969 /* Just use structural equality for these TYPE_PACK_EXPANSIONS;
3970 they will rarely be compared to anything. */
3971 SET_TYPE_STRUCTURAL_EQUALITY (purpose);
3973 return tree_cons (purpose, TREE_VALUE (arg), NULL_TREE);
3976 if (TYPE_P (arg) || TREE_CODE (arg) == TEMPLATE_DECL)
3977 for_types = true;
3979 /* Build the PACK_EXPANSION_* node. */
3980 result = for_types
3981 ? cxx_make_type (TYPE_PACK_EXPANSION)
3982 : make_node (EXPR_PACK_EXPANSION);
3983 SET_PACK_EXPANSION_PATTERN (result, arg);
3984 if (TREE_CODE (result) == EXPR_PACK_EXPANSION)
3986 /* Propagate type and const-expression information. */
3987 TREE_TYPE (result) = TREE_TYPE (arg);
3988 TREE_CONSTANT (result) = TREE_CONSTANT (arg);
3989 /* Mark this read now, since the expansion might be length 0. */
3990 mark_exp_read (arg);
3992 else
3993 /* Just use structural equality for these TYPE_PACK_EXPANSIONS;
3994 they will rarely be compared to anything. */
3995 SET_TYPE_STRUCTURAL_EQUALITY (result);
3997 /* Determine which parameter packs will be expanded. */
3998 ppd.parameter_packs = &parameter_packs;
3999 ppd.visited = new hash_set<tree>;
4000 ppd.type_pack_expansion_p = TYPE_P (arg);
4001 cp_walk_tree (&arg, &find_parameter_packs_r, &ppd, ppd.visited);
4002 delete ppd.visited;
4004 /* Make sure we found some parameter packs. */
4005 if (parameter_packs == NULL_TREE)
4007 if (complain & tf_error)
4009 if (TYPE_P (arg))
4010 error ("expansion pattern %qT contains no argument packs", arg);
4011 else
4012 error ("expansion pattern %qE contains no argument packs", arg);
4014 return error_mark_node;
4016 PACK_EXPANSION_PARAMETER_PACKS (result) = parameter_packs;
4018 PACK_EXPANSION_LOCAL_P (result) = at_function_scope_p ();
4020 return result;
4023 /* Checks T for any "bare" parameter packs, which have not yet been
4024 expanded, and issues an error if any are found. This operation can
4025 only be done on full expressions or types (e.g., an expression
4026 statement, "if" condition, etc.), because we could have expressions like:
4028 foo(f(g(h(args)))...)
4030 where "args" is a parameter pack. check_for_bare_parameter_packs
4031 should not be called for the subexpressions args, h(args),
4032 g(h(args)), or f(g(h(args))), because we would produce erroneous
4033 error messages.
4035 Returns TRUE and emits an error if there were bare parameter packs,
4036 returns FALSE otherwise. */
4037 bool
4038 check_for_bare_parameter_packs (tree t)
4040 tree parameter_packs = NULL_TREE;
4041 struct find_parameter_pack_data ppd;
4043 if (!processing_template_decl || !t || t == error_mark_node)
4044 return false;
4046 /* A lambda might use a parameter pack from the containing context. */
4047 if (current_class_type && LAMBDA_TYPE_P (current_class_type)
4048 && CLASSTYPE_TEMPLATE_INFO (current_class_type))
4049 return false;
4051 if (TREE_CODE (t) == TYPE_DECL)
4052 t = TREE_TYPE (t);
4054 ppd.parameter_packs = &parameter_packs;
4055 ppd.visited = new hash_set<tree>;
4056 ppd.type_pack_expansion_p = false;
4057 cp_walk_tree (&t, &find_parameter_packs_r, &ppd, ppd.visited);
4058 delete ppd.visited;
4060 if (parameter_packs)
4062 location_t loc = EXPR_LOC_OR_LOC (t, input_location);
4063 error_at (loc, "parameter packs not expanded with %<...%>:");
4064 while (parameter_packs)
4066 tree pack = TREE_VALUE (parameter_packs);
4067 tree name = NULL_TREE;
4069 if (TREE_CODE (pack) == TEMPLATE_TYPE_PARM
4070 || TREE_CODE (pack) == TEMPLATE_TEMPLATE_PARM)
4071 name = TYPE_NAME (pack);
4072 else if (TREE_CODE (pack) == TEMPLATE_PARM_INDEX)
4073 name = DECL_NAME (TEMPLATE_PARM_DECL (pack));
4074 else if (TREE_CODE (pack) == CALL_EXPR)
4075 name = DECL_NAME (CALL_EXPR_FN (pack));
4076 else
4077 name = DECL_NAME (pack);
4079 if (name)
4080 inform (loc, " %qD", name);
4081 else
4082 inform (loc, " <anonymous>");
4084 parameter_packs = TREE_CHAIN (parameter_packs);
4087 return true;
4090 return false;
4093 /* Expand any parameter packs that occur in the template arguments in
4094 ARGS. */
4095 tree
4096 expand_template_argument_pack (tree args)
4098 if (args == error_mark_node)
4099 return error_mark_node;
4101 tree result_args = NULL_TREE;
4102 int in_arg, out_arg = 0, nargs = args ? TREE_VEC_LENGTH (args) : 0;
4103 int num_result_args = -1;
4104 int non_default_args_count = -1;
4106 /* First, determine if we need to expand anything, and the number of
4107 slots we'll need. */
4108 for (in_arg = 0; in_arg < nargs; ++in_arg)
4110 tree arg = TREE_VEC_ELT (args, in_arg);
4111 if (arg == NULL_TREE)
4112 return args;
4113 if (ARGUMENT_PACK_P (arg))
4115 int num_packed = TREE_VEC_LENGTH (ARGUMENT_PACK_ARGS (arg));
4116 if (num_result_args < 0)
4117 num_result_args = in_arg + num_packed;
4118 else
4119 num_result_args += num_packed;
4121 else
4123 if (num_result_args >= 0)
4124 num_result_args++;
4128 /* If no expansion is necessary, we're done. */
4129 if (num_result_args < 0)
4130 return args;
4132 /* Expand arguments. */
4133 result_args = make_tree_vec (num_result_args);
4134 if (NON_DEFAULT_TEMPLATE_ARGS_COUNT (args))
4135 non_default_args_count =
4136 GET_NON_DEFAULT_TEMPLATE_ARGS_COUNT (args);
4137 for (in_arg = 0; in_arg < nargs; ++in_arg)
4139 tree arg = TREE_VEC_ELT (args, in_arg);
4140 if (ARGUMENT_PACK_P (arg))
4142 tree packed = ARGUMENT_PACK_ARGS (arg);
4143 int i, num_packed = TREE_VEC_LENGTH (packed);
4144 for (i = 0; i < num_packed; ++i, ++out_arg)
4145 TREE_VEC_ELT (result_args, out_arg) = TREE_VEC_ELT(packed, i);
4146 if (non_default_args_count > 0)
4147 non_default_args_count += num_packed - 1;
4149 else
4151 TREE_VEC_ELT (result_args, out_arg) = arg;
4152 ++out_arg;
4155 if (non_default_args_count >= 0)
4156 SET_NON_DEFAULT_TEMPLATE_ARGS_COUNT (result_args, non_default_args_count);
4157 return result_args;
4160 /* Checks if DECL shadows a template parameter.
4162 [temp.local]: A template-parameter shall not be redeclared within its
4163 scope (including nested scopes).
4165 Emits an error and returns TRUE if the DECL shadows a parameter,
4166 returns FALSE otherwise. */
4168 bool
4169 check_template_shadow (tree decl)
4171 tree olddecl;
4173 /* If we're not in a template, we can't possibly shadow a template
4174 parameter. */
4175 if (!current_template_parms)
4176 return true;
4178 /* Figure out what we're shadowing. */
4179 decl = OVL_FIRST (decl);
4180 olddecl = innermost_non_namespace_value (DECL_NAME (decl));
4182 /* If there's no previous binding for this name, we're not shadowing
4183 anything, let alone a template parameter. */
4184 if (!olddecl)
4185 return true;
4187 /* If we're not shadowing a template parameter, we're done. Note
4188 that OLDDECL might be an OVERLOAD (or perhaps even an
4189 ERROR_MARK), so we can't just blithely assume it to be a _DECL
4190 node. */
4191 if (!DECL_P (olddecl) || !DECL_TEMPLATE_PARM_P (olddecl))
4192 return true;
4194 /* We check for decl != olddecl to avoid bogus errors for using a
4195 name inside a class. We check TPFI to avoid duplicate errors for
4196 inline member templates. */
4197 if (decl == olddecl
4198 || (DECL_TEMPLATE_PARM_P (decl)
4199 && TEMPLATE_PARMS_FOR_INLINE (current_template_parms)))
4200 return true;
4202 /* Don't complain about the injected class name, as we've already
4203 complained about the class itself. */
4204 if (DECL_SELF_REFERENCE_P (decl))
4205 return false;
4207 if (DECL_TEMPLATE_PARM_P (decl))
4208 error ("declaration of template parameter %q+D shadows "
4209 "template parameter", decl);
4210 else
4211 error ("declaration of %q+#D shadows template parameter", decl);
4212 inform (DECL_SOURCE_LOCATION (olddecl),
4213 "template parameter %qD declared here", olddecl);
4214 return false;
4217 /* Return a new TEMPLATE_PARM_INDEX with the indicated INDEX, LEVEL,
4218 ORIG_LEVEL, DECL, and TYPE. */
4220 static tree
4221 build_template_parm_index (int index,
4222 int level,
4223 int orig_level,
4224 tree decl,
4225 tree type)
4227 tree t = make_node (TEMPLATE_PARM_INDEX);
4228 TEMPLATE_PARM_IDX (t) = index;
4229 TEMPLATE_PARM_LEVEL (t) = level;
4230 TEMPLATE_PARM_ORIG_LEVEL (t) = orig_level;
4231 TEMPLATE_PARM_DECL (t) = decl;
4232 TREE_TYPE (t) = type;
4233 TREE_CONSTANT (t) = TREE_CONSTANT (decl);
4234 TREE_READONLY (t) = TREE_READONLY (decl);
4236 return t;
4239 /* Find the canonical type parameter for the given template type
4240 parameter. Returns the canonical type parameter, which may be TYPE
4241 if no such parameter existed. */
4243 static tree
4244 canonical_type_parameter (tree type)
4246 tree list;
4247 int idx = TEMPLATE_TYPE_IDX (type);
4248 if (!canonical_template_parms)
4249 vec_alloc (canonical_template_parms, idx + 1);
4251 if (canonical_template_parms->length () <= (unsigned) idx)
4252 vec_safe_grow_cleared (canonical_template_parms, idx + 1);
4254 list = (*canonical_template_parms)[idx];
4255 while (list && !comptypes (type, TREE_VALUE (list), COMPARE_STRUCTURAL))
4256 list = TREE_CHAIN (list);
4258 if (list)
4259 return TREE_VALUE (list);
4260 else
4262 (*canonical_template_parms)[idx]
4263 = tree_cons (NULL_TREE, type, (*canonical_template_parms)[idx]);
4264 return type;
4268 /* Return a TEMPLATE_PARM_INDEX, similar to INDEX, but whose
4269 TEMPLATE_PARM_LEVEL has been decreased by LEVELS. If such a
4270 TEMPLATE_PARM_INDEX already exists, it is returned; otherwise, a
4271 new one is created. */
4273 static tree
4274 reduce_template_parm_level (tree index, tree type, int levels, tree args,
4275 tsubst_flags_t complain)
4277 if (TEMPLATE_PARM_DESCENDANTS (index) == NULL_TREE
4278 || (TEMPLATE_PARM_LEVEL (TEMPLATE_PARM_DESCENDANTS (index))
4279 != TEMPLATE_PARM_LEVEL (index) - levels)
4280 || !same_type_p (type, TREE_TYPE (TEMPLATE_PARM_DESCENDANTS (index))))
4282 tree orig_decl = TEMPLATE_PARM_DECL (index);
4283 tree decl, t;
4285 decl = build_decl (DECL_SOURCE_LOCATION (orig_decl),
4286 TREE_CODE (orig_decl), DECL_NAME (orig_decl), type);
4287 TREE_CONSTANT (decl) = TREE_CONSTANT (orig_decl);
4288 TREE_READONLY (decl) = TREE_READONLY (orig_decl);
4289 DECL_ARTIFICIAL (decl) = 1;
4290 SET_DECL_TEMPLATE_PARM_P (decl);
4292 t = build_template_parm_index (TEMPLATE_PARM_IDX (index),
4293 TEMPLATE_PARM_LEVEL (index) - levels,
4294 TEMPLATE_PARM_ORIG_LEVEL (index),
4295 decl, type);
4296 TEMPLATE_PARM_DESCENDANTS (index) = t;
4297 TEMPLATE_PARM_PARAMETER_PACK (t)
4298 = TEMPLATE_PARM_PARAMETER_PACK (index);
4300 /* Template template parameters need this. */
4301 if (TREE_CODE (decl) == TEMPLATE_DECL)
4303 DECL_TEMPLATE_RESULT (decl)
4304 = build_decl (DECL_SOURCE_LOCATION (decl),
4305 TYPE_DECL, DECL_NAME (decl), type);
4306 DECL_ARTIFICIAL (DECL_TEMPLATE_RESULT (decl)) = true;
4307 DECL_TEMPLATE_PARMS (decl) = tsubst_template_parms
4308 (DECL_TEMPLATE_PARMS (orig_decl), args, complain);
4312 return TEMPLATE_PARM_DESCENDANTS (index);
4315 /* Process information from new template parameter PARM and append it
4316 to the LIST being built. This new parameter is a non-type
4317 parameter iff IS_NON_TYPE is true. This new parameter is a
4318 parameter pack iff IS_PARAMETER_PACK is true. The location of PARM
4319 is in PARM_LOC. */
4321 tree
4322 process_template_parm (tree list, location_t parm_loc, tree parm,
4323 bool is_non_type, bool is_parameter_pack)
4325 tree decl = 0;
4326 int idx = 0;
4328 gcc_assert (TREE_CODE (parm) == TREE_LIST);
4329 tree defval = TREE_PURPOSE (parm);
4330 tree constr = TREE_TYPE (parm);
4332 if (list)
4334 tree p = tree_last (list);
4336 if (p && TREE_VALUE (p) != error_mark_node)
4338 p = TREE_VALUE (p);
4339 if (TREE_CODE (p) == TYPE_DECL || TREE_CODE (p) == TEMPLATE_DECL)
4340 idx = TEMPLATE_TYPE_IDX (TREE_TYPE (p));
4341 else
4342 idx = TEMPLATE_PARM_IDX (DECL_INITIAL (p));
4345 ++idx;
4348 if (is_non_type)
4350 parm = TREE_VALUE (parm);
4352 SET_DECL_TEMPLATE_PARM_P (parm);
4354 if (TREE_TYPE (parm) != error_mark_node)
4356 /* [temp.param]
4358 The top-level cv-qualifiers on the template-parameter are
4359 ignored when determining its type. */
4360 TREE_TYPE (parm) = TYPE_MAIN_VARIANT (TREE_TYPE (parm));
4361 if (invalid_nontype_parm_type_p (TREE_TYPE (parm), 1))
4362 TREE_TYPE (parm) = error_mark_node;
4363 else if (uses_parameter_packs (TREE_TYPE (parm))
4364 && !is_parameter_pack
4365 /* If we're in a nested template parameter list, the template
4366 template parameter could be a parameter pack. */
4367 && processing_template_parmlist == 1)
4369 /* This template parameter is not a parameter pack, but it
4370 should be. Complain about "bare" parameter packs. */
4371 check_for_bare_parameter_packs (TREE_TYPE (parm));
4373 /* Recover by calling this a parameter pack. */
4374 is_parameter_pack = true;
4378 /* A template parameter is not modifiable. */
4379 TREE_CONSTANT (parm) = 1;
4380 TREE_READONLY (parm) = 1;
4381 decl = build_decl (parm_loc,
4382 CONST_DECL, DECL_NAME (parm), TREE_TYPE (parm));
4383 TREE_CONSTANT (decl) = 1;
4384 TREE_READONLY (decl) = 1;
4385 DECL_INITIAL (parm) = DECL_INITIAL (decl)
4386 = build_template_parm_index (idx, processing_template_decl,
4387 processing_template_decl,
4388 decl, TREE_TYPE (parm));
4390 TEMPLATE_PARM_PARAMETER_PACK (DECL_INITIAL (parm))
4391 = is_parameter_pack;
4393 else
4395 tree t;
4396 parm = TREE_VALUE (TREE_VALUE (parm));
4398 if (parm && TREE_CODE (parm) == TEMPLATE_DECL)
4400 t = cxx_make_type (TEMPLATE_TEMPLATE_PARM);
4401 /* This is for distinguishing between real templates and template
4402 template parameters */
4403 TREE_TYPE (parm) = t;
4404 TREE_TYPE (DECL_TEMPLATE_RESULT (parm)) = t;
4405 decl = parm;
4407 else
4409 t = cxx_make_type (TEMPLATE_TYPE_PARM);
4410 /* parm is either IDENTIFIER_NODE or NULL_TREE. */
4411 decl = build_decl (parm_loc,
4412 TYPE_DECL, parm, t);
4415 TYPE_NAME (t) = decl;
4416 TYPE_STUB_DECL (t) = decl;
4417 parm = decl;
4418 TEMPLATE_TYPE_PARM_INDEX (t)
4419 = build_template_parm_index (idx, processing_template_decl,
4420 processing_template_decl,
4421 decl, TREE_TYPE (parm));
4422 TEMPLATE_TYPE_PARAMETER_PACK (t) = is_parameter_pack;
4423 TYPE_CANONICAL (t) = canonical_type_parameter (t);
4425 DECL_ARTIFICIAL (decl) = 1;
4426 SET_DECL_TEMPLATE_PARM_P (decl);
4428 /* Build requirements for the type/template parameter.
4429 This must be done after SET_DECL_TEMPLATE_PARM_P or
4430 process_template_parm could fail. */
4431 tree reqs = finish_shorthand_constraint (parm, constr);
4433 pushdecl (decl);
4435 if (defval && TREE_CODE (defval) == OVERLOAD)
4436 lookup_keep (defval, true);
4438 /* Build the parameter node linking the parameter declaration,
4439 its default argument (if any), and its constraints (if any). */
4440 parm = build_tree_list (defval, parm);
4441 TEMPLATE_PARM_CONSTRAINTS (parm) = reqs;
4443 return chainon (list, parm);
4446 /* The end of a template parameter list has been reached. Process the
4447 tree list into a parameter vector, converting each parameter into a more
4448 useful form. Type parameters are saved as IDENTIFIER_NODEs, and others
4449 as PARM_DECLs. */
4451 tree
4452 end_template_parm_list (tree parms)
4454 int nparms;
4455 tree parm, next;
4456 tree saved_parmlist = make_tree_vec (list_length (parms));
4458 /* Pop the dummy parameter level and add the real one. */
4459 current_template_parms = TREE_CHAIN (current_template_parms);
4461 current_template_parms
4462 = tree_cons (size_int (processing_template_decl),
4463 saved_parmlist, current_template_parms);
4465 for (parm = parms, nparms = 0; parm; parm = next, nparms++)
4467 next = TREE_CHAIN (parm);
4468 TREE_VEC_ELT (saved_parmlist, nparms) = parm;
4469 TREE_CHAIN (parm) = NULL_TREE;
4472 --processing_template_parmlist;
4474 return saved_parmlist;
4477 // Explicitly indicate the end of the template parameter list. We assume
4478 // that the current template parameters have been constructed and/or
4479 // managed explicitly, as when creating new template template parameters
4480 // from a shorthand constraint.
4481 void
4482 end_template_parm_list ()
4484 --processing_template_parmlist;
4487 /* end_template_decl is called after a template declaration is seen. */
4489 void
4490 end_template_decl (void)
4492 reset_specialization ();
4494 if (! processing_template_decl)
4495 return;
4497 /* This matches the pushlevel in begin_template_parm_list. */
4498 finish_scope ();
4500 --processing_template_decl;
4501 current_template_parms = TREE_CHAIN (current_template_parms);
4504 /* Takes a TREE_LIST representing a template parameter and convert it
4505 into an argument suitable to be passed to the type substitution
4506 functions. Note that If the TREE_LIST contains an error_mark
4507 node, the returned argument is error_mark_node. */
4509 tree
4510 template_parm_to_arg (tree t)
4513 if (t == NULL_TREE
4514 || TREE_CODE (t) != TREE_LIST)
4515 return t;
4517 if (error_operand_p (TREE_VALUE (t)))
4518 return error_mark_node;
4520 t = TREE_VALUE (t);
4522 if (TREE_CODE (t) == TYPE_DECL
4523 || TREE_CODE (t) == TEMPLATE_DECL)
4525 t = TREE_TYPE (t);
4527 if (TEMPLATE_TYPE_PARAMETER_PACK (t))
4529 /* Turn this argument into a TYPE_ARGUMENT_PACK
4530 with a single element, which expands T. */
4531 tree vec = make_tree_vec (1);
4532 if (CHECKING_P)
4533 SET_NON_DEFAULT_TEMPLATE_ARGS_COUNT (vec, TREE_VEC_LENGTH (vec));
4535 TREE_VEC_ELT (vec, 0) = make_pack_expansion (t);
4537 t = cxx_make_type (TYPE_ARGUMENT_PACK);
4538 SET_ARGUMENT_PACK_ARGS (t, vec);
4541 else
4543 t = DECL_INITIAL (t);
4545 if (TEMPLATE_PARM_PARAMETER_PACK (t))
4547 /* Turn this argument into a NONTYPE_ARGUMENT_PACK
4548 with a single element, which expands T. */
4549 tree vec = make_tree_vec (1);
4550 if (CHECKING_P)
4551 SET_NON_DEFAULT_TEMPLATE_ARGS_COUNT (vec, TREE_VEC_LENGTH (vec));
4553 t = convert_from_reference (t);
4554 TREE_VEC_ELT (vec, 0) = make_pack_expansion (t);
4556 t = make_node (NONTYPE_ARGUMENT_PACK);
4557 SET_ARGUMENT_PACK_ARGS (t, vec);
4559 else
4560 t = convert_from_reference (t);
4562 return t;
4565 /* Given a single level of template parameters (a TREE_VEC), return it
4566 as a set of template arguments. */
4568 static tree
4569 template_parms_level_to_args (tree parms)
4571 tree a = copy_node (parms);
4572 TREE_TYPE (a) = NULL_TREE;
4573 for (int i = TREE_VEC_LENGTH (a) - 1; i >= 0; --i)
4574 TREE_VEC_ELT (a, i) = template_parm_to_arg (TREE_VEC_ELT (a, i));
4576 if (CHECKING_P)
4577 SET_NON_DEFAULT_TEMPLATE_ARGS_COUNT (a, TREE_VEC_LENGTH (a));
4579 return a;
4582 /* Given a set of template parameters, return them as a set of template
4583 arguments. The template parameters are represented as a TREE_VEC, in
4584 the form documented in cp-tree.h for template arguments. */
4586 static tree
4587 template_parms_to_args (tree parms)
4589 tree header;
4590 tree args = NULL_TREE;
4591 int length = TMPL_PARMS_DEPTH (parms);
4592 int l = length;
4594 /* If there is only one level of template parameters, we do not
4595 create a TREE_VEC of TREE_VECs. Instead, we return a single
4596 TREE_VEC containing the arguments. */
4597 if (length > 1)
4598 args = make_tree_vec (length);
4600 for (header = parms; header; header = TREE_CHAIN (header))
4602 tree a = template_parms_level_to_args (TREE_VALUE (header));
4604 if (length > 1)
4605 TREE_VEC_ELT (args, --l) = a;
4606 else
4607 args = a;
4610 return args;
4613 /* Within the declaration of a template, return the currently active
4614 template parameters as an argument TREE_VEC. */
4616 static tree
4617 current_template_args (void)
4619 return template_parms_to_args (current_template_parms);
4622 /* Update the declared TYPE by doing any lookups which were thought to be
4623 dependent, but are not now that we know the SCOPE of the declarator. */
4625 tree
4626 maybe_update_decl_type (tree orig_type, tree scope)
4628 tree type = orig_type;
4630 if (type == NULL_TREE)
4631 return type;
4633 if (TREE_CODE (orig_type) == TYPE_DECL)
4634 type = TREE_TYPE (type);
4636 if (scope && TYPE_P (scope) && dependent_type_p (scope)
4637 && dependent_type_p (type)
4638 /* Don't bother building up the args in this case. */
4639 && TREE_CODE (type) != TEMPLATE_TYPE_PARM)
4641 /* tsubst in the args corresponding to the template parameters,
4642 including auto if present. Most things will be unchanged, but
4643 make_typename_type and tsubst_qualified_id will resolve
4644 TYPENAME_TYPEs and SCOPE_REFs that were previously dependent. */
4645 tree args = current_template_args ();
4646 tree auto_node = type_uses_auto (type);
4647 tree pushed;
4648 if (auto_node)
4650 tree auto_vec = make_tree_vec (1);
4651 TREE_VEC_ELT (auto_vec, 0) = auto_node;
4652 args = add_to_template_args (args, auto_vec);
4654 pushed = push_scope (scope);
4655 type = tsubst (type, args, tf_warning_or_error, NULL_TREE);
4656 if (pushed)
4657 pop_scope (scope);
4660 if (type == error_mark_node)
4661 return orig_type;
4663 if (TREE_CODE (orig_type) == TYPE_DECL)
4665 if (same_type_p (type, TREE_TYPE (orig_type)))
4666 type = orig_type;
4667 else
4668 type = TYPE_NAME (type);
4670 return type;
4673 /* Return a TEMPLATE_DECL corresponding to DECL, using the indicated
4674 template PARMS and constraints, CONSTR. If MEMBER_TEMPLATE_P is true,
4675 the new template is a member template. */
4677 static tree
4678 build_template_decl (tree decl, tree parms, bool member_template_p)
4680 tree tmpl = build_lang_decl (TEMPLATE_DECL, DECL_NAME (decl), NULL_TREE);
4681 SET_DECL_LANGUAGE (tmpl, DECL_LANGUAGE (decl));
4682 DECL_TEMPLATE_PARMS (tmpl) = parms;
4683 DECL_CONTEXT (tmpl) = DECL_CONTEXT (decl);
4684 DECL_SOURCE_LOCATION (tmpl) = DECL_SOURCE_LOCATION (decl);
4685 DECL_MEMBER_TEMPLATE_P (tmpl) = member_template_p;
4687 return tmpl;
4690 struct template_parm_data
4692 /* The level of the template parameters we are currently
4693 processing. */
4694 int level;
4696 /* The index of the specialization argument we are currently
4697 processing. */
4698 int current_arg;
4700 /* An array whose size is the number of template parameters. The
4701 elements are nonzero if the parameter has been used in any one
4702 of the arguments processed so far. */
4703 int* parms;
4705 /* An array whose size is the number of template arguments. The
4706 elements are nonzero if the argument makes use of template
4707 parameters of this level. */
4708 int* arg_uses_template_parms;
4711 /* Subroutine of push_template_decl used to see if each template
4712 parameter in a partial specialization is used in the explicit
4713 argument list. If T is of the LEVEL given in DATA (which is
4714 treated as a template_parm_data*), then DATA->PARMS is marked
4715 appropriately. */
4717 static int
4718 mark_template_parm (tree t, void* data)
4720 int level;
4721 int idx;
4722 struct template_parm_data* tpd = (struct template_parm_data*) data;
4724 template_parm_level_and_index (t, &level, &idx);
4726 if (level == tpd->level)
4728 tpd->parms[idx] = 1;
4729 tpd->arg_uses_template_parms[tpd->current_arg] = 1;
4732 /* In C++17 the type of a non-type argument is a deduced context. */
4733 if (cxx_dialect >= cxx17
4734 && TREE_CODE (t) == TEMPLATE_PARM_INDEX)
4735 for_each_template_parm (TREE_TYPE (t),
4736 &mark_template_parm,
4737 data,
4738 NULL,
4739 /*include_nondeduced_p=*/false);
4741 /* Return zero so that for_each_template_parm will continue the
4742 traversal of the tree; we want to mark *every* template parm. */
4743 return 0;
4746 /* Process the partial specialization DECL. */
4748 static tree
4749 process_partial_specialization (tree decl)
4751 tree type = TREE_TYPE (decl);
4752 tree tinfo = get_template_info (decl);
4753 tree maintmpl = TI_TEMPLATE (tinfo);
4754 tree specargs = TI_ARGS (tinfo);
4755 tree inner_args = INNERMOST_TEMPLATE_ARGS (specargs);
4756 tree main_inner_parms = DECL_INNERMOST_TEMPLATE_PARMS (maintmpl);
4757 tree inner_parms;
4758 tree inst;
4759 int nargs = TREE_VEC_LENGTH (inner_args);
4760 int ntparms;
4761 int i;
4762 bool did_error_intro = false;
4763 struct template_parm_data tpd;
4764 struct template_parm_data tpd2;
4766 gcc_assert (current_template_parms);
4768 /* A concept cannot be specialized. */
4769 if (flag_concepts && variable_concept_p (maintmpl))
4771 error ("specialization of variable concept %q#D", maintmpl);
4772 return error_mark_node;
4775 inner_parms = INNERMOST_TEMPLATE_PARMS (current_template_parms);
4776 ntparms = TREE_VEC_LENGTH (inner_parms);
4778 /* We check that each of the template parameters given in the
4779 partial specialization is used in the argument list to the
4780 specialization. For example:
4782 template <class T> struct S;
4783 template <class T> struct S<T*>;
4785 The second declaration is OK because `T*' uses the template
4786 parameter T, whereas
4788 template <class T> struct S<int>;
4790 is no good. Even trickier is:
4792 template <class T>
4793 struct S1
4795 template <class U>
4796 struct S2;
4797 template <class U>
4798 struct S2<T>;
4801 The S2<T> declaration is actually invalid; it is a
4802 full-specialization. Of course,
4804 template <class U>
4805 struct S2<T (*)(U)>;
4807 or some such would have been OK. */
4808 tpd.level = TMPL_PARMS_DEPTH (current_template_parms);
4809 tpd.parms = XALLOCAVEC (int, ntparms);
4810 memset (tpd.parms, 0, sizeof (int) * ntparms);
4812 tpd.arg_uses_template_parms = XALLOCAVEC (int, nargs);
4813 memset (tpd.arg_uses_template_parms, 0, sizeof (int) * nargs);
4814 for (i = 0; i < nargs; ++i)
4816 tpd.current_arg = i;
4817 for_each_template_parm (TREE_VEC_ELT (inner_args, i),
4818 &mark_template_parm,
4819 &tpd,
4820 NULL,
4821 /*include_nondeduced_p=*/false);
4823 for (i = 0; i < ntparms; ++i)
4824 if (tpd.parms[i] == 0)
4826 /* One of the template parms was not used in a deduced context in the
4827 specialization. */
4828 if (!did_error_intro)
4830 error ("template parameters not deducible in "
4831 "partial specialization:");
4832 did_error_intro = true;
4835 inform (input_location, " %qD",
4836 TREE_VALUE (TREE_VEC_ELT (inner_parms, i)));
4839 if (did_error_intro)
4840 return error_mark_node;
4842 /* [temp.class.spec]
4844 The argument list of the specialization shall not be identical to
4845 the implicit argument list of the primary template. */
4846 tree main_args
4847 = TI_ARGS (get_template_info (DECL_TEMPLATE_RESULT (maintmpl)));
4848 if (comp_template_args (inner_args, INNERMOST_TEMPLATE_ARGS (main_args))
4849 && (!flag_concepts
4850 || !strictly_subsumes (current_template_constraints (),
4851 get_constraints (maintmpl))))
4853 if (!flag_concepts)
4854 error ("partial specialization %q+D does not specialize "
4855 "any template arguments; to define the primary template, "
4856 "remove the template argument list", decl);
4857 else
4858 error ("partial specialization %q+D does not specialize any "
4859 "template arguments and is not more constrained than "
4860 "the primary template; to define the primary template, "
4861 "remove the template argument list", decl);
4862 inform (DECL_SOURCE_LOCATION (maintmpl), "primary template here");
4865 /* A partial specialization that replaces multiple parameters of the
4866 primary template with a pack expansion is less specialized for those
4867 parameters. */
4868 if (nargs < DECL_NTPARMS (maintmpl))
4870 error ("partial specialization is not more specialized than the "
4871 "primary template because it replaces multiple parameters "
4872 "with a pack expansion");
4873 inform (DECL_SOURCE_LOCATION (maintmpl), "primary template here");
4874 /* Avoid crash in process_partial_specialization. */
4875 return decl;
4878 /* If we aren't in a dependent class, we can actually try deduction. */
4879 else if (tpd.level == 1
4880 /* FIXME we should be able to handle a partial specialization of a
4881 partial instantiation, but currently we can't (c++/41727). */
4882 && TMPL_ARGS_DEPTH (specargs) == 1
4883 && !get_partial_spec_bindings (maintmpl, maintmpl, specargs))
4885 if (permerror (input_location, "partial specialization %qD is not "
4886 "more specialized than", decl))
4887 inform (DECL_SOURCE_LOCATION (maintmpl), "primary template %qD",
4888 maintmpl);
4891 /* [temp.class.spec]
4893 A partially specialized non-type argument expression shall not
4894 involve template parameters of the partial specialization except
4895 when the argument expression is a simple identifier.
4897 The type of a template parameter corresponding to a specialized
4898 non-type argument shall not be dependent on a parameter of the
4899 specialization.
4901 Also, we verify that pack expansions only occur at the
4902 end of the argument list. */
4903 gcc_assert (nargs == DECL_NTPARMS (maintmpl));
4904 tpd2.parms = 0;
4905 for (i = 0; i < nargs; ++i)
4907 tree parm = TREE_VALUE (TREE_VEC_ELT (main_inner_parms, i));
4908 tree arg = TREE_VEC_ELT (inner_args, i);
4909 tree packed_args = NULL_TREE;
4910 int j, len = 1;
4912 if (ARGUMENT_PACK_P (arg))
4914 /* Extract the arguments from the argument pack. We'll be
4915 iterating over these in the following loop. */
4916 packed_args = ARGUMENT_PACK_ARGS (arg);
4917 len = TREE_VEC_LENGTH (packed_args);
4920 for (j = 0; j < len; j++)
4922 if (packed_args)
4923 /* Get the Jth argument in the parameter pack. */
4924 arg = TREE_VEC_ELT (packed_args, j);
4926 if (PACK_EXPANSION_P (arg))
4928 /* Pack expansions must come at the end of the
4929 argument list. */
4930 if ((packed_args && j < len - 1)
4931 || (!packed_args && i < nargs - 1))
4933 if (TREE_CODE (arg) == EXPR_PACK_EXPANSION)
4934 error ("parameter pack argument %qE must be at the "
4935 "end of the template argument list", arg);
4936 else
4937 error ("parameter pack argument %qT must be at the "
4938 "end of the template argument list", arg);
4942 if (TREE_CODE (arg) == EXPR_PACK_EXPANSION)
4943 /* We only care about the pattern. */
4944 arg = PACK_EXPANSION_PATTERN (arg);
4946 if (/* These first two lines are the `non-type' bit. */
4947 !TYPE_P (arg)
4948 && TREE_CODE (arg) != TEMPLATE_DECL
4949 /* This next two lines are the `argument expression is not just a
4950 simple identifier' condition and also the `specialized
4951 non-type argument' bit. */
4952 && TREE_CODE (arg) != TEMPLATE_PARM_INDEX
4953 && !(REFERENCE_REF_P (arg)
4954 && TREE_CODE (TREE_OPERAND (arg, 0)) == TEMPLATE_PARM_INDEX))
4956 if ((!packed_args && tpd.arg_uses_template_parms[i])
4957 || (packed_args && uses_template_parms (arg)))
4958 error ("template argument %qE involves template parameter(s)",
4959 arg);
4960 else
4962 /* Look at the corresponding template parameter,
4963 marking which template parameters its type depends
4964 upon. */
4965 tree type = TREE_TYPE (parm);
4967 if (!tpd2.parms)
4969 /* We haven't yet initialized TPD2. Do so now. */
4970 tpd2.arg_uses_template_parms = XALLOCAVEC (int, nargs);
4971 /* The number of parameters here is the number in the
4972 main template, which, as checked in the assertion
4973 above, is NARGS. */
4974 tpd2.parms = XALLOCAVEC (int, nargs);
4975 tpd2.level =
4976 TMPL_PARMS_DEPTH (DECL_TEMPLATE_PARMS (maintmpl));
4979 /* Mark the template parameters. But this time, we're
4980 looking for the template parameters of the main
4981 template, not in the specialization. */
4982 tpd2.current_arg = i;
4983 tpd2.arg_uses_template_parms[i] = 0;
4984 memset (tpd2.parms, 0, sizeof (int) * nargs);
4985 for_each_template_parm (type,
4986 &mark_template_parm,
4987 &tpd2,
4988 NULL,
4989 /*include_nondeduced_p=*/false);
4991 if (tpd2.arg_uses_template_parms [i])
4993 /* The type depended on some template parameters.
4994 If they are fully specialized in the
4995 specialization, that's OK. */
4996 int j;
4997 int count = 0;
4998 for (j = 0; j < nargs; ++j)
4999 if (tpd2.parms[j] != 0
5000 && tpd.arg_uses_template_parms [j])
5001 ++count;
5002 if (count != 0)
5003 error_n (input_location, count,
5004 "type %qT of template argument %qE depends "
5005 "on a template parameter",
5006 "type %qT of template argument %qE depends "
5007 "on template parameters",
5008 type,
5009 arg);
5016 /* We should only get here once. */
5017 if (TREE_CODE (decl) == TYPE_DECL)
5018 gcc_assert (!COMPLETE_TYPE_P (type));
5020 // Build the template decl.
5021 tree tmpl = build_template_decl (decl, current_template_parms,
5022 DECL_MEMBER_TEMPLATE_P (maintmpl));
5023 TREE_TYPE (tmpl) = type;
5024 DECL_TEMPLATE_RESULT (tmpl) = decl;
5025 SET_DECL_TEMPLATE_SPECIALIZATION (tmpl);
5026 DECL_TEMPLATE_INFO (tmpl) = build_template_info (maintmpl, specargs);
5027 DECL_PRIMARY_TEMPLATE (tmpl) = maintmpl;
5029 /* Give template template parms a DECL_CONTEXT of the template
5030 for which they are a parameter. */
5031 for (i = 0; i < ntparms; ++i)
5033 tree parm = TREE_VALUE (TREE_VEC_ELT (inner_parms, i));
5034 if (TREE_CODE (parm) == TEMPLATE_DECL)
5035 DECL_CONTEXT (parm) = tmpl;
5038 if (VAR_P (decl))
5039 /* We didn't register this in check_explicit_specialization so we could
5040 wait until the constraints were set. */
5041 decl = register_specialization (decl, maintmpl, specargs, false, 0);
5042 else
5043 associate_classtype_constraints (type);
5045 DECL_TEMPLATE_SPECIALIZATIONS (maintmpl)
5046 = tree_cons (specargs, tmpl,
5047 DECL_TEMPLATE_SPECIALIZATIONS (maintmpl));
5048 TREE_TYPE (DECL_TEMPLATE_SPECIALIZATIONS (maintmpl)) = type;
5050 for (inst = DECL_TEMPLATE_INSTANTIATIONS (maintmpl); inst;
5051 inst = TREE_CHAIN (inst))
5053 tree instance = TREE_VALUE (inst);
5054 if (TYPE_P (instance)
5055 ? (COMPLETE_TYPE_P (instance)
5056 && CLASSTYPE_IMPLICIT_INSTANTIATION (instance))
5057 : DECL_TEMPLATE_INSTANTIATION (instance))
5059 tree spec = most_specialized_partial_spec (instance, tf_none);
5060 tree inst_decl = (DECL_P (instance)
5061 ? instance : TYPE_NAME (instance));
5062 if (!spec)
5063 /* OK */;
5064 else if (spec == error_mark_node)
5065 permerror (input_location,
5066 "declaration of %qD ambiguates earlier template "
5067 "instantiation for %qD", decl, inst_decl);
5068 else if (TREE_VALUE (spec) == tmpl)
5069 permerror (input_location,
5070 "partial specialization of %qD after instantiation "
5071 "of %qD", decl, inst_decl);
5075 return decl;
5078 /* PARM is a template parameter of some form; return the corresponding
5079 TEMPLATE_PARM_INDEX. */
5081 static tree
5082 get_template_parm_index (tree parm)
5084 if (TREE_CODE (parm) == PARM_DECL
5085 || TREE_CODE (parm) == CONST_DECL)
5086 parm = DECL_INITIAL (parm);
5087 else if (TREE_CODE (parm) == TYPE_DECL
5088 || TREE_CODE (parm) == TEMPLATE_DECL)
5089 parm = TREE_TYPE (parm);
5090 if (TREE_CODE (parm) == TEMPLATE_TYPE_PARM
5091 || TREE_CODE (parm) == BOUND_TEMPLATE_TEMPLATE_PARM
5092 || TREE_CODE (parm) == TEMPLATE_TEMPLATE_PARM)
5093 parm = TEMPLATE_TYPE_PARM_INDEX (parm);
5094 gcc_assert (TREE_CODE (parm) == TEMPLATE_PARM_INDEX);
5095 return parm;
5098 /* Subroutine of fixed_parameter_pack_p below. Look for any template
5099 parameter packs used by the template parameter PARM. */
5101 static void
5102 fixed_parameter_pack_p_1 (tree parm, struct find_parameter_pack_data *ppd)
5104 /* A type parm can't refer to another parm. */
5105 if (TREE_CODE (parm) == TYPE_DECL || parm == error_mark_node)
5106 return;
5107 else if (TREE_CODE (parm) == PARM_DECL)
5109 cp_walk_tree (&TREE_TYPE (parm), &find_parameter_packs_r,
5110 ppd, ppd->visited);
5111 return;
5114 gcc_assert (TREE_CODE (parm) == TEMPLATE_DECL);
5116 tree vec = INNERMOST_TEMPLATE_PARMS (DECL_TEMPLATE_PARMS (parm));
5117 for (int i = 0; i < TREE_VEC_LENGTH (vec); ++i)
5118 fixed_parameter_pack_p_1 (TREE_VALUE (TREE_VEC_ELT (vec, i)), ppd);
5121 /* PARM is a template parameter pack. Return any parameter packs used in
5122 its type or the type of any of its template parameters. If there are
5123 any such packs, it will be instantiated into a fixed template parameter
5124 list by partial instantiation rather than be fully deduced. */
5126 tree
5127 fixed_parameter_pack_p (tree parm)
5129 /* This can only be true in a member template. */
5130 if (TEMPLATE_PARM_ORIG_LEVEL (get_template_parm_index (parm)) < 2)
5131 return NULL_TREE;
5132 /* This can only be true for a parameter pack. */
5133 if (!template_parameter_pack_p (parm))
5134 return NULL_TREE;
5135 /* A type parm can't refer to another parm. */
5136 if (TREE_CODE (parm) == TYPE_DECL)
5137 return NULL_TREE;
5139 tree parameter_packs = NULL_TREE;
5140 struct find_parameter_pack_data ppd;
5141 ppd.parameter_packs = &parameter_packs;
5142 ppd.visited = new hash_set<tree>;
5143 ppd.type_pack_expansion_p = false;
5145 fixed_parameter_pack_p_1 (parm, &ppd);
5147 delete ppd.visited;
5148 return parameter_packs;
5151 /* Check that a template declaration's use of default arguments and
5152 parameter packs is not invalid. Here, PARMS are the template
5153 parameters. IS_PRIMARY is true if DECL is the thing declared by
5154 a primary template. IS_PARTIAL is true if DECL is a partial
5155 specialization.
5157 IS_FRIEND_DECL is nonzero if DECL is either a non-defining friend
5158 function template declaration or a friend class template
5159 declaration. In the function case, 1 indicates a declaration, 2
5160 indicates a redeclaration. When IS_FRIEND_DECL=2, no errors are
5161 emitted for extraneous default arguments.
5163 Returns TRUE if there were no errors found, FALSE otherwise. */
5165 bool
5166 check_default_tmpl_args (tree decl, tree parms, bool is_primary,
5167 bool is_partial, int is_friend_decl)
5169 const char *msg;
5170 int last_level_to_check;
5171 tree parm_level;
5172 bool no_errors = true;
5174 /* [temp.param]
5176 A default template-argument shall not be specified in a
5177 function template declaration or a function template definition, nor
5178 in the template-parameter-list of the definition of a member of a
5179 class template. */
5181 if (TREE_CODE (CP_DECL_CONTEXT (decl)) == FUNCTION_DECL
5182 || (TREE_CODE (decl) == FUNCTION_DECL && DECL_LOCAL_FUNCTION_P (decl)))
5183 /* You can't have a function template declaration in a local
5184 scope, nor you can you define a member of a class template in a
5185 local scope. */
5186 return true;
5188 if ((TREE_CODE (decl) == TYPE_DECL
5189 && TREE_TYPE (decl)
5190 && LAMBDA_TYPE_P (TREE_TYPE (decl)))
5191 || (TREE_CODE (decl) == FUNCTION_DECL
5192 && LAMBDA_FUNCTION_P (decl)))
5193 /* A lambda doesn't have an explicit declaration; don't complain
5194 about the parms of the enclosing class. */
5195 return true;
5197 if (current_class_type
5198 && !TYPE_BEING_DEFINED (current_class_type)
5199 && DECL_LANG_SPECIFIC (decl)
5200 && DECL_DECLARES_FUNCTION_P (decl)
5201 /* If this is either a friend defined in the scope of the class
5202 or a member function. */
5203 && (DECL_FUNCTION_MEMBER_P (decl)
5204 ? same_type_p (DECL_CONTEXT (decl), current_class_type)
5205 : DECL_FRIEND_CONTEXT (decl)
5206 ? same_type_p (DECL_FRIEND_CONTEXT (decl), current_class_type)
5207 : false)
5208 /* And, if it was a member function, it really was defined in
5209 the scope of the class. */
5210 && (!DECL_FUNCTION_MEMBER_P (decl)
5211 || DECL_INITIALIZED_IN_CLASS_P (decl)))
5212 /* We already checked these parameters when the template was
5213 declared, so there's no need to do it again now. This function
5214 was defined in class scope, but we're processing its body now
5215 that the class is complete. */
5216 return true;
5218 /* Core issue 226 (C++0x only): the following only applies to class
5219 templates. */
5220 if (is_primary
5221 && ((cxx_dialect == cxx98) || TREE_CODE (decl) != FUNCTION_DECL))
5223 /* [temp.param]
5225 If a template-parameter has a default template-argument, all
5226 subsequent template-parameters shall have a default
5227 template-argument supplied. */
5228 for (parm_level = parms; parm_level; parm_level = TREE_CHAIN (parm_level))
5230 tree inner_parms = TREE_VALUE (parm_level);
5231 int ntparms = TREE_VEC_LENGTH (inner_parms);
5232 int seen_def_arg_p = 0;
5233 int i;
5235 for (i = 0; i < ntparms; ++i)
5237 tree parm = TREE_VEC_ELT (inner_parms, i);
5239 if (parm == error_mark_node)
5240 continue;
5242 if (TREE_PURPOSE (parm))
5243 seen_def_arg_p = 1;
5244 else if (seen_def_arg_p
5245 && !template_parameter_pack_p (TREE_VALUE (parm)))
5247 error ("no default argument for %qD", TREE_VALUE (parm));
5248 /* For better subsequent error-recovery, we indicate that
5249 there should have been a default argument. */
5250 TREE_PURPOSE (parm) = error_mark_node;
5251 no_errors = false;
5253 else if (!is_partial
5254 && !is_friend_decl
5255 /* Don't complain about an enclosing partial
5256 specialization. */
5257 && parm_level == parms
5258 && TREE_CODE (decl) == TYPE_DECL
5259 && i < ntparms - 1
5260 && template_parameter_pack_p (TREE_VALUE (parm))
5261 /* A fixed parameter pack will be partially
5262 instantiated into a fixed length list. */
5263 && !fixed_parameter_pack_p (TREE_VALUE (parm)))
5265 /* A primary class template can only have one
5266 parameter pack, at the end of the template
5267 parameter list. */
5269 error ("parameter pack %q+D must be at the end of the"
5270 " template parameter list", TREE_VALUE (parm));
5272 TREE_VALUE (TREE_VEC_ELT (inner_parms, i))
5273 = error_mark_node;
5274 no_errors = false;
5280 if (((cxx_dialect == cxx98) && TREE_CODE (decl) != TYPE_DECL)
5281 || is_partial
5282 || !is_primary
5283 || is_friend_decl)
5284 /* For an ordinary class template, default template arguments are
5285 allowed at the innermost level, e.g.:
5286 template <class T = int>
5287 struct S {};
5288 but, in a partial specialization, they're not allowed even
5289 there, as we have in [temp.class.spec]:
5291 The template parameter list of a specialization shall not
5292 contain default template argument values.
5294 So, for a partial specialization, or for a function template
5295 (in C++98/C++03), we look at all of them. */
5297 else
5298 /* But, for a primary class template that is not a partial
5299 specialization we look at all template parameters except the
5300 innermost ones. */
5301 parms = TREE_CHAIN (parms);
5303 /* Figure out what error message to issue. */
5304 if (is_friend_decl == 2)
5305 msg = G_("default template arguments may not be used in function template "
5306 "friend re-declaration");
5307 else if (is_friend_decl)
5308 msg = G_("default template arguments may not be used in template "
5309 "friend declarations");
5310 else if (TREE_CODE (decl) == FUNCTION_DECL && (cxx_dialect == cxx98))
5311 msg = G_("default template arguments may not be used in function templates "
5312 "without -std=c++11 or -std=gnu++11");
5313 else if (is_partial)
5314 msg = G_("default template arguments may not be used in "
5315 "partial specializations");
5316 else if (current_class_type && CLASSTYPE_IS_TEMPLATE (current_class_type))
5317 msg = G_("default argument for template parameter for class enclosing %qD");
5318 else
5319 /* Per [temp.param]/9, "A default template-argument shall not be
5320 specified in the template-parameter-lists of the definition of
5321 a member of a class template that appears outside of the member's
5322 class.", thus if we aren't handling a member of a class template
5323 there is no need to examine the parameters. */
5324 return true;
5326 if (current_class_type && TYPE_BEING_DEFINED (current_class_type))
5327 /* If we're inside a class definition, there's no need to
5328 examine the parameters to the class itself. On the one
5329 hand, they will be checked when the class is defined, and,
5330 on the other, default arguments are valid in things like:
5331 template <class T = double>
5332 struct S { template <class U> void f(U); };
5333 Here the default argument for `S' has no bearing on the
5334 declaration of `f'. */
5335 last_level_to_check = template_class_depth (current_class_type) + 1;
5336 else
5337 /* Check everything. */
5338 last_level_to_check = 0;
5340 for (parm_level = parms;
5341 parm_level && TMPL_PARMS_DEPTH (parm_level) >= last_level_to_check;
5342 parm_level = TREE_CHAIN (parm_level))
5344 tree inner_parms = TREE_VALUE (parm_level);
5345 int i;
5346 int ntparms;
5348 ntparms = TREE_VEC_LENGTH (inner_parms);
5349 for (i = 0; i < ntparms; ++i)
5351 if (TREE_VEC_ELT (inner_parms, i) == error_mark_node)
5352 continue;
5354 if (TREE_PURPOSE (TREE_VEC_ELT (inner_parms, i)))
5356 if (msg)
5358 no_errors = false;
5359 if (is_friend_decl == 2)
5360 return no_errors;
5362 error (msg, decl);
5363 msg = 0;
5366 /* Clear out the default argument so that we are not
5367 confused later. */
5368 TREE_PURPOSE (TREE_VEC_ELT (inner_parms, i)) = NULL_TREE;
5372 /* At this point, if we're still interested in issuing messages,
5373 they must apply to classes surrounding the object declared. */
5374 if (msg)
5375 msg = G_("default argument for template parameter for class "
5376 "enclosing %qD");
5379 return no_errors;
5382 /* Worker for push_template_decl_real, called via
5383 for_each_template_parm. DATA is really an int, indicating the
5384 level of the parameters we are interested in. If T is a template
5385 parameter of that level, return nonzero. */
5387 static int
5388 template_parm_this_level_p (tree t, void* data)
5390 int this_level = *(int *)data;
5391 int level;
5393 if (TREE_CODE (t) == TEMPLATE_PARM_INDEX)
5394 level = TEMPLATE_PARM_LEVEL (t);
5395 else
5396 level = TEMPLATE_TYPE_LEVEL (t);
5397 return level == this_level;
5400 /* Worker for uses_outer_template_parms, called via for_each_template_parm.
5401 DATA is really an int, indicating the innermost outer level of parameters.
5402 If T is a template parameter of that level or further out, return
5403 nonzero. */
5405 static int
5406 template_parm_outer_level (tree t, void *data)
5408 int this_level = *(int *)data;
5409 int level;
5411 if (TREE_CODE (t) == TEMPLATE_PARM_INDEX)
5412 level = TEMPLATE_PARM_LEVEL (t);
5413 else
5414 level = TEMPLATE_TYPE_LEVEL (t);
5415 return level <= this_level;
5418 /* Creates a TEMPLATE_DECL for the indicated DECL using the template
5419 parameters given by current_template_args, or reuses a
5420 previously existing one, if appropriate. Returns the DECL, or an
5421 equivalent one, if it is replaced via a call to duplicate_decls.
5423 If IS_FRIEND is true, DECL is a friend declaration. */
5425 tree
5426 push_template_decl_real (tree decl, bool is_friend)
5428 tree tmpl;
5429 tree args;
5430 tree info;
5431 tree ctx;
5432 bool is_primary;
5433 bool is_partial;
5434 int new_template_p = 0;
5435 /* True if the template is a member template, in the sense of
5436 [temp.mem]. */
5437 bool member_template_p = false;
5439 if (decl == error_mark_node || !current_template_parms)
5440 return error_mark_node;
5442 /* See if this is a partial specialization. */
5443 is_partial = ((DECL_IMPLICIT_TYPEDEF_P (decl)
5444 && TREE_CODE (TREE_TYPE (decl)) != ENUMERAL_TYPE
5445 && CLASSTYPE_TEMPLATE_SPECIALIZATION (TREE_TYPE (decl)))
5446 || (VAR_P (decl)
5447 && DECL_LANG_SPECIFIC (decl)
5448 && DECL_TEMPLATE_SPECIALIZATION (decl)
5449 && TINFO_USED_TEMPLATE_ID (DECL_TEMPLATE_INFO (decl))));
5451 if (TREE_CODE (decl) == FUNCTION_DECL && DECL_FRIEND_P (decl))
5452 is_friend = true;
5454 if (is_friend)
5455 /* For a friend, we want the context of the friend, not
5456 the type of which it is a friend. */
5457 ctx = CP_DECL_CONTEXT (decl);
5458 else if (CP_DECL_CONTEXT (decl)
5459 && TREE_CODE (CP_DECL_CONTEXT (decl)) != NAMESPACE_DECL)
5460 /* In the case of a virtual function, we want the class in which
5461 it is defined. */
5462 ctx = CP_DECL_CONTEXT (decl);
5463 else
5464 /* Otherwise, if we're currently defining some class, the DECL
5465 is assumed to be a member of the class. */
5466 ctx = current_scope ();
5468 if (ctx && TREE_CODE (ctx) == NAMESPACE_DECL)
5469 ctx = NULL_TREE;
5471 if (!DECL_CONTEXT (decl))
5472 DECL_CONTEXT (decl) = FROB_CONTEXT (current_namespace);
5474 /* See if this is a primary template. */
5475 if (is_friend && ctx
5476 && uses_template_parms_level (ctx, processing_template_decl))
5477 /* A friend template that specifies a class context, i.e.
5478 template <typename T> friend void A<T>::f();
5479 is not primary. */
5480 is_primary = false;
5481 else if (TREE_CODE (decl) == TYPE_DECL
5482 && LAMBDA_TYPE_P (TREE_TYPE (decl)))
5483 is_primary = false;
5484 else
5485 is_primary = template_parm_scope_p ();
5487 if (is_primary)
5489 warning (OPT_Wtemplates, "template %qD declared", decl);
5491 if (DECL_CLASS_SCOPE_P (decl))
5492 member_template_p = true;
5493 if (TREE_CODE (decl) == TYPE_DECL
5494 && anon_aggrname_p (DECL_NAME (decl)))
5496 error ("template class without a name");
5497 return error_mark_node;
5499 else if (TREE_CODE (decl) == FUNCTION_DECL)
5501 if (member_template_p)
5503 if (DECL_OVERRIDE_P (decl) || DECL_FINAL_P (decl))
5504 error ("member template %qD may not have virt-specifiers", decl);
5506 if (DECL_DESTRUCTOR_P (decl))
5508 /* [temp.mem]
5510 A destructor shall not be a member template. */
5511 error ("destructor %qD declared as member template", decl);
5512 return error_mark_node;
5514 if (IDENTIFIER_NEWDEL_OP_P (DECL_NAME (decl))
5515 && (!prototype_p (TREE_TYPE (decl))
5516 || TYPE_ARG_TYPES (TREE_TYPE (decl)) == void_list_node
5517 || !TREE_CHAIN (TYPE_ARG_TYPES (TREE_TYPE (decl)))
5518 || (TREE_CHAIN (TYPE_ARG_TYPES (TREE_TYPE (decl)))
5519 == void_list_node)))
5521 /* [basic.stc.dynamic.allocation]
5523 An allocation function can be a function
5524 template. ... Template allocation functions shall
5525 have two or more parameters. */
5526 error ("invalid template declaration of %qD", decl);
5527 return error_mark_node;
5530 else if (DECL_IMPLICIT_TYPEDEF_P (decl)
5531 && CLASS_TYPE_P (TREE_TYPE (decl)))
5533 /* Class template, set TEMPLATE_TYPE_PARM_FOR_CLASS. */
5534 tree parms = INNERMOST_TEMPLATE_PARMS (current_template_parms);
5535 for (int i = 0; i < TREE_VEC_LENGTH (parms); ++i)
5537 tree t = TREE_VALUE (TREE_VEC_ELT (parms, i));
5538 if (TREE_CODE (t) == TYPE_DECL)
5539 t = TREE_TYPE (t);
5540 if (TREE_CODE (t) == TEMPLATE_TYPE_PARM)
5541 TEMPLATE_TYPE_PARM_FOR_CLASS (t) = true;
5544 else if (TREE_CODE (decl) == TYPE_DECL
5545 && TYPE_DECL_ALIAS_P (decl))
5546 /* alias-declaration */
5547 gcc_assert (!DECL_ARTIFICIAL (decl));
5548 else if (VAR_P (decl))
5549 /* C++14 variable template. */;
5550 else
5552 error ("template declaration of %q#D", decl);
5553 return error_mark_node;
5557 /* Check to see that the rules regarding the use of default
5558 arguments are not being violated. We check args for a friend
5559 functions when we know whether it's a definition, introducing
5560 declaration or re-declaration. */
5561 if (!is_friend || TREE_CODE (decl) != FUNCTION_DECL)
5562 check_default_tmpl_args (decl, current_template_parms,
5563 is_primary, is_partial, is_friend);
5565 /* Ensure that there are no parameter packs in the type of this
5566 declaration that have not been expanded. */
5567 if (TREE_CODE (decl) == FUNCTION_DECL)
5569 /* Check each of the arguments individually to see if there are
5570 any bare parameter packs. */
5571 tree type = TREE_TYPE (decl);
5572 tree arg = DECL_ARGUMENTS (decl);
5573 tree argtype = TYPE_ARG_TYPES (type);
5575 while (arg && argtype)
5577 if (!DECL_PACK_P (arg)
5578 && check_for_bare_parameter_packs (TREE_TYPE (arg)))
5580 /* This is a PARM_DECL that contains unexpanded parameter
5581 packs. We have already complained about this in the
5582 check_for_bare_parameter_packs call, so just replace
5583 these types with ERROR_MARK_NODE. */
5584 TREE_TYPE (arg) = error_mark_node;
5585 TREE_VALUE (argtype) = error_mark_node;
5588 arg = DECL_CHAIN (arg);
5589 argtype = TREE_CHAIN (argtype);
5592 /* Check for bare parameter packs in the return type and the
5593 exception specifiers. */
5594 if (check_for_bare_parameter_packs (TREE_TYPE (type)))
5595 /* Errors were already issued, set return type to int
5596 as the frontend doesn't expect error_mark_node as
5597 the return type. */
5598 TREE_TYPE (type) = integer_type_node;
5599 if (check_for_bare_parameter_packs (TYPE_RAISES_EXCEPTIONS (type)))
5600 TYPE_RAISES_EXCEPTIONS (type) = NULL_TREE;
5602 else if (check_for_bare_parameter_packs ((TREE_CODE (decl) == TYPE_DECL
5603 && TYPE_DECL_ALIAS_P (decl))
5604 ? DECL_ORIGINAL_TYPE (decl)
5605 : TREE_TYPE (decl)))
5607 TREE_TYPE (decl) = error_mark_node;
5608 return error_mark_node;
5611 if (is_partial)
5612 return process_partial_specialization (decl);
5614 args = current_template_args ();
5616 if (!ctx
5617 || TREE_CODE (ctx) == FUNCTION_DECL
5618 || (CLASS_TYPE_P (ctx) && TYPE_BEING_DEFINED (ctx))
5619 || (TREE_CODE (decl) == TYPE_DECL
5620 && LAMBDA_TYPE_P (TREE_TYPE (decl)))
5621 || (is_friend && !DECL_TEMPLATE_INFO (decl)))
5623 if (DECL_LANG_SPECIFIC (decl)
5624 && DECL_TEMPLATE_INFO (decl)
5625 && DECL_TI_TEMPLATE (decl))
5626 tmpl = DECL_TI_TEMPLATE (decl);
5627 /* If DECL is a TYPE_DECL for a class-template, then there won't
5628 be DECL_LANG_SPECIFIC. The information equivalent to
5629 DECL_TEMPLATE_INFO is found in TYPE_TEMPLATE_INFO instead. */
5630 else if (DECL_IMPLICIT_TYPEDEF_P (decl)
5631 && TYPE_TEMPLATE_INFO (TREE_TYPE (decl))
5632 && TYPE_TI_TEMPLATE (TREE_TYPE (decl)))
5634 /* Since a template declaration already existed for this
5635 class-type, we must be redeclaring it here. Make sure
5636 that the redeclaration is valid. */
5637 redeclare_class_template (TREE_TYPE (decl),
5638 current_template_parms,
5639 current_template_constraints ());
5640 /* We don't need to create a new TEMPLATE_DECL; just use the
5641 one we already had. */
5642 tmpl = TYPE_TI_TEMPLATE (TREE_TYPE (decl));
5644 else
5646 tmpl = build_template_decl (decl, current_template_parms,
5647 member_template_p);
5648 new_template_p = 1;
5650 if (DECL_LANG_SPECIFIC (decl)
5651 && DECL_TEMPLATE_SPECIALIZATION (decl))
5653 /* A specialization of a member template of a template
5654 class. */
5655 SET_DECL_TEMPLATE_SPECIALIZATION (tmpl);
5656 DECL_TEMPLATE_INFO (tmpl) = DECL_TEMPLATE_INFO (decl);
5657 DECL_TEMPLATE_INFO (decl) = NULL_TREE;
5661 else
5663 tree a, t, current, parms;
5664 int i;
5665 tree tinfo = get_template_info (decl);
5667 if (!tinfo)
5669 error ("template definition of non-template %q#D", decl);
5670 return error_mark_node;
5673 tmpl = TI_TEMPLATE (tinfo);
5675 if (DECL_FUNCTION_TEMPLATE_P (tmpl)
5676 && DECL_TEMPLATE_INFO (decl) && DECL_TI_ARGS (decl)
5677 && DECL_TEMPLATE_SPECIALIZATION (decl)
5678 && DECL_MEMBER_TEMPLATE_P (tmpl))
5680 tree new_tmpl;
5682 /* The declaration is a specialization of a member
5683 template, declared outside the class. Therefore, the
5684 innermost template arguments will be NULL, so we
5685 replace them with the arguments determined by the
5686 earlier call to check_explicit_specialization. */
5687 args = DECL_TI_ARGS (decl);
5689 new_tmpl
5690 = build_template_decl (decl, current_template_parms,
5691 member_template_p);
5692 DECL_TEMPLATE_RESULT (new_tmpl) = decl;
5693 TREE_TYPE (new_tmpl) = TREE_TYPE (decl);
5694 DECL_TI_TEMPLATE (decl) = new_tmpl;
5695 SET_DECL_TEMPLATE_SPECIALIZATION (new_tmpl);
5696 DECL_TEMPLATE_INFO (new_tmpl)
5697 = build_template_info (tmpl, args);
5699 register_specialization (new_tmpl,
5700 most_general_template (tmpl),
5701 args,
5702 is_friend, 0);
5703 return decl;
5706 /* Make sure the template headers we got make sense. */
5708 parms = DECL_TEMPLATE_PARMS (tmpl);
5709 i = TMPL_PARMS_DEPTH (parms);
5710 if (TMPL_ARGS_DEPTH (args) != i)
5712 error ("expected %d levels of template parms for %q#D, got %d",
5713 i, decl, TMPL_ARGS_DEPTH (args));
5714 DECL_INTERFACE_KNOWN (decl) = 1;
5715 return error_mark_node;
5717 else
5718 for (current = decl; i > 0; --i, parms = TREE_CHAIN (parms))
5720 a = TMPL_ARGS_LEVEL (args, i);
5721 t = INNERMOST_TEMPLATE_PARMS (parms);
5723 if (TREE_VEC_LENGTH (t) != TREE_VEC_LENGTH (a))
5725 if (current == decl)
5726 error ("got %d template parameters for %q#D",
5727 TREE_VEC_LENGTH (a), decl);
5728 else
5729 error ("got %d template parameters for %q#T",
5730 TREE_VEC_LENGTH (a), current);
5731 error (" but %d required", TREE_VEC_LENGTH (t));
5732 /* Avoid crash in import_export_decl. */
5733 DECL_INTERFACE_KNOWN (decl) = 1;
5734 return error_mark_node;
5737 if (current == decl)
5738 current = ctx;
5739 else if (current == NULL_TREE)
5740 /* Can happen in erroneous input. */
5741 break;
5742 else
5743 current = get_containing_scope (current);
5746 /* Check that the parms are used in the appropriate qualifying scopes
5747 in the declarator. */
5748 if (!comp_template_args
5749 (TI_ARGS (tinfo),
5750 TI_ARGS (get_template_info (DECL_TEMPLATE_RESULT (tmpl)))))
5752 error ("template arguments to %qD do not match original "
5753 "template %qD", decl, DECL_TEMPLATE_RESULT (tmpl));
5754 if (!uses_template_parms (TI_ARGS (tinfo)))
5755 inform (input_location, "use %<template<>%> for"
5756 " an explicit specialization");
5757 /* Avoid crash in import_export_decl. */
5758 DECL_INTERFACE_KNOWN (decl) = 1;
5759 return error_mark_node;
5763 DECL_TEMPLATE_RESULT (tmpl) = decl;
5764 TREE_TYPE (tmpl) = TREE_TYPE (decl);
5766 /* Push template declarations for global functions and types. Note
5767 that we do not try to push a global template friend declared in a
5768 template class; such a thing may well depend on the template
5769 parameters of the class. */
5770 if (new_template_p && !ctx
5771 && !(is_friend && template_class_depth (current_class_type) > 0))
5773 tmpl = pushdecl_namespace_level (tmpl, is_friend);
5774 if (tmpl == error_mark_node)
5775 return error_mark_node;
5777 /* Hide template friend classes that haven't been declared yet. */
5778 if (is_friend && TREE_CODE (decl) == TYPE_DECL)
5780 DECL_ANTICIPATED (tmpl) = 1;
5781 DECL_FRIEND_P (tmpl) = 1;
5785 if (is_primary)
5787 tree parms = DECL_TEMPLATE_PARMS (tmpl);
5789 DECL_PRIMARY_TEMPLATE (tmpl) = tmpl;
5791 /* Give template template parms a DECL_CONTEXT of the template
5792 for which they are a parameter. */
5793 parms = INNERMOST_TEMPLATE_PARMS (parms);
5794 for (int i = TREE_VEC_LENGTH (parms) - 1; i >= 0; --i)
5796 tree parm = TREE_VALUE (TREE_VEC_ELT (parms, i));
5797 if (TREE_CODE (parm) == TEMPLATE_DECL)
5798 DECL_CONTEXT (parm) = tmpl;
5801 if (TREE_CODE (decl) == TYPE_DECL
5802 && TYPE_DECL_ALIAS_P (decl)
5803 && complex_alias_template_p (tmpl))
5804 TEMPLATE_DECL_COMPLEX_ALIAS_P (tmpl) = true;
5807 /* The DECL_TI_ARGS of DECL contains full set of arguments referring
5808 back to its most general template. If TMPL is a specialization,
5809 ARGS may only have the innermost set of arguments. Add the missing
5810 argument levels if necessary. */
5811 if (DECL_TEMPLATE_INFO (tmpl))
5812 args = add_outermost_template_args (DECL_TI_ARGS (tmpl), args);
5814 info = build_template_info (tmpl, args);
5816 if (DECL_IMPLICIT_TYPEDEF_P (decl))
5817 SET_TYPE_TEMPLATE_INFO (TREE_TYPE (tmpl), info);
5818 else
5820 if (is_primary)
5821 retrofit_lang_decl (decl);
5822 if (DECL_LANG_SPECIFIC (decl))
5823 DECL_TEMPLATE_INFO (decl) = info;
5826 if (flag_implicit_templates
5827 && !is_friend
5828 && TREE_PUBLIC (decl)
5829 && VAR_OR_FUNCTION_DECL_P (decl))
5830 /* Set DECL_COMDAT on template instantiations; if we force
5831 them to be emitted by explicit instantiation or -frepo,
5832 mark_needed will tell cgraph to do the right thing. */
5833 DECL_COMDAT (decl) = true;
5835 return DECL_TEMPLATE_RESULT (tmpl);
5838 tree
5839 push_template_decl (tree decl)
5841 return push_template_decl_real (decl, false);
5844 /* FN is an inheriting constructor that inherits from the constructor
5845 template INHERITED; turn FN into a constructor template with a matching
5846 template header. */
5848 tree
5849 add_inherited_template_parms (tree fn, tree inherited)
5851 tree inner_parms
5852 = INNERMOST_TEMPLATE_PARMS (DECL_TEMPLATE_PARMS (inherited));
5853 inner_parms = copy_node (inner_parms);
5854 tree parms
5855 = tree_cons (size_int (processing_template_decl + 1),
5856 inner_parms, current_template_parms);
5857 tree tmpl = build_template_decl (fn, parms, /*member*/true);
5858 tree args = template_parms_to_args (parms);
5859 DECL_TEMPLATE_INFO (fn) = build_template_info (tmpl, args);
5860 TREE_TYPE (tmpl) = TREE_TYPE (fn);
5861 DECL_TEMPLATE_RESULT (tmpl) = fn;
5862 DECL_ARTIFICIAL (tmpl) = true;
5863 DECL_PRIMARY_TEMPLATE (tmpl) = tmpl;
5864 return tmpl;
5867 /* Called when a class template TYPE is redeclared with the indicated
5868 template PARMS, e.g.:
5870 template <class T> struct S;
5871 template <class T> struct S {}; */
5873 bool
5874 redeclare_class_template (tree type, tree parms, tree cons)
5876 tree tmpl;
5877 tree tmpl_parms;
5878 int i;
5880 if (!TYPE_TEMPLATE_INFO (type))
5882 error ("%qT is not a template type", type);
5883 return false;
5886 tmpl = TYPE_TI_TEMPLATE (type);
5887 if (!PRIMARY_TEMPLATE_P (tmpl))
5888 /* The type is nested in some template class. Nothing to worry
5889 about here; there are no new template parameters for the nested
5890 type. */
5891 return true;
5893 if (!parms)
5895 error ("template specifiers not specified in declaration of %qD",
5896 tmpl);
5897 return false;
5900 parms = INNERMOST_TEMPLATE_PARMS (parms);
5901 tmpl_parms = DECL_INNERMOST_TEMPLATE_PARMS (tmpl);
5903 if (TREE_VEC_LENGTH (parms) != TREE_VEC_LENGTH (tmpl_parms))
5905 error_n (input_location, TREE_VEC_LENGTH (parms),
5906 "redeclared with %d template parameter",
5907 "redeclared with %d template parameters",
5908 TREE_VEC_LENGTH (parms));
5909 inform_n (DECL_SOURCE_LOCATION (tmpl), TREE_VEC_LENGTH (tmpl_parms),
5910 "previous declaration %qD used %d template parameter",
5911 "previous declaration %qD used %d template parameters",
5912 tmpl, TREE_VEC_LENGTH (tmpl_parms));
5913 return false;
5916 for (i = 0; i < TREE_VEC_LENGTH (tmpl_parms); ++i)
5918 tree tmpl_parm;
5919 tree parm;
5920 tree tmpl_default;
5921 tree parm_default;
5923 if (TREE_VEC_ELT (tmpl_parms, i) == error_mark_node
5924 || TREE_VEC_ELT (parms, i) == error_mark_node)
5925 continue;
5927 tmpl_parm = TREE_VALUE (TREE_VEC_ELT (tmpl_parms, i));
5928 if (error_operand_p (tmpl_parm))
5929 return false;
5931 parm = TREE_VALUE (TREE_VEC_ELT (parms, i));
5932 tmpl_default = TREE_PURPOSE (TREE_VEC_ELT (tmpl_parms, i));
5933 parm_default = TREE_PURPOSE (TREE_VEC_ELT (parms, i));
5935 /* TMPL_PARM and PARM can be either TYPE_DECL, PARM_DECL, or
5936 TEMPLATE_DECL. */
5937 if (TREE_CODE (tmpl_parm) != TREE_CODE (parm)
5938 || (TREE_CODE (tmpl_parm) != TYPE_DECL
5939 && !same_type_p (TREE_TYPE (tmpl_parm), TREE_TYPE (parm)))
5940 || (TREE_CODE (tmpl_parm) != PARM_DECL
5941 && (TEMPLATE_TYPE_PARAMETER_PACK (TREE_TYPE (tmpl_parm))
5942 != TEMPLATE_TYPE_PARAMETER_PACK (TREE_TYPE (parm))))
5943 || (TREE_CODE (tmpl_parm) == PARM_DECL
5944 && (TEMPLATE_PARM_PARAMETER_PACK (DECL_INITIAL (tmpl_parm))
5945 != TEMPLATE_PARM_PARAMETER_PACK (DECL_INITIAL (parm)))))
5947 error ("template parameter %q+#D", tmpl_parm);
5948 error ("redeclared here as %q#D", parm);
5949 return false;
5952 if (tmpl_default != NULL_TREE && parm_default != NULL_TREE)
5954 /* We have in [temp.param]:
5956 A template-parameter may not be given default arguments
5957 by two different declarations in the same scope. */
5958 error_at (input_location, "redefinition of default argument for %q#D", parm);
5959 inform (DECL_SOURCE_LOCATION (tmpl_parm),
5960 "original definition appeared here");
5961 return false;
5964 if (parm_default != NULL_TREE)
5965 /* Update the previous template parameters (which are the ones
5966 that will really count) with the new default value. */
5967 TREE_PURPOSE (TREE_VEC_ELT (tmpl_parms, i)) = parm_default;
5968 else if (tmpl_default != NULL_TREE)
5969 /* Update the new parameters, too; they'll be used as the
5970 parameters for any members. */
5971 TREE_PURPOSE (TREE_VEC_ELT (parms, i)) = tmpl_default;
5973 /* Give each template template parm in this redeclaration a
5974 DECL_CONTEXT of the template for which they are a parameter. */
5975 if (TREE_CODE (parm) == TEMPLATE_DECL)
5977 gcc_assert (DECL_CONTEXT (parm) == NULL_TREE);
5978 DECL_CONTEXT (parm) = tmpl;
5981 if (TREE_CODE (parm) == TYPE_DECL)
5982 TEMPLATE_TYPE_PARM_FOR_CLASS (TREE_TYPE (parm)) = true;
5985 // Cannot redeclare a class template with a different set of constraints.
5986 if (!equivalent_constraints (get_constraints (tmpl), cons))
5988 error_at (input_location, "redeclaration %q#D with different "
5989 "constraints", tmpl);
5990 inform (DECL_SOURCE_LOCATION (tmpl),
5991 "original declaration appeared here");
5994 return true;
5997 /* The actual substitution part of instantiate_non_dependent_expr_sfinae,
5998 to be used when the caller has already checked
5999 (processing_template_decl
6000 && !instantiation_dependent_expression_p (expr)
6001 && potential_constant_expression (expr))
6002 and cleared processing_template_decl. */
6004 tree
6005 instantiate_non_dependent_expr_internal (tree expr, tsubst_flags_t complain)
6007 return tsubst_copy_and_build (expr,
6008 /*args=*/NULL_TREE,
6009 complain,
6010 /*in_decl=*/NULL_TREE,
6011 /*function_p=*/false,
6012 /*integral_constant_expression_p=*/true);
6015 /* Simplify EXPR if it is a non-dependent expression. Returns the
6016 (possibly simplified) expression. */
6018 tree
6019 instantiate_non_dependent_expr_sfinae (tree expr, tsubst_flags_t complain)
6021 if (expr == NULL_TREE)
6022 return NULL_TREE;
6024 /* If we're in a template, but EXPR isn't value dependent, simplify
6025 it. We're supposed to treat:
6027 template <typename T> void f(T[1 + 1]);
6028 template <typename T> void f(T[2]);
6030 as two declarations of the same function, for example. */
6031 if (processing_template_decl
6032 && is_nondependent_constant_expression (expr))
6034 processing_template_decl_sentinel s;
6035 expr = instantiate_non_dependent_expr_internal (expr, complain);
6037 return expr;
6040 tree
6041 instantiate_non_dependent_expr (tree expr)
6043 return instantiate_non_dependent_expr_sfinae (expr, tf_error);
6046 /* Like instantiate_non_dependent_expr, but return NULL_TREE rather than
6047 an uninstantiated expression. */
6049 tree
6050 instantiate_non_dependent_or_null (tree expr)
6052 if (expr == NULL_TREE)
6053 return NULL_TREE;
6054 if (processing_template_decl)
6056 if (!is_nondependent_constant_expression (expr))
6057 expr = NULL_TREE;
6058 else
6060 processing_template_decl_sentinel s;
6061 expr = instantiate_non_dependent_expr_internal (expr, tf_error);
6064 return expr;
6067 /* True iff T is a specialization of a variable template. */
6069 bool
6070 variable_template_specialization_p (tree t)
6072 if (!VAR_P (t) || !DECL_LANG_SPECIFIC (t) || !DECL_TEMPLATE_INFO (t))
6073 return false;
6074 tree tmpl = DECL_TI_TEMPLATE (t);
6075 return variable_template_p (tmpl);
6078 /* Return TRUE iff T is a type alias, a TEMPLATE_DECL for an alias
6079 template declaration, or a TYPE_DECL for an alias declaration. */
6081 bool
6082 alias_type_or_template_p (tree t)
6084 if (t == NULL_TREE)
6085 return false;
6086 return ((TREE_CODE (t) == TYPE_DECL && TYPE_DECL_ALIAS_P (t))
6087 || (TYPE_P (t)
6088 && TYPE_NAME (t)
6089 && TYPE_DECL_ALIAS_P (TYPE_NAME (t)))
6090 || DECL_ALIAS_TEMPLATE_P (t));
6093 /* Return TRUE iff T is a specialization of an alias template. */
6095 bool
6096 alias_template_specialization_p (const_tree t)
6098 /* It's an alias template specialization if it's an alias and its
6099 TYPE_NAME is a specialization of a primary template. */
6100 if (TYPE_ALIAS_P (t))
6101 if (tree tinfo = TYPE_ALIAS_TEMPLATE_INFO (t))
6102 return PRIMARY_TEMPLATE_P (TI_TEMPLATE (tinfo));
6104 return false;
6107 /* An alias template is complex from a SFINAE perspective if a template-id
6108 using that alias can be ill-formed when the expansion is not, as with
6109 the void_t template. We determine this by checking whether the
6110 expansion for the alias template uses all its template parameters. */
6112 struct uses_all_template_parms_data
6114 int level;
6115 bool *seen;
6118 static int
6119 uses_all_template_parms_r (tree t, void *data_)
6121 struct uses_all_template_parms_data &data
6122 = *(struct uses_all_template_parms_data*)data_;
6123 tree idx = get_template_parm_index (t);
6125 if (TEMPLATE_PARM_LEVEL (idx) == data.level)
6126 data.seen[TEMPLATE_PARM_IDX (idx)] = true;
6127 return 0;
6130 static bool
6131 complex_alias_template_p (const_tree tmpl)
6133 struct uses_all_template_parms_data data;
6134 tree pat = DECL_ORIGINAL_TYPE (DECL_TEMPLATE_RESULT (tmpl));
6135 tree parms = DECL_TEMPLATE_PARMS (tmpl);
6136 data.level = TMPL_PARMS_DEPTH (parms);
6137 int len = TREE_VEC_LENGTH (INNERMOST_TEMPLATE_PARMS (parms));
6138 data.seen = XALLOCAVEC (bool, len);
6139 for (int i = 0; i < len; ++i)
6140 data.seen[i] = false;
6142 for_each_template_parm (pat, uses_all_template_parms_r, &data, NULL, true);
6143 for (int i = 0; i < len; ++i)
6144 if (!data.seen[i])
6145 return true;
6146 return false;
6149 /* Return TRUE iff T is a specialization of a complex alias template with
6150 dependent template-arguments. */
6152 bool
6153 dependent_alias_template_spec_p (const_tree t)
6155 if (!alias_template_specialization_p (t))
6156 return false;
6158 tree tinfo = TYPE_ALIAS_TEMPLATE_INFO (t);
6159 if (!TEMPLATE_DECL_COMPLEX_ALIAS_P (TI_TEMPLATE (tinfo)))
6160 return false;
6162 tree args = INNERMOST_TEMPLATE_ARGS (TI_ARGS (tinfo));
6163 if (!any_dependent_template_arguments_p (args))
6164 return false;
6166 return true;
6169 /* Return the number of innermost template parameters in TMPL. */
6171 static int
6172 num_innermost_template_parms (tree tmpl)
6174 tree parms = INNERMOST_TEMPLATE_PARMS (DECL_TEMPLATE_PARMS (tmpl));
6175 return TREE_VEC_LENGTH (parms);
6178 /* Return either TMPL or another template that it is equivalent to under DR
6179 1286: An alias that just changes the name of a template is equivalent to
6180 the other template. */
6182 static tree
6183 get_underlying_template (tree tmpl)
6185 gcc_assert (TREE_CODE (tmpl) == TEMPLATE_DECL);
6186 while (DECL_ALIAS_TEMPLATE_P (tmpl))
6188 /* Determine if the alias is equivalent to an underlying template. */
6189 tree orig_type = DECL_ORIGINAL_TYPE (DECL_TEMPLATE_RESULT (tmpl));
6190 tree tinfo = TYPE_TEMPLATE_INFO_MAYBE_ALIAS (orig_type);
6191 if (!tinfo)
6192 break;
6194 tree underlying = TI_TEMPLATE (tinfo);
6195 if (!PRIMARY_TEMPLATE_P (underlying)
6196 || (num_innermost_template_parms (tmpl)
6197 != num_innermost_template_parms (underlying)))
6198 break;
6200 tree alias_args = INNERMOST_TEMPLATE_ARGS
6201 (template_parms_to_args (DECL_TEMPLATE_PARMS (tmpl)));
6202 if (!comp_template_args (TI_ARGS (tinfo), alias_args))
6203 break;
6205 /* Alias is equivalent. Strip it and repeat. */
6206 tmpl = underlying;
6209 return tmpl;
6212 /* Subroutine of convert_nontype_argument. Converts EXPR to TYPE, which
6213 must be a reference-to-function or a pointer-to-function type, as specified
6214 in [temp.arg.nontype]: disambiguate EXPR if it is an overload set,
6215 and check that the resulting function has external linkage. */
6217 static tree
6218 convert_nontype_argument_function (tree type, tree expr,
6219 tsubst_flags_t complain)
6221 tree fns = expr;
6222 tree fn, fn_no_ptr;
6223 linkage_kind linkage;
6225 fn = instantiate_type (type, fns, tf_none);
6226 if (fn == error_mark_node)
6227 return error_mark_node;
6229 if (value_dependent_expression_p (fn))
6230 goto accept;
6232 fn_no_ptr = strip_fnptr_conv (fn);
6233 if (TREE_CODE (fn_no_ptr) == ADDR_EXPR)
6234 fn_no_ptr = TREE_OPERAND (fn_no_ptr, 0);
6235 if (BASELINK_P (fn_no_ptr))
6236 fn_no_ptr = BASELINK_FUNCTIONS (fn_no_ptr);
6238 /* [temp.arg.nontype]/1
6240 A template-argument for a non-type, non-template template-parameter
6241 shall be one of:
6242 [...]
6243 -- the address of an object or function with external [C++11: or
6244 internal] linkage. */
6246 if (TREE_CODE (fn_no_ptr) != FUNCTION_DECL)
6248 if (complain & tf_error)
6250 error ("%qE is not a valid template argument for type %qT",
6251 expr, type);
6252 if (TYPE_PTR_P (type))
6253 inform (input_location, "it must be the address of a function "
6254 "with external linkage");
6255 else
6256 inform (input_location, "it must be the name of a function with "
6257 "external linkage");
6259 return NULL_TREE;
6262 linkage = decl_linkage (fn_no_ptr);
6263 if (cxx_dialect >= cxx11 ? linkage == lk_none : linkage != lk_external)
6265 if (complain & tf_error)
6267 if (cxx_dialect >= cxx11)
6268 error ("%qE is not a valid template argument for type %qT "
6269 "because %qD has no linkage",
6270 expr, type, fn_no_ptr);
6271 else
6272 error ("%qE is not a valid template argument for type %qT "
6273 "because %qD does not have external linkage",
6274 expr, type, fn_no_ptr);
6276 return NULL_TREE;
6279 accept:
6280 if (TREE_CODE (type) == REFERENCE_TYPE)
6282 if (REFERENCE_REF_P (fn))
6283 fn = TREE_OPERAND (fn, 0);
6284 else
6285 fn = build_address (fn);
6287 if (!same_type_ignoring_top_level_qualifiers_p (type, TREE_TYPE (fn)))
6288 fn = build_nop (type, fn);
6290 return fn;
6293 /* Subroutine of convert_nontype_argument.
6294 Check if EXPR of type TYPE is a valid pointer-to-member constant.
6295 Emit an error otherwise. */
6297 static bool
6298 check_valid_ptrmem_cst_expr (tree type, tree expr,
6299 tsubst_flags_t complain)
6301 location_t loc = EXPR_LOC_OR_LOC (expr, input_location);
6302 tree orig_expr = expr;
6303 STRIP_NOPS (expr);
6304 if (null_ptr_cst_p (expr))
6305 return true;
6306 if (TREE_CODE (expr) == PTRMEM_CST
6307 && same_type_p (TYPE_PTRMEM_CLASS_TYPE (type),
6308 PTRMEM_CST_CLASS (expr)))
6309 return true;
6310 if (cxx_dialect >= cxx11 && null_member_pointer_value_p (expr))
6311 return true;
6312 if (processing_template_decl
6313 && TREE_CODE (expr) == ADDR_EXPR
6314 && TREE_CODE (TREE_OPERAND (expr, 0)) == OFFSET_REF)
6315 return true;
6316 if (complain & tf_error)
6318 error_at (loc, "%qE is not a valid template argument for type %qT",
6319 orig_expr, type);
6320 if (TREE_CODE (expr) != PTRMEM_CST)
6321 inform (loc, "it must be a pointer-to-member of the form %<&X::Y%>");
6322 else
6323 inform (loc, "because it is a member of %qT", PTRMEM_CST_CLASS (expr));
6325 return false;
6328 /* Returns TRUE iff the address of OP is value-dependent.
6330 14.6.2.4 [temp.dep.temp]:
6331 A non-integral non-type template-argument is dependent if its type is
6332 dependent or it has either of the following forms
6333 qualified-id
6334 & qualified-id
6335 and contains a nested-name-specifier which specifies a class-name that
6336 names a dependent type.
6338 We generalize this to just say that the address of a member of a
6339 dependent class is value-dependent; the above doesn't cover the
6340 address of a static data member named with an unqualified-id. */
6342 static bool
6343 has_value_dependent_address (tree op)
6345 /* We could use get_inner_reference here, but there's no need;
6346 this is only relevant for template non-type arguments, which
6347 can only be expressed as &id-expression. */
6348 if (DECL_P (op))
6350 tree ctx = CP_DECL_CONTEXT (op);
6351 if (TYPE_P (ctx) && dependent_type_p (ctx))
6352 return true;
6355 return false;
6358 /* The next set of functions are used for providing helpful explanatory
6359 diagnostics for failed overload resolution. Their messages should be
6360 indented by two spaces for consistency with the messages in
6361 call.c */
6363 static int
6364 unify_success (bool /*explain_p*/)
6366 return 0;
6369 /* Other failure functions should call this one, to provide a single function
6370 for setting a breakpoint on. */
6372 static int
6373 unify_invalid (bool /*explain_p*/)
6375 return 1;
6378 static int
6379 unify_parameter_deduction_failure (bool explain_p, tree parm)
6381 if (explain_p)
6382 inform (input_location,
6383 " couldn't deduce template parameter %qD", parm);
6384 return unify_invalid (explain_p);
6387 static int
6388 unify_cv_qual_mismatch (bool explain_p, tree parm, tree arg)
6390 if (explain_p)
6391 inform (input_location,
6392 " types %qT and %qT have incompatible cv-qualifiers",
6393 parm, arg);
6394 return unify_invalid (explain_p);
6397 static int
6398 unify_type_mismatch (bool explain_p, tree parm, tree arg)
6400 if (explain_p)
6401 inform (input_location, " mismatched types %qT and %qT", parm, arg);
6402 return unify_invalid (explain_p);
6405 static int
6406 unify_parameter_pack_mismatch (bool explain_p, tree parm, tree arg)
6408 if (explain_p)
6409 inform (input_location,
6410 " template parameter %qD is not a parameter pack, but "
6411 "argument %qD is",
6412 parm, arg);
6413 return unify_invalid (explain_p);
6416 static int
6417 unify_ptrmem_cst_mismatch (bool explain_p, tree parm, tree arg)
6419 if (explain_p)
6420 inform (input_location,
6421 " template argument %qE does not match "
6422 "pointer-to-member constant %qE",
6423 arg, parm);
6424 return unify_invalid (explain_p);
6427 static int
6428 unify_expression_unequal (bool explain_p, tree parm, tree arg)
6430 if (explain_p)
6431 inform (input_location, " %qE is not equivalent to %qE", parm, arg);
6432 return unify_invalid (explain_p);
6435 static int
6436 unify_parameter_pack_inconsistent (bool explain_p, tree old_arg, tree new_arg)
6438 if (explain_p)
6439 inform (input_location,
6440 " inconsistent parameter pack deduction with %qT and %qT",
6441 old_arg, new_arg);
6442 return unify_invalid (explain_p);
6445 static int
6446 unify_inconsistency (bool explain_p, tree parm, tree first, tree second)
6448 if (explain_p)
6450 if (TYPE_P (parm))
6451 inform (input_location,
6452 " deduced conflicting types for parameter %qT (%qT and %qT)",
6453 parm, first, second);
6454 else
6455 inform (input_location,
6456 " deduced conflicting values for non-type parameter "
6457 "%qE (%qE and %qE)", parm, first, second);
6459 return unify_invalid (explain_p);
6462 static int
6463 unify_vla_arg (bool explain_p, tree arg)
6465 if (explain_p)
6466 inform (input_location,
6467 " variable-sized array type %qT is not "
6468 "a valid template argument",
6469 arg);
6470 return unify_invalid (explain_p);
6473 static int
6474 unify_method_type_error (bool explain_p, tree arg)
6476 if (explain_p)
6477 inform (input_location,
6478 " member function type %qT is not a valid template argument",
6479 arg);
6480 return unify_invalid (explain_p);
6483 static int
6484 unify_arity (bool explain_p, int have, int wanted, bool least_p = false)
6486 if (explain_p)
6488 if (least_p)
6489 inform_n (input_location, wanted,
6490 " candidate expects at least %d argument, %d provided",
6491 " candidate expects at least %d arguments, %d provided",
6492 wanted, have);
6493 else
6494 inform_n (input_location, wanted,
6495 " candidate expects %d argument, %d provided",
6496 " candidate expects %d arguments, %d provided",
6497 wanted, have);
6499 return unify_invalid (explain_p);
6502 static int
6503 unify_too_many_arguments (bool explain_p, int have, int wanted)
6505 return unify_arity (explain_p, have, wanted);
6508 static int
6509 unify_too_few_arguments (bool explain_p, int have, int wanted,
6510 bool least_p = false)
6512 return unify_arity (explain_p, have, wanted, least_p);
6515 static int
6516 unify_arg_conversion (bool explain_p, tree to_type,
6517 tree from_type, tree arg)
6519 if (explain_p)
6520 inform (EXPR_LOC_OR_LOC (arg, input_location),
6521 " cannot convert %qE (type %qT) to type %qT",
6522 arg, from_type, to_type);
6523 return unify_invalid (explain_p);
6526 static int
6527 unify_no_common_base (bool explain_p, enum template_base_result r,
6528 tree parm, tree arg)
6530 if (explain_p)
6531 switch (r)
6533 case tbr_ambiguous_baseclass:
6534 inform (input_location, " %qT is an ambiguous base class of %qT",
6535 parm, arg);
6536 break;
6537 default:
6538 inform (input_location, " %qT is not derived from %qT", arg, parm);
6539 break;
6541 return unify_invalid (explain_p);
6544 static int
6545 unify_inconsistent_template_template_parameters (bool explain_p)
6547 if (explain_p)
6548 inform (input_location,
6549 " template parameters of a template template argument are "
6550 "inconsistent with other deduced template arguments");
6551 return unify_invalid (explain_p);
6554 static int
6555 unify_template_deduction_failure (bool explain_p, tree parm, tree arg)
6557 if (explain_p)
6558 inform (input_location,
6559 " can't deduce a template for %qT from non-template type %qT",
6560 parm, arg);
6561 return unify_invalid (explain_p);
6564 static int
6565 unify_template_argument_mismatch (bool explain_p, tree parm, tree arg)
6567 if (explain_p)
6568 inform (input_location,
6569 " template argument %qE does not match %qE", arg, parm);
6570 return unify_invalid (explain_p);
6573 /* Attempt to convert the non-type template parameter EXPR to the
6574 indicated TYPE. If the conversion is successful, return the
6575 converted value. If the conversion is unsuccessful, return
6576 NULL_TREE if we issued an error message, or error_mark_node if we
6577 did not. We issue error messages for out-and-out bad template
6578 parameters, but not simply because the conversion failed, since we
6579 might be just trying to do argument deduction. Both TYPE and EXPR
6580 must be non-dependent.
6582 The conversion follows the special rules described in
6583 [temp.arg.nontype], and it is much more strict than an implicit
6584 conversion.
6586 This function is called twice for each template argument (see
6587 lookup_template_class for a more accurate description of this
6588 problem). This means that we need to handle expressions which
6589 are not valid in a C++ source, but can be created from the
6590 first call (for instance, casts to perform conversions). These
6591 hacks can go away after we fix the double coercion problem. */
6593 static tree
6594 convert_nontype_argument (tree type, tree expr, tsubst_flags_t complain)
6596 tree expr_type;
6597 location_t loc = EXPR_LOC_OR_LOC (expr, input_location);
6598 tree orig_expr = expr;
6600 /* Detect immediately string literals as invalid non-type argument.
6601 This special-case is not needed for correctness (we would easily
6602 catch this later), but only to provide better diagnostic for this
6603 common user mistake. As suggested by DR 100, we do not mention
6604 linkage issues in the diagnostic as this is not the point. */
6605 /* FIXME we're making this OK. */
6606 if (TREE_CODE (expr) == STRING_CST)
6608 if (complain & tf_error)
6609 error ("%qE is not a valid template argument for type %qT "
6610 "because string literals can never be used in this context",
6611 expr, type);
6612 return NULL_TREE;
6615 /* Add the ADDR_EXPR now for the benefit of
6616 value_dependent_expression_p. */
6617 if (TYPE_PTROBV_P (type)
6618 && TREE_CODE (TREE_TYPE (expr)) == ARRAY_TYPE)
6620 expr = decay_conversion (expr, complain);
6621 if (expr == error_mark_node)
6622 return error_mark_node;
6625 /* If we are in a template, EXPR may be non-dependent, but still
6626 have a syntactic, rather than semantic, form. For example, EXPR
6627 might be a SCOPE_REF, rather than the VAR_DECL to which the
6628 SCOPE_REF refers. Preserving the qualifying scope is necessary
6629 so that access checking can be performed when the template is
6630 instantiated -- but here we need the resolved form so that we can
6631 convert the argument. */
6632 bool non_dep = false;
6633 if (TYPE_REF_OBJ_P (type)
6634 && has_value_dependent_address (expr))
6635 /* If we want the address and it's value-dependent, don't fold. */;
6636 else if (processing_template_decl
6637 && is_nondependent_constant_expression (expr))
6638 non_dep = true;
6639 if (error_operand_p (expr))
6640 return error_mark_node;
6641 expr_type = TREE_TYPE (expr);
6643 /* If the argument is non-dependent, perform any conversions in
6644 non-dependent context as well. */
6645 processing_template_decl_sentinel s (non_dep);
6646 if (non_dep)
6647 expr = instantiate_non_dependent_expr_internal (expr, complain);
6649 if (value_dependent_expression_p (expr))
6650 expr = canonicalize_expr_argument (expr, complain);
6652 /* 14.3.2/5: The null pointer{,-to-member} conversion is applied
6653 to a non-type argument of "nullptr". */
6654 if (NULLPTR_TYPE_P (expr_type) && TYPE_PTR_OR_PTRMEM_P (type))
6655 expr = fold_simple (convert (type, expr));
6657 /* In C++11, integral or enumeration non-type template arguments can be
6658 arbitrary constant expressions. Pointer and pointer to
6659 member arguments can be general constant expressions that evaluate
6660 to a null value, but otherwise still need to be of a specific form. */
6661 if (cxx_dialect >= cxx11)
6663 if (TREE_CODE (expr) == PTRMEM_CST)
6664 /* A PTRMEM_CST is already constant, and a valid template
6665 argument for a parameter of pointer to member type, we just want
6666 to leave it in that form rather than lower it to a
6667 CONSTRUCTOR. */;
6668 else if (INTEGRAL_OR_ENUMERATION_TYPE_P (type)
6669 || cxx_dialect >= cxx17)
6671 /* C++17: A template-argument for a non-type template-parameter shall
6672 be a converted constant expression (8.20) of the type of the
6673 template-parameter. */
6674 expr = build_converted_constant_expr (type, expr, complain);
6675 if (expr == error_mark_node)
6676 return error_mark_node;
6677 expr = maybe_constant_value (expr);
6678 expr = convert_from_reference (expr);
6680 else if (TYPE_PTR_OR_PTRMEM_P (type))
6682 tree folded = maybe_constant_value (expr);
6683 if (TYPE_PTR_P (type) ? integer_zerop (folded)
6684 : null_member_pointer_value_p (folded))
6685 expr = folded;
6689 if (TREE_CODE (type) == REFERENCE_TYPE)
6690 expr = mark_lvalue_use (expr);
6691 else
6692 expr = mark_rvalue_use (expr);
6694 /* HACK: Due to double coercion, we can get a
6695 NOP_EXPR<REFERENCE_TYPE>(ADDR_EXPR<POINTER_TYPE> (arg)) here,
6696 which is the tree that we built on the first call (see
6697 below when coercing to reference to object or to reference to
6698 function). We just strip everything and get to the arg.
6699 See g++.old-deja/g++.oliva/template4.C and g++.dg/template/nontype9.C
6700 for examples. */
6701 if (TYPE_REF_OBJ_P (type) || TYPE_REFFN_P (type))
6703 tree probe_type, probe = expr;
6704 if (REFERENCE_REF_P (probe))
6705 probe = TREE_OPERAND (probe, 0);
6706 probe_type = TREE_TYPE (probe);
6707 if (TREE_CODE (probe) == NOP_EXPR)
6709 /* ??? Maybe we could use convert_from_reference here, but we
6710 would need to relax its constraints because the NOP_EXPR
6711 could actually change the type to something more cv-qualified,
6712 and this is not folded by convert_from_reference. */
6713 tree addr = TREE_OPERAND (probe, 0);
6714 if (TREE_CODE (probe_type) == REFERENCE_TYPE
6715 && TREE_CODE (addr) == ADDR_EXPR
6716 && TYPE_PTR_P (TREE_TYPE (addr))
6717 && (same_type_ignoring_top_level_qualifiers_p
6718 (TREE_TYPE (probe_type),
6719 TREE_TYPE (TREE_TYPE (addr)))))
6721 expr = TREE_OPERAND (addr, 0);
6722 expr_type = TREE_TYPE (probe_type);
6727 /* [temp.arg.nontype]/5, bullet 1
6729 For a non-type template-parameter of integral or enumeration type,
6730 integral promotions (_conv.prom_) and integral conversions
6731 (_conv.integral_) are applied. */
6732 if (INTEGRAL_OR_ENUMERATION_TYPE_P (type))
6734 if (cxx_dialect < cxx11)
6736 tree t = build_converted_constant_expr (type, expr, complain);
6737 t = maybe_constant_value (t);
6738 if (t != error_mark_node)
6739 expr = t;
6742 if (!same_type_ignoring_top_level_qualifiers_p (type, TREE_TYPE (expr)))
6743 return error_mark_node;
6745 /* Notice that there are constant expressions like '4 % 0' which
6746 do not fold into integer constants. */
6747 if (TREE_CODE (expr) != INTEGER_CST
6748 && !value_dependent_expression_p (expr))
6750 if (complain & tf_error)
6752 int errs = errorcount, warns = warningcount + werrorcount;
6753 if (!require_potential_constant_expression (expr))
6754 expr = error_mark_node;
6755 else
6756 expr = cxx_constant_value (expr);
6757 if (errorcount > errs || warningcount + werrorcount > warns)
6758 inform (loc, "in template argument for type %qT", type);
6759 if (expr == error_mark_node)
6760 return NULL_TREE;
6761 /* else cxx_constant_value complained but gave us
6762 a real constant, so go ahead. */
6763 if (TREE_CODE (expr) != INTEGER_CST)
6765 /* Some assemble time constant expressions like
6766 (intptr_t)&&lab1 - (intptr_t)&&lab2 or
6767 4 + (intptr_t)&&var satisfy reduced_constant_expression_p
6768 as we can emit them into .rodata initializers of
6769 variables, yet they can't fold into an INTEGER_CST at
6770 compile time. Refuse them here. */
6771 gcc_checking_assert (reduced_constant_expression_p (expr));
6772 error_at (loc, "template argument %qE for type %qT not "
6773 "a constant integer", expr, type);
6774 return NULL_TREE;
6777 else
6778 return NULL_TREE;
6781 /* Avoid typedef problems. */
6782 if (TREE_TYPE (expr) != type)
6783 expr = fold_convert (type, expr);
6785 /* [temp.arg.nontype]/5, bullet 2
6787 For a non-type template-parameter of type pointer to object,
6788 qualification conversions (_conv.qual_) and the array-to-pointer
6789 conversion (_conv.array_) are applied. */
6790 else if (TYPE_PTROBV_P (type))
6792 tree decayed = expr;
6794 /* Look through any NOP_EXPRs around an ADDR_EXPR, whether they come from
6795 decay_conversion or an explicit cast. If it's a problematic cast,
6796 we'll complain about it below. */
6797 if (TREE_CODE (expr) == NOP_EXPR)
6799 tree probe = expr;
6800 STRIP_NOPS (probe);
6801 if (TREE_CODE (probe) == ADDR_EXPR
6802 && TYPE_PTR_P (TREE_TYPE (probe)))
6804 expr = probe;
6805 expr_type = TREE_TYPE (expr);
6809 /* [temp.arg.nontype]/1 (TC1 version, DR 49):
6811 A template-argument for a non-type, non-template template-parameter
6812 shall be one of: [...]
6814 -- the name of a non-type template-parameter;
6815 -- the address of an object or function with external linkage, [...]
6816 expressed as "& id-expression" where the & is optional if the name
6817 refers to a function or array, or if the corresponding
6818 template-parameter is a reference.
6820 Here, we do not care about functions, as they are invalid anyway
6821 for a parameter of type pointer-to-object. */
6823 if (value_dependent_expression_p (expr))
6824 /* Non-type template parameters are OK. */
6826 else if (cxx_dialect >= cxx11 && integer_zerop (expr))
6827 /* Null pointer values are OK in C++11. */;
6828 else if (TREE_CODE (expr) != ADDR_EXPR)
6830 if (VAR_P (expr))
6832 if (complain & tf_error)
6833 error ("%qD is not a valid template argument "
6834 "because %qD is a variable, not the address of "
6835 "a variable", orig_expr, expr);
6836 return NULL_TREE;
6838 if (POINTER_TYPE_P (expr_type))
6840 if (complain & tf_error)
6841 error ("%qE is not a valid template argument for %qT "
6842 "because it is not the address of a variable",
6843 orig_expr, type);
6844 return NULL_TREE;
6846 /* Other values, like integer constants, might be valid
6847 non-type arguments of some other type. */
6848 return error_mark_node;
6850 else
6852 tree decl = TREE_OPERAND (expr, 0);
6854 if (!VAR_P (decl))
6856 if (complain & tf_error)
6857 error ("%qE is not a valid template argument of type %qT "
6858 "because %qE is not a variable", orig_expr, type, decl);
6859 return NULL_TREE;
6861 else if (cxx_dialect < cxx11 && !DECL_EXTERNAL_LINKAGE_P (decl))
6863 if (complain & tf_error)
6864 error ("%qE is not a valid template argument of type %qT "
6865 "because %qD does not have external linkage",
6866 orig_expr, type, decl);
6867 return NULL_TREE;
6869 else if ((cxx_dialect >= cxx11 && cxx_dialect < cxx17)
6870 && decl_linkage (decl) == lk_none)
6872 if (complain & tf_error)
6873 error ("%qE is not a valid template argument of type %qT "
6874 "because %qD has no linkage", orig_expr, type, decl);
6875 return NULL_TREE;
6877 /* C++17: For a non-type template-parameter of reference or pointer
6878 type, the value of the constant expression shall not refer to (or
6879 for a pointer type, shall not be the address of):
6880 * a subobject (4.5),
6881 * a temporary object (15.2),
6882 * a string literal (5.13.5),
6883 * the result of a typeid expression (8.2.8), or
6884 * a predefined __func__ variable (11.4.1). */
6885 else if (DECL_ARTIFICIAL (decl))
6887 if (complain & tf_error)
6888 error ("the address of %qD is not a valid template argument",
6889 decl);
6890 return NULL_TREE;
6892 else if (!same_type_ignoring_top_level_qualifiers_p
6893 (strip_array_types (TREE_TYPE (type)),
6894 strip_array_types (TREE_TYPE (decl))))
6896 if (complain & tf_error)
6897 error ("the address of the %qT subobject of %qD is not a "
6898 "valid template argument", TREE_TYPE (type), decl);
6899 return NULL_TREE;
6901 else if (!TREE_STATIC (decl) && !DECL_EXTERNAL (decl))
6903 if (complain & tf_error)
6904 error ("the address of %qD is not a valid template argument "
6905 "because it does not have static storage duration",
6906 decl);
6907 return NULL_TREE;
6911 expr = decayed;
6913 expr = perform_qualification_conversions (type, expr);
6914 if (expr == error_mark_node)
6915 return error_mark_node;
6917 /* [temp.arg.nontype]/5, bullet 3
6919 For a non-type template-parameter of type reference to object, no
6920 conversions apply. The type referred to by the reference may be more
6921 cv-qualified than the (otherwise identical) type of the
6922 template-argument. The template-parameter is bound directly to the
6923 template-argument, which must be an lvalue. */
6924 else if (TYPE_REF_OBJ_P (type))
6926 if (!same_type_ignoring_top_level_qualifiers_p (TREE_TYPE (type),
6927 expr_type))
6928 return error_mark_node;
6930 if (!at_least_as_qualified_p (TREE_TYPE (type), expr_type))
6932 if (complain & tf_error)
6933 error ("%qE is not a valid template argument for type %qT "
6934 "because of conflicts in cv-qualification", expr, type);
6935 return NULL_TREE;
6938 if (!lvalue_p (expr))
6940 if (complain & tf_error)
6941 error ("%qE is not a valid template argument for type %qT "
6942 "because it is not an lvalue", expr, type);
6943 return NULL_TREE;
6946 /* [temp.arg.nontype]/1
6948 A template-argument for a non-type, non-template template-parameter
6949 shall be one of: [...]
6951 -- the address of an object or function with external linkage. */
6952 if (INDIRECT_REF_P (expr)
6953 && TYPE_REF_OBJ_P (TREE_TYPE (TREE_OPERAND (expr, 0))))
6955 expr = TREE_OPERAND (expr, 0);
6956 if (DECL_P (expr))
6958 if (complain & tf_error)
6959 error ("%q#D is not a valid template argument for type %qT "
6960 "because a reference variable does not have a constant "
6961 "address", expr, type);
6962 return NULL_TREE;
6966 if (TYPE_REF_OBJ_P (TREE_TYPE (expr))
6967 && value_dependent_expression_p (expr))
6968 /* OK, dependent reference. We don't want to ask whether a DECL is
6969 itself value-dependent, since what we want here is its address. */;
6970 else
6972 if (!DECL_P (expr))
6974 if (complain & tf_error)
6975 error ("%qE is not a valid template argument for type %qT "
6976 "because it is not an object with linkage",
6977 expr, type);
6978 return NULL_TREE;
6981 /* DR 1155 allows internal linkage in C++11 and up. */
6982 linkage_kind linkage = decl_linkage (expr);
6983 if (linkage < (cxx_dialect >= cxx11 ? lk_internal : lk_external))
6985 if (complain & tf_error)
6986 error ("%qE is not a valid template argument for type %qT "
6987 "because object %qD does not have linkage",
6988 expr, type, expr);
6989 return NULL_TREE;
6992 expr = build_address (expr);
6995 if (!same_type_p (type, TREE_TYPE (expr)))
6996 expr = build_nop (type, expr);
6998 /* [temp.arg.nontype]/5, bullet 4
7000 For a non-type template-parameter of type pointer to function, only
7001 the function-to-pointer conversion (_conv.func_) is applied. If the
7002 template-argument represents a set of overloaded functions (or a
7003 pointer to such), the matching function is selected from the set
7004 (_over.over_). */
7005 else if (TYPE_PTRFN_P (type))
7007 /* If the argument is a template-id, we might not have enough
7008 context information to decay the pointer. */
7009 if (!type_unknown_p (expr_type))
7011 expr = decay_conversion (expr, complain);
7012 if (expr == error_mark_node)
7013 return error_mark_node;
7016 if (cxx_dialect >= cxx11 && integer_zerop (expr))
7017 /* Null pointer values are OK in C++11. */
7018 return perform_qualification_conversions (type, expr);
7020 expr = convert_nontype_argument_function (type, expr, complain);
7021 if (!expr || expr == error_mark_node)
7022 return expr;
7024 /* [temp.arg.nontype]/5, bullet 5
7026 For a non-type template-parameter of type reference to function, no
7027 conversions apply. If the template-argument represents a set of
7028 overloaded functions, the matching function is selected from the set
7029 (_over.over_). */
7030 else if (TYPE_REFFN_P (type))
7032 if (TREE_CODE (expr) == ADDR_EXPR)
7034 if (complain & tf_error)
7036 error ("%qE is not a valid template argument for type %qT "
7037 "because it is a pointer", expr, type);
7038 inform (input_location, "try using %qE instead",
7039 TREE_OPERAND (expr, 0));
7041 return NULL_TREE;
7044 expr = convert_nontype_argument_function (type, expr, complain);
7045 if (!expr || expr == error_mark_node)
7046 return expr;
7048 /* [temp.arg.nontype]/5, bullet 6
7050 For a non-type template-parameter of type pointer to member function,
7051 no conversions apply. If the template-argument represents a set of
7052 overloaded member functions, the matching member function is selected
7053 from the set (_over.over_). */
7054 else if (TYPE_PTRMEMFUNC_P (type))
7056 expr = instantiate_type (type, expr, tf_none);
7057 if (expr == error_mark_node)
7058 return error_mark_node;
7060 /* [temp.arg.nontype] bullet 1 says the pointer to member
7061 expression must be a pointer-to-member constant. */
7062 if (!value_dependent_expression_p (expr)
7063 && !check_valid_ptrmem_cst_expr (type, expr, complain))
7064 return NULL_TREE;
7066 /* Repeated conversion can't deal with a conversion that turns PTRMEM_CST
7067 into a CONSTRUCTOR, so build up a new PTRMEM_CST instead. */
7068 if (fnptr_conv_p (type, TREE_TYPE (expr)))
7069 expr = make_ptrmem_cst (type, PTRMEM_CST_MEMBER (expr));
7071 /* [temp.arg.nontype]/5, bullet 7
7073 For a non-type template-parameter of type pointer to data member,
7074 qualification conversions (_conv.qual_) are applied. */
7075 else if (TYPE_PTRDATAMEM_P (type))
7077 /* [temp.arg.nontype] bullet 1 says the pointer to member
7078 expression must be a pointer-to-member constant. */
7079 if (!value_dependent_expression_p (expr)
7080 && !check_valid_ptrmem_cst_expr (type, expr, complain))
7081 return NULL_TREE;
7083 expr = perform_qualification_conversions (type, expr);
7084 if (expr == error_mark_node)
7085 return expr;
7087 else if (NULLPTR_TYPE_P (type))
7089 if (!NULLPTR_TYPE_P (TREE_TYPE (expr)))
7091 if (complain & tf_error)
7092 error ("%qE is not a valid template argument for type %qT "
7093 "because it is of type %qT", expr, type, TREE_TYPE (expr));
7094 return NULL_TREE;
7096 return expr;
7098 /* A template non-type parameter must be one of the above. */
7099 else
7100 gcc_unreachable ();
7102 /* Sanity check: did we actually convert the argument to the
7103 right type? */
7104 gcc_assert (same_type_ignoring_top_level_qualifiers_p
7105 (type, TREE_TYPE (expr)));
7106 return convert_from_reference (expr);
7109 /* Subroutine of coerce_template_template_parms, which returns 1 if
7110 PARM_PARM and ARG_PARM match using the rule for the template
7111 parameters of template template parameters. Both PARM and ARG are
7112 template parameters; the rest of the arguments are the same as for
7113 coerce_template_template_parms.
7115 static int
7116 coerce_template_template_parm (tree parm,
7117 tree arg,
7118 tsubst_flags_t complain,
7119 tree in_decl,
7120 tree outer_args)
7122 if (arg == NULL_TREE || error_operand_p (arg)
7123 || parm == NULL_TREE || error_operand_p (parm))
7124 return 0;
7126 if (TREE_CODE (arg) != TREE_CODE (parm))
7127 return 0;
7129 switch (TREE_CODE (parm))
7131 case TEMPLATE_DECL:
7132 /* We encounter instantiations of templates like
7133 template <template <template <class> class> class TT>
7134 class C; */
7136 tree parmparm = DECL_INNERMOST_TEMPLATE_PARMS (parm);
7137 tree argparm = DECL_INNERMOST_TEMPLATE_PARMS (arg);
7139 if (!coerce_template_template_parms
7140 (parmparm, argparm, complain, in_decl, outer_args))
7141 return 0;
7143 /* Fall through. */
7145 case TYPE_DECL:
7146 if (TEMPLATE_TYPE_PARAMETER_PACK (TREE_TYPE (arg))
7147 && !TEMPLATE_TYPE_PARAMETER_PACK (TREE_TYPE (parm)))
7148 /* Argument is a parameter pack but parameter is not. */
7149 return 0;
7150 break;
7152 case PARM_DECL:
7153 /* The tsubst call is used to handle cases such as
7155 template <int> class C {};
7156 template <class T, template <T> class TT> class D {};
7157 D<int, C> d;
7159 i.e. the parameter list of TT depends on earlier parameters. */
7160 if (!uses_template_parms (TREE_TYPE (arg)))
7162 tree t = tsubst (TREE_TYPE (parm), outer_args, complain, in_decl);
7163 if (!uses_template_parms (t)
7164 && !same_type_p (t, TREE_TYPE (arg)))
7165 return 0;
7168 if (TEMPLATE_PARM_PARAMETER_PACK (DECL_INITIAL (arg))
7169 && !TEMPLATE_PARM_PARAMETER_PACK (DECL_INITIAL (parm)))
7170 /* Argument is a parameter pack but parameter is not. */
7171 return 0;
7173 break;
7175 default:
7176 gcc_unreachable ();
7179 return 1;
7182 /* Coerce template argument list ARGLIST for use with template
7183 template-parameter TEMPL. */
7185 static tree
7186 coerce_template_args_for_ttp (tree templ, tree arglist,
7187 tsubst_flags_t complain)
7189 /* Consider an example where a template template parameter declared as
7191 template <class T, class U = std::allocator<T> > class TT
7193 The template parameter level of T and U are one level larger than
7194 of TT. To proper process the default argument of U, say when an
7195 instantiation `TT<int>' is seen, we need to build the full
7196 arguments containing {int} as the innermost level. Outer levels,
7197 available when not appearing as default template argument, can be
7198 obtained from the arguments of the enclosing template.
7200 Suppose that TT is later substituted with std::vector. The above
7201 instantiation is `TT<int, std::allocator<T> >' with TT at
7202 level 1, and T at level 2, while the template arguments at level 1
7203 becomes {std::vector} and the inner level 2 is {int}. */
7205 tree outer = DECL_CONTEXT (templ);
7206 if (outer)
7208 if (DECL_TEMPLATE_SPECIALIZATION (outer))
7209 /* We want arguments for the partial specialization, not arguments for
7210 the primary template. */
7211 outer = template_parms_to_args (DECL_TEMPLATE_PARMS (outer));
7212 else
7213 outer = TI_ARGS (get_template_info (DECL_TEMPLATE_RESULT (outer)));
7215 else if (current_template_parms)
7217 /* This is an argument of the current template, so we haven't set
7218 DECL_CONTEXT yet. */
7219 tree relevant_template_parms;
7221 /* Parameter levels that are greater than the level of the given
7222 template template parm are irrelevant. */
7223 relevant_template_parms = current_template_parms;
7224 while (TMPL_PARMS_DEPTH (relevant_template_parms)
7225 != TEMPLATE_TYPE_LEVEL (TREE_TYPE (templ)))
7226 relevant_template_parms = TREE_CHAIN (relevant_template_parms);
7228 outer = template_parms_to_args (relevant_template_parms);
7231 if (outer)
7232 arglist = add_to_template_args (outer, arglist);
7234 tree parmlist = DECL_INNERMOST_TEMPLATE_PARMS (templ);
7235 return coerce_template_parms (parmlist, arglist, templ,
7236 complain,
7237 /*require_all_args=*/true,
7238 /*use_default_args=*/true);
7241 /* A cache of template template parameters with match-all default
7242 arguments. */
7243 static GTY((deletable)) hash_map<tree,tree> *defaulted_ttp_cache;
7244 static void
7245 store_defaulted_ttp (tree v, tree t)
7247 if (!defaulted_ttp_cache)
7248 defaulted_ttp_cache = hash_map<tree,tree>::create_ggc (13);
7249 defaulted_ttp_cache->put (v, t);
7251 static tree
7252 lookup_defaulted_ttp (tree v)
7254 if (defaulted_ttp_cache)
7255 if (tree *p = defaulted_ttp_cache->get (v))
7256 return *p;
7257 return NULL_TREE;
7260 /* T is a bound template template-parameter. Copy its arguments into default
7261 arguments of the template template-parameter's template parameters. */
7263 static tree
7264 add_defaults_to_ttp (tree otmpl)
7266 if (tree c = lookup_defaulted_ttp (otmpl))
7267 return c;
7269 tree ntmpl = copy_node (otmpl);
7271 tree ntype = copy_node (TREE_TYPE (otmpl));
7272 TYPE_STUB_DECL (ntype) = TYPE_NAME (ntype) = ntmpl;
7273 TYPE_MAIN_VARIANT (ntype) = ntype;
7274 TYPE_POINTER_TO (ntype) = TYPE_REFERENCE_TO (ntype) = NULL_TREE;
7275 TYPE_NAME (ntype) = ntmpl;
7276 SET_TYPE_STRUCTURAL_EQUALITY (ntype);
7278 tree idx = TEMPLATE_TYPE_PARM_INDEX (ntype)
7279 = copy_node (TEMPLATE_TYPE_PARM_INDEX (ntype));
7280 TEMPLATE_PARM_DECL (idx) = ntmpl;
7281 TREE_TYPE (ntmpl) = TREE_TYPE (idx) = ntype;
7283 tree oparms = DECL_TEMPLATE_PARMS (otmpl);
7284 tree parms = DECL_TEMPLATE_PARMS (ntmpl) = copy_node (oparms);
7285 TREE_CHAIN (parms) = TREE_CHAIN (oparms);
7286 tree vec = TREE_VALUE (parms) = copy_node (TREE_VALUE (parms));
7287 for (int i = 0; i < TREE_VEC_LENGTH (vec); ++i)
7289 tree o = TREE_VEC_ELT (vec, i);
7290 if (!template_parameter_pack_p (TREE_VALUE (o)))
7292 tree n = TREE_VEC_ELT (vec, i) = copy_node (o);
7293 TREE_PURPOSE (n) = any_targ_node;
7297 store_defaulted_ttp (otmpl, ntmpl);
7298 return ntmpl;
7301 /* ARG is a bound potential template template-argument, and PARGS is a list
7302 of arguments for the corresponding template template-parameter. Adjust
7303 PARGS as appropriate for application to ARG's template, and if ARG is a
7304 BOUND_TEMPLATE_TEMPLATE_PARM, possibly adjust it to add default template
7305 arguments to the template template parameter. */
7307 static tree
7308 coerce_ttp_args_for_tta (tree& arg, tree pargs, tsubst_flags_t complain)
7310 ++processing_template_decl;
7311 tree arg_tmpl = TYPE_TI_TEMPLATE (arg);
7312 if (DECL_TEMPLATE_TEMPLATE_PARM_P (arg_tmpl))
7314 /* When comparing two template template-parameters in partial ordering,
7315 rewrite the one currently being used as an argument to have default
7316 arguments for all parameters. */
7317 arg_tmpl = add_defaults_to_ttp (arg_tmpl);
7318 pargs = coerce_template_args_for_ttp (arg_tmpl, pargs, complain);
7319 if (pargs != error_mark_node)
7320 arg = bind_template_template_parm (TREE_TYPE (arg_tmpl),
7321 TYPE_TI_ARGS (arg));
7323 else
7325 tree aparms
7326 = INNERMOST_TEMPLATE_PARMS (DECL_TEMPLATE_PARMS (arg_tmpl));
7327 pargs = coerce_template_parms (aparms, pargs, arg_tmpl, complain,
7328 /*require_all*/true,
7329 /*use_default*/true);
7331 --processing_template_decl;
7332 return pargs;
7335 /* Subroutine of unify for the case when PARM is a
7336 BOUND_TEMPLATE_TEMPLATE_PARM. */
7338 static int
7339 unify_bound_ttp_args (tree tparms, tree targs, tree parm, tree& arg,
7340 bool explain_p)
7342 tree parmvec = TYPE_TI_ARGS (parm);
7343 tree argvec = INNERMOST_TEMPLATE_ARGS (TYPE_TI_ARGS (arg));
7345 /* The template template parm might be variadic and the argument
7346 not, so flatten both argument lists. */
7347 parmvec = expand_template_argument_pack (parmvec);
7348 argvec = expand_template_argument_pack (argvec);
7350 if (flag_new_ttp)
7352 /* In keeping with P0522R0, adjust P's template arguments
7353 to apply to A's template; then flatten it again. */
7354 tree nparmvec = parmvec;
7355 nparmvec = coerce_ttp_args_for_tta (arg, parmvec, tf_none);
7356 nparmvec = expand_template_argument_pack (nparmvec);
7358 if (unify (tparms, targs, nparmvec, argvec,
7359 UNIFY_ALLOW_NONE, explain_p))
7360 return 1;
7362 /* If the P0522 adjustment eliminated a pack expansion, deduce
7363 empty packs. */
7364 if (flag_new_ttp
7365 && TREE_VEC_LENGTH (nparmvec) < TREE_VEC_LENGTH (parmvec)
7366 && unify_pack_expansion (tparms, targs, parmvec, argvec,
7367 DEDUCE_EXACT, /*sub*/true, explain_p))
7368 return 1;
7370 else
7372 /* Deduce arguments T, i from TT<T> or TT<i>.
7373 We check each element of PARMVEC and ARGVEC individually
7374 rather than the whole TREE_VEC since they can have
7375 different number of elements, which is allowed under N2555. */
7377 int len = TREE_VEC_LENGTH (parmvec);
7379 /* Check if the parameters end in a pack, making them
7380 variadic. */
7381 int parm_variadic_p = 0;
7382 if (len > 0
7383 && PACK_EXPANSION_P (TREE_VEC_ELT (parmvec, len - 1)))
7384 parm_variadic_p = 1;
7386 for (int i = 0; i < len - parm_variadic_p; ++i)
7387 /* If the template argument list of P contains a pack
7388 expansion that is not the last template argument, the
7389 entire template argument list is a non-deduced
7390 context. */
7391 if (PACK_EXPANSION_P (TREE_VEC_ELT (parmvec, i)))
7392 return unify_success (explain_p);
7394 if (TREE_VEC_LENGTH (argvec) < len - parm_variadic_p)
7395 return unify_too_few_arguments (explain_p,
7396 TREE_VEC_LENGTH (argvec), len);
7398 for (int i = 0; i < len - parm_variadic_p; ++i)
7399 if (unify (tparms, targs,
7400 TREE_VEC_ELT (parmvec, i),
7401 TREE_VEC_ELT (argvec, i),
7402 UNIFY_ALLOW_NONE, explain_p))
7403 return 1;
7405 if (parm_variadic_p
7406 && unify_pack_expansion (tparms, targs,
7407 parmvec, argvec,
7408 DEDUCE_EXACT,
7409 /*subr=*/true, explain_p))
7410 return 1;
7413 return 0;
7416 /* Return 1 if PARM_PARMS and ARG_PARMS matches using rule for
7417 template template parameters. Both PARM_PARMS and ARG_PARMS are
7418 vectors of TREE_LIST nodes containing TYPE_DECL, TEMPLATE_DECL
7419 or PARM_DECL.
7421 Consider the example:
7422 template <class T> class A;
7423 template<template <class U> class TT> class B;
7425 For B<A>, PARM_PARMS are the parameters to TT, while ARG_PARMS are
7426 the parameters to A, and OUTER_ARGS contains A. */
7428 static int
7429 coerce_template_template_parms (tree parm_parms,
7430 tree arg_parms,
7431 tsubst_flags_t complain,
7432 tree in_decl,
7433 tree outer_args)
7435 int nparms, nargs, i;
7436 tree parm, arg;
7437 int variadic_p = 0;
7439 gcc_assert (TREE_CODE (parm_parms) == TREE_VEC);
7440 gcc_assert (TREE_CODE (arg_parms) == TREE_VEC);
7442 nparms = TREE_VEC_LENGTH (parm_parms);
7443 nargs = TREE_VEC_LENGTH (arg_parms);
7445 if (flag_new_ttp)
7447 /* P0522R0: A template template-parameter P is at least as specialized as
7448 a template template-argument A if, given the following rewrite to two
7449 function templates, the function template corresponding to P is at
7450 least as specialized as the function template corresponding to A
7451 according to the partial ordering rules for function templates
7452 ([temp.func.order]). Given an invented class template X with the
7453 template parameter list of A (including default arguments):
7455 * Each of the two function templates has the same template parameters,
7456 respectively, as P or A.
7458 * Each function template has a single function parameter whose type is
7459 a specialization of X with template arguments corresponding to the
7460 template parameters from the respective function template where, for
7461 each template parameter PP in the template parameter list of the
7462 function template, a corresponding template argument AA is formed. If
7463 PP declares a parameter pack, then AA is the pack expansion
7464 PP... ([temp.variadic]); otherwise, AA is the id-expression PP.
7466 If the rewrite produces an invalid type, then P is not at least as
7467 specialized as A. */
7469 /* So coerce P's args to apply to A's parms, and then deduce between A's
7470 args and the converted args. If that succeeds, A is at least as
7471 specialized as P, so they match.*/
7472 tree pargs = template_parms_level_to_args (parm_parms);
7473 ++processing_template_decl;
7474 pargs = coerce_template_parms (arg_parms, pargs, NULL_TREE, tf_none,
7475 /*require_all*/true, /*use_default*/true);
7476 --processing_template_decl;
7477 if (pargs != error_mark_node)
7479 tree targs = make_tree_vec (nargs);
7480 tree aargs = template_parms_level_to_args (arg_parms);
7481 if (!unify (arg_parms, targs, aargs, pargs, UNIFY_ALLOW_NONE,
7482 /*explain*/false))
7483 return 1;
7487 /* Determine whether we have a parameter pack at the end of the
7488 template template parameter's template parameter list. */
7489 if (TREE_VEC_ELT (parm_parms, nparms - 1) != error_mark_node)
7491 parm = TREE_VALUE (TREE_VEC_ELT (parm_parms, nparms - 1));
7493 if (error_operand_p (parm))
7494 return 0;
7496 switch (TREE_CODE (parm))
7498 case TEMPLATE_DECL:
7499 case TYPE_DECL:
7500 if (TEMPLATE_TYPE_PARAMETER_PACK (TREE_TYPE (parm)))
7501 variadic_p = 1;
7502 break;
7504 case PARM_DECL:
7505 if (TEMPLATE_PARM_PARAMETER_PACK (DECL_INITIAL (parm)))
7506 variadic_p = 1;
7507 break;
7509 default:
7510 gcc_unreachable ();
7514 if (nargs != nparms
7515 && !(variadic_p && nargs >= nparms - 1))
7516 return 0;
7518 /* Check all of the template parameters except the parameter pack at
7519 the end (if any). */
7520 for (i = 0; i < nparms - variadic_p; ++i)
7522 if (TREE_VEC_ELT (parm_parms, i) == error_mark_node
7523 || TREE_VEC_ELT (arg_parms, i) == error_mark_node)
7524 continue;
7526 parm = TREE_VALUE (TREE_VEC_ELT (parm_parms, i));
7527 arg = TREE_VALUE (TREE_VEC_ELT (arg_parms, i));
7529 if (!coerce_template_template_parm (parm, arg, complain, in_decl,
7530 outer_args))
7531 return 0;
7535 if (variadic_p)
7537 /* Check each of the template parameters in the template
7538 argument against the template parameter pack at the end of
7539 the template template parameter. */
7540 if (TREE_VEC_ELT (parm_parms, i) == error_mark_node)
7541 return 0;
7543 parm = TREE_VALUE (TREE_VEC_ELT (parm_parms, i));
7545 for (; i < nargs; ++i)
7547 if (TREE_VEC_ELT (arg_parms, i) == error_mark_node)
7548 continue;
7550 arg = TREE_VALUE (TREE_VEC_ELT (arg_parms, i));
7552 if (!coerce_template_template_parm (parm, arg, complain, in_decl,
7553 outer_args))
7554 return 0;
7558 return 1;
7561 /* Verifies that the deduced template arguments (in TARGS) for the
7562 template template parameters (in TPARMS) represent valid bindings,
7563 by comparing the template parameter list of each template argument
7564 to the template parameter list of its corresponding template
7565 template parameter, in accordance with DR150. This
7566 routine can only be called after all template arguments have been
7567 deduced. It will return TRUE if all of the template template
7568 parameter bindings are okay, FALSE otherwise. */
7569 bool
7570 template_template_parm_bindings_ok_p (tree tparms, tree targs)
7572 int i, ntparms = TREE_VEC_LENGTH (tparms);
7573 bool ret = true;
7575 /* We're dealing with template parms in this process. */
7576 ++processing_template_decl;
7578 targs = INNERMOST_TEMPLATE_ARGS (targs);
7580 for (i = 0; i < ntparms; ++i)
7582 tree tparm = TREE_VALUE (TREE_VEC_ELT (tparms, i));
7583 tree targ = TREE_VEC_ELT (targs, i);
7585 if (TREE_CODE (tparm) == TEMPLATE_DECL && targ)
7587 tree packed_args = NULL_TREE;
7588 int idx, len = 1;
7590 if (ARGUMENT_PACK_P (targ))
7592 /* Look inside the argument pack. */
7593 packed_args = ARGUMENT_PACK_ARGS (targ);
7594 len = TREE_VEC_LENGTH (packed_args);
7597 for (idx = 0; idx < len; ++idx)
7599 tree targ_parms = NULL_TREE;
7601 if (packed_args)
7602 /* Extract the next argument from the argument
7603 pack. */
7604 targ = TREE_VEC_ELT (packed_args, idx);
7606 if (PACK_EXPANSION_P (targ))
7607 /* Look at the pattern of the pack expansion. */
7608 targ = PACK_EXPANSION_PATTERN (targ);
7610 /* Extract the template parameters from the template
7611 argument. */
7612 if (TREE_CODE (targ) == TEMPLATE_DECL)
7613 targ_parms = DECL_INNERMOST_TEMPLATE_PARMS (targ);
7614 else if (TREE_CODE (targ) == TEMPLATE_TEMPLATE_PARM)
7615 targ_parms = DECL_INNERMOST_TEMPLATE_PARMS (TYPE_NAME (targ));
7617 /* Verify that we can coerce the template template
7618 parameters from the template argument to the template
7619 parameter. This requires an exact match. */
7620 if (targ_parms
7621 && !coerce_template_template_parms
7622 (DECL_INNERMOST_TEMPLATE_PARMS (tparm),
7623 targ_parms,
7624 tf_none,
7625 tparm,
7626 targs))
7628 ret = false;
7629 goto out;
7635 out:
7637 --processing_template_decl;
7638 return ret;
7641 /* Since type attributes aren't mangled, we need to strip them from
7642 template type arguments. */
7644 static tree
7645 canonicalize_type_argument (tree arg, tsubst_flags_t complain)
7647 if (!arg || arg == error_mark_node || arg == TYPE_CANONICAL (arg))
7648 return arg;
7649 bool removed_attributes = false;
7650 tree canon = strip_typedefs (arg, &removed_attributes);
7651 if (removed_attributes
7652 && (complain & tf_warning))
7653 warning (OPT_Wignored_attributes,
7654 "ignoring attributes on template argument %qT", arg);
7655 return canon;
7658 /* And from inside dependent non-type arguments like sizeof(Type). */
7660 static tree
7661 canonicalize_expr_argument (tree arg, tsubst_flags_t complain)
7663 if (!arg || arg == error_mark_node)
7664 return arg;
7665 bool removed_attributes = false;
7666 tree canon = strip_typedefs_expr (arg, &removed_attributes);
7667 if (removed_attributes
7668 && (complain & tf_warning))
7669 warning (OPT_Wignored_attributes,
7670 "ignoring attributes in template argument %qE", arg);
7671 return canon;
7674 // A template declaration can be substituted for a constrained
7675 // template template parameter only when the argument is more
7676 // constrained than the parameter.
7677 static bool
7678 is_compatible_template_arg (tree parm, tree arg)
7680 tree parm_cons = get_constraints (parm);
7682 /* For now, allow constrained template template arguments
7683 and unconstrained template template parameters. */
7684 if (parm_cons == NULL_TREE)
7685 return true;
7687 tree arg_cons = get_constraints (arg);
7689 // If the template parameter is constrained, we need to rewrite its
7690 // constraints in terms of the ARG's template parameters. This ensures
7691 // that all of the template parameter types will have the same depth.
7693 // Note that this is only valid when coerce_template_template_parm is
7694 // true for the innermost template parameters of PARM and ARG. In other
7695 // words, because coercion is successful, this conversion will be valid.
7696 if (parm_cons)
7698 tree args = template_parms_to_args (DECL_TEMPLATE_PARMS (arg));
7699 parm_cons = tsubst_constraint_info (parm_cons,
7700 INNERMOST_TEMPLATE_ARGS (args),
7701 tf_none, NULL_TREE);
7702 if (parm_cons == error_mark_node)
7703 return false;
7706 return subsumes (parm_cons, arg_cons);
7709 // Convert a placeholder argument into a binding to the original
7710 // parameter. The original parameter is saved as the TREE_TYPE of
7711 // ARG.
7712 static inline tree
7713 convert_wildcard_argument (tree parm, tree arg)
7715 TREE_TYPE (arg) = parm;
7716 return arg;
7719 /* We can't fully resolve ARG given as a non-type template argument to TYPE,
7720 because one of them is dependent. But we need to represent the
7721 conversion for the benefit of cp_tree_equal. */
7723 static tree
7724 maybe_convert_nontype_argument (tree type, tree arg)
7726 /* Auto parms get no conversion. */
7727 if (type_uses_auto (type))
7728 return arg;
7729 /* We don't need or want to add this conversion now if we're going to use the
7730 argument for deduction. */
7731 if (value_dependent_expression_p (arg))
7732 return arg;
7734 type = cv_unqualified (type);
7735 tree argtype = TREE_TYPE (arg);
7736 if (same_type_p (type, argtype))
7737 return arg;
7739 arg = build1 (IMPLICIT_CONV_EXPR, type, arg);
7740 IMPLICIT_CONV_EXPR_NONTYPE_ARG (arg) = true;
7741 return arg;
7744 /* Convert the indicated template ARG as necessary to match the
7745 indicated template PARM. Returns the converted ARG, or
7746 error_mark_node if the conversion was unsuccessful. Error and
7747 warning messages are issued under control of COMPLAIN. This
7748 conversion is for the Ith parameter in the parameter list. ARGS is
7749 the full set of template arguments deduced so far. */
7751 static tree
7752 convert_template_argument (tree parm,
7753 tree arg,
7754 tree args,
7755 tsubst_flags_t complain,
7756 int i,
7757 tree in_decl)
7759 tree orig_arg;
7760 tree val;
7761 int is_type, requires_type, is_tmpl_type, requires_tmpl_type;
7763 if (parm == error_mark_node)
7764 return error_mark_node;
7766 /* Trivially convert placeholders. */
7767 if (TREE_CODE (arg) == WILDCARD_DECL)
7768 return convert_wildcard_argument (parm, arg);
7770 if (arg == any_targ_node)
7771 return arg;
7773 if (TREE_CODE (arg) == TREE_LIST
7774 && TREE_CODE (TREE_VALUE (arg)) == OFFSET_REF)
7776 /* The template argument was the name of some
7777 member function. That's usually
7778 invalid, but static members are OK. In any
7779 case, grab the underlying fields/functions
7780 and issue an error later if required. */
7781 orig_arg = TREE_VALUE (arg);
7782 TREE_TYPE (arg) = unknown_type_node;
7785 orig_arg = arg;
7787 requires_tmpl_type = TREE_CODE (parm) == TEMPLATE_DECL;
7788 requires_type = (TREE_CODE (parm) == TYPE_DECL
7789 || requires_tmpl_type);
7791 /* When determining whether an argument pack expansion is a template,
7792 look at the pattern. */
7793 if (TREE_CODE (arg) == TYPE_PACK_EXPANSION)
7794 arg = PACK_EXPANSION_PATTERN (arg);
7796 /* Deal with an injected-class-name used as a template template arg. */
7797 if (requires_tmpl_type && CLASS_TYPE_P (arg))
7799 tree t = maybe_get_template_decl_from_type_decl (TYPE_NAME (arg));
7800 if (TREE_CODE (t) == TEMPLATE_DECL)
7802 if (cxx_dialect >= cxx11)
7803 /* OK under DR 1004. */;
7804 else if (complain & tf_warning_or_error)
7805 pedwarn (input_location, OPT_Wpedantic, "injected-class-name %qD"
7806 " used as template template argument", TYPE_NAME (arg));
7807 else if (flag_pedantic_errors)
7808 t = arg;
7810 arg = t;
7814 is_tmpl_type =
7815 ((TREE_CODE (arg) == TEMPLATE_DECL
7816 && TREE_CODE (DECL_TEMPLATE_RESULT (arg)) == TYPE_DECL)
7817 || (requires_tmpl_type && TREE_CODE (arg) == TYPE_ARGUMENT_PACK)
7818 || TREE_CODE (arg) == TEMPLATE_TEMPLATE_PARM
7819 || TREE_CODE (arg) == UNBOUND_CLASS_TEMPLATE);
7821 if (is_tmpl_type
7822 && (TREE_CODE (arg) == TEMPLATE_TEMPLATE_PARM
7823 || TREE_CODE (arg) == UNBOUND_CLASS_TEMPLATE))
7824 arg = TYPE_STUB_DECL (arg);
7826 is_type = TYPE_P (arg) || is_tmpl_type;
7828 if (requires_type && ! is_type && TREE_CODE (arg) == SCOPE_REF
7829 && TREE_CODE (TREE_OPERAND (arg, 0)) == TEMPLATE_TYPE_PARM)
7831 if (TREE_CODE (TREE_OPERAND (arg, 1)) == BIT_NOT_EXPR)
7833 if (complain & tf_error)
7834 error ("invalid use of destructor %qE as a type", orig_arg);
7835 return error_mark_node;
7838 permerror (input_location,
7839 "to refer to a type member of a template parameter, "
7840 "use %<typename %E%>", orig_arg);
7842 orig_arg = make_typename_type (TREE_OPERAND (arg, 0),
7843 TREE_OPERAND (arg, 1),
7844 typename_type,
7845 complain);
7846 arg = orig_arg;
7847 is_type = 1;
7849 if (is_type != requires_type)
7851 if (in_decl)
7853 if (complain & tf_error)
7855 error ("type/value mismatch at argument %d in template "
7856 "parameter list for %qD",
7857 i + 1, in_decl);
7858 if (is_type)
7859 inform (input_location,
7860 " expected a constant of type %qT, got %qT",
7861 TREE_TYPE (parm),
7862 (DECL_P (arg) ? DECL_NAME (arg) : orig_arg));
7863 else if (requires_tmpl_type)
7864 inform (input_location,
7865 " expected a class template, got %qE", orig_arg);
7866 else
7867 inform (input_location,
7868 " expected a type, got %qE", orig_arg);
7871 return error_mark_node;
7873 if (is_tmpl_type ^ requires_tmpl_type)
7875 if (in_decl && (complain & tf_error))
7877 error ("type/value mismatch at argument %d in template "
7878 "parameter list for %qD",
7879 i + 1, in_decl);
7880 if (is_tmpl_type)
7881 inform (input_location,
7882 " expected a type, got %qT", DECL_NAME (arg));
7883 else
7884 inform (input_location,
7885 " expected a class template, got %qT", orig_arg);
7887 return error_mark_node;
7890 if (template_parameter_pack_p (parm) && ARGUMENT_PACK_P (orig_arg))
7891 /* We already did the appropriate conversion when packing args. */
7892 val = orig_arg;
7893 else if (is_type)
7895 if (requires_tmpl_type)
7897 if (TREE_CODE (TREE_TYPE (arg)) == UNBOUND_CLASS_TEMPLATE)
7898 /* The number of argument required is not known yet.
7899 Just accept it for now. */
7900 val = orig_arg;
7901 else
7903 tree parmparm = DECL_INNERMOST_TEMPLATE_PARMS (parm);
7904 tree argparm;
7906 /* Strip alias templates that are equivalent to another
7907 template. */
7908 arg = get_underlying_template (arg);
7909 argparm = DECL_INNERMOST_TEMPLATE_PARMS (arg);
7911 if (coerce_template_template_parms (parmparm, argparm,
7912 complain, in_decl,
7913 args))
7915 val = arg;
7917 /* TEMPLATE_TEMPLATE_PARM node is preferred over
7918 TEMPLATE_DECL. */
7919 if (val != error_mark_node)
7921 if (DECL_TEMPLATE_TEMPLATE_PARM_P (val))
7922 val = TREE_TYPE (val);
7923 if (TREE_CODE (orig_arg) == TYPE_PACK_EXPANSION)
7924 val = make_pack_expansion (val, complain);
7927 else
7929 if (in_decl && (complain & tf_error))
7931 error ("type/value mismatch at argument %d in "
7932 "template parameter list for %qD",
7933 i + 1, in_decl);
7934 inform (input_location,
7935 " expected a template of type %qD, got %qT",
7936 parm, orig_arg);
7939 val = error_mark_node;
7942 // Check that the constraints are compatible before allowing the
7943 // substitution.
7944 if (val != error_mark_node)
7945 if (!is_compatible_template_arg (parm, arg))
7947 if (in_decl && (complain & tf_error))
7949 error ("constraint mismatch at argument %d in "
7950 "template parameter list for %qD",
7951 i + 1, in_decl);
7952 inform (input_location, " expected %qD but got %qD",
7953 parm, arg);
7955 val = error_mark_node;
7959 else
7960 val = orig_arg;
7961 /* We only form one instance of each template specialization.
7962 Therefore, if we use a non-canonical variant (i.e., a
7963 typedef), any future messages referring to the type will use
7964 the typedef, which is confusing if those future uses do not
7965 themselves also use the typedef. */
7966 if (TYPE_P (val))
7967 val = canonicalize_type_argument (val, complain);
7969 else
7971 tree t = TREE_TYPE (parm);
7973 if (TEMPLATE_PARM_LEVEL (get_template_parm_index (parm))
7974 > TMPL_ARGS_DEPTH (args))
7975 /* We don't have enough levels of args to do any substitution. This
7976 can happen in the context of -fnew-ttp-matching. */;
7977 else if (tree a = type_uses_auto (t))
7979 t = do_auto_deduction (t, arg, a, complain, adc_unify, args);
7980 if (t == error_mark_node)
7981 return error_mark_node;
7983 else
7984 t = tsubst (t, args, complain, in_decl);
7986 if (invalid_nontype_parm_type_p (t, complain))
7987 return error_mark_node;
7989 if (!type_dependent_expression_p (orig_arg)
7990 && !uses_template_parms (t))
7991 /* We used to call digest_init here. However, digest_init
7992 will report errors, which we don't want when complain
7993 is zero. More importantly, digest_init will try too
7994 hard to convert things: for example, `0' should not be
7995 converted to pointer type at this point according to
7996 the standard. Accepting this is not merely an
7997 extension, since deciding whether or not these
7998 conversions can occur is part of determining which
7999 function template to call, or whether a given explicit
8000 argument specification is valid. */
8001 val = convert_nontype_argument (t, orig_arg, complain);
8002 else
8004 val = canonicalize_expr_argument (orig_arg, complain);
8005 val = maybe_convert_nontype_argument (t, val);
8009 if (val == NULL_TREE)
8010 val = error_mark_node;
8011 else if (val == error_mark_node && (complain & tf_error))
8012 error ("could not convert template argument %qE from %qT to %qT",
8013 orig_arg, TREE_TYPE (orig_arg), t);
8015 if (INDIRECT_REF_P (val))
8017 /* Reject template arguments that are references to built-in
8018 functions with no library fallbacks. */
8019 const_tree inner = TREE_OPERAND (val, 0);
8020 const_tree innertype = TREE_TYPE (inner);
8021 if (innertype
8022 && TREE_CODE (innertype) == REFERENCE_TYPE
8023 && TREE_CODE (TREE_TYPE (innertype)) == FUNCTION_TYPE
8024 && TREE_OPERAND_LENGTH (inner) > 0
8025 && reject_gcc_builtin (TREE_OPERAND (inner, 0)))
8026 return error_mark_node;
8029 if (TREE_CODE (val) == SCOPE_REF)
8031 /* Strip typedefs from the SCOPE_REF. */
8032 tree type = canonicalize_type_argument (TREE_TYPE (val), complain);
8033 tree scope = canonicalize_type_argument (TREE_OPERAND (val, 0),
8034 complain);
8035 val = build_qualified_name (type, scope, TREE_OPERAND (val, 1),
8036 QUALIFIED_NAME_IS_TEMPLATE (val));
8040 return val;
8043 /* Coerces the remaining template arguments in INNER_ARGS (from
8044 ARG_IDX to the end) into the parameter pack at PARM_IDX in PARMS.
8045 Returns the coerced argument pack. PARM_IDX is the position of this
8046 parameter in the template parameter list. ARGS is the original
8047 template argument list. */
8048 static tree
8049 coerce_template_parameter_pack (tree parms,
8050 int parm_idx,
8051 tree args,
8052 tree inner_args,
8053 int arg_idx,
8054 tree new_args,
8055 int* lost,
8056 tree in_decl,
8057 tsubst_flags_t complain)
8059 tree parm = TREE_VEC_ELT (parms, parm_idx);
8060 int nargs = inner_args ? NUM_TMPL_ARGS (inner_args) : 0;
8061 tree packed_args;
8062 tree argument_pack;
8063 tree packed_parms = NULL_TREE;
8065 if (arg_idx > nargs)
8066 arg_idx = nargs;
8068 if (tree packs = fixed_parameter_pack_p (TREE_VALUE (parm)))
8070 /* When the template parameter is a non-type template parameter pack
8071 or template template parameter pack whose type or template
8072 parameters use parameter packs, we know exactly how many arguments
8073 we are looking for. Build a vector of the instantiated decls for
8074 these template parameters in PACKED_PARMS. */
8075 /* We can't use make_pack_expansion here because it would interpret a
8076 _DECL as a use rather than a declaration. */
8077 tree decl = TREE_VALUE (parm);
8078 tree exp = cxx_make_type (TYPE_PACK_EXPANSION);
8079 SET_PACK_EXPANSION_PATTERN (exp, decl);
8080 PACK_EXPANSION_PARAMETER_PACKS (exp) = packs;
8081 SET_TYPE_STRUCTURAL_EQUALITY (exp);
8083 TREE_VEC_LENGTH (args)--;
8084 packed_parms = tsubst_pack_expansion (exp, args, complain, decl);
8085 TREE_VEC_LENGTH (args)++;
8087 if (packed_parms == error_mark_node)
8088 return error_mark_node;
8090 /* If we're doing a partial instantiation of a member template,
8091 verify that all of the types used for the non-type
8092 template parameter pack are, in fact, valid for non-type
8093 template parameters. */
8094 if (arg_idx < nargs
8095 && PACK_EXPANSION_P (TREE_VEC_ELT (inner_args, arg_idx)))
8097 int j, len = TREE_VEC_LENGTH (packed_parms);
8098 for (j = 0; j < len; ++j)
8100 tree t = TREE_TYPE (TREE_VEC_ELT (packed_parms, j));
8101 if (invalid_nontype_parm_type_p (t, complain))
8102 return error_mark_node;
8104 /* We don't know how many args we have yet, just
8105 use the unconverted ones for now. */
8106 return NULL_TREE;
8109 packed_args = make_tree_vec (TREE_VEC_LENGTH (packed_parms));
8111 /* Check if we have a placeholder pack, which indicates we're
8112 in the context of a introduction list. In that case we want
8113 to match this pack to the single placeholder. */
8114 else if (arg_idx < nargs
8115 && TREE_CODE (TREE_VEC_ELT (inner_args, arg_idx)) == WILDCARD_DECL
8116 && WILDCARD_PACK_P (TREE_VEC_ELT (inner_args, arg_idx)))
8118 nargs = arg_idx + 1;
8119 packed_args = make_tree_vec (1);
8121 else
8122 packed_args = make_tree_vec (nargs - arg_idx);
8124 /* Convert the remaining arguments, which will be a part of the
8125 parameter pack "parm". */
8126 int first_pack_arg = arg_idx;
8127 for (; arg_idx < nargs; ++arg_idx)
8129 tree arg = TREE_VEC_ELT (inner_args, arg_idx);
8130 tree actual_parm = TREE_VALUE (parm);
8131 int pack_idx = arg_idx - first_pack_arg;
8133 if (packed_parms)
8135 /* Once we've packed as many args as we have types, stop. */
8136 if (pack_idx >= TREE_VEC_LENGTH (packed_parms))
8137 break;
8138 else if (PACK_EXPANSION_P (arg))
8139 /* We don't know how many args we have yet, just
8140 use the unconverted ones for now. */
8141 return NULL_TREE;
8142 else
8143 actual_parm = TREE_VEC_ELT (packed_parms, pack_idx);
8146 if (arg == error_mark_node)
8148 if (complain & tf_error)
8149 error ("template argument %d is invalid", arg_idx + 1);
8151 else
8152 arg = convert_template_argument (actual_parm,
8153 arg, new_args, complain, parm_idx,
8154 in_decl);
8155 if (arg == error_mark_node)
8156 (*lost)++;
8157 TREE_VEC_ELT (packed_args, pack_idx) = arg;
8160 if (arg_idx - first_pack_arg < TREE_VEC_LENGTH (packed_args)
8161 && TREE_VEC_LENGTH (packed_args) > 0)
8163 if (complain & tf_error)
8164 error ("wrong number of template arguments (%d, should be %d)",
8165 arg_idx - first_pack_arg, TREE_VEC_LENGTH (packed_args));
8166 return error_mark_node;
8169 if (TREE_CODE (TREE_VALUE (parm)) == TYPE_DECL
8170 || TREE_CODE (TREE_VALUE (parm)) == TEMPLATE_DECL)
8171 argument_pack = cxx_make_type (TYPE_ARGUMENT_PACK);
8172 else
8174 argument_pack = make_node (NONTYPE_ARGUMENT_PACK);
8175 TREE_CONSTANT (argument_pack) = 1;
8178 SET_ARGUMENT_PACK_ARGS (argument_pack, packed_args);
8179 if (CHECKING_P)
8180 SET_NON_DEFAULT_TEMPLATE_ARGS_COUNT (packed_args,
8181 TREE_VEC_LENGTH (packed_args));
8182 return argument_pack;
8185 /* Returns the number of pack expansions in the template argument vector
8186 ARGS. */
8188 static int
8189 pack_expansion_args_count (tree args)
8191 int i;
8192 int count = 0;
8193 if (args)
8194 for (i = 0; i < TREE_VEC_LENGTH (args); ++i)
8196 tree elt = TREE_VEC_ELT (args, i);
8197 if (elt && PACK_EXPANSION_P (elt))
8198 ++count;
8200 return count;
8203 /* Convert all template arguments to their appropriate types, and
8204 return a vector containing the innermost resulting template
8205 arguments. If any error occurs, return error_mark_node. Error and
8206 warning messages are issued under control of COMPLAIN.
8208 If REQUIRE_ALL_ARGS is false, argument deduction will be performed
8209 for arguments not specified in ARGS. Otherwise, if
8210 USE_DEFAULT_ARGS is true, default arguments will be used to fill in
8211 unspecified arguments. If REQUIRE_ALL_ARGS is true, but
8212 USE_DEFAULT_ARGS is false, then all arguments must be specified in
8213 ARGS. */
8215 static tree
8216 coerce_template_parms (tree parms,
8217 tree args,
8218 tree in_decl,
8219 tsubst_flags_t complain,
8220 bool require_all_args,
8221 bool use_default_args)
8223 int nparms, nargs, parm_idx, arg_idx, lost = 0;
8224 tree orig_inner_args;
8225 tree inner_args;
8226 tree new_args;
8227 tree new_inner_args;
8228 int saved_unevaluated_operand;
8229 int saved_inhibit_evaluation_warnings;
8231 /* When used as a boolean value, indicates whether this is a
8232 variadic template parameter list. Since it's an int, we can also
8233 subtract it from nparms to get the number of non-variadic
8234 parameters. */
8235 int variadic_p = 0;
8236 int variadic_args_p = 0;
8237 int post_variadic_parms = 0;
8239 /* Adjustment to nparms for fixed parameter packs. */
8240 int fixed_pack_adjust = 0;
8241 int fixed_packs = 0;
8242 int missing = 0;
8244 /* Likewise for parameters with default arguments. */
8245 int default_p = 0;
8247 if (args == error_mark_node)
8248 return error_mark_node;
8250 nparms = TREE_VEC_LENGTH (parms);
8252 /* Determine if there are any parameter packs or default arguments. */
8253 for (parm_idx = 0; parm_idx < nparms; ++parm_idx)
8255 tree parm = TREE_VEC_ELT (parms, parm_idx);
8256 if (variadic_p)
8257 ++post_variadic_parms;
8258 if (template_parameter_pack_p (TREE_VALUE (parm)))
8259 ++variadic_p;
8260 if (TREE_PURPOSE (parm))
8261 ++default_p;
8264 inner_args = orig_inner_args = INNERMOST_TEMPLATE_ARGS (args);
8265 /* If there are no parameters that follow a parameter pack, we need to
8266 expand any argument packs so that we can deduce a parameter pack from
8267 some non-packed args followed by an argument pack, as in variadic85.C.
8268 If there are such parameters, we need to leave argument packs intact
8269 so the arguments are assigned properly. This can happen when dealing
8270 with a nested class inside a partial specialization of a class
8271 template, as in variadic92.C, or when deducing a template parameter pack
8272 from a sub-declarator, as in variadic114.C. */
8273 if (!post_variadic_parms)
8274 inner_args = expand_template_argument_pack (inner_args);
8276 /* Count any pack expansion args. */
8277 variadic_args_p = pack_expansion_args_count (inner_args);
8279 nargs = inner_args ? NUM_TMPL_ARGS (inner_args) : 0;
8280 if ((nargs - variadic_args_p > nparms && !variadic_p)
8281 || (nargs < nparms - variadic_p
8282 && require_all_args
8283 && !variadic_args_p
8284 && (!use_default_args
8285 || (TREE_VEC_ELT (parms, nargs) != error_mark_node
8286 && !TREE_PURPOSE (TREE_VEC_ELT (parms, nargs))))))
8288 bad_nargs:
8289 if (complain & tf_error)
8291 if (variadic_p || default_p)
8293 nparms -= variadic_p + default_p;
8294 error ("wrong number of template arguments "
8295 "(%d, should be at least %d)", nargs, nparms);
8297 else
8298 error ("wrong number of template arguments "
8299 "(%d, should be %d)", nargs, nparms);
8301 if (in_decl)
8302 inform (DECL_SOURCE_LOCATION (in_decl),
8303 "provided for %qD", in_decl);
8306 return error_mark_node;
8308 /* We can't pass a pack expansion to a non-pack parameter of an alias
8309 template (DR 1430). */
8310 else if (in_decl
8311 && (DECL_ALIAS_TEMPLATE_P (in_decl)
8312 || concept_template_p (in_decl))
8313 && variadic_args_p
8314 && nargs - variadic_args_p < nparms - variadic_p)
8316 if (complain & tf_error)
8318 for (int i = 0; i < TREE_VEC_LENGTH (inner_args); ++i)
8320 tree arg = TREE_VEC_ELT (inner_args, i);
8321 tree parm = TREE_VALUE (TREE_VEC_ELT (parms, i));
8323 if (PACK_EXPANSION_P (arg)
8324 && !template_parameter_pack_p (parm))
8326 if (DECL_ALIAS_TEMPLATE_P (in_decl))
8327 error_at (location_of (arg),
8328 "pack expansion argument for non-pack parameter "
8329 "%qD of alias template %qD", parm, in_decl);
8330 else
8331 error_at (location_of (arg),
8332 "pack expansion argument for non-pack parameter "
8333 "%qD of concept %qD", parm, in_decl);
8334 inform (DECL_SOURCE_LOCATION (parm), "declared here");
8335 goto found;
8338 gcc_unreachable ();
8339 found:;
8341 return error_mark_node;
8344 /* We need to evaluate the template arguments, even though this
8345 template-id may be nested within a "sizeof". */
8346 saved_unevaluated_operand = cp_unevaluated_operand;
8347 cp_unevaluated_operand = 0;
8348 saved_inhibit_evaluation_warnings = c_inhibit_evaluation_warnings;
8349 c_inhibit_evaluation_warnings = 0;
8350 new_inner_args = make_tree_vec (nparms);
8351 new_args = add_outermost_template_args (args, new_inner_args);
8352 int pack_adjust = 0;
8353 for (parm_idx = 0, arg_idx = 0; parm_idx < nparms; parm_idx++, arg_idx++)
8355 tree arg;
8356 tree parm;
8358 /* Get the Ith template parameter. */
8359 parm = TREE_VEC_ELT (parms, parm_idx);
8361 if (parm == error_mark_node)
8363 TREE_VEC_ELT (new_inner_args, arg_idx) = error_mark_node;
8364 continue;
8367 /* Calculate the next argument. */
8368 if (arg_idx < nargs)
8369 arg = TREE_VEC_ELT (inner_args, arg_idx);
8370 else
8371 arg = NULL_TREE;
8373 if (template_parameter_pack_p (TREE_VALUE (parm))
8374 && !(arg && ARGUMENT_PACK_P (arg)))
8376 /* Some arguments will be placed in the
8377 template parameter pack PARM. */
8378 arg = coerce_template_parameter_pack (parms, parm_idx, args,
8379 inner_args, arg_idx,
8380 new_args, &lost,
8381 in_decl, complain);
8383 if (arg == NULL_TREE)
8385 /* We don't know how many args we have yet, just use the
8386 unconverted (and still packed) ones for now. */
8387 new_inner_args = orig_inner_args;
8388 arg_idx = nargs;
8389 break;
8392 TREE_VEC_ELT (new_inner_args, parm_idx) = arg;
8394 /* Store this argument. */
8395 if (arg == error_mark_node)
8397 lost++;
8398 /* We are done with all of the arguments. */
8399 arg_idx = nargs;
8400 break;
8402 else
8404 pack_adjust = TREE_VEC_LENGTH (ARGUMENT_PACK_ARGS (arg)) - 1;
8405 arg_idx += pack_adjust;
8406 if (fixed_parameter_pack_p (TREE_VALUE (parm)))
8408 ++fixed_packs;
8409 fixed_pack_adjust += pack_adjust;
8413 continue;
8415 else if (arg)
8417 if (PACK_EXPANSION_P (arg))
8419 /* "If every valid specialization of a variadic template
8420 requires an empty template parameter pack, the template is
8421 ill-formed, no diagnostic required." So check that the
8422 pattern works with this parameter. */
8423 tree pattern = PACK_EXPANSION_PATTERN (arg);
8424 tree conv = convert_template_argument (TREE_VALUE (parm),
8425 pattern, new_args,
8426 complain, parm_idx,
8427 in_decl);
8428 if (conv == error_mark_node)
8430 if (complain & tf_error)
8431 inform (input_location, "so any instantiation with a "
8432 "non-empty parameter pack would be ill-formed");
8433 ++lost;
8435 else if (TYPE_P (conv) && !TYPE_P (pattern))
8436 /* Recover from missing typename. */
8437 TREE_VEC_ELT (inner_args, arg_idx)
8438 = make_pack_expansion (conv, complain);
8440 /* We don't know how many args we have yet, just
8441 use the unconverted ones for now. */
8442 new_inner_args = inner_args;
8443 arg_idx = nargs;
8444 break;
8447 else if (require_all_args)
8449 /* There must be a default arg in this case. */
8450 arg = tsubst_template_arg (TREE_PURPOSE (parm), new_args,
8451 complain, in_decl);
8452 /* The position of the first default template argument,
8453 is also the number of non-defaulted arguments in NEW_INNER_ARGS.
8454 Record that. */
8455 if (!NON_DEFAULT_TEMPLATE_ARGS_COUNT (new_inner_args))
8456 SET_NON_DEFAULT_TEMPLATE_ARGS_COUNT (new_inner_args,
8457 arg_idx - pack_adjust);
8459 else
8460 break;
8462 if (arg == error_mark_node)
8464 if (complain & tf_error)
8465 error ("template argument %d is invalid", arg_idx + 1);
8467 else if (!arg)
8469 /* This can occur if there was an error in the template
8470 parameter list itself (which we would already have
8471 reported) that we are trying to recover from, e.g., a class
8472 template with a parameter list such as
8473 template<typename..., typename> (cpp0x/variadic150.C). */
8474 ++lost;
8476 /* This can also happen with a fixed parameter pack (71834). */
8477 if (arg_idx >= nargs)
8478 ++missing;
8480 else
8481 arg = convert_template_argument (TREE_VALUE (parm),
8482 arg, new_args, complain,
8483 parm_idx, in_decl);
8485 if (arg == error_mark_node)
8486 lost++;
8487 TREE_VEC_ELT (new_inner_args, arg_idx - pack_adjust) = arg;
8489 cp_unevaluated_operand = saved_unevaluated_operand;
8490 c_inhibit_evaluation_warnings = saved_inhibit_evaluation_warnings;
8492 if (missing || arg_idx < nargs - variadic_args_p)
8494 /* If we had fixed parameter packs, we didn't know how many arguments we
8495 actually needed earlier; now we do. */
8496 nparms += fixed_pack_adjust;
8497 variadic_p -= fixed_packs;
8498 goto bad_nargs;
8501 if (arg_idx < nargs)
8503 /* We had some pack expansion arguments that will only work if the packs
8504 are empty, but wait until instantiation time to complain.
8505 See variadic-ttp3.C. */
8506 int len = nparms + (nargs - arg_idx);
8507 tree args = make_tree_vec (len);
8508 int i = 0;
8509 for (; i < nparms; ++i)
8510 TREE_VEC_ELT (args, i) = TREE_VEC_ELT (new_inner_args, i);
8511 for (; i < len; ++i, ++arg_idx)
8512 TREE_VEC_ELT (args, i) = TREE_VEC_ELT (inner_args,
8513 arg_idx - pack_adjust);
8514 new_inner_args = args;
8517 if (lost)
8519 gcc_assert (!(complain & tf_error) || seen_error ());
8520 return error_mark_node;
8523 if (CHECKING_P && !NON_DEFAULT_TEMPLATE_ARGS_COUNT (new_inner_args))
8524 SET_NON_DEFAULT_TEMPLATE_ARGS_COUNT (new_inner_args,
8525 TREE_VEC_LENGTH (new_inner_args));
8527 return new_inner_args;
8530 /* Convert all template arguments to their appropriate types, and
8531 return a vector containing the innermost resulting template
8532 arguments. If any error occurs, return error_mark_node. Error and
8533 warning messages are not issued.
8535 Note that no function argument deduction is performed, and default
8536 arguments are used to fill in unspecified arguments. */
8537 tree
8538 coerce_template_parms (tree parms, tree args, tree in_decl)
8540 return coerce_template_parms (parms, args, in_decl, tf_none, true, true);
8543 /* Convert all template arguments to their appropriate type, and
8544 instantiate default arguments as needed. This returns a vector
8545 containing the innermost resulting template arguments, or
8546 error_mark_node if unsuccessful. */
8547 tree
8548 coerce_template_parms (tree parms, tree args, tree in_decl,
8549 tsubst_flags_t complain)
8551 return coerce_template_parms (parms, args, in_decl, complain, true, true);
8554 /* Like coerce_template_parms. If PARMS represents all template
8555 parameters levels, this function returns a vector of vectors
8556 representing all the resulting argument levels. Note that in this
8557 case, only the innermost arguments are coerced because the
8558 outermost ones are supposed to have been coerced already.
8560 Otherwise, if PARMS represents only (the innermost) vector of
8561 parameters, this function returns a vector containing just the
8562 innermost resulting arguments. */
8564 static tree
8565 coerce_innermost_template_parms (tree parms,
8566 tree args,
8567 tree in_decl,
8568 tsubst_flags_t complain,
8569 bool require_all_args,
8570 bool use_default_args)
8572 int parms_depth = TMPL_PARMS_DEPTH (parms);
8573 int args_depth = TMPL_ARGS_DEPTH (args);
8574 tree coerced_args;
8576 if (parms_depth > 1)
8578 coerced_args = make_tree_vec (parms_depth);
8579 tree level;
8580 int cur_depth;
8582 for (level = parms, cur_depth = parms_depth;
8583 parms_depth > 0 && level != NULL_TREE;
8584 level = TREE_CHAIN (level), --cur_depth)
8586 tree l;
8587 if (cur_depth == args_depth)
8588 l = coerce_template_parms (TREE_VALUE (level),
8589 args, in_decl, complain,
8590 require_all_args,
8591 use_default_args);
8592 else
8593 l = TMPL_ARGS_LEVEL (args, cur_depth);
8595 if (l == error_mark_node)
8596 return error_mark_node;
8598 SET_TMPL_ARGS_LEVEL (coerced_args, cur_depth, l);
8601 else
8602 coerced_args = coerce_template_parms (INNERMOST_TEMPLATE_PARMS (parms),
8603 args, in_decl, complain,
8604 require_all_args,
8605 use_default_args);
8606 return coerced_args;
8609 /* Returns 1 if template args OT and NT are equivalent. */
8612 template_args_equal (tree ot, tree nt, bool partial_order /* = false */)
8614 if (nt == ot)
8615 return 1;
8616 if (nt == NULL_TREE || ot == NULL_TREE)
8617 return false;
8618 if (nt == any_targ_node || ot == any_targ_node)
8619 return true;
8621 if (TREE_CODE (nt) == TREE_VEC)
8622 /* For member templates */
8623 return TREE_CODE (ot) == TREE_VEC && comp_template_args (ot, nt);
8624 else if (PACK_EXPANSION_P (ot))
8625 return (PACK_EXPANSION_P (nt)
8626 && template_args_equal (PACK_EXPANSION_PATTERN (ot),
8627 PACK_EXPANSION_PATTERN (nt))
8628 && template_args_equal (PACK_EXPANSION_EXTRA_ARGS (ot),
8629 PACK_EXPANSION_EXTRA_ARGS (nt)));
8630 else if (ARGUMENT_PACK_P (ot))
8632 int i, len;
8633 tree opack, npack;
8635 if (!ARGUMENT_PACK_P (nt))
8636 return 0;
8638 opack = ARGUMENT_PACK_ARGS (ot);
8639 npack = ARGUMENT_PACK_ARGS (nt);
8640 len = TREE_VEC_LENGTH (opack);
8641 if (TREE_VEC_LENGTH (npack) != len)
8642 return 0;
8643 for (i = 0; i < len; ++i)
8644 if (!template_args_equal (TREE_VEC_ELT (opack, i),
8645 TREE_VEC_ELT (npack, i)))
8646 return 0;
8647 return 1;
8649 else if (ot && TREE_CODE (ot) == ARGUMENT_PACK_SELECT)
8650 gcc_unreachable ();
8651 else if (TYPE_P (nt))
8653 if (!TYPE_P (ot))
8654 return false;
8655 /* Don't treat an alias template specialization with dependent
8656 arguments as equivalent to its underlying type when used as a
8657 template argument; we need them to be distinct so that we
8658 substitute into the specialization arguments at instantiation
8659 time. And aliases can't be equivalent without being ==, so
8660 we don't need to look any deeper.
8662 During partial ordering, however, we need to treat them normally so
8663 that we can order uses of the same alias with different
8664 cv-qualification (79960). */
8665 if (!partial_order
8666 && (TYPE_ALIAS_P (nt) || TYPE_ALIAS_P (ot)))
8667 return false;
8668 else
8669 return same_type_p (ot, nt);
8671 else if (TREE_CODE (ot) == TREE_VEC || TYPE_P (ot))
8672 return 0;
8673 else
8675 /* Try to treat a template non-type argument that has been converted
8676 to the parameter type as equivalent to one that hasn't yet. */
8677 for (enum tree_code code1 = TREE_CODE (ot);
8678 CONVERT_EXPR_CODE_P (code1)
8679 || code1 == NON_LVALUE_EXPR;
8680 code1 = TREE_CODE (ot))
8681 ot = TREE_OPERAND (ot, 0);
8682 for (enum tree_code code2 = TREE_CODE (nt);
8683 CONVERT_EXPR_CODE_P (code2)
8684 || code2 == NON_LVALUE_EXPR;
8685 code2 = TREE_CODE (nt))
8686 nt = TREE_OPERAND (nt, 0);
8688 return cp_tree_equal (ot, nt);
8692 /* Returns 1 iff the OLDARGS and NEWARGS are in fact identical sets of
8693 template arguments. Returns 0 otherwise, and updates OLDARG_PTR and
8694 NEWARG_PTR with the offending arguments if they are non-NULL. */
8697 comp_template_args (tree oldargs, tree newargs,
8698 tree *oldarg_ptr, tree *newarg_ptr,
8699 bool partial_order)
8701 int i;
8703 if (oldargs == newargs)
8704 return 1;
8706 if (!oldargs || !newargs)
8707 return 0;
8709 if (TREE_VEC_LENGTH (oldargs) != TREE_VEC_LENGTH (newargs))
8710 return 0;
8712 for (i = 0; i < TREE_VEC_LENGTH (oldargs); ++i)
8714 tree nt = TREE_VEC_ELT (newargs, i);
8715 tree ot = TREE_VEC_ELT (oldargs, i);
8717 if (! template_args_equal (ot, nt, partial_order))
8719 if (oldarg_ptr != NULL)
8720 *oldarg_ptr = ot;
8721 if (newarg_ptr != NULL)
8722 *newarg_ptr = nt;
8723 return 0;
8726 return 1;
8729 inline bool
8730 comp_template_args_porder (tree oargs, tree nargs)
8732 return comp_template_args (oargs, nargs, NULL, NULL, true);
8735 /* Implement a freelist interface for objects of type T.
8737 Head is a separate object, rather than a regular member, so that we
8738 can define it as a GTY deletable pointer, which is highly
8739 desirable. A data member could be declared that way, but then the
8740 containing object would implicitly get GTY((user)), which would
8741 prevent us from instantiating freelists as global objects.
8742 Although this way we can create freelist global objects, they're
8743 such thin wrappers that instantiating temporaries at every use
8744 loses nothing and saves permanent storage for the freelist object.
8746 Member functions next, anew, poison and reinit have default
8747 implementations that work for most of the types we're interested
8748 in, but if they don't work for some type, they should be explicitly
8749 specialized. See the comments before them for requirements, and
8750 the example specializations for the tree_list_freelist. */
8751 template <typename T>
8752 class freelist
8754 /* Return the next object in a chain. We could just do type
8755 punning, but if we access the object with its underlying type, we
8756 avoid strict-aliasing trouble. This needs only work between
8757 poison and reinit. */
8758 static T *&next (T *obj) { return obj->next; }
8760 /* Return a newly allocated, uninitialized or minimally-initialized
8761 object of type T. Any initialization performed by anew should
8762 either remain across the life of the object and the execution of
8763 poison, or be redone by reinit. */
8764 static T *anew () { return ggc_alloc<T> (); }
8766 /* Optionally scribble all over the bits holding the object, so that
8767 they become (mostly?) uninitialized memory. This is called while
8768 preparing to make the object part of the free list. */
8769 static void poison (T *obj) {
8770 T *p ATTRIBUTE_UNUSED = obj;
8771 T **q ATTRIBUTE_UNUSED = &next (obj);
8773 #ifdef ENABLE_GC_CHECKING
8774 /* Poison the data, to indicate the data is garbage. */
8775 VALGRIND_DISCARD (VALGRIND_MAKE_MEM_UNDEFINED (p, sizeof (*p)));
8776 memset (p, 0xa5, sizeof (*p));
8777 #endif
8778 /* Let valgrind know the object is free. */
8779 VALGRIND_DISCARD (VALGRIND_MAKE_MEM_NOACCESS (p, sizeof (*p)));
8781 /* Let valgrind know the next portion of the object is available,
8782 but uninitialized. */
8783 VALGRIND_DISCARD (VALGRIND_MAKE_MEM_UNDEFINED (q, sizeof (*q)));
8786 /* Bring an object that underwent at least one lifecycle after anew
8787 and before the most recent free and poison, back to a usable
8788 state, reinitializing whatever is needed for it to be
8789 functionally equivalent to an object just allocated and returned
8790 by anew. This may poison or clear the next field, used by
8791 freelist housekeeping after poison was called. */
8792 static void reinit (T *obj) {
8793 T **q ATTRIBUTE_UNUSED = &next (obj);
8795 #ifdef ENABLE_GC_CHECKING
8796 memset (q, 0xa5, sizeof (*q));
8797 #endif
8798 /* Let valgrind know the entire object is available, but
8799 uninitialized. */
8800 VALGRIND_DISCARD (VALGRIND_MAKE_MEM_UNDEFINED (obj, sizeof (*obj)));
8803 /* Reference a GTY-deletable pointer that points to the first object
8804 in the free list proper. */
8805 T *&head;
8806 public:
8807 /* Construct a freelist object chaining objects off of HEAD. */
8808 freelist (T *&head) : head(head) {}
8810 /* Add OBJ to the free object list. The former head becomes OBJ's
8811 successor. */
8812 void free (T *obj)
8814 poison (obj);
8815 next (obj) = head;
8816 head = obj;
8819 /* Take an object from the free list, if one is available, or
8820 allocate a new one. Objects taken from the free list should be
8821 regarded as filled with garbage, except for bits that are
8822 configured to be preserved across free and alloc. */
8823 T *alloc ()
8825 if (head)
8827 T *obj = head;
8828 head = next (head);
8829 reinit (obj);
8830 return obj;
8832 else
8833 return anew ();
8837 /* Explicitly specialize the interfaces for freelist<tree_node>: we
8838 want to allocate a TREE_LIST using the usual interface, and ensure
8839 TREE_CHAIN remains functional. Alas, we have to duplicate a bit of
8840 build_tree_list logic in reinit, so this could go out of sync. */
8841 template <>
8842 inline tree &
8843 freelist<tree_node>::next (tree obj)
8845 return TREE_CHAIN (obj);
8847 template <>
8848 inline tree
8849 freelist<tree_node>::anew ()
8851 return build_tree_list (NULL, NULL);
8853 template <>
8854 inline void
8855 freelist<tree_node>::poison (tree obj ATTRIBUTE_UNUSED)
8857 int size ATTRIBUTE_UNUSED = sizeof (tree_list);
8858 tree p ATTRIBUTE_UNUSED = obj;
8859 tree_base *b ATTRIBUTE_UNUSED = &obj->base;
8860 tree *q ATTRIBUTE_UNUSED = &next (obj);
8862 #ifdef ENABLE_GC_CHECKING
8863 gcc_checking_assert (TREE_CODE (obj) == TREE_LIST);
8865 /* Poison the data, to indicate the data is garbage. */
8866 VALGRIND_DISCARD (VALGRIND_MAKE_MEM_UNDEFINED (p, size));
8867 memset (p, 0xa5, size);
8868 #endif
8869 /* Let valgrind know the object is free. */
8870 VALGRIND_DISCARD (VALGRIND_MAKE_MEM_NOACCESS (p, size));
8871 /* But we still want to use the TREE_CODE and TREE_CHAIN parts. */
8872 VALGRIND_DISCARD (VALGRIND_MAKE_MEM_DEFINED (b, sizeof (*b)));
8873 VALGRIND_DISCARD (VALGRIND_MAKE_MEM_UNDEFINED (q, sizeof (*q)));
8875 #ifdef ENABLE_GC_CHECKING
8876 VALGRIND_DISCARD (VALGRIND_MAKE_MEM_UNDEFINED (b, sizeof (*b)));
8877 /* Keep TREE_CHAIN functional. */
8878 TREE_SET_CODE (obj, TREE_LIST);
8879 #else
8880 VALGRIND_DISCARD (VALGRIND_MAKE_MEM_DEFINED (b, sizeof (*b)));
8881 #endif
8883 template <>
8884 inline void
8885 freelist<tree_node>::reinit (tree obj ATTRIBUTE_UNUSED)
8887 tree_base *b ATTRIBUTE_UNUSED = &obj->base;
8889 #ifdef ENABLE_GC_CHECKING
8890 gcc_checking_assert (TREE_CODE (obj) == TREE_LIST);
8891 VALGRIND_DISCARD (VALGRIND_MAKE_MEM_UNDEFINED (obj, sizeof (tree_list)));
8892 memset (obj, 0, sizeof (tree_list));
8893 #endif
8895 /* Let valgrind know the entire object is available, but
8896 uninitialized. */
8897 VALGRIND_DISCARD (VALGRIND_MAKE_MEM_UNDEFINED (obj, sizeof (tree_list)));
8899 #ifdef ENABLE_GC_CHECKING
8900 TREE_SET_CODE (obj, TREE_LIST);
8901 #else
8902 VALGRIND_DISCARD (VALGRIND_MAKE_MEM_DEFINED (b, sizeof (*b)));
8903 #endif
8906 /* Point to the first object in the TREE_LIST freelist. */
8907 static GTY((deletable)) tree tree_list_freelist_head;
8908 /* Return the/an actual TREE_LIST freelist. */
8909 static inline freelist<tree_node>
8910 tree_list_freelist ()
8912 return tree_list_freelist_head;
8915 /* Point to the first object in the tinst_level freelist. */
8916 static GTY((deletable)) tinst_level *tinst_level_freelist_head;
8917 /* Return the/an actual tinst_level freelist. */
8918 static inline freelist<tinst_level>
8919 tinst_level_freelist ()
8921 return tinst_level_freelist_head;
8924 /* Point to the first object in the pending_template freelist. */
8925 static GTY((deletable)) pending_template *pending_template_freelist_head;
8926 /* Return the/an actual pending_template freelist. */
8927 static inline freelist<pending_template>
8928 pending_template_freelist ()
8930 return pending_template_freelist_head;
8933 /* Build the TREE_LIST object out of a split list, store it
8934 permanently, and return it. */
8935 tree
8936 tinst_level::to_list ()
8938 gcc_assert (split_list_p ());
8939 tree ret = tree_list_freelist ().alloc ();
8940 TREE_PURPOSE (ret) = tldcl;
8941 TREE_VALUE (ret) = targs;
8942 tldcl = ret;
8943 targs = NULL;
8944 gcc_assert (tree_list_p ());
8945 return ret;
8948 const unsigned short tinst_level::refcount_infinity;
8950 /* Increment OBJ's refcount unless it is already infinite. */
8951 static tinst_level *
8952 inc_refcount_use (tinst_level *obj)
8954 if (obj && obj->refcount != tinst_level::refcount_infinity)
8955 ++obj->refcount;
8956 return obj;
8959 /* Release storage for OBJ and node, if it's a TREE_LIST. */
8960 void
8961 tinst_level::free (tinst_level *obj)
8963 if (obj->tree_list_p ())
8964 tree_list_freelist ().free (obj->get_node ());
8965 tinst_level_freelist ().free (obj);
8968 /* Decrement OBJ's refcount if not infinite. If it reaches zero, release
8969 OBJ's DECL and OBJ, and start over with the tinst_level object that
8970 used to be referenced by OBJ's NEXT. */
8971 static void
8972 dec_refcount_use (tinst_level *obj)
8974 while (obj
8975 && obj->refcount != tinst_level::refcount_infinity
8976 && !--obj->refcount)
8978 tinst_level *next = obj->next;
8979 tinst_level::free (obj);
8980 obj = next;
8984 /* Modify PTR so that it points to OBJ, adjusting the refcounts of OBJ
8985 and of the former PTR. Omitting the second argument is equivalent
8986 to passing (T*)NULL; this is allowed because passing the
8987 zero-valued integral constant NULL confuses type deduction and/or
8988 overload resolution. */
8989 template <typename T>
8990 static void
8991 set_refcount_ptr (T *& ptr, T *obj = NULL)
8993 T *save = ptr;
8994 ptr = inc_refcount_use (obj);
8995 dec_refcount_use (save);
8998 static void
8999 add_pending_template (tree d)
9001 tree ti = (TYPE_P (d)
9002 ? CLASSTYPE_TEMPLATE_INFO (d)
9003 : DECL_TEMPLATE_INFO (d));
9004 struct pending_template *pt;
9005 int level;
9007 if (TI_PENDING_TEMPLATE_FLAG (ti))
9008 return;
9010 /* We are called both from instantiate_decl, where we've already had a
9011 tinst_level pushed, and instantiate_template, where we haven't.
9012 Compensate. */
9013 gcc_assert (TREE_CODE (d) != TREE_LIST);
9014 level = !current_tinst_level
9015 || current_tinst_level->maybe_get_node () != d;
9017 if (level)
9018 push_tinst_level (d);
9020 pt = pending_template_freelist ().alloc ();
9021 pt->next = NULL;
9022 pt->tinst = NULL;
9023 set_refcount_ptr (pt->tinst, current_tinst_level);
9024 if (last_pending_template)
9025 last_pending_template->next = pt;
9026 else
9027 pending_templates = pt;
9029 last_pending_template = pt;
9031 TI_PENDING_TEMPLATE_FLAG (ti) = 1;
9033 if (level)
9034 pop_tinst_level ();
9038 /* Return a TEMPLATE_ID_EXPR corresponding to the indicated FNS and
9039 ARGLIST. Valid choices for FNS are given in the cp-tree.def
9040 documentation for TEMPLATE_ID_EXPR. */
9042 tree
9043 lookup_template_function (tree fns, tree arglist)
9045 tree type;
9047 if (fns == error_mark_node || arglist == error_mark_node)
9048 return error_mark_node;
9050 gcc_assert (!arglist || TREE_CODE (arglist) == TREE_VEC);
9052 if (!is_overloaded_fn (fns) && !identifier_p (fns))
9054 error ("%q#D is not a function template", fns);
9055 return error_mark_node;
9058 if (BASELINK_P (fns))
9060 BASELINK_FUNCTIONS (fns) = build2 (TEMPLATE_ID_EXPR,
9061 unknown_type_node,
9062 BASELINK_FUNCTIONS (fns),
9063 arglist);
9064 return fns;
9067 type = TREE_TYPE (fns);
9068 if (TREE_CODE (fns) == OVERLOAD || !type)
9069 type = unknown_type_node;
9071 return build2 (TEMPLATE_ID_EXPR, type, fns, arglist);
9074 /* Within the scope of a template class S<T>, the name S gets bound
9075 (in build_self_reference) to a TYPE_DECL for the class, not a
9076 TEMPLATE_DECL. If DECL is a TYPE_DECL for current_class_type,
9077 or one of its enclosing classes, and that type is a template,
9078 return the associated TEMPLATE_DECL. Otherwise, the original
9079 DECL is returned.
9081 Also handle the case when DECL is a TREE_LIST of ambiguous
9082 injected-class-names from different bases. */
9084 tree
9085 maybe_get_template_decl_from_type_decl (tree decl)
9087 if (decl == NULL_TREE)
9088 return decl;
9090 /* DR 176: A lookup that finds an injected-class-name (10.2
9091 [class.member.lookup]) can result in an ambiguity in certain cases
9092 (for example, if it is found in more than one base class). If all of
9093 the injected-class-names that are found refer to specializations of
9094 the same class template, and if the name is followed by a
9095 template-argument-list, the reference refers to the class template
9096 itself and not a specialization thereof, and is not ambiguous. */
9097 if (TREE_CODE (decl) == TREE_LIST)
9099 tree t, tmpl = NULL_TREE;
9100 for (t = decl; t; t = TREE_CHAIN (t))
9102 tree elt = maybe_get_template_decl_from_type_decl (TREE_VALUE (t));
9103 if (!tmpl)
9104 tmpl = elt;
9105 else if (tmpl != elt)
9106 break;
9108 if (tmpl && t == NULL_TREE)
9109 return tmpl;
9110 else
9111 return decl;
9114 return (decl != NULL_TREE
9115 && DECL_SELF_REFERENCE_P (decl)
9116 && CLASSTYPE_TEMPLATE_INFO (TREE_TYPE (decl)))
9117 ? CLASSTYPE_TI_TEMPLATE (TREE_TYPE (decl)) : decl;
9120 /* Given an IDENTIFIER_NODE (or type TEMPLATE_DECL) and a chain of
9121 parameters, find the desired type.
9123 D1 is the PTYPENAME terminal, and ARGLIST is the list of arguments.
9125 IN_DECL, if non-NULL, is the template declaration we are trying to
9126 instantiate.
9128 If ENTERING_SCOPE is nonzero, we are about to enter the scope of
9129 the class we are looking up.
9131 Issue error and warning messages under control of COMPLAIN.
9133 If the template class is really a local class in a template
9134 function, then the FUNCTION_CONTEXT is the function in which it is
9135 being instantiated.
9137 ??? Note that this function is currently called *twice* for each
9138 template-id: the first time from the parser, while creating the
9139 incomplete type (finish_template_type), and the second type during the
9140 real instantiation (instantiate_template_class). This is surely something
9141 that we want to avoid. It also causes some problems with argument
9142 coercion (see convert_nontype_argument for more information on this). */
9144 static tree
9145 lookup_template_class_1 (tree d1, tree arglist, tree in_decl, tree context,
9146 int entering_scope, tsubst_flags_t complain)
9148 tree templ = NULL_TREE, parmlist;
9149 tree t;
9150 spec_entry **slot;
9151 spec_entry *entry;
9152 spec_entry elt;
9153 hashval_t hash;
9155 if (identifier_p (d1))
9157 tree value = innermost_non_namespace_value (d1);
9158 if (value && DECL_TEMPLATE_TEMPLATE_PARM_P (value))
9159 templ = value;
9160 else
9162 if (context)
9163 push_decl_namespace (context);
9164 templ = lookup_name (d1);
9165 templ = maybe_get_template_decl_from_type_decl (templ);
9166 if (context)
9167 pop_decl_namespace ();
9169 if (templ)
9170 context = DECL_CONTEXT (templ);
9172 else if (TREE_CODE (d1) == TYPE_DECL && MAYBE_CLASS_TYPE_P (TREE_TYPE (d1)))
9174 tree type = TREE_TYPE (d1);
9176 /* If we are declaring a constructor, say A<T>::A<T>, we will get
9177 an implicit typename for the second A. Deal with it. */
9178 if (TREE_CODE (type) == TYPENAME_TYPE && TREE_TYPE (type))
9179 type = TREE_TYPE (type);
9181 if (CLASSTYPE_TEMPLATE_INFO (type))
9183 templ = CLASSTYPE_TI_TEMPLATE (type);
9184 d1 = DECL_NAME (templ);
9187 else if (TREE_CODE (d1) == ENUMERAL_TYPE
9188 || (TYPE_P (d1) && MAYBE_CLASS_TYPE_P (d1)))
9190 templ = TYPE_TI_TEMPLATE (d1);
9191 d1 = DECL_NAME (templ);
9193 else if (DECL_TYPE_TEMPLATE_P (d1))
9195 templ = d1;
9196 d1 = DECL_NAME (templ);
9197 context = DECL_CONTEXT (templ);
9199 else if (DECL_TEMPLATE_TEMPLATE_PARM_P (d1))
9201 templ = d1;
9202 d1 = DECL_NAME (templ);
9205 /* Issue an error message if we didn't find a template. */
9206 if (! templ)
9208 if (complain & tf_error)
9209 error ("%qT is not a template", d1);
9210 return error_mark_node;
9213 if (TREE_CODE (templ) != TEMPLATE_DECL
9214 /* Make sure it's a user visible template, if it was named by
9215 the user. */
9216 || ((complain & tf_user) && !DECL_TEMPLATE_PARM_P (templ)
9217 && !PRIMARY_TEMPLATE_P (templ)))
9219 if (complain & tf_error)
9221 error ("non-template type %qT used as a template", d1);
9222 if (in_decl)
9223 error ("for template declaration %q+D", in_decl);
9225 return error_mark_node;
9228 complain &= ~tf_user;
9230 /* An alias that just changes the name of a template is equivalent to the
9231 other template, so if any of the arguments are pack expansions, strip
9232 the alias to avoid problems with a pack expansion passed to a non-pack
9233 alias template parameter (DR 1430). */
9234 if (pack_expansion_args_count (INNERMOST_TEMPLATE_ARGS (arglist)))
9235 templ = get_underlying_template (templ);
9237 if (DECL_TEMPLATE_TEMPLATE_PARM_P (templ))
9239 tree parm;
9240 tree arglist2 = coerce_template_args_for_ttp (templ, arglist, complain);
9241 if (arglist2 == error_mark_node
9242 || (!uses_template_parms (arglist2)
9243 && check_instantiated_args (templ, arglist2, complain)))
9244 return error_mark_node;
9246 parm = bind_template_template_parm (TREE_TYPE (templ), arglist2);
9247 return parm;
9249 else
9251 tree template_type = TREE_TYPE (templ);
9252 tree gen_tmpl;
9253 tree type_decl;
9254 tree found = NULL_TREE;
9255 int arg_depth;
9256 int parm_depth;
9257 int is_dependent_type;
9258 int use_partial_inst_tmpl = false;
9260 if (template_type == error_mark_node)
9261 /* An error occurred while building the template TEMPL, and a
9262 diagnostic has most certainly been emitted for that
9263 already. Let's propagate that error. */
9264 return error_mark_node;
9266 gen_tmpl = most_general_template (templ);
9267 parmlist = DECL_TEMPLATE_PARMS (gen_tmpl);
9268 parm_depth = TMPL_PARMS_DEPTH (parmlist);
9269 arg_depth = TMPL_ARGS_DEPTH (arglist);
9271 if (arg_depth == 1 && parm_depth > 1)
9273 /* We've been given an incomplete set of template arguments.
9274 For example, given:
9276 template <class T> struct S1 {
9277 template <class U> struct S2 {};
9278 template <class U> struct S2<U*> {};
9281 we will be called with an ARGLIST of `U*', but the
9282 TEMPLATE will be `template <class T> template
9283 <class U> struct S1<T>::S2'. We must fill in the missing
9284 arguments. */
9285 tree ti = TYPE_TEMPLATE_INFO_MAYBE_ALIAS (TREE_TYPE (templ));
9286 arglist = add_outermost_template_args (TI_ARGS (ti), arglist);
9287 arg_depth = TMPL_ARGS_DEPTH (arglist);
9290 /* Now we should have enough arguments. */
9291 gcc_assert (parm_depth == arg_depth);
9293 /* From here on, we're only interested in the most general
9294 template. */
9296 /* Calculate the BOUND_ARGS. These will be the args that are
9297 actually tsubst'd into the definition to create the
9298 instantiation. */
9299 arglist = coerce_innermost_template_parms (parmlist, arglist, gen_tmpl,
9300 complain,
9301 /*require_all_args=*/true,
9302 /*use_default_args=*/true);
9304 if (arglist == error_mark_node)
9305 /* We were unable to bind the arguments. */
9306 return error_mark_node;
9308 /* In the scope of a template class, explicit references to the
9309 template class refer to the type of the template, not any
9310 instantiation of it. For example, in:
9312 template <class T> class C { void f(C<T>); }
9314 the `C<T>' is just the same as `C'. Outside of the
9315 class, however, such a reference is an instantiation. */
9316 if (entering_scope
9317 || !PRIMARY_TEMPLATE_P (gen_tmpl)
9318 || currently_open_class (template_type))
9320 tree tinfo = TYPE_TEMPLATE_INFO (template_type);
9322 if (tinfo && comp_template_args (TI_ARGS (tinfo), arglist))
9323 return template_type;
9326 /* If we already have this specialization, return it. */
9327 elt.tmpl = gen_tmpl;
9328 elt.args = arglist;
9329 elt.spec = NULL_TREE;
9330 hash = spec_hasher::hash (&elt);
9331 entry = type_specializations->find_with_hash (&elt, hash);
9333 if (entry)
9334 return entry->spec;
9336 /* If the the template's constraints are not satisfied,
9337 then we cannot form a valid type.
9339 Note that the check is deferred until after the hash
9340 lookup. This prevents redundant checks on previously
9341 instantiated specializations. */
9342 if (flag_concepts && !constraints_satisfied_p (gen_tmpl, arglist))
9344 if (complain & tf_error)
9346 error ("template constraint failure");
9347 diagnose_constraints (input_location, gen_tmpl, arglist);
9349 return error_mark_node;
9352 is_dependent_type = uses_template_parms (arglist);
9354 /* If the deduced arguments are invalid, then the binding
9355 failed. */
9356 if (!is_dependent_type
9357 && check_instantiated_args (gen_tmpl,
9358 INNERMOST_TEMPLATE_ARGS (arglist),
9359 complain))
9360 return error_mark_node;
9362 if (!is_dependent_type
9363 && !PRIMARY_TEMPLATE_P (gen_tmpl)
9364 && !LAMBDA_TYPE_P (TREE_TYPE (gen_tmpl))
9365 && TREE_CODE (CP_DECL_CONTEXT (gen_tmpl)) == NAMESPACE_DECL)
9367 found = xref_tag_from_type (TREE_TYPE (gen_tmpl),
9368 DECL_NAME (gen_tmpl),
9369 /*tag_scope=*/ts_global);
9370 return found;
9373 context = tsubst (DECL_CONTEXT (gen_tmpl), arglist,
9374 complain, in_decl);
9375 if (context == error_mark_node)
9376 return error_mark_node;
9378 if (!context)
9379 context = global_namespace;
9381 /* Create the type. */
9382 if (DECL_ALIAS_TEMPLATE_P (gen_tmpl))
9384 /* The user referred to a specialization of an alias
9385 template represented by GEN_TMPL.
9387 [temp.alias]/2 says:
9389 When a template-id refers to the specialization of an
9390 alias template, it is equivalent to the associated
9391 type obtained by substitution of its
9392 template-arguments for the template-parameters in the
9393 type-id of the alias template. */
9395 t = tsubst (TREE_TYPE (gen_tmpl), arglist, complain, in_decl);
9396 /* Note that the call above (by indirectly calling
9397 register_specialization in tsubst_decl) registers the
9398 TYPE_DECL representing the specialization of the alias
9399 template. So next time someone substitutes ARGLIST for
9400 the template parms into the alias template (GEN_TMPL),
9401 she'll get that TYPE_DECL back. */
9403 if (t == error_mark_node)
9404 return t;
9406 else if (TREE_CODE (template_type) == ENUMERAL_TYPE)
9408 if (!is_dependent_type)
9410 set_current_access_from_decl (TYPE_NAME (template_type));
9411 t = start_enum (TYPE_IDENTIFIER (template_type), NULL_TREE,
9412 tsubst (ENUM_UNDERLYING_TYPE (template_type),
9413 arglist, complain, in_decl),
9414 tsubst_attributes (TYPE_ATTRIBUTES (template_type),
9415 arglist, complain, in_decl),
9416 SCOPED_ENUM_P (template_type), NULL);
9418 if (t == error_mark_node)
9419 return t;
9421 else
9423 /* We don't want to call start_enum for this type, since
9424 the values for the enumeration constants may involve
9425 template parameters. And, no one should be interested
9426 in the enumeration constants for such a type. */
9427 t = cxx_make_type (ENUMERAL_TYPE);
9428 SET_SCOPED_ENUM_P (t, SCOPED_ENUM_P (template_type));
9430 SET_OPAQUE_ENUM_P (t, OPAQUE_ENUM_P (template_type));
9431 ENUM_FIXED_UNDERLYING_TYPE_P (t)
9432 = ENUM_FIXED_UNDERLYING_TYPE_P (template_type);
9434 else if (CLASS_TYPE_P (template_type))
9436 /* Lambda closures are regenerated in tsubst_lambda_expr, not
9437 instantiated here. */
9438 gcc_assert (!LAMBDA_TYPE_P (template_type));
9440 t = make_class_type (TREE_CODE (template_type));
9441 CLASSTYPE_DECLARED_CLASS (t)
9442 = CLASSTYPE_DECLARED_CLASS (template_type);
9443 SET_CLASSTYPE_IMPLICIT_INSTANTIATION (t);
9445 /* A local class. Make sure the decl gets registered properly. */
9446 if (context == current_function_decl)
9447 if (pushtag (DECL_NAME (gen_tmpl), t, /*tag_scope=*/ts_current)
9448 == error_mark_node)
9449 return error_mark_node;
9451 if (comp_template_args (CLASSTYPE_TI_ARGS (template_type), arglist))
9452 /* This instantiation is another name for the primary
9453 template type. Set the TYPE_CANONICAL field
9454 appropriately. */
9455 TYPE_CANONICAL (t) = template_type;
9456 else if (any_template_arguments_need_structural_equality_p (arglist))
9457 /* Some of the template arguments require structural
9458 equality testing, so this template class requires
9459 structural equality testing. */
9460 SET_TYPE_STRUCTURAL_EQUALITY (t);
9462 else
9463 gcc_unreachable ();
9465 /* If we called start_enum or pushtag above, this information
9466 will already be set up. */
9467 if (!TYPE_NAME (t))
9469 TYPE_CONTEXT (t) = FROB_CONTEXT (context);
9471 type_decl = create_implicit_typedef (DECL_NAME (gen_tmpl), t);
9472 DECL_CONTEXT (type_decl) = TYPE_CONTEXT (t);
9473 DECL_SOURCE_LOCATION (type_decl)
9474 = DECL_SOURCE_LOCATION (TYPE_STUB_DECL (template_type));
9476 else
9477 type_decl = TYPE_NAME (t);
9479 if (CLASS_TYPE_P (template_type))
9481 TREE_PRIVATE (type_decl)
9482 = TREE_PRIVATE (TYPE_MAIN_DECL (template_type));
9483 TREE_PROTECTED (type_decl)
9484 = TREE_PROTECTED (TYPE_MAIN_DECL (template_type));
9485 if (CLASSTYPE_VISIBILITY_SPECIFIED (template_type))
9487 DECL_VISIBILITY_SPECIFIED (type_decl) = 1;
9488 DECL_VISIBILITY (type_decl) = CLASSTYPE_VISIBILITY (template_type);
9492 if (OVERLOAD_TYPE_P (t)
9493 && !DECL_ALIAS_TEMPLATE_P (gen_tmpl))
9495 static const char *tags[] = {"abi_tag", "may_alias"};
9497 for (unsigned ix = 0; ix != 2; ix++)
9499 tree attributes
9500 = lookup_attribute (tags[ix], TYPE_ATTRIBUTES (template_type));
9502 if (attributes)
9503 TYPE_ATTRIBUTES (t)
9504 = tree_cons (TREE_PURPOSE (attributes),
9505 TREE_VALUE (attributes),
9506 TYPE_ATTRIBUTES (t));
9510 /* Let's consider the explicit specialization of a member
9511 of a class template specialization that is implicitly instantiated,
9512 e.g.:
9513 template<class T>
9514 struct S
9516 template<class U> struct M {}; //#0
9519 template<>
9520 template<>
9521 struct S<int>::M<char> //#1
9523 int i;
9525 [temp.expl.spec]/4 says this is valid.
9527 In this case, when we write:
9528 S<int>::M<char> m;
9530 M is instantiated from the CLASSTYPE_TI_TEMPLATE of #1, not from
9531 the one of #0.
9533 When we encounter #1, we want to store the partial instantiation
9534 of M (template<class T> S<int>::M<T>) in its CLASSTYPE_TI_TEMPLATE.
9536 For all cases other than this "explicit specialization of member of a
9537 class template", we just want to store the most general template into
9538 the CLASSTYPE_TI_TEMPLATE of M.
9540 This case of "explicit specialization of member of a class template"
9541 only happens when:
9542 1/ the enclosing class is an instantiation of, and therefore not
9543 the same as, the context of the most general template, and
9544 2/ we aren't looking at the partial instantiation itself, i.e.
9545 the innermost arguments are not the same as the innermost parms of
9546 the most general template.
9548 So it's only when 1/ and 2/ happens that we want to use the partial
9549 instantiation of the member template in lieu of its most general
9550 template. */
9552 if (PRIMARY_TEMPLATE_P (gen_tmpl)
9553 && TMPL_ARGS_HAVE_MULTIPLE_LEVELS (arglist)
9554 /* the enclosing class must be an instantiation... */
9555 && CLASS_TYPE_P (context)
9556 && !same_type_p (context, DECL_CONTEXT (gen_tmpl)))
9558 TREE_VEC_LENGTH (arglist)--;
9559 ++processing_template_decl;
9560 tree tinfo = TYPE_TEMPLATE_INFO_MAYBE_ALIAS (TREE_TYPE (gen_tmpl));
9561 tree partial_inst_args =
9562 tsubst (INNERMOST_TEMPLATE_ARGS (TI_ARGS (tinfo)),
9563 arglist, complain, NULL_TREE);
9564 --processing_template_decl;
9565 TREE_VEC_LENGTH (arglist)++;
9566 if (partial_inst_args == error_mark_node)
9567 return error_mark_node;
9568 use_partial_inst_tmpl =
9569 /*...and we must not be looking at the partial instantiation
9570 itself. */
9571 !comp_template_args (INNERMOST_TEMPLATE_ARGS (arglist),
9572 partial_inst_args);
9575 if (!use_partial_inst_tmpl)
9576 /* This case is easy; there are no member templates involved. */
9577 found = gen_tmpl;
9578 else
9580 /* This is a full instantiation of a member template. Find
9581 the partial instantiation of which this is an instance. */
9583 /* Temporarily reduce by one the number of levels in the ARGLIST
9584 so as to avoid comparing the last set of arguments. */
9585 TREE_VEC_LENGTH (arglist)--;
9586 found = tsubst (gen_tmpl, arglist, complain, NULL_TREE);
9587 TREE_VEC_LENGTH (arglist)++;
9588 /* FOUND is either a proper class type, or an alias
9589 template specialization. In the later case, it's a
9590 TYPE_DECL, resulting from the substituting of arguments
9591 for parameters in the TYPE_DECL of the alias template
9592 done earlier. So be careful while getting the template
9593 of FOUND. */
9594 found = (TREE_CODE (found) == TEMPLATE_DECL
9595 ? found
9596 : (TREE_CODE (found) == TYPE_DECL
9597 ? DECL_TI_TEMPLATE (found)
9598 : CLASSTYPE_TI_TEMPLATE (found)));
9601 // Build template info for the new specialization.
9602 SET_TYPE_TEMPLATE_INFO (t, build_template_info (found, arglist));
9604 elt.spec = t;
9605 slot = type_specializations->find_slot_with_hash (&elt, hash, INSERT);
9606 entry = ggc_alloc<spec_entry> ();
9607 *entry = elt;
9608 *slot = entry;
9610 /* Note this use of the partial instantiation so we can check it
9611 later in maybe_process_partial_specialization. */
9612 DECL_TEMPLATE_INSTANTIATIONS (found)
9613 = tree_cons (arglist, t,
9614 DECL_TEMPLATE_INSTANTIATIONS (found));
9616 if (TREE_CODE (template_type) == ENUMERAL_TYPE && !is_dependent_type
9617 && !DECL_ALIAS_TEMPLATE_P (gen_tmpl))
9618 /* Now that the type has been registered on the instantiations
9619 list, we set up the enumerators. Because the enumeration
9620 constants may involve the enumeration type itself, we make
9621 sure to register the type first, and then create the
9622 constants. That way, doing tsubst_expr for the enumeration
9623 constants won't result in recursive calls here; we'll find
9624 the instantiation and exit above. */
9625 tsubst_enum (template_type, t, arglist);
9627 if (CLASS_TYPE_P (template_type) && is_dependent_type)
9628 /* If the type makes use of template parameters, the
9629 code that generates debugging information will crash. */
9630 DECL_IGNORED_P (TYPE_MAIN_DECL (t)) = 1;
9632 /* Possibly limit visibility based on template args. */
9633 TREE_PUBLIC (type_decl) = 1;
9634 determine_visibility (type_decl);
9636 inherit_targ_abi_tags (t);
9638 return t;
9642 /* Wrapper for lookup_template_class_1. */
9644 tree
9645 lookup_template_class (tree d1, tree arglist, tree in_decl, tree context,
9646 int entering_scope, tsubst_flags_t complain)
9648 tree ret;
9649 timevar_push (TV_TEMPLATE_INST);
9650 ret = lookup_template_class_1 (d1, arglist, in_decl, context,
9651 entering_scope, complain);
9652 timevar_pop (TV_TEMPLATE_INST);
9653 return ret;
9656 /* Return a TEMPLATE_ID_EXPR for the given variable template and ARGLIST. */
9658 tree
9659 lookup_template_variable (tree templ, tree arglist)
9661 /* The type of the expression is NULL_TREE since the template-id could refer
9662 to an explicit or partial specialization. */
9663 tree type = NULL_TREE;
9664 if (flag_concepts && variable_concept_p (templ))
9665 /* Except that concepts are always bool. */
9666 type = boolean_type_node;
9667 return build2 (TEMPLATE_ID_EXPR, type, templ, arglist);
9670 /* Instantiate a variable declaration from a TEMPLATE_ID_EXPR for use. */
9672 tree
9673 finish_template_variable (tree var, tsubst_flags_t complain)
9675 tree templ = TREE_OPERAND (var, 0);
9676 tree arglist = TREE_OPERAND (var, 1);
9678 /* We never want to return a VAR_DECL for a variable concept, since they
9679 aren't instantiated. In a template, leave the TEMPLATE_ID_EXPR alone. */
9680 bool concept_p = flag_concepts && variable_concept_p (templ);
9681 if (concept_p && processing_template_decl)
9682 return var;
9684 tree tmpl_args = DECL_TI_ARGS (DECL_TEMPLATE_RESULT (templ));
9685 arglist = add_outermost_template_args (tmpl_args, arglist);
9687 templ = most_general_template (templ);
9688 tree parms = DECL_TEMPLATE_PARMS (templ);
9689 arglist = coerce_innermost_template_parms (parms, arglist, templ, complain,
9690 /*req_all*/true,
9691 /*use_default*/true);
9693 if (flag_concepts && !constraints_satisfied_p (templ, arglist))
9695 if (complain & tf_error)
9697 error ("use of invalid variable template %qE", var);
9698 diagnose_constraints (location_of (var), templ, arglist);
9700 return error_mark_node;
9703 /* If a template-id refers to a specialization of a variable
9704 concept, then the expression is true if and only if the
9705 concept's constraints are satisfied by the given template
9706 arguments.
9708 NOTE: This is an extension of Concepts Lite TS that
9709 allows constraints to be used in expressions. */
9710 if (concept_p)
9712 tree decl = DECL_TEMPLATE_RESULT (templ);
9713 return evaluate_variable_concept (decl, arglist);
9716 return instantiate_template (templ, arglist, complain);
9719 /* Construct a TEMPLATE_ID_EXPR for the given variable template TEMPL having
9720 TARGS template args, and instantiate it if it's not dependent. */
9722 tree
9723 lookup_and_finish_template_variable (tree templ, tree targs,
9724 tsubst_flags_t complain)
9726 templ = lookup_template_variable (templ, targs);
9727 if (!any_dependent_template_arguments_p (targs))
9729 templ = finish_template_variable (templ, complain);
9730 mark_used (templ);
9733 return convert_from_reference (templ);
9737 struct pair_fn_data
9739 tree_fn_t fn;
9740 tree_fn_t any_fn;
9741 void *data;
9742 /* True when we should also visit template parameters that occur in
9743 non-deduced contexts. */
9744 bool include_nondeduced_p;
9745 hash_set<tree> *visited;
9748 /* Called from for_each_template_parm via walk_tree. */
9750 static tree
9751 for_each_template_parm_r (tree *tp, int *walk_subtrees, void *d)
9753 tree t = *tp;
9754 struct pair_fn_data *pfd = (struct pair_fn_data *) d;
9755 tree_fn_t fn = pfd->fn;
9756 void *data = pfd->data;
9757 tree result = NULL_TREE;
9759 #define WALK_SUBTREE(NODE) \
9760 do \
9762 result = for_each_template_parm (NODE, fn, data, pfd->visited, \
9763 pfd->include_nondeduced_p, \
9764 pfd->any_fn); \
9765 if (result) goto out; \
9767 while (0)
9769 if (pfd->any_fn && (*pfd->any_fn)(t, data))
9770 return t;
9772 if (TYPE_P (t)
9773 && (pfd->include_nondeduced_p || TREE_CODE (t) != TYPENAME_TYPE))
9774 WALK_SUBTREE (TYPE_CONTEXT (t));
9776 switch (TREE_CODE (t))
9778 case RECORD_TYPE:
9779 if (TYPE_PTRMEMFUNC_P (t))
9780 break;
9781 /* Fall through. */
9783 case UNION_TYPE:
9784 case ENUMERAL_TYPE:
9785 if (!TYPE_TEMPLATE_INFO (t))
9786 *walk_subtrees = 0;
9787 else
9788 WALK_SUBTREE (TYPE_TI_ARGS (t));
9789 break;
9791 case INTEGER_TYPE:
9792 WALK_SUBTREE (TYPE_MIN_VALUE (t));
9793 WALK_SUBTREE (TYPE_MAX_VALUE (t));
9794 break;
9796 case METHOD_TYPE:
9797 /* Since we're not going to walk subtrees, we have to do this
9798 explicitly here. */
9799 WALK_SUBTREE (TYPE_METHOD_BASETYPE (t));
9800 /* Fall through. */
9802 case FUNCTION_TYPE:
9803 /* Check the return type. */
9804 WALK_SUBTREE (TREE_TYPE (t));
9806 /* Check the parameter types. Since default arguments are not
9807 instantiated until they are needed, the TYPE_ARG_TYPES may
9808 contain expressions that involve template parameters. But,
9809 no-one should be looking at them yet. And, once they're
9810 instantiated, they don't contain template parameters, so
9811 there's no point in looking at them then, either. */
9813 tree parm;
9815 for (parm = TYPE_ARG_TYPES (t); parm; parm = TREE_CHAIN (parm))
9816 WALK_SUBTREE (TREE_VALUE (parm));
9818 /* Since we've already handled the TYPE_ARG_TYPES, we don't
9819 want walk_tree walking into them itself. */
9820 *walk_subtrees = 0;
9823 if (flag_noexcept_type)
9825 tree spec = TYPE_RAISES_EXCEPTIONS (t);
9826 if (spec)
9827 WALK_SUBTREE (TREE_PURPOSE (spec));
9829 break;
9831 case TYPEOF_TYPE:
9832 case DECLTYPE_TYPE:
9833 case UNDERLYING_TYPE:
9834 if (pfd->include_nondeduced_p
9835 && for_each_template_parm (TYPE_VALUES_RAW (t), fn, data,
9836 pfd->visited,
9837 pfd->include_nondeduced_p,
9838 pfd->any_fn))
9839 return error_mark_node;
9840 *walk_subtrees = false;
9841 break;
9843 case FUNCTION_DECL:
9844 case VAR_DECL:
9845 if (DECL_LANG_SPECIFIC (t) && DECL_TEMPLATE_INFO (t))
9846 WALK_SUBTREE (DECL_TI_ARGS (t));
9847 /* Fall through. */
9849 case PARM_DECL:
9850 case CONST_DECL:
9851 if (TREE_CODE (t) == CONST_DECL && DECL_TEMPLATE_PARM_P (t))
9852 WALK_SUBTREE (DECL_INITIAL (t));
9853 if (DECL_CONTEXT (t)
9854 && pfd->include_nondeduced_p)
9855 WALK_SUBTREE (DECL_CONTEXT (t));
9856 break;
9858 case BOUND_TEMPLATE_TEMPLATE_PARM:
9859 /* Record template parameters such as `T' inside `TT<T>'. */
9860 WALK_SUBTREE (TYPE_TI_ARGS (t));
9861 /* Fall through. */
9863 case TEMPLATE_TEMPLATE_PARM:
9864 case TEMPLATE_TYPE_PARM:
9865 case TEMPLATE_PARM_INDEX:
9866 if (fn && (*fn)(t, data))
9867 return t;
9868 else if (!fn)
9869 return t;
9870 break;
9872 case TEMPLATE_DECL:
9873 /* A template template parameter is encountered. */
9874 if (DECL_TEMPLATE_TEMPLATE_PARM_P (t))
9875 WALK_SUBTREE (TREE_TYPE (t));
9877 /* Already substituted template template parameter */
9878 *walk_subtrees = 0;
9879 break;
9881 case TYPENAME_TYPE:
9882 /* A template-id in a TYPENAME_TYPE might be a deduced context after
9883 partial instantiation. */
9884 WALK_SUBTREE (TYPENAME_TYPE_FULLNAME (t));
9885 break;
9887 case CONSTRUCTOR:
9888 if (TREE_TYPE (t) && TYPE_PTRMEMFUNC_P (TREE_TYPE (t))
9889 && pfd->include_nondeduced_p)
9890 WALK_SUBTREE (TYPE_PTRMEMFUNC_FN_TYPE (TREE_TYPE (t)));
9891 break;
9893 case INDIRECT_REF:
9894 case COMPONENT_REF:
9895 /* If there's no type, then this thing must be some expression
9896 involving template parameters. */
9897 if (!fn && !TREE_TYPE (t))
9898 return error_mark_node;
9899 break;
9901 case MODOP_EXPR:
9902 case CAST_EXPR:
9903 case IMPLICIT_CONV_EXPR:
9904 case REINTERPRET_CAST_EXPR:
9905 case CONST_CAST_EXPR:
9906 case STATIC_CAST_EXPR:
9907 case DYNAMIC_CAST_EXPR:
9908 case ARROW_EXPR:
9909 case DOTSTAR_EXPR:
9910 case TYPEID_EXPR:
9911 case PSEUDO_DTOR_EXPR:
9912 if (!fn)
9913 return error_mark_node;
9914 break;
9916 default:
9917 break;
9920 #undef WALK_SUBTREE
9922 /* We didn't find any template parameters we liked. */
9923 out:
9924 return result;
9927 /* For each TEMPLATE_TYPE_PARM, TEMPLATE_TEMPLATE_PARM,
9928 BOUND_TEMPLATE_TEMPLATE_PARM or TEMPLATE_PARM_INDEX in T,
9929 call FN with the parameter and the DATA.
9930 If FN returns nonzero, the iteration is terminated, and
9931 for_each_template_parm returns 1. Otherwise, the iteration
9932 continues. If FN never returns a nonzero value, the value
9933 returned by for_each_template_parm is 0. If FN is NULL, it is
9934 considered to be the function which always returns 1.
9936 If INCLUDE_NONDEDUCED_P, then this routine will also visit template
9937 parameters that occur in non-deduced contexts. When false, only
9938 visits those template parameters that can be deduced. */
9940 static tree
9941 for_each_template_parm (tree t, tree_fn_t fn, void* data,
9942 hash_set<tree> *visited,
9943 bool include_nondeduced_p,
9944 tree_fn_t any_fn)
9946 struct pair_fn_data pfd;
9947 tree result;
9949 /* Set up. */
9950 pfd.fn = fn;
9951 pfd.any_fn = any_fn;
9952 pfd.data = data;
9953 pfd.include_nondeduced_p = include_nondeduced_p;
9955 /* Walk the tree. (Conceptually, we would like to walk without
9956 duplicates, but for_each_template_parm_r recursively calls
9957 for_each_template_parm, so we would need to reorganize a fair
9958 bit to use walk_tree_without_duplicates, so we keep our own
9959 visited list.) */
9960 if (visited)
9961 pfd.visited = visited;
9962 else
9963 pfd.visited = new hash_set<tree>;
9964 result = cp_walk_tree (&t,
9965 for_each_template_parm_r,
9966 &pfd,
9967 pfd.visited);
9969 /* Clean up. */
9970 if (!visited)
9972 delete pfd.visited;
9973 pfd.visited = 0;
9976 return result;
9979 /* Returns true if T depends on any template parameter. */
9982 uses_template_parms (tree t)
9984 if (t == NULL_TREE)
9985 return false;
9987 bool dependent_p;
9988 int saved_processing_template_decl;
9990 saved_processing_template_decl = processing_template_decl;
9991 if (!saved_processing_template_decl)
9992 processing_template_decl = 1;
9993 if (TYPE_P (t))
9994 dependent_p = dependent_type_p (t);
9995 else if (TREE_CODE (t) == TREE_VEC)
9996 dependent_p = any_dependent_template_arguments_p (t);
9997 else if (TREE_CODE (t) == TREE_LIST)
9998 dependent_p = (uses_template_parms (TREE_VALUE (t))
9999 || uses_template_parms (TREE_CHAIN (t)));
10000 else if (TREE_CODE (t) == TYPE_DECL)
10001 dependent_p = dependent_type_p (TREE_TYPE (t));
10002 else if (DECL_P (t)
10003 || EXPR_P (t)
10004 || TREE_CODE (t) == TEMPLATE_PARM_INDEX
10005 || TREE_CODE (t) == OVERLOAD
10006 || BASELINK_P (t)
10007 || identifier_p (t)
10008 || TREE_CODE (t) == TRAIT_EXPR
10009 || TREE_CODE (t) == CONSTRUCTOR
10010 || CONSTANT_CLASS_P (t))
10011 dependent_p = (type_dependent_expression_p (t)
10012 || value_dependent_expression_p (t));
10013 else
10015 gcc_assert (t == error_mark_node);
10016 dependent_p = false;
10019 processing_template_decl = saved_processing_template_decl;
10021 return dependent_p;
10024 /* Returns true iff current_function_decl is an incompletely instantiated
10025 template. Useful instead of processing_template_decl because the latter
10026 is set to 0 during instantiate_non_dependent_expr. */
10028 bool
10029 in_template_function (void)
10031 tree fn = current_function_decl;
10032 bool ret;
10033 ++processing_template_decl;
10034 ret = (fn && DECL_LANG_SPECIFIC (fn)
10035 && DECL_TEMPLATE_INFO (fn)
10036 && any_dependent_template_arguments_p (DECL_TI_ARGS (fn)));
10037 --processing_template_decl;
10038 return ret;
10041 /* Returns true if T depends on any template parameter with level LEVEL. */
10043 bool
10044 uses_template_parms_level (tree t, int level)
10046 return for_each_template_parm (t, template_parm_this_level_p, &level, NULL,
10047 /*include_nondeduced_p=*/true);
10050 /* Returns true if the signature of DECL depends on any template parameter from
10051 its enclosing class. */
10053 bool
10054 uses_outer_template_parms (tree decl)
10056 int depth = template_class_depth (CP_DECL_CONTEXT (decl));
10057 if (depth == 0)
10058 return false;
10059 if (for_each_template_parm (TREE_TYPE (decl), template_parm_outer_level,
10060 &depth, NULL, /*include_nondeduced_p=*/true))
10061 return true;
10062 if (PRIMARY_TEMPLATE_P (decl)
10063 && for_each_template_parm (INNERMOST_TEMPLATE_PARMS
10064 (DECL_TEMPLATE_PARMS (decl)),
10065 template_parm_outer_level,
10066 &depth, NULL, /*include_nondeduced_p=*/true))
10067 return true;
10068 tree ci = get_constraints (decl);
10069 if (ci)
10070 ci = CI_ASSOCIATED_CONSTRAINTS (ci);
10071 if (ci && for_each_template_parm (ci, template_parm_outer_level,
10072 &depth, NULL, /*nondeduced*/true))
10073 return true;
10074 return false;
10077 /* Returns TRUE iff INST is an instantiation we don't need to do in an
10078 ill-formed translation unit, i.e. a variable or function that isn't
10079 usable in a constant expression. */
10081 static inline bool
10082 neglectable_inst_p (tree d)
10084 return (d && DECL_P (d)
10085 && !undeduced_auto_decl (d)
10086 && !(TREE_CODE (d) == FUNCTION_DECL ? DECL_DECLARED_CONSTEXPR_P (d)
10087 : decl_maybe_constant_var_p (d)));
10090 /* Returns TRUE iff we should refuse to instantiate DECL because it's
10091 neglectable and instantiated from within an erroneous instantiation. */
10093 static bool
10094 limit_bad_template_recursion (tree decl)
10096 struct tinst_level *lev = current_tinst_level;
10097 int errs = errorcount + sorrycount;
10098 if (lev == NULL || errs == 0 || !neglectable_inst_p (decl))
10099 return false;
10101 for (; lev; lev = lev->next)
10102 if (neglectable_inst_p (lev->maybe_get_node ()))
10103 break;
10105 return (lev && errs > lev->errors);
10108 static int tinst_depth;
10109 extern int max_tinst_depth;
10110 int depth_reached;
10112 static GTY(()) struct tinst_level *last_error_tinst_level;
10114 /* We're starting to instantiate D; record the template instantiation context
10115 at LOC for diagnostics and to restore it later. */
10117 static bool
10118 push_tinst_level_loc (tree tldcl, tree targs, location_t loc)
10120 struct tinst_level *new_level;
10122 if (tinst_depth >= max_tinst_depth)
10124 /* Tell error.c not to try to instantiate any templates. */
10125 at_eof = 2;
10126 fatal_error (input_location,
10127 "template instantiation depth exceeds maximum of %d"
10128 " (use -ftemplate-depth= to increase the maximum)",
10129 max_tinst_depth);
10130 return false;
10133 /* If the current instantiation caused problems, don't let it instantiate
10134 anything else. Do allow deduction substitution and decls usable in
10135 constant expressions. */
10136 if (!targs && limit_bad_template_recursion (tldcl))
10137 return false;
10139 /* When not -quiet, dump template instantiations other than functions, since
10140 announce_function will take care of those. */
10141 if (!quiet_flag && !targs
10142 && TREE_CODE (tldcl) != TREE_LIST
10143 && TREE_CODE (tldcl) != FUNCTION_DECL)
10144 fprintf (stderr, " %s", decl_as_string (tldcl, TFF_DECL_SPECIFIERS));
10146 new_level = tinst_level_freelist ().alloc ();
10147 new_level->tldcl = tldcl;
10148 new_level->targs = targs;
10149 new_level->locus = loc;
10150 new_level->errors = errorcount + sorrycount;
10151 new_level->next = NULL;
10152 new_level->refcount = 0;
10153 set_refcount_ptr (new_level->next, current_tinst_level);
10154 set_refcount_ptr (current_tinst_level, new_level);
10156 ++tinst_depth;
10157 if (GATHER_STATISTICS && (tinst_depth > depth_reached))
10158 depth_reached = tinst_depth;
10160 return true;
10163 /* We're starting substitution of TMPL<ARGS>; record the template
10164 substitution context for diagnostics and to restore it later. */
10166 static bool
10167 push_tinst_level (tree tmpl, tree args)
10169 return push_tinst_level_loc (tmpl, args, input_location);
10172 /* We're starting to instantiate D; record INPUT_LOCATION and the
10173 template instantiation context for diagnostics and to restore it
10174 later. */
10176 bool
10177 push_tinst_level (tree d)
10179 return push_tinst_level_loc (d, input_location);
10182 /* Likewise, but record LOC as the program location. */
10184 bool
10185 push_tinst_level_loc (tree d, location_t loc)
10187 gcc_assert (TREE_CODE (d) != TREE_LIST);
10188 return push_tinst_level_loc (d, NULL, loc);
10191 /* We're done instantiating this template; return to the instantiation
10192 context. */
10194 void
10195 pop_tinst_level (void)
10197 /* Restore the filename and line number stashed away when we started
10198 this instantiation. */
10199 input_location = current_tinst_level->locus;
10200 set_refcount_ptr (current_tinst_level, current_tinst_level->next);
10201 --tinst_depth;
10204 /* We're instantiating a deferred template; restore the template
10205 instantiation context in which the instantiation was requested, which
10206 is one step out from LEVEL. Return the corresponding DECL or TYPE. */
10208 static tree
10209 reopen_tinst_level (struct tinst_level *level)
10211 struct tinst_level *t;
10213 tinst_depth = 0;
10214 for (t = level; t; t = t->next)
10215 ++tinst_depth;
10217 set_refcount_ptr (current_tinst_level, level);
10218 pop_tinst_level ();
10219 if (current_tinst_level)
10220 current_tinst_level->errors = errorcount+sorrycount;
10221 return level->maybe_get_node ();
10224 /* Returns the TINST_LEVEL which gives the original instantiation
10225 context. */
10227 struct tinst_level *
10228 outermost_tinst_level (void)
10230 struct tinst_level *level = current_tinst_level;
10231 if (level)
10232 while (level->next)
10233 level = level->next;
10234 return level;
10237 /* DECL is a friend FUNCTION_DECL or TEMPLATE_DECL. ARGS is the
10238 vector of template arguments, as for tsubst.
10240 Returns an appropriate tsubst'd friend declaration. */
10242 static tree
10243 tsubst_friend_function (tree decl, tree args)
10245 tree new_friend;
10247 if (TREE_CODE (decl) == FUNCTION_DECL
10248 && DECL_TEMPLATE_INSTANTIATION (decl)
10249 && TREE_CODE (DECL_TI_TEMPLATE (decl)) != TEMPLATE_DECL)
10250 /* This was a friend declared with an explicit template
10251 argument list, e.g.:
10253 friend void f<>(T);
10255 to indicate that f was a template instantiation, not a new
10256 function declaration. Now, we have to figure out what
10257 instantiation of what template. */
10259 tree template_id, arglist, fns;
10260 tree new_args;
10261 tree tmpl;
10262 tree ns = decl_namespace_context (TYPE_MAIN_DECL (current_class_type));
10264 /* Friend functions are looked up in the containing namespace scope.
10265 We must enter that scope, to avoid finding member functions of the
10266 current class with same name. */
10267 push_nested_namespace (ns);
10268 fns = tsubst_expr (DECL_TI_TEMPLATE (decl), args,
10269 tf_warning_or_error, NULL_TREE,
10270 /*integral_constant_expression_p=*/false);
10271 pop_nested_namespace (ns);
10272 arglist = tsubst (DECL_TI_ARGS (decl), args,
10273 tf_warning_or_error, NULL_TREE);
10274 template_id = lookup_template_function (fns, arglist);
10276 new_friend = tsubst (decl, args, tf_warning_or_error, NULL_TREE);
10277 tmpl = determine_specialization (template_id, new_friend,
10278 &new_args,
10279 /*need_member_template=*/0,
10280 TREE_VEC_LENGTH (args),
10281 tsk_none);
10282 return instantiate_template (tmpl, new_args, tf_error);
10285 new_friend = tsubst (decl, args, tf_warning_or_error, NULL_TREE);
10287 /* The NEW_FRIEND will look like an instantiation, to the
10288 compiler, but is not an instantiation from the point of view of
10289 the language. For example, we might have had:
10291 template <class T> struct S {
10292 template <class U> friend void f(T, U);
10295 Then, in S<int>, template <class U> void f(int, U) is not an
10296 instantiation of anything. */
10297 if (new_friend == error_mark_node)
10298 return error_mark_node;
10300 DECL_USE_TEMPLATE (new_friend) = 0;
10301 if (TREE_CODE (decl) == TEMPLATE_DECL)
10303 DECL_USE_TEMPLATE (DECL_TEMPLATE_RESULT (new_friend)) = 0;
10304 DECL_SAVED_TREE (DECL_TEMPLATE_RESULT (new_friend))
10305 = DECL_SAVED_TREE (DECL_TEMPLATE_RESULT (decl));
10308 /* The mangled name for the NEW_FRIEND is incorrect. The function
10309 is not a template instantiation and should not be mangled like
10310 one. Therefore, we forget the mangling here; we'll recompute it
10311 later if we need it. */
10312 if (TREE_CODE (new_friend) != TEMPLATE_DECL)
10314 SET_DECL_RTL (new_friend, NULL);
10315 SET_DECL_ASSEMBLER_NAME (new_friend, NULL_TREE);
10318 if (DECL_NAMESPACE_SCOPE_P (new_friend))
10320 tree old_decl;
10321 tree new_friend_template_info;
10322 tree new_friend_result_template_info;
10323 tree ns;
10324 int new_friend_is_defn;
10326 /* We must save some information from NEW_FRIEND before calling
10327 duplicate decls since that function will free NEW_FRIEND if
10328 possible. */
10329 new_friend_template_info = DECL_TEMPLATE_INFO (new_friend);
10330 new_friend_is_defn =
10331 (DECL_INITIAL (DECL_TEMPLATE_RESULT
10332 (template_for_substitution (new_friend)))
10333 != NULL_TREE);
10334 if (TREE_CODE (new_friend) == TEMPLATE_DECL)
10336 /* This declaration is a `primary' template. */
10337 DECL_PRIMARY_TEMPLATE (new_friend) = new_friend;
10339 new_friend_result_template_info
10340 = DECL_TEMPLATE_INFO (DECL_TEMPLATE_RESULT (new_friend));
10342 else
10343 new_friend_result_template_info = NULL_TREE;
10345 /* Inside pushdecl_namespace_level, we will push into the
10346 current namespace. However, the friend function should go
10347 into the namespace of the template. */
10348 ns = decl_namespace_context (new_friend);
10349 push_nested_namespace (ns);
10350 old_decl = pushdecl_namespace_level (new_friend, /*is_friend=*/true);
10351 pop_nested_namespace (ns);
10353 if (old_decl == error_mark_node)
10354 return error_mark_node;
10356 if (old_decl != new_friend)
10358 /* This new friend declaration matched an existing
10359 declaration. For example, given:
10361 template <class T> void f(T);
10362 template <class U> class C {
10363 template <class T> friend void f(T) {}
10366 the friend declaration actually provides the definition
10367 of `f', once C has been instantiated for some type. So,
10368 old_decl will be the out-of-class template declaration,
10369 while new_friend is the in-class definition.
10371 But, if `f' was called before this point, the
10372 instantiation of `f' will have DECL_TI_ARGS corresponding
10373 to `T' but not to `U', references to which might appear
10374 in the definition of `f'. Previously, the most general
10375 template for an instantiation of `f' was the out-of-class
10376 version; now it is the in-class version. Therefore, we
10377 run through all specialization of `f', adding to their
10378 DECL_TI_ARGS appropriately. In particular, they need a
10379 new set of outer arguments, corresponding to the
10380 arguments for this class instantiation.
10382 The same situation can arise with something like this:
10384 friend void f(int);
10385 template <class T> class C {
10386 friend void f(T) {}
10389 when `C<int>' is instantiated. Now, `f(int)' is defined
10390 in the class. */
10392 if (!new_friend_is_defn)
10393 /* On the other hand, if the in-class declaration does
10394 *not* provide a definition, then we don't want to alter
10395 existing definitions. We can just leave everything
10396 alone. */
10398 else
10400 tree new_template = TI_TEMPLATE (new_friend_template_info);
10401 tree new_args = TI_ARGS (new_friend_template_info);
10403 /* Overwrite whatever template info was there before, if
10404 any, with the new template information pertaining to
10405 the declaration. */
10406 DECL_TEMPLATE_INFO (old_decl) = new_friend_template_info;
10408 if (TREE_CODE (old_decl) != TEMPLATE_DECL)
10410 /* We should have called reregister_specialization in
10411 duplicate_decls. */
10412 gcc_assert (retrieve_specialization (new_template,
10413 new_args, 0)
10414 == old_decl);
10416 /* Instantiate it if the global has already been used. */
10417 if (DECL_ODR_USED (old_decl))
10418 instantiate_decl (old_decl, /*defer_ok=*/true,
10419 /*expl_inst_class_mem_p=*/false);
10421 else
10423 tree t;
10425 /* Indicate that the old function template is a partial
10426 instantiation. */
10427 DECL_TEMPLATE_INFO (DECL_TEMPLATE_RESULT (old_decl))
10428 = new_friend_result_template_info;
10430 gcc_assert (new_template
10431 == most_general_template (new_template));
10432 gcc_assert (new_template != old_decl);
10434 /* Reassign any specializations already in the hash table
10435 to the new more general template, and add the
10436 additional template args. */
10437 for (t = DECL_TEMPLATE_INSTANTIATIONS (old_decl);
10438 t != NULL_TREE;
10439 t = TREE_CHAIN (t))
10441 tree spec = TREE_VALUE (t);
10442 spec_entry elt;
10444 elt.tmpl = old_decl;
10445 elt.args = DECL_TI_ARGS (spec);
10446 elt.spec = NULL_TREE;
10448 decl_specializations->remove_elt (&elt);
10450 DECL_TI_ARGS (spec)
10451 = add_outermost_template_args (new_args,
10452 DECL_TI_ARGS (spec));
10454 register_specialization
10455 (spec, new_template, DECL_TI_ARGS (spec), true, 0);
10458 DECL_TEMPLATE_INSTANTIATIONS (old_decl) = NULL_TREE;
10462 /* The information from NEW_FRIEND has been merged into OLD_DECL
10463 by duplicate_decls. */
10464 new_friend = old_decl;
10467 else
10469 tree context = DECL_CONTEXT (new_friend);
10470 bool dependent_p;
10472 /* In the code
10473 template <class T> class C {
10474 template <class U> friend void C1<U>::f (); // case 1
10475 friend void C2<T>::f (); // case 2
10477 we only need to make sure CONTEXT is a complete type for
10478 case 2. To distinguish between the two cases, we note that
10479 CONTEXT of case 1 remains dependent type after tsubst while
10480 this isn't true for case 2. */
10481 ++processing_template_decl;
10482 dependent_p = dependent_type_p (context);
10483 --processing_template_decl;
10485 if (!dependent_p
10486 && !complete_type_or_else (context, NULL_TREE))
10487 return error_mark_node;
10489 if (COMPLETE_TYPE_P (context))
10491 tree fn = new_friend;
10492 /* do_friend adds the TEMPLATE_DECL for any member friend
10493 template even if it isn't a member template, i.e.
10494 template <class T> friend A<T>::f();
10495 Look through it in that case. */
10496 if (TREE_CODE (fn) == TEMPLATE_DECL
10497 && !PRIMARY_TEMPLATE_P (fn))
10498 fn = DECL_TEMPLATE_RESULT (fn);
10499 /* Check to see that the declaration is really present, and,
10500 possibly obtain an improved declaration. */
10501 fn = check_classfn (context, fn, NULL_TREE);
10503 if (fn)
10504 new_friend = fn;
10508 return new_friend;
10511 /* FRIEND_TMPL is a friend TEMPLATE_DECL. ARGS is the vector of
10512 template arguments, as for tsubst.
10514 Returns an appropriate tsubst'd friend type or error_mark_node on
10515 failure. */
10517 static tree
10518 tsubst_friend_class (tree friend_tmpl, tree args)
10520 tree tmpl;
10522 if (DECL_TEMPLATE_TEMPLATE_PARM_P (friend_tmpl))
10524 tmpl = tsubst (TREE_TYPE (friend_tmpl), args, tf_none, NULL_TREE);
10525 return TREE_TYPE (tmpl);
10528 tree context = CP_DECL_CONTEXT (friend_tmpl);
10529 if (TREE_CODE (context) == NAMESPACE_DECL)
10530 push_nested_namespace (context);
10531 else
10532 push_nested_class (context);
10534 tmpl = lookup_name_real (DECL_NAME (friend_tmpl), /*prefer_type=*/false,
10535 /*non_class=*/false, /*block_p=*/false,
10536 /*namespaces_only=*/false, LOOKUP_HIDDEN);
10538 if (tmpl && DECL_CLASS_TEMPLATE_P (tmpl))
10540 /* The friend template has already been declared. Just
10541 check to see that the declarations match, and install any new
10542 default parameters. We must tsubst the default parameters,
10543 of course. We only need the innermost template parameters
10544 because that is all that redeclare_class_template will look
10545 at. */
10546 if (TMPL_PARMS_DEPTH (DECL_TEMPLATE_PARMS (friend_tmpl))
10547 > TMPL_ARGS_DEPTH (args))
10549 tree parms = tsubst_template_parms (DECL_TEMPLATE_PARMS (friend_tmpl),
10550 args, tf_warning_or_error);
10551 location_t saved_input_location = input_location;
10552 input_location = DECL_SOURCE_LOCATION (friend_tmpl);
10553 tree cons = get_constraints (tmpl);
10554 redeclare_class_template (TREE_TYPE (tmpl), parms, cons);
10555 input_location = saved_input_location;
10558 else
10560 /* The friend template has not already been declared. In this
10561 case, the instantiation of the template class will cause the
10562 injection of this template into the namespace scope. */
10563 tmpl = tsubst (friend_tmpl, args, tf_warning_or_error, NULL_TREE);
10565 if (tmpl != error_mark_node)
10567 /* The new TMPL is not an instantiation of anything, so we
10568 forget its origins. We don't reset CLASSTYPE_TI_TEMPLATE
10569 for the new type because that is supposed to be the
10570 corresponding template decl, i.e., TMPL. */
10571 DECL_USE_TEMPLATE (tmpl) = 0;
10572 DECL_TEMPLATE_INFO (tmpl) = NULL_TREE;
10573 CLASSTYPE_USE_TEMPLATE (TREE_TYPE (tmpl)) = 0;
10574 CLASSTYPE_TI_ARGS (TREE_TYPE (tmpl))
10575 = INNERMOST_TEMPLATE_ARGS (CLASSTYPE_TI_ARGS (TREE_TYPE (tmpl)));
10577 /* It is hidden. */
10578 retrofit_lang_decl (DECL_TEMPLATE_RESULT (tmpl));
10579 DECL_ANTICIPATED (tmpl)
10580 = DECL_ANTICIPATED (DECL_TEMPLATE_RESULT (tmpl)) = true;
10582 /* Inject this template into the enclosing namspace scope. */
10583 tmpl = pushdecl_namespace_level (tmpl, true);
10587 if (TREE_CODE (context) == NAMESPACE_DECL)
10588 pop_nested_namespace (context);
10589 else
10590 pop_nested_class ();
10592 return TREE_TYPE (tmpl);
10595 /* Returns zero if TYPE cannot be completed later due to circularity.
10596 Otherwise returns one. */
10598 static int
10599 can_complete_type_without_circularity (tree type)
10601 if (type == NULL_TREE || type == error_mark_node)
10602 return 0;
10603 else if (COMPLETE_TYPE_P (type))
10604 return 1;
10605 else if (TREE_CODE (type) == ARRAY_TYPE)
10606 return can_complete_type_without_circularity (TREE_TYPE (type));
10607 else if (CLASS_TYPE_P (type)
10608 && TYPE_BEING_DEFINED (TYPE_MAIN_VARIANT (type)))
10609 return 0;
10610 else
10611 return 1;
10614 static tree tsubst_omp_clauses (tree, enum c_omp_region_type, tree,
10615 tsubst_flags_t, tree);
10617 /* Instantiate a single dependent attribute T (a TREE_LIST), and return either
10618 T or a new TREE_LIST, possibly a chain in the case of a pack expansion. */
10620 static tree
10621 tsubst_attribute (tree t, tree *decl_p, tree args,
10622 tsubst_flags_t complain, tree in_decl)
10624 gcc_assert (ATTR_IS_DEPENDENT (t));
10626 tree val = TREE_VALUE (t);
10627 if (val == NULL_TREE)
10628 /* Nothing to do. */;
10629 else if ((flag_openmp || flag_openmp_simd)
10630 && is_attribute_p ("omp declare simd",
10631 get_attribute_name (t)))
10633 tree clauses = TREE_VALUE (val);
10634 clauses = tsubst_omp_clauses (clauses, C_ORT_OMP_DECLARE_SIMD, args,
10635 complain, in_decl);
10636 c_omp_declare_simd_clauses_to_decls (*decl_p, clauses);
10637 clauses = finish_omp_clauses (clauses, C_ORT_OMP_DECLARE_SIMD);
10638 tree parms = DECL_ARGUMENTS (*decl_p);
10639 clauses
10640 = c_omp_declare_simd_clauses_to_numbers (parms, clauses);
10641 if (clauses)
10642 val = build_tree_list (NULL_TREE, clauses);
10643 else
10644 val = NULL_TREE;
10646 /* If the first attribute argument is an identifier, don't
10647 pass it through tsubst. Attributes like mode, format,
10648 cleanup and several target specific attributes expect it
10649 unmodified. */
10650 else if (attribute_takes_identifier_p (get_attribute_name (t)))
10652 tree chain
10653 = tsubst_expr (TREE_CHAIN (val), args, complain, in_decl,
10654 /*integral_constant_expression_p=*/false);
10655 if (chain != TREE_CHAIN (val))
10656 val = tree_cons (NULL_TREE, TREE_VALUE (val), chain);
10658 else if (PACK_EXPANSION_P (val))
10660 /* An attribute pack expansion. */
10661 tree purp = TREE_PURPOSE (t);
10662 tree pack = tsubst_pack_expansion (val, args, complain, in_decl);
10663 if (pack == error_mark_node)
10664 return error_mark_node;
10665 int len = TREE_VEC_LENGTH (pack);
10666 tree list = NULL_TREE;
10667 tree *q = &list;
10668 for (int i = 0; i < len; ++i)
10670 tree elt = TREE_VEC_ELT (pack, i);
10671 *q = build_tree_list (purp, elt);
10672 q = &TREE_CHAIN (*q);
10674 return list;
10676 else
10677 val = tsubst_expr (val, args, complain, in_decl,
10678 /*integral_constant_expression_p=*/false);
10680 if (val != TREE_VALUE (t))
10681 return build_tree_list (TREE_PURPOSE (t), val);
10682 return t;
10685 /* Instantiate any dependent attributes in ATTRIBUTES, returning either it
10686 unchanged or a new TREE_LIST chain. */
10688 static tree
10689 tsubst_attributes (tree attributes, tree args,
10690 tsubst_flags_t complain, tree in_decl)
10692 tree last_dep = NULL_TREE;
10694 for (tree t = attributes; t; t = TREE_CHAIN (t))
10695 if (ATTR_IS_DEPENDENT (t))
10697 last_dep = t;
10698 attributes = copy_list (attributes);
10699 break;
10702 if (last_dep)
10703 for (tree *p = &attributes; *p; )
10705 tree t = *p;
10706 if (ATTR_IS_DEPENDENT (t))
10708 tree subst = tsubst_attribute (t, NULL, args, complain, in_decl);
10709 if (subst != t)
10711 *p = subst;
10712 while (*p)
10713 p = &TREE_CHAIN (*p);
10714 *p = TREE_CHAIN (t);
10715 continue;
10718 p = &TREE_CHAIN (*p);
10721 return attributes;
10724 /* Apply any attributes which had to be deferred until instantiation
10725 time. DECL_P, ATTRIBUTES and ATTR_FLAGS are as cplus_decl_attributes;
10726 ARGS, COMPLAIN, IN_DECL are as tsubst. */
10728 static void
10729 apply_late_template_attributes (tree *decl_p, tree attributes, int attr_flags,
10730 tree args, tsubst_flags_t complain, tree in_decl)
10732 tree last_dep = NULL_TREE;
10733 tree t;
10734 tree *p;
10736 if (attributes == NULL_TREE)
10737 return;
10739 if (DECL_P (*decl_p))
10741 if (TREE_TYPE (*decl_p) == error_mark_node)
10742 return;
10743 p = &DECL_ATTRIBUTES (*decl_p);
10744 /* DECL_ATTRIBUTES comes from copy_node in tsubst_decl, and is identical
10745 to our attributes parameter. */
10746 gcc_assert (*p == attributes);
10748 else
10750 p = &TYPE_ATTRIBUTES (*decl_p);
10751 /* TYPE_ATTRIBUTES was set up (with abi_tag and may_alias) in
10752 lookup_template_class_1, and should be preserved. */
10753 gcc_assert (*p != attributes);
10754 while (*p)
10755 p = &TREE_CHAIN (*p);
10758 for (t = attributes; t; t = TREE_CHAIN (t))
10759 if (ATTR_IS_DEPENDENT (t))
10761 last_dep = t;
10762 attributes = copy_list (attributes);
10763 break;
10766 *p = attributes;
10767 if (last_dep)
10769 tree late_attrs = NULL_TREE;
10770 tree *q = &late_attrs;
10772 for (; *p; )
10774 t = *p;
10775 if (ATTR_IS_DEPENDENT (t))
10777 *p = TREE_CHAIN (t);
10778 TREE_CHAIN (t) = NULL_TREE;
10779 *q = tsubst_attribute (t, decl_p, args, complain, in_decl);
10780 while (*q)
10781 q = &TREE_CHAIN (*q);
10783 else
10784 p = &TREE_CHAIN (t);
10787 cplus_decl_attributes (decl_p, late_attrs, attr_flags);
10791 /* Perform (or defer) access check for typedefs that were referenced
10792 from within the template TMPL code.
10793 This is a subroutine of instantiate_decl and instantiate_class_template.
10794 TMPL is the template to consider and TARGS is the list of arguments of
10795 that template. */
10797 static void
10798 perform_typedefs_access_check (tree tmpl, tree targs)
10800 location_t saved_location;
10801 unsigned i;
10802 qualified_typedef_usage_t *iter;
10804 if (!tmpl
10805 || (!CLASS_TYPE_P (tmpl)
10806 && TREE_CODE (tmpl) != FUNCTION_DECL))
10807 return;
10809 saved_location = input_location;
10810 FOR_EACH_VEC_SAFE_ELT (get_types_needing_access_check (tmpl), i, iter)
10812 tree type_decl = iter->typedef_decl;
10813 tree type_scope = iter->context;
10815 if (!type_decl || !type_scope || !CLASS_TYPE_P (type_scope))
10816 continue;
10818 if (uses_template_parms (type_decl))
10819 type_decl = tsubst (type_decl, targs, tf_error, NULL_TREE);
10820 if (uses_template_parms (type_scope))
10821 type_scope = tsubst (type_scope, targs, tf_error, NULL_TREE);
10823 /* Make access check error messages point to the location
10824 of the use of the typedef. */
10825 input_location = iter->locus;
10826 perform_or_defer_access_check (TYPE_BINFO (type_scope),
10827 type_decl, type_decl,
10828 tf_warning_or_error);
10830 input_location = saved_location;
10833 static tree
10834 instantiate_class_template_1 (tree type)
10836 tree templ, args, pattern, t, member;
10837 tree typedecl;
10838 tree pbinfo;
10839 tree base_list;
10840 unsigned int saved_maximum_field_alignment;
10841 tree fn_context;
10843 if (type == error_mark_node)
10844 return error_mark_node;
10846 if (COMPLETE_OR_OPEN_TYPE_P (type)
10847 || uses_template_parms (type))
10848 return type;
10850 /* Figure out which template is being instantiated. */
10851 templ = most_general_template (CLASSTYPE_TI_TEMPLATE (type));
10852 gcc_assert (TREE_CODE (templ) == TEMPLATE_DECL);
10854 /* Mark the type as in the process of being defined. */
10855 TYPE_BEING_DEFINED (type) = 1;
10857 /* Determine what specialization of the original template to
10858 instantiate. */
10859 t = most_specialized_partial_spec (type, tf_warning_or_error);
10860 if (t == error_mark_node)
10861 return error_mark_node;
10862 else if (t)
10864 /* This TYPE is actually an instantiation of a partial
10865 specialization. We replace the innermost set of ARGS with
10866 the arguments appropriate for substitution. For example,
10867 given:
10869 template <class T> struct S {};
10870 template <class T> struct S<T*> {};
10872 and supposing that we are instantiating S<int*>, ARGS will
10873 presently be {int*} -- but we need {int}. */
10874 pattern = TREE_TYPE (t);
10875 args = TREE_PURPOSE (t);
10877 else
10879 pattern = TREE_TYPE (templ);
10880 args = CLASSTYPE_TI_ARGS (type);
10883 /* If the template we're instantiating is incomplete, then clearly
10884 there's nothing we can do. */
10885 if (!COMPLETE_TYPE_P (pattern))
10887 /* We can try again later. */
10888 TYPE_BEING_DEFINED (type) = 0;
10889 return type;
10892 /* If we've recursively instantiated too many templates, stop. */
10893 if (! push_tinst_level (type))
10894 return type;
10896 /* We may be in the middle of deferred access check. Disable
10897 it now. */
10898 push_deferring_access_checks (dk_no_deferred);
10900 int saved_unevaluated_operand = cp_unevaluated_operand;
10901 int saved_inhibit_evaluation_warnings = c_inhibit_evaluation_warnings;
10903 fn_context = decl_function_context (TYPE_MAIN_DECL (type));
10904 /* Also avoid push_to_top_level for a lambda in an NSDMI. */
10905 if (!fn_context && LAMBDA_TYPE_P (type) && TYPE_CLASS_SCOPE_P (type))
10906 fn_context = error_mark_node;
10907 if (!fn_context)
10908 push_to_top_level ();
10909 else
10911 cp_unevaluated_operand = 0;
10912 c_inhibit_evaluation_warnings = 0;
10914 /* Use #pragma pack from the template context. */
10915 saved_maximum_field_alignment = maximum_field_alignment;
10916 maximum_field_alignment = TYPE_PRECISION (pattern);
10918 SET_CLASSTYPE_INTERFACE_UNKNOWN (type);
10920 /* Set the input location to the most specialized template definition.
10921 This is needed if tsubsting causes an error. */
10922 typedecl = TYPE_MAIN_DECL (pattern);
10923 input_location = DECL_SOURCE_LOCATION (TYPE_NAME (type)) =
10924 DECL_SOURCE_LOCATION (typedecl);
10926 TYPE_PACKED (type) = TYPE_PACKED (pattern);
10927 SET_TYPE_ALIGN (type, TYPE_ALIGN (pattern));
10928 TYPE_USER_ALIGN (type) = TYPE_USER_ALIGN (pattern);
10929 CLASSTYPE_NON_AGGREGATE (type) = CLASSTYPE_NON_AGGREGATE (pattern);
10930 if (ANON_AGGR_TYPE_P (pattern))
10931 SET_ANON_AGGR_TYPE_P (type);
10932 if (CLASSTYPE_VISIBILITY_SPECIFIED (pattern))
10934 CLASSTYPE_VISIBILITY_SPECIFIED (type) = 1;
10935 CLASSTYPE_VISIBILITY (type) = CLASSTYPE_VISIBILITY (pattern);
10936 /* Adjust visibility for template arguments. */
10937 determine_visibility (TYPE_MAIN_DECL (type));
10939 if (CLASS_TYPE_P (type))
10940 CLASSTYPE_FINAL (type) = CLASSTYPE_FINAL (pattern);
10942 pbinfo = TYPE_BINFO (pattern);
10944 /* We should never instantiate a nested class before its enclosing
10945 class; we need to look up the nested class by name before we can
10946 instantiate it, and that lookup should instantiate the enclosing
10947 class. */
10948 gcc_assert (!DECL_CLASS_SCOPE_P (TYPE_MAIN_DECL (pattern))
10949 || COMPLETE_OR_OPEN_TYPE_P (TYPE_CONTEXT (type)));
10951 base_list = NULL_TREE;
10952 if (BINFO_N_BASE_BINFOS (pbinfo))
10954 tree pbase_binfo;
10955 tree pushed_scope;
10956 int i;
10958 /* We must enter the scope containing the type, as that is where
10959 the accessibility of types named in dependent bases are
10960 looked up from. */
10961 pushed_scope = push_scope (CP_TYPE_CONTEXT (type));
10963 /* Substitute into each of the bases to determine the actual
10964 basetypes. */
10965 for (i = 0; BINFO_BASE_ITERATE (pbinfo, i, pbase_binfo); i++)
10967 tree base;
10968 tree access = BINFO_BASE_ACCESS (pbinfo, i);
10969 tree expanded_bases = NULL_TREE;
10970 int idx, len = 1;
10972 if (PACK_EXPANSION_P (BINFO_TYPE (pbase_binfo)))
10974 expanded_bases =
10975 tsubst_pack_expansion (BINFO_TYPE (pbase_binfo),
10976 args, tf_error, NULL_TREE);
10977 if (expanded_bases == error_mark_node)
10978 continue;
10980 len = TREE_VEC_LENGTH (expanded_bases);
10983 for (idx = 0; idx < len; idx++)
10985 if (expanded_bases)
10986 /* Extract the already-expanded base class. */
10987 base = TREE_VEC_ELT (expanded_bases, idx);
10988 else
10989 /* Substitute to figure out the base class. */
10990 base = tsubst (BINFO_TYPE (pbase_binfo), args, tf_error,
10991 NULL_TREE);
10993 if (base == error_mark_node)
10994 continue;
10996 base_list = tree_cons (access, base, base_list);
10997 if (BINFO_VIRTUAL_P (pbase_binfo))
10998 TREE_TYPE (base_list) = integer_type_node;
11002 /* The list is now in reverse order; correct that. */
11003 base_list = nreverse (base_list);
11005 if (pushed_scope)
11006 pop_scope (pushed_scope);
11008 /* Now call xref_basetypes to set up all the base-class
11009 information. */
11010 xref_basetypes (type, base_list);
11012 apply_late_template_attributes (&type, TYPE_ATTRIBUTES (pattern),
11013 (int) ATTR_FLAG_TYPE_IN_PLACE,
11014 args, tf_error, NULL_TREE);
11015 fixup_attribute_variants (type);
11017 /* Now that our base classes are set up, enter the scope of the
11018 class, so that name lookups into base classes, etc. will work
11019 correctly. This is precisely analogous to what we do in
11020 begin_class_definition when defining an ordinary non-template
11021 class, except we also need to push the enclosing classes. */
11022 push_nested_class (type);
11024 /* Now members are processed in the order of declaration. */
11025 for (member = CLASSTYPE_DECL_LIST (pattern);
11026 member; member = TREE_CHAIN (member))
11028 tree t = TREE_VALUE (member);
11030 if (TREE_PURPOSE (member))
11032 if (TYPE_P (t))
11034 if (LAMBDA_TYPE_P (t))
11035 /* A closure type for a lambda in an NSDMI or default argument.
11036 Ignore it; it will be regenerated when needed. */
11037 continue;
11039 /* Build new CLASSTYPE_NESTED_UTDS. */
11041 tree newtag;
11042 bool class_template_p;
11044 class_template_p = (TREE_CODE (t) != ENUMERAL_TYPE
11045 && TYPE_LANG_SPECIFIC (t)
11046 && CLASSTYPE_IS_TEMPLATE (t));
11047 /* If the member is a class template, then -- even after
11048 substitution -- there may be dependent types in the
11049 template argument list for the class. We increment
11050 PROCESSING_TEMPLATE_DECL so that dependent_type_p, as
11051 that function will assume that no types are dependent
11052 when outside of a template. */
11053 if (class_template_p)
11054 ++processing_template_decl;
11055 newtag = tsubst (t, args, tf_error, NULL_TREE);
11056 if (class_template_p)
11057 --processing_template_decl;
11058 if (newtag == error_mark_node)
11059 continue;
11061 if (TREE_CODE (newtag) != ENUMERAL_TYPE)
11063 tree name = TYPE_IDENTIFIER (t);
11065 if (class_template_p)
11066 /* Unfortunately, lookup_template_class sets
11067 CLASSTYPE_IMPLICIT_INSTANTIATION for a partial
11068 instantiation (i.e., for the type of a member
11069 template class nested within a template class.)
11070 This behavior is required for
11071 maybe_process_partial_specialization to work
11072 correctly, but is not accurate in this case;
11073 the TAG is not an instantiation of anything.
11074 (The corresponding TEMPLATE_DECL is an
11075 instantiation, but the TYPE is not.) */
11076 CLASSTYPE_USE_TEMPLATE (newtag) = 0;
11078 /* Now, we call pushtag to put this NEWTAG into the scope of
11079 TYPE. We first set up the IDENTIFIER_TYPE_VALUE to avoid
11080 pushtag calling push_template_decl. We don't have to do
11081 this for enums because it will already have been done in
11082 tsubst_enum. */
11083 if (name)
11084 SET_IDENTIFIER_TYPE_VALUE (name, newtag);
11085 pushtag (name, newtag, /*tag_scope=*/ts_current);
11088 else if (DECL_DECLARES_FUNCTION_P (t))
11090 tree r;
11092 if (TREE_CODE (t) == TEMPLATE_DECL)
11093 ++processing_template_decl;
11094 r = tsubst (t, args, tf_error, NULL_TREE);
11095 if (TREE_CODE (t) == TEMPLATE_DECL)
11096 --processing_template_decl;
11097 set_current_access_from_decl (r);
11098 finish_member_declaration (r);
11099 /* Instantiate members marked with attribute used. */
11100 if (r != error_mark_node && DECL_PRESERVE_P (r))
11101 mark_used (r);
11102 if (TREE_CODE (r) == FUNCTION_DECL
11103 && DECL_OMP_DECLARE_REDUCTION_P (r))
11104 cp_check_omp_declare_reduction (r);
11106 else if ((DECL_CLASS_TEMPLATE_P (t) || DECL_IMPLICIT_TYPEDEF_P (t))
11107 && LAMBDA_TYPE_P (TREE_TYPE (t)))
11108 /* A closure type for a lambda in an NSDMI or default argument.
11109 Ignore it; it will be regenerated when needed. */;
11110 else
11112 /* Build new TYPE_FIELDS. */
11113 if (TREE_CODE (t) == STATIC_ASSERT)
11115 tree condition;
11117 ++c_inhibit_evaluation_warnings;
11118 condition =
11119 tsubst_expr (STATIC_ASSERT_CONDITION (t), args,
11120 tf_warning_or_error, NULL_TREE,
11121 /*integral_constant_expression_p=*/true);
11122 --c_inhibit_evaluation_warnings;
11124 finish_static_assert (condition,
11125 STATIC_ASSERT_MESSAGE (t),
11126 STATIC_ASSERT_SOURCE_LOCATION (t),
11127 /*member_p=*/true);
11129 else if (TREE_CODE (t) != CONST_DECL)
11131 tree r;
11132 tree vec = NULL_TREE;
11133 int len = 1;
11135 /* The file and line for this declaration, to
11136 assist in error message reporting. Since we
11137 called push_tinst_level above, we don't need to
11138 restore these. */
11139 input_location = DECL_SOURCE_LOCATION (t);
11141 if (TREE_CODE (t) == TEMPLATE_DECL)
11142 ++processing_template_decl;
11143 r = tsubst (t, args, tf_warning_or_error, NULL_TREE);
11144 if (TREE_CODE (t) == TEMPLATE_DECL)
11145 --processing_template_decl;
11147 if (TREE_CODE (r) == TREE_VEC)
11149 /* A capture pack became multiple fields. */
11150 vec = r;
11151 len = TREE_VEC_LENGTH (vec);
11154 for (int i = 0; i < len; ++i)
11156 if (vec)
11157 r = TREE_VEC_ELT (vec, i);
11158 if (VAR_P (r))
11160 /* In [temp.inst]:
11162 [t]he initialization (and any associated
11163 side-effects) of a static data member does
11164 not occur unless the static data member is
11165 itself used in a way that requires the
11166 definition of the static data member to
11167 exist.
11169 Therefore, we do not substitute into the
11170 initialized for the static data member here. */
11171 finish_static_data_member_decl
11173 /*init=*/NULL_TREE,
11174 /*init_const_expr_p=*/false,
11175 /*asmspec_tree=*/NULL_TREE,
11176 /*flags=*/0);
11177 /* Instantiate members marked with attribute used. */
11178 if (r != error_mark_node && DECL_PRESERVE_P (r))
11179 mark_used (r);
11181 else if (TREE_CODE (r) == FIELD_DECL)
11183 /* Determine whether R has a valid type and can be
11184 completed later. If R is invalid, then its type
11185 is replaced by error_mark_node. */
11186 tree rtype = TREE_TYPE (r);
11187 if (can_complete_type_without_circularity (rtype))
11188 complete_type (rtype);
11190 if (!complete_or_array_type_p (rtype))
11192 /* If R's type couldn't be completed and
11193 it isn't a flexible array member (whose
11194 type is incomplete by definition) give
11195 an error. */
11196 cxx_incomplete_type_error (r, rtype);
11197 TREE_TYPE (r) = error_mark_node;
11199 else if (TREE_CODE (rtype) == ARRAY_TYPE
11200 && TYPE_DOMAIN (rtype) == NULL_TREE
11201 && (TREE_CODE (type) == UNION_TYPE
11202 || TREE_CODE (type) == QUAL_UNION_TYPE))
11204 error ("flexible array member %qD in union", r);
11205 TREE_TYPE (r) = error_mark_node;
11209 /* If it is a TYPE_DECL for a class-scoped ENUMERAL_TYPE,
11210 such a thing will already have been added to the field
11211 list by tsubst_enum in finish_member_declaration in the
11212 CLASSTYPE_NESTED_UTDS case above. */
11213 if (!(TREE_CODE (r) == TYPE_DECL
11214 && TREE_CODE (TREE_TYPE (r)) == ENUMERAL_TYPE
11215 && DECL_ARTIFICIAL (r)))
11217 set_current_access_from_decl (r);
11218 finish_member_declaration (r);
11224 else
11226 if (TYPE_P (t) || DECL_CLASS_TEMPLATE_P (t)
11227 || DECL_TEMPLATE_TEMPLATE_PARM_P (t))
11229 /* Build new CLASSTYPE_FRIEND_CLASSES. */
11231 tree friend_type = t;
11232 bool adjust_processing_template_decl = false;
11234 if (TREE_CODE (friend_type) == TEMPLATE_DECL)
11236 /* template <class T> friend class C; */
11237 friend_type = tsubst_friend_class (friend_type, args);
11238 adjust_processing_template_decl = true;
11240 else if (TREE_CODE (friend_type) == UNBOUND_CLASS_TEMPLATE)
11242 /* template <class T> friend class C::D; */
11243 friend_type = tsubst (friend_type, args,
11244 tf_warning_or_error, NULL_TREE);
11245 if (TREE_CODE (friend_type) == TEMPLATE_DECL)
11246 friend_type = TREE_TYPE (friend_type);
11247 adjust_processing_template_decl = true;
11249 else if (TREE_CODE (friend_type) == TYPENAME_TYPE
11250 || TREE_CODE (friend_type) == TEMPLATE_TYPE_PARM)
11252 /* This could be either
11254 friend class T::C;
11256 when dependent_type_p is false or
11258 template <class U> friend class T::C;
11260 otherwise. */
11261 /* Bump processing_template_decl in case this is something like
11262 template <class T> friend struct A<T>::B. */
11263 ++processing_template_decl;
11264 friend_type = tsubst (friend_type, args,
11265 tf_warning_or_error, NULL_TREE);
11266 if (dependent_type_p (friend_type))
11267 adjust_processing_template_decl = true;
11268 --processing_template_decl;
11270 else if (TREE_CODE (friend_type) != BOUND_TEMPLATE_TEMPLATE_PARM
11271 && !CLASSTYPE_USE_TEMPLATE (friend_type)
11272 && TYPE_HIDDEN_P (friend_type))
11274 /* friend class C;
11276 where C hasn't been declared yet. Let's lookup name
11277 from namespace scope directly, bypassing any name that
11278 come from dependent base class. */
11279 tree ns = decl_namespace_context (TYPE_MAIN_DECL (friend_type));
11281 /* The call to xref_tag_from_type does injection for friend
11282 classes. */
11283 push_nested_namespace (ns);
11284 friend_type =
11285 xref_tag_from_type (friend_type, NULL_TREE,
11286 /*tag_scope=*/ts_current);
11287 pop_nested_namespace (ns);
11289 else if (uses_template_parms (friend_type))
11290 /* friend class C<T>; */
11291 friend_type = tsubst (friend_type, args,
11292 tf_warning_or_error, NULL_TREE);
11293 /* Otherwise it's
11295 friend class C;
11297 where C is already declared or
11299 friend class C<int>;
11301 We don't have to do anything in these cases. */
11303 if (adjust_processing_template_decl)
11304 /* Trick make_friend_class into realizing that the friend
11305 we're adding is a template, not an ordinary class. It's
11306 important that we use make_friend_class since it will
11307 perform some error-checking and output cross-reference
11308 information. */
11309 ++processing_template_decl;
11311 if (friend_type != error_mark_node)
11312 make_friend_class (type, friend_type, /*complain=*/false);
11314 if (adjust_processing_template_decl)
11315 --processing_template_decl;
11317 else
11319 /* Build new DECL_FRIENDLIST. */
11320 tree r;
11322 /* The file and line for this declaration, to
11323 assist in error message reporting. Since we
11324 called push_tinst_level above, we don't need to
11325 restore these. */
11326 input_location = DECL_SOURCE_LOCATION (t);
11328 if (TREE_CODE (t) == TEMPLATE_DECL)
11330 ++processing_template_decl;
11331 push_deferring_access_checks (dk_no_check);
11334 r = tsubst_friend_function (t, args);
11335 add_friend (type, r, /*complain=*/false);
11336 if (TREE_CODE (t) == TEMPLATE_DECL)
11338 pop_deferring_access_checks ();
11339 --processing_template_decl;
11345 if (fn_context)
11347 /* Restore these before substituting into the lambda capture
11348 initializers. */
11349 cp_unevaluated_operand = saved_unevaluated_operand;
11350 c_inhibit_evaluation_warnings = saved_inhibit_evaluation_warnings;
11353 /* Set the file and line number information to whatever is given for
11354 the class itself. This puts error messages involving generated
11355 implicit functions at a predictable point, and the same point
11356 that would be used for non-template classes. */
11357 input_location = DECL_SOURCE_LOCATION (typedecl);
11359 unreverse_member_declarations (type);
11360 finish_struct_1 (type);
11361 TYPE_BEING_DEFINED (type) = 0;
11363 /* We don't instantiate default arguments for member functions. 14.7.1:
11365 The implicit instantiation of a class template specialization causes
11366 the implicit instantiation of the declarations, but not of the
11367 definitions or default arguments, of the class member functions,
11368 member classes, static data members and member templates.... */
11370 /* Some typedefs referenced from within the template code need to be access
11371 checked at template instantiation time, i.e now. These types were
11372 added to the template at parsing time. Let's get those and perform
11373 the access checks then. */
11374 perform_typedefs_access_check (pattern, args);
11375 perform_deferred_access_checks (tf_warning_or_error);
11376 pop_nested_class ();
11377 maximum_field_alignment = saved_maximum_field_alignment;
11378 if (!fn_context)
11379 pop_from_top_level ();
11380 pop_deferring_access_checks ();
11381 pop_tinst_level ();
11383 /* The vtable for a template class can be emitted in any translation
11384 unit in which the class is instantiated. When there is no key
11385 method, however, finish_struct_1 will already have added TYPE to
11386 the keyed_classes. */
11387 if (TYPE_CONTAINS_VPTR_P (type) && CLASSTYPE_KEY_METHOD (type))
11388 vec_safe_push (keyed_classes, type);
11390 return type;
11393 /* Wrapper for instantiate_class_template_1. */
11395 tree
11396 instantiate_class_template (tree type)
11398 tree ret;
11399 timevar_push (TV_TEMPLATE_INST);
11400 ret = instantiate_class_template_1 (type);
11401 timevar_pop (TV_TEMPLATE_INST);
11402 return ret;
11405 static tree
11406 tsubst_template_arg (tree t, tree args, tsubst_flags_t complain, tree in_decl)
11408 tree r;
11410 if (!t)
11411 r = t;
11412 else if (TYPE_P (t))
11413 r = tsubst (t, args, complain, in_decl);
11414 else
11416 if (!(complain & tf_warning))
11417 ++c_inhibit_evaluation_warnings;
11418 r = tsubst_expr (t, args, complain, in_decl,
11419 /*integral_constant_expression_p=*/true);
11420 if (!(complain & tf_warning))
11421 --c_inhibit_evaluation_warnings;
11423 return r;
11426 /* Given a function parameter pack TMPL_PARM and some function parameters
11427 instantiated from it at *SPEC_P, return a NONTYPE_ARGUMENT_PACK of them
11428 and set *SPEC_P to point at the next point in the list. */
11430 tree
11431 extract_fnparm_pack (tree tmpl_parm, tree *spec_p)
11433 /* Collect all of the extra "packed" parameters into an
11434 argument pack. */
11435 tree parmvec;
11436 tree argpack = make_node (NONTYPE_ARGUMENT_PACK);
11437 tree spec_parm = *spec_p;
11438 int i, len;
11440 for (len = 0; spec_parm; ++len, spec_parm = TREE_CHAIN (spec_parm))
11441 if (tmpl_parm
11442 && !function_parameter_expanded_from_pack_p (spec_parm, tmpl_parm))
11443 break;
11445 /* Fill in PARMVEC and PARMTYPEVEC with all of the parameters. */
11446 parmvec = make_tree_vec (len);
11447 spec_parm = *spec_p;
11448 for (i = 0; i < len; i++, spec_parm = DECL_CHAIN (spec_parm))
11450 tree elt = spec_parm;
11451 if (DECL_PACK_P (elt))
11452 elt = make_pack_expansion (elt);
11453 TREE_VEC_ELT (parmvec, i) = elt;
11456 /* Build the argument packs. */
11457 SET_ARGUMENT_PACK_ARGS (argpack, parmvec);
11458 *spec_p = spec_parm;
11460 return argpack;
11463 /* Give a chain SPEC_PARM of PARM_DECLs, pack them into a
11464 NONTYPE_ARGUMENT_PACK. */
11466 static tree
11467 make_fnparm_pack (tree spec_parm)
11469 return extract_fnparm_pack (NULL_TREE, &spec_parm);
11472 /* Return 1 if the Ith element of the argument pack ARG_PACK is a
11473 pack expansion with no extra args, 2 if it has extra args, or 0
11474 if it is not a pack expansion. */
11476 static int
11477 argument_pack_element_is_expansion_p (tree arg_pack, int i)
11479 tree vec = ARGUMENT_PACK_ARGS (arg_pack);
11480 if (i >= TREE_VEC_LENGTH (vec))
11481 return 0;
11482 tree elt = TREE_VEC_ELT (vec, i);
11483 if (DECL_P (elt))
11484 /* A decl pack is itself an expansion. */
11485 elt = TREE_TYPE (elt);
11486 if (!PACK_EXPANSION_P (elt))
11487 return 0;
11488 if (PACK_EXPANSION_EXTRA_ARGS (elt))
11489 return 2;
11490 return 1;
11494 /* Creates and return an ARGUMENT_PACK_SELECT tree node. */
11496 static tree
11497 make_argument_pack_select (tree arg_pack, unsigned index)
11499 tree aps = make_node (ARGUMENT_PACK_SELECT);
11501 ARGUMENT_PACK_SELECT_FROM_PACK (aps) = arg_pack;
11502 ARGUMENT_PACK_SELECT_INDEX (aps) = index;
11504 return aps;
11507 /* This is a subroutine of tsubst_pack_expansion.
11509 It returns TRUE if we need to use the PACK_EXPANSION_EXTRA_ARGS
11510 mechanism to store the (non complete list of) arguments of the
11511 substitution and return a non substituted pack expansion, in order
11512 to wait for when we have enough arguments to really perform the
11513 substitution. */
11515 static bool
11516 use_pack_expansion_extra_args_p (tree parm_packs,
11517 int arg_pack_len,
11518 bool has_empty_arg)
11520 /* If one pack has an expansion and another pack has a normal
11521 argument or if one pack has an empty argument and an another
11522 one hasn't then tsubst_pack_expansion cannot perform the
11523 substitution and need to fall back on the
11524 PACK_EXPANSION_EXTRA mechanism. */
11525 if (parm_packs == NULL_TREE)
11526 return false;
11527 else if (has_empty_arg)
11528 return true;
11530 bool has_expansion_arg = false;
11531 for (int i = 0 ; i < arg_pack_len; ++i)
11533 bool has_non_expansion_arg = false;
11534 for (tree parm_pack = parm_packs;
11535 parm_pack;
11536 parm_pack = TREE_CHAIN (parm_pack))
11538 tree arg = TREE_VALUE (parm_pack);
11540 int exp = argument_pack_element_is_expansion_p (arg, i);
11541 if (exp == 2)
11542 /* We can't substitute a pack expansion with extra args into
11543 our pattern. */
11544 return true;
11545 else if (exp)
11546 has_expansion_arg = true;
11547 else
11548 has_non_expansion_arg = true;
11551 if (has_expansion_arg && has_non_expansion_arg)
11552 return true;
11554 return false;
11557 /* [temp.variadic]/6 says that:
11559 The instantiation of a pack expansion [...]
11560 produces a list E1,E2, ..., En, where N is the number of elements
11561 in the pack expansion parameters.
11563 This subroutine of tsubst_pack_expansion produces one of these Ei.
11565 PATTERN is the pattern of the pack expansion. PARM_PACKS is a
11566 TREE_LIST in which each TREE_PURPOSE is a parameter pack of
11567 PATTERN, and each TREE_VALUE is its corresponding argument pack.
11568 INDEX is the index 'i' of the element Ei to produce. ARGS,
11569 COMPLAIN, and IN_DECL are the same parameters as for the
11570 tsubst_pack_expansion function.
11572 The function returns the resulting Ei upon successful completion,
11573 or error_mark_node.
11575 Note that this function possibly modifies the ARGS parameter, so
11576 it's the responsibility of the caller to restore it. */
11578 static tree
11579 gen_elem_of_pack_expansion_instantiation (tree pattern,
11580 tree parm_packs,
11581 unsigned index,
11582 tree args /* This parm gets
11583 modified. */,
11584 tsubst_flags_t complain,
11585 tree in_decl)
11587 tree t;
11588 bool ith_elem_is_expansion = false;
11590 /* For each parameter pack, change the substitution of the parameter
11591 pack to the ith argument in its argument pack, then expand the
11592 pattern. */
11593 for (tree pack = parm_packs; pack; pack = TREE_CHAIN (pack))
11595 tree parm = TREE_PURPOSE (pack);
11596 tree arg_pack = TREE_VALUE (pack);
11597 tree aps; /* instance of ARGUMENT_PACK_SELECT. */
11599 ith_elem_is_expansion |=
11600 argument_pack_element_is_expansion_p (arg_pack, index);
11602 /* Select the Ith argument from the pack. */
11603 if (TREE_CODE (parm) == PARM_DECL
11604 || VAR_P (parm)
11605 || TREE_CODE (parm) == FIELD_DECL)
11607 if (index == 0)
11609 aps = make_argument_pack_select (arg_pack, index);
11610 if (!mark_used (parm, complain) && !(complain & tf_error))
11611 return error_mark_node;
11612 register_local_specialization (aps, parm);
11614 else
11615 aps = retrieve_local_specialization (parm);
11617 else
11619 int idx, level;
11620 template_parm_level_and_index (parm, &level, &idx);
11622 if (index == 0)
11624 aps = make_argument_pack_select (arg_pack, index);
11625 /* Update the corresponding argument. */
11626 TMPL_ARG (args, level, idx) = aps;
11628 else
11629 /* Re-use the ARGUMENT_PACK_SELECT. */
11630 aps = TMPL_ARG (args, level, idx);
11632 ARGUMENT_PACK_SELECT_INDEX (aps) = index;
11635 /* Substitute into the PATTERN with the (possibly altered)
11636 arguments. */
11637 if (pattern == in_decl)
11638 /* Expanding a fixed parameter pack from
11639 coerce_template_parameter_pack. */
11640 t = tsubst_decl (pattern, args, complain);
11641 else if (pattern == error_mark_node)
11642 t = error_mark_node;
11643 else if (constraint_p (pattern))
11645 if (processing_template_decl)
11646 t = tsubst_constraint (pattern, args, complain, in_decl);
11647 else
11648 t = (constraints_satisfied_p (pattern, args)
11649 ? boolean_true_node : boolean_false_node);
11651 else if (!TYPE_P (pattern))
11652 t = tsubst_expr (pattern, args, complain, in_decl,
11653 /*integral_constant_expression_p=*/false);
11654 else
11655 t = tsubst (pattern, args, complain, in_decl);
11657 /* If the Ith argument pack element is a pack expansion, then
11658 the Ith element resulting from the substituting is going to
11659 be a pack expansion as well. */
11660 if (ith_elem_is_expansion)
11661 t = make_pack_expansion (t, complain);
11663 return t;
11666 /* When the unexpanded parameter pack in a fold expression expands to an empty
11667 sequence, the value of the expression is as follows; the program is
11668 ill-formed if the operator is not listed in this table.
11670 && true
11671 || false
11672 , void() */
11674 tree
11675 expand_empty_fold (tree t, tsubst_flags_t complain)
11677 tree_code code = (tree_code)TREE_INT_CST_LOW (TREE_OPERAND (t, 0));
11678 if (!FOLD_EXPR_MODIFY_P (t))
11679 switch (code)
11681 case TRUTH_ANDIF_EXPR:
11682 return boolean_true_node;
11683 case TRUTH_ORIF_EXPR:
11684 return boolean_false_node;
11685 case COMPOUND_EXPR:
11686 return void_node;
11687 default:
11688 break;
11691 if (complain & tf_error)
11692 error_at (location_of (t),
11693 "fold of empty expansion over %O", code);
11694 return error_mark_node;
11697 /* Given a fold-expression T and a current LEFT and RIGHT operand,
11698 form an expression that combines the two terms using the
11699 operator of T. */
11701 static tree
11702 fold_expression (tree t, tree left, tree right, tsubst_flags_t complain)
11704 tree op = FOLD_EXPR_OP (t);
11705 tree_code code = (tree_code)TREE_INT_CST_LOW (op);
11707 // Handle compound assignment operators.
11708 if (FOLD_EXPR_MODIFY_P (t))
11709 return build_x_modify_expr (input_location, left, code, right, complain);
11711 switch (code)
11713 case COMPOUND_EXPR:
11714 return build_x_compound_expr (input_location, left, right, complain);
11715 case DOTSTAR_EXPR:
11716 return build_m_component_ref (left, right, complain);
11717 default:
11718 return build_x_binary_op (input_location, code,
11719 left, TREE_CODE (left),
11720 right, TREE_CODE (right),
11721 /*overload=*/NULL,
11722 complain);
11726 /* Substitute ARGS into the pack of a fold expression T. */
11728 static inline tree
11729 tsubst_fold_expr_pack (tree t, tree args, tsubst_flags_t complain, tree in_decl)
11731 return tsubst_pack_expansion (FOLD_EXPR_PACK (t), args, complain, in_decl);
11734 /* Substitute ARGS into the pack of a fold expression T. */
11736 static inline tree
11737 tsubst_fold_expr_init (tree t, tree args, tsubst_flags_t complain, tree in_decl)
11739 return tsubst_expr (FOLD_EXPR_INIT (t), args, complain, in_decl, false);
11742 /* Expand a PACK of arguments into a grouped as left fold.
11743 Given a pack containing elements A0, A1, ..., An and an
11744 operator @, this builds the expression:
11746 ((A0 @ A1) @ A2) ... @ An
11748 Note that PACK must not be empty.
11750 The operator is defined by the original fold expression T. */
11752 static tree
11753 expand_left_fold (tree t, tree pack, tsubst_flags_t complain)
11755 tree left = TREE_VEC_ELT (pack, 0);
11756 for (int i = 1; i < TREE_VEC_LENGTH (pack); ++i)
11758 tree right = TREE_VEC_ELT (pack, i);
11759 left = fold_expression (t, left, right, complain);
11761 return left;
11764 /* Substitute into a unary left fold expression. */
11766 static tree
11767 tsubst_unary_left_fold (tree t, tree args, tsubst_flags_t complain,
11768 tree in_decl)
11770 tree pack = tsubst_fold_expr_pack (t, args, complain, in_decl);
11771 if (pack == error_mark_node)
11772 return error_mark_node;
11773 if (PACK_EXPANSION_P (pack))
11775 tree r = copy_node (t);
11776 FOLD_EXPR_PACK (r) = pack;
11777 return r;
11779 if (TREE_VEC_LENGTH (pack) == 0)
11780 return expand_empty_fold (t, complain);
11781 else
11782 return expand_left_fold (t, pack, complain);
11785 /* Substitute into a binary left fold expression.
11787 Do ths by building a single (non-empty) vector of argumnts and
11788 building the expression from those elements. */
11790 static tree
11791 tsubst_binary_left_fold (tree t, tree args, tsubst_flags_t complain,
11792 tree in_decl)
11794 tree pack = tsubst_fold_expr_pack (t, args, complain, in_decl);
11795 if (pack == error_mark_node)
11796 return error_mark_node;
11797 tree init = tsubst_fold_expr_init (t, args, complain, in_decl);
11798 if (init == error_mark_node)
11799 return error_mark_node;
11801 if (PACK_EXPANSION_P (pack))
11803 tree r = copy_node (t);
11804 FOLD_EXPR_PACK (r) = pack;
11805 FOLD_EXPR_INIT (r) = init;
11806 return r;
11809 tree vec = make_tree_vec (TREE_VEC_LENGTH (pack) + 1);
11810 TREE_VEC_ELT (vec, 0) = init;
11811 for (int i = 0; i < TREE_VEC_LENGTH (pack); ++i)
11812 TREE_VEC_ELT (vec, i + 1) = TREE_VEC_ELT (pack, i);
11814 return expand_left_fold (t, vec, complain);
11817 /* Expand a PACK of arguments into a grouped as right fold.
11818 Given a pack containing elementns A0, A1, ..., and an
11819 operator @, this builds the expression:
11821 A0@ ... (An-2 @ (An-1 @ An))
11823 Note that PACK must not be empty.
11825 The operator is defined by the original fold expression T. */
11827 tree
11828 expand_right_fold (tree t, tree pack, tsubst_flags_t complain)
11830 // Build the expression.
11831 int n = TREE_VEC_LENGTH (pack);
11832 tree right = TREE_VEC_ELT (pack, n - 1);
11833 for (--n; n != 0; --n)
11835 tree left = TREE_VEC_ELT (pack, n - 1);
11836 right = fold_expression (t, left, right, complain);
11838 return right;
11841 /* Substitute into a unary right fold expression. */
11843 static tree
11844 tsubst_unary_right_fold (tree t, tree args, tsubst_flags_t complain,
11845 tree in_decl)
11847 tree pack = tsubst_fold_expr_pack (t, args, complain, in_decl);
11848 if (pack == error_mark_node)
11849 return error_mark_node;
11850 if (PACK_EXPANSION_P (pack))
11852 tree r = copy_node (t);
11853 FOLD_EXPR_PACK (r) = pack;
11854 return r;
11856 if (TREE_VEC_LENGTH (pack) == 0)
11857 return expand_empty_fold (t, complain);
11858 else
11859 return expand_right_fold (t, pack, complain);
11862 /* Substitute into a binary right fold expression.
11864 Do ths by building a single (non-empty) vector of arguments and
11865 building the expression from those elements. */
11867 static tree
11868 tsubst_binary_right_fold (tree t, tree args, tsubst_flags_t complain,
11869 tree in_decl)
11871 tree pack = tsubst_fold_expr_pack (t, args, complain, in_decl);
11872 if (pack == error_mark_node)
11873 return error_mark_node;
11874 tree init = tsubst_fold_expr_init (t, args, complain, in_decl);
11875 if (init == error_mark_node)
11876 return error_mark_node;
11878 if (PACK_EXPANSION_P (pack))
11880 tree r = copy_node (t);
11881 FOLD_EXPR_PACK (r) = pack;
11882 FOLD_EXPR_INIT (r) = init;
11883 return r;
11886 int n = TREE_VEC_LENGTH (pack);
11887 tree vec = make_tree_vec (n + 1);
11888 for (int i = 0; i < n; ++i)
11889 TREE_VEC_ELT (vec, i) = TREE_VEC_ELT (pack, i);
11890 TREE_VEC_ELT (vec, n) = init;
11892 return expand_right_fold (t, vec, complain);
11895 /* Walk through the pattern of a pack expansion, adding everything in
11896 local_specializations to a list. */
11898 struct el_data
11900 hash_set<tree> internal;
11901 tree extra;
11902 tsubst_flags_t complain;
11904 el_data (tsubst_flags_t c)
11905 : extra (NULL_TREE), complain (c) {}
11907 static tree
11908 extract_locals_r (tree *tp, int */*walk_subtrees*/, void *data_)
11910 el_data &data = *reinterpret_cast<el_data*>(data_);
11911 tree *extra = &data.extra;
11912 tsubst_flags_t complain = data.complain;
11914 if (TYPE_P (*tp) && typedef_variant_p (*tp))
11915 /* Remember local typedefs (85214). */
11916 tp = &TYPE_NAME (*tp);
11918 if (TREE_CODE (*tp) == DECL_EXPR)
11919 data.internal.add (DECL_EXPR_DECL (*tp));
11920 else if (tree spec = retrieve_local_specialization (*tp))
11922 if (data.internal.contains (*tp))
11923 /* Don't mess with variables declared within the pattern. */
11924 return NULL_TREE;
11925 if (TREE_CODE (spec) == NONTYPE_ARGUMENT_PACK)
11927 /* Maybe pull out the PARM_DECL for a partial instantiation. */
11928 tree args = ARGUMENT_PACK_ARGS (spec);
11929 if (TREE_VEC_LENGTH (args) == 1)
11931 tree elt = TREE_VEC_ELT (args, 0);
11932 if (PACK_EXPANSION_P (elt))
11933 elt = PACK_EXPANSION_PATTERN (elt);
11934 if (DECL_PACK_P (elt))
11935 spec = elt;
11937 if (TREE_CODE (spec) == NONTYPE_ARGUMENT_PACK)
11939 /* Handle lambda capture here, since we aren't doing any
11940 substitution now, and so tsubst_copy won't call
11941 process_outer_var_ref. */
11942 tree args = ARGUMENT_PACK_ARGS (spec);
11943 int len = TREE_VEC_LENGTH (args);
11944 for (int i = 0; i < len; ++i)
11946 tree arg = TREE_VEC_ELT (args, i);
11947 tree carg = arg;
11948 if (outer_automatic_var_p (arg))
11949 carg = process_outer_var_ref (arg, complain);
11950 if (carg != arg)
11952 /* Make a new NONTYPE_ARGUMENT_PACK of the capture
11953 proxies. */
11954 if (i == 0)
11956 spec = copy_node (spec);
11957 args = copy_node (args);
11958 SET_ARGUMENT_PACK_ARGS (spec, args);
11959 register_local_specialization (spec, *tp);
11961 TREE_VEC_ELT (args, i) = carg;
11966 if (outer_automatic_var_p (spec))
11967 spec = process_outer_var_ref (spec, complain);
11968 *extra = tree_cons (*tp, spec, *extra);
11970 return NULL_TREE;
11972 static tree
11973 extract_local_specs (tree pattern, tsubst_flags_t complain)
11975 el_data data (complain);
11976 cp_walk_tree_without_duplicates (&pattern, extract_locals_r, &data);
11977 return data.extra;
11980 /* Extract any uses of local_specializations from PATTERN and add them to ARGS
11981 for use in PACK_EXPANSION_EXTRA_ARGS. */
11983 tree
11984 build_extra_args (tree pattern, tree args, tsubst_flags_t complain)
11986 tree extra = args;
11987 if (local_specializations)
11988 if (tree locals = extract_local_specs (pattern, complain))
11989 extra = tree_cons (NULL_TREE, extra, locals);
11990 return extra;
11993 /* Apply any local specializations from PACK_EXPANSION_EXTRA_ARGS and add the
11994 normal template args to ARGS. */
11996 tree
11997 add_extra_args (tree extra, tree args)
11999 if (extra && TREE_CODE (extra) == TREE_LIST)
12001 for (tree elt = TREE_CHAIN (extra); elt; elt = TREE_CHAIN (elt))
12003 /* The partial instantiation involved local declarations collected in
12004 extract_local_specs; map from the general template to our local
12005 context. */
12006 tree gen = TREE_PURPOSE (elt);
12007 tree inst = TREE_VALUE (elt);
12008 if (DECL_P (inst))
12009 if (tree local = retrieve_local_specialization (inst))
12010 inst = local;
12011 /* else inst is already a full instantiation of the pack. */
12012 register_local_specialization (inst, gen);
12014 gcc_assert (!TREE_PURPOSE (extra));
12015 extra = TREE_VALUE (extra);
12017 return add_to_template_args (extra, args);
12020 /* Substitute ARGS into T, which is an pack expansion
12021 (i.e. TYPE_PACK_EXPANSION or EXPR_PACK_EXPANSION). Returns a
12022 TREE_VEC with the substituted arguments, a PACK_EXPANSION_* node
12023 (if only a partial substitution could be performed) or
12024 ERROR_MARK_NODE if there was an error. */
12025 tree
12026 tsubst_pack_expansion (tree t, tree args, tsubst_flags_t complain,
12027 tree in_decl)
12029 tree pattern;
12030 tree pack, packs = NULL_TREE;
12031 bool unsubstituted_packs = false;
12032 bool unsubstituted_fn_pack = false;
12033 int i, len = -1;
12034 tree result;
12035 hash_map<tree, tree> *saved_local_specializations = NULL;
12036 bool need_local_specializations = false;
12037 int levels;
12039 gcc_assert (PACK_EXPANSION_P (t));
12040 pattern = PACK_EXPANSION_PATTERN (t);
12042 /* Add in any args remembered from an earlier partial instantiation. */
12043 args = add_extra_args (PACK_EXPANSION_EXTRA_ARGS (t), args);
12045 levels = TMPL_ARGS_DEPTH (args);
12047 /* Determine the argument packs that will instantiate the parameter
12048 packs used in the expansion expression. While we're at it,
12049 compute the number of arguments to be expanded and make sure it
12050 is consistent. */
12051 for (pack = PACK_EXPANSION_PARAMETER_PACKS (t); pack;
12052 pack = TREE_CHAIN (pack))
12054 tree parm_pack = TREE_VALUE (pack);
12055 tree arg_pack = NULL_TREE;
12056 tree orig_arg = NULL_TREE;
12057 int level = 0;
12059 if (TREE_CODE (parm_pack) == BASES)
12061 gcc_assert (parm_pack == pattern);
12062 if (BASES_DIRECT (parm_pack))
12063 return calculate_direct_bases (tsubst_expr (BASES_TYPE (parm_pack),
12064 args, complain,
12065 in_decl, false),
12066 complain);
12067 else
12068 return calculate_bases (tsubst_expr (BASES_TYPE (parm_pack),
12069 args, complain, in_decl,
12070 false), complain);
12072 else if (builtin_pack_call_p (parm_pack))
12074 /* ??? Support use in other patterns. */
12075 gcc_assert (parm_pack == pattern);
12076 return expand_builtin_pack_call (parm_pack, args,
12077 complain, in_decl);
12079 else if (TREE_CODE (parm_pack) == PARM_DECL)
12081 /* We know we have correct local_specializations if this
12082 expansion is at function scope, or if we're dealing with a
12083 local parameter in a requires expression; for the latter,
12084 tsubst_requires_expr set it up appropriately. */
12085 if (PACK_EXPANSION_LOCAL_P (t) || CONSTRAINT_VAR_P (parm_pack))
12086 arg_pack = retrieve_local_specialization (parm_pack);
12087 else
12088 /* We can't rely on local_specializations for a parameter
12089 name used later in a function declaration (such as in a
12090 late-specified return type). Even if it exists, it might
12091 have the wrong value for a recursive call. */
12092 need_local_specializations = true;
12094 if (!arg_pack)
12096 /* This parameter pack was used in an unevaluated context. Just
12097 make a dummy decl, since it's only used for its type. */
12098 ++cp_unevaluated_operand;
12099 arg_pack = tsubst_decl (parm_pack, args, complain);
12100 --cp_unevaluated_operand;
12101 if (arg_pack && DECL_PACK_P (arg_pack))
12102 /* Partial instantiation of the parm_pack, we can't build
12103 up an argument pack yet. */
12104 arg_pack = NULL_TREE;
12105 else
12106 arg_pack = make_fnparm_pack (arg_pack);
12108 else if (argument_pack_element_is_expansion_p (arg_pack, 0))
12109 /* This argument pack isn't fully instantiated yet. We set this
12110 flag rather than clear arg_pack because we do want to do the
12111 optimization below, and we don't want to substitute directly
12112 into the pattern (as that would expose a NONTYPE_ARGUMENT_PACK
12113 where it isn't expected). */
12114 unsubstituted_fn_pack = true;
12116 else if (is_normal_capture_proxy (parm_pack))
12118 arg_pack = retrieve_local_specialization (parm_pack);
12119 if (argument_pack_element_is_expansion_p (arg_pack, 0))
12120 unsubstituted_fn_pack = true;
12122 else
12124 int idx;
12125 template_parm_level_and_index (parm_pack, &level, &idx);
12127 if (level <= levels)
12128 arg_pack = TMPL_ARG (args, level, idx);
12131 orig_arg = arg_pack;
12132 if (arg_pack && TREE_CODE (arg_pack) == ARGUMENT_PACK_SELECT)
12133 arg_pack = ARGUMENT_PACK_SELECT_FROM_PACK (arg_pack);
12135 if (arg_pack && !ARGUMENT_PACK_P (arg_pack))
12136 /* This can only happen if we forget to expand an argument
12137 pack somewhere else. Just return an error, silently. */
12139 result = make_tree_vec (1);
12140 TREE_VEC_ELT (result, 0) = error_mark_node;
12141 return result;
12144 if (arg_pack)
12146 int my_len =
12147 TREE_VEC_LENGTH (ARGUMENT_PACK_ARGS (arg_pack));
12149 /* Don't bother trying to do a partial substitution with
12150 incomplete packs; we'll try again after deduction. */
12151 if (ARGUMENT_PACK_INCOMPLETE_P (arg_pack))
12152 return t;
12154 if (len < 0)
12155 len = my_len;
12156 else if (len != my_len
12157 && !unsubstituted_fn_pack)
12159 if (!(complain & tf_error))
12160 /* Fail quietly. */;
12161 else if (TREE_CODE (t) == TYPE_PACK_EXPANSION)
12162 error ("mismatched argument pack lengths while expanding %qT",
12163 pattern);
12164 else
12165 error ("mismatched argument pack lengths while expanding %qE",
12166 pattern);
12167 return error_mark_node;
12170 /* Keep track of the parameter packs and their corresponding
12171 argument packs. */
12172 packs = tree_cons (parm_pack, arg_pack, packs);
12173 TREE_TYPE (packs) = orig_arg;
12175 else
12177 /* We can't substitute for this parameter pack. We use a flag as
12178 well as the missing_level counter because function parameter
12179 packs don't have a level. */
12180 gcc_assert (processing_template_decl || is_auto (parm_pack));
12181 unsubstituted_packs = true;
12185 /* If the expansion is just T..., return the matching argument pack, unless
12186 we need to call convert_from_reference on all the elements. This is an
12187 important optimization; see c++/68422. */
12188 if (!unsubstituted_packs
12189 && TREE_PURPOSE (packs) == pattern)
12191 tree args = ARGUMENT_PACK_ARGS (TREE_VALUE (packs));
12193 /* If the argument pack is a single pack expansion, pull it out. */
12194 if (TREE_VEC_LENGTH (args) == 1
12195 && pack_expansion_args_count (args))
12196 return TREE_VEC_ELT (args, 0);
12198 /* Types need no adjustment, nor does sizeof..., and if we still have
12199 some pack expansion args we won't do anything yet. */
12200 if (TREE_CODE (t) == TYPE_PACK_EXPANSION
12201 || PACK_EXPANSION_SIZEOF_P (t)
12202 || pack_expansion_args_count (args))
12203 return args;
12204 /* Also optimize expression pack expansions if we can tell that the
12205 elements won't have reference type. */
12206 tree type = TREE_TYPE (pattern);
12207 if (type && TREE_CODE (type) != REFERENCE_TYPE
12208 && !PACK_EXPANSION_P (type)
12209 && !WILDCARD_TYPE_P (type))
12210 return args;
12211 /* Otherwise use the normal path so we get convert_from_reference. */
12214 /* We cannot expand this expansion expression, because we don't have
12215 all of the argument packs we need. */
12216 if (use_pack_expansion_extra_args_p (packs, len, unsubstituted_packs))
12218 /* We got some full packs, but we can't substitute them in until we
12219 have values for all the packs. So remember these until then. */
12221 t = make_pack_expansion (pattern, complain);
12222 PACK_EXPANSION_EXTRA_ARGS (t)
12223 = build_extra_args (pattern, args, complain);
12224 return t;
12226 else if (unsubstituted_packs)
12228 /* There were no real arguments, we're just replacing a parameter
12229 pack with another version of itself. Substitute into the
12230 pattern and return a PACK_EXPANSION_*. The caller will need to
12231 deal with that. */
12232 if (TREE_CODE (t) == EXPR_PACK_EXPANSION)
12233 t = tsubst_expr (pattern, args, complain, in_decl,
12234 /*integral_constant_expression_p=*/false);
12235 else
12236 t = tsubst (pattern, args, complain, in_decl);
12237 t = make_pack_expansion (t, complain);
12238 return t;
12241 gcc_assert (len >= 0);
12243 if (need_local_specializations)
12245 /* We're in a late-specified return type, so create our own local
12246 specializations map; the current map is either NULL or (in the
12247 case of recursive unification) might have bindings that we don't
12248 want to use or alter. */
12249 saved_local_specializations = local_specializations;
12250 local_specializations = new hash_map<tree, tree>;
12253 /* For each argument in each argument pack, substitute into the
12254 pattern. */
12255 result = make_tree_vec (len);
12256 tree elem_args = copy_template_args (args);
12257 for (i = 0; i < len; ++i)
12259 t = gen_elem_of_pack_expansion_instantiation (pattern, packs,
12261 elem_args, complain,
12262 in_decl);
12263 TREE_VEC_ELT (result, i) = t;
12264 if (t == error_mark_node)
12266 result = error_mark_node;
12267 break;
12271 /* Update ARGS to restore the substitution from parameter packs to
12272 their argument packs. */
12273 for (pack = packs; pack; pack = TREE_CHAIN (pack))
12275 tree parm = TREE_PURPOSE (pack);
12277 if (TREE_CODE (parm) == PARM_DECL
12278 || VAR_P (parm)
12279 || TREE_CODE (parm) == FIELD_DECL)
12280 register_local_specialization (TREE_TYPE (pack), parm);
12281 else
12283 int idx, level;
12285 if (TREE_VALUE (pack) == NULL_TREE)
12286 continue;
12288 template_parm_level_and_index (parm, &level, &idx);
12290 /* Update the corresponding argument. */
12291 if (TMPL_ARGS_HAVE_MULTIPLE_LEVELS (args))
12292 TREE_VEC_ELT (TREE_VEC_ELT (args, level -1 ), idx) =
12293 TREE_TYPE (pack);
12294 else
12295 TREE_VEC_ELT (args, idx) = TREE_TYPE (pack);
12299 if (need_local_specializations)
12301 delete local_specializations;
12302 local_specializations = saved_local_specializations;
12305 /* If the dependent pack arguments were such that we end up with only a
12306 single pack expansion again, there's no need to keep it in a TREE_VEC. */
12307 if (len == 1 && TREE_CODE (result) == TREE_VEC
12308 && PACK_EXPANSION_P (TREE_VEC_ELT (result, 0)))
12309 return TREE_VEC_ELT (result, 0);
12311 return result;
12314 /* Given PARM_DECL PARM, find the corresponding PARM_DECL in the template
12315 TMPL. We do this using DECL_PARM_INDEX, which should work even with
12316 parameter packs; all parms generated from a function parameter pack will
12317 have the same DECL_PARM_INDEX. */
12319 tree
12320 get_pattern_parm (tree parm, tree tmpl)
12322 tree pattern = DECL_TEMPLATE_RESULT (tmpl);
12323 tree patparm;
12325 if (DECL_ARTIFICIAL (parm))
12327 for (patparm = DECL_ARGUMENTS (pattern);
12328 patparm; patparm = DECL_CHAIN (patparm))
12329 if (DECL_ARTIFICIAL (patparm)
12330 && DECL_NAME (parm) == DECL_NAME (patparm))
12331 break;
12333 else
12335 patparm = FUNCTION_FIRST_USER_PARM (DECL_TEMPLATE_RESULT (tmpl));
12336 patparm = chain_index (DECL_PARM_INDEX (parm)-1, patparm);
12337 gcc_assert (DECL_PARM_INDEX (patparm)
12338 == DECL_PARM_INDEX (parm));
12341 return patparm;
12344 /* Make an argument pack out of the TREE_VEC VEC. */
12346 static tree
12347 make_argument_pack (tree vec)
12349 tree pack;
12350 tree elt = TREE_VEC_ELT (vec, 0);
12351 if (TYPE_P (elt))
12352 pack = cxx_make_type (TYPE_ARGUMENT_PACK);
12353 else
12355 pack = make_node (NONTYPE_ARGUMENT_PACK);
12356 TREE_CONSTANT (pack) = 1;
12358 SET_ARGUMENT_PACK_ARGS (pack, vec);
12359 return pack;
12362 /* Return an exact copy of template args T that can be modified
12363 independently. */
12365 static tree
12366 copy_template_args (tree t)
12368 if (t == error_mark_node)
12369 return t;
12371 int len = TREE_VEC_LENGTH (t);
12372 tree new_vec = make_tree_vec (len);
12374 for (int i = 0; i < len; ++i)
12376 tree elt = TREE_VEC_ELT (t, i);
12377 if (elt && TREE_CODE (elt) == TREE_VEC)
12378 elt = copy_template_args (elt);
12379 TREE_VEC_ELT (new_vec, i) = elt;
12382 NON_DEFAULT_TEMPLATE_ARGS_COUNT (new_vec)
12383 = NON_DEFAULT_TEMPLATE_ARGS_COUNT (t);
12385 return new_vec;
12388 /* Substitute ARGS into the vector or list of template arguments T. */
12390 static tree
12391 tsubst_template_args (tree t, tree args, tsubst_flags_t complain, tree in_decl)
12393 tree orig_t = t;
12394 int len, need_new = 0, i, expanded_len_adjust = 0, out;
12395 tree *elts;
12397 if (t == error_mark_node)
12398 return error_mark_node;
12400 len = TREE_VEC_LENGTH (t);
12401 elts = XALLOCAVEC (tree, len);
12403 for (i = 0; i < len; i++)
12405 tree orig_arg = TREE_VEC_ELT (t, i);
12406 tree new_arg;
12408 if (TREE_CODE (orig_arg) == TREE_VEC)
12409 new_arg = tsubst_template_args (orig_arg, args, complain, in_decl);
12410 else if (PACK_EXPANSION_P (orig_arg))
12412 /* Substitute into an expansion expression. */
12413 new_arg = tsubst_pack_expansion (orig_arg, args, complain, in_decl);
12415 if (TREE_CODE (new_arg) == TREE_VEC)
12416 /* Add to the expanded length adjustment the number of
12417 expanded arguments. We subtract one from this
12418 measurement, because the argument pack expression
12419 itself is already counted as 1 in
12420 LEN. EXPANDED_LEN_ADJUST can actually be negative, if
12421 the argument pack is empty. */
12422 expanded_len_adjust += TREE_VEC_LENGTH (new_arg) - 1;
12424 else if (ARGUMENT_PACK_P (orig_arg))
12426 /* Substitute into each of the arguments. */
12427 new_arg = TYPE_P (orig_arg)
12428 ? cxx_make_type (TREE_CODE (orig_arg))
12429 : make_node (TREE_CODE (orig_arg));
12431 tree pack_args = tsubst_template_args (ARGUMENT_PACK_ARGS (orig_arg),
12432 args, complain, in_decl);
12433 if (pack_args == error_mark_node)
12434 new_arg = error_mark_node;
12435 else
12436 SET_ARGUMENT_PACK_ARGS (new_arg, pack_args);
12438 if (TREE_CODE (new_arg) == NONTYPE_ARGUMENT_PACK)
12439 TREE_CONSTANT (new_arg) = TREE_CONSTANT (orig_arg);
12441 else
12442 new_arg = tsubst_template_arg (orig_arg, args, complain, in_decl);
12444 if (new_arg == error_mark_node)
12445 return error_mark_node;
12447 elts[i] = new_arg;
12448 if (new_arg != orig_arg)
12449 need_new = 1;
12452 if (!need_new)
12453 return t;
12455 /* Make space for the expanded arguments coming from template
12456 argument packs. */
12457 t = make_tree_vec (len + expanded_len_adjust);
12458 /* ORIG_T can contain TREE_VECs. That happens if ORIG_T contains the
12459 arguments for a member template.
12460 In that case each TREE_VEC in ORIG_T represents a level of template
12461 arguments, and ORIG_T won't carry any non defaulted argument count.
12462 It will rather be the nested TREE_VECs that will carry one.
12463 In other words, ORIG_T carries a non defaulted argument count only
12464 if it doesn't contain any nested TREE_VEC. */
12465 if (NON_DEFAULT_TEMPLATE_ARGS_COUNT (orig_t))
12467 int count = GET_NON_DEFAULT_TEMPLATE_ARGS_COUNT (orig_t);
12468 count += expanded_len_adjust;
12469 SET_NON_DEFAULT_TEMPLATE_ARGS_COUNT (t, count);
12471 for (i = 0, out = 0; i < len; i++)
12473 if ((PACK_EXPANSION_P (TREE_VEC_ELT (orig_t, i))
12474 || ARGUMENT_PACK_P (TREE_VEC_ELT (orig_t, i)))
12475 && TREE_CODE (elts[i]) == TREE_VEC)
12477 int idx;
12479 /* Now expand the template argument pack "in place". */
12480 for (idx = 0; idx < TREE_VEC_LENGTH (elts[i]); idx++, out++)
12481 TREE_VEC_ELT (t, out) = TREE_VEC_ELT (elts[i], idx);
12483 else
12485 TREE_VEC_ELT (t, out) = elts[i];
12486 out++;
12490 return t;
12493 /* Substitute ARGS into one level PARMS of template parameters. */
12495 static tree
12496 tsubst_template_parms_level (tree parms, tree args, tsubst_flags_t complain)
12498 if (parms == error_mark_node)
12499 return error_mark_node;
12501 tree new_vec = make_tree_vec (TREE_VEC_LENGTH (parms));
12503 for (int i = 0; i < TREE_VEC_LENGTH (new_vec); ++i)
12505 tree tuple = TREE_VEC_ELT (parms, i);
12507 if (tuple == error_mark_node)
12508 continue;
12510 TREE_VEC_ELT (new_vec, i) =
12511 tsubst_template_parm (tuple, args, complain);
12514 return new_vec;
12517 /* Return the result of substituting ARGS into the template parameters
12518 given by PARMS. If there are m levels of ARGS and m + n levels of
12519 PARMS, then the result will contain n levels of PARMS. For
12520 example, if PARMS is `template <class T> template <class U>
12521 template <T*, U, class V>' and ARGS is {{int}, {double}} then the
12522 result will be `template <int*, double, class V>'. */
12524 static tree
12525 tsubst_template_parms (tree parms, tree args, tsubst_flags_t complain)
12527 tree r = NULL_TREE;
12528 tree* new_parms;
12530 /* When substituting into a template, we must set
12531 PROCESSING_TEMPLATE_DECL as the template parameters may be
12532 dependent if they are based on one-another, and the dependency
12533 predicates are short-circuit outside of templates. */
12534 ++processing_template_decl;
12536 for (new_parms = &r;
12537 parms && TMPL_PARMS_DEPTH (parms) > TMPL_ARGS_DEPTH (args);
12538 new_parms = &(TREE_CHAIN (*new_parms)),
12539 parms = TREE_CHAIN (parms))
12541 tree new_vec = tsubst_template_parms_level (TREE_VALUE (parms),
12542 args, complain);
12543 *new_parms =
12544 tree_cons (size_int (TMPL_PARMS_DEPTH (parms)
12545 - TMPL_ARGS_DEPTH (args)),
12546 new_vec, NULL_TREE);
12549 --processing_template_decl;
12551 return r;
12554 /* Return the result of substituting ARGS into one template parameter
12555 given by T. T Must be a TREE_LIST which TREE_VALUE is the template
12556 parameter and which TREE_PURPOSE is the default argument of the
12557 template parameter. */
12559 static tree
12560 tsubst_template_parm (tree t, tree args, tsubst_flags_t complain)
12562 tree default_value, parm_decl;
12564 if (args == NULL_TREE
12565 || t == NULL_TREE
12566 || t == error_mark_node)
12567 return t;
12569 gcc_assert (TREE_CODE (t) == TREE_LIST);
12571 default_value = TREE_PURPOSE (t);
12572 parm_decl = TREE_VALUE (t);
12574 parm_decl = tsubst (parm_decl, args, complain, NULL_TREE);
12575 if (TREE_CODE (parm_decl) == PARM_DECL
12576 && invalid_nontype_parm_type_p (TREE_TYPE (parm_decl), complain))
12577 parm_decl = error_mark_node;
12578 default_value = tsubst_template_arg (default_value, args,
12579 complain, NULL_TREE);
12581 return build_tree_list (default_value, parm_decl);
12584 /* Substitute the ARGS into the indicated aggregate (or enumeration)
12585 type T. If T is not an aggregate or enumeration type, it is
12586 handled as if by tsubst. IN_DECL is as for tsubst. If
12587 ENTERING_SCOPE is nonzero, T is the context for a template which
12588 we are presently tsubst'ing. Return the substituted value. */
12590 static tree
12591 tsubst_aggr_type (tree t,
12592 tree args,
12593 tsubst_flags_t complain,
12594 tree in_decl,
12595 int entering_scope)
12597 if (t == NULL_TREE)
12598 return NULL_TREE;
12600 switch (TREE_CODE (t))
12602 case RECORD_TYPE:
12603 if (TYPE_PTRMEMFUNC_P (t))
12604 return tsubst (TYPE_PTRMEMFUNC_FN_TYPE (t), args, complain, in_decl);
12606 /* Fall through. */
12607 case ENUMERAL_TYPE:
12608 case UNION_TYPE:
12609 if (TYPE_TEMPLATE_INFO (t) && uses_template_parms (t))
12611 tree argvec;
12612 tree context;
12613 tree r;
12614 int saved_unevaluated_operand;
12615 int saved_inhibit_evaluation_warnings;
12617 /* In "sizeof(X<I>)" we need to evaluate "I". */
12618 saved_unevaluated_operand = cp_unevaluated_operand;
12619 cp_unevaluated_operand = 0;
12620 saved_inhibit_evaluation_warnings = c_inhibit_evaluation_warnings;
12621 c_inhibit_evaluation_warnings = 0;
12623 /* First, determine the context for the type we are looking
12624 up. */
12625 context = TYPE_CONTEXT (t);
12626 if (context && TYPE_P (context))
12628 context = tsubst_aggr_type (context, args, complain,
12629 in_decl, /*entering_scope=*/1);
12630 /* If context is a nested class inside a class template,
12631 it may still need to be instantiated (c++/33959). */
12632 context = complete_type (context);
12635 /* Then, figure out what arguments are appropriate for the
12636 type we are trying to find. For example, given:
12638 template <class T> struct S;
12639 template <class T, class U> void f(T, U) { S<U> su; }
12641 and supposing that we are instantiating f<int, double>,
12642 then our ARGS will be {int, double}, but, when looking up
12643 S we only want {double}. */
12644 argvec = tsubst_template_args (TYPE_TI_ARGS (t), args,
12645 complain, in_decl);
12646 if (argvec == error_mark_node)
12647 r = error_mark_node;
12648 else
12650 r = lookup_template_class (t, argvec, in_decl, context,
12651 entering_scope, complain);
12652 r = cp_build_qualified_type_real (r, cp_type_quals (t), complain);
12655 cp_unevaluated_operand = saved_unevaluated_operand;
12656 c_inhibit_evaluation_warnings = saved_inhibit_evaluation_warnings;
12658 return r;
12660 else
12661 /* This is not a template type, so there's nothing to do. */
12662 return t;
12664 default:
12665 return tsubst (t, args, complain, in_decl);
12669 static GTY((cache)) tree_cache_map *defarg_inst;
12671 /* Substitute into the default argument ARG (a default argument for
12672 FN), which has the indicated TYPE. */
12674 tree
12675 tsubst_default_argument (tree fn, int parmnum, tree type, tree arg,
12676 tsubst_flags_t complain)
12678 tree saved_class_ptr = NULL_TREE;
12679 tree saved_class_ref = NULL_TREE;
12680 int errs = errorcount + sorrycount;
12682 /* This can happen in invalid code. */
12683 if (TREE_CODE (arg) == DEFAULT_ARG)
12684 return arg;
12686 tree parm = FUNCTION_FIRST_USER_PARM (fn);
12687 parm = chain_index (parmnum, parm);
12688 tree parmtype = TREE_TYPE (parm);
12689 if (DECL_BY_REFERENCE (parm))
12690 parmtype = TREE_TYPE (parmtype);
12691 if (parmtype == error_mark_node)
12692 return error_mark_node;
12694 gcc_assert (same_type_ignoring_top_level_qualifiers_p (type, parmtype));
12696 tree *slot;
12697 if (defarg_inst && (slot = defarg_inst->get (parm)))
12698 return *slot;
12700 /* This default argument came from a template. Instantiate the
12701 default argument here, not in tsubst. In the case of
12702 something like:
12704 template <class T>
12705 struct S {
12706 static T t();
12707 void f(T = t());
12710 we must be careful to do name lookup in the scope of S<T>,
12711 rather than in the current class. */
12712 push_access_scope (fn);
12713 /* The "this" pointer is not valid in a default argument. */
12714 if (cfun)
12716 saved_class_ptr = current_class_ptr;
12717 cp_function_chain->x_current_class_ptr = NULL_TREE;
12718 saved_class_ref = current_class_ref;
12719 cp_function_chain->x_current_class_ref = NULL_TREE;
12722 start_lambda_scope (parm);
12724 push_deferring_access_checks(dk_no_deferred);
12725 /* The default argument expression may cause implicitly defined
12726 member functions to be synthesized, which will result in garbage
12727 collection. We must treat this situation as if we were within
12728 the body of function so as to avoid collecting live data on the
12729 stack. */
12730 ++function_depth;
12731 arg = tsubst_expr (arg, DECL_TI_ARGS (fn),
12732 complain, NULL_TREE,
12733 /*integral_constant_expression_p=*/false);
12734 --function_depth;
12735 pop_deferring_access_checks();
12737 finish_lambda_scope ();
12739 /* Restore the "this" pointer. */
12740 if (cfun)
12742 cp_function_chain->x_current_class_ptr = saved_class_ptr;
12743 cp_function_chain->x_current_class_ref = saved_class_ref;
12746 if (errorcount+sorrycount > errs
12747 && (complain & tf_warning_or_error))
12748 inform (input_location,
12749 " when instantiating default argument for call to %qD", fn);
12751 /* Make sure the default argument is reasonable. */
12752 arg = check_default_argument (type, arg, complain);
12754 pop_access_scope (fn);
12756 if (arg != error_mark_node && !cp_unevaluated_operand)
12758 if (!defarg_inst)
12759 defarg_inst = tree_cache_map::create_ggc (37);
12760 defarg_inst->put (parm, arg);
12763 return arg;
12766 /* Substitute into all the default arguments for FN. */
12768 static void
12769 tsubst_default_arguments (tree fn, tsubst_flags_t complain)
12771 tree arg;
12772 tree tmpl_args;
12774 tmpl_args = DECL_TI_ARGS (fn);
12776 /* If this function is not yet instantiated, we certainly don't need
12777 its default arguments. */
12778 if (uses_template_parms (tmpl_args))
12779 return;
12780 /* Don't do this again for clones. */
12781 if (DECL_CLONED_FUNCTION_P (fn))
12782 return;
12784 int i = 0;
12785 for (arg = TYPE_ARG_TYPES (TREE_TYPE (fn));
12786 arg;
12787 arg = TREE_CHAIN (arg), ++i)
12788 if (TREE_PURPOSE (arg))
12789 TREE_PURPOSE (arg) = tsubst_default_argument (fn, i,
12790 TREE_VALUE (arg),
12791 TREE_PURPOSE (arg),
12792 complain);
12795 /* Subroutine of tsubst_decl for the case when T is a FUNCTION_DECL. */
12797 static tree
12798 tsubst_function_decl (tree t, tree args, tsubst_flags_t complain,
12799 tree lambda_fntype)
12801 tree gen_tmpl, argvec;
12802 hashval_t hash = 0;
12803 tree in_decl = t;
12805 /* Nobody should be tsubst'ing into non-template functions. */
12806 gcc_assert (DECL_TEMPLATE_INFO (t) != NULL_TREE);
12808 if (TREE_CODE (DECL_TI_TEMPLATE (t)) == TEMPLATE_DECL)
12810 /* If T is not dependent, just return it. */
12811 if (!uses_template_parms (DECL_TI_ARGS (t)))
12812 return t;
12814 /* Calculate the most general template of which R is a
12815 specialization. */
12816 gen_tmpl = most_general_template (DECL_TI_TEMPLATE (t));
12818 /* We're substituting a lambda function under tsubst_lambda_expr but not
12819 directly from it; find the matching function we're already inside.
12820 But don't do this if T is a generic lambda with a single level of
12821 template parms, as in that case we're doing a normal instantiation. */
12822 if (LAMBDA_FUNCTION_P (t) && !lambda_fntype
12823 && (!generic_lambda_fn_p (t)
12824 || TMPL_PARMS_DEPTH (DECL_TEMPLATE_PARMS (gen_tmpl)) > 1))
12825 return enclosing_instantiation_of (t);
12827 /* Calculate the complete set of arguments used to
12828 specialize R. */
12829 argvec = tsubst_template_args (DECL_TI_ARGS
12830 (DECL_TEMPLATE_RESULT
12831 (DECL_TI_TEMPLATE (t))),
12832 args, complain, in_decl);
12833 if (argvec == error_mark_node)
12834 return error_mark_node;
12836 /* Check to see if we already have this specialization. */
12837 if (!lambda_fntype)
12839 hash = hash_tmpl_and_args (gen_tmpl, argvec);
12840 if (tree spec = retrieve_specialization (gen_tmpl, argvec, hash))
12841 return spec;
12844 /* We can see more levels of arguments than parameters if
12845 there was a specialization of a member template, like
12846 this:
12848 template <class T> struct S { template <class U> void f(); }
12849 template <> template <class U> void S<int>::f(U);
12851 Here, we'll be substituting into the specialization,
12852 because that's where we can find the code we actually
12853 want to generate, but we'll have enough arguments for
12854 the most general template.
12856 We also deal with the peculiar case:
12858 template <class T> struct S {
12859 template <class U> friend void f();
12861 template <class U> void f() {}
12862 template S<int>;
12863 template void f<double>();
12865 Here, the ARGS for the instantiation of will be {int,
12866 double}. But, we only need as many ARGS as there are
12867 levels of template parameters in CODE_PATTERN. We are
12868 careful not to get fooled into reducing the ARGS in
12869 situations like:
12871 template <class T> struct S { template <class U> void f(U); }
12872 template <class T> template <> void S<T>::f(int) {}
12874 which we can spot because the pattern will be a
12875 specialization in this case. */
12876 int args_depth = TMPL_ARGS_DEPTH (args);
12877 int parms_depth =
12878 TMPL_PARMS_DEPTH (DECL_TEMPLATE_PARMS (DECL_TI_TEMPLATE (t)));
12880 if (args_depth > parms_depth && !DECL_TEMPLATE_SPECIALIZATION (t))
12881 args = get_innermost_template_args (args, parms_depth);
12883 else
12885 /* This special case arises when we have something like this:
12887 template <class T> struct S {
12888 friend void f<int>(int, double);
12891 Here, the DECL_TI_TEMPLATE for the friend declaration
12892 will be an IDENTIFIER_NODE. We are being called from
12893 tsubst_friend_function, and we want only to create a
12894 new decl (R) with appropriate types so that we can call
12895 determine_specialization. */
12896 gen_tmpl = NULL_TREE;
12897 argvec = NULL_TREE;
12900 tree closure = (lambda_fntype ? TYPE_METHOD_BASETYPE (lambda_fntype)
12901 : NULL_TREE);
12902 tree ctx = closure ? closure : DECL_CONTEXT (t);
12903 bool member = ctx && TYPE_P (ctx);
12905 if (member && !closure)
12906 ctx = tsubst_aggr_type (ctx, args,
12907 complain, t, /*entering_scope=*/1);
12909 tree type = (lambda_fntype ? lambda_fntype
12910 : tsubst (TREE_TYPE (t), args,
12911 complain | tf_fndecl_type, in_decl));
12912 if (type == error_mark_node)
12913 return error_mark_node;
12915 /* If we hit excessive deduction depth, the type is bogus even if
12916 it isn't error_mark_node, so don't build a decl. */
12917 if (excessive_deduction_depth)
12918 return error_mark_node;
12920 /* We do NOT check for matching decls pushed separately at this
12921 point, as they may not represent instantiations of this
12922 template, and in any case are considered separate under the
12923 discrete model. */
12924 tree r = copy_decl (t);
12925 DECL_USE_TEMPLATE (r) = 0;
12926 TREE_TYPE (r) = type;
12927 /* Clear out the mangled name and RTL for the instantiation. */
12928 SET_DECL_ASSEMBLER_NAME (r, NULL_TREE);
12929 SET_DECL_RTL (r, NULL);
12930 /* Leave DECL_INITIAL set on deleted instantiations. */
12931 if (!DECL_DELETED_FN (r))
12932 DECL_INITIAL (r) = NULL_TREE;
12933 DECL_CONTEXT (r) = ctx;
12935 /* OpenMP UDRs have the only argument a reference to the declared
12936 type. We want to diagnose if the declared type is a reference,
12937 which is invalid, but as references to references are usually
12938 quietly merged, diagnose it here. */
12939 if (DECL_OMP_DECLARE_REDUCTION_P (t))
12941 tree argtype
12942 = TREE_TYPE (TREE_VALUE (TYPE_ARG_TYPES (TREE_TYPE (t))));
12943 argtype = tsubst (argtype, args, complain, in_decl);
12944 if (TREE_CODE (argtype) == REFERENCE_TYPE)
12945 error_at (DECL_SOURCE_LOCATION (t),
12946 "reference type %qT in "
12947 "%<#pragma omp declare reduction%>", argtype);
12948 if (strchr (IDENTIFIER_POINTER (DECL_NAME (t)), '~') == NULL)
12949 DECL_NAME (r) = omp_reduction_id (ERROR_MARK, DECL_NAME (t),
12950 argtype);
12953 if (member && DECL_CONV_FN_P (r))
12954 /* Type-conversion operator. Reconstruct the name, in
12955 case it's the name of one of the template's parameters. */
12956 DECL_NAME (r) = make_conv_op_name (TREE_TYPE (type));
12958 tree parms = DECL_ARGUMENTS (t);
12959 if (closure)
12960 parms = DECL_CHAIN (parms);
12961 parms = tsubst (parms, args, complain, t);
12962 for (tree parm = parms; parm; parm = DECL_CHAIN (parm))
12963 DECL_CONTEXT (parm) = r;
12964 if (closure)
12966 tree tparm = build_this_parm (r, closure, type_memfn_quals (type));
12967 DECL_CHAIN (tparm) = parms;
12968 parms = tparm;
12970 DECL_ARGUMENTS (r) = parms;
12971 DECL_RESULT (r) = NULL_TREE;
12973 TREE_STATIC (r) = 0;
12974 TREE_PUBLIC (r) = TREE_PUBLIC (t);
12975 DECL_EXTERNAL (r) = 1;
12976 /* If this is an instantiation of a function with internal
12977 linkage, we already know what object file linkage will be
12978 assigned to the instantiation. */
12979 DECL_INTERFACE_KNOWN (r) = !TREE_PUBLIC (r);
12980 DECL_DEFER_OUTPUT (r) = 0;
12981 DECL_CHAIN (r) = NULL_TREE;
12982 DECL_PENDING_INLINE_INFO (r) = 0;
12983 DECL_PENDING_INLINE_P (r) = 0;
12984 DECL_SAVED_TREE (r) = NULL_TREE;
12985 DECL_STRUCT_FUNCTION (r) = NULL;
12986 TREE_USED (r) = 0;
12987 /* We'll re-clone as appropriate in instantiate_template. */
12988 DECL_CLONED_FUNCTION (r) = NULL_TREE;
12990 /* If we aren't complaining now, return on error before we register
12991 the specialization so that we'll complain eventually. */
12992 if ((complain & tf_error) == 0
12993 && IDENTIFIER_ANY_OP_P (DECL_NAME (r))
12994 && !grok_op_properties (r, /*complain=*/false))
12995 return error_mark_node;
12997 /* When instantiating a constrained member, substitute
12998 into the constraints to create a new constraint. */
12999 if (tree ci = get_constraints (t))
13000 if (member)
13002 ci = tsubst_constraint_info (ci, argvec, complain, NULL_TREE);
13003 set_constraints (r, ci);
13006 /* Set up the DECL_TEMPLATE_INFO for R. There's no need to do
13007 this in the special friend case mentioned above where
13008 GEN_TMPL is NULL. */
13009 if (gen_tmpl && !closure)
13011 DECL_TEMPLATE_INFO (r)
13012 = build_template_info (gen_tmpl, argvec);
13013 SET_DECL_IMPLICIT_INSTANTIATION (r);
13015 tree new_r
13016 = register_specialization (r, gen_tmpl, argvec, false, hash);
13017 if (new_r != r)
13018 /* We instantiated this while substituting into
13019 the type earlier (template/friend54.C). */
13020 return new_r;
13022 /* We're not supposed to instantiate default arguments
13023 until they are called, for a template. But, for a
13024 declaration like:
13026 template <class T> void f ()
13027 { extern void g(int i = T()); }
13029 we should do the substitution when the template is
13030 instantiated. We handle the member function case in
13031 instantiate_class_template since the default arguments
13032 might refer to other members of the class. */
13033 if (!member
13034 && !PRIMARY_TEMPLATE_P (gen_tmpl)
13035 && !uses_template_parms (argvec))
13036 tsubst_default_arguments (r, complain);
13038 else
13039 DECL_TEMPLATE_INFO (r) = NULL_TREE;
13041 /* Copy the list of befriending classes. */
13042 for (tree *friends = &DECL_BEFRIENDING_CLASSES (r);
13043 *friends;
13044 friends = &TREE_CHAIN (*friends))
13046 *friends = copy_node (*friends);
13047 TREE_VALUE (*friends)
13048 = tsubst (TREE_VALUE (*friends), args, complain, in_decl);
13051 if (DECL_CONSTRUCTOR_P (r) || DECL_DESTRUCTOR_P (r))
13053 maybe_retrofit_in_chrg (r);
13054 if (DECL_CONSTRUCTOR_P (r) && !grok_ctor_properties (ctx, r))
13055 return error_mark_node;
13056 /* If this is an instantiation of a member template, clone it.
13057 If it isn't, that'll be handled by
13058 clone_constructors_and_destructors. */
13059 if (PRIMARY_TEMPLATE_P (gen_tmpl))
13060 clone_function_decl (r, /*update_methods=*/false);
13062 else if ((complain & tf_error) != 0
13063 && IDENTIFIER_ANY_OP_P (DECL_NAME (r))
13064 && !grok_op_properties (r, /*complain=*/true))
13065 return error_mark_node;
13067 if (DECL_FRIEND_P (t) && DECL_FRIEND_CONTEXT (t))
13068 SET_DECL_FRIEND_CONTEXT (r,
13069 tsubst (DECL_FRIEND_CONTEXT (t),
13070 args, complain, in_decl));
13072 /* Possibly limit visibility based on template args. */
13073 DECL_VISIBILITY (r) = VISIBILITY_DEFAULT;
13074 if (DECL_VISIBILITY_SPECIFIED (t))
13076 DECL_VISIBILITY_SPECIFIED (r) = 0;
13077 DECL_ATTRIBUTES (r)
13078 = remove_attribute ("visibility", DECL_ATTRIBUTES (r));
13080 determine_visibility (r);
13081 if (DECL_DEFAULTED_OUTSIDE_CLASS_P (r)
13082 && !processing_template_decl)
13083 defaulted_late_check (r);
13085 apply_late_template_attributes (&r, DECL_ATTRIBUTES (r), 0,
13086 args, complain, in_decl);
13087 return r;
13090 /* Subroutine of tsubst_decl for the case when T is a TEMPLATE_DECL. */
13092 static tree
13093 tsubst_template_decl (tree t, tree args, tsubst_flags_t complain,
13094 tree lambda_fntype)
13096 /* We can get here when processing a member function template,
13097 member class template, or template template parameter. */
13098 tree decl = DECL_TEMPLATE_RESULT (t);
13099 tree in_decl = t;
13100 tree spec;
13101 tree tmpl_args;
13102 tree full_args;
13103 tree r;
13104 hashval_t hash = 0;
13106 if (DECL_TEMPLATE_TEMPLATE_PARM_P (t))
13108 /* Template template parameter is treated here. */
13109 tree new_type = tsubst (TREE_TYPE (t), args, complain, in_decl);
13110 if (new_type == error_mark_node)
13111 r = error_mark_node;
13112 /* If we get a real template back, return it. This can happen in
13113 the context of most_specialized_partial_spec. */
13114 else if (TREE_CODE (new_type) == TEMPLATE_DECL)
13115 r = new_type;
13116 else
13117 /* The new TEMPLATE_DECL was built in
13118 reduce_template_parm_level. */
13119 r = TEMPLATE_TEMPLATE_PARM_TEMPLATE_DECL (new_type);
13120 return r;
13123 if (!lambda_fntype)
13125 /* We might already have an instance of this template.
13126 The ARGS are for the surrounding class type, so the
13127 full args contain the tsubst'd args for the context,
13128 plus the innermost args from the template decl. */
13129 tmpl_args = DECL_CLASS_TEMPLATE_P (t)
13130 ? CLASSTYPE_TI_ARGS (TREE_TYPE (t))
13131 : DECL_TI_ARGS (DECL_TEMPLATE_RESULT (t));
13132 /* Because this is a template, the arguments will still be
13133 dependent, even after substitution. If
13134 PROCESSING_TEMPLATE_DECL is not set, the dependency
13135 predicates will short-circuit. */
13136 ++processing_template_decl;
13137 full_args = tsubst_template_args (tmpl_args, args,
13138 complain, in_decl);
13139 --processing_template_decl;
13140 if (full_args == error_mark_node)
13141 return error_mark_node;
13143 /* If this is a default template template argument,
13144 tsubst might not have changed anything. */
13145 if (full_args == tmpl_args)
13146 return t;
13148 hash = hash_tmpl_and_args (t, full_args);
13149 spec = retrieve_specialization (t, full_args, hash);
13150 if (spec != NULL_TREE)
13151 return spec;
13154 /* Make a new template decl. It will be similar to the
13155 original, but will record the current template arguments.
13156 We also create a new function declaration, which is just
13157 like the old one, but points to this new template, rather
13158 than the old one. */
13159 r = copy_decl (t);
13160 gcc_assert (DECL_LANG_SPECIFIC (r) != 0);
13161 DECL_CHAIN (r) = NULL_TREE;
13163 // Build new template info linking to the original template decl.
13164 if (!lambda_fntype)
13166 DECL_TEMPLATE_INFO (r) = build_template_info (t, args);
13167 SET_DECL_IMPLICIT_INSTANTIATION (r);
13169 else
13170 DECL_TEMPLATE_INFO (r) = NULL_TREE;
13172 /* The template parameters for this new template are all the
13173 template parameters for the old template, except the
13174 outermost level of parameters. */
13175 DECL_TEMPLATE_PARMS (r)
13176 = tsubst_template_parms (DECL_TEMPLATE_PARMS (t), args,
13177 complain);
13179 if (TREE_CODE (decl) == TYPE_DECL
13180 && !TYPE_DECL_ALIAS_P (decl))
13182 tree new_type;
13183 ++processing_template_decl;
13184 new_type = tsubst (TREE_TYPE (t), args, complain, in_decl);
13185 --processing_template_decl;
13186 if (new_type == error_mark_node)
13187 return error_mark_node;
13189 TREE_TYPE (r) = new_type;
13190 /* For a partial specialization, we need to keep pointing to
13191 the primary template. */
13192 if (!DECL_TEMPLATE_SPECIALIZATION (t))
13193 CLASSTYPE_TI_TEMPLATE (new_type) = r;
13194 DECL_TEMPLATE_RESULT (r) = TYPE_MAIN_DECL (new_type);
13195 DECL_TI_ARGS (r) = CLASSTYPE_TI_ARGS (new_type);
13196 DECL_CONTEXT (r) = TYPE_CONTEXT (new_type);
13198 else
13200 tree new_decl;
13201 ++processing_template_decl;
13202 if (TREE_CODE (decl) == FUNCTION_DECL)
13203 new_decl = tsubst_function_decl (decl, args, complain, lambda_fntype);
13204 else
13205 new_decl = tsubst (decl, args, complain, in_decl);
13206 --processing_template_decl;
13207 if (new_decl == error_mark_node)
13208 return error_mark_node;
13210 DECL_TEMPLATE_RESULT (r) = new_decl;
13211 TREE_TYPE (r) = TREE_TYPE (new_decl);
13212 DECL_CONTEXT (r) = DECL_CONTEXT (new_decl);
13213 if (lambda_fntype)
13215 tree args = template_parms_to_args (DECL_TEMPLATE_PARMS (r));
13216 DECL_TEMPLATE_INFO (new_decl) = build_template_info (r, args);
13218 else
13220 DECL_TI_TEMPLATE (new_decl) = r;
13221 DECL_TI_ARGS (r) = DECL_TI_ARGS (new_decl);
13225 DECL_TEMPLATE_INSTANTIATIONS (r) = NULL_TREE;
13226 DECL_TEMPLATE_SPECIALIZATIONS (r) = NULL_TREE;
13228 if (PRIMARY_TEMPLATE_P (t))
13229 DECL_PRIMARY_TEMPLATE (r) = r;
13231 if (TREE_CODE (decl) != TYPE_DECL && !VAR_P (decl)
13232 && !lambda_fntype)
13233 /* Record this non-type partial instantiation. */
13234 register_specialization (r, t,
13235 DECL_TI_ARGS (DECL_TEMPLATE_RESULT (r)),
13236 false, hash);
13238 return r;
13241 /* True if FN is the op() for a lambda in an uninstantiated template. */
13243 bool
13244 lambda_fn_in_template_p (tree fn)
13246 if (!fn || !LAMBDA_FUNCTION_P (fn))
13247 return false;
13248 tree closure = DECL_CONTEXT (fn);
13249 return CLASSTYPE_TEMPLATE_INFO (closure) != NULL_TREE;
13252 /* We're instantiating a variable from template function TCTX. Return the
13253 corresponding current enclosing scope. This gets complicated because lambda
13254 functions in templates are regenerated rather than instantiated, but generic
13255 lambda functions are subsequently instantiated. */
13257 static tree
13258 enclosing_instantiation_of (tree otctx)
13260 tree tctx = otctx;
13261 tree fn = current_function_decl;
13262 int lambda_count = 0;
13264 for (; tctx && lambda_fn_in_template_p (tctx);
13265 tctx = decl_function_context (tctx))
13266 ++lambda_count;
13267 for (; fn; fn = decl_function_context (fn))
13269 tree ofn = fn;
13270 int flambda_count = 0;
13271 for (; flambda_count < lambda_count && fn && LAMBDA_FUNCTION_P (fn);
13272 fn = decl_function_context (fn))
13273 ++flambda_count;
13274 if ((fn && DECL_TEMPLATE_INFO (fn))
13275 ? most_general_template (fn) != most_general_template (tctx)
13276 : fn != tctx)
13277 continue;
13278 gcc_assert (DECL_NAME (ofn) == DECL_NAME (otctx)
13279 || DECL_CONV_FN_P (ofn));
13280 return ofn;
13282 gcc_unreachable ();
13285 /* Substitute the ARGS into the T, which is a _DECL. Return the
13286 result of the substitution. Issue error and warning messages under
13287 control of COMPLAIN. */
13289 static tree
13290 tsubst_decl (tree t, tree args, tsubst_flags_t complain)
13292 #define RETURN(EXP) do { r = (EXP); goto out; } while(0)
13293 location_t saved_loc;
13294 tree r = NULL_TREE;
13295 tree in_decl = t;
13296 hashval_t hash = 0;
13298 /* Set the filename and linenumber to improve error-reporting. */
13299 saved_loc = input_location;
13300 input_location = DECL_SOURCE_LOCATION (t);
13302 switch (TREE_CODE (t))
13304 case TEMPLATE_DECL:
13305 r = tsubst_template_decl (t, args, complain, /*lambda*/NULL_TREE);
13306 break;
13308 case FUNCTION_DECL:
13309 r = tsubst_function_decl (t, args, complain, /*lambda*/NULL_TREE);
13310 break;
13312 case PARM_DECL:
13314 tree type = NULL_TREE;
13315 int i, len = 1;
13316 tree expanded_types = NULL_TREE;
13317 tree prev_r = NULL_TREE;
13318 tree first_r = NULL_TREE;
13320 if (DECL_PACK_P (t))
13322 /* If there is a local specialization that isn't a
13323 parameter pack, it means that we're doing a "simple"
13324 substitution from inside tsubst_pack_expansion. Just
13325 return the local specialization (which will be a single
13326 parm). */
13327 tree spec = retrieve_local_specialization (t);
13328 if (spec
13329 && TREE_CODE (spec) == PARM_DECL
13330 && TREE_CODE (TREE_TYPE (spec)) != TYPE_PACK_EXPANSION)
13331 RETURN (spec);
13333 /* Expand the TYPE_PACK_EXPANSION that provides the types for
13334 the parameters in this function parameter pack. */
13335 expanded_types = tsubst_pack_expansion (TREE_TYPE (t), args,
13336 complain, in_decl);
13337 if (TREE_CODE (expanded_types) == TREE_VEC)
13339 len = TREE_VEC_LENGTH (expanded_types);
13341 /* Zero-length parameter packs are boring. Just substitute
13342 into the chain. */
13343 if (len == 0)
13344 RETURN (tsubst (TREE_CHAIN (t), args, complain,
13345 TREE_CHAIN (t)));
13347 else
13349 /* All we did was update the type. Make a note of that. */
13350 type = expanded_types;
13351 expanded_types = NULL_TREE;
13355 /* Loop through all of the parameters we'll build. When T is
13356 a function parameter pack, LEN is the number of expanded
13357 types in EXPANDED_TYPES; otherwise, LEN is 1. */
13358 r = NULL_TREE;
13359 for (i = 0; i < len; ++i)
13361 prev_r = r;
13362 r = copy_node (t);
13363 if (DECL_TEMPLATE_PARM_P (t))
13364 SET_DECL_TEMPLATE_PARM_P (r);
13366 if (expanded_types)
13367 /* We're on the Ith parameter of the function parameter
13368 pack. */
13370 /* Get the Ith type. */
13371 type = TREE_VEC_ELT (expanded_types, i);
13373 /* Rename the parameter to include the index. */
13374 DECL_NAME (r)
13375 = make_ith_pack_parameter_name (DECL_NAME (r), i);
13377 else if (!type)
13378 /* We're dealing with a normal parameter. */
13379 type = tsubst (TREE_TYPE (t), args, complain, in_decl);
13381 type = type_decays_to (type);
13382 TREE_TYPE (r) = type;
13383 cp_apply_type_quals_to_decl (cp_type_quals (type), r);
13385 if (DECL_INITIAL (r))
13387 if (TREE_CODE (DECL_INITIAL (r)) != TEMPLATE_PARM_INDEX)
13388 DECL_INITIAL (r) = TREE_TYPE (r);
13389 else
13390 DECL_INITIAL (r) = tsubst (DECL_INITIAL (r), args,
13391 complain, in_decl);
13394 DECL_CONTEXT (r) = NULL_TREE;
13396 if (!DECL_TEMPLATE_PARM_P (r))
13397 DECL_ARG_TYPE (r) = type_passed_as (type);
13399 apply_late_template_attributes (&r, DECL_ATTRIBUTES (r), 0,
13400 args, complain, in_decl);
13402 /* Keep track of the first new parameter we
13403 generate. That's what will be returned to the
13404 caller. */
13405 if (!first_r)
13406 first_r = r;
13408 /* Build a proper chain of parameters when substituting
13409 into a function parameter pack. */
13410 if (prev_r)
13411 DECL_CHAIN (prev_r) = r;
13414 /* If cp_unevaluated_operand is set, we're just looking for a
13415 single dummy parameter, so don't keep going. */
13416 if (DECL_CHAIN (t) && !cp_unevaluated_operand)
13417 DECL_CHAIN (r) = tsubst (DECL_CHAIN (t), args,
13418 complain, DECL_CHAIN (t));
13420 /* FIRST_R contains the start of the chain we've built. */
13421 r = first_r;
13423 break;
13425 case FIELD_DECL:
13427 tree type = NULL_TREE;
13428 tree vec = NULL_TREE;
13429 tree expanded_types = NULL_TREE;
13430 int len = 1;
13432 if (PACK_EXPANSION_P (TREE_TYPE (t)))
13434 /* This field is a lambda capture pack. Return a TREE_VEC of
13435 the expanded fields to instantiate_class_template_1. */
13436 expanded_types = tsubst_pack_expansion (TREE_TYPE (t), args,
13437 complain, in_decl);
13438 if (TREE_CODE (expanded_types) == TREE_VEC)
13440 len = TREE_VEC_LENGTH (expanded_types);
13441 vec = make_tree_vec (len);
13443 else
13445 /* All we did was update the type. Make a note of that. */
13446 type = expanded_types;
13447 expanded_types = NULL_TREE;
13451 for (int i = 0; i < len; ++i)
13453 r = copy_decl (t);
13454 if (expanded_types)
13456 type = TREE_VEC_ELT (expanded_types, i);
13457 DECL_NAME (r)
13458 = make_ith_pack_parameter_name (DECL_NAME (r), i);
13460 else if (!type)
13461 type = tsubst (TREE_TYPE (t), args, complain, in_decl);
13463 if (type == error_mark_node)
13464 RETURN (error_mark_node);
13465 TREE_TYPE (r) = type;
13466 cp_apply_type_quals_to_decl (cp_type_quals (type), r);
13468 if (DECL_C_BIT_FIELD (r))
13469 /* For bit-fields, DECL_BIT_FIELD_REPRESENTATIVE gives the
13470 number of bits. */
13471 DECL_BIT_FIELD_REPRESENTATIVE (r)
13472 = tsubst_expr (DECL_BIT_FIELD_REPRESENTATIVE (t), args,
13473 complain, in_decl,
13474 /*integral_constant_expression_p=*/true);
13475 if (DECL_INITIAL (t))
13477 /* Set up DECL_TEMPLATE_INFO so that we can get at the
13478 NSDMI in perform_member_init. Still set DECL_INITIAL
13479 so that we know there is one. */
13480 DECL_INITIAL (r) = void_node;
13481 gcc_assert (DECL_LANG_SPECIFIC (r) == NULL);
13482 retrofit_lang_decl (r);
13483 DECL_TEMPLATE_INFO (r) = build_template_info (t, args);
13485 /* We don't have to set DECL_CONTEXT here; it is set by
13486 finish_member_declaration. */
13487 DECL_CHAIN (r) = NULL_TREE;
13489 apply_late_template_attributes (&r, DECL_ATTRIBUTES (r), 0,
13490 args, complain, in_decl);
13492 if (vec)
13493 TREE_VEC_ELT (vec, i) = r;
13496 if (vec)
13497 r = vec;
13499 break;
13501 case USING_DECL:
13502 /* We reach here only for member using decls. We also need to check
13503 uses_template_parms because DECL_DEPENDENT_P is not set for a
13504 using-declaration that designates a member of the current
13505 instantiation (c++/53549). */
13506 if (DECL_DEPENDENT_P (t)
13507 || uses_template_parms (USING_DECL_SCOPE (t)))
13509 tree scope = USING_DECL_SCOPE (t);
13510 tree name = tsubst_copy (DECL_NAME (t), args, complain, in_decl);
13511 if (PACK_EXPANSION_P (scope))
13513 tree vec = tsubst_pack_expansion (scope, args, complain, in_decl);
13514 int len = TREE_VEC_LENGTH (vec);
13515 r = make_tree_vec (len);
13516 for (int i = 0; i < len; ++i)
13518 tree escope = TREE_VEC_ELT (vec, i);
13519 tree elt = do_class_using_decl (escope, name);
13520 if (!elt)
13522 r = error_mark_node;
13523 break;
13525 else
13527 TREE_PROTECTED (elt) = TREE_PROTECTED (t);
13528 TREE_PRIVATE (elt) = TREE_PRIVATE (t);
13530 TREE_VEC_ELT (r, i) = elt;
13533 else
13535 tree inst_scope = tsubst_copy (USING_DECL_SCOPE (t), args,
13536 complain, in_decl);
13537 r = do_class_using_decl (inst_scope, name);
13538 if (!r)
13539 r = error_mark_node;
13540 else
13542 TREE_PROTECTED (r) = TREE_PROTECTED (t);
13543 TREE_PRIVATE (r) = TREE_PRIVATE (t);
13547 else
13549 r = copy_node (t);
13550 DECL_CHAIN (r) = NULL_TREE;
13552 break;
13554 case TYPE_DECL:
13555 case VAR_DECL:
13557 tree argvec = NULL_TREE;
13558 tree gen_tmpl = NULL_TREE;
13559 tree spec;
13560 tree tmpl = NULL_TREE;
13561 tree ctx;
13562 tree type = NULL_TREE;
13563 bool local_p;
13565 if (TREE_TYPE (t) == error_mark_node)
13566 RETURN (error_mark_node);
13568 if (TREE_CODE (t) == TYPE_DECL
13569 && t == TYPE_MAIN_DECL (TREE_TYPE (t)))
13571 /* If this is the canonical decl, we don't have to
13572 mess with instantiations, and often we can't (for
13573 typename, template type parms and such). Note that
13574 TYPE_NAME is not correct for the above test if
13575 we've copied the type for a typedef. */
13576 type = tsubst (TREE_TYPE (t), args, complain, in_decl);
13577 if (type == error_mark_node)
13578 RETURN (error_mark_node);
13579 r = TYPE_NAME (type);
13580 break;
13583 /* Check to see if we already have the specialization we
13584 need. */
13585 spec = NULL_TREE;
13586 if (DECL_CLASS_SCOPE_P (t) || DECL_NAMESPACE_SCOPE_P (t))
13588 /* T is a static data member or namespace-scope entity.
13589 We have to substitute into namespace-scope variables
13590 (not just variable templates) because of cases like:
13592 template <class T> void f() { extern T t; }
13594 where the entity referenced is not known until
13595 instantiation time. */
13596 local_p = false;
13597 ctx = DECL_CONTEXT (t);
13598 if (DECL_CLASS_SCOPE_P (t))
13600 ctx = tsubst_aggr_type (ctx, args,
13601 complain,
13602 in_decl, /*entering_scope=*/1);
13603 /* If CTX is unchanged, then T is in fact the
13604 specialization we want. That situation occurs when
13605 referencing a static data member within in its own
13606 class. We can use pointer equality, rather than
13607 same_type_p, because DECL_CONTEXT is always
13608 canonical... */
13609 if (ctx == DECL_CONTEXT (t)
13610 /* ... unless T is a member template; in which
13611 case our caller can be willing to create a
13612 specialization of that template represented
13613 by T. */
13614 && !(DECL_TI_TEMPLATE (t)
13615 && DECL_MEMBER_TEMPLATE_P (DECL_TI_TEMPLATE (t))))
13616 spec = t;
13619 if (!spec)
13621 tmpl = DECL_TI_TEMPLATE (t);
13622 gen_tmpl = most_general_template (tmpl);
13623 argvec = tsubst (DECL_TI_ARGS (t), args, complain, in_decl);
13624 if (argvec != error_mark_node)
13625 argvec = (coerce_innermost_template_parms
13626 (DECL_TEMPLATE_PARMS (gen_tmpl),
13627 argvec, t, complain,
13628 /*all*/true, /*defarg*/true));
13629 if (argvec == error_mark_node)
13630 RETURN (error_mark_node);
13631 hash = hash_tmpl_and_args (gen_tmpl, argvec);
13632 spec = retrieve_specialization (gen_tmpl, argvec, hash);
13635 else
13637 /* A local variable. */
13638 local_p = true;
13639 /* Subsequent calls to pushdecl will fill this in. */
13640 ctx = NULL_TREE;
13641 /* Unless this is a reference to a static variable from an
13642 enclosing function, in which case we need to fill it in now. */
13643 if (TREE_STATIC (t))
13645 tree fn = enclosing_instantiation_of (DECL_CONTEXT (t));
13646 if (fn != current_function_decl)
13647 ctx = fn;
13649 spec = retrieve_local_specialization (t);
13651 /* If we already have the specialization we need, there is
13652 nothing more to do. */
13653 if (spec)
13655 r = spec;
13656 break;
13659 /* Create a new node for the specialization we need. */
13660 r = copy_decl (t);
13661 if (type == NULL_TREE)
13663 if (is_typedef_decl (t))
13664 type = DECL_ORIGINAL_TYPE (t);
13665 else
13666 type = TREE_TYPE (t);
13667 if (VAR_P (t)
13668 && VAR_HAD_UNKNOWN_BOUND (t)
13669 && type != error_mark_node)
13670 type = strip_array_domain (type);
13671 tree sub_args = args;
13672 if (tree auto_node = type_uses_auto (type))
13674 /* Mask off any template args past the variable's context so we
13675 don't replace the auto with an unrelated argument. */
13676 int nouter = TEMPLATE_TYPE_LEVEL (auto_node) - 1;
13677 int extra = TMPL_ARGS_DEPTH (args) - nouter;
13678 if (extra > 0)
13679 /* This should never happen with the new lambda instantiation
13680 model, but keep the handling just in case. */
13681 gcc_assert (!CHECKING_P),
13682 sub_args = strip_innermost_template_args (args, extra);
13684 type = tsubst (type, sub_args, complain, in_decl);
13686 if (VAR_P (r))
13688 DECL_INITIALIZED_P (r) = 0;
13689 DECL_TEMPLATE_INSTANTIATED (r) = 0;
13690 if (type == error_mark_node)
13691 RETURN (error_mark_node);
13692 if (TREE_CODE (type) == FUNCTION_TYPE)
13694 /* It may seem that this case cannot occur, since:
13696 typedef void f();
13697 void g() { f x; }
13699 declares a function, not a variable. However:
13701 typedef void f();
13702 template <typename T> void g() { T t; }
13703 template void g<f>();
13705 is an attempt to declare a variable with function
13706 type. */
13707 error ("variable %qD has function type",
13708 /* R is not yet sufficiently initialized, so we
13709 just use its name. */
13710 DECL_NAME (r));
13711 RETURN (error_mark_node);
13713 type = complete_type (type);
13714 /* Wait until cp_finish_decl to set this again, to handle
13715 circular dependency (template/instantiate6.C). */
13716 DECL_INITIALIZED_BY_CONSTANT_EXPRESSION_P (r) = 0;
13717 type = check_var_type (DECL_NAME (r), type);
13719 if (DECL_HAS_VALUE_EXPR_P (t))
13721 tree ve = DECL_VALUE_EXPR (t);
13722 ve = tsubst_expr (ve, args, complain, in_decl,
13723 /*constant_expression_p=*/false);
13724 if (REFERENCE_REF_P (ve))
13726 gcc_assert (TREE_CODE (type) == REFERENCE_TYPE);
13727 ve = TREE_OPERAND (ve, 0);
13729 SET_DECL_VALUE_EXPR (r, ve);
13731 if (CP_DECL_THREAD_LOCAL_P (r)
13732 && !processing_template_decl)
13733 set_decl_tls_model (r, decl_default_tls_model (r));
13735 else if (DECL_SELF_REFERENCE_P (t))
13736 SET_DECL_SELF_REFERENCE_P (r);
13737 TREE_TYPE (r) = type;
13738 cp_apply_type_quals_to_decl (cp_type_quals (type), r);
13739 DECL_CONTEXT (r) = ctx;
13740 /* Clear out the mangled name and RTL for the instantiation. */
13741 SET_DECL_ASSEMBLER_NAME (r, NULL_TREE);
13742 if (CODE_CONTAINS_STRUCT (TREE_CODE (t), TS_DECL_WRTL))
13743 SET_DECL_RTL (r, NULL);
13744 /* The initializer must not be expanded until it is required;
13745 see [temp.inst]. */
13746 DECL_INITIAL (r) = NULL_TREE;
13747 DECL_SIZE (r) = DECL_SIZE_UNIT (r) = 0;
13748 if (VAR_P (r))
13750 if (DECL_LANG_SPECIFIC (r))
13751 SET_DECL_DEPENDENT_INIT_P (r, false);
13753 SET_DECL_MODE (r, VOIDmode);
13755 /* Possibly limit visibility based on template args. */
13756 DECL_VISIBILITY (r) = VISIBILITY_DEFAULT;
13757 if (DECL_VISIBILITY_SPECIFIED (t))
13759 DECL_VISIBILITY_SPECIFIED (r) = 0;
13760 DECL_ATTRIBUTES (r)
13761 = remove_attribute ("visibility", DECL_ATTRIBUTES (r));
13763 determine_visibility (r);
13766 if (!local_p)
13768 /* A static data member declaration is always marked
13769 external when it is declared in-class, even if an
13770 initializer is present. We mimic the non-template
13771 processing here. */
13772 DECL_EXTERNAL (r) = 1;
13773 if (DECL_NAMESPACE_SCOPE_P (t))
13774 DECL_NOT_REALLY_EXTERN (r) = 1;
13776 DECL_TEMPLATE_INFO (r) = build_template_info (tmpl, argvec);
13777 SET_DECL_IMPLICIT_INSTANTIATION (r);
13778 register_specialization (r, gen_tmpl, argvec, false, hash);
13780 else
13782 if (DECL_LANG_SPECIFIC (r))
13783 DECL_TEMPLATE_INFO (r) = NULL_TREE;
13784 if (!cp_unevaluated_operand)
13785 register_local_specialization (r, t);
13788 DECL_CHAIN (r) = NULL_TREE;
13790 apply_late_template_attributes (&r, DECL_ATTRIBUTES (r),
13791 /*flags=*/0,
13792 args, complain, in_decl);
13794 /* Preserve a typedef that names a type. */
13795 if (is_typedef_decl (r) && type != error_mark_node)
13797 DECL_ORIGINAL_TYPE (r) = NULL_TREE;
13798 set_underlying_type (r);
13799 if (TYPE_DECL_ALIAS_P (r))
13800 /* An alias template specialization can be dependent
13801 even if its underlying type is not. */
13802 TYPE_DEPENDENT_P_VALID (TREE_TYPE (r)) = false;
13805 layout_decl (r, 0);
13807 break;
13809 default:
13810 gcc_unreachable ();
13812 #undef RETURN
13814 out:
13815 /* Restore the file and line information. */
13816 input_location = saved_loc;
13818 return r;
13821 /* Substitute into the ARG_TYPES of a function type.
13822 If END is a TREE_CHAIN, leave it and any following types
13823 un-substituted. */
13825 static tree
13826 tsubst_arg_types (tree arg_types,
13827 tree args,
13828 tree end,
13829 tsubst_flags_t complain,
13830 tree in_decl)
13832 tree remaining_arg_types;
13833 tree type = NULL_TREE;
13834 int i = 1;
13835 tree expanded_args = NULL_TREE;
13836 tree default_arg;
13838 if (!arg_types || arg_types == void_list_node || arg_types == end)
13839 return arg_types;
13841 remaining_arg_types = tsubst_arg_types (TREE_CHAIN (arg_types),
13842 args, end, complain, in_decl);
13843 if (remaining_arg_types == error_mark_node)
13844 return error_mark_node;
13846 if (PACK_EXPANSION_P (TREE_VALUE (arg_types)))
13848 /* For a pack expansion, perform substitution on the
13849 entire expression. Later on, we'll handle the arguments
13850 one-by-one. */
13851 expanded_args = tsubst_pack_expansion (TREE_VALUE (arg_types),
13852 args, complain, in_decl);
13854 if (TREE_CODE (expanded_args) == TREE_VEC)
13855 /* So that we'll spin through the parameters, one by one. */
13856 i = TREE_VEC_LENGTH (expanded_args);
13857 else
13859 /* We only partially substituted into the parameter
13860 pack. Our type is TYPE_PACK_EXPANSION. */
13861 type = expanded_args;
13862 expanded_args = NULL_TREE;
13866 while (i > 0) {
13867 --i;
13869 if (expanded_args)
13870 type = TREE_VEC_ELT (expanded_args, i);
13871 else if (!type)
13872 type = tsubst (TREE_VALUE (arg_types), args, complain, in_decl);
13874 if (type == error_mark_node)
13875 return error_mark_node;
13876 if (VOID_TYPE_P (type))
13878 if (complain & tf_error)
13880 error ("invalid parameter type %qT", type);
13881 if (in_decl)
13882 error ("in declaration %q+D", in_decl);
13884 return error_mark_node;
13886 /* DR 657. */
13887 if (abstract_virtuals_error_sfinae (ACU_PARM, type, complain))
13888 return error_mark_node;
13890 /* Do array-to-pointer, function-to-pointer conversion, and ignore
13891 top-level qualifiers as required. */
13892 type = cv_unqualified (type_decays_to (type));
13894 /* We do not substitute into default arguments here. The standard
13895 mandates that they be instantiated only when needed, which is
13896 done in build_over_call. */
13897 default_arg = TREE_PURPOSE (arg_types);
13899 /* Except that we do substitute default arguments under tsubst_lambda_expr,
13900 since the new op() won't have any associated template arguments for us
13901 to refer to later. */
13902 if (lambda_fn_in_template_p (in_decl))
13903 default_arg = tsubst_copy_and_build (default_arg, args, complain, in_decl,
13904 false/*fn*/, false/*constexpr*/);
13906 if (default_arg && TREE_CODE (default_arg) == DEFAULT_ARG)
13908 /* We've instantiated a template before its default arguments
13909 have been parsed. This can happen for a nested template
13910 class, and is not an error unless we require the default
13911 argument in a call of this function. */
13912 remaining_arg_types =
13913 tree_cons (default_arg, type, remaining_arg_types);
13914 vec_safe_push (DEFARG_INSTANTIATIONS(default_arg), remaining_arg_types);
13916 else
13917 remaining_arg_types =
13918 hash_tree_cons (default_arg, type, remaining_arg_types);
13921 return remaining_arg_types;
13924 /* Substitute into a FUNCTION_TYPE or METHOD_TYPE. This routine does
13925 *not* handle the exception-specification for FNTYPE, because the
13926 initial substitution of explicitly provided template parameters
13927 during argument deduction forbids substitution into the
13928 exception-specification:
13930 [temp.deduct]
13932 All references in the function type of the function template to the
13933 corresponding template parameters are replaced by the specified tem-
13934 plate argument values. If a substitution in a template parameter or
13935 in the function type of the function template results in an invalid
13936 type, type deduction fails. [Note: The equivalent substitution in
13937 exception specifications is done only when the function is instanti-
13938 ated, at which point a program is ill-formed if the substitution
13939 results in an invalid type.] */
13941 static tree
13942 tsubst_function_type (tree t,
13943 tree args,
13944 tsubst_flags_t complain,
13945 tree in_decl)
13947 tree return_type;
13948 tree arg_types = NULL_TREE;
13949 tree fntype;
13951 /* The TYPE_CONTEXT is not used for function/method types. */
13952 gcc_assert (TYPE_CONTEXT (t) == NULL_TREE);
13954 /* DR 1227: Mixing immediate and non-immediate contexts in deduction
13955 failure. */
13956 bool late_return_type_p = TYPE_HAS_LATE_RETURN_TYPE (t);
13958 if (late_return_type_p)
13960 /* Substitute the argument types. */
13961 arg_types = tsubst_arg_types (TYPE_ARG_TYPES (t), args, NULL_TREE,
13962 complain, in_decl);
13963 if (arg_types == error_mark_node)
13964 return error_mark_node;
13966 tree save_ccp = current_class_ptr;
13967 tree save_ccr = current_class_ref;
13968 tree this_type = (TREE_CODE (t) == METHOD_TYPE
13969 ? TREE_TYPE (TREE_VALUE (arg_types)) : NULL_TREE);
13970 bool do_inject = this_type && CLASS_TYPE_P (this_type);
13971 if (do_inject)
13973 /* DR 1207: 'this' is in scope in the trailing return type. */
13974 inject_this_parameter (this_type, cp_type_quals (this_type));
13977 /* Substitute the return type. */
13978 return_type = tsubst (TREE_TYPE (t), args, complain, in_decl);
13980 if (do_inject)
13982 current_class_ptr = save_ccp;
13983 current_class_ref = save_ccr;
13986 else
13987 /* Substitute the return type. */
13988 return_type = tsubst (TREE_TYPE (t), args, complain, in_decl);
13990 if (return_type == error_mark_node)
13991 return error_mark_node;
13992 /* DR 486 clarifies that creation of a function type with an
13993 invalid return type is a deduction failure. */
13994 if (TREE_CODE (return_type) == ARRAY_TYPE
13995 || TREE_CODE (return_type) == FUNCTION_TYPE)
13997 if (complain & tf_error)
13999 if (TREE_CODE (return_type) == ARRAY_TYPE)
14000 error ("function returning an array");
14001 else
14002 error ("function returning a function");
14004 return error_mark_node;
14006 /* And DR 657. */
14007 if (abstract_virtuals_error_sfinae (ACU_RETURN, return_type, complain))
14008 return error_mark_node;
14010 if (!late_return_type_p)
14012 /* Substitute the argument types. */
14013 arg_types = tsubst_arg_types (TYPE_ARG_TYPES (t), args, NULL_TREE,
14014 complain, in_decl);
14015 if (arg_types == error_mark_node)
14016 return error_mark_node;
14019 /* Construct a new type node and return it. */
14020 if (TREE_CODE (t) == FUNCTION_TYPE)
14022 fntype = build_function_type (return_type, arg_types);
14023 fntype = apply_memfn_quals (fntype,
14024 type_memfn_quals (t),
14025 type_memfn_rqual (t));
14027 else
14029 tree r = TREE_TYPE (TREE_VALUE (arg_types));
14030 /* Don't pick up extra function qualifiers from the basetype. */
14031 r = cp_build_qualified_type_real (r, type_memfn_quals (t), complain);
14032 if (! MAYBE_CLASS_TYPE_P (r))
14034 /* [temp.deduct]
14036 Type deduction may fail for any of the following
14037 reasons:
14039 -- Attempting to create "pointer to member of T" when T
14040 is not a class type. */
14041 if (complain & tf_error)
14042 error ("creating pointer to member function of non-class type %qT",
14044 return error_mark_node;
14047 fntype = build_method_type_directly (r, return_type,
14048 TREE_CHAIN (arg_types));
14049 fntype = build_ref_qualified_type (fntype, type_memfn_rqual (t));
14051 fntype = cp_build_type_attribute_variant (fntype, TYPE_ATTRIBUTES (t));
14053 if (late_return_type_p)
14054 TYPE_HAS_LATE_RETURN_TYPE (fntype) = 1;
14056 return fntype;
14059 /* FNTYPE is a FUNCTION_TYPE or METHOD_TYPE. Substitute the template
14060 ARGS into that specification, and return the substituted
14061 specification. If there is no specification, return NULL_TREE. */
14063 static tree
14064 tsubst_exception_specification (tree fntype,
14065 tree args,
14066 tsubst_flags_t complain,
14067 tree in_decl,
14068 bool defer_ok)
14070 tree specs;
14071 tree new_specs;
14073 specs = TYPE_RAISES_EXCEPTIONS (fntype);
14074 new_specs = NULL_TREE;
14075 if (specs && TREE_PURPOSE (specs))
14077 /* A noexcept-specifier. */
14078 tree expr = TREE_PURPOSE (specs);
14079 if (TREE_CODE (expr) == INTEGER_CST)
14080 new_specs = expr;
14081 else if (defer_ok)
14083 /* Defer instantiation of noexcept-specifiers to avoid
14084 excessive instantiations (c++/49107). */
14085 new_specs = make_node (DEFERRED_NOEXCEPT);
14086 if (DEFERRED_NOEXCEPT_SPEC_P (specs))
14088 /* We already partially instantiated this member template,
14089 so combine the new args with the old. */
14090 DEFERRED_NOEXCEPT_PATTERN (new_specs)
14091 = DEFERRED_NOEXCEPT_PATTERN (expr);
14092 DEFERRED_NOEXCEPT_ARGS (new_specs)
14093 = add_to_template_args (DEFERRED_NOEXCEPT_ARGS (expr), args);
14095 else
14097 DEFERRED_NOEXCEPT_PATTERN (new_specs) = expr;
14098 DEFERRED_NOEXCEPT_ARGS (new_specs) = args;
14101 else
14102 new_specs = tsubst_copy_and_build
14103 (expr, args, complain, in_decl, /*function_p=*/false,
14104 /*integral_constant_expression_p=*/true);
14105 new_specs = build_noexcept_spec (new_specs, complain);
14107 else if (specs)
14109 if (! TREE_VALUE (specs))
14110 new_specs = specs;
14111 else
14112 while (specs)
14114 tree spec;
14115 int i, len = 1;
14116 tree expanded_specs = NULL_TREE;
14118 if (PACK_EXPANSION_P (TREE_VALUE (specs)))
14120 /* Expand the pack expansion type. */
14121 expanded_specs = tsubst_pack_expansion (TREE_VALUE (specs),
14122 args, complain,
14123 in_decl);
14125 if (expanded_specs == error_mark_node)
14126 return error_mark_node;
14127 else if (TREE_CODE (expanded_specs) == TREE_VEC)
14128 len = TREE_VEC_LENGTH (expanded_specs);
14129 else
14131 /* We're substituting into a member template, so
14132 we got a TYPE_PACK_EXPANSION back. Add that
14133 expansion and move on. */
14134 gcc_assert (TREE_CODE (expanded_specs)
14135 == TYPE_PACK_EXPANSION);
14136 new_specs = add_exception_specifier (new_specs,
14137 expanded_specs,
14138 complain);
14139 specs = TREE_CHAIN (specs);
14140 continue;
14144 for (i = 0; i < len; ++i)
14146 if (expanded_specs)
14147 spec = TREE_VEC_ELT (expanded_specs, i);
14148 else
14149 spec = tsubst (TREE_VALUE (specs), args, complain, in_decl);
14150 if (spec == error_mark_node)
14151 return spec;
14152 new_specs = add_exception_specifier (new_specs, spec,
14153 complain);
14156 specs = TREE_CHAIN (specs);
14159 return new_specs;
14162 /* Take the tree structure T and replace template parameters used
14163 therein with the argument vector ARGS. IN_DECL is an associated
14164 decl for diagnostics. If an error occurs, returns ERROR_MARK_NODE.
14165 Issue error and warning messages under control of COMPLAIN. Note
14166 that we must be relatively non-tolerant of extensions here, in
14167 order to preserve conformance; if we allow substitutions that
14168 should not be allowed, we may allow argument deductions that should
14169 not succeed, and therefore report ambiguous overload situations
14170 where there are none. In theory, we could allow the substitution,
14171 but indicate that it should have failed, and allow our caller to
14172 make sure that the right thing happens, but we don't try to do this
14173 yet.
14175 This function is used for dealing with types, decls and the like;
14176 for expressions, use tsubst_expr or tsubst_copy. */
14178 tree
14179 tsubst (tree t, tree args, tsubst_flags_t complain, tree in_decl)
14181 enum tree_code code;
14182 tree type, r = NULL_TREE;
14184 if (t == NULL_TREE || t == error_mark_node
14185 || t == integer_type_node
14186 || t == void_type_node
14187 || t == char_type_node
14188 || t == unknown_type_node
14189 || TREE_CODE (t) == NAMESPACE_DECL
14190 || TREE_CODE (t) == TRANSLATION_UNIT_DECL)
14191 return t;
14193 if (DECL_P (t))
14194 return tsubst_decl (t, args, complain);
14196 if (args == NULL_TREE)
14197 return t;
14199 code = TREE_CODE (t);
14201 if (code == IDENTIFIER_NODE)
14202 type = IDENTIFIER_TYPE_VALUE (t);
14203 else
14204 type = TREE_TYPE (t);
14206 gcc_assert (type != unknown_type_node);
14208 /* Reuse typedefs. We need to do this to handle dependent attributes,
14209 such as attribute aligned. */
14210 if (TYPE_P (t)
14211 && typedef_variant_p (t))
14213 tree decl = TYPE_NAME (t);
14215 if (alias_template_specialization_p (t))
14217 /* DECL represents an alias template and we want to
14218 instantiate it. */
14219 tree tmpl = most_general_template (DECL_TI_TEMPLATE (decl));
14220 tree gen_args = tsubst (DECL_TI_ARGS (decl), args, complain, in_decl);
14221 r = instantiate_alias_template (tmpl, gen_args, complain);
14223 else if (DECL_CLASS_SCOPE_P (decl)
14224 && CLASSTYPE_TEMPLATE_INFO (DECL_CONTEXT (decl))
14225 && uses_template_parms (DECL_CONTEXT (decl)))
14227 tree tmpl = most_general_template (DECL_TI_TEMPLATE (decl));
14228 tree gen_args = tsubst (DECL_TI_ARGS (decl), args, complain, in_decl);
14229 r = retrieve_specialization (tmpl, gen_args, 0);
14231 else if (DECL_FUNCTION_SCOPE_P (decl)
14232 && DECL_TEMPLATE_INFO (DECL_CONTEXT (decl))
14233 && uses_template_parms (DECL_TI_ARGS (DECL_CONTEXT (decl))))
14234 r = retrieve_local_specialization (decl);
14235 else
14236 /* The typedef is from a non-template context. */
14237 return t;
14239 if (r)
14241 r = TREE_TYPE (r);
14242 r = cp_build_qualified_type_real
14243 (r, cp_type_quals (t) | cp_type_quals (r),
14244 complain | tf_ignore_bad_quals);
14245 return r;
14247 else
14249 /* We don't have an instantiation yet, so drop the typedef. */
14250 int quals = cp_type_quals (t);
14251 t = DECL_ORIGINAL_TYPE (decl);
14252 t = cp_build_qualified_type_real (t, quals,
14253 complain | tf_ignore_bad_quals);
14257 bool fndecl_type = (complain & tf_fndecl_type);
14258 complain &= ~tf_fndecl_type;
14260 if (type
14261 && code != TYPENAME_TYPE
14262 && code != TEMPLATE_TYPE_PARM
14263 && code != TEMPLATE_PARM_INDEX
14264 && code != IDENTIFIER_NODE
14265 && code != FUNCTION_TYPE
14266 && code != METHOD_TYPE)
14267 type = tsubst (type, args, complain, in_decl);
14268 if (type == error_mark_node)
14269 return error_mark_node;
14271 switch (code)
14273 case RECORD_TYPE:
14274 case UNION_TYPE:
14275 case ENUMERAL_TYPE:
14276 return tsubst_aggr_type (t, args, complain, in_decl,
14277 /*entering_scope=*/0);
14279 case ERROR_MARK:
14280 case IDENTIFIER_NODE:
14281 case VOID_TYPE:
14282 case REAL_TYPE:
14283 case COMPLEX_TYPE:
14284 case VECTOR_TYPE:
14285 case BOOLEAN_TYPE:
14286 case NULLPTR_TYPE:
14287 case LANG_TYPE:
14288 return t;
14290 case INTEGER_TYPE:
14291 if (t == integer_type_node)
14292 return t;
14294 if (TREE_CODE (TYPE_MIN_VALUE (t)) == INTEGER_CST
14295 && TREE_CODE (TYPE_MAX_VALUE (t)) == INTEGER_CST)
14296 return t;
14299 tree max, omax = TREE_OPERAND (TYPE_MAX_VALUE (t), 0);
14301 max = tsubst_expr (omax, args, complain, in_decl,
14302 /*integral_constant_expression_p=*/false);
14304 /* Fix up type of the magic NOP_EXPR with TREE_SIDE_EFFECTS if
14305 needed. */
14306 if (TREE_CODE (max) == NOP_EXPR
14307 && TREE_SIDE_EFFECTS (omax)
14308 && !TREE_TYPE (max))
14309 TREE_TYPE (max) = TREE_TYPE (TREE_OPERAND (max, 0));
14311 /* If we're in a partial instantiation, preserve the magic NOP_EXPR
14312 with TREE_SIDE_EFFECTS that indicates this is not an integral
14313 constant expression. */
14314 if (processing_template_decl
14315 && TREE_SIDE_EFFECTS (omax) && TREE_CODE (omax) == NOP_EXPR)
14317 gcc_assert (TREE_CODE (max) == NOP_EXPR);
14318 TREE_SIDE_EFFECTS (max) = 1;
14321 return compute_array_index_type (NULL_TREE, max, complain);
14324 case TEMPLATE_TYPE_PARM:
14325 case TEMPLATE_TEMPLATE_PARM:
14326 case BOUND_TEMPLATE_TEMPLATE_PARM:
14327 case TEMPLATE_PARM_INDEX:
14329 int idx;
14330 int level;
14331 int levels;
14332 tree arg = NULL_TREE;
14334 /* Early in template argument deduction substitution, we don't
14335 want to reduce the level of 'auto', or it will be confused
14336 with a normal template parm in subsequent deduction. */
14337 if (is_auto (t) && (complain & tf_partial))
14338 return t;
14340 r = NULL_TREE;
14342 gcc_assert (TREE_VEC_LENGTH (args) > 0);
14343 template_parm_level_and_index (t, &level, &idx);
14345 levels = TMPL_ARGS_DEPTH (args);
14346 if (level <= levels
14347 && TREE_VEC_LENGTH (TMPL_ARGS_LEVEL (args, level)) > 0)
14349 arg = TMPL_ARG (args, level, idx);
14351 /* See through ARGUMENT_PACK_SELECT arguments. */
14352 if (arg && TREE_CODE (arg) == ARGUMENT_PACK_SELECT)
14353 arg = argument_pack_select_arg (arg);
14356 if (arg == error_mark_node)
14357 return error_mark_node;
14358 else if (arg != NULL_TREE)
14360 if (ARGUMENT_PACK_P (arg))
14361 /* If ARG is an argument pack, we don't actually want to
14362 perform a substitution here, because substitutions
14363 for argument packs are only done
14364 element-by-element. We can get to this point when
14365 substituting the type of a non-type template
14366 parameter pack, when that type actually contains
14367 template parameter packs from an outer template, e.g.,
14369 template<typename... Types> struct A {
14370 template<Types... Values> struct B { };
14371 }; */
14372 return t;
14374 if (code == TEMPLATE_TYPE_PARM)
14376 int quals;
14377 gcc_assert (TYPE_P (arg));
14379 quals = cp_type_quals (arg) | cp_type_quals (t);
14381 return cp_build_qualified_type_real
14382 (arg, quals, complain | tf_ignore_bad_quals);
14384 else if (code == BOUND_TEMPLATE_TEMPLATE_PARM)
14386 /* We are processing a type constructed from a
14387 template template parameter. */
14388 tree argvec = tsubst (TYPE_TI_ARGS (t),
14389 args, complain, in_decl);
14390 if (argvec == error_mark_node)
14391 return error_mark_node;
14393 gcc_assert (TREE_CODE (arg) == TEMPLATE_TEMPLATE_PARM
14394 || TREE_CODE (arg) == TEMPLATE_DECL
14395 || TREE_CODE (arg) == UNBOUND_CLASS_TEMPLATE);
14397 if (TREE_CODE (arg) == UNBOUND_CLASS_TEMPLATE)
14398 /* Consider this code:
14400 template <template <class> class Template>
14401 struct Internal {
14402 template <class Arg> using Bind = Template<Arg>;
14405 template <template <class> class Template, class Arg>
14406 using Instantiate = Template<Arg>; //#0
14408 template <template <class> class Template,
14409 class Argument>
14410 using Bind =
14411 Instantiate<Internal<Template>::template Bind,
14412 Argument>; //#1
14414 When #1 is parsed, the
14415 BOUND_TEMPLATE_TEMPLATE_PARM representing the
14416 parameter `Template' in #0 matches the
14417 UNBOUND_CLASS_TEMPLATE representing the argument
14418 `Internal<Template>::template Bind'; We then want
14419 to assemble the type `Bind<Argument>' that can't
14420 be fully created right now, because
14421 `Internal<Template>' not being complete, the Bind
14422 template cannot be looked up in that context. So
14423 we need to "store" `Bind<Argument>' for later
14424 when the context of Bind becomes complete. Let's
14425 store that in a TYPENAME_TYPE. */
14426 return make_typename_type (TYPE_CONTEXT (arg),
14427 build_nt (TEMPLATE_ID_EXPR,
14428 TYPE_IDENTIFIER (arg),
14429 argvec),
14430 typename_type,
14431 complain);
14433 /* We can get a TEMPLATE_TEMPLATE_PARM here when we
14434 are resolving nested-types in the signature of a
14435 member function templates. Otherwise ARG is a
14436 TEMPLATE_DECL and is the real template to be
14437 instantiated. */
14438 if (TREE_CODE (arg) == TEMPLATE_TEMPLATE_PARM)
14439 arg = TYPE_NAME (arg);
14441 r = lookup_template_class (arg,
14442 argvec, in_decl,
14443 DECL_CONTEXT (arg),
14444 /*entering_scope=*/0,
14445 complain);
14446 return cp_build_qualified_type_real
14447 (r, cp_type_quals (t) | cp_type_quals (r), complain);
14449 else if (code == TEMPLATE_TEMPLATE_PARM)
14450 return arg;
14451 else
14452 /* TEMPLATE_PARM_INDEX. */
14453 return convert_from_reference (unshare_expr (arg));
14456 if (level == 1)
14457 /* This can happen during the attempted tsubst'ing in
14458 unify. This means that we don't yet have any information
14459 about the template parameter in question. */
14460 return t;
14462 /* If we get here, we must have been looking at a parm for a
14463 more deeply nested template. Make a new version of this
14464 template parameter, but with a lower level. */
14465 switch (code)
14467 case TEMPLATE_TYPE_PARM:
14468 case TEMPLATE_TEMPLATE_PARM:
14469 case BOUND_TEMPLATE_TEMPLATE_PARM:
14470 if (cp_type_quals (t))
14472 r = tsubst (TYPE_MAIN_VARIANT (t), args, complain, in_decl);
14473 r = cp_build_qualified_type_real
14474 (r, cp_type_quals (t),
14475 complain | (code == TEMPLATE_TYPE_PARM
14476 ? tf_ignore_bad_quals : 0));
14478 else if (TREE_CODE (t) == TEMPLATE_TYPE_PARM
14479 && PLACEHOLDER_TYPE_CONSTRAINTS (t)
14480 && (r = (TEMPLATE_PARM_DESCENDANTS
14481 (TEMPLATE_TYPE_PARM_INDEX (t))))
14482 && (r = TREE_TYPE (r))
14483 && !PLACEHOLDER_TYPE_CONSTRAINTS (r))
14484 /* Break infinite recursion when substituting the constraints
14485 of a constrained placeholder. */;
14486 else
14488 r = copy_type (t);
14489 TEMPLATE_TYPE_PARM_INDEX (r)
14490 = reduce_template_parm_level (TEMPLATE_TYPE_PARM_INDEX (t),
14491 r, levels, args, complain);
14492 TYPE_STUB_DECL (r) = TYPE_NAME (r) = TEMPLATE_TYPE_DECL (r);
14493 TYPE_MAIN_VARIANT (r) = r;
14494 TYPE_POINTER_TO (r) = NULL_TREE;
14495 TYPE_REFERENCE_TO (r) = NULL_TREE;
14497 if (TREE_CODE (t) == TEMPLATE_TYPE_PARM)
14499 /* Propagate constraints on placeholders. */
14500 if (tree constr = PLACEHOLDER_TYPE_CONSTRAINTS (t))
14501 PLACEHOLDER_TYPE_CONSTRAINTS (r)
14502 = tsubst_constraint (constr, args, complain, in_decl);
14503 else if (tree pl = CLASS_PLACEHOLDER_TEMPLATE (t))
14505 pl = tsubst_copy (pl, args, complain, in_decl);
14506 CLASS_PLACEHOLDER_TEMPLATE (r) = pl;
14510 if (TREE_CODE (r) == TEMPLATE_TEMPLATE_PARM)
14511 /* We have reduced the level of the template
14512 template parameter, but not the levels of its
14513 template parameters, so canonical_type_parameter
14514 will not be able to find the canonical template
14515 template parameter for this level. Thus, we
14516 require structural equality checking to compare
14517 TEMPLATE_TEMPLATE_PARMs. */
14518 SET_TYPE_STRUCTURAL_EQUALITY (r);
14519 else if (TYPE_STRUCTURAL_EQUALITY_P (t))
14520 SET_TYPE_STRUCTURAL_EQUALITY (r);
14521 else
14522 TYPE_CANONICAL (r) = canonical_type_parameter (r);
14524 if (code == BOUND_TEMPLATE_TEMPLATE_PARM)
14526 tree tinfo = TYPE_TEMPLATE_INFO (t);
14527 /* We might need to substitute into the types of non-type
14528 template parameters. */
14529 tree tmpl = tsubst (TI_TEMPLATE (tinfo), args,
14530 complain, in_decl);
14531 if (tmpl == error_mark_node)
14532 return error_mark_node;
14533 tree argvec = tsubst (TI_ARGS (tinfo), args,
14534 complain, in_decl);
14535 if (argvec == error_mark_node)
14536 return error_mark_node;
14538 TEMPLATE_TEMPLATE_PARM_TEMPLATE_INFO (r)
14539 = build_template_info (tmpl, argvec);
14542 break;
14544 case TEMPLATE_PARM_INDEX:
14545 /* OK, now substitute the type of the non-type parameter. We
14546 couldn't do it earlier because it might be an auto parameter,
14547 and we wouldn't need to if we had an argument. */
14548 type = tsubst (type, args, complain, in_decl);
14549 if (type == error_mark_node)
14550 return error_mark_node;
14551 r = reduce_template_parm_level (t, type, levels, args, complain);
14552 break;
14554 default:
14555 gcc_unreachable ();
14558 return r;
14561 case TREE_LIST:
14563 tree purpose, value, chain;
14565 if (t == void_list_node)
14566 return t;
14568 purpose = TREE_PURPOSE (t);
14569 if (purpose)
14571 purpose = tsubst (purpose, args, complain, in_decl);
14572 if (purpose == error_mark_node)
14573 return error_mark_node;
14575 value = TREE_VALUE (t);
14576 if (value)
14578 value = tsubst (value, args, complain, in_decl);
14579 if (value == error_mark_node)
14580 return error_mark_node;
14582 chain = TREE_CHAIN (t);
14583 if (chain && chain != void_type_node)
14585 chain = tsubst (chain, args, complain, in_decl);
14586 if (chain == error_mark_node)
14587 return error_mark_node;
14589 if (purpose == TREE_PURPOSE (t)
14590 && value == TREE_VALUE (t)
14591 && chain == TREE_CHAIN (t))
14592 return t;
14593 return hash_tree_cons (purpose, value, chain);
14596 case TREE_BINFO:
14597 /* We should never be tsubsting a binfo. */
14598 gcc_unreachable ();
14600 case TREE_VEC:
14601 /* A vector of template arguments. */
14602 gcc_assert (!type);
14603 return tsubst_template_args (t, args, complain, in_decl);
14605 case POINTER_TYPE:
14606 case REFERENCE_TYPE:
14608 if (type == TREE_TYPE (t) && TREE_CODE (type) != METHOD_TYPE)
14609 return t;
14611 /* [temp.deduct]
14613 Type deduction may fail for any of the following
14614 reasons:
14616 -- Attempting to create a pointer to reference type.
14617 -- Attempting to create a reference to a reference type or
14618 a reference to void.
14620 Core issue 106 says that creating a reference to a reference
14621 during instantiation is no longer a cause for failure. We
14622 only enforce this check in strict C++98 mode. */
14623 if ((TREE_CODE (type) == REFERENCE_TYPE
14624 && (((cxx_dialect == cxx98) && flag_iso) || code != REFERENCE_TYPE))
14625 || (code == REFERENCE_TYPE && VOID_TYPE_P (type)))
14627 static location_t last_loc;
14629 /* We keep track of the last time we issued this error
14630 message to avoid spewing a ton of messages during a
14631 single bad template instantiation. */
14632 if (complain & tf_error
14633 && last_loc != input_location)
14635 if (VOID_TYPE_P (type))
14636 error ("forming reference to void");
14637 else if (code == POINTER_TYPE)
14638 error ("forming pointer to reference type %qT", type);
14639 else
14640 error ("forming reference to reference type %qT", type);
14641 last_loc = input_location;
14644 return error_mark_node;
14646 else if (TREE_CODE (type) == FUNCTION_TYPE
14647 && (type_memfn_quals (type) != TYPE_UNQUALIFIED
14648 || type_memfn_rqual (type) != REF_QUAL_NONE))
14650 if (complain & tf_error)
14652 if (code == POINTER_TYPE)
14653 error ("forming pointer to qualified function type %qT",
14654 type);
14655 else
14656 error ("forming reference to qualified function type %qT",
14657 type);
14659 return error_mark_node;
14661 else if (code == POINTER_TYPE)
14663 r = build_pointer_type (type);
14664 if (TREE_CODE (type) == METHOD_TYPE)
14665 r = build_ptrmemfunc_type (r);
14667 else if (TREE_CODE (type) == REFERENCE_TYPE)
14668 /* In C++0x, during template argument substitution, when there is an
14669 attempt to create a reference to a reference type, reference
14670 collapsing is applied as described in [14.3.1/4 temp.arg.type]:
14672 "If a template-argument for a template-parameter T names a type
14673 that is a reference to a type A, an attempt to create the type
14674 'lvalue reference to cv T' creates the type 'lvalue reference to
14675 A,' while an attempt to create the type type rvalue reference to
14676 cv T' creates the type T"
14678 r = cp_build_reference_type
14679 (TREE_TYPE (type),
14680 TYPE_REF_IS_RVALUE (t) && TYPE_REF_IS_RVALUE (type));
14681 else
14682 r = cp_build_reference_type (type, TYPE_REF_IS_RVALUE (t));
14683 r = cp_build_qualified_type_real (r, cp_type_quals (t), complain);
14685 if (r != error_mark_node)
14686 /* Will this ever be needed for TYPE_..._TO values? */
14687 layout_type (r);
14689 return r;
14691 case OFFSET_TYPE:
14693 r = tsubst (TYPE_OFFSET_BASETYPE (t), args, complain, in_decl);
14694 if (r == error_mark_node || !MAYBE_CLASS_TYPE_P (r))
14696 /* [temp.deduct]
14698 Type deduction may fail for any of the following
14699 reasons:
14701 -- Attempting to create "pointer to member of T" when T
14702 is not a class type. */
14703 if (complain & tf_error)
14704 error ("creating pointer to member of non-class type %qT", r);
14705 return error_mark_node;
14707 if (TREE_CODE (type) == REFERENCE_TYPE)
14709 if (complain & tf_error)
14710 error ("creating pointer to member reference type %qT", type);
14711 return error_mark_node;
14713 if (VOID_TYPE_P (type))
14715 if (complain & tf_error)
14716 error ("creating pointer to member of type void");
14717 return error_mark_node;
14719 gcc_assert (TREE_CODE (type) != METHOD_TYPE);
14720 if (TREE_CODE (type) == FUNCTION_TYPE)
14722 /* The type of the implicit object parameter gets its
14723 cv-qualifiers from the FUNCTION_TYPE. */
14724 tree memptr;
14725 tree method_type
14726 = build_memfn_type (type, r, type_memfn_quals (type),
14727 type_memfn_rqual (type));
14728 memptr = build_ptrmemfunc_type (build_pointer_type (method_type));
14729 return cp_build_qualified_type_real (memptr, cp_type_quals (t),
14730 complain);
14732 else
14733 return cp_build_qualified_type_real (build_ptrmem_type (r, type),
14734 cp_type_quals (t),
14735 complain);
14737 case FUNCTION_TYPE:
14738 case METHOD_TYPE:
14740 tree fntype;
14741 tree specs;
14742 fntype = tsubst_function_type (t, args, complain, in_decl);
14743 if (fntype == error_mark_node)
14744 return error_mark_node;
14746 /* Substitute the exception specification. */
14747 specs = tsubst_exception_specification (t, args, complain, in_decl,
14748 /*defer_ok*/fndecl_type);
14749 if (specs == error_mark_node)
14750 return error_mark_node;
14751 if (specs)
14752 fntype = build_exception_variant (fntype, specs);
14753 return fntype;
14755 case ARRAY_TYPE:
14757 tree domain = tsubst (TYPE_DOMAIN (t), args, complain, in_decl);
14758 if (domain == error_mark_node)
14759 return error_mark_node;
14761 /* As an optimization, we avoid regenerating the array type if
14762 it will obviously be the same as T. */
14763 if (type == TREE_TYPE (t) && domain == TYPE_DOMAIN (t))
14764 return t;
14766 /* These checks should match the ones in create_array_type_for_decl.
14768 [temp.deduct]
14770 The deduction may fail for any of the following reasons:
14772 -- Attempting to create an array with an element type that
14773 is void, a function type, or a reference type, or [DR337]
14774 an abstract class type. */
14775 if (VOID_TYPE_P (type)
14776 || TREE_CODE (type) == FUNCTION_TYPE
14777 || (TREE_CODE (type) == ARRAY_TYPE
14778 && TYPE_DOMAIN (type) == NULL_TREE)
14779 || TREE_CODE (type) == REFERENCE_TYPE)
14781 if (complain & tf_error)
14782 error ("creating array of %qT", type);
14783 return error_mark_node;
14786 if (abstract_virtuals_error_sfinae (ACU_ARRAY, type, complain))
14787 return error_mark_node;
14789 r = build_cplus_array_type (type, domain);
14791 if (TYPE_USER_ALIGN (t))
14793 SET_TYPE_ALIGN (r, TYPE_ALIGN (t));
14794 TYPE_USER_ALIGN (r) = 1;
14797 return r;
14800 case TYPENAME_TYPE:
14802 tree ctx = tsubst_aggr_type (TYPE_CONTEXT (t), args, complain,
14803 in_decl, /*entering_scope=*/1);
14804 if (ctx == error_mark_node)
14805 return error_mark_node;
14807 tree f = tsubst_copy (TYPENAME_TYPE_FULLNAME (t), args,
14808 complain, in_decl);
14809 if (f == error_mark_node)
14810 return error_mark_node;
14812 if (!MAYBE_CLASS_TYPE_P (ctx))
14814 if (complain & tf_error)
14815 error ("%qT is not a class, struct, or union type", ctx);
14816 return error_mark_node;
14818 else if (!uses_template_parms (ctx) && !TYPE_BEING_DEFINED (ctx))
14820 /* Normally, make_typename_type does not require that the CTX
14821 have complete type in order to allow things like:
14823 template <class T> struct S { typename S<T>::X Y; };
14825 But, such constructs have already been resolved by this
14826 point, so here CTX really should have complete type, unless
14827 it's a partial instantiation. */
14828 ctx = complete_type (ctx);
14829 if (!COMPLETE_TYPE_P (ctx))
14831 if (complain & tf_error)
14832 cxx_incomplete_type_error (NULL_TREE, ctx);
14833 return error_mark_node;
14837 f = make_typename_type (ctx, f, typename_type,
14838 complain | tf_keep_type_decl);
14839 if (f == error_mark_node)
14840 return f;
14841 if (TREE_CODE (f) == TYPE_DECL)
14843 complain |= tf_ignore_bad_quals;
14844 f = TREE_TYPE (f);
14847 if (TREE_CODE (f) != TYPENAME_TYPE)
14849 if (TYPENAME_IS_ENUM_P (t) && TREE_CODE (f) != ENUMERAL_TYPE)
14851 if (complain & tf_error)
14852 error ("%qT resolves to %qT, which is not an enumeration type",
14853 t, f);
14854 else
14855 return error_mark_node;
14857 else if (TYPENAME_IS_CLASS_P (t) && !CLASS_TYPE_P (f))
14859 if (complain & tf_error)
14860 error ("%qT resolves to %qT, which is is not a class type",
14861 t, f);
14862 else
14863 return error_mark_node;
14867 return cp_build_qualified_type_real
14868 (f, cp_type_quals (f) | cp_type_quals (t), complain);
14871 case UNBOUND_CLASS_TEMPLATE:
14873 tree ctx = tsubst_aggr_type (TYPE_CONTEXT (t), args, complain,
14874 in_decl, /*entering_scope=*/1);
14875 tree name = TYPE_IDENTIFIER (t);
14876 tree parm_list = DECL_TEMPLATE_PARMS (TYPE_NAME (t));
14878 if (ctx == error_mark_node || name == error_mark_node)
14879 return error_mark_node;
14881 if (parm_list)
14882 parm_list = tsubst_template_parms (parm_list, args, complain);
14883 return make_unbound_class_template (ctx, name, parm_list, complain);
14886 case TYPEOF_TYPE:
14888 tree type;
14890 ++cp_unevaluated_operand;
14891 ++c_inhibit_evaluation_warnings;
14893 type = tsubst_expr (TYPEOF_TYPE_EXPR (t), args,
14894 complain, in_decl,
14895 /*integral_constant_expression_p=*/false);
14897 --cp_unevaluated_operand;
14898 --c_inhibit_evaluation_warnings;
14900 type = finish_typeof (type);
14901 return cp_build_qualified_type_real (type,
14902 cp_type_quals (t)
14903 | cp_type_quals (type),
14904 complain);
14907 case DECLTYPE_TYPE:
14909 tree type;
14911 ++cp_unevaluated_operand;
14912 ++c_inhibit_evaluation_warnings;
14914 type = tsubst_copy_and_build (DECLTYPE_TYPE_EXPR (t), args,
14915 complain|tf_decltype, in_decl,
14916 /*function_p*/false,
14917 /*integral_constant_expression*/false);
14919 if (DECLTYPE_FOR_INIT_CAPTURE (t))
14921 if (type == NULL_TREE)
14923 if (complain & tf_error)
14924 error ("empty initializer in lambda init-capture");
14925 type = error_mark_node;
14927 else if (TREE_CODE (type) == TREE_LIST)
14928 type = build_x_compound_expr_from_list (type, ELK_INIT, complain);
14931 --cp_unevaluated_operand;
14932 --c_inhibit_evaluation_warnings;
14934 if (DECLTYPE_FOR_LAMBDA_CAPTURE (t))
14935 type = lambda_capture_field_type (type,
14936 DECLTYPE_FOR_INIT_CAPTURE (t),
14937 DECLTYPE_FOR_REF_CAPTURE (t));
14938 else if (DECLTYPE_FOR_LAMBDA_PROXY (t))
14939 type = lambda_proxy_type (type);
14940 else
14942 bool id = DECLTYPE_TYPE_ID_EXPR_OR_MEMBER_ACCESS_P (t);
14943 if (id && TREE_CODE (DECLTYPE_TYPE_EXPR (t)) == BIT_NOT_EXPR
14944 && EXPR_P (type))
14945 /* In a template ~id could be either a complement expression
14946 or an unqualified-id naming a destructor; if instantiating
14947 it produces an expression, it's not an id-expression or
14948 member access. */
14949 id = false;
14950 type = finish_decltype_type (type, id, complain);
14952 return cp_build_qualified_type_real (type,
14953 cp_type_quals (t)
14954 | cp_type_quals (type),
14955 complain | tf_ignore_bad_quals);
14958 case UNDERLYING_TYPE:
14960 tree type = tsubst (UNDERLYING_TYPE_TYPE (t), args,
14961 complain, in_decl);
14962 return finish_underlying_type (type);
14965 case TYPE_ARGUMENT_PACK:
14966 case NONTYPE_ARGUMENT_PACK:
14968 tree r;
14970 if (code == NONTYPE_ARGUMENT_PACK)
14971 r = make_node (code);
14972 else
14973 r = cxx_make_type (code);
14975 tree pack_args = ARGUMENT_PACK_ARGS (t);
14976 pack_args = tsubst_template_args (pack_args, args, complain, in_decl);
14977 SET_ARGUMENT_PACK_ARGS (r, pack_args);
14979 return r;
14982 case VOID_CST:
14983 case INTEGER_CST:
14984 case REAL_CST:
14985 case STRING_CST:
14986 case PLUS_EXPR:
14987 case MINUS_EXPR:
14988 case NEGATE_EXPR:
14989 case NOP_EXPR:
14990 case INDIRECT_REF:
14991 case ADDR_EXPR:
14992 case CALL_EXPR:
14993 case ARRAY_REF:
14994 case SCOPE_REF:
14995 /* We should use one of the expression tsubsts for these codes. */
14996 gcc_unreachable ();
14998 default:
14999 sorry ("use of %qs in template", get_tree_code_name (code));
15000 return error_mark_node;
15004 /* tsubst a BASELINK. OBJECT_TYPE, if non-NULL, is the type of the
15005 expression on the left-hand side of the "." or "->" operator. We
15006 only do the lookup if we had a dependent BASELINK. Otherwise we
15007 adjust it onto the instantiated heirarchy. */
15009 static tree
15010 tsubst_baselink (tree baselink, tree object_type,
15011 tree args, tsubst_flags_t complain, tree in_decl)
15013 bool qualified_p = BASELINK_QUALIFIED_P (baselink);
15014 tree qualifying_scope = BINFO_TYPE (BASELINK_ACCESS_BINFO (baselink));
15015 qualifying_scope = tsubst (qualifying_scope, args, complain, in_decl);
15017 tree optype = BASELINK_OPTYPE (baselink);
15018 optype = tsubst (optype, args, complain, in_decl);
15020 tree template_args = NULL_TREE;
15021 bool template_id_p = false;
15022 tree fns = BASELINK_FUNCTIONS (baselink);
15023 if (TREE_CODE (fns) == TEMPLATE_ID_EXPR)
15025 template_id_p = true;
15026 template_args = TREE_OPERAND (fns, 1);
15027 fns = TREE_OPERAND (fns, 0);
15028 if (template_args)
15029 template_args = tsubst_template_args (template_args, args,
15030 complain, in_decl);
15033 tree binfo_type = BINFO_TYPE (BASELINK_BINFO (baselink));
15034 binfo_type = tsubst (binfo_type, args, complain, in_decl);
15035 bool dependent_p = binfo_type != BINFO_TYPE (BASELINK_BINFO (baselink));
15037 if (dependent_p)
15039 tree name = OVL_NAME (fns);
15040 if (IDENTIFIER_CONV_OP_P (name))
15041 name = make_conv_op_name (optype);
15043 if (name == complete_dtor_identifier)
15044 /* Treat as-if non-dependent below. */
15045 dependent_p = false;
15047 baselink = lookup_fnfields (qualifying_scope, name, /*protect=*/1);
15048 if (!baselink)
15050 if ((complain & tf_error)
15051 && constructor_name_p (name, qualifying_scope))
15052 error ("cannot call constructor %<%T::%D%> directly",
15053 qualifying_scope, name);
15054 return error_mark_node;
15057 if (BASELINK_P (baselink))
15058 fns = BASELINK_FUNCTIONS (baselink);
15060 else
15061 /* We're going to overwrite pieces below, make a duplicate. */
15062 baselink = copy_node (baselink);
15064 /* If lookup found a single function, mark it as used at this point.
15065 (If lookup found multiple functions the one selected later by
15066 overload resolution will be marked as used at that point.) */
15067 if (!template_id_p && !really_overloaded_fn (fns))
15069 tree fn = OVL_FIRST (fns);
15070 bool ok = mark_used (fn, complain);
15071 if (!ok && !(complain & tf_error))
15072 return error_mark_node;
15073 if (ok && BASELINK_P (baselink))
15074 /* We might have instantiated an auto function. */
15075 TREE_TYPE (baselink) = TREE_TYPE (fn);
15078 if (BASELINK_P (baselink))
15080 /* Add back the template arguments, if present. */
15081 if (template_id_p)
15082 BASELINK_FUNCTIONS (baselink)
15083 = build2 (TEMPLATE_ID_EXPR, unknown_type_node, fns, template_args);
15085 /* Update the conversion operator type. */
15086 BASELINK_OPTYPE (baselink) = optype;
15089 if (!object_type)
15090 object_type = current_class_type;
15092 if (qualified_p || !dependent_p)
15094 baselink = adjust_result_of_qualified_name_lookup (baselink,
15095 qualifying_scope,
15096 object_type);
15097 if (!qualified_p)
15098 /* We need to call adjust_result_of_qualified_name_lookup in case the
15099 destructor names a base class, but we unset BASELINK_QUALIFIED_P
15100 so that we still get virtual function binding. */
15101 BASELINK_QUALIFIED_P (baselink) = false;
15104 return baselink;
15107 /* Like tsubst_expr for a SCOPE_REF, given by QUALIFIED_ID. DONE is
15108 true if the qualified-id will be a postfix-expression in-and-of
15109 itself; false if more of the postfix-expression follows the
15110 QUALIFIED_ID. ADDRESS_P is true if the qualified-id is the operand
15111 of "&". */
15113 static tree
15114 tsubst_qualified_id (tree qualified_id, tree args,
15115 tsubst_flags_t complain, tree in_decl,
15116 bool done, bool address_p)
15118 tree expr;
15119 tree scope;
15120 tree name;
15121 bool is_template;
15122 tree template_args;
15123 location_t loc = UNKNOWN_LOCATION;
15125 gcc_assert (TREE_CODE (qualified_id) == SCOPE_REF);
15127 /* Figure out what name to look up. */
15128 name = TREE_OPERAND (qualified_id, 1);
15129 if (TREE_CODE (name) == TEMPLATE_ID_EXPR)
15131 is_template = true;
15132 loc = EXPR_LOCATION (name);
15133 template_args = TREE_OPERAND (name, 1);
15134 if (template_args)
15135 template_args = tsubst_template_args (template_args, args,
15136 complain, in_decl);
15137 if (template_args == error_mark_node)
15138 return error_mark_node;
15139 name = TREE_OPERAND (name, 0);
15141 else
15143 is_template = false;
15144 template_args = NULL_TREE;
15147 /* Substitute into the qualifying scope. When there are no ARGS, we
15148 are just trying to simplify a non-dependent expression. In that
15149 case the qualifying scope may be dependent, and, in any case,
15150 substituting will not help. */
15151 scope = TREE_OPERAND (qualified_id, 0);
15152 if (args)
15154 scope = tsubst (scope, args, complain, in_decl);
15155 expr = tsubst_copy (name, args, complain, in_decl);
15157 else
15158 expr = name;
15160 if (dependent_scope_p (scope))
15162 if (is_template)
15163 expr = build_min_nt_loc (loc, TEMPLATE_ID_EXPR, expr, template_args);
15164 tree r = build_qualified_name (NULL_TREE, scope, expr,
15165 QUALIFIED_NAME_IS_TEMPLATE (qualified_id));
15166 REF_PARENTHESIZED_P (r) = REF_PARENTHESIZED_P (qualified_id);
15167 return r;
15170 if (!BASELINK_P (name) && !DECL_P (expr))
15172 if (TREE_CODE (expr) == BIT_NOT_EXPR)
15174 /* A BIT_NOT_EXPR is used to represent a destructor. */
15175 if (!check_dtor_name (scope, TREE_OPERAND (expr, 0)))
15177 error ("qualifying type %qT does not match destructor name ~%qT",
15178 scope, TREE_OPERAND (expr, 0));
15179 expr = error_mark_node;
15181 else
15182 expr = lookup_qualified_name (scope, complete_dtor_identifier,
15183 /*is_type_p=*/0, false);
15185 else
15186 expr = lookup_qualified_name (scope, expr, /*is_type_p=*/0, false);
15187 if (TREE_CODE (TREE_CODE (expr) == TEMPLATE_DECL
15188 ? DECL_TEMPLATE_RESULT (expr) : expr) == TYPE_DECL)
15190 if (complain & tf_error)
15192 error ("dependent-name %qE is parsed as a non-type, but "
15193 "instantiation yields a type", qualified_id);
15194 inform (input_location, "say %<typename %E%> if a type is meant", qualified_id);
15196 return error_mark_node;
15200 if (DECL_P (expr))
15202 check_accessibility_of_qualified_id (expr, /*object_type=*/NULL_TREE,
15203 scope);
15204 /* Remember that there was a reference to this entity. */
15205 if (!mark_used (expr, complain) && !(complain & tf_error))
15206 return error_mark_node;
15209 if (expr == error_mark_node || TREE_CODE (expr) == TREE_LIST)
15211 if (complain & tf_error)
15212 qualified_name_lookup_error (scope,
15213 TREE_OPERAND (qualified_id, 1),
15214 expr, input_location);
15215 return error_mark_node;
15218 if (is_template)
15220 /* We may be repeating a check already done during parsing, but
15221 if it was well-formed and passed then, it will pass again
15222 now, and if it didn't, we wouldn't have got here. The case
15223 we want to catch is when we couldn't tell then, and can now,
15224 namely when templ prior to substitution was an
15225 identifier. */
15226 if (flag_concepts && check_auto_in_tmpl_args (expr, template_args))
15227 return error_mark_node;
15229 if (variable_template_p (expr))
15230 expr = lookup_and_finish_template_variable (expr, template_args,
15231 complain);
15232 else
15233 expr = lookup_template_function (expr, template_args);
15236 if (expr == error_mark_node && complain & tf_error)
15237 qualified_name_lookup_error (scope, TREE_OPERAND (qualified_id, 1),
15238 expr, input_location);
15239 else if (TYPE_P (scope))
15241 expr = (adjust_result_of_qualified_name_lookup
15242 (expr, scope, current_nonlambda_class_type ()));
15243 expr = (finish_qualified_id_expr
15244 (scope, expr, done, address_p && PTRMEM_OK_P (qualified_id),
15245 QUALIFIED_NAME_IS_TEMPLATE (qualified_id),
15246 /*template_arg_p=*/false, complain));
15249 /* Expressions do not generally have reference type. */
15250 if (TREE_CODE (expr) != SCOPE_REF
15251 /* However, if we're about to form a pointer-to-member, we just
15252 want the referenced member referenced. */
15253 && TREE_CODE (expr) != OFFSET_REF)
15254 expr = convert_from_reference (expr);
15256 if (REF_PARENTHESIZED_P (qualified_id))
15257 expr = force_paren_expr (expr);
15259 return expr;
15262 /* tsubst the initializer for a VAR_DECL. INIT is the unsubstituted
15263 initializer, DECL is the substituted VAR_DECL. Other arguments are as
15264 for tsubst. */
15266 static tree
15267 tsubst_init (tree init, tree decl, tree args,
15268 tsubst_flags_t complain, tree in_decl)
15270 if (!init)
15271 return NULL_TREE;
15273 init = tsubst_expr (init, args, complain, in_decl, false);
15275 if (!init && TREE_TYPE (decl) != error_mark_node)
15277 /* If we had an initializer but it
15278 instantiated to nothing,
15279 value-initialize the object. This will
15280 only occur when the initializer was a
15281 pack expansion where the parameter packs
15282 used in that expansion were of length
15283 zero. */
15284 init = build_value_init (TREE_TYPE (decl),
15285 complain);
15286 if (TREE_CODE (init) == AGGR_INIT_EXPR)
15287 init = get_target_expr_sfinae (init, complain);
15288 if (TREE_CODE (init) == TARGET_EXPR)
15289 TARGET_EXPR_DIRECT_INIT_P (init) = true;
15292 return init;
15295 /* Like tsubst, but deals with expressions. This function just replaces
15296 template parms; to finish processing the resultant expression, use
15297 tsubst_copy_and_build or tsubst_expr. */
15299 static tree
15300 tsubst_copy (tree t, tree args, tsubst_flags_t complain, tree in_decl)
15302 enum tree_code code;
15303 tree r;
15305 if (t == NULL_TREE || t == error_mark_node || args == NULL_TREE)
15306 return t;
15308 code = TREE_CODE (t);
15310 switch (code)
15312 case PARM_DECL:
15313 r = retrieve_local_specialization (t);
15315 if (r == NULL_TREE)
15317 /* We get here for a use of 'this' in an NSDMI. */
15318 if (DECL_NAME (t) == this_identifier && current_class_ptr)
15319 return current_class_ptr;
15321 /* This can happen for a parameter name used later in a function
15322 declaration (such as in a late-specified return type). Just
15323 make a dummy decl, since it's only used for its type. */
15324 gcc_assert (cp_unevaluated_operand != 0);
15325 r = tsubst_decl (t, args, complain);
15326 /* Give it the template pattern as its context; its true context
15327 hasn't been instantiated yet and this is good enough for
15328 mangling. */
15329 DECL_CONTEXT (r) = DECL_CONTEXT (t);
15332 if (TREE_CODE (r) == ARGUMENT_PACK_SELECT)
15333 r = argument_pack_select_arg (r);
15334 if (!mark_used (r, complain) && !(complain & tf_error))
15335 return error_mark_node;
15336 return r;
15338 case CONST_DECL:
15340 tree enum_type;
15341 tree v;
15343 if (DECL_TEMPLATE_PARM_P (t))
15344 return tsubst_copy (DECL_INITIAL (t), args, complain, in_decl);
15345 /* There is no need to substitute into namespace-scope
15346 enumerators. */
15347 if (DECL_NAMESPACE_SCOPE_P (t))
15348 return t;
15349 /* If ARGS is NULL, then T is known to be non-dependent. */
15350 if (args == NULL_TREE)
15351 return scalar_constant_value (t);
15353 /* Unfortunately, we cannot just call lookup_name here.
15354 Consider:
15356 template <int I> int f() {
15357 enum E { a = I };
15358 struct S { void g() { E e = a; } };
15361 When we instantiate f<7>::S::g(), say, lookup_name is not
15362 clever enough to find f<7>::a. */
15363 enum_type
15364 = tsubst_aggr_type (DECL_CONTEXT (t), args, complain, in_decl,
15365 /*entering_scope=*/0);
15367 for (v = TYPE_VALUES (enum_type);
15368 v != NULL_TREE;
15369 v = TREE_CHAIN (v))
15370 if (TREE_PURPOSE (v) == DECL_NAME (t))
15371 return TREE_VALUE (v);
15373 /* We didn't find the name. That should never happen; if
15374 name-lookup found it during preliminary parsing, we
15375 should find it again here during instantiation. */
15376 gcc_unreachable ();
15378 return t;
15380 case FIELD_DECL:
15381 if (DECL_CONTEXT (t))
15383 tree ctx;
15385 ctx = tsubst_aggr_type (DECL_CONTEXT (t), args, complain, in_decl,
15386 /*entering_scope=*/1);
15387 if (ctx != DECL_CONTEXT (t))
15389 tree r = lookup_field (ctx, DECL_NAME (t), 0, false);
15390 if (!r)
15392 if (complain & tf_error)
15393 error ("using invalid field %qD", t);
15394 return error_mark_node;
15396 return r;
15400 return t;
15402 case VAR_DECL:
15403 case FUNCTION_DECL:
15404 if (DECL_LANG_SPECIFIC (t) && DECL_TEMPLATE_INFO (t))
15405 r = tsubst (t, args, complain, in_decl);
15406 else if (local_variable_p (t)
15407 && uses_template_parms (DECL_CONTEXT (t)))
15409 r = retrieve_local_specialization (t);
15410 if (r == NULL_TREE)
15412 /* First try name lookup to find the instantiation. */
15413 r = lookup_name (DECL_NAME (t));
15414 if (r && !is_capture_proxy (r))
15416 /* Make sure that the one we found is the one we want. */
15417 tree ctx = enclosing_instantiation_of (DECL_CONTEXT (t));
15418 if (ctx != DECL_CONTEXT (r))
15419 r = NULL_TREE;
15422 if (r)
15423 /* OK */;
15424 else
15426 /* This can happen for a variable used in a
15427 late-specified return type of a local lambda, or for a
15428 local static or constant. Building a new VAR_DECL
15429 should be OK in all those cases. */
15430 r = tsubst_decl (t, args, complain);
15431 if (local_specializations)
15432 /* Avoid infinite recursion (79640). */
15433 register_local_specialization (r, t);
15434 if (decl_maybe_constant_var_p (r))
15436 /* We can't call cp_finish_decl, so handle the
15437 initializer by hand. */
15438 tree init = tsubst_init (DECL_INITIAL (t), r, args,
15439 complain, in_decl);
15440 if (!processing_template_decl)
15441 init = maybe_constant_init (init);
15442 if (processing_template_decl
15443 ? potential_constant_expression (init)
15444 : reduced_constant_expression_p (init))
15445 DECL_INITIALIZED_BY_CONSTANT_EXPRESSION_P (r)
15446 = TREE_CONSTANT (r) = true;
15447 DECL_INITIAL (r) = init;
15448 if (tree auto_node = type_uses_auto (TREE_TYPE (r)))
15449 TREE_TYPE (r)
15450 = do_auto_deduction (TREE_TYPE (r), init, auto_node,
15451 complain, adc_variable_type);
15453 gcc_assert (cp_unevaluated_operand || TREE_STATIC (r)
15454 || decl_constant_var_p (r)
15455 || errorcount || sorrycount);
15456 if (!processing_template_decl
15457 && !TREE_STATIC (r))
15458 r = process_outer_var_ref (r, complain);
15460 /* Remember this for subsequent uses. */
15461 if (local_specializations)
15462 register_local_specialization (r, t);
15464 if (TREE_CODE (r) == ARGUMENT_PACK_SELECT)
15465 r = argument_pack_select_arg (r);
15467 else
15468 r = t;
15469 if (!mark_used (r, complain))
15470 return error_mark_node;
15471 return r;
15473 case NAMESPACE_DECL:
15474 return t;
15476 case OVERLOAD:
15477 /* An OVERLOAD will always be a non-dependent overload set; an
15478 overload set from function scope will just be represented with an
15479 IDENTIFIER_NODE, and from class scope with a BASELINK. */
15480 gcc_assert (!uses_template_parms (t));
15481 /* We must have marked any lookups as persistent. */
15482 gcc_assert (!OVL_LOOKUP_P (t) || OVL_USED_P (t));
15483 return t;
15485 case BASELINK:
15486 return tsubst_baselink (t, current_nonlambda_class_type (),
15487 args, complain, in_decl);
15489 case TEMPLATE_DECL:
15490 if (DECL_TEMPLATE_TEMPLATE_PARM_P (t))
15491 return tsubst (TREE_TYPE (DECL_TEMPLATE_RESULT (t)),
15492 args, complain, in_decl);
15493 else if (DECL_FUNCTION_TEMPLATE_P (t) && DECL_MEMBER_TEMPLATE_P (t))
15494 return tsubst (t, args, complain, in_decl);
15495 else if (DECL_CLASS_SCOPE_P (t)
15496 && uses_template_parms (DECL_CONTEXT (t)))
15498 /* Template template argument like the following example need
15499 special treatment:
15501 template <template <class> class TT> struct C {};
15502 template <class T> struct D {
15503 template <class U> struct E {};
15504 C<E> c; // #1
15506 D<int> d; // #2
15508 We are processing the template argument `E' in #1 for
15509 the template instantiation #2. Originally, `E' is a
15510 TEMPLATE_DECL with `D<T>' as its DECL_CONTEXT. Now we
15511 have to substitute this with one having context `D<int>'. */
15513 tree context = tsubst (DECL_CONTEXT (t), args, complain, in_decl);
15514 if (dependent_scope_p (context))
15516 /* When rewriting a constructor into a deduction guide, a
15517 non-dependent name can become dependent, so memtmpl<args>
15518 becomes context::template memtmpl<args>. */
15519 tree type = tsubst (TREE_TYPE (t), args, complain, in_decl);
15520 return build_qualified_name (type, context, DECL_NAME (t),
15521 /*template*/true);
15523 return lookup_field (context, DECL_NAME(t), 0, false);
15525 else
15526 /* Ordinary template template argument. */
15527 return t;
15529 case NON_LVALUE_EXPR:
15530 case VIEW_CONVERT_EXPR:
15532 /* Handle location wrappers by substituting the wrapped node
15533 first, *then* reusing the resulting type. Doing the type
15534 first ensures that we handle template parameters and
15535 parameter pack expansions. */
15536 gcc_assert (location_wrapper_p (t));
15537 tree op0 = tsubst_copy (TREE_OPERAND (t, 0), args, complain, in_decl);
15538 return maybe_wrap_with_location (op0, EXPR_LOCATION (t));
15541 case CAST_EXPR:
15542 case REINTERPRET_CAST_EXPR:
15543 case CONST_CAST_EXPR:
15544 case STATIC_CAST_EXPR:
15545 case DYNAMIC_CAST_EXPR:
15546 case IMPLICIT_CONV_EXPR:
15547 case CONVERT_EXPR:
15548 case NOP_EXPR:
15550 tree type = tsubst (TREE_TYPE (t), args, complain, in_decl);
15551 tree op0 = tsubst_copy (TREE_OPERAND (t, 0), args, complain, in_decl);
15552 return build1 (code, type, op0);
15555 case SIZEOF_EXPR:
15556 if (PACK_EXPANSION_P (TREE_OPERAND (t, 0))
15557 || ARGUMENT_PACK_P (TREE_OPERAND (t, 0)))
15559 tree expanded, op = TREE_OPERAND (t, 0);
15560 int len = 0;
15562 if (SIZEOF_EXPR_TYPE_P (t))
15563 op = TREE_TYPE (op);
15565 ++cp_unevaluated_operand;
15566 ++c_inhibit_evaluation_warnings;
15567 /* We only want to compute the number of arguments. */
15568 if (PACK_EXPANSION_P (op))
15569 expanded = tsubst_pack_expansion (op, args, complain, in_decl);
15570 else
15571 expanded = tsubst_template_args (ARGUMENT_PACK_ARGS (op),
15572 args, complain, in_decl);
15573 --cp_unevaluated_operand;
15574 --c_inhibit_evaluation_warnings;
15576 if (TREE_CODE (expanded) == TREE_VEC)
15578 len = TREE_VEC_LENGTH (expanded);
15579 /* Set TREE_USED for the benefit of -Wunused. */
15580 for (int i = 0; i < len; i++)
15581 if (DECL_P (TREE_VEC_ELT (expanded, i)))
15582 TREE_USED (TREE_VEC_ELT (expanded, i)) = true;
15585 if (expanded == error_mark_node)
15586 return error_mark_node;
15587 else if (PACK_EXPANSION_P (expanded)
15588 || (TREE_CODE (expanded) == TREE_VEC
15589 && pack_expansion_args_count (expanded)))
15592 if (PACK_EXPANSION_P (expanded))
15593 /* OK. */;
15594 else if (TREE_VEC_LENGTH (expanded) == 1)
15595 expanded = TREE_VEC_ELT (expanded, 0);
15596 else
15597 expanded = make_argument_pack (expanded);
15599 if (TYPE_P (expanded))
15600 return cxx_sizeof_or_alignof_type (expanded, SIZEOF_EXPR,
15601 false,
15602 complain & tf_error);
15603 else
15604 return cxx_sizeof_or_alignof_expr (expanded, SIZEOF_EXPR,
15605 complain & tf_error);
15607 else
15608 return build_int_cst (size_type_node, len);
15610 if (SIZEOF_EXPR_TYPE_P (t))
15612 r = tsubst (TREE_TYPE (TREE_OPERAND (t, 0)),
15613 args, complain, in_decl);
15614 r = build1 (NOP_EXPR, r, error_mark_node);
15615 r = build1 (SIZEOF_EXPR,
15616 tsubst (TREE_TYPE (t), args, complain, in_decl), r);
15617 SIZEOF_EXPR_TYPE_P (r) = 1;
15618 return r;
15620 /* Fall through */
15622 case INDIRECT_REF:
15623 case NEGATE_EXPR:
15624 case TRUTH_NOT_EXPR:
15625 case BIT_NOT_EXPR:
15626 case ADDR_EXPR:
15627 case UNARY_PLUS_EXPR: /* Unary + */
15628 case ALIGNOF_EXPR:
15629 case AT_ENCODE_EXPR:
15630 case ARROW_EXPR:
15631 case THROW_EXPR:
15632 case TYPEID_EXPR:
15633 case REALPART_EXPR:
15634 case IMAGPART_EXPR:
15635 case PAREN_EXPR:
15637 tree type = tsubst (TREE_TYPE (t), args, complain, in_decl);
15638 tree op0 = tsubst_copy (TREE_OPERAND (t, 0), args, complain, in_decl);
15639 r = build1 (code, type, op0);
15640 if (code == ALIGNOF_EXPR)
15641 ALIGNOF_EXPR_STD_P (r) = ALIGNOF_EXPR_STD_P (t);
15642 return r;
15645 case COMPONENT_REF:
15647 tree object;
15648 tree name;
15650 object = tsubst_copy (TREE_OPERAND (t, 0), args, complain, in_decl);
15651 name = TREE_OPERAND (t, 1);
15652 if (TREE_CODE (name) == BIT_NOT_EXPR)
15654 name = tsubst_copy (TREE_OPERAND (name, 0), args,
15655 complain, in_decl);
15656 name = build1 (BIT_NOT_EXPR, NULL_TREE, name);
15658 else if (TREE_CODE (name) == SCOPE_REF
15659 && TREE_CODE (TREE_OPERAND (name, 1)) == BIT_NOT_EXPR)
15661 tree base = tsubst_copy (TREE_OPERAND (name, 0), args,
15662 complain, in_decl);
15663 name = TREE_OPERAND (name, 1);
15664 name = tsubst_copy (TREE_OPERAND (name, 0), args,
15665 complain, in_decl);
15666 name = build1 (BIT_NOT_EXPR, NULL_TREE, name);
15667 name = build_qualified_name (/*type=*/NULL_TREE,
15668 base, name,
15669 /*template_p=*/false);
15671 else if (BASELINK_P (name))
15672 name = tsubst_baselink (name,
15673 non_reference (TREE_TYPE (object)),
15674 args, complain,
15675 in_decl);
15676 else
15677 name = tsubst_copy (name, args, complain, in_decl);
15678 return build_nt (COMPONENT_REF, object, name, NULL_TREE);
15681 case PLUS_EXPR:
15682 case MINUS_EXPR:
15683 case MULT_EXPR:
15684 case TRUNC_DIV_EXPR:
15685 case CEIL_DIV_EXPR:
15686 case FLOOR_DIV_EXPR:
15687 case ROUND_DIV_EXPR:
15688 case EXACT_DIV_EXPR:
15689 case BIT_AND_EXPR:
15690 case BIT_IOR_EXPR:
15691 case BIT_XOR_EXPR:
15692 case TRUNC_MOD_EXPR:
15693 case FLOOR_MOD_EXPR:
15694 case TRUTH_ANDIF_EXPR:
15695 case TRUTH_ORIF_EXPR:
15696 case TRUTH_AND_EXPR:
15697 case TRUTH_OR_EXPR:
15698 case RSHIFT_EXPR:
15699 case LSHIFT_EXPR:
15700 case RROTATE_EXPR:
15701 case LROTATE_EXPR:
15702 case EQ_EXPR:
15703 case NE_EXPR:
15704 case MAX_EXPR:
15705 case MIN_EXPR:
15706 case LE_EXPR:
15707 case GE_EXPR:
15708 case LT_EXPR:
15709 case GT_EXPR:
15710 case COMPOUND_EXPR:
15711 case DOTSTAR_EXPR:
15712 case MEMBER_REF:
15713 case PREDECREMENT_EXPR:
15714 case PREINCREMENT_EXPR:
15715 case POSTDECREMENT_EXPR:
15716 case POSTINCREMENT_EXPR:
15718 tree op0 = tsubst_copy (TREE_OPERAND (t, 0), args, complain, in_decl);
15719 tree op1 = tsubst_copy (TREE_OPERAND (t, 1), args, complain, in_decl);
15720 return build_nt (code, op0, op1);
15723 case SCOPE_REF:
15725 tree op0 = tsubst_copy (TREE_OPERAND (t, 0), args, complain, in_decl);
15726 tree op1 = tsubst_copy (TREE_OPERAND (t, 1), args, complain, in_decl);
15727 return build_qualified_name (/*type=*/NULL_TREE, op0, op1,
15728 QUALIFIED_NAME_IS_TEMPLATE (t));
15731 case ARRAY_REF:
15733 tree op0 = tsubst_copy (TREE_OPERAND (t, 0), args, complain, in_decl);
15734 tree op1 = tsubst_copy (TREE_OPERAND (t, 1), args, complain, in_decl);
15735 return build_nt (ARRAY_REF, op0, op1, NULL_TREE, NULL_TREE);
15738 case CALL_EXPR:
15740 int n = VL_EXP_OPERAND_LENGTH (t);
15741 tree result = build_vl_exp (CALL_EXPR, n);
15742 int i;
15743 for (i = 0; i < n; i++)
15744 TREE_OPERAND (t, i) = tsubst_copy (TREE_OPERAND (t, i), args,
15745 complain, in_decl);
15746 return result;
15749 case COND_EXPR:
15750 case MODOP_EXPR:
15751 case PSEUDO_DTOR_EXPR:
15752 case VEC_PERM_EXPR:
15754 tree op0 = tsubst_copy (TREE_OPERAND (t, 0), args, complain, in_decl);
15755 tree op1 = tsubst_copy (TREE_OPERAND (t, 1), args, complain, in_decl);
15756 tree op2 = tsubst_copy (TREE_OPERAND (t, 2), args, complain, in_decl);
15757 r = build_nt (code, op0, op1, op2);
15758 TREE_NO_WARNING (r) = TREE_NO_WARNING (t);
15759 return r;
15762 case NEW_EXPR:
15764 tree op0 = tsubst_copy (TREE_OPERAND (t, 0), args, complain, in_decl);
15765 tree op1 = tsubst_copy (TREE_OPERAND (t, 1), args, complain, in_decl);
15766 tree op2 = tsubst_copy (TREE_OPERAND (t, 2), args, complain, in_decl);
15767 r = build_nt (code, op0, op1, op2);
15768 NEW_EXPR_USE_GLOBAL (r) = NEW_EXPR_USE_GLOBAL (t);
15769 return r;
15772 case DELETE_EXPR:
15774 tree op0 = tsubst_copy (TREE_OPERAND (t, 0), args, complain, in_decl);
15775 tree op1 = tsubst_copy (TREE_OPERAND (t, 1), args, complain, in_decl);
15776 r = build_nt (code, op0, op1);
15777 DELETE_EXPR_USE_GLOBAL (r) = DELETE_EXPR_USE_GLOBAL (t);
15778 DELETE_EXPR_USE_VEC (r) = DELETE_EXPR_USE_VEC (t);
15779 return r;
15782 case TEMPLATE_ID_EXPR:
15784 /* Substituted template arguments */
15785 tree fn = TREE_OPERAND (t, 0);
15786 tree targs = TREE_OPERAND (t, 1);
15788 fn = tsubst_copy (fn, args, complain, in_decl);
15789 if (targs)
15790 targs = tsubst_template_args (targs, args, complain, in_decl);
15792 return lookup_template_function (fn, targs);
15795 case TREE_LIST:
15797 tree purpose, value, chain;
15799 if (t == void_list_node)
15800 return t;
15802 purpose = TREE_PURPOSE (t);
15803 if (purpose)
15804 purpose = tsubst_copy (purpose, args, complain, in_decl);
15805 value = TREE_VALUE (t);
15806 if (value)
15807 value = tsubst_copy (value, args, complain, in_decl);
15808 chain = TREE_CHAIN (t);
15809 if (chain && chain != void_type_node)
15810 chain = tsubst_copy (chain, args, complain, in_decl);
15811 if (purpose == TREE_PURPOSE (t)
15812 && value == TREE_VALUE (t)
15813 && chain == TREE_CHAIN (t))
15814 return t;
15815 return tree_cons (purpose, value, chain);
15818 case RECORD_TYPE:
15819 case UNION_TYPE:
15820 case ENUMERAL_TYPE:
15821 case INTEGER_TYPE:
15822 case TEMPLATE_TYPE_PARM:
15823 case TEMPLATE_TEMPLATE_PARM:
15824 case BOUND_TEMPLATE_TEMPLATE_PARM:
15825 case TEMPLATE_PARM_INDEX:
15826 case POINTER_TYPE:
15827 case REFERENCE_TYPE:
15828 case OFFSET_TYPE:
15829 case FUNCTION_TYPE:
15830 case METHOD_TYPE:
15831 case ARRAY_TYPE:
15832 case TYPENAME_TYPE:
15833 case UNBOUND_CLASS_TEMPLATE:
15834 case TYPEOF_TYPE:
15835 case DECLTYPE_TYPE:
15836 case TYPE_DECL:
15837 return tsubst (t, args, complain, in_decl);
15839 case USING_DECL:
15840 t = DECL_NAME (t);
15841 /* Fall through. */
15842 case IDENTIFIER_NODE:
15843 if (IDENTIFIER_CONV_OP_P (t))
15845 tree new_type = tsubst (TREE_TYPE (t), args, complain, in_decl);
15846 return make_conv_op_name (new_type);
15848 else
15849 return t;
15851 case CONSTRUCTOR:
15852 /* This is handled by tsubst_copy_and_build. */
15853 gcc_unreachable ();
15855 case VA_ARG_EXPR:
15857 tree op0 = tsubst_copy (TREE_OPERAND (t, 0), args, complain, in_decl);
15858 tree type = tsubst (TREE_TYPE (t), args, complain, in_decl);
15859 return build_x_va_arg (EXPR_LOCATION (t), op0, type);
15862 case CLEANUP_POINT_EXPR:
15863 /* We shouldn't have built any of these during initial template
15864 generation. Instead, they should be built during instantiation
15865 in response to the saved STMT_IS_FULL_EXPR_P setting. */
15866 gcc_unreachable ();
15868 case OFFSET_REF:
15870 tree type = tsubst (TREE_TYPE (t), args, complain, in_decl);
15871 tree op0 = tsubst_copy (TREE_OPERAND (t, 0), args, complain, in_decl);
15872 tree op1 = tsubst_copy (TREE_OPERAND (t, 1), args, complain, in_decl);
15873 r = build2 (code, type, op0, op1);
15874 PTRMEM_OK_P (r) = PTRMEM_OK_P (t);
15875 if (!mark_used (TREE_OPERAND (r, 1), complain)
15876 && !(complain & tf_error))
15877 return error_mark_node;
15878 return r;
15881 case EXPR_PACK_EXPANSION:
15882 error ("invalid use of pack expansion expression");
15883 return error_mark_node;
15885 case NONTYPE_ARGUMENT_PACK:
15886 error ("use %<...%> to expand argument pack");
15887 return error_mark_node;
15889 case VOID_CST:
15890 gcc_checking_assert (t == void_node && VOID_TYPE_P (TREE_TYPE (t)));
15891 return t;
15893 case INTEGER_CST:
15894 case REAL_CST:
15895 case STRING_CST:
15896 case COMPLEX_CST:
15898 /* Instantiate any typedefs in the type. */
15899 tree type = tsubst (TREE_TYPE (t), args, complain, in_decl);
15900 r = fold_convert (type, t);
15901 gcc_assert (TREE_CODE (r) == code);
15902 return r;
15905 case PTRMEM_CST:
15906 /* These can sometimes show up in a partial instantiation, but never
15907 involve template parms. */
15908 gcc_assert (!uses_template_parms (t));
15909 return t;
15911 case UNARY_LEFT_FOLD_EXPR:
15912 return tsubst_unary_left_fold (t, args, complain, in_decl);
15913 case UNARY_RIGHT_FOLD_EXPR:
15914 return tsubst_unary_right_fold (t, args, complain, in_decl);
15915 case BINARY_LEFT_FOLD_EXPR:
15916 return tsubst_binary_left_fold (t, args, complain, in_decl);
15917 case BINARY_RIGHT_FOLD_EXPR:
15918 return tsubst_binary_right_fold (t, args, complain, in_decl);
15919 case PREDICT_EXPR:
15920 return t;
15922 case DEBUG_BEGIN_STMT:
15923 /* ??? There's no point in copying it for now, but maybe some
15924 day it will contain more information, such as a pointer back
15925 to the containing function, inlined copy or so. */
15926 return t;
15928 default:
15929 /* We shouldn't get here, but keep going if !flag_checking. */
15930 if (flag_checking)
15931 gcc_unreachable ();
15932 return t;
15936 /* Helper function for tsubst_omp_clauses, used for instantiation of
15937 OMP_CLAUSE_DECL of clauses. */
15939 static tree
15940 tsubst_omp_clause_decl (tree decl, tree args, tsubst_flags_t complain,
15941 tree in_decl)
15943 if (decl == NULL_TREE)
15944 return NULL_TREE;
15946 /* Handle an OpenMP array section represented as a TREE_LIST (or
15947 OMP_CLAUSE_DEPEND_KIND). An OMP_CLAUSE_DEPEND (with a depend
15948 kind of OMP_CLAUSE_DEPEND_SINK) can also be represented as a
15949 TREE_LIST. We can handle it exactly the same as an array section
15950 (purpose, value, and a chain), even though the nomenclature
15951 (low_bound, length, etc) is different. */
15952 if (TREE_CODE (decl) == TREE_LIST)
15954 tree low_bound
15955 = tsubst_expr (TREE_PURPOSE (decl), args, complain, in_decl,
15956 /*integral_constant_expression_p=*/false);
15957 tree length = tsubst_expr (TREE_VALUE (decl), args, complain, in_decl,
15958 /*integral_constant_expression_p=*/false);
15959 tree chain = tsubst_omp_clause_decl (TREE_CHAIN (decl), args, complain,
15960 in_decl);
15961 if (TREE_PURPOSE (decl) == low_bound
15962 && TREE_VALUE (decl) == length
15963 && TREE_CHAIN (decl) == chain)
15964 return decl;
15965 tree ret = tree_cons (low_bound, length, chain);
15966 OMP_CLAUSE_DEPEND_SINK_NEGATIVE (ret)
15967 = OMP_CLAUSE_DEPEND_SINK_NEGATIVE (decl);
15968 return ret;
15970 tree ret = tsubst_expr (decl, args, complain, in_decl,
15971 /*integral_constant_expression_p=*/false);
15972 /* Undo convert_from_reference tsubst_expr could have called. */
15973 if (decl
15974 && REFERENCE_REF_P (ret)
15975 && !REFERENCE_REF_P (decl))
15976 ret = TREE_OPERAND (ret, 0);
15977 return ret;
15980 /* Like tsubst_copy, but specifically for OpenMP clauses. */
15982 static tree
15983 tsubst_omp_clauses (tree clauses, enum c_omp_region_type ort,
15984 tree args, tsubst_flags_t complain, tree in_decl)
15986 tree new_clauses = NULL_TREE, nc, oc;
15987 tree linear_no_step = NULL_TREE;
15989 for (oc = clauses; oc ; oc = OMP_CLAUSE_CHAIN (oc))
15991 nc = copy_node (oc);
15992 OMP_CLAUSE_CHAIN (nc) = new_clauses;
15993 new_clauses = nc;
15995 switch (OMP_CLAUSE_CODE (nc))
15997 case OMP_CLAUSE_LASTPRIVATE:
15998 if (OMP_CLAUSE_LASTPRIVATE_STMT (oc))
16000 OMP_CLAUSE_LASTPRIVATE_STMT (nc) = push_stmt_list ();
16001 tsubst_expr (OMP_CLAUSE_LASTPRIVATE_STMT (oc), args, complain,
16002 in_decl, /*integral_constant_expression_p=*/false);
16003 OMP_CLAUSE_LASTPRIVATE_STMT (nc)
16004 = pop_stmt_list (OMP_CLAUSE_LASTPRIVATE_STMT (nc));
16006 /* FALLTHRU */
16007 case OMP_CLAUSE_PRIVATE:
16008 case OMP_CLAUSE_SHARED:
16009 case OMP_CLAUSE_FIRSTPRIVATE:
16010 case OMP_CLAUSE_COPYIN:
16011 case OMP_CLAUSE_COPYPRIVATE:
16012 case OMP_CLAUSE_UNIFORM:
16013 case OMP_CLAUSE_DEPEND:
16014 case OMP_CLAUSE_FROM:
16015 case OMP_CLAUSE_TO:
16016 case OMP_CLAUSE_MAP:
16017 case OMP_CLAUSE_USE_DEVICE_PTR:
16018 case OMP_CLAUSE_IS_DEVICE_PTR:
16019 OMP_CLAUSE_DECL (nc)
16020 = tsubst_omp_clause_decl (OMP_CLAUSE_DECL (oc), args, complain,
16021 in_decl);
16022 break;
16023 case OMP_CLAUSE_TILE:
16024 case OMP_CLAUSE_IF:
16025 case OMP_CLAUSE_NUM_THREADS:
16026 case OMP_CLAUSE_SCHEDULE:
16027 case OMP_CLAUSE_COLLAPSE:
16028 case OMP_CLAUSE_FINAL:
16029 case OMP_CLAUSE_DEVICE:
16030 case OMP_CLAUSE_DIST_SCHEDULE:
16031 case OMP_CLAUSE_NUM_TEAMS:
16032 case OMP_CLAUSE_THREAD_LIMIT:
16033 case OMP_CLAUSE_SAFELEN:
16034 case OMP_CLAUSE_SIMDLEN:
16035 case OMP_CLAUSE_NUM_TASKS:
16036 case OMP_CLAUSE_GRAINSIZE:
16037 case OMP_CLAUSE_PRIORITY:
16038 case OMP_CLAUSE_ORDERED:
16039 case OMP_CLAUSE_HINT:
16040 case OMP_CLAUSE_NUM_GANGS:
16041 case OMP_CLAUSE_NUM_WORKERS:
16042 case OMP_CLAUSE_VECTOR_LENGTH:
16043 case OMP_CLAUSE_WORKER:
16044 case OMP_CLAUSE_VECTOR:
16045 case OMP_CLAUSE_ASYNC:
16046 case OMP_CLAUSE_WAIT:
16047 OMP_CLAUSE_OPERAND (nc, 0)
16048 = tsubst_expr (OMP_CLAUSE_OPERAND (oc, 0), args, complain,
16049 in_decl, /*integral_constant_expression_p=*/false);
16050 break;
16051 case OMP_CLAUSE_REDUCTION:
16052 if (OMP_CLAUSE_REDUCTION_PLACEHOLDER (oc))
16054 tree placeholder = OMP_CLAUSE_REDUCTION_PLACEHOLDER (oc);
16055 if (TREE_CODE (placeholder) == SCOPE_REF)
16057 tree scope = tsubst (TREE_OPERAND (placeholder, 0), args,
16058 complain, in_decl);
16059 OMP_CLAUSE_REDUCTION_PLACEHOLDER (nc)
16060 = build_qualified_name (NULL_TREE, scope,
16061 TREE_OPERAND (placeholder, 1),
16062 false);
16064 else
16065 gcc_assert (identifier_p (placeholder));
16067 OMP_CLAUSE_DECL (nc)
16068 = tsubst_omp_clause_decl (OMP_CLAUSE_DECL (oc), args, complain,
16069 in_decl);
16070 break;
16071 case OMP_CLAUSE_GANG:
16072 case OMP_CLAUSE_ALIGNED:
16073 OMP_CLAUSE_DECL (nc)
16074 = tsubst_omp_clause_decl (OMP_CLAUSE_DECL (oc), args, complain,
16075 in_decl);
16076 OMP_CLAUSE_OPERAND (nc, 1)
16077 = tsubst_expr (OMP_CLAUSE_OPERAND (oc, 1), args, complain,
16078 in_decl, /*integral_constant_expression_p=*/false);
16079 break;
16080 case OMP_CLAUSE_LINEAR:
16081 OMP_CLAUSE_DECL (nc)
16082 = tsubst_omp_clause_decl (OMP_CLAUSE_DECL (oc), args, complain,
16083 in_decl);
16084 if (OMP_CLAUSE_LINEAR_STEP (oc) == NULL_TREE)
16086 gcc_assert (!linear_no_step);
16087 linear_no_step = nc;
16089 else if (OMP_CLAUSE_LINEAR_VARIABLE_STRIDE (oc))
16090 OMP_CLAUSE_LINEAR_STEP (nc)
16091 = tsubst_omp_clause_decl (OMP_CLAUSE_LINEAR_STEP (oc), args,
16092 complain, in_decl);
16093 else
16094 OMP_CLAUSE_LINEAR_STEP (nc)
16095 = tsubst_expr (OMP_CLAUSE_LINEAR_STEP (oc), args, complain,
16096 in_decl,
16097 /*integral_constant_expression_p=*/false);
16098 break;
16099 case OMP_CLAUSE_NOWAIT:
16100 case OMP_CLAUSE_DEFAULT:
16101 case OMP_CLAUSE_UNTIED:
16102 case OMP_CLAUSE_MERGEABLE:
16103 case OMP_CLAUSE_INBRANCH:
16104 case OMP_CLAUSE_NOTINBRANCH:
16105 case OMP_CLAUSE_PROC_BIND:
16106 case OMP_CLAUSE_FOR:
16107 case OMP_CLAUSE_PARALLEL:
16108 case OMP_CLAUSE_SECTIONS:
16109 case OMP_CLAUSE_TASKGROUP:
16110 case OMP_CLAUSE_NOGROUP:
16111 case OMP_CLAUSE_THREADS:
16112 case OMP_CLAUSE_SIMD:
16113 case OMP_CLAUSE_DEFAULTMAP:
16114 case OMP_CLAUSE_INDEPENDENT:
16115 case OMP_CLAUSE_AUTO:
16116 case OMP_CLAUSE_SEQ:
16117 break;
16118 default:
16119 gcc_unreachable ();
16121 if ((ort & C_ORT_OMP_DECLARE_SIMD) == C_ORT_OMP)
16122 switch (OMP_CLAUSE_CODE (nc))
16124 case OMP_CLAUSE_SHARED:
16125 case OMP_CLAUSE_PRIVATE:
16126 case OMP_CLAUSE_FIRSTPRIVATE:
16127 case OMP_CLAUSE_LASTPRIVATE:
16128 case OMP_CLAUSE_COPYPRIVATE:
16129 case OMP_CLAUSE_LINEAR:
16130 case OMP_CLAUSE_REDUCTION:
16131 case OMP_CLAUSE_USE_DEVICE_PTR:
16132 case OMP_CLAUSE_IS_DEVICE_PTR:
16133 /* tsubst_expr on SCOPE_REF results in returning
16134 finish_non_static_data_member result. Undo that here. */
16135 if (TREE_CODE (OMP_CLAUSE_DECL (oc)) == SCOPE_REF
16136 && (TREE_CODE (TREE_OPERAND (OMP_CLAUSE_DECL (oc), 1))
16137 == IDENTIFIER_NODE))
16139 tree t = OMP_CLAUSE_DECL (nc);
16140 tree v = t;
16141 while (v)
16142 switch (TREE_CODE (v))
16144 case COMPONENT_REF:
16145 case MEM_REF:
16146 case INDIRECT_REF:
16147 CASE_CONVERT:
16148 case POINTER_PLUS_EXPR:
16149 v = TREE_OPERAND (v, 0);
16150 continue;
16151 case PARM_DECL:
16152 if (DECL_CONTEXT (v) == current_function_decl
16153 && DECL_ARTIFICIAL (v)
16154 && DECL_NAME (v) == this_identifier)
16155 OMP_CLAUSE_DECL (nc) = TREE_OPERAND (t, 1);
16156 /* FALLTHRU */
16157 default:
16158 v = NULL_TREE;
16159 break;
16162 else if (VAR_P (OMP_CLAUSE_DECL (oc))
16163 && DECL_HAS_VALUE_EXPR_P (OMP_CLAUSE_DECL (oc))
16164 && DECL_ARTIFICIAL (OMP_CLAUSE_DECL (oc))
16165 && DECL_LANG_SPECIFIC (OMP_CLAUSE_DECL (oc))
16166 && DECL_OMP_PRIVATIZED_MEMBER (OMP_CLAUSE_DECL (oc)))
16168 tree decl = OMP_CLAUSE_DECL (nc);
16169 if (VAR_P (decl))
16171 retrofit_lang_decl (decl);
16172 DECL_OMP_PRIVATIZED_MEMBER (decl) = 1;
16175 break;
16176 default:
16177 break;
16181 new_clauses = nreverse (new_clauses);
16182 if (ort != C_ORT_OMP_DECLARE_SIMD)
16184 new_clauses = finish_omp_clauses (new_clauses, ort);
16185 if (linear_no_step)
16186 for (nc = new_clauses; nc; nc = OMP_CLAUSE_CHAIN (nc))
16187 if (nc == linear_no_step)
16189 OMP_CLAUSE_LINEAR_STEP (nc) = NULL_TREE;
16190 break;
16193 return new_clauses;
16196 /* Like tsubst_copy_and_build, but unshare TREE_LIST nodes. */
16198 static tree
16199 tsubst_copy_asm_operands (tree t, tree args, tsubst_flags_t complain,
16200 tree in_decl)
16202 #define RECUR(t) tsubst_copy_asm_operands (t, args, complain, in_decl)
16204 tree purpose, value, chain;
16206 if (t == NULL)
16207 return t;
16209 if (TREE_CODE (t) != TREE_LIST)
16210 return tsubst_copy_and_build (t, args, complain, in_decl,
16211 /*function_p=*/false,
16212 /*integral_constant_expression_p=*/false);
16214 if (t == void_list_node)
16215 return t;
16217 purpose = TREE_PURPOSE (t);
16218 if (purpose)
16219 purpose = RECUR (purpose);
16220 value = TREE_VALUE (t);
16221 if (value)
16223 if (TREE_CODE (value) != LABEL_DECL)
16224 value = RECUR (value);
16225 else
16227 value = lookup_label (DECL_NAME (value));
16228 gcc_assert (TREE_CODE (value) == LABEL_DECL);
16229 TREE_USED (value) = 1;
16232 chain = TREE_CHAIN (t);
16233 if (chain && chain != void_type_node)
16234 chain = RECUR (chain);
16235 return tree_cons (purpose, value, chain);
16236 #undef RECUR
16239 /* Used to temporarily communicate the list of #pragma omp parallel
16240 clauses to #pragma omp for instantiation if they are combined
16241 together. */
16243 static tree *omp_parallel_combined_clauses;
16245 /* Substitute one OMP_FOR iterator. */
16247 static void
16248 tsubst_omp_for_iterator (tree t, int i, tree declv, tree orig_declv,
16249 tree initv, tree condv, tree incrv, tree *clauses,
16250 tree args, tsubst_flags_t complain, tree in_decl,
16251 bool integral_constant_expression_p)
16253 #define RECUR(NODE) \
16254 tsubst_expr ((NODE), args, complain, in_decl, \
16255 integral_constant_expression_p)
16256 tree decl, init, cond, incr;
16258 init = TREE_VEC_ELT (OMP_FOR_INIT (t), i);
16259 gcc_assert (TREE_CODE (init) == MODIFY_EXPR);
16261 if (orig_declv && OMP_FOR_ORIG_DECLS (t))
16263 tree o = TREE_VEC_ELT (OMP_FOR_ORIG_DECLS (t), i);
16264 TREE_VEC_ELT (orig_declv, i) = RECUR (o);
16267 decl = TREE_OPERAND (init, 0);
16268 init = TREE_OPERAND (init, 1);
16269 tree decl_expr = NULL_TREE;
16270 if (init && TREE_CODE (init) == DECL_EXPR)
16272 /* We need to jump through some hoops to handle declarations in the
16273 init-statement, since we might need to handle auto deduction,
16274 but we need to keep control of initialization. */
16275 decl_expr = init;
16276 init = DECL_INITIAL (DECL_EXPR_DECL (init));
16277 decl = tsubst_decl (decl, args, complain);
16279 else
16281 if (TREE_CODE (decl) == SCOPE_REF)
16283 decl = RECUR (decl);
16284 if (TREE_CODE (decl) == COMPONENT_REF)
16286 tree v = decl;
16287 while (v)
16288 switch (TREE_CODE (v))
16290 case COMPONENT_REF:
16291 case MEM_REF:
16292 case INDIRECT_REF:
16293 CASE_CONVERT:
16294 case POINTER_PLUS_EXPR:
16295 v = TREE_OPERAND (v, 0);
16296 continue;
16297 case PARM_DECL:
16298 if (DECL_CONTEXT (v) == current_function_decl
16299 && DECL_ARTIFICIAL (v)
16300 && DECL_NAME (v) == this_identifier)
16302 decl = TREE_OPERAND (decl, 1);
16303 decl = omp_privatize_field (decl, false);
16305 /* FALLTHRU */
16306 default:
16307 v = NULL_TREE;
16308 break;
16312 else
16313 decl = RECUR (decl);
16315 init = RECUR (init);
16317 tree auto_node = type_uses_auto (TREE_TYPE (decl));
16318 if (auto_node && init)
16319 TREE_TYPE (decl)
16320 = do_auto_deduction (TREE_TYPE (decl), init, auto_node, complain);
16322 gcc_assert (!type_dependent_expression_p (decl));
16324 if (!CLASS_TYPE_P (TREE_TYPE (decl)))
16326 if (decl_expr)
16328 /* Declare the variable, but don't let that initialize it. */
16329 tree init_sav = DECL_INITIAL (DECL_EXPR_DECL (decl_expr));
16330 DECL_INITIAL (DECL_EXPR_DECL (decl_expr)) = NULL_TREE;
16331 RECUR (decl_expr);
16332 DECL_INITIAL (DECL_EXPR_DECL (decl_expr)) = init_sav;
16335 cond = RECUR (TREE_VEC_ELT (OMP_FOR_COND (t), i));
16336 incr = TREE_VEC_ELT (OMP_FOR_INCR (t), i);
16337 if (TREE_CODE (incr) == MODIFY_EXPR)
16339 tree lhs = RECUR (TREE_OPERAND (incr, 0));
16340 tree rhs = RECUR (TREE_OPERAND (incr, 1));
16341 incr = build_x_modify_expr (EXPR_LOCATION (incr), lhs,
16342 NOP_EXPR, rhs, complain);
16344 else
16345 incr = RECUR (incr);
16346 TREE_VEC_ELT (declv, i) = decl;
16347 TREE_VEC_ELT (initv, i) = init;
16348 TREE_VEC_ELT (condv, i) = cond;
16349 TREE_VEC_ELT (incrv, i) = incr;
16350 return;
16353 if (decl_expr)
16355 /* Declare and initialize the variable. */
16356 RECUR (decl_expr);
16357 init = NULL_TREE;
16359 else if (init)
16361 tree *pc;
16362 int j;
16363 for (j = (omp_parallel_combined_clauses == NULL ? 1 : 0); j < 2; j++)
16365 for (pc = j ? clauses : omp_parallel_combined_clauses; *pc; )
16367 if (OMP_CLAUSE_CODE (*pc) == OMP_CLAUSE_PRIVATE
16368 && OMP_CLAUSE_DECL (*pc) == decl)
16369 break;
16370 else if (OMP_CLAUSE_CODE (*pc) == OMP_CLAUSE_LASTPRIVATE
16371 && OMP_CLAUSE_DECL (*pc) == decl)
16373 if (j)
16374 break;
16375 /* Move lastprivate (decl) clause to OMP_FOR_CLAUSES. */
16376 tree c = *pc;
16377 *pc = OMP_CLAUSE_CHAIN (c);
16378 OMP_CLAUSE_CHAIN (c) = *clauses;
16379 *clauses = c;
16381 else if (OMP_CLAUSE_CODE (*pc) == OMP_CLAUSE_FIRSTPRIVATE
16382 && OMP_CLAUSE_DECL (*pc) == decl)
16384 error ("iteration variable %qD should not be firstprivate",
16385 decl);
16386 *pc = OMP_CLAUSE_CHAIN (*pc);
16388 else if (OMP_CLAUSE_CODE (*pc) == OMP_CLAUSE_REDUCTION
16389 && OMP_CLAUSE_DECL (*pc) == decl)
16391 error ("iteration variable %qD should not be reduction",
16392 decl);
16393 *pc = OMP_CLAUSE_CHAIN (*pc);
16395 else
16396 pc = &OMP_CLAUSE_CHAIN (*pc);
16398 if (*pc)
16399 break;
16401 if (*pc == NULL_TREE)
16403 tree c = build_omp_clause (input_location, OMP_CLAUSE_PRIVATE);
16404 OMP_CLAUSE_DECL (c) = decl;
16405 c = finish_omp_clauses (c, C_ORT_OMP);
16406 if (c)
16408 OMP_CLAUSE_CHAIN (c) = *clauses;
16409 *clauses = c;
16413 cond = TREE_VEC_ELT (OMP_FOR_COND (t), i);
16414 if (COMPARISON_CLASS_P (cond))
16416 tree op0 = RECUR (TREE_OPERAND (cond, 0));
16417 tree op1 = RECUR (TREE_OPERAND (cond, 1));
16418 cond = build2 (TREE_CODE (cond), boolean_type_node, op0, op1);
16420 else
16421 cond = RECUR (cond);
16422 incr = TREE_VEC_ELT (OMP_FOR_INCR (t), i);
16423 switch (TREE_CODE (incr))
16425 case PREINCREMENT_EXPR:
16426 case PREDECREMENT_EXPR:
16427 case POSTINCREMENT_EXPR:
16428 case POSTDECREMENT_EXPR:
16429 incr = build2 (TREE_CODE (incr), TREE_TYPE (decl),
16430 RECUR (TREE_OPERAND (incr, 0)), NULL_TREE);
16431 break;
16432 case MODIFY_EXPR:
16433 if (TREE_CODE (TREE_OPERAND (incr, 1)) == PLUS_EXPR
16434 || TREE_CODE (TREE_OPERAND (incr, 1)) == MINUS_EXPR)
16436 tree rhs = TREE_OPERAND (incr, 1);
16437 tree lhs = RECUR (TREE_OPERAND (incr, 0));
16438 tree rhs0 = RECUR (TREE_OPERAND (rhs, 0));
16439 tree rhs1 = RECUR (TREE_OPERAND (rhs, 1));
16440 incr = build2 (MODIFY_EXPR, TREE_TYPE (decl), lhs,
16441 build2 (TREE_CODE (rhs), TREE_TYPE (decl),
16442 rhs0, rhs1));
16444 else
16445 incr = RECUR (incr);
16446 break;
16447 case MODOP_EXPR:
16448 if (TREE_CODE (TREE_OPERAND (incr, 1)) == PLUS_EXPR
16449 || TREE_CODE (TREE_OPERAND (incr, 1)) == MINUS_EXPR)
16451 tree lhs = RECUR (TREE_OPERAND (incr, 0));
16452 incr = build2 (MODIFY_EXPR, TREE_TYPE (decl), lhs,
16453 build2 (TREE_CODE (TREE_OPERAND (incr, 1)),
16454 TREE_TYPE (decl), lhs,
16455 RECUR (TREE_OPERAND (incr, 2))));
16457 else if (TREE_CODE (TREE_OPERAND (incr, 1)) == NOP_EXPR
16458 && (TREE_CODE (TREE_OPERAND (incr, 2)) == PLUS_EXPR
16459 || (TREE_CODE (TREE_OPERAND (incr, 2)) == MINUS_EXPR)))
16461 tree rhs = TREE_OPERAND (incr, 2);
16462 tree lhs = RECUR (TREE_OPERAND (incr, 0));
16463 tree rhs0 = RECUR (TREE_OPERAND (rhs, 0));
16464 tree rhs1 = RECUR (TREE_OPERAND (rhs, 1));
16465 incr = build2 (MODIFY_EXPR, TREE_TYPE (decl), lhs,
16466 build2 (TREE_CODE (rhs), TREE_TYPE (decl),
16467 rhs0, rhs1));
16469 else
16470 incr = RECUR (incr);
16471 break;
16472 default:
16473 incr = RECUR (incr);
16474 break;
16477 TREE_VEC_ELT (declv, i) = decl;
16478 TREE_VEC_ELT (initv, i) = init;
16479 TREE_VEC_ELT (condv, i) = cond;
16480 TREE_VEC_ELT (incrv, i) = incr;
16481 #undef RECUR
16484 /* Helper function of tsubst_expr, find OMP_TEAMS inside
16485 of OMP_TARGET's body. */
16487 static tree
16488 tsubst_find_omp_teams (tree *tp, int *walk_subtrees, void *)
16490 *walk_subtrees = 0;
16491 switch (TREE_CODE (*tp))
16493 case OMP_TEAMS:
16494 return *tp;
16495 case BIND_EXPR:
16496 case STATEMENT_LIST:
16497 *walk_subtrees = 1;
16498 break;
16499 default:
16500 break;
16502 return NULL_TREE;
16505 /* Helper function for tsubst_expr. For decomposition declaration
16506 artificial base DECL, which is tsubsted PATTERN_DECL, tsubst
16507 also the corresponding decls representing the identifiers
16508 of the decomposition declaration. Return DECL if successful
16509 or error_mark_node otherwise, set *FIRST to the first decl
16510 in the list chained through DECL_CHAIN and *CNT to the number
16511 of such decls. */
16513 static tree
16514 tsubst_decomp_names (tree decl, tree pattern_decl, tree args,
16515 tsubst_flags_t complain, tree in_decl, tree *first,
16516 unsigned int *cnt)
16518 tree decl2, decl3, prev = decl;
16519 *cnt = 0;
16520 gcc_assert (DECL_NAME (decl) == NULL_TREE);
16521 for (decl2 = DECL_CHAIN (pattern_decl);
16522 decl2
16523 && VAR_P (decl2)
16524 && DECL_DECOMPOSITION_P (decl2)
16525 && DECL_NAME (decl2);
16526 decl2 = DECL_CHAIN (decl2))
16528 if (TREE_TYPE (decl2) == error_mark_node && *cnt == 0)
16530 gcc_assert (errorcount);
16531 return error_mark_node;
16533 (*cnt)++;
16534 gcc_assert (DECL_DECOMP_BASE (decl2) == pattern_decl);
16535 gcc_assert (DECL_HAS_VALUE_EXPR_P (decl2));
16536 tree v = DECL_VALUE_EXPR (decl2);
16537 DECL_HAS_VALUE_EXPR_P (decl2) = 0;
16538 SET_DECL_VALUE_EXPR (decl2, NULL_TREE);
16539 decl3 = tsubst (decl2, args, complain, in_decl);
16540 SET_DECL_VALUE_EXPR (decl2, v);
16541 DECL_HAS_VALUE_EXPR_P (decl2) = 1;
16542 if (VAR_P (decl3))
16543 DECL_TEMPLATE_INSTANTIATED (decl3) = 1;
16544 else
16546 gcc_assert (errorcount);
16547 decl = error_mark_node;
16548 continue;
16550 maybe_push_decl (decl3);
16551 if (error_operand_p (decl3))
16552 decl = error_mark_node;
16553 else if (decl != error_mark_node
16554 && DECL_CHAIN (decl3) != prev
16555 && decl != prev)
16557 gcc_assert (errorcount);
16558 decl = error_mark_node;
16560 else
16561 prev = decl3;
16563 *first = prev;
16564 return decl;
16567 /* Like tsubst_copy for expressions, etc. but also does semantic
16568 processing. */
16570 tree
16571 tsubst_expr (tree t, tree args, tsubst_flags_t complain, tree in_decl,
16572 bool integral_constant_expression_p)
16574 #define RETURN(EXP) do { r = (EXP); goto out; } while(0)
16575 #define RECUR(NODE) \
16576 tsubst_expr ((NODE), args, complain, in_decl, \
16577 integral_constant_expression_p)
16579 tree stmt, tmp;
16580 tree r;
16581 location_t loc;
16583 if (t == NULL_TREE || t == error_mark_node)
16584 return t;
16586 loc = input_location;
16587 if (EXPR_HAS_LOCATION (t))
16588 input_location = EXPR_LOCATION (t);
16589 if (STATEMENT_CODE_P (TREE_CODE (t)))
16590 current_stmt_tree ()->stmts_are_full_exprs_p = STMT_IS_FULL_EXPR_P (t);
16592 switch (TREE_CODE (t))
16594 case STATEMENT_LIST:
16596 tree_stmt_iterator i;
16597 for (i = tsi_start (t); !tsi_end_p (i); tsi_next (&i))
16598 RECUR (tsi_stmt (i));
16599 break;
16602 case CTOR_INITIALIZER:
16603 finish_mem_initializers (tsubst_initializer_list
16604 (TREE_OPERAND (t, 0), args));
16605 break;
16607 case RETURN_EXPR:
16608 finish_return_stmt (RECUR (TREE_OPERAND (t, 0)));
16609 break;
16611 case EXPR_STMT:
16612 tmp = RECUR (EXPR_STMT_EXPR (t));
16613 if (EXPR_STMT_STMT_EXPR_RESULT (t))
16614 finish_stmt_expr_expr (tmp, cur_stmt_expr);
16615 else
16616 finish_expr_stmt (tmp);
16617 break;
16619 case USING_STMT:
16620 finish_local_using_directive (USING_STMT_NAMESPACE (t),
16621 /*attribs=*/NULL_TREE);
16622 break;
16624 case DECL_EXPR:
16626 tree decl, pattern_decl;
16627 tree init;
16629 pattern_decl = decl = DECL_EXPR_DECL (t);
16630 if (TREE_CODE (decl) == LABEL_DECL)
16631 finish_label_decl (DECL_NAME (decl));
16632 else if (TREE_CODE (decl) == USING_DECL)
16634 tree scope = USING_DECL_SCOPE (decl);
16635 tree name = DECL_NAME (decl);
16637 scope = tsubst (scope, args, complain, in_decl);
16638 decl = lookup_qualified_name (scope, name,
16639 /*is_type_p=*/false,
16640 /*complain=*/false);
16641 if (decl == error_mark_node || TREE_CODE (decl) == TREE_LIST)
16642 qualified_name_lookup_error (scope, name, decl, input_location);
16643 else
16644 finish_local_using_decl (decl, scope, name);
16646 else if (is_capture_proxy (decl)
16647 && !DECL_TEMPLATE_INSTANTIATION (current_function_decl))
16649 /* We're in tsubst_lambda_expr, we've already inserted a new
16650 capture proxy, so look it up and register it. */
16651 tree inst;
16652 if (DECL_PACK_P (decl))
16654 inst = (retrieve_local_specialization
16655 (DECL_CAPTURED_VARIABLE (decl)));
16656 gcc_assert (TREE_CODE (inst) == NONTYPE_ARGUMENT_PACK);
16658 else
16660 inst = lookup_name_real (DECL_NAME (decl), 0, 0,
16661 /*block_p=*/true, 0, LOOKUP_HIDDEN);
16662 gcc_assert (inst != decl && is_capture_proxy (inst));
16664 register_local_specialization (inst, decl);
16665 break;
16667 else if (DECL_IMPLICIT_TYPEDEF_P (decl)
16668 && LAMBDA_TYPE_P (TREE_TYPE (decl)))
16669 /* Don't copy the old closure; we'll create a new one in
16670 tsubst_lambda_expr. */
16671 break;
16672 else
16674 init = DECL_INITIAL (decl);
16675 decl = tsubst (decl, args, complain, in_decl);
16676 if (decl != error_mark_node)
16678 /* By marking the declaration as instantiated, we avoid
16679 trying to instantiate it. Since instantiate_decl can't
16680 handle local variables, and since we've already done
16681 all that needs to be done, that's the right thing to
16682 do. */
16683 if (VAR_P (decl))
16684 DECL_TEMPLATE_INSTANTIATED (decl) = 1;
16685 if (VAR_P (decl)
16686 && ANON_AGGR_TYPE_P (TREE_TYPE (decl)))
16687 /* Anonymous aggregates are a special case. */
16688 finish_anon_union (decl);
16689 else if (is_capture_proxy (DECL_EXPR_DECL (t)))
16691 DECL_CONTEXT (decl) = current_function_decl;
16692 if (DECL_NAME (decl) == this_identifier)
16694 tree lam = DECL_CONTEXT (current_function_decl);
16695 lam = CLASSTYPE_LAMBDA_EXPR (lam);
16696 LAMBDA_EXPR_THIS_CAPTURE (lam) = decl;
16698 insert_capture_proxy (decl);
16700 else if (DECL_IMPLICIT_TYPEDEF_P (t))
16701 /* We already did a pushtag. */;
16702 else if (TREE_CODE (decl) == FUNCTION_DECL
16703 && DECL_OMP_DECLARE_REDUCTION_P (decl)
16704 && DECL_FUNCTION_SCOPE_P (pattern_decl))
16706 DECL_CONTEXT (decl) = NULL_TREE;
16707 pushdecl (decl);
16708 DECL_CONTEXT (decl) = current_function_decl;
16709 cp_check_omp_declare_reduction (decl);
16711 else
16713 int const_init = false;
16714 maybe_push_decl (decl);
16715 if (VAR_P (decl)
16716 && DECL_PRETTY_FUNCTION_P (decl))
16718 /* For __PRETTY_FUNCTION__ we have to adjust the
16719 initializer. */
16720 const char *const name
16721 = cxx_printable_name (current_function_decl, 2);
16722 init = cp_fname_init (name, &TREE_TYPE (decl));
16724 else
16725 init = tsubst_init (init, decl, args, complain, in_decl);
16727 if (VAR_P (decl))
16728 const_init = (DECL_INITIALIZED_BY_CONSTANT_EXPRESSION_P
16729 (pattern_decl));
16730 if (VAR_P (decl)
16731 && DECL_DECOMPOSITION_P (decl)
16732 && TREE_TYPE (pattern_decl) != error_mark_node)
16734 unsigned int cnt;
16735 tree first;
16736 tree ndecl
16737 = tsubst_decomp_names (decl, pattern_decl, args,
16738 complain, in_decl, &first, &cnt);
16739 if (ndecl != error_mark_node)
16740 cp_maybe_mangle_decomp (ndecl, first, cnt);
16741 cp_finish_decl (decl, init, const_init, NULL_TREE, 0);
16742 if (ndecl != error_mark_node)
16743 cp_finish_decomp (ndecl, first, cnt);
16745 else
16746 cp_finish_decl (decl, init, const_init, NULL_TREE, 0);
16751 break;
16754 case FOR_STMT:
16755 stmt = begin_for_stmt (NULL_TREE, NULL_TREE);
16756 RECUR (FOR_INIT_STMT (t));
16757 finish_init_stmt (stmt);
16758 tmp = RECUR (FOR_COND (t));
16759 finish_for_cond (tmp, stmt, false, 0);
16760 tmp = RECUR (FOR_EXPR (t));
16761 finish_for_expr (tmp, stmt);
16763 bool prev = note_iteration_stmt_body_start ();
16764 RECUR (FOR_BODY (t));
16765 note_iteration_stmt_body_end (prev);
16767 finish_for_stmt (stmt);
16768 break;
16770 case RANGE_FOR_STMT:
16772 /* Construct another range_for, if this is not a final
16773 substitution (for inside inside a generic lambda of a
16774 template). Otherwise convert to a regular for. */
16775 tree decl, expr;
16776 stmt = (processing_template_decl
16777 ? begin_range_for_stmt (NULL_TREE, NULL_TREE)
16778 : begin_for_stmt (NULL_TREE, NULL_TREE));
16779 decl = RANGE_FOR_DECL (t);
16780 decl = tsubst (decl, args, complain, in_decl);
16781 maybe_push_decl (decl);
16782 expr = RECUR (RANGE_FOR_EXPR (t));
16784 tree decomp_first = NULL_TREE;
16785 unsigned decomp_cnt = 0;
16786 if (VAR_P (decl) && DECL_DECOMPOSITION_P (decl))
16787 decl = tsubst_decomp_names (decl, RANGE_FOR_DECL (t), args,
16788 complain, in_decl,
16789 &decomp_first, &decomp_cnt);
16791 if (processing_template_decl)
16793 RANGE_FOR_IVDEP (stmt) = RANGE_FOR_IVDEP (t);
16794 RANGE_FOR_UNROLL (stmt) = RANGE_FOR_UNROLL (t);
16795 finish_range_for_decl (stmt, decl, expr);
16797 else
16799 unsigned short unroll = (RANGE_FOR_UNROLL (t)
16800 ? tree_to_uhwi (RANGE_FOR_UNROLL (t)) : 0);
16801 stmt = cp_convert_range_for (stmt, decl, expr,
16802 decomp_first, decomp_cnt,
16803 RANGE_FOR_IVDEP (t), unroll);
16806 bool prev = note_iteration_stmt_body_start ();
16807 RECUR (RANGE_FOR_BODY (t));
16808 note_iteration_stmt_body_end (prev);
16809 finish_for_stmt (stmt);
16811 break;
16813 case WHILE_STMT:
16814 stmt = begin_while_stmt ();
16815 tmp = RECUR (WHILE_COND (t));
16816 finish_while_stmt_cond (tmp, stmt, false, 0);
16818 bool prev = note_iteration_stmt_body_start ();
16819 RECUR (WHILE_BODY (t));
16820 note_iteration_stmt_body_end (prev);
16822 finish_while_stmt (stmt);
16823 break;
16825 case DO_STMT:
16826 stmt = begin_do_stmt ();
16828 bool prev = note_iteration_stmt_body_start ();
16829 RECUR (DO_BODY (t));
16830 note_iteration_stmt_body_end (prev);
16832 finish_do_body (stmt);
16833 tmp = RECUR (DO_COND (t));
16834 finish_do_stmt (tmp, stmt, false, 0);
16835 break;
16837 case IF_STMT:
16838 stmt = begin_if_stmt ();
16839 IF_STMT_CONSTEXPR_P (stmt) = IF_STMT_CONSTEXPR_P (t);
16840 if (IF_STMT_CONSTEXPR_P (t))
16841 args = add_extra_args (IF_STMT_EXTRA_ARGS (t), args);
16842 tmp = RECUR (IF_COND (t));
16843 tmp = finish_if_stmt_cond (tmp, stmt);
16844 if (IF_STMT_CONSTEXPR_P (t)
16845 && instantiation_dependent_expression_p (tmp))
16847 /* We're partially instantiating a generic lambda, but the condition
16848 of the constexpr if is still dependent. Don't substitute into the
16849 branches now, just remember the template arguments. */
16850 do_poplevel (IF_SCOPE (stmt));
16851 IF_COND (stmt) = IF_COND (t);
16852 THEN_CLAUSE (stmt) = THEN_CLAUSE (t);
16853 ELSE_CLAUSE (stmt) = ELSE_CLAUSE (t);
16854 IF_STMT_EXTRA_ARGS (stmt) = build_extra_args (t, args, complain);
16855 add_stmt (stmt);
16856 break;
16858 if (IF_STMT_CONSTEXPR_P (t) && integer_zerop (tmp))
16859 /* Don't instantiate the THEN_CLAUSE. */;
16860 else
16862 bool inhibit = integer_zerop (fold_non_dependent_expr (tmp));
16863 if (inhibit)
16864 ++c_inhibit_evaluation_warnings;
16865 RECUR (THEN_CLAUSE (t));
16866 if (inhibit)
16867 --c_inhibit_evaluation_warnings;
16869 finish_then_clause (stmt);
16871 if (IF_STMT_CONSTEXPR_P (t) && integer_nonzerop (tmp))
16872 /* Don't instantiate the ELSE_CLAUSE. */;
16873 else if (ELSE_CLAUSE (t))
16875 bool inhibit = integer_nonzerop (fold_non_dependent_expr (tmp));
16876 begin_else_clause (stmt);
16877 if (inhibit)
16878 ++c_inhibit_evaluation_warnings;
16879 RECUR (ELSE_CLAUSE (t));
16880 if (inhibit)
16881 --c_inhibit_evaluation_warnings;
16882 finish_else_clause (stmt);
16885 finish_if_stmt (stmt);
16886 break;
16888 case BIND_EXPR:
16889 if (BIND_EXPR_BODY_BLOCK (t))
16890 stmt = begin_function_body ();
16891 else
16892 stmt = begin_compound_stmt (BIND_EXPR_TRY_BLOCK (t)
16893 ? BCS_TRY_BLOCK : 0);
16895 RECUR (BIND_EXPR_BODY (t));
16897 if (BIND_EXPR_BODY_BLOCK (t))
16898 finish_function_body (stmt);
16899 else
16900 finish_compound_stmt (stmt);
16901 break;
16903 case BREAK_STMT:
16904 finish_break_stmt ();
16905 break;
16907 case CONTINUE_STMT:
16908 finish_continue_stmt ();
16909 break;
16911 case SWITCH_STMT:
16912 stmt = begin_switch_stmt ();
16913 tmp = RECUR (SWITCH_STMT_COND (t));
16914 finish_switch_cond (tmp, stmt);
16915 RECUR (SWITCH_STMT_BODY (t));
16916 finish_switch_stmt (stmt);
16917 break;
16919 case CASE_LABEL_EXPR:
16921 tree low = RECUR (CASE_LOW (t));
16922 tree high = RECUR (CASE_HIGH (t));
16923 tree l = finish_case_label (EXPR_LOCATION (t), low, high);
16924 if (l && TREE_CODE (l) == CASE_LABEL_EXPR)
16925 FALLTHROUGH_LABEL_P (CASE_LABEL (l))
16926 = FALLTHROUGH_LABEL_P (CASE_LABEL (t));
16928 break;
16930 case LABEL_EXPR:
16932 tree decl = LABEL_EXPR_LABEL (t);
16933 tree label;
16935 label = finish_label_stmt (DECL_NAME (decl));
16936 if (TREE_CODE (label) == LABEL_DECL)
16937 FALLTHROUGH_LABEL_P (label) = FALLTHROUGH_LABEL_P (decl);
16938 if (DECL_ATTRIBUTES (decl) != NULL_TREE)
16939 cplus_decl_attributes (&label, DECL_ATTRIBUTES (decl), 0);
16941 break;
16943 case GOTO_EXPR:
16944 tmp = GOTO_DESTINATION (t);
16945 if (TREE_CODE (tmp) != LABEL_DECL)
16946 /* Computed goto's must be tsubst'd into. On the other hand,
16947 non-computed gotos must not be; the identifier in question
16948 will have no binding. */
16949 tmp = RECUR (tmp);
16950 else
16951 tmp = DECL_NAME (tmp);
16952 finish_goto_stmt (tmp);
16953 break;
16955 case ASM_EXPR:
16957 tree string = RECUR (ASM_STRING (t));
16958 tree outputs = tsubst_copy_asm_operands (ASM_OUTPUTS (t), args,
16959 complain, in_decl);
16960 tree inputs = tsubst_copy_asm_operands (ASM_INPUTS (t), args,
16961 complain, in_decl);
16962 tree clobbers = tsubst_copy_asm_operands (ASM_CLOBBERS (t), args,
16963 complain, in_decl);
16964 tree labels = tsubst_copy_asm_operands (ASM_LABELS (t), args,
16965 complain, in_decl);
16966 tmp = finish_asm_stmt (ASM_VOLATILE_P (t), string, outputs, inputs,
16967 clobbers, labels);
16968 tree asm_expr = tmp;
16969 if (TREE_CODE (asm_expr) == CLEANUP_POINT_EXPR)
16970 asm_expr = TREE_OPERAND (asm_expr, 0);
16971 ASM_INPUT_P (asm_expr) = ASM_INPUT_P (t);
16973 break;
16975 case TRY_BLOCK:
16976 if (CLEANUP_P (t))
16978 stmt = begin_try_block ();
16979 RECUR (TRY_STMTS (t));
16980 finish_cleanup_try_block (stmt);
16981 finish_cleanup (RECUR (TRY_HANDLERS (t)), stmt);
16983 else
16985 tree compound_stmt = NULL_TREE;
16987 if (FN_TRY_BLOCK_P (t))
16988 stmt = begin_function_try_block (&compound_stmt);
16989 else
16990 stmt = begin_try_block ();
16992 RECUR (TRY_STMTS (t));
16994 if (FN_TRY_BLOCK_P (t))
16995 finish_function_try_block (stmt);
16996 else
16997 finish_try_block (stmt);
16999 RECUR (TRY_HANDLERS (t));
17000 if (FN_TRY_BLOCK_P (t))
17001 finish_function_handler_sequence (stmt, compound_stmt);
17002 else
17003 finish_handler_sequence (stmt);
17005 break;
17007 case HANDLER:
17009 tree decl = HANDLER_PARMS (t);
17011 if (decl)
17013 decl = tsubst (decl, args, complain, in_decl);
17014 /* Prevent instantiate_decl from trying to instantiate
17015 this variable. We've already done all that needs to be
17016 done. */
17017 if (decl != error_mark_node)
17018 DECL_TEMPLATE_INSTANTIATED (decl) = 1;
17020 stmt = begin_handler ();
17021 finish_handler_parms (decl, stmt);
17022 RECUR (HANDLER_BODY (t));
17023 finish_handler (stmt);
17025 break;
17027 case TAG_DEFN:
17028 tmp = tsubst (TREE_TYPE (t), args, complain, NULL_TREE);
17029 if (CLASS_TYPE_P (tmp))
17031 /* Local classes are not independent templates; they are
17032 instantiated along with their containing function. And this
17033 way we don't have to deal with pushing out of one local class
17034 to instantiate a member of another local class. */
17035 /* Closures are handled by the LAMBDA_EXPR. */
17036 gcc_assert (!LAMBDA_TYPE_P (TREE_TYPE (t)));
17037 complete_type (tmp);
17038 for (tree fld = TYPE_FIELDS (tmp); fld; fld = DECL_CHAIN (fld))
17039 if ((VAR_P (fld)
17040 || (TREE_CODE (fld) == FUNCTION_DECL
17041 && !DECL_ARTIFICIAL (fld)))
17042 && DECL_TEMPLATE_INSTANTIATION (fld))
17043 instantiate_decl (fld, /*defer_ok=*/false,
17044 /*expl_inst_class=*/false);
17046 break;
17048 case STATIC_ASSERT:
17050 tree condition;
17052 ++c_inhibit_evaluation_warnings;
17053 condition =
17054 tsubst_expr (STATIC_ASSERT_CONDITION (t),
17055 args,
17056 complain, in_decl,
17057 /*integral_constant_expression_p=*/true);
17058 --c_inhibit_evaluation_warnings;
17060 finish_static_assert (condition,
17061 STATIC_ASSERT_MESSAGE (t),
17062 STATIC_ASSERT_SOURCE_LOCATION (t),
17063 /*member_p=*/false);
17065 break;
17067 case OACC_KERNELS:
17068 case OACC_PARALLEL:
17069 tmp = tsubst_omp_clauses (OMP_CLAUSES (t), C_ORT_ACC, args, complain,
17070 in_decl);
17071 stmt = begin_omp_parallel ();
17072 RECUR (OMP_BODY (t));
17073 finish_omp_construct (TREE_CODE (t), stmt, tmp);
17074 break;
17076 case OMP_PARALLEL:
17077 r = push_omp_privatization_clauses (OMP_PARALLEL_COMBINED (t));
17078 tmp = tsubst_omp_clauses (OMP_PARALLEL_CLAUSES (t), C_ORT_OMP, args,
17079 complain, in_decl);
17080 if (OMP_PARALLEL_COMBINED (t))
17081 omp_parallel_combined_clauses = &tmp;
17082 stmt = begin_omp_parallel ();
17083 RECUR (OMP_PARALLEL_BODY (t));
17084 gcc_assert (omp_parallel_combined_clauses == NULL);
17085 OMP_PARALLEL_COMBINED (finish_omp_parallel (tmp, stmt))
17086 = OMP_PARALLEL_COMBINED (t);
17087 pop_omp_privatization_clauses (r);
17088 break;
17090 case OMP_TASK:
17091 r = push_omp_privatization_clauses (false);
17092 tmp = tsubst_omp_clauses (OMP_TASK_CLAUSES (t), C_ORT_OMP, args,
17093 complain, in_decl);
17094 stmt = begin_omp_task ();
17095 RECUR (OMP_TASK_BODY (t));
17096 finish_omp_task (tmp, stmt);
17097 pop_omp_privatization_clauses (r);
17098 break;
17100 case OMP_FOR:
17101 case OMP_SIMD:
17102 case OMP_DISTRIBUTE:
17103 case OMP_TASKLOOP:
17104 case OACC_LOOP:
17106 tree clauses, body, pre_body;
17107 tree declv = NULL_TREE, initv = NULL_TREE, condv = NULL_TREE;
17108 tree orig_declv = NULL_TREE;
17109 tree incrv = NULL_TREE;
17110 enum c_omp_region_type ort = C_ORT_OMP;
17111 int i;
17113 if (TREE_CODE (t) == OACC_LOOP)
17114 ort = C_ORT_ACC;
17116 r = push_omp_privatization_clauses (OMP_FOR_INIT (t) == NULL_TREE);
17117 clauses = tsubst_omp_clauses (OMP_FOR_CLAUSES (t), ort, args, complain,
17118 in_decl);
17119 if (OMP_FOR_INIT (t) != NULL_TREE)
17121 declv = make_tree_vec (TREE_VEC_LENGTH (OMP_FOR_INIT (t)));
17122 if (OMP_FOR_ORIG_DECLS (t))
17123 orig_declv = make_tree_vec (TREE_VEC_LENGTH (OMP_FOR_INIT (t)));
17124 initv = make_tree_vec (TREE_VEC_LENGTH (OMP_FOR_INIT (t)));
17125 condv = make_tree_vec (TREE_VEC_LENGTH (OMP_FOR_INIT (t)));
17126 incrv = make_tree_vec (TREE_VEC_LENGTH (OMP_FOR_INIT (t)));
17129 stmt = begin_omp_structured_block ();
17131 pre_body = push_stmt_list ();
17132 RECUR (OMP_FOR_PRE_BODY (t));
17133 pre_body = pop_stmt_list (pre_body);
17135 if (OMP_FOR_INIT (t) != NULL_TREE)
17136 for (i = 0; i < TREE_VEC_LENGTH (OMP_FOR_INIT (t)); i++)
17137 tsubst_omp_for_iterator (t, i, declv, orig_declv, initv, condv,
17138 incrv, &clauses, args, complain, in_decl,
17139 integral_constant_expression_p);
17140 omp_parallel_combined_clauses = NULL;
17142 body = push_stmt_list ();
17143 RECUR (OMP_FOR_BODY (t));
17144 body = pop_stmt_list (body);
17146 if (OMP_FOR_INIT (t) != NULL_TREE)
17147 t = finish_omp_for (EXPR_LOCATION (t), TREE_CODE (t), declv,
17148 orig_declv, initv, condv, incrv, body, pre_body,
17149 NULL, clauses);
17150 else
17152 t = make_node (TREE_CODE (t));
17153 TREE_TYPE (t) = void_type_node;
17154 OMP_FOR_BODY (t) = body;
17155 OMP_FOR_PRE_BODY (t) = pre_body;
17156 OMP_FOR_CLAUSES (t) = clauses;
17157 SET_EXPR_LOCATION (t, EXPR_LOCATION (t));
17158 add_stmt (t);
17161 add_stmt (finish_omp_structured_block (stmt));
17162 pop_omp_privatization_clauses (r);
17164 break;
17166 case OMP_SECTIONS:
17167 omp_parallel_combined_clauses = NULL;
17168 /* FALLTHRU */
17169 case OMP_SINGLE:
17170 case OMP_TEAMS:
17171 case OMP_CRITICAL:
17172 r = push_omp_privatization_clauses (TREE_CODE (t) == OMP_TEAMS
17173 && OMP_TEAMS_COMBINED (t));
17174 tmp = tsubst_omp_clauses (OMP_CLAUSES (t), C_ORT_OMP, args, complain,
17175 in_decl);
17176 stmt = push_stmt_list ();
17177 RECUR (OMP_BODY (t));
17178 stmt = pop_stmt_list (stmt);
17180 t = copy_node (t);
17181 OMP_BODY (t) = stmt;
17182 OMP_CLAUSES (t) = tmp;
17183 add_stmt (t);
17184 pop_omp_privatization_clauses (r);
17185 break;
17187 case OACC_DATA:
17188 case OMP_TARGET_DATA:
17189 case OMP_TARGET:
17190 tmp = tsubst_omp_clauses (OMP_CLAUSES (t), (TREE_CODE (t) == OACC_DATA)
17191 ? C_ORT_ACC : C_ORT_OMP, args, complain,
17192 in_decl);
17193 keep_next_level (true);
17194 stmt = begin_omp_structured_block ();
17196 RECUR (OMP_BODY (t));
17197 stmt = finish_omp_structured_block (stmt);
17199 t = copy_node (t);
17200 OMP_BODY (t) = stmt;
17201 OMP_CLAUSES (t) = tmp;
17202 if (TREE_CODE (t) == OMP_TARGET && OMP_TARGET_COMBINED (t))
17204 tree teams = cp_walk_tree (&stmt, tsubst_find_omp_teams, NULL, NULL);
17205 if (teams)
17207 /* For combined target teams, ensure the num_teams and
17208 thread_limit clause expressions are evaluated on the host,
17209 before entering the target construct. */
17210 tree c;
17211 for (c = OMP_TEAMS_CLAUSES (teams);
17212 c; c = OMP_CLAUSE_CHAIN (c))
17213 if ((OMP_CLAUSE_CODE (c) == OMP_CLAUSE_NUM_TEAMS
17214 || OMP_CLAUSE_CODE (c) == OMP_CLAUSE_THREAD_LIMIT)
17215 && TREE_CODE (OMP_CLAUSE_OPERAND (c, 0)) != INTEGER_CST)
17217 tree expr = OMP_CLAUSE_OPERAND (c, 0);
17218 expr = force_target_expr (TREE_TYPE (expr), expr, tf_none);
17219 if (expr == error_mark_node)
17220 continue;
17221 tmp = TARGET_EXPR_SLOT (expr);
17222 add_stmt (expr);
17223 OMP_CLAUSE_OPERAND (c, 0) = expr;
17224 tree tc = build_omp_clause (OMP_CLAUSE_LOCATION (c),
17225 OMP_CLAUSE_FIRSTPRIVATE);
17226 OMP_CLAUSE_DECL (tc) = tmp;
17227 OMP_CLAUSE_CHAIN (tc) = OMP_TARGET_CLAUSES (t);
17228 OMP_TARGET_CLAUSES (t) = tc;
17232 add_stmt (t);
17233 break;
17235 case OACC_DECLARE:
17236 t = copy_node (t);
17237 tmp = tsubst_omp_clauses (OACC_DECLARE_CLAUSES (t), C_ORT_ACC, args,
17238 complain, in_decl);
17239 OACC_DECLARE_CLAUSES (t) = tmp;
17240 add_stmt (t);
17241 break;
17243 case OMP_TARGET_UPDATE:
17244 case OMP_TARGET_ENTER_DATA:
17245 case OMP_TARGET_EXIT_DATA:
17246 tmp = tsubst_omp_clauses (OMP_STANDALONE_CLAUSES (t), C_ORT_OMP, args,
17247 complain, in_decl);
17248 t = copy_node (t);
17249 OMP_STANDALONE_CLAUSES (t) = tmp;
17250 add_stmt (t);
17251 break;
17253 case OACC_ENTER_DATA:
17254 case OACC_EXIT_DATA:
17255 case OACC_UPDATE:
17256 tmp = tsubst_omp_clauses (OMP_STANDALONE_CLAUSES (t), C_ORT_ACC, args,
17257 complain, in_decl);
17258 t = copy_node (t);
17259 OMP_STANDALONE_CLAUSES (t) = tmp;
17260 add_stmt (t);
17261 break;
17263 case OMP_ORDERED:
17264 tmp = tsubst_omp_clauses (OMP_ORDERED_CLAUSES (t), C_ORT_OMP, args,
17265 complain, in_decl);
17266 stmt = push_stmt_list ();
17267 RECUR (OMP_BODY (t));
17268 stmt = pop_stmt_list (stmt);
17270 t = copy_node (t);
17271 OMP_BODY (t) = stmt;
17272 OMP_ORDERED_CLAUSES (t) = tmp;
17273 add_stmt (t);
17274 break;
17276 case OMP_SECTION:
17277 case OMP_MASTER:
17278 case OMP_TASKGROUP:
17279 stmt = push_stmt_list ();
17280 RECUR (OMP_BODY (t));
17281 stmt = pop_stmt_list (stmt);
17283 t = copy_node (t);
17284 OMP_BODY (t) = stmt;
17285 add_stmt (t);
17286 break;
17288 case OMP_ATOMIC:
17289 gcc_assert (OMP_ATOMIC_DEPENDENT_P (t));
17290 if (TREE_CODE (TREE_OPERAND (t, 1)) != MODIFY_EXPR)
17292 tree op1 = TREE_OPERAND (t, 1);
17293 tree rhs1 = NULL_TREE;
17294 tree lhs, rhs;
17295 if (TREE_CODE (op1) == COMPOUND_EXPR)
17297 rhs1 = RECUR (TREE_OPERAND (op1, 0));
17298 op1 = TREE_OPERAND (op1, 1);
17300 lhs = RECUR (TREE_OPERAND (op1, 0));
17301 rhs = RECUR (TREE_OPERAND (op1, 1));
17302 finish_omp_atomic (OMP_ATOMIC, TREE_CODE (op1), lhs, rhs,
17303 NULL_TREE, NULL_TREE, rhs1,
17304 OMP_ATOMIC_SEQ_CST (t));
17306 else
17308 tree op1 = TREE_OPERAND (t, 1);
17309 tree v = NULL_TREE, lhs, rhs = NULL_TREE, lhs1 = NULL_TREE;
17310 tree rhs1 = NULL_TREE;
17311 enum tree_code code = TREE_CODE (TREE_OPERAND (op1, 1));
17312 enum tree_code opcode = NOP_EXPR;
17313 if (code == OMP_ATOMIC_READ)
17315 v = RECUR (TREE_OPERAND (op1, 0));
17316 lhs = RECUR (TREE_OPERAND (TREE_OPERAND (op1, 1), 0));
17318 else if (code == OMP_ATOMIC_CAPTURE_OLD
17319 || code == OMP_ATOMIC_CAPTURE_NEW)
17321 tree op11 = TREE_OPERAND (TREE_OPERAND (op1, 1), 1);
17322 v = RECUR (TREE_OPERAND (op1, 0));
17323 lhs1 = RECUR (TREE_OPERAND (TREE_OPERAND (op1, 1), 0));
17324 if (TREE_CODE (op11) == COMPOUND_EXPR)
17326 rhs1 = RECUR (TREE_OPERAND (op11, 0));
17327 op11 = TREE_OPERAND (op11, 1);
17329 lhs = RECUR (TREE_OPERAND (op11, 0));
17330 rhs = RECUR (TREE_OPERAND (op11, 1));
17331 opcode = TREE_CODE (op11);
17332 if (opcode == MODIFY_EXPR)
17333 opcode = NOP_EXPR;
17335 else
17337 code = OMP_ATOMIC;
17338 lhs = RECUR (TREE_OPERAND (op1, 0));
17339 rhs = RECUR (TREE_OPERAND (op1, 1));
17341 finish_omp_atomic (code, opcode, lhs, rhs, v, lhs1, rhs1,
17342 OMP_ATOMIC_SEQ_CST (t));
17344 break;
17346 case TRANSACTION_EXPR:
17348 int flags = 0;
17349 flags |= (TRANSACTION_EXPR_OUTER (t) ? TM_STMT_ATTR_OUTER : 0);
17350 flags |= (TRANSACTION_EXPR_RELAXED (t) ? TM_STMT_ATTR_RELAXED : 0);
17352 if (TRANSACTION_EXPR_IS_STMT (t))
17354 tree body = TRANSACTION_EXPR_BODY (t);
17355 tree noex = NULL_TREE;
17356 if (TREE_CODE (body) == MUST_NOT_THROW_EXPR)
17358 noex = MUST_NOT_THROW_COND (body);
17359 if (noex == NULL_TREE)
17360 noex = boolean_true_node;
17361 body = TREE_OPERAND (body, 0);
17363 stmt = begin_transaction_stmt (input_location, NULL, flags);
17364 RECUR (body);
17365 finish_transaction_stmt (stmt, NULL, flags, RECUR (noex));
17367 else
17369 stmt = build_transaction_expr (EXPR_LOCATION (t),
17370 RECUR (TRANSACTION_EXPR_BODY (t)),
17371 flags, NULL_TREE);
17372 RETURN (stmt);
17375 break;
17377 case MUST_NOT_THROW_EXPR:
17379 tree op0 = RECUR (TREE_OPERAND (t, 0));
17380 tree cond = RECUR (MUST_NOT_THROW_COND (t));
17381 RETURN (build_must_not_throw_expr (op0, cond));
17384 case EXPR_PACK_EXPANSION:
17385 error ("invalid use of pack expansion expression");
17386 RETURN (error_mark_node);
17388 case NONTYPE_ARGUMENT_PACK:
17389 error ("use %<...%> to expand argument pack");
17390 RETURN (error_mark_node);
17392 case COMPOUND_EXPR:
17393 tmp = RECUR (TREE_OPERAND (t, 0));
17394 if (tmp == NULL_TREE)
17395 /* If the first operand was a statement, we're done with it. */
17396 RETURN (RECUR (TREE_OPERAND (t, 1)));
17397 RETURN (build_x_compound_expr (EXPR_LOCATION (t), tmp,
17398 RECUR (TREE_OPERAND (t, 1)),
17399 complain));
17401 case ANNOTATE_EXPR:
17402 tmp = RECUR (TREE_OPERAND (t, 0));
17403 RETURN (build3_loc (EXPR_LOCATION (t), ANNOTATE_EXPR,
17404 TREE_TYPE (tmp), tmp,
17405 RECUR (TREE_OPERAND (t, 1)),
17406 RECUR (TREE_OPERAND (t, 2))));
17408 default:
17409 gcc_assert (!STATEMENT_CODE_P (TREE_CODE (t)));
17411 RETURN (tsubst_copy_and_build (t, args, complain, in_decl,
17412 /*function_p=*/false,
17413 integral_constant_expression_p));
17416 RETURN (NULL_TREE);
17417 out:
17418 input_location = loc;
17419 return r;
17420 #undef RECUR
17421 #undef RETURN
17424 /* Instantiate the special body of the artificial DECL_OMP_DECLARE_REDUCTION
17425 function. For description of the body see comment above
17426 cp_parser_omp_declare_reduction_exprs. */
17428 static void
17429 tsubst_omp_udr (tree t, tree args, tsubst_flags_t complain, tree in_decl)
17431 if (t == NULL_TREE || t == error_mark_node)
17432 return;
17434 gcc_assert (TREE_CODE (t) == STATEMENT_LIST);
17436 tree_stmt_iterator tsi;
17437 int i;
17438 tree stmts[7];
17439 memset (stmts, 0, sizeof stmts);
17440 for (i = 0, tsi = tsi_start (t);
17441 i < 7 && !tsi_end_p (tsi);
17442 i++, tsi_next (&tsi))
17443 stmts[i] = tsi_stmt (tsi);
17444 gcc_assert (tsi_end_p (tsi));
17446 if (i >= 3)
17448 gcc_assert (TREE_CODE (stmts[0]) == DECL_EXPR
17449 && TREE_CODE (stmts[1]) == DECL_EXPR);
17450 tree omp_out = tsubst (DECL_EXPR_DECL (stmts[0]),
17451 args, complain, in_decl);
17452 tree omp_in = tsubst (DECL_EXPR_DECL (stmts[1]),
17453 args, complain, in_decl);
17454 DECL_CONTEXT (omp_out) = current_function_decl;
17455 DECL_CONTEXT (omp_in) = current_function_decl;
17456 keep_next_level (true);
17457 tree block = begin_omp_structured_block ();
17458 tsubst_expr (stmts[2], args, complain, in_decl, false);
17459 block = finish_omp_structured_block (block);
17460 block = maybe_cleanup_point_expr_void (block);
17461 add_decl_expr (omp_out);
17462 if (TREE_NO_WARNING (DECL_EXPR_DECL (stmts[0])))
17463 TREE_NO_WARNING (omp_out) = 1;
17464 add_decl_expr (omp_in);
17465 finish_expr_stmt (block);
17467 if (i >= 6)
17469 gcc_assert (TREE_CODE (stmts[3]) == DECL_EXPR
17470 && TREE_CODE (stmts[4]) == DECL_EXPR);
17471 tree omp_priv = tsubst (DECL_EXPR_DECL (stmts[3]),
17472 args, complain, in_decl);
17473 tree omp_orig = tsubst (DECL_EXPR_DECL (stmts[4]),
17474 args, complain, in_decl);
17475 DECL_CONTEXT (omp_priv) = current_function_decl;
17476 DECL_CONTEXT (omp_orig) = current_function_decl;
17477 keep_next_level (true);
17478 tree block = begin_omp_structured_block ();
17479 tsubst_expr (stmts[5], args, complain, in_decl, false);
17480 block = finish_omp_structured_block (block);
17481 block = maybe_cleanup_point_expr_void (block);
17482 cp_walk_tree (&block, cp_remove_omp_priv_cleanup_stmt, omp_priv, NULL);
17483 add_decl_expr (omp_priv);
17484 add_decl_expr (omp_orig);
17485 finish_expr_stmt (block);
17486 if (i == 7)
17487 add_decl_expr (omp_orig);
17491 /* T is a postfix-expression that is not being used in a function
17492 call. Return the substituted version of T. */
17494 static tree
17495 tsubst_non_call_postfix_expression (tree t, tree args,
17496 tsubst_flags_t complain,
17497 tree in_decl)
17499 if (TREE_CODE (t) == SCOPE_REF)
17500 t = tsubst_qualified_id (t, args, complain, in_decl,
17501 /*done=*/false, /*address_p=*/false);
17502 else
17503 t = tsubst_copy_and_build (t, args, complain, in_decl,
17504 /*function_p=*/false,
17505 /*integral_constant_expression_p=*/false);
17507 return t;
17510 /* T is a LAMBDA_EXPR. Generate a new LAMBDA_EXPR for the current
17511 instantiation context. Instantiating a pack expansion containing a lambda
17512 might result in multiple lambdas all based on the same lambda in the
17513 template. */
17515 tree
17516 tsubst_lambda_expr (tree t, tree args, tsubst_flags_t complain, tree in_decl)
17518 tree oldfn = lambda_function (t);
17519 in_decl = oldfn;
17521 tree r = build_lambda_expr ();
17523 LAMBDA_EXPR_LOCATION (r)
17524 = LAMBDA_EXPR_LOCATION (t);
17525 LAMBDA_EXPR_DEFAULT_CAPTURE_MODE (r)
17526 = LAMBDA_EXPR_DEFAULT_CAPTURE_MODE (t);
17527 LAMBDA_EXPR_MUTABLE_P (r) = LAMBDA_EXPR_MUTABLE_P (t);
17529 if (LAMBDA_EXPR_EXTRA_SCOPE (t) == NULL_TREE)
17530 LAMBDA_EXPR_EXTRA_SCOPE (r) = NULL_TREE;
17531 else
17532 record_lambda_scope (r);
17534 gcc_assert (LAMBDA_EXPR_THIS_CAPTURE (t) == NULL_TREE
17535 && LAMBDA_EXPR_PENDING_PROXIES (t) == NULL);
17537 for (tree cap = LAMBDA_EXPR_CAPTURE_LIST (t); cap;
17538 cap = TREE_CHAIN (cap))
17540 tree field = TREE_PURPOSE (cap);
17541 if (PACK_EXPANSION_P (field))
17542 field = PACK_EXPANSION_PATTERN (field);
17543 field = tsubst_decl (field, args, complain);
17545 if (field == error_mark_node)
17546 return error_mark_node;
17548 tree init = TREE_VALUE (cap);
17549 if (PACK_EXPANSION_P (init))
17550 init = tsubst_pack_expansion (init, args, complain, in_decl);
17551 else
17552 init = tsubst_copy_and_build (init, args, complain, in_decl,
17553 /*fn*/false, /*constexpr*/false);
17555 if (TREE_CODE (field) == TREE_VEC)
17557 int len = TREE_VEC_LENGTH (field);
17558 gcc_assert (TREE_CODE (init) == TREE_VEC
17559 && TREE_VEC_LENGTH (init) == len);
17560 for (int i = 0; i < len; ++i)
17561 LAMBDA_EXPR_CAPTURE_LIST (r)
17562 = tree_cons (TREE_VEC_ELT (field, i),
17563 TREE_VEC_ELT (init, i),
17564 LAMBDA_EXPR_CAPTURE_LIST (r));
17566 else
17568 LAMBDA_EXPR_CAPTURE_LIST (r)
17569 = tree_cons (field, init, LAMBDA_EXPR_CAPTURE_LIST (r));
17571 if (id_equal (DECL_NAME (field), "__this"))
17572 LAMBDA_EXPR_THIS_CAPTURE (r) = field;
17576 tree type = begin_lambda_type (r);
17577 if (type == error_mark_node)
17578 return error_mark_node;
17580 /* Do this again now that LAMBDA_EXPR_EXTRA_SCOPE is set. */
17581 determine_visibility (TYPE_NAME (type));
17583 register_capture_members (LAMBDA_EXPR_CAPTURE_LIST (r));
17585 tree oldtmpl = (generic_lambda_fn_p (oldfn)
17586 ? DECL_TI_TEMPLATE (oldfn)
17587 : NULL_TREE);
17589 tree fntype = static_fn_type (oldfn);
17590 if (oldtmpl)
17591 ++processing_template_decl;
17592 fntype = tsubst (fntype, args, complain, in_decl);
17593 if (oldtmpl)
17594 --processing_template_decl;
17596 if (fntype == error_mark_node)
17597 r = error_mark_node;
17598 else
17600 /* Fix the type of 'this'. */
17601 fntype = build_memfn_type (fntype, type,
17602 type_memfn_quals (fntype),
17603 type_memfn_rqual (fntype));
17604 tree fn, tmpl;
17605 if (oldtmpl)
17607 tmpl = tsubst_template_decl (oldtmpl, args, complain, fntype);
17608 fn = DECL_TEMPLATE_RESULT (tmpl);
17609 finish_member_declaration (tmpl);
17611 else
17613 tmpl = NULL_TREE;
17614 fn = tsubst_function_decl (oldfn, args, complain, fntype);
17615 finish_member_declaration (fn);
17618 /* Let finish_function set this. */
17619 DECL_DECLARED_CONSTEXPR_P (fn) = false;
17621 bool nested = cfun;
17622 if (nested)
17623 push_function_context ();
17624 else
17625 /* Still increment function_depth so that we don't GC in the
17626 middle of an expression. */
17627 ++function_depth;
17629 local_specialization_stack s (lss_copy);
17631 tree body = start_lambda_function (fn, r);
17633 register_parameter_specializations (oldfn, fn);
17635 tsubst_expr (DECL_SAVED_TREE (oldfn), args, complain, r,
17636 /*constexpr*/false);
17638 finish_lambda_function (body);
17640 if (nested)
17641 pop_function_context ();
17642 else
17643 --function_depth;
17645 /* The capture list was built up in reverse order; fix that now. */
17646 LAMBDA_EXPR_CAPTURE_LIST (r)
17647 = nreverse (LAMBDA_EXPR_CAPTURE_LIST (r));
17649 LAMBDA_EXPR_THIS_CAPTURE (r) = NULL_TREE;
17651 maybe_add_lambda_conv_op (type);
17654 finish_struct (type, /*attr*/NULL_TREE);
17656 insert_pending_capture_proxies ();
17658 return r;
17661 /* Like tsubst but deals with expressions and performs semantic
17662 analysis. FUNCTION_P is true if T is the "F" in "F (ARGS)". */
17664 tree
17665 tsubst_copy_and_build (tree t,
17666 tree args,
17667 tsubst_flags_t complain,
17668 tree in_decl,
17669 bool function_p,
17670 bool integral_constant_expression_p)
17672 #define RETURN(EXP) do { retval = (EXP); goto out; } while(0)
17673 #define RECUR(NODE) \
17674 tsubst_copy_and_build (NODE, args, complain, in_decl, \
17675 /*function_p=*/false, \
17676 integral_constant_expression_p)
17678 tree retval, op1;
17679 location_t loc;
17681 if (t == NULL_TREE || t == error_mark_node)
17682 return t;
17684 loc = input_location;
17685 if (EXPR_HAS_LOCATION (t))
17686 input_location = EXPR_LOCATION (t);
17688 /* N3276 decltype magic only applies to calls at the top level or on the
17689 right side of a comma. */
17690 tsubst_flags_t decltype_flag = (complain & tf_decltype);
17691 complain &= ~tf_decltype;
17693 switch (TREE_CODE (t))
17695 case USING_DECL:
17696 t = DECL_NAME (t);
17697 /* Fall through. */
17698 case IDENTIFIER_NODE:
17700 tree decl;
17701 cp_id_kind idk;
17702 bool non_integral_constant_expression_p;
17703 const char *error_msg;
17705 if (IDENTIFIER_CONV_OP_P (t))
17707 tree new_type = tsubst (TREE_TYPE (t), args, complain, in_decl);
17708 t = make_conv_op_name (new_type);
17711 /* Look up the name. */
17712 decl = lookup_name (t);
17714 /* By convention, expressions use ERROR_MARK_NODE to indicate
17715 failure, not NULL_TREE. */
17716 if (decl == NULL_TREE)
17717 decl = error_mark_node;
17719 decl = finish_id_expression (t, decl, NULL_TREE,
17720 &idk,
17721 integral_constant_expression_p,
17722 /*allow_non_integral_constant_expression_p=*/(cxx_dialect >= cxx11),
17723 &non_integral_constant_expression_p,
17724 /*template_p=*/false,
17725 /*done=*/true,
17726 /*address_p=*/false,
17727 /*template_arg_p=*/false,
17728 &error_msg,
17729 input_location);
17730 if (error_msg)
17731 error (error_msg);
17732 if (!function_p && identifier_p (decl))
17734 if (complain & tf_error)
17735 unqualified_name_lookup_error (decl);
17736 decl = error_mark_node;
17738 RETURN (decl);
17741 case TEMPLATE_ID_EXPR:
17743 tree object;
17744 tree templ = RECUR (TREE_OPERAND (t, 0));
17745 tree targs = TREE_OPERAND (t, 1);
17747 if (targs)
17748 targs = tsubst_template_args (targs, args, complain, in_decl);
17749 if (targs == error_mark_node)
17750 RETURN (error_mark_node);
17752 if (TREE_CODE (templ) == SCOPE_REF)
17754 tree name = TREE_OPERAND (templ, 1);
17755 tree tid = lookup_template_function (name, targs);
17756 TREE_OPERAND (templ, 1) = tid;
17757 RETURN (templ);
17760 if (variable_template_p (templ))
17761 RETURN (lookup_and_finish_template_variable (templ, targs, complain));
17763 if (TREE_CODE (templ) == COMPONENT_REF)
17765 object = TREE_OPERAND (templ, 0);
17766 templ = TREE_OPERAND (templ, 1);
17768 else
17769 object = NULL_TREE;
17770 templ = lookup_template_function (templ, targs);
17772 if (object)
17773 RETURN (build3 (COMPONENT_REF, TREE_TYPE (templ),
17774 object, templ, NULL_TREE));
17775 else
17776 RETURN (baselink_for_fns (templ));
17779 case INDIRECT_REF:
17781 tree r = RECUR (TREE_OPERAND (t, 0));
17783 if (REFERENCE_REF_P (t))
17785 /* A type conversion to reference type will be enclosed in
17786 such an indirect ref, but the substitution of the cast
17787 will have also added such an indirect ref. */
17788 r = convert_from_reference (r);
17790 else
17791 r = build_x_indirect_ref (input_location, r, RO_UNARY_STAR,
17792 complain|decltype_flag);
17794 if (REF_PARENTHESIZED_P (t))
17795 r = force_paren_expr (r);
17797 RETURN (r);
17800 case NOP_EXPR:
17802 tree type = tsubst (TREE_TYPE (t), args, complain, in_decl);
17803 tree op0 = RECUR (TREE_OPERAND (t, 0));
17804 RETURN (build_nop (type, op0));
17807 case IMPLICIT_CONV_EXPR:
17809 tree type = tsubst (TREE_TYPE (t), args, complain, in_decl);
17810 tree expr = RECUR (TREE_OPERAND (t, 0));
17811 if (dependent_type_p (type) || type_dependent_expression_p (expr))
17813 retval = copy_node (t);
17814 TREE_TYPE (retval) = type;
17815 TREE_OPERAND (retval, 0) = expr;
17816 RETURN (retval);
17818 if (IMPLICIT_CONV_EXPR_NONTYPE_ARG (t))
17819 /* We'll pass this to convert_nontype_argument again, we don't need
17820 to actually perform any conversion here. */
17821 RETURN (expr);
17822 int flags = LOOKUP_IMPLICIT;
17823 if (IMPLICIT_CONV_EXPR_DIRECT_INIT (t))
17824 flags = LOOKUP_NORMAL;
17825 RETURN (perform_implicit_conversion_flags (type, expr, complain,
17826 flags));
17829 case CONVERT_EXPR:
17831 tree type = tsubst (TREE_TYPE (t), args, complain, in_decl);
17832 tree op0 = RECUR (TREE_OPERAND (t, 0));
17833 if (op0 == error_mark_node)
17834 RETURN (error_mark_node);
17835 RETURN (build1 (CONVERT_EXPR, type, op0));
17838 case CAST_EXPR:
17839 case REINTERPRET_CAST_EXPR:
17840 case CONST_CAST_EXPR:
17841 case DYNAMIC_CAST_EXPR:
17842 case STATIC_CAST_EXPR:
17844 tree type;
17845 tree op, r = NULL_TREE;
17847 type = tsubst (TREE_TYPE (t), args, complain, in_decl);
17848 if (integral_constant_expression_p
17849 && !cast_valid_in_integral_constant_expression_p (type))
17851 if (complain & tf_error)
17852 error ("a cast to a type other than an integral or "
17853 "enumeration type cannot appear in a constant-expression");
17854 RETURN (error_mark_node);
17857 op = RECUR (TREE_OPERAND (t, 0));
17859 warning_sentinel s(warn_useless_cast);
17860 warning_sentinel s2(warn_ignored_qualifiers);
17861 switch (TREE_CODE (t))
17863 case CAST_EXPR:
17864 r = build_functional_cast (type, op, complain);
17865 break;
17866 case REINTERPRET_CAST_EXPR:
17867 r = build_reinterpret_cast (type, op, complain);
17868 break;
17869 case CONST_CAST_EXPR:
17870 r = build_const_cast (type, op, complain);
17871 break;
17872 case DYNAMIC_CAST_EXPR:
17873 r = build_dynamic_cast (type, op, complain);
17874 break;
17875 case STATIC_CAST_EXPR:
17876 r = build_static_cast (type, op, complain);
17877 break;
17878 default:
17879 gcc_unreachable ();
17882 RETURN (r);
17885 case POSTDECREMENT_EXPR:
17886 case POSTINCREMENT_EXPR:
17887 op1 = tsubst_non_call_postfix_expression (TREE_OPERAND (t, 0),
17888 args, complain, in_decl);
17889 RETURN (build_x_unary_op (input_location, TREE_CODE (t), op1,
17890 complain|decltype_flag));
17892 case PREDECREMENT_EXPR:
17893 case PREINCREMENT_EXPR:
17894 case NEGATE_EXPR:
17895 case BIT_NOT_EXPR:
17896 case ABS_EXPR:
17897 case TRUTH_NOT_EXPR:
17898 case UNARY_PLUS_EXPR: /* Unary + */
17899 case REALPART_EXPR:
17900 case IMAGPART_EXPR:
17901 RETURN (build_x_unary_op (input_location, TREE_CODE (t),
17902 RECUR (TREE_OPERAND (t, 0)),
17903 complain|decltype_flag));
17905 case FIX_TRUNC_EXPR:
17906 gcc_unreachable ();
17908 case ADDR_EXPR:
17909 op1 = TREE_OPERAND (t, 0);
17910 if (TREE_CODE (op1) == LABEL_DECL)
17911 RETURN (finish_label_address_expr (DECL_NAME (op1),
17912 EXPR_LOCATION (op1)));
17913 if (TREE_CODE (op1) == SCOPE_REF)
17914 op1 = tsubst_qualified_id (op1, args, complain, in_decl,
17915 /*done=*/true, /*address_p=*/true);
17916 else
17917 op1 = tsubst_non_call_postfix_expression (op1, args, complain,
17918 in_decl);
17919 RETURN (build_x_unary_op (input_location, ADDR_EXPR, op1,
17920 complain|decltype_flag));
17922 case PLUS_EXPR:
17923 case MINUS_EXPR:
17924 case MULT_EXPR:
17925 case TRUNC_DIV_EXPR:
17926 case CEIL_DIV_EXPR:
17927 case FLOOR_DIV_EXPR:
17928 case ROUND_DIV_EXPR:
17929 case EXACT_DIV_EXPR:
17930 case BIT_AND_EXPR:
17931 case BIT_IOR_EXPR:
17932 case BIT_XOR_EXPR:
17933 case TRUNC_MOD_EXPR:
17934 case FLOOR_MOD_EXPR:
17935 case TRUTH_ANDIF_EXPR:
17936 case TRUTH_ORIF_EXPR:
17937 case TRUTH_AND_EXPR:
17938 case TRUTH_OR_EXPR:
17939 case RSHIFT_EXPR:
17940 case LSHIFT_EXPR:
17941 case RROTATE_EXPR:
17942 case LROTATE_EXPR:
17943 case EQ_EXPR:
17944 case NE_EXPR:
17945 case MAX_EXPR:
17946 case MIN_EXPR:
17947 case LE_EXPR:
17948 case GE_EXPR:
17949 case LT_EXPR:
17950 case GT_EXPR:
17951 case MEMBER_REF:
17952 case DOTSTAR_EXPR:
17954 warning_sentinel s1(warn_type_limits);
17955 warning_sentinel s2(warn_div_by_zero);
17956 warning_sentinel s3(warn_logical_op);
17957 warning_sentinel s4(warn_tautological_compare);
17958 tree op0 = RECUR (TREE_OPERAND (t, 0));
17959 tree op1 = RECUR (TREE_OPERAND (t, 1));
17960 tree r = build_x_binary_op
17961 (input_location, TREE_CODE (t),
17962 op0,
17963 (TREE_NO_WARNING (TREE_OPERAND (t, 0))
17964 ? ERROR_MARK
17965 : TREE_CODE (TREE_OPERAND (t, 0))),
17966 op1,
17967 (TREE_NO_WARNING (TREE_OPERAND (t, 1))
17968 ? ERROR_MARK
17969 : TREE_CODE (TREE_OPERAND (t, 1))),
17970 /*overload=*/NULL,
17971 complain|decltype_flag);
17972 if (EXPR_P (r) && TREE_NO_WARNING (t))
17973 TREE_NO_WARNING (r) = TREE_NO_WARNING (t);
17975 RETURN (r);
17978 case POINTER_PLUS_EXPR:
17980 tree op0 = RECUR (TREE_OPERAND (t, 0));
17981 tree op1 = RECUR (TREE_OPERAND (t, 1));
17982 RETURN (fold_build_pointer_plus (op0, op1));
17985 case SCOPE_REF:
17986 RETURN (tsubst_qualified_id (t, args, complain, in_decl, /*done=*/true,
17987 /*address_p=*/false));
17988 case ARRAY_REF:
17989 op1 = tsubst_non_call_postfix_expression (TREE_OPERAND (t, 0),
17990 args, complain, in_decl);
17991 RETURN (build_x_array_ref (EXPR_LOCATION (t), op1,
17992 RECUR (TREE_OPERAND (t, 1)),
17993 complain|decltype_flag));
17995 case SIZEOF_EXPR:
17996 if (PACK_EXPANSION_P (TREE_OPERAND (t, 0))
17997 || ARGUMENT_PACK_P (TREE_OPERAND (t, 0)))
17998 RETURN (tsubst_copy (t, args, complain, in_decl));
17999 /* Fall through */
18001 case ALIGNOF_EXPR:
18003 tree r;
18005 op1 = TREE_OPERAND (t, 0);
18006 if (TREE_CODE (t) == SIZEOF_EXPR && SIZEOF_EXPR_TYPE_P (t))
18007 op1 = TREE_TYPE (op1);
18008 bool std_alignof = (TREE_CODE (t) == ALIGNOF_EXPR
18009 && ALIGNOF_EXPR_STD_P (t));
18010 if (!args)
18012 /* When there are no ARGS, we are trying to evaluate a
18013 non-dependent expression from the parser. Trying to do
18014 the substitutions may not work. */
18015 if (!TYPE_P (op1))
18016 op1 = TREE_TYPE (op1);
18018 else
18020 ++cp_unevaluated_operand;
18021 ++c_inhibit_evaluation_warnings;
18022 if (TYPE_P (op1))
18023 op1 = tsubst (op1, args, complain, in_decl);
18024 else
18025 op1 = tsubst_copy_and_build (op1, args, complain, in_decl,
18026 /*function_p=*/false,
18027 /*integral_constant_expression_p=*/
18028 false);
18029 --cp_unevaluated_operand;
18030 --c_inhibit_evaluation_warnings;
18032 if (TYPE_P (op1))
18033 r = cxx_sizeof_or_alignof_type (op1, TREE_CODE (t), std_alignof,
18034 complain & tf_error);
18035 else
18036 r = cxx_sizeof_or_alignof_expr (op1, TREE_CODE (t),
18037 complain & tf_error);
18038 if (TREE_CODE (t) == SIZEOF_EXPR && r != error_mark_node)
18040 if (TREE_CODE (r) != SIZEOF_EXPR || TYPE_P (op1))
18042 if (!processing_template_decl && TYPE_P (op1))
18044 r = build_min (SIZEOF_EXPR, size_type_node,
18045 build1 (NOP_EXPR, op1, error_mark_node));
18046 SIZEOF_EXPR_TYPE_P (r) = 1;
18048 else
18049 r = build_min (SIZEOF_EXPR, size_type_node, op1);
18050 TREE_SIDE_EFFECTS (r) = 0;
18051 TREE_READONLY (r) = 1;
18053 SET_EXPR_LOCATION (r, EXPR_LOCATION (t));
18055 RETURN (r);
18058 case AT_ENCODE_EXPR:
18060 op1 = TREE_OPERAND (t, 0);
18061 ++cp_unevaluated_operand;
18062 ++c_inhibit_evaluation_warnings;
18063 op1 = tsubst_copy_and_build (op1, args, complain, in_decl,
18064 /*function_p=*/false,
18065 /*integral_constant_expression_p=*/false);
18066 --cp_unevaluated_operand;
18067 --c_inhibit_evaluation_warnings;
18068 RETURN (objc_build_encode_expr (op1));
18071 case NOEXCEPT_EXPR:
18072 op1 = TREE_OPERAND (t, 0);
18073 ++cp_unevaluated_operand;
18074 ++c_inhibit_evaluation_warnings;
18075 ++cp_noexcept_operand;
18076 op1 = tsubst_copy_and_build (op1, args, complain, in_decl,
18077 /*function_p=*/false,
18078 /*integral_constant_expression_p=*/false);
18079 --cp_unevaluated_operand;
18080 --c_inhibit_evaluation_warnings;
18081 --cp_noexcept_operand;
18082 RETURN (finish_noexcept_expr (op1, complain));
18084 case MODOP_EXPR:
18086 warning_sentinel s(warn_div_by_zero);
18087 tree lhs = RECUR (TREE_OPERAND (t, 0));
18088 tree rhs = RECUR (TREE_OPERAND (t, 2));
18089 tree r = build_x_modify_expr
18090 (EXPR_LOCATION (t), lhs, TREE_CODE (TREE_OPERAND (t, 1)), rhs,
18091 complain|decltype_flag);
18092 /* TREE_NO_WARNING must be set if either the expression was
18093 parenthesized or it uses an operator such as >>= rather
18094 than plain assignment. In the former case, it was already
18095 set and must be copied. In the latter case,
18096 build_x_modify_expr sets it and it must not be reset
18097 here. */
18098 if (TREE_NO_WARNING (t))
18099 TREE_NO_WARNING (r) = TREE_NO_WARNING (t);
18101 RETURN (r);
18104 case ARROW_EXPR:
18105 op1 = tsubst_non_call_postfix_expression (TREE_OPERAND (t, 0),
18106 args, complain, in_decl);
18107 /* Remember that there was a reference to this entity. */
18108 if (DECL_P (op1)
18109 && !mark_used (op1, complain) && !(complain & tf_error))
18110 RETURN (error_mark_node);
18111 RETURN (build_x_arrow (input_location, op1, complain));
18113 case NEW_EXPR:
18115 tree placement = RECUR (TREE_OPERAND (t, 0));
18116 tree init = RECUR (TREE_OPERAND (t, 3));
18117 vec<tree, va_gc> *placement_vec;
18118 vec<tree, va_gc> *init_vec;
18119 tree ret;
18121 if (placement == NULL_TREE)
18122 placement_vec = NULL;
18123 else
18125 placement_vec = make_tree_vector ();
18126 for (; placement != NULL_TREE; placement = TREE_CHAIN (placement))
18127 vec_safe_push (placement_vec, TREE_VALUE (placement));
18130 /* If there was an initializer in the original tree, but it
18131 instantiated to an empty list, then we should pass a
18132 non-NULL empty vector to tell build_new that it was an
18133 empty initializer() rather than no initializer. This can
18134 only happen when the initializer is a pack expansion whose
18135 parameter packs are of length zero. */
18136 if (init == NULL_TREE && TREE_OPERAND (t, 3) == NULL_TREE)
18137 init_vec = NULL;
18138 else
18140 init_vec = make_tree_vector ();
18141 if (init == void_node)
18142 gcc_assert (init_vec != NULL);
18143 else
18145 for (; init != NULL_TREE; init = TREE_CHAIN (init))
18146 vec_safe_push (init_vec, TREE_VALUE (init));
18150 tree op1 = tsubst (TREE_OPERAND (t, 1), args, complain, in_decl);
18151 tree op2 = RECUR (TREE_OPERAND (t, 2));
18152 ret = build_new (&placement_vec, op1, op2, &init_vec,
18153 NEW_EXPR_USE_GLOBAL (t),
18154 complain);
18156 if (placement_vec != NULL)
18157 release_tree_vector (placement_vec);
18158 if (init_vec != NULL)
18159 release_tree_vector (init_vec);
18161 RETURN (ret);
18164 case DELETE_EXPR:
18166 tree op0 = RECUR (TREE_OPERAND (t, 0));
18167 tree op1 = RECUR (TREE_OPERAND (t, 1));
18168 RETURN (delete_sanity (op0, op1,
18169 DELETE_EXPR_USE_VEC (t),
18170 DELETE_EXPR_USE_GLOBAL (t),
18171 complain));
18174 case COMPOUND_EXPR:
18176 tree op0 = tsubst_copy_and_build (TREE_OPERAND (t, 0), args,
18177 complain & ~tf_decltype, in_decl,
18178 /*function_p=*/false,
18179 integral_constant_expression_p);
18180 RETURN (build_x_compound_expr (EXPR_LOCATION (t),
18181 op0,
18182 RECUR (TREE_OPERAND (t, 1)),
18183 complain|decltype_flag));
18186 case CALL_EXPR:
18188 tree function;
18189 vec<tree, va_gc> *call_args;
18190 unsigned int nargs, i;
18191 bool qualified_p;
18192 bool koenig_p;
18193 tree ret;
18195 function = CALL_EXPR_FN (t);
18196 /* Internal function with no arguments. */
18197 if (function == NULL_TREE && call_expr_nargs (t) == 0)
18198 RETURN (t);
18200 /* When we parsed the expression, we determined whether or
18201 not Koenig lookup should be performed. */
18202 koenig_p = KOENIG_LOOKUP_P (t);
18203 if (function == NULL_TREE)
18205 koenig_p = false;
18206 qualified_p = false;
18208 else if (TREE_CODE (function) == SCOPE_REF)
18210 qualified_p = true;
18211 function = tsubst_qualified_id (function, args, complain, in_decl,
18212 /*done=*/false,
18213 /*address_p=*/false);
18215 else if (koenig_p && identifier_p (function))
18217 /* Do nothing; calling tsubst_copy_and_build on an identifier
18218 would incorrectly perform unqualified lookup again.
18220 Note that we can also have an IDENTIFIER_NODE if the earlier
18221 unqualified lookup found a member function; in that case
18222 koenig_p will be false and we do want to do the lookup
18223 again to find the instantiated member function.
18225 FIXME but doing that causes c++/15272, so we need to stop
18226 using IDENTIFIER_NODE in that situation. */
18227 qualified_p = false;
18229 else
18231 if (TREE_CODE (function) == COMPONENT_REF)
18233 tree op = TREE_OPERAND (function, 1);
18235 qualified_p = (TREE_CODE (op) == SCOPE_REF
18236 || (BASELINK_P (op)
18237 && BASELINK_QUALIFIED_P (op)));
18239 else
18240 qualified_p = false;
18242 if (TREE_CODE (function) == ADDR_EXPR
18243 && TREE_CODE (TREE_OPERAND (function, 0)) == FUNCTION_DECL)
18244 /* Avoid error about taking the address of a constructor. */
18245 function = TREE_OPERAND (function, 0);
18247 function = tsubst_copy_and_build (function, args, complain,
18248 in_decl,
18249 !qualified_p,
18250 integral_constant_expression_p);
18252 if (BASELINK_P (function))
18253 qualified_p = true;
18256 nargs = call_expr_nargs (t);
18257 call_args = make_tree_vector ();
18258 for (i = 0; i < nargs; ++i)
18260 tree arg = CALL_EXPR_ARG (t, i);
18262 if (!PACK_EXPANSION_P (arg))
18263 vec_safe_push (call_args, RECUR (CALL_EXPR_ARG (t, i)));
18264 else
18266 /* Expand the pack expansion and push each entry onto
18267 CALL_ARGS. */
18268 arg = tsubst_pack_expansion (arg, args, complain, in_decl);
18269 if (TREE_CODE (arg) == TREE_VEC)
18271 unsigned int len, j;
18273 len = TREE_VEC_LENGTH (arg);
18274 for (j = 0; j < len; ++j)
18276 tree value = TREE_VEC_ELT (arg, j);
18277 if (value != NULL_TREE)
18278 value = convert_from_reference (value);
18279 vec_safe_push (call_args, value);
18282 else
18284 /* A partial substitution. Add one entry. */
18285 vec_safe_push (call_args, arg);
18290 /* We do not perform argument-dependent lookup if normal
18291 lookup finds a non-function, in accordance with the
18292 expected resolution of DR 218. */
18293 if (koenig_p
18294 && ((is_overloaded_fn (function)
18295 /* If lookup found a member function, the Koenig lookup is
18296 not appropriate, even if an unqualified-name was used
18297 to denote the function. */
18298 && !DECL_FUNCTION_MEMBER_P (get_first_fn (function)))
18299 || identifier_p (function))
18300 /* Only do this when substitution turns a dependent call
18301 into a non-dependent call. */
18302 && type_dependent_expression_p_push (t)
18303 && !any_type_dependent_arguments_p (call_args))
18304 function = perform_koenig_lookup (function, call_args, tf_none);
18306 if (function != NULL_TREE
18307 && identifier_p (function)
18308 && !any_type_dependent_arguments_p (call_args))
18310 if (koenig_p && (complain & tf_warning_or_error))
18312 /* For backwards compatibility and good diagnostics, try
18313 the unqualified lookup again if we aren't in SFINAE
18314 context. */
18315 tree unq = (tsubst_copy_and_build
18316 (function, args, complain, in_decl, true,
18317 integral_constant_expression_p));
18318 if (unq == error_mark_node)
18320 release_tree_vector (call_args);
18321 RETURN (error_mark_node);
18324 if (unq != function)
18326 /* In a lambda fn, we have to be careful to not
18327 introduce new this captures. Legacy code can't
18328 be using lambdas anyway, so it's ok to be
18329 stricter. */
18330 bool in_lambda = (current_class_type
18331 && LAMBDA_TYPE_P (current_class_type));
18332 char const *const msg
18333 = G_("%qD was not declared in this scope, "
18334 "and no declarations were found by "
18335 "argument-dependent lookup at the point "
18336 "of instantiation");
18338 bool diag = true;
18339 if (in_lambda)
18340 error_at (EXPR_LOC_OR_LOC (t, input_location),
18341 msg, function);
18342 else
18343 diag = permerror (EXPR_LOC_OR_LOC (t, input_location),
18344 msg, function);
18345 if (diag)
18347 tree fn = unq;
18349 if (INDIRECT_REF_P (fn))
18350 fn = TREE_OPERAND (fn, 0);
18351 if (is_overloaded_fn (fn))
18352 fn = get_first_fn (fn);
18354 if (!DECL_P (fn))
18355 /* Can't say anything more. */;
18356 else if (DECL_CLASS_SCOPE_P (fn))
18358 location_t loc = EXPR_LOC_OR_LOC (t,
18359 input_location);
18360 inform (loc,
18361 "declarations in dependent base %qT are "
18362 "not found by unqualified lookup",
18363 DECL_CLASS_CONTEXT (fn));
18364 if (current_class_ptr)
18365 inform (loc,
18366 "use %<this->%D%> instead", function);
18367 else
18368 inform (loc,
18369 "use %<%T::%D%> instead",
18370 current_class_name, function);
18372 else
18373 inform (DECL_SOURCE_LOCATION (fn),
18374 "%qD declared here, later in the "
18375 "translation unit", fn);
18376 if (in_lambda)
18378 release_tree_vector (call_args);
18379 RETURN (error_mark_node);
18383 function = unq;
18386 if (identifier_p (function))
18388 if (complain & tf_error)
18389 unqualified_name_lookup_error (function);
18390 release_tree_vector (call_args);
18391 RETURN (error_mark_node);
18395 /* Remember that there was a reference to this entity. */
18396 if (function != NULL_TREE
18397 && DECL_P (function)
18398 && !mark_used (function, complain) && !(complain & tf_error))
18400 release_tree_vector (call_args);
18401 RETURN (error_mark_node);
18404 /* Put back tf_decltype for the actual call. */
18405 complain |= decltype_flag;
18407 if (function == NULL_TREE)
18408 switch (CALL_EXPR_IFN (t))
18410 case IFN_LAUNDER:
18411 gcc_assert (nargs == 1);
18412 if (vec_safe_length (call_args) != 1)
18414 error_at (EXPR_LOC_OR_LOC (t, input_location),
18415 "wrong number of arguments to "
18416 "%<__builtin_launder%>");
18417 ret = error_mark_node;
18419 else
18420 ret = finish_builtin_launder (EXPR_LOC_OR_LOC (t,
18421 input_location),
18422 (*call_args)[0], complain);
18423 break;
18425 default:
18426 /* Unsupported internal function with arguments. */
18427 gcc_unreachable ();
18429 else if (TREE_CODE (function) == OFFSET_REF)
18430 ret = build_offset_ref_call_from_tree (function, &call_args,
18431 complain);
18432 else if (TREE_CODE (function) == COMPONENT_REF)
18434 tree instance = TREE_OPERAND (function, 0);
18435 tree fn = TREE_OPERAND (function, 1);
18437 if (processing_template_decl
18438 && (type_dependent_expression_p (instance)
18439 || (!BASELINK_P (fn)
18440 && TREE_CODE (fn) != FIELD_DECL)
18441 || type_dependent_expression_p (fn)
18442 || any_type_dependent_arguments_p (call_args)))
18443 ret = build_min_nt_call_vec (function, call_args);
18444 else if (!BASELINK_P (fn))
18445 ret = finish_call_expr (function, &call_args,
18446 /*disallow_virtual=*/false,
18447 /*koenig_p=*/false,
18448 complain);
18449 else
18450 ret = (build_new_method_call
18451 (instance, fn,
18452 &call_args, NULL_TREE,
18453 qualified_p ? LOOKUP_NONVIRTUAL : LOOKUP_NORMAL,
18454 /*fn_p=*/NULL,
18455 complain));
18457 else
18458 ret = finish_call_expr (function, &call_args,
18459 /*disallow_virtual=*/qualified_p,
18460 koenig_p,
18461 complain);
18463 release_tree_vector (call_args);
18465 if (ret != error_mark_node)
18467 bool op = CALL_EXPR_OPERATOR_SYNTAX (t);
18468 bool ord = CALL_EXPR_ORDERED_ARGS (t);
18469 bool rev = CALL_EXPR_REVERSE_ARGS (t);
18470 bool thk = CALL_FROM_THUNK_P (t);
18471 if (op || ord || rev || thk)
18473 function = extract_call_expr (ret);
18474 CALL_EXPR_OPERATOR_SYNTAX (function) = op;
18475 CALL_EXPR_ORDERED_ARGS (function) = ord;
18476 CALL_EXPR_REVERSE_ARGS (function) = rev;
18477 if (thk)
18479 if (TREE_CODE (function) == CALL_EXPR)
18480 CALL_FROM_THUNK_P (function) = true;
18481 else
18482 AGGR_INIT_FROM_THUNK_P (function) = true;
18483 /* The thunk location is not interesting. */
18484 SET_EXPR_LOCATION (function, UNKNOWN_LOCATION);
18489 RETURN (ret);
18492 case COND_EXPR:
18494 tree cond = RECUR (TREE_OPERAND (t, 0));
18495 tree folded_cond = fold_non_dependent_expr (cond);
18496 tree exp1, exp2;
18498 if (TREE_CODE (folded_cond) == INTEGER_CST)
18500 if (integer_zerop (folded_cond))
18502 ++c_inhibit_evaluation_warnings;
18503 exp1 = RECUR (TREE_OPERAND (t, 1));
18504 --c_inhibit_evaluation_warnings;
18505 exp2 = RECUR (TREE_OPERAND (t, 2));
18507 else
18509 exp1 = RECUR (TREE_OPERAND (t, 1));
18510 ++c_inhibit_evaluation_warnings;
18511 exp2 = RECUR (TREE_OPERAND (t, 2));
18512 --c_inhibit_evaluation_warnings;
18514 cond = folded_cond;
18516 else
18518 exp1 = RECUR (TREE_OPERAND (t, 1));
18519 exp2 = RECUR (TREE_OPERAND (t, 2));
18522 warning_sentinel s(warn_duplicated_branches);
18523 RETURN (build_x_conditional_expr (EXPR_LOCATION (t),
18524 cond, exp1, exp2, complain));
18527 case PSEUDO_DTOR_EXPR:
18529 tree op0 = RECUR (TREE_OPERAND (t, 0));
18530 tree op1 = RECUR (TREE_OPERAND (t, 1));
18531 tree op2 = tsubst (TREE_OPERAND (t, 2), args, complain, in_decl);
18532 RETURN (finish_pseudo_destructor_expr (op0, op1, op2,
18533 input_location));
18536 case TREE_LIST:
18538 tree purpose, value, chain;
18540 if (t == void_list_node)
18541 RETURN (t);
18543 if ((TREE_PURPOSE (t) && PACK_EXPANSION_P (TREE_PURPOSE (t)))
18544 || (TREE_VALUE (t) && PACK_EXPANSION_P (TREE_VALUE (t))))
18546 /* We have pack expansions, so expand those and
18547 create a new list out of it. */
18548 tree purposevec = NULL_TREE;
18549 tree valuevec = NULL_TREE;
18550 tree chain;
18551 int i, len = -1;
18553 /* Expand the argument expressions. */
18554 if (TREE_PURPOSE (t))
18555 purposevec = tsubst_pack_expansion (TREE_PURPOSE (t), args,
18556 complain, in_decl);
18557 if (TREE_VALUE (t))
18558 valuevec = tsubst_pack_expansion (TREE_VALUE (t), args,
18559 complain, in_decl);
18561 /* Build the rest of the list. */
18562 chain = TREE_CHAIN (t);
18563 if (chain && chain != void_type_node)
18564 chain = RECUR (chain);
18566 /* Determine the number of arguments. */
18567 if (purposevec && TREE_CODE (purposevec) == TREE_VEC)
18569 len = TREE_VEC_LENGTH (purposevec);
18570 gcc_assert (!valuevec || len == TREE_VEC_LENGTH (valuevec));
18572 else if (TREE_CODE (valuevec) == TREE_VEC)
18573 len = TREE_VEC_LENGTH (valuevec);
18574 else
18576 /* Since we only performed a partial substitution into
18577 the argument pack, we only RETURN (a single list
18578 node. */
18579 if (purposevec == TREE_PURPOSE (t)
18580 && valuevec == TREE_VALUE (t)
18581 && chain == TREE_CHAIN (t))
18582 RETURN (t);
18584 RETURN (tree_cons (purposevec, valuevec, chain));
18587 /* Convert the argument vectors into a TREE_LIST */
18588 i = len;
18589 while (i > 0)
18591 /* Grab the Ith values. */
18592 i--;
18593 purpose = purposevec ? TREE_VEC_ELT (purposevec, i)
18594 : NULL_TREE;
18595 value
18596 = valuevec ? convert_from_reference (TREE_VEC_ELT (valuevec, i))
18597 : NULL_TREE;
18599 /* Build the list (backwards). */
18600 chain = tree_cons (purpose, value, chain);
18603 RETURN (chain);
18606 purpose = TREE_PURPOSE (t);
18607 if (purpose)
18608 purpose = RECUR (purpose);
18609 value = TREE_VALUE (t);
18610 if (value)
18611 value = RECUR (value);
18612 chain = TREE_CHAIN (t);
18613 if (chain && chain != void_type_node)
18614 chain = RECUR (chain);
18615 if (purpose == TREE_PURPOSE (t)
18616 && value == TREE_VALUE (t)
18617 && chain == TREE_CHAIN (t))
18618 RETURN (t);
18619 RETURN (tree_cons (purpose, value, chain));
18622 case COMPONENT_REF:
18624 tree object;
18625 tree object_type;
18626 tree member;
18627 tree r;
18629 object = tsubst_non_call_postfix_expression (TREE_OPERAND (t, 0),
18630 args, complain, in_decl);
18631 /* Remember that there was a reference to this entity. */
18632 if (DECL_P (object)
18633 && !mark_used (object, complain) && !(complain & tf_error))
18634 RETURN (error_mark_node);
18635 object_type = TREE_TYPE (object);
18637 member = TREE_OPERAND (t, 1);
18638 if (BASELINK_P (member))
18639 member = tsubst_baselink (member,
18640 non_reference (TREE_TYPE (object)),
18641 args, complain, in_decl);
18642 else
18643 member = tsubst_copy (member, args, complain, in_decl);
18644 if (member == error_mark_node)
18645 RETURN (error_mark_node);
18647 if (TREE_CODE (member) == FIELD_DECL)
18649 r = finish_non_static_data_member (member, object, NULL_TREE);
18650 if (TREE_CODE (r) == COMPONENT_REF)
18651 REF_PARENTHESIZED_P (r) = REF_PARENTHESIZED_P (t);
18652 RETURN (r);
18654 else if (type_dependent_expression_p (object))
18655 /* We can't do much here. */;
18656 else if (!CLASS_TYPE_P (object_type))
18658 if (scalarish_type_p (object_type))
18660 tree s = NULL_TREE;
18661 tree dtor = member;
18663 if (TREE_CODE (dtor) == SCOPE_REF)
18665 s = TREE_OPERAND (dtor, 0);
18666 dtor = TREE_OPERAND (dtor, 1);
18668 if (TREE_CODE (dtor) == BIT_NOT_EXPR)
18670 dtor = TREE_OPERAND (dtor, 0);
18671 if (TYPE_P (dtor))
18672 RETURN (finish_pseudo_destructor_expr
18673 (object, s, dtor, input_location));
18677 else if (TREE_CODE (member) == SCOPE_REF
18678 && TREE_CODE (TREE_OPERAND (member, 1)) == TEMPLATE_ID_EXPR)
18680 /* Lookup the template functions now that we know what the
18681 scope is. */
18682 tree scope = TREE_OPERAND (member, 0);
18683 tree tmpl = TREE_OPERAND (TREE_OPERAND (member, 1), 0);
18684 tree args = TREE_OPERAND (TREE_OPERAND (member, 1), 1);
18685 member = lookup_qualified_name (scope, tmpl,
18686 /*is_type_p=*/false,
18687 /*complain=*/false);
18688 if (BASELINK_P (member))
18690 BASELINK_FUNCTIONS (member)
18691 = build_nt (TEMPLATE_ID_EXPR, BASELINK_FUNCTIONS (member),
18692 args);
18693 member = (adjust_result_of_qualified_name_lookup
18694 (member, BINFO_TYPE (BASELINK_BINFO (member)),
18695 object_type));
18697 else
18699 qualified_name_lookup_error (scope, tmpl, member,
18700 input_location);
18701 RETURN (error_mark_node);
18704 else if (TREE_CODE (member) == SCOPE_REF
18705 && !CLASS_TYPE_P (TREE_OPERAND (member, 0))
18706 && TREE_CODE (TREE_OPERAND (member, 0)) != NAMESPACE_DECL)
18708 if (complain & tf_error)
18710 if (TYPE_P (TREE_OPERAND (member, 0)))
18711 error ("%qT is not a class or namespace",
18712 TREE_OPERAND (member, 0));
18713 else
18714 error ("%qD is not a class or namespace",
18715 TREE_OPERAND (member, 0));
18717 RETURN (error_mark_node);
18720 r = finish_class_member_access_expr (object, member,
18721 /*template_p=*/false,
18722 complain);
18723 if (TREE_CODE (r) == COMPONENT_REF)
18724 REF_PARENTHESIZED_P (r) = REF_PARENTHESIZED_P (t);
18725 RETURN (r);
18728 case THROW_EXPR:
18729 RETURN (build_throw
18730 (RECUR (TREE_OPERAND (t, 0))));
18732 case CONSTRUCTOR:
18734 vec<constructor_elt, va_gc> *n;
18735 constructor_elt *ce;
18736 unsigned HOST_WIDE_INT idx;
18737 tree type = tsubst (TREE_TYPE (t), args, complain, in_decl);
18738 bool process_index_p;
18739 int newlen;
18740 bool need_copy_p = false;
18741 tree r;
18743 if (type == error_mark_node)
18744 RETURN (error_mark_node);
18746 /* We do not want to process the index of aggregate
18747 initializers as they are identifier nodes which will be
18748 looked up by digest_init. */
18749 process_index_p = !(type && MAYBE_CLASS_TYPE_P (type));
18751 n = vec_safe_copy (CONSTRUCTOR_ELTS (t));
18752 newlen = vec_safe_length (n);
18753 FOR_EACH_VEC_SAFE_ELT (n, idx, ce)
18755 if (ce->index && process_index_p
18756 /* An identifier index is looked up in the type
18757 being initialized, not the current scope. */
18758 && TREE_CODE (ce->index) != IDENTIFIER_NODE)
18759 ce->index = RECUR (ce->index);
18761 if (PACK_EXPANSION_P (ce->value))
18763 /* Substitute into the pack expansion. */
18764 ce->value = tsubst_pack_expansion (ce->value, args, complain,
18765 in_decl);
18767 if (ce->value == error_mark_node
18768 || PACK_EXPANSION_P (ce->value))
18770 else if (TREE_VEC_LENGTH (ce->value) == 1)
18771 /* Just move the argument into place. */
18772 ce->value = TREE_VEC_ELT (ce->value, 0);
18773 else
18775 /* Update the length of the final CONSTRUCTOR
18776 arguments vector, and note that we will need to
18777 copy.*/
18778 newlen = newlen + TREE_VEC_LENGTH (ce->value) - 1;
18779 need_copy_p = true;
18782 else
18783 ce->value = RECUR (ce->value);
18786 if (need_copy_p)
18788 vec<constructor_elt, va_gc> *old_n = n;
18790 vec_alloc (n, newlen);
18791 FOR_EACH_VEC_ELT (*old_n, idx, ce)
18793 if (TREE_CODE (ce->value) == TREE_VEC)
18795 int i, len = TREE_VEC_LENGTH (ce->value);
18796 for (i = 0; i < len; ++i)
18797 CONSTRUCTOR_APPEND_ELT (n, 0,
18798 TREE_VEC_ELT (ce->value, i));
18800 else
18801 CONSTRUCTOR_APPEND_ELT (n, 0, ce->value);
18805 r = build_constructor (init_list_type_node, n);
18806 CONSTRUCTOR_IS_DIRECT_INIT (r) = CONSTRUCTOR_IS_DIRECT_INIT (t);
18808 if (TREE_HAS_CONSTRUCTOR (t))
18810 fcl_t cl = fcl_functional;
18811 if (CONSTRUCTOR_C99_COMPOUND_LITERAL (t))
18812 cl = fcl_c99;
18813 RETURN (finish_compound_literal (type, r, complain, cl));
18816 TREE_TYPE (r) = type;
18817 RETURN (r);
18820 case TYPEID_EXPR:
18822 tree operand_0 = TREE_OPERAND (t, 0);
18823 if (TYPE_P (operand_0))
18825 operand_0 = tsubst (operand_0, args, complain, in_decl);
18826 RETURN (get_typeid (operand_0, complain));
18828 else
18830 operand_0 = RECUR (operand_0);
18831 RETURN (build_typeid (operand_0, complain));
18835 case VAR_DECL:
18836 if (!args)
18837 RETURN (t);
18838 /* Fall through */
18840 case PARM_DECL:
18842 tree r = tsubst_copy (t, args, complain, in_decl);
18843 /* ??? We're doing a subset of finish_id_expression here. */
18844 if (VAR_P (r)
18845 && !processing_template_decl
18846 && !cp_unevaluated_operand
18847 && (TREE_STATIC (r) || DECL_EXTERNAL (r))
18848 && CP_DECL_THREAD_LOCAL_P (r))
18850 if (tree wrap = get_tls_wrapper_fn (r))
18851 /* Replace an evaluated use of the thread_local variable with
18852 a call to its wrapper. */
18853 r = build_cxx_call (wrap, 0, NULL, tf_warning_or_error);
18855 else if (outer_automatic_var_p (r))
18856 r = process_outer_var_ref (r, complain);
18858 if (TREE_CODE (TREE_TYPE (t)) != REFERENCE_TYPE)
18859 /* If the original type was a reference, we'll be wrapped in
18860 the appropriate INDIRECT_REF. */
18861 r = convert_from_reference (r);
18862 RETURN (r);
18865 case VA_ARG_EXPR:
18867 tree op0 = RECUR (TREE_OPERAND (t, 0));
18868 tree type = tsubst (TREE_TYPE (t), args, complain, in_decl);
18869 RETURN (build_x_va_arg (EXPR_LOCATION (t), op0, type));
18872 case OFFSETOF_EXPR:
18874 tree object_ptr
18875 = tsubst_copy_and_build (TREE_OPERAND (t, 1), args, complain,
18876 in_decl, /*function_p=*/false,
18877 /*integral_constant_expression_p=*/false);
18878 RETURN (finish_offsetof (object_ptr,
18879 RECUR (TREE_OPERAND (t, 0)),
18880 EXPR_LOCATION (t)));
18883 case ADDRESSOF_EXPR:
18884 RETURN (cp_build_addressof (EXPR_LOCATION (t),
18885 RECUR (TREE_OPERAND (t, 0)), complain));
18887 case TRAIT_EXPR:
18889 tree type1 = tsubst (TRAIT_EXPR_TYPE1 (t), args,
18890 complain, in_decl);
18892 tree type2 = TRAIT_EXPR_TYPE2 (t);
18893 if (type2 && TREE_CODE (type2) == TREE_LIST)
18894 type2 = RECUR (type2);
18895 else if (type2)
18896 type2 = tsubst (type2, args, complain, in_decl);
18898 RETURN (finish_trait_expr (TRAIT_EXPR_KIND (t), type1, type2));
18901 case STMT_EXPR:
18903 tree old_stmt_expr = cur_stmt_expr;
18904 tree stmt_expr = begin_stmt_expr ();
18906 cur_stmt_expr = stmt_expr;
18907 tsubst_expr (STMT_EXPR_STMT (t), args, complain, in_decl,
18908 integral_constant_expression_p);
18909 stmt_expr = finish_stmt_expr (stmt_expr, false);
18910 cur_stmt_expr = old_stmt_expr;
18912 /* If the resulting list of expression statement is empty,
18913 fold it further into void_node. */
18914 if (empty_expr_stmt_p (stmt_expr))
18915 stmt_expr = void_node;
18917 RETURN (stmt_expr);
18920 case LAMBDA_EXPR:
18922 tree r = tsubst_lambda_expr (t, args, complain, in_decl);
18924 RETURN (build_lambda_object (r));
18927 case TARGET_EXPR:
18928 /* We can get here for a constant initializer of non-dependent type.
18929 FIXME stop folding in cp_parser_initializer_clause. */
18931 tree r = get_target_expr_sfinae (RECUR (TARGET_EXPR_INITIAL (t)),
18932 complain);
18933 RETURN (r);
18936 case TRANSACTION_EXPR:
18937 RETURN (tsubst_expr(t, args, complain, in_decl,
18938 integral_constant_expression_p));
18940 case PAREN_EXPR:
18941 RETURN (finish_parenthesized_expr (RECUR (TREE_OPERAND (t, 0))));
18943 case VEC_PERM_EXPR:
18945 tree op0 = RECUR (TREE_OPERAND (t, 0));
18946 tree op1 = RECUR (TREE_OPERAND (t, 1));
18947 tree op2 = RECUR (TREE_OPERAND (t, 2));
18948 RETURN (build_x_vec_perm_expr (input_location, op0, op1, op2,
18949 complain));
18952 case REQUIRES_EXPR:
18953 RETURN (tsubst_requires_expr (t, args, complain, in_decl));
18955 case NON_LVALUE_EXPR:
18956 case VIEW_CONVERT_EXPR:
18957 /* We should only see these for location wrapper nodes, or within
18958 instantiate_non_dependent_expr (when args is NULL_TREE). */
18959 gcc_assert (location_wrapper_p (t) || args == NULL_TREE);
18960 if (location_wrapper_p (t))
18961 RETURN (maybe_wrap_with_location (RECUR (TREE_OPERAND (t, 0)),
18962 EXPR_LOCATION (t)));
18963 /* fallthrough. */
18965 default:
18966 /* Handle Objective-C++ constructs, if appropriate. */
18968 tree subst
18969 = objcp_tsubst_copy_and_build (t, args, complain,
18970 in_decl, /*function_p=*/false);
18971 if (subst)
18972 RETURN (subst);
18974 RETURN (tsubst_copy (t, args, complain, in_decl));
18977 #undef RECUR
18978 #undef RETURN
18979 out:
18980 input_location = loc;
18981 return retval;
18984 /* Verify that the instantiated ARGS are valid. For type arguments,
18985 make sure that the type's linkage is ok. For non-type arguments,
18986 make sure they are constants if they are integral or enumerations.
18987 Emit an error under control of COMPLAIN, and return TRUE on error. */
18989 static bool
18990 check_instantiated_arg (tree tmpl, tree t, tsubst_flags_t complain)
18992 if (dependent_template_arg_p (t))
18993 return false;
18994 if (ARGUMENT_PACK_P (t))
18996 tree vec = ARGUMENT_PACK_ARGS (t);
18997 int len = TREE_VEC_LENGTH (vec);
18998 bool result = false;
18999 int i;
19001 for (i = 0; i < len; ++i)
19002 if (check_instantiated_arg (tmpl, TREE_VEC_ELT (vec, i), complain))
19003 result = true;
19004 return result;
19006 else if (TYPE_P (t))
19008 /* [basic.link]: A name with no linkage (notably, the name
19009 of a class or enumeration declared in a local scope)
19010 shall not be used to declare an entity with linkage.
19011 This implies that names with no linkage cannot be used as
19012 template arguments
19014 DR 757 relaxes this restriction for C++0x. */
19015 tree nt = (cxx_dialect > cxx98 ? NULL_TREE
19016 : no_linkage_check (t, /*relaxed_p=*/false));
19018 if (nt)
19020 /* DR 488 makes use of a type with no linkage cause
19021 type deduction to fail. */
19022 if (complain & tf_error)
19024 if (TYPE_UNNAMED_P (nt))
19025 error ("%qT is/uses unnamed type", t);
19026 else
19027 error ("template argument for %qD uses local type %qT",
19028 tmpl, t);
19030 return true;
19032 /* In order to avoid all sorts of complications, we do not
19033 allow variably-modified types as template arguments. */
19034 else if (variably_modified_type_p (t, NULL_TREE))
19036 if (complain & tf_error)
19037 error ("%qT is a variably modified type", t);
19038 return true;
19041 /* Class template and alias template arguments should be OK. */
19042 else if (DECL_TYPE_TEMPLATE_P (t))
19044 /* A non-type argument of integral or enumerated type must be a
19045 constant. */
19046 else if (TREE_TYPE (t)
19047 && INTEGRAL_OR_ENUMERATION_TYPE_P (TREE_TYPE (t))
19048 && !REFERENCE_REF_P (t)
19049 && !TREE_CONSTANT (t))
19051 if (complain & tf_error)
19052 error ("integral expression %qE is not constant", t);
19053 return true;
19055 return false;
19058 static bool
19059 check_instantiated_args (tree tmpl, tree args, tsubst_flags_t complain)
19061 int ix, len = DECL_NTPARMS (tmpl);
19062 bool result = false;
19064 for (ix = 0; ix != len; ix++)
19066 if (check_instantiated_arg (tmpl, TREE_VEC_ELT (args, ix), complain))
19067 result = true;
19069 if (result && (complain & tf_error))
19070 error (" trying to instantiate %qD", tmpl);
19071 return result;
19074 /* We're out of SFINAE context now, so generate diagnostics for the access
19075 errors we saw earlier when instantiating D from TMPL and ARGS. */
19077 static void
19078 recheck_decl_substitution (tree d, tree tmpl, tree args)
19080 tree pattern = DECL_TEMPLATE_RESULT (tmpl);
19081 tree type = TREE_TYPE (pattern);
19082 location_t loc = input_location;
19084 push_access_scope (d);
19085 push_deferring_access_checks (dk_no_deferred);
19086 input_location = DECL_SOURCE_LOCATION (pattern);
19087 tsubst (type, args, tf_warning_or_error, d);
19088 input_location = loc;
19089 pop_deferring_access_checks ();
19090 pop_access_scope (d);
19093 /* Instantiate the indicated variable, function, or alias template TMPL with
19094 the template arguments in TARG_PTR. */
19096 static tree
19097 instantiate_template_1 (tree tmpl, tree orig_args, tsubst_flags_t complain)
19099 tree targ_ptr = orig_args;
19100 tree fndecl;
19101 tree gen_tmpl;
19102 tree spec;
19103 bool access_ok = true;
19105 if (tmpl == error_mark_node)
19106 return error_mark_node;
19108 gcc_assert (TREE_CODE (tmpl) == TEMPLATE_DECL);
19110 /* If this function is a clone, handle it specially. */
19111 if (DECL_CLONED_FUNCTION_P (tmpl))
19113 tree spec;
19114 tree clone;
19116 /* Use DECL_ABSTRACT_ORIGIN because only FUNCTION_DECLs have
19117 DECL_CLONED_FUNCTION. */
19118 spec = instantiate_template (DECL_ABSTRACT_ORIGIN (tmpl),
19119 targ_ptr, complain);
19120 if (spec == error_mark_node)
19121 return error_mark_node;
19123 /* Look for the clone. */
19124 FOR_EACH_CLONE (clone, spec)
19125 if (DECL_NAME (clone) == DECL_NAME (tmpl))
19126 return clone;
19127 /* We should always have found the clone by now. */
19128 gcc_unreachable ();
19129 return NULL_TREE;
19132 if (targ_ptr == error_mark_node)
19133 return error_mark_node;
19135 /* Check to see if we already have this specialization. */
19136 gen_tmpl = most_general_template (tmpl);
19137 if (TMPL_ARGS_DEPTH (targ_ptr)
19138 < TMPL_PARMS_DEPTH (DECL_TEMPLATE_PARMS (gen_tmpl)))
19139 /* targ_ptr only has the innermost template args, so add the outer ones
19140 from tmpl, which could be either a partial instantiation or gen_tmpl (in
19141 the case of a non-dependent call within a template definition). */
19142 targ_ptr = (add_outermost_template_args
19143 (DECL_TI_ARGS (DECL_TEMPLATE_RESULT (tmpl)),
19144 targ_ptr));
19146 /* It would be nice to avoid hashing here and then again in tsubst_decl,
19147 but it doesn't seem to be on the hot path. */
19148 spec = retrieve_specialization (gen_tmpl, targ_ptr, 0);
19150 gcc_assert (tmpl == gen_tmpl
19151 || ((fndecl = retrieve_specialization (tmpl, orig_args, 0))
19152 == spec)
19153 || fndecl == NULL_TREE);
19155 if (spec != NULL_TREE)
19157 if (FNDECL_HAS_ACCESS_ERRORS (spec))
19159 if (complain & tf_error)
19160 recheck_decl_substitution (spec, gen_tmpl, targ_ptr);
19161 return error_mark_node;
19163 return spec;
19166 if (check_instantiated_args (gen_tmpl, INNERMOST_TEMPLATE_ARGS (targ_ptr),
19167 complain))
19168 return error_mark_node;
19170 /* We are building a FUNCTION_DECL, during which the access of its
19171 parameters and return types have to be checked. However this
19172 FUNCTION_DECL which is the desired context for access checking
19173 is not built yet. We solve this chicken-and-egg problem by
19174 deferring all checks until we have the FUNCTION_DECL. */
19175 push_deferring_access_checks (dk_deferred);
19177 /* Instantiation of the function happens in the context of the function
19178 template, not the context of the overload resolution we're doing. */
19179 push_to_top_level ();
19180 /* If there are dependent arguments, e.g. because we're doing partial
19181 ordering, make sure processing_template_decl stays set. */
19182 if (uses_template_parms (targ_ptr))
19183 ++processing_template_decl;
19184 if (DECL_CLASS_SCOPE_P (gen_tmpl))
19186 tree ctx = tsubst_aggr_type (DECL_CONTEXT (gen_tmpl), targ_ptr,
19187 complain, gen_tmpl, true);
19188 push_nested_class (ctx);
19191 tree pattern = DECL_TEMPLATE_RESULT (gen_tmpl);
19193 fndecl = NULL_TREE;
19194 if (VAR_P (pattern))
19196 /* We need to determine if we're using a partial or explicit
19197 specialization now, because the type of the variable could be
19198 different. */
19199 tree tid = lookup_template_variable (gen_tmpl, targ_ptr);
19200 tree elt = most_specialized_partial_spec (tid, complain);
19201 if (elt == error_mark_node)
19202 pattern = error_mark_node;
19203 else if (elt)
19205 tree partial_tmpl = TREE_VALUE (elt);
19206 tree partial_args = TREE_PURPOSE (elt);
19207 tree partial_pat = DECL_TEMPLATE_RESULT (partial_tmpl);
19208 fndecl = tsubst (partial_pat, partial_args, complain, gen_tmpl);
19212 /* Substitute template parameters to obtain the specialization. */
19213 if (fndecl == NULL_TREE)
19214 fndecl = tsubst (pattern, targ_ptr, complain, gen_tmpl);
19215 if (DECL_CLASS_SCOPE_P (gen_tmpl))
19216 pop_nested_class ();
19217 pop_from_top_level ();
19219 if (fndecl == error_mark_node)
19221 pop_deferring_access_checks ();
19222 return error_mark_node;
19225 /* The DECL_TI_TEMPLATE should always be the immediate parent
19226 template, not the most general template. */
19227 DECL_TI_TEMPLATE (fndecl) = tmpl;
19228 DECL_TI_ARGS (fndecl) = targ_ptr;
19230 /* Now we know the specialization, compute access previously
19231 deferred. Do no access control for inheriting constructors,
19232 as we already checked access for the inherited constructor. */
19233 if (!(flag_new_inheriting_ctors
19234 && DECL_INHERITED_CTOR (fndecl)))
19236 push_access_scope (fndecl);
19237 if (!perform_deferred_access_checks (complain))
19238 access_ok = false;
19239 pop_access_scope (fndecl);
19241 pop_deferring_access_checks ();
19243 /* If we've just instantiated the main entry point for a function,
19244 instantiate all the alternate entry points as well. We do this
19245 by cloning the instantiation of the main entry point, not by
19246 instantiating the template clones. */
19247 if (DECL_CHAIN (gen_tmpl) && DECL_CLONED_FUNCTION_P (DECL_CHAIN (gen_tmpl)))
19248 clone_function_decl (fndecl, /*update_methods=*/false);
19250 if (!access_ok)
19252 if (!(complain & tf_error))
19254 /* Remember to reinstantiate when we're out of SFINAE so the user
19255 can see the errors. */
19256 FNDECL_HAS_ACCESS_ERRORS (fndecl) = true;
19258 return error_mark_node;
19260 return fndecl;
19263 /* Wrapper for instantiate_template_1. */
19265 tree
19266 instantiate_template (tree tmpl, tree orig_args, tsubst_flags_t complain)
19268 tree ret;
19269 timevar_push (TV_TEMPLATE_INST);
19270 ret = instantiate_template_1 (tmpl, orig_args, complain);
19271 timevar_pop (TV_TEMPLATE_INST);
19272 return ret;
19275 /* Instantiate the alias template TMPL with ARGS. Also push a template
19276 instantiation level, which instantiate_template doesn't do because
19277 functions and variables have sufficient context established by the
19278 callers. */
19280 static tree
19281 instantiate_alias_template (tree tmpl, tree args, tsubst_flags_t complain)
19283 if (tmpl == error_mark_node || args == error_mark_node)
19284 return error_mark_node;
19285 if (!push_tinst_level (tmpl, args))
19286 return error_mark_node;
19288 args =
19289 coerce_innermost_template_parms (DECL_TEMPLATE_PARMS (tmpl),
19290 args, tmpl, complain,
19291 /*require_all_args=*/true,
19292 /*use_default_args=*/true);
19294 tree r = instantiate_template (tmpl, args, complain);
19295 pop_tinst_level ();
19297 return r;
19300 /* PARM is a template parameter pack for FN. Returns true iff
19301 PARM is used in a deducible way in the argument list of FN. */
19303 static bool
19304 pack_deducible_p (tree parm, tree fn)
19306 tree t = FUNCTION_FIRST_USER_PARMTYPE (fn);
19307 for (; t; t = TREE_CHAIN (t))
19309 tree type = TREE_VALUE (t);
19310 tree packs;
19311 if (!PACK_EXPANSION_P (type))
19312 continue;
19313 for (packs = PACK_EXPANSION_PARAMETER_PACKS (type);
19314 packs; packs = TREE_CHAIN (packs))
19315 if (template_args_equal (TREE_VALUE (packs), parm))
19317 /* The template parameter pack is used in a function parameter
19318 pack. If this is the end of the parameter list, the
19319 template parameter pack is deducible. */
19320 if (TREE_CHAIN (t) == void_list_node)
19321 return true;
19322 else
19323 /* Otherwise, not. Well, it could be deduced from
19324 a non-pack parameter, but doing so would end up with
19325 a deduction mismatch, so don't bother. */
19326 return false;
19329 /* The template parameter pack isn't used in any function parameter
19330 packs, but it might be used deeper, e.g. tuple<Args...>. */
19331 return true;
19334 /* The FN is a TEMPLATE_DECL for a function. ARGS is an array with
19335 NARGS elements of the arguments that are being used when calling
19336 it. TARGS is a vector into which the deduced template arguments
19337 are placed.
19339 Returns either a FUNCTION_DECL for the matching specialization of FN or
19340 NULL_TREE if no suitable specialization can be found. If EXPLAIN_P is
19341 true, diagnostics will be printed to explain why it failed.
19343 If FN is a conversion operator, or we are trying to produce a specific
19344 specialization, RETURN_TYPE is the return type desired.
19346 The EXPLICIT_TARGS are explicit template arguments provided via a
19347 template-id.
19349 The parameter STRICT is one of:
19351 DEDUCE_CALL:
19352 We are deducing arguments for a function call, as in
19353 [temp.deduct.call]. If RETURN_TYPE is non-null, we are
19354 deducing arguments for a call to the result of a conversion
19355 function template, as in [over.call.object].
19357 DEDUCE_CONV:
19358 We are deducing arguments for a conversion function, as in
19359 [temp.deduct.conv].
19361 DEDUCE_EXACT:
19362 We are deducing arguments when doing an explicit instantiation
19363 as in [temp.explicit], when determining an explicit specialization
19364 as in [temp.expl.spec], or when taking the address of a function
19365 template, as in [temp.deduct.funcaddr]. */
19367 tree
19368 fn_type_unification (tree fn,
19369 tree explicit_targs,
19370 tree targs,
19371 const tree *args,
19372 unsigned int nargs,
19373 tree return_type,
19374 unification_kind_t strict,
19375 int flags,
19376 bool explain_p,
19377 bool decltype_p)
19379 tree parms;
19380 tree fntype;
19381 tree decl = NULL_TREE;
19382 tsubst_flags_t complain = (explain_p ? tf_warning_or_error : tf_none);
19383 bool ok;
19384 static int deduction_depth;
19386 tree orig_fn = fn;
19387 if (flag_new_inheriting_ctors)
19388 fn = strip_inheriting_ctors (fn);
19390 tree tparms = DECL_INNERMOST_TEMPLATE_PARMS (fn);
19391 tree r = error_mark_node;
19393 tree full_targs = targs;
19394 if (TMPL_ARGS_DEPTH (targs)
19395 < TMPL_PARMS_DEPTH (DECL_TEMPLATE_PARMS (fn)))
19396 full_targs = (add_outermost_template_args
19397 (DECL_TI_ARGS (DECL_TEMPLATE_RESULT (fn)),
19398 targs));
19400 if (decltype_p)
19401 complain |= tf_decltype;
19403 /* In C++0x, it's possible to have a function template whose type depends
19404 on itself recursively. This is most obvious with decltype, but can also
19405 occur with enumeration scope (c++/48969). So we need to catch infinite
19406 recursion and reject the substitution at deduction time; this function
19407 will return error_mark_node for any repeated substitution.
19409 This also catches excessive recursion such as when f<N> depends on
19410 f<N-1> across all integers, and returns error_mark_node for all the
19411 substitutions back up to the initial one.
19413 This is, of course, not reentrant. */
19414 if (excessive_deduction_depth)
19415 return error_mark_node;
19416 ++deduction_depth;
19418 gcc_assert (TREE_CODE (fn) == TEMPLATE_DECL);
19420 fntype = TREE_TYPE (fn);
19421 if (explicit_targs)
19423 /* [temp.deduct]
19425 The specified template arguments must match the template
19426 parameters in kind (i.e., type, nontype, template), and there
19427 must not be more arguments than there are parameters;
19428 otherwise type deduction fails.
19430 Nontype arguments must match the types of the corresponding
19431 nontype template parameters, or must be convertible to the
19432 types of the corresponding nontype parameters as specified in
19433 _temp.arg.nontype_, otherwise type deduction fails.
19435 All references in the function type of the function template
19436 to the corresponding template parameters are replaced by the
19437 specified template argument values. If a substitution in a
19438 template parameter or in the function type of the function
19439 template results in an invalid type, type deduction fails. */
19440 int i, len = TREE_VEC_LENGTH (tparms);
19441 location_t loc = input_location;
19442 bool incomplete = false;
19444 if (explicit_targs == error_mark_node)
19445 goto fail;
19447 if (TMPL_ARGS_DEPTH (explicit_targs)
19448 < TMPL_ARGS_DEPTH (full_targs))
19449 explicit_targs = add_outermost_template_args (full_targs,
19450 explicit_targs);
19452 /* Adjust any explicit template arguments before entering the
19453 substitution context. */
19454 explicit_targs
19455 = (coerce_template_parms (tparms, explicit_targs, NULL_TREE,
19456 complain,
19457 /*require_all_args=*/false,
19458 /*use_default_args=*/false));
19459 if (explicit_targs == error_mark_node)
19460 goto fail;
19462 /* Substitute the explicit args into the function type. This is
19463 necessary so that, for instance, explicitly declared function
19464 arguments can match null pointed constants. If we were given
19465 an incomplete set of explicit args, we must not do semantic
19466 processing during substitution as we could create partial
19467 instantiations. */
19468 for (i = 0; i < len; i++)
19470 tree parm = TREE_VALUE (TREE_VEC_ELT (tparms, i));
19471 bool parameter_pack = false;
19472 tree targ = TREE_VEC_ELT (explicit_targs, i);
19474 /* Dig out the actual parm. */
19475 if (TREE_CODE (parm) == TYPE_DECL
19476 || TREE_CODE (parm) == TEMPLATE_DECL)
19478 parm = TREE_TYPE (parm);
19479 parameter_pack = TEMPLATE_TYPE_PARAMETER_PACK (parm);
19481 else if (TREE_CODE (parm) == PARM_DECL)
19483 parm = DECL_INITIAL (parm);
19484 parameter_pack = TEMPLATE_PARM_PARAMETER_PACK (parm);
19487 if (!parameter_pack && targ == NULL_TREE)
19488 /* No explicit argument for this template parameter. */
19489 incomplete = true;
19491 if (parameter_pack && pack_deducible_p (parm, fn))
19493 /* Mark the argument pack as "incomplete". We could
19494 still deduce more arguments during unification.
19495 We remove this mark in type_unification_real. */
19496 if (targ)
19498 ARGUMENT_PACK_INCOMPLETE_P(targ) = 1;
19499 ARGUMENT_PACK_EXPLICIT_ARGS (targ)
19500 = ARGUMENT_PACK_ARGS (targ);
19503 /* We have some incomplete argument packs. */
19504 incomplete = true;
19508 if (!push_tinst_level (fn, explicit_targs))
19510 excessive_deduction_depth = true;
19511 goto fail;
19513 processing_template_decl += incomplete;
19514 input_location = DECL_SOURCE_LOCATION (fn);
19515 /* Ignore any access checks; we'll see them again in
19516 instantiate_template and they might have the wrong
19517 access path at this point. */
19518 push_deferring_access_checks (dk_deferred);
19519 fntype = tsubst (TREE_TYPE (fn), explicit_targs,
19520 complain | tf_partial | tf_fndecl_type, NULL_TREE);
19521 pop_deferring_access_checks ();
19522 input_location = loc;
19523 processing_template_decl -= incomplete;
19524 pop_tinst_level ();
19526 if (fntype == error_mark_node)
19527 goto fail;
19529 /* Place the explicitly specified arguments in TARGS. */
19530 explicit_targs = INNERMOST_TEMPLATE_ARGS (explicit_targs);
19531 for (i = NUM_TMPL_ARGS (explicit_targs); i--;)
19532 TREE_VEC_ELT (targs, i) = TREE_VEC_ELT (explicit_targs, i);
19535 /* Never do unification on the 'this' parameter. */
19536 parms = skip_artificial_parms_for (fn, TYPE_ARG_TYPES (fntype));
19538 if (return_type && strict == DEDUCE_CALL)
19540 /* We're deducing for a call to the result of a template conversion
19541 function. The parms we really want are in return_type. */
19542 if (POINTER_TYPE_P (return_type))
19543 return_type = TREE_TYPE (return_type);
19544 parms = TYPE_ARG_TYPES (return_type);
19546 else if (return_type)
19548 tree *new_args;
19550 parms = tree_cons (NULL_TREE, TREE_TYPE (fntype), parms);
19551 new_args = XALLOCAVEC (tree, nargs + 1);
19552 new_args[0] = return_type;
19553 memcpy (new_args + 1, args, nargs * sizeof (tree));
19554 args = new_args;
19555 ++nargs;
19558 /* We allow incomplete unification without an error message here
19559 because the standard doesn't seem to explicitly prohibit it. Our
19560 callers must be ready to deal with unification failures in any
19561 event. */
19563 /* If we aren't explaining yet, push tinst context so we can see where
19564 any errors (e.g. from class instantiations triggered by instantiation
19565 of default template arguments) come from. If we are explaining, this
19566 context is redundant. */
19567 if (!explain_p && !push_tinst_level (fn, targs))
19569 excessive_deduction_depth = true;
19570 goto fail;
19573 /* type_unification_real will pass back any access checks from default
19574 template argument substitution. */
19575 vec<deferred_access_check, va_gc> *checks;
19576 checks = NULL;
19578 ok = !type_unification_real (DECL_INNERMOST_TEMPLATE_PARMS (fn),
19579 full_targs, parms, args, nargs, /*subr=*/0,
19580 strict, flags, &checks, explain_p);
19581 if (!explain_p)
19582 pop_tinst_level ();
19583 if (!ok)
19584 goto fail;
19586 /* Now that we have bindings for all of the template arguments,
19587 ensure that the arguments deduced for the template template
19588 parameters have compatible template parameter lists. We cannot
19589 check this property before we have deduced all template
19590 arguments, because the template parameter types of a template
19591 template parameter might depend on prior template parameters
19592 deduced after the template template parameter. The following
19593 ill-formed example illustrates this issue:
19595 template<typename T, template<T> class C> void f(C<5>, T);
19597 template<int N> struct X {};
19599 void g() {
19600 f(X<5>(), 5l); // error: template argument deduction fails
19603 The template parameter list of 'C' depends on the template type
19604 parameter 'T', but 'C' is deduced to 'X' before 'T' is deduced to
19605 'long'. Thus, we can't check that 'C' cannot bind to 'X' at the
19606 time that we deduce 'C'. */
19607 if (!template_template_parm_bindings_ok_p
19608 (DECL_INNERMOST_TEMPLATE_PARMS (fn), targs))
19610 unify_inconsistent_template_template_parameters (explain_p);
19611 goto fail;
19614 /* All is well so far. Now, check:
19616 [temp.deduct]
19618 When all template arguments have been deduced, all uses of
19619 template parameters in nondeduced contexts are replaced with
19620 the corresponding deduced argument values. If the
19621 substitution results in an invalid type, as described above,
19622 type deduction fails. */
19623 if (!push_tinst_level (fn, targs))
19625 excessive_deduction_depth = true;
19626 goto fail;
19629 /* Also collect access checks from the instantiation. */
19630 reopen_deferring_access_checks (checks);
19632 decl = instantiate_template (fn, targs, complain);
19634 checks = get_deferred_access_checks ();
19635 pop_deferring_access_checks ();
19637 pop_tinst_level ();
19639 if (decl == error_mark_node)
19640 goto fail;
19642 /* Now perform any access checks encountered during substitution. */
19643 push_access_scope (decl);
19644 ok = perform_access_checks (checks, complain);
19645 pop_access_scope (decl);
19646 if (!ok)
19647 goto fail;
19649 /* If we're looking for an exact match, check that what we got
19650 is indeed an exact match. It might not be if some template
19651 parameters are used in non-deduced contexts. But don't check
19652 for an exact match if we have dependent template arguments;
19653 in that case we're doing partial ordering, and we already know
19654 that we have two candidates that will provide the actual type. */
19655 if (strict == DEDUCE_EXACT && !any_dependent_template_arguments_p (targs))
19657 tree substed = TREE_TYPE (decl);
19658 unsigned int i;
19660 tree sarg
19661 = skip_artificial_parms_for (decl, TYPE_ARG_TYPES (substed));
19662 if (return_type)
19663 sarg = tree_cons (NULL_TREE, TREE_TYPE (substed), sarg);
19664 for (i = 0; i < nargs && sarg; ++i, sarg = TREE_CHAIN (sarg))
19665 if (!same_type_p (args[i], TREE_VALUE (sarg)))
19667 unify_type_mismatch (explain_p, args[i],
19668 TREE_VALUE (sarg));
19669 goto fail;
19673 /* After doing deduction with the inherited constructor, actually return an
19674 instantiation of the inheriting constructor. */
19675 if (orig_fn != fn)
19676 decl = instantiate_template (orig_fn, targs, complain);
19678 r = decl;
19680 fail:
19681 --deduction_depth;
19682 if (excessive_deduction_depth)
19684 if (deduction_depth == 0)
19685 /* Reset once we're all the way out. */
19686 excessive_deduction_depth = false;
19689 return r;
19692 /* Adjust types before performing type deduction, as described in
19693 [temp.deduct.call] and [temp.deduct.conv]. The rules in these two
19694 sections are symmetric. PARM is the type of a function parameter
19695 or the return type of the conversion function. ARG is the type of
19696 the argument passed to the call, or the type of the value
19697 initialized with the result of the conversion function.
19698 ARG_EXPR is the original argument expression, which may be null. */
19700 static int
19701 maybe_adjust_types_for_deduction (unification_kind_t strict,
19702 tree* parm,
19703 tree* arg,
19704 tree arg_expr)
19706 int result = 0;
19708 switch (strict)
19710 case DEDUCE_CALL:
19711 break;
19713 case DEDUCE_CONV:
19714 /* Swap PARM and ARG throughout the remainder of this
19715 function; the handling is precisely symmetric since PARM
19716 will initialize ARG rather than vice versa. */
19717 std::swap (parm, arg);
19718 break;
19720 case DEDUCE_EXACT:
19721 /* Core issue #873: Do the DR606 thing (see below) for these cases,
19722 too, but here handle it by stripping the reference from PARM
19723 rather than by adding it to ARG. */
19724 if (TREE_CODE (*parm) == REFERENCE_TYPE
19725 && TYPE_REF_IS_RVALUE (*parm)
19726 && TREE_CODE (TREE_TYPE (*parm)) == TEMPLATE_TYPE_PARM
19727 && cp_type_quals (TREE_TYPE (*parm)) == TYPE_UNQUALIFIED
19728 && TREE_CODE (*arg) == REFERENCE_TYPE
19729 && !TYPE_REF_IS_RVALUE (*arg))
19730 *parm = TREE_TYPE (*parm);
19731 /* Nothing else to do in this case. */
19732 return 0;
19734 default:
19735 gcc_unreachable ();
19738 if (TREE_CODE (*parm) != REFERENCE_TYPE)
19740 /* [temp.deduct.call]
19742 If P is not a reference type:
19744 --If A is an array type, the pointer type produced by the
19745 array-to-pointer standard conversion (_conv.array_) is
19746 used in place of A for type deduction; otherwise,
19748 --If A is a function type, the pointer type produced by
19749 the function-to-pointer standard conversion
19750 (_conv.func_) is used in place of A for type deduction;
19751 otherwise,
19753 --If A is a cv-qualified type, the top level
19754 cv-qualifiers of A's type are ignored for type
19755 deduction. */
19756 if (TREE_CODE (*arg) == ARRAY_TYPE)
19757 *arg = build_pointer_type (TREE_TYPE (*arg));
19758 else if (TREE_CODE (*arg) == FUNCTION_TYPE)
19759 *arg = build_pointer_type (*arg);
19760 else
19761 *arg = TYPE_MAIN_VARIANT (*arg);
19764 /* [14.8.2.1/3 temp.deduct.call], "A forwarding reference is an rvalue
19765 reference to a cv-unqualified template parameter that does not represent a
19766 template parameter of a class template (during class template argument
19767 deduction (13.3.1.8)). If P is a forwarding reference and the argument is
19768 an lvalue, the type "lvalue reference to A" is used in place of A for type
19769 deduction. */
19770 if (TREE_CODE (*parm) == REFERENCE_TYPE
19771 && TYPE_REF_IS_RVALUE (*parm)
19772 && TREE_CODE (TREE_TYPE (*parm)) == TEMPLATE_TYPE_PARM
19773 && !TEMPLATE_TYPE_PARM_FOR_CLASS (TREE_TYPE (*parm))
19774 && cp_type_quals (TREE_TYPE (*parm)) == TYPE_UNQUALIFIED
19775 && (arg_expr ? lvalue_p (arg_expr)
19776 /* try_one_overload doesn't provide an arg_expr, but
19777 functions are always lvalues. */
19778 : TREE_CODE (*arg) == FUNCTION_TYPE))
19779 *arg = build_reference_type (*arg);
19781 /* [temp.deduct.call]
19783 If P is a cv-qualified type, the top level cv-qualifiers
19784 of P's type are ignored for type deduction. If P is a
19785 reference type, the type referred to by P is used for
19786 type deduction. */
19787 *parm = TYPE_MAIN_VARIANT (*parm);
19788 if (TREE_CODE (*parm) == REFERENCE_TYPE)
19790 *parm = TREE_TYPE (*parm);
19791 result |= UNIFY_ALLOW_OUTER_MORE_CV_QUAL;
19794 /* DR 322. For conversion deduction, remove a reference type on parm
19795 too (which has been swapped into ARG). */
19796 if (strict == DEDUCE_CONV && TREE_CODE (*arg) == REFERENCE_TYPE)
19797 *arg = TREE_TYPE (*arg);
19799 return result;
19802 /* Subroutine of unify_one_argument. PARM is a function parameter of a
19803 template which does contain any deducible template parameters; check if
19804 ARG is a suitable match for it. STRICT, FLAGS and EXPLAIN_P are as in
19805 unify_one_argument. */
19807 static int
19808 check_non_deducible_conversion (tree parm, tree arg, int strict,
19809 int flags, bool explain_p)
19811 tree type;
19813 if (!TYPE_P (arg))
19814 type = TREE_TYPE (arg);
19815 else
19816 type = arg;
19818 if (same_type_p (parm, type))
19819 return unify_success (explain_p);
19821 if (strict == DEDUCE_CONV)
19823 if (can_convert_arg (type, parm, NULL_TREE, flags,
19824 explain_p ? tf_warning_or_error : tf_none))
19825 return unify_success (explain_p);
19827 else if (strict != DEDUCE_EXACT)
19829 if (can_convert_arg (parm, type,
19830 TYPE_P (arg) ? NULL_TREE : arg,
19831 flags, explain_p ? tf_warning_or_error : tf_none))
19832 return unify_success (explain_p);
19835 if (strict == DEDUCE_EXACT)
19836 return unify_type_mismatch (explain_p, parm, arg);
19837 else
19838 return unify_arg_conversion (explain_p, parm, type, arg);
19841 static bool uses_deducible_template_parms (tree type);
19843 /* Returns true iff the expression EXPR is one from which a template
19844 argument can be deduced. In other words, if it's an undecorated
19845 use of a template non-type parameter. */
19847 static bool
19848 deducible_expression (tree expr)
19850 /* Strip implicit conversions. */
19851 while (CONVERT_EXPR_P (expr))
19852 expr = TREE_OPERAND (expr, 0);
19853 return (TREE_CODE (expr) == TEMPLATE_PARM_INDEX);
19856 /* Returns true iff the array domain DOMAIN uses a template parameter in a
19857 deducible way; that is, if it has a max value of <PARM> - 1. */
19859 static bool
19860 deducible_array_bound (tree domain)
19862 if (domain == NULL_TREE)
19863 return false;
19865 tree max = TYPE_MAX_VALUE (domain);
19866 if (TREE_CODE (max) != MINUS_EXPR)
19867 return false;
19869 return deducible_expression (TREE_OPERAND (max, 0));
19872 /* Returns true iff the template arguments ARGS use a template parameter
19873 in a deducible way. */
19875 static bool
19876 deducible_template_args (tree args)
19878 for (int i = 0; i < TREE_VEC_LENGTH (args); ++i)
19880 bool deducible;
19881 tree elt = TREE_VEC_ELT (args, i);
19882 if (ARGUMENT_PACK_P (elt))
19883 deducible = deducible_template_args (ARGUMENT_PACK_ARGS (elt));
19884 else
19886 if (PACK_EXPANSION_P (elt))
19887 elt = PACK_EXPANSION_PATTERN (elt);
19888 if (TREE_CODE (elt) == TEMPLATE_TEMPLATE_PARM)
19889 deducible = true;
19890 else if (TYPE_P (elt))
19891 deducible = uses_deducible_template_parms (elt);
19892 else
19893 deducible = deducible_expression (elt);
19895 if (deducible)
19896 return true;
19898 return false;
19901 /* Returns true iff TYPE contains any deducible references to template
19902 parameters, as per 14.8.2.5. */
19904 static bool
19905 uses_deducible_template_parms (tree type)
19907 if (PACK_EXPANSION_P (type))
19908 type = PACK_EXPANSION_PATTERN (type);
19910 /* T
19911 cv-list T
19912 TT<T>
19913 TT<i>
19914 TT<> */
19915 if (TREE_CODE (type) == TEMPLATE_TYPE_PARM
19916 || TREE_CODE (type) == BOUND_TEMPLATE_TEMPLATE_PARM)
19917 return true;
19919 /* T*
19921 T&& */
19922 if (POINTER_TYPE_P (type))
19923 return uses_deducible_template_parms (TREE_TYPE (type));
19925 /* T[integer-constant ]
19926 type [i] */
19927 if (TREE_CODE (type) == ARRAY_TYPE)
19928 return (uses_deducible_template_parms (TREE_TYPE (type))
19929 || deducible_array_bound (TYPE_DOMAIN (type)));
19931 /* T type ::*
19932 type T::*
19933 T T::*
19934 T (type ::*)()
19935 type (T::*)()
19936 type (type ::*)(T)
19937 type (T::*)(T)
19938 T (type ::*)(T)
19939 T (T::*)()
19940 T (T::*)(T) */
19941 if (TYPE_PTRMEM_P (type))
19942 return (uses_deducible_template_parms (TYPE_PTRMEM_CLASS_TYPE (type))
19943 || (uses_deducible_template_parms
19944 (TYPE_PTRMEM_POINTED_TO_TYPE (type))));
19946 /* template-name <T> (where template-name refers to a class template)
19947 template-name <i> (where template-name refers to a class template) */
19948 if (CLASS_TYPE_P (type)
19949 && CLASSTYPE_TEMPLATE_INFO (type)
19950 && PRIMARY_TEMPLATE_P (CLASSTYPE_TI_TEMPLATE (type)))
19951 return deducible_template_args (INNERMOST_TEMPLATE_ARGS
19952 (CLASSTYPE_TI_ARGS (type)));
19954 /* type (T)
19956 T(T) */
19957 if (TREE_CODE (type) == FUNCTION_TYPE
19958 || TREE_CODE (type) == METHOD_TYPE)
19960 if (uses_deducible_template_parms (TREE_TYPE (type)))
19961 return true;
19962 tree parm = TYPE_ARG_TYPES (type);
19963 if (TREE_CODE (type) == METHOD_TYPE)
19964 parm = TREE_CHAIN (parm);
19965 for (; parm; parm = TREE_CHAIN (parm))
19966 if (uses_deducible_template_parms (TREE_VALUE (parm)))
19967 return true;
19970 return false;
19973 /* Subroutine of type_unification_real and unify_pack_expansion to
19974 handle unification of a single P/A pair. Parameters are as
19975 for those functions. */
19977 static int
19978 unify_one_argument (tree tparms, tree targs, tree parm, tree arg,
19979 int subr, unification_kind_t strict,
19980 bool explain_p)
19982 tree arg_expr = NULL_TREE;
19983 int arg_strict;
19985 if (arg == error_mark_node || parm == error_mark_node)
19986 return unify_invalid (explain_p);
19987 if (arg == unknown_type_node)
19988 /* We can't deduce anything from this, but we might get all the
19989 template args from other function args. */
19990 return unify_success (explain_p);
19992 /* Implicit conversions (Clause 4) will be performed on a function
19993 argument to convert it to the type of the corresponding function
19994 parameter if the parameter type contains no template-parameters that
19995 participate in template argument deduction. */
19996 if (strict != DEDUCE_EXACT
19997 && TYPE_P (parm) && !uses_deducible_template_parms (parm))
19998 /* For function parameters with no deducible template parameters,
19999 just return. We'll check non-dependent conversions later. */
20000 return unify_success (explain_p);
20002 switch (strict)
20004 case DEDUCE_CALL:
20005 arg_strict = (UNIFY_ALLOW_OUTER_LEVEL
20006 | UNIFY_ALLOW_MORE_CV_QUAL
20007 | UNIFY_ALLOW_DERIVED);
20008 break;
20010 case DEDUCE_CONV:
20011 arg_strict = UNIFY_ALLOW_LESS_CV_QUAL;
20012 break;
20014 case DEDUCE_EXACT:
20015 arg_strict = UNIFY_ALLOW_NONE;
20016 break;
20018 default:
20019 gcc_unreachable ();
20022 /* We only do these transformations if this is the top-level
20023 parameter_type_list in a call or declaration matching; in other
20024 situations (nested function declarators, template argument lists) we
20025 won't be comparing a type to an expression, and we don't do any type
20026 adjustments. */
20027 if (!subr)
20029 if (!TYPE_P (arg))
20031 gcc_assert (TREE_TYPE (arg) != NULL_TREE);
20032 if (type_unknown_p (arg))
20034 /* [temp.deduct.type] A template-argument can be
20035 deduced from a pointer to function or pointer
20036 to member function argument if the set of
20037 overloaded functions does not contain function
20038 templates and at most one of a set of
20039 overloaded functions provides a unique
20040 match. */
20041 resolve_overloaded_unification (tparms, targs, parm,
20042 arg, strict,
20043 arg_strict, explain_p);
20044 /* If a unique match was not found, this is a
20045 non-deduced context, so we still succeed. */
20046 return unify_success (explain_p);
20049 arg_expr = arg;
20050 arg = unlowered_expr_type (arg);
20051 if (arg == error_mark_node)
20052 return unify_invalid (explain_p);
20055 arg_strict |=
20056 maybe_adjust_types_for_deduction (strict, &parm, &arg, arg_expr);
20058 else
20059 if ((TYPE_P (parm) || TREE_CODE (parm) == TEMPLATE_DECL)
20060 != (TYPE_P (arg) || TREE_CODE (arg) == TEMPLATE_DECL))
20061 return unify_template_argument_mismatch (explain_p, parm, arg);
20063 /* For deduction from an init-list we need the actual list. */
20064 if (arg_expr && BRACE_ENCLOSED_INITIALIZER_P (arg_expr))
20065 arg = arg_expr;
20066 return unify (tparms, targs, parm, arg, arg_strict, explain_p);
20069 /* for_each_template_parm callback that always returns 0. */
20071 static int
20072 zero_r (tree, void *)
20074 return 0;
20077 /* for_each_template_parm any_fn callback to handle deduction of a template
20078 type argument from the type of an array bound. */
20080 static int
20081 array_deduction_r (tree t, void *data)
20083 tree_pair_p d = (tree_pair_p)data;
20084 tree &tparms = d->purpose;
20085 tree &targs = d->value;
20087 if (TREE_CODE (t) == ARRAY_TYPE)
20088 if (tree dom = TYPE_DOMAIN (t))
20089 if (tree max = TYPE_MAX_VALUE (dom))
20091 if (TREE_CODE (max) == MINUS_EXPR)
20092 max = TREE_OPERAND (max, 0);
20093 if (TREE_CODE (max) == TEMPLATE_PARM_INDEX)
20094 unify (tparms, targs, TREE_TYPE (max), size_type_node,
20095 UNIFY_ALLOW_NONE, /*explain*/false);
20098 /* Keep walking. */
20099 return 0;
20102 /* Try to deduce any not-yet-deduced template type arguments from the type of
20103 an array bound. This is handled separately from unify because 14.8.2.5 says
20104 "The type of a type parameter is only deduced from an array bound if it is
20105 not otherwise deduced." */
20107 static void
20108 try_array_deduction (tree tparms, tree targs, tree parm)
20110 tree_pair_s data = { tparms, targs };
20111 hash_set<tree> visited;
20112 for_each_template_parm (parm, zero_r, &data, &visited,
20113 /*nondeduced*/false, array_deduction_r);
20116 /* Most parms like fn_type_unification.
20118 If SUBR is 1, we're being called recursively (to unify the
20119 arguments of a function or method parameter of a function
20120 template).
20122 CHECKS is a pointer to a vector of access checks encountered while
20123 substituting default template arguments. */
20125 static int
20126 type_unification_real (tree tparms,
20127 tree full_targs,
20128 tree xparms,
20129 const tree *xargs,
20130 unsigned int xnargs,
20131 int subr,
20132 unification_kind_t strict,
20133 int flags,
20134 vec<deferred_access_check, va_gc> **checks,
20135 bool explain_p)
20137 tree parm, arg;
20138 int i;
20139 int ntparms = TREE_VEC_LENGTH (tparms);
20140 int saw_undeduced = 0;
20141 tree parms;
20142 const tree *args;
20143 unsigned int nargs;
20144 unsigned int ia;
20146 gcc_assert (TREE_CODE (tparms) == TREE_VEC);
20147 gcc_assert (xparms == NULL_TREE || TREE_CODE (xparms) == TREE_LIST);
20148 gcc_assert (ntparms > 0);
20150 tree targs = INNERMOST_TEMPLATE_ARGS (full_targs);
20152 /* Reset the number of non-defaulted template arguments contained
20153 in TARGS. */
20154 NON_DEFAULT_TEMPLATE_ARGS_COUNT (targs) = NULL_TREE;
20156 again:
20157 parms = xparms;
20158 args = xargs;
20159 nargs = xnargs;
20161 ia = 0;
20162 while (parms && parms != void_list_node
20163 && ia < nargs)
20165 parm = TREE_VALUE (parms);
20167 if (TREE_CODE (parm) == TYPE_PACK_EXPANSION
20168 && (!TREE_CHAIN (parms) || TREE_CHAIN (parms) == void_list_node))
20169 /* For a function parameter pack that occurs at the end of the
20170 parameter-declaration-list, the type A of each remaining
20171 argument of the call is compared with the type P of the
20172 declarator-id of the function parameter pack. */
20173 break;
20175 parms = TREE_CHAIN (parms);
20177 if (TREE_CODE (parm) == TYPE_PACK_EXPANSION)
20178 /* For a function parameter pack that does not occur at the
20179 end of the parameter-declaration-list, the type of the
20180 parameter pack is a non-deduced context. */
20181 continue;
20183 arg = args[ia];
20184 ++ia;
20186 if (unify_one_argument (tparms, full_targs, parm, arg, subr, strict,
20187 explain_p))
20188 return 1;
20191 if (parms
20192 && parms != void_list_node
20193 && TREE_CODE (TREE_VALUE (parms)) == TYPE_PACK_EXPANSION)
20195 /* Unify the remaining arguments with the pack expansion type. */
20196 tree argvec;
20197 tree parmvec = make_tree_vec (1);
20199 /* Allocate a TREE_VEC and copy in all of the arguments */
20200 argvec = make_tree_vec (nargs - ia);
20201 for (i = 0; ia < nargs; ++ia, ++i)
20202 TREE_VEC_ELT (argvec, i) = args[ia];
20204 /* Copy the parameter into parmvec. */
20205 TREE_VEC_ELT (parmvec, 0) = TREE_VALUE (parms);
20206 if (unify_pack_expansion (tparms, full_targs, parmvec, argvec, strict,
20207 /*subr=*/subr, explain_p))
20208 return 1;
20210 /* Advance to the end of the list of parameters. */
20211 parms = TREE_CHAIN (parms);
20214 /* Fail if we've reached the end of the parm list, and more args
20215 are present, and the parm list isn't variadic. */
20216 if (ia < nargs && parms == void_list_node)
20217 return unify_too_many_arguments (explain_p, nargs, ia);
20218 /* Fail if parms are left and they don't have default values and
20219 they aren't all deduced as empty packs (c++/57397). This is
20220 consistent with sufficient_parms_p. */
20221 if (parms && parms != void_list_node
20222 && TREE_PURPOSE (parms) == NULL_TREE)
20224 unsigned int count = nargs;
20225 tree p = parms;
20226 bool type_pack_p;
20229 type_pack_p = TREE_CODE (TREE_VALUE (p)) == TYPE_PACK_EXPANSION;
20230 if (!type_pack_p)
20231 count++;
20232 p = TREE_CHAIN (p);
20234 while (p && p != void_list_node);
20235 if (count != nargs)
20236 return unify_too_few_arguments (explain_p, ia, count,
20237 type_pack_p);
20240 if (!subr)
20242 tsubst_flags_t complain = (explain_p
20243 ? tf_warning_or_error
20244 : tf_none);
20245 bool tried_array_deduction = (cxx_dialect < cxx17);
20247 for (i = 0; i < ntparms; i++)
20249 tree targ = TREE_VEC_ELT (targs, i);
20250 tree tparm = TREE_VEC_ELT (tparms, i);
20252 /* Clear the "incomplete" flags on all argument packs now so that
20253 substituting them into later default arguments works. */
20254 if (targ && ARGUMENT_PACK_P (targ))
20256 ARGUMENT_PACK_INCOMPLETE_P (targ) = 0;
20257 ARGUMENT_PACK_EXPLICIT_ARGS (targ) = NULL_TREE;
20260 if (targ || tparm == error_mark_node)
20261 continue;
20262 tparm = TREE_VALUE (tparm);
20264 if (TREE_CODE (tparm) == TYPE_DECL
20265 && !tried_array_deduction)
20267 try_array_deduction (tparms, targs, xparms);
20268 tried_array_deduction = true;
20269 if (TREE_VEC_ELT (targs, i))
20270 continue;
20273 /* If this is an undeduced nontype parameter that depends on
20274 a type parameter, try another pass; its type may have been
20275 deduced from a later argument than the one from which
20276 this parameter can be deduced. */
20277 if (TREE_CODE (tparm) == PARM_DECL
20278 && uses_template_parms (TREE_TYPE (tparm))
20279 && saw_undeduced < 2)
20281 saw_undeduced = 1;
20282 continue;
20285 /* Core issue #226 (C++0x) [temp.deduct]:
20287 If a template argument has not been deduced, its
20288 default template argument, if any, is used.
20290 When we are in C++98 mode, TREE_PURPOSE will either
20291 be NULL_TREE or ERROR_MARK_NODE, so we do not need
20292 to explicitly check cxx_dialect here. */
20293 if (TREE_PURPOSE (TREE_VEC_ELT (tparms, i)))
20294 /* OK, there is a default argument. Wait until after the
20295 conversion check to do substitution. */
20296 continue;
20298 /* If the type parameter is a parameter pack, then it will
20299 be deduced to an empty parameter pack. */
20300 if (template_parameter_pack_p (tparm))
20302 tree arg;
20304 if (TREE_CODE (tparm) == TEMPLATE_PARM_INDEX)
20306 arg = make_node (NONTYPE_ARGUMENT_PACK);
20307 TREE_CONSTANT (arg) = 1;
20309 else
20310 arg = cxx_make_type (TYPE_ARGUMENT_PACK);
20312 SET_ARGUMENT_PACK_ARGS (arg, make_tree_vec (0));
20314 TREE_VEC_ELT (targs, i) = arg;
20315 continue;
20318 return unify_parameter_deduction_failure (explain_p, tparm);
20321 /* DR 1391: All parameters have args, now check non-dependent parms for
20322 convertibility. */
20323 if (saw_undeduced < 2)
20324 for (ia = 0, parms = xparms, args = xargs, nargs = xnargs;
20325 parms && parms != void_list_node && ia < nargs; )
20327 parm = TREE_VALUE (parms);
20329 if (TREE_CODE (parm) == TYPE_PACK_EXPANSION
20330 && (!TREE_CHAIN (parms)
20331 || TREE_CHAIN (parms) == void_list_node))
20332 /* For a function parameter pack that occurs at the end of the
20333 parameter-declaration-list, the type A of each remaining
20334 argument of the call is compared with the type P of the
20335 declarator-id of the function parameter pack. */
20336 break;
20338 parms = TREE_CHAIN (parms);
20340 if (TREE_CODE (parm) == TYPE_PACK_EXPANSION)
20341 /* For a function parameter pack that does not occur at the
20342 end of the parameter-declaration-list, the type of the
20343 parameter pack is a non-deduced context. */
20344 continue;
20346 arg = args[ia];
20347 ++ia;
20349 if (uses_template_parms (parm))
20350 continue;
20351 if (check_non_deducible_conversion (parm, arg, strict, flags,
20352 explain_p))
20353 return 1;
20356 /* Now substitute into the default template arguments. */
20357 for (i = 0; i < ntparms; i++)
20359 tree targ = TREE_VEC_ELT (targs, i);
20360 tree tparm = TREE_VEC_ELT (tparms, i);
20362 if (targ || tparm == error_mark_node)
20363 continue;
20364 tree parm = TREE_VALUE (tparm);
20365 tree arg = TREE_PURPOSE (tparm);
20366 reopen_deferring_access_checks (*checks);
20367 location_t save_loc = input_location;
20368 if (DECL_P (parm))
20369 input_location = DECL_SOURCE_LOCATION (parm);
20370 if (saw_undeduced == 1)
20371 ++processing_template_decl;
20373 if (saw_undeduced == 1
20374 && TREE_CODE (parm) == PARM_DECL
20375 && uses_template_parms (TREE_TYPE (parm)))
20377 /* The type of this non-type parameter depends on undeduced
20378 parameters. Don't try to use its default argument yet,
20379 but do check whether the arguments we already have cause
20380 substitution failure, so that that happens before we try
20381 later default arguments (78489). */
20382 tree type = tsubst (TREE_TYPE (parm), full_targs, complain,
20383 NULL_TREE);
20384 if (type == error_mark_node)
20385 arg = error_mark_node;
20386 else
20387 arg = NULL_TREE;
20389 else
20391 arg = tsubst_template_arg (arg, full_targs, complain, NULL_TREE);
20393 if (!uses_template_parms (arg))
20394 arg = convert_template_argument (parm, arg, full_targs,
20395 complain, i, NULL_TREE);
20396 else if (saw_undeduced == 1)
20397 arg = NULL_TREE;
20398 else
20399 arg = error_mark_node;
20402 if (saw_undeduced == 1)
20403 --processing_template_decl;
20404 input_location = save_loc;
20405 *checks = get_deferred_access_checks ();
20406 pop_deferring_access_checks ();
20408 if (arg == error_mark_node)
20409 return 1;
20410 else if (arg)
20412 TREE_VEC_ELT (targs, i) = arg;
20413 /* The position of the first default template argument,
20414 is also the number of non-defaulted arguments in TARGS.
20415 Record that. */
20416 if (!NON_DEFAULT_TEMPLATE_ARGS_COUNT (targs))
20417 SET_NON_DEFAULT_TEMPLATE_ARGS_COUNT (targs, i);
20421 if (saw_undeduced++ == 1)
20422 goto again;
20425 if (CHECKING_P && !NON_DEFAULT_TEMPLATE_ARGS_COUNT (targs))
20426 SET_NON_DEFAULT_TEMPLATE_ARGS_COUNT (targs, TREE_VEC_LENGTH (targs));
20428 return unify_success (explain_p);
20431 /* Subroutine of type_unification_real. Args are like the variables
20432 at the call site. ARG is an overloaded function (or template-id);
20433 we try deducing template args from each of the overloads, and if
20434 only one succeeds, we go with that. Modifies TARGS and returns
20435 true on success. */
20437 static bool
20438 resolve_overloaded_unification (tree tparms,
20439 tree targs,
20440 tree parm,
20441 tree arg,
20442 unification_kind_t strict,
20443 int sub_strict,
20444 bool explain_p)
20446 tree tempargs = copy_node (targs);
20447 int good = 0;
20448 tree goodfn = NULL_TREE;
20449 bool addr_p;
20451 if (TREE_CODE (arg) == ADDR_EXPR)
20453 arg = TREE_OPERAND (arg, 0);
20454 addr_p = true;
20456 else
20457 addr_p = false;
20459 if (TREE_CODE (arg) == COMPONENT_REF)
20460 /* Handle `&x' where `x' is some static or non-static member
20461 function name. */
20462 arg = TREE_OPERAND (arg, 1);
20464 if (TREE_CODE (arg) == OFFSET_REF)
20465 arg = TREE_OPERAND (arg, 1);
20467 /* Strip baselink information. */
20468 if (BASELINK_P (arg))
20469 arg = BASELINK_FUNCTIONS (arg);
20471 if (TREE_CODE (arg) == TEMPLATE_ID_EXPR)
20473 /* If we got some explicit template args, we need to plug them into
20474 the affected templates before we try to unify, in case the
20475 explicit args will completely resolve the templates in question. */
20477 int ok = 0;
20478 tree expl_subargs = TREE_OPERAND (arg, 1);
20479 arg = TREE_OPERAND (arg, 0);
20481 for (lkp_iterator iter (arg); iter; ++iter)
20483 tree fn = *iter;
20484 tree subargs, elem;
20486 if (TREE_CODE (fn) != TEMPLATE_DECL)
20487 continue;
20489 subargs = coerce_template_parms (DECL_INNERMOST_TEMPLATE_PARMS (fn),
20490 expl_subargs, NULL_TREE, tf_none,
20491 /*require_all_args=*/true,
20492 /*use_default_args=*/true);
20493 if (subargs != error_mark_node
20494 && !any_dependent_template_arguments_p (subargs))
20496 elem = TREE_TYPE (instantiate_template (fn, subargs, tf_none));
20497 if (try_one_overload (tparms, targs, tempargs, parm,
20498 elem, strict, sub_strict, addr_p, explain_p)
20499 && (!goodfn || !same_type_p (goodfn, elem)))
20501 goodfn = elem;
20502 ++good;
20505 else if (subargs)
20506 ++ok;
20508 /* If no templates (or more than one) are fully resolved by the
20509 explicit arguments, this template-id is a non-deduced context; it
20510 could still be OK if we deduce all template arguments for the
20511 enclosing call through other arguments. */
20512 if (good != 1)
20513 good = ok;
20515 else if (TREE_CODE (arg) != OVERLOAD
20516 && TREE_CODE (arg) != FUNCTION_DECL)
20517 /* If ARG is, for example, "(0, &f)" then its type will be unknown
20518 -- but the deduction does not succeed because the expression is
20519 not just the function on its own. */
20520 return false;
20521 else
20522 for (lkp_iterator iter (arg); iter; ++iter)
20524 tree fn = *iter;
20525 if (try_one_overload (tparms, targs, tempargs, parm, TREE_TYPE (fn),
20526 strict, sub_strict, addr_p, explain_p)
20527 && (!goodfn || !decls_match (goodfn, fn)))
20529 goodfn = fn;
20530 ++good;
20534 /* [temp.deduct.type] A template-argument can be deduced from a pointer
20535 to function or pointer to member function argument if the set of
20536 overloaded functions does not contain function templates and at most
20537 one of a set of overloaded functions provides a unique match.
20539 So if we found multiple possibilities, we return success but don't
20540 deduce anything. */
20542 if (good == 1)
20544 int i = TREE_VEC_LENGTH (targs);
20545 for (; i--; )
20546 if (TREE_VEC_ELT (tempargs, i))
20548 tree old = TREE_VEC_ELT (targs, i);
20549 tree new_ = TREE_VEC_ELT (tempargs, i);
20550 if (new_ && old && ARGUMENT_PACK_P (old)
20551 && ARGUMENT_PACK_EXPLICIT_ARGS (old))
20552 /* Don't forget explicit template arguments in a pack. */
20553 ARGUMENT_PACK_EXPLICIT_ARGS (new_)
20554 = ARGUMENT_PACK_EXPLICIT_ARGS (old);
20555 TREE_VEC_ELT (targs, i) = new_;
20558 if (good)
20559 return true;
20561 return false;
20564 /* Core DR 115: In contexts where deduction is done and fails, or in
20565 contexts where deduction is not done, if a template argument list is
20566 specified and it, along with any default template arguments, identifies
20567 a single function template specialization, then the template-id is an
20568 lvalue for the function template specialization. */
20570 tree
20571 resolve_nondeduced_context (tree orig_expr, tsubst_flags_t complain)
20573 tree expr, offset, baselink;
20574 bool addr;
20576 if (!type_unknown_p (orig_expr))
20577 return orig_expr;
20579 expr = orig_expr;
20580 addr = false;
20581 offset = NULL_TREE;
20582 baselink = NULL_TREE;
20584 if (TREE_CODE (expr) == ADDR_EXPR)
20586 expr = TREE_OPERAND (expr, 0);
20587 addr = true;
20589 if (TREE_CODE (expr) == OFFSET_REF)
20591 offset = expr;
20592 expr = TREE_OPERAND (expr, 1);
20594 if (BASELINK_P (expr))
20596 baselink = expr;
20597 expr = BASELINK_FUNCTIONS (expr);
20600 if (TREE_CODE (expr) == TEMPLATE_ID_EXPR)
20602 int good = 0;
20603 tree goodfn = NULL_TREE;
20605 /* If we got some explicit template args, we need to plug them into
20606 the affected templates before we try to unify, in case the
20607 explicit args will completely resolve the templates in question. */
20609 tree expl_subargs = TREE_OPERAND (expr, 1);
20610 tree arg = TREE_OPERAND (expr, 0);
20611 tree badfn = NULL_TREE;
20612 tree badargs = NULL_TREE;
20614 for (lkp_iterator iter (arg); iter; ++iter)
20616 tree fn = *iter;
20617 tree subargs, elem;
20619 if (TREE_CODE (fn) != TEMPLATE_DECL)
20620 continue;
20622 subargs = coerce_template_parms (DECL_INNERMOST_TEMPLATE_PARMS (fn),
20623 expl_subargs, NULL_TREE, tf_none,
20624 /*require_all_args=*/true,
20625 /*use_default_args=*/true);
20626 if (subargs != error_mark_node
20627 && !any_dependent_template_arguments_p (subargs))
20629 elem = instantiate_template (fn, subargs, tf_none);
20630 if (elem == error_mark_node)
20632 badfn = fn;
20633 badargs = subargs;
20635 else if (elem && (!goodfn || !decls_match (goodfn, elem)))
20637 goodfn = elem;
20638 ++good;
20642 if (good == 1)
20644 mark_used (goodfn);
20645 expr = goodfn;
20646 if (baselink)
20647 expr = build_baselink (BASELINK_BINFO (baselink),
20648 BASELINK_ACCESS_BINFO (baselink),
20649 expr, BASELINK_OPTYPE (baselink));
20650 if (offset)
20652 tree base
20653 = TYPE_MAIN_VARIANT (TREE_TYPE (TREE_OPERAND (offset, 0)));
20654 expr = build_offset_ref (base, expr, addr, complain);
20656 if (addr)
20657 expr = cp_build_addr_expr (expr, complain);
20658 return expr;
20660 else if (good == 0 && badargs && (complain & tf_error))
20661 /* There were no good options and at least one bad one, so let the
20662 user know what the problem is. */
20663 instantiate_template (badfn, badargs, complain);
20665 return orig_expr;
20668 /* Subroutine of resolve_overloaded_unification; does deduction for a single
20669 overload. Fills TARGS with any deduced arguments, or error_mark_node if
20670 different overloads deduce different arguments for a given parm.
20671 ADDR_P is true if the expression for which deduction is being
20672 performed was of the form "& fn" rather than simply "fn".
20674 Returns 1 on success. */
20676 static int
20677 try_one_overload (tree tparms,
20678 tree orig_targs,
20679 tree targs,
20680 tree parm,
20681 tree arg,
20682 unification_kind_t strict,
20683 int sub_strict,
20684 bool addr_p,
20685 bool explain_p)
20687 int nargs;
20688 tree tempargs;
20689 int i;
20691 if (arg == error_mark_node)
20692 return 0;
20694 /* [temp.deduct.type] A template-argument can be deduced from a pointer
20695 to function or pointer to member function argument if the set of
20696 overloaded functions does not contain function templates and at most
20697 one of a set of overloaded functions provides a unique match.
20699 So if this is a template, just return success. */
20701 if (uses_template_parms (arg))
20702 return 1;
20704 if (TREE_CODE (arg) == METHOD_TYPE)
20705 arg = build_ptrmemfunc_type (build_pointer_type (arg));
20706 else if (addr_p)
20707 arg = build_pointer_type (arg);
20709 sub_strict |= maybe_adjust_types_for_deduction (strict, &parm, &arg, NULL);
20711 /* We don't copy orig_targs for this because if we have already deduced
20712 some template args from previous args, unify would complain when we
20713 try to deduce a template parameter for the same argument, even though
20714 there isn't really a conflict. */
20715 nargs = TREE_VEC_LENGTH (targs);
20716 tempargs = make_tree_vec (nargs);
20718 if (unify (tparms, tempargs, parm, arg, sub_strict, explain_p))
20719 return 0;
20721 /* First make sure we didn't deduce anything that conflicts with
20722 explicitly specified args. */
20723 for (i = nargs; i--; )
20725 tree elt = TREE_VEC_ELT (tempargs, i);
20726 tree oldelt = TREE_VEC_ELT (orig_targs, i);
20728 if (!elt)
20729 /*NOP*/;
20730 else if (uses_template_parms (elt))
20731 /* Since we're unifying against ourselves, we will fill in
20732 template args used in the function parm list with our own
20733 template parms. Discard them. */
20734 TREE_VEC_ELT (tempargs, i) = NULL_TREE;
20735 else if (oldelt && ARGUMENT_PACK_P (oldelt))
20737 /* Check that the argument at each index of the deduced argument pack
20738 is equivalent to the corresponding explicitly specified argument.
20739 We may have deduced more arguments than were explicitly specified,
20740 and that's OK. */
20742 /* We used to assert ARGUMENT_PACK_INCOMPLETE_P (oldelt) here, but
20743 that's wrong if we deduce the same argument pack from multiple
20744 function arguments: it's only incomplete the first time. */
20746 tree explicit_pack = ARGUMENT_PACK_ARGS (oldelt);
20747 tree deduced_pack = ARGUMENT_PACK_ARGS (elt);
20749 if (TREE_VEC_LENGTH (deduced_pack)
20750 < TREE_VEC_LENGTH (explicit_pack))
20751 return 0;
20753 for (int j = 0; j < TREE_VEC_LENGTH (explicit_pack); j++)
20754 if (!template_args_equal (TREE_VEC_ELT (explicit_pack, j),
20755 TREE_VEC_ELT (deduced_pack, j)))
20756 return 0;
20758 else if (oldelt && !template_args_equal (oldelt, elt))
20759 return 0;
20762 for (i = nargs; i--; )
20764 tree elt = TREE_VEC_ELT (tempargs, i);
20766 if (elt)
20767 TREE_VEC_ELT (targs, i) = elt;
20770 return 1;
20773 /* PARM is a template class (perhaps with unbound template
20774 parameters). ARG is a fully instantiated type. If ARG can be
20775 bound to PARM, return ARG, otherwise return NULL_TREE. TPARMS and
20776 TARGS are as for unify. */
20778 static tree
20779 try_class_unification (tree tparms, tree targs, tree parm, tree arg,
20780 bool explain_p)
20782 tree copy_of_targs;
20784 if (!CLASSTYPE_SPECIALIZATION_OF_PRIMARY_TEMPLATE_P (arg))
20785 return NULL_TREE;
20786 else if (TREE_CODE (parm) == BOUND_TEMPLATE_TEMPLATE_PARM)
20787 /* Matches anything. */;
20788 else if (most_general_template (CLASSTYPE_TI_TEMPLATE (arg))
20789 != most_general_template (CLASSTYPE_TI_TEMPLATE (parm)))
20790 return NULL_TREE;
20792 /* We need to make a new template argument vector for the call to
20793 unify. If we used TARGS, we'd clutter it up with the result of
20794 the attempted unification, even if this class didn't work out.
20795 We also don't want to commit ourselves to all the unifications
20796 we've already done, since unification is supposed to be done on
20797 an argument-by-argument basis. In other words, consider the
20798 following pathological case:
20800 template <int I, int J, int K>
20801 struct S {};
20803 template <int I, int J>
20804 struct S<I, J, 2> : public S<I, I, I>, S<J, J, J> {};
20806 template <int I, int J, int K>
20807 void f(S<I, J, K>, S<I, I, I>);
20809 void g() {
20810 S<0, 0, 0> s0;
20811 S<0, 1, 2> s2;
20813 f(s0, s2);
20816 Now, by the time we consider the unification involving `s2', we
20817 already know that we must have `f<0, 0, 0>'. But, even though
20818 `S<0, 1, 2>' is derived from `S<0, 0, 0>', the code is invalid
20819 because there are two ways to unify base classes of S<0, 1, 2>
20820 with S<I, I, I>. If we kept the already deduced knowledge, we
20821 would reject the possibility I=1. */
20822 copy_of_targs = make_tree_vec (TREE_VEC_LENGTH (targs));
20824 if (TREE_CODE (parm) == BOUND_TEMPLATE_TEMPLATE_PARM)
20826 if (unify_bound_ttp_args (tparms, copy_of_targs, parm, arg, explain_p))
20827 return NULL_TREE;
20828 return arg;
20831 /* If unification failed, we're done. */
20832 if (unify (tparms, copy_of_targs, CLASSTYPE_TI_ARGS (parm),
20833 CLASSTYPE_TI_ARGS (arg), UNIFY_ALLOW_NONE, explain_p))
20834 return NULL_TREE;
20836 return arg;
20839 /* Given a template type PARM and a class type ARG, find the unique
20840 base type in ARG that is an instance of PARM. We do not examine
20841 ARG itself; only its base-classes. If there is not exactly one
20842 appropriate base class, return NULL_TREE. PARM may be the type of
20843 a partial specialization, as well as a plain template type. Used
20844 by unify. */
20846 static enum template_base_result
20847 get_template_base (tree tparms, tree targs, tree parm, tree arg,
20848 bool explain_p, tree *result)
20850 tree rval = NULL_TREE;
20851 tree binfo;
20853 gcc_assert (RECORD_OR_UNION_CODE_P (TREE_CODE (arg)));
20855 binfo = TYPE_BINFO (complete_type (arg));
20856 if (!binfo)
20858 /* The type could not be completed. */
20859 *result = NULL_TREE;
20860 return tbr_incomplete_type;
20863 /* Walk in inheritance graph order. The search order is not
20864 important, and this avoids multiple walks of virtual bases. */
20865 for (binfo = TREE_CHAIN (binfo); binfo; binfo = TREE_CHAIN (binfo))
20867 tree r = try_class_unification (tparms, targs, parm,
20868 BINFO_TYPE (binfo), explain_p);
20870 if (r)
20872 /* If there is more than one satisfactory baseclass, then:
20874 [temp.deduct.call]
20876 If they yield more than one possible deduced A, the type
20877 deduction fails.
20879 applies. */
20880 if (rval && !same_type_p (r, rval))
20882 *result = NULL_TREE;
20883 return tbr_ambiguous_baseclass;
20886 rval = r;
20890 *result = rval;
20891 return tbr_success;
20894 /* Returns the level of DECL, which declares a template parameter. */
20896 static int
20897 template_decl_level (tree decl)
20899 switch (TREE_CODE (decl))
20901 case TYPE_DECL:
20902 case TEMPLATE_DECL:
20903 return TEMPLATE_TYPE_LEVEL (TREE_TYPE (decl));
20905 case PARM_DECL:
20906 return TEMPLATE_PARM_LEVEL (DECL_INITIAL (decl));
20908 default:
20909 gcc_unreachable ();
20911 return 0;
20914 /* Decide whether ARG can be unified with PARM, considering only the
20915 cv-qualifiers of each type, given STRICT as documented for unify.
20916 Returns nonzero iff the unification is OK on that basis. */
20918 static int
20919 check_cv_quals_for_unify (int strict, tree arg, tree parm)
20921 int arg_quals = cp_type_quals (arg);
20922 int parm_quals = cp_type_quals (parm);
20924 if (TREE_CODE (parm) == TEMPLATE_TYPE_PARM
20925 && !(strict & UNIFY_ALLOW_OUTER_MORE_CV_QUAL))
20927 /* Although a CVR qualifier is ignored when being applied to a
20928 substituted template parameter ([8.3.2]/1 for example), that
20929 does not allow us to unify "const T" with "int&" because both
20930 types are not of the form "cv-list T" [14.8.2.5 temp.deduct.type].
20931 It is ok when we're allowing additional CV qualifiers
20932 at the outer level [14.8.2.1]/3,1st bullet. */
20933 if ((TREE_CODE (arg) == REFERENCE_TYPE
20934 || TREE_CODE (arg) == FUNCTION_TYPE
20935 || TREE_CODE (arg) == METHOD_TYPE)
20936 && (parm_quals & (TYPE_QUAL_CONST | TYPE_QUAL_VOLATILE)))
20937 return 0;
20939 if ((!POINTER_TYPE_P (arg) && TREE_CODE (arg) != TEMPLATE_TYPE_PARM)
20940 && (parm_quals & TYPE_QUAL_RESTRICT))
20941 return 0;
20944 if (!(strict & (UNIFY_ALLOW_MORE_CV_QUAL | UNIFY_ALLOW_OUTER_MORE_CV_QUAL))
20945 && (arg_quals & parm_quals) != parm_quals)
20946 return 0;
20948 if (!(strict & (UNIFY_ALLOW_LESS_CV_QUAL | UNIFY_ALLOW_OUTER_LESS_CV_QUAL))
20949 && (parm_quals & arg_quals) != arg_quals)
20950 return 0;
20952 return 1;
20955 /* Determines the LEVEL and INDEX for the template parameter PARM. */
20956 void
20957 template_parm_level_and_index (tree parm, int* level, int* index)
20959 if (TREE_CODE (parm) == TEMPLATE_TYPE_PARM
20960 || TREE_CODE (parm) == TEMPLATE_TEMPLATE_PARM
20961 || TREE_CODE (parm) == BOUND_TEMPLATE_TEMPLATE_PARM)
20963 *index = TEMPLATE_TYPE_IDX (parm);
20964 *level = TEMPLATE_TYPE_LEVEL (parm);
20966 else
20968 *index = TEMPLATE_PARM_IDX (parm);
20969 *level = TEMPLATE_PARM_LEVEL (parm);
20973 #define RECUR_AND_CHECK_FAILURE(TP, TA, P, A, S, EP) \
20974 do { \
20975 if (unify (TP, TA, P, A, S, EP)) \
20976 return 1; \
20977 } while (0)
20979 /* Unifies the remaining arguments in PACKED_ARGS with the pack
20980 expansion at the end of PACKED_PARMS. Returns 0 if the type
20981 deduction succeeds, 1 otherwise. STRICT is the same as in
20982 fn_type_unification. CALL_ARGS_P is true iff PACKED_ARGS is actually a
20983 function call argument list. We'll need to adjust the arguments to make them
20984 types. SUBR tells us if this is from a recursive call to
20985 type_unification_real, or for comparing two template argument
20986 lists. */
20988 static int
20989 unify_pack_expansion (tree tparms, tree targs, tree packed_parms,
20990 tree packed_args, unification_kind_t strict,
20991 bool subr, bool explain_p)
20993 tree parm
20994 = TREE_VEC_ELT (packed_parms, TREE_VEC_LENGTH (packed_parms) - 1);
20995 tree pattern = PACK_EXPANSION_PATTERN (parm);
20996 tree pack, packs = NULL_TREE;
20997 int i, start = TREE_VEC_LENGTH (packed_parms) - 1;
20999 /* Add in any args remembered from an earlier partial instantiation. */
21000 targs = add_to_template_args (PACK_EXPANSION_EXTRA_ARGS (parm), targs);
21001 int levels = TMPL_ARGS_DEPTH (targs);
21003 packed_args = expand_template_argument_pack (packed_args);
21005 int len = TREE_VEC_LENGTH (packed_args);
21007 /* Determine the parameter packs we will be deducing from the
21008 pattern, and record their current deductions. */
21009 for (pack = PACK_EXPANSION_PARAMETER_PACKS (parm);
21010 pack; pack = TREE_CHAIN (pack))
21012 tree parm_pack = TREE_VALUE (pack);
21013 int idx, level;
21015 /* Only template parameter packs can be deduced, not e.g. function
21016 parameter packs or __bases or __integer_pack. */
21017 if (!TEMPLATE_PARM_P (parm_pack))
21018 continue;
21020 /* Determine the index and level of this parameter pack. */
21021 template_parm_level_and_index (parm_pack, &level, &idx);
21022 if (level < levels)
21023 continue;
21025 /* Keep track of the parameter packs and their corresponding
21026 argument packs. */
21027 packs = tree_cons (parm_pack, TMPL_ARG (targs, level, idx), packs);
21028 TREE_TYPE (packs) = make_tree_vec (len - start);
21031 /* Loop through all of the arguments that have not yet been
21032 unified and unify each with the pattern. */
21033 for (i = start; i < len; i++)
21035 tree parm;
21036 bool any_explicit = false;
21037 tree arg = TREE_VEC_ELT (packed_args, i);
21039 /* For each parameter pack, set its TMPL_ARG to either NULL_TREE
21040 or the element of its argument pack at the current index if
21041 this argument was explicitly specified. */
21042 for (pack = packs; pack; pack = TREE_CHAIN (pack))
21044 int idx, level;
21045 tree arg, pargs;
21046 template_parm_level_and_index (TREE_PURPOSE (pack), &level, &idx);
21048 arg = NULL_TREE;
21049 if (TREE_VALUE (pack)
21050 && (pargs = ARGUMENT_PACK_EXPLICIT_ARGS (TREE_VALUE (pack)))
21051 && (i - start < TREE_VEC_LENGTH (pargs)))
21053 any_explicit = true;
21054 arg = TREE_VEC_ELT (pargs, i - start);
21056 TMPL_ARG (targs, level, idx) = arg;
21059 /* If we had explicit template arguments, substitute them into the
21060 pattern before deduction. */
21061 if (any_explicit)
21063 /* Some arguments might still be unspecified or dependent. */
21064 bool dependent;
21065 ++processing_template_decl;
21066 dependent = any_dependent_template_arguments_p (targs);
21067 if (!dependent)
21068 --processing_template_decl;
21069 parm = tsubst (pattern, targs,
21070 explain_p ? tf_warning_or_error : tf_none,
21071 NULL_TREE);
21072 if (dependent)
21073 --processing_template_decl;
21074 if (parm == error_mark_node)
21075 return 1;
21077 else
21078 parm = pattern;
21080 /* Unify the pattern with the current argument. */
21081 if (unify_one_argument (tparms, targs, parm, arg, subr, strict,
21082 explain_p))
21083 return 1;
21085 /* For each parameter pack, collect the deduced value. */
21086 for (pack = packs; pack; pack = TREE_CHAIN (pack))
21088 int idx, level;
21089 template_parm_level_and_index (TREE_PURPOSE (pack), &level, &idx);
21091 TREE_VEC_ELT (TREE_TYPE (pack), i - start) =
21092 TMPL_ARG (targs, level, idx);
21096 /* Verify that the results of unification with the parameter packs
21097 produce results consistent with what we've seen before, and make
21098 the deduced argument packs available. */
21099 for (pack = packs; pack; pack = TREE_CHAIN (pack))
21101 tree old_pack = TREE_VALUE (pack);
21102 tree new_args = TREE_TYPE (pack);
21103 int i, len = TREE_VEC_LENGTH (new_args);
21104 int idx, level;
21105 bool nondeduced_p = false;
21107 /* By default keep the original deduced argument pack.
21108 If necessary, more specific code is going to update the
21109 resulting deduced argument later down in this function. */
21110 template_parm_level_and_index (TREE_PURPOSE (pack), &level, &idx);
21111 TMPL_ARG (targs, level, idx) = old_pack;
21113 /* If NEW_ARGS contains any NULL_TREE entries, we didn't
21114 actually deduce anything. */
21115 for (i = 0; i < len && !nondeduced_p; ++i)
21116 if (TREE_VEC_ELT (new_args, i) == NULL_TREE)
21117 nondeduced_p = true;
21118 if (nondeduced_p)
21119 continue;
21121 if (old_pack && ARGUMENT_PACK_INCOMPLETE_P (old_pack))
21123 /* If we had fewer function args than explicit template args,
21124 just use the explicits. */
21125 tree explicit_args = ARGUMENT_PACK_EXPLICIT_ARGS (old_pack);
21126 int explicit_len = TREE_VEC_LENGTH (explicit_args);
21127 if (len < explicit_len)
21128 new_args = explicit_args;
21131 if (!old_pack)
21133 tree result;
21134 /* Build the deduced *_ARGUMENT_PACK. */
21135 if (TREE_CODE (TREE_PURPOSE (pack)) == TEMPLATE_PARM_INDEX)
21137 result = make_node (NONTYPE_ARGUMENT_PACK);
21138 TREE_CONSTANT (result) = 1;
21140 else
21141 result = cxx_make_type (TYPE_ARGUMENT_PACK);
21143 SET_ARGUMENT_PACK_ARGS (result, new_args);
21145 /* Note the deduced argument packs for this parameter
21146 pack. */
21147 TMPL_ARG (targs, level, idx) = result;
21149 else if (ARGUMENT_PACK_INCOMPLETE_P (old_pack)
21150 && (ARGUMENT_PACK_ARGS (old_pack)
21151 == ARGUMENT_PACK_EXPLICIT_ARGS (old_pack)))
21153 /* We only had the explicitly-provided arguments before, but
21154 now we have a complete set of arguments. */
21155 tree explicit_args = ARGUMENT_PACK_EXPLICIT_ARGS (old_pack);
21157 SET_ARGUMENT_PACK_ARGS (old_pack, new_args);
21158 ARGUMENT_PACK_INCOMPLETE_P (old_pack) = 1;
21159 ARGUMENT_PACK_EXPLICIT_ARGS (old_pack) = explicit_args;
21161 else
21163 tree bad_old_arg = NULL_TREE, bad_new_arg = NULL_TREE;
21164 tree old_args = ARGUMENT_PACK_ARGS (old_pack);
21166 if (!comp_template_args (old_args, new_args,
21167 &bad_old_arg, &bad_new_arg))
21168 /* Inconsistent unification of this parameter pack. */
21169 return unify_parameter_pack_inconsistent (explain_p,
21170 bad_old_arg,
21171 bad_new_arg);
21175 return unify_success (explain_p);
21178 /* Handle unification of the domain of an array. PARM_DOM and ARG_DOM are
21179 INTEGER_TYPEs representing the TYPE_DOMAIN of ARRAY_TYPEs. The other
21180 parameters and return value are as for unify. */
21182 static int
21183 unify_array_domain (tree tparms, tree targs,
21184 tree parm_dom, tree arg_dom,
21185 bool explain_p)
21187 tree parm_max;
21188 tree arg_max;
21189 bool parm_cst;
21190 bool arg_cst;
21192 /* Our representation of array types uses "N - 1" as the
21193 TYPE_MAX_VALUE for an array with "N" elements, if "N" is
21194 not an integer constant. We cannot unify arbitrarily
21195 complex expressions, so we eliminate the MINUS_EXPRs
21196 here. */
21197 parm_max = TYPE_MAX_VALUE (parm_dom);
21198 parm_cst = TREE_CODE (parm_max) == INTEGER_CST;
21199 if (!parm_cst)
21201 gcc_assert (TREE_CODE (parm_max) == MINUS_EXPR);
21202 parm_max = TREE_OPERAND (parm_max, 0);
21204 arg_max = TYPE_MAX_VALUE (arg_dom);
21205 arg_cst = TREE_CODE (arg_max) == INTEGER_CST;
21206 if (!arg_cst)
21208 /* The ARG_MAX may not be a simple MINUS_EXPR, if we are
21209 trying to unify the type of a variable with the type
21210 of a template parameter. For example:
21212 template <unsigned int N>
21213 void f (char (&) [N]);
21214 int g();
21215 void h(int i) {
21216 char a[g(i)];
21217 f(a);
21220 Here, the type of the ARG will be "int [g(i)]", and
21221 may be a SAVE_EXPR, etc. */
21222 if (TREE_CODE (arg_max) != MINUS_EXPR)
21223 return unify_vla_arg (explain_p, arg_dom);
21224 arg_max = TREE_OPERAND (arg_max, 0);
21227 /* If only one of the bounds used a MINUS_EXPR, compensate
21228 by adding one to the other bound. */
21229 if (parm_cst && !arg_cst)
21230 parm_max = fold_build2_loc (input_location, PLUS_EXPR,
21231 integer_type_node,
21232 parm_max,
21233 integer_one_node);
21234 else if (arg_cst && !parm_cst)
21235 arg_max = fold_build2_loc (input_location, PLUS_EXPR,
21236 integer_type_node,
21237 arg_max,
21238 integer_one_node);
21240 return unify (tparms, targs, parm_max, arg_max,
21241 UNIFY_ALLOW_INTEGER, explain_p);
21244 /* Returns whether T, a P or A in unify, is a type, template or expression. */
21246 enum pa_kind_t { pa_type, pa_tmpl, pa_expr };
21248 static pa_kind_t
21249 pa_kind (tree t)
21251 if (PACK_EXPANSION_P (t))
21252 t = PACK_EXPANSION_PATTERN (t);
21253 if (TREE_CODE (t) == TEMPLATE_TEMPLATE_PARM
21254 || TREE_CODE (t) == UNBOUND_CLASS_TEMPLATE
21255 || DECL_TYPE_TEMPLATE_P (t))
21256 return pa_tmpl;
21257 else if (TYPE_P (t))
21258 return pa_type;
21259 else
21260 return pa_expr;
21263 /* Deduce the value of template parameters. TPARMS is the (innermost)
21264 set of template parameters to a template. TARGS is the bindings
21265 for those template parameters, as determined thus far; TARGS may
21266 include template arguments for outer levels of template parameters
21267 as well. PARM is a parameter to a template function, or a
21268 subcomponent of that parameter; ARG is the corresponding argument.
21269 This function attempts to match PARM with ARG in a manner
21270 consistent with the existing assignments in TARGS. If more values
21271 are deduced, then TARGS is updated.
21273 Returns 0 if the type deduction succeeds, 1 otherwise. The
21274 parameter STRICT is a bitwise or of the following flags:
21276 UNIFY_ALLOW_NONE:
21277 Require an exact match between PARM and ARG.
21278 UNIFY_ALLOW_MORE_CV_QUAL:
21279 Allow the deduced ARG to be more cv-qualified (by qualification
21280 conversion) than ARG.
21281 UNIFY_ALLOW_LESS_CV_QUAL:
21282 Allow the deduced ARG to be less cv-qualified than ARG.
21283 UNIFY_ALLOW_DERIVED:
21284 Allow the deduced ARG to be a template base class of ARG,
21285 or a pointer to a template base class of the type pointed to by
21286 ARG.
21287 UNIFY_ALLOW_INTEGER:
21288 Allow any integral type to be deduced. See the TEMPLATE_PARM_INDEX
21289 case for more information.
21290 UNIFY_ALLOW_OUTER_LEVEL:
21291 This is the outermost level of a deduction. Used to determine validity
21292 of qualification conversions. A valid qualification conversion must
21293 have const qualified pointers leading up to the inner type which
21294 requires additional CV quals, except at the outer level, where const
21295 is not required [conv.qual]. It would be normal to set this flag in
21296 addition to setting UNIFY_ALLOW_MORE_CV_QUAL.
21297 UNIFY_ALLOW_OUTER_MORE_CV_QUAL:
21298 This is the outermost level of a deduction, and PARM can be more CV
21299 qualified at this point.
21300 UNIFY_ALLOW_OUTER_LESS_CV_QUAL:
21301 This is the outermost level of a deduction, and PARM can be less CV
21302 qualified at this point. */
21304 static int
21305 unify (tree tparms, tree targs, tree parm, tree arg, int strict,
21306 bool explain_p)
21308 int idx;
21309 tree targ;
21310 tree tparm;
21311 int strict_in = strict;
21312 tsubst_flags_t complain = (explain_p
21313 ? tf_warning_or_error
21314 : tf_none);
21316 /* I don't think this will do the right thing with respect to types.
21317 But the only case I've seen it in so far has been array bounds, where
21318 signedness is the only information lost, and I think that will be
21319 okay. */
21320 while (CONVERT_EXPR_P (parm))
21321 parm = TREE_OPERAND (parm, 0);
21323 if (arg == error_mark_node)
21324 return unify_invalid (explain_p);
21325 if (arg == unknown_type_node
21326 || arg == init_list_type_node)
21327 /* We can't deduce anything from this, but we might get all the
21328 template args from other function args. */
21329 return unify_success (explain_p);
21331 if (parm == any_targ_node || arg == any_targ_node)
21332 return unify_success (explain_p);
21334 /* If PARM uses template parameters, then we can't bail out here,
21335 even if ARG == PARM, since we won't record unifications for the
21336 template parameters. We might need them if we're trying to
21337 figure out which of two things is more specialized. */
21338 if (arg == parm && !uses_template_parms (parm))
21339 return unify_success (explain_p);
21341 /* Handle init lists early, so the rest of the function can assume
21342 we're dealing with a type. */
21343 if (BRACE_ENCLOSED_INITIALIZER_P (arg))
21345 tree elt, elttype;
21346 unsigned i;
21347 tree orig_parm = parm;
21349 /* Replace T with std::initializer_list<T> for deduction. */
21350 if (TREE_CODE (parm) == TEMPLATE_TYPE_PARM
21351 && flag_deduce_init_list)
21352 parm = listify (parm);
21354 if (!is_std_init_list (parm)
21355 && TREE_CODE (parm) != ARRAY_TYPE)
21356 /* We can only deduce from an initializer list argument if the
21357 parameter is std::initializer_list or an array; otherwise this
21358 is a non-deduced context. */
21359 return unify_success (explain_p);
21361 if (TREE_CODE (parm) == ARRAY_TYPE)
21362 elttype = TREE_TYPE (parm);
21363 else
21365 elttype = TREE_VEC_ELT (CLASSTYPE_TI_ARGS (parm), 0);
21366 /* Deduction is defined in terms of a single type, so just punt
21367 on the (bizarre) std::initializer_list<T...>. */
21368 if (PACK_EXPANSION_P (elttype))
21369 return unify_success (explain_p);
21372 FOR_EACH_CONSTRUCTOR_VALUE (CONSTRUCTOR_ELTS (arg), i, elt)
21374 int elt_strict = strict;
21376 if (elt == error_mark_node)
21377 return unify_invalid (explain_p);
21379 if (!BRACE_ENCLOSED_INITIALIZER_P (elt))
21381 tree type = TREE_TYPE (elt);
21382 if (type == error_mark_node)
21383 return unify_invalid (explain_p);
21384 /* It should only be possible to get here for a call. */
21385 gcc_assert (elt_strict & UNIFY_ALLOW_OUTER_LEVEL);
21386 elt_strict |= maybe_adjust_types_for_deduction
21387 (DEDUCE_CALL, &elttype, &type, elt);
21388 elt = type;
21391 RECUR_AND_CHECK_FAILURE (tparms, targs, elttype, elt, elt_strict,
21392 explain_p);
21395 if (TREE_CODE (parm) == ARRAY_TYPE
21396 && deducible_array_bound (TYPE_DOMAIN (parm)))
21398 /* Also deduce from the length of the initializer list. */
21399 tree max = size_int (CONSTRUCTOR_NELTS (arg));
21400 tree idx = compute_array_index_type (NULL_TREE, max, tf_none);
21401 if (idx == error_mark_node)
21402 return unify_invalid (explain_p);
21403 return unify_array_domain (tparms, targs, TYPE_DOMAIN (parm),
21404 idx, explain_p);
21407 /* If the std::initializer_list<T> deduction worked, replace the
21408 deduced A with std::initializer_list<A>. */
21409 if (orig_parm != parm)
21411 idx = TEMPLATE_TYPE_IDX (orig_parm);
21412 targ = TREE_VEC_ELT (INNERMOST_TEMPLATE_ARGS (targs), idx);
21413 targ = listify (targ);
21414 TREE_VEC_ELT (INNERMOST_TEMPLATE_ARGS (targs), idx) = targ;
21416 return unify_success (explain_p);
21419 /* If parm and arg aren't the same kind of thing (template, type, or
21420 expression), fail early. */
21421 if (pa_kind (parm) != pa_kind (arg))
21422 return unify_invalid (explain_p);
21424 /* Immediately reject some pairs that won't unify because of
21425 cv-qualification mismatches. */
21426 if (TREE_CODE (arg) == TREE_CODE (parm)
21427 && TYPE_P (arg)
21428 /* It is the elements of the array which hold the cv quals of an array
21429 type, and the elements might be template type parms. We'll check
21430 when we recurse. */
21431 && TREE_CODE (arg) != ARRAY_TYPE
21432 /* We check the cv-qualifiers when unifying with template type
21433 parameters below. We want to allow ARG `const T' to unify with
21434 PARM `T' for example, when computing which of two templates
21435 is more specialized, for example. */
21436 && TREE_CODE (arg) != TEMPLATE_TYPE_PARM
21437 && !check_cv_quals_for_unify (strict_in, arg, parm))
21438 return unify_cv_qual_mismatch (explain_p, parm, arg);
21440 if (!(strict & UNIFY_ALLOW_OUTER_LEVEL)
21441 && TYPE_P (parm) && !CP_TYPE_CONST_P (parm))
21442 strict &= ~UNIFY_ALLOW_MORE_CV_QUAL;
21443 strict &= ~UNIFY_ALLOW_OUTER_LEVEL;
21444 strict &= ~UNIFY_ALLOW_DERIVED;
21445 strict &= ~UNIFY_ALLOW_OUTER_MORE_CV_QUAL;
21446 strict &= ~UNIFY_ALLOW_OUTER_LESS_CV_QUAL;
21448 switch (TREE_CODE (parm))
21450 case TYPENAME_TYPE:
21451 case SCOPE_REF:
21452 case UNBOUND_CLASS_TEMPLATE:
21453 /* In a type which contains a nested-name-specifier, template
21454 argument values cannot be deduced for template parameters used
21455 within the nested-name-specifier. */
21456 return unify_success (explain_p);
21458 case TEMPLATE_TYPE_PARM:
21459 case TEMPLATE_TEMPLATE_PARM:
21460 case BOUND_TEMPLATE_TEMPLATE_PARM:
21461 tparm = TREE_VALUE (TREE_VEC_ELT (tparms, 0));
21462 if (error_operand_p (tparm))
21463 return unify_invalid (explain_p);
21465 if (TEMPLATE_TYPE_LEVEL (parm)
21466 != template_decl_level (tparm))
21467 /* The PARM is not one we're trying to unify. Just check
21468 to see if it matches ARG. */
21470 if (TREE_CODE (arg) == TREE_CODE (parm)
21471 && (is_auto (parm) ? is_auto (arg)
21472 : same_type_p (parm, arg)))
21473 return unify_success (explain_p);
21474 else
21475 return unify_type_mismatch (explain_p, parm, arg);
21477 idx = TEMPLATE_TYPE_IDX (parm);
21478 targ = TREE_VEC_ELT (INNERMOST_TEMPLATE_ARGS (targs), idx);
21479 tparm = TREE_VALUE (TREE_VEC_ELT (tparms, idx));
21480 if (error_operand_p (tparm))
21481 return unify_invalid (explain_p);
21483 /* Check for mixed types and values. */
21484 if ((TREE_CODE (parm) == TEMPLATE_TYPE_PARM
21485 && TREE_CODE (tparm) != TYPE_DECL)
21486 || (TREE_CODE (parm) == TEMPLATE_TEMPLATE_PARM
21487 && TREE_CODE (tparm) != TEMPLATE_DECL))
21488 gcc_unreachable ();
21490 if (TREE_CODE (parm) == BOUND_TEMPLATE_TEMPLATE_PARM)
21492 if ((strict_in & UNIFY_ALLOW_DERIVED)
21493 && CLASS_TYPE_P (arg))
21495 /* First try to match ARG directly. */
21496 tree t = try_class_unification (tparms, targs, parm, arg,
21497 explain_p);
21498 if (!t)
21500 /* Otherwise, look for a suitable base of ARG, as below. */
21501 enum template_base_result r;
21502 r = get_template_base (tparms, targs, parm, arg,
21503 explain_p, &t);
21504 if (!t)
21505 return unify_no_common_base (explain_p, r, parm, arg);
21506 arg = t;
21509 /* ARG must be constructed from a template class or a template
21510 template parameter. */
21511 else if (TREE_CODE (arg) != BOUND_TEMPLATE_TEMPLATE_PARM
21512 && !CLASSTYPE_SPECIALIZATION_OF_PRIMARY_TEMPLATE_P (arg))
21513 return unify_template_deduction_failure (explain_p, parm, arg);
21515 /* Deduce arguments T, i from TT<T> or TT<i>. */
21516 if (unify_bound_ttp_args (tparms, targs, parm, arg, explain_p))
21517 return 1;
21519 arg = TYPE_TI_TEMPLATE (arg);
21521 /* Fall through to deduce template name. */
21524 if (TREE_CODE (parm) == TEMPLATE_TEMPLATE_PARM
21525 || TREE_CODE (parm) == BOUND_TEMPLATE_TEMPLATE_PARM)
21527 /* Deduce template name TT from TT, TT<>, TT<T> and TT<i>. */
21529 /* Simple cases: Value already set, does match or doesn't. */
21530 if (targ != NULL_TREE && template_args_equal (targ, arg))
21531 return unify_success (explain_p);
21532 else if (targ)
21533 return unify_inconsistency (explain_p, parm, targ, arg);
21535 else
21537 /* If PARM is `const T' and ARG is only `int', we don't have
21538 a match unless we are allowing additional qualification.
21539 If ARG is `const int' and PARM is just `T' that's OK;
21540 that binds `const int' to `T'. */
21541 if (!check_cv_quals_for_unify (strict_in | UNIFY_ALLOW_LESS_CV_QUAL,
21542 arg, parm))
21543 return unify_cv_qual_mismatch (explain_p, parm, arg);
21545 /* Consider the case where ARG is `const volatile int' and
21546 PARM is `const T'. Then, T should be `volatile int'. */
21547 arg = cp_build_qualified_type_real
21548 (arg, cp_type_quals (arg) & ~cp_type_quals (parm), tf_none);
21549 if (arg == error_mark_node)
21550 return unify_invalid (explain_p);
21552 /* Simple cases: Value already set, does match or doesn't. */
21553 if (targ != NULL_TREE && same_type_p (targ, arg))
21554 return unify_success (explain_p);
21555 else if (targ)
21556 return unify_inconsistency (explain_p, parm, targ, arg);
21558 /* Make sure that ARG is not a variable-sized array. (Note
21559 that were talking about variable-sized arrays (like
21560 `int[n]'), rather than arrays of unknown size (like
21561 `int[]').) We'll get very confused by such a type since
21562 the bound of the array is not constant, and therefore
21563 not mangleable. Besides, such types are not allowed in
21564 ISO C++, so we can do as we please here. We do allow
21565 them for 'auto' deduction, since that isn't ABI-exposed. */
21566 if (!is_auto (parm) && variably_modified_type_p (arg, NULL_TREE))
21567 return unify_vla_arg (explain_p, arg);
21569 /* Strip typedefs as in convert_template_argument. */
21570 arg = canonicalize_type_argument (arg, tf_none);
21573 /* If ARG is a parameter pack or an expansion, we cannot unify
21574 against it unless PARM is also a parameter pack. */
21575 if ((template_parameter_pack_p (arg) || PACK_EXPANSION_P (arg))
21576 && !template_parameter_pack_p (parm))
21577 return unify_parameter_pack_mismatch (explain_p, parm, arg);
21579 /* If the argument deduction results is a METHOD_TYPE,
21580 then there is a problem.
21581 METHOD_TYPE doesn't map to any real C++ type the result of
21582 the deduction can not be of that type. */
21583 if (TREE_CODE (arg) == METHOD_TYPE)
21584 return unify_method_type_error (explain_p, arg);
21586 TREE_VEC_ELT (INNERMOST_TEMPLATE_ARGS (targs), idx) = arg;
21587 return unify_success (explain_p);
21589 case TEMPLATE_PARM_INDEX:
21590 tparm = TREE_VALUE (TREE_VEC_ELT (tparms, 0));
21591 if (error_operand_p (tparm))
21592 return unify_invalid (explain_p);
21594 if (TEMPLATE_PARM_LEVEL (parm)
21595 != template_decl_level (tparm))
21597 /* The PARM is not one we're trying to unify. Just check
21598 to see if it matches ARG. */
21599 int result = !(TREE_CODE (arg) == TREE_CODE (parm)
21600 && cp_tree_equal (parm, arg));
21601 if (result)
21602 unify_expression_unequal (explain_p, parm, arg);
21603 return result;
21606 idx = TEMPLATE_PARM_IDX (parm);
21607 targ = TREE_VEC_ELT (INNERMOST_TEMPLATE_ARGS (targs), idx);
21609 if (targ)
21611 if ((strict & UNIFY_ALLOW_INTEGER)
21612 && TREE_TYPE (targ) && TREE_TYPE (arg)
21613 && CP_INTEGRAL_TYPE_P (TREE_TYPE (targ)))
21614 /* We're deducing from an array bound, the type doesn't matter. */
21615 arg = fold_convert (TREE_TYPE (targ), arg);
21616 int x = !cp_tree_equal (targ, arg);
21617 if (x)
21618 unify_inconsistency (explain_p, parm, targ, arg);
21619 return x;
21622 /* [temp.deduct.type] If, in the declaration of a function template
21623 with a non-type template-parameter, the non-type
21624 template-parameter is used in an expression in the function
21625 parameter-list and, if the corresponding template-argument is
21626 deduced, the template-argument type shall match the type of the
21627 template-parameter exactly, except that a template-argument
21628 deduced from an array bound may be of any integral type.
21629 The non-type parameter might use already deduced type parameters. */
21630 tparm = TREE_TYPE (parm);
21631 if (TEMPLATE_PARM_LEVEL (parm) > TMPL_ARGS_DEPTH (targs))
21632 /* We don't have enough levels of args to do any substitution. This
21633 can happen in the context of -fnew-ttp-matching. */;
21634 else
21636 ++processing_template_decl;
21637 tparm = tsubst (tparm, targs, tf_none, NULL_TREE);
21638 --processing_template_decl;
21640 if (tree a = type_uses_auto (tparm))
21642 tparm = do_auto_deduction (tparm, arg, a, complain, adc_unify);
21643 if (tparm == error_mark_node)
21644 return 1;
21648 if (!TREE_TYPE (arg))
21649 /* Template-parameter dependent expression. Just accept it for now.
21650 It will later be processed in convert_template_argument. */
21652 else if (same_type_p (non_reference (TREE_TYPE (arg)),
21653 non_reference (tparm)))
21654 /* OK */;
21655 else if ((strict & UNIFY_ALLOW_INTEGER)
21656 && CP_INTEGRAL_TYPE_P (tparm))
21657 /* Convert the ARG to the type of PARM; the deduced non-type
21658 template argument must exactly match the types of the
21659 corresponding parameter. */
21660 arg = fold (build_nop (tparm, arg));
21661 else if (uses_template_parms (tparm))
21663 /* We haven't deduced the type of this parameter yet. */
21664 if (cxx_dialect >= cxx17
21665 /* We deduce from array bounds in try_array_deduction. */
21666 && !(strict & UNIFY_ALLOW_INTEGER))
21668 /* Deduce it from the non-type argument. */
21669 tree atype = TREE_TYPE (arg);
21670 RECUR_AND_CHECK_FAILURE (tparms, targs,
21671 tparm, atype,
21672 UNIFY_ALLOW_NONE, explain_p);
21674 else
21675 /* Try again later. */
21676 return unify_success (explain_p);
21678 else
21679 return unify_type_mismatch (explain_p, tparm, TREE_TYPE (arg));
21681 /* If ARG is a parameter pack or an expansion, we cannot unify
21682 against it unless PARM is also a parameter pack. */
21683 if ((template_parameter_pack_p (arg) || PACK_EXPANSION_P (arg))
21684 && !TEMPLATE_PARM_PARAMETER_PACK (parm))
21685 return unify_parameter_pack_mismatch (explain_p, parm, arg);
21688 bool removed_attr = false;
21689 arg = strip_typedefs_expr (arg, &removed_attr);
21691 TREE_VEC_ELT (INNERMOST_TEMPLATE_ARGS (targs), idx) = arg;
21692 return unify_success (explain_p);
21694 case PTRMEM_CST:
21696 /* A pointer-to-member constant can be unified only with
21697 another constant. */
21698 if (TREE_CODE (arg) != PTRMEM_CST)
21699 return unify_ptrmem_cst_mismatch (explain_p, parm, arg);
21701 /* Just unify the class member. It would be useless (and possibly
21702 wrong, depending on the strict flags) to unify also
21703 PTRMEM_CST_CLASS, because we want to be sure that both parm and
21704 arg refer to the same variable, even if through different
21705 classes. For instance:
21707 struct A { int x; };
21708 struct B : A { };
21710 Unification of &A::x and &B::x must succeed. */
21711 return unify (tparms, targs, PTRMEM_CST_MEMBER (parm),
21712 PTRMEM_CST_MEMBER (arg), strict, explain_p);
21715 case POINTER_TYPE:
21717 if (!TYPE_PTR_P (arg))
21718 return unify_type_mismatch (explain_p, parm, arg);
21720 /* [temp.deduct.call]
21722 A can be another pointer or pointer to member type that can
21723 be converted to the deduced A via a qualification
21724 conversion (_conv.qual_).
21726 We pass down STRICT here rather than UNIFY_ALLOW_NONE.
21727 This will allow for additional cv-qualification of the
21728 pointed-to types if appropriate. */
21730 if (TREE_CODE (TREE_TYPE (arg)) == RECORD_TYPE)
21731 /* The derived-to-base conversion only persists through one
21732 level of pointers. */
21733 strict |= (strict_in & UNIFY_ALLOW_DERIVED);
21735 return unify (tparms, targs, TREE_TYPE (parm),
21736 TREE_TYPE (arg), strict, explain_p);
21739 case REFERENCE_TYPE:
21740 if (TREE_CODE (arg) != REFERENCE_TYPE)
21741 return unify_type_mismatch (explain_p, parm, arg);
21742 return unify (tparms, targs, TREE_TYPE (parm), TREE_TYPE (arg),
21743 strict & UNIFY_ALLOW_MORE_CV_QUAL, explain_p);
21745 case ARRAY_TYPE:
21746 if (TREE_CODE (arg) != ARRAY_TYPE)
21747 return unify_type_mismatch (explain_p, parm, arg);
21748 if ((TYPE_DOMAIN (parm) == NULL_TREE)
21749 != (TYPE_DOMAIN (arg) == NULL_TREE))
21750 return unify_type_mismatch (explain_p, parm, arg);
21751 RECUR_AND_CHECK_FAILURE (tparms, targs, TREE_TYPE (parm), TREE_TYPE (arg),
21752 strict & UNIFY_ALLOW_MORE_CV_QUAL, explain_p);
21753 if (TYPE_DOMAIN (parm) != NULL_TREE)
21754 return unify_array_domain (tparms, targs, TYPE_DOMAIN (parm),
21755 TYPE_DOMAIN (arg), explain_p);
21756 return unify_success (explain_p);
21758 case REAL_TYPE:
21759 case COMPLEX_TYPE:
21760 case VECTOR_TYPE:
21761 case INTEGER_TYPE:
21762 case BOOLEAN_TYPE:
21763 case ENUMERAL_TYPE:
21764 case VOID_TYPE:
21765 case NULLPTR_TYPE:
21766 if (TREE_CODE (arg) != TREE_CODE (parm))
21767 return unify_type_mismatch (explain_p, parm, arg);
21769 /* We have already checked cv-qualification at the top of the
21770 function. */
21771 if (!same_type_ignoring_top_level_qualifiers_p (arg, parm))
21772 return unify_type_mismatch (explain_p, parm, arg);
21774 /* As far as unification is concerned, this wins. Later checks
21775 will invalidate it if necessary. */
21776 return unify_success (explain_p);
21778 /* Types INTEGER_CST and MINUS_EXPR can come from array bounds. */
21779 /* Type INTEGER_CST can come from ordinary constant template args. */
21780 case INTEGER_CST:
21781 while (CONVERT_EXPR_P (arg))
21782 arg = TREE_OPERAND (arg, 0);
21784 if (TREE_CODE (arg) != INTEGER_CST)
21785 return unify_template_argument_mismatch (explain_p, parm, arg);
21786 return (tree_int_cst_equal (parm, arg)
21787 ? unify_success (explain_p)
21788 : unify_template_argument_mismatch (explain_p, parm, arg));
21790 case TREE_VEC:
21792 int i, len, argslen;
21793 int parm_variadic_p = 0;
21795 if (TREE_CODE (arg) != TREE_VEC)
21796 return unify_template_argument_mismatch (explain_p, parm, arg);
21798 len = TREE_VEC_LENGTH (parm);
21799 argslen = TREE_VEC_LENGTH (arg);
21801 /* Check for pack expansions in the parameters. */
21802 for (i = 0; i < len; ++i)
21804 if (PACK_EXPANSION_P (TREE_VEC_ELT (parm, i)))
21806 if (i == len - 1)
21807 /* We can unify against something with a trailing
21808 parameter pack. */
21809 parm_variadic_p = 1;
21810 else
21811 /* [temp.deduct.type]/9: If the template argument list of
21812 P contains a pack expansion that is not the last
21813 template argument, the entire template argument list
21814 is a non-deduced context. */
21815 return unify_success (explain_p);
21819 /* If we don't have enough arguments to satisfy the parameters
21820 (not counting the pack expression at the end), or we have
21821 too many arguments for a parameter list that doesn't end in
21822 a pack expression, we can't unify. */
21823 if (parm_variadic_p
21824 ? argslen < len - parm_variadic_p
21825 : argslen != len)
21826 return unify_arity (explain_p, TREE_VEC_LENGTH (arg), len);
21828 /* Unify all of the parameters that precede the (optional)
21829 pack expression. */
21830 for (i = 0; i < len - parm_variadic_p; ++i)
21832 RECUR_AND_CHECK_FAILURE (tparms, targs,
21833 TREE_VEC_ELT (parm, i),
21834 TREE_VEC_ELT (arg, i),
21835 UNIFY_ALLOW_NONE, explain_p);
21837 if (parm_variadic_p)
21838 return unify_pack_expansion (tparms, targs, parm, arg,
21839 DEDUCE_EXACT,
21840 /*subr=*/true, explain_p);
21841 return unify_success (explain_p);
21844 case RECORD_TYPE:
21845 case UNION_TYPE:
21846 if (TREE_CODE (arg) != TREE_CODE (parm))
21847 return unify_type_mismatch (explain_p, parm, arg);
21849 if (TYPE_PTRMEMFUNC_P (parm))
21851 if (!TYPE_PTRMEMFUNC_P (arg))
21852 return unify_type_mismatch (explain_p, parm, arg);
21854 return unify (tparms, targs,
21855 TYPE_PTRMEMFUNC_FN_TYPE (parm),
21856 TYPE_PTRMEMFUNC_FN_TYPE (arg),
21857 strict, explain_p);
21859 else if (TYPE_PTRMEMFUNC_P (arg))
21860 return unify_type_mismatch (explain_p, parm, arg);
21862 if (CLASSTYPE_TEMPLATE_INFO (parm))
21864 tree t = NULL_TREE;
21866 if (strict_in & UNIFY_ALLOW_DERIVED)
21868 /* First, we try to unify the PARM and ARG directly. */
21869 t = try_class_unification (tparms, targs,
21870 parm, arg, explain_p);
21872 if (!t)
21874 /* Fallback to the special case allowed in
21875 [temp.deduct.call]:
21877 If P is a class, and P has the form
21878 template-id, then A can be a derived class of
21879 the deduced A. Likewise, if P is a pointer to
21880 a class of the form template-id, A can be a
21881 pointer to a derived class pointed to by the
21882 deduced A. */
21883 enum template_base_result r;
21884 r = get_template_base (tparms, targs, parm, arg,
21885 explain_p, &t);
21887 if (!t)
21889 /* Don't give the derived diagnostic if we're
21890 already dealing with the same template. */
21891 bool same_template
21892 = (CLASSTYPE_TEMPLATE_INFO (arg)
21893 && (CLASSTYPE_TI_TEMPLATE (parm)
21894 == CLASSTYPE_TI_TEMPLATE (arg)));
21895 return unify_no_common_base (explain_p && !same_template,
21896 r, parm, arg);
21900 else if (CLASSTYPE_TEMPLATE_INFO (arg)
21901 && (CLASSTYPE_TI_TEMPLATE (parm)
21902 == CLASSTYPE_TI_TEMPLATE (arg)))
21903 /* Perhaps PARM is something like S<U> and ARG is S<int>.
21904 Then, we should unify `int' and `U'. */
21905 t = arg;
21906 else
21907 /* There's no chance of unification succeeding. */
21908 return unify_type_mismatch (explain_p, parm, arg);
21910 return unify (tparms, targs, CLASSTYPE_TI_ARGS (parm),
21911 CLASSTYPE_TI_ARGS (t), UNIFY_ALLOW_NONE, explain_p);
21913 else if (!same_type_ignoring_top_level_qualifiers_p (parm, arg))
21914 return unify_type_mismatch (explain_p, parm, arg);
21915 return unify_success (explain_p);
21917 case METHOD_TYPE:
21918 case FUNCTION_TYPE:
21920 unsigned int nargs;
21921 tree *args;
21922 tree a;
21923 unsigned int i;
21925 if (TREE_CODE (arg) != TREE_CODE (parm))
21926 return unify_type_mismatch (explain_p, parm, arg);
21928 /* CV qualifications for methods can never be deduced, they must
21929 match exactly. We need to check them explicitly here,
21930 because type_unification_real treats them as any other
21931 cv-qualified parameter. */
21932 if (TREE_CODE (parm) == METHOD_TYPE
21933 && (!check_cv_quals_for_unify
21934 (UNIFY_ALLOW_NONE,
21935 class_of_this_parm (arg),
21936 class_of_this_parm (parm))))
21937 return unify_cv_qual_mismatch (explain_p, parm, arg);
21938 if (TREE_CODE (arg) == FUNCTION_TYPE
21939 && type_memfn_quals (parm) != type_memfn_quals (arg))
21940 return unify_cv_qual_mismatch (explain_p, parm, arg);
21941 if (type_memfn_rqual (parm) != type_memfn_rqual (arg))
21942 return unify_type_mismatch (explain_p, parm, arg);
21944 RECUR_AND_CHECK_FAILURE (tparms, targs, TREE_TYPE (parm),
21945 TREE_TYPE (arg), UNIFY_ALLOW_NONE, explain_p);
21947 nargs = list_length (TYPE_ARG_TYPES (arg));
21948 args = XALLOCAVEC (tree, nargs);
21949 for (a = TYPE_ARG_TYPES (arg), i = 0;
21950 a != NULL_TREE && a != void_list_node;
21951 a = TREE_CHAIN (a), ++i)
21952 args[i] = TREE_VALUE (a);
21953 nargs = i;
21955 if (type_unification_real (tparms, targs, TYPE_ARG_TYPES (parm),
21956 args, nargs, 1, DEDUCE_EXACT,
21957 LOOKUP_NORMAL, NULL, explain_p))
21958 return 1;
21960 if (flag_noexcept_type)
21962 tree pspec = TYPE_RAISES_EXCEPTIONS (parm);
21963 tree aspec = canonical_eh_spec (TYPE_RAISES_EXCEPTIONS (arg));
21964 if (pspec == NULL_TREE) pspec = noexcept_false_spec;
21965 if (aspec == NULL_TREE) aspec = noexcept_false_spec;
21966 if (TREE_PURPOSE (pspec) && TREE_PURPOSE (aspec)
21967 && uses_template_parms (TREE_PURPOSE (pspec)))
21968 RECUR_AND_CHECK_FAILURE (tparms, targs, TREE_PURPOSE (pspec),
21969 TREE_PURPOSE (aspec),
21970 UNIFY_ALLOW_NONE, explain_p);
21971 else if (nothrow_spec_p (pspec) && !nothrow_spec_p (aspec))
21972 return unify_type_mismatch (explain_p, parm, arg);
21975 return 0;
21978 case OFFSET_TYPE:
21979 /* Unify a pointer to member with a pointer to member function, which
21980 deduces the type of the member as a function type. */
21981 if (TYPE_PTRMEMFUNC_P (arg))
21983 /* Check top-level cv qualifiers */
21984 if (!check_cv_quals_for_unify (UNIFY_ALLOW_NONE, arg, parm))
21985 return unify_cv_qual_mismatch (explain_p, parm, arg);
21987 RECUR_AND_CHECK_FAILURE (tparms, targs, TYPE_OFFSET_BASETYPE (parm),
21988 TYPE_PTRMEMFUNC_OBJECT_TYPE (arg),
21989 UNIFY_ALLOW_NONE, explain_p);
21991 /* Determine the type of the function we are unifying against. */
21992 tree fntype = static_fn_type (arg);
21994 return unify (tparms, targs, TREE_TYPE (parm), fntype, strict, explain_p);
21997 if (TREE_CODE (arg) != OFFSET_TYPE)
21998 return unify_type_mismatch (explain_p, parm, arg);
21999 RECUR_AND_CHECK_FAILURE (tparms, targs, TYPE_OFFSET_BASETYPE (parm),
22000 TYPE_OFFSET_BASETYPE (arg),
22001 UNIFY_ALLOW_NONE, explain_p);
22002 return unify (tparms, targs, TREE_TYPE (parm), TREE_TYPE (arg),
22003 strict, explain_p);
22005 case CONST_DECL:
22006 if (DECL_TEMPLATE_PARM_P (parm))
22007 return unify (tparms, targs, DECL_INITIAL (parm), arg, strict, explain_p);
22008 if (arg != scalar_constant_value (parm))
22009 return unify_template_argument_mismatch (explain_p, parm, arg);
22010 return unify_success (explain_p);
22012 case FIELD_DECL:
22013 case TEMPLATE_DECL:
22014 /* Matched cases are handled by the ARG == PARM test above. */
22015 return unify_template_argument_mismatch (explain_p, parm, arg);
22017 case VAR_DECL:
22018 /* We might get a variable as a non-type template argument in parm if the
22019 corresponding parameter is type-dependent. Make any necessary
22020 adjustments based on whether arg is a reference. */
22021 if (CONSTANT_CLASS_P (arg))
22022 parm = fold_non_dependent_expr (parm);
22023 else if (REFERENCE_REF_P (arg))
22025 tree sub = TREE_OPERAND (arg, 0);
22026 STRIP_NOPS (sub);
22027 if (TREE_CODE (sub) == ADDR_EXPR)
22028 arg = TREE_OPERAND (sub, 0);
22030 /* Now use the normal expression code to check whether they match. */
22031 goto expr;
22033 case TYPE_ARGUMENT_PACK:
22034 case NONTYPE_ARGUMENT_PACK:
22035 return unify (tparms, targs, ARGUMENT_PACK_ARGS (parm),
22036 ARGUMENT_PACK_ARGS (arg), strict, explain_p);
22038 case TYPEOF_TYPE:
22039 case DECLTYPE_TYPE:
22040 case UNDERLYING_TYPE:
22041 /* Cannot deduce anything from TYPEOF_TYPE, DECLTYPE_TYPE,
22042 or UNDERLYING_TYPE nodes. */
22043 return unify_success (explain_p);
22045 case ERROR_MARK:
22046 /* Unification fails if we hit an error node. */
22047 return unify_invalid (explain_p);
22049 case INDIRECT_REF:
22050 if (REFERENCE_REF_P (parm))
22052 bool pexp = PACK_EXPANSION_P (arg);
22053 if (pexp)
22054 arg = PACK_EXPANSION_PATTERN (arg);
22055 if (REFERENCE_REF_P (arg))
22056 arg = TREE_OPERAND (arg, 0);
22057 if (pexp)
22058 arg = make_pack_expansion (arg, complain);
22059 return unify (tparms, targs, TREE_OPERAND (parm, 0), arg,
22060 strict, explain_p);
22062 /* FALLTHRU */
22064 default:
22065 /* An unresolved overload is a nondeduced context. */
22066 if (is_overloaded_fn (parm) || type_unknown_p (parm))
22067 return unify_success (explain_p);
22068 gcc_assert (EXPR_P (parm) || TREE_CODE (parm) == TRAIT_EXPR);
22069 expr:
22070 /* We must be looking at an expression. This can happen with
22071 something like:
22073 template <int I>
22074 void foo(S<I>, S<I + 2>);
22076 This is a "nondeduced context":
22078 [deduct.type]
22080 The nondeduced contexts are:
22082 --A type that is a template-id in which one or more of
22083 the template-arguments is an expression that references
22084 a template-parameter.
22086 In these cases, we assume deduction succeeded, but don't
22087 actually infer any unifications. */
22089 if (!uses_template_parms (parm)
22090 && !template_args_equal (parm, arg))
22091 return unify_expression_unequal (explain_p, parm, arg);
22092 else
22093 return unify_success (explain_p);
22096 #undef RECUR_AND_CHECK_FAILURE
22098 /* Note that DECL can be defined in this translation unit, if
22099 required. */
22101 static void
22102 mark_definable (tree decl)
22104 tree clone;
22105 DECL_NOT_REALLY_EXTERN (decl) = 1;
22106 FOR_EACH_CLONE (clone, decl)
22107 DECL_NOT_REALLY_EXTERN (clone) = 1;
22110 /* Called if RESULT is explicitly instantiated, or is a member of an
22111 explicitly instantiated class. */
22113 void
22114 mark_decl_instantiated (tree result, int extern_p)
22116 SET_DECL_EXPLICIT_INSTANTIATION (result);
22118 /* If this entity has already been written out, it's too late to
22119 make any modifications. */
22120 if (TREE_ASM_WRITTEN (result))
22121 return;
22123 /* For anonymous namespace we don't need to do anything. */
22124 if (decl_anon_ns_mem_p (result))
22126 gcc_assert (!TREE_PUBLIC (result));
22127 return;
22130 if (TREE_CODE (result) != FUNCTION_DECL)
22131 /* The TREE_PUBLIC flag for function declarations will have been
22132 set correctly by tsubst. */
22133 TREE_PUBLIC (result) = 1;
22135 /* This might have been set by an earlier implicit instantiation. */
22136 DECL_COMDAT (result) = 0;
22138 if (extern_p)
22139 DECL_NOT_REALLY_EXTERN (result) = 0;
22140 else
22142 mark_definable (result);
22143 mark_needed (result);
22144 /* Always make artificials weak. */
22145 if (DECL_ARTIFICIAL (result) && flag_weak)
22146 comdat_linkage (result);
22147 /* For WIN32 we also want to put explicit instantiations in
22148 linkonce sections. */
22149 else if (TREE_PUBLIC (result))
22150 maybe_make_one_only (result);
22153 /* If EXTERN_P, then this function will not be emitted -- unless
22154 followed by an explicit instantiation, at which point its linkage
22155 will be adjusted. If !EXTERN_P, then this function will be
22156 emitted here. In neither circumstance do we want
22157 import_export_decl to adjust the linkage. */
22158 DECL_INTERFACE_KNOWN (result) = 1;
22161 /* Subroutine of more_specialized_fn: check whether TARGS is missing any
22162 important template arguments. If any are missing, we check whether
22163 they're important by using error_mark_node for substituting into any
22164 args that were used for partial ordering (the ones between ARGS and END)
22165 and seeing if it bubbles up. */
22167 static bool
22168 check_undeduced_parms (tree targs, tree args, tree end)
22170 bool found = false;
22171 int i;
22172 for (i = TREE_VEC_LENGTH (targs) - 1; i >= 0; --i)
22173 if (TREE_VEC_ELT (targs, i) == NULL_TREE)
22175 found = true;
22176 TREE_VEC_ELT (targs, i) = error_mark_node;
22178 if (found)
22180 tree substed = tsubst_arg_types (args, targs, end, tf_none, NULL_TREE);
22181 if (substed == error_mark_node)
22182 return true;
22184 return false;
22187 /* Given two function templates PAT1 and PAT2, return:
22189 1 if PAT1 is more specialized than PAT2 as described in [temp.func.order].
22190 -1 if PAT2 is more specialized than PAT1.
22191 0 if neither is more specialized.
22193 LEN indicates the number of parameters we should consider
22194 (defaulted parameters should not be considered).
22196 The 1998 std underspecified function template partial ordering, and
22197 DR214 addresses the issue. We take pairs of arguments, one from
22198 each of the templates, and deduce them against each other. One of
22199 the templates will be more specialized if all the *other*
22200 template's arguments deduce against its arguments and at least one
22201 of its arguments *does* *not* deduce against the other template's
22202 corresponding argument. Deduction is done as for class templates.
22203 The arguments used in deduction have reference and top level cv
22204 qualifiers removed. Iff both arguments were originally reference
22205 types *and* deduction succeeds in both directions, an lvalue reference
22206 wins against an rvalue reference and otherwise the template
22207 with the more cv-qualified argument wins for that pairing (if
22208 neither is more cv-qualified, they both are equal). Unlike regular
22209 deduction, after all the arguments have been deduced in this way,
22210 we do *not* verify the deduced template argument values can be
22211 substituted into non-deduced contexts.
22213 The logic can be a bit confusing here, because we look at deduce1 and
22214 targs1 to see if pat2 is at least as specialized, and vice versa; if we
22215 can find template arguments for pat1 to make arg1 look like arg2, that
22216 means that arg2 is at least as specialized as arg1. */
22219 more_specialized_fn (tree pat1, tree pat2, int len)
22221 tree decl1 = DECL_TEMPLATE_RESULT (pat1);
22222 tree decl2 = DECL_TEMPLATE_RESULT (pat2);
22223 tree targs1 = make_tree_vec (DECL_NTPARMS (pat1));
22224 tree targs2 = make_tree_vec (DECL_NTPARMS (pat2));
22225 tree tparms1 = DECL_INNERMOST_TEMPLATE_PARMS (pat1);
22226 tree tparms2 = DECL_INNERMOST_TEMPLATE_PARMS (pat2);
22227 tree args1 = TYPE_ARG_TYPES (TREE_TYPE (decl1));
22228 tree args2 = TYPE_ARG_TYPES (TREE_TYPE (decl2));
22229 tree origs1, origs2;
22230 bool lose1 = false;
22231 bool lose2 = false;
22233 /* Remove the this parameter from non-static member functions. If
22234 one is a non-static member function and the other is not a static
22235 member function, remove the first parameter from that function
22236 also. This situation occurs for operator functions where we
22237 locate both a member function (with this pointer) and non-member
22238 operator (with explicit first operand). */
22239 if (DECL_NONSTATIC_MEMBER_FUNCTION_P (decl1))
22241 len--; /* LEN is the number of significant arguments for DECL1 */
22242 args1 = TREE_CHAIN (args1);
22243 if (!DECL_STATIC_FUNCTION_P (decl2))
22244 args2 = TREE_CHAIN (args2);
22246 else if (DECL_NONSTATIC_MEMBER_FUNCTION_P (decl2))
22248 args2 = TREE_CHAIN (args2);
22249 if (!DECL_STATIC_FUNCTION_P (decl1))
22251 len--;
22252 args1 = TREE_CHAIN (args1);
22256 /* If only one is a conversion operator, they are unordered. */
22257 if (DECL_CONV_FN_P (decl1) != DECL_CONV_FN_P (decl2))
22258 return 0;
22260 /* Consider the return type for a conversion function */
22261 if (DECL_CONV_FN_P (decl1))
22263 args1 = tree_cons (NULL_TREE, TREE_TYPE (TREE_TYPE (decl1)), args1);
22264 args2 = tree_cons (NULL_TREE, TREE_TYPE (TREE_TYPE (decl2)), args2);
22265 len++;
22268 processing_template_decl++;
22270 origs1 = args1;
22271 origs2 = args2;
22273 while (len--
22274 /* Stop when an ellipsis is seen. */
22275 && args1 != NULL_TREE && args2 != NULL_TREE)
22277 tree arg1 = TREE_VALUE (args1);
22278 tree arg2 = TREE_VALUE (args2);
22279 int deduce1, deduce2;
22280 int quals1 = -1;
22281 int quals2 = -1;
22282 int ref1 = 0;
22283 int ref2 = 0;
22285 if (TREE_CODE (arg1) == TYPE_PACK_EXPANSION
22286 && TREE_CODE (arg2) == TYPE_PACK_EXPANSION)
22288 /* When both arguments are pack expansions, we need only
22289 unify the patterns themselves. */
22290 arg1 = PACK_EXPANSION_PATTERN (arg1);
22291 arg2 = PACK_EXPANSION_PATTERN (arg2);
22293 /* This is the last comparison we need to do. */
22294 len = 0;
22297 /* DR 1847: If a particular P contains no template-parameters that
22298 participate in template argument deduction, that P is not used to
22299 determine the ordering. */
22300 if (!uses_deducible_template_parms (arg1)
22301 && !uses_deducible_template_parms (arg2))
22302 goto next;
22304 if (TREE_CODE (arg1) == REFERENCE_TYPE)
22306 ref1 = TYPE_REF_IS_RVALUE (arg1) + 1;
22307 arg1 = TREE_TYPE (arg1);
22308 quals1 = cp_type_quals (arg1);
22311 if (TREE_CODE (arg2) == REFERENCE_TYPE)
22313 ref2 = TYPE_REF_IS_RVALUE (arg2) + 1;
22314 arg2 = TREE_TYPE (arg2);
22315 quals2 = cp_type_quals (arg2);
22318 arg1 = TYPE_MAIN_VARIANT (arg1);
22319 arg2 = TYPE_MAIN_VARIANT (arg2);
22321 if (TREE_CODE (arg1) == TYPE_PACK_EXPANSION)
22323 int i, len2 = remaining_arguments (args2);
22324 tree parmvec = make_tree_vec (1);
22325 tree argvec = make_tree_vec (len2);
22326 tree ta = args2;
22328 /* Setup the parameter vector, which contains only ARG1. */
22329 TREE_VEC_ELT (parmvec, 0) = arg1;
22331 /* Setup the argument vector, which contains the remaining
22332 arguments. */
22333 for (i = 0; i < len2; i++, ta = TREE_CHAIN (ta))
22334 TREE_VEC_ELT (argvec, i) = TREE_VALUE (ta);
22336 deduce1 = (unify_pack_expansion (tparms1, targs1, parmvec,
22337 argvec, DEDUCE_EXACT,
22338 /*subr=*/true, /*explain_p=*/false)
22339 == 0);
22341 /* We cannot deduce in the other direction, because ARG1 is
22342 a pack expansion but ARG2 is not. */
22343 deduce2 = 0;
22345 else if (TREE_CODE (arg2) == TYPE_PACK_EXPANSION)
22347 int i, len1 = remaining_arguments (args1);
22348 tree parmvec = make_tree_vec (1);
22349 tree argvec = make_tree_vec (len1);
22350 tree ta = args1;
22352 /* Setup the parameter vector, which contains only ARG1. */
22353 TREE_VEC_ELT (parmvec, 0) = arg2;
22355 /* Setup the argument vector, which contains the remaining
22356 arguments. */
22357 for (i = 0; i < len1; i++, ta = TREE_CHAIN (ta))
22358 TREE_VEC_ELT (argvec, i) = TREE_VALUE (ta);
22360 deduce2 = (unify_pack_expansion (tparms2, targs2, parmvec,
22361 argvec, DEDUCE_EXACT,
22362 /*subr=*/true, /*explain_p=*/false)
22363 == 0);
22365 /* We cannot deduce in the other direction, because ARG2 is
22366 a pack expansion but ARG1 is not.*/
22367 deduce1 = 0;
22370 else
22372 /* The normal case, where neither argument is a pack
22373 expansion. */
22374 deduce1 = (unify (tparms1, targs1, arg1, arg2,
22375 UNIFY_ALLOW_NONE, /*explain_p=*/false)
22376 == 0);
22377 deduce2 = (unify (tparms2, targs2, arg2, arg1,
22378 UNIFY_ALLOW_NONE, /*explain_p=*/false)
22379 == 0);
22382 /* If we couldn't deduce arguments for tparms1 to make arg1 match
22383 arg2, then arg2 is not as specialized as arg1. */
22384 if (!deduce1)
22385 lose2 = true;
22386 if (!deduce2)
22387 lose1 = true;
22389 /* "If, for a given type, deduction succeeds in both directions
22390 (i.e., the types are identical after the transformations above)
22391 and both P and A were reference types (before being replaced with
22392 the type referred to above):
22393 - if the type from the argument template was an lvalue reference and
22394 the type from the parameter template was not, the argument type is
22395 considered to be more specialized than the other; otherwise,
22396 - if the type from the argument template is more cv-qualified
22397 than the type from the parameter template (as described above),
22398 the argument type is considered to be more specialized than the other;
22399 otherwise,
22400 - neither type is more specialized than the other." */
22402 if (deduce1 && deduce2)
22404 if (ref1 && ref2 && ref1 != ref2)
22406 if (ref1 > ref2)
22407 lose1 = true;
22408 else
22409 lose2 = true;
22411 else if (quals1 != quals2 && quals1 >= 0 && quals2 >= 0)
22413 if ((quals1 & quals2) == quals2)
22414 lose2 = true;
22415 if ((quals1 & quals2) == quals1)
22416 lose1 = true;
22420 if (lose1 && lose2)
22421 /* We've failed to deduce something in either direction.
22422 These must be unordered. */
22423 break;
22425 next:
22427 if (TREE_CODE (arg1) == TYPE_PACK_EXPANSION
22428 || TREE_CODE (arg2) == TYPE_PACK_EXPANSION)
22429 /* We have already processed all of the arguments in our
22430 handing of the pack expansion type. */
22431 len = 0;
22433 args1 = TREE_CHAIN (args1);
22434 args2 = TREE_CHAIN (args2);
22437 /* "In most cases, all template parameters must have values in order for
22438 deduction to succeed, but for partial ordering purposes a template
22439 parameter may remain without a value provided it is not used in the
22440 types being used for partial ordering."
22442 Thus, if we are missing any of the targs1 we need to substitute into
22443 origs1, then pat2 is not as specialized as pat1. This can happen when
22444 there is a nondeduced context. */
22445 if (!lose2 && check_undeduced_parms (targs1, origs1, args1))
22446 lose2 = true;
22447 if (!lose1 && check_undeduced_parms (targs2, origs2, args2))
22448 lose1 = true;
22450 processing_template_decl--;
22452 /* If both deductions succeed, the partial ordering selects the more
22453 constrained template. */
22454 if (!lose1 && !lose2)
22456 tree c1 = get_constraints (DECL_TEMPLATE_RESULT (pat1));
22457 tree c2 = get_constraints (DECL_TEMPLATE_RESULT (pat2));
22458 lose1 = !subsumes_constraints (c1, c2);
22459 lose2 = !subsumes_constraints (c2, c1);
22462 /* All things being equal, if the next argument is a pack expansion
22463 for one function but not for the other, prefer the
22464 non-variadic function. FIXME this is bogus; see c++/41958. */
22465 if (lose1 == lose2
22466 && args1 && TREE_VALUE (args1)
22467 && args2 && TREE_VALUE (args2))
22469 lose1 = TREE_CODE (TREE_VALUE (args1)) == TYPE_PACK_EXPANSION;
22470 lose2 = TREE_CODE (TREE_VALUE (args2)) == TYPE_PACK_EXPANSION;
22473 if (lose1 == lose2)
22474 return 0;
22475 else if (!lose1)
22476 return 1;
22477 else
22478 return -1;
22481 /* Determine which of two partial specializations of TMPL is more
22482 specialized.
22484 PAT1 is a TREE_LIST whose TREE_VALUE is the TEMPLATE_DECL corresponding
22485 to the first partial specialization. The TREE_PURPOSE is the
22486 innermost set of template parameters for the partial
22487 specialization. PAT2 is similar, but for the second template.
22489 Return 1 if the first partial specialization is more specialized;
22490 -1 if the second is more specialized; 0 if neither is more
22491 specialized.
22493 See [temp.class.order] for information about determining which of
22494 two templates is more specialized. */
22496 static int
22497 more_specialized_partial_spec (tree tmpl, tree pat1, tree pat2)
22499 tree targs;
22500 int winner = 0;
22501 bool any_deductions = false;
22503 tree tmpl1 = TREE_VALUE (pat1);
22504 tree tmpl2 = TREE_VALUE (pat2);
22505 tree specargs1 = TI_ARGS (get_template_info (DECL_TEMPLATE_RESULT (tmpl1)));
22506 tree specargs2 = TI_ARGS (get_template_info (DECL_TEMPLATE_RESULT (tmpl2)));
22508 /* Just like what happens for functions, if we are ordering between
22509 different template specializations, we may encounter dependent
22510 types in the arguments, and we need our dependency check functions
22511 to behave correctly. */
22512 ++processing_template_decl;
22513 targs = get_partial_spec_bindings (tmpl, tmpl1, specargs2);
22514 if (targs)
22516 --winner;
22517 any_deductions = true;
22520 targs = get_partial_spec_bindings (tmpl, tmpl2, specargs1);
22521 if (targs)
22523 ++winner;
22524 any_deductions = true;
22526 --processing_template_decl;
22528 /* If both deductions succeed, the partial ordering selects the more
22529 constrained template. */
22530 if (!winner && any_deductions)
22531 return more_constrained (tmpl1, tmpl2);
22533 /* In the case of a tie where at least one of the templates
22534 has a parameter pack at the end, the template with the most
22535 non-packed parameters wins. */
22536 if (winner == 0
22537 && any_deductions
22538 && (template_args_variadic_p (TREE_PURPOSE (pat1))
22539 || template_args_variadic_p (TREE_PURPOSE (pat2))))
22541 tree args1 = INNERMOST_TEMPLATE_ARGS (TREE_PURPOSE (pat1));
22542 tree args2 = INNERMOST_TEMPLATE_ARGS (TREE_PURPOSE (pat2));
22543 int len1 = TREE_VEC_LENGTH (args1);
22544 int len2 = TREE_VEC_LENGTH (args2);
22546 /* We don't count the pack expansion at the end. */
22547 if (template_args_variadic_p (TREE_PURPOSE (pat1)))
22548 --len1;
22549 if (template_args_variadic_p (TREE_PURPOSE (pat2)))
22550 --len2;
22552 if (len1 > len2)
22553 return 1;
22554 else if (len1 < len2)
22555 return -1;
22558 return winner;
22561 /* Return the template arguments that will produce the function signature
22562 DECL from the function template FN, with the explicit template
22563 arguments EXPLICIT_ARGS. If CHECK_RETTYPE is true, the return type must
22564 also match. Return NULL_TREE if no satisfactory arguments could be
22565 found. */
22567 static tree
22568 get_bindings (tree fn, tree decl, tree explicit_args, bool check_rettype)
22570 int ntparms = DECL_NTPARMS (fn);
22571 tree targs = make_tree_vec (ntparms);
22572 tree decl_type = TREE_TYPE (decl);
22573 tree decl_arg_types;
22574 tree *args;
22575 unsigned int nargs, ix;
22576 tree arg;
22578 gcc_assert (decl != DECL_TEMPLATE_RESULT (fn));
22580 /* Never do unification on the 'this' parameter. */
22581 decl_arg_types = skip_artificial_parms_for (decl,
22582 TYPE_ARG_TYPES (decl_type));
22584 nargs = list_length (decl_arg_types);
22585 args = XALLOCAVEC (tree, nargs);
22586 for (arg = decl_arg_types, ix = 0;
22587 arg != NULL_TREE && arg != void_list_node;
22588 arg = TREE_CHAIN (arg), ++ix)
22589 args[ix] = TREE_VALUE (arg);
22591 if (fn_type_unification (fn, explicit_args, targs,
22592 args, ix,
22593 (check_rettype || DECL_CONV_FN_P (fn)
22594 ? TREE_TYPE (decl_type) : NULL_TREE),
22595 DEDUCE_EXACT, LOOKUP_NORMAL, /*explain_p=*/false,
22596 /*decltype*/false)
22597 == error_mark_node)
22598 return NULL_TREE;
22600 return targs;
22603 /* Return the innermost template arguments that, when applied to a partial
22604 specialization SPEC_TMPL of TMPL, yield the ARGS.
22606 For example, suppose we have:
22608 template <class T, class U> struct S {};
22609 template <class T> struct S<T*, int> {};
22611 Then, suppose we want to get `S<double*, int>'. SPEC_TMPL will be the
22612 partial specialization and the ARGS will be {double*, int}. The resulting
22613 vector will be {double}, indicating that `T' is bound to `double'. */
22615 static tree
22616 get_partial_spec_bindings (tree tmpl, tree spec_tmpl, tree args)
22618 tree tparms = DECL_INNERMOST_TEMPLATE_PARMS (spec_tmpl);
22619 tree spec_args
22620 = TI_ARGS (get_template_info (DECL_TEMPLATE_RESULT (spec_tmpl)));
22621 int i, ntparms = TREE_VEC_LENGTH (tparms);
22622 tree deduced_args;
22623 tree innermost_deduced_args;
22625 innermost_deduced_args = make_tree_vec (ntparms);
22626 if (TMPL_ARGS_HAVE_MULTIPLE_LEVELS (args))
22628 deduced_args = copy_node (args);
22629 SET_TMPL_ARGS_LEVEL (deduced_args,
22630 TMPL_ARGS_DEPTH (deduced_args),
22631 innermost_deduced_args);
22633 else
22634 deduced_args = innermost_deduced_args;
22636 bool tried_array_deduction = (cxx_dialect < cxx17);
22637 again:
22638 if (unify (tparms, deduced_args,
22639 INNERMOST_TEMPLATE_ARGS (spec_args),
22640 INNERMOST_TEMPLATE_ARGS (args),
22641 UNIFY_ALLOW_NONE, /*explain_p=*/false))
22642 return NULL_TREE;
22644 for (i = 0; i < ntparms; ++i)
22645 if (! TREE_VEC_ELT (innermost_deduced_args, i))
22647 if (!tried_array_deduction)
22649 try_array_deduction (tparms, innermost_deduced_args,
22650 INNERMOST_TEMPLATE_ARGS (spec_args));
22651 tried_array_deduction = true;
22652 if (TREE_VEC_ELT (innermost_deduced_args, i))
22653 goto again;
22655 return NULL_TREE;
22658 if (!push_tinst_level (spec_tmpl, deduced_args))
22660 excessive_deduction_depth = true;
22661 return NULL_TREE;
22664 /* Verify that nondeduced template arguments agree with the type
22665 obtained from argument deduction.
22667 For example:
22669 struct A { typedef int X; };
22670 template <class T, class U> struct C {};
22671 template <class T> struct C<T, typename T::X> {};
22673 Then with the instantiation `C<A, int>', we can deduce that
22674 `T' is `A' but unify () does not check whether `typename T::X'
22675 is `int'. */
22676 spec_args = tsubst (spec_args, deduced_args, tf_none, NULL_TREE);
22678 if (spec_args != error_mark_node)
22679 spec_args = coerce_template_parms (DECL_INNERMOST_TEMPLATE_PARMS (tmpl),
22680 INNERMOST_TEMPLATE_ARGS (spec_args),
22681 tmpl, tf_none, false, false);
22683 pop_tinst_level ();
22685 if (spec_args == error_mark_node
22686 /* We only need to check the innermost arguments; the other
22687 arguments will always agree. */
22688 || !comp_template_args_porder (INNERMOST_TEMPLATE_ARGS (spec_args),
22689 INNERMOST_TEMPLATE_ARGS (args)))
22690 return NULL_TREE;
22692 /* Now that we have bindings for all of the template arguments,
22693 ensure that the arguments deduced for the template template
22694 parameters have compatible template parameter lists. See the use
22695 of template_template_parm_bindings_ok_p in fn_type_unification
22696 for more information. */
22697 if (!template_template_parm_bindings_ok_p (tparms, deduced_args))
22698 return NULL_TREE;
22700 return deduced_args;
22703 // Compare two function templates T1 and T2 by deducing bindings
22704 // from one against the other. If both deductions succeed, compare
22705 // constraints to see which is more constrained.
22706 static int
22707 more_specialized_inst (tree t1, tree t2)
22709 int fate = 0;
22710 int count = 0;
22712 if (get_bindings (t1, DECL_TEMPLATE_RESULT (t2), NULL_TREE, true))
22714 --fate;
22715 ++count;
22718 if (get_bindings (t2, DECL_TEMPLATE_RESULT (t1), NULL_TREE, true))
22720 ++fate;
22721 ++count;
22724 // If both deductions succeed, then one may be more constrained.
22725 if (count == 2 && fate == 0)
22726 fate = more_constrained (t1, t2);
22728 return fate;
22731 /* TEMPLATES is a TREE_LIST. Each TREE_VALUE is a TEMPLATE_DECL.
22732 Return the TREE_LIST node with the most specialized template, if
22733 any. If there is no most specialized template, the error_mark_node
22734 is returned.
22736 Note that this function does not look at, or modify, the
22737 TREE_PURPOSE or TREE_TYPE of any of the nodes. Since the node
22738 returned is one of the elements of INSTANTIATIONS, callers may
22739 store information in the TREE_PURPOSE or TREE_TYPE of the nodes,
22740 and retrieve it from the value returned. */
22742 tree
22743 most_specialized_instantiation (tree templates)
22745 tree fn, champ;
22747 ++processing_template_decl;
22749 champ = templates;
22750 for (fn = TREE_CHAIN (templates); fn; fn = TREE_CHAIN (fn))
22752 gcc_assert (TREE_VALUE (champ) != TREE_VALUE (fn));
22753 int fate = more_specialized_inst (TREE_VALUE (champ), TREE_VALUE (fn));
22754 if (fate == -1)
22755 champ = fn;
22756 else if (!fate)
22758 /* Equally specialized, move to next function. If there
22759 is no next function, nothing's most specialized. */
22760 fn = TREE_CHAIN (fn);
22761 champ = fn;
22762 if (!fn)
22763 break;
22767 if (champ)
22768 /* Now verify that champ is better than everything earlier in the
22769 instantiation list. */
22770 for (fn = templates; fn != champ; fn = TREE_CHAIN (fn)) {
22771 if (more_specialized_inst (TREE_VALUE (champ), TREE_VALUE (fn)) != 1)
22773 champ = NULL_TREE;
22774 break;
22778 processing_template_decl--;
22780 if (!champ)
22781 return error_mark_node;
22783 return champ;
22786 /* If DECL is a specialization of some template, return the most
22787 general such template. Otherwise, returns NULL_TREE.
22789 For example, given:
22791 template <class T> struct S { template <class U> void f(U); };
22793 if TMPL is `template <class U> void S<int>::f(U)' this will return
22794 the full template. This function will not trace past partial
22795 specializations, however. For example, given in addition:
22797 template <class T> struct S<T*> { template <class U> void f(U); };
22799 if TMPL is `template <class U> void S<int*>::f(U)' this will return
22800 `template <class T> template <class U> S<T*>::f(U)'. */
22802 tree
22803 most_general_template (tree decl)
22805 if (TREE_CODE (decl) != TEMPLATE_DECL)
22807 if (tree tinfo = get_template_info (decl))
22808 decl = TI_TEMPLATE (tinfo);
22809 /* The TI_TEMPLATE can be an IDENTIFIER_NODE for a
22810 template friend, or a FIELD_DECL for a capture pack. */
22811 if (TREE_CODE (decl) != TEMPLATE_DECL)
22812 return NULL_TREE;
22815 /* Look for more and more general templates. */
22816 while (DECL_LANG_SPECIFIC (decl) && DECL_TEMPLATE_INFO (decl))
22818 /* The DECL_TI_TEMPLATE can be an IDENTIFIER_NODE in some cases.
22819 (See cp-tree.h for details.) */
22820 if (TREE_CODE (DECL_TI_TEMPLATE (decl)) != TEMPLATE_DECL)
22821 break;
22823 if (CLASS_TYPE_P (TREE_TYPE (decl))
22824 && !TYPE_DECL_ALIAS_P (TYPE_NAME (TREE_TYPE (decl)))
22825 && CLASSTYPE_TEMPLATE_SPECIALIZATION (TREE_TYPE (decl)))
22826 break;
22828 /* Stop if we run into an explicitly specialized class template. */
22829 if (!DECL_NAMESPACE_SCOPE_P (decl)
22830 && DECL_CONTEXT (decl)
22831 && CLASSTYPE_TEMPLATE_SPECIALIZATION (DECL_CONTEXT (decl)))
22832 break;
22834 decl = DECL_TI_TEMPLATE (decl);
22837 return decl;
22840 /* Return the most specialized of the template partial specializations
22841 which can produce TARGET, a specialization of some class or variable
22842 template. The value returned is actually a TREE_LIST; the TREE_VALUE is
22843 a TEMPLATE_DECL node corresponding to the partial specialization, while
22844 the TREE_PURPOSE is the set of template arguments that must be
22845 substituted into the template pattern in order to generate TARGET.
22847 If the choice of partial specialization is ambiguous, a diagnostic
22848 is issued, and the error_mark_node is returned. If there are no
22849 partial specializations matching TARGET, then NULL_TREE is
22850 returned, indicating that the primary template should be used. */
22852 static tree
22853 most_specialized_partial_spec (tree target, tsubst_flags_t complain)
22855 tree list = NULL_TREE;
22856 tree t;
22857 tree champ;
22858 int fate;
22859 bool ambiguous_p;
22860 tree outer_args = NULL_TREE;
22861 tree tmpl, args;
22863 if (TYPE_P (target))
22865 tree tinfo = CLASSTYPE_TEMPLATE_INFO (target);
22866 tmpl = TI_TEMPLATE (tinfo);
22867 args = TI_ARGS (tinfo);
22869 else if (TREE_CODE (target) == TEMPLATE_ID_EXPR)
22871 tmpl = TREE_OPERAND (target, 0);
22872 args = TREE_OPERAND (target, 1);
22874 else if (VAR_P (target))
22876 tree tinfo = DECL_TEMPLATE_INFO (target);
22877 tmpl = TI_TEMPLATE (tinfo);
22878 args = TI_ARGS (tinfo);
22880 else
22881 gcc_unreachable ();
22883 tree main_tmpl = most_general_template (tmpl);
22885 /* For determining which partial specialization to use, only the
22886 innermost args are interesting. */
22887 if (TMPL_ARGS_HAVE_MULTIPLE_LEVELS (args))
22889 outer_args = strip_innermost_template_args (args, 1);
22890 args = INNERMOST_TEMPLATE_ARGS (args);
22893 for (t = DECL_TEMPLATE_SPECIALIZATIONS (main_tmpl); t; t = TREE_CHAIN (t))
22895 tree spec_args;
22896 tree spec_tmpl = TREE_VALUE (t);
22898 if (outer_args)
22900 /* Substitute in the template args from the enclosing class. */
22901 ++processing_template_decl;
22902 spec_tmpl = tsubst (spec_tmpl, outer_args, tf_none, NULL_TREE);
22903 --processing_template_decl;
22906 if (spec_tmpl == error_mark_node)
22907 return error_mark_node;
22909 spec_args = get_partial_spec_bindings (tmpl, spec_tmpl, args);
22910 if (spec_args)
22912 if (outer_args)
22913 spec_args = add_to_template_args (outer_args, spec_args);
22915 /* Keep the candidate only if the constraints are satisfied,
22916 or if we're not compiling with concepts. */
22917 if (!flag_concepts
22918 || constraints_satisfied_p (spec_tmpl, spec_args))
22920 list = tree_cons (spec_args, TREE_VALUE (t), list);
22921 TREE_TYPE (list) = TREE_TYPE (t);
22926 if (! list)
22927 return NULL_TREE;
22929 ambiguous_p = false;
22930 t = list;
22931 champ = t;
22932 t = TREE_CHAIN (t);
22933 for (; t; t = TREE_CHAIN (t))
22935 fate = more_specialized_partial_spec (tmpl, champ, t);
22936 if (fate == 1)
22938 else
22940 if (fate == 0)
22942 t = TREE_CHAIN (t);
22943 if (! t)
22945 ambiguous_p = true;
22946 break;
22949 champ = t;
22953 if (!ambiguous_p)
22954 for (t = list; t && t != champ; t = TREE_CHAIN (t))
22956 fate = more_specialized_partial_spec (tmpl, champ, t);
22957 if (fate != 1)
22959 ambiguous_p = true;
22960 break;
22964 if (ambiguous_p)
22966 const char *str;
22967 char *spaces = NULL;
22968 if (!(complain & tf_error))
22969 return error_mark_node;
22970 if (TYPE_P (target))
22971 error ("ambiguous template instantiation for %q#T", target);
22972 else
22973 error ("ambiguous template instantiation for %q#D", target);
22974 str = ngettext ("candidate is:", "candidates are:", list_length (list));
22975 for (t = list; t; t = TREE_CHAIN (t))
22977 tree subst = build_tree_list (TREE_VALUE (t), TREE_PURPOSE (t));
22978 inform (DECL_SOURCE_LOCATION (TREE_VALUE (t)),
22979 "%s %#qS", spaces ? spaces : str, subst);
22980 spaces = spaces ? spaces : get_spaces (str);
22982 free (spaces);
22983 return error_mark_node;
22986 return champ;
22989 /* Explicitly instantiate DECL. */
22991 void
22992 do_decl_instantiation (tree decl, tree storage)
22994 tree result = NULL_TREE;
22995 int extern_p = 0;
22997 if (!decl || decl == error_mark_node)
22998 /* An error occurred, for which grokdeclarator has already issued
22999 an appropriate message. */
23000 return;
23001 else if (! DECL_LANG_SPECIFIC (decl))
23003 error ("explicit instantiation of non-template %q#D", decl);
23004 return;
23007 bool var_templ = (DECL_TEMPLATE_INFO (decl)
23008 && variable_template_p (DECL_TI_TEMPLATE (decl)));
23010 if (VAR_P (decl) && !var_templ)
23012 /* There is an asymmetry here in the way VAR_DECLs and
23013 FUNCTION_DECLs are handled by grokdeclarator. In the case of
23014 the latter, the DECL we get back will be marked as a
23015 template instantiation, and the appropriate
23016 DECL_TEMPLATE_INFO will be set up. This does not happen for
23017 VAR_DECLs so we do the lookup here. Probably, grokdeclarator
23018 should handle VAR_DECLs as it currently handles
23019 FUNCTION_DECLs. */
23020 if (!DECL_CLASS_SCOPE_P (decl))
23022 error ("%qD is not a static data member of a class template", decl);
23023 return;
23025 result = lookup_field (DECL_CONTEXT (decl), DECL_NAME (decl), 0, false);
23026 if (!result || !VAR_P (result))
23028 error ("no matching template for %qD found", decl);
23029 return;
23031 if (!same_type_p (TREE_TYPE (result), TREE_TYPE (decl)))
23033 error ("type %qT for explicit instantiation %qD does not match "
23034 "declared type %qT", TREE_TYPE (result), decl,
23035 TREE_TYPE (decl));
23036 return;
23039 else if (TREE_CODE (decl) != FUNCTION_DECL && !var_templ)
23041 error ("explicit instantiation of %q#D", decl);
23042 return;
23044 else
23045 result = decl;
23047 /* Check for various error cases. Note that if the explicit
23048 instantiation is valid the RESULT will currently be marked as an
23049 *implicit* instantiation; DECL_EXPLICIT_INSTANTIATION is not set
23050 until we get here. */
23052 if (DECL_TEMPLATE_SPECIALIZATION (result))
23054 /* DR 259 [temp.spec].
23056 Both an explicit instantiation and a declaration of an explicit
23057 specialization shall not appear in a program unless the explicit
23058 instantiation follows a declaration of the explicit specialization.
23060 For a given set of template parameters, if an explicit
23061 instantiation of a template appears after a declaration of an
23062 explicit specialization for that template, the explicit
23063 instantiation has no effect. */
23064 return;
23066 else if (DECL_EXPLICIT_INSTANTIATION (result))
23068 /* [temp.spec]
23070 No program shall explicitly instantiate any template more
23071 than once.
23073 We check DECL_NOT_REALLY_EXTERN so as not to complain when
23074 the first instantiation was `extern' and the second is not,
23075 and EXTERN_P for the opposite case. */
23076 if (DECL_NOT_REALLY_EXTERN (result) && !extern_p)
23077 permerror (input_location, "duplicate explicit instantiation of %q#D", result);
23078 /* If an "extern" explicit instantiation follows an ordinary
23079 explicit instantiation, the template is instantiated. */
23080 if (extern_p)
23081 return;
23083 else if (!DECL_IMPLICIT_INSTANTIATION (result))
23085 error ("no matching template for %qD found", result);
23086 return;
23088 else if (!DECL_TEMPLATE_INFO (result))
23090 permerror (input_location, "explicit instantiation of non-template %q#D", result);
23091 return;
23094 if (storage == NULL_TREE)
23096 else if (storage == ridpointers[(int) RID_EXTERN])
23098 if (!in_system_header_at (input_location) && (cxx_dialect == cxx98))
23099 pedwarn (input_location, OPT_Wpedantic,
23100 "ISO C++ 1998 forbids the use of %<extern%> on explicit "
23101 "instantiations");
23102 extern_p = 1;
23104 else
23105 error ("storage class %qD applied to template instantiation", storage);
23107 check_explicit_instantiation_namespace (result);
23108 mark_decl_instantiated (result, extern_p);
23109 if (! extern_p)
23110 instantiate_decl (result, /*defer_ok=*/true,
23111 /*expl_inst_class_mem_p=*/false);
23114 static void
23115 mark_class_instantiated (tree t, int extern_p)
23117 SET_CLASSTYPE_EXPLICIT_INSTANTIATION (t);
23118 SET_CLASSTYPE_INTERFACE_KNOWN (t);
23119 CLASSTYPE_INTERFACE_ONLY (t) = extern_p;
23120 TYPE_DECL_SUPPRESS_DEBUG (TYPE_NAME (t)) = extern_p;
23121 if (! extern_p)
23123 CLASSTYPE_DEBUG_REQUESTED (t) = 1;
23124 rest_of_type_compilation (t, 1);
23128 /* Called from do_type_instantiation through binding_table_foreach to
23129 do recursive instantiation for the type bound in ENTRY. */
23130 static void
23131 bt_instantiate_type_proc (binding_entry entry, void *data)
23133 tree storage = *(tree *) data;
23135 if (MAYBE_CLASS_TYPE_P (entry->type)
23136 && CLASSTYPE_TEMPLATE_INFO (entry->type)
23137 && !uses_template_parms (CLASSTYPE_TI_ARGS (entry->type)))
23138 do_type_instantiation (TYPE_MAIN_DECL (entry->type), storage, 0);
23141 /* Perform an explicit instantiation of template class T. STORAGE, if
23142 non-null, is the RID for extern, inline or static. COMPLAIN is
23143 nonzero if this is called from the parser, zero if called recursively,
23144 since the standard is unclear (as detailed below). */
23146 void
23147 do_type_instantiation (tree t, tree storage, tsubst_flags_t complain)
23149 int extern_p = 0;
23150 int nomem_p = 0;
23151 int static_p = 0;
23152 int previous_instantiation_extern_p = 0;
23154 if (TREE_CODE (t) == TYPE_DECL)
23155 t = TREE_TYPE (t);
23157 if (! CLASS_TYPE_P (t) || ! CLASSTYPE_TEMPLATE_INFO (t))
23159 tree tmpl =
23160 (TYPE_TEMPLATE_INFO (t)) ? TYPE_TI_TEMPLATE (t) : NULL;
23161 if (tmpl)
23162 error ("explicit instantiation of non-class template %qD", tmpl);
23163 else
23164 error ("explicit instantiation of non-template type %qT", t);
23165 return;
23168 complete_type (t);
23170 if (!COMPLETE_TYPE_P (t))
23172 if (complain & tf_error)
23173 error ("explicit instantiation of %q#T before definition of template",
23175 return;
23178 if (storage != NULL_TREE)
23180 if (!in_system_header_at (input_location))
23182 if (storage == ridpointers[(int) RID_EXTERN])
23184 if (cxx_dialect == cxx98)
23185 pedwarn (input_location, OPT_Wpedantic,
23186 "ISO C++ 1998 forbids the use of %<extern%> on "
23187 "explicit instantiations");
23189 else
23190 pedwarn (input_location, OPT_Wpedantic,
23191 "ISO C++ forbids the use of %qE"
23192 " on explicit instantiations", storage);
23195 if (storage == ridpointers[(int) RID_INLINE])
23196 nomem_p = 1;
23197 else if (storage == ridpointers[(int) RID_EXTERN])
23198 extern_p = 1;
23199 else if (storage == ridpointers[(int) RID_STATIC])
23200 static_p = 1;
23201 else
23203 error ("storage class %qD applied to template instantiation",
23204 storage);
23205 extern_p = 0;
23209 if (CLASSTYPE_TEMPLATE_SPECIALIZATION (t))
23211 /* DR 259 [temp.spec].
23213 Both an explicit instantiation and a declaration of an explicit
23214 specialization shall not appear in a program unless the explicit
23215 instantiation follows a declaration of the explicit specialization.
23217 For a given set of template parameters, if an explicit
23218 instantiation of a template appears after a declaration of an
23219 explicit specialization for that template, the explicit
23220 instantiation has no effect. */
23221 return;
23223 else if (CLASSTYPE_EXPLICIT_INSTANTIATION (t))
23225 /* [temp.spec]
23227 No program shall explicitly instantiate any template more
23228 than once.
23230 If PREVIOUS_INSTANTIATION_EXTERN_P, then the first explicit
23231 instantiation was `extern'. If EXTERN_P then the second is.
23232 These cases are OK. */
23233 previous_instantiation_extern_p = CLASSTYPE_INTERFACE_ONLY (t);
23235 if (!previous_instantiation_extern_p && !extern_p
23236 && (complain & tf_error))
23237 permerror (input_location, "duplicate explicit instantiation of %q#T", t);
23239 /* If we've already instantiated the template, just return now. */
23240 if (!CLASSTYPE_INTERFACE_ONLY (t))
23241 return;
23244 check_explicit_instantiation_namespace (TYPE_NAME (t));
23245 mark_class_instantiated (t, extern_p);
23247 if (nomem_p)
23248 return;
23250 /* In contrast to implicit instantiation, where only the
23251 declarations, and not the definitions, of members are
23252 instantiated, we have here:
23254 [temp.explicit]
23256 The explicit instantiation of a class template specialization
23257 implies the instantiation of all of its members not
23258 previously explicitly specialized in the translation unit
23259 containing the explicit instantiation.
23261 Of course, we can't instantiate member template classes, since we
23262 don't have any arguments for them. Note that the standard is
23263 unclear on whether the instantiation of the members are
23264 *explicit* instantiations or not. However, the most natural
23265 interpretation is that it should be an explicit
23266 instantiation. */
23267 for (tree fld = TYPE_FIELDS (t); fld; fld = DECL_CHAIN (fld))
23268 if ((VAR_P (fld)
23269 || (TREE_CODE (fld) == FUNCTION_DECL
23270 && !static_p
23271 && user_provided_p (fld)))
23272 && DECL_TEMPLATE_INSTANTIATION (fld))
23274 mark_decl_instantiated (fld, extern_p);
23275 if (! extern_p)
23276 instantiate_decl (fld, /*defer_ok=*/true,
23277 /*expl_inst_class_mem_p=*/true);
23280 if (CLASSTYPE_NESTED_UTDS (t))
23281 binding_table_foreach (CLASSTYPE_NESTED_UTDS (t),
23282 bt_instantiate_type_proc, &storage);
23285 /* Given a function DECL, which is a specialization of TMPL, modify
23286 DECL to be a re-instantiation of TMPL with the same template
23287 arguments. TMPL should be the template into which tsubst'ing
23288 should occur for DECL, not the most general template.
23290 One reason for doing this is a scenario like this:
23292 template <class T>
23293 void f(const T&, int i);
23295 void g() { f(3, 7); }
23297 template <class T>
23298 void f(const T& t, const int i) { }
23300 Note that when the template is first instantiated, with
23301 instantiate_template, the resulting DECL will have no name for the
23302 first parameter, and the wrong type for the second. So, when we go
23303 to instantiate the DECL, we regenerate it. */
23305 static void
23306 regenerate_decl_from_template (tree decl, tree tmpl, tree args)
23308 /* The arguments used to instantiate DECL, from the most general
23309 template. */
23310 tree code_pattern;
23312 code_pattern = DECL_TEMPLATE_RESULT (tmpl);
23314 /* Make sure that we can see identifiers, and compute access
23315 correctly. */
23316 push_access_scope (decl);
23318 if (TREE_CODE (decl) == FUNCTION_DECL)
23320 tree decl_parm;
23321 tree pattern_parm;
23322 tree specs;
23323 int args_depth;
23324 int parms_depth;
23326 args_depth = TMPL_ARGS_DEPTH (args);
23327 parms_depth = TMPL_PARMS_DEPTH (DECL_TEMPLATE_PARMS (tmpl));
23328 if (args_depth > parms_depth)
23329 args = get_innermost_template_args (args, parms_depth);
23331 specs = tsubst_exception_specification (TREE_TYPE (code_pattern),
23332 args, tf_error, NULL_TREE,
23333 /*defer_ok*/false);
23334 if (specs && specs != error_mark_node)
23335 TREE_TYPE (decl) = build_exception_variant (TREE_TYPE (decl),
23336 specs);
23338 /* Merge parameter declarations. */
23339 decl_parm = skip_artificial_parms_for (decl,
23340 DECL_ARGUMENTS (decl));
23341 pattern_parm
23342 = skip_artificial_parms_for (code_pattern,
23343 DECL_ARGUMENTS (code_pattern));
23344 while (decl_parm && !DECL_PACK_P (pattern_parm))
23346 tree parm_type;
23347 tree attributes;
23349 if (DECL_NAME (decl_parm) != DECL_NAME (pattern_parm))
23350 DECL_NAME (decl_parm) = DECL_NAME (pattern_parm);
23351 parm_type = tsubst (TREE_TYPE (pattern_parm), args, tf_error,
23352 NULL_TREE);
23353 parm_type = type_decays_to (parm_type);
23354 if (!same_type_p (TREE_TYPE (decl_parm), parm_type))
23355 TREE_TYPE (decl_parm) = parm_type;
23356 attributes = DECL_ATTRIBUTES (pattern_parm);
23357 if (DECL_ATTRIBUTES (decl_parm) != attributes)
23359 DECL_ATTRIBUTES (decl_parm) = attributes;
23360 cplus_decl_attributes (&decl_parm, attributes, /*flags=*/0);
23362 decl_parm = DECL_CHAIN (decl_parm);
23363 pattern_parm = DECL_CHAIN (pattern_parm);
23365 /* Merge any parameters that match with the function parameter
23366 pack. */
23367 if (pattern_parm && DECL_PACK_P (pattern_parm))
23369 int i, len;
23370 tree expanded_types;
23371 /* Expand the TYPE_PACK_EXPANSION that provides the types for
23372 the parameters in this function parameter pack. */
23373 expanded_types = tsubst_pack_expansion (TREE_TYPE (pattern_parm),
23374 args, tf_error, NULL_TREE);
23375 len = TREE_VEC_LENGTH (expanded_types);
23376 for (i = 0; i < len; i++)
23378 tree parm_type;
23379 tree attributes;
23381 if (DECL_NAME (decl_parm) != DECL_NAME (pattern_parm))
23382 /* Rename the parameter to include the index. */
23383 DECL_NAME (decl_parm) =
23384 make_ith_pack_parameter_name (DECL_NAME (pattern_parm), i);
23385 parm_type = TREE_VEC_ELT (expanded_types, i);
23386 parm_type = type_decays_to (parm_type);
23387 if (!same_type_p (TREE_TYPE (decl_parm), parm_type))
23388 TREE_TYPE (decl_parm) = parm_type;
23389 attributes = DECL_ATTRIBUTES (pattern_parm);
23390 if (DECL_ATTRIBUTES (decl_parm) != attributes)
23392 DECL_ATTRIBUTES (decl_parm) = attributes;
23393 cplus_decl_attributes (&decl_parm, attributes, /*flags=*/0);
23395 decl_parm = DECL_CHAIN (decl_parm);
23398 /* Merge additional specifiers from the CODE_PATTERN. */
23399 if (DECL_DECLARED_INLINE_P (code_pattern)
23400 && !DECL_DECLARED_INLINE_P (decl))
23401 DECL_DECLARED_INLINE_P (decl) = 1;
23403 else if (VAR_P (decl))
23405 start_lambda_scope (decl);
23406 DECL_INITIAL (decl) =
23407 tsubst_expr (DECL_INITIAL (code_pattern), args,
23408 tf_error, DECL_TI_TEMPLATE (decl),
23409 /*integral_constant_expression_p=*/false);
23410 finish_lambda_scope ();
23411 if (VAR_HAD_UNKNOWN_BOUND (decl))
23412 TREE_TYPE (decl) = tsubst (TREE_TYPE (code_pattern), args,
23413 tf_error, DECL_TI_TEMPLATE (decl));
23415 else
23416 gcc_unreachable ();
23418 pop_access_scope (decl);
23421 /* Return the TEMPLATE_DECL into which DECL_TI_ARGS(DECL) should be
23422 substituted to get DECL. */
23424 tree
23425 template_for_substitution (tree decl)
23427 tree tmpl = DECL_TI_TEMPLATE (decl);
23429 /* Set TMPL to the template whose DECL_TEMPLATE_RESULT is the pattern
23430 for the instantiation. This is not always the most general
23431 template. Consider, for example:
23433 template <class T>
23434 struct S { template <class U> void f();
23435 template <> void f<int>(); };
23437 and an instantiation of S<double>::f<int>. We want TD to be the
23438 specialization S<T>::f<int>, not the more general S<T>::f<U>. */
23439 while (/* An instantiation cannot have a definition, so we need a
23440 more general template. */
23441 DECL_TEMPLATE_INSTANTIATION (tmpl)
23442 /* We must also deal with friend templates. Given:
23444 template <class T> struct S {
23445 template <class U> friend void f() {};
23448 S<int>::f<U> say, is not an instantiation of S<T>::f<U>,
23449 so far as the language is concerned, but that's still
23450 where we get the pattern for the instantiation from. On
23451 other hand, if the definition comes outside the class, say:
23453 template <class T> struct S {
23454 template <class U> friend void f();
23456 template <class U> friend void f() {}
23458 we don't need to look any further. That's what the check for
23459 DECL_INITIAL is for. */
23460 || (TREE_CODE (decl) == FUNCTION_DECL
23461 && DECL_FRIEND_PSEUDO_TEMPLATE_INSTANTIATION (tmpl)
23462 && !DECL_INITIAL (DECL_TEMPLATE_RESULT (tmpl))))
23464 /* The present template, TD, should not be a definition. If it
23465 were a definition, we should be using it! Note that we
23466 cannot restructure the loop to just keep going until we find
23467 a template with a definition, since that might go too far if
23468 a specialization was declared, but not defined. */
23470 /* Fetch the more general template. */
23471 tmpl = DECL_TI_TEMPLATE (tmpl);
23474 return tmpl;
23477 /* Returns true if we need to instantiate this template instance even if we
23478 know we aren't going to emit it. */
23480 bool
23481 always_instantiate_p (tree decl)
23483 /* We always instantiate inline functions so that we can inline them. An
23484 explicit instantiation declaration prohibits implicit instantiation of
23485 non-inline functions. With high levels of optimization, we would
23486 normally inline non-inline functions -- but we're not allowed to do
23487 that for "extern template" functions. Therefore, we check
23488 DECL_DECLARED_INLINE_P, rather than possibly_inlined_p. */
23489 return ((TREE_CODE (decl) == FUNCTION_DECL
23490 && (DECL_DECLARED_INLINE_P (decl)
23491 || type_uses_auto (TREE_TYPE (TREE_TYPE (decl)))))
23492 /* And we need to instantiate static data members so that
23493 their initializers are available in integral constant
23494 expressions. */
23495 || (VAR_P (decl)
23496 && decl_maybe_constant_var_p (decl)));
23499 /* If FN has a noexcept-specifier that hasn't been instantiated yet,
23500 instantiate it now, modifying TREE_TYPE (fn). Returns false on
23501 error, true otherwise. */
23503 bool
23504 maybe_instantiate_noexcept (tree fn, tsubst_flags_t complain)
23506 tree fntype, spec, noex, clone;
23508 /* Don't instantiate a noexcept-specification from template context. */
23509 if (processing_template_decl
23510 && (!flag_noexcept_type || type_dependent_expression_p (fn)))
23511 return true;
23513 if (DECL_CLONED_FUNCTION_P (fn))
23514 fn = DECL_CLONED_FUNCTION (fn);
23515 fntype = TREE_TYPE (fn);
23516 spec = TYPE_RAISES_EXCEPTIONS (fntype);
23518 if (!spec || !TREE_PURPOSE (spec))
23519 return true;
23521 noex = TREE_PURPOSE (spec);
23523 if (TREE_CODE (noex) == DEFERRED_NOEXCEPT)
23525 static hash_set<tree>* fns = new hash_set<tree>;
23526 bool added = false;
23527 if (DEFERRED_NOEXCEPT_PATTERN (noex) == NULL_TREE)
23528 spec = get_defaulted_eh_spec (fn, complain);
23529 else if (!(added = !fns->add (fn)))
23531 /* If hash_set::add returns true, the element was already there. */
23532 location_t loc = EXPR_LOC_OR_LOC (DEFERRED_NOEXCEPT_PATTERN (noex),
23533 DECL_SOURCE_LOCATION (fn));
23534 error_at (loc,
23535 "exception specification of %qD depends on itself",
23536 fn);
23537 spec = noexcept_false_spec;
23539 else if (push_tinst_level (fn))
23541 push_access_scope (fn);
23542 push_deferring_access_checks (dk_no_deferred);
23543 input_location = DECL_SOURCE_LOCATION (fn);
23544 noex = tsubst_copy_and_build (DEFERRED_NOEXCEPT_PATTERN (noex),
23545 DEFERRED_NOEXCEPT_ARGS (noex),
23546 tf_warning_or_error, fn,
23547 /*function_p=*/false,
23548 /*integral_constant_expression_p=*/true);
23549 spec = build_noexcept_spec (noex, tf_warning_or_error);
23550 pop_deferring_access_checks ();
23551 pop_access_scope (fn);
23552 pop_tinst_level ();
23553 if (spec == error_mark_node)
23554 spec = noexcept_false_spec;
23556 else
23557 spec = noexcept_false_spec;
23559 if (added)
23560 fns->remove (fn);
23562 if (spec == error_mark_node)
23563 return false;
23565 TREE_TYPE (fn) = build_exception_variant (fntype, spec);
23568 FOR_EACH_CLONE (clone, fn)
23570 if (TREE_TYPE (clone) == fntype)
23571 TREE_TYPE (clone) = TREE_TYPE (fn);
23572 else
23573 TREE_TYPE (clone) = build_exception_variant (TREE_TYPE (clone), spec);
23576 return true;
23579 /* We're starting to process the function INST, an instantiation of PATTERN;
23580 add their parameters to local_specializations. */
23582 static void
23583 register_parameter_specializations (tree pattern, tree inst)
23585 tree tmpl_parm = DECL_ARGUMENTS (pattern);
23586 tree spec_parm = DECL_ARGUMENTS (inst);
23587 if (DECL_NONSTATIC_MEMBER_FUNCTION_P (inst))
23589 register_local_specialization (spec_parm, tmpl_parm);
23590 spec_parm = skip_artificial_parms_for (inst, spec_parm);
23591 tmpl_parm = skip_artificial_parms_for (pattern, tmpl_parm);
23593 for (; tmpl_parm; tmpl_parm = DECL_CHAIN (tmpl_parm))
23595 if (!DECL_PACK_P (tmpl_parm))
23597 register_local_specialization (spec_parm, tmpl_parm);
23598 spec_parm = DECL_CHAIN (spec_parm);
23600 else
23602 /* Register the (value) argument pack as a specialization of
23603 TMPL_PARM, then move on. */
23604 tree argpack = extract_fnparm_pack (tmpl_parm, &spec_parm);
23605 register_local_specialization (argpack, tmpl_parm);
23608 gcc_assert (!spec_parm);
23611 /* Produce the definition of D, a _DECL generated from a template. If
23612 DEFER_OK is true, then we don't have to actually do the
23613 instantiation now; we just have to do it sometime. Normally it is
23614 an error if this is an explicit instantiation but D is undefined.
23615 EXPL_INST_CLASS_MEM_P is true iff D is a member of an explicitly
23616 instantiated class template. */
23618 tree
23619 instantiate_decl (tree d, bool defer_ok, bool expl_inst_class_mem_p)
23621 tree tmpl = DECL_TI_TEMPLATE (d);
23622 tree gen_args;
23623 tree args;
23624 tree td;
23625 tree code_pattern;
23626 tree spec;
23627 tree gen_tmpl;
23628 bool pattern_defined;
23629 location_t saved_loc = input_location;
23630 int saved_unevaluated_operand = cp_unevaluated_operand;
23631 int saved_inhibit_evaluation_warnings = c_inhibit_evaluation_warnings;
23632 bool external_p;
23633 bool deleted_p;
23635 /* This function should only be used to instantiate templates for
23636 functions and static member variables. */
23637 gcc_assert (VAR_OR_FUNCTION_DECL_P (d));
23639 /* A concept is never instantiated. */
23640 gcc_assert (!DECL_DECLARED_CONCEPT_P (d));
23642 /* Variables are never deferred; if instantiation is required, they
23643 are instantiated right away. That allows for better code in the
23644 case that an expression refers to the value of the variable --
23645 if the variable has a constant value the referring expression can
23646 take advantage of that fact. */
23647 if (VAR_P (d))
23648 defer_ok = false;
23650 /* Don't instantiate cloned functions. Instead, instantiate the
23651 functions they cloned. */
23652 if (TREE_CODE (d) == FUNCTION_DECL && DECL_CLONED_FUNCTION_P (d))
23653 d = DECL_CLONED_FUNCTION (d);
23655 if (DECL_TEMPLATE_INSTANTIATED (d)
23656 || (TREE_CODE (d) == FUNCTION_DECL
23657 && DECL_DEFAULTED_FN (d) && DECL_INITIAL (d))
23658 || DECL_TEMPLATE_SPECIALIZATION (d))
23659 /* D has already been instantiated or explicitly specialized, so
23660 there's nothing for us to do here.
23662 It might seem reasonable to check whether or not D is an explicit
23663 instantiation, and, if so, stop here. But when an explicit
23664 instantiation is deferred until the end of the compilation,
23665 DECL_EXPLICIT_INSTANTIATION is set, even though we still need to do
23666 the instantiation. */
23667 return d;
23669 /* Check to see whether we know that this template will be
23670 instantiated in some other file, as with "extern template"
23671 extension. */
23672 external_p = (DECL_INTERFACE_KNOWN (d) && DECL_REALLY_EXTERN (d));
23674 /* In general, we do not instantiate such templates. */
23675 if (external_p && !always_instantiate_p (d))
23676 return d;
23678 gen_tmpl = most_general_template (tmpl);
23679 gen_args = DECL_TI_ARGS (d);
23681 if (tmpl != gen_tmpl)
23682 /* We should already have the extra args. */
23683 gcc_assert (TMPL_PARMS_DEPTH (DECL_TEMPLATE_PARMS (gen_tmpl))
23684 == TMPL_ARGS_DEPTH (gen_args));
23685 /* And what's in the hash table should match D. */
23686 gcc_assert ((spec = retrieve_specialization (gen_tmpl, gen_args, 0)) == d
23687 || spec == NULL_TREE);
23689 /* This needs to happen before any tsubsting. */
23690 if (! push_tinst_level (d))
23691 return d;
23693 timevar_push (TV_TEMPLATE_INST);
23695 /* Set TD to the template whose DECL_TEMPLATE_RESULT is the pattern
23696 for the instantiation. */
23697 td = template_for_substitution (d);
23698 args = gen_args;
23700 if (VAR_P (d))
23702 /* Look up an explicit specialization, if any. */
23703 tree tid = lookup_template_variable (gen_tmpl, gen_args);
23704 tree elt = most_specialized_partial_spec (tid, tf_warning_or_error);
23705 if (elt && elt != error_mark_node)
23707 td = TREE_VALUE (elt);
23708 args = TREE_PURPOSE (elt);
23712 code_pattern = DECL_TEMPLATE_RESULT (td);
23714 /* We should never be trying to instantiate a member of a class
23715 template or partial specialization. */
23716 gcc_assert (d != code_pattern);
23718 if ((DECL_NAMESPACE_SCOPE_P (d) && !DECL_INITIALIZED_IN_CLASS_P (d))
23719 || DECL_TEMPLATE_SPECIALIZATION (td))
23720 /* In the case of a friend template whose definition is provided
23721 outside the class, we may have too many arguments. Drop the
23722 ones we don't need. The same is true for specializations. */
23723 args = get_innermost_template_args
23724 (args, TMPL_PARMS_DEPTH (DECL_TEMPLATE_PARMS (td)));
23726 if (TREE_CODE (d) == FUNCTION_DECL)
23728 deleted_p = DECL_DELETED_FN (code_pattern);
23729 pattern_defined = ((DECL_SAVED_TREE (code_pattern) != NULL_TREE
23730 && DECL_INITIAL (code_pattern) != error_mark_node)
23731 || DECL_DEFAULTED_OUTSIDE_CLASS_P (code_pattern)
23732 || deleted_p);
23734 else
23736 deleted_p = false;
23737 if (DECL_CLASS_SCOPE_P (code_pattern))
23738 pattern_defined = (! DECL_IN_AGGR_P (code_pattern)
23739 || DECL_INLINE_VAR_P (code_pattern));
23740 else
23741 pattern_defined = ! DECL_EXTERNAL (code_pattern);
23744 /* We may be in the middle of deferred access check. Disable it now. */
23745 push_deferring_access_checks (dk_no_deferred);
23747 /* Unless an explicit instantiation directive has already determined
23748 the linkage of D, remember that a definition is available for
23749 this entity. */
23750 if (pattern_defined
23751 && !DECL_INTERFACE_KNOWN (d)
23752 && !DECL_NOT_REALLY_EXTERN (d))
23753 mark_definable (d);
23755 DECL_SOURCE_LOCATION (td) = DECL_SOURCE_LOCATION (code_pattern);
23756 DECL_SOURCE_LOCATION (d) = DECL_SOURCE_LOCATION (code_pattern);
23757 input_location = DECL_SOURCE_LOCATION (d);
23759 /* If D is a member of an explicitly instantiated class template,
23760 and no definition is available, treat it like an implicit
23761 instantiation. */
23762 if (!pattern_defined && expl_inst_class_mem_p
23763 && DECL_EXPLICIT_INSTANTIATION (d))
23765 /* Leave linkage flags alone on instantiations with anonymous
23766 visibility. */
23767 if (TREE_PUBLIC (d))
23769 DECL_NOT_REALLY_EXTERN (d) = 0;
23770 DECL_INTERFACE_KNOWN (d) = 0;
23772 SET_DECL_IMPLICIT_INSTANTIATION (d);
23775 /* Defer all other templates, unless we have been explicitly
23776 forbidden from doing so. */
23777 if (/* If there is no definition, we cannot instantiate the
23778 template. */
23779 ! pattern_defined
23780 /* If it's OK to postpone instantiation, do so. */
23781 || defer_ok
23782 /* If this is a static data member that will be defined
23783 elsewhere, we don't want to instantiate the entire data
23784 member, but we do want to instantiate the initializer so that
23785 we can substitute that elsewhere. */
23786 || (external_p && VAR_P (d))
23787 /* Handle here a deleted function too, avoid generating
23788 its body (c++/61080). */
23789 || deleted_p)
23791 /* The definition of the static data member is now required so
23792 we must substitute the initializer. */
23793 if (VAR_P (d)
23794 && !DECL_INITIAL (d)
23795 && DECL_INITIAL (code_pattern))
23797 tree ns;
23798 tree init;
23799 bool const_init = false;
23800 bool enter_context = DECL_CLASS_SCOPE_P (d);
23802 ns = decl_namespace_context (d);
23803 push_nested_namespace (ns);
23804 if (enter_context)
23805 push_nested_class (DECL_CONTEXT (d));
23806 init = tsubst_expr (DECL_INITIAL (code_pattern),
23807 args,
23808 tf_warning_or_error, NULL_TREE,
23809 /*integral_constant_expression_p=*/false);
23810 /* If instantiating the initializer involved instantiating this
23811 again, don't call cp_finish_decl twice. */
23812 if (!DECL_INITIAL (d))
23814 /* Make sure the initializer is still constant, in case of
23815 circular dependency (template/instantiate6.C). */
23816 const_init
23817 = DECL_INITIALIZED_BY_CONSTANT_EXPRESSION_P (code_pattern);
23818 cp_finish_decl (d, init, /*init_const_expr_p=*/const_init,
23819 /*asmspec_tree=*/NULL_TREE,
23820 LOOKUP_ONLYCONVERTING);
23822 if (enter_context)
23823 pop_nested_class ();
23824 pop_nested_namespace (ns);
23827 /* We restore the source position here because it's used by
23828 add_pending_template. */
23829 input_location = saved_loc;
23831 if (at_eof && !pattern_defined
23832 && DECL_EXPLICIT_INSTANTIATION (d)
23833 && DECL_NOT_REALLY_EXTERN (d))
23834 /* [temp.explicit]
23836 The definition of a non-exported function template, a
23837 non-exported member function template, or a non-exported
23838 member function or static data member of a class template
23839 shall be present in every translation unit in which it is
23840 explicitly instantiated. */
23841 permerror (input_location, "explicit instantiation of %qD "
23842 "but no definition available", d);
23844 /* If we're in unevaluated context, we just wanted to get the
23845 constant value; this isn't an odr use, so don't queue
23846 a full instantiation. */
23847 if (cp_unevaluated_operand != 0)
23848 goto out;
23849 /* ??? Historically, we have instantiated inline functions, even
23850 when marked as "extern template". */
23851 if (!(external_p && VAR_P (d)))
23852 add_pending_template (d);
23853 goto out;
23855 /* Tell the repository that D is available in this translation unit
23856 -- and see if it is supposed to be instantiated here. */
23857 if (TREE_PUBLIC (d) && !DECL_REALLY_EXTERN (d) && !repo_emit_p (d))
23859 /* In a PCH file, despite the fact that the repository hasn't
23860 requested instantiation in the PCH it is still possible that
23861 an instantiation will be required in a file that includes the
23862 PCH. */
23863 if (pch_file)
23864 add_pending_template (d);
23865 /* Instantiate inline functions so that the inliner can do its
23866 job, even though we'll not be emitting a copy of this
23867 function. */
23868 if (!(TREE_CODE (d) == FUNCTION_DECL && possibly_inlined_p (d)))
23869 goto out;
23872 bool push_to_top, nested;
23873 tree fn_context;
23874 fn_context = decl_function_context (d);
23875 if (LAMBDA_FUNCTION_P (d))
23876 /* tsubst_lambda_expr resolved any references to enclosing functions. */
23877 fn_context = NULL_TREE;
23878 nested = current_function_decl != NULL_TREE;
23879 push_to_top = !(nested && fn_context == current_function_decl);
23881 vec<tree> omp_privatization_save;
23882 if (nested)
23883 save_omp_privatization_clauses (omp_privatization_save);
23885 if (push_to_top)
23886 push_to_top_level ();
23887 else
23889 push_function_context ();
23890 cp_unevaluated_operand = 0;
23891 c_inhibit_evaluation_warnings = 0;
23894 /* Mark D as instantiated so that recursive calls to
23895 instantiate_decl do not try to instantiate it again. */
23896 DECL_TEMPLATE_INSTANTIATED (d) = 1;
23898 /* Regenerate the declaration in case the template has been modified
23899 by a subsequent redeclaration. */
23900 regenerate_decl_from_template (d, td, args);
23902 /* We already set the file and line above. Reset them now in case
23903 they changed as a result of calling regenerate_decl_from_template. */
23904 input_location = DECL_SOURCE_LOCATION (d);
23906 if (VAR_P (d))
23908 tree init;
23909 bool const_init = false;
23911 /* Clear out DECL_RTL; whatever was there before may not be right
23912 since we've reset the type of the declaration. */
23913 SET_DECL_RTL (d, NULL);
23914 DECL_IN_AGGR_P (d) = 0;
23916 /* The initializer is placed in DECL_INITIAL by
23917 regenerate_decl_from_template so we don't need to
23918 push/pop_access_scope again here. Pull it out so that
23919 cp_finish_decl can process it. */
23920 init = DECL_INITIAL (d);
23921 DECL_INITIAL (d) = NULL_TREE;
23922 DECL_INITIALIZED_P (d) = 0;
23924 /* Clear DECL_EXTERNAL so that cp_finish_decl will process the
23925 initializer. That function will defer actual emission until
23926 we have a chance to determine linkage. */
23927 DECL_EXTERNAL (d) = 0;
23929 /* Enter the scope of D so that access-checking works correctly. */
23930 bool enter_context = DECL_CLASS_SCOPE_P (d);
23931 if (enter_context)
23932 push_nested_class (DECL_CONTEXT (d));
23934 const_init = DECL_INITIALIZED_BY_CONSTANT_EXPRESSION_P (code_pattern);
23935 cp_finish_decl (d, init, const_init, NULL_TREE, 0);
23937 if (enter_context)
23938 pop_nested_class ();
23940 if (variable_template_p (gen_tmpl))
23941 note_variable_template_instantiation (d);
23943 else if (TREE_CODE (d) == FUNCTION_DECL && DECL_DEFAULTED_FN (code_pattern))
23944 synthesize_method (d);
23945 else if (TREE_CODE (d) == FUNCTION_DECL)
23947 /* Set up the list of local specializations. */
23948 local_specialization_stack lss (push_to_top ? lss_blank : lss_copy);
23949 tree block = NULL_TREE;
23951 /* Set up context. */
23952 if (DECL_OMP_DECLARE_REDUCTION_P (code_pattern)
23953 && TREE_CODE (DECL_CONTEXT (code_pattern)) == FUNCTION_DECL)
23954 block = push_stmt_list ();
23955 else
23956 start_preparsed_function (d, NULL_TREE, SF_PRE_PARSED);
23958 /* Some typedefs referenced from within the template code need to be
23959 access checked at template instantiation time, i.e now. These
23960 types were added to the template at parsing time. Let's get those
23961 and perform the access checks then. */
23962 perform_typedefs_access_check (DECL_TEMPLATE_RESULT (td),
23963 args);
23965 /* Create substitution entries for the parameters. */
23966 register_parameter_specializations (code_pattern, d);
23968 /* Substitute into the body of the function. */
23969 if (DECL_OMP_DECLARE_REDUCTION_P (code_pattern))
23970 tsubst_omp_udr (DECL_SAVED_TREE (code_pattern), args,
23971 tf_warning_or_error, tmpl);
23972 else
23974 tsubst_expr (DECL_SAVED_TREE (code_pattern), args,
23975 tf_warning_or_error, tmpl,
23976 /*integral_constant_expression_p=*/false);
23978 /* Set the current input_location to the end of the function
23979 so that finish_function knows where we are. */
23980 input_location
23981 = DECL_STRUCT_FUNCTION (code_pattern)->function_end_locus;
23983 /* Remember if we saw an infinite loop in the template. */
23984 current_function_infinite_loop
23985 = DECL_STRUCT_FUNCTION (code_pattern)->language->infinite_loop;
23988 /* Finish the function. */
23989 if (DECL_OMP_DECLARE_REDUCTION_P (code_pattern)
23990 && TREE_CODE (DECL_CONTEXT (code_pattern)) == FUNCTION_DECL)
23991 DECL_SAVED_TREE (d) = pop_stmt_list (block);
23992 else
23994 d = finish_function (/*inline_p=*/false);
23995 expand_or_defer_fn (d);
23998 if (DECL_OMP_DECLARE_REDUCTION_P (code_pattern))
23999 cp_check_omp_declare_reduction (d);
24002 /* We're not deferring instantiation any more. */
24003 TI_PENDING_TEMPLATE_FLAG (DECL_TEMPLATE_INFO (d)) = 0;
24005 if (push_to_top)
24006 pop_from_top_level ();
24007 else
24008 pop_function_context ();
24010 if (nested)
24011 restore_omp_privatization_clauses (omp_privatization_save);
24013 out:
24014 pop_deferring_access_checks ();
24015 timevar_pop (TV_TEMPLATE_INST);
24016 pop_tinst_level ();
24017 input_location = saved_loc;
24018 cp_unevaluated_operand = saved_unevaluated_operand;
24019 c_inhibit_evaluation_warnings = saved_inhibit_evaluation_warnings;
24021 return d;
24024 /* Run through the list of templates that we wish we could
24025 instantiate, and instantiate any we can. RETRIES is the
24026 number of times we retry pending template instantiation. */
24028 void
24029 instantiate_pending_templates (int retries)
24031 int reconsider;
24032 location_t saved_loc = input_location;
24034 /* Instantiating templates may trigger vtable generation. This in turn
24035 may require further template instantiations. We place a limit here
24036 to avoid infinite loop. */
24037 if (pending_templates && retries >= max_tinst_depth)
24039 tree decl = pending_templates->tinst->maybe_get_node ();
24041 fatal_error (input_location,
24042 "template instantiation depth exceeds maximum of %d"
24043 " instantiating %q+D, possibly from virtual table generation"
24044 " (use -ftemplate-depth= to increase the maximum)",
24045 max_tinst_depth, decl);
24046 if (TREE_CODE (decl) == FUNCTION_DECL)
24047 /* Pretend that we defined it. */
24048 DECL_INITIAL (decl) = error_mark_node;
24049 return;
24054 struct pending_template **t = &pending_templates;
24055 struct pending_template *last = NULL;
24056 reconsider = 0;
24057 while (*t)
24059 tree instantiation = reopen_tinst_level ((*t)->tinst);
24060 bool complete = false;
24062 if (TYPE_P (instantiation))
24064 if (!COMPLETE_TYPE_P (instantiation))
24066 instantiate_class_template (instantiation);
24067 if (CLASSTYPE_TEMPLATE_INSTANTIATION (instantiation))
24068 for (tree fld = TYPE_FIELDS (instantiation);
24069 fld; fld = TREE_CHAIN (fld))
24070 if ((VAR_P (fld)
24071 || (TREE_CODE (fld) == FUNCTION_DECL
24072 && !DECL_ARTIFICIAL (fld)))
24073 && DECL_TEMPLATE_INSTANTIATION (fld))
24074 instantiate_decl (fld,
24075 /*defer_ok=*/false,
24076 /*expl_inst_class_mem_p=*/false);
24078 if (COMPLETE_TYPE_P (instantiation))
24079 reconsider = 1;
24082 complete = COMPLETE_TYPE_P (instantiation);
24084 else
24086 if (!DECL_TEMPLATE_SPECIALIZATION (instantiation)
24087 && !DECL_TEMPLATE_INSTANTIATED (instantiation))
24089 instantiation
24090 = instantiate_decl (instantiation,
24091 /*defer_ok=*/false,
24092 /*expl_inst_class_mem_p=*/false);
24093 if (DECL_TEMPLATE_INSTANTIATED (instantiation))
24094 reconsider = 1;
24097 complete = (DECL_TEMPLATE_SPECIALIZATION (instantiation)
24098 || DECL_TEMPLATE_INSTANTIATED (instantiation));
24101 if (complete)
24103 /* If INSTANTIATION has been instantiated, then we don't
24104 need to consider it again in the future. */
24105 struct pending_template *drop = *t;
24106 *t = (*t)->next;
24107 set_refcount_ptr (drop->tinst);
24108 pending_template_freelist ().free (drop);
24110 else
24112 last = *t;
24113 t = &(*t)->next;
24115 tinst_depth = 0;
24116 set_refcount_ptr (current_tinst_level);
24118 last_pending_template = last;
24120 while (reconsider);
24122 input_location = saved_loc;
24125 /* Substitute ARGVEC into T, which is a list of initializers for
24126 either base class or a non-static data member. The TREE_PURPOSEs
24127 are DECLs, and the TREE_VALUEs are the initializer values. Used by
24128 instantiate_decl. */
24130 static tree
24131 tsubst_initializer_list (tree t, tree argvec)
24133 tree inits = NULL_TREE;
24134 tree target_ctor = error_mark_node;
24136 for (; t; t = TREE_CHAIN (t))
24138 tree decl;
24139 tree init;
24140 tree expanded_bases = NULL_TREE;
24141 tree expanded_arguments = NULL_TREE;
24142 int i, len = 1;
24144 if (TREE_CODE (TREE_PURPOSE (t)) == TYPE_PACK_EXPANSION)
24146 tree expr;
24147 tree arg;
24149 /* Expand the base class expansion type into separate base
24150 classes. */
24151 expanded_bases = tsubst_pack_expansion (TREE_PURPOSE (t), argvec,
24152 tf_warning_or_error,
24153 NULL_TREE);
24154 if (expanded_bases == error_mark_node)
24155 continue;
24157 /* We'll be building separate TREE_LISTs of arguments for
24158 each base. */
24159 len = TREE_VEC_LENGTH (expanded_bases);
24160 expanded_arguments = make_tree_vec (len);
24161 for (i = 0; i < len; i++)
24162 TREE_VEC_ELT (expanded_arguments, i) = NULL_TREE;
24164 /* Build a dummy EXPR_PACK_EXPANSION that will be used to
24165 expand each argument in the TREE_VALUE of t. */
24166 expr = make_node (EXPR_PACK_EXPANSION);
24167 PACK_EXPANSION_LOCAL_P (expr) = true;
24168 PACK_EXPANSION_PARAMETER_PACKS (expr) =
24169 PACK_EXPANSION_PARAMETER_PACKS (TREE_PURPOSE (t));
24171 if (TREE_VALUE (t) == void_type_node)
24172 /* VOID_TYPE_NODE is used to indicate
24173 value-initialization. */
24175 for (i = 0; i < len; i++)
24176 TREE_VEC_ELT (expanded_arguments, i) = void_type_node;
24178 else
24180 /* Substitute parameter packs into each argument in the
24181 TREE_LIST. */
24182 in_base_initializer = 1;
24183 for (arg = TREE_VALUE (t); arg; arg = TREE_CHAIN (arg))
24185 tree expanded_exprs;
24187 /* Expand the argument. */
24188 SET_PACK_EXPANSION_PATTERN (expr, TREE_VALUE (arg));
24189 expanded_exprs
24190 = tsubst_pack_expansion (expr, argvec,
24191 tf_warning_or_error,
24192 NULL_TREE);
24193 if (expanded_exprs == error_mark_node)
24194 continue;
24196 /* Prepend each of the expanded expressions to the
24197 corresponding TREE_LIST in EXPANDED_ARGUMENTS. */
24198 for (i = 0; i < len; i++)
24200 TREE_VEC_ELT (expanded_arguments, i) =
24201 tree_cons (NULL_TREE,
24202 TREE_VEC_ELT (expanded_exprs, i),
24203 TREE_VEC_ELT (expanded_arguments, i));
24206 in_base_initializer = 0;
24208 /* Reverse all of the TREE_LISTs in EXPANDED_ARGUMENTS,
24209 since we built them backwards. */
24210 for (i = 0; i < len; i++)
24212 TREE_VEC_ELT (expanded_arguments, i) =
24213 nreverse (TREE_VEC_ELT (expanded_arguments, i));
24218 for (i = 0; i < len; ++i)
24220 if (expanded_bases)
24222 decl = TREE_VEC_ELT (expanded_bases, i);
24223 decl = expand_member_init (decl);
24224 init = TREE_VEC_ELT (expanded_arguments, i);
24226 else
24228 tree tmp;
24229 decl = tsubst_copy (TREE_PURPOSE (t), argvec,
24230 tf_warning_or_error, NULL_TREE);
24232 decl = expand_member_init (decl);
24233 if (decl && !DECL_P (decl))
24234 in_base_initializer = 1;
24236 init = TREE_VALUE (t);
24237 tmp = init;
24238 if (init != void_type_node)
24239 init = tsubst_expr (init, argvec,
24240 tf_warning_or_error, NULL_TREE,
24241 /*integral_constant_expression_p=*/false);
24242 if (init == NULL_TREE && tmp != NULL_TREE)
24243 /* If we had an initializer but it instantiated to nothing,
24244 value-initialize the object. This will only occur when
24245 the initializer was a pack expansion where the parameter
24246 packs used in that expansion were of length zero. */
24247 init = void_type_node;
24248 in_base_initializer = 0;
24251 if (target_ctor != error_mark_node
24252 && init != error_mark_node)
24254 error ("mem-initializer for %qD follows constructor delegation",
24255 decl);
24256 return inits;
24258 /* Look for a target constructor. */
24259 if (init != error_mark_node
24260 && decl && CLASS_TYPE_P (decl)
24261 && same_type_p (decl, current_class_type))
24263 maybe_warn_cpp0x (CPP0X_DELEGATING_CTORS);
24264 if (inits)
24266 error ("constructor delegation follows mem-initializer for %qD",
24267 TREE_PURPOSE (inits));
24268 continue;
24270 target_ctor = init;
24273 if (decl)
24275 init = build_tree_list (decl, init);
24276 TREE_CHAIN (init) = inits;
24277 inits = init;
24281 return inits;
24284 /* Set CURRENT_ACCESS_SPECIFIER based on the protection of DECL. */
24286 static void
24287 set_current_access_from_decl (tree decl)
24289 if (TREE_PRIVATE (decl))
24290 current_access_specifier = access_private_node;
24291 else if (TREE_PROTECTED (decl))
24292 current_access_specifier = access_protected_node;
24293 else
24294 current_access_specifier = access_public_node;
24297 /* Instantiate an enumerated type. TAG is the template type, NEWTAG
24298 is the instantiation (which should have been created with
24299 start_enum) and ARGS are the template arguments to use. */
24301 static void
24302 tsubst_enum (tree tag, tree newtag, tree args)
24304 tree e;
24306 if (SCOPED_ENUM_P (newtag))
24307 begin_scope (sk_scoped_enum, newtag);
24309 for (e = TYPE_VALUES (tag); e; e = TREE_CHAIN (e))
24311 tree value;
24312 tree decl;
24314 decl = TREE_VALUE (e);
24315 /* Note that in a template enum, the TREE_VALUE is the
24316 CONST_DECL, not the corresponding INTEGER_CST. */
24317 value = tsubst_expr (DECL_INITIAL (decl),
24318 args, tf_warning_or_error, NULL_TREE,
24319 /*integral_constant_expression_p=*/true);
24321 /* Give this enumeration constant the correct access. */
24322 set_current_access_from_decl (decl);
24324 /* Actually build the enumerator itself. Here we're assuming that
24325 enumerators can't have dependent attributes. */
24326 build_enumerator (DECL_NAME (decl), value, newtag,
24327 DECL_ATTRIBUTES (decl), DECL_SOURCE_LOCATION (decl));
24330 if (SCOPED_ENUM_P (newtag))
24331 finish_scope ();
24333 finish_enum_value_list (newtag);
24334 finish_enum (newtag);
24336 DECL_SOURCE_LOCATION (TYPE_NAME (newtag))
24337 = DECL_SOURCE_LOCATION (TYPE_NAME (tag));
24340 /* DECL is a FUNCTION_DECL that is a template specialization. Return
24341 its type -- but without substituting the innermost set of template
24342 arguments. So, innermost set of template parameters will appear in
24343 the type. */
24345 tree
24346 get_mostly_instantiated_function_type (tree decl)
24348 /* For a function, DECL_TI_TEMPLATE is partially instantiated. */
24349 return TREE_TYPE (DECL_TI_TEMPLATE (decl));
24352 /* Return truthvalue if we're processing a template different from
24353 the last one involved in diagnostics. */
24354 bool
24355 problematic_instantiation_changed (void)
24357 return current_tinst_level != last_error_tinst_level;
24360 /* Remember current template involved in diagnostics. */
24361 void
24362 record_last_problematic_instantiation (void)
24364 set_refcount_ptr (last_error_tinst_level, current_tinst_level);
24367 struct tinst_level *
24368 current_instantiation (void)
24370 return current_tinst_level;
24373 /* Return TRUE if current_function_decl is being instantiated, false
24374 otherwise. */
24376 bool
24377 instantiating_current_function_p (void)
24379 return (current_instantiation ()
24380 && (current_instantiation ()->maybe_get_node ()
24381 == current_function_decl));
24384 /* [temp.param] Check that template non-type parm TYPE is of an allowable
24385 type. Return false for ok, true for disallowed. Issue error and
24386 inform messages under control of COMPLAIN. */
24388 static bool
24389 invalid_nontype_parm_type_p (tree type, tsubst_flags_t complain)
24391 if (INTEGRAL_OR_ENUMERATION_TYPE_P (type))
24392 return false;
24393 else if (TYPE_PTR_P (type))
24394 return false;
24395 else if (TREE_CODE (type) == REFERENCE_TYPE
24396 && !TYPE_REF_IS_RVALUE (type))
24397 return false;
24398 else if (TYPE_PTRMEM_P (type))
24399 return false;
24400 else if (TREE_CODE (type) == TEMPLATE_TYPE_PARM)
24401 return false;
24402 else if (TREE_CODE (type) == TYPENAME_TYPE)
24403 return false;
24404 else if (TREE_CODE (type) == DECLTYPE_TYPE)
24405 return false;
24406 else if (TREE_CODE (type) == NULLPTR_TYPE)
24407 return false;
24408 /* A bound template template parm could later be instantiated to have a valid
24409 nontype parm type via an alias template. */
24410 else if (cxx_dialect >= cxx11
24411 && TREE_CODE (type) == BOUND_TEMPLATE_TEMPLATE_PARM)
24412 return false;
24414 if (complain & tf_error)
24416 if (type == error_mark_node)
24417 inform (input_location, "invalid template non-type parameter");
24418 else
24419 error ("%q#T is not a valid type for a template non-type parameter",
24420 type);
24422 return true;
24425 /* Returns TRUE if TYPE is dependent, in the sense of [temp.dep.type].
24426 Assumes that TYPE really is a type, and not the ERROR_MARK_NODE.*/
24428 static bool
24429 dependent_type_p_r (tree type)
24431 tree scope;
24433 /* [temp.dep.type]
24435 A type is dependent if it is:
24437 -- a template parameter. Template template parameters are types
24438 for us (since TYPE_P holds true for them) so we handle
24439 them here. */
24440 if (TREE_CODE (type) == TEMPLATE_TYPE_PARM
24441 || TREE_CODE (type) == TEMPLATE_TEMPLATE_PARM)
24442 return true;
24443 /* -- a qualified-id with a nested-name-specifier which contains a
24444 class-name that names a dependent type or whose unqualified-id
24445 names a dependent type. */
24446 if (TREE_CODE (type) == TYPENAME_TYPE)
24447 return true;
24449 /* An alias template specialization can be dependent even if the
24450 resulting type is not. */
24451 if (dependent_alias_template_spec_p (type))
24452 return true;
24454 /* -- a cv-qualified type where the cv-unqualified type is
24455 dependent.
24456 No code is necessary for this bullet; the code below handles
24457 cv-qualified types, and we don't want to strip aliases with
24458 TYPE_MAIN_VARIANT because of DR 1558. */
24459 /* -- a compound type constructed from any dependent type. */
24460 if (TYPE_PTRMEM_P (type))
24461 return (dependent_type_p (TYPE_PTRMEM_CLASS_TYPE (type))
24462 || dependent_type_p (TYPE_PTRMEM_POINTED_TO_TYPE
24463 (type)));
24464 else if (TYPE_PTR_P (type)
24465 || TREE_CODE (type) == REFERENCE_TYPE)
24466 return dependent_type_p (TREE_TYPE (type));
24467 else if (TREE_CODE (type) == FUNCTION_TYPE
24468 || TREE_CODE (type) == METHOD_TYPE)
24470 tree arg_type;
24472 if (dependent_type_p (TREE_TYPE (type)))
24473 return true;
24474 for (arg_type = TYPE_ARG_TYPES (type);
24475 arg_type;
24476 arg_type = TREE_CHAIN (arg_type))
24477 if (dependent_type_p (TREE_VALUE (arg_type)))
24478 return true;
24479 if (cxx_dialect >= cxx17)
24480 /* A value-dependent noexcept-specifier makes the type dependent. */
24481 if (tree spec = TYPE_RAISES_EXCEPTIONS (type))
24482 if (tree noex = TREE_PURPOSE (spec))
24483 /* Treat DEFERRED_NOEXCEPT as non-dependent, since it doesn't
24484 affect overload resolution and treating it as dependent breaks
24485 things. */
24486 if (TREE_CODE (noex) != DEFERRED_NOEXCEPT
24487 && value_dependent_expression_p (noex))
24488 return true;
24489 return false;
24491 /* -- an array type constructed from any dependent type or whose
24492 size is specified by a constant expression that is
24493 value-dependent.
24495 We checked for type- and value-dependence of the bounds in
24496 compute_array_index_type, so TYPE_DEPENDENT_P is already set. */
24497 if (TREE_CODE (type) == ARRAY_TYPE)
24499 if (TYPE_DOMAIN (type)
24500 && dependent_type_p (TYPE_DOMAIN (type)))
24501 return true;
24502 return dependent_type_p (TREE_TYPE (type));
24505 /* -- a template-id in which either the template name is a template
24506 parameter ... */
24507 if (TREE_CODE (type) == BOUND_TEMPLATE_TEMPLATE_PARM)
24508 return true;
24509 /* ... or any of the template arguments is a dependent type or
24510 an expression that is type-dependent or value-dependent. */
24511 else if (CLASS_TYPE_P (type) && CLASSTYPE_TEMPLATE_INFO (type)
24512 && (any_dependent_template_arguments_p
24513 (INNERMOST_TEMPLATE_ARGS (CLASSTYPE_TI_ARGS (type)))))
24514 return true;
24516 /* All TYPEOF_TYPEs, DECLTYPE_TYPEs, and UNDERLYING_TYPEs are
24517 dependent; if the argument of the `typeof' expression is not
24518 type-dependent, then it should already been have resolved. */
24519 if (TREE_CODE (type) == TYPEOF_TYPE
24520 || TREE_CODE (type) == DECLTYPE_TYPE
24521 || TREE_CODE (type) == UNDERLYING_TYPE)
24522 return true;
24524 /* A template argument pack is dependent if any of its packed
24525 arguments are. */
24526 if (TREE_CODE (type) == TYPE_ARGUMENT_PACK)
24528 tree args = ARGUMENT_PACK_ARGS (type);
24529 int i, len = TREE_VEC_LENGTH (args);
24530 for (i = 0; i < len; ++i)
24531 if (dependent_template_arg_p (TREE_VEC_ELT (args, i)))
24532 return true;
24535 /* All TYPE_PACK_EXPANSIONs are dependent, because parameter packs must
24536 be template parameters. */
24537 if (TREE_CODE (type) == TYPE_PACK_EXPANSION)
24538 return true;
24540 if (any_dependent_type_attributes_p (TYPE_ATTRIBUTES (type)))
24541 return true;
24543 /* The standard does not specifically mention types that are local
24544 to template functions or local classes, but they should be
24545 considered dependent too. For example:
24547 template <int I> void f() {
24548 enum E { a = I };
24549 S<sizeof (E)> s;
24552 The size of `E' cannot be known until the value of `I' has been
24553 determined. Therefore, `E' must be considered dependent. */
24554 scope = TYPE_CONTEXT (type);
24555 if (scope && TYPE_P (scope))
24556 return dependent_type_p (scope);
24557 /* Don't use type_dependent_expression_p here, as it can lead
24558 to infinite recursion trying to determine whether a lambda
24559 nested in a lambda is dependent (c++/47687). */
24560 else if (scope && TREE_CODE (scope) == FUNCTION_DECL
24561 && DECL_LANG_SPECIFIC (scope)
24562 && DECL_TEMPLATE_INFO (scope)
24563 && (any_dependent_template_arguments_p
24564 (INNERMOST_TEMPLATE_ARGS (DECL_TI_ARGS (scope)))))
24565 return true;
24567 /* Other types are non-dependent. */
24568 return false;
24571 /* Returns TRUE if TYPE is dependent, in the sense of
24572 [temp.dep.type]. Note that a NULL type is considered dependent. */
24574 bool
24575 dependent_type_p (tree type)
24577 /* If there are no template parameters in scope, then there can't be
24578 any dependent types. */
24579 if (!processing_template_decl)
24581 /* If we are not processing a template, then nobody should be
24582 providing us with a dependent type. */
24583 gcc_assert (type);
24584 gcc_assert (TREE_CODE (type) != TEMPLATE_TYPE_PARM || is_auto (type));
24585 return false;
24588 /* If the type is NULL, we have not computed a type for the entity
24589 in question; in that case, the type is dependent. */
24590 if (!type)
24591 return true;
24593 /* Erroneous types can be considered non-dependent. */
24594 if (type == error_mark_node)
24595 return false;
24597 /* Getting here with global_type_node means we improperly called this
24598 function on the TREE_TYPE of an IDENTIFIER_NODE. */
24599 gcc_checking_assert (type != global_type_node);
24601 /* If we have not already computed the appropriate value for TYPE,
24602 do so now. */
24603 if (!TYPE_DEPENDENT_P_VALID (type))
24605 TYPE_DEPENDENT_P (type) = dependent_type_p_r (type);
24606 TYPE_DEPENDENT_P_VALID (type) = 1;
24609 return TYPE_DEPENDENT_P (type);
24612 /* Returns TRUE if SCOPE is a dependent scope, in which we can't do any
24613 lookup. In other words, a dependent type that is not the current
24614 instantiation. */
24616 bool
24617 dependent_scope_p (tree scope)
24619 return (scope && TYPE_P (scope) && dependent_type_p (scope)
24620 && !currently_open_class (scope));
24623 /* T is a SCOPE_REF. Return whether it represents a non-static member of
24624 an unknown base of 'this' (and is therefore instantiation-dependent). */
24626 static bool
24627 unknown_base_ref_p (tree t)
24629 if (!current_class_ptr)
24630 return false;
24632 tree mem = TREE_OPERAND (t, 1);
24633 if (shared_member_p (mem))
24634 return false;
24636 tree cur = current_nonlambda_class_type ();
24637 if (!any_dependent_bases_p (cur))
24638 return false;
24640 tree ctx = TREE_OPERAND (t, 0);
24641 if (DERIVED_FROM_P (ctx, cur))
24642 return false;
24644 return true;
24647 /* T is a SCOPE_REF; return whether we need to consider it
24648 instantiation-dependent so that we can check access at instantiation
24649 time even though we know which member it resolves to. */
24651 static bool
24652 instantiation_dependent_scope_ref_p (tree t)
24654 if (DECL_P (TREE_OPERAND (t, 1))
24655 && CLASS_TYPE_P (TREE_OPERAND (t, 0))
24656 && !unknown_base_ref_p (t)
24657 && accessible_in_template_p (TREE_OPERAND (t, 0),
24658 TREE_OPERAND (t, 1)))
24659 return false;
24660 else
24661 return true;
24664 /* Returns TRUE if the EXPRESSION is value-dependent, in the sense of
24665 [temp.dep.constexpr]. EXPRESSION is already known to be a constant
24666 expression. */
24668 /* Note that this predicate is not appropriate for general expressions;
24669 only constant expressions (that satisfy potential_constant_expression)
24670 can be tested for value dependence. */
24672 bool
24673 value_dependent_expression_p (tree expression)
24675 if (!processing_template_decl || expression == NULL_TREE)
24676 return false;
24678 /* A type-dependent expression is also value-dependent. */
24679 if (type_dependent_expression_p (expression))
24680 return true;
24682 switch (TREE_CODE (expression))
24684 case BASELINK:
24685 /* A dependent member function of the current instantiation. */
24686 return dependent_type_p (BINFO_TYPE (BASELINK_BINFO (expression)));
24688 case FUNCTION_DECL:
24689 /* A dependent member function of the current instantiation. */
24690 if (DECL_CLASS_SCOPE_P (expression)
24691 && dependent_type_p (DECL_CONTEXT (expression)))
24692 return true;
24693 break;
24695 case IDENTIFIER_NODE:
24696 /* A name that has not been looked up -- must be dependent. */
24697 return true;
24699 case TEMPLATE_PARM_INDEX:
24700 /* A non-type template parm. */
24701 return true;
24703 case CONST_DECL:
24704 /* A non-type template parm. */
24705 if (DECL_TEMPLATE_PARM_P (expression))
24706 return true;
24707 return value_dependent_expression_p (DECL_INITIAL (expression));
24709 case VAR_DECL:
24710 /* A constant with literal type and is initialized
24711 with an expression that is value-dependent. */
24712 if (DECL_DEPENDENT_INIT_P (expression)
24713 /* FIXME cp_finish_decl doesn't fold reference initializers. */
24714 || TREE_CODE (TREE_TYPE (expression)) == REFERENCE_TYPE)
24715 return true;
24716 if (DECL_HAS_VALUE_EXPR_P (expression))
24718 tree value_expr = DECL_VALUE_EXPR (expression);
24719 if (value_dependent_expression_p (value_expr))
24720 return true;
24722 return false;
24724 case DYNAMIC_CAST_EXPR:
24725 case STATIC_CAST_EXPR:
24726 case CONST_CAST_EXPR:
24727 case REINTERPRET_CAST_EXPR:
24728 case CAST_EXPR:
24729 case IMPLICIT_CONV_EXPR:
24730 /* These expressions are value-dependent if the type to which
24731 the cast occurs is dependent or the expression being casted
24732 is value-dependent. */
24734 tree type = TREE_TYPE (expression);
24736 if (dependent_type_p (type))
24737 return true;
24739 /* A functional cast has a list of operands. */
24740 expression = TREE_OPERAND (expression, 0);
24741 if (!expression)
24743 /* If there are no operands, it must be an expression such
24744 as "int()". This should not happen for aggregate types
24745 because it would form non-constant expressions. */
24746 gcc_assert (cxx_dialect >= cxx11
24747 || INTEGRAL_OR_ENUMERATION_TYPE_P (type));
24749 return false;
24752 if (TREE_CODE (expression) == TREE_LIST)
24753 return any_value_dependent_elements_p (expression);
24755 return value_dependent_expression_p (expression);
24758 case SIZEOF_EXPR:
24759 if (SIZEOF_EXPR_TYPE_P (expression))
24760 return dependent_type_p (TREE_TYPE (TREE_OPERAND (expression, 0)));
24761 /* FALLTHRU */
24762 case ALIGNOF_EXPR:
24763 case TYPEID_EXPR:
24764 /* A `sizeof' expression is value-dependent if the operand is
24765 type-dependent or is a pack expansion. */
24766 expression = TREE_OPERAND (expression, 0);
24767 if (PACK_EXPANSION_P (expression))
24768 return true;
24769 else if (TYPE_P (expression))
24770 return dependent_type_p (expression);
24771 return instantiation_dependent_uneval_expression_p (expression);
24773 case AT_ENCODE_EXPR:
24774 /* An 'encode' expression is value-dependent if the operand is
24775 type-dependent. */
24776 expression = TREE_OPERAND (expression, 0);
24777 return dependent_type_p (expression);
24779 case NOEXCEPT_EXPR:
24780 expression = TREE_OPERAND (expression, 0);
24781 return instantiation_dependent_uneval_expression_p (expression);
24783 case SCOPE_REF:
24784 /* All instantiation-dependent expressions should also be considered
24785 value-dependent. */
24786 return instantiation_dependent_scope_ref_p (expression);
24788 case COMPONENT_REF:
24789 return (value_dependent_expression_p (TREE_OPERAND (expression, 0))
24790 || value_dependent_expression_p (TREE_OPERAND (expression, 1)));
24792 case NONTYPE_ARGUMENT_PACK:
24793 /* A NONTYPE_ARGUMENT_PACK is value-dependent if any packed argument
24794 is value-dependent. */
24796 tree values = ARGUMENT_PACK_ARGS (expression);
24797 int i, len = TREE_VEC_LENGTH (values);
24799 for (i = 0; i < len; ++i)
24800 if (value_dependent_expression_p (TREE_VEC_ELT (values, i)))
24801 return true;
24803 return false;
24806 case TRAIT_EXPR:
24808 tree type2 = TRAIT_EXPR_TYPE2 (expression);
24810 if (dependent_type_p (TRAIT_EXPR_TYPE1 (expression)))
24811 return true;
24813 if (!type2)
24814 return false;
24816 if (TREE_CODE (type2) != TREE_LIST)
24817 return dependent_type_p (type2);
24819 for (; type2; type2 = TREE_CHAIN (type2))
24820 if (dependent_type_p (TREE_VALUE (type2)))
24821 return true;
24823 return false;
24826 case MODOP_EXPR:
24827 return ((value_dependent_expression_p (TREE_OPERAND (expression, 0)))
24828 || (value_dependent_expression_p (TREE_OPERAND (expression, 2))));
24830 case ARRAY_REF:
24831 return ((value_dependent_expression_p (TREE_OPERAND (expression, 0)))
24832 || (value_dependent_expression_p (TREE_OPERAND (expression, 1))));
24834 case ADDR_EXPR:
24836 tree op = TREE_OPERAND (expression, 0);
24837 return (value_dependent_expression_p (op)
24838 || has_value_dependent_address (op));
24841 case REQUIRES_EXPR:
24842 /* Treat all requires-expressions as value-dependent so
24843 we don't try to fold them. */
24844 return true;
24846 case TYPE_REQ:
24847 return dependent_type_p (TREE_OPERAND (expression, 0));
24849 case CALL_EXPR:
24851 if (value_dependent_expression_p (CALL_EXPR_FN (expression)))
24852 return true;
24853 tree fn = get_callee_fndecl (expression);
24854 int i, nargs;
24855 nargs = call_expr_nargs (expression);
24856 for (i = 0; i < nargs; ++i)
24858 tree op = CALL_EXPR_ARG (expression, i);
24859 /* In a call to a constexpr member function, look through the
24860 implicit ADDR_EXPR on the object argument so that it doesn't
24861 cause the call to be considered value-dependent. We also
24862 look through it in potential_constant_expression. */
24863 if (i == 0 && fn && DECL_DECLARED_CONSTEXPR_P (fn)
24864 && DECL_NONSTATIC_MEMBER_FUNCTION_P (fn)
24865 && TREE_CODE (op) == ADDR_EXPR)
24866 op = TREE_OPERAND (op, 0);
24867 if (value_dependent_expression_p (op))
24868 return true;
24870 return false;
24873 case TEMPLATE_ID_EXPR:
24874 return variable_concept_p (TREE_OPERAND (expression, 0));
24876 case CONSTRUCTOR:
24878 unsigned ix;
24879 tree val;
24880 if (dependent_type_p (TREE_TYPE (expression)))
24881 return true;
24882 FOR_EACH_CONSTRUCTOR_VALUE (CONSTRUCTOR_ELTS (expression), ix, val)
24883 if (value_dependent_expression_p (val))
24884 return true;
24885 return false;
24888 case STMT_EXPR:
24889 /* Treat a GNU statement expression as dependent to avoid crashing
24890 under instantiate_non_dependent_expr; it can't be constant. */
24891 return true;
24893 default:
24894 /* A constant expression is value-dependent if any subexpression is
24895 value-dependent. */
24896 switch (TREE_CODE_CLASS (TREE_CODE (expression)))
24898 case tcc_reference:
24899 case tcc_unary:
24900 case tcc_comparison:
24901 case tcc_binary:
24902 case tcc_expression:
24903 case tcc_vl_exp:
24905 int i, len = cp_tree_operand_length (expression);
24907 for (i = 0; i < len; i++)
24909 tree t = TREE_OPERAND (expression, i);
24911 /* In some cases, some of the operands may be missing.
24912 (For example, in the case of PREDECREMENT_EXPR, the
24913 amount to increment by may be missing.) That doesn't
24914 make the expression dependent. */
24915 if (t && value_dependent_expression_p (t))
24916 return true;
24919 break;
24920 default:
24921 break;
24923 break;
24926 /* The expression is not value-dependent. */
24927 return false;
24930 /* Returns TRUE if the EXPRESSION is type-dependent, in the sense of
24931 [temp.dep.expr]. Note that an expression with no type is
24932 considered dependent. Other parts of the compiler arrange for an
24933 expression with type-dependent subexpressions to have no type, so
24934 this function doesn't have to be fully recursive. */
24936 bool
24937 type_dependent_expression_p (tree expression)
24939 if (!processing_template_decl)
24940 return false;
24942 if (expression == NULL_TREE || expression == error_mark_node)
24943 return false;
24945 STRIP_ANY_LOCATION_WRAPPER (expression);
24947 /* An unresolved name is always dependent. */
24948 if (identifier_p (expression)
24949 || TREE_CODE (expression) == USING_DECL
24950 || TREE_CODE (expression) == WILDCARD_DECL)
24951 return true;
24953 /* A fold expression is type-dependent. */
24954 if (TREE_CODE (expression) == UNARY_LEFT_FOLD_EXPR
24955 || TREE_CODE (expression) == UNARY_RIGHT_FOLD_EXPR
24956 || TREE_CODE (expression) == BINARY_LEFT_FOLD_EXPR
24957 || TREE_CODE (expression) == BINARY_RIGHT_FOLD_EXPR)
24958 return true;
24960 /* Some expression forms are never type-dependent. */
24961 if (TREE_CODE (expression) == PSEUDO_DTOR_EXPR
24962 || TREE_CODE (expression) == SIZEOF_EXPR
24963 || TREE_CODE (expression) == ALIGNOF_EXPR
24964 || TREE_CODE (expression) == AT_ENCODE_EXPR
24965 || TREE_CODE (expression) == NOEXCEPT_EXPR
24966 || TREE_CODE (expression) == TRAIT_EXPR
24967 || TREE_CODE (expression) == TYPEID_EXPR
24968 || TREE_CODE (expression) == DELETE_EXPR
24969 || TREE_CODE (expression) == VEC_DELETE_EXPR
24970 || TREE_CODE (expression) == THROW_EXPR
24971 || TREE_CODE (expression) == REQUIRES_EXPR)
24972 return false;
24974 /* The types of these expressions depends only on the type to which
24975 the cast occurs. */
24976 if (TREE_CODE (expression) == DYNAMIC_CAST_EXPR
24977 || TREE_CODE (expression) == STATIC_CAST_EXPR
24978 || TREE_CODE (expression) == CONST_CAST_EXPR
24979 || TREE_CODE (expression) == REINTERPRET_CAST_EXPR
24980 || TREE_CODE (expression) == IMPLICIT_CONV_EXPR
24981 || TREE_CODE (expression) == CAST_EXPR)
24982 return dependent_type_p (TREE_TYPE (expression));
24984 /* The types of these expressions depends only on the type created
24985 by the expression. */
24986 if (TREE_CODE (expression) == NEW_EXPR
24987 || TREE_CODE (expression) == VEC_NEW_EXPR)
24989 /* For NEW_EXPR tree nodes created inside a template, either
24990 the object type itself or a TREE_LIST may appear as the
24991 operand 1. */
24992 tree type = TREE_OPERAND (expression, 1);
24993 if (TREE_CODE (type) == TREE_LIST)
24994 /* This is an array type. We need to check array dimensions
24995 as well. */
24996 return dependent_type_p (TREE_VALUE (TREE_PURPOSE (type)))
24997 || value_dependent_expression_p
24998 (TREE_OPERAND (TREE_VALUE (type), 1));
24999 else
25000 return dependent_type_p (type);
25003 if (TREE_CODE (expression) == SCOPE_REF)
25005 tree scope = TREE_OPERAND (expression, 0);
25006 tree name = TREE_OPERAND (expression, 1);
25008 /* 14.6.2.2 [temp.dep.expr]: An id-expression is type-dependent if it
25009 contains an identifier associated by name lookup with one or more
25010 declarations declared with a dependent type, or...a
25011 nested-name-specifier or qualified-id that names a member of an
25012 unknown specialization. */
25013 return (type_dependent_expression_p (name)
25014 || dependent_scope_p (scope));
25017 if (TREE_CODE (expression) == TEMPLATE_DECL
25018 && !DECL_TEMPLATE_TEMPLATE_PARM_P (expression))
25019 return uses_outer_template_parms (expression);
25021 if (TREE_CODE (expression) == STMT_EXPR)
25022 expression = stmt_expr_value_expr (expression);
25024 if (BRACE_ENCLOSED_INITIALIZER_P (expression))
25026 tree elt;
25027 unsigned i;
25029 FOR_EACH_CONSTRUCTOR_VALUE (CONSTRUCTOR_ELTS (expression), i, elt)
25031 if (type_dependent_expression_p (elt))
25032 return true;
25034 return false;
25037 /* A static data member of the current instantiation with incomplete
25038 array type is type-dependent, as the definition and specializations
25039 can have different bounds. */
25040 if (VAR_P (expression)
25041 && DECL_CLASS_SCOPE_P (expression)
25042 && dependent_type_p (DECL_CONTEXT (expression))
25043 && VAR_HAD_UNKNOWN_BOUND (expression))
25044 return true;
25046 /* An array of unknown bound depending on a variadic parameter, eg:
25048 template<typename... Args>
25049 void foo (Args... args)
25051 int arr[] = { args... };
25054 template<int... vals>
25055 void bar ()
25057 int arr[] = { vals... };
25060 If the array has no length and has an initializer, it must be that
25061 we couldn't determine its length in cp_complete_array_type because
25062 it is dependent. */
25063 if (VAR_P (expression)
25064 && TREE_TYPE (expression) != NULL_TREE
25065 && TREE_CODE (TREE_TYPE (expression)) == ARRAY_TYPE
25066 && !TYPE_DOMAIN (TREE_TYPE (expression))
25067 && DECL_INITIAL (expression))
25068 return true;
25070 /* A function or variable template-id is type-dependent if it has any
25071 dependent template arguments. */
25072 if (VAR_OR_FUNCTION_DECL_P (expression)
25073 && DECL_LANG_SPECIFIC (expression)
25074 && DECL_TEMPLATE_INFO (expression))
25076 /* Consider the innermost template arguments, since those are the ones
25077 that come from the template-id; the template arguments for the
25078 enclosing class do not make it type-dependent unless they are used in
25079 the type of the decl. */
25080 if (PRIMARY_TEMPLATE_P (DECL_TI_TEMPLATE (expression))
25081 && (any_dependent_template_arguments_p
25082 (INNERMOST_TEMPLATE_ARGS (DECL_TI_ARGS (expression)))))
25083 return true;
25086 /* Otherwise, if the function decl isn't from a dependent scope, it can't be
25087 type-dependent. Checking this is important for functions with auto return
25088 type, which looks like a dependent type. */
25089 if (TREE_CODE (expression) == FUNCTION_DECL
25090 && !(DECL_CLASS_SCOPE_P (expression)
25091 && dependent_type_p (DECL_CONTEXT (expression)))
25092 && !(DECL_LANG_SPECIFIC (expression)
25093 && DECL_FRIEND_P (expression)
25094 && (!DECL_FRIEND_CONTEXT (expression)
25095 || dependent_type_p (DECL_FRIEND_CONTEXT (expression))))
25096 && !DECL_LOCAL_FUNCTION_P (expression))
25098 gcc_assert (!dependent_type_p (TREE_TYPE (expression))
25099 || undeduced_auto_decl (expression));
25100 return false;
25103 /* Always dependent, on the number of arguments if nothing else. */
25104 if (TREE_CODE (expression) == EXPR_PACK_EXPANSION)
25105 return true;
25107 if (TREE_TYPE (expression) == unknown_type_node)
25109 if (TREE_CODE (expression) == ADDR_EXPR)
25110 return type_dependent_expression_p (TREE_OPERAND (expression, 0));
25111 if (TREE_CODE (expression) == COMPONENT_REF
25112 || TREE_CODE (expression) == OFFSET_REF)
25114 if (type_dependent_expression_p (TREE_OPERAND (expression, 0)))
25115 return true;
25116 expression = TREE_OPERAND (expression, 1);
25117 if (identifier_p (expression))
25118 return false;
25120 /* SCOPE_REF with non-null TREE_TYPE is always non-dependent. */
25121 if (TREE_CODE (expression) == SCOPE_REF)
25122 return false;
25124 if (BASELINK_P (expression))
25126 if (BASELINK_OPTYPE (expression)
25127 && dependent_type_p (BASELINK_OPTYPE (expression)))
25128 return true;
25129 expression = BASELINK_FUNCTIONS (expression);
25132 if (TREE_CODE (expression) == TEMPLATE_ID_EXPR)
25134 if (any_dependent_template_arguments_p
25135 (TREE_OPERAND (expression, 1)))
25136 return true;
25137 expression = TREE_OPERAND (expression, 0);
25138 if (identifier_p (expression))
25139 return true;
25142 gcc_assert (TREE_CODE (expression) == OVERLOAD
25143 || TREE_CODE (expression) == FUNCTION_DECL);
25145 for (lkp_iterator iter (expression); iter; ++iter)
25146 if (type_dependent_expression_p (*iter))
25147 return true;
25149 return false;
25152 gcc_assert (TREE_CODE (expression) != TYPE_DECL);
25154 /* Dependent type attributes might not have made it from the decl to
25155 the type yet. */
25156 if (DECL_P (expression)
25157 && any_dependent_type_attributes_p (DECL_ATTRIBUTES (expression)))
25158 return true;
25160 return (dependent_type_p (TREE_TYPE (expression)));
25163 /* [temp.dep.expr]/5: A class member access expression (5.2.5) is
25164 type-dependent if the expression refers to a member of the current
25165 instantiation and the type of the referenced member is dependent, or the
25166 class member access expression refers to a member of an unknown
25167 specialization.
25169 This function returns true if the OBJECT in such a class member access
25170 expression is of an unknown specialization. */
25172 bool
25173 type_dependent_object_expression_p (tree object)
25175 /* An IDENTIFIER_NODE can sometimes have a TREE_TYPE, but it's still
25176 dependent. */
25177 if (TREE_CODE (object) == IDENTIFIER_NODE)
25178 return true;
25179 tree scope = TREE_TYPE (object);
25180 return (!scope || dependent_scope_p (scope));
25183 /* walk_tree callback function for instantiation_dependent_expression_p,
25184 below. Returns non-zero if a dependent subexpression is found. */
25186 static tree
25187 instantiation_dependent_r (tree *tp, int *walk_subtrees,
25188 void * /*data*/)
25190 if (TYPE_P (*tp))
25192 /* We don't have to worry about decltype currently because decltype
25193 of an instantiation-dependent expr is a dependent type. This
25194 might change depending on the resolution of DR 1172. */
25195 *walk_subtrees = false;
25196 return NULL_TREE;
25198 enum tree_code code = TREE_CODE (*tp);
25199 switch (code)
25201 /* Don't treat an argument list as dependent just because it has no
25202 TREE_TYPE. */
25203 case TREE_LIST:
25204 case TREE_VEC:
25205 return NULL_TREE;
25207 case TEMPLATE_PARM_INDEX:
25208 return *tp;
25210 /* Handle expressions with type operands. */
25211 case SIZEOF_EXPR:
25212 case ALIGNOF_EXPR:
25213 case TYPEID_EXPR:
25214 case AT_ENCODE_EXPR:
25216 tree op = TREE_OPERAND (*tp, 0);
25217 if (code == SIZEOF_EXPR && SIZEOF_EXPR_TYPE_P (*tp))
25218 op = TREE_TYPE (op);
25219 if (TYPE_P (op))
25221 if (dependent_type_p (op))
25222 return *tp;
25223 else
25225 *walk_subtrees = false;
25226 return NULL_TREE;
25229 break;
25232 case COMPONENT_REF:
25233 if (identifier_p (TREE_OPERAND (*tp, 1)))
25234 /* In a template, finish_class_member_access_expr creates a
25235 COMPONENT_REF with an IDENTIFIER_NODE for op1 even if it isn't
25236 type-dependent, so that we can check access control at
25237 instantiation time (PR 42277). See also Core issue 1273. */
25238 return *tp;
25239 break;
25241 case SCOPE_REF:
25242 if (instantiation_dependent_scope_ref_p (*tp))
25243 return *tp;
25244 else
25245 break;
25247 /* Treat statement-expressions as dependent. */
25248 case BIND_EXPR:
25249 return *tp;
25251 /* Treat requires-expressions as dependent. */
25252 case REQUIRES_EXPR:
25253 return *tp;
25255 case CALL_EXPR:
25256 /* Treat calls to function concepts as dependent. */
25257 if (function_concept_check_p (*tp))
25258 return *tp;
25259 break;
25261 case TEMPLATE_ID_EXPR:
25262 /* And variable concepts. */
25263 if (variable_concept_p (TREE_OPERAND (*tp, 0)))
25264 return *tp;
25265 break;
25267 default:
25268 break;
25271 if (type_dependent_expression_p (*tp))
25272 return *tp;
25273 else
25274 return NULL_TREE;
25277 /* Returns TRUE if the EXPRESSION is instantiation-dependent, in the
25278 sense defined by the ABI:
25280 "An expression is instantiation-dependent if it is type-dependent
25281 or value-dependent, or it has a subexpression that is type-dependent
25282 or value-dependent."
25284 Except don't actually check value-dependence for unevaluated expressions,
25285 because in sizeof(i) we don't care about the value of i. Checking
25286 type-dependence will in turn check value-dependence of array bounds/template
25287 arguments as needed. */
25289 bool
25290 instantiation_dependent_uneval_expression_p (tree expression)
25292 tree result;
25294 if (!processing_template_decl)
25295 return false;
25297 if (expression == error_mark_node)
25298 return false;
25300 result = cp_walk_tree_without_duplicates (&expression,
25301 instantiation_dependent_r, NULL);
25302 return result != NULL_TREE;
25305 /* As above, but also check value-dependence of the expression as a whole. */
25307 bool
25308 instantiation_dependent_expression_p (tree expression)
25310 return (instantiation_dependent_uneval_expression_p (expression)
25311 || value_dependent_expression_p (expression));
25314 /* Like type_dependent_expression_p, but it also works while not processing
25315 a template definition, i.e. during substitution or mangling. */
25317 bool
25318 type_dependent_expression_p_push (tree expr)
25320 bool b;
25321 ++processing_template_decl;
25322 b = type_dependent_expression_p (expr);
25323 --processing_template_decl;
25324 return b;
25327 /* Returns TRUE if ARGS contains a type-dependent expression. */
25329 bool
25330 any_type_dependent_arguments_p (const vec<tree, va_gc> *args)
25332 unsigned int i;
25333 tree arg;
25335 FOR_EACH_VEC_SAFE_ELT (args, i, arg)
25337 if (type_dependent_expression_p (arg))
25338 return true;
25340 return false;
25343 /* Returns TRUE if LIST (a TREE_LIST whose TREE_VALUEs are
25344 expressions) contains any type-dependent expressions. */
25346 bool
25347 any_type_dependent_elements_p (const_tree list)
25349 for (; list; list = TREE_CHAIN (list))
25350 if (type_dependent_expression_p (TREE_VALUE (list)))
25351 return true;
25353 return false;
25356 /* Returns TRUE if LIST (a TREE_LIST whose TREE_VALUEs are
25357 expressions) contains any value-dependent expressions. */
25359 bool
25360 any_value_dependent_elements_p (const_tree list)
25362 for (; list; list = TREE_CHAIN (list))
25363 if (value_dependent_expression_p (TREE_VALUE (list)))
25364 return true;
25366 return false;
25369 /* Returns TRUE if the ARG (a template argument) is dependent. */
25371 bool
25372 dependent_template_arg_p (tree arg)
25374 if (!processing_template_decl)
25375 return false;
25377 /* Assume a template argument that was wrongly written by the user
25378 is dependent. This is consistent with what
25379 any_dependent_template_arguments_p [that calls this function]
25380 does. */
25381 if (!arg || arg == error_mark_node)
25382 return true;
25384 if (TREE_CODE (arg) == ARGUMENT_PACK_SELECT)
25385 arg = argument_pack_select_arg (arg);
25387 if (TREE_CODE (arg) == TEMPLATE_TEMPLATE_PARM)
25388 return true;
25389 if (TREE_CODE (arg) == TEMPLATE_DECL)
25391 if (DECL_TEMPLATE_PARM_P (arg))
25392 return true;
25393 /* A member template of a dependent class is not necessarily
25394 type-dependent, but it is a dependent template argument because it
25395 will be a member of an unknown specialization to that template. */
25396 tree scope = CP_DECL_CONTEXT (arg);
25397 return TYPE_P (scope) && dependent_type_p (scope);
25399 else if (ARGUMENT_PACK_P (arg))
25401 tree args = ARGUMENT_PACK_ARGS (arg);
25402 int i, len = TREE_VEC_LENGTH (args);
25403 for (i = 0; i < len; ++i)
25405 if (dependent_template_arg_p (TREE_VEC_ELT (args, i)))
25406 return true;
25409 return false;
25411 else if (TYPE_P (arg))
25412 return dependent_type_p (arg);
25413 else
25414 return (type_dependent_expression_p (arg)
25415 || value_dependent_expression_p (arg));
25418 /* Returns true if ARGS (a collection of template arguments) contains
25419 any types that require structural equality testing. */
25421 bool
25422 any_template_arguments_need_structural_equality_p (tree args)
25424 int i;
25425 int j;
25427 if (!args)
25428 return false;
25429 if (args == error_mark_node)
25430 return true;
25432 for (i = 0; i < TMPL_ARGS_DEPTH (args); ++i)
25434 tree level = TMPL_ARGS_LEVEL (args, i + 1);
25435 for (j = 0; j < TREE_VEC_LENGTH (level); ++j)
25437 tree arg = TREE_VEC_ELT (level, j);
25438 tree packed_args = NULL_TREE;
25439 int k, len = 1;
25441 if (ARGUMENT_PACK_P (arg))
25443 /* Look inside the argument pack. */
25444 packed_args = ARGUMENT_PACK_ARGS (arg);
25445 len = TREE_VEC_LENGTH (packed_args);
25448 for (k = 0; k < len; ++k)
25450 if (packed_args)
25451 arg = TREE_VEC_ELT (packed_args, k);
25453 if (error_operand_p (arg))
25454 return true;
25455 else if (TREE_CODE (arg) == TEMPLATE_DECL)
25456 continue;
25457 else if (TYPE_P (arg) && TYPE_STRUCTURAL_EQUALITY_P (arg))
25458 return true;
25459 else if (!TYPE_P (arg) && TREE_TYPE (arg)
25460 && TYPE_STRUCTURAL_EQUALITY_P (TREE_TYPE (arg)))
25461 return true;
25466 return false;
25469 /* Returns true if ARGS (a collection of template arguments) contains
25470 any dependent arguments. */
25472 bool
25473 any_dependent_template_arguments_p (const_tree args)
25475 int i;
25476 int j;
25478 if (!args)
25479 return false;
25480 if (args == error_mark_node)
25481 return true;
25483 for (i = 0; i < TMPL_ARGS_DEPTH (args); ++i)
25485 const_tree level = TMPL_ARGS_LEVEL (args, i + 1);
25486 for (j = 0; j < TREE_VEC_LENGTH (level); ++j)
25487 if (dependent_template_arg_p (TREE_VEC_ELT (level, j)))
25488 return true;
25491 return false;
25494 /* Returns true if ARGS contains any errors. */
25496 bool
25497 any_erroneous_template_args_p (const_tree args)
25499 int i;
25500 int j;
25502 if (args == error_mark_node)
25503 return true;
25505 if (args && TREE_CODE (args) != TREE_VEC)
25507 if (tree ti = get_template_info (args))
25508 args = TI_ARGS (ti);
25509 else
25510 args = NULL_TREE;
25513 if (!args)
25514 return false;
25516 for (i = 0; i < TMPL_ARGS_DEPTH (args); ++i)
25518 const_tree level = TMPL_ARGS_LEVEL (args, i + 1);
25519 for (j = 0; j < TREE_VEC_LENGTH (level); ++j)
25520 if (error_operand_p (TREE_VEC_ELT (level, j)))
25521 return true;
25524 return false;
25527 /* Returns TRUE if the template TMPL is type-dependent. */
25529 bool
25530 dependent_template_p (tree tmpl)
25532 if (TREE_CODE (tmpl) == OVERLOAD)
25534 for (lkp_iterator iter (tmpl); iter; ++iter)
25535 if (dependent_template_p (*iter))
25536 return true;
25537 return false;
25540 /* Template template parameters are dependent. */
25541 if (DECL_TEMPLATE_TEMPLATE_PARM_P (tmpl)
25542 || TREE_CODE (tmpl) == TEMPLATE_TEMPLATE_PARM)
25543 return true;
25544 /* So are names that have not been looked up. */
25545 if (TREE_CODE (tmpl) == SCOPE_REF || identifier_p (tmpl))
25546 return true;
25547 return false;
25550 /* Returns TRUE if the specialization TMPL<ARGS> is dependent. */
25552 bool
25553 dependent_template_id_p (tree tmpl, tree args)
25555 return (dependent_template_p (tmpl)
25556 || any_dependent_template_arguments_p (args));
25559 /* Returns TRUE if OMP_FOR with DECLV, INITV, CONDV and INCRV vectors
25560 are dependent. */
25562 bool
25563 dependent_omp_for_p (tree declv, tree initv, tree condv, tree incrv)
25565 int i;
25567 if (!processing_template_decl)
25568 return false;
25570 for (i = 0; i < TREE_VEC_LENGTH (declv); i++)
25572 tree decl = TREE_VEC_ELT (declv, i);
25573 tree init = TREE_VEC_ELT (initv, i);
25574 tree cond = TREE_VEC_ELT (condv, i);
25575 tree incr = TREE_VEC_ELT (incrv, i);
25577 if (type_dependent_expression_p (decl)
25578 || TREE_CODE (decl) == SCOPE_REF)
25579 return true;
25581 if (init && type_dependent_expression_p (init))
25582 return true;
25584 if (type_dependent_expression_p (cond))
25585 return true;
25587 if (COMPARISON_CLASS_P (cond)
25588 && (type_dependent_expression_p (TREE_OPERAND (cond, 0))
25589 || type_dependent_expression_p (TREE_OPERAND (cond, 1))))
25590 return true;
25592 if (TREE_CODE (incr) == MODOP_EXPR)
25594 if (type_dependent_expression_p (TREE_OPERAND (incr, 0))
25595 || type_dependent_expression_p (TREE_OPERAND (incr, 2)))
25596 return true;
25598 else if (type_dependent_expression_p (incr))
25599 return true;
25600 else if (TREE_CODE (incr) == MODIFY_EXPR)
25602 if (type_dependent_expression_p (TREE_OPERAND (incr, 0)))
25603 return true;
25604 else if (BINARY_CLASS_P (TREE_OPERAND (incr, 1)))
25606 tree t = TREE_OPERAND (incr, 1);
25607 if (type_dependent_expression_p (TREE_OPERAND (t, 0))
25608 || type_dependent_expression_p (TREE_OPERAND (t, 1)))
25609 return true;
25614 return false;
25617 /* TYPE is a TYPENAME_TYPE. Returns the ordinary TYPE to which the
25618 TYPENAME_TYPE corresponds. Returns the original TYPENAME_TYPE if
25619 no such TYPE can be found. Note that this function peers inside
25620 uninstantiated templates and therefore should be used only in
25621 extremely limited situations. ONLY_CURRENT_P restricts this
25622 peering to the currently open classes hierarchy (which is required
25623 when comparing types). */
25625 tree
25626 resolve_typename_type (tree type, bool only_current_p)
25628 tree scope;
25629 tree name;
25630 tree decl;
25631 int quals;
25632 tree pushed_scope;
25633 tree result;
25635 gcc_assert (TREE_CODE (type) == TYPENAME_TYPE);
25637 scope = TYPE_CONTEXT (type);
25638 /* We shouldn't have built a TYPENAME_TYPE with a non-dependent scope. */
25639 gcc_checking_assert (uses_template_parms (scope));
25641 /* Usually the non-qualified identifier of a TYPENAME_TYPE is
25642 TYPE_IDENTIFIER (type). But when 'type' is a typedef variant of
25643 a TYPENAME_TYPE node, then TYPE_NAME (type) is set to the TYPE_DECL representing
25644 the typedef. In that case TYPE_IDENTIFIER (type) is not the non-qualified
25645 identifier of the TYPENAME_TYPE anymore.
25646 So by getting the TYPE_IDENTIFIER of the _main declaration_ of the
25647 TYPENAME_TYPE instead, we avoid messing up with a possible
25648 typedef variant case. */
25649 name = TYPE_IDENTIFIER (TYPE_MAIN_VARIANT (type));
25651 /* If the SCOPE is itself a TYPENAME_TYPE, then we need to resolve
25652 it first before we can figure out what NAME refers to. */
25653 if (TREE_CODE (scope) == TYPENAME_TYPE)
25655 if (TYPENAME_IS_RESOLVING_P (scope))
25656 /* Given a class template A with a dependent base with nested type C,
25657 typedef typename A::C::C C will land us here, as trying to resolve
25658 the initial A::C leads to the local C typedef, which leads back to
25659 A::C::C. So we break the recursion now. */
25660 return type;
25661 else
25662 scope = resolve_typename_type (scope, only_current_p);
25664 /* If we don't know what SCOPE refers to, then we cannot resolve the
25665 TYPENAME_TYPE. */
25666 if (!CLASS_TYPE_P (scope))
25667 return type;
25668 /* If this is a typedef, we don't want to look inside (c++/11987). */
25669 if (typedef_variant_p (type))
25670 return type;
25671 /* If SCOPE isn't the template itself, it will not have a valid
25672 TYPE_FIELDS list. */
25673 if (same_type_p (scope, CLASSTYPE_PRIMARY_TEMPLATE_TYPE (scope)))
25674 /* scope is either the template itself or a compatible instantiation
25675 like X<T>, so look up the name in the original template. */
25676 scope = CLASSTYPE_PRIMARY_TEMPLATE_TYPE (scope);
25677 /* If scope has no fields, it can't be a current instantiation. Check this
25678 before currently_open_class to avoid infinite recursion (71515). */
25679 if (!TYPE_FIELDS (scope))
25680 return type;
25681 /* If the SCOPE is not the current instantiation, there's no reason
25682 to look inside it. */
25683 if (only_current_p && !currently_open_class (scope))
25684 return type;
25685 /* Enter the SCOPE so that name lookup will be resolved as if we
25686 were in the class definition. In particular, SCOPE will no
25687 longer be considered a dependent type. */
25688 pushed_scope = push_scope (scope);
25689 /* Look up the declaration. */
25690 decl = lookup_member (scope, name, /*protect=*/0, /*want_type=*/true,
25691 tf_warning_or_error);
25693 result = NULL_TREE;
25695 /* For a TYPENAME_TYPE like "typename X::template Y<T>", we want to
25696 find a TEMPLATE_DECL. Otherwise, we want to find a TYPE_DECL. */
25697 tree fullname = TYPENAME_TYPE_FULLNAME (type);
25698 if (!decl)
25699 /*nop*/;
25700 else if (identifier_p (fullname)
25701 && TREE_CODE (decl) == TYPE_DECL)
25703 result = TREE_TYPE (decl);
25704 if (result == error_mark_node)
25705 result = NULL_TREE;
25707 else if (TREE_CODE (fullname) == TEMPLATE_ID_EXPR
25708 && DECL_CLASS_TEMPLATE_P (decl))
25710 /* Obtain the template and the arguments. */
25711 tree tmpl = TREE_OPERAND (fullname, 0);
25712 if (TREE_CODE (tmpl) == IDENTIFIER_NODE)
25714 /* We get here with a plain identifier because a previous tentative
25715 parse of the nested-name-specifier as part of a ptr-operator saw
25716 ::template X<A>. The use of ::template is necessary in a
25717 ptr-operator, but wrong in a declarator-id.
25719 [temp.names]: In a qualified-id of a declarator-id, the keyword
25720 template shall not appear at the top level. */
25721 pedwarn (EXPR_LOC_OR_LOC (fullname, input_location), OPT_Wpedantic,
25722 "keyword %<template%> not allowed in declarator-id");
25723 tmpl = decl;
25725 tree args = TREE_OPERAND (fullname, 1);
25726 /* Instantiate the template. */
25727 result = lookup_template_class (tmpl, args, NULL_TREE, NULL_TREE,
25728 /*entering_scope=*/true,
25729 tf_error | tf_user);
25730 if (result == error_mark_node)
25731 result = NULL_TREE;
25734 /* Leave the SCOPE. */
25735 if (pushed_scope)
25736 pop_scope (pushed_scope);
25738 /* If we failed to resolve it, return the original typename. */
25739 if (!result)
25740 return type;
25742 /* If lookup found a typename type, resolve that too. */
25743 if (TREE_CODE (result) == TYPENAME_TYPE && !TYPENAME_IS_RESOLVING_P (result))
25745 /* Ill-formed programs can cause infinite recursion here, so we
25746 must catch that. */
25747 TYPENAME_IS_RESOLVING_P (result) = 1;
25748 result = resolve_typename_type (result, only_current_p);
25749 TYPENAME_IS_RESOLVING_P (result) = 0;
25752 /* Qualify the resulting type. */
25753 quals = cp_type_quals (type);
25754 if (quals)
25755 result = cp_build_qualified_type (result, cp_type_quals (result) | quals);
25757 return result;
25760 /* EXPR is an expression which is not type-dependent. Return a proxy
25761 for EXPR that can be used to compute the types of larger
25762 expressions containing EXPR. */
25764 tree
25765 build_non_dependent_expr (tree expr)
25767 tree orig_expr = expr;
25768 tree inner_expr;
25770 /* When checking, try to get a constant value for all non-dependent
25771 expressions in order to expose bugs in *_dependent_expression_p
25772 and constexpr. This can affect code generation, see PR70704, so
25773 only do this for -fchecking=2. */
25774 if (flag_checking > 1
25775 && cxx_dialect >= cxx11
25776 /* Don't do this during nsdmi parsing as it can lead to
25777 unexpected recursive instantiations. */
25778 && !parsing_nsdmi ()
25779 /* Don't do this during concept expansion either and for
25780 the same reason. */
25781 && !expanding_concept ())
25782 fold_non_dependent_expr (expr);
25784 STRIP_ANY_LOCATION_WRAPPER (expr);
25786 /* Preserve OVERLOADs; the functions must be available to resolve
25787 types. */
25788 inner_expr = expr;
25789 if (TREE_CODE (inner_expr) == STMT_EXPR)
25790 inner_expr = stmt_expr_value_expr (inner_expr);
25791 if (TREE_CODE (inner_expr) == ADDR_EXPR)
25792 inner_expr = TREE_OPERAND (inner_expr, 0);
25793 if (TREE_CODE (inner_expr) == COMPONENT_REF)
25794 inner_expr = TREE_OPERAND (inner_expr, 1);
25795 if (is_overloaded_fn (inner_expr)
25796 || TREE_CODE (inner_expr) == OFFSET_REF)
25797 return orig_expr;
25798 /* There is no need to return a proxy for a variable. */
25799 if (VAR_P (expr))
25800 return orig_expr;
25801 /* Preserve string constants; conversions from string constants to
25802 "char *" are allowed, even though normally a "const char *"
25803 cannot be used to initialize a "char *". */
25804 if (TREE_CODE (expr) == STRING_CST)
25805 return orig_expr;
25806 /* Preserve void and arithmetic constants, as an optimization -- there is no
25807 reason to create a new node. */
25808 if (TREE_CODE (expr) == VOID_CST
25809 || TREE_CODE (expr) == INTEGER_CST
25810 || TREE_CODE (expr) == REAL_CST)
25811 return orig_expr;
25812 /* Preserve THROW_EXPRs -- all throw-expressions have type "void".
25813 There is at least one place where we want to know that a
25814 particular expression is a throw-expression: when checking a ?:
25815 expression, there are special rules if the second or third
25816 argument is a throw-expression. */
25817 if (TREE_CODE (expr) == THROW_EXPR)
25818 return orig_expr;
25820 /* Don't wrap an initializer list, we need to be able to look inside. */
25821 if (BRACE_ENCLOSED_INITIALIZER_P (expr))
25822 return orig_expr;
25824 /* Don't wrap a dummy object, we need to be able to test for it. */
25825 if (is_dummy_object (expr))
25826 return orig_expr;
25828 if (TREE_CODE (expr) == COND_EXPR)
25829 return build3 (COND_EXPR,
25830 TREE_TYPE (expr),
25831 TREE_OPERAND (expr, 0),
25832 (TREE_OPERAND (expr, 1)
25833 ? build_non_dependent_expr (TREE_OPERAND (expr, 1))
25834 : build_non_dependent_expr (TREE_OPERAND (expr, 0))),
25835 build_non_dependent_expr (TREE_OPERAND (expr, 2)));
25836 if (TREE_CODE (expr) == COMPOUND_EXPR
25837 && !COMPOUND_EXPR_OVERLOADED (expr))
25838 return build2 (COMPOUND_EXPR,
25839 TREE_TYPE (expr),
25840 TREE_OPERAND (expr, 0),
25841 build_non_dependent_expr (TREE_OPERAND (expr, 1)));
25843 /* If the type is unknown, it can't really be non-dependent */
25844 gcc_assert (TREE_TYPE (expr) != unknown_type_node);
25846 /* Otherwise, build a NON_DEPENDENT_EXPR. */
25847 return build1_loc (EXPR_LOCATION (orig_expr), NON_DEPENDENT_EXPR,
25848 TREE_TYPE (expr), expr);
25851 /* ARGS is a vector of expressions as arguments to a function call.
25852 Replace the arguments with equivalent non-dependent expressions.
25853 This modifies ARGS in place. */
25855 void
25856 make_args_non_dependent (vec<tree, va_gc> *args)
25858 unsigned int ix;
25859 tree arg;
25861 FOR_EACH_VEC_SAFE_ELT (args, ix, arg)
25863 tree newarg = build_non_dependent_expr (arg);
25864 if (newarg != arg)
25865 (*args)[ix] = newarg;
25869 /* Returns a type which represents 'auto' or 'decltype(auto)'. We use a
25870 TEMPLATE_TYPE_PARM with a level one deeper than the actual template
25871 parms. If set_canonical is true, we set TYPE_CANONICAL on it. */
25873 static tree
25874 make_auto_1 (tree name, bool set_canonical)
25876 tree au = cxx_make_type (TEMPLATE_TYPE_PARM);
25877 TYPE_NAME (au) = build_decl (input_location,
25878 TYPE_DECL, name, au);
25879 TYPE_STUB_DECL (au) = TYPE_NAME (au);
25880 TEMPLATE_TYPE_PARM_INDEX (au) = build_template_parm_index
25881 (0, processing_template_decl + 1, processing_template_decl + 1,
25882 TYPE_NAME (au), NULL_TREE);
25883 if (set_canonical)
25884 TYPE_CANONICAL (au) = canonical_type_parameter (au);
25885 DECL_ARTIFICIAL (TYPE_NAME (au)) = 1;
25886 SET_DECL_TEMPLATE_PARM_P (TYPE_NAME (au));
25888 return au;
25891 tree
25892 make_decltype_auto (void)
25894 return make_auto_1 (decltype_auto_identifier, true);
25897 tree
25898 make_auto (void)
25900 return make_auto_1 (auto_identifier, true);
25903 /* Return a C++17 deduction placeholder for class template TMPL. */
25905 tree
25906 make_template_placeholder (tree tmpl)
25908 tree t = make_auto_1 (DECL_NAME (tmpl), true);
25909 CLASS_PLACEHOLDER_TEMPLATE (t) = tmpl;
25910 return t;
25913 /* True iff T is a C++17 class template deduction placeholder. */
25915 bool
25916 template_placeholder_p (tree t)
25918 return is_auto (t) && CLASS_PLACEHOLDER_TEMPLATE (t);
25921 /* Make a "constrained auto" type-specifier. This is an
25922 auto type with constraints that must be associated after
25923 deduction. The constraint is formed from the given
25924 CONC and its optional sequence of arguments, which are
25925 non-null if written as partial-concept-id. */
25927 tree
25928 make_constrained_auto (tree con, tree args)
25930 tree type = make_auto_1 (auto_identifier, false);
25932 /* Build the constraint. */
25933 tree tmpl = DECL_TI_TEMPLATE (con);
25934 tree expr = VAR_P (con) ? tmpl : ovl_make (tmpl);
25935 expr = build_concept_check (expr, type, args);
25937 tree constr = normalize_expression (expr);
25938 PLACEHOLDER_TYPE_CONSTRAINTS (type) = constr;
25940 /* Our canonical type depends on the constraint. */
25941 TYPE_CANONICAL (type) = canonical_type_parameter (type);
25943 /* Attach the constraint to the type declaration. */
25944 tree decl = TYPE_NAME (type);
25945 return decl;
25948 /* Given type ARG, return std::initializer_list<ARG>. */
25950 static tree
25951 listify (tree arg)
25953 tree std_init_list = get_namespace_binding (std_node, init_list_identifier);
25955 if (!std_init_list || !DECL_CLASS_TEMPLATE_P (std_init_list))
25957 gcc_rich_location richloc (input_location);
25958 maybe_add_include_fixit (&richloc, "<initializer_list>");
25959 error_at (&richloc,
25960 "deducing from brace-enclosed initializer list"
25961 " requires %<#include <initializer_list>%>");
25963 return error_mark_node;
25965 tree argvec = make_tree_vec (1);
25966 TREE_VEC_ELT (argvec, 0) = arg;
25968 return lookup_template_class (std_init_list, argvec, NULL_TREE,
25969 NULL_TREE, 0, tf_warning_or_error);
25972 /* Replace auto in TYPE with std::initializer_list<auto>. */
25974 static tree
25975 listify_autos (tree type, tree auto_node)
25977 tree init_auto = listify (auto_node);
25978 tree argvec = make_tree_vec (1);
25979 TREE_VEC_ELT (argvec, 0) = init_auto;
25980 if (processing_template_decl)
25981 argvec = add_to_template_args (current_template_args (), argvec);
25982 return tsubst (type, argvec, tf_warning_or_error, NULL_TREE);
25985 /* Hash traits for hashing possibly constrained 'auto'
25986 TEMPLATE_TYPE_PARMs for use by do_auto_deduction. */
25988 struct auto_hash : default_hash_traits<tree>
25990 static inline hashval_t hash (tree);
25991 static inline bool equal (tree, tree);
25994 /* Hash the 'auto' T. */
25996 inline hashval_t
25997 auto_hash::hash (tree t)
25999 if (tree c = PLACEHOLDER_TYPE_CONSTRAINTS (t))
26000 /* Matching constrained-type-specifiers denote the same template
26001 parameter, so hash the constraint. */
26002 return hash_placeholder_constraint (c);
26003 else
26004 /* But unconstrained autos are all separate, so just hash the pointer. */
26005 return iterative_hash_object (t, 0);
26008 /* Compare two 'auto's. */
26010 inline bool
26011 auto_hash::equal (tree t1, tree t2)
26013 if (t1 == t2)
26014 return true;
26016 tree c1 = PLACEHOLDER_TYPE_CONSTRAINTS (t1);
26017 tree c2 = PLACEHOLDER_TYPE_CONSTRAINTS (t2);
26019 /* Two unconstrained autos are distinct. */
26020 if (!c1 || !c2)
26021 return false;
26023 return equivalent_placeholder_constraints (c1, c2);
26026 /* for_each_template_parm callback for extract_autos: if t is a (possibly
26027 constrained) auto, add it to the vector. */
26029 static int
26030 extract_autos_r (tree t, void *data)
26032 hash_table<auto_hash> &hash = *(hash_table<auto_hash>*)data;
26033 if (is_auto (t))
26035 /* All the autos were built with index 0; fix that up now. */
26036 tree *p = hash.find_slot (t, INSERT);
26037 unsigned idx;
26038 if (*p)
26039 /* If this is a repeated constrained-type-specifier, use the index we
26040 chose before. */
26041 idx = TEMPLATE_PARM_IDX (TEMPLATE_TYPE_PARM_INDEX (*p));
26042 else
26044 /* Otherwise this is new, so use the current count. */
26045 *p = t;
26046 idx = hash.elements () - 1;
26048 TEMPLATE_PARM_IDX (TEMPLATE_TYPE_PARM_INDEX (t)) = idx;
26051 /* Always keep walking. */
26052 return 0;
26055 /* Return a TREE_VEC of the 'auto's used in type under the Concepts TS, which
26056 says they can appear anywhere in the type. */
26058 static tree
26059 extract_autos (tree type)
26061 hash_set<tree> visited;
26062 hash_table<auto_hash> hash (2);
26064 for_each_template_parm (type, extract_autos_r, &hash, &visited, true);
26066 tree tree_vec = make_tree_vec (hash.elements());
26067 for (hash_table<auto_hash>::iterator iter = hash.begin();
26068 iter != hash.end(); ++iter)
26070 tree elt = *iter;
26071 unsigned i = TEMPLATE_PARM_IDX (TEMPLATE_TYPE_PARM_INDEX (elt));
26072 TREE_VEC_ELT (tree_vec, i)
26073 = build_tree_list (NULL_TREE, TYPE_NAME (elt));
26076 return tree_vec;
26079 /* The stem for deduction guide names. */
26080 const char *const dguide_base = "__dguide_";
26082 /* Return the name for a deduction guide for class template TMPL. */
26084 tree
26085 dguide_name (tree tmpl)
26087 tree type = (TYPE_P (tmpl) ? tmpl : TREE_TYPE (tmpl));
26088 tree tname = TYPE_IDENTIFIER (type);
26089 char *buf = (char *) alloca (1 + strlen (dguide_base)
26090 + IDENTIFIER_LENGTH (tname));
26091 memcpy (buf, dguide_base, strlen (dguide_base));
26092 memcpy (buf + strlen (dguide_base), IDENTIFIER_POINTER (tname),
26093 IDENTIFIER_LENGTH (tname) + 1);
26094 tree dname = get_identifier (buf);
26095 TREE_TYPE (dname) = type;
26096 return dname;
26099 /* True if NAME is the name of a deduction guide. */
26101 bool
26102 dguide_name_p (tree name)
26104 return (TREE_CODE (name) == IDENTIFIER_NODE
26105 && TREE_TYPE (name)
26106 && !strncmp (IDENTIFIER_POINTER (name), dguide_base,
26107 strlen (dguide_base)));
26110 /* True if FN is a deduction guide. */
26112 bool
26113 deduction_guide_p (const_tree fn)
26115 if (DECL_P (fn))
26116 if (tree name = DECL_NAME (fn))
26117 return dguide_name_p (name);
26118 return false;
26121 /* True if FN is the copy deduction guide, i.e. A(A)->A. */
26123 bool
26124 copy_guide_p (const_tree fn)
26126 gcc_assert (deduction_guide_p (fn));
26127 if (!DECL_ARTIFICIAL (fn))
26128 return false;
26129 tree parms = FUNCTION_FIRST_USER_PARMTYPE (DECL_TI_TEMPLATE (fn));
26130 return (TREE_CHAIN (parms) == void_list_node
26131 && same_type_p (TREE_VALUE (parms), TREE_TYPE (DECL_NAME (fn))));
26134 /* True if FN is a guide generated from a constructor template. */
26136 bool
26137 template_guide_p (const_tree fn)
26139 gcc_assert (deduction_guide_p (fn));
26140 if (!DECL_ARTIFICIAL (fn))
26141 return false;
26142 tree tmpl = DECL_TI_TEMPLATE (fn);
26143 if (tree org = DECL_ABSTRACT_ORIGIN (tmpl))
26144 return PRIMARY_TEMPLATE_P (org);
26145 return false;
26148 /* OLDDECL is a _DECL for a template parameter. Return a similar parameter at
26149 LEVEL:INDEX, using tsubst_args and complain for substitution into non-type
26150 template parameter types. Note that the handling of template template
26151 parameters relies on current_template_parms being set appropriately for the
26152 new template. */
26154 static tree
26155 rewrite_template_parm (tree olddecl, unsigned index, unsigned level,
26156 tree tsubst_args, tsubst_flags_t complain)
26158 if (olddecl == error_mark_node)
26159 return error_mark_node;
26161 tree oldidx = get_template_parm_index (olddecl);
26163 tree newtype;
26164 if (TREE_CODE (olddecl) == TYPE_DECL
26165 || TREE_CODE (olddecl) == TEMPLATE_DECL)
26167 tree oldtype = TREE_TYPE (olddecl);
26168 newtype = cxx_make_type (TREE_CODE (oldtype));
26169 TYPE_MAIN_VARIANT (newtype) = newtype;
26170 if (TREE_CODE (oldtype) == TEMPLATE_TYPE_PARM)
26171 TEMPLATE_TYPE_PARM_FOR_CLASS (newtype)
26172 = TEMPLATE_TYPE_PARM_FOR_CLASS (oldtype);
26174 else
26176 newtype = TREE_TYPE (olddecl);
26177 if (type_uses_auto (newtype))
26179 // Substitute once to fix references to other template parameters.
26180 newtype = tsubst (newtype, tsubst_args,
26181 complain|tf_partial, NULL_TREE);
26182 // Now substitute again to reduce the level of the auto.
26183 newtype = tsubst (newtype, current_template_args (),
26184 complain, NULL_TREE);
26186 else
26187 newtype = tsubst (newtype, tsubst_args,
26188 complain, NULL_TREE);
26191 tree newdecl
26192 = build_decl (DECL_SOURCE_LOCATION (olddecl), TREE_CODE (olddecl),
26193 DECL_NAME (olddecl), newtype);
26194 SET_DECL_TEMPLATE_PARM_P (newdecl);
26196 tree newidx;
26197 if (TREE_CODE (olddecl) == TYPE_DECL
26198 || TREE_CODE (olddecl) == TEMPLATE_DECL)
26200 newidx = TEMPLATE_TYPE_PARM_INDEX (newtype)
26201 = build_template_parm_index (index, level, level,
26202 newdecl, newtype);
26203 TEMPLATE_PARM_PARAMETER_PACK (newidx)
26204 = TEMPLATE_PARM_PARAMETER_PACK (oldidx);
26205 TYPE_STUB_DECL (newtype) = TYPE_NAME (newtype) = newdecl;
26206 TYPE_CANONICAL (newtype) = canonical_type_parameter (newtype);
26208 if (TREE_CODE (olddecl) == TEMPLATE_DECL)
26210 DECL_TEMPLATE_RESULT (newdecl)
26211 = build_decl (DECL_SOURCE_LOCATION (olddecl), TYPE_DECL,
26212 DECL_NAME (olddecl), newtype);
26213 DECL_ARTIFICIAL (DECL_TEMPLATE_RESULT (newdecl)) = true;
26214 // First create a copy (ttargs) of tsubst_args with an
26215 // additional level for the template template parameter's own
26216 // template parameters (ttparms).
26217 tree ttparms = (INNERMOST_TEMPLATE_PARMS
26218 (DECL_TEMPLATE_PARMS (olddecl)));
26219 const int depth = TMPL_ARGS_DEPTH (tsubst_args);
26220 tree ttargs = make_tree_vec (depth + 1);
26221 for (int i = 0; i < depth; ++i)
26222 TREE_VEC_ELT (ttargs, i) = TREE_VEC_ELT (tsubst_args, i);
26223 TREE_VEC_ELT (ttargs, depth)
26224 = template_parms_level_to_args (ttparms);
26225 // Substitute ttargs into ttparms to fix references to
26226 // other template parameters.
26227 ttparms = tsubst_template_parms_level (ttparms, ttargs,
26228 complain|tf_partial);
26229 // Now substitute again with args based on tparms, to reduce
26230 // the level of the ttparms.
26231 ttargs = current_template_args ();
26232 ttparms = tsubst_template_parms_level (ttparms, ttargs,
26233 complain);
26234 // Finally, tack the adjusted parms onto tparms.
26235 ttparms = tree_cons (size_int (depth), ttparms,
26236 current_template_parms);
26237 DECL_TEMPLATE_PARMS (newdecl) = ttparms;
26240 else
26242 tree oldconst = TEMPLATE_PARM_DECL (oldidx);
26243 tree newconst
26244 = build_decl (DECL_SOURCE_LOCATION (oldconst),
26245 TREE_CODE (oldconst),
26246 DECL_NAME (oldconst), newtype);
26247 TREE_CONSTANT (newconst) = TREE_CONSTANT (newdecl)
26248 = TREE_READONLY (newconst) = TREE_READONLY (newdecl) = true;
26249 SET_DECL_TEMPLATE_PARM_P (newconst);
26250 newidx = build_template_parm_index (index, level, level,
26251 newconst, newtype);
26252 TEMPLATE_PARM_PARAMETER_PACK (newidx)
26253 = TEMPLATE_PARM_PARAMETER_PACK (oldidx);
26254 DECL_INITIAL (newdecl) = DECL_INITIAL (newconst) = newidx;
26257 return newdecl;
26260 /* Returns a C++17 class deduction guide template based on the constructor
26261 CTOR. As a special case, CTOR can be a RECORD_TYPE for an implicit default
26262 guide, or REFERENCE_TYPE for an implicit copy/move guide. */
26264 static tree
26265 build_deduction_guide (tree ctor, tree outer_args, tsubst_flags_t complain)
26267 tree type, tparms, targs, fparms, fargs, ci;
26268 bool memtmpl = false;
26269 bool explicit_p;
26270 location_t loc;
26271 tree fn_tmpl = NULL_TREE;
26273 if (TYPE_P (ctor))
26275 type = ctor;
26276 bool copy_p = TREE_CODE (type) == REFERENCE_TYPE;
26277 if (copy_p)
26279 type = TREE_TYPE (type);
26280 fparms = tree_cons (NULL_TREE, type, void_list_node);
26282 else
26283 fparms = void_list_node;
26285 tree ctmpl = CLASSTYPE_TI_TEMPLATE (type);
26286 tparms = DECL_TEMPLATE_PARMS (ctmpl);
26287 targs = CLASSTYPE_TI_ARGS (type);
26288 ci = NULL_TREE;
26289 fargs = NULL_TREE;
26290 loc = DECL_SOURCE_LOCATION (ctmpl);
26291 explicit_p = false;
26293 else
26295 ++processing_template_decl;
26296 bool ok = true;
26298 fn_tmpl
26299 = (TREE_CODE (ctor) == TEMPLATE_DECL ? ctor
26300 : DECL_TI_TEMPLATE (ctor));
26301 if (outer_args)
26302 fn_tmpl = tsubst (fn_tmpl, outer_args, complain, ctor);
26303 ctor = DECL_TEMPLATE_RESULT (fn_tmpl);
26305 type = DECL_CONTEXT (ctor);
26307 tparms = DECL_TEMPLATE_PARMS (fn_tmpl);
26308 /* If type is a member class template, DECL_TI_ARGS (ctor) will have
26309 fully specialized args for the enclosing class. Strip those off, as
26310 the deduction guide won't have those template parameters. */
26311 targs = get_innermost_template_args (DECL_TI_ARGS (ctor),
26312 TMPL_PARMS_DEPTH (tparms));
26313 /* Discard the 'this' parameter. */
26314 fparms = FUNCTION_ARG_CHAIN (ctor);
26315 fargs = TREE_CHAIN (DECL_ARGUMENTS (ctor));
26316 ci = get_constraints (ctor);
26317 loc = DECL_SOURCE_LOCATION (ctor);
26318 explicit_p = DECL_NONCONVERTING_P (ctor);
26320 if (PRIMARY_TEMPLATE_P (fn_tmpl))
26322 memtmpl = true;
26324 /* For a member template constructor, we need to flatten the two
26325 template parameter lists into one, and then adjust the function
26326 signature accordingly. This gets...complicated. */
26327 tree save_parms = current_template_parms;
26329 /* For a member template we should have two levels of parms/args, one
26330 for the class and one for the constructor. We stripped
26331 specialized args for further enclosing classes above. */
26332 const int depth = 2;
26333 gcc_assert (TMPL_ARGS_DEPTH (targs) == depth);
26335 /* Template args for translating references to the two-level template
26336 parameters into references to the one-level template parameters we
26337 are creating. */
26338 tree tsubst_args = copy_node (targs);
26339 TMPL_ARGS_LEVEL (tsubst_args, depth)
26340 = copy_node (TMPL_ARGS_LEVEL (tsubst_args, depth));
26342 /* Template parms for the constructor template. */
26343 tree ftparms = TREE_VALUE (tparms);
26344 unsigned flen = TREE_VEC_LENGTH (ftparms);
26345 /* Template parms for the class template. */
26346 tparms = TREE_CHAIN (tparms);
26347 tree ctparms = TREE_VALUE (tparms);
26348 unsigned clen = TREE_VEC_LENGTH (ctparms);
26349 /* Template parms for the deduction guide start as a copy of the
26350 template parms for the class. We set current_template_parms for
26351 lookup_template_class_1. */
26352 current_template_parms = tparms = copy_node (tparms);
26353 tree new_vec = TREE_VALUE (tparms) = make_tree_vec (flen + clen);
26354 for (unsigned i = 0; i < clen; ++i)
26355 TREE_VEC_ELT (new_vec, i) = TREE_VEC_ELT (ctparms, i);
26357 /* Now we need to rewrite the constructor parms to append them to the
26358 class parms. */
26359 for (unsigned i = 0; i < flen; ++i)
26361 unsigned index = i + clen;
26362 unsigned level = 1;
26363 tree oldelt = TREE_VEC_ELT (ftparms, i);
26364 tree olddecl = TREE_VALUE (oldelt);
26365 tree newdecl = rewrite_template_parm (olddecl, index, level,
26366 tsubst_args, complain);
26367 if (newdecl == error_mark_node)
26368 ok = false;
26369 tree newdef = tsubst_template_arg (TREE_PURPOSE (oldelt),
26370 tsubst_args, complain, ctor);
26371 tree list = build_tree_list (newdef, newdecl);
26372 TEMPLATE_PARM_CONSTRAINTS (list)
26373 = tsubst_constraint_info (TEMPLATE_PARM_CONSTRAINTS (oldelt),
26374 tsubst_args, complain, ctor);
26375 TREE_VEC_ELT (new_vec, index) = list;
26376 TMPL_ARG (tsubst_args, depth, i) = template_parm_to_arg (list);
26379 /* Now we have a final set of template parms to substitute into the
26380 function signature. */
26381 targs = template_parms_to_args (tparms);
26382 fparms = tsubst_arg_types (fparms, tsubst_args, NULL_TREE,
26383 complain, ctor);
26384 fargs = tsubst (fargs, tsubst_args, complain, ctor);
26385 if (ci)
26386 ci = tsubst_constraint_info (ci, tsubst_args, complain, ctor);
26388 current_template_parms = save_parms;
26391 --processing_template_decl;
26392 if (!ok)
26393 return error_mark_node;
26396 if (!memtmpl)
26398 /* Copy the parms so we can set DECL_PRIMARY_TEMPLATE. */
26399 tparms = copy_node (tparms);
26400 INNERMOST_TEMPLATE_PARMS (tparms)
26401 = copy_node (INNERMOST_TEMPLATE_PARMS (tparms));
26404 tree fntype = build_function_type (type, fparms);
26405 tree ded_fn = build_lang_decl_loc (loc,
26406 FUNCTION_DECL,
26407 dguide_name (type), fntype);
26408 DECL_ARGUMENTS (ded_fn) = fargs;
26409 DECL_ARTIFICIAL (ded_fn) = true;
26410 DECL_NONCONVERTING_P (ded_fn) = explicit_p;
26411 tree ded_tmpl = build_template_decl (ded_fn, tparms, /*member*/false);
26412 DECL_ARTIFICIAL (ded_tmpl) = true;
26413 DECL_TEMPLATE_RESULT (ded_tmpl) = ded_fn;
26414 TREE_TYPE (ded_tmpl) = TREE_TYPE (ded_fn);
26415 DECL_TEMPLATE_INFO (ded_fn) = build_template_info (ded_tmpl, targs);
26416 DECL_PRIMARY_TEMPLATE (ded_tmpl) = ded_tmpl;
26417 if (DECL_P (ctor))
26418 DECL_ABSTRACT_ORIGIN (ded_tmpl) = fn_tmpl;
26419 if (ci)
26420 set_constraints (ded_tmpl, ci);
26422 return ded_tmpl;
26425 /* Deduce template arguments for the class template placeholder PTYPE for
26426 template TMPL based on the initializer INIT, and return the resulting
26427 type. */
26429 static tree
26430 do_class_deduction (tree ptype, tree tmpl, tree init, int flags,
26431 tsubst_flags_t complain)
26433 if (!DECL_CLASS_TEMPLATE_P (tmpl))
26435 /* We should have handled this in the caller. */
26436 if (DECL_TEMPLATE_TEMPLATE_PARM_P (tmpl))
26437 return ptype;
26438 if (complain & tf_error)
26439 error ("non-class template %qT used without template arguments", tmpl);
26440 return error_mark_node;
26443 tree type = TREE_TYPE (tmpl);
26445 bool try_list_ctor = false;
26447 vec<tree,va_gc> *args;
26448 if (init == NULL_TREE
26449 || TREE_CODE (init) == TREE_LIST)
26450 args = make_tree_vector_from_list (init);
26451 else if (BRACE_ENCLOSED_INITIALIZER_P (init))
26453 try_list_ctor = TYPE_HAS_LIST_CTOR (type);
26454 if (try_list_ctor && CONSTRUCTOR_NELTS (init) == 1)
26456 /* As an exception, the first phase in 16.3.1.7 (considering the
26457 initializer list as a single argument) is omitted if the
26458 initializer list consists of a single expression of type cv U,
26459 where U is a specialization of C or a class derived from a
26460 specialization of C. */
26461 tree elt = CONSTRUCTOR_ELT (init, 0)->value;
26462 tree etype = TREE_TYPE (elt);
26464 tree tparms = INNERMOST_TEMPLATE_PARMS (DECL_TEMPLATE_PARMS (tmpl));
26465 tree targs = make_tree_vec (TREE_VEC_LENGTH (tparms));
26466 int err = unify (tparms, targs, type, etype,
26467 UNIFY_ALLOW_DERIVED, /*explain*/false);
26468 if (err == 0)
26469 try_list_ctor = false;
26470 ggc_free (targs);
26472 if (try_list_ctor || is_std_init_list (type))
26473 args = make_tree_vector_single (init);
26474 else
26475 args = make_tree_vector_from_ctor (init);
26477 else
26478 args = make_tree_vector_single (init);
26480 tree dname = dguide_name (tmpl);
26481 tree cands = lookup_qualified_name (CP_DECL_CONTEXT (tmpl), dname,
26482 /*type*/false, /*complain*/false,
26483 /*hidden*/false);
26484 bool elided = false;
26485 if (cands == error_mark_node)
26486 cands = NULL_TREE;
26488 /* Prune explicit deduction guides in copy-initialization context. */
26489 if (flags & LOOKUP_ONLYCONVERTING)
26491 for (lkp_iterator iter (cands); !elided && iter; ++iter)
26492 if (DECL_NONCONVERTING_P (STRIP_TEMPLATE (*iter)))
26493 elided = true;
26495 if (elided)
26497 /* Found a nonconverting guide, prune the candidates. */
26498 tree pruned = NULL_TREE;
26499 for (lkp_iterator iter (cands); iter; ++iter)
26500 if (!DECL_NONCONVERTING_P (STRIP_TEMPLATE (*iter)))
26501 pruned = lookup_add (*iter, pruned);
26503 cands = pruned;
26507 tree outer_args = NULL_TREE;
26508 if (DECL_CLASS_SCOPE_P (tmpl)
26509 && CLASSTYPE_TEMPLATE_INFO (DECL_CONTEXT (tmpl)))
26511 outer_args = CLASSTYPE_TI_ARGS (DECL_CONTEXT (tmpl));
26512 type = TREE_TYPE (most_general_template (tmpl));
26515 bool saw_ctor = false;
26516 // FIXME cache artificial deduction guides
26517 for (ovl_iterator iter (CLASSTYPE_CONSTRUCTORS (type)); iter; ++iter)
26519 /* Skip inherited constructors. */
26520 if (iter.using_p ())
26521 continue;
26523 tree guide = build_deduction_guide (*iter, outer_args, complain);
26524 if (guide == error_mark_node)
26525 return error_mark_node;
26526 if ((flags & LOOKUP_ONLYCONVERTING)
26527 && DECL_NONCONVERTING_P (STRIP_TEMPLATE (guide)))
26528 elided = true;
26529 else
26530 cands = lookup_add (guide, cands);
26532 saw_ctor = true;
26535 tree call = error_mark_node;
26537 /* If this is list-initialization and the class has a list constructor, first
26538 try deducing from the list as a single argument, as [over.match.list]. */
26539 tree list_cands = NULL_TREE;
26540 if (try_list_ctor && cands)
26541 for (lkp_iterator iter (cands); iter; ++iter)
26543 tree dg = *iter;
26544 if (is_list_ctor (dg))
26545 list_cands = lookup_add (dg, list_cands);
26547 if (list_cands)
26549 ++cp_unevaluated_operand;
26550 call = build_new_function_call (list_cands, &args, tf_decltype);
26551 --cp_unevaluated_operand;
26553 if (call == error_mark_node)
26555 /* That didn't work, now try treating the list as a sequence of
26556 arguments. */
26557 release_tree_vector (args);
26558 args = make_tree_vector_from_ctor (init);
26562 /* Maybe generate an implicit deduction guide. */
26563 if (call == error_mark_node && args->length () < 2)
26565 tree gtype = NULL_TREE;
26567 if (args->length () == 1)
26568 /* Generate a copy guide. */
26569 gtype = build_reference_type (type);
26570 else if (!saw_ctor)
26571 /* Generate a default guide. */
26572 gtype = type;
26574 if (gtype)
26576 tree guide = build_deduction_guide (gtype, outer_args, complain);
26577 if (guide == error_mark_node)
26578 return error_mark_node;
26579 cands = lookup_add (guide, cands);
26583 if (elided && !cands)
26585 error ("cannot deduce template arguments for copy-initialization"
26586 " of %qT, as it has no non-explicit deduction guides or "
26587 "user-declared constructors", type);
26588 return error_mark_node;
26590 else if (!cands && call == error_mark_node)
26592 error ("cannot deduce template arguments of %qT, as it has no viable "
26593 "deduction guides", type);
26594 return error_mark_node;
26597 if (call == error_mark_node)
26599 ++cp_unevaluated_operand;
26600 call = build_new_function_call (cands, &args, tf_decltype);
26601 --cp_unevaluated_operand;
26604 if (call == error_mark_node && (complain & tf_warning_or_error))
26606 error ("class template argument deduction failed:");
26608 ++cp_unevaluated_operand;
26609 call = build_new_function_call (cands, &args, complain | tf_decltype);
26610 --cp_unevaluated_operand;
26612 if (elided)
26613 inform (input_location, "explicit deduction guides not considered "
26614 "for copy-initialization");
26617 release_tree_vector (args);
26619 return cp_build_qualified_type (TREE_TYPE (call), cp_type_quals (ptype));
26622 /* Replace occurrences of 'auto' in TYPE with the appropriate type deduced
26623 from INIT. AUTO_NODE is the TEMPLATE_TYPE_PARM used for 'auto' in TYPE.
26624 The CONTEXT determines the context in which auto deduction is performed
26625 and is used to control error diagnostics. FLAGS are the LOOKUP_* flags.
26626 OUTER_TARGS are used during template argument deduction
26627 (context == adc_unify) to properly substitute the result, and is ignored
26628 in other contexts.
26630 For partial-concept-ids, extra args may be appended to the list of deduced
26631 template arguments prior to determining constraint satisfaction. */
26633 tree
26634 do_auto_deduction (tree type, tree init, tree auto_node,
26635 tsubst_flags_t complain, auto_deduction_context context,
26636 tree outer_targs, int flags)
26638 tree targs;
26640 if (init == error_mark_node)
26641 return error_mark_node;
26643 if (init && type_dependent_expression_p (init)
26644 && context != adc_unify)
26645 /* Defining a subset of type-dependent expressions that we can deduce
26646 from ahead of time isn't worth the trouble. */
26647 return type;
26649 /* Similarly, we can't deduce from another undeduced decl. */
26650 if (init && undeduced_auto_decl (init))
26651 return type;
26653 if (tree tmpl = CLASS_PLACEHOLDER_TEMPLATE (auto_node))
26654 /* C++17 class template argument deduction. */
26655 return do_class_deduction (type, tmpl, init, flags, complain);
26657 if (init == NULL_TREE || TREE_TYPE (init) == NULL_TREE)
26658 /* Nothing we can do with this, even in deduction context. */
26659 return type;
26661 /* [dcl.spec.auto]: Obtain P from T by replacing the occurrences of auto
26662 with either a new invented type template parameter U or, if the
26663 initializer is a braced-init-list (8.5.4), with
26664 std::initializer_list<U>. */
26665 if (BRACE_ENCLOSED_INITIALIZER_P (init))
26667 if (!DIRECT_LIST_INIT_P (init))
26668 type = listify_autos (type, auto_node);
26669 else if (CONSTRUCTOR_NELTS (init) == 1)
26670 init = CONSTRUCTOR_ELT (init, 0)->value;
26671 else
26673 if (complain & tf_warning_or_error)
26675 if (permerror (input_location, "direct-list-initialization of "
26676 "%<auto%> requires exactly one element"))
26677 inform (input_location,
26678 "for deduction to %<std::initializer_list%>, use copy-"
26679 "list-initialization (i.e. add %<=%> before the %<{%>)");
26681 type = listify_autos (type, auto_node);
26685 if (type == error_mark_node)
26686 return error_mark_node;
26688 init = resolve_nondeduced_context (init, complain);
26690 if (context == adc_decomp_type
26691 && auto_node == type
26692 && init != error_mark_node
26693 && TREE_CODE (TREE_TYPE (init)) == ARRAY_TYPE)
26694 /* [dcl.decomp]/1 - if decomposition declaration has no ref-qualifiers
26695 and initializer has array type, deduce cv-qualified array type. */
26696 return cp_build_qualified_type_real (TREE_TYPE (init), TYPE_QUALS (type),
26697 complain);
26698 else if (AUTO_IS_DECLTYPE (auto_node))
26700 bool id = (DECL_P (init)
26701 || ((TREE_CODE (init) == COMPONENT_REF
26702 || TREE_CODE (init) == SCOPE_REF)
26703 && !REF_PARENTHESIZED_P (init)));
26704 targs = make_tree_vec (1);
26705 TREE_VEC_ELT (targs, 0)
26706 = finish_decltype_type (init, id, tf_warning_or_error);
26707 if (type != auto_node)
26709 if (complain & tf_error)
26710 error ("%qT as type rather than plain %<decltype(auto)%>", type);
26711 return error_mark_node;
26714 else
26716 tree parms = build_tree_list (NULL_TREE, type);
26717 tree tparms;
26719 if (flag_concepts)
26720 tparms = extract_autos (type);
26721 else
26723 tparms = make_tree_vec (1);
26724 TREE_VEC_ELT (tparms, 0)
26725 = build_tree_list (NULL_TREE, TYPE_NAME (auto_node));
26728 targs = make_tree_vec (TREE_VEC_LENGTH (tparms));
26729 int val = type_unification_real (tparms, targs, parms, &init, 1, 0,
26730 DEDUCE_CALL, LOOKUP_NORMAL,
26731 NULL, /*explain_p=*/false);
26732 if (val > 0)
26734 if (processing_template_decl)
26735 /* Try again at instantiation time. */
26736 return type;
26737 if (type && type != error_mark_node
26738 && (complain & tf_error))
26739 /* If type is error_mark_node a diagnostic must have been
26740 emitted by now. Also, having a mention to '<type error>'
26741 in the diagnostic is not really useful to the user. */
26743 if (cfun && auto_node == current_function_auto_return_pattern
26744 && LAMBDA_FUNCTION_P (current_function_decl))
26745 error ("unable to deduce lambda return type from %qE", init);
26746 else
26747 error ("unable to deduce %qT from %qE", type, init);
26748 type_unification_real (tparms, targs, parms, &init, 1, 0,
26749 DEDUCE_CALL, LOOKUP_NORMAL,
26750 NULL, /*explain_p=*/true);
26752 return error_mark_node;
26756 /* Check any placeholder constraints against the deduced type. */
26757 if (flag_concepts && !processing_template_decl)
26758 if (tree constr = PLACEHOLDER_TYPE_CONSTRAINTS (auto_node))
26760 /* Use the deduced type to check the associated constraints. If we
26761 have a partial-concept-id, rebuild the argument list so that
26762 we check using the extra arguments. */
26763 gcc_assert (TREE_CODE (constr) == CHECK_CONSTR);
26764 tree cargs = CHECK_CONSTR_ARGS (constr);
26765 if (TREE_VEC_LENGTH (cargs) > 1)
26767 cargs = copy_node (cargs);
26768 TREE_VEC_ELT (cargs, 0) = TREE_VEC_ELT (targs, 0);
26770 else
26771 cargs = targs;
26772 if (!constraints_satisfied_p (constr, cargs))
26774 if (complain & tf_warning_or_error)
26776 switch (context)
26778 case adc_unspecified:
26779 case adc_unify:
26780 error("placeholder constraints not satisfied");
26781 break;
26782 case adc_variable_type:
26783 case adc_decomp_type:
26784 error ("deduced initializer does not satisfy "
26785 "placeholder constraints");
26786 break;
26787 case adc_return_type:
26788 error ("deduced return type does not satisfy "
26789 "placeholder constraints");
26790 break;
26791 case adc_requirement:
26792 error ("deduced expression type does not satisfy "
26793 "placeholder constraints");
26794 break;
26796 diagnose_constraints (input_location, constr, targs);
26798 return error_mark_node;
26802 if (processing_template_decl && context != adc_unify)
26803 outer_targs = current_template_args ();
26804 targs = add_to_template_args (outer_targs, targs);
26805 return tsubst (type, targs, complain, NULL_TREE);
26808 /* Substitutes LATE_RETURN_TYPE for 'auto' in TYPE and returns the
26809 result. */
26811 tree
26812 splice_late_return_type (tree type, tree late_return_type)
26814 if (is_auto (type))
26816 if (late_return_type)
26817 return late_return_type;
26819 tree idx = get_template_parm_index (type);
26820 if (TEMPLATE_PARM_LEVEL (idx) <= processing_template_decl)
26821 /* In an abbreviated function template we didn't know we were dealing
26822 with a function template when we saw the auto return type, so update
26823 it to have the correct level. */
26824 return make_auto_1 (TYPE_IDENTIFIER (type), true);
26826 return type;
26829 /* Returns true iff TYPE is a TEMPLATE_TYPE_PARM representing 'auto' or
26830 'decltype(auto)' or a deduced class template. */
26832 bool
26833 is_auto (const_tree type)
26835 if (TREE_CODE (type) == TEMPLATE_TYPE_PARM
26836 && (TYPE_IDENTIFIER (type) == auto_identifier
26837 || TYPE_IDENTIFIER (type) == decltype_auto_identifier
26838 || CLASS_PLACEHOLDER_TEMPLATE (type)))
26839 return true;
26840 else
26841 return false;
26844 /* for_each_template_parm callback for type_uses_auto. */
26847 is_auto_r (tree tp, void */*data*/)
26849 return is_auto (tp);
26852 /* Returns the TEMPLATE_TYPE_PARM in TYPE representing `auto' iff TYPE contains
26853 a use of `auto'. Returns NULL_TREE otherwise. */
26855 tree
26856 type_uses_auto (tree type)
26858 if (type == NULL_TREE)
26859 return NULL_TREE;
26860 else if (flag_concepts)
26862 /* The Concepts TS allows multiple autos in one type-specifier; just
26863 return the first one we find, do_auto_deduction will collect all of
26864 them. */
26865 if (uses_template_parms (type))
26866 return for_each_template_parm (type, is_auto_r, /*data*/NULL,
26867 /*visited*/NULL, /*nondeduced*/false);
26868 else
26869 return NULL_TREE;
26871 else
26872 return find_type_usage (type, is_auto);
26875 /* Report ill-formed occurrences of auto types in ARGUMENTS. If
26876 concepts are enabled, auto is acceptable in template arguments, but
26877 only when TEMPL identifies a template class. Return TRUE if any
26878 such errors were reported. */
26880 bool
26881 check_auto_in_tmpl_args (tree tmpl, tree args)
26883 /* If there were previous errors, nevermind. */
26884 if (!args || TREE_CODE (args) != TREE_VEC)
26885 return false;
26887 /* If TMPL is an identifier, we're parsing and we can't tell yet
26888 whether TMPL is supposed to be a type, a function or a variable.
26889 We'll only be able to tell during template substitution, so we
26890 expect to be called again then. If concepts are enabled and we
26891 know we have a type, we're ok. */
26892 if (flag_concepts
26893 && (identifier_p (tmpl)
26894 || (DECL_P (tmpl)
26895 && (DECL_TYPE_TEMPLATE_P (tmpl)
26896 || DECL_TEMPLATE_TEMPLATE_PARM_P (tmpl)))))
26897 return false;
26899 /* Quickly search for any occurrences of auto; usually there won't
26900 be any, and then we'll avoid allocating the vector. */
26901 if (!type_uses_auto (args))
26902 return false;
26904 bool errors = false;
26906 tree vec = extract_autos (args);
26907 for (int i = 0; i < TREE_VEC_LENGTH (vec); i++)
26909 tree xauto = TREE_VALUE (TREE_VEC_ELT (vec, i));
26910 error_at (DECL_SOURCE_LOCATION (xauto),
26911 "invalid use of %qT in template argument", xauto);
26912 errors = true;
26915 return errors;
26918 /* For a given template T, return the vector of typedefs referenced
26919 in T for which access check is needed at T instantiation time.
26920 T is either a FUNCTION_DECL or a RECORD_TYPE.
26921 Those typedefs were added to T by the function
26922 append_type_to_template_for_access_check. */
26924 vec<qualified_typedef_usage_t, va_gc> *
26925 get_types_needing_access_check (tree t)
26927 tree ti;
26928 vec<qualified_typedef_usage_t, va_gc> *result = NULL;
26930 if (!t || t == error_mark_node)
26931 return NULL;
26933 if (!(ti = get_template_info (t)))
26934 return NULL;
26936 if (CLASS_TYPE_P (t)
26937 || TREE_CODE (t) == FUNCTION_DECL)
26939 if (!TI_TEMPLATE (ti))
26940 return NULL;
26942 result = TI_TYPEDEFS_NEEDING_ACCESS_CHECKING (ti);
26945 return result;
26948 /* Append the typedef TYPE_DECL used in template T to a list of typedefs
26949 tied to T. That list of typedefs will be access checked at
26950 T instantiation time.
26951 T is either a FUNCTION_DECL or a RECORD_TYPE.
26952 TYPE_DECL is a TYPE_DECL node representing a typedef.
26953 SCOPE is the scope through which TYPE_DECL is accessed.
26954 LOCATION is the location of the usage point of TYPE_DECL.
26956 This function is a subroutine of
26957 append_type_to_template_for_access_check. */
26959 static void
26960 append_type_to_template_for_access_check_1 (tree t,
26961 tree type_decl,
26962 tree scope,
26963 location_t location)
26965 qualified_typedef_usage_t typedef_usage;
26966 tree ti;
26968 if (!t || t == error_mark_node)
26969 return;
26971 gcc_assert ((TREE_CODE (t) == FUNCTION_DECL
26972 || CLASS_TYPE_P (t))
26973 && type_decl
26974 && TREE_CODE (type_decl) == TYPE_DECL
26975 && scope);
26977 if (!(ti = get_template_info (t)))
26978 return;
26980 gcc_assert (TI_TEMPLATE (ti));
26982 typedef_usage.typedef_decl = type_decl;
26983 typedef_usage.context = scope;
26984 typedef_usage.locus = location;
26986 vec_safe_push (TI_TYPEDEFS_NEEDING_ACCESS_CHECKING (ti), typedef_usage);
26989 /* Append TYPE_DECL to the template TEMPL.
26990 TEMPL is either a class type, a FUNCTION_DECL or a a TEMPLATE_DECL.
26991 At TEMPL instanciation time, TYPE_DECL will be checked to see
26992 if it can be accessed through SCOPE.
26993 LOCATION is the location of the usage point of TYPE_DECL.
26995 e.g. consider the following code snippet:
26997 class C
26999 typedef int myint;
27002 template<class U> struct S
27004 C::myint mi; // <-- usage point of the typedef C::myint
27007 S<char> s;
27009 At S<char> instantiation time, we need to check the access of C::myint
27010 In other words, we need to check the access of the myint typedef through
27011 the C scope. For that purpose, this function will add the myint typedef
27012 and the scope C through which its being accessed to a list of typedefs
27013 tied to the template S. That list will be walked at template instantiation
27014 time and access check performed on each typedefs it contains.
27015 Note that this particular code snippet should yield an error because
27016 myint is private to C. */
27018 void
27019 append_type_to_template_for_access_check (tree templ,
27020 tree type_decl,
27021 tree scope,
27022 location_t location)
27024 qualified_typedef_usage_t *iter;
27025 unsigned i;
27027 gcc_assert (type_decl && (TREE_CODE (type_decl) == TYPE_DECL));
27029 /* Make sure we don't append the type to the template twice. */
27030 FOR_EACH_VEC_SAFE_ELT (get_types_needing_access_check (templ), i, iter)
27031 if (iter->typedef_decl == type_decl && scope == iter->context)
27032 return;
27034 append_type_to_template_for_access_check_1 (templ, type_decl,
27035 scope, location);
27038 /* Convert the generic type parameters in PARM that match the types given in the
27039 range [START_IDX, END_IDX) from the current_template_parms into generic type
27040 packs. */
27042 tree
27043 convert_generic_types_to_packs (tree parm, int start_idx, int end_idx)
27045 tree current = current_template_parms;
27046 int depth = TMPL_PARMS_DEPTH (current);
27047 current = INNERMOST_TEMPLATE_PARMS (current);
27048 tree replacement = make_tree_vec (TREE_VEC_LENGTH (current));
27050 for (int i = 0; i < start_idx; ++i)
27051 TREE_VEC_ELT (replacement, i)
27052 = TREE_TYPE (TREE_VALUE (TREE_VEC_ELT (current, i)));
27054 for (int i = start_idx; i < end_idx; ++i)
27056 /* Create a distinct parameter pack type from the current parm and add it
27057 to the replacement args to tsubst below into the generic function
27058 parameter. */
27060 tree o = TREE_TYPE (TREE_VALUE
27061 (TREE_VEC_ELT (current, i)));
27062 tree t = copy_type (o);
27063 TEMPLATE_TYPE_PARM_INDEX (t)
27064 = reduce_template_parm_level (TEMPLATE_TYPE_PARM_INDEX (o),
27065 o, 0, 0, tf_none);
27066 TREE_TYPE (TEMPLATE_TYPE_DECL (t)) = t;
27067 TYPE_STUB_DECL (t) = TYPE_NAME (t) = TEMPLATE_TYPE_DECL (t);
27068 TYPE_MAIN_VARIANT (t) = t;
27069 TEMPLATE_TYPE_PARAMETER_PACK (t) = true;
27070 TYPE_CANONICAL (t) = canonical_type_parameter (t);
27071 TREE_VEC_ELT (replacement, i) = t;
27072 TREE_VALUE (TREE_VEC_ELT (current, i)) = TREE_CHAIN (t);
27075 for (int i = end_idx, e = TREE_VEC_LENGTH (current); i < e; ++i)
27076 TREE_VEC_ELT (replacement, i)
27077 = TREE_TYPE (TREE_VALUE (TREE_VEC_ELT (current, i)));
27079 /* If there are more levels then build up the replacement with the outer
27080 template parms. */
27081 if (depth > 1)
27082 replacement = add_to_template_args (template_parms_to_args
27083 (TREE_CHAIN (current_template_parms)),
27084 replacement);
27086 return tsubst (parm, replacement, tf_none, NULL_TREE);
27089 /* Entries in the decl_constraint hash table. */
27090 struct GTY((for_user)) constr_entry
27092 tree decl;
27093 tree ci;
27096 /* Hashing function and equality for constraint entries. */
27097 struct constr_hasher : ggc_ptr_hash<constr_entry>
27099 static hashval_t hash (constr_entry *e)
27101 return (hashval_t)DECL_UID (e->decl);
27104 static bool equal (constr_entry *e1, constr_entry *e2)
27106 return e1->decl == e2->decl;
27110 /* A mapping from declarations to constraint information. Note that
27111 both templates and their underlying declarations are mapped to the
27112 same constraint information.
27114 FIXME: This is defined in pt.c because garbage collection
27115 code is not being generated for constraint.cc. */
27117 static GTY (()) hash_table<constr_hasher> *decl_constraints;
27119 /* Returns the template constraints of declaration T. If T is not
27120 constrained, return NULL_TREE. Note that T must be non-null. */
27122 tree
27123 get_constraints (tree t)
27125 if (!flag_concepts)
27126 return NULL_TREE;
27128 gcc_assert (DECL_P (t));
27129 if (TREE_CODE (t) == TEMPLATE_DECL)
27130 t = DECL_TEMPLATE_RESULT (t);
27131 constr_entry elt = { t, NULL_TREE };
27132 constr_entry* found = decl_constraints->find (&elt);
27133 if (found)
27134 return found->ci;
27135 else
27136 return NULL_TREE;
27139 /* Associate the given constraint information CI with the declaration
27140 T. If T is a template, then the constraints are associated with
27141 its underlying declaration. Don't build associations if CI is
27142 NULL_TREE. */
27144 void
27145 set_constraints (tree t, tree ci)
27147 if (!ci)
27148 return;
27149 gcc_assert (t && flag_concepts);
27150 if (TREE_CODE (t) == TEMPLATE_DECL)
27151 t = DECL_TEMPLATE_RESULT (t);
27152 gcc_assert (!get_constraints (t));
27153 constr_entry elt = {t, ci};
27154 constr_entry** slot = decl_constraints->find_slot (&elt, INSERT);
27155 constr_entry* entry = ggc_alloc<constr_entry> ();
27156 *entry = elt;
27157 *slot = entry;
27160 /* Remove the associated constraints of the declaration T. */
27162 void
27163 remove_constraints (tree t)
27165 gcc_assert (DECL_P (t));
27166 if (TREE_CODE (t) == TEMPLATE_DECL)
27167 t = DECL_TEMPLATE_RESULT (t);
27169 constr_entry elt = {t, NULL_TREE};
27170 constr_entry** slot = decl_constraints->find_slot (&elt, NO_INSERT);
27171 if (slot)
27172 decl_constraints->clear_slot (slot);
27175 /* Memoized satisfaction results for declarations. This
27176 maps the pair (constraint_info, arguments) to the result computed
27177 by constraints_satisfied_p. */
27179 struct GTY((for_user)) constraint_sat_entry
27181 tree ci;
27182 tree args;
27183 tree result;
27186 /* Hashing function and equality for constraint entries. */
27188 struct constraint_sat_hasher : ggc_ptr_hash<constraint_sat_entry>
27190 static hashval_t hash (constraint_sat_entry *e)
27192 hashval_t val = iterative_hash_object(e->ci, 0);
27193 return iterative_hash_template_arg (e->args, val);
27196 static bool equal (constraint_sat_entry *e1, constraint_sat_entry *e2)
27198 return e1->ci == e2->ci && comp_template_args (e1->args, e2->args);
27202 /* Memoized satisfaction results for concept checks. */
27204 struct GTY((for_user)) concept_spec_entry
27206 tree tmpl;
27207 tree args;
27208 tree result;
27211 /* Hashing function and equality for constraint entries. */
27213 struct concept_spec_hasher : ggc_ptr_hash<concept_spec_entry>
27215 static hashval_t hash (concept_spec_entry *e)
27217 return hash_tmpl_and_args (e->tmpl, e->args);
27220 static bool equal (concept_spec_entry *e1, concept_spec_entry *e2)
27222 ++comparing_specializations;
27223 bool eq = e1->tmpl == e2->tmpl && comp_template_args (e1->args, e2->args);
27224 --comparing_specializations;
27225 return eq;
27229 static GTY (()) hash_table<constraint_sat_hasher> *constraint_memos;
27230 static GTY (()) hash_table<concept_spec_hasher> *concept_memos;
27232 /* Search for a memoized satisfaction result. Returns one of the
27233 truth value nodes if previously memoized, or NULL_TREE otherwise. */
27235 tree
27236 lookup_constraint_satisfaction (tree ci, tree args)
27238 constraint_sat_entry elt = { ci, args, NULL_TREE };
27239 constraint_sat_entry* found = constraint_memos->find (&elt);
27240 if (found)
27241 return found->result;
27242 else
27243 return NULL_TREE;
27246 /* Memoize the result of a satisfication test. Returns the saved result. */
27248 tree
27249 memoize_constraint_satisfaction (tree ci, tree args, tree result)
27251 constraint_sat_entry elt = {ci, args, result};
27252 constraint_sat_entry** slot = constraint_memos->find_slot (&elt, INSERT);
27253 constraint_sat_entry* entry = ggc_alloc<constraint_sat_entry> ();
27254 *entry = elt;
27255 *slot = entry;
27256 return result;
27259 /* Search for a memoized satisfaction result for a concept. */
27261 tree
27262 lookup_concept_satisfaction (tree tmpl, tree args)
27264 concept_spec_entry elt = { tmpl, args, NULL_TREE };
27265 concept_spec_entry* found = concept_memos->find (&elt);
27266 if (found)
27267 return found->result;
27268 else
27269 return NULL_TREE;
27272 /* Memoize the result of a concept check. Returns the saved result. */
27274 tree
27275 memoize_concept_satisfaction (tree tmpl, tree args, tree result)
27277 concept_spec_entry elt = {tmpl, args, result};
27278 concept_spec_entry** slot = concept_memos->find_slot (&elt, INSERT);
27279 concept_spec_entry* entry = ggc_alloc<concept_spec_entry> ();
27280 *entry = elt;
27281 *slot = entry;
27282 return result;
27285 static GTY (()) hash_table<concept_spec_hasher> *concept_expansions;
27287 /* Returns a prior concept specialization. This returns the substituted
27288 and normalized constraints defined by the concept. */
27290 tree
27291 get_concept_expansion (tree tmpl, tree args)
27293 concept_spec_entry elt = { tmpl, args, NULL_TREE };
27294 concept_spec_entry* found = concept_expansions->find (&elt);
27295 if (found)
27296 return found->result;
27297 else
27298 return NULL_TREE;
27301 /* Save a concept expansion for later. */
27303 tree
27304 save_concept_expansion (tree tmpl, tree args, tree def)
27306 concept_spec_entry elt = {tmpl, args, def};
27307 concept_spec_entry** slot = concept_expansions->find_slot (&elt, INSERT);
27308 concept_spec_entry* entry = ggc_alloc<concept_spec_entry> ();
27309 *entry = elt;
27310 *slot = entry;
27311 return def;
27314 static hashval_t
27315 hash_subsumption_args (tree t1, tree t2)
27317 gcc_assert (TREE_CODE (t1) == CHECK_CONSTR);
27318 gcc_assert (TREE_CODE (t2) == CHECK_CONSTR);
27319 int val = 0;
27320 val = iterative_hash_object (CHECK_CONSTR_CONCEPT (t1), val);
27321 val = iterative_hash_template_arg (CHECK_CONSTR_ARGS (t1), val);
27322 val = iterative_hash_object (CHECK_CONSTR_CONCEPT (t2), val);
27323 val = iterative_hash_template_arg (CHECK_CONSTR_ARGS (t2), val);
27324 return val;
27327 /* Compare the constraints of two subsumption entries. The LEFT1 and
27328 LEFT2 arguments comprise the first subsumption pair and the RIGHT1
27329 and RIGHT2 arguments comprise the second. These are all CHECK_CONSTRs. */
27331 static bool
27332 comp_subsumption_args (tree left1, tree left2, tree right1, tree right2)
27334 if (CHECK_CONSTR_CONCEPT (left1) == CHECK_CONSTR_CONCEPT (right1))
27335 if (CHECK_CONSTR_CONCEPT (left2) == CHECK_CONSTR_CONCEPT (right2))
27336 if (comp_template_args (CHECK_CONSTR_ARGS (left1),
27337 CHECK_CONSTR_ARGS (right1)))
27338 return comp_template_args (CHECK_CONSTR_ARGS (left2),
27339 CHECK_CONSTR_ARGS (right2));
27340 return false;
27343 /* Key/value pair for learning and memoizing subsumption results. This
27344 associates a pair of check constraints (including arguments) with
27345 a boolean value indicating the result. */
27347 struct GTY((for_user)) subsumption_entry
27349 tree t1;
27350 tree t2;
27351 bool result;
27354 /* Hashing function and equality for constraint entries. */
27356 struct subsumption_hasher : ggc_ptr_hash<subsumption_entry>
27358 static hashval_t hash (subsumption_entry *e)
27360 return hash_subsumption_args (e->t1, e->t2);
27363 static bool equal (subsumption_entry *e1, subsumption_entry *e2)
27365 ++comparing_specializations;
27366 bool eq = comp_subsumption_args(e1->t1, e1->t2, e2->t1, e2->t2);
27367 --comparing_specializations;
27368 return eq;
27372 static GTY (()) hash_table<subsumption_hasher> *subsumption_table;
27374 /* Search for a previously cached subsumption result. */
27376 bool*
27377 lookup_subsumption_result (tree t1, tree t2)
27379 subsumption_entry elt = { t1, t2, false };
27380 subsumption_entry* found = subsumption_table->find (&elt);
27381 if (found)
27382 return &found->result;
27383 else
27384 return 0;
27387 /* Save a subsumption result. */
27389 bool
27390 save_subsumption_result (tree t1, tree t2, bool result)
27392 subsumption_entry elt = {t1, t2, result};
27393 subsumption_entry** slot = subsumption_table->find_slot (&elt, INSERT);
27394 subsumption_entry* entry = ggc_alloc<subsumption_entry> ();
27395 *entry = elt;
27396 *slot = entry;
27397 return result;
27400 /* Set up the hash table for constraint association. */
27402 void
27403 init_constraint_processing (void)
27405 if (!flag_concepts)
27406 return;
27408 decl_constraints = hash_table<constr_hasher>::create_ggc(37);
27409 constraint_memos = hash_table<constraint_sat_hasher>::create_ggc(37);
27410 concept_memos = hash_table<concept_spec_hasher>::create_ggc(37);
27411 concept_expansions = hash_table<concept_spec_hasher>::create_ggc(37);
27412 subsumption_table = hash_table<subsumption_hasher>::create_ggc(37);
27415 /* __integer_pack(N) in a pack expansion expands to a sequence of numbers from
27416 0..N-1. */
27418 void
27419 declare_integer_pack (void)
27421 tree ipfn = push_library_fn (get_identifier ("__integer_pack"),
27422 build_function_type_list (integer_type_node,
27423 integer_type_node,
27424 NULL_TREE),
27425 NULL_TREE, ECF_CONST);
27426 DECL_DECLARED_CONSTEXPR_P (ipfn) = true;
27427 DECL_BUILT_IN_CLASS (ipfn) = BUILT_IN_FRONTEND;
27430 /* Set up the hash tables for template instantiations. */
27432 void
27433 init_template_processing (void)
27435 decl_specializations = hash_table<spec_hasher>::create_ggc (37);
27436 type_specializations = hash_table<spec_hasher>::create_ggc (37);
27438 if (cxx_dialect >= cxx11)
27439 declare_integer_pack ();
27442 /* Print stats about the template hash tables for -fstats. */
27444 void
27445 print_template_statistics (void)
27447 fprintf (stderr, "decl_specializations: size %ld, %ld elements, "
27448 "%f collisions\n", (long) decl_specializations->size (),
27449 (long) decl_specializations->elements (),
27450 decl_specializations->collisions ());
27451 fprintf (stderr, "type_specializations: size %ld, %ld elements, "
27452 "%f collisions\n", (long) type_specializations->size (),
27453 (long) type_specializations->elements (),
27454 type_specializations->collisions ());
27457 #if CHECKING_P
27459 namespace selftest {
27461 /* Verify that build_non_dependent_expr () works, for various expressions,
27462 and that location wrappers don't affect the results. */
27464 static void
27465 test_build_non_dependent_expr ()
27467 location_t loc = BUILTINS_LOCATION;
27469 /* Verify constants, without and with location wrappers. */
27470 tree int_cst = build_int_cst (integer_type_node, 42);
27471 ASSERT_EQ (int_cst, build_non_dependent_expr (int_cst));
27473 tree wrapped_int_cst = maybe_wrap_with_location (int_cst, loc);
27474 ASSERT_TRUE (location_wrapper_p (wrapped_int_cst));
27475 ASSERT_EQ (wrapped_int_cst, build_non_dependent_expr (wrapped_int_cst));
27477 tree string_lit = build_string (4, "foo");
27478 TREE_TYPE (string_lit) = char_array_type_node;
27479 string_lit = fix_string_type (string_lit);
27480 ASSERT_EQ (string_lit, build_non_dependent_expr (string_lit));
27482 tree wrapped_string_lit = maybe_wrap_with_location (string_lit, loc);
27483 ASSERT_TRUE (location_wrapper_p (wrapped_string_lit));
27484 ASSERT_EQ (wrapped_string_lit,
27485 build_non_dependent_expr (wrapped_string_lit));
27488 /* Verify that type_dependent_expression_p () works correctly, even
27489 in the presence of location wrapper nodes. */
27491 static void
27492 test_type_dependent_expression_p ()
27494 location_t loc = BUILTINS_LOCATION;
27496 tree name = get_identifier ("foo");
27498 /* If no templates are involved, nothing is type-dependent. */
27499 gcc_assert (!processing_template_decl);
27500 ASSERT_FALSE (type_dependent_expression_p (name));
27502 ++processing_template_decl;
27504 /* Within a template, an unresolved name is always type-dependent. */
27505 ASSERT_TRUE (type_dependent_expression_p (name));
27507 /* Ensure it copes with NULL_TREE and errors. */
27508 ASSERT_FALSE (type_dependent_expression_p (NULL_TREE));
27509 ASSERT_FALSE (type_dependent_expression_p (error_mark_node));
27511 /* A USING_DECL in a template should be type-dependent, even if wrapped
27512 with a location wrapper (PR c++/83799). */
27513 tree using_decl = build_lang_decl (USING_DECL, name, NULL_TREE);
27514 TREE_TYPE (using_decl) = integer_type_node;
27515 ASSERT_TRUE (type_dependent_expression_p (using_decl));
27516 tree wrapped_using_decl = maybe_wrap_with_location (using_decl, loc);
27517 ASSERT_TRUE (location_wrapper_p (wrapped_using_decl));
27518 ASSERT_TRUE (type_dependent_expression_p (wrapped_using_decl));
27520 --processing_template_decl;
27523 /* Run all of the selftests within this file. */
27525 void
27526 cp_pt_c_tests ()
27528 test_build_non_dependent_expr ();
27529 test_type_dependent_expression_p ();
27532 } // namespace selftest
27534 #endif /* #if CHECKING_P */
27536 #include "gt-cp-pt.h"