PR c++/85462
[official-gcc.git] / gcc / cp / pt.c
blobe2a12b963ad23d195cd51d1c739b3f5479543df6
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 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 UNDERLYING_TYPE:
9833 if (pfd->include_nondeduced_p
9834 && for_each_template_parm (TYPE_VALUES_RAW (t), fn, data,
9835 pfd->visited,
9836 pfd->include_nondeduced_p,
9837 pfd->any_fn))
9838 return error_mark_node;
9839 break;
9841 case FUNCTION_DECL:
9842 case VAR_DECL:
9843 if (DECL_LANG_SPECIFIC (t) && DECL_TEMPLATE_INFO (t))
9844 WALK_SUBTREE (DECL_TI_ARGS (t));
9845 /* Fall through. */
9847 case PARM_DECL:
9848 case CONST_DECL:
9849 if (TREE_CODE (t) == CONST_DECL && DECL_TEMPLATE_PARM_P (t))
9850 WALK_SUBTREE (DECL_INITIAL (t));
9851 if (DECL_CONTEXT (t)
9852 && pfd->include_nondeduced_p)
9853 WALK_SUBTREE (DECL_CONTEXT (t));
9854 break;
9856 case BOUND_TEMPLATE_TEMPLATE_PARM:
9857 /* Record template parameters such as `T' inside `TT<T>'. */
9858 WALK_SUBTREE (TYPE_TI_ARGS (t));
9859 /* Fall through. */
9861 case TEMPLATE_TEMPLATE_PARM:
9862 case TEMPLATE_TYPE_PARM:
9863 case TEMPLATE_PARM_INDEX:
9864 if (fn && (*fn)(t, data))
9865 return t;
9866 else if (!fn)
9867 return t;
9868 break;
9870 case TEMPLATE_DECL:
9871 /* A template template parameter is encountered. */
9872 if (DECL_TEMPLATE_TEMPLATE_PARM_P (t))
9873 WALK_SUBTREE (TREE_TYPE (t));
9875 /* Already substituted template template parameter */
9876 *walk_subtrees = 0;
9877 break;
9879 case TYPENAME_TYPE:
9880 /* A template-id in a TYPENAME_TYPE might be a deduced context after
9881 partial instantiation. */
9882 WALK_SUBTREE (TYPENAME_TYPE_FULLNAME (t));
9883 break;
9885 case CONSTRUCTOR:
9886 if (TREE_TYPE (t) && TYPE_PTRMEMFUNC_P (TREE_TYPE (t))
9887 && pfd->include_nondeduced_p)
9888 WALK_SUBTREE (TYPE_PTRMEMFUNC_FN_TYPE (TREE_TYPE (t)));
9889 break;
9891 case INDIRECT_REF:
9892 case COMPONENT_REF:
9893 /* If there's no type, then this thing must be some expression
9894 involving template parameters. */
9895 if (!fn && !TREE_TYPE (t))
9896 return error_mark_node;
9897 break;
9899 case MODOP_EXPR:
9900 case CAST_EXPR:
9901 case IMPLICIT_CONV_EXPR:
9902 case REINTERPRET_CAST_EXPR:
9903 case CONST_CAST_EXPR:
9904 case STATIC_CAST_EXPR:
9905 case DYNAMIC_CAST_EXPR:
9906 case ARROW_EXPR:
9907 case DOTSTAR_EXPR:
9908 case TYPEID_EXPR:
9909 case PSEUDO_DTOR_EXPR:
9910 if (!fn)
9911 return error_mark_node;
9912 break;
9914 default:
9915 break;
9918 #undef WALK_SUBTREE
9920 /* We didn't find any template parameters we liked. */
9921 out:
9922 return result;
9925 /* For each TEMPLATE_TYPE_PARM, TEMPLATE_TEMPLATE_PARM,
9926 BOUND_TEMPLATE_TEMPLATE_PARM or TEMPLATE_PARM_INDEX in T,
9927 call FN with the parameter and the DATA.
9928 If FN returns nonzero, the iteration is terminated, and
9929 for_each_template_parm returns 1. Otherwise, the iteration
9930 continues. If FN never returns a nonzero value, the value
9931 returned by for_each_template_parm is 0. If FN is NULL, it is
9932 considered to be the function which always returns 1.
9934 If INCLUDE_NONDEDUCED_P, then this routine will also visit template
9935 parameters that occur in non-deduced contexts. When false, only
9936 visits those template parameters that can be deduced. */
9938 static tree
9939 for_each_template_parm (tree t, tree_fn_t fn, void* data,
9940 hash_set<tree> *visited,
9941 bool include_nondeduced_p,
9942 tree_fn_t any_fn)
9944 struct pair_fn_data pfd;
9945 tree result;
9947 /* Set up. */
9948 pfd.fn = fn;
9949 pfd.any_fn = any_fn;
9950 pfd.data = data;
9951 pfd.include_nondeduced_p = include_nondeduced_p;
9953 /* Walk the tree. (Conceptually, we would like to walk without
9954 duplicates, but for_each_template_parm_r recursively calls
9955 for_each_template_parm, so we would need to reorganize a fair
9956 bit to use walk_tree_without_duplicates, so we keep our own
9957 visited list.) */
9958 if (visited)
9959 pfd.visited = visited;
9960 else
9961 pfd.visited = new hash_set<tree>;
9962 result = cp_walk_tree (&t,
9963 for_each_template_parm_r,
9964 &pfd,
9965 pfd.visited);
9967 /* Clean up. */
9968 if (!visited)
9970 delete pfd.visited;
9971 pfd.visited = 0;
9974 return result;
9977 /* Returns true if T depends on any template parameter. */
9980 uses_template_parms (tree t)
9982 if (t == NULL_TREE)
9983 return false;
9985 bool dependent_p;
9986 int saved_processing_template_decl;
9988 saved_processing_template_decl = processing_template_decl;
9989 if (!saved_processing_template_decl)
9990 processing_template_decl = 1;
9991 if (TYPE_P (t))
9992 dependent_p = dependent_type_p (t);
9993 else if (TREE_CODE (t) == TREE_VEC)
9994 dependent_p = any_dependent_template_arguments_p (t);
9995 else if (TREE_CODE (t) == TREE_LIST)
9996 dependent_p = (uses_template_parms (TREE_VALUE (t))
9997 || uses_template_parms (TREE_CHAIN (t)));
9998 else if (TREE_CODE (t) == TYPE_DECL)
9999 dependent_p = dependent_type_p (TREE_TYPE (t));
10000 else if (DECL_P (t)
10001 || EXPR_P (t)
10002 || TREE_CODE (t) == TEMPLATE_PARM_INDEX
10003 || TREE_CODE (t) == OVERLOAD
10004 || BASELINK_P (t)
10005 || identifier_p (t)
10006 || TREE_CODE (t) == TRAIT_EXPR
10007 || TREE_CODE (t) == CONSTRUCTOR
10008 || CONSTANT_CLASS_P (t))
10009 dependent_p = (type_dependent_expression_p (t)
10010 || value_dependent_expression_p (t));
10011 else
10013 gcc_assert (t == error_mark_node);
10014 dependent_p = false;
10017 processing_template_decl = saved_processing_template_decl;
10019 return dependent_p;
10022 /* Returns true iff current_function_decl is an incompletely instantiated
10023 template. Useful instead of processing_template_decl because the latter
10024 is set to 0 during instantiate_non_dependent_expr. */
10026 bool
10027 in_template_function (void)
10029 tree fn = current_function_decl;
10030 bool ret;
10031 ++processing_template_decl;
10032 ret = (fn && DECL_LANG_SPECIFIC (fn)
10033 && DECL_TEMPLATE_INFO (fn)
10034 && any_dependent_template_arguments_p (DECL_TI_ARGS (fn)));
10035 --processing_template_decl;
10036 return ret;
10039 /* Returns true if T depends on any template parameter with level LEVEL. */
10041 bool
10042 uses_template_parms_level (tree t, int level)
10044 return for_each_template_parm (t, template_parm_this_level_p, &level, NULL,
10045 /*include_nondeduced_p=*/true);
10048 /* Returns true if the signature of DECL depends on any template parameter from
10049 its enclosing class. */
10051 bool
10052 uses_outer_template_parms (tree decl)
10054 int depth = template_class_depth (CP_DECL_CONTEXT (decl));
10055 if (depth == 0)
10056 return false;
10057 if (for_each_template_parm (TREE_TYPE (decl), template_parm_outer_level,
10058 &depth, NULL, /*include_nondeduced_p=*/true))
10059 return true;
10060 if (PRIMARY_TEMPLATE_P (decl)
10061 && for_each_template_parm (INNERMOST_TEMPLATE_PARMS
10062 (DECL_TEMPLATE_PARMS (decl)),
10063 template_parm_outer_level,
10064 &depth, NULL, /*include_nondeduced_p=*/true))
10065 return true;
10066 tree ci = get_constraints (decl);
10067 if (ci)
10068 ci = CI_ASSOCIATED_CONSTRAINTS (ci);
10069 if (ci && for_each_template_parm (ci, template_parm_outer_level,
10070 &depth, NULL, /*nondeduced*/true))
10071 return true;
10072 return false;
10075 /* Returns TRUE iff INST is an instantiation we don't need to do in an
10076 ill-formed translation unit, i.e. a variable or function that isn't
10077 usable in a constant expression. */
10079 static inline bool
10080 neglectable_inst_p (tree d)
10082 return (d && DECL_P (d)
10083 && !undeduced_auto_decl (d)
10084 && !(TREE_CODE (d) == FUNCTION_DECL ? DECL_DECLARED_CONSTEXPR_P (d)
10085 : decl_maybe_constant_var_p (d)));
10088 /* Returns TRUE iff we should refuse to instantiate DECL because it's
10089 neglectable and instantiated from within an erroneous instantiation. */
10091 static bool
10092 limit_bad_template_recursion (tree decl)
10094 struct tinst_level *lev = current_tinst_level;
10095 int errs = errorcount + sorrycount;
10096 if (lev == NULL || errs == 0 || !neglectable_inst_p (decl))
10097 return false;
10099 for (; lev; lev = lev->next)
10100 if (neglectable_inst_p (lev->maybe_get_node ()))
10101 break;
10103 return (lev && errs > lev->errors);
10106 static int tinst_depth;
10107 extern int max_tinst_depth;
10108 int depth_reached;
10110 static GTY(()) struct tinst_level *last_error_tinst_level;
10112 /* We're starting to instantiate D; record the template instantiation context
10113 at LOC for diagnostics and to restore it later. */
10115 static bool
10116 push_tinst_level_loc (tree tldcl, tree targs, location_t loc)
10118 struct tinst_level *new_level;
10120 if (tinst_depth >= max_tinst_depth)
10122 /* Tell error.c not to try to instantiate any templates. */
10123 at_eof = 2;
10124 fatal_error (input_location,
10125 "template instantiation depth exceeds maximum of %d"
10126 " (use -ftemplate-depth= to increase the maximum)",
10127 max_tinst_depth);
10128 return false;
10131 /* If the current instantiation caused problems, don't let it instantiate
10132 anything else. Do allow deduction substitution and decls usable in
10133 constant expressions. */
10134 if (!targs && limit_bad_template_recursion (tldcl))
10135 return false;
10137 /* When not -quiet, dump template instantiations other than functions, since
10138 announce_function will take care of those. */
10139 if (!quiet_flag && !targs
10140 && TREE_CODE (tldcl) != TREE_LIST
10141 && TREE_CODE (tldcl) != FUNCTION_DECL)
10142 fprintf (stderr, " %s", decl_as_string (tldcl, TFF_DECL_SPECIFIERS));
10144 new_level = tinst_level_freelist ().alloc ();
10145 new_level->tldcl = tldcl;
10146 new_level->targs = targs;
10147 new_level->locus = loc;
10148 new_level->errors = errorcount + sorrycount;
10149 new_level->next = NULL;
10150 new_level->refcount = 0;
10151 set_refcount_ptr (new_level->next, current_tinst_level);
10152 set_refcount_ptr (current_tinst_level, new_level);
10154 ++tinst_depth;
10155 if (GATHER_STATISTICS && (tinst_depth > depth_reached))
10156 depth_reached = tinst_depth;
10158 return true;
10161 /* We're starting substitution of TMPL<ARGS>; record the template
10162 substitution context for diagnostics and to restore it later. */
10164 static bool
10165 push_tinst_level (tree tmpl, tree args)
10167 return push_tinst_level_loc (tmpl, args, input_location);
10170 /* We're starting to instantiate D; record INPUT_LOCATION and the
10171 template instantiation context for diagnostics and to restore it
10172 later. */
10174 bool
10175 push_tinst_level (tree d)
10177 return push_tinst_level_loc (d, input_location);
10180 /* Likewise, but record LOC as the program location. */
10182 bool
10183 push_tinst_level_loc (tree d, location_t loc)
10185 gcc_assert (TREE_CODE (d) != TREE_LIST);
10186 return push_tinst_level_loc (d, NULL, loc);
10189 /* We're done instantiating this template; return to the instantiation
10190 context. */
10192 void
10193 pop_tinst_level (void)
10195 /* Restore the filename and line number stashed away when we started
10196 this instantiation. */
10197 input_location = current_tinst_level->locus;
10198 set_refcount_ptr (current_tinst_level, current_tinst_level->next);
10199 --tinst_depth;
10202 /* We're instantiating a deferred template; restore the template
10203 instantiation context in which the instantiation was requested, which
10204 is one step out from LEVEL. Return the corresponding DECL or TYPE. */
10206 static tree
10207 reopen_tinst_level (struct tinst_level *level)
10209 struct tinst_level *t;
10211 tinst_depth = 0;
10212 for (t = level; t; t = t->next)
10213 ++tinst_depth;
10215 set_refcount_ptr (current_tinst_level, level);
10216 pop_tinst_level ();
10217 if (current_tinst_level)
10218 current_tinst_level->errors = errorcount+sorrycount;
10219 return level->maybe_get_node ();
10222 /* Returns the TINST_LEVEL which gives the original instantiation
10223 context. */
10225 struct tinst_level *
10226 outermost_tinst_level (void)
10228 struct tinst_level *level = current_tinst_level;
10229 if (level)
10230 while (level->next)
10231 level = level->next;
10232 return level;
10235 /* DECL is a friend FUNCTION_DECL or TEMPLATE_DECL. ARGS is the
10236 vector of template arguments, as for tsubst.
10238 Returns an appropriate tsubst'd friend declaration. */
10240 static tree
10241 tsubst_friend_function (tree decl, tree args)
10243 tree new_friend;
10245 if (TREE_CODE (decl) == FUNCTION_DECL
10246 && DECL_TEMPLATE_INSTANTIATION (decl)
10247 && TREE_CODE (DECL_TI_TEMPLATE (decl)) != TEMPLATE_DECL)
10248 /* This was a friend declared with an explicit template
10249 argument list, e.g.:
10251 friend void f<>(T);
10253 to indicate that f was a template instantiation, not a new
10254 function declaration. Now, we have to figure out what
10255 instantiation of what template. */
10257 tree template_id, arglist, fns;
10258 tree new_args;
10259 tree tmpl;
10260 tree ns = decl_namespace_context (TYPE_MAIN_DECL (current_class_type));
10262 /* Friend functions are looked up in the containing namespace scope.
10263 We must enter that scope, to avoid finding member functions of the
10264 current class with same name. */
10265 push_nested_namespace (ns);
10266 fns = tsubst_expr (DECL_TI_TEMPLATE (decl), args,
10267 tf_warning_or_error, NULL_TREE,
10268 /*integral_constant_expression_p=*/false);
10269 pop_nested_namespace (ns);
10270 arglist = tsubst (DECL_TI_ARGS (decl), args,
10271 tf_warning_or_error, NULL_TREE);
10272 template_id = lookup_template_function (fns, arglist);
10274 new_friend = tsubst (decl, args, tf_warning_or_error, NULL_TREE);
10275 tmpl = determine_specialization (template_id, new_friend,
10276 &new_args,
10277 /*need_member_template=*/0,
10278 TREE_VEC_LENGTH (args),
10279 tsk_none);
10280 return instantiate_template (tmpl, new_args, tf_error);
10283 new_friend = tsubst (decl, args, tf_warning_or_error, NULL_TREE);
10285 /* The NEW_FRIEND will look like an instantiation, to the
10286 compiler, but is not an instantiation from the point of view of
10287 the language. For example, we might have had:
10289 template <class T> struct S {
10290 template <class U> friend void f(T, U);
10293 Then, in S<int>, template <class U> void f(int, U) is not an
10294 instantiation of anything. */
10295 if (new_friend == error_mark_node)
10296 return error_mark_node;
10298 DECL_USE_TEMPLATE (new_friend) = 0;
10299 if (TREE_CODE (decl) == TEMPLATE_DECL)
10301 DECL_USE_TEMPLATE (DECL_TEMPLATE_RESULT (new_friend)) = 0;
10302 DECL_SAVED_TREE (DECL_TEMPLATE_RESULT (new_friend))
10303 = DECL_SAVED_TREE (DECL_TEMPLATE_RESULT (decl));
10306 /* The mangled name for the NEW_FRIEND is incorrect. The function
10307 is not a template instantiation and should not be mangled like
10308 one. Therefore, we forget the mangling here; we'll recompute it
10309 later if we need it. */
10310 if (TREE_CODE (new_friend) != TEMPLATE_DECL)
10312 SET_DECL_RTL (new_friend, NULL);
10313 SET_DECL_ASSEMBLER_NAME (new_friend, NULL_TREE);
10316 if (DECL_NAMESPACE_SCOPE_P (new_friend))
10318 tree old_decl;
10319 tree new_friend_template_info;
10320 tree new_friend_result_template_info;
10321 tree ns;
10322 int new_friend_is_defn;
10324 /* We must save some information from NEW_FRIEND before calling
10325 duplicate decls since that function will free NEW_FRIEND if
10326 possible. */
10327 new_friend_template_info = DECL_TEMPLATE_INFO (new_friend);
10328 new_friend_is_defn =
10329 (DECL_INITIAL (DECL_TEMPLATE_RESULT
10330 (template_for_substitution (new_friend)))
10331 != NULL_TREE);
10332 if (TREE_CODE (new_friend) == TEMPLATE_DECL)
10334 /* This declaration is a `primary' template. */
10335 DECL_PRIMARY_TEMPLATE (new_friend) = new_friend;
10337 new_friend_result_template_info
10338 = DECL_TEMPLATE_INFO (DECL_TEMPLATE_RESULT (new_friend));
10340 else
10341 new_friend_result_template_info = NULL_TREE;
10343 /* Inside pushdecl_namespace_level, we will push into the
10344 current namespace. However, the friend function should go
10345 into the namespace of the template. */
10346 ns = decl_namespace_context (new_friend);
10347 push_nested_namespace (ns);
10348 old_decl = pushdecl_namespace_level (new_friend, /*is_friend=*/true);
10349 pop_nested_namespace (ns);
10351 if (old_decl == error_mark_node)
10352 return error_mark_node;
10354 if (old_decl != new_friend)
10356 /* This new friend declaration matched an existing
10357 declaration. For example, given:
10359 template <class T> void f(T);
10360 template <class U> class C {
10361 template <class T> friend void f(T) {}
10364 the friend declaration actually provides the definition
10365 of `f', once C has been instantiated for some type. So,
10366 old_decl will be the out-of-class template declaration,
10367 while new_friend is the in-class definition.
10369 But, if `f' was called before this point, the
10370 instantiation of `f' will have DECL_TI_ARGS corresponding
10371 to `T' but not to `U', references to which might appear
10372 in the definition of `f'. Previously, the most general
10373 template for an instantiation of `f' was the out-of-class
10374 version; now it is the in-class version. Therefore, we
10375 run through all specialization of `f', adding to their
10376 DECL_TI_ARGS appropriately. In particular, they need a
10377 new set of outer arguments, corresponding to the
10378 arguments for this class instantiation.
10380 The same situation can arise with something like this:
10382 friend void f(int);
10383 template <class T> class C {
10384 friend void f(T) {}
10387 when `C<int>' is instantiated. Now, `f(int)' is defined
10388 in the class. */
10390 if (!new_friend_is_defn)
10391 /* On the other hand, if the in-class declaration does
10392 *not* provide a definition, then we don't want to alter
10393 existing definitions. We can just leave everything
10394 alone. */
10396 else
10398 tree new_template = TI_TEMPLATE (new_friend_template_info);
10399 tree new_args = TI_ARGS (new_friend_template_info);
10401 /* Overwrite whatever template info was there before, if
10402 any, with the new template information pertaining to
10403 the declaration. */
10404 DECL_TEMPLATE_INFO (old_decl) = new_friend_template_info;
10406 if (TREE_CODE (old_decl) != TEMPLATE_DECL)
10408 /* We should have called reregister_specialization in
10409 duplicate_decls. */
10410 gcc_assert (retrieve_specialization (new_template,
10411 new_args, 0)
10412 == old_decl);
10414 /* Instantiate it if the global has already been used. */
10415 if (DECL_ODR_USED (old_decl))
10416 instantiate_decl (old_decl, /*defer_ok=*/true,
10417 /*expl_inst_class_mem_p=*/false);
10419 else
10421 tree t;
10423 /* Indicate that the old function template is a partial
10424 instantiation. */
10425 DECL_TEMPLATE_INFO (DECL_TEMPLATE_RESULT (old_decl))
10426 = new_friend_result_template_info;
10428 gcc_assert (new_template
10429 == most_general_template (new_template));
10430 gcc_assert (new_template != old_decl);
10432 /* Reassign any specializations already in the hash table
10433 to the new more general template, and add the
10434 additional template args. */
10435 for (t = DECL_TEMPLATE_INSTANTIATIONS (old_decl);
10436 t != NULL_TREE;
10437 t = TREE_CHAIN (t))
10439 tree spec = TREE_VALUE (t);
10440 spec_entry elt;
10442 elt.tmpl = old_decl;
10443 elt.args = DECL_TI_ARGS (spec);
10444 elt.spec = NULL_TREE;
10446 decl_specializations->remove_elt (&elt);
10448 DECL_TI_ARGS (spec)
10449 = add_outermost_template_args (new_args,
10450 DECL_TI_ARGS (spec));
10452 register_specialization
10453 (spec, new_template, DECL_TI_ARGS (spec), true, 0);
10456 DECL_TEMPLATE_INSTANTIATIONS (old_decl) = NULL_TREE;
10460 /* The information from NEW_FRIEND has been merged into OLD_DECL
10461 by duplicate_decls. */
10462 new_friend = old_decl;
10465 else
10467 tree context = DECL_CONTEXT (new_friend);
10468 bool dependent_p;
10470 /* In the code
10471 template <class T> class C {
10472 template <class U> friend void C1<U>::f (); // case 1
10473 friend void C2<T>::f (); // case 2
10475 we only need to make sure CONTEXT is a complete type for
10476 case 2. To distinguish between the two cases, we note that
10477 CONTEXT of case 1 remains dependent type after tsubst while
10478 this isn't true for case 2. */
10479 ++processing_template_decl;
10480 dependent_p = dependent_type_p (context);
10481 --processing_template_decl;
10483 if (!dependent_p
10484 && !complete_type_or_else (context, NULL_TREE))
10485 return error_mark_node;
10487 if (COMPLETE_TYPE_P (context))
10489 tree fn = new_friend;
10490 /* do_friend adds the TEMPLATE_DECL for any member friend
10491 template even if it isn't a member template, i.e.
10492 template <class T> friend A<T>::f();
10493 Look through it in that case. */
10494 if (TREE_CODE (fn) == TEMPLATE_DECL
10495 && !PRIMARY_TEMPLATE_P (fn))
10496 fn = DECL_TEMPLATE_RESULT (fn);
10497 /* Check to see that the declaration is really present, and,
10498 possibly obtain an improved declaration. */
10499 fn = check_classfn (context, fn, NULL_TREE);
10501 if (fn)
10502 new_friend = fn;
10506 return new_friend;
10509 /* FRIEND_TMPL is a friend TEMPLATE_DECL. ARGS is the vector of
10510 template arguments, as for tsubst.
10512 Returns an appropriate tsubst'd friend type or error_mark_node on
10513 failure. */
10515 static tree
10516 tsubst_friend_class (tree friend_tmpl, tree args)
10518 tree tmpl;
10520 if (DECL_TEMPLATE_TEMPLATE_PARM_P (friend_tmpl))
10522 tmpl = tsubst (TREE_TYPE (friend_tmpl), args, tf_none, NULL_TREE);
10523 return TREE_TYPE (tmpl);
10526 tree context = CP_DECL_CONTEXT (friend_tmpl);
10527 if (TREE_CODE (context) == NAMESPACE_DECL)
10528 push_nested_namespace (context);
10529 else
10530 push_nested_class (context);
10532 tmpl = lookup_name_real (DECL_NAME (friend_tmpl), /*prefer_type=*/false,
10533 /*non_class=*/false, /*block_p=*/false,
10534 /*namespaces_only=*/false, LOOKUP_HIDDEN);
10536 if (tmpl && DECL_CLASS_TEMPLATE_P (tmpl))
10538 /* The friend template has already been declared. Just
10539 check to see that the declarations match, and install any new
10540 default parameters. We must tsubst the default parameters,
10541 of course. We only need the innermost template parameters
10542 because that is all that redeclare_class_template will look
10543 at. */
10544 if (TMPL_PARMS_DEPTH (DECL_TEMPLATE_PARMS (friend_tmpl))
10545 > TMPL_ARGS_DEPTH (args))
10547 tree parms = tsubst_template_parms (DECL_TEMPLATE_PARMS (friend_tmpl),
10548 args, tf_warning_or_error);
10549 location_t saved_input_location = input_location;
10550 input_location = DECL_SOURCE_LOCATION (friend_tmpl);
10551 tree cons = get_constraints (tmpl);
10552 redeclare_class_template (TREE_TYPE (tmpl), parms, cons);
10553 input_location = saved_input_location;
10556 else
10558 /* The friend template has not already been declared. In this
10559 case, the instantiation of the template class will cause the
10560 injection of this template into the namespace scope. */
10561 tmpl = tsubst (friend_tmpl, args, tf_warning_or_error, NULL_TREE);
10563 if (tmpl != error_mark_node)
10565 /* The new TMPL is not an instantiation of anything, so we
10566 forget its origins. We don't reset CLASSTYPE_TI_TEMPLATE
10567 for the new type because that is supposed to be the
10568 corresponding template decl, i.e., TMPL. */
10569 DECL_USE_TEMPLATE (tmpl) = 0;
10570 DECL_TEMPLATE_INFO (tmpl) = NULL_TREE;
10571 CLASSTYPE_USE_TEMPLATE (TREE_TYPE (tmpl)) = 0;
10572 CLASSTYPE_TI_ARGS (TREE_TYPE (tmpl))
10573 = INNERMOST_TEMPLATE_ARGS (CLASSTYPE_TI_ARGS (TREE_TYPE (tmpl)));
10575 /* It is hidden. */
10576 retrofit_lang_decl (DECL_TEMPLATE_RESULT (tmpl));
10577 DECL_ANTICIPATED (tmpl)
10578 = DECL_ANTICIPATED (DECL_TEMPLATE_RESULT (tmpl)) = true;
10580 /* Inject this template into the enclosing namspace scope. */
10581 tmpl = pushdecl_namespace_level (tmpl, true);
10585 if (TREE_CODE (context) == NAMESPACE_DECL)
10586 pop_nested_namespace (context);
10587 else
10588 pop_nested_class ();
10590 return TREE_TYPE (tmpl);
10593 /* Returns zero if TYPE cannot be completed later due to circularity.
10594 Otherwise returns one. */
10596 static int
10597 can_complete_type_without_circularity (tree type)
10599 if (type == NULL_TREE || type == error_mark_node)
10600 return 0;
10601 else if (COMPLETE_TYPE_P (type))
10602 return 1;
10603 else if (TREE_CODE (type) == ARRAY_TYPE)
10604 return can_complete_type_without_circularity (TREE_TYPE (type));
10605 else if (CLASS_TYPE_P (type)
10606 && TYPE_BEING_DEFINED (TYPE_MAIN_VARIANT (type)))
10607 return 0;
10608 else
10609 return 1;
10612 static tree tsubst_omp_clauses (tree, enum c_omp_region_type, tree,
10613 tsubst_flags_t, tree);
10615 /* Instantiate a single dependent attribute T (a TREE_LIST), and return either
10616 T or a new TREE_LIST, possibly a chain in the case of a pack expansion. */
10618 static tree
10619 tsubst_attribute (tree t, tree *decl_p, tree args,
10620 tsubst_flags_t complain, tree in_decl)
10622 gcc_assert (ATTR_IS_DEPENDENT (t));
10624 tree val = TREE_VALUE (t);
10625 if (val == NULL_TREE)
10626 /* Nothing to do. */;
10627 else if ((flag_openmp || flag_openmp_simd)
10628 && is_attribute_p ("omp declare simd",
10629 get_attribute_name (t)))
10631 tree clauses = TREE_VALUE (val);
10632 clauses = tsubst_omp_clauses (clauses, C_ORT_OMP_DECLARE_SIMD, args,
10633 complain, in_decl);
10634 c_omp_declare_simd_clauses_to_decls (*decl_p, clauses);
10635 clauses = finish_omp_clauses (clauses, C_ORT_OMP_DECLARE_SIMD);
10636 tree parms = DECL_ARGUMENTS (*decl_p);
10637 clauses
10638 = c_omp_declare_simd_clauses_to_numbers (parms, clauses);
10639 if (clauses)
10640 val = build_tree_list (NULL_TREE, clauses);
10641 else
10642 val = NULL_TREE;
10644 /* If the first attribute argument is an identifier, don't
10645 pass it through tsubst. Attributes like mode, format,
10646 cleanup and several target specific attributes expect it
10647 unmodified. */
10648 else if (attribute_takes_identifier_p (get_attribute_name (t)))
10650 tree chain
10651 = tsubst_expr (TREE_CHAIN (val), args, complain, in_decl,
10652 /*integral_constant_expression_p=*/false);
10653 if (chain != TREE_CHAIN (val))
10654 val = tree_cons (NULL_TREE, TREE_VALUE (val), chain);
10656 else if (PACK_EXPANSION_P (val))
10658 /* An attribute pack expansion. */
10659 tree purp = TREE_PURPOSE (t);
10660 tree pack = tsubst_pack_expansion (val, args, complain, in_decl);
10661 if (pack == error_mark_node)
10662 return error_mark_node;
10663 int len = TREE_VEC_LENGTH (pack);
10664 tree list = NULL_TREE;
10665 tree *q = &list;
10666 for (int i = 0; i < len; ++i)
10668 tree elt = TREE_VEC_ELT (pack, i);
10669 *q = build_tree_list (purp, elt);
10670 q = &TREE_CHAIN (*q);
10672 return list;
10674 else
10675 val = tsubst_expr (val, args, complain, in_decl,
10676 /*integral_constant_expression_p=*/false);
10678 if (val != TREE_VALUE (t))
10679 return build_tree_list (TREE_PURPOSE (t), val);
10680 return t;
10683 /* Instantiate any dependent attributes in ATTRIBUTES, returning either it
10684 unchanged or a new TREE_LIST chain. */
10686 static tree
10687 tsubst_attributes (tree attributes, tree args,
10688 tsubst_flags_t complain, tree in_decl)
10690 tree last_dep = NULL_TREE;
10692 for (tree t = attributes; t; t = TREE_CHAIN (t))
10693 if (ATTR_IS_DEPENDENT (t))
10695 last_dep = t;
10696 attributes = copy_list (attributes);
10697 break;
10700 if (last_dep)
10701 for (tree *p = &attributes; *p; )
10703 tree t = *p;
10704 if (ATTR_IS_DEPENDENT (t))
10706 tree subst = tsubst_attribute (t, NULL, args, complain, in_decl);
10707 if (subst != t)
10709 *p = subst;
10710 while (*p)
10711 p = &TREE_CHAIN (*p);
10712 *p = TREE_CHAIN (t);
10713 continue;
10716 p = &TREE_CHAIN (*p);
10719 return attributes;
10722 /* Apply any attributes which had to be deferred until instantiation
10723 time. DECL_P, ATTRIBUTES and ATTR_FLAGS are as cplus_decl_attributes;
10724 ARGS, COMPLAIN, IN_DECL are as tsubst. */
10726 static void
10727 apply_late_template_attributes (tree *decl_p, tree attributes, int attr_flags,
10728 tree args, tsubst_flags_t complain, tree in_decl)
10730 tree last_dep = NULL_TREE;
10731 tree t;
10732 tree *p;
10734 if (attributes == NULL_TREE)
10735 return;
10737 if (DECL_P (*decl_p))
10739 if (TREE_TYPE (*decl_p) == error_mark_node)
10740 return;
10741 p = &DECL_ATTRIBUTES (*decl_p);
10742 /* DECL_ATTRIBUTES comes from copy_node in tsubst_decl, and is identical
10743 to our attributes parameter. */
10744 gcc_assert (*p == attributes);
10746 else
10748 p = &TYPE_ATTRIBUTES (*decl_p);
10749 /* TYPE_ATTRIBUTES was set up (with abi_tag and may_alias) in
10750 lookup_template_class_1, and should be preserved. */
10751 gcc_assert (*p != attributes);
10752 while (*p)
10753 p = &TREE_CHAIN (*p);
10756 for (t = attributes; t; t = TREE_CHAIN (t))
10757 if (ATTR_IS_DEPENDENT (t))
10759 last_dep = t;
10760 attributes = copy_list (attributes);
10761 break;
10764 *p = attributes;
10765 if (last_dep)
10767 tree late_attrs = NULL_TREE;
10768 tree *q = &late_attrs;
10770 for (; *p; )
10772 t = *p;
10773 if (ATTR_IS_DEPENDENT (t))
10775 *p = TREE_CHAIN (t);
10776 TREE_CHAIN (t) = NULL_TREE;
10777 *q = tsubst_attribute (t, decl_p, args, complain, in_decl);
10778 while (*q)
10779 q = &TREE_CHAIN (*q);
10781 else
10782 p = &TREE_CHAIN (t);
10785 cplus_decl_attributes (decl_p, late_attrs, attr_flags);
10789 /* Perform (or defer) access check for typedefs that were referenced
10790 from within the template TMPL code.
10791 This is a subroutine of instantiate_decl and instantiate_class_template.
10792 TMPL is the template to consider and TARGS is the list of arguments of
10793 that template. */
10795 static void
10796 perform_typedefs_access_check (tree tmpl, tree targs)
10798 location_t saved_location;
10799 unsigned i;
10800 qualified_typedef_usage_t *iter;
10802 if (!tmpl
10803 || (!CLASS_TYPE_P (tmpl)
10804 && TREE_CODE (tmpl) != FUNCTION_DECL))
10805 return;
10807 saved_location = input_location;
10808 FOR_EACH_VEC_SAFE_ELT (get_types_needing_access_check (tmpl), i, iter)
10810 tree type_decl = iter->typedef_decl;
10811 tree type_scope = iter->context;
10813 if (!type_decl || !type_scope || !CLASS_TYPE_P (type_scope))
10814 continue;
10816 if (uses_template_parms (type_decl))
10817 type_decl = tsubst (type_decl, targs, tf_error, NULL_TREE);
10818 if (uses_template_parms (type_scope))
10819 type_scope = tsubst (type_scope, targs, tf_error, NULL_TREE);
10821 /* Make access check error messages point to the location
10822 of the use of the typedef. */
10823 input_location = iter->locus;
10824 perform_or_defer_access_check (TYPE_BINFO (type_scope),
10825 type_decl, type_decl,
10826 tf_warning_or_error);
10828 input_location = saved_location;
10831 static tree
10832 instantiate_class_template_1 (tree type)
10834 tree templ, args, pattern, t, member;
10835 tree typedecl;
10836 tree pbinfo;
10837 tree base_list;
10838 unsigned int saved_maximum_field_alignment;
10839 tree fn_context;
10841 if (type == error_mark_node)
10842 return error_mark_node;
10844 if (COMPLETE_OR_OPEN_TYPE_P (type)
10845 || uses_template_parms (type))
10846 return type;
10848 /* Figure out which template is being instantiated. */
10849 templ = most_general_template (CLASSTYPE_TI_TEMPLATE (type));
10850 gcc_assert (TREE_CODE (templ) == TEMPLATE_DECL);
10852 /* Mark the type as in the process of being defined. */
10853 TYPE_BEING_DEFINED (type) = 1;
10855 /* Determine what specialization of the original template to
10856 instantiate. */
10857 t = most_specialized_partial_spec (type, tf_warning_or_error);
10858 if (t == error_mark_node)
10859 return error_mark_node;
10860 else if (t)
10862 /* This TYPE is actually an instantiation of a partial
10863 specialization. We replace the innermost set of ARGS with
10864 the arguments appropriate for substitution. For example,
10865 given:
10867 template <class T> struct S {};
10868 template <class T> struct S<T*> {};
10870 and supposing that we are instantiating S<int*>, ARGS will
10871 presently be {int*} -- but we need {int}. */
10872 pattern = TREE_TYPE (t);
10873 args = TREE_PURPOSE (t);
10875 else
10877 pattern = TREE_TYPE (templ);
10878 args = CLASSTYPE_TI_ARGS (type);
10881 /* If the template we're instantiating is incomplete, then clearly
10882 there's nothing we can do. */
10883 if (!COMPLETE_TYPE_P (pattern))
10885 /* We can try again later. */
10886 TYPE_BEING_DEFINED (type) = 0;
10887 return type;
10890 /* If we've recursively instantiated too many templates, stop. */
10891 if (! push_tinst_level (type))
10892 return type;
10894 /* We may be in the middle of deferred access check. Disable
10895 it now. */
10896 push_deferring_access_checks (dk_no_deferred);
10898 int saved_unevaluated_operand = cp_unevaluated_operand;
10899 int saved_inhibit_evaluation_warnings = c_inhibit_evaluation_warnings;
10901 fn_context = decl_function_context (TYPE_MAIN_DECL (type));
10902 /* Also avoid push_to_top_level for a lambda in an NSDMI. */
10903 if (!fn_context && LAMBDA_TYPE_P (type) && TYPE_CLASS_SCOPE_P (type))
10904 fn_context = error_mark_node;
10905 if (!fn_context)
10906 push_to_top_level ();
10907 else
10909 cp_unevaluated_operand = 0;
10910 c_inhibit_evaluation_warnings = 0;
10912 /* Use #pragma pack from the template context. */
10913 saved_maximum_field_alignment = maximum_field_alignment;
10914 maximum_field_alignment = TYPE_PRECISION (pattern);
10916 SET_CLASSTYPE_INTERFACE_UNKNOWN (type);
10918 /* Set the input location to the most specialized template definition.
10919 This is needed if tsubsting causes an error. */
10920 typedecl = TYPE_MAIN_DECL (pattern);
10921 input_location = DECL_SOURCE_LOCATION (TYPE_NAME (type)) =
10922 DECL_SOURCE_LOCATION (typedecl);
10924 TYPE_PACKED (type) = TYPE_PACKED (pattern);
10925 SET_TYPE_ALIGN (type, TYPE_ALIGN (pattern));
10926 TYPE_USER_ALIGN (type) = TYPE_USER_ALIGN (pattern);
10927 CLASSTYPE_NON_AGGREGATE (type) = CLASSTYPE_NON_AGGREGATE (pattern);
10928 if (ANON_AGGR_TYPE_P (pattern))
10929 SET_ANON_AGGR_TYPE_P (type);
10930 if (CLASSTYPE_VISIBILITY_SPECIFIED (pattern))
10932 CLASSTYPE_VISIBILITY_SPECIFIED (type) = 1;
10933 CLASSTYPE_VISIBILITY (type) = CLASSTYPE_VISIBILITY (pattern);
10934 /* Adjust visibility for template arguments. */
10935 determine_visibility (TYPE_MAIN_DECL (type));
10937 if (CLASS_TYPE_P (type))
10938 CLASSTYPE_FINAL (type) = CLASSTYPE_FINAL (pattern);
10940 pbinfo = TYPE_BINFO (pattern);
10942 /* We should never instantiate a nested class before its enclosing
10943 class; we need to look up the nested class by name before we can
10944 instantiate it, and that lookup should instantiate the enclosing
10945 class. */
10946 gcc_assert (!DECL_CLASS_SCOPE_P (TYPE_MAIN_DECL (pattern))
10947 || COMPLETE_OR_OPEN_TYPE_P (TYPE_CONTEXT (type)));
10949 base_list = NULL_TREE;
10950 if (BINFO_N_BASE_BINFOS (pbinfo))
10952 tree pbase_binfo;
10953 tree pushed_scope;
10954 int i;
10956 /* We must enter the scope containing the type, as that is where
10957 the accessibility of types named in dependent bases are
10958 looked up from. */
10959 pushed_scope = push_scope (CP_TYPE_CONTEXT (type));
10961 /* Substitute into each of the bases to determine the actual
10962 basetypes. */
10963 for (i = 0; BINFO_BASE_ITERATE (pbinfo, i, pbase_binfo); i++)
10965 tree base;
10966 tree access = BINFO_BASE_ACCESS (pbinfo, i);
10967 tree expanded_bases = NULL_TREE;
10968 int idx, len = 1;
10970 if (PACK_EXPANSION_P (BINFO_TYPE (pbase_binfo)))
10972 expanded_bases =
10973 tsubst_pack_expansion (BINFO_TYPE (pbase_binfo),
10974 args, tf_error, NULL_TREE);
10975 if (expanded_bases == error_mark_node)
10976 continue;
10978 len = TREE_VEC_LENGTH (expanded_bases);
10981 for (idx = 0; idx < len; idx++)
10983 if (expanded_bases)
10984 /* Extract the already-expanded base class. */
10985 base = TREE_VEC_ELT (expanded_bases, idx);
10986 else
10987 /* Substitute to figure out the base class. */
10988 base = tsubst (BINFO_TYPE (pbase_binfo), args, tf_error,
10989 NULL_TREE);
10991 if (base == error_mark_node)
10992 continue;
10994 base_list = tree_cons (access, base, base_list);
10995 if (BINFO_VIRTUAL_P (pbase_binfo))
10996 TREE_TYPE (base_list) = integer_type_node;
11000 /* The list is now in reverse order; correct that. */
11001 base_list = nreverse (base_list);
11003 if (pushed_scope)
11004 pop_scope (pushed_scope);
11006 /* Now call xref_basetypes to set up all the base-class
11007 information. */
11008 xref_basetypes (type, base_list);
11010 apply_late_template_attributes (&type, TYPE_ATTRIBUTES (pattern),
11011 (int) ATTR_FLAG_TYPE_IN_PLACE,
11012 args, tf_error, NULL_TREE);
11013 fixup_attribute_variants (type);
11015 /* Now that our base classes are set up, enter the scope of the
11016 class, so that name lookups into base classes, etc. will work
11017 correctly. This is precisely analogous to what we do in
11018 begin_class_definition when defining an ordinary non-template
11019 class, except we also need to push the enclosing classes. */
11020 push_nested_class (type);
11022 /* Now members are processed in the order of declaration. */
11023 for (member = CLASSTYPE_DECL_LIST (pattern);
11024 member; member = TREE_CHAIN (member))
11026 tree t = TREE_VALUE (member);
11028 if (TREE_PURPOSE (member))
11030 if (TYPE_P (t))
11032 if (LAMBDA_TYPE_P (t))
11033 /* A closure type for a lambda in an NSDMI or default argument.
11034 Ignore it; it will be regenerated when needed. */
11035 continue;
11037 /* Build new CLASSTYPE_NESTED_UTDS. */
11039 tree newtag;
11040 bool class_template_p;
11042 class_template_p = (TREE_CODE (t) != ENUMERAL_TYPE
11043 && TYPE_LANG_SPECIFIC (t)
11044 && CLASSTYPE_IS_TEMPLATE (t));
11045 /* If the member is a class template, then -- even after
11046 substitution -- there may be dependent types in the
11047 template argument list for the class. We increment
11048 PROCESSING_TEMPLATE_DECL so that dependent_type_p, as
11049 that function will assume that no types are dependent
11050 when outside of a template. */
11051 if (class_template_p)
11052 ++processing_template_decl;
11053 newtag = tsubst (t, args, tf_error, NULL_TREE);
11054 if (class_template_p)
11055 --processing_template_decl;
11056 if (newtag == error_mark_node)
11057 continue;
11059 if (TREE_CODE (newtag) != ENUMERAL_TYPE)
11061 tree name = TYPE_IDENTIFIER (t);
11063 if (class_template_p)
11064 /* Unfortunately, lookup_template_class sets
11065 CLASSTYPE_IMPLICIT_INSTANTIATION for a partial
11066 instantiation (i.e., for the type of a member
11067 template class nested within a template class.)
11068 This behavior is required for
11069 maybe_process_partial_specialization to work
11070 correctly, but is not accurate in this case;
11071 the TAG is not an instantiation of anything.
11072 (The corresponding TEMPLATE_DECL is an
11073 instantiation, but the TYPE is not.) */
11074 CLASSTYPE_USE_TEMPLATE (newtag) = 0;
11076 /* Now, we call pushtag to put this NEWTAG into the scope of
11077 TYPE. We first set up the IDENTIFIER_TYPE_VALUE to avoid
11078 pushtag calling push_template_decl. We don't have to do
11079 this for enums because it will already have been done in
11080 tsubst_enum. */
11081 if (name)
11082 SET_IDENTIFIER_TYPE_VALUE (name, newtag);
11083 pushtag (name, newtag, /*tag_scope=*/ts_current);
11086 else if (DECL_DECLARES_FUNCTION_P (t))
11088 tree r;
11090 if (TREE_CODE (t) == TEMPLATE_DECL)
11091 ++processing_template_decl;
11092 r = tsubst (t, args, tf_error, NULL_TREE);
11093 if (TREE_CODE (t) == TEMPLATE_DECL)
11094 --processing_template_decl;
11095 set_current_access_from_decl (r);
11096 finish_member_declaration (r);
11097 /* Instantiate members marked with attribute used. */
11098 if (r != error_mark_node && DECL_PRESERVE_P (r))
11099 mark_used (r);
11100 if (TREE_CODE (r) == FUNCTION_DECL
11101 && DECL_OMP_DECLARE_REDUCTION_P (r))
11102 cp_check_omp_declare_reduction (r);
11104 else if ((DECL_CLASS_TEMPLATE_P (t) || DECL_IMPLICIT_TYPEDEF_P (t))
11105 && LAMBDA_TYPE_P (TREE_TYPE (t)))
11106 /* A closure type for a lambda in an NSDMI or default argument.
11107 Ignore it; it will be regenerated when needed. */;
11108 else
11110 /* Build new TYPE_FIELDS. */
11111 if (TREE_CODE (t) == STATIC_ASSERT)
11113 tree condition;
11115 ++c_inhibit_evaluation_warnings;
11116 condition =
11117 tsubst_expr (STATIC_ASSERT_CONDITION (t), args,
11118 tf_warning_or_error, NULL_TREE,
11119 /*integral_constant_expression_p=*/true);
11120 --c_inhibit_evaluation_warnings;
11122 finish_static_assert (condition,
11123 STATIC_ASSERT_MESSAGE (t),
11124 STATIC_ASSERT_SOURCE_LOCATION (t),
11125 /*member_p=*/true);
11127 else if (TREE_CODE (t) != CONST_DECL)
11129 tree r;
11130 tree vec = NULL_TREE;
11131 int len = 1;
11133 /* The file and line for this declaration, to
11134 assist in error message reporting. Since we
11135 called push_tinst_level above, we don't need to
11136 restore these. */
11137 input_location = DECL_SOURCE_LOCATION (t);
11139 if (TREE_CODE (t) == TEMPLATE_DECL)
11140 ++processing_template_decl;
11141 r = tsubst (t, args, tf_warning_or_error, NULL_TREE);
11142 if (TREE_CODE (t) == TEMPLATE_DECL)
11143 --processing_template_decl;
11145 if (TREE_CODE (r) == TREE_VEC)
11147 /* A capture pack became multiple fields. */
11148 vec = r;
11149 len = TREE_VEC_LENGTH (vec);
11152 for (int i = 0; i < len; ++i)
11154 if (vec)
11155 r = TREE_VEC_ELT (vec, i);
11156 if (VAR_P (r))
11158 /* In [temp.inst]:
11160 [t]he initialization (and any associated
11161 side-effects) of a static data member does
11162 not occur unless the static data member is
11163 itself used in a way that requires the
11164 definition of the static data member to
11165 exist.
11167 Therefore, we do not substitute into the
11168 initialized for the static data member here. */
11169 finish_static_data_member_decl
11171 /*init=*/NULL_TREE,
11172 /*init_const_expr_p=*/false,
11173 /*asmspec_tree=*/NULL_TREE,
11174 /*flags=*/0);
11175 /* Instantiate members marked with attribute used. */
11176 if (r != error_mark_node && DECL_PRESERVE_P (r))
11177 mark_used (r);
11179 else if (TREE_CODE (r) == FIELD_DECL)
11181 /* Determine whether R has a valid type and can be
11182 completed later. If R is invalid, then its type
11183 is replaced by error_mark_node. */
11184 tree rtype = TREE_TYPE (r);
11185 if (can_complete_type_without_circularity (rtype))
11186 complete_type (rtype);
11188 if (!complete_or_array_type_p (rtype))
11190 /* If R's type couldn't be completed and
11191 it isn't a flexible array member (whose
11192 type is incomplete by definition) give
11193 an error. */
11194 cxx_incomplete_type_error (r, rtype);
11195 TREE_TYPE (r) = error_mark_node;
11197 else if (TREE_CODE (rtype) == ARRAY_TYPE
11198 && TYPE_DOMAIN (rtype) == NULL_TREE
11199 && (TREE_CODE (type) == UNION_TYPE
11200 || TREE_CODE (type) == QUAL_UNION_TYPE))
11202 error ("flexible array member %qD in union", r);
11203 TREE_TYPE (r) = error_mark_node;
11207 /* If it is a TYPE_DECL for a class-scoped ENUMERAL_TYPE,
11208 such a thing will already have been added to the field
11209 list by tsubst_enum in finish_member_declaration in the
11210 CLASSTYPE_NESTED_UTDS case above. */
11211 if (!(TREE_CODE (r) == TYPE_DECL
11212 && TREE_CODE (TREE_TYPE (r)) == ENUMERAL_TYPE
11213 && DECL_ARTIFICIAL (r)))
11215 set_current_access_from_decl (r);
11216 finish_member_declaration (r);
11222 else
11224 if (TYPE_P (t) || DECL_CLASS_TEMPLATE_P (t)
11225 || DECL_TEMPLATE_TEMPLATE_PARM_P (t))
11227 /* Build new CLASSTYPE_FRIEND_CLASSES. */
11229 tree friend_type = t;
11230 bool adjust_processing_template_decl = false;
11232 if (TREE_CODE (friend_type) == TEMPLATE_DECL)
11234 /* template <class T> friend class C; */
11235 friend_type = tsubst_friend_class (friend_type, args);
11236 adjust_processing_template_decl = true;
11238 else if (TREE_CODE (friend_type) == UNBOUND_CLASS_TEMPLATE)
11240 /* template <class T> friend class C::D; */
11241 friend_type = tsubst (friend_type, args,
11242 tf_warning_or_error, NULL_TREE);
11243 if (TREE_CODE (friend_type) == TEMPLATE_DECL)
11244 friend_type = TREE_TYPE (friend_type);
11245 adjust_processing_template_decl = true;
11247 else if (TREE_CODE (friend_type) == TYPENAME_TYPE
11248 || TREE_CODE (friend_type) == TEMPLATE_TYPE_PARM)
11250 /* This could be either
11252 friend class T::C;
11254 when dependent_type_p is false or
11256 template <class U> friend class T::C;
11258 otherwise. */
11259 /* Bump processing_template_decl in case this is something like
11260 template <class T> friend struct A<T>::B. */
11261 ++processing_template_decl;
11262 friend_type = tsubst (friend_type, args,
11263 tf_warning_or_error, NULL_TREE);
11264 if (dependent_type_p (friend_type))
11265 adjust_processing_template_decl = true;
11266 --processing_template_decl;
11268 else if (TREE_CODE (friend_type) != BOUND_TEMPLATE_TEMPLATE_PARM
11269 && !CLASSTYPE_USE_TEMPLATE (friend_type)
11270 && TYPE_HIDDEN_P (friend_type))
11272 /* friend class C;
11274 where C hasn't been declared yet. Let's lookup name
11275 from namespace scope directly, bypassing any name that
11276 come from dependent base class. */
11277 tree ns = decl_namespace_context (TYPE_MAIN_DECL (friend_type));
11279 /* The call to xref_tag_from_type does injection for friend
11280 classes. */
11281 push_nested_namespace (ns);
11282 friend_type =
11283 xref_tag_from_type (friend_type, NULL_TREE,
11284 /*tag_scope=*/ts_current);
11285 pop_nested_namespace (ns);
11287 else if (uses_template_parms (friend_type))
11288 /* friend class C<T>; */
11289 friend_type = tsubst (friend_type, args,
11290 tf_warning_or_error, NULL_TREE);
11291 /* Otherwise it's
11293 friend class C;
11295 where C is already declared or
11297 friend class C<int>;
11299 We don't have to do anything in these cases. */
11301 if (adjust_processing_template_decl)
11302 /* Trick make_friend_class into realizing that the friend
11303 we're adding is a template, not an ordinary class. It's
11304 important that we use make_friend_class since it will
11305 perform some error-checking and output cross-reference
11306 information. */
11307 ++processing_template_decl;
11309 if (friend_type != error_mark_node)
11310 make_friend_class (type, friend_type, /*complain=*/false);
11312 if (adjust_processing_template_decl)
11313 --processing_template_decl;
11315 else
11317 /* Build new DECL_FRIENDLIST. */
11318 tree r;
11320 /* The file and line for this declaration, to
11321 assist in error message reporting. Since we
11322 called push_tinst_level above, we don't need to
11323 restore these. */
11324 input_location = DECL_SOURCE_LOCATION (t);
11326 if (TREE_CODE (t) == TEMPLATE_DECL)
11328 ++processing_template_decl;
11329 push_deferring_access_checks (dk_no_check);
11332 r = tsubst_friend_function (t, args);
11333 add_friend (type, r, /*complain=*/false);
11334 if (TREE_CODE (t) == TEMPLATE_DECL)
11336 pop_deferring_access_checks ();
11337 --processing_template_decl;
11343 if (fn_context)
11345 /* Restore these before substituting into the lambda capture
11346 initializers. */
11347 cp_unevaluated_operand = saved_unevaluated_operand;
11348 c_inhibit_evaluation_warnings = saved_inhibit_evaluation_warnings;
11351 /* Set the file and line number information to whatever is given for
11352 the class itself. This puts error messages involving generated
11353 implicit functions at a predictable point, and the same point
11354 that would be used for non-template classes. */
11355 input_location = DECL_SOURCE_LOCATION (typedecl);
11357 unreverse_member_declarations (type);
11358 finish_struct_1 (type);
11359 TYPE_BEING_DEFINED (type) = 0;
11361 /* We don't instantiate default arguments for member functions. 14.7.1:
11363 The implicit instantiation of a class template specialization causes
11364 the implicit instantiation of the declarations, but not of the
11365 definitions or default arguments, of the class member functions,
11366 member classes, static data members and member templates.... */
11368 /* Some typedefs referenced from within the template code need to be access
11369 checked at template instantiation time, i.e now. These types were
11370 added to the template at parsing time. Let's get those and perform
11371 the access checks then. */
11372 perform_typedefs_access_check (pattern, args);
11373 perform_deferred_access_checks (tf_warning_or_error);
11374 pop_nested_class ();
11375 maximum_field_alignment = saved_maximum_field_alignment;
11376 if (!fn_context)
11377 pop_from_top_level ();
11378 pop_deferring_access_checks ();
11379 pop_tinst_level ();
11381 /* The vtable for a template class can be emitted in any translation
11382 unit in which the class is instantiated. When there is no key
11383 method, however, finish_struct_1 will already have added TYPE to
11384 the keyed_classes. */
11385 if (TYPE_CONTAINS_VPTR_P (type) && CLASSTYPE_KEY_METHOD (type))
11386 vec_safe_push (keyed_classes, type);
11388 return type;
11391 /* Wrapper for instantiate_class_template_1. */
11393 tree
11394 instantiate_class_template (tree type)
11396 tree ret;
11397 timevar_push (TV_TEMPLATE_INST);
11398 ret = instantiate_class_template_1 (type);
11399 timevar_pop (TV_TEMPLATE_INST);
11400 return ret;
11403 static tree
11404 tsubst_template_arg (tree t, tree args, tsubst_flags_t complain, tree in_decl)
11406 tree r;
11408 if (!t)
11409 r = t;
11410 else if (TYPE_P (t))
11411 r = tsubst (t, args, complain, in_decl);
11412 else
11414 if (!(complain & tf_warning))
11415 ++c_inhibit_evaluation_warnings;
11416 r = tsubst_expr (t, args, complain, in_decl,
11417 /*integral_constant_expression_p=*/true);
11418 if (!(complain & tf_warning))
11419 --c_inhibit_evaluation_warnings;
11421 return r;
11424 /* Given a function parameter pack TMPL_PARM and some function parameters
11425 instantiated from it at *SPEC_P, return a NONTYPE_ARGUMENT_PACK of them
11426 and set *SPEC_P to point at the next point in the list. */
11428 tree
11429 extract_fnparm_pack (tree tmpl_parm, tree *spec_p)
11431 /* Collect all of the extra "packed" parameters into an
11432 argument pack. */
11433 tree parmvec;
11434 tree argpack = make_node (NONTYPE_ARGUMENT_PACK);
11435 tree spec_parm = *spec_p;
11436 int i, len;
11438 for (len = 0; spec_parm; ++len, spec_parm = TREE_CHAIN (spec_parm))
11439 if (tmpl_parm
11440 && !function_parameter_expanded_from_pack_p (spec_parm, tmpl_parm))
11441 break;
11443 /* Fill in PARMVEC and PARMTYPEVEC with all of the parameters. */
11444 parmvec = make_tree_vec (len);
11445 spec_parm = *spec_p;
11446 for (i = 0; i < len; i++, spec_parm = DECL_CHAIN (spec_parm))
11448 tree elt = spec_parm;
11449 if (DECL_PACK_P (elt))
11450 elt = make_pack_expansion (elt);
11451 TREE_VEC_ELT (parmvec, i) = elt;
11454 /* Build the argument packs. */
11455 SET_ARGUMENT_PACK_ARGS (argpack, parmvec);
11456 *spec_p = spec_parm;
11458 return argpack;
11461 /* Give a chain SPEC_PARM of PARM_DECLs, pack them into a
11462 NONTYPE_ARGUMENT_PACK. */
11464 static tree
11465 make_fnparm_pack (tree spec_parm)
11467 return extract_fnparm_pack (NULL_TREE, &spec_parm);
11470 /* Return 1 if the Ith element of the argument pack ARG_PACK is a
11471 pack expansion with no extra args, 2 if it has extra args, or 0
11472 if it is not a pack expansion. */
11474 static int
11475 argument_pack_element_is_expansion_p (tree arg_pack, int i)
11477 tree vec = ARGUMENT_PACK_ARGS (arg_pack);
11478 if (i >= TREE_VEC_LENGTH (vec))
11479 return 0;
11480 tree elt = TREE_VEC_ELT (vec, i);
11481 if (DECL_P (elt))
11482 /* A decl pack is itself an expansion. */
11483 elt = TREE_TYPE (elt);
11484 if (!PACK_EXPANSION_P (elt))
11485 return 0;
11486 if (PACK_EXPANSION_EXTRA_ARGS (elt))
11487 return 2;
11488 return 1;
11492 /* Creates and return an ARGUMENT_PACK_SELECT tree node. */
11494 static tree
11495 make_argument_pack_select (tree arg_pack, unsigned index)
11497 tree aps = make_node (ARGUMENT_PACK_SELECT);
11499 ARGUMENT_PACK_SELECT_FROM_PACK (aps) = arg_pack;
11500 ARGUMENT_PACK_SELECT_INDEX (aps) = index;
11502 return aps;
11505 /* This is a subroutine of tsubst_pack_expansion.
11507 It returns TRUE if we need to use the PACK_EXPANSION_EXTRA_ARGS
11508 mechanism to store the (non complete list of) arguments of the
11509 substitution and return a non substituted pack expansion, in order
11510 to wait for when we have enough arguments to really perform the
11511 substitution. */
11513 static bool
11514 use_pack_expansion_extra_args_p (tree parm_packs,
11515 int arg_pack_len,
11516 bool has_empty_arg)
11518 /* If one pack has an expansion and another pack has a normal
11519 argument or if one pack has an empty argument and an another
11520 one hasn't then tsubst_pack_expansion cannot perform the
11521 substitution and need to fall back on the
11522 PACK_EXPANSION_EXTRA mechanism. */
11523 if (parm_packs == NULL_TREE)
11524 return false;
11525 else if (has_empty_arg)
11526 return true;
11528 bool has_expansion_arg = false;
11529 for (int i = 0 ; i < arg_pack_len; ++i)
11531 bool has_non_expansion_arg = false;
11532 for (tree parm_pack = parm_packs;
11533 parm_pack;
11534 parm_pack = TREE_CHAIN (parm_pack))
11536 tree arg = TREE_VALUE (parm_pack);
11538 int exp = argument_pack_element_is_expansion_p (arg, i);
11539 if (exp == 2)
11540 /* We can't substitute a pack expansion with extra args into
11541 our pattern. */
11542 return true;
11543 else if (exp)
11544 has_expansion_arg = true;
11545 else
11546 has_non_expansion_arg = true;
11549 if (has_expansion_arg && has_non_expansion_arg)
11550 return true;
11552 return false;
11555 /* [temp.variadic]/6 says that:
11557 The instantiation of a pack expansion [...]
11558 produces a list E1,E2, ..., En, where N is the number of elements
11559 in the pack expansion parameters.
11561 This subroutine of tsubst_pack_expansion produces one of these Ei.
11563 PATTERN is the pattern of the pack expansion. PARM_PACKS is a
11564 TREE_LIST in which each TREE_PURPOSE is a parameter pack of
11565 PATTERN, and each TREE_VALUE is its corresponding argument pack.
11566 INDEX is the index 'i' of the element Ei to produce. ARGS,
11567 COMPLAIN, and IN_DECL are the same parameters as for the
11568 tsubst_pack_expansion function.
11570 The function returns the resulting Ei upon successful completion,
11571 or error_mark_node.
11573 Note that this function possibly modifies the ARGS parameter, so
11574 it's the responsibility of the caller to restore it. */
11576 static tree
11577 gen_elem_of_pack_expansion_instantiation (tree pattern,
11578 tree parm_packs,
11579 unsigned index,
11580 tree args /* This parm gets
11581 modified. */,
11582 tsubst_flags_t complain,
11583 tree in_decl)
11585 tree t;
11586 bool ith_elem_is_expansion = false;
11588 /* For each parameter pack, change the substitution of the parameter
11589 pack to the ith argument in its argument pack, then expand the
11590 pattern. */
11591 for (tree pack = parm_packs; pack; pack = TREE_CHAIN (pack))
11593 tree parm = TREE_PURPOSE (pack);
11594 tree arg_pack = TREE_VALUE (pack);
11595 tree aps; /* instance of ARGUMENT_PACK_SELECT. */
11597 ith_elem_is_expansion |=
11598 argument_pack_element_is_expansion_p (arg_pack, index);
11600 /* Select the Ith argument from the pack. */
11601 if (TREE_CODE (parm) == PARM_DECL
11602 || VAR_P (parm)
11603 || TREE_CODE (parm) == FIELD_DECL)
11605 if (index == 0)
11607 aps = make_argument_pack_select (arg_pack, index);
11608 if (!mark_used (parm, complain) && !(complain & tf_error))
11609 return error_mark_node;
11610 register_local_specialization (aps, parm);
11612 else
11613 aps = retrieve_local_specialization (parm);
11615 else
11617 int idx, level;
11618 template_parm_level_and_index (parm, &level, &idx);
11620 if (index == 0)
11622 aps = make_argument_pack_select (arg_pack, index);
11623 /* Update the corresponding argument. */
11624 TMPL_ARG (args, level, idx) = aps;
11626 else
11627 /* Re-use the ARGUMENT_PACK_SELECT. */
11628 aps = TMPL_ARG (args, level, idx);
11630 ARGUMENT_PACK_SELECT_INDEX (aps) = index;
11633 /* Substitute into the PATTERN with the (possibly altered)
11634 arguments. */
11635 if (pattern == in_decl)
11636 /* Expanding a fixed parameter pack from
11637 coerce_template_parameter_pack. */
11638 t = tsubst_decl (pattern, args, complain);
11639 else if (pattern == error_mark_node)
11640 t = error_mark_node;
11641 else if (constraint_p (pattern))
11643 if (processing_template_decl)
11644 t = tsubst_constraint (pattern, args, complain, in_decl);
11645 else
11646 t = (constraints_satisfied_p (pattern, args)
11647 ? boolean_true_node : boolean_false_node);
11649 else if (!TYPE_P (pattern))
11650 t = tsubst_expr (pattern, args, complain, in_decl,
11651 /*integral_constant_expression_p=*/false);
11652 else
11653 t = tsubst (pattern, args, complain, in_decl);
11655 /* If the Ith argument pack element is a pack expansion, then
11656 the Ith element resulting from the substituting is going to
11657 be a pack expansion as well. */
11658 if (ith_elem_is_expansion)
11659 t = make_pack_expansion (t, complain);
11661 return t;
11664 /* When the unexpanded parameter pack in a fold expression expands to an empty
11665 sequence, the value of the expression is as follows; the program is
11666 ill-formed if the operator is not listed in this table.
11668 && true
11669 || false
11670 , void() */
11672 tree
11673 expand_empty_fold (tree t, tsubst_flags_t complain)
11675 tree_code code = (tree_code)TREE_INT_CST_LOW (TREE_OPERAND (t, 0));
11676 if (!FOLD_EXPR_MODIFY_P (t))
11677 switch (code)
11679 case TRUTH_ANDIF_EXPR:
11680 return boolean_true_node;
11681 case TRUTH_ORIF_EXPR:
11682 return boolean_false_node;
11683 case COMPOUND_EXPR:
11684 return void_node;
11685 default:
11686 break;
11689 if (complain & tf_error)
11690 error_at (location_of (t),
11691 "fold of empty expansion over %O", code);
11692 return error_mark_node;
11695 /* Given a fold-expression T and a current LEFT and RIGHT operand,
11696 form an expression that combines the two terms using the
11697 operator of T. */
11699 static tree
11700 fold_expression (tree t, tree left, tree right, tsubst_flags_t complain)
11702 tree op = FOLD_EXPR_OP (t);
11703 tree_code code = (tree_code)TREE_INT_CST_LOW (op);
11705 // Handle compound assignment operators.
11706 if (FOLD_EXPR_MODIFY_P (t))
11707 return build_x_modify_expr (input_location, left, code, right, complain);
11709 switch (code)
11711 case COMPOUND_EXPR:
11712 return build_x_compound_expr (input_location, left, right, complain);
11713 case DOTSTAR_EXPR:
11714 return build_m_component_ref (left, right, complain);
11715 default:
11716 return build_x_binary_op (input_location, code,
11717 left, TREE_CODE (left),
11718 right, TREE_CODE (right),
11719 /*overload=*/NULL,
11720 complain);
11724 /* Substitute ARGS into the pack of a fold expression T. */
11726 static inline tree
11727 tsubst_fold_expr_pack (tree t, tree args, tsubst_flags_t complain, tree in_decl)
11729 return tsubst_pack_expansion (FOLD_EXPR_PACK (t), args, complain, in_decl);
11732 /* Substitute ARGS into the pack of a fold expression T. */
11734 static inline tree
11735 tsubst_fold_expr_init (tree t, tree args, tsubst_flags_t complain, tree in_decl)
11737 return tsubst_expr (FOLD_EXPR_INIT (t), args, complain, in_decl, false);
11740 /* Expand a PACK of arguments into a grouped as left fold.
11741 Given a pack containing elements A0, A1, ..., An and an
11742 operator @, this builds the expression:
11744 ((A0 @ A1) @ A2) ... @ An
11746 Note that PACK must not be empty.
11748 The operator is defined by the original fold expression T. */
11750 static tree
11751 expand_left_fold (tree t, tree pack, tsubst_flags_t complain)
11753 tree left = TREE_VEC_ELT (pack, 0);
11754 for (int i = 1; i < TREE_VEC_LENGTH (pack); ++i)
11756 tree right = TREE_VEC_ELT (pack, i);
11757 left = fold_expression (t, left, right, complain);
11759 return left;
11762 /* Substitute into a unary left fold expression. */
11764 static tree
11765 tsubst_unary_left_fold (tree t, tree args, tsubst_flags_t complain,
11766 tree in_decl)
11768 tree pack = tsubst_fold_expr_pack (t, args, complain, in_decl);
11769 if (pack == error_mark_node)
11770 return error_mark_node;
11771 if (PACK_EXPANSION_P (pack))
11773 tree r = copy_node (t);
11774 FOLD_EXPR_PACK (r) = pack;
11775 return r;
11777 if (TREE_VEC_LENGTH (pack) == 0)
11778 return expand_empty_fold (t, complain);
11779 else
11780 return expand_left_fold (t, pack, complain);
11783 /* Substitute into a binary left fold expression.
11785 Do ths by building a single (non-empty) vector of argumnts and
11786 building the expression from those elements. */
11788 static tree
11789 tsubst_binary_left_fold (tree t, tree args, tsubst_flags_t complain,
11790 tree in_decl)
11792 tree pack = tsubst_fold_expr_pack (t, args, complain, in_decl);
11793 if (pack == error_mark_node)
11794 return error_mark_node;
11795 tree init = tsubst_fold_expr_init (t, args, complain, in_decl);
11796 if (init == error_mark_node)
11797 return error_mark_node;
11799 if (PACK_EXPANSION_P (pack))
11801 tree r = copy_node (t);
11802 FOLD_EXPR_PACK (r) = pack;
11803 FOLD_EXPR_INIT (r) = init;
11804 return r;
11807 tree vec = make_tree_vec (TREE_VEC_LENGTH (pack) + 1);
11808 TREE_VEC_ELT (vec, 0) = init;
11809 for (int i = 0; i < TREE_VEC_LENGTH (pack); ++i)
11810 TREE_VEC_ELT (vec, i + 1) = TREE_VEC_ELT (pack, i);
11812 return expand_left_fold (t, vec, complain);
11815 /* Expand a PACK of arguments into a grouped as right fold.
11816 Given a pack containing elementns A0, A1, ..., and an
11817 operator @, this builds the expression:
11819 A0@ ... (An-2 @ (An-1 @ An))
11821 Note that PACK must not be empty.
11823 The operator is defined by the original fold expression T. */
11825 tree
11826 expand_right_fold (tree t, tree pack, tsubst_flags_t complain)
11828 // Build the expression.
11829 int n = TREE_VEC_LENGTH (pack);
11830 tree right = TREE_VEC_ELT (pack, n - 1);
11831 for (--n; n != 0; --n)
11833 tree left = TREE_VEC_ELT (pack, n - 1);
11834 right = fold_expression (t, left, right, complain);
11836 return right;
11839 /* Substitute into a unary right fold expression. */
11841 static tree
11842 tsubst_unary_right_fold (tree t, tree args, tsubst_flags_t complain,
11843 tree in_decl)
11845 tree pack = tsubst_fold_expr_pack (t, args, complain, in_decl);
11846 if (pack == error_mark_node)
11847 return error_mark_node;
11848 if (PACK_EXPANSION_P (pack))
11850 tree r = copy_node (t);
11851 FOLD_EXPR_PACK (r) = pack;
11852 return r;
11854 if (TREE_VEC_LENGTH (pack) == 0)
11855 return expand_empty_fold (t, complain);
11856 else
11857 return expand_right_fold (t, pack, complain);
11860 /* Substitute into a binary right fold expression.
11862 Do ths by building a single (non-empty) vector of arguments and
11863 building the expression from those elements. */
11865 static tree
11866 tsubst_binary_right_fold (tree t, tree args, tsubst_flags_t complain,
11867 tree in_decl)
11869 tree pack = tsubst_fold_expr_pack (t, args, complain, in_decl);
11870 if (pack == error_mark_node)
11871 return error_mark_node;
11872 tree init = tsubst_fold_expr_init (t, args, complain, in_decl);
11873 if (init == error_mark_node)
11874 return error_mark_node;
11876 if (PACK_EXPANSION_P (pack))
11878 tree r = copy_node (t);
11879 FOLD_EXPR_PACK (r) = pack;
11880 FOLD_EXPR_INIT (r) = init;
11881 return r;
11884 int n = TREE_VEC_LENGTH (pack);
11885 tree vec = make_tree_vec (n + 1);
11886 for (int i = 0; i < n; ++i)
11887 TREE_VEC_ELT (vec, i) = TREE_VEC_ELT (pack, i);
11888 TREE_VEC_ELT (vec, n) = init;
11890 return expand_right_fold (t, vec, complain);
11893 /* Walk through the pattern of a pack expansion, adding everything in
11894 local_specializations to a list. */
11896 struct el_data
11898 hash_set<tree> internal;
11899 tree extra;
11900 tsubst_flags_t complain;
11902 el_data (tsubst_flags_t c)
11903 : extra (NULL_TREE), complain (c) {}
11905 static tree
11906 extract_locals_r (tree *tp, int */*walk_subtrees*/, void *data_)
11908 el_data &data = *reinterpret_cast<el_data*>(data_);
11909 tree *extra = &data.extra;
11910 tsubst_flags_t complain = data.complain;
11912 if (TYPE_P (*tp) && typedef_variant_p (*tp))
11913 /* Remember local typedefs (85214). */
11914 tp = &TYPE_NAME (*tp);
11916 if (TREE_CODE (*tp) == DECL_EXPR)
11917 data.internal.add (DECL_EXPR_DECL (*tp));
11918 else if (tree spec = retrieve_local_specialization (*tp))
11920 if (data.internal.contains (*tp))
11921 /* Don't mess with variables declared within the pattern. */
11922 return NULL_TREE;
11923 if (TREE_CODE (spec) == NONTYPE_ARGUMENT_PACK)
11925 /* Maybe pull out the PARM_DECL for a partial instantiation. */
11926 tree args = ARGUMENT_PACK_ARGS (spec);
11927 if (TREE_VEC_LENGTH (args) == 1)
11929 tree elt = TREE_VEC_ELT (args, 0);
11930 if (PACK_EXPANSION_P (elt))
11931 elt = PACK_EXPANSION_PATTERN (elt);
11932 if (DECL_PACK_P (elt))
11933 spec = elt;
11935 if (TREE_CODE (spec) == NONTYPE_ARGUMENT_PACK)
11937 /* Handle lambda capture here, since we aren't doing any
11938 substitution now, and so tsubst_copy won't call
11939 process_outer_var_ref. */
11940 tree args = ARGUMENT_PACK_ARGS (spec);
11941 int len = TREE_VEC_LENGTH (args);
11942 for (int i = 0; i < len; ++i)
11944 tree arg = TREE_VEC_ELT (args, i);
11945 tree carg = arg;
11946 if (outer_automatic_var_p (arg))
11947 carg = process_outer_var_ref (arg, complain);
11948 if (carg != arg)
11950 /* Make a new NONTYPE_ARGUMENT_PACK of the capture
11951 proxies. */
11952 if (i == 0)
11954 spec = copy_node (spec);
11955 args = copy_node (args);
11956 SET_ARGUMENT_PACK_ARGS (spec, args);
11957 register_local_specialization (spec, *tp);
11959 TREE_VEC_ELT (args, i) = carg;
11964 if (outer_automatic_var_p (spec))
11965 spec = process_outer_var_ref (spec, complain);
11966 *extra = tree_cons (*tp, spec, *extra);
11968 return NULL_TREE;
11970 static tree
11971 extract_local_specs (tree pattern, tsubst_flags_t complain)
11973 el_data data (complain);
11974 cp_walk_tree_without_duplicates (&pattern, extract_locals_r, &data);
11975 return data.extra;
11978 /* Extract any uses of local_specializations from PATTERN and add them to ARGS
11979 for use in PACK_EXPANSION_EXTRA_ARGS. */
11981 tree
11982 build_extra_args (tree pattern, tree args, tsubst_flags_t complain)
11984 tree extra = args;
11985 if (local_specializations)
11986 if (tree locals = extract_local_specs (pattern, complain))
11987 extra = tree_cons (NULL_TREE, extra, locals);
11988 return extra;
11991 /* Apply any local specializations from PACK_EXPANSION_EXTRA_ARGS and add the
11992 normal template args to ARGS. */
11994 tree
11995 add_extra_args (tree extra, tree args)
11997 if (extra && TREE_CODE (extra) == TREE_LIST)
11999 for (tree elt = TREE_CHAIN (extra); elt; elt = TREE_CHAIN (elt))
12001 /* The partial instantiation involved local declarations collected in
12002 extract_local_specs; map from the general template to our local
12003 context. */
12004 tree gen = TREE_PURPOSE (elt);
12005 tree inst = TREE_VALUE (elt);
12006 if (DECL_P (inst))
12007 if (tree local = retrieve_local_specialization (inst))
12008 inst = local;
12009 /* else inst is already a full instantiation of the pack. */
12010 register_local_specialization (inst, gen);
12012 gcc_assert (!TREE_PURPOSE (extra));
12013 extra = TREE_VALUE (extra);
12015 return add_to_template_args (extra, args);
12018 /* Substitute ARGS into T, which is an pack expansion
12019 (i.e. TYPE_PACK_EXPANSION or EXPR_PACK_EXPANSION). Returns a
12020 TREE_VEC with the substituted arguments, a PACK_EXPANSION_* node
12021 (if only a partial substitution could be performed) or
12022 ERROR_MARK_NODE if there was an error. */
12023 tree
12024 tsubst_pack_expansion (tree t, tree args, tsubst_flags_t complain,
12025 tree in_decl)
12027 tree pattern;
12028 tree pack, packs = NULL_TREE;
12029 bool unsubstituted_packs = false;
12030 bool unsubstituted_fn_pack = false;
12031 int i, len = -1;
12032 tree result;
12033 hash_map<tree, tree> *saved_local_specializations = NULL;
12034 bool need_local_specializations = false;
12035 int levels;
12037 gcc_assert (PACK_EXPANSION_P (t));
12038 pattern = PACK_EXPANSION_PATTERN (t);
12040 /* Add in any args remembered from an earlier partial instantiation. */
12041 args = add_extra_args (PACK_EXPANSION_EXTRA_ARGS (t), args);
12043 levels = TMPL_ARGS_DEPTH (args);
12045 /* Determine the argument packs that will instantiate the parameter
12046 packs used in the expansion expression. While we're at it,
12047 compute the number of arguments to be expanded and make sure it
12048 is consistent. */
12049 for (pack = PACK_EXPANSION_PARAMETER_PACKS (t); pack;
12050 pack = TREE_CHAIN (pack))
12052 tree parm_pack = TREE_VALUE (pack);
12053 tree arg_pack = NULL_TREE;
12054 tree orig_arg = NULL_TREE;
12055 int level = 0;
12057 if (TREE_CODE (parm_pack) == BASES)
12059 gcc_assert (parm_pack == pattern);
12060 if (BASES_DIRECT (parm_pack))
12061 return calculate_direct_bases (tsubst_expr (BASES_TYPE (parm_pack),
12062 args, complain,
12063 in_decl, false),
12064 complain);
12065 else
12066 return calculate_bases (tsubst_expr (BASES_TYPE (parm_pack),
12067 args, complain, in_decl,
12068 false), complain);
12070 else if (builtin_pack_call_p (parm_pack))
12072 /* ??? Support use in other patterns. */
12073 gcc_assert (parm_pack == pattern);
12074 return expand_builtin_pack_call (parm_pack, args,
12075 complain, in_decl);
12077 else if (TREE_CODE (parm_pack) == PARM_DECL)
12079 /* We know we have correct local_specializations if this
12080 expansion is at function scope, or if we're dealing with a
12081 local parameter in a requires expression; for the latter,
12082 tsubst_requires_expr set it up appropriately. */
12083 if (PACK_EXPANSION_LOCAL_P (t) || CONSTRAINT_VAR_P (parm_pack))
12084 arg_pack = retrieve_local_specialization (parm_pack);
12085 else
12086 /* We can't rely on local_specializations for a parameter
12087 name used later in a function declaration (such as in a
12088 late-specified return type). Even if it exists, it might
12089 have the wrong value for a recursive call. */
12090 need_local_specializations = true;
12092 if (!arg_pack)
12094 /* This parameter pack was used in an unevaluated context. Just
12095 make a dummy decl, since it's only used for its type. */
12096 ++cp_unevaluated_operand;
12097 arg_pack = tsubst_decl (parm_pack, args, complain);
12098 --cp_unevaluated_operand;
12099 if (arg_pack && DECL_PACK_P (arg_pack))
12100 /* Partial instantiation of the parm_pack, we can't build
12101 up an argument pack yet. */
12102 arg_pack = NULL_TREE;
12103 else
12104 arg_pack = make_fnparm_pack (arg_pack);
12106 else if (argument_pack_element_is_expansion_p (arg_pack, 0))
12107 /* This argument pack isn't fully instantiated yet. We set this
12108 flag rather than clear arg_pack because we do want to do the
12109 optimization below, and we don't want to substitute directly
12110 into the pattern (as that would expose a NONTYPE_ARGUMENT_PACK
12111 where it isn't expected). */
12112 unsubstituted_fn_pack = true;
12114 else if (is_normal_capture_proxy (parm_pack))
12116 arg_pack = retrieve_local_specialization (parm_pack);
12117 if (argument_pack_element_is_expansion_p (arg_pack, 0))
12118 unsubstituted_fn_pack = true;
12120 else
12122 int idx;
12123 template_parm_level_and_index (parm_pack, &level, &idx);
12125 if (level <= levels)
12126 arg_pack = TMPL_ARG (args, level, idx);
12129 orig_arg = arg_pack;
12130 if (arg_pack && TREE_CODE (arg_pack) == ARGUMENT_PACK_SELECT)
12131 arg_pack = ARGUMENT_PACK_SELECT_FROM_PACK (arg_pack);
12133 if (arg_pack && !ARGUMENT_PACK_P (arg_pack))
12134 /* This can only happen if we forget to expand an argument
12135 pack somewhere else. Just return an error, silently. */
12137 result = make_tree_vec (1);
12138 TREE_VEC_ELT (result, 0) = error_mark_node;
12139 return result;
12142 if (arg_pack)
12144 int my_len =
12145 TREE_VEC_LENGTH (ARGUMENT_PACK_ARGS (arg_pack));
12147 /* Don't bother trying to do a partial substitution with
12148 incomplete packs; we'll try again after deduction. */
12149 if (ARGUMENT_PACK_INCOMPLETE_P (arg_pack))
12150 return t;
12152 if (len < 0)
12153 len = my_len;
12154 else if (len != my_len
12155 && !unsubstituted_fn_pack)
12157 if (!(complain & tf_error))
12158 /* Fail quietly. */;
12159 else if (TREE_CODE (t) == TYPE_PACK_EXPANSION)
12160 error ("mismatched argument pack lengths while expanding %qT",
12161 pattern);
12162 else
12163 error ("mismatched argument pack lengths while expanding %qE",
12164 pattern);
12165 return error_mark_node;
12168 /* Keep track of the parameter packs and their corresponding
12169 argument packs. */
12170 packs = tree_cons (parm_pack, arg_pack, packs);
12171 TREE_TYPE (packs) = orig_arg;
12173 else
12175 /* We can't substitute for this parameter pack. We use a flag as
12176 well as the missing_level counter because function parameter
12177 packs don't have a level. */
12178 gcc_assert (processing_template_decl || is_auto (parm_pack));
12179 unsubstituted_packs = true;
12183 /* If the expansion is just T..., return the matching argument pack, unless
12184 we need to call convert_from_reference on all the elements. This is an
12185 important optimization; see c++/68422. */
12186 if (!unsubstituted_packs
12187 && TREE_PURPOSE (packs) == pattern)
12189 tree args = ARGUMENT_PACK_ARGS (TREE_VALUE (packs));
12191 /* If the argument pack is a single pack expansion, pull it out. */
12192 if (TREE_VEC_LENGTH (args) == 1
12193 && pack_expansion_args_count (args))
12194 return TREE_VEC_ELT (args, 0);
12196 /* Types need no adjustment, nor does sizeof..., and if we still have
12197 some pack expansion args we won't do anything yet. */
12198 if (TREE_CODE (t) == TYPE_PACK_EXPANSION
12199 || PACK_EXPANSION_SIZEOF_P (t)
12200 || pack_expansion_args_count (args))
12201 return args;
12202 /* Also optimize expression pack expansions if we can tell that the
12203 elements won't have reference type. */
12204 tree type = TREE_TYPE (pattern);
12205 if (type && TREE_CODE (type) != REFERENCE_TYPE
12206 && !PACK_EXPANSION_P (type)
12207 && !WILDCARD_TYPE_P (type))
12208 return args;
12209 /* Otherwise use the normal path so we get convert_from_reference. */
12212 /* We cannot expand this expansion expression, because we don't have
12213 all of the argument packs we need. */
12214 if (use_pack_expansion_extra_args_p (packs, len, unsubstituted_packs))
12216 /* We got some full packs, but we can't substitute them in until we
12217 have values for all the packs. So remember these until then. */
12219 t = make_pack_expansion (pattern, complain);
12220 PACK_EXPANSION_EXTRA_ARGS (t)
12221 = build_extra_args (pattern, args, complain);
12222 return t;
12224 else if (unsubstituted_packs)
12226 /* There were no real arguments, we're just replacing a parameter
12227 pack with another version of itself. Substitute into the
12228 pattern and return a PACK_EXPANSION_*. The caller will need to
12229 deal with that. */
12230 if (TREE_CODE (t) == EXPR_PACK_EXPANSION)
12231 t = tsubst_expr (pattern, args, complain, in_decl,
12232 /*integral_constant_expression_p=*/false);
12233 else
12234 t = tsubst (pattern, args, complain, in_decl);
12235 t = make_pack_expansion (t, complain);
12236 return t;
12239 gcc_assert (len >= 0);
12241 if (need_local_specializations)
12243 /* We're in a late-specified return type, so create our own local
12244 specializations map; the current map is either NULL or (in the
12245 case of recursive unification) might have bindings that we don't
12246 want to use or alter. */
12247 saved_local_specializations = local_specializations;
12248 local_specializations = new hash_map<tree, tree>;
12251 /* For each argument in each argument pack, substitute into the
12252 pattern. */
12253 result = make_tree_vec (len);
12254 tree elem_args = copy_template_args (args);
12255 for (i = 0; i < len; ++i)
12257 t = gen_elem_of_pack_expansion_instantiation (pattern, packs,
12259 elem_args, complain,
12260 in_decl);
12261 TREE_VEC_ELT (result, i) = t;
12262 if (t == error_mark_node)
12264 result = error_mark_node;
12265 break;
12269 /* Update ARGS to restore the substitution from parameter packs to
12270 their argument packs. */
12271 for (pack = packs; pack; pack = TREE_CHAIN (pack))
12273 tree parm = TREE_PURPOSE (pack);
12275 if (TREE_CODE (parm) == PARM_DECL
12276 || VAR_P (parm)
12277 || TREE_CODE (parm) == FIELD_DECL)
12278 register_local_specialization (TREE_TYPE (pack), parm);
12279 else
12281 int idx, level;
12283 if (TREE_VALUE (pack) == NULL_TREE)
12284 continue;
12286 template_parm_level_and_index (parm, &level, &idx);
12288 /* Update the corresponding argument. */
12289 if (TMPL_ARGS_HAVE_MULTIPLE_LEVELS (args))
12290 TREE_VEC_ELT (TREE_VEC_ELT (args, level -1 ), idx) =
12291 TREE_TYPE (pack);
12292 else
12293 TREE_VEC_ELT (args, idx) = TREE_TYPE (pack);
12297 if (need_local_specializations)
12299 delete local_specializations;
12300 local_specializations = saved_local_specializations;
12303 /* If the dependent pack arguments were such that we end up with only a
12304 single pack expansion again, there's no need to keep it in a TREE_VEC. */
12305 if (len == 1 && TREE_CODE (result) == TREE_VEC
12306 && PACK_EXPANSION_P (TREE_VEC_ELT (result, 0)))
12307 return TREE_VEC_ELT (result, 0);
12309 return result;
12312 /* Given PARM_DECL PARM, find the corresponding PARM_DECL in the template
12313 TMPL. We do this using DECL_PARM_INDEX, which should work even with
12314 parameter packs; all parms generated from a function parameter pack will
12315 have the same DECL_PARM_INDEX. */
12317 tree
12318 get_pattern_parm (tree parm, tree tmpl)
12320 tree pattern = DECL_TEMPLATE_RESULT (tmpl);
12321 tree patparm;
12323 if (DECL_ARTIFICIAL (parm))
12325 for (patparm = DECL_ARGUMENTS (pattern);
12326 patparm; patparm = DECL_CHAIN (patparm))
12327 if (DECL_ARTIFICIAL (patparm)
12328 && DECL_NAME (parm) == DECL_NAME (patparm))
12329 break;
12331 else
12333 patparm = FUNCTION_FIRST_USER_PARM (DECL_TEMPLATE_RESULT (tmpl));
12334 patparm = chain_index (DECL_PARM_INDEX (parm)-1, patparm);
12335 gcc_assert (DECL_PARM_INDEX (patparm)
12336 == DECL_PARM_INDEX (parm));
12339 return patparm;
12342 /* Make an argument pack out of the TREE_VEC VEC. */
12344 static tree
12345 make_argument_pack (tree vec)
12347 tree pack;
12348 tree elt = TREE_VEC_ELT (vec, 0);
12349 if (TYPE_P (elt))
12350 pack = cxx_make_type (TYPE_ARGUMENT_PACK);
12351 else
12353 pack = make_node (NONTYPE_ARGUMENT_PACK);
12354 TREE_CONSTANT (pack) = 1;
12356 SET_ARGUMENT_PACK_ARGS (pack, vec);
12357 return pack;
12360 /* Return an exact copy of template args T that can be modified
12361 independently. */
12363 static tree
12364 copy_template_args (tree t)
12366 if (t == error_mark_node)
12367 return t;
12369 int len = TREE_VEC_LENGTH (t);
12370 tree new_vec = make_tree_vec (len);
12372 for (int i = 0; i < len; ++i)
12374 tree elt = TREE_VEC_ELT (t, i);
12375 if (elt && TREE_CODE (elt) == TREE_VEC)
12376 elt = copy_template_args (elt);
12377 TREE_VEC_ELT (new_vec, i) = elt;
12380 NON_DEFAULT_TEMPLATE_ARGS_COUNT (new_vec)
12381 = NON_DEFAULT_TEMPLATE_ARGS_COUNT (t);
12383 return new_vec;
12386 /* Substitute ARGS into the vector or list of template arguments T. */
12388 static tree
12389 tsubst_template_args (tree t, tree args, tsubst_flags_t complain, tree in_decl)
12391 tree orig_t = t;
12392 int len, need_new = 0, i, expanded_len_adjust = 0, out;
12393 tree *elts;
12395 if (t == error_mark_node)
12396 return error_mark_node;
12398 len = TREE_VEC_LENGTH (t);
12399 elts = XALLOCAVEC (tree, len);
12401 for (i = 0; i < len; i++)
12403 tree orig_arg = TREE_VEC_ELT (t, i);
12404 tree new_arg;
12406 if (TREE_CODE (orig_arg) == TREE_VEC)
12407 new_arg = tsubst_template_args (orig_arg, args, complain, in_decl);
12408 else if (PACK_EXPANSION_P (orig_arg))
12410 /* Substitute into an expansion expression. */
12411 new_arg = tsubst_pack_expansion (orig_arg, args, complain, in_decl);
12413 if (TREE_CODE (new_arg) == TREE_VEC)
12414 /* Add to the expanded length adjustment the number of
12415 expanded arguments. We subtract one from this
12416 measurement, because the argument pack expression
12417 itself is already counted as 1 in
12418 LEN. EXPANDED_LEN_ADJUST can actually be negative, if
12419 the argument pack is empty. */
12420 expanded_len_adjust += TREE_VEC_LENGTH (new_arg) - 1;
12422 else if (ARGUMENT_PACK_P (orig_arg))
12424 /* Substitute into each of the arguments. */
12425 new_arg = TYPE_P (orig_arg)
12426 ? cxx_make_type (TREE_CODE (orig_arg))
12427 : make_node (TREE_CODE (orig_arg));
12429 tree pack_args = tsubst_template_args (ARGUMENT_PACK_ARGS (orig_arg),
12430 args, complain, in_decl);
12431 if (pack_args == error_mark_node)
12432 new_arg = error_mark_node;
12433 else
12434 SET_ARGUMENT_PACK_ARGS (new_arg, pack_args);
12436 if (TREE_CODE (new_arg) == NONTYPE_ARGUMENT_PACK)
12437 TREE_CONSTANT (new_arg) = TREE_CONSTANT (orig_arg);
12439 else
12440 new_arg = tsubst_template_arg (orig_arg, args, complain, in_decl);
12442 if (new_arg == error_mark_node)
12443 return error_mark_node;
12445 elts[i] = new_arg;
12446 if (new_arg != orig_arg)
12447 need_new = 1;
12450 if (!need_new)
12451 return t;
12453 /* Make space for the expanded arguments coming from template
12454 argument packs. */
12455 t = make_tree_vec (len + expanded_len_adjust);
12456 /* ORIG_T can contain TREE_VECs. That happens if ORIG_T contains the
12457 arguments for a member template.
12458 In that case each TREE_VEC in ORIG_T represents a level of template
12459 arguments, and ORIG_T won't carry any non defaulted argument count.
12460 It will rather be the nested TREE_VECs that will carry one.
12461 In other words, ORIG_T carries a non defaulted argument count only
12462 if it doesn't contain any nested TREE_VEC. */
12463 if (NON_DEFAULT_TEMPLATE_ARGS_COUNT (orig_t))
12465 int count = GET_NON_DEFAULT_TEMPLATE_ARGS_COUNT (orig_t);
12466 count += expanded_len_adjust;
12467 SET_NON_DEFAULT_TEMPLATE_ARGS_COUNT (t, count);
12469 for (i = 0, out = 0; i < len; i++)
12471 if ((PACK_EXPANSION_P (TREE_VEC_ELT (orig_t, i))
12472 || ARGUMENT_PACK_P (TREE_VEC_ELT (orig_t, i)))
12473 && TREE_CODE (elts[i]) == TREE_VEC)
12475 int idx;
12477 /* Now expand the template argument pack "in place". */
12478 for (idx = 0; idx < TREE_VEC_LENGTH (elts[i]); idx++, out++)
12479 TREE_VEC_ELT (t, out) = TREE_VEC_ELT (elts[i], idx);
12481 else
12483 TREE_VEC_ELT (t, out) = elts[i];
12484 out++;
12488 return t;
12491 /* Substitute ARGS into one level PARMS of template parameters. */
12493 static tree
12494 tsubst_template_parms_level (tree parms, tree args, tsubst_flags_t complain)
12496 if (parms == error_mark_node)
12497 return error_mark_node;
12499 tree new_vec = make_tree_vec (TREE_VEC_LENGTH (parms));
12501 for (int i = 0; i < TREE_VEC_LENGTH (new_vec); ++i)
12503 tree tuple = TREE_VEC_ELT (parms, i);
12505 if (tuple == error_mark_node)
12506 continue;
12508 TREE_VEC_ELT (new_vec, i) =
12509 tsubst_template_parm (tuple, args, complain);
12512 return new_vec;
12515 /* Return the result of substituting ARGS into the template parameters
12516 given by PARMS. If there are m levels of ARGS and m + n levels of
12517 PARMS, then the result will contain n levels of PARMS. For
12518 example, if PARMS is `template <class T> template <class U>
12519 template <T*, U, class V>' and ARGS is {{int}, {double}} then the
12520 result will be `template <int*, double, class V>'. */
12522 static tree
12523 tsubst_template_parms (tree parms, tree args, tsubst_flags_t complain)
12525 tree r = NULL_TREE;
12526 tree* new_parms;
12528 /* When substituting into a template, we must set
12529 PROCESSING_TEMPLATE_DECL as the template parameters may be
12530 dependent if they are based on one-another, and the dependency
12531 predicates are short-circuit outside of templates. */
12532 ++processing_template_decl;
12534 for (new_parms = &r;
12535 parms && TMPL_PARMS_DEPTH (parms) > TMPL_ARGS_DEPTH (args);
12536 new_parms = &(TREE_CHAIN (*new_parms)),
12537 parms = TREE_CHAIN (parms))
12539 tree new_vec = tsubst_template_parms_level (TREE_VALUE (parms),
12540 args, complain);
12541 *new_parms =
12542 tree_cons (size_int (TMPL_PARMS_DEPTH (parms)
12543 - TMPL_ARGS_DEPTH (args)),
12544 new_vec, NULL_TREE);
12547 --processing_template_decl;
12549 return r;
12552 /* Return the result of substituting ARGS into one template parameter
12553 given by T. T Must be a TREE_LIST which TREE_VALUE is the template
12554 parameter and which TREE_PURPOSE is the default argument of the
12555 template parameter. */
12557 static tree
12558 tsubst_template_parm (tree t, tree args, tsubst_flags_t complain)
12560 tree default_value, parm_decl;
12562 if (args == NULL_TREE
12563 || t == NULL_TREE
12564 || t == error_mark_node)
12565 return t;
12567 gcc_assert (TREE_CODE (t) == TREE_LIST);
12569 default_value = TREE_PURPOSE (t);
12570 parm_decl = TREE_VALUE (t);
12572 parm_decl = tsubst (parm_decl, args, complain, NULL_TREE);
12573 if (TREE_CODE (parm_decl) == PARM_DECL
12574 && invalid_nontype_parm_type_p (TREE_TYPE (parm_decl), complain))
12575 parm_decl = error_mark_node;
12576 default_value = tsubst_template_arg (default_value, args,
12577 complain, NULL_TREE);
12579 return build_tree_list (default_value, parm_decl);
12582 /* Substitute the ARGS into the indicated aggregate (or enumeration)
12583 type T. If T is not an aggregate or enumeration type, it is
12584 handled as if by tsubst. IN_DECL is as for tsubst. If
12585 ENTERING_SCOPE is nonzero, T is the context for a template which
12586 we are presently tsubst'ing. Return the substituted value. */
12588 static tree
12589 tsubst_aggr_type (tree t,
12590 tree args,
12591 tsubst_flags_t complain,
12592 tree in_decl,
12593 int entering_scope)
12595 if (t == NULL_TREE)
12596 return NULL_TREE;
12598 switch (TREE_CODE (t))
12600 case RECORD_TYPE:
12601 if (TYPE_PTRMEMFUNC_P (t))
12602 return tsubst (TYPE_PTRMEMFUNC_FN_TYPE (t), args, complain, in_decl);
12604 /* Fall through. */
12605 case ENUMERAL_TYPE:
12606 case UNION_TYPE:
12607 if (TYPE_TEMPLATE_INFO (t) && uses_template_parms (t))
12609 tree argvec;
12610 tree context;
12611 tree r;
12612 int saved_unevaluated_operand;
12613 int saved_inhibit_evaluation_warnings;
12615 /* In "sizeof(X<I>)" we need to evaluate "I". */
12616 saved_unevaluated_operand = cp_unevaluated_operand;
12617 cp_unevaluated_operand = 0;
12618 saved_inhibit_evaluation_warnings = c_inhibit_evaluation_warnings;
12619 c_inhibit_evaluation_warnings = 0;
12621 /* First, determine the context for the type we are looking
12622 up. */
12623 context = TYPE_CONTEXT (t);
12624 if (context && TYPE_P (context))
12626 context = tsubst_aggr_type (context, args, complain,
12627 in_decl, /*entering_scope=*/1);
12628 /* If context is a nested class inside a class template,
12629 it may still need to be instantiated (c++/33959). */
12630 context = complete_type (context);
12633 /* Then, figure out what arguments are appropriate for the
12634 type we are trying to find. For example, given:
12636 template <class T> struct S;
12637 template <class T, class U> void f(T, U) { S<U> su; }
12639 and supposing that we are instantiating f<int, double>,
12640 then our ARGS will be {int, double}, but, when looking up
12641 S we only want {double}. */
12642 argvec = tsubst_template_args (TYPE_TI_ARGS (t), args,
12643 complain, in_decl);
12644 if (argvec == error_mark_node)
12645 r = error_mark_node;
12646 else
12648 r = lookup_template_class (t, argvec, in_decl, context,
12649 entering_scope, complain);
12650 r = cp_build_qualified_type_real (r, cp_type_quals (t), complain);
12653 cp_unevaluated_operand = saved_unevaluated_operand;
12654 c_inhibit_evaluation_warnings = saved_inhibit_evaluation_warnings;
12656 return r;
12658 else
12659 /* This is not a template type, so there's nothing to do. */
12660 return t;
12662 default:
12663 return tsubst (t, args, complain, in_decl);
12667 static GTY((cache)) tree_cache_map *defarg_inst;
12669 /* Substitute into the default argument ARG (a default argument for
12670 FN), which has the indicated TYPE. */
12672 tree
12673 tsubst_default_argument (tree fn, int parmnum, tree type, tree arg,
12674 tsubst_flags_t complain)
12676 tree saved_class_ptr = NULL_TREE;
12677 tree saved_class_ref = NULL_TREE;
12678 int errs = errorcount + sorrycount;
12680 /* This can happen in invalid code. */
12681 if (TREE_CODE (arg) == DEFAULT_ARG)
12682 return arg;
12684 tree parm = FUNCTION_FIRST_USER_PARM (fn);
12685 parm = chain_index (parmnum, parm);
12686 tree parmtype = TREE_TYPE (parm);
12687 if (DECL_BY_REFERENCE (parm))
12688 parmtype = TREE_TYPE (parmtype);
12689 if (parmtype == error_mark_node)
12690 return error_mark_node;
12692 gcc_assert (same_type_ignoring_top_level_qualifiers_p (type, parmtype));
12694 tree *slot;
12695 if (defarg_inst && (slot = defarg_inst->get (parm)))
12696 return *slot;
12698 /* This default argument came from a template. Instantiate the
12699 default argument here, not in tsubst. In the case of
12700 something like:
12702 template <class T>
12703 struct S {
12704 static T t();
12705 void f(T = t());
12708 we must be careful to do name lookup in the scope of S<T>,
12709 rather than in the current class. */
12710 push_access_scope (fn);
12711 /* The "this" pointer is not valid in a default argument. */
12712 if (cfun)
12714 saved_class_ptr = current_class_ptr;
12715 cp_function_chain->x_current_class_ptr = NULL_TREE;
12716 saved_class_ref = current_class_ref;
12717 cp_function_chain->x_current_class_ref = NULL_TREE;
12720 start_lambda_scope (parm);
12722 push_deferring_access_checks(dk_no_deferred);
12723 /* The default argument expression may cause implicitly defined
12724 member functions to be synthesized, which will result in garbage
12725 collection. We must treat this situation as if we were within
12726 the body of function so as to avoid collecting live data on the
12727 stack. */
12728 ++function_depth;
12729 arg = tsubst_expr (arg, DECL_TI_ARGS (fn),
12730 complain, NULL_TREE,
12731 /*integral_constant_expression_p=*/false);
12732 --function_depth;
12733 pop_deferring_access_checks();
12735 finish_lambda_scope ();
12737 /* Restore the "this" pointer. */
12738 if (cfun)
12740 cp_function_chain->x_current_class_ptr = saved_class_ptr;
12741 cp_function_chain->x_current_class_ref = saved_class_ref;
12744 if (errorcount+sorrycount > errs
12745 && (complain & tf_warning_or_error))
12746 inform (input_location,
12747 " when instantiating default argument for call to %qD", fn);
12749 /* Make sure the default argument is reasonable. */
12750 arg = check_default_argument (type, arg, complain);
12752 pop_access_scope (fn);
12754 if (arg != error_mark_node && !cp_unevaluated_operand)
12756 if (!defarg_inst)
12757 defarg_inst = tree_cache_map::create_ggc (37);
12758 defarg_inst->put (parm, arg);
12761 return arg;
12764 /* Substitute into all the default arguments for FN. */
12766 static void
12767 tsubst_default_arguments (tree fn, tsubst_flags_t complain)
12769 tree arg;
12770 tree tmpl_args;
12772 tmpl_args = DECL_TI_ARGS (fn);
12774 /* If this function is not yet instantiated, we certainly don't need
12775 its default arguments. */
12776 if (uses_template_parms (tmpl_args))
12777 return;
12778 /* Don't do this again for clones. */
12779 if (DECL_CLONED_FUNCTION_P (fn))
12780 return;
12782 int i = 0;
12783 for (arg = TYPE_ARG_TYPES (TREE_TYPE (fn));
12784 arg;
12785 arg = TREE_CHAIN (arg), ++i)
12786 if (TREE_PURPOSE (arg))
12787 TREE_PURPOSE (arg) = tsubst_default_argument (fn, i,
12788 TREE_VALUE (arg),
12789 TREE_PURPOSE (arg),
12790 complain);
12793 /* Subroutine of tsubst_decl for the case when T is a FUNCTION_DECL. */
12795 static tree
12796 tsubst_function_decl (tree t, tree args, tsubst_flags_t complain,
12797 tree lambda_fntype)
12799 tree gen_tmpl, argvec;
12800 hashval_t hash = 0;
12801 tree in_decl = t;
12803 /* Nobody should be tsubst'ing into non-template functions. */
12804 gcc_assert (DECL_TEMPLATE_INFO (t) != NULL_TREE);
12806 if (TREE_CODE (DECL_TI_TEMPLATE (t)) == TEMPLATE_DECL)
12808 /* If T is not dependent, just return it. */
12809 if (!uses_template_parms (DECL_TI_ARGS (t)))
12810 return t;
12812 /* Calculate the most general template of which R is a
12813 specialization. */
12814 gen_tmpl = most_general_template (DECL_TI_TEMPLATE (t));
12816 /* We're substituting a lambda function under tsubst_lambda_expr but not
12817 directly from it; find the matching function we're already inside.
12818 But don't do this if T is a generic lambda with a single level of
12819 template parms, as in that case we're doing a normal instantiation. */
12820 if (LAMBDA_FUNCTION_P (t) && !lambda_fntype
12821 && (!generic_lambda_fn_p (t)
12822 || TMPL_PARMS_DEPTH (DECL_TEMPLATE_PARMS (gen_tmpl)) > 1))
12823 return enclosing_instantiation_of (t);
12825 /* Calculate the complete set of arguments used to
12826 specialize R. */
12827 argvec = tsubst_template_args (DECL_TI_ARGS
12828 (DECL_TEMPLATE_RESULT
12829 (DECL_TI_TEMPLATE (t))),
12830 args, complain, in_decl);
12831 if (argvec == error_mark_node)
12832 return error_mark_node;
12834 /* Check to see if we already have this specialization. */
12835 if (!lambda_fntype)
12837 hash = hash_tmpl_and_args (gen_tmpl, argvec);
12838 if (tree spec = retrieve_specialization (gen_tmpl, argvec, hash))
12839 return spec;
12842 /* We can see more levels of arguments than parameters if
12843 there was a specialization of a member template, like
12844 this:
12846 template <class T> struct S { template <class U> void f(); }
12847 template <> template <class U> void S<int>::f(U);
12849 Here, we'll be substituting into the specialization,
12850 because that's where we can find the code we actually
12851 want to generate, but we'll have enough arguments for
12852 the most general template.
12854 We also deal with the peculiar case:
12856 template <class T> struct S {
12857 template <class U> friend void f();
12859 template <class U> void f() {}
12860 template S<int>;
12861 template void f<double>();
12863 Here, the ARGS for the instantiation of will be {int,
12864 double}. But, we only need as many ARGS as there are
12865 levels of template parameters in CODE_PATTERN. We are
12866 careful not to get fooled into reducing the ARGS in
12867 situations like:
12869 template <class T> struct S { template <class U> void f(U); }
12870 template <class T> template <> void S<T>::f(int) {}
12872 which we can spot because the pattern will be a
12873 specialization in this case. */
12874 int args_depth = TMPL_ARGS_DEPTH (args);
12875 int parms_depth =
12876 TMPL_PARMS_DEPTH (DECL_TEMPLATE_PARMS (DECL_TI_TEMPLATE (t)));
12878 if (args_depth > parms_depth && !DECL_TEMPLATE_SPECIALIZATION (t))
12879 args = get_innermost_template_args (args, parms_depth);
12881 else
12883 /* This special case arises when we have something like this:
12885 template <class T> struct S {
12886 friend void f<int>(int, double);
12889 Here, the DECL_TI_TEMPLATE for the friend declaration
12890 will be an IDENTIFIER_NODE. We are being called from
12891 tsubst_friend_function, and we want only to create a
12892 new decl (R) with appropriate types so that we can call
12893 determine_specialization. */
12894 gen_tmpl = NULL_TREE;
12895 argvec = NULL_TREE;
12898 tree closure = (lambda_fntype ? TYPE_METHOD_BASETYPE (lambda_fntype)
12899 : NULL_TREE);
12900 tree ctx = closure ? closure : DECL_CONTEXT (t);
12901 bool member = ctx && TYPE_P (ctx);
12903 if (member && !closure)
12904 ctx = tsubst_aggr_type (ctx, args,
12905 complain, t, /*entering_scope=*/1);
12907 tree type = (lambda_fntype ? lambda_fntype
12908 : tsubst (TREE_TYPE (t), args,
12909 complain | tf_fndecl_type, in_decl));
12910 if (type == error_mark_node)
12911 return error_mark_node;
12913 /* If we hit excessive deduction depth, the type is bogus even if
12914 it isn't error_mark_node, so don't build a decl. */
12915 if (excessive_deduction_depth)
12916 return error_mark_node;
12918 /* We do NOT check for matching decls pushed separately at this
12919 point, as they may not represent instantiations of this
12920 template, and in any case are considered separate under the
12921 discrete model. */
12922 tree r = copy_decl (t);
12923 DECL_USE_TEMPLATE (r) = 0;
12924 TREE_TYPE (r) = type;
12925 /* Clear out the mangled name and RTL for the instantiation. */
12926 SET_DECL_ASSEMBLER_NAME (r, NULL_TREE);
12927 SET_DECL_RTL (r, NULL);
12928 /* Leave DECL_INITIAL set on deleted instantiations. */
12929 if (!DECL_DELETED_FN (r))
12930 DECL_INITIAL (r) = NULL_TREE;
12931 DECL_CONTEXT (r) = ctx;
12933 /* OpenMP UDRs have the only argument a reference to the declared
12934 type. We want to diagnose if the declared type is a reference,
12935 which is invalid, but as references to references are usually
12936 quietly merged, diagnose it here. */
12937 if (DECL_OMP_DECLARE_REDUCTION_P (t))
12939 tree argtype
12940 = TREE_TYPE (TREE_VALUE (TYPE_ARG_TYPES (TREE_TYPE (t))));
12941 argtype = tsubst (argtype, args, complain, in_decl);
12942 if (TREE_CODE (argtype) == REFERENCE_TYPE)
12943 error_at (DECL_SOURCE_LOCATION (t),
12944 "reference type %qT in "
12945 "%<#pragma omp declare reduction%>", argtype);
12946 if (strchr (IDENTIFIER_POINTER (DECL_NAME (t)), '~') == NULL)
12947 DECL_NAME (r) = omp_reduction_id (ERROR_MARK, DECL_NAME (t),
12948 argtype);
12951 if (member && DECL_CONV_FN_P (r))
12952 /* Type-conversion operator. Reconstruct the name, in
12953 case it's the name of one of the template's parameters. */
12954 DECL_NAME (r) = make_conv_op_name (TREE_TYPE (type));
12956 tree parms = DECL_ARGUMENTS (t);
12957 if (closure)
12958 parms = DECL_CHAIN (parms);
12959 parms = tsubst (parms, args, complain, t);
12960 for (tree parm = parms; parm; parm = DECL_CHAIN (parm))
12961 DECL_CONTEXT (parm) = r;
12962 if (closure)
12964 tree tparm = build_this_parm (r, closure, type_memfn_quals (type));
12965 DECL_CHAIN (tparm) = parms;
12966 parms = tparm;
12968 DECL_ARGUMENTS (r) = parms;
12969 DECL_RESULT (r) = NULL_TREE;
12971 TREE_STATIC (r) = 0;
12972 TREE_PUBLIC (r) = TREE_PUBLIC (t);
12973 DECL_EXTERNAL (r) = 1;
12974 /* If this is an instantiation of a function with internal
12975 linkage, we already know what object file linkage will be
12976 assigned to the instantiation. */
12977 DECL_INTERFACE_KNOWN (r) = !TREE_PUBLIC (r);
12978 DECL_DEFER_OUTPUT (r) = 0;
12979 DECL_CHAIN (r) = NULL_TREE;
12980 DECL_PENDING_INLINE_INFO (r) = 0;
12981 DECL_PENDING_INLINE_P (r) = 0;
12982 DECL_SAVED_TREE (r) = NULL_TREE;
12983 DECL_STRUCT_FUNCTION (r) = NULL;
12984 TREE_USED (r) = 0;
12985 /* We'll re-clone as appropriate in instantiate_template. */
12986 DECL_CLONED_FUNCTION (r) = NULL_TREE;
12988 /* If we aren't complaining now, return on error before we register
12989 the specialization so that we'll complain eventually. */
12990 if ((complain & tf_error) == 0
12991 && IDENTIFIER_ANY_OP_P (DECL_NAME (r))
12992 && !grok_op_properties (r, /*complain=*/false))
12993 return error_mark_node;
12995 /* When instantiating a constrained member, substitute
12996 into the constraints to create a new constraint. */
12997 if (tree ci = get_constraints (t))
12998 if (member)
13000 ci = tsubst_constraint_info (ci, argvec, complain, NULL_TREE);
13001 set_constraints (r, ci);
13004 /* Set up the DECL_TEMPLATE_INFO for R. There's no need to do
13005 this in the special friend case mentioned above where
13006 GEN_TMPL is NULL. */
13007 if (gen_tmpl && !closure)
13009 DECL_TEMPLATE_INFO (r)
13010 = build_template_info (gen_tmpl, argvec);
13011 SET_DECL_IMPLICIT_INSTANTIATION (r);
13013 tree new_r
13014 = register_specialization (r, gen_tmpl, argvec, false, hash);
13015 if (new_r != r)
13016 /* We instantiated this while substituting into
13017 the type earlier (template/friend54.C). */
13018 return new_r;
13020 /* We're not supposed to instantiate default arguments
13021 until they are called, for a template. But, for a
13022 declaration like:
13024 template <class T> void f ()
13025 { extern void g(int i = T()); }
13027 we should do the substitution when the template is
13028 instantiated. We handle the member function case in
13029 instantiate_class_template since the default arguments
13030 might refer to other members of the class. */
13031 if (!member
13032 && !PRIMARY_TEMPLATE_P (gen_tmpl)
13033 && !uses_template_parms (argvec))
13034 tsubst_default_arguments (r, complain);
13036 else
13037 DECL_TEMPLATE_INFO (r) = NULL_TREE;
13039 /* Copy the list of befriending classes. */
13040 for (tree *friends = &DECL_BEFRIENDING_CLASSES (r);
13041 *friends;
13042 friends = &TREE_CHAIN (*friends))
13044 *friends = copy_node (*friends);
13045 TREE_VALUE (*friends)
13046 = tsubst (TREE_VALUE (*friends), args, complain, in_decl);
13049 if (DECL_CONSTRUCTOR_P (r) || DECL_DESTRUCTOR_P (r))
13051 maybe_retrofit_in_chrg (r);
13052 if (DECL_CONSTRUCTOR_P (r) && !grok_ctor_properties (ctx, r))
13053 return error_mark_node;
13054 /* If this is an instantiation of a member template, clone it.
13055 If it isn't, that'll be handled by
13056 clone_constructors_and_destructors. */
13057 if (PRIMARY_TEMPLATE_P (gen_tmpl))
13058 clone_function_decl (r, /*update_methods=*/false);
13060 else if ((complain & tf_error) != 0
13061 && IDENTIFIER_ANY_OP_P (DECL_NAME (r))
13062 && !grok_op_properties (r, /*complain=*/true))
13063 return error_mark_node;
13065 if (DECL_FRIEND_P (t) && DECL_FRIEND_CONTEXT (t))
13066 SET_DECL_FRIEND_CONTEXT (r,
13067 tsubst (DECL_FRIEND_CONTEXT (t),
13068 args, complain, in_decl));
13070 /* Possibly limit visibility based on template args. */
13071 DECL_VISIBILITY (r) = VISIBILITY_DEFAULT;
13072 if (DECL_VISIBILITY_SPECIFIED (t))
13074 DECL_VISIBILITY_SPECIFIED (r) = 0;
13075 DECL_ATTRIBUTES (r)
13076 = remove_attribute ("visibility", DECL_ATTRIBUTES (r));
13078 determine_visibility (r);
13079 if (DECL_DEFAULTED_OUTSIDE_CLASS_P (r)
13080 && !processing_template_decl)
13081 defaulted_late_check (r);
13083 apply_late_template_attributes (&r, DECL_ATTRIBUTES (r), 0,
13084 args, complain, in_decl);
13085 return r;
13088 /* Subroutine of tsubst_decl for the case when T is a TEMPLATE_DECL. */
13090 static tree
13091 tsubst_template_decl (tree t, tree args, tsubst_flags_t complain,
13092 tree lambda_fntype)
13094 /* We can get here when processing a member function template,
13095 member class template, or template template parameter. */
13096 tree decl = DECL_TEMPLATE_RESULT (t);
13097 tree in_decl = t;
13098 tree spec;
13099 tree tmpl_args;
13100 tree full_args;
13101 tree r;
13102 hashval_t hash = 0;
13104 if (DECL_TEMPLATE_TEMPLATE_PARM_P (t))
13106 /* Template template parameter is treated here. */
13107 tree new_type = tsubst (TREE_TYPE (t), args, complain, in_decl);
13108 if (new_type == error_mark_node)
13109 r = error_mark_node;
13110 /* If we get a real template back, return it. This can happen in
13111 the context of most_specialized_partial_spec. */
13112 else if (TREE_CODE (new_type) == TEMPLATE_DECL)
13113 r = new_type;
13114 else
13115 /* The new TEMPLATE_DECL was built in
13116 reduce_template_parm_level. */
13117 r = TEMPLATE_TEMPLATE_PARM_TEMPLATE_DECL (new_type);
13118 return r;
13121 if (!lambda_fntype)
13123 /* We might already have an instance of this template.
13124 The ARGS are for the surrounding class type, so the
13125 full args contain the tsubst'd args for the context,
13126 plus the innermost args from the template decl. */
13127 tmpl_args = DECL_CLASS_TEMPLATE_P (t)
13128 ? CLASSTYPE_TI_ARGS (TREE_TYPE (t))
13129 : DECL_TI_ARGS (DECL_TEMPLATE_RESULT (t));
13130 /* Because this is a template, the arguments will still be
13131 dependent, even after substitution. If
13132 PROCESSING_TEMPLATE_DECL is not set, the dependency
13133 predicates will short-circuit. */
13134 ++processing_template_decl;
13135 full_args = tsubst_template_args (tmpl_args, args,
13136 complain, in_decl);
13137 --processing_template_decl;
13138 if (full_args == error_mark_node)
13139 return error_mark_node;
13141 /* If this is a default template template argument,
13142 tsubst might not have changed anything. */
13143 if (full_args == tmpl_args)
13144 return t;
13146 hash = hash_tmpl_and_args (t, full_args);
13147 spec = retrieve_specialization (t, full_args, hash);
13148 if (spec != NULL_TREE)
13149 return spec;
13152 /* Make a new template decl. It will be similar to the
13153 original, but will record the current template arguments.
13154 We also create a new function declaration, which is just
13155 like the old one, but points to this new template, rather
13156 than the old one. */
13157 r = copy_decl (t);
13158 gcc_assert (DECL_LANG_SPECIFIC (r) != 0);
13159 DECL_CHAIN (r) = NULL_TREE;
13161 // Build new template info linking to the original template decl.
13162 if (!lambda_fntype)
13164 DECL_TEMPLATE_INFO (r) = build_template_info (t, args);
13165 SET_DECL_IMPLICIT_INSTANTIATION (r);
13167 else
13168 DECL_TEMPLATE_INFO (r) = NULL_TREE;
13170 /* The template parameters for this new template are all the
13171 template parameters for the old template, except the
13172 outermost level of parameters. */
13173 DECL_TEMPLATE_PARMS (r)
13174 = tsubst_template_parms (DECL_TEMPLATE_PARMS (t), args,
13175 complain);
13177 if (TREE_CODE (decl) == TYPE_DECL
13178 && !TYPE_DECL_ALIAS_P (decl))
13180 tree new_type;
13181 ++processing_template_decl;
13182 new_type = tsubst (TREE_TYPE (t), args, complain, in_decl);
13183 --processing_template_decl;
13184 if (new_type == error_mark_node)
13185 return error_mark_node;
13187 TREE_TYPE (r) = new_type;
13188 /* For a partial specialization, we need to keep pointing to
13189 the primary template. */
13190 if (!DECL_TEMPLATE_SPECIALIZATION (t))
13191 CLASSTYPE_TI_TEMPLATE (new_type) = r;
13192 DECL_TEMPLATE_RESULT (r) = TYPE_MAIN_DECL (new_type);
13193 DECL_TI_ARGS (r) = CLASSTYPE_TI_ARGS (new_type);
13194 DECL_CONTEXT (r) = TYPE_CONTEXT (new_type);
13196 else
13198 tree new_decl;
13199 ++processing_template_decl;
13200 if (TREE_CODE (decl) == FUNCTION_DECL)
13201 new_decl = tsubst_function_decl (decl, args, complain, lambda_fntype);
13202 else
13203 new_decl = tsubst (decl, args, complain, in_decl);
13204 --processing_template_decl;
13205 if (new_decl == error_mark_node)
13206 return error_mark_node;
13208 DECL_TEMPLATE_RESULT (r) = new_decl;
13209 TREE_TYPE (r) = TREE_TYPE (new_decl);
13210 DECL_CONTEXT (r) = DECL_CONTEXT (new_decl);
13211 if (lambda_fntype)
13213 tree args = template_parms_to_args (DECL_TEMPLATE_PARMS (r));
13214 DECL_TEMPLATE_INFO (new_decl) = build_template_info (r, args);
13216 else
13218 DECL_TI_TEMPLATE (new_decl) = r;
13219 DECL_TI_ARGS (r) = DECL_TI_ARGS (new_decl);
13223 DECL_TEMPLATE_INSTANTIATIONS (r) = NULL_TREE;
13224 DECL_TEMPLATE_SPECIALIZATIONS (r) = NULL_TREE;
13226 if (PRIMARY_TEMPLATE_P (t))
13227 DECL_PRIMARY_TEMPLATE (r) = r;
13229 if (TREE_CODE (decl) != TYPE_DECL && !VAR_P (decl)
13230 && !lambda_fntype)
13231 /* Record this non-type partial instantiation. */
13232 register_specialization (r, t,
13233 DECL_TI_ARGS (DECL_TEMPLATE_RESULT (r)),
13234 false, hash);
13236 return r;
13239 /* True if FN is the op() for a lambda in an uninstantiated template. */
13241 bool
13242 lambda_fn_in_template_p (tree fn)
13244 if (!fn || !LAMBDA_FUNCTION_P (fn))
13245 return false;
13246 tree closure = DECL_CONTEXT (fn);
13247 return CLASSTYPE_TEMPLATE_INFO (closure) != NULL_TREE;
13250 /* We're instantiating a variable from template function TCTX. Return the
13251 corresponding current enclosing scope. This gets complicated because lambda
13252 functions in templates are regenerated rather than instantiated, but generic
13253 lambda functions are subsequently instantiated. */
13255 static tree
13256 enclosing_instantiation_of (tree otctx)
13258 tree tctx = otctx;
13259 tree fn = current_function_decl;
13260 int lambda_count = 0;
13262 for (; tctx && lambda_fn_in_template_p (tctx);
13263 tctx = decl_function_context (tctx))
13264 ++lambda_count;
13265 for (; fn; fn = decl_function_context (fn))
13267 tree ofn = fn;
13268 int flambda_count = 0;
13269 for (; flambda_count < lambda_count && fn && LAMBDA_FUNCTION_P (fn);
13270 fn = decl_function_context (fn))
13271 ++flambda_count;
13272 if ((fn && DECL_TEMPLATE_INFO (fn))
13273 ? most_general_template (fn) != most_general_template (tctx)
13274 : fn != tctx)
13275 continue;
13276 gcc_assert (DECL_NAME (ofn) == DECL_NAME (otctx)
13277 || DECL_CONV_FN_P (ofn));
13278 return ofn;
13280 gcc_unreachable ();
13283 /* Substitute the ARGS into the T, which is a _DECL. Return the
13284 result of the substitution. Issue error and warning messages under
13285 control of COMPLAIN. */
13287 static tree
13288 tsubst_decl (tree t, tree args, tsubst_flags_t complain)
13290 #define RETURN(EXP) do { r = (EXP); goto out; } while(0)
13291 location_t saved_loc;
13292 tree r = NULL_TREE;
13293 tree in_decl = t;
13294 hashval_t hash = 0;
13296 /* Set the filename and linenumber to improve error-reporting. */
13297 saved_loc = input_location;
13298 input_location = DECL_SOURCE_LOCATION (t);
13300 switch (TREE_CODE (t))
13302 case TEMPLATE_DECL:
13303 r = tsubst_template_decl (t, args, complain, /*lambda*/NULL_TREE);
13304 break;
13306 case FUNCTION_DECL:
13307 r = tsubst_function_decl (t, args, complain, /*lambda*/NULL_TREE);
13308 break;
13310 case PARM_DECL:
13312 tree type = NULL_TREE;
13313 int i, len = 1;
13314 tree expanded_types = NULL_TREE;
13315 tree prev_r = NULL_TREE;
13316 tree first_r = NULL_TREE;
13318 if (DECL_PACK_P (t))
13320 /* If there is a local specialization that isn't a
13321 parameter pack, it means that we're doing a "simple"
13322 substitution from inside tsubst_pack_expansion. Just
13323 return the local specialization (which will be a single
13324 parm). */
13325 tree spec = retrieve_local_specialization (t);
13326 if (spec
13327 && TREE_CODE (spec) == PARM_DECL
13328 && TREE_CODE (TREE_TYPE (spec)) != TYPE_PACK_EXPANSION)
13329 RETURN (spec);
13331 /* Expand the TYPE_PACK_EXPANSION that provides the types for
13332 the parameters in this function parameter pack. */
13333 expanded_types = tsubst_pack_expansion (TREE_TYPE (t), args,
13334 complain, in_decl);
13335 if (TREE_CODE (expanded_types) == TREE_VEC)
13337 len = TREE_VEC_LENGTH (expanded_types);
13339 /* Zero-length parameter packs are boring. Just substitute
13340 into the chain. */
13341 if (len == 0)
13342 RETURN (tsubst (TREE_CHAIN (t), args, complain,
13343 TREE_CHAIN (t)));
13345 else
13347 /* All we did was update the type. Make a note of that. */
13348 type = expanded_types;
13349 expanded_types = NULL_TREE;
13353 /* Loop through all of the parameters we'll build. When T is
13354 a function parameter pack, LEN is the number of expanded
13355 types in EXPANDED_TYPES; otherwise, LEN is 1. */
13356 r = NULL_TREE;
13357 for (i = 0; i < len; ++i)
13359 prev_r = r;
13360 r = copy_node (t);
13361 if (DECL_TEMPLATE_PARM_P (t))
13362 SET_DECL_TEMPLATE_PARM_P (r);
13364 if (expanded_types)
13365 /* We're on the Ith parameter of the function parameter
13366 pack. */
13368 /* Get the Ith type. */
13369 type = TREE_VEC_ELT (expanded_types, i);
13371 /* Rename the parameter to include the index. */
13372 DECL_NAME (r)
13373 = make_ith_pack_parameter_name (DECL_NAME (r), i);
13375 else if (!type)
13376 /* We're dealing with a normal parameter. */
13377 type = tsubst (TREE_TYPE (t), args, complain, in_decl);
13379 type = type_decays_to (type);
13380 TREE_TYPE (r) = type;
13381 cp_apply_type_quals_to_decl (cp_type_quals (type), r);
13383 if (DECL_INITIAL (r))
13385 if (TREE_CODE (DECL_INITIAL (r)) != TEMPLATE_PARM_INDEX)
13386 DECL_INITIAL (r) = TREE_TYPE (r);
13387 else
13388 DECL_INITIAL (r) = tsubst (DECL_INITIAL (r), args,
13389 complain, in_decl);
13392 DECL_CONTEXT (r) = NULL_TREE;
13394 if (!DECL_TEMPLATE_PARM_P (r))
13395 DECL_ARG_TYPE (r) = type_passed_as (type);
13397 apply_late_template_attributes (&r, DECL_ATTRIBUTES (r), 0,
13398 args, complain, in_decl);
13400 /* Keep track of the first new parameter we
13401 generate. That's what will be returned to the
13402 caller. */
13403 if (!first_r)
13404 first_r = r;
13406 /* Build a proper chain of parameters when substituting
13407 into a function parameter pack. */
13408 if (prev_r)
13409 DECL_CHAIN (prev_r) = r;
13412 /* If cp_unevaluated_operand is set, we're just looking for a
13413 single dummy parameter, so don't keep going. */
13414 if (DECL_CHAIN (t) && !cp_unevaluated_operand)
13415 DECL_CHAIN (r) = tsubst (DECL_CHAIN (t), args,
13416 complain, DECL_CHAIN (t));
13418 /* FIRST_R contains the start of the chain we've built. */
13419 r = first_r;
13421 break;
13423 case FIELD_DECL:
13425 tree type = NULL_TREE;
13426 tree vec = NULL_TREE;
13427 tree expanded_types = NULL_TREE;
13428 int len = 1;
13430 if (PACK_EXPANSION_P (TREE_TYPE (t)))
13432 /* This field is a lambda capture pack. Return a TREE_VEC of
13433 the expanded fields to instantiate_class_template_1. */
13434 expanded_types = tsubst_pack_expansion (TREE_TYPE (t), args,
13435 complain, in_decl);
13436 if (TREE_CODE (expanded_types) == TREE_VEC)
13438 len = TREE_VEC_LENGTH (expanded_types);
13439 vec = make_tree_vec (len);
13441 else
13443 /* All we did was update the type. Make a note of that. */
13444 type = expanded_types;
13445 expanded_types = NULL_TREE;
13449 for (int i = 0; i < len; ++i)
13451 r = copy_decl (t);
13452 if (expanded_types)
13454 type = TREE_VEC_ELT (expanded_types, i);
13455 DECL_NAME (r)
13456 = make_ith_pack_parameter_name (DECL_NAME (r), i);
13458 else if (!type)
13459 type = tsubst (TREE_TYPE (t), args, complain, in_decl);
13461 if (type == error_mark_node)
13462 RETURN (error_mark_node);
13463 TREE_TYPE (r) = type;
13464 cp_apply_type_quals_to_decl (cp_type_quals (type), r);
13466 if (DECL_C_BIT_FIELD (r))
13467 /* For bit-fields, DECL_BIT_FIELD_REPRESENTATIVE gives the
13468 number of bits. */
13469 DECL_BIT_FIELD_REPRESENTATIVE (r)
13470 = tsubst_expr (DECL_BIT_FIELD_REPRESENTATIVE (t), args,
13471 complain, in_decl,
13472 /*integral_constant_expression_p=*/true);
13473 if (DECL_INITIAL (t))
13475 /* Set up DECL_TEMPLATE_INFO so that we can get at the
13476 NSDMI in perform_member_init. Still set DECL_INITIAL
13477 so that we know there is one. */
13478 DECL_INITIAL (r) = void_node;
13479 gcc_assert (DECL_LANG_SPECIFIC (r) == NULL);
13480 retrofit_lang_decl (r);
13481 DECL_TEMPLATE_INFO (r) = build_template_info (t, args);
13483 /* We don't have to set DECL_CONTEXT here; it is set by
13484 finish_member_declaration. */
13485 DECL_CHAIN (r) = NULL_TREE;
13487 apply_late_template_attributes (&r, DECL_ATTRIBUTES (r), 0,
13488 args, complain, in_decl);
13490 if (vec)
13491 TREE_VEC_ELT (vec, i) = r;
13494 if (vec)
13495 r = vec;
13497 break;
13499 case USING_DECL:
13500 /* We reach here only for member using decls. We also need to check
13501 uses_template_parms because DECL_DEPENDENT_P is not set for a
13502 using-declaration that designates a member of the current
13503 instantiation (c++/53549). */
13504 if (DECL_DEPENDENT_P (t)
13505 || uses_template_parms (USING_DECL_SCOPE (t)))
13507 tree scope = USING_DECL_SCOPE (t);
13508 tree name = tsubst_copy (DECL_NAME (t), args, complain, in_decl);
13509 if (PACK_EXPANSION_P (scope))
13511 tree vec = tsubst_pack_expansion (scope, args, complain, in_decl);
13512 int len = TREE_VEC_LENGTH (vec);
13513 r = make_tree_vec (len);
13514 for (int i = 0; i < len; ++i)
13516 tree escope = TREE_VEC_ELT (vec, i);
13517 tree elt = do_class_using_decl (escope, name);
13518 if (!elt)
13520 r = error_mark_node;
13521 break;
13523 else
13525 TREE_PROTECTED (elt) = TREE_PROTECTED (t);
13526 TREE_PRIVATE (elt) = TREE_PRIVATE (t);
13528 TREE_VEC_ELT (r, i) = elt;
13531 else
13533 tree inst_scope = tsubst_copy (USING_DECL_SCOPE (t), args,
13534 complain, in_decl);
13535 r = do_class_using_decl (inst_scope, name);
13536 if (!r)
13537 r = error_mark_node;
13538 else
13540 TREE_PROTECTED (r) = TREE_PROTECTED (t);
13541 TREE_PRIVATE (r) = TREE_PRIVATE (t);
13545 else
13547 r = copy_node (t);
13548 DECL_CHAIN (r) = NULL_TREE;
13550 break;
13552 case TYPE_DECL:
13553 case VAR_DECL:
13555 tree argvec = NULL_TREE;
13556 tree gen_tmpl = NULL_TREE;
13557 tree spec;
13558 tree tmpl = NULL_TREE;
13559 tree ctx;
13560 tree type = NULL_TREE;
13561 bool local_p;
13563 if (TREE_TYPE (t) == error_mark_node)
13564 RETURN (error_mark_node);
13566 if (TREE_CODE (t) == TYPE_DECL
13567 && t == TYPE_MAIN_DECL (TREE_TYPE (t)))
13569 /* If this is the canonical decl, we don't have to
13570 mess with instantiations, and often we can't (for
13571 typename, template type parms and such). Note that
13572 TYPE_NAME is not correct for the above test if
13573 we've copied the type for a typedef. */
13574 type = tsubst (TREE_TYPE (t), args, complain, in_decl);
13575 if (type == error_mark_node)
13576 RETURN (error_mark_node);
13577 r = TYPE_NAME (type);
13578 break;
13581 /* Check to see if we already have the specialization we
13582 need. */
13583 spec = NULL_TREE;
13584 if (DECL_CLASS_SCOPE_P (t) || DECL_NAMESPACE_SCOPE_P (t))
13586 /* T is a static data member or namespace-scope entity.
13587 We have to substitute into namespace-scope variables
13588 (not just variable templates) because of cases like:
13590 template <class T> void f() { extern T t; }
13592 where the entity referenced is not known until
13593 instantiation time. */
13594 local_p = false;
13595 ctx = DECL_CONTEXT (t);
13596 if (DECL_CLASS_SCOPE_P (t))
13598 ctx = tsubst_aggr_type (ctx, args,
13599 complain,
13600 in_decl, /*entering_scope=*/1);
13601 /* If CTX is unchanged, then T is in fact the
13602 specialization we want. That situation occurs when
13603 referencing a static data member within in its own
13604 class. We can use pointer equality, rather than
13605 same_type_p, because DECL_CONTEXT is always
13606 canonical... */
13607 if (ctx == DECL_CONTEXT (t)
13608 /* ... unless T is a member template; in which
13609 case our caller can be willing to create a
13610 specialization of that template represented
13611 by T. */
13612 && !(DECL_TI_TEMPLATE (t)
13613 && DECL_MEMBER_TEMPLATE_P (DECL_TI_TEMPLATE (t))))
13614 spec = t;
13617 if (!spec)
13619 tmpl = DECL_TI_TEMPLATE (t);
13620 gen_tmpl = most_general_template (tmpl);
13621 argvec = tsubst (DECL_TI_ARGS (t), args, complain, in_decl);
13622 if (argvec != error_mark_node)
13623 argvec = (coerce_innermost_template_parms
13624 (DECL_TEMPLATE_PARMS (gen_tmpl),
13625 argvec, t, complain,
13626 /*all*/true, /*defarg*/true));
13627 if (argvec == error_mark_node)
13628 RETURN (error_mark_node);
13629 hash = hash_tmpl_and_args (gen_tmpl, argvec);
13630 spec = retrieve_specialization (gen_tmpl, argvec, hash);
13633 else
13635 /* A local variable. */
13636 local_p = true;
13637 /* Subsequent calls to pushdecl will fill this in. */
13638 ctx = NULL_TREE;
13639 /* Unless this is a reference to a static variable from an
13640 enclosing function, in which case we need to fill it in now. */
13641 if (TREE_STATIC (t))
13643 tree fn = enclosing_instantiation_of (DECL_CONTEXT (t));
13644 if (fn != current_function_decl)
13645 ctx = fn;
13647 spec = retrieve_local_specialization (t);
13649 /* If we already have the specialization we need, there is
13650 nothing more to do. */
13651 if (spec)
13653 r = spec;
13654 break;
13657 /* Create a new node for the specialization we need. */
13658 r = copy_decl (t);
13659 if (type == NULL_TREE)
13661 if (is_typedef_decl (t))
13662 type = DECL_ORIGINAL_TYPE (t);
13663 else
13664 type = TREE_TYPE (t);
13665 if (VAR_P (t)
13666 && VAR_HAD_UNKNOWN_BOUND (t)
13667 && type != error_mark_node)
13668 type = strip_array_domain (type);
13669 tree sub_args = args;
13670 if (tree auto_node = type_uses_auto (type))
13672 /* Mask off any template args past the variable's context so we
13673 don't replace the auto with an unrelated argument. */
13674 int nouter = TEMPLATE_TYPE_LEVEL (auto_node) - 1;
13675 int extra = TMPL_ARGS_DEPTH (args) - nouter;
13676 if (extra > 0)
13677 /* This should never happen with the new lambda instantiation
13678 model, but keep the handling just in case. */
13679 gcc_assert (!CHECKING_P),
13680 sub_args = strip_innermost_template_args (args, extra);
13682 type = tsubst (type, sub_args, complain, in_decl);
13684 if (VAR_P (r))
13686 /* Even if the original location is out of scope, the
13687 newly substituted one is not. */
13688 DECL_DEAD_FOR_LOCAL (r) = 0;
13689 DECL_INITIALIZED_P (r) = 0;
13690 DECL_TEMPLATE_INSTANTIATED (r) = 0;
13691 if (type == error_mark_node)
13692 RETURN (error_mark_node);
13693 if (TREE_CODE (type) == FUNCTION_TYPE)
13695 /* It may seem that this case cannot occur, since:
13697 typedef void f();
13698 void g() { f x; }
13700 declares a function, not a variable. However:
13702 typedef void f();
13703 template <typename T> void g() { T t; }
13704 template void g<f>();
13706 is an attempt to declare a variable with function
13707 type. */
13708 error ("variable %qD has function type",
13709 /* R is not yet sufficiently initialized, so we
13710 just use its name. */
13711 DECL_NAME (r));
13712 RETURN (error_mark_node);
13714 type = complete_type (type);
13715 /* Wait until cp_finish_decl to set this again, to handle
13716 circular dependency (template/instantiate6.C). */
13717 DECL_INITIALIZED_BY_CONSTANT_EXPRESSION_P (r) = 0;
13718 type = check_var_type (DECL_NAME (r), type);
13720 if (DECL_HAS_VALUE_EXPR_P (t))
13722 tree ve = DECL_VALUE_EXPR (t);
13723 ve = tsubst_expr (ve, args, complain, in_decl,
13724 /*constant_expression_p=*/false);
13725 if (REFERENCE_REF_P (ve))
13727 gcc_assert (TREE_CODE (type) == REFERENCE_TYPE);
13728 ve = TREE_OPERAND (ve, 0);
13730 SET_DECL_VALUE_EXPR (r, ve);
13732 if (CP_DECL_THREAD_LOCAL_P (r)
13733 && !processing_template_decl)
13734 set_decl_tls_model (r, decl_default_tls_model (r));
13736 else if (DECL_SELF_REFERENCE_P (t))
13737 SET_DECL_SELF_REFERENCE_P (r);
13738 TREE_TYPE (r) = type;
13739 cp_apply_type_quals_to_decl (cp_type_quals (type), r);
13740 DECL_CONTEXT (r) = ctx;
13741 /* Clear out the mangled name and RTL for the instantiation. */
13742 SET_DECL_ASSEMBLER_NAME (r, NULL_TREE);
13743 if (CODE_CONTAINS_STRUCT (TREE_CODE (t), TS_DECL_WRTL))
13744 SET_DECL_RTL (r, NULL);
13745 /* The initializer must not be expanded until it is required;
13746 see [temp.inst]. */
13747 DECL_INITIAL (r) = NULL_TREE;
13748 DECL_SIZE (r) = DECL_SIZE_UNIT (r) = 0;
13749 if (VAR_P (r))
13751 if (DECL_LANG_SPECIFIC (r))
13752 SET_DECL_DEPENDENT_INIT_P (r, false);
13754 SET_DECL_MODE (r, VOIDmode);
13756 /* Possibly limit visibility based on template args. */
13757 DECL_VISIBILITY (r) = VISIBILITY_DEFAULT;
13758 if (DECL_VISIBILITY_SPECIFIED (t))
13760 DECL_VISIBILITY_SPECIFIED (r) = 0;
13761 DECL_ATTRIBUTES (r)
13762 = remove_attribute ("visibility", DECL_ATTRIBUTES (r));
13764 determine_visibility (r);
13767 if (!local_p)
13769 /* A static data member declaration is always marked
13770 external when it is declared in-class, even if an
13771 initializer is present. We mimic the non-template
13772 processing here. */
13773 DECL_EXTERNAL (r) = 1;
13774 if (DECL_NAMESPACE_SCOPE_P (t))
13775 DECL_NOT_REALLY_EXTERN (r) = 1;
13777 DECL_TEMPLATE_INFO (r) = build_template_info (tmpl, argvec);
13778 SET_DECL_IMPLICIT_INSTANTIATION (r);
13779 register_specialization (r, gen_tmpl, argvec, false, hash);
13781 else
13783 if (DECL_LANG_SPECIFIC (r))
13784 DECL_TEMPLATE_INFO (r) = NULL_TREE;
13785 if (!cp_unevaluated_operand)
13786 register_local_specialization (r, t);
13789 DECL_CHAIN (r) = NULL_TREE;
13791 apply_late_template_attributes (&r, DECL_ATTRIBUTES (r),
13792 /*flags=*/0,
13793 args, complain, in_decl);
13795 /* Preserve a typedef that names a type. */
13796 if (is_typedef_decl (r) && type != error_mark_node)
13798 DECL_ORIGINAL_TYPE (r) = NULL_TREE;
13799 set_underlying_type (r);
13800 if (TYPE_DECL_ALIAS_P (r))
13801 /* An alias template specialization can be dependent
13802 even if its underlying type is not. */
13803 TYPE_DEPENDENT_P_VALID (TREE_TYPE (r)) = false;
13806 layout_decl (r, 0);
13808 break;
13810 default:
13811 gcc_unreachable ();
13813 #undef RETURN
13815 out:
13816 /* Restore the file and line information. */
13817 input_location = saved_loc;
13819 return r;
13822 /* Substitute into the ARG_TYPES of a function type.
13823 If END is a TREE_CHAIN, leave it and any following types
13824 un-substituted. */
13826 static tree
13827 tsubst_arg_types (tree arg_types,
13828 tree args,
13829 tree end,
13830 tsubst_flags_t complain,
13831 tree in_decl)
13833 tree remaining_arg_types;
13834 tree type = NULL_TREE;
13835 int i = 1;
13836 tree expanded_args = NULL_TREE;
13837 tree default_arg;
13839 if (!arg_types || arg_types == void_list_node || arg_types == end)
13840 return arg_types;
13842 remaining_arg_types = tsubst_arg_types (TREE_CHAIN (arg_types),
13843 args, end, complain, in_decl);
13844 if (remaining_arg_types == error_mark_node)
13845 return error_mark_node;
13847 if (PACK_EXPANSION_P (TREE_VALUE (arg_types)))
13849 /* For a pack expansion, perform substitution on the
13850 entire expression. Later on, we'll handle the arguments
13851 one-by-one. */
13852 expanded_args = tsubst_pack_expansion (TREE_VALUE (arg_types),
13853 args, complain, in_decl);
13855 if (TREE_CODE (expanded_args) == TREE_VEC)
13856 /* So that we'll spin through the parameters, one by one. */
13857 i = TREE_VEC_LENGTH (expanded_args);
13858 else
13860 /* We only partially substituted into the parameter
13861 pack. Our type is TYPE_PACK_EXPANSION. */
13862 type = expanded_args;
13863 expanded_args = NULL_TREE;
13867 while (i > 0) {
13868 --i;
13870 if (expanded_args)
13871 type = TREE_VEC_ELT (expanded_args, i);
13872 else if (!type)
13873 type = tsubst (TREE_VALUE (arg_types), args, complain, in_decl);
13875 if (type == error_mark_node)
13876 return error_mark_node;
13877 if (VOID_TYPE_P (type))
13879 if (complain & tf_error)
13881 error ("invalid parameter type %qT", type);
13882 if (in_decl)
13883 error ("in declaration %q+D", in_decl);
13885 return error_mark_node;
13887 /* DR 657. */
13888 if (abstract_virtuals_error_sfinae (ACU_PARM, type, complain))
13889 return error_mark_node;
13891 /* Do array-to-pointer, function-to-pointer conversion, and ignore
13892 top-level qualifiers as required. */
13893 type = cv_unqualified (type_decays_to (type));
13895 /* We do not substitute into default arguments here. The standard
13896 mandates that they be instantiated only when needed, which is
13897 done in build_over_call. */
13898 default_arg = TREE_PURPOSE (arg_types);
13900 /* Except that we do substitute default arguments under tsubst_lambda_expr,
13901 since the new op() won't have any associated template arguments for us
13902 to refer to later. */
13903 if (lambda_fn_in_template_p (in_decl))
13904 default_arg = tsubst_copy_and_build (default_arg, args, complain, in_decl,
13905 false/*fn*/, false/*constexpr*/);
13907 if (default_arg && TREE_CODE (default_arg) == DEFAULT_ARG)
13909 /* We've instantiated a template before its default arguments
13910 have been parsed. This can happen for a nested template
13911 class, and is not an error unless we require the default
13912 argument in a call of this function. */
13913 remaining_arg_types =
13914 tree_cons (default_arg, type, remaining_arg_types);
13915 vec_safe_push (DEFARG_INSTANTIATIONS(default_arg), remaining_arg_types);
13917 else
13918 remaining_arg_types =
13919 hash_tree_cons (default_arg, type, remaining_arg_types);
13922 return remaining_arg_types;
13925 /* Substitute into a FUNCTION_TYPE or METHOD_TYPE. This routine does
13926 *not* handle the exception-specification for FNTYPE, because the
13927 initial substitution of explicitly provided template parameters
13928 during argument deduction forbids substitution into the
13929 exception-specification:
13931 [temp.deduct]
13933 All references in the function type of the function template to the
13934 corresponding template parameters are replaced by the specified tem-
13935 plate argument values. If a substitution in a template parameter or
13936 in the function type of the function template results in an invalid
13937 type, type deduction fails. [Note: The equivalent substitution in
13938 exception specifications is done only when the function is instanti-
13939 ated, at which point a program is ill-formed if the substitution
13940 results in an invalid type.] */
13942 static tree
13943 tsubst_function_type (tree t,
13944 tree args,
13945 tsubst_flags_t complain,
13946 tree in_decl)
13948 tree return_type;
13949 tree arg_types = NULL_TREE;
13950 tree fntype;
13952 /* The TYPE_CONTEXT is not used for function/method types. */
13953 gcc_assert (TYPE_CONTEXT (t) == NULL_TREE);
13955 /* DR 1227: Mixing immediate and non-immediate contexts in deduction
13956 failure. */
13957 bool late_return_type_p = TYPE_HAS_LATE_RETURN_TYPE (t);
13959 if (late_return_type_p)
13961 /* Substitute the argument types. */
13962 arg_types = tsubst_arg_types (TYPE_ARG_TYPES (t), args, NULL_TREE,
13963 complain, in_decl);
13964 if (arg_types == error_mark_node)
13965 return error_mark_node;
13967 tree save_ccp = current_class_ptr;
13968 tree save_ccr = current_class_ref;
13969 tree this_type = (TREE_CODE (t) == METHOD_TYPE
13970 ? TREE_TYPE (TREE_VALUE (arg_types)) : NULL_TREE);
13971 bool do_inject = this_type && CLASS_TYPE_P (this_type);
13972 if (do_inject)
13974 /* DR 1207: 'this' is in scope in the trailing return type. */
13975 inject_this_parameter (this_type, cp_type_quals (this_type));
13978 /* Substitute the return type. */
13979 return_type = tsubst (TREE_TYPE (t), args, complain, in_decl);
13981 if (do_inject)
13983 current_class_ptr = save_ccp;
13984 current_class_ref = save_ccr;
13987 else
13988 /* Substitute the return type. */
13989 return_type = tsubst (TREE_TYPE (t), args, complain, in_decl);
13991 if (return_type == error_mark_node)
13992 return error_mark_node;
13993 /* DR 486 clarifies that creation of a function type with an
13994 invalid return type is a deduction failure. */
13995 if (TREE_CODE (return_type) == ARRAY_TYPE
13996 || TREE_CODE (return_type) == FUNCTION_TYPE)
13998 if (complain & tf_error)
14000 if (TREE_CODE (return_type) == ARRAY_TYPE)
14001 error ("function returning an array");
14002 else
14003 error ("function returning a function");
14005 return error_mark_node;
14007 /* And DR 657. */
14008 if (abstract_virtuals_error_sfinae (ACU_RETURN, return_type, complain))
14009 return error_mark_node;
14011 if (!late_return_type_p)
14013 /* Substitute the argument types. */
14014 arg_types = tsubst_arg_types (TYPE_ARG_TYPES (t), args, NULL_TREE,
14015 complain, in_decl);
14016 if (arg_types == error_mark_node)
14017 return error_mark_node;
14020 /* Construct a new type node and return it. */
14021 if (TREE_CODE (t) == FUNCTION_TYPE)
14023 fntype = build_function_type (return_type, arg_types);
14024 fntype = apply_memfn_quals (fntype,
14025 type_memfn_quals (t),
14026 type_memfn_rqual (t));
14028 else
14030 tree r = TREE_TYPE (TREE_VALUE (arg_types));
14031 /* Don't pick up extra function qualifiers from the basetype. */
14032 r = cp_build_qualified_type_real (r, type_memfn_quals (t), complain);
14033 if (! MAYBE_CLASS_TYPE_P (r))
14035 /* [temp.deduct]
14037 Type deduction may fail for any of the following
14038 reasons:
14040 -- Attempting to create "pointer to member of T" when T
14041 is not a class type. */
14042 if (complain & tf_error)
14043 error ("creating pointer to member function of non-class type %qT",
14045 return error_mark_node;
14048 fntype = build_method_type_directly (r, return_type,
14049 TREE_CHAIN (arg_types));
14050 fntype = build_ref_qualified_type (fntype, type_memfn_rqual (t));
14052 fntype = cp_build_type_attribute_variant (fntype, TYPE_ATTRIBUTES (t));
14054 if (late_return_type_p)
14055 TYPE_HAS_LATE_RETURN_TYPE (fntype) = 1;
14057 return fntype;
14060 /* FNTYPE is a FUNCTION_TYPE or METHOD_TYPE. Substitute the template
14061 ARGS into that specification, and return the substituted
14062 specification. If there is no specification, return NULL_TREE. */
14064 static tree
14065 tsubst_exception_specification (tree fntype,
14066 tree args,
14067 tsubst_flags_t complain,
14068 tree in_decl,
14069 bool defer_ok)
14071 tree specs;
14072 tree new_specs;
14074 specs = TYPE_RAISES_EXCEPTIONS (fntype);
14075 new_specs = NULL_TREE;
14076 if (specs && TREE_PURPOSE (specs))
14078 /* A noexcept-specifier. */
14079 tree expr = TREE_PURPOSE (specs);
14080 if (TREE_CODE (expr) == INTEGER_CST)
14081 new_specs = expr;
14082 else if (defer_ok)
14084 /* Defer instantiation of noexcept-specifiers to avoid
14085 excessive instantiations (c++/49107). */
14086 new_specs = make_node (DEFERRED_NOEXCEPT);
14087 if (DEFERRED_NOEXCEPT_SPEC_P (specs))
14089 /* We already partially instantiated this member template,
14090 so combine the new args with the old. */
14091 DEFERRED_NOEXCEPT_PATTERN (new_specs)
14092 = DEFERRED_NOEXCEPT_PATTERN (expr);
14093 DEFERRED_NOEXCEPT_ARGS (new_specs)
14094 = add_to_template_args (DEFERRED_NOEXCEPT_ARGS (expr), args);
14096 else
14098 DEFERRED_NOEXCEPT_PATTERN (new_specs) = expr;
14099 DEFERRED_NOEXCEPT_ARGS (new_specs) = args;
14102 else
14103 new_specs = tsubst_copy_and_build
14104 (expr, args, complain, in_decl, /*function_p=*/false,
14105 /*integral_constant_expression_p=*/true);
14106 new_specs = build_noexcept_spec (new_specs, complain);
14108 else if (specs)
14110 if (! TREE_VALUE (specs))
14111 new_specs = specs;
14112 else
14113 while (specs)
14115 tree spec;
14116 int i, len = 1;
14117 tree expanded_specs = NULL_TREE;
14119 if (PACK_EXPANSION_P (TREE_VALUE (specs)))
14121 /* Expand the pack expansion type. */
14122 expanded_specs = tsubst_pack_expansion (TREE_VALUE (specs),
14123 args, complain,
14124 in_decl);
14126 if (expanded_specs == error_mark_node)
14127 return error_mark_node;
14128 else if (TREE_CODE (expanded_specs) == TREE_VEC)
14129 len = TREE_VEC_LENGTH (expanded_specs);
14130 else
14132 /* We're substituting into a member template, so
14133 we got a TYPE_PACK_EXPANSION back. Add that
14134 expansion and move on. */
14135 gcc_assert (TREE_CODE (expanded_specs)
14136 == TYPE_PACK_EXPANSION);
14137 new_specs = add_exception_specifier (new_specs,
14138 expanded_specs,
14139 complain);
14140 specs = TREE_CHAIN (specs);
14141 continue;
14145 for (i = 0; i < len; ++i)
14147 if (expanded_specs)
14148 spec = TREE_VEC_ELT (expanded_specs, i);
14149 else
14150 spec = tsubst (TREE_VALUE (specs), args, complain, in_decl);
14151 if (spec == error_mark_node)
14152 return spec;
14153 new_specs = add_exception_specifier (new_specs, spec,
14154 complain);
14157 specs = TREE_CHAIN (specs);
14160 return new_specs;
14163 /* Take the tree structure T and replace template parameters used
14164 therein with the argument vector ARGS. IN_DECL is an associated
14165 decl for diagnostics. If an error occurs, returns ERROR_MARK_NODE.
14166 Issue error and warning messages under control of COMPLAIN. Note
14167 that we must be relatively non-tolerant of extensions here, in
14168 order to preserve conformance; if we allow substitutions that
14169 should not be allowed, we may allow argument deductions that should
14170 not succeed, and therefore report ambiguous overload situations
14171 where there are none. In theory, we could allow the substitution,
14172 but indicate that it should have failed, and allow our caller to
14173 make sure that the right thing happens, but we don't try to do this
14174 yet.
14176 This function is used for dealing with types, decls and the like;
14177 for expressions, use tsubst_expr or tsubst_copy. */
14179 tree
14180 tsubst (tree t, tree args, tsubst_flags_t complain, tree in_decl)
14182 enum tree_code code;
14183 tree type, r = NULL_TREE;
14185 if (t == NULL_TREE || t == error_mark_node
14186 || t == integer_type_node
14187 || t == void_type_node
14188 || t == char_type_node
14189 || t == unknown_type_node
14190 || TREE_CODE (t) == NAMESPACE_DECL
14191 || TREE_CODE (t) == TRANSLATION_UNIT_DECL)
14192 return t;
14194 if (DECL_P (t))
14195 return tsubst_decl (t, args, complain);
14197 if (args == NULL_TREE)
14198 return t;
14200 code = TREE_CODE (t);
14202 if (code == IDENTIFIER_NODE)
14203 type = IDENTIFIER_TYPE_VALUE (t);
14204 else
14205 type = TREE_TYPE (t);
14207 gcc_assert (type != unknown_type_node);
14209 /* Reuse typedefs. We need to do this to handle dependent attributes,
14210 such as attribute aligned. */
14211 if (TYPE_P (t)
14212 && typedef_variant_p (t))
14214 tree decl = TYPE_NAME (t);
14216 if (alias_template_specialization_p (t))
14218 /* DECL represents an alias template and we want to
14219 instantiate it. */
14220 tree tmpl = most_general_template (DECL_TI_TEMPLATE (decl));
14221 tree gen_args = tsubst (DECL_TI_ARGS (decl), args, complain, in_decl);
14222 r = instantiate_alias_template (tmpl, gen_args, complain);
14224 else if (DECL_CLASS_SCOPE_P (decl)
14225 && CLASSTYPE_TEMPLATE_INFO (DECL_CONTEXT (decl))
14226 && uses_template_parms (DECL_CONTEXT (decl)))
14228 tree tmpl = most_general_template (DECL_TI_TEMPLATE (decl));
14229 tree gen_args = tsubst (DECL_TI_ARGS (decl), args, complain, in_decl);
14230 r = retrieve_specialization (tmpl, gen_args, 0);
14232 else if (DECL_FUNCTION_SCOPE_P (decl)
14233 && DECL_TEMPLATE_INFO (DECL_CONTEXT (decl))
14234 && uses_template_parms (DECL_TI_ARGS (DECL_CONTEXT (decl))))
14235 r = retrieve_local_specialization (decl);
14236 else
14237 /* The typedef is from a non-template context. */
14238 return t;
14240 if (r)
14242 r = TREE_TYPE (r);
14243 r = cp_build_qualified_type_real
14244 (r, cp_type_quals (t) | cp_type_quals (r),
14245 complain | tf_ignore_bad_quals);
14246 return r;
14248 else
14250 /* We don't have an instantiation yet, so drop the typedef. */
14251 int quals = cp_type_quals (t);
14252 t = DECL_ORIGINAL_TYPE (decl);
14253 t = cp_build_qualified_type_real (t, quals,
14254 complain | tf_ignore_bad_quals);
14258 bool fndecl_type = (complain & tf_fndecl_type);
14259 complain &= ~tf_fndecl_type;
14261 if (type
14262 && code != TYPENAME_TYPE
14263 && code != TEMPLATE_TYPE_PARM
14264 && code != TEMPLATE_PARM_INDEX
14265 && code != IDENTIFIER_NODE
14266 && code != FUNCTION_TYPE
14267 && code != METHOD_TYPE)
14268 type = tsubst (type, args, complain, in_decl);
14269 if (type == error_mark_node)
14270 return error_mark_node;
14272 switch (code)
14274 case RECORD_TYPE:
14275 case UNION_TYPE:
14276 case ENUMERAL_TYPE:
14277 return tsubst_aggr_type (t, args, complain, in_decl,
14278 /*entering_scope=*/0);
14280 case ERROR_MARK:
14281 case IDENTIFIER_NODE:
14282 case VOID_TYPE:
14283 case REAL_TYPE:
14284 case COMPLEX_TYPE:
14285 case VECTOR_TYPE:
14286 case BOOLEAN_TYPE:
14287 case NULLPTR_TYPE:
14288 case LANG_TYPE:
14289 return t;
14291 case INTEGER_TYPE:
14292 if (t == integer_type_node)
14293 return t;
14295 if (TREE_CODE (TYPE_MIN_VALUE (t)) == INTEGER_CST
14296 && TREE_CODE (TYPE_MAX_VALUE (t)) == INTEGER_CST)
14297 return t;
14300 tree max, omax = TREE_OPERAND (TYPE_MAX_VALUE (t), 0);
14302 max = tsubst_expr (omax, args, complain, in_decl,
14303 /*integral_constant_expression_p=*/false);
14305 /* Fix up type of the magic NOP_EXPR with TREE_SIDE_EFFECTS if
14306 needed. */
14307 if (TREE_CODE (max) == NOP_EXPR
14308 && TREE_SIDE_EFFECTS (omax)
14309 && !TREE_TYPE (max))
14310 TREE_TYPE (max) = TREE_TYPE (TREE_OPERAND (max, 0));
14312 /* If we're in a partial instantiation, preserve the magic NOP_EXPR
14313 with TREE_SIDE_EFFECTS that indicates this is not an integral
14314 constant expression. */
14315 if (processing_template_decl
14316 && TREE_SIDE_EFFECTS (omax) && TREE_CODE (omax) == NOP_EXPR)
14318 gcc_assert (TREE_CODE (max) == NOP_EXPR);
14319 TREE_SIDE_EFFECTS (max) = 1;
14322 return compute_array_index_type (NULL_TREE, max, complain);
14325 case TEMPLATE_TYPE_PARM:
14326 case TEMPLATE_TEMPLATE_PARM:
14327 case BOUND_TEMPLATE_TEMPLATE_PARM:
14328 case TEMPLATE_PARM_INDEX:
14330 int idx;
14331 int level;
14332 int levels;
14333 tree arg = NULL_TREE;
14335 /* Early in template argument deduction substitution, we don't
14336 want to reduce the level of 'auto', or it will be confused
14337 with a normal template parm in subsequent deduction. */
14338 if (is_auto (t) && (complain & tf_partial))
14339 return t;
14341 r = NULL_TREE;
14343 gcc_assert (TREE_VEC_LENGTH (args) > 0);
14344 template_parm_level_and_index (t, &level, &idx);
14346 levels = TMPL_ARGS_DEPTH (args);
14347 if (level <= levels
14348 && TREE_VEC_LENGTH (TMPL_ARGS_LEVEL (args, level)) > 0)
14350 arg = TMPL_ARG (args, level, idx);
14352 /* See through ARGUMENT_PACK_SELECT arguments. */
14353 if (arg && TREE_CODE (arg) == ARGUMENT_PACK_SELECT)
14354 arg = argument_pack_select_arg (arg);
14357 if (arg == error_mark_node)
14358 return error_mark_node;
14359 else if (arg != NULL_TREE)
14361 if (ARGUMENT_PACK_P (arg))
14362 /* If ARG is an argument pack, we don't actually want to
14363 perform a substitution here, because substitutions
14364 for argument packs are only done
14365 element-by-element. We can get to this point when
14366 substituting the type of a non-type template
14367 parameter pack, when that type actually contains
14368 template parameter packs from an outer template, e.g.,
14370 template<typename... Types> struct A {
14371 template<Types... Values> struct B { };
14372 }; */
14373 return t;
14375 if (code == TEMPLATE_TYPE_PARM)
14377 int quals;
14378 gcc_assert (TYPE_P (arg));
14380 quals = cp_type_quals (arg) | cp_type_quals (t);
14382 return cp_build_qualified_type_real
14383 (arg, quals, complain | tf_ignore_bad_quals);
14385 else if (code == BOUND_TEMPLATE_TEMPLATE_PARM)
14387 /* We are processing a type constructed from a
14388 template template parameter. */
14389 tree argvec = tsubst (TYPE_TI_ARGS (t),
14390 args, complain, in_decl);
14391 if (argvec == error_mark_node)
14392 return error_mark_node;
14394 gcc_assert (TREE_CODE (arg) == TEMPLATE_TEMPLATE_PARM
14395 || TREE_CODE (arg) == TEMPLATE_DECL
14396 || TREE_CODE (arg) == UNBOUND_CLASS_TEMPLATE);
14398 if (TREE_CODE (arg) == UNBOUND_CLASS_TEMPLATE)
14399 /* Consider this code:
14401 template <template <class> class Template>
14402 struct Internal {
14403 template <class Arg> using Bind = Template<Arg>;
14406 template <template <class> class Template, class Arg>
14407 using Instantiate = Template<Arg>; //#0
14409 template <template <class> class Template,
14410 class Argument>
14411 using Bind =
14412 Instantiate<Internal<Template>::template Bind,
14413 Argument>; //#1
14415 When #1 is parsed, the
14416 BOUND_TEMPLATE_TEMPLATE_PARM representing the
14417 parameter `Template' in #0 matches the
14418 UNBOUND_CLASS_TEMPLATE representing the argument
14419 `Internal<Template>::template Bind'; We then want
14420 to assemble the type `Bind<Argument>' that can't
14421 be fully created right now, because
14422 `Internal<Template>' not being complete, the Bind
14423 template cannot be looked up in that context. So
14424 we need to "store" `Bind<Argument>' for later
14425 when the context of Bind becomes complete. Let's
14426 store that in a TYPENAME_TYPE. */
14427 return make_typename_type (TYPE_CONTEXT (arg),
14428 build_nt (TEMPLATE_ID_EXPR,
14429 TYPE_IDENTIFIER (arg),
14430 argvec),
14431 typename_type,
14432 complain);
14434 /* We can get a TEMPLATE_TEMPLATE_PARM here when we
14435 are resolving nested-types in the signature of a
14436 member function templates. Otherwise ARG is a
14437 TEMPLATE_DECL and is the real template to be
14438 instantiated. */
14439 if (TREE_CODE (arg) == TEMPLATE_TEMPLATE_PARM)
14440 arg = TYPE_NAME (arg);
14442 r = lookup_template_class (arg,
14443 argvec, in_decl,
14444 DECL_CONTEXT (arg),
14445 /*entering_scope=*/0,
14446 complain);
14447 return cp_build_qualified_type_real
14448 (r, cp_type_quals (t) | cp_type_quals (r), complain);
14450 else if (code == TEMPLATE_TEMPLATE_PARM)
14451 return arg;
14452 else
14453 /* TEMPLATE_PARM_INDEX. */
14454 return convert_from_reference (unshare_expr (arg));
14457 if (level == 1)
14458 /* This can happen during the attempted tsubst'ing in
14459 unify. This means that we don't yet have any information
14460 about the template parameter in question. */
14461 return t;
14463 /* If we get here, we must have been looking at a parm for a
14464 more deeply nested template. Make a new version of this
14465 template parameter, but with a lower level. */
14466 switch (code)
14468 case TEMPLATE_TYPE_PARM:
14469 case TEMPLATE_TEMPLATE_PARM:
14470 case BOUND_TEMPLATE_TEMPLATE_PARM:
14471 if (cp_type_quals (t))
14473 r = tsubst (TYPE_MAIN_VARIANT (t), args, complain, in_decl);
14474 r = cp_build_qualified_type_real
14475 (r, cp_type_quals (t),
14476 complain | (code == TEMPLATE_TYPE_PARM
14477 ? tf_ignore_bad_quals : 0));
14479 else if (TREE_CODE (t) == TEMPLATE_TYPE_PARM
14480 && PLACEHOLDER_TYPE_CONSTRAINTS (t)
14481 && (r = (TEMPLATE_PARM_DESCENDANTS
14482 (TEMPLATE_TYPE_PARM_INDEX (t))))
14483 && (r = TREE_TYPE (r))
14484 && !PLACEHOLDER_TYPE_CONSTRAINTS (r))
14485 /* Break infinite recursion when substituting the constraints
14486 of a constrained placeholder. */;
14487 else
14489 r = copy_type (t);
14490 TEMPLATE_TYPE_PARM_INDEX (r)
14491 = reduce_template_parm_level (TEMPLATE_TYPE_PARM_INDEX (t),
14492 r, levels, args, complain);
14493 TYPE_STUB_DECL (r) = TYPE_NAME (r) = TEMPLATE_TYPE_DECL (r);
14494 TYPE_MAIN_VARIANT (r) = r;
14495 TYPE_POINTER_TO (r) = NULL_TREE;
14496 TYPE_REFERENCE_TO (r) = NULL_TREE;
14498 if (TREE_CODE (t) == TEMPLATE_TYPE_PARM)
14500 /* Propagate constraints on placeholders. */
14501 if (tree constr = PLACEHOLDER_TYPE_CONSTRAINTS (t))
14502 PLACEHOLDER_TYPE_CONSTRAINTS (r)
14503 = tsubst_constraint (constr, args, complain, in_decl);
14504 else if (tree pl = CLASS_PLACEHOLDER_TEMPLATE (t))
14506 pl = tsubst_copy (pl, args, complain, in_decl);
14507 CLASS_PLACEHOLDER_TEMPLATE (r) = pl;
14511 if (TREE_CODE (r) == TEMPLATE_TEMPLATE_PARM)
14512 /* We have reduced the level of the template
14513 template parameter, but not the levels of its
14514 template parameters, so canonical_type_parameter
14515 will not be able to find the canonical template
14516 template parameter for this level. Thus, we
14517 require structural equality checking to compare
14518 TEMPLATE_TEMPLATE_PARMs. */
14519 SET_TYPE_STRUCTURAL_EQUALITY (r);
14520 else if (TYPE_STRUCTURAL_EQUALITY_P (t))
14521 SET_TYPE_STRUCTURAL_EQUALITY (r);
14522 else
14523 TYPE_CANONICAL (r) = canonical_type_parameter (r);
14525 if (code == BOUND_TEMPLATE_TEMPLATE_PARM)
14527 tree tinfo = TYPE_TEMPLATE_INFO (t);
14528 /* We might need to substitute into the types of non-type
14529 template parameters. */
14530 tree tmpl = tsubst (TI_TEMPLATE (tinfo), args,
14531 complain, in_decl);
14532 if (tmpl == error_mark_node)
14533 return error_mark_node;
14534 tree argvec = tsubst (TI_ARGS (tinfo), args,
14535 complain, in_decl);
14536 if (argvec == error_mark_node)
14537 return error_mark_node;
14539 TEMPLATE_TEMPLATE_PARM_TEMPLATE_INFO (r)
14540 = build_template_info (tmpl, argvec);
14543 break;
14545 case TEMPLATE_PARM_INDEX:
14546 /* OK, now substitute the type of the non-type parameter. We
14547 couldn't do it earlier because it might be an auto parameter,
14548 and we wouldn't need to if we had an argument. */
14549 type = tsubst (type, args, complain, in_decl);
14550 if (type == error_mark_node)
14551 return error_mark_node;
14552 r = reduce_template_parm_level (t, type, levels, args, complain);
14553 break;
14555 default:
14556 gcc_unreachable ();
14559 return r;
14562 case TREE_LIST:
14564 tree purpose, value, chain;
14566 if (t == void_list_node)
14567 return t;
14569 purpose = TREE_PURPOSE (t);
14570 if (purpose)
14572 purpose = tsubst (purpose, args, complain, in_decl);
14573 if (purpose == error_mark_node)
14574 return error_mark_node;
14576 value = TREE_VALUE (t);
14577 if (value)
14579 value = tsubst (value, args, complain, in_decl);
14580 if (value == error_mark_node)
14581 return error_mark_node;
14583 chain = TREE_CHAIN (t);
14584 if (chain && chain != void_type_node)
14586 chain = tsubst (chain, args, complain, in_decl);
14587 if (chain == error_mark_node)
14588 return error_mark_node;
14590 if (purpose == TREE_PURPOSE (t)
14591 && value == TREE_VALUE (t)
14592 && chain == TREE_CHAIN (t))
14593 return t;
14594 return hash_tree_cons (purpose, value, chain);
14597 case TREE_BINFO:
14598 /* We should never be tsubsting a binfo. */
14599 gcc_unreachable ();
14601 case TREE_VEC:
14602 /* A vector of template arguments. */
14603 gcc_assert (!type);
14604 return tsubst_template_args (t, args, complain, in_decl);
14606 case POINTER_TYPE:
14607 case REFERENCE_TYPE:
14609 if (type == TREE_TYPE (t) && TREE_CODE (type) != METHOD_TYPE)
14610 return t;
14612 /* [temp.deduct]
14614 Type deduction may fail for any of the following
14615 reasons:
14617 -- Attempting to create a pointer to reference type.
14618 -- Attempting to create a reference to a reference type or
14619 a reference to void.
14621 Core issue 106 says that creating a reference to a reference
14622 during instantiation is no longer a cause for failure. We
14623 only enforce this check in strict C++98 mode. */
14624 if ((TREE_CODE (type) == REFERENCE_TYPE
14625 && (((cxx_dialect == cxx98) && flag_iso) || code != REFERENCE_TYPE))
14626 || (code == REFERENCE_TYPE && VOID_TYPE_P (type)))
14628 static location_t last_loc;
14630 /* We keep track of the last time we issued this error
14631 message to avoid spewing a ton of messages during a
14632 single bad template instantiation. */
14633 if (complain & tf_error
14634 && last_loc != input_location)
14636 if (VOID_TYPE_P (type))
14637 error ("forming reference to void");
14638 else if (code == POINTER_TYPE)
14639 error ("forming pointer to reference type %qT", type);
14640 else
14641 error ("forming reference to reference type %qT", type);
14642 last_loc = input_location;
14645 return error_mark_node;
14647 else if (TREE_CODE (type) == FUNCTION_TYPE
14648 && (type_memfn_quals (type) != TYPE_UNQUALIFIED
14649 || type_memfn_rqual (type) != REF_QUAL_NONE))
14651 if (complain & tf_error)
14653 if (code == POINTER_TYPE)
14654 error ("forming pointer to qualified function type %qT",
14655 type);
14656 else
14657 error ("forming reference to qualified function type %qT",
14658 type);
14660 return error_mark_node;
14662 else if (code == POINTER_TYPE)
14664 r = build_pointer_type (type);
14665 if (TREE_CODE (type) == METHOD_TYPE)
14666 r = build_ptrmemfunc_type (r);
14668 else if (TREE_CODE (type) == REFERENCE_TYPE)
14669 /* In C++0x, during template argument substitution, when there is an
14670 attempt to create a reference to a reference type, reference
14671 collapsing is applied as described in [14.3.1/4 temp.arg.type]:
14673 "If a template-argument for a template-parameter T names a type
14674 that is a reference to a type A, an attempt to create the type
14675 'lvalue reference to cv T' creates the type 'lvalue reference to
14676 A,' while an attempt to create the type type rvalue reference to
14677 cv T' creates the type T"
14679 r = cp_build_reference_type
14680 (TREE_TYPE (type),
14681 TYPE_REF_IS_RVALUE (t) && TYPE_REF_IS_RVALUE (type));
14682 else
14683 r = cp_build_reference_type (type, TYPE_REF_IS_RVALUE (t));
14684 r = cp_build_qualified_type_real (r, cp_type_quals (t), complain);
14686 if (r != error_mark_node)
14687 /* Will this ever be needed for TYPE_..._TO values? */
14688 layout_type (r);
14690 return r;
14692 case OFFSET_TYPE:
14694 r = tsubst (TYPE_OFFSET_BASETYPE (t), args, complain, in_decl);
14695 if (r == error_mark_node || !MAYBE_CLASS_TYPE_P (r))
14697 /* [temp.deduct]
14699 Type deduction may fail for any of the following
14700 reasons:
14702 -- Attempting to create "pointer to member of T" when T
14703 is not a class type. */
14704 if (complain & tf_error)
14705 error ("creating pointer to member of non-class type %qT", r);
14706 return error_mark_node;
14708 if (TREE_CODE (type) == REFERENCE_TYPE)
14710 if (complain & tf_error)
14711 error ("creating pointer to member reference type %qT", type);
14712 return error_mark_node;
14714 if (VOID_TYPE_P (type))
14716 if (complain & tf_error)
14717 error ("creating pointer to member of type void");
14718 return error_mark_node;
14720 gcc_assert (TREE_CODE (type) != METHOD_TYPE);
14721 if (TREE_CODE (type) == FUNCTION_TYPE)
14723 /* The type of the implicit object parameter gets its
14724 cv-qualifiers from the FUNCTION_TYPE. */
14725 tree memptr;
14726 tree method_type
14727 = build_memfn_type (type, r, type_memfn_quals (type),
14728 type_memfn_rqual (type));
14729 memptr = build_ptrmemfunc_type (build_pointer_type (method_type));
14730 return cp_build_qualified_type_real (memptr, cp_type_quals (t),
14731 complain);
14733 else
14734 return cp_build_qualified_type_real (build_ptrmem_type (r, type),
14735 cp_type_quals (t),
14736 complain);
14738 case FUNCTION_TYPE:
14739 case METHOD_TYPE:
14741 tree fntype;
14742 tree specs;
14743 fntype = tsubst_function_type (t, args, complain, in_decl);
14744 if (fntype == error_mark_node)
14745 return error_mark_node;
14747 /* Substitute the exception specification. */
14748 specs = tsubst_exception_specification (t, args, complain, in_decl,
14749 /*defer_ok*/fndecl_type);
14750 if (specs == error_mark_node)
14751 return error_mark_node;
14752 if (specs)
14753 fntype = build_exception_variant (fntype, specs);
14754 return fntype;
14756 case ARRAY_TYPE:
14758 tree domain = tsubst (TYPE_DOMAIN (t), args, complain, in_decl);
14759 if (domain == error_mark_node)
14760 return error_mark_node;
14762 /* As an optimization, we avoid regenerating the array type if
14763 it will obviously be the same as T. */
14764 if (type == TREE_TYPE (t) && domain == TYPE_DOMAIN (t))
14765 return t;
14767 /* These checks should match the ones in create_array_type_for_decl.
14769 [temp.deduct]
14771 The deduction may fail for any of the following reasons:
14773 -- Attempting to create an array with an element type that
14774 is void, a function type, or a reference type, or [DR337]
14775 an abstract class type. */
14776 if (VOID_TYPE_P (type)
14777 || TREE_CODE (type) == FUNCTION_TYPE
14778 || (TREE_CODE (type) == ARRAY_TYPE
14779 && TYPE_DOMAIN (type) == NULL_TREE)
14780 || TREE_CODE (type) == REFERENCE_TYPE)
14782 if (complain & tf_error)
14783 error ("creating array of %qT", type);
14784 return error_mark_node;
14787 if (abstract_virtuals_error_sfinae (ACU_ARRAY, type, complain))
14788 return error_mark_node;
14790 r = build_cplus_array_type (type, domain);
14792 if (TYPE_USER_ALIGN (t))
14794 SET_TYPE_ALIGN (r, TYPE_ALIGN (t));
14795 TYPE_USER_ALIGN (r) = 1;
14798 return r;
14801 case TYPENAME_TYPE:
14803 tree ctx = tsubst_aggr_type (TYPE_CONTEXT (t), args, complain,
14804 in_decl, /*entering_scope=*/1);
14805 if (ctx == error_mark_node)
14806 return error_mark_node;
14808 tree f = tsubst_copy (TYPENAME_TYPE_FULLNAME (t), args,
14809 complain, in_decl);
14810 if (f == error_mark_node)
14811 return error_mark_node;
14813 if (!MAYBE_CLASS_TYPE_P (ctx))
14815 if (complain & tf_error)
14816 error ("%qT is not a class, struct, or union type", ctx);
14817 return error_mark_node;
14819 else if (!uses_template_parms (ctx) && !TYPE_BEING_DEFINED (ctx))
14821 /* Normally, make_typename_type does not require that the CTX
14822 have complete type in order to allow things like:
14824 template <class T> struct S { typename S<T>::X Y; };
14826 But, such constructs have already been resolved by this
14827 point, so here CTX really should have complete type, unless
14828 it's a partial instantiation. */
14829 ctx = complete_type (ctx);
14830 if (!COMPLETE_TYPE_P (ctx))
14832 if (complain & tf_error)
14833 cxx_incomplete_type_error (NULL_TREE, ctx);
14834 return error_mark_node;
14838 f = make_typename_type (ctx, f, typename_type,
14839 complain | tf_keep_type_decl);
14840 if (f == error_mark_node)
14841 return f;
14842 if (TREE_CODE (f) == TYPE_DECL)
14844 complain |= tf_ignore_bad_quals;
14845 f = TREE_TYPE (f);
14848 if (TREE_CODE (f) != TYPENAME_TYPE)
14850 if (TYPENAME_IS_ENUM_P (t) && TREE_CODE (f) != ENUMERAL_TYPE)
14852 if (complain & tf_error)
14853 error ("%qT resolves to %qT, which is not an enumeration type",
14854 t, f);
14855 else
14856 return error_mark_node;
14858 else if (TYPENAME_IS_CLASS_P (t) && !CLASS_TYPE_P (f))
14860 if (complain & tf_error)
14861 error ("%qT resolves to %qT, which is is not a class type",
14862 t, f);
14863 else
14864 return error_mark_node;
14868 return cp_build_qualified_type_real
14869 (f, cp_type_quals (f) | cp_type_quals (t), complain);
14872 case UNBOUND_CLASS_TEMPLATE:
14874 tree ctx = tsubst_aggr_type (TYPE_CONTEXT (t), args, complain,
14875 in_decl, /*entering_scope=*/1);
14876 tree name = TYPE_IDENTIFIER (t);
14877 tree parm_list = DECL_TEMPLATE_PARMS (TYPE_NAME (t));
14879 if (ctx == error_mark_node || name == error_mark_node)
14880 return error_mark_node;
14882 if (parm_list)
14883 parm_list = tsubst_template_parms (parm_list, args, complain);
14884 return make_unbound_class_template (ctx, name, parm_list, complain);
14887 case TYPEOF_TYPE:
14889 tree type;
14891 ++cp_unevaluated_operand;
14892 ++c_inhibit_evaluation_warnings;
14894 type = tsubst_expr (TYPEOF_TYPE_EXPR (t), args,
14895 complain, in_decl,
14896 /*integral_constant_expression_p=*/false);
14898 --cp_unevaluated_operand;
14899 --c_inhibit_evaluation_warnings;
14901 type = finish_typeof (type);
14902 return cp_build_qualified_type_real (type,
14903 cp_type_quals (t)
14904 | cp_type_quals (type),
14905 complain);
14908 case DECLTYPE_TYPE:
14910 tree type;
14912 ++cp_unevaluated_operand;
14913 ++c_inhibit_evaluation_warnings;
14915 type = tsubst_copy_and_build (DECLTYPE_TYPE_EXPR (t), args,
14916 complain|tf_decltype, in_decl,
14917 /*function_p*/false,
14918 /*integral_constant_expression*/false);
14920 if (DECLTYPE_FOR_INIT_CAPTURE (t))
14922 if (type == NULL_TREE)
14924 if (complain & tf_error)
14925 error ("empty initializer in lambda init-capture");
14926 type = error_mark_node;
14928 else if (TREE_CODE (type) == TREE_LIST)
14929 type = build_x_compound_expr_from_list (type, ELK_INIT, complain);
14932 --cp_unevaluated_operand;
14933 --c_inhibit_evaluation_warnings;
14935 if (DECLTYPE_FOR_LAMBDA_CAPTURE (t))
14936 type = lambda_capture_field_type (type,
14937 DECLTYPE_FOR_INIT_CAPTURE (t),
14938 DECLTYPE_FOR_REF_CAPTURE (t));
14939 else if (DECLTYPE_FOR_LAMBDA_PROXY (t))
14940 type = lambda_proxy_type (type);
14941 else
14943 bool id = DECLTYPE_TYPE_ID_EXPR_OR_MEMBER_ACCESS_P (t);
14944 if (id && TREE_CODE (DECLTYPE_TYPE_EXPR (t)) == BIT_NOT_EXPR
14945 && EXPR_P (type))
14946 /* In a template ~id could be either a complement expression
14947 or an unqualified-id naming a destructor; if instantiating
14948 it produces an expression, it's not an id-expression or
14949 member access. */
14950 id = false;
14951 type = finish_decltype_type (type, id, complain);
14953 return cp_build_qualified_type_real (type,
14954 cp_type_quals (t)
14955 | cp_type_quals (type),
14956 complain | tf_ignore_bad_quals);
14959 case UNDERLYING_TYPE:
14961 tree type = tsubst (UNDERLYING_TYPE_TYPE (t), args,
14962 complain, in_decl);
14963 return finish_underlying_type (type);
14966 case TYPE_ARGUMENT_PACK:
14967 case NONTYPE_ARGUMENT_PACK:
14969 tree r;
14971 if (code == NONTYPE_ARGUMENT_PACK)
14972 r = make_node (code);
14973 else
14974 r = cxx_make_type (code);
14976 tree pack_args = ARGUMENT_PACK_ARGS (t);
14977 pack_args = tsubst_template_args (pack_args, args, complain, in_decl);
14978 SET_ARGUMENT_PACK_ARGS (r, pack_args);
14980 return r;
14983 case VOID_CST:
14984 case INTEGER_CST:
14985 case REAL_CST:
14986 case STRING_CST:
14987 case PLUS_EXPR:
14988 case MINUS_EXPR:
14989 case NEGATE_EXPR:
14990 case NOP_EXPR:
14991 case INDIRECT_REF:
14992 case ADDR_EXPR:
14993 case CALL_EXPR:
14994 case ARRAY_REF:
14995 case SCOPE_REF:
14996 /* We should use one of the expression tsubsts for these codes. */
14997 gcc_unreachable ();
14999 default:
15000 sorry ("use of %qs in template", get_tree_code_name (code));
15001 return error_mark_node;
15005 /* tsubst a BASELINK. OBJECT_TYPE, if non-NULL, is the type of the
15006 expression on the left-hand side of the "." or "->" operator. We
15007 only do the lookup if we had a dependent BASELINK. Otherwise we
15008 adjust it onto the instantiated heirarchy. */
15010 static tree
15011 tsubst_baselink (tree baselink, tree object_type,
15012 tree args, tsubst_flags_t complain, tree in_decl)
15014 bool qualified_p = BASELINK_QUALIFIED_P (baselink);
15015 tree qualifying_scope = BINFO_TYPE (BASELINK_ACCESS_BINFO (baselink));
15016 qualifying_scope = tsubst (qualifying_scope, args, complain, in_decl);
15018 tree optype = BASELINK_OPTYPE (baselink);
15019 optype = tsubst (optype, args, complain, in_decl);
15021 tree template_args = NULL_TREE;
15022 bool template_id_p = false;
15023 tree fns = BASELINK_FUNCTIONS (baselink);
15024 if (TREE_CODE (fns) == TEMPLATE_ID_EXPR)
15026 template_id_p = true;
15027 template_args = TREE_OPERAND (fns, 1);
15028 fns = TREE_OPERAND (fns, 0);
15029 if (template_args)
15030 template_args = tsubst_template_args (template_args, args,
15031 complain, in_decl);
15034 tree binfo_type = BINFO_TYPE (BASELINK_BINFO (baselink));
15035 binfo_type = tsubst (binfo_type, args, complain, in_decl);
15036 bool dependent_p = binfo_type != BINFO_TYPE (BASELINK_BINFO (baselink));
15038 if (dependent_p)
15040 tree name = OVL_NAME (fns);
15041 if (IDENTIFIER_CONV_OP_P (name))
15042 name = make_conv_op_name (optype);
15044 if (name == complete_dtor_identifier)
15045 /* Treat as-if non-dependent below. */
15046 dependent_p = false;
15048 baselink = lookup_fnfields (qualifying_scope, name, /*protect=*/1);
15049 if (!baselink)
15051 if ((complain & tf_error)
15052 && constructor_name_p (name, qualifying_scope))
15053 error ("cannot call constructor %<%T::%D%> directly",
15054 qualifying_scope, name);
15055 return error_mark_node;
15058 if (BASELINK_P (baselink))
15059 fns = BASELINK_FUNCTIONS (baselink);
15061 else
15062 /* We're going to overwrite pieces below, make a duplicate. */
15063 baselink = copy_node (baselink);
15065 /* If lookup found a single function, mark it as used at this point.
15066 (If lookup found multiple functions the one selected later by
15067 overload resolution will be marked as used at that point.) */
15068 if (!template_id_p && !really_overloaded_fn (fns))
15070 tree fn = OVL_FIRST (fns);
15071 bool ok = mark_used (fn, complain);
15072 if (!ok && !(complain & tf_error))
15073 return error_mark_node;
15074 if (ok && BASELINK_P (baselink))
15075 /* We might have instantiated an auto function. */
15076 TREE_TYPE (baselink) = TREE_TYPE (fn);
15079 if (BASELINK_P (baselink))
15081 /* Add back the template arguments, if present. */
15082 if (template_id_p)
15083 BASELINK_FUNCTIONS (baselink)
15084 = build2 (TEMPLATE_ID_EXPR, unknown_type_node, fns, template_args);
15086 /* Update the conversion operator type. */
15087 BASELINK_OPTYPE (baselink) = optype;
15090 if (!object_type)
15091 object_type = current_class_type;
15093 if (qualified_p || !dependent_p)
15095 baselink = adjust_result_of_qualified_name_lookup (baselink,
15096 qualifying_scope,
15097 object_type);
15098 if (!qualified_p)
15099 /* We need to call adjust_result_of_qualified_name_lookup in case the
15100 destructor names a base class, but we unset BASELINK_QUALIFIED_P
15101 so that we still get virtual function binding. */
15102 BASELINK_QUALIFIED_P (baselink) = false;
15105 return baselink;
15108 /* Like tsubst_expr for a SCOPE_REF, given by QUALIFIED_ID. DONE is
15109 true if the qualified-id will be a postfix-expression in-and-of
15110 itself; false if more of the postfix-expression follows the
15111 QUALIFIED_ID. ADDRESS_P is true if the qualified-id is the operand
15112 of "&". */
15114 static tree
15115 tsubst_qualified_id (tree qualified_id, tree args,
15116 tsubst_flags_t complain, tree in_decl,
15117 bool done, bool address_p)
15119 tree expr;
15120 tree scope;
15121 tree name;
15122 bool is_template;
15123 tree template_args;
15124 location_t loc = UNKNOWN_LOCATION;
15126 gcc_assert (TREE_CODE (qualified_id) == SCOPE_REF);
15128 /* Figure out what name to look up. */
15129 name = TREE_OPERAND (qualified_id, 1);
15130 if (TREE_CODE (name) == TEMPLATE_ID_EXPR)
15132 is_template = true;
15133 loc = EXPR_LOCATION (name);
15134 template_args = TREE_OPERAND (name, 1);
15135 if (template_args)
15136 template_args = tsubst_template_args (template_args, args,
15137 complain, in_decl);
15138 if (template_args == error_mark_node)
15139 return error_mark_node;
15140 name = TREE_OPERAND (name, 0);
15142 else
15144 is_template = false;
15145 template_args = NULL_TREE;
15148 /* Substitute into the qualifying scope. When there are no ARGS, we
15149 are just trying to simplify a non-dependent expression. In that
15150 case the qualifying scope may be dependent, and, in any case,
15151 substituting will not help. */
15152 scope = TREE_OPERAND (qualified_id, 0);
15153 if (args)
15155 scope = tsubst (scope, args, complain, in_decl);
15156 expr = tsubst_copy (name, args, complain, in_decl);
15158 else
15159 expr = name;
15161 if (dependent_scope_p (scope))
15163 if (is_template)
15164 expr = build_min_nt_loc (loc, TEMPLATE_ID_EXPR, expr, template_args);
15165 tree r = build_qualified_name (NULL_TREE, scope, expr,
15166 QUALIFIED_NAME_IS_TEMPLATE (qualified_id));
15167 REF_PARENTHESIZED_P (r) = REF_PARENTHESIZED_P (qualified_id);
15168 return r;
15171 if (!BASELINK_P (name) && !DECL_P (expr))
15173 if (TREE_CODE (expr) == BIT_NOT_EXPR)
15175 /* A BIT_NOT_EXPR is used to represent a destructor. */
15176 if (!check_dtor_name (scope, TREE_OPERAND (expr, 0)))
15178 error ("qualifying type %qT does not match destructor name ~%qT",
15179 scope, TREE_OPERAND (expr, 0));
15180 expr = error_mark_node;
15182 else
15183 expr = lookup_qualified_name (scope, complete_dtor_identifier,
15184 /*is_type_p=*/0, false);
15186 else
15187 expr = lookup_qualified_name (scope, expr, /*is_type_p=*/0, false);
15188 if (TREE_CODE (TREE_CODE (expr) == TEMPLATE_DECL
15189 ? DECL_TEMPLATE_RESULT (expr) : expr) == TYPE_DECL)
15191 if (complain & tf_error)
15193 error ("dependent-name %qE is parsed as a non-type, but "
15194 "instantiation yields a type", qualified_id);
15195 inform (input_location, "say %<typename %E%> if a type is meant", qualified_id);
15197 return error_mark_node;
15201 if (DECL_P (expr))
15203 check_accessibility_of_qualified_id (expr, /*object_type=*/NULL_TREE,
15204 scope);
15205 /* Remember that there was a reference to this entity. */
15206 if (!mark_used (expr, complain) && !(complain & tf_error))
15207 return error_mark_node;
15210 if (expr == error_mark_node || TREE_CODE (expr) == TREE_LIST)
15212 if (complain & tf_error)
15213 qualified_name_lookup_error (scope,
15214 TREE_OPERAND (qualified_id, 1),
15215 expr, input_location);
15216 return error_mark_node;
15219 if (is_template)
15221 /* We may be repeating a check already done during parsing, but
15222 if it was well-formed and passed then, it will pass again
15223 now, and if it didn't, we wouldn't have got here. The case
15224 we want to catch is when we couldn't tell then, and can now,
15225 namely when templ prior to substitution was an
15226 identifier. */
15227 if (flag_concepts && check_auto_in_tmpl_args (expr, template_args))
15228 return error_mark_node;
15230 if (variable_template_p (expr))
15231 expr = lookup_and_finish_template_variable (expr, template_args,
15232 complain);
15233 else
15234 expr = lookup_template_function (expr, template_args);
15237 if (expr == error_mark_node && complain & tf_error)
15238 qualified_name_lookup_error (scope, TREE_OPERAND (qualified_id, 1),
15239 expr, input_location);
15240 else if (TYPE_P (scope))
15242 expr = (adjust_result_of_qualified_name_lookup
15243 (expr, scope, current_nonlambda_class_type ()));
15244 expr = (finish_qualified_id_expr
15245 (scope, expr, done, address_p && PTRMEM_OK_P (qualified_id),
15246 QUALIFIED_NAME_IS_TEMPLATE (qualified_id),
15247 /*template_arg_p=*/false, complain));
15250 /* Expressions do not generally have reference type. */
15251 if (TREE_CODE (expr) != SCOPE_REF
15252 /* However, if we're about to form a pointer-to-member, we just
15253 want the referenced member referenced. */
15254 && TREE_CODE (expr) != OFFSET_REF)
15255 expr = convert_from_reference (expr);
15257 if (REF_PARENTHESIZED_P (qualified_id))
15258 expr = force_paren_expr (expr);
15260 return expr;
15263 /* tsubst the initializer for a VAR_DECL. INIT is the unsubstituted
15264 initializer, DECL is the substituted VAR_DECL. Other arguments are as
15265 for tsubst. */
15267 static tree
15268 tsubst_init (tree init, tree decl, tree args,
15269 tsubst_flags_t complain, tree in_decl)
15271 if (!init)
15272 return NULL_TREE;
15274 init = tsubst_expr (init, args, complain, in_decl, false);
15276 if (!init && TREE_TYPE (decl) != error_mark_node)
15278 /* If we had an initializer but it
15279 instantiated to nothing,
15280 value-initialize the object. This will
15281 only occur when the initializer was a
15282 pack expansion where the parameter packs
15283 used in that expansion were of length
15284 zero. */
15285 init = build_value_init (TREE_TYPE (decl),
15286 complain);
15287 if (TREE_CODE (init) == AGGR_INIT_EXPR)
15288 init = get_target_expr_sfinae (init, complain);
15289 if (TREE_CODE (init) == TARGET_EXPR)
15290 TARGET_EXPR_DIRECT_INIT_P (init) = true;
15293 return init;
15296 /* Like tsubst, but deals with expressions. This function just replaces
15297 template parms; to finish processing the resultant expression, use
15298 tsubst_copy_and_build or tsubst_expr. */
15300 static tree
15301 tsubst_copy (tree t, tree args, tsubst_flags_t complain, tree in_decl)
15303 enum tree_code code;
15304 tree r;
15306 if (t == NULL_TREE || t == error_mark_node || args == NULL_TREE)
15307 return t;
15309 code = TREE_CODE (t);
15311 switch (code)
15313 case PARM_DECL:
15314 r = retrieve_local_specialization (t);
15316 if (r == NULL_TREE)
15318 /* We get here for a use of 'this' in an NSDMI. */
15319 if (DECL_NAME (t) == this_identifier && current_class_ptr)
15320 return current_class_ptr;
15322 /* This can happen for a parameter name used later in a function
15323 declaration (such as in a late-specified return type). Just
15324 make a dummy decl, since it's only used for its type. */
15325 gcc_assert (cp_unevaluated_operand != 0);
15326 r = tsubst_decl (t, args, complain);
15327 /* Give it the template pattern as its context; its true context
15328 hasn't been instantiated yet and this is good enough for
15329 mangling. */
15330 DECL_CONTEXT (r) = DECL_CONTEXT (t);
15333 if (TREE_CODE (r) == ARGUMENT_PACK_SELECT)
15334 r = argument_pack_select_arg (r);
15335 if (!mark_used (r, complain) && !(complain & tf_error))
15336 return error_mark_node;
15337 return r;
15339 case CONST_DECL:
15341 tree enum_type;
15342 tree v;
15344 if (DECL_TEMPLATE_PARM_P (t))
15345 return tsubst_copy (DECL_INITIAL (t), args, complain, in_decl);
15346 /* There is no need to substitute into namespace-scope
15347 enumerators. */
15348 if (DECL_NAMESPACE_SCOPE_P (t))
15349 return t;
15350 /* If ARGS is NULL, then T is known to be non-dependent. */
15351 if (args == NULL_TREE)
15352 return scalar_constant_value (t);
15354 /* Unfortunately, we cannot just call lookup_name here.
15355 Consider:
15357 template <int I> int f() {
15358 enum E { a = I };
15359 struct S { void g() { E e = a; } };
15362 When we instantiate f<7>::S::g(), say, lookup_name is not
15363 clever enough to find f<7>::a. */
15364 enum_type
15365 = tsubst_aggr_type (DECL_CONTEXT (t), args, complain, in_decl,
15366 /*entering_scope=*/0);
15368 for (v = TYPE_VALUES (enum_type);
15369 v != NULL_TREE;
15370 v = TREE_CHAIN (v))
15371 if (TREE_PURPOSE (v) == DECL_NAME (t))
15372 return TREE_VALUE (v);
15374 /* We didn't find the name. That should never happen; if
15375 name-lookup found it during preliminary parsing, we
15376 should find it again here during instantiation. */
15377 gcc_unreachable ();
15379 return t;
15381 case FIELD_DECL:
15382 if (DECL_CONTEXT (t))
15384 tree ctx;
15386 ctx = tsubst_aggr_type (DECL_CONTEXT (t), args, complain, in_decl,
15387 /*entering_scope=*/1);
15388 if (ctx != DECL_CONTEXT (t))
15390 tree r = lookup_field (ctx, DECL_NAME (t), 0, false);
15391 if (!r)
15393 if (complain & tf_error)
15394 error ("using invalid field %qD", t);
15395 return error_mark_node;
15397 return r;
15401 return t;
15403 case VAR_DECL:
15404 case FUNCTION_DECL:
15405 if (DECL_LANG_SPECIFIC (t) && DECL_TEMPLATE_INFO (t))
15406 r = tsubst (t, args, complain, in_decl);
15407 else if (local_variable_p (t)
15408 && uses_template_parms (DECL_CONTEXT (t)))
15410 r = retrieve_local_specialization (t);
15411 if (r == NULL_TREE)
15413 /* First try name lookup to find the instantiation. */
15414 r = lookup_name (DECL_NAME (t));
15415 if (r && !is_capture_proxy (r))
15417 /* Make sure that the one we found is the one we want. */
15418 tree ctx = enclosing_instantiation_of (DECL_CONTEXT (t));
15419 if (ctx != DECL_CONTEXT (r))
15420 r = NULL_TREE;
15423 if (r)
15424 /* OK */;
15425 else
15427 /* This can happen for a variable used in a
15428 late-specified return type of a local lambda, or for a
15429 local static or constant. Building a new VAR_DECL
15430 should be OK in all those cases. */
15431 r = tsubst_decl (t, args, complain);
15432 if (local_specializations)
15433 /* Avoid infinite recursion (79640). */
15434 register_local_specialization (r, t);
15435 if (decl_maybe_constant_var_p (r))
15437 /* We can't call cp_finish_decl, so handle the
15438 initializer by hand. */
15439 tree init = tsubst_init (DECL_INITIAL (t), r, args,
15440 complain, in_decl);
15441 if (!processing_template_decl)
15442 init = maybe_constant_init (init);
15443 if (processing_template_decl
15444 ? potential_constant_expression (init)
15445 : reduced_constant_expression_p (init))
15446 DECL_INITIALIZED_BY_CONSTANT_EXPRESSION_P (r)
15447 = TREE_CONSTANT (r) = true;
15448 DECL_INITIAL (r) = init;
15449 if (tree auto_node = type_uses_auto (TREE_TYPE (r)))
15450 TREE_TYPE (r)
15451 = do_auto_deduction (TREE_TYPE (r), init, auto_node,
15452 complain, adc_variable_type);
15454 gcc_assert (cp_unevaluated_operand || TREE_STATIC (r)
15455 || decl_constant_var_p (r)
15456 || errorcount || sorrycount);
15457 if (!processing_template_decl
15458 && !TREE_STATIC (r))
15459 r = process_outer_var_ref (r, complain);
15461 /* Remember this for subsequent uses. */
15462 if (local_specializations)
15463 register_local_specialization (r, t);
15465 if (TREE_CODE (r) == ARGUMENT_PACK_SELECT)
15466 r = argument_pack_select_arg (r);
15468 else
15469 r = t;
15470 if (!mark_used (r, complain))
15471 return error_mark_node;
15472 return r;
15474 case NAMESPACE_DECL:
15475 return t;
15477 case OVERLOAD:
15478 /* An OVERLOAD will always be a non-dependent overload set; an
15479 overload set from function scope will just be represented with an
15480 IDENTIFIER_NODE, and from class scope with a BASELINK. */
15481 gcc_assert (!uses_template_parms (t));
15482 /* We must have marked any lookups as persistent. */
15483 gcc_assert (!OVL_LOOKUP_P (t) || OVL_USED_P (t));
15484 return t;
15486 case BASELINK:
15487 return tsubst_baselink (t, current_nonlambda_class_type (),
15488 args, complain, in_decl);
15490 case TEMPLATE_DECL:
15491 if (DECL_TEMPLATE_TEMPLATE_PARM_P (t))
15492 return tsubst (TREE_TYPE (DECL_TEMPLATE_RESULT (t)),
15493 args, complain, in_decl);
15494 else if (DECL_FUNCTION_TEMPLATE_P (t) && DECL_MEMBER_TEMPLATE_P (t))
15495 return tsubst (t, args, complain, in_decl);
15496 else if (DECL_CLASS_SCOPE_P (t)
15497 && uses_template_parms (DECL_CONTEXT (t)))
15499 /* Template template argument like the following example need
15500 special treatment:
15502 template <template <class> class TT> struct C {};
15503 template <class T> struct D {
15504 template <class U> struct E {};
15505 C<E> c; // #1
15507 D<int> d; // #2
15509 We are processing the template argument `E' in #1 for
15510 the template instantiation #2. Originally, `E' is a
15511 TEMPLATE_DECL with `D<T>' as its DECL_CONTEXT. Now we
15512 have to substitute this with one having context `D<int>'. */
15514 tree context = tsubst (DECL_CONTEXT (t), args, complain, in_decl);
15515 if (dependent_scope_p (context))
15517 /* When rewriting a constructor into a deduction guide, a
15518 non-dependent name can become dependent, so memtmpl<args>
15519 becomes context::template memtmpl<args>. */
15520 tree type = tsubst (TREE_TYPE (t), args, complain, in_decl);
15521 return build_qualified_name (type, context, DECL_NAME (t),
15522 /*template*/true);
15524 return lookup_field (context, DECL_NAME(t), 0, false);
15526 else
15527 /* Ordinary template template argument. */
15528 return t;
15530 case NON_LVALUE_EXPR:
15531 case VIEW_CONVERT_EXPR:
15533 /* Handle location wrappers by substituting the wrapped node
15534 first, *then* reusing the resulting type. Doing the type
15535 first ensures that we handle template parameters and
15536 parameter pack expansions. */
15537 gcc_assert (location_wrapper_p (t));
15538 tree op0 = tsubst_copy (TREE_OPERAND (t, 0), args, complain, in_decl);
15539 return maybe_wrap_with_location (op0, EXPR_LOCATION (t));
15542 case CAST_EXPR:
15543 case REINTERPRET_CAST_EXPR:
15544 case CONST_CAST_EXPR:
15545 case STATIC_CAST_EXPR:
15546 case DYNAMIC_CAST_EXPR:
15547 case IMPLICIT_CONV_EXPR:
15548 case CONVERT_EXPR:
15549 case NOP_EXPR:
15551 tree type = tsubst (TREE_TYPE (t), args, complain, in_decl);
15552 tree op0 = tsubst_copy (TREE_OPERAND (t, 0), args, complain, in_decl);
15553 return build1 (code, type, op0);
15556 case SIZEOF_EXPR:
15557 if (PACK_EXPANSION_P (TREE_OPERAND (t, 0))
15558 || ARGUMENT_PACK_P (TREE_OPERAND (t, 0)))
15560 tree expanded, op = TREE_OPERAND (t, 0);
15561 int len = 0;
15563 if (SIZEOF_EXPR_TYPE_P (t))
15564 op = TREE_TYPE (op);
15566 ++cp_unevaluated_operand;
15567 ++c_inhibit_evaluation_warnings;
15568 /* We only want to compute the number of arguments. */
15569 if (PACK_EXPANSION_P (op))
15570 expanded = tsubst_pack_expansion (op, args, complain, in_decl);
15571 else
15572 expanded = tsubst_template_args (ARGUMENT_PACK_ARGS (op),
15573 args, complain, in_decl);
15574 --cp_unevaluated_operand;
15575 --c_inhibit_evaluation_warnings;
15577 if (TREE_CODE (expanded) == TREE_VEC)
15579 len = TREE_VEC_LENGTH (expanded);
15580 /* Set TREE_USED for the benefit of -Wunused. */
15581 for (int i = 0; i < len; i++)
15582 if (DECL_P (TREE_VEC_ELT (expanded, i)))
15583 TREE_USED (TREE_VEC_ELT (expanded, i)) = true;
15586 if (expanded == error_mark_node)
15587 return error_mark_node;
15588 else if (PACK_EXPANSION_P (expanded)
15589 || (TREE_CODE (expanded) == TREE_VEC
15590 && pack_expansion_args_count (expanded)))
15593 if (PACK_EXPANSION_P (expanded))
15594 /* OK. */;
15595 else if (TREE_VEC_LENGTH (expanded) == 1)
15596 expanded = TREE_VEC_ELT (expanded, 0);
15597 else
15598 expanded = make_argument_pack (expanded);
15600 if (TYPE_P (expanded))
15601 return cxx_sizeof_or_alignof_type (expanded, SIZEOF_EXPR,
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 return build1 (code, type, op0);
15642 case COMPONENT_REF:
15644 tree object;
15645 tree name;
15647 object = tsubst_copy (TREE_OPERAND (t, 0), args, complain, in_decl);
15648 name = TREE_OPERAND (t, 1);
15649 if (TREE_CODE (name) == BIT_NOT_EXPR)
15651 name = tsubst_copy (TREE_OPERAND (name, 0), args,
15652 complain, in_decl);
15653 name = build1 (BIT_NOT_EXPR, NULL_TREE, name);
15655 else if (TREE_CODE (name) == SCOPE_REF
15656 && TREE_CODE (TREE_OPERAND (name, 1)) == BIT_NOT_EXPR)
15658 tree base = tsubst_copy (TREE_OPERAND (name, 0), args,
15659 complain, in_decl);
15660 name = TREE_OPERAND (name, 1);
15661 name = tsubst_copy (TREE_OPERAND (name, 0), args,
15662 complain, in_decl);
15663 name = build1 (BIT_NOT_EXPR, NULL_TREE, name);
15664 name = build_qualified_name (/*type=*/NULL_TREE,
15665 base, name,
15666 /*template_p=*/false);
15668 else if (BASELINK_P (name))
15669 name = tsubst_baselink (name,
15670 non_reference (TREE_TYPE (object)),
15671 args, complain,
15672 in_decl);
15673 else
15674 name = tsubst_copy (name, args, complain, in_decl);
15675 return build_nt (COMPONENT_REF, object, name, NULL_TREE);
15678 case PLUS_EXPR:
15679 case MINUS_EXPR:
15680 case MULT_EXPR:
15681 case TRUNC_DIV_EXPR:
15682 case CEIL_DIV_EXPR:
15683 case FLOOR_DIV_EXPR:
15684 case ROUND_DIV_EXPR:
15685 case EXACT_DIV_EXPR:
15686 case BIT_AND_EXPR:
15687 case BIT_IOR_EXPR:
15688 case BIT_XOR_EXPR:
15689 case TRUNC_MOD_EXPR:
15690 case FLOOR_MOD_EXPR:
15691 case TRUTH_ANDIF_EXPR:
15692 case TRUTH_ORIF_EXPR:
15693 case TRUTH_AND_EXPR:
15694 case TRUTH_OR_EXPR:
15695 case RSHIFT_EXPR:
15696 case LSHIFT_EXPR:
15697 case RROTATE_EXPR:
15698 case LROTATE_EXPR:
15699 case EQ_EXPR:
15700 case NE_EXPR:
15701 case MAX_EXPR:
15702 case MIN_EXPR:
15703 case LE_EXPR:
15704 case GE_EXPR:
15705 case LT_EXPR:
15706 case GT_EXPR:
15707 case COMPOUND_EXPR:
15708 case DOTSTAR_EXPR:
15709 case MEMBER_REF:
15710 case PREDECREMENT_EXPR:
15711 case PREINCREMENT_EXPR:
15712 case POSTDECREMENT_EXPR:
15713 case POSTINCREMENT_EXPR:
15715 tree op0 = tsubst_copy (TREE_OPERAND (t, 0), args, complain, in_decl);
15716 tree op1 = tsubst_copy (TREE_OPERAND (t, 1), args, complain, in_decl);
15717 return build_nt (code, op0, op1);
15720 case SCOPE_REF:
15722 tree op0 = tsubst_copy (TREE_OPERAND (t, 0), args, complain, in_decl);
15723 tree op1 = tsubst_copy (TREE_OPERAND (t, 1), args, complain, in_decl);
15724 return build_qualified_name (/*type=*/NULL_TREE, op0, op1,
15725 QUALIFIED_NAME_IS_TEMPLATE (t));
15728 case ARRAY_REF:
15730 tree op0 = tsubst_copy (TREE_OPERAND (t, 0), args, complain, in_decl);
15731 tree op1 = tsubst_copy (TREE_OPERAND (t, 1), args, complain, in_decl);
15732 return build_nt (ARRAY_REF, op0, op1, NULL_TREE, NULL_TREE);
15735 case CALL_EXPR:
15737 int n = VL_EXP_OPERAND_LENGTH (t);
15738 tree result = build_vl_exp (CALL_EXPR, n);
15739 int i;
15740 for (i = 0; i < n; i++)
15741 TREE_OPERAND (t, i) = tsubst_copy (TREE_OPERAND (t, i), args,
15742 complain, in_decl);
15743 return result;
15746 case COND_EXPR:
15747 case MODOP_EXPR:
15748 case PSEUDO_DTOR_EXPR:
15749 case VEC_PERM_EXPR:
15751 tree op0 = tsubst_copy (TREE_OPERAND (t, 0), args, complain, in_decl);
15752 tree op1 = tsubst_copy (TREE_OPERAND (t, 1), args, complain, in_decl);
15753 tree op2 = tsubst_copy (TREE_OPERAND (t, 2), args, complain, in_decl);
15754 r = build_nt (code, op0, op1, op2);
15755 TREE_NO_WARNING (r) = TREE_NO_WARNING (t);
15756 return r;
15759 case NEW_EXPR:
15761 tree op0 = tsubst_copy (TREE_OPERAND (t, 0), args, complain, in_decl);
15762 tree op1 = tsubst_copy (TREE_OPERAND (t, 1), args, complain, in_decl);
15763 tree op2 = tsubst_copy (TREE_OPERAND (t, 2), args, complain, in_decl);
15764 r = build_nt (code, op0, op1, op2);
15765 NEW_EXPR_USE_GLOBAL (r) = NEW_EXPR_USE_GLOBAL (t);
15766 return r;
15769 case DELETE_EXPR:
15771 tree op0 = tsubst_copy (TREE_OPERAND (t, 0), args, complain, in_decl);
15772 tree op1 = tsubst_copy (TREE_OPERAND (t, 1), args, complain, in_decl);
15773 r = build_nt (code, op0, op1);
15774 DELETE_EXPR_USE_GLOBAL (r) = DELETE_EXPR_USE_GLOBAL (t);
15775 DELETE_EXPR_USE_VEC (r) = DELETE_EXPR_USE_VEC (t);
15776 return r;
15779 case TEMPLATE_ID_EXPR:
15781 /* Substituted template arguments */
15782 tree fn = TREE_OPERAND (t, 0);
15783 tree targs = TREE_OPERAND (t, 1);
15785 fn = tsubst_copy (fn, args, complain, in_decl);
15786 if (targs)
15787 targs = tsubst_template_args (targs, args, complain, in_decl);
15789 return lookup_template_function (fn, targs);
15792 case TREE_LIST:
15794 tree purpose, value, chain;
15796 if (t == void_list_node)
15797 return t;
15799 purpose = TREE_PURPOSE (t);
15800 if (purpose)
15801 purpose = tsubst_copy (purpose, args, complain, in_decl);
15802 value = TREE_VALUE (t);
15803 if (value)
15804 value = tsubst_copy (value, args, complain, in_decl);
15805 chain = TREE_CHAIN (t);
15806 if (chain && chain != void_type_node)
15807 chain = tsubst_copy (chain, args, complain, in_decl);
15808 if (purpose == TREE_PURPOSE (t)
15809 && value == TREE_VALUE (t)
15810 && chain == TREE_CHAIN (t))
15811 return t;
15812 return tree_cons (purpose, value, chain);
15815 case RECORD_TYPE:
15816 case UNION_TYPE:
15817 case ENUMERAL_TYPE:
15818 case INTEGER_TYPE:
15819 case TEMPLATE_TYPE_PARM:
15820 case TEMPLATE_TEMPLATE_PARM:
15821 case BOUND_TEMPLATE_TEMPLATE_PARM:
15822 case TEMPLATE_PARM_INDEX:
15823 case POINTER_TYPE:
15824 case REFERENCE_TYPE:
15825 case OFFSET_TYPE:
15826 case FUNCTION_TYPE:
15827 case METHOD_TYPE:
15828 case ARRAY_TYPE:
15829 case TYPENAME_TYPE:
15830 case UNBOUND_CLASS_TEMPLATE:
15831 case TYPEOF_TYPE:
15832 case DECLTYPE_TYPE:
15833 case TYPE_DECL:
15834 return tsubst (t, args, complain, in_decl);
15836 case USING_DECL:
15837 t = DECL_NAME (t);
15838 /* Fall through. */
15839 case IDENTIFIER_NODE:
15840 if (IDENTIFIER_CONV_OP_P (t))
15842 tree new_type = tsubst (TREE_TYPE (t), args, complain, in_decl);
15843 return make_conv_op_name (new_type);
15845 else
15846 return t;
15848 case CONSTRUCTOR:
15849 /* This is handled by tsubst_copy_and_build. */
15850 gcc_unreachable ();
15852 case VA_ARG_EXPR:
15854 tree op0 = tsubst_copy (TREE_OPERAND (t, 0), args, complain, in_decl);
15855 tree type = tsubst (TREE_TYPE (t), args, complain, in_decl);
15856 return build_x_va_arg (EXPR_LOCATION (t), op0, type);
15859 case CLEANUP_POINT_EXPR:
15860 /* We shouldn't have built any of these during initial template
15861 generation. Instead, they should be built during instantiation
15862 in response to the saved STMT_IS_FULL_EXPR_P setting. */
15863 gcc_unreachable ();
15865 case OFFSET_REF:
15867 tree type = tsubst (TREE_TYPE (t), args, complain, in_decl);
15868 tree op0 = tsubst_copy (TREE_OPERAND (t, 0), args, complain, in_decl);
15869 tree op1 = tsubst_copy (TREE_OPERAND (t, 1), args, complain, in_decl);
15870 r = build2 (code, type, op0, op1);
15871 PTRMEM_OK_P (r) = PTRMEM_OK_P (t);
15872 if (!mark_used (TREE_OPERAND (r, 1), complain)
15873 && !(complain & tf_error))
15874 return error_mark_node;
15875 return r;
15878 case EXPR_PACK_EXPANSION:
15879 error ("invalid use of pack expansion expression");
15880 return error_mark_node;
15882 case NONTYPE_ARGUMENT_PACK:
15883 error ("use %<...%> to expand argument pack");
15884 return error_mark_node;
15886 case VOID_CST:
15887 gcc_checking_assert (t == void_node && VOID_TYPE_P (TREE_TYPE (t)));
15888 return t;
15890 case INTEGER_CST:
15891 case REAL_CST:
15892 case STRING_CST:
15893 case COMPLEX_CST:
15895 /* Instantiate any typedefs in the type. */
15896 tree type = tsubst (TREE_TYPE (t), args, complain, in_decl);
15897 r = fold_convert (type, t);
15898 gcc_assert (TREE_CODE (r) == code);
15899 return r;
15902 case PTRMEM_CST:
15903 /* These can sometimes show up in a partial instantiation, but never
15904 involve template parms. */
15905 gcc_assert (!uses_template_parms (t));
15906 return t;
15908 case UNARY_LEFT_FOLD_EXPR:
15909 return tsubst_unary_left_fold (t, args, complain, in_decl);
15910 case UNARY_RIGHT_FOLD_EXPR:
15911 return tsubst_unary_right_fold (t, args, complain, in_decl);
15912 case BINARY_LEFT_FOLD_EXPR:
15913 return tsubst_binary_left_fold (t, args, complain, in_decl);
15914 case BINARY_RIGHT_FOLD_EXPR:
15915 return tsubst_binary_right_fold (t, args, complain, in_decl);
15916 case PREDICT_EXPR:
15917 return t;
15919 case DEBUG_BEGIN_STMT:
15920 /* ??? There's no point in copying it for now, but maybe some
15921 day it will contain more information, such as a pointer back
15922 to the containing function, inlined copy or so. */
15923 return t;
15925 default:
15926 /* We shouldn't get here, but keep going if !flag_checking. */
15927 if (flag_checking)
15928 gcc_unreachable ();
15929 return t;
15933 /* Helper function for tsubst_omp_clauses, used for instantiation of
15934 OMP_CLAUSE_DECL of clauses. */
15936 static tree
15937 tsubst_omp_clause_decl (tree decl, tree args, tsubst_flags_t complain,
15938 tree in_decl)
15940 if (decl == NULL_TREE)
15941 return NULL_TREE;
15943 /* Handle an OpenMP array section represented as a TREE_LIST (or
15944 OMP_CLAUSE_DEPEND_KIND). An OMP_CLAUSE_DEPEND (with a depend
15945 kind of OMP_CLAUSE_DEPEND_SINK) can also be represented as a
15946 TREE_LIST. We can handle it exactly the same as an array section
15947 (purpose, value, and a chain), even though the nomenclature
15948 (low_bound, length, etc) is different. */
15949 if (TREE_CODE (decl) == TREE_LIST)
15951 tree low_bound
15952 = tsubst_expr (TREE_PURPOSE (decl), args, complain, in_decl,
15953 /*integral_constant_expression_p=*/false);
15954 tree length = tsubst_expr (TREE_VALUE (decl), args, complain, in_decl,
15955 /*integral_constant_expression_p=*/false);
15956 tree chain = tsubst_omp_clause_decl (TREE_CHAIN (decl), args, complain,
15957 in_decl);
15958 if (TREE_PURPOSE (decl) == low_bound
15959 && TREE_VALUE (decl) == length
15960 && TREE_CHAIN (decl) == chain)
15961 return decl;
15962 tree ret = tree_cons (low_bound, length, chain);
15963 OMP_CLAUSE_DEPEND_SINK_NEGATIVE (ret)
15964 = OMP_CLAUSE_DEPEND_SINK_NEGATIVE (decl);
15965 return ret;
15967 tree ret = tsubst_expr (decl, args, complain, in_decl,
15968 /*integral_constant_expression_p=*/false);
15969 /* Undo convert_from_reference tsubst_expr could have called. */
15970 if (decl
15971 && REFERENCE_REF_P (ret)
15972 && !REFERENCE_REF_P (decl))
15973 ret = TREE_OPERAND (ret, 0);
15974 return ret;
15977 /* Like tsubst_copy, but specifically for OpenMP clauses. */
15979 static tree
15980 tsubst_omp_clauses (tree clauses, enum c_omp_region_type ort,
15981 tree args, tsubst_flags_t complain, tree in_decl)
15983 tree new_clauses = NULL_TREE, nc, oc;
15984 tree linear_no_step = NULL_TREE;
15986 for (oc = clauses; oc ; oc = OMP_CLAUSE_CHAIN (oc))
15988 nc = copy_node (oc);
15989 OMP_CLAUSE_CHAIN (nc) = new_clauses;
15990 new_clauses = nc;
15992 switch (OMP_CLAUSE_CODE (nc))
15994 case OMP_CLAUSE_LASTPRIVATE:
15995 if (OMP_CLAUSE_LASTPRIVATE_STMT (oc))
15997 OMP_CLAUSE_LASTPRIVATE_STMT (nc) = push_stmt_list ();
15998 tsubst_expr (OMP_CLAUSE_LASTPRIVATE_STMT (oc), args, complain,
15999 in_decl, /*integral_constant_expression_p=*/false);
16000 OMP_CLAUSE_LASTPRIVATE_STMT (nc)
16001 = pop_stmt_list (OMP_CLAUSE_LASTPRIVATE_STMT (nc));
16003 /* FALLTHRU */
16004 case OMP_CLAUSE_PRIVATE:
16005 case OMP_CLAUSE_SHARED:
16006 case OMP_CLAUSE_FIRSTPRIVATE:
16007 case OMP_CLAUSE_COPYIN:
16008 case OMP_CLAUSE_COPYPRIVATE:
16009 case OMP_CLAUSE_UNIFORM:
16010 case OMP_CLAUSE_DEPEND:
16011 case OMP_CLAUSE_FROM:
16012 case OMP_CLAUSE_TO:
16013 case OMP_CLAUSE_MAP:
16014 case OMP_CLAUSE_USE_DEVICE_PTR:
16015 case OMP_CLAUSE_IS_DEVICE_PTR:
16016 OMP_CLAUSE_DECL (nc)
16017 = tsubst_omp_clause_decl (OMP_CLAUSE_DECL (oc), args, complain,
16018 in_decl);
16019 break;
16020 case OMP_CLAUSE_TILE:
16021 case OMP_CLAUSE_IF:
16022 case OMP_CLAUSE_NUM_THREADS:
16023 case OMP_CLAUSE_SCHEDULE:
16024 case OMP_CLAUSE_COLLAPSE:
16025 case OMP_CLAUSE_FINAL:
16026 case OMP_CLAUSE_DEVICE:
16027 case OMP_CLAUSE_DIST_SCHEDULE:
16028 case OMP_CLAUSE_NUM_TEAMS:
16029 case OMP_CLAUSE_THREAD_LIMIT:
16030 case OMP_CLAUSE_SAFELEN:
16031 case OMP_CLAUSE_SIMDLEN:
16032 case OMP_CLAUSE_NUM_TASKS:
16033 case OMP_CLAUSE_GRAINSIZE:
16034 case OMP_CLAUSE_PRIORITY:
16035 case OMP_CLAUSE_ORDERED:
16036 case OMP_CLAUSE_HINT:
16037 case OMP_CLAUSE_NUM_GANGS:
16038 case OMP_CLAUSE_NUM_WORKERS:
16039 case OMP_CLAUSE_VECTOR_LENGTH:
16040 case OMP_CLAUSE_WORKER:
16041 case OMP_CLAUSE_VECTOR:
16042 case OMP_CLAUSE_ASYNC:
16043 case OMP_CLAUSE_WAIT:
16044 OMP_CLAUSE_OPERAND (nc, 0)
16045 = tsubst_expr (OMP_CLAUSE_OPERAND (oc, 0), args, complain,
16046 in_decl, /*integral_constant_expression_p=*/false);
16047 break;
16048 case OMP_CLAUSE_REDUCTION:
16049 if (OMP_CLAUSE_REDUCTION_PLACEHOLDER (oc))
16051 tree placeholder = OMP_CLAUSE_REDUCTION_PLACEHOLDER (oc);
16052 if (TREE_CODE (placeholder) == SCOPE_REF)
16054 tree scope = tsubst (TREE_OPERAND (placeholder, 0), args,
16055 complain, in_decl);
16056 OMP_CLAUSE_REDUCTION_PLACEHOLDER (nc)
16057 = build_qualified_name (NULL_TREE, scope,
16058 TREE_OPERAND (placeholder, 1),
16059 false);
16061 else
16062 gcc_assert (identifier_p (placeholder));
16064 OMP_CLAUSE_DECL (nc)
16065 = tsubst_omp_clause_decl (OMP_CLAUSE_DECL (oc), args, complain,
16066 in_decl);
16067 break;
16068 case OMP_CLAUSE_GANG:
16069 case OMP_CLAUSE_ALIGNED:
16070 OMP_CLAUSE_DECL (nc)
16071 = tsubst_omp_clause_decl (OMP_CLAUSE_DECL (oc), args, complain,
16072 in_decl);
16073 OMP_CLAUSE_OPERAND (nc, 1)
16074 = tsubst_expr (OMP_CLAUSE_OPERAND (oc, 1), args, complain,
16075 in_decl, /*integral_constant_expression_p=*/false);
16076 break;
16077 case OMP_CLAUSE_LINEAR:
16078 OMP_CLAUSE_DECL (nc)
16079 = tsubst_omp_clause_decl (OMP_CLAUSE_DECL (oc), args, complain,
16080 in_decl);
16081 if (OMP_CLAUSE_LINEAR_STEP (oc) == NULL_TREE)
16083 gcc_assert (!linear_no_step);
16084 linear_no_step = nc;
16086 else if (OMP_CLAUSE_LINEAR_VARIABLE_STRIDE (oc))
16087 OMP_CLAUSE_LINEAR_STEP (nc)
16088 = tsubst_omp_clause_decl (OMP_CLAUSE_LINEAR_STEP (oc), args,
16089 complain, in_decl);
16090 else
16091 OMP_CLAUSE_LINEAR_STEP (nc)
16092 = tsubst_expr (OMP_CLAUSE_LINEAR_STEP (oc), args, complain,
16093 in_decl,
16094 /*integral_constant_expression_p=*/false);
16095 break;
16096 case OMP_CLAUSE_NOWAIT:
16097 case OMP_CLAUSE_DEFAULT:
16098 case OMP_CLAUSE_UNTIED:
16099 case OMP_CLAUSE_MERGEABLE:
16100 case OMP_CLAUSE_INBRANCH:
16101 case OMP_CLAUSE_NOTINBRANCH:
16102 case OMP_CLAUSE_PROC_BIND:
16103 case OMP_CLAUSE_FOR:
16104 case OMP_CLAUSE_PARALLEL:
16105 case OMP_CLAUSE_SECTIONS:
16106 case OMP_CLAUSE_TASKGROUP:
16107 case OMP_CLAUSE_NOGROUP:
16108 case OMP_CLAUSE_THREADS:
16109 case OMP_CLAUSE_SIMD:
16110 case OMP_CLAUSE_DEFAULTMAP:
16111 case OMP_CLAUSE_INDEPENDENT:
16112 case OMP_CLAUSE_AUTO:
16113 case OMP_CLAUSE_SEQ:
16114 break;
16115 default:
16116 gcc_unreachable ();
16118 if ((ort & C_ORT_OMP_DECLARE_SIMD) == C_ORT_OMP)
16119 switch (OMP_CLAUSE_CODE (nc))
16121 case OMP_CLAUSE_SHARED:
16122 case OMP_CLAUSE_PRIVATE:
16123 case OMP_CLAUSE_FIRSTPRIVATE:
16124 case OMP_CLAUSE_LASTPRIVATE:
16125 case OMP_CLAUSE_COPYPRIVATE:
16126 case OMP_CLAUSE_LINEAR:
16127 case OMP_CLAUSE_REDUCTION:
16128 case OMP_CLAUSE_USE_DEVICE_PTR:
16129 case OMP_CLAUSE_IS_DEVICE_PTR:
16130 /* tsubst_expr on SCOPE_REF results in returning
16131 finish_non_static_data_member result. Undo that here. */
16132 if (TREE_CODE (OMP_CLAUSE_DECL (oc)) == SCOPE_REF
16133 && (TREE_CODE (TREE_OPERAND (OMP_CLAUSE_DECL (oc), 1))
16134 == IDENTIFIER_NODE))
16136 tree t = OMP_CLAUSE_DECL (nc);
16137 tree v = t;
16138 while (v)
16139 switch (TREE_CODE (v))
16141 case COMPONENT_REF:
16142 case MEM_REF:
16143 case INDIRECT_REF:
16144 CASE_CONVERT:
16145 case POINTER_PLUS_EXPR:
16146 v = TREE_OPERAND (v, 0);
16147 continue;
16148 case PARM_DECL:
16149 if (DECL_CONTEXT (v) == current_function_decl
16150 && DECL_ARTIFICIAL (v)
16151 && DECL_NAME (v) == this_identifier)
16152 OMP_CLAUSE_DECL (nc) = TREE_OPERAND (t, 1);
16153 /* FALLTHRU */
16154 default:
16155 v = NULL_TREE;
16156 break;
16159 else if (VAR_P (OMP_CLAUSE_DECL (oc))
16160 && DECL_HAS_VALUE_EXPR_P (OMP_CLAUSE_DECL (oc))
16161 && DECL_ARTIFICIAL (OMP_CLAUSE_DECL (oc))
16162 && DECL_LANG_SPECIFIC (OMP_CLAUSE_DECL (oc))
16163 && DECL_OMP_PRIVATIZED_MEMBER (OMP_CLAUSE_DECL (oc)))
16165 tree decl = OMP_CLAUSE_DECL (nc);
16166 if (VAR_P (decl))
16168 retrofit_lang_decl (decl);
16169 DECL_OMP_PRIVATIZED_MEMBER (decl) = 1;
16172 break;
16173 default:
16174 break;
16178 new_clauses = nreverse (new_clauses);
16179 if (ort != C_ORT_OMP_DECLARE_SIMD)
16181 new_clauses = finish_omp_clauses (new_clauses, ort);
16182 if (linear_no_step)
16183 for (nc = new_clauses; nc; nc = OMP_CLAUSE_CHAIN (nc))
16184 if (nc == linear_no_step)
16186 OMP_CLAUSE_LINEAR_STEP (nc) = NULL_TREE;
16187 break;
16190 return new_clauses;
16193 /* Like tsubst_copy_and_build, but unshare TREE_LIST nodes. */
16195 static tree
16196 tsubst_copy_asm_operands (tree t, tree args, tsubst_flags_t complain,
16197 tree in_decl)
16199 #define RECUR(t) tsubst_copy_asm_operands (t, args, complain, in_decl)
16201 tree purpose, value, chain;
16203 if (t == NULL)
16204 return t;
16206 if (TREE_CODE (t) != TREE_LIST)
16207 return tsubst_copy_and_build (t, args, complain, in_decl,
16208 /*function_p=*/false,
16209 /*integral_constant_expression_p=*/false);
16211 if (t == void_list_node)
16212 return t;
16214 purpose = TREE_PURPOSE (t);
16215 if (purpose)
16216 purpose = RECUR (purpose);
16217 value = TREE_VALUE (t);
16218 if (value)
16220 if (TREE_CODE (value) != LABEL_DECL)
16221 value = RECUR (value);
16222 else
16224 value = lookup_label (DECL_NAME (value));
16225 gcc_assert (TREE_CODE (value) == LABEL_DECL);
16226 TREE_USED (value) = 1;
16229 chain = TREE_CHAIN (t);
16230 if (chain && chain != void_type_node)
16231 chain = RECUR (chain);
16232 return tree_cons (purpose, value, chain);
16233 #undef RECUR
16236 /* Used to temporarily communicate the list of #pragma omp parallel
16237 clauses to #pragma omp for instantiation if they are combined
16238 together. */
16240 static tree *omp_parallel_combined_clauses;
16242 /* Substitute one OMP_FOR iterator. */
16244 static void
16245 tsubst_omp_for_iterator (tree t, int i, tree declv, tree orig_declv,
16246 tree initv, tree condv, tree incrv, tree *clauses,
16247 tree args, tsubst_flags_t complain, tree in_decl,
16248 bool integral_constant_expression_p)
16250 #define RECUR(NODE) \
16251 tsubst_expr ((NODE), args, complain, in_decl, \
16252 integral_constant_expression_p)
16253 tree decl, init, cond, incr;
16255 init = TREE_VEC_ELT (OMP_FOR_INIT (t), i);
16256 gcc_assert (TREE_CODE (init) == MODIFY_EXPR);
16258 if (orig_declv && OMP_FOR_ORIG_DECLS (t))
16260 tree o = TREE_VEC_ELT (OMP_FOR_ORIG_DECLS (t), i);
16261 TREE_VEC_ELT (orig_declv, i) = RECUR (o);
16264 decl = TREE_OPERAND (init, 0);
16265 init = TREE_OPERAND (init, 1);
16266 tree decl_expr = NULL_TREE;
16267 if (init && TREE_CODE (init) == DECL_EXPR)
16269 /* We need to jump through some hoops to handle declarations in the
16270 init-statement, since we might need to handle auto deduction,
16271 but we need to keep control of initialization. */
16272 decl_expr = init;
16273 init = DECL_INITIAL (DECL_EXPR_DECL (init));
16274 decl = tsubst_decl (decl, args, complain);
16276 else
16278 if (TREE_CODE (decl) == SCOPE_REF)
16280 decl = RECUR (decl);
16281 if (TREE_CODE (decl) == COMPONENT_REF)
16283 tree v = decl;
16284 while (v)
16285 switch (TREE_CODE (v))
16287 case COMPONENT_REF:
16288 case MEM_REF:
16289 case INDIRECT_REF:
16290 CASE_CONVERT:
16291 case POINTER_PLUS_EXPR:
16292 v = TREE_OPERAND (v, 0);
16293 continue;
16294 case PARM_DECL:
16295 if (DECL_CONTEXT (v) == current_function_decl
16296 && DECL_ARTIFICIAL (v)
16297 && DECL_NAME (v) == this_identifier)
16299 decl = TREE_OPERAND (decl, 1);
16300 decl = omp_privatize_field (decl, false);
16302 /* FALLTHRU */
16303 default:
16304 v = NULL_TREE;
16305 break;
16309 else
16310 decl = RECUR (decl);
16312 init = RECUR (init);
16314 tree auto_node = type_uses_auto (TREE_TYPE (decl));
16315 if (auto_node && init)
16316 TREE_TYPE (decl)
16317 = do_auto_deduction (TREE_TYPE (decl), init, auto_node, complain);
16319 gcc_assert (!type_dependent_expression_p (decl));
16321 if (!CLASS_TYPE_P (TREE_TYPE (decl)))
16323 if (decl_expr)
16325 /* Declare the variable, but don't let that initialize it. */
16326 tree init_sav = DECL_INITIAL (DECL_EXPR_DECL (decl_expr));
16327 DECL_INITIAL (DECL_EXPR_DECL (decl_expr)) = NULL_TREE;
16328 RECUR (decl_expr);
16329 DECL_INITIAL (DECL_EXPR_DECL (decl_expr)) = init_sav;
16332 cond = RECUR (TREE_VEC_ELT (OMP_FOR_COND (t), i));
16333 incr = TREE_VEC_ELT (OMP_FOR_INCR (t), i);
16334 if (TREE_CODE (incr) == MODIFY_EXPR)
16336 tree lhs = RECUR (TREE_OPERAND (incr, 0));
16337 tree rhs = RECUR (TREE_OPERAND (incr, 1));
16338 incr = build_x_modify_expr (EXPR_LOCATION (incr), lhs,
16339 NOP_EXPR, rhs, complain);
16341 else
16342 incr = RECUR (incr);
16343 TREE_VEC_ELT (declv, i) = decl;
16344 TREE_VEC_ELT (initv, i) = init;
16345 TREE_VEC_ELT (condv, i) = cond;
16346 TREE_VEC_ELT (incrv, i) = incr;
16347 return;
16350 if (decl_expr)
16352 /* Declare and initialize the variable. */
16353 RECUR (decl_expr);
16354 init = NULL_TREE;
16356 else if (init)
16358 tree *pc;
16359 int j;
16360 for (j = (omp_parallel_combined_clauses == NULL ? 1 : 0); j < 2; j++)
16362 for (pc = j ? clauses : omp_parallel_combined_clauses; *pc; )
16364 if (OMP_CLAUSE_CODE (*pc) == OMP_CLAUSE_PRIVATE
16365 && OMP_CLAUSE_DECL (*pc) == decl)
16366 break;
16367 else if (OMP_CLAUSE_CODE (*pc) == OMP_CLAUSE_LASTPRIVATE
16368 && OMP_CLAUSE_DECL (*pc) == decl)
16370 if (j)
16371 break;
16372 /* Move lastprivate (decl) clause to OMP_FOR_CLAUSES. */
16373 tree c = *pc;
16374 *pc = OMP_CLAUSE_CHAIN (c);
16375 OMP_CLAUSE_CHAIN (c) = *clauses;
16376 *clauses = c;
16378 else if (OMP_CLAUSE_CODE (*pc) == OMP_CLAUSE_FIRSTPRIVATE
16379 && OMP_CLAUSE_DECL (*pc) == decl)
16381 error ("iteration variable %qD should not be firstprivate",
16382 decl);
16383 *pc = OMP_CLAUSE_CHAIN (*pc);
16385 else if (OMP_CLAUSE_CODE (*pc) == OMP_CLAUSE_REDUCTION
16386 && OMP_CLAUSE_DECL (*pc) == decl)
16388 error ("iteration variable %qD should not be reduction",
16389 decl);
16390 *pc = OMP_CLAUSE_CHAIN (*pc);
16392 else
16393 pc = &OMP_CLAUSE_CHAIN (*pc);
16395 if (*pc)
16396 break;
16398 if (*pc == NULL_TREE)
16400 tree c = build_omp_clause (input_location, OMP_CLAUSE_PRIVATE);
16401 OMP_CLAUSE_DECL (c) = decl;
16402 c = finish_omp_clauses (c, C_ORT_OMP);
16403 if (c)
16405 OMP_CLAUSE_CHAIN (c) = *clauses;
16406 *clauses = c;
16410 cond = TREE_VEC_ELT (OMP_FOR_COND (t), i);
16411 if (COMPARISON_CLASS_P (cond))
16413 tree op0 = RECUR (TREE_OPERAND (cond, 0));
16414 tree op1 = RECUR (TREE_OPERAND (cond, 1));
16415 cond = build2 (TREE_CODE (cond), boolean_type_node, op0, op1);
16417 else
16418 cond = RECUR (cond);
16419 incr = TREE_VEC_ELT (OMP_FOR_INCR (t), i);
16420 switch (TREE_CODE (incr))
16422 case PREINCREMENT_EXPR:
16423 case PREDECREMENT_EXPR:
16424 case POSTINCREMENT_EXPR:
16425 case POSTDECREMENT_EXPR:
16426 incr = build2 (TREE_CODE (incr), TREE_TYPE (decl),
16427 RECUR (TREE_OPERAND (incr, 0)), NULL_TREE);
16428 break;
16429 case MODIFY_EXPR:
16430 if (TREE_CODE (TREE_OPERAND (incr, 1)) == PLUS_EXPR
16431 || TREE_CODE (TREE_OPERAND (incr, 1)) == MINUS_EXPR)
16433 tree rhs = TREE_OPERAND (incr, 1);
16434 tree lhs = RECUR (TREE_OPERAND (incr, 0));
16435 tree rhs0 = RECUR (TREE_OPERAND (rhs, 0));
16436 tree rhs1 = RECUR (TREE_OPERAND (rhs, 1));
16437 incr = build2 (MODIFY_EXPR, TREE_TYPE (decl), lhs,
16438 build2 (TREE_CODE (rhs), TREE_TYPE (decl),
16439 rhs0, rhs1));
16441 else
16442 incr = RECUR (incr);
16443 break;
16444 case MODOP_EXPR:
16445 if (TREE_CODE (TREE_OPERAND (incr, 1)) == PLUS_EXPR
16446 || TREE_CODE (TREE_OPERAND (incr, 1)) == MINUS_EXPR)
16448 tree lhs = RECUR (TREE_OPERAND (incr, 0));
16449 incr = build2 (MODIFY_EXPR, TREE_TYPE (decl), lhs,
16450 build2 (TREE_CODE (TREE_OPERAND (incr, 1)),
16451 TREE_TYPE (decl), lhs,
16452 RECUR (TREE_OPERAND (incr, 2))));
16454 else if (TREE_CODE (TREE_OPERAND (incr, 1)) == NOP_EXPR
16455 && (TREE_CODE (TREE_OPERAND (incr, 2)) == PLUS_EXPR
16456 || (TREE_CODE (TREE_OPERAND (incr, 2)) == MINUS_EXPR)))
16458 tree rhs = TREE_OPERAND (incr, 2);
16459 tree lhs = RECUR (TREE_OPERAND (incr, 0));
16460 tree rhs0 = RECUR (TREE_OPERAND (rhs, 0));
16461 tree rhs1 = RECUR (TREE_OPERAND (rhs, 1));
16462 incr = build2 (MODIFY_EXPR, TREE_TYPE (decl), lhs,
16463 build2 (TREE_CODE (rhs), TREE_TYPE (decl),
16464 rhs0, rhs1));
16466 else
16467 incr = RECUR (incr);
16468 break;
16469 default:
16470 incr = RECUR (incr);
16471 break;
16474 TREE_VEC_ELT (declv, i) = decl;
16475 TREE_VEC_ELT (initv, i) = init;
16476 TREE_VEC_ELT (condv, i) = cond;
16477 TREE_VEC_ELT (incrv, i) = incr;
16478 #undef RECUR
16481 /* Helper function of tsubst_expr, find OMP_TEAMS inside
16482 of OMP_TARGET's body. */
16484 static tree
16485 tsubst_find_omp_teams (tree *tp, int *walk_subtrees, void *)
16487 *walk_subtrees = 0;
16488 switch (TREE_CODE (*tp))
16490 case OMP_TEAMS:
16491 return *tp;
16492 case BIND_EXPR:
16493 case STATEMENT_LIST:
16494 *walk_subtrees = 1;
16495 break;
16496 default:
16497 break;
16499 return NULL_TREE;
16502 /* Helper function for tsubst_expr. For decomposition declaration
16503 artificial base DECL, which is tsubsted PATTERN_DECL, tsubst
16504 also the corresponding decls representing the identifiers
16505 of the decomposition declaration. Return DECL if successful
16506 or error_mark_node otherwise, set *FIRST to the first decl
16507 in the list chained through DECL_CHAIN and *CNT to the number
16508 of such decls. */
16510 static tree
16511 tsubst_decomp_names (tree decl, tree pattern_decl, tree args,
16512 tsubst_flags_t complain, tree in_decl, tree *first,
16513 unsigned int *cnt)
16515 tree decl2, decl3, prev = decl;
16516 *cnt = 0;
16517 gcc_assert (DECL_NAME (decl) == NULL_TREE);
16518 for (decl2 = DECL_CHAIN (pattern_decl);
16519 decl2
16520 && VAR_P (decl2)
16521 && DECL_DECOMPOSITION_P (decl2)
16522 && DECL_NAME (decl2);
16523 decl2 = DECL_CHAIN (decl2))
16525 if (TREE_TYPE (decl2) == error_mark_node && *cnt == 0)
16527 gcc_assert (errorcount);
16528 return error_mark_node;
16530 (*cnt)++;
16531 gcc_assert (DECL_DECOMP_BASE (decl2) == pattern_decl);
16532 gcc_assert (DECL_HAS_VALUE_EXPR_P (decl2));
16533 tree v = DECL_VALUE_EXPR (decl2);
16534 DECL_HAS_VALUE_EXPR_P (decl2) = 0;
16535 SET_DECL_VALUE_EXPR (decl2, NULL_TREE);
16536 decl3 = tsubst (decl2, args, complain, in_decl);
16537 SET_DECL_VALUE_EXPR (decl2, v);
16538 DECL_HAS_VALUE_EXPR_P (decl2) = 1;
16539 if (VAR_P (decl3))
16540 DECL_TEMPLATE_INSTANTIATED (decl3) = 1;
16541 else
16543 gcc_assert (errorcount);
16544 decl = error_mark_node;
16545 continue;
16547 maybe_push_decl (decl3);
16548 if (error_operand_p (decl3))
16549 decl = error_mark_node;
16550 else if (decl != error_mark_node
16551 && DECL_CHAIN (decl3) != prev
16552 && decl != prev)
16554 gcc_assert (errorcount);
16555 decl = error_mark_node;
16557 else
16558 prev = decl3;
16560 *first = prev;
16561 return decl;
16564 /* Like tsubst_copy for expressions, etc. but also does semantic
16565 processing. */
16567 tree
16568 tsubst_expr (tree t, tree args, tsubst_flags_t complain, tree in_decl,
16569 bool integral_constant_expression_p)
16571 #define RETURN(EXP) do { r = (EXP); goto out; } while(0)
16572 #define RECUR(NODE) \
16573 tsubst_expr ((NODE), args, complain, in_decl, \
16574 integral_constant_expression_p)
16576 tree stmt, tmp;
16577 tree r;
16578 location_t loc;
16580 if (t == NULL_TREE || t == error_mark_node)
16581 return t;
16583 loc = input_location;
16584 if (EXPR_HAS_LOCATION (t))
16585 input_location = EXPR_LOCATION (t);
16586 if (STATEMENT_CODE_P (TREE_CODE (t)))
16587 current_stmt_tree ()->stmts_are_full_exprs_p = STMT_IS_FULL_EXPR_P (t);
16589 switch (TREE_CODE (t))
16591 case STATEMENT_LIST:
16593 tree_stmt_iterator i;
16594 for (i = tsi_start (t); !tsi_end_p (i); tsi_next (&i))
16595 RECUR (tsi_stmt (i));
16596 break;
16599 case CTOR_INITIALIZER:
16600 finish_mem_initializers (tsubst_initializer_list
16601 (TREE_OPERAND (t, 0), args));
16602 break;
16604 case RETURN_EXPR:
16605 finish_return_stmt (RECUR (TREE_OPERAND (t, 0)));
16606 break;
16608 case EXPR_STMT:
16609 tmp = RECUR (EXPR_STMT_EXPR (t));
16610 if (EXPR_STMT_STMT_EXPR_RESULT (t))
16611 finish_stmt_expr_expr (tmp, cur_stmt_expr);
16612 else
16613 finish_expr_stmt (tmp);
16614 break;
16616 case USING_STMT:
16617 finish_local_using_directive (USING_STMT_NAMESPACE (t),
16618 /*attribs=*/NULL_TREE);
16619 break;
16621 case DECL_EXPR:
16623 tree decl, pattern_decl;
16624 tree init;
16626 pattern_decl = decl = DECL_EXPR_DECL (t);
16627 if (TREE_CODE (decl) == LABEL_DECL)
16628 finish_label_decl (DECL_NAME (decl));
16629 else if (TREE_CODE (decl) == USING_DECL)
16631 tree scope = USING_DECL_SCOPE (decl);
16632 tree name = DECL_NAME (decl);
16634 scope = tsubst (scope, args, complain, in_decl);
16635 decl = lookup_qualified_name (scope, name,
16636 /*is_type_p=*/false,
16637 /*complain=*/false);
16638 if (decl == error_mark_node || TREE_CODE (decl) == TREE_LIST)
16639 qualified_name_lookup_error (scope, name, decl, input_location);
16640 else
16641 finish_local_using_decl (decl, scope, name);
16643 else if (is_capture_proxy (decl)
16644 && !DECL_TEMPLATE_INSTANTIATION (current_function_decl))
16646 /* We're in tsubst_lambda_expr, we've already inserted a new
16647 capture proxy, so look it up and register it. */
16648 tree inst;
16649 if (DECL_PACK_P (decl))
16651 inst = (retrieve_local_specialization
16652 (DECL_CAPTURED_VARIABLE (decl)));
16653 gcc_assert (TREE_CODE (inst) == NONTYPE_ARGUMENT_PACK);
16655 else
16657 inst = lookup_name_real (DECL_NAME (decl), 0, 0,
16658 /*block_p=*/true, 0, LOOKUP_HIDDEN);
16659 gcc_assert (inst != decl && is_capture_proxy (inst));
16661 register_local_specialization (inst, decl);
16662 break;
16664 else if (DECL_IMPLICIT_TYPEDEF_P (decl)
16665 && LAMBDA_TYPE_P (TREE_TYPE (decl)))
16666 /* Don't copy the old closure; we'll create a new one in
16667 tsubst_lambda_expr. */
16668 break;
16669 else
16671 init = DECL_INITIAL (decl);
16672 decl = tsubst (decl, args, complain, in_decl);
16673 if (decl != error_mark_node)
16675 /* By marking the declaration as instantiated, we avoid
16676 trying to instantiate it. Since instantiate_decl can't
16677 handle local variables, and since we've already done
16678 all that needs to be done, that's the right thing to
16679 do. */
16680 if (VAR_P (decl))
16681 DECL_TEMPLATE_INSTANTIATED (decl) = 1;
16682 if (VAR_P (decl)
16683 && ANON_AGGR_TYPE_P (TREE_TYPE (decl)))
16684 /* Anonymous aggregates are a special case. */
16685 finish_anon_union (decl);
16686 else if (is_capture_proxy (DECL_EXPR_DECL (t)))
16688 DECL_CONTEXT (decl) = current_function_decl;
16689 if (DECL_NAME (decl) == this_identifier)
16691 tree lam = DECL_CONTEXT (current_function_decl);
16692 lam = CLASSTYPE_LAMBDA_EXPR (lam);
16693 LAMBDA_EXPR_THIS_CAPTURE (lam) = decl;
16695 insert_capture_proxy (decl);
16697 else if (DECL_IMPLICIT_TYPEDEF_P (t))
16698 /* We already did a pushtag. */;
16699 else if (TREE_CODE (decl) == FUNCTION_DECL
16700 && DECL_OMP_DECLARE_REDUCTION_P (decl)
16701 && DECL_FUNCTION_SCOPE_P (pattern_decl))
16703 DECL_CONTEXT (decl) = NULL_TREE;
16704 pushdecl (decl);
16705 DECL_CONTEXT (decl) = current_function_decl;
16706 cp_check_omp_declare_reduction (decl);
16708 else
16710 int const_init = false;
16711 maybe_push_decl (decl);
16712 if (VAR_P (decl)
16713 && DECL_PRETTY_FUNCTION_P (decl))
16715 /* For __PRETTY_FUNCTION__ we have to adjust the
16716 initializer. */
16717 const char *const name
16718 = cxx_printable_name (current_function_decl, 2);
16719 init = cp_fname_init (name, &TREE_TYPE (decl));
16721 else
16722 init = tsubst_init (init, decl, args, complain, in_decl);
16724 if (VAR_P (decl))
16725 const_init = (DECL_INITIALIZED_BY_CONSTANT_EXPRESSION_P
16726 (pattern_decl));
16727 if (VAR_P (decl)
16728 && DECL_DECOMPOSITION_P (decl)
16729 && TREE_TYPE (pattern_decl) != error_mark_node)
16731 unsigned int cnt;
16732 tree first;
16733 tree ndecl
16734 = tsubst_decomp_names (decl, pattern_decl, args,
16735 complain, in_decl, &first, &cnt);
16736 if (ndecl != error_mark_node)
16737 cp_maybe_mangle_decomp (ndecl, first, cnt);
16738 cp_finish_decl (decl, init, const_init, NULL_TREE, 0);
16739 if (ndecl != error_mark_node)
16740 cp_finish_decomp (ndecl, first, cnt);
16742 else
16743 cp_finish_decl (decl, init, const_init, NULL_TREE, 0);
16748 break;
16751 case FOR_STMT:
16752 stmt = begin_for_stmt (NULL_TREE, NULL_TREE);
16753 RECUR (FOR_INIT_STMT (t));
16754 finish_init_stmt (stmt);
16755 tmp = RECUR (FOR_COND (t));
16756 finish_for_cond (tmp, stmt, false, 0);
16757 tmp = RECUR (FOR_EXPR (t));
16758 finish_for_expr (tmp, stmt);
16760 bool prev = note_iteration_stmt_body_start ();
16761 RECUR (FOR_BODY (t));
16762 note_iteration_stmt_body_end (prev);
16764 finish_for_stmt (stmt);
16765 break;
16767 case RANGE_FOR_STMT:
16769 /* Construct another range_for, if this is not a final
16770 substitution (for inside inside a generic lambda of a
16771 template). Otherwise convert to a regular for. */
16772 tree decl, expr;
16773 stmt = (processing_template_decl
16774 ? begin_range_for_stmt (NULL_TREE, NULL_TREE)
16775 : begin_for_stmt (NULL_TREE, NULL_TREE));
16776 decl = RANGE_FOR_DECL (t);
16777 decl = tsubst (decl, args, complain, in_decl);
16778 maybe_push_decl (decl);
16779 expr = RECUR (RANGE_FOR_EXPR (t));
16781 tree decomp_first = NULL_TREE;
16782 unsigned decomp_cnt = 0;
16783 if (VAR_P (decl) && DECL_DECOMPOSITION_P (decl))
16784 decl = tsubst_decomp_names (decl, RANGE_FOR_DECL (t), args,
16785 complain, in_decl,
16786 &decomp_first, &decomp_cnt);
16788 if (processing_template_decl)
16790 RANGE_FOR_IVDEP (stmt) = RANGE_FOR_IVDEP (t);
16791 RANGE_FOR_UNROLL (stmt) = RANGE_FOR_UNROLL (t);
16792 finish_range_for_decl (stmt, decl, expr);
16794 else
16796 unsigned short unroll = (RANGE_FOR_UNROLL (t)
16797 ? tree_to_uhwi (RANGE_FOR_UNROLL (t)) : 0);
16798 stmt = cp_convert_range_for (stmt, decl, expr,
16799 decomp_first, decomp_cnt,
16800 RANGE_FOR_IVDEP (t), unroll);
16803 bool prev = note_iteration_stmt_body_start ();
16804 RECUR (RANGE_FOR_BODY (t));
16805 note_iteration_stmt_body_end (prev);
16806 finish_for_stmt (stmt);
16808 break;
16810 case WHILE_STMT:
16811 stmt = begin_while_stmt ();
16812 tmp = RECUR (WHILE_COND (t));
16813 finish_while_stmt_cond (tmp, stmt, false, 0);
16815 bool prev = note_iteration_stmt_body_start ();
16816 RECUR (WHILE_BODY (t));
16817 note_iteration_stmt_body_end (prev);
16819 finish_while_stmt (stmt);
16820 break;
16822 case DO_STMT:
16823 stmt = begin_do_stmt ();
16825 bool prev = note_iteration_stmt_body_start ();
16826 RECUR (DO_BODY (t));
16827 note_iteration_stmt_body_end (prev);
16829 finish_do_body (stmt);
16830 tmp = RECUR (DO_COND (t));
16831 finish_do_stmt (tmp, stmt, false, 0);
16832 break;
16834 case IF_STMT:
16835 stmt = begin_if_stmt ();
16836 IF_STMT_CONSTEXPR_P (stmt) = IF_STMT_CONSTEXPR_P (t);
16837 if (IF_STMT_CONSTEXPR_P (t))
16838 args = add_extra_args (IF_STMT_EXTRA_ARGS (t), args);
16839 tmp = RECUR (IF_COND (t));
16840 tmp = finish_if_stmt_cond (tmp, stmt);
16841 if (IF_STMT_CONSTEXPR_P (t)
16842 && instantiation_dependent_expression_p (tmp))
16844 /* We're partially instantiating a generic lambda, but the condition
16845 of the constexpr if is still dependent. Don't substitute into the
16846 branches now, just remember the template arguments. */
16847 do_poplevel (IF_SCOPE (stmt));
16848 IF_COND (stmt) = IF_COND (t);
16849 THEN_CLAUSE (stmt) = THEN_CLAUSE (t);
16850 ELSE_CLAUSE (stmt) = ELSE_CLAUSE (t);
16851 IF_STMT_EXTRA_ARGS (stmt) = build_extra_args (t, args, complain);
16852 add_stmt (stmt);
16853 break;
16855 if (IF_STMT_CONSTEXPR_P (t) && integer_zerop (tmp))
16856 /* Don't instantiate the THEN_CLAUSE. */;
16857 else
16859 bool inhibit = integer_zerop (fold_non_dependent_expr (tmp));
16860 if (inhibit)
16861 ++c_inhibit_evaluation_warnings;
16862 RECUR (THEN_CLAUSE (t));
16863 if (inhibit)
16864 --c_inhibit_evaluation_warnings;
16866 finish_then_clause (stmt);
16868 if (IF_STMT_CONSTEXPR_P (t) && integer_nonzerop (tmp))
16869 /* Don't instantiate the ELSE_CLAUSE. */;
16870 else if (ELSE_CLAUSE (t))
16872 bool inhibit = integer_nonzerop (fold_non_dependent_expr (tmp));
16873 begin_else_clause (stmt);
16874 if (inhibit)
16875 ++c_inhibit_evaluation_warnings;
16876 RECUR (ELSE_CLAUSE (t));
16877 if (inhibit)
16878 --c_inhibit_evaluation_warnings;
16879 finish_else_clause (stmt);
16882 finish_if_stmt (stmt);
16883 break;
16885 case BIND_EXPR:
16886 if (BIND_EXPR_BODY_BLOCK (t))
16887 stmt = begin_function_body ();
16888 else
16889 stmt = begin_compound_stmt (BIND_EXPR_TRY_BLOCK (t)
16890 ? BCS_TRY_BLOCK : 0);
16892 RECUR (BIND_EXPR_BODY (t));
16894 if (BIND_EXPR_BODY_BLOCK (t))
16895 finish_function_body (stmt);
16896 else
16897 finish_compound_stmt (stmt);
16898 break;
16900 case BREAK_STMT:
16901 finish_break_stmt ();
16902 break;
16904 case CONTINUE_STMT:
16905 finish_continue_stmt ();
16906 break;
16908 case SWITCH_STMT:
16909 stmt = begin_switch_stmt ();
16910 tmp = RECUR (SWITCH_STMT_COND (t));
16911 finish_switch_cond (tmp, stmt);
16912 RECUR (SWITCH_STMT_BODY (t));
16913 finish_switch_stmt (stmt);
16914 break;
16916 case CASE_LABEL_EXPR:
16918 tree low = RECUR (CASE_LOW (t));
16919 tree high = RECUR (CASE_HIGH (t));
16920 tree l = finish_case_label (EXPR_LOCATION (t), low, high);
16921 if (l && TREE_CODE (l) == CASE_LABEL_EXPR)
16922 FALLTHROUGH_LABEL_P (CASE_LABEL (l))
16923 = FALLTHROUGH_LABEL_P (CASE_LABEL (t));
16925 break;
16927 case LABEL_EXPR:
16929 tree decl = LABEL_EXPR_LABEL (t);
16930 tree label;
16932 label = finish_label_stmt (DECL_NAME (decl));
16933 if (TREE_CODE (label) == LABEL_DECL)
16934 FALLTHROUGH_LABEL_P (label) = FALLTHROUGH_LABEL_P (decl);
16935 if (DECL_ATTRIBUTES (decl) != NULL_TREE)
16936 cplus_decl_attributes (&label, DECL_ATTRIBUTES (decl), 0);
16938 break;
16940 case GOTO_EXPR:
16941 tmp = GOTO_DESTINATION (t);
16942 if (TREE_CODE (tmp) != LABEL_DECL)
16943 /* Computed goto's must be tsubst'd into. On the other hand,
16944 non-computed gotos must not be; the identifier in question
16945 will have no binding. */
16946 tmp = RECUR (tmp);
16947 else
16948 tmp = DECL_NAME (tmp);
16949 finish_goto_stmt (tmp);
16950 break;
16952 case ASM_EXPR:
16954 tree string = RECUR (ASM_STRING (t));
16955 tree outputs = tsubst_copy_asm_operands (ASM_OUTPUTS (t), args,
16956 complain, in_decl);
16957 tree inputs = tsubst_copy_asm_operands (ASM_INPUTS (t), args,
16958 complain, in_decl);
16959 tree clobbers = tsubst_copy_asm_operands (ASM_CLOBBERS (t), args,
16960 complain, in_decl);
16961 tree labels = tsubst_copy_asm_operands (ASM_LABELS (t), args,
16962 complain, in_decl);
16963 tmp = finish_asm_stmt (ASM_VOLATILE_P (t), string, outputs, inputs,
16964 clobbers, labels);
16965 tree asm_expr = tmp;
16966 if (TREE_CODE (asm_expr) == CLEANUP_POINT_EXPR)
16967 asm_expr = TREE_OPERAND (asm_expr, 0);
16968 ASM_INPUT_P (asm_expr) = ASM_INPUT_P (t);
16970 break;
16972 case TRY_BLOCK:
16973 if (CLEANUP_P (t))
16975 stmt = begin_try_block ();
16976 RECUR (TRY_STMTS (t));
16977 finish_cleanup_try_block (stmt);
16978 finish_cleanup (RECUR (TRY_HANDLERS (t)), stmt);
16980 else
16982 tree compound_stmt = NULL_TREE;
16984 if (FN_TRY_BLOCK_P (t))
16985 stmt = begin_function_try_block (&compound_stmt);
16986 else
16987 stmt = begin_try_block ();
16989 RECUR (TRY_STMTS (t));
16991 if (FN_TRY_BLOCK_P (t))
16992 finish_function_try_block (stmt);
16993 else
16994 finish_try_block (stmt);
16996 RECUR (TRY_HANDLERS (t));
16997 if (FN_TRY_BLOCK_P (t))
16998 finish_function_handler_sequence (stmt, compound_stmt);
16999 else
17000 finish_handler_sequence (stmt);
17002 break;
17004 case HANDLER:
17006 tree decl = HANDLER_PARMS (t);
17008 if (decl)
17010 decl = tsubst (decl, args, complain, in_decl);
17011 /* Prevent instantiate_decl from trying to instantiate
17012 this variable. We've already done all that needs to be
17013 done. */
17014 if (decl != error_mark_node)
17015 DECL_TEMPLATE_INSTANTIATED (decl) = 1;
17017 stmt = begin_handler ();
17018 finish_handler_parms (decl, stmt);
17019 RECUR (HANDLER_BODY (t));
17020 finish_handler (stmt);
17022 break;
17024 case TAG_DEFN:
17025 tmp = tsubst (TREE_TYPE (t), args, complain, NULL_TREE);
17026 if (CLASS_TYPE_P (tmp))
17028 /* Local classes are not independent templates; they are
17029 instantiated along with their containing function. And this
17030 way we don't have to deal with pushing out of one local class
17031 to instantiate a member of another local class. */
17032 /* Closures are handled by the LAMBDA_EXPR. */
17033 gcc_assert (!LAMBDA_TYPE_P (TREE_TYPE (t)));
17034 complete_type (tmp);
17035 for (tree fld = TYPE_FIELDS (tmp); fld; fld = DECL_CHAIN (fld))
17036 if ((VAR_P (fld)
17037 || (TREE_CODE (fld) == FUNCTION_DECL
17038 && !DECL_ARTIFICIAL (fld)))
17039 && DECL_TEMPLATE_INSTANTIATION (fld))
17040 instantiate_decl (fld, /*defer_ok=*/false,
17041 /*expl_inst_class=*/false);
17043 break;
17045 case STATIC_ASSERT:
17047 tree condition;
17049 ++c_inhibit_evaluation_warnings;
17050 condition =
17051 tsubst_expr (STATIC_ASSERT_CONDITION (t),
17052 args,
17053 complain, in_decl,
17054 /*integral_constant_expression_p=*/true);
17055 --c_inhibit_evaluation_warnings;
17057 finish_static_assert (condition,
17058 STATIC_ASSERT_MESSAGE (t),
17059 STATIC_ASSERT_SOURCE_LOCATION (t),
17060 /*member_p=*/false);
17062 break;
17064 case OACC_KERNELS:
17065 case OACC_PARALLEL:
17066 tmp = tsubst_omp_clauses (OMP_CLAUSES (t), C_ORT_ACC, args, complain,
17067 in_decl);
17068 stmt = begin_omp_parallel ();
17069 RECUR (OMP_BODY (t));
17070 finish_omp_construct (TREE_CODE (t), stmt, tmp);
17071 break;
17073 case OMP_PARALLEL:
17074 r = push_omp_privatization_clauses (OMP_PARALLEL_COMBINED (t));
17075 tmp = tsubst_omp_clauses (OMP_PARALLEL_CLAUSES (t), C_ORT_OMP, args,
17076 complain, in_decl);
17077 if (OMP_PARALLEL_COMBINED (t))
17078 omp_parallel_combined_clauses = &tmp;
17079 stmt = begin_omp_parallel ();
17080 RECUR (OMP_PARALLEL_BODY (t));
17081 gcc_assert (omp_parallel_combined_clauses == NULL);
17082 OMP_PARALLEL_COMBINED (finish_omp_parallel (tmp, stmt))
17083 = OMP_PARALLEL_COMBINED (t);
17084 pop_omp_privatization_clauses (r);
17085 break;
17087 case OMP_TASK:
17088 r = push_omp_privatization_clauses (false);
17089 tmp = tsubst_omp_clauses (OMP_TASK_CLAUSES (t), C_ORT_OMP, args,
17090 complain, in_decl);
17091 stmt = begin_omp_task ();
17092 RECUR (OMP_TASK_BODY (t));
17093 finish_omp_task (tmp, stmt);
17094 pop_omp_privatization_clauses (r);
17095 break;
17097 case OMP_FOR:
17098 case OMP_SIMD:
17099 case OMP_DISTRIBUTE:
17100 case OMP_TASKLOOP:
17101 case OACC_LOOP:
17103 tree clauses, body, pre_body;
17104 tree declv = NULL_TREE, initv = NULL_TREE, condv = NULL_TREE;
17105 tree orig_declv = NULL_TREE;
17106 tree incrv = NULL_TREE;
17107 enum c_omp_region_type ort = C_ORT_OMP;
17108 int i;
17110 if (TREE_CODE (t) == OACC_LOOP)
17111 ort = C_ORT_ACC;
17113 r = push_omp_privatization_clauses (OMP_FOR_INIT (t) == NULL_TREE);
17114 clauses = tsubst_omp_clauses (OMP_FOR_CLAUSES (t), ort, args, complain,
17115 in_decl);
17116 if (OMP_FOR_INIT (t) != NULL_TREE)
17118 declv = make_tree_vec (TREE_VEC_LENGTH (OMP_FOR_INIT (t)));
17119 if (OMP_FOR_ORIG_DECLS (t))
17120 orig_declv = make_tree_vec (TREE_VEC_LENGTH (OMP_FOR_INIT (t)));
17121 initv = make_tree_vec (TREE_VEC_LENGTH (OMP_FOR_INIT (t)));
17122 condv = make_tree_vec (TREE_VEC_LENGTH (OMP_FOR_INIT (t)));
17123 incrv = make_tree_vec (TREE_VEC_LENGTH (OMP_FOR_INIT (t)));
17126 stmt = begin_omp_structured_block ();
17128 pre_body = push_stmt_list ();
17129 RECUR (OMP_FOR_PRE_BODY (t));
17130 pre_body = pop_stmt_list (pre_body);
17132 if (OMP_FOR_INIT (t) != NULL_TREE)
17133 for (i = 0; i < TREE_VEC_LENGTH (OMP_FOR_INIT (t)); i++)
17134 tsubst_omp_for_iterator (t, i, declv, orig_declv, initv, condv,
17135 incrv, &clauses, args, complain, in_decl,
17136 integral_constant_expression_p);
17137 omp_parallel_combined_clauses = NULL;
17139 body = push_stmt_list ();
17140 RECUR (OMP_FOR_BODY (t));
17141 body = pop_stmt_list (body);
17143 if (OMP_FOR_INIT (t) != NULL_TREE)
17144 t = finish_omp_for (EXPR_LOCATION (t), TREE_CODE (t), declv,
17145 orig_declv, initv, condv, incrv, body, pre_body,
17146 NULL, clauses);
17147 else
17149 t = make_node (TREE_CODE (t));
17150 TREE_TYPE (t) = void_type_node;
17151 OMP_FOR_BODY (t) = body;
17152 OMP_FOR_PRE_BODY (t) = pre_body;
17153 OMP_FOR_CLAUSES (t) = clauses;
17154 SET_EXPR_LOCATION (t, EXPR_LOCATION (t));
17155 add_stmt (t);
17158 add_stmt (finish_omp_structured_block (stmt));
17159 pop_omp_privatization_clauses (r);
17161 break;
17163 case OMP_SECTIONS:
17164 omp_parallel_combined_clauses = NULL;
17165 /* FALLTHRU */
17166 case OMP_SINGLE:
17167 case OMP_TEAMS:
17168 case OMP_CRITICAL:
17169 r = push_omp_privatization_clauses (TREE_CODE (t) == OMP_TEAMS
17170 && OMP_TEAMS_COMBINED (t));
17171 tmp = tsubst_omp_clauses (OMP_CLAUSES (t), C_ORT_OMP, args, complain,
17172 in_decl);
17173 stmt = push_stmt_list ();
17174 RECUR (OMP_BODY (t));
17175 stmt = pop_stmt_list (stmt);
17177 t = copy_node (t);
17178 OMP_BODY (t) = stmt;
17179 OMP_CLAUSES (t) = tmp;
17180 add_stmt (t);
17181 pop_omp_privatization_clauses (r);
17182 break;
17184 case OACC_DATA:
17185 case OMP_TARGET_DATA:
17186 case OMP_TARGET:
17187 tmp = tsubst_omp_clauses (OMP_CLAUSES (t), (TREE_CODE (t) == OACC_DATA)
17188 ? C_ORT_ACC : C_ORT_OMP, args, complain,
17189 in_decl);
17190 keep_next_level (true);
17191 stmt = begin_omp_structured_block ();
17193 RECUR (OMP_BODY (t));
17194 stmt = finish_omp_structured_block (stmt);
17196 t = copy_node (t);
17197 OMP_BODY (t) = stmt;
17198 OMP_CLAUSES (t) = tmp;
17199 if (TREE_CODE (t) == OMP_TARGET && OMP_TARGET_COMBINED (t))
17201 tree teams = cp_walk_tree (&stmt, tsubst_find_omp_teams, NULL, NULL);
17202 if (teams)
17204 /* For combined target teams, ensure the num_teams and
17205 thread_limit clause expressions are evaluated on the host,
17206 before entering the target construct. */
17207 tree c;
17208 for (c = OMP_TEAMS_CLAUSES (teams);
17209 c; c = OMP_CLAUSE_CHAIN (c))
17210 if ((OMP_CLAUSE_CODE (c) == OMP_CLAUSE_NUM_TEAMS
17211 || OMP_CLAUSE_CODE (c) == OMP_CLAUSE_THREAD_LIMIT)
17212 && TREE_CODE (OMP_CLAUSE_OPERAND (c, 0)) != INTEGER_CST)
17214 tree expr = OMP_CLAUSE_OPERAND (c, 0);
17215 expr = force_target_expr (TREE_TYPE (expr), expr, tf_none);
17216 if (expr == error_mark_node)
17217 continue;
17218 tmp = TARGET_EXPR_SLOT (expr);
17219 add_stmt (expr);
17220 OMP_CLAUSE_OPERAND (c, 0) = expr;
17221 tree tc = build_omp_clause (OMP_CLAUSE_LOCATION (c),
17222 OMP_CLAUSE_FIRSTPRIVATE);
17223 OMP_CLAUSE_DECL (tc) = tmp;
17224 OMP_CLAUSE_CHAIN (tc) = OMP_TARGET_CLAUSES (t);
17225 OMP_TARGET_CLAUSES (t) = tc;
17229 add_stmt (t);
17230 break;
17232 case OACC_DECLARE:
17233 t = copy_node (t);
17234 tmp = tsubst_omp_clauses (OACC_DECLARE_CLAUSES (t), C_ORT_ACC, args,
17235 complain, in_decl);
17236 OACC_DECLARE_CLAUSES (t) = tmp;
17237 add_stmt (t);
17238 break;
17240 case OMP_TARGET_UPDATE:
17241 case OMP_TARGET_ENTER_DATA:
17242 case OMP_TARGET_EXIT_DATA:
17243 tmp = tsubst_omp_clauses (OMP_STANDALONE_CLAUSES (t), C_ORT_OMP, args,
17244 complain, in_decl);
17245 t = copy_node (t);
17246 OMP_STANDALONE_CLAUSES (t) = tmp;
17247 add_stmt (t);
17248 break;
17250 case OACC_ENTER_DATA:
17251 case OACC_EXIT_DATA:
17252 case OACC_UPDATE:
17253 tmp = tsubst_omp_clauses (OMP_STANDALONE_CLAUSES (t), C_ORT_ACC, args,
17254 complain, in_decl);
17255 t = copy_node (t);
17256 OMP_STANDALONE_CLAUSES (t) = tmp;
17257 add_stmt (t);
17258 break;
17260 case OMP_ORDERED:
17261 tmp = tsubst_omp_clauses (OMP_ORDERED_CLAUSES (t), C_ORT_OMP, args,
17262 complain, in_decl);
17263 stmt = push_stmt_list ();
17264 RECUR (OMP_BODY (t));
17265 stmt = pop_stmt_list (stmt);
17267 t = copy_node (t);
17268 OMP_BODY (t) = stmt;
17269 OMP_ORDERED_CLAUSES (t) = tmp;
17270 add_stmt (t);
17271 break;
17273 case OMP_SECTION:
17274 case OMP_MASTER:
17275 case OMP_TASKGROUP:
17276 stmt = push_stmt_list ();
17277 RECUR (OMP_BODY (t));
17278 stmt = pop_stmt_list (stmt);
17280 t = copy_node (t);
17281 OMP_BODY (t) = stmt;
17282 add_stmt (t);
17283 break;
17285 case OMP_ATOMIC:
17286 gcc_assert (OMP_ATOMIC_DEPENDENT_P (t));
17287 if (TREE_CODE (TREE_OPERAND (t, 1)) != MODIFY_EXPR)
17289 tree op1 = TREE_OPERAND (t, 1);
17290 tree rhs1 = NULL_TREE;
17291 tree lhs, rhs;
17292 if (TREE_CODE (op1) == COMPOUND_EXPR)
17294 rhs1 = RECUR (TREE_OPERAND (op1, 0));
17295 op1 = TREE_OPERAND (op1, 1);
17297 lhs = RECUR (TREE_OPERAND (op1, 0));
17298 rhs = RECUR (TREE_OPERAND (op1, 1));
17299 finish_omp_atomic (OMP_ATOMIC, TREE_CODE (op1), lhs, rhs,
17300 NULL_TREE, NULL_TREE, rhs1,
17301 OMP_ATOMIC_SEQ_CST (t));
17303 else
17305 tree op1 = TREE_OPERAND (t, 1);
17306 tree v = NULL_TREE, lhs, rhs = NULL_TREE, lhs1 = NULL_TREE;
17307 tree rhs1 = NULL_TREE;
17308 enum tree_code code = TREE_CODE (TREE_OPERAND (op1, 1));
17309 enum tree_code opcode = NOP_EXPR;
17310 if (code == OMP_ATOMIC_READ)
17312 v = RECUR (TREE_OPERAND (op1, 0));
17313 lhs = RECUR (TREE_OPERAND (TREE_OPERAND (op1, 1), 0));
17315 else if (code == OMP_ATOMIC_CAPTURE_OLD
17316 || code == OMP_ATOMIC_CAPTURE_NEW)
17318 tree op11 = TREE_OPERAND (TREE_OPERAND (op1, 1), 1);
17319 v = RECUR (TREE_OPERAND (op1, 0));
17320 lhs1 = RECUR (TREE_OPERAND (TREE_OPERAND (op1, 1), 0));
17321 if (TREE_CODE (op11) == COMPOUND_EXPR)
17323 rhs1 = RECUR (TREE_OPERAND (op11, 0));
17324 op11 = TREE_OPERAND (op11, 1);
17326 lhs = RECUR (TREE_OPERAND (op11, 0));
17327 rhs = RECUR (TREE_OPERAND (op11, 1));
17328 opcode = TREE_CODE (op11);
17329 if (opcode == MODIFY_EXPR)
17330 opcode = NOP_EXPR;
17332 else
17334 code = OMP_ATOMIC;
17335 lhs = RECUR (TREE_OPERAND (op1, 0));
17336 rhs = RECUR (TREE_OPERAND (op1, 1));
17338 finish_omp_atomic (code, opcode, lhs, rhs, v, lhs1, rhs1,
17339 OMP_ATOMIC_SEQ_CST (t));
17341 break;
17343 case TRANSACTION_EXPR:
17345 int flags = 0;
17346 flags |= (TRANSACTION_EXPR_OUTER (t) ? TM_STMT_ATTR_OUTER : 0);
17347 flags |= (TRANSACTION_EXPR_RELAXED (t) ? TM_STMT_ATTR_RELAXED : 0);
17349 if (TRANSACTION_EXPR_IS_STMT (t))
17351 tree body = TRANSACTION_EXPR_BODY (t);
17352 tree noex = NULL_TREE;
17353 if (TREE_CODE (body) == MUST_NOT_THROW_EXPR)
17355 noex = MUST_NOT_THROW_COND (body);
17356 if (noex == NULL_TREE)
17357 noex = boolean_true_node;
17358 body = TREE_OPERAND (body, 0);
17360 stmt = begin_transaction_stmt (input_location, NULL, flags);
17361 RECUR (body);
17362 finish_transaction_stmt (stmt, NULL, flags, RECUR (noex));
17364 else
17366 stmt = build_transaction_expr (EXPR_LOCATION (t),
17367 RECUR (TRANSACTION_EXPR_BODY (t)),
17368 flags, NULL_TREE);
17369 RETURN (stmt);
17372 break;
17374 case MUST_NOT_THROW_EXPR:
17376 tree op0 = RECUR (TREE_OPERAND (t, 0));
17377 tree cond = RECUR (MUST_NOT_THROW_COND (t));
17378 RETURN (build_must_not_throw_expr (op0, cond));
17381 case EXPR_PACK_EXPANSION:
17382 error ("invalid use of pack expansion expression");
17383 RETURN (error_mark_node);
17385 case NONTYPE_ARGUMENT_PACK:
17386 error ("use %<...%> to expand argument pack");
17387 RETURN (error_mark_node);
17389 case COMPOUND_EXPR:
17390 tmp = RECUR (TREE_OPERAND (t, 0));
17391 if (tmp == NULL_TREE)
17392 /* If the first operand was a statement, we're done with it. */
17393 RETURN (RECUR (TREE_OPERAND (t, 1)));
17394 RETURN (build_x_compound_expr (EXPR_LOCATION (t), tmp,
17395 RECUR (TREE_OPERAND (t, 1)),
17396 complain));
17398 case ANNOTATE_EXPR:
17399 tmp = RECUR (TREE_OPERAND (t, 0));
17400 RETURN (build3_loc (EXPR_LOCATION (t), ANNOTATE_EXPR,
17401 TREE_TYPE (tmp), tmp,
17402 RECUR (TREE_OPERAND (t, 1)),
17403 RECUR (TREE_OPERAND (t, 2))));
17405 default:
17406 gcc_assert (!STATEMENT_CODE_P (TREE_CODE (t)));
17408 RETURN (tsubst_copy_and_build (t, args, complain, in_decl,
17409 /*function_p=*/false,
17410 integral_constant_expression_p));
17413 RETURN (NULL_TREE);
17414 out:
17415 input_location = loc;
17416 return r;
17417 #undef RECUR
17418 #undef RETURN
17421 /* Instantiate the special body of the artificial DECL_OMP_DECLARE_REDUCTION
17422 function. For description of the body see comment above
17423 cp_parser_omp_declare_reduction_exprs. */
17425 static void
17426 tsubst_omp_udr (tree t, tree args, tsubst_flags_t complain, tree in_decl)
17428 if (t == NULL_TREE || t == error_mark_node)
17429 return;
17431 gcc_assert (TREE_CODE (t) == STATEMENT_LIST);
17433 tree_stmt_iterator tsi;
17434 int i;
17435 tree stmts[7];
17436 memset (stmts, 0, sizeof stmts);
17437 for (i = 0, tsi = tsi_start (t);
17438 i < 7 && !tsi_end_p (tsi);
17439 i++, tsi_next (&tsi))
17440 stmts[i] = tsi_stmt (tsi);
17441 gcc_assert (tsi_end_p (tsi));
17443 if (i >= 3)
17445 gcc_assert (TREE_CODE (stmts[0]) == DECL_EXPR
17446 && TREE_CODE (stmts[1]) == DECL_EXPR);
17447 tree omp_out = tsubst (DECL_EXPR_DECL (stmts[0]),
17448 args, complain, in_decl);
17449 tree omp_in = tsubst (DECL_EXPR_DECL (stmts[1]),
17450 args, complain, in_decl);
17451 DECL_CONTEXT (omp_out) = current_function_decl;
17452 DECL_CONTEXT (omp_in) = current_function_decl;
17453 keep_next_level (true);
17454 tree block = begin_omp_structured_block ();
17455 tsubst_expr (stmts[2], args, complain, in_decl, false);
17456 block = finish_omp_structured_block (block);
17457 block = maybe_cleanup_point_expr_void (block);
17458 add_decl_expr (omp_out);
17459 if (TREE_NO_WARNING (DECL_EXPR_DECL (stmts[0])))
17460 TREE_NO_WARNING (omp_out) = 1;
17461 add_decl_expr (omp_in);
17462 finish_expr_stmt (block);
17464 if (i >= 6)
17466 gcc_assert (TREE_CODE (stmts[3]) == DECL_EXPR
17467 && TREE_CODE (stmts[4]) == DECL_EXPR);
17468 tree omp_priv = tsubst (DECL_EXPR_DECL (stmts[3]),
17469 args, complain, in_decl);
17470 tree omp_orig = tsubst (DECL_EXPR_DECL (stmts[4]),
17471 args, complain, in_decl);
17472 DECL_CONTEXT (omp_priv) = current_function_decl;
17473 DECL_CONTEXT (omp_orig) = current_function_decl;
17474 keep_next_level (true);
17475 tree block = begin_omp_structured_block ();
17476 tsubst_expr (stmts[5], args, complain, in_decl, false);
17477 block = finish_omp_structured_block (block);
17478 block = maybe_cleanup_point_expr_void (block);
17479 cp_walk_tree (&block, cp_remove_omp_priv_cleanup_stmt, omp_priv, NULL);
17480 add_decl_expr (omp_priv);
17481 add_decl_expr (omp_orig);
17482 finish_expr_stmt (block);
17483 if (i == 7)
17484 add_decl_expr (omp_orig);
17488 /* T is a postfix-expression that is not being used in a function
17489 call. Return the substituted version of T. */
17491 static tree
17492 tsubst_non_call_postfix_expression (tree t, tree args,
17493 tsubst_flags_t complain,
17494 tree in_decl)
17496 if (TREE_CODE (t) == SCOPE_REF)
17497 t = tsubst_qualified_id (t, args, complain, in_decl,
17498 /*done=*/false, /*address_p=*/false);
17499 else
17500 t = tsubst_copy_and_build (t, args, complain, in_decl,
17501 /*function_p=*/false,
17502 /*integral_constant_expression_p=*/false);
17504 return t;
17507 /* T is a LAMBDA_EXPR. Generate a new LAMBDA_EXPR for the current
17508 instantiation context. Instantiating a pack expansion containing a lambda
17509 might result in multiple lambdas all based on the same lambda in the
17510 template. */
17512 tree
17513 tsubst_lambda_expr (tree t, tree args, tsubst_flags_t complain, tree in_decl)
17515 tree oldfn = lambda_function (t);
17516 in_decl = oldfn;
17518 tree r = build_lambda_expr ();
17520 LAMBDA_EXPR_LOCATION (r)
17521 = LAMBDA_EXPR_LOCATION (t);
17522 LAMBDA_EXPR_DEFAULT_CAPTURE_MODE (r)
17523 = LAMBDA_EXPR_DEFAULT_CAPTURE_MODE (t);
17524 LAMBDA_EXPR_MUTABLE_P (r) = LAMBDA_EXPR_MUTABLE_P (t);
17526 if (LAMBDA_EXPR_EXTRA_SCOPE (t) == NULL_TREE)
17527 LAMBDA_EXPR_EXTRA_SCOPE (r) = NULL_TREE;
17528 else
17529 record_lambda_scope (r);
17531 gcc_assert (LAMBDA_EXPR_THIS_CAPTURE (t) == NULL_TREE
17532 && LAMBDA_EXPR_PENDING_PROXIES (t) == NULL);
17534 for (tree cap = LAMBDA_EXPR_CAPTURE_LIST (t); cap;
17535 cap = TREE_CHAIN (cap))
17537 tree field = TREE_PURPOSE (cap);
17538 if (PACK_EXPANSION_P (field))
17539 field = PACK_EXPANSION_PATTERN (field);
17540 field = tsubst_decl (field, args, complain);
17542 if (field == error_mark_node)
17543 return error_mark_node;
17545 tree init = TREE_VALUE (cap);
17546 if (PACK_EXPANSION_P (init))
17547 init = tsubst_pack_expansion (init, args, complain, in_decl);
17548 else
17549 init = tsubst_copy_and_build (init, args, complain, in_decl,
17550 /*fn*/false, /*constexpr*/false);
17552 if (TREE_CODE (field) == TREE_VEC)
17554 int len = TREE_VEC_LENGTH (field);
17555 gcc_assert (TREE_CODE (init) == TREE_VEC
17556 && TREE_VEC_LENGTH (init) == len);
17557 for (int i = 0; i < len; ++i)
17558 LAMBDA_EXPR_CAPTURE_LIST (r)
17559 = tree_cons (TREE_VEC_ELT (field, i),
17560 TREE_VEC_ELT (init, i),
17561 LAMBDA_EXPR_CAPTURE_LIST (r));
17563 else
17565 LAMBDA_EXPR_CAPTURE_LIST (r)
17566 = tree_cons (field, init, LAMBDA_EXPR_CAPTURE_LIST (r));
17568 if (id_equal (DECL_NAME (field), "__this"))
17569 LAMBDA_EXPR_THIS_CAPTURE (r) = field;
17573 tree type = begin_lambda_type (r);
17574 if (type == error_mark_node)
17575 return error_mark_node;
17577 /* Do this again now that LAMBDA_EXPR_EXTRA_SCOPE is set. */
17578 determine_visibility (TYPE_NAME (type));
17580 register_capture_members (LAMBDA_EXPR_CAPTURE_LIST (r));
17582 tree oldtmpl = (generic_lambda_fn_p (oldfn)
17583 ? DECL_TI_TEMPLATE (oldfn)
17584 : NULL_TREE);
17586 tree fntype = static_fn_type (oldfn);
17587 if (oldtmpl)
17588 ++processing_template_decl;
17589 fntype = tsubst (fntype, args, complain, in_decl);
17590 if (oldtmpl)
17591 --processing_template_decl;
17593 if (fntype == error_mark_node)
17594 r = error_mark_node;
17595 else
17597 /* Fix the type of 'this'. */
17598 fntype = build_memfn_type (fntype, type,
17599 type_memfn_quals (fntype),
17600 type_memfn_rqual (fntype));
17601 tree fn, tmpl;
17602 if (oldtmpl)
17604 tmpl = tsubst_template_decl (oldtmpl, args, complain, fntype);
17605 fn = DECL_TEMPLATE_RESULT (tmpl);
17606 finish_member_declaration (tmpl);
17608 else
17610 tmpl = NULL_TREE;
17611 fn = tsubst_function_decl (oldfn, args, complain, fntype);
17612 finish_member_declaration (fn);
17615 /* Let finish_function set this. */
17616 DECL_DECLARED_CONSTEXPR_P (fn) = false;
17618 bool nested = cfun;
17619 if (nested)
17620 push_function_context ();
17621 else
17622 /* Still increment function_depth so that we don't GC in the
17623 middle of an expression. */
17624 ++function_depth;
17626 local_specialization_stack s (lss_copy);
17628 tree body = start_lambda_function (fn, r);
17630 register_parameter_specializations (oldfn, fn);
17632 tsubst_expr (DECL_SAVED_TREE (oldfn), args, complain, r,
17633 /*constexpr*/false);
17635 finish_lambda_function (body);
17637 if (nested)
17638 pop_function_context ();
17639 else
17640 --function_depth;
17642 /* The capture list was built up in reverse order; fix that now. */
17643 LAMBDA_EXPR_CAPTURE_LIST (r)
17644 = nreverse (LAMBDA_EXPR_CAPTURE_LIST (r));
17646 LAMBDA_EXPR_THIS_CAPTURE (r) = NULL_TREE;
17648 maybe_add_lambda_conv_op (type);
17651 finish_struct (type, /*attr*/NULL_TREE);
17653 insert_pending_capture_proxies ();
17655 return r;
17658 /* Like tsubst but deals with expressions and performs semantic
17659 analysis. FUNCTION_P is true if T is the "F" in "F (ARGS)". */
17661 tree
17662 tsubst_copy_and_build (tree t,
17663 tree args,
17664 tsubst_flags_t complain,
17665 tree in_decl,
17666 bool function_p,
17667 bool integral_constant_expression_p)
17669 #define RETURN(EXP) do { retval = (EXP); goto out; } while(0)
17670 #define RECUR(NODE) \
17671 tsubst_copy_and_build (NODE, args, complain, in_decl, \
17672 /*function_p=*/false, \
17673 integral_constant_expression_p)
17675 tree retval, op1;
17676 location_t loc;
17678 if (t == NULL_TREE || t == error_mark_node)
17679 return t;
17681 loc = input_location;
17682 if (EXPR_HAS_LOCATION (t))
17683 input_location = EXPR_LOCATION (t);
17685 /* N3276 decltype magic only applies to calls at the top level or on the
17686 right side of a comma. */
17687 tsubst_flags_t decltype_flag = (complain & tf_decltype);
17688 complain &= ~tf_decltype;
17690 switch (TREE_CODE (t))
17692 case USING_DECL:
17693 t = DECL_NAME (t);
17694 /* Fall through. */
17695 case IDENTIFIER_NODE:
17697 tree decl;
17698 cp_id_kind idk;
17699 bool non_integral_constant_expression_p;
17700 const char *error_msg;
17702 if (IDENTIFIER_CONV_OP_P (t))
17704 tree new_type = tsubst (TREE_TYPE (t), args, complain, in_decl);
17705 t = make_conv_op_name (new_type);
17708 /* Look up the name. */
17709 decl = lookup_name (t);
17711 /* By convention, expressions use ERROR_MARK_NODE to indicate
17712 failure, not NULL_TREE. */
17713 if (decl == NULL_TREE)
17714 decl = error_mark_node;
17716 decl = finish_id_expression (t, decl, NULL_TREE,
17717 &idk,
17718 integral_constant_expression_p,
17719 /*allow_non_integral_constant_expression_p=*/(cxx_dialect >= cxx11),
17720 &non_integral_constant_expression_p,
17721 /*template_p=*/false,
17722 /*done=*/true,
17723 /*address_p=*/false,
17724 /*template_arg_p=*/false,
17725 &error_msg,
17726 input_location);
17727 if (error_msg)
17728 error (error_msg);
17729 if (!function_p && identifier_p (decl))
17731 if (complain & tf_error)
17732 unqualified_name_lookup_error (decl);
17733 decl = error_mark_node;
17735 RETURN (decl);
17738 case TEMPLATE_ID_EXPR:
17740 tree object;
17741 tree templ = RECUR (TREE_OPERAND (t, 0));
17742 tree targs = TREE_OPERAND (t, 1);
17744 if (targs)
17745 targs = tsubst_template_args (targs, args, complain, in_decl);
17746 if (targs == error_mark_node)
17747 RETURN (error_mark_node);
17749 if (TREE_CODE (templ) == SCOPE_REF)
17751 tree name = TREE_OPERAND (templ, 1);
17752 tree tid = lookup_template_function (name, targs);
17753 TREE_OPERAND (templ, 1) = tid;
17754 RETURN (templ);
17757 if (variable_template_p (templ))
17758 RETURN (lookup_and_finish_template_variable (templ, targs, complain));
17760 if (TREE_CODE (templ) == COMPONENT_REF)
17762 object = TREE_OPERAND (templ, 0);
17763 templ = TREE_OPERAND (templ, 1);
17765 else
17766 object = NULL_TREE;
17767 templ = lookup_template_function (templ, targs);
17769 if (object)
17770 RETURN (build3 (COMPONENT_REF, TREE_TYPE (templ),
17771 object, templ, NULL_TREE));
17772 else
17773 RETURN (baselink_for_fns (templ));
17776 case INDIRECT_REF:
17778 tree r = RECUR (TREE_OPERAND (t, 0));
17780 if (REFERENCE_REF_P (t))
17782 /* A type conversion to reference type will be enclosed in
17783 such an indirect ref, but the substitution of the cast
17784 will have also added such an indirect ref. */
17785 r = convert_from_reference (r);
17787 else
17788 r = build_x_indirect_ref (input_location, r, RO_UNARY_STAR,
17789 complain|decltype_flag);
17791 if (REF_PARENTHESIZED_P (t))
17792 r = force_paren_expr (r);
17794 RETURN (r);
17797 case NOP_EXPR:
17799 tree type = tsubst (TREE_TYPE (t), args, complain, in_decl);
17800 tree op0 = RECUR (TREE_OPERAND (t, 0));
17801 RETURN (build_nop (type, op0));
17804 case IMPLICIT_CONV_EXPR:
17806 tree type = tsubst (TREE_TYPE (t), args, complain, in_decl);
17807 tree expr = RECUR (TREE_OPERAND (t, 0));
17808 if (dependent_type_p (type) || type_dependent_expression_p (expr))
17810 retval = copy_node (t);
17811 TREE_TYPE (retval) = type;
17812 TREE_OPERAND (retval, 0) = expr;
17813 RETURN (retval);
17815 if (IMPLICIT_CONV_EXPR_NONTYPE_ARG (t))
17816 /* We'll pass this to convert_nontype_argument again, we don't need
17817 to actually perform any conversion here. */
17818 RETURN (expr);
17819 int flags = LOOKUP_IMPLICIT;
17820 if (IMPLICIT_CONV_EXPR_DIRECT_INIT (t))
17821 flags = LOOKUP_NORMAL;
17822 RETURN (perform_implicit_conversion_flags (type, expr, complain,
17823 flags));
17826 case CONVERT_EXPR:
17828 tree type = tsubst (TREE_TYPE (t), args, complain, in_decl);
17829 tree op0 = RECUR (TREE_OPERAND (t, 0));
17830 if (op0 == error_mark_node)
17831 RETURN (error_mark_node);
17832 RETURN (build1 (CONVERT_EXPR, type, op0));
17835 case CAST_EXPR:
17836 case REINTERPRET_CAST_EXPR:
17837 case CONST_CAST_EXPR:
17838 case DYNAMIC_CAST_EXPR:
17839 case STATIC_CAST_EXPR:
17841 tree type;
17842 tree op, r = NULL_TREE;
17844 type = tsubst (TREE_TYPE (t), args, complain, in_decl);
17845 if (integral_constant_expression_p
17846 && !cast_valid_in_integral_constant_expression_p (type))
17848 if (complain & tf_error)
17849 error ("a cast to a type other than an integral or "
17850 "enumeration type cannot appear in a constant-expression");
17851 RETURN (error_mark_node);
17854 op = RECUR (TREE_OPERAND (t, 0));
17856 warning_sentinel s(warn_useless_cast);
17857 warning_sentinel s2(warn_ignored_qualifiers);
17858 switch (TREE_CODE (t))
17860 case CAST_EXPR:
17861 r = build_functional_cast (type, op, complain);
17862 break;
17863 case REINTERPRET_CAST_EXPR:
17864 r = build_reinterpret_cast (type, op, complain);
17865 break;
17866 case CONST_CAST_EXPR:
17867 r = build_const_cast (type, op, complain);
17868 break;
17869 case DYNAMIC_CAST_EXPR:
17870 r = build_dynamic_cast (type, op, complain);
17871 break;
17872 case STATIC_CAST_EXPR:
17873 r = build_static_cast (type, op, complain);
17874 break;
17875 default:
17876 gcc_unreachable ();
17879 RETURN (r);
17882 case POSTDECREMENT_EXPR:
17883 case POSTINCREMENT_EXPR:
17884 op1 = tsubst_non_call_postfix_expression (TREE_OPERAND (t, 0),
17885 args, complain, in_decl);
17886 RETURN (build_x_unary_op (input_location, TREE_CODE (t), op1,
17887 complain|decltype_flag));
17889 case PREDECREMENT_EXPR:
17890 case PREINCREMENT_EXPR:
17891 case NEGATE_EXPR:
17892 case BIT_NOT_EXPR:
17893 case ABS_EXPR:
17894 case TRUTH_NOT_EXPR:
17895 case UNARY_PLUS_EXPR: /* Unary + */
17896 case REALPART_EXPR:
17897 case IMAGPART_EXPR:
17898 RETURN (build_x_unary_op (input_location, TREE_CODE (t),
17899 RECUR (TREE_OPERAND (t, 0)),
17900 complain|decltype_flag));
17902 case FIX_TRUNC_EXPR:
17903 gcc_unreachable ();
17905 case ADDR_EXPR:
17906 op1 = TREE_OPERAND (t, 0);
17907 if (TREE_CODE (op1) == LABEL_DECL)
17908 RETURN (finish_label_address_expr (DECL_NAME (op1),
17909 EXPR_LOCATION (op1)));
17910 if (TREE_CODE (op1) == SCOPE_REF)
17911 op1 = tsubst_qualified_id (op1, args, complain, in_decl,
17912 /*done=*/true, /*address_p=*/true);
17913 else
17914 op1 = tsubst_non_call_postfix_expression (op1, args, complain,
17915 in_decl);
17916 RETURN (build_x_unary_op (input_location, ADDR_EXPR, op1,
17917 complain|decltype_flag));
17919 case PLUS_EXPR:
17920 case MINUS_EXPR:
17921 case MULT_EXPR:
17922 case TRUNC_DIV_EXPR:
17923 case CEIL_DIV_EXPR:
17924 case FLOOR_DIV_EXPR:
17925 case ROUND_DIV_EXPR:
17926 case EXACT_DIV_EXPR:
17927 case BIT_AND_EXPR:
17928 case BIT_IOR_EXPR:
17929 case BIT_XOR_EXPR:
17930 case TRUNC_MOD_EXPR:
17931 case FLOOR_MOD_EXPR:
17932 case TRUTH_ANDIF_EXPR:
17933 case TRUTH_ORIF_EXPR:
17934 case TRUTH_AND_EXPR:
17935 case TRUTH_OR_EXPR:
17936 case RSHIFT_EXPR:
17937 case LSHIFT_EXPR:
17938 case RROTATE_EXPR:
17939 case LROTATE_EXPR:
17940 case EQ_EXPR:
17941 case NE_EXPR:
17942 case MAX_EXPR:
17943 case MIN_EXPR:
17944 case LE_EXPR:
17945 case GE_EXPR:
17946 case LT_EXPR:
17947 case GT_EXPR:
17948 case MEMBER_REF:
17949 case DOTSTAR_EXPR:
17951 warning_sentinel s1(warn_type_limits);
17952 warning_sentinel s2(warn_div_by_zero);
17953 warning_sentinel s3(warn_logical_op);
17954 warning_sentinel s4(warn_tautological_compare);
17955 tree op0 = RECUR (TREE_OPERAND (t, 0));
17956 tree op1 = RECUR (TREE_OPERAND (t, 1));
17957 tree r = build_x_binary_op
17958 (input_location, TREE_CODE (t),
17959 op0,
17960 (TREE_NO_WARNING (TREE_OPERAND (t, 0))
17961 ? ERROR_MARK
17962 : TREE_CODE (TREE_OPERAND (t, 0))),
17963 op1,
17964 (TREE_NO_WARNING (TREE_OPERAND (t, 1))
17965 ? ERROR_MARK
17966 : TREE_CODE (TREE_OPERAND (t, 1))),
17967 /*overload=*/NULL,
17968 complain|decltype_flag);
17969 if (EXPR_P (r) && TREE_NO_WARNING (t))
17970 TREE_NO_WARNING (r) = TREE_NO_WARNING (t);
17972 RETURN (r);
17975 case POINTER_PLUS_EXPR:
17977 tree op0 = RECUR (TREE_OPERAND (t, 0));
17978 tree op1 = RECUR (TREE_OPERAND (t, 1));
17979 RETURN (fold_build_pointer_plus (op0, op1));
17982 case SCOPE_REF:
17983 RETURN (tsubst_qualified_id (t, args, complain, in_decl, /*done=*/true,
17984 /*address_p=*/false));
17985 case ARRAY_REF:
17986 op1 = tsubst_non_call_postfix_expression (TREE_OPERAND (t, 0),
17987 args, complain, in_decl);
17988 RETURN (build_x_array_ref (EXPR_LOCATION (t), op1,
17989 RECUR (TREE_OPERAND (t, 1)),
17990 complain|decltype_flag));
17992 case SIZEOF_EXPR:
17993 if (PACK_EXPANSION_P (TREE_OPERAND (t, 0))
17994 || ARGUMENT_PACK_P (TREE_OPERAND (t, 0)))
17995 RETURN (tsubst_copy (t, args, complain, in_decl));
17996 /* Fall through */
17998 case ALIGNOF_EXPR:
18000 tree r;
18002 op1 = TREE_OPERAND (t, 0);
18003 if (TREE_CODE (t) == SIZEOF_EXPR && SIZEOF_EXPR_TYPE_P (t))
18004 op1 = TREE_TYPE (op1);
18005 if (!args)
18007 /* When there are no ARGS, we are trying to evaluate a
18008 non-dependent expression from the parser. Trying to do
18009 the substitutions may not work. */
18010 if (!TYPE_P (op1))
18011 op1 = TREE_TYPE (op1);
18013 else
18015 ++cp_unevaluated_operand;
18016 ++c_inhibit_evaluation_warnings;
18017 if (TYPE_P (op1))
18018 op1 = tsubst (op1, args, complain, in_decl);
18019 else
18020 op1 = tsubst_copy_and_build (op1, args, complain, in_decl,
18021 /*function_p=*/false,
18022 /*integral_constant_expression_p=*/
18023 false);
18024 --cp_unevaluated_operand;
18025 --c_inhibit_evaluation_warnings;
18027 if (TYPE_P (op1))
18028 r = cxx_sizeof_or_alignof_type (op1, TREE_CODE (t),
18029 complain & tf_error);
18030 else
18031 r = cxx_sizeof_or_alignof_expr (op1, TREE_CODE (t),
18032 complain & tf_error);
18033 if (TREE_CODE (t) == SIZEOF_EXPR && r != error_mark_node)
18035 if (TREE_CODE (r) != SIZEOF_EXPR || TYPE_P (op1))
18037 if (!processing_template_decl && TYPE_P (op1))
18039 r = build_min (SIZEOF_EXPR, size_type_node,
18040 build1 (NOP_EXPR, op1, error_mark_node));
18041 SIZEOF_EXPR_TYPE_P (r) = 1;
18043 else
18044 r = build_min (SIZEOF_EXPR, size_type_node, op1);
18045 TREE_SIDE_EFFECTS (r) = 0;
18046 TREE_READONLY (r) = 1;
18048 SET_EXPR_LOCATION (r, EXPR_LOCATION (t));
18050 RETURN (r);
18053 case AT_ENCODE_EXPR:
18055 op1 = TREE_OPERAND (t, 0);
18056 ++cp_unevaluated_operand;
18057 ++c_inhibit_evaluation_warnings;
18058 op1 = tsubst_copy_and_build (op1, args, complain, in_decl,
18059 /*function_p=*/false,
18060 /*integral_constant_expression_p=*/false);
18061 --cp_unevaluated_operand;
18062 --c_inhibit_evaluation_warnings;
18063 RETURN (objc_build_encode_expr (op1));
18066 case NOEXCEPT_EXPR:
18067 op1 = TREE_OPERAND (t, 0);
18068 ++cp_unevaluated_operand;
18069 ++c_inhibit_evaluation_warnings;
18070 ++cp_noexcept_operand;
18071 op1 = tsubst_copy_and_build (op1, args, complain, in_decl,
18072 /*function_p=*/false,
18073 /*integral_constant_expression_p=*/false);
18074 --cp_unevaluated_operand;
18075 --c_inhibit_evaluation_warnings;
18076 --cp_noexcept_operand;
18077 RETURN (finish_noexcept_expr (op1, complain));
18079 case MODOP_EXPR:
18081 warning_sentinel s(warn_div_by_zero);
18082 tree lhs = RECUR (TREE_OPERAND (t, 0));
18083 tree rhs = RECUR (TREE_OPERAND (t, 2));
18084 tree r = build_x_modify_expr
18085 (EXPR_LOCATION (t), lhs, TREE_CODE (TREE_OPERAND (t, 1)), rhs,
18086 complain|decltype_flag);
18087 /* TREE_NO_WARNING must be set if either the expression was
18088 parenthesized or it uses an operator such as >>= rather
18089 than plain assignment. In the former case, it was already
18090 set and must be copied. In the latter case,
18091 build_x_modify_expr sets it and it must not be reset
18092 here. */
18093 if (TREE_NO_WARNING (t))
18094 TREE_NO_WARNING (r) = TREE_NO_WARNING (t);
18096 RETURN (r);
18099 case ARROW_EXPR:
18100 op1 = tsubst_non_call_postfix_expression (TREE_OPERAND (t, 0),
18101 args, complain, in_decl);
18102 /* Remember that there was a reference to this entity. */
18103 if (DECL_P (op1)
18104 && !mark_used (op1, complain) && !(complain & tf_error))
18105 RETURN (error_mark_node);
18106 RETURN (build_x_arrow (input_location, op1, complain));
18108 case NEW_EXPR:
18110 tree placement = RECUR (TREE_OPERAND (t, 0));
18111 tree init = RECUR (TREE_OPERAND (t, 3));
18112 vec<tree, va_gc> *placement_vec;
18113 vec<tree, va_gc> *init_vec;
18114 tree ret;
18116 if (placement == NULL_TREE)
18117 placement_vec = NULL;
18118 else
18120 placement_vec = make_tree_vector ();
18121 for (; placement != NULL_TREE; placement = TREE_CHAIN (placement))
18122 vec_safe_push (placement_vec, TREE_VALUE (placement));
18125 /* If there was an initializer in the original tree, but it
18126 instantiated to an empty list, then we should pass a
18127 non-NULL empty vector to tell build_new that it was an
18128 empty initializer() rather than no initializer. This can
18129 only happen when the initializer is a pack expansion whose
18130 parameter packs are of length zero. */
18131 if (init == NULL_TREE && TREE_OPERAND (t, 3) == NULL_TREE)
18132 init_vec = NULL;
18133 else
18135 init_vec = make_tree_vector ();
18136 if (init == void_node)
18137 gcc_assert (init_vec != NULL);
18138 else
18140 for (; init != NULL_TREE; init = TREE_CHAIN (init))
18141 vec_safe_push (init_vec, TREE_VALUE (init));
18145 tree op1 = tsubst (TREE_OPERAND (t, 1), args, complain, in_decl);
18146 tree op2 = RECUR (TREE_OPERAND (t, 2));
18147 ret = build_new (&placement_vec, op1, op2, &init_vec,
18148 NEW_EXPR_USE_GLOBAL (t),
18149 complain);
18151 if (placement_vec != NULL)
18152 release_tree_vector (placement_vec);
18153 if (init_vec != NULL)
18154 release_tree_vector (init_vec);
18156 RETURN (ret);
18159 case DELETE_EXPR:
18161 tree op0 = RECUR (TREE_OPERAND (t, 0));
18162 tree op1 = RECUR (TREE_OPERAND (t, 1));
18163 RETURN (delete_sanity (op0, op1,
18164 DELETE_EXPR_USE_VEC (t),
18165 DELETE_EXPR_USE_GLOBAL (t),
18166 complain));
18169 case COMPOUND_EXPR:
18171 tree op0 = tsubst_copy_and_build (TREE_OPERAND (t, 0), args,
18172 complain & ~tf_decltype, in_decl,
18173 /*function_p=*/false,
18174 integral_constant_expression_p);
18175 RETURN (build_x_compound_expr (EXPR_LOCATION (t),
18176 op0,
18177 RECUR (TREE_OPERAND (t, 1)),
18178 complain|decltype_flag));
18181 case CALL_EXPR:
18183 tree function;
18184 vec<tree, va_gc> *call_args;
18185 unsigned int nargs, i;
18186 bool qualified_p;
18187 bool koenig_p;
18188 tree ret;
18190 function = CALL_EXPR_FN (t);
18191 /* Internal function with no arguments. */
18192 if (function == NULL_TREE && call_expr_nargs (t) == 0)
18193 RETURN (t);
18195 /* When we parsed the expression, we determined whether or
18196 not Koenig lookup should be performed. */
18197 koenig_p = KOENIG_LOOKUP_P (t);
18198 if (function == NULL_TREE)
18200 koenig_p = false;
18201 qualified_p = false;
18203 else if (TREE_CODE (function) == SCOPE_REF)
18205 qualified_p = true;
18206 function = tsubst_qualified_id (function, args, complain, in_decl,
18207 /*done=*/false,
18208 /*address_p=*/false);
18210 else if (koenig_p && identifier_p (function))
18212 /* Do nothing; calling tsubst_copy_and_build on an identifier
18213 would incorrectly perform unqualified lookup again.
18215 Note that we can also have an IDENTIFIER_NODE if the earlier
18216 unqualified lookup found a member function; in that case
18217 koenig_p will be false and we do want to do the lookup
18218 again to find the instantiated member function.
18220 FIXME but doing that causes c++/15272, so we need to stop
18221 using IDENTIFIER_NODE in that situation. */
18222 qualified_p = false;
18224 else
18226 if (TREE_CODE (function) == COMPONENT_REF)
18228 tree op = TREE_OPERAND (function, 1);
18230 qualified_p = (TREE_CODE (op) == SCOPE_REF
18231 || (BASELINK_P (op)
18232 && BASELINK_QUALIFIED_P (op)));
18234 else
18235 qualified_p = false;
18237 if (TREE_CODE (function) == ADDR_EXPR
18238 && TREE_CODE (TREE_OPERAND (function, 0)) == FUNCTION_DECL)
18239 /* Avoid error about taking the address of a constructor. */
18240 function = TREE_OPERAND (function, 0);
18242 function = tsubst_copy_and_build (function, args, complain,
18243 in_decl,
18244 !qualified_p,
18245 integral_constant_expression_p);
18247 if (BASELINK_P (function))
18248 qualified_p = true;
18251 nargs = call_expr_nargs (t);
18252 call_args = make_tree_vector ();
18253 for (i = 0; i < nargs; ++i)
18255 tree arg = CALL_EXPR_ARG (t, i);
18257 if (!PACK_EXPANSION_P (arg))
18258 vec_safe_push (call_args, RECUR (CALL_EXPR_ARG (t, i)));
18259 else
18261 /* Expand the pack expansion and push each entry onto
18262 CALL_ARGS. */
18263 arg = tsubst_pack_expansion (arg, args, complain, in_decl);
18264 if (TREE_CODE (arg) == TREE_VEC)
18266 unsigned int len, j;
18268 len = TREE_VEC_LENGTH (arg);
18269 for (j = 0; j < len; ++j)
18271 tree value = TREE_VEC_ELT (arg, j);
18272 if (value != NULL_TREE)
18273 value = convert_from_reference (value);
18274 vec_safe_push (call_args, value);
18277 else
18279 /* A partial substitution. Add one entry. */
18280 vec_safe_push (call_args, arg);
18285 /* We do not perform argument-dependent lookup if normal
18286 lookup finds a non-function, in accordance with the
18287 expected resolution of DR 218. */
18288 if (koenig_p
18289 && ((is_overloaded_fn (function)
18290 /* If lookup found a member function, the Koenig lookup is
18291 not appropriate, even if an unqualified-name was used
18292 to denote the function. */
18293 && !DECL_FUNCTION_MEMBER_P (get_first_fn (function)))
18294 || identifier_p (function))
18295 /* Only do this when substitution turns a dependent call
18296 into a non-dependent call. */
18297 && type_dependent_expression_p_push (t)
18298 && !any_type_dependent_arguments_p (call_args))
18299 function = perform_koenig_lookup (function, call_args, tf_none);
18301 if (function != NULL_TREE
18302 && identifier_p (function)
18303 && !any_type_dependent_arguments_p (call_args))
18305 if (koenig_p && (complain & tf_warning_or_error))
18307 /* For backwards compatibility and good diagnostics, try
18308 the unqualified lookup again if we aren't in SFINAE
18309 context. */
18310 tree unq = (tsubst_copy_and_build
18311 (function, args, complain, in_decl, true,
18312 integral_constant_expression_p));
18313 if (unq == error_mark_node)
18315 release_tree_vector (call_args);
18316 RETURN (error_mark_node);
18319 if (unq != function)
18321 /* In a lambda fn, we have to be careful to not
18322 introduce new this captures. Legacy code can't
18323 be using lambdas anyway, so it's ok to be
18324 stricter. */
18325 bool in_lambda = (current_class_type
18326 && LAMBDA_TYPE_P (current_class_type));
18327 char const *const msg
18328 = G_("%qD was not declared in this scope, "
18329 "and no declarations were found by "
18330 "argument-dependent lookup at the point "
18331 "of instantiation");
18333 bool diag = true;
18334 if (in_lambda)
18335 error_at (EXPR_LOC_OR_LOC (t, input_location),
18336 msg, function);
18337 else
18338 diag = permerror (EXPR_LOC_OR_LOC (t, input_location),
18339 msg, function);
18340 if (diag)
18342 tree fn = unq;
18344 if (INDIRECT_REF_P (fn))
18345 fn = TREE_OPERAND (fn, 0);
18346 if (is_overloaded_fn (fn))
18347 fn = get_first_fn (fn);
18349 if (!DECL_P (fn))
18350 /* Can't say anything more. */;
18351 else if (DECL_CLASS_SCOPE_P (fn))
18353 location_t loc = EXPR_LOC_OR_LOC (t,
18354 input_location);
18355 inform (loc,
18356 "declarations in dependent base %qT are "
18357 "not found by unqualified lookup",
18358 DECL_CLASS_CONTEXT (fn));
18359 if (current_class_ptr)
18360 inform (loc,
18361 "use %<this->%D%> instead", function);
18362 else
18363 inform (loc,
18364 "use %<%T::%D%> instead",
18365 current_class_name, function);
18367 else
18368 inform (DECL_SOURCE_LOCATION (fn),
18369 "%qD declared here, later in the "
18370 "translation unit", fn);
18371 if (in_lambda)
18373 release_tree_vector (call_args);
18374 RETURN (error_mark_node);
18378 function = unq;
18381 if (identifier_p (function))
18383 if (complain & tf_error)
18384 unqualified_name_lookup_error (function);
18385 release_tree_vector (call_args);
18386 RETURN (error_mark_node);
18390 /* Remember that there was a reference to this entity. */
18391 if (function != NULL_TREE
18392 && DECL_P (function)
18393 && !mark_used (function, complain) && !(complain & tf_error))
18395 release_tree_vector (call_args);
18396 RETURN (error_mark_node);
18399 /* Put back tf_decltype for the actual call. */
18400 complain |= decltype_flag;
18402 if (function == NULL_TREE)
18403 switch (CALL_EXPR_IFN (t))
18405 case IFN_LAUNDER:
18406 gcc_assert (nargs == 1);
18407 if (vec_safe_length (call_args) != 1)
18409 error_at (EXPR_LOC_OR_LOC (t, input_location),
18410 "wrong number of arguments to "
18411 "%<__builtin_launder%>");
18412 ret = error_mark_node;
18414 else
18415 ret = finish_builtin_launder (EXPR_LOC_OR_LOC (t,
18416 input_location),
18417 (*call_args)[0], complain);
18418 break;
18420 default:
18421 /* Unsupported internal function with arguments. */
18422 gcc_unreachable ();
18424 else if (TREE_CODE (function) == OFFSET_REF)
18425 ret = build_offset_ref_call_from_tree (function, &call_args,
18426 complain);
18427 else if (TREE_CODE (function) == COMPONENT_REF)
18429 tree instance = TREE_OPERAND (function, 0);
18430 tree fn = TREE_OPERAND (function, 1);
18432 if (processing_template_decl
18433 && (type_dependent_expression_p (instance)
18434 || (!BASELINK_P (fn)
18435 && TREE_CODE (fn) != FIELD_DECL)
18436 || type_dependent_expression_p (fn)
18437 || any_type_dependent_arguments_p (call_args)))
18438 ret = build_min_nt_call_vec (function, call_args);
18439 else if (!BASELINK_P (fn))
18440 ret = finish_call_expr (function, &call_args,
18441 /*disallow_virtual=*/false,
18442 /*koenig_p=*/false,
18443 complain);
18444 else
18445 ret = (build_new_method_call
18446 (instance, fn,
18447 &call_args, NULL_TREE,
18448 qualified_p ? LOOKUP_NONVIRTUAL : LOOKUP_NORMAL,
18449 /*fn_p=*/NULL,
18450 complain));
18452 else
18453 ret = finish_call_expr (function, &call_args,
18454 /*disallow_virtual=*/qualified_p,
18455 koenig_p,
18456 complain);
18458 release_tree_vector (call_args);
18460 if (ret != error_mark_node)
18462 bool op = CALL_EXPR_OPERATOR_SYNTAX (t);
18463 bool ord = CALL_EXPR_ORDERED_ARGS (t);
18464 bool rev = CALL_EXPR_REVERSE_ARGS (t);
18465 bool thk = CALL_FROM_THUNK_P (t);
18466 if (op || ord || rev || thk)
18468 function = extract_call_expr (ret);
18469 CALL_EXPR_OPERATOR_SYNTAX (function) = op;
18470 CALL_EXPR_ORDERED_ARGS (function) = ord;
18471 CALL_EXPR_REVERSE_ARGS (function) = rev;
18472 if (thk)
18474 if (TREE_CODE (function) == CALL_EXPR)
18475 CALL_FROM_THUNK_P (function) = true;
18476 else
18477 AGGR_INIT_FROM_THUNK_P (function) = true;
18478 /* The thunk location is not interesting. */
18479 SET_EXPR_LOCATION (function, UNKNOWN_LOCATION);
18484 RETURN (ret);
18487 case COND_EXPR:
18489 tree cond = RECUR (TREE_OPERAND (t, 0));
18490 tree folded_cond = fold_non_dependent_expr (cond);
18491 tree exp1, exp2;
18493 if (TREE_CODE (folded_cond) == INTEGER_CST)
18495 if (integer_zerop (folded_cond))
18497 ++c_inhibit_evaluation_warnings;
18498 exp1 = RECUR (TREE_OPERAND (t, 1));
18499 --c_inhibit_evaluation_warnings;
18500 exp2 = RECUR (TREE_OPERAND (t, 2));
18502 else
18504 exp1 = RECUR (TREE_OPERAND (t, 1));
18505 ++c_inhibit_evaluation_warnings;
18506 exp2 = RECUR (TREE_OPERAND (t, 2));
18507 --c_inhibit_evaluation_warnings;
18509 cond = folded_cond;
18511 else
18513 exp1 = RECUR (TREE_OPERAND (t, 1));
18514 exp2 = RECUR (TREE_OPERAND (t, 2));
18517 warning_sentinel s(warn_duplicated_branches);
18518 RETURN (build_x_conditional_expr (EXPR_LOCATION (t),
18519 cond, exp1, exp2, complain));
18522 case PSEUDO_DTOR_EXPR:
18524 tree op0 = RECUR (TREE_OPERAND (t, 0));
18525 tree op1 = RECUR (TREE_OPERAND (t, 1));
18526 tree op2 = tsubst (TREE_OPERAND (t, 2), args, complain, in_decl);
18527 RETURN (finish_pseudo_destructor_expr (op0, op1, op2,
18528 input_location));
18531 case TREE_LIST:
18533 tree purpose, value, chain;
18535 if (t == void_list_node)
18536 RETURN (t);
18538 if ((TREE_PURPOSE (t) && PACK_EXPANSION_P (TREE_PURPOSE (t)))
18539 || (TREE_VALUE (t) && PACK_EXPANSION_P (TREE_VALUE (t))))
18541 /* We have pack expansions, so expand those and
18542 create a new list out of it. */
18543 tree purposevec = NULL_TREE;
18544 tree valuevec = NULL_TREE;
18545 tree chain;
18546 int i, len = -1;
18548 /* Expand the argument expressions. */
18549 if (TREE_PURPOSE (t))
18550 purposevec = tsubst_pack_expansion (TREE_PURPOSE (t), args,
18551 complain, in_decl);
18552 if (TREE_VALUE (t))
18553 valuevec = tsubst_pack_expansion (TREE_VALUE (t), args,
18554 complain, in_decl);
18556 /* Build the rest of the list. */
18557 chain = TREE_CHAIN (t);
18558 if (chain && chain != void_type_node)
18559 chain = RECUR (chain);
18561 /* Determine the number of arguments. */
18562 if (purposevec && TREE_CODE (purposevec) == TREE_VEC)
18564 len = TREE_VEC_LENGTH (purposevec);
18565 gcc_assert (!valuevec || len == TREE_VEC_LENGTH (valuevec));
18567 else if (TREE_CODE (valuevec) == TREE_VEC)
18568 len = TREE_VEC_LENGTH (valuevec);
18569 else
18571 /* Since we only performed a partial substitution into
18572 the argument pack, we only RETURN (a single list
18573 node. */
18574 if (purposevec == TREE_PURPOSE (t)
18575 && valuevec == TREE_VALUE (t)
18576 && chain == TREE_CHAIN (t))
18577 RETURN (t);
18579 RETURN (tree_cons (purposevec, valuevec, chain));
18582 /* Convert the argument vectors into a TREE_LIST */
18583 i = len;
18584 while (i > 0)
18586 /* Grab the Ith values. */
18587 i--;
18588 purpose = purposevec ? TREE_VEC_ELT (purposevec, i)
18589 : NULL_TREE;
18590 value
18591 = valuevec ? convert_from_reference (TREE_VEC_ELT (valuevec, i))
18592 : NULL_TREE;
18594 /* Build the list (backwards). */
18595 chain = tree_cons (purpose, value, chain);
18598 RETURN (chain);
18601 purpose = TREE_PURPOSE (t);
18602 if (purpose)
18603 purpose = RECUR (purpose);
18604 value = TREE_VALUE (t);
18605 if (value)
18606 value = RECUR (value);
18607 chain = TREE_CHAIN (t);
18608 if (chain && chain != void_type_node)
18609 chain = RECUR (chain);
18610 if (purpose == TREE_PURPOSE (t)
18611 && value == TREE_VALUE (t)
18612 && chain == TREE_CHAIN (t))
18613 RETURN (t);
18614 RETURN (tree_cons (purpose, value, chain));
18617 case COMPONENT_REF:
18619 tree object;
18620 tree object_type;
18621 tree member;
18622 tree r;
18624 object = tsubst_non_call_postfix_expression (TREE_OPERAND (t, 0),
18625 args, complain, in_decl);
18626 /* Remember that there was a reference to this entity. */
18627 if (DECL_P (object)
18628 && !mark_used (object, complain) && !(complain & tf_error))
18629 RETURN (error_mark_node);
18630 object_type = TREE_TYPE (object);
18632 member = TREE_OPERAND (t, 1);
18633 if (BASELINK_P (member))
18634 member = tsubst_baselink (member,
18635 non_reference (TREE_TYPE (object)),
18636 args, complain, in_decl);
18637 else
18638 member = tsubst_copy (member, args, complain, in_decl);
18639 if (member == error_mark_node)
18640 RETURN (error_mark_node);
18642 if (TREE_CODE (member) == FIELD_DECL)
18644 r = finish_non_static_data_member (member, object, NULL_TREE);
18645 if (TREE_CODE (r) == COMPONENT_REF)
18646 REF_PARENTHESIZED_P (r) = REF_PARENTHESIZED_P (t);
18647 RETURN (r);
18649 else if (type_dependent_expression_p (object))
18650 /* We can't do much here. */;
18651 else if (!CLASS_TYPE_P (object_type))
18653 if (scalarish_type_p (object_type))
18655 tree s = NULL_TREE;
18656 tree dtor = member;
18658 if (TREE_CODE (dtor) == SCOPE_REF)
18660 s = TREE_OPERAND (dtor, 0);
18661 dtor = TREE_OPERAND (dtor, 1);
18663 if (TREE_CODE (dtor) == BIT_NOT_EXPR)
18665 dtor = TREE_OPERAND (dtor, 0);
18666 if (TYPE_P (dtor))
18667 RETURN (finish_pseudo_destructor_expr
18668 (object, s, dtor, input_location));
18672 else if (TREE_CODE (member) == SCOPE_REF
18673 && TREE_CODE (TREE_OPERAND (member, 1)) == TEMPLATE_ID_EXPR)
18675 /* Lookup the template functions now that we know what the
18676 scope is. */
18677 tree scope = TREE_OPERAND (member, 0);
18678 tree tmpl = TREE_OPERAND (TREE_OPERAND (member, 1), 0);
18679 tree args = TREE_OPERAND (TREE_OPERAND (member, 1), 1);
18680 member = lookup_qualified_name (scope, tmpl,
18681 /*is_type_p=*/false,
18682 /*complain=*/false);
18683 if (BASELINK_P (member))
18685 BASELINK_FUNCTIONS (member)
18686 = build_nt (TEMPLATE_ID_EXPR, BASELINK_FUNCTIONS (member),
18687 args);
18688 member = (adjust_result_of_qualified_name_lookup
18689 (member, BINFO_TYPE (BASELINK_BINFO (member)),
18690 object_type));
18692 else
18694 qualified_name_lookup_error (scope, tmpl, member,
18695 input_location);
18696 RETURN (error_mark_node);
18699 else if (TREE_CODE (member) == SCOPE_REF
18700 && !CLASS_TYPE_P (TREE_OPERAND (member, 0))
18701 && TREE_CODE (TREE_OPERAND (member, 0)) != NAMESPACE_DECL)
18703 if (complain & tf_error)
18705 if (TYPE_P (TREE_OPERAND (member, 0)))
18706 error ("%qT is not a class or namespace",
18707 TREE_OPERAND (member, 0));
18708 else
18709 error ("%qD is not a class or namespace",
18710 TREE_OPERAND (member, 0));
18712 RETURN (error_mark_node);
18715 r = finish_class_member_access_expr (object, member,
18716 /*template_p=*/false,
18717 complain);
18718 if (TREE_CODE (r) == COMPONENT_REF)
18719 REF_PARENTHESIZED_P (r) = REF_PARENTHESIZED_P (t);
18720 RETURN (r);
18723 case THROW_EXPR:
18724 RETURN (build_throw
18725 (RECUR (TREE_OPERAND (t, 0))));
18727 case CONSTRUCTOR:
18729 vec<constructor_elt, va_gc> *n;
18730 constructor_elt *ce;
18731 unsigned HOST_WIDE_INT idx;
18732 tree type = tsubst (TREE_TYPE (t), args, complain, in_decl);
18733 bool process_index_p;
18734 int newlen;
18735 bool need_copy_p = false;
18736 tree r;
18738 if (type == error_mark_node)
18739 RETURN (error_mark_node);
18741 /* We do not want to process the index of aggregate
18742 initializers as they are identifier nodes which will be
18743 looked up by digest_init. */
18744 process_index_p = !(type && MAYBE_CLASS_TYPE_P (type));
18746 n = vec_safe_copy (CONSTRUCTOR_ELTS (t));
18747 newlen = vec_safe_length (n);
18748 FOR_EACH_VEC_SAFE_ELT (n, idx, ce)
18750 if (ce->index && process_index_p
18751 /* An identifier index is looked up in the type
18752 being initialized, not the current scope. */
18753 && TREE_CODE (ce->index) != IDENTIFIER_NODE)
18754 ce->index = RECUR (ce->index);
18756 if (PACK_EXPANSION_P (ce->value))
18758 /* Substitute into the pack expansion. */
18759 ce->value = tsubst_pack_expansion (ce->value, args, complain,
18760 in_decl);
18762 if (ce->value == error_mark_node
18763 || PACK_EXPANSION_P (ce->value))
18765 else if (TREE_VEC_LENGTH (ce->value) == 1)
18766 /* Just move the argument into place. */
18767 ce->value = TREE_VEC_ELT (ce->value, 0);
18768 else
18770 /* Update the length of the final CONSTRUCTOR
18771 arguments vector, and note that we will need to
18772 copy.*/
18773 newlen = newlen + TREE_VEC_LENGTH (ce->value) - 1;
18774 need_copy_p = true;
18777 else
18778 ce->value = RECUR (ce->value);
18781 if (need_copy_p)
18783 vec<constructor_elt, va_gc> *old_n = n;
18785 vec_alloc (n, newlen);
18786 FOR_EACH_VEC_ELT (*old_n, idx, ce)
18788 if (TREE_CODE (ce->value) == TREE_VEC)
18790 int i, len = TREE_VEC_LENGTH (ce->value);
18791 for (i = 0; i < len; ++i)
18792 CONSTRUCTOR_APPEND_ELT (n, 0,
18793 TREE_VEC_ELT (ce->value, i));
18795 else
18796 CONSTRUCTOR_APPEND_ELT (n, 0, ce->value);
18800 r = build_constructor (init_list_type_node, n);
18801 CONSTRUCTOR_IS_DIRECT_INIT (r) = CONSTRUCTOR_IS_DIRECT_INIT (t);
18803 if (TREE_HAS_CONSTRUCTOR (t))
18805 fcl_t cl = fcl_functional;
18806 if (CONSTRUCTOR_C99_COMPOUND_LITERAL (t))
18807 cl = fcl_c99;
18808 RETURN (finish_compound_literal (type, r, complain, cl));
18811 TREE_TYPE (r) = type;
18812 RETURN (r);
18815 case TYPEID_EXPR:
18817 tree operand_0 = TREE_OPERAND (t, 0);
18818 if (TYPE_P (operand_0))
18820 operand_0 = tsubst (operand_0, args, complain, in_decl);
18821 RETURN (get_typeid (operand_0, complain));
18823 else
18825 operand_0 = RECUR (operand_0);
18826 RETURN (build_typeid (operand_0, complain));
18830 case VAR_DECL:
18831 if (!args)
18832 RETURN (t);
18833 /* Fall through */
18835 case PARM_DECL:
18837 tree r = tsubst_copy (t, args, complain, in_decl);
18838 /* ??? We're doing a subset of finish_id_expression here. */
18839 if (VAR_P (r)
18840 && !processing_template_decl
18841 && !cp_unevaluated_operand
18842 && (TREE_STATIC (r) || DECL_EXTERNAL (r))
18843 && CP_DECL_THREAD_LOCAL_P (r))
18845 if (tree wrap = get_tls_wrapper_fn (r))
18846 /* Replace an evaluated use of the thread_local variable with
18847 a call to its wrapper. */
18848 r = build_cxx_call (wrap, 0, NULL, tf_warning_or_error);
18850 else if (outer_automatic_var_p (r))
18851 r = process_outer_var_ref (r, complain);
18853 if (TREE_CODE (TREE_TYPE (t)) != REFERENCE_TYPE)
18854 /* If the original type was a reference, we'll be wrapped in
18855 the appropriate INDIRECT_REF. */
18856 r = convert_from_reference (r);
18857 RETURN (r);
18860 case VA_ARG_EXPR:
18862 tree op0 = RECUR (TREE_OPERAND (t, 0));
18863 tree type = tsubst (TREE_TYPE (t), args, complain, in_decl);
18864 RETURN (build_x_va_arg (EXPR_LOCATION (t), op0, type));
18867 case OFFSETOF_EXPR:
18869 tree object_ptr
18870 = tsubst_copy_and_build (TREE_OPERAND (t, 1), args, complain,
18871 in_decl, /*function_p=*/false,
18872 /*integral_constant_expression_p=*/false);
18873 RETURN (finish_offsetof (object_ptr,
18874 RECUR (TREE_OPERAND (t, 0)),
18875 EXPR_LOCATION (t)));
18878 case ADDRESSOF_EXPR:
18879 RETURN (cp_build_addressof (EXPR_LOCATION (t),
18880 RECUR (TREE_OPERAND (t, 0)), complain));
18882 case TRAIT_EXPR:
18884 tree type1 = tsubst (TRAIT_EXPR_TYPE1 (t), args,
18885 complain, in_decl);
18887 tree type2 = TRAIT_EXPR_TYPE2 (t);
18888 if (type2 && TREE_CODE (type2) == TREE_LIST)
18889 type2 = RECUR (type2);
18890 else if (type2)
18891 type2 = tsubst (type2, args, complain, in_decl);
18893 RETURN (finish_trait_expr (TRAIT_EXPR_KIND (t), type1, type2));
18896 case STMT_EXPR:
18898 tree old_stmt_expr = cur_stmt_expr;
18899 tree stmt_expr = begin_stmt_expr ();
18901 cur_stmt_expr = stmt_expr;
18902 tsubst_expr (STMT_EXPR_STMT (t), args, complain, in_decl,
18903 integral_constant_expression_p);
18904 stmt_expr = finish_stmt_expr (stmt_expr, false);
18905 cur_stmt_expr = old_stmt_expr;
18907 /* If the resulting list of expression statement is empty,
18908 fold it further into void_node. */
18909 if (empty_expr_stmt_p (stmt_expr))
18910 stmt_expr = void_node;
18912 RETURN (stmt_expr);
18915 case LAMBDA_EXPR:
18917 tree r = tsubst_lambda_expr (t, args, complain, in_decl);
18919 RETURN (build_lambda_object (r));
18922 case TARGET_EXPR:
18923 /* We can get here for a constant initializer of non-dependent type.
18924 FIXME stop folding in cp_parser_initializer_clause. */
18926 tree r = get_target_expr_sfinae (RECUR (TARGET_EXPR_INITIAL (t)),
18927 complain);
18928 RETURN (r);
18931 case TRANSACTION_EXPR:
18932 RETURN (tsubst_expr(t, args, complain, in_decl,
18933 integral_constant_expression_p));
18935 case PAREN_EXPR:
18936 RETURN (finish_parenthesized_expr (RECUR (TREE_OPERAND (t, 0))));
18938 case VEC_PERM_EXPR:
18940 tree op0 = RECUR (TREE_OPERAND (t, 0));
18941 tree op1 = RECUR (TREE_OPERAND (t, 1));
18942 tree op2 = RECUR (TREE_OPERAND (t, 2));
18943 RETURN (build_x_vec_perm_expr (input_location, op0, op1, op2,
18944 complain));
18947 case REQUIRES_EXPR:
18948 RETURN (tsubst_requires_expr (t, args, complain, in_decl));
18950 case NON_LVALUE_EXPR:
18951 case VIEW_CONVERT_EXPR:
18952 /* We should only see these for location wrapper nodes, or within
18953 instantiate_non_dependent_expr (when args is NULL_TREE). */
18954 gcc_assert (location_wrapper_p (t) || args == NULL_TREE);
18955 if (location_wrapper_p (t))
18956 RETURN (maybe_wrap_with_location (RECUR (TREE_OPERAND (t, 0)),
18957 EXPR_LOCATION (t)));
18958 /* fallthrough. */
18960 default:
18961 /* Handle Objective-C++ constructs, if appropriate. */
18963 tree subst
18964 = objcp_tsubst_copy_and_build (t, args, complain,
18965 in_decl, /*function_p=*/false);
18966 if (subst)
18967 RETURN (subst);
18969 RETURN (tsubst_copy (t, args, complain, in_decl));
18972 #undef RECUR
18973 #undef RETURN
18974 out:
18975 input_location = loc;
18976 return retval;
18979 /* Verify that the instantiated ARGS are valid. For type arguments,
18980 make sure that the type's linkage is ok. For non-type arguments,
18981 make sure they are constants if they are integral or enumerations.
18982 Emit an error under control of COMPLAIN, and return TRUE on error. */
18984 static bool
18985 check_instantiated_arg (tree tmpl, tree t, tsubst_flags_t complain)
18987 if (dependent_template_arg_p (t))
18988 return false;
18989 if (ARGUMENT_PACK_P (t))
18991 tree vec = ARGUMENT_PACK_ARGS (t);
18992 int len = TREE_VEC_LENGTH (vec);
18993 bool result = false;
18994 int i;
18996 for (i = 0; i < len; ++i)
18997 if (check_instantiated_arg (tmpl, TREE_VEC_ELT (vec, i), complain))
18998 result = true;
18999 return result;
19001 else if (TYPE_P (t))
19003 /* [basic.link]: A name with no linkage (notably, the name
19004 of a class or enumeration declared in a local scope)
19005 shall not be used to declare an entity with linkage.
19006 This implies that names with no linkage cannot be used as
19007 template arguments
19009 DR 757 relaxes this restriction for C++0x. */
19010 tree nt = (cxx_dialect > cxx98 ? NULL_TREE
19011 : no_linkage_check (t, /*relaxed_p=*/false));
19013 if (nt)
19015 /* DR 488 makes use of a type with no linkage cause
19016 type deduction to fail. */
19017 if (complain & tf_error)
19019 if (TYPE_UNNAMED_P (nt))
19020 error ("%qT is/uses unnamed type", t);
19021 else
19022 error ("template argument for %qD uses local type %qT",
19023 tmpl, t);
19025 return true;
19027 /* In order to avoid all sorts of complications, we do not
19028 allow variably-modified types as template arguments. */
19029 else if (variably_modified_type_p (t, NULL_TREE))
19031 if (complain & tf_error)
19032 error ("%qT is a variably modified type", t);
19033 return true;
19036 /* Class template and alias template arguments should be OK. */
19037 else if (DECL_TYPE_TEMPLATE_P (t))
19039 /* A non-type argument of integral or enumerated type must be a
19040 constant. */
19041 else if (TREE_TYPE (t)
19042 && INTEGRAL_OR_ENUMERATION_TYPE_P (TREE_TYPE (t))
19043 && !REFERENCE_REF_P (t)
19044 && !TREE_CONSTANT (t))
19046 if (complain & tf_error)
19047 error ("integral expression %qE is not constant", t);
19048 return true;
19050 return false;
19053 static bool
19054 check_instantiated_args (tree tmpl, tree args, tsubst_flags_t complain)
19056 int ix, len = DECL_NTPARMS (tmpl);
19057 bool result = false;
19059 for (ix = 0; ix != len; ix++)
19061 if (check_instantiated_arg (tmpl, TREE_VEC_ELT (args, ix), complain))
19062 result = true;
19064 if (result && (complain & tf_error))
19065 error (" trying to instantiate %qD", tmpl);
19066 return result;
19069 /* We're out of SFINAE context now, so generate diagnostics for the access
19070 errors we saw earlier when instantiating D from TMPL and ARGS. */
19072 static void
19073 recheck_decl_substitution (tree d, tree tmpl, tree args)
19075 tree pattern = DECL_TEMPLATE_RESULT (tmpl);
19076 tree type = TREE_TYPE (pattern);
19077 location_t loc = input_location;
19079 push_access_scope (d);
19080 push_deferring_access_checks (dk_no_deferred);
19081 input_location = DECL_SOURCE_LOCATION (pattern);
19082 tsubst (type, args, tf_warning_or_error, d);
19083 input_location = loc;
19084 pop_deferring_access_checks ();
19085 pop_access_scope (d);
19088 /* Instantiate the indicated variable, function, or alias template TMPL with
19089 the template arguments in TARG_PTR. */
19091 static tree
19092 instantiate_template_1 (tree tmpl, tree orig_args, tsubst_flags_t complain)
19094 tree targ_ptr = orig_args;
19095 tree fndecl;
19096 tree gen_tmpl;
19097 tree spec;
19098 bool access_ok = true;
19100 if (tmpl == error_mark_node)
19101 return error_mark_node;
19103 gcc_assert (TREE_CODE (tmpl) == TEMPLATE_DECL);
19105 /* If this function is a clone, handle it specially. */
19106 if (DECL_CLONED_FUNCTION_P (tmpl))
19108 tree spec;
19109 tree clone;
19111 /* Use DECL_ABSTRACT_ORIGIN because only FUNCTION_DECLs have
19112 DECL_CLONED_FUNCTION. */
19113 spec = instantiate_template (DECL_ABSTRACT_ORIGIN (tmpl),
19114 targ_ptr, complain);
19115 if (spec == error_mark_node)
19116 return error_mark_node;
19118 /* Look for the clone. */
19119 FOR_EACH_CLONE (clone, spec)
19120 if (DECL_NAME (clone) == DECL_NAME (tmpl))
19121 return clone;
19122 /* We should always have found the clone by now. */
19123 gcc_unreachable ();
19124 return NULL_TREE;
19127 if (targ_ptr == error_mark_node)
19128 return error_mark_node;
19130 /* Check to see if we already have this specialization. */
19131 gen_tmpl = most_general_template (tmpl);
19132 if (TMPL_ARGS_DEPTH (targ_ptr)
19133 < TMPL_PARMS_DEPTH (DECL_TEMPLATE_PARMS (gen_tmpl)))
19134 /* targ_ptr only has the innermost template args, so add the outer ones
19135 from tmpl, which could be either a partial instantiation or gen_tmpl (in
19136 the case of a non-dependent call within a template definition). */
19137 targ_ptr = (add_outermost_template_args
19138 (DECL_TI_ARGS (DECL_TEMPLATE_RESULT (tmpl)),
19139 targ_ptr));
19141 /* It would be nice to avoid hashing here and then again in tsubst_decl,
19142 but it doesn't seem to be on the hot path. */
19143 spec = retrieve_specialization (gen_tmpl, targ_ptr, 0);
19145 gcc_assert (tmpl == gen_tmpl
19146 || ((fndecl = retrieve_specialization (tmpl, orig_args, 0))
19147 == spec)
19148 || fndecl == NULL_TREE);
19150 if (spec != NULL_TREE)
19152 if (FNDECL_HAS_ACCESS_ERRORS (spec))
19154 if (complain & tf_error)
19155 recheck_decl_substitution (spec, gen_tmpl, targ_ptr);
19156 return error_mark_node;
19158 return spec;
19161 if (check_instantiated_args (gen_tmpl, INNERMOST_TEMPLATE_ARGS (targ_ptr),
19162 complain))
19163 return error_mark_node;
19165 /* We are building a FUNCTION_DECL, during which the access of its
19166 parameters and return types have to be checked. However this
19167 FUNCTION_DECL which is the desired context for access checking
19168 is not built yet. We solve this chicken-and-egg problem by
19169 deferring all checks until we have the FUNCTION_DECL. */
19170 push_deferring_access_checks (dk_deferred);
19172 /* Instantiation of the function happens in the context of the function
19173 template, not the context of the overload resolution we're doing. */
19174 push_to_top_level ();
19175 /* If there are dependent arguments, e.g. because we're doing partial
19176 ordering, make sure processing_template_decl stays set. */
19177 if (uses_template_parms (targ_ptr))
19178 ++processing_template_decl;
19179 if (DECL_CLASS_SCOPE_P (gen_tmpl))
19181 tree ctx = tsubst_aggr_type (DECL_CONTEXT (gen_tmpl), targ_ptr,
19182 complain, gen_tmpl, true);
19183 push_nested_class (ctx);
19186 tree pattern = DECL_TEMPLATE_RESULT (gen_tmpl);
19188 fndecl = NULL_TREE;
19189 if (VAR_P (pattern))
19191 /* We need to determine if we're using a partial or explicit
19192 specialization now, because the type of the variable could be
19193 different. */
19194 tree tid = lookup_template_variable (gen_tmpl, targ_ptr);
19195 tree elt = most_specialized_partial_spec (tid, complain);
19196 if (elt == error_mark_node)
19197 pattern = error_mark_node;
19198 else if (elt)
19200 tree partial_tmpl = TREE_VALUE (elt);
19201 tree partial_args = TREE_PURPOSE (elt);
19202 tree partial_pat = DECL_TEMPLATE_RESULT (partial_tmpl);
19203 fndecl = tsubst (partial_pat, partial_args, complain, gen_tmpl);
19207 /* Substitute template parameters to obtain the specialization. */
19208 if (fndecl == NULL_TREE)
19209 fndecl = tsubst (pattern, targ_ptr, complain, gen_tmpl);
19210 if (DECL_CLASS_SCOPE_P (gen_tmpl))
19211 pop_nested_class ();
19212 pop_from_top_level ();
19214 if (fndecl == error_mark_node)
19216 pop_deferring_access_checks ();
19217 return error_mark_node;
19220 /* The DECL_TI_TEMPLATE should always be the immediate parent
19221 template, not the most general template. */
19222 DECL_TI_TEMPLATE (fndecl) = tmpl;
19223 DECL_TI_ARGS (fndecl) = targ_ptr;
19225 /* Now we know the specialization, compute access previously
19226 deferred. Do no access control for inheriting constructors,
19227 as we already checked access for the inherited constructor. */
19228 if (!(flag_new_inheriting_ctors
19229 && DECL_INHERITED_CTOR (fndecl)))
19231 push_access_scope (fndecl);
19232 if (!perform_deferred_access_checks (complain))
19233 access_ok = false;
19234 pop_access_scope (fndecl);
19236 pop_deferring_access_checks ();
19238 /* If we've just instantiated the main entry point for a function,
19239 instantiate all the alternate entry points as well. We do this
19240 by cloning the instantiation of the main entry point, not by
19241 instantiating the template clones. */
19242 if (DECL_CHAIN (gen_tmpl) && DECL_CLONED_FUNCTION_P (DECL_CHAIN (gen_tmpl)))
19243 clone_function_decl (fndecl, /*update_methods=*/false);
19245 if (!access_ok)
19247 if (!(complain & tf_error))
19249 /* Remember to reinstantiate when we're out of SFINAE so the user
19250 can see the errors. */
19251 FNDECL_HAS_ACCESS_ERRORS (fndecl) = true;
19253 return error_mark_node;
19255 return fndecl;
19258 /* Wrapper for instantiate_template_1. */
19260 tree
19261 instantiate_template (tree tmpl, tree orig_args, tsubst_flags_t complain)
19263 tree ret;
19264 timevar_push (TV_TEMPLATE_INST);
19265 ret = instantiate_template_1 (tmpl, orig_args, complain);
19266 timevar_pop (TV_TEMPLATE_INST);
19267 return ret;
19270 /* Instantiate the alias template TMPL with ARGS. Also push a template
19271 instantiation level, which instantiate_template doesn't do because
19272 functions and variables have sufficient context established by the
19273 callers. */
19275 static tree
19276 instantiate_alias_template (tree tmpl, tree args, tsubst_flags_t complain)
19278 if (tmpl == error_mark_node || args == error_mark_node)
19279 return error_mark_node;
19280 if (!push_tinst_level (tmpl, args))
19281 return error_mark_node;
19283 args =
19284 coerce_innermost_template_parms (DECL_TEMPLATE_PARMS (tmpl),
19285 args, tmpl, complain,
19286 /*require_all_args=*/true,
19287 /*use_default_args=*/true);
19289 tree r = instantiate_template (tmpl, args, complain);
19290 pop_tinst_level ();
19292 return r;
19295 /* PARM is a template parameter pack for FN. Returns true iff
19296 PARM is used in a deducible way in the argument list of FN. */
19298 static bool
19299 pack_deducible_p (tree parm, tree fn)
19301 tree t = FUNCTION_FIRST_USER_PARMTYPE (fn);
19302 for (; t; t = TREE_CHAIN (t))
19304 tree type = TREE_VALUE (t);
19305 tree packs;
19306 if (!PACK_EXPANSION_P (type))
19307 continue;
19308 for (packs = PACK_EXPANSION_PARAMETER_PACKS (type);
19309 packs; packs = TREE_CHAIN (packs))
19310 if (template_args_equal (TREE_VALUE (packs), parm))
19312 /* The template parameter pack is used in a function parameter
19313 pack. If this is the end of the parameter list, the
19314 template parameter pack is deducible. */
19315 if (TREE_CHAIN (t) == void_list_node)
19316 return true;
19317 else
19318 /* Otherwise, not. Well, it could be deduced from
19319 a non-pack parameter, but doing so would end up with
19320 a deduction mismatch, so don't bother. */
19321 return false;
19324 /* The template parameter pack isn't used in any function parameter
19325 packs, but it might be used deeper, e.g. tuple<Args...>. */
19326 return true;
19329 /* The FN is a TEMPLATE_DECL for a function. ARGS is an array with
19330 NARGS elements of the arguments that are being used when calling
19331 it. TARGS is a vector into which the deduced template arguments
19332 are placed.
19334 Returns either a FUNCTION_DECL for the matching specialization of FN or
19335 NULL_TREE if no suitable specialization can be found. If EXPLAIN_P is
19336 true, diagnostics will be printed to explain why it failed.
19338 If FN is a conversion operator, or we are trying to produce a specific
19339 specialization, RETURN_TYPE is the return type desired.
19341 The EXPLICIT_TARGS are explicit template arguments provided via a
19342 template-id.
19344 The parameter STRICT is one of:
19346 DEDUCE_CALL:
19347 We are deducing arguments for a function call, as in
19348 [temp.deduct.call]. If RETURN_TYPE is non-null, we are
19349 deducing arguments for a call to the result of a conversion
19350 function template, as in [over.call.object].
19352 DEDUCE_CONV:
19353 We are deducing arguments for a conversion function, as in
19354 [temp.deduct.conv].
19356 DEDUCE_EXACT:
19357 We are deducing arguments when doing an explicit instantiation
19358 as in [temp.explicit], when determining an explicit specialization
19359 as in [temp.expl.spec], or when taking the address of a function
19360 template, as in [temp.deduct.funcaddr]. */
19362 tree
19363 fn_type_unification (tree fn,
19364 tree explicit_targs,
19365 tree targs,
19366 const tree *args,
19367 unsigned int nargs,
19368 tree return_type,
19369 unification_kind_t strict,
19370 int flags,
19371 bool explain_p,
19372 bool decltype_p)
19374 tree parms;
19375 tree fntype;
19376 tree decl = NULL_TREE;
19377 tsubst_flags_t complain = (explain_p ? tf_warning_or_error : tf_none);
19378 bool ok;
19379 static int deduction_depth;
19381 tree orig_fn = fn;
19382 if (flag_new_inheriting_ctors)
19383 fn = strip_inheriting_ctors (fn);
19385 tree tparms = DECL_INNERMOST_TEMPLATE_PARMS (fn);
19386 tree r = error_mark_node;
19388 tree full_targs = targs;
19389 if (TMPL_ARGS_DEPTH (targs)
19390 < TMPL_PARMS_DEPTH (DECL_TEMPLATE_PARMS (fn)))
19391 full_targs = (add_outermost_template_args
19392 (DECL_TI_ARGS (DECL_TEMPLATE_RESULT (fn)),
19393 targs));
19395 if (decltype_p)
19396 complain |= tf_decltype;
19398 /* In C++0x, it's possible to have a function template whose type depends
19399 on itself recursively. This is most obvious with decltype, but can also
19400 occur with enumeration scope (c++/48969). So we need to catch infinite
19401 recursion and reject the substitution at deduction time; this function
19402 will return error_mark_node for any repeated substitution.
19404 This also catches excessive recursion such as when f<N> depends on
19405 f<N-1> across all integers, and returns error_mark_node for all the
19406 substitutions back up to the initial one.
19408 This is, of course, not reentrant. */
19409 if (excessive_deduction_depth)
19410 return error_mark_node;
19411 ++deduction_depth;
19413 gcc_assert (TREE_CODE (fn) == TEMPLATE_DECL);
19415 fntype = TREE_TYPE (fn);
19416 if (explicit_targs)
19418 /* [temp.deduct]
19420 The specified template arguments must match the template
19421 parameters in kind (i.e., type, nontype, template), and there
19422 must not be more arguments than there are parameters;
19423 otherwise type deduction fails.
19425 Nontype arguments must match the types of the corresponding
19426 nontype template parameters, or must be convertible to the
19427 types of the corresponding nontype parameters as specified in
19428 _temp.arg.nontype_, otherwise type deduction fails.
19430 All references in the function type of the function template
19431 to the corresponding template parameters are replaced by the
19432 specified template argument values. If a substitution in a
19433 template parameter or in the function type of the function
19434 template results in an invalid type, type deduction fails. */
19435 int i, len = TREE_VEC_LENGTH (tparms);
19436 location_t loc = input_location;
19437 bool incomplete = false;
19439 if (explicit_targs == error_mark_node)
19440 goto fail;
19442 if (TMPL_ARGS_DEPTH (explicit_targs)
19443 < TMPL_ARGS_DEPTH (full_targs))
19444 explicit_targs = add_outermost_template_args (full_targs,
19445 explicit_targs);
19447 /* Adjust any explicit template arguments before entering the
19448 substitution context. */
19449 explicit_targs
19450 = (coerce_template_parms (tparms, explicit_targs, NULL_TREE,
19451 complain,
19452 /*require_all_args=*/false,
19453 /*use_default_args=*/false));
19454 if (explicit_targs == error_mark_node)
19455 goto fail;
19457 /* Substitute the explicit args into the function type. This is
19458 necessary so that, for instance, explicitly declared function
19459 arguments can match null pointed constants. If we were given
19460 an incomplete set of explicit args, we must not do semantic
19461 processing during substitution as we could create partial
19462 instantiations. */
19463 for (i = 0; i < len; i++)
19465 tree parm = TREE_VALUE (TREE_VEC_ELT (tparms, i));
19466 bool parameter_pack = false;
19467 tree targ = TREE_VEC_ELT (explicit_targs, i);
19469 /* Dig out the actual parm. */
19470 if (TREE_CODE (parm) == TYPE_DECL
19471 || TREE_CODE (parm) == TEMPLATE_DECL)
19473 parm = TREE_TYPE (parm);
19474 parameter_pack = TEMPLATE_TYPE_PARAMETER_PACK (parm);
19476 else if (TREE_CODE (parm) == PARM_DECL)
19478 parm = DECL_INITIAL (parm);
19479 parameter_pack = TEMPLATE_PARM_PARAMETER_PACK (parm);
19482 if (!parameter_pack && targ == NULL_TREE)
19483 /* No explicit argument for this template parameter. */
19484 incomplete = true;
19486 if (parameter_pack && pack_deducible_p (parm, fn))
19488 /* Mark the argument pack as "incomplete". We could
19489 still deduce more arguments during unification.
19490 We remove this mark in type_unification_real. */
19491 if (targ)
19493 ARGUMENT_PACK_INCOMPLETE_P(targ) = 1;
19494 ARGUMENT_PACK_EXPLICIT_ARGS (targ)
19495 = ARGUMENT_PACK_ARGS (targ);
19498 /* We have some incomplete argument packs. */
19499 incomplete = true;
19503 if (!push_tinst_level (fn, explicit_targs))
19505 excessive_deduction_depth = true;
19506 goto fail;
19508 processing_template_decl += incomplete;
19509 input_location = DECL_SOURCE_LOCATION (fn);
19510 /* Ignore any access checks; we'll see them again in
19511 instantiate_template and they might have the wrong
19512 access path at this point. */
19513 push_deferring_access_checks (dk_deferred);
19514 fntype = tsubst (TREE_TYPE (fn), explicit_targs,
19515 complain | tf_partial | tf_fndecl_type, NULL_TREE);
19516 pop_deferring_access_checks ();
19517 input_location = loc;
19518 processing_template_decl -= incomplete;
19519 pop_tinst_level ();
19521 if (fntype == error_mark_node)
19522 goto fail;
19524 /* Place the explicitly specified arguments in TARGS. */
19525 explicit_targs = INNERMOST_TEMPLATE_ARGS (explicit_targs);
19526 for (i = NUM_TMPL_ARGS (explicit_targs); i--;)
19527 TREE_VEC_ELT (targs, i) = TREE_VEC_ELT (explicit_targs, i);
19530 /* Never do unification on the 'this' parameter. */
19531 parms = skip_artificial_parms_for (fn, TYPE_ARG_TYPES (fntype));
19533 if (return_type && strict == DEDUCE_CALL)
19535 /* We're deducing for a call to the result of a template conversion
19536 function. The parms we really want are in return_type. */
19537 if (POINTER_TYPE_P (return_type))
19538 return_type = TREE_TYPE (return_type);
19539 parms = TYPE_ARG_TYPES (return_type);
19541 else if (return_type)
19543 tree *new_args;
19545 parms = tree_cons (NULL_TREE, TREE_TYPE (fntype), parms);
19546 new_args = XALLOCAVEC (tree, nargs + 1);
19547 new_args[0] = return_type;
19548 memcpy (new_args + 1, args, nargs * sizeof (tree));
19549 args = new_args;
19550 ++nargs;
19553 /* We allow incomplete unification without an error message here
19554 because the standard doesn't seem to explicitly prohibit it. Our
19555 callers must be ready to deal with unification failures in any
19556 event. */
19558 /* If we aren't explaining yet, push tinst context so we can see where
19559 any errors (e.g. from class instantiations triggered by instantiation
19560 of default template arguments) come from. If we are explaining, this
19561 context is redundant. */
19562 if (!explain_p && !push_tinst_level (fn, targs))
19564 excessive_deduction_depth = true;
19565 goto fail;
19568 /* type_unification_real will pass back any access checks from default
19569 template argument substitution. */
19570 vec<deferred_access_check, va_gc> *checks;
19571 checks = NULL;
19573 ok = !type_unification_real (DECL_INNERMOST_TEMPLATE_PARMS (fn),
19574 full_targs, parms, args, nargs, /*subr=*/0,
19575 strict, flags, &checks, explain_p);
19576 if (!explain_p)
19577 pop_tinst_level ();
19578 if (!ok)
19579 goto fail;
19581 /* Now that we have bindings for all of the template arguments,
19582 ensure that the arguments deduced for the template template
19583 parameters have compatible template parameter lists. We cannot
19584 check this property before we have deduced all template
19585 arguments, because the template parameter types of a template
19586 template parameter might depend on prior template parameters
19587 deduced after the template template parameter. The following
19588 ill-formed example illustrates this issue:
19590 template<typename T, template<T> class C> void f(C<5>, T);
19592 template<int N> struct X {};
19594 void g() {
19595 f(X<5>(), 5l); // error: template argument deduction fails
19598 The template parameter list of 'C' depends on the template type
19599 parameter 'T', but 'C' is deduced to 'X' before 'T' is deduced to
19600 'long'. Thus, we can't check that 'C' cannot bind to 'X' at the
19601 time that we deduce 'C'. */
19602 if (!template_template_parm_bindings_ok_p
19603 (DECL_INNERMOST_TEMPLATE_PARMS (fn), targs))
19605 unify_inconsistent_template_template_parameters (explain_p);
19606 goto fail;
19609 /* All is well so far. Now, check:
19611 [temp.deduct]
19613 When all template arguments have been deduced, all uses of
19614 template parameters in nondeduced contexts are replaced with
19615 the corresponding deduced argument values. If the
19616 substitution results in an invalid type, as described above,
19617 type deduction fails. */
19618 if (!push_tinst_level (fn, targs))
19620 excessive_deduction_depth = true;
19621 goto fail;
19624 /* Also collect access checks from the instantiation. */
19625 reopen_deferring_access_checks (checks);
19627 decl = instantiate_template (fn, targs, complain);
19629 checks = get_deferred_access_checks ();
19630 pop_deferring_access_checks ();
19632 pop_tinst_level ();
19634 if (decl == error_mark_node)
19635 goto fail;
19637 /* Now perform any access checks encountered during substitution. */
19638 push_access_scope (decl);
19639 ok = perform_access_checks (checks, complain);
19640 pop_access_scope (decl);
19641 if (!ok)
19642 goto fail;
19644 /* If we're looking for an exact match, check that what we got
19645 is indeed an exact match. It might not be if some template
19646 parameters are used in non-deduced contexts. But don't check
19647 for an exact match if we have dependent template arguments;
19648 in that case we're doing partial ordering, and we already know
19649 that we have two candidates that will provide the actual type. */
19650 if (strict == DEDUCE_EXACT && !any_dependent_template_arguments_p (targs))
19652 tree substed = TREE_TYPE (decl);
19653 unsigned int i;
19655 tree sarg
19656 = skip_artificial_parms_for (decl, TYPE_ARG_TYPES (substed));
19657 if (return_type)
19658 sarg = tree_cons (NULL_TREE, TREE_TYPE (substed), sarg);
19659 for (i = 0; i < nargs && sarg; ++i, sarg = TREE_CHAIN (sarg))
19660 if (!same_type_p (args[i], TREE_VALUE (sarg)))
19662 unify_type_mismatch (explain_p, args[i],
19663 TREE_VALUE (sarg));
19664 goto fail;
19668 /* After doing deduction with the inherited constructor, actually return an
19669 instantiation of the inheriting constructor. */
19670 if (orig_fn != fn)
19671 decl = instantiate_template (orig_fn, targs, complain);
19673 r = decl;
19675 fail:
19676 --deduction_depth;
19677 if (excessive_deduction_depth)
19679 if (deduction_depth == 0)
19680 /* Reset once we're all the way out. */
19681 excessive_deduction_depth = false;
19684 return r;
19687 /* Adjust types before performing type deduction, as described in
19688 [temp.deduct.call] and [temp.deduct.conv]. The rules in these two
19689 sections are symmetric. PARM is the type of a function parameter
19690 or the return type of the conversion function. ARG is the type of
19691 the argument passed to the call, or the type of the value
19692 initialized with the result of the conversion function.
19693 ARG_EXPR is the original argument expression, which may be null. */
19695 static int
19696 maybe_adjust_types_for_deduction (unification_kind_t strict,
19697 tree* parm,
19698 tree* arg,
19699 tree arg_expr)
19701 int result = 0;
19703 switch (strict)
19705 case DEDUCE_CALL:
19706 break;
19708 case DEDUCE_CONV:
19709 /* Swap PARM and ARG throughout the remainder of this
19710 function; the handling is precisely symmetric since PARM
19711 will initialize ARG rather than vice versa. */
19712 std::swap (parm, arg);
19713 break;
19715 case DEDUCE_EXACT:
19716 /* Core issue #873: Do the DR606 thing (see below) for these cases,
19717 too, but here handle it by stripping the reference from PARM
19718 rather than by adding it to ARG. */
19719 if (TREE_CODE (*parm) == REFERENCE_TYPE
19720 && TYPE_REF_IS_RVALUE (*parm)
19721 && TREE_CODE (TREE_TYPE (*parm)) == TEMPLATE_TYPE_PARM
19722 && cp_type_quals (TREE_TYPE (*parm)) == TYPE_UNQUALIFIED
19723 && TREE_CODE (*arg) == REFERENCE_TYPE
19724 && !TYPE_REF_IS_RVALUE (*arg))
19725 *parm = TREE_TYPE (*parm);
19726 /* Nothing else to do in this case. */
19727 return 0;
19729 default:
19730 gcc_unreachable ();
19733 if (TREE_CODE (*parm) != REFERENCE_TYPE)
19735 /* [temp.deduct.call]
19737 If P is not a reference type:
19739 --If A is an array type, the pointer type produced by the
19740 array-to-pointer standard conversion (_conv.array_) is
19741 used in place of A for type deduction; otherwise,
19743 --If A is a function type, the pointer type produced by
19744 the function-to-pointer standard conversion
19745 (_conv.func_) is used in place of A for type deduction;
19746 otherwise,
19748 --If A is a cv-qualified type, the top level
19749 cv-qualifiers of A's type are ignored for type
19750 deduction. */
19751 if (TREE_CODE (*arg) == ARRAY_TYPE)
19752 *arg = build_pointer_type (TREE_TYPE (*arg));
19753 else if (TREE_CODE (*arg) == FUNCTION_TYPE)
19754 *arg = build_pointer_type (*arg);
19755 else
19756 *arg = TYPE_MAIN_VARIANT (*arg);
19759 /* [14.8.2.1/3 temp.deduct.call], "A forwarding reference is an rvalue
19760 reference to a cv-unqualified template parameter that does not represent a
19761 template parameter of a class template (during class template argument
19762 deduction (13.3.1.8)). If P is a forwarding reference and the argument is
19763 an lvalue, the type "lvalue reference to A" is used in place of A for type
19764 deduction. */
19765 if (TREE_CODE (*parm) == REFERENCE_TYPE
19766 && TYPE_REF_IS_RVALUE (*parm)
19767 && TREE_CODE (TREE_TYPE (*parm)) == TEMPLATE_TYPE_PARM
19768 && !TEMPLATE_TYPE_PARM_FOR_CLASS (TREE_TYPE (*parm))
19769 && cp_type_quals (TREE_TYPE (*parm)) == TYPE_UNQUALIFIED
19770 && (arg_expr ? lvalue_p (arg_expr)
19771 /* try_one_overload doesn't provide an arg_expr, but
19772 functions are always lvalues. */
19773 : TREE_CODE (*arg) == FUNCTION_TYPE))
19774 *arg = build_reference_type (*arg);
19776 /* [temp.deduct.call]
19778 If P is a cv-qualified type, the top level cv-qualifiers
19779 of P's type are ignored for type deduction. If P is a
19780 reference type, the type referred to by P is used for
19781 type deduction. */
19782 *parm = TYPE_MAIN_VARIANT (*parm);
19783 if (TREE_CODE (*parm) == REFERENCE_TYPE)
19785 *parm = TREE_TYPE (*parm);
19786 result |= UNIFY_ALLOW_OUTER_MORE_CV_QUAL;
19789 /* DR 322. For conversion deduction, remove a reference type on parm
19790 too (which has been swapped into ARG). */
19791 if (strict == DEDUCE_CONV && TREE_CODE (*arg) == REFERENCE_TYPE)
19792 *arg = TREE_TYPE (*arg);
19794 return result;
19797 /* Subroutine of unify_one_argument. PARM is a function parameter of a
19798 template which does contain any deducible template parameters; check if
19799 ARG is a suitable match for it. STRICT, FLAGS and EXPLAIN_P are as in
19800 unify_one_argument. */
19802 static int
19803 check_non_deducible_conversion (tree parm, tree arg, int strict,
19804 int flags, bool explain_p)
19806 tree type;
19808 if (!TYPE_P (arg))
19809 type = TREE_TYPE (arg);
19810 else
19811 type = arg;
19813 if (same_type_p (parm, type))
19814 return unify_success (explain_p);
19816 if (strict == DEDUCE_CONV)
19818 if (can_convert_arg (type, parm, NULL_TREE, flags,
19819 explain_p ? tf_warning_or_error : tf_none))
19820 return unify_success (explain_p);
19822 else if (strict != DEDUCE_EXACT)
19824 if (can_convert_arg (parm, type,
19825 TYPE_P (arg) ? NULL_TREE : arg,
19826 flags, explain_p ? tf_warning_or_error : tf_none))
19827 return unify_success (explain_p);
19830 if (strict == DEDUCE_EXACT)
19831 return unify_type_mismatch (explain_p, parm, arg);
19832 else
19833 return unify_arg_conversion (explain_p, parm, type, arg);
19836 static bool uses_deducible_template_parms (tree type);
19838 /* Returns true iff the expression EXPR is one from which a template
19839 argument can be deduced. In other words, if it's an undecorated
19840 use of a template non-type parameter. */
19842 static bool
19843 deducible_expression (tree expr)
19845 /* Strip implicit conversions. */
19846 while (CONVERT_EXPR_P (expr))
19847 expr = TREE_OPERAND (expr, 0);
19848 return (TREE_CODE (expr) == TEMPLATE_PARM_INDEX);
19851 /* Returns true iff the array domain DOMAIN uses a template parameter in a
19852 deducible way; that is, if it has a max value of <PARM> - 1. */
19854 static bool
19855 deducible_array_bound (tree domain)
19857 if (domain == NULL_TREE)
19858 return false;
19860 tree max = TYPE_MAX_VALUE (domain);
19861 if (TREE_CODE (max) != MINUS_EXPR)
19862 return false;
19864 return deducible_expression (TREE_OPERAND (max, 0));
19867 /* Returns true iff the template arguments ARGS use a template parameter
19868 in a deducible way. */
19870 static bool
19871 deducible_template_args (tree args)
19873 for (int i = 0; i < TREE_VEC_LENGTH (args); ++i)
19875 bool deducible;
19876 tree elt = TREE_VEC_ELT (args, i);
19877 if (ARGUMENT_PACK_P (elt))
19878 deducible = deducible_template_args (ARGUMENT_PACK_ARGS (elt));
19879 else
19881 if (PACK_EXPANSION_P (elt))
19882 elt = PACK_EXPANSION_PATTERN (elt);
19883 if (TREE_CODE (elt) == TEMPLATE_TEMPLATE_PARM)
19884 deducible = true;
19885 else if (TYPE_P (elt))
19886 deducible = uses_deducible_template_parms (elt);
19887 else
19888 deducible = deducible_expression (elt);
19890 if (deducible)
19891 return true;
19893 return false;
19896 /* Returns true iff TYPE contains any deducible references to template
19897 parameters, as per 14.8.2.5. */
19899 static bool
19900 uses_deducible_template_parms (tree type)
19902 if (PACK_EXPANSION_P (type))
19903 type = PACK_EXPANSION_PATTERN (type);
19905 /* T
19906 cv-list T
19907 TT<T>
19908 TT<i>
19909 TT<> */
19910 if (TREE_CODE (type) == TEMPLATE_TYPE_PARM
19911 || TREE_CODE (type) == BOUND_TEMPLATE_TEMPLATE_PARM)
19912 return true;
19914 /* T*
19916 T&& */
19917 if (POINTER_TYPE_P (type))
19918 return uses_deducible_template_parms (TREE_TYPE (type));
19920 /* T[integer-constant ]
19921 type [i] */
19922 if (TREE_CODE (type) == ARRAY_TYPE)
19923 return (uses_deducible_template_parms (TREE_TYPE (type))
19924 || deducible_array_bound (TYPE_DOMAIN (type)));
19926 /* T type ::*
19927 type T::*
19928 T T::*
19929 T (type ::*)()
19930 type (T::*)()
19931 type (type ::*)(T)
19932 type (T::*)(T)
19933 T (type ::*)(T)
19934 T (T::*)()
19935 T (T::*)(T) */
19936 if (TYPE_PTRMEM_P (type))
19937 return (uses_deducible_template_parms (TYPE_PTRMEM_CLASS_TYPE (type))
19938 || (uses_deducible_template_parms
19939 (TYPE_PTRMEM_POINTED_TO_TYPE (type))));
19941 /* template-name <T> (where template-name refers to a class template)
19942 template-name <i> (where template-name refers to a class template) */
19943 if (CLASS_TYPE_P (type)
19944 && CLASSTYPE_TEMPLATE_INFO (type)
19945 && PRIMARY_TEMPLATE_P (CLASSTYPE_TI_TEMPLATE (type)))
19946 return deducible_template_args (INNERMOST_TEMPLATE_ARGS
19947 (CLASSTYPE_TI_ARGS (type)));
19949 /* type (T)
19951 T(T) */
19952 if (TREE_CODE (type) == FUNCTION_TYPE
19953 || TREE_CODE (type) == METHOD_TYPE)
19955 if (uses_deducible_template_parms (TREE_TYPE (type)))
19956 return true;
19957 tree parm = TYPE_ARG_TYPES (type);
19958 if (TREE_CODE (type) == METHOD_TYPE)
19959 parm = TREE_CHAIN (parm);
19960 for (; parm; parm = TREE_CHAIN (parm))
19961 if (uses_deducible_template_parms (TREE_VALUE (parm)))
19962 return true;
19965 return false;
19968 /* Subroutine of type_unification_real and unify_pack_expansion to
19969 handle unification of a single P/A pair. Parameters are as
19970 for those functions. */
19972 static int
19973 unify_one_argument (tree tparms, tree targs, tree parm, tree arg,
19974 int subr, unification_kind_t strict,
19975 bool explain_p)
19977 tree arg_expr = NULL_TREE;
19978 int arg_strict;
19980 if (arg == error_mark_node || parm == error_mark_node)
19981 return unify_invalid (explain_p);
19982 if (arg == unknown_type_node)
19983 /* We can't deduce anything from this, but we might get all the
19984 template args from other function args. */
19985 return unify_success (explain_p);
19987 /* Implicit conversions (Clause 4) will be performed on a function
19988 argument to convert it to the type of the corresponding function
19989 parameter if the parameter type contains no template-parameters that
19990 participate in template argument deduction. */
19991 if (strict != DEDUCE_EXACT
19992 && TYPE_P (parm) && !uses_deducible_template_parms (parm))
19993 /* For function parameters with no deducible template parameters,
19994 just return. We'll check non-dependent conversions later. */
19995 return unify_success (explain_p);
19997 switch (strict)
19999 case DEDUCE_CALL:
20000 arg_strict = (UNIFY_ALLOW_OUTER_LEVEL
20001 | UNIFY_ALLOW_MORE_CV_QUAL
20002 | UNIFY_ALLOW_DERIVED);
20003 break;
20005 case DEDUCE_CONV:
20006 arg_strict = UNIFY_ALLOW_LESS_CV_QUAL;
20007 break;
20009 case DEDUCE_EXACT:
20010 arg_strict = UNIFY_ALLOW_NONE;
20011 break;
20013 default:
20014 gcc_unreachable ();
20017 /* We only do these transformations if this is the top-level
20018 parameter_type_list in a call or declaration matching; in other
20019 situations (nested function declarators, template argument lists) we
20020 won't be comparing a type to an expression, and we don't do any type
20021 adjustments. */
20022 if (!subr)
20024 if (!TYPE_P (arg))
20026 gcc_assert (TREE_TYPE (arg) != NULL_TREE);
20027 if (type_unknown_p (arg))
20029 /* [temp.deduct.type] A template-argument can be
20030 deduced from a pointer to function or pointer
20031 to member function argument if the set of
20032 overloaded functions does not contain function
20033 templates and at most one of a set of
20034 overloaded functions provides a unique
20035 match. */
20036 resolve_overloaded_unification (tparms, targs, parm,
20037 arg, strict,
20038 arg_strict, explain_p);
20039 /* If a unique match was not found, this is a
20040 non-deduced context, so we still succeed. */
20041 return unify_success (explain_p);
20044 arg_expr = arg;
20045 arg = unlowered_expr_type (arg);
20046 if (arg == error_mark_node)
20047 return unify_invalid (explain_p);
20050 arg_strict |=
20051 maybe_adjust_types_for_deduction (strict, &parm, &arg, arg_expr);
20053 else
20054 if ((TYPE_P (parm) || TREE_CODE (parm) == TEMPLATE_DECL)
20055 != (TYPE_P (arg) || TREE_CODE (arg) == TEMPLATE_DECL))
20056 return unify_template_argument_mismatch (explain_p, parm, arg);
20058 /* For deduction from an init-list we need the actual list. */
20059 if (arg_expr && BRACE_ENCLOSED_INITIALIZER_P (arg_expr))
20060 arg = arg_expr;
20061 return unify (tparms, targs, parm, arg, arg_strict, explain_p);
20064 /* for_each_template_parm callback that always returns 0. */
20066 static int
20067 zero_r (tree, void *)
20069 return 0;
20072 /* for_each_template_parm any_fn callback to handle deduction of a template
20073 type argument from the type of an array bound. */
20075 static int
20076 array_deduction_r (tree t, void *data)
20078 tree_pair_p d = (tree_pair_p)data;
20079 tree &tparms = d->purpose;
20080 tree &targs = d->value;
20082 if (TREE_CODE (t) == ARRAY_TYPE)
20083 if (tree dom = TYPE_DOMAIN (t))
20084 if (tree max = TYPE_MAX_VALUE (dom))
20086 if (TREE_CODE (max) == MINUS_EXPR)
20087 max = TREE_OPERAND (max, 0);
20088 if (TREE_CODE (max) == TEMPLATE_PARM_INDEX)
20089 unify (tparms, targs, TREE_TYPE (max), size_type_node,
20090 UNIFY_ALLOW_NONE, /*explain*/false);
20093 /* Keep walking. */
20094 return 0;
20097 /* Try to deduce any not-yet-deduced template type arguments from the type of
20098 an array bound. This is handled separately from unify because 14.8.2.5 says
20099 "The type of a type parameter is only deduced from an array bound if it is
20100 not otherwise deduced." */
20102 static void
20103 try_array_deduction (tree tparms, tree targs, tree parm)
20105 tree_pair_s data = { tparms, targs };
20106 hash_set<tree> visited;
20107 for_each_template_parm (parm, zero_r, &data, &visited,
20108 /*nondeduced*/false, array_deduction_r);
20111 /* Most parms like fn_type_unification.
20113 If SUBR is 1, we're being called recursively (to unify the
20114 arguments of a function or method parameter of a function
20115 template).
20117 CHECKS is a pointer to a vector of access checks encountered while
20118 substituting default template arguments. */
20120 static int
20121 type_unification_real (tree tparms,
20122 tree full_targs,
20123 tree xparms,
20124 const tree *xargs,
20125 unsigned int xnargs,
20126 int subr,
20127 unification_kind_t strict,
20128 int flags,
20129 vec<deferred_access_check, va_gc> **checks,
20130 bool explain_p)
20132 tree parm, arg;
20133 int i;
20134 int ntparms = TREE_VEC_LENGTH (tparms);
20135 int saw_undeduced = 0;
20136 tree parms;
20137 const tree *args;
20138 unsigned int nargs;
20139 unsigned int ia;
20141 gcc_assert (TREE_CODE (tparms) == TREE_VEC);
20142 gcc_assert (xparms == NULL_TREE || TREE_CODE (xparms) == TREE_LIST);
20143 gcc_assert (ntparms > 0);
20145 tree targs = INNERMOST_TEMPLATE_ARGS (full_targs);
20147 /* Reset the number of non-defaulted template arguments contained
20148 in TARGS. */
20149 NON_DEFAULT_TEMPLATE_ARGS_COUNT (targs) = NULL_TREE;
20151 again:
20152 parms = xparms;
20153 args = xargs;
20154 nargs = xnargs;
20156 ia = 0;
20157 while (parms && parms != void_list_node
20158 && ia < nargs)
20160 parm = TREE_VALUE (parms);
20162 if (TREE_CODE (parm) == TYPE_PACK_EXPANSION
20163 && (!TREE_CHAIN (parms) || TREE_CHAIN (parms) == void_list_node))
20164 /* For a function parameter pack that occurs at the end of the
20165 parameter-declaration-list, the type A of each remaining
20166 argument of the call is compared with the type P of the
20167 declarator-id of the function parameter pack. */
20168 break;
20170 parms = TREE_CHAIN (parms);
20172 if (TREE_CODE (parm) == TYPE_PACK_EXPANSION)
20173 /* For a function parameter pack that does not occur at the
20174 end of the parameter-declaration-list, the type of the
20175 parameter pack is a non-deduced context. */
20176 continue;
20178 arg = args[ia];
20179 ++ia;
20181 if (unify_one_argument (tparms, full_targs, parm, arg, subr, strict,
20182 explain_p))
20183 return 1;
20186 if (parms
20187 && parms != void_list_node
20188 && TREE_CODE (TREE_VALUE (parms)) == TYPE_PACK_EXPANSION)
20190 /* Unify the remaining arguments with the pack expansion type. */
20191 tree argvec;
20192 tree parmvec = make_tree_vec (1);
20194 /* Allocate a TREE_VEC and copy in all of the arguments */
20195 argvec = make_tree_vec (nargs - ia);
20196 for (i = 0; ia < nargs; ++ia, ++i)
20197 TREE_VEC_ELT (argvec, i) = args[ia];
20199 /* Copy the parameter into parmvec. */
20200 TREE_VEC_ELT (parmvec, 0) = TREE_VALUE (parms);
20201 if (unify_pack_expansion (tparms, full_targs, parmvec, argvec, strict,
20202 /*subr=*/subr, explain_p))
20203 return 1;
20205 /* Advance to the end of the list of parameters. */
20206 parms = TREE_CHAIN (parms);
20209 /* Fail if we've reached the end of the parm list, and more args
20210 are present, and the parm list isn't variadic. */
20211 if (ia < nargs && parms == void_list_node)
20212 return unify_too_many_arguments (explain_p, nargs, ia);
20213 /* Fail if parms are left and they don't have default values and
20214 they aren't all deduced as empty packs (c++/57397). This is
20215 consistent with sufficient_parms_p. */
20216 if (parms && parms != void_list_node
20217 && TREE_PURPOSE (parms) == NULL_TREE)
20219 unsigned int count = nargs;
20220 tree p = parms;
20221 bool type_pack_p;
20224 type_pack_p = TREE_CODE (TREE_VALUE (p)) == TYPE_PACK_EXPANSION;
20225 if (!type_pack_p)
20226 count++;
20227 p = TREE_CHAIN (p);
20229 while (p && p != void_list_node);
20230 if (count != nargs)
20231 return unify_too_few_arguments (explain_p, ia, count,
20232 type_pack_p);
20235 if (!subr)
20237 tsubst_flags_t complain = (explain_p
20238 ? tf_warning_or_error
20239 : tf_none);
20240 bool tried_array_deduction = (cxx_dialect < cxx17);
20242 for (i = 0; i < ntparms; i++)
20244 tree targ = TREE_VEC_ELT (targs, i);
20245 tree tparm = TREE_VEC_ELT (tparms, i);
20247 /* Clear the "incomplete" flags on all argument packs now so that
20248 substituting them into later default arguments works. */
20249 if (targ && ARGUMENT_PACK_P (targ))
20251 ARGUMENT_PACK_INCOMPLETE_P (targ) = 0;
20252 ARGUMENT_PACK_EXPLICIT_ARGS (targ) = NULL_TREE;
20255 if (targ || tparm == error_mark_node)
20256 continue;
20257 tparm = TREE_VALUE (tparm);
20259 if (TREE_CODE (tparm) == TYPE_DECL
20260 && !tried_array_deduction)
20262 try_array_deduction (tparms, targs, xparms);
20263 tried_array_deduction = true;
20264 if (TREE_VEC_ELT (targs, i))
20265 continue;
20268 /* If this is an undeduced nontype parameter that depends on
20269 a type parameter, try another pass; its type may have been
20270 deduced from a later argument than the one from which
20271 this parameter can be deduced. */
20272 if (TREE_CODE (tparm) == PARM_DECL
20273 && uses_template_parms (TREE_TYPE (tparm))
20274 && saw_undeduced < 2)
20276 saw_undeduced = 1;
20277 continue;
20280 /* Core issue #226 (C++0x) [temp.deduct]:
20282 If a template argument has not been deduced, its
20283 default template argument, if any, is used.
20285 When we are in C++98 mode, TREE_PURPOSE will either
20286 be NULL_TREE or ERROR_MARK_NODE, so we do not need
20287 to explicitly check cxx_dialect here. */
20288 if (TREE_PURPOSE (TREE_VEC_ELT (tparms, i)))
20289 /* OK, there is a default argument. Wait until after the
20290 conversion check to do substitution. */
20291 continue;
20293 /* If the type parameter is a parameter pack, then it will
20294 be deduced to an empty parameter pack. */
20295 if (template_parameter_pack_p (tparm))
20297 tree arg;
20299 if (TREE_CODE (tparm) == TEMPLATE_PARM_INDEX)
20301 arg = make_node (NONTYPE_ARGUMENT_PACK);
20302 TREE_CONSTANT (arg) = 1;
20304 else
20305 arg = cxx_make_type (TYPE_ARGUMENT_PACK);
20307 SET_ARGUMENT_PACK_ARGS (arg, make_tree_vec (0));
20309 TREE_VEC_ELT (targs, i) = arg;
20310 continue;
20313 return unify_parameter_deduction_failure (explain_p, tparm);
20316 /* DR 1391: All parameters have args, now check non-dependent parms for
20317 convertibility. */
20318 if (saw_undeduced < 2)
20319 for (ia = 0, parms = xparms, args = xargs, nargs = xnargs;
20320 parms && parms != void_list_node && ia < nargs; )
20322 parm = TREE_VALUE (parms);
20324 if (TREE_CODE (parm) == TYPE_PACK_EXPANSION
20325 && (!TREE_CHAIN (parms)
20326 || TREE_CHAIN (parms) == void_list_node))
20327 /* For a function parameter pack that occurs at the end of the
20328 parameter-declaration-list, the type A of each remaining
20329 argument of the call is compared with the type P of the
20330 declarator-id of the function parameter pack. */
20331 break;
20333 parms = TREE_CHAIN (parms);
20335 if (TREE_CODE (parm) == TYPE_PACK_EXPANSION)
20336 /* For a function parameter pack that does not occur at the
20337 end of the parameter-declaration-list, the type of the
20338 parameter pack is a non-deduced context. */
20339 continue;
20341 arg = args[ia];
20342 ++ia;
20344 if (uses_template_parms (parm))
20345 continue;
20346 if (check_non_deducible_conversion (parm, arg, strict, flags,
20347 explain_p))
20348 return 1;
20351 /* Now substitute into the default template arguments. */
20352 for (i = 0; i < ntparms; i++)
20354 tree targ = TREE_VEC_ELT (targs, i);
20355 tree tparm = TREE_VEC_ELT (tparms, i);
20357 if (targ || tparm == error_mark_node)
20358 continue;
20359 tree parm = TREE_VALUE (tparm);
20360 tree arg = TREE_PURPOSE (tparm);
20361 reopen_deferring_access_checks (*checks);
20362 location_t save_loc = input_location;
20363 if (DECL_P (parm))
20364 input_location = DECL_SOURCE_LOCATION (parm);
20365 if (saw_undeduced == 1)
20366 ++processing_template_decl;
20368 if (saw_undeduced == 1
20369 && TREE_CODE (parm) == PARM_DECL
20370 && uses_template_parms (TREE_TYPE (parm)))
20372 /* The type of this non-type parameter depends on undeduced
20373 parameters. Don't try to use its default argument yet,
20374 but do check whether the arguments we already have cause
20375 substitution failure, so that that happens before we try
20376 later default arguments (78489). */
20377 tree type = tsubst (TREE_TYPE (parm), full_targs, complain,
20378 NULL_TREE);
20379 if (type == error_mark_node)
20380 arg = error_mark_node;
20381 else
20382 arg = NULL_TREE;
20384 else
20386 arg = tsubst_template_arg (arg, full_targs, complain, NULL_TREE);
20388 if (!uses_template_parms (arg))
20389 arg = convert_template_argument (parm, arg, full_targs,
20390 complain, i, NULL_TREE);
20391 else if (saw_undeduced == 1)
20392 arg = NULL_TREE;
20393 else
20394 arg = error_mark_node;
20397 if (saw_undeduced == 1)
20398 --processing_template_decl;
20399 input_location = save_loc;
20400 *checks = get_deferred_access_checks ();
20401 pop_deferring_access_checks ();
20403 if (arg == error_mark_node)
20404 return 1;
20405 else if (arg)
20407 TREE_VEC_ELT (targs, i) = arg;
20408 /* The position of the first default template argument,
20409 is also the number of non-defaulted arguments in TARGS.
20410 Record that. */
20411 if (!NON_DEFAULT_TEMPLATE_ARGS_COUNT (targs))
20412 SET_NON_DEFAULT_TEMPLATE_ARGS_COUNT (targs, i);
20416 if (saw_undeduced++ == 1)
20417 goto again;
20420 if (CHECKING_P && !NON_DEFAULT_TEMPLATE_ARGS_COUNT (targs))
20421 SET_NON_DEFAULT_TEMPLATE_ARGS_COUNT (targs, TREE_VEC_LENGTH (targs));
20423 return unify_success (explain_p);
20426 /* Subroutine of type_unification_real. Args are like the variables
20427 at the call site. ARG is an overloaded function (or template-id);
20428 we try deducing template args from each of the overloads, and if
20429 only one succeeds, we go with that. Modifies TARGS and returns
20430 true on success. */
20432 static bool
20433 resolve_overloaded_unification (tree tparms,
20434 tree targs,
20435 tree parm,
20436 tree arg,
20437 unification_kind_t strict,
20438 int sub_strict,
20439 bool explain_p)
20441 tree tempargs = copy_node (targs);
20442 int good = 0;
20443 tree goodfn = NULL_TREE;
20444 bool addr_p;
20446 if (TREE_CODE (arg) == ADDR_EXPR)
20448 arg = TREE_OPERAND (arg, 0);
20449 addr_p = true;
20451 else
20452 addr_p = false;
20454 if (TREE_CODE (arg) == COMPONENT_REF)
20455 /* Handle `&x' where `x' is some static or non-static member
20456 function name. */
20457 arg = TREE_OPERAND (arg, 1);
20459 if (TREE_CODE (arg) == OFFSET_REF)
20460 arg = TREE_OPERAND (arg, 1);
20462 /* Strip baselink information. */
20463 if (BASELINK_P (arg))
20464 arg = BASELINK_FUNCTIONS (arg);
20466 if (TREE_CODE (arg) == TEMPLATE_ID_EXPR)
20468 /* If we got some explicit template args, we need to plug them into
20469 the affected templates before we try to unify, in case the
20470 explicit args will completely resolve the templates in question. */
20472 int ok = 0;
20473 tree expl_subargs = TREE_OPERAND (arg, 1);
20474 arg = TREE_OPERAND (arg, 0);
20476 for (lkp_iterator iter (arg); iter; ++iter)
20478 tree fn = *iter;
20479 tree subargs, elem;
20481 if (TREE_CODE (fn) != TEMPLATE_DECL)
20482 continue;
20484 subargs = coerce_template_parms (DECL_INNERMOST_TEMPLATE_PARMS (fn),
20485 expl_subargs, NULL_TREE, tf_none,
20486 /*require_all_args=*/true,
20487 /*use_default_args=*/true);
20488 if (subargs != error_mark_node
20489 && !any_dependent_template_arguments_p (subargs))
20491 elem = TREE_TYPE (instantiate_template (fn, subargs, tf_none));
20492 if (try_one_overload (tparms, targs, tempargs, parm,
20493 elem, strict, sub_strict, addr_p, explain_p)
20494 && (!goodfn || !same_type_p (goodfn, elem)))
20496 goodfn = elem;
20497 ++good;
20500 else if (subargs)
20501 ++ok;
20503 /* If no templates (or more than one) are fully resolved by the
20504 explicit arguments, this template-id is a non-deduced context; it
20505 could still be OK if we deduce all template arguments for the
20506 enclosing call through other arguments. */
20507 if (good != 1)
20508 good = ok;
20510 else if (TREE_CODE (arg) != OVERLOAD
20511 && TREE_CODE (arg) != FUNCTION_DECL)
20512 /* If ARG is, for example, "(0, &f)" then its type will be unknown
20513 -- but the deduction does not succeed because the expression is
20514 not just the function on its own. */
20515 return false;
20516 else
20517 for (lkp_iterator iter (arg); iter; ++iter)
20519 tree fn = *iter;
20520 if (try_one_overload (tparms, targs, tempargs, parm, TREE_TYPE (fn),
20521 strict, sub_strict, addr_p, explain_p)
20522 && (!goodfn || !decls_match (goodfn, fn)))
20524 goodfn = fn;
20525 ++good;
20529 /* [temp.deduct.type] A template-argument can be deduced from a pointer
20530 to function or pointer to member function argument if the set of
20531 overloaded functions does not contain function templates and at most
20532 one of a set of overloaded functions provides a unique match.
20534 So if we found multiple possibilities, we return success but don't
20535 deduce anything. */
20537 if (good == 1)
20539 int i = TREE_VEC_LENGTH (targs);
20540 for (; i--; )
20541 if (TREE_VEC_ELT (tempargs, i))
20543 tree old = TREE_VEC_ELT (targs, i);
20544 tree new_ = TREE_VEC_ELT (tempargs, i);
20545 if (new_ && old && ARGUMENT_PACK_P (old)
20546 && ARGUMENT_PACK_EXPLICIT_ARGS (old))
20547 /* Don't forget explicit template arguments in a pack. */
20548 ARGUMENT_PACK_EXPLICIT_ARGS (new_)
20549 = ARGUMENT_PACK_EXPLICIT_ARGS (old);
20550 TREE_VEC_ELT (targs, i) = new_;
20553 if (good)
20554 return true;
20556 return false;
20559 /* Core DR 115: In contexts where deduction is done and fails, or in
20560 contexts where deduction is not done, if a template argument list is
20561 specified and it, along with any default template arguments, identifies
20562 a single function template specialization, then the template-id is an
20563 lvalue for the function template specialization. */
20565 tree
20566 resolve_nondeduced_context (tree orig_expr, tsubst_flags_t complain)
20568 tree expr, offset, baselink;
20569 bool addr;
20571 if (!type_unknown_p (orig_expr))
20572 return orig_expr;
20574 expr = orig_expr;
20575 addr = false;
20576 offset = NULL_TREE;
20577 baselink = NULL_TREE;
20579 if (TREE_CODE (expr) == ADDR_EXPR)
20581 expr = TREE_OPERAND (expr, 0);
20582 addr = true;
20584 if (TREE_CODE (expr) == OFFSET_REF)
20586 offset = expr;
20587 expr = TREE_OPERAND (expr, 1);
20589 if (BASELINK_P (expr))
20591 baselink = expr;
20592 expr = BASELINK_FUNCTIONS (expr);
20595 if (TREE_CODE (expr) == TEMPLATE_ID_EXPR)
20597 int good = 0;
20598 tree goodfn = NULL_TREE;
20600 /* If we got some explicit template args, we need to plug them into
20601 the affected templates before we try to unify, in case the
20602 explicit args will completely resolve the templates in question. */
20604 tree expl_subargs = TREE_OPERAND (expr, 1);
20605 tree arg = TREE_OPERAND (expr, 0);
20606 tree badfn = NULL_TREE;
20607 tree badargs = NULL_TREE;
20609 for (lkp_iterator iter (arg); iter; ++iter)
20611 tree fn = *iter;
20612 tree subargs, elem;
20614 if (TREE_CODE (fn) != TEMPLATE_DECL)
20615 continue;
20617 subargs = coerce_template_parms (DECL_INNERMOST_TEMPLATE_PARMS (fn),
20618 expl_subargs, NULL_TREE, tf_none,
20619 /*require_all_args=*/true,
20620 /*use_default_args=*/true);
20621 if (subargs != error_mark_node
20622 && !any_dependent_template_arguments_p (subargs))
20624 elem = instantiate_template (fn, subargs, tf_none);
20625 if (elem == error_mark_node)
20627 badfn = fn;
20628 badargs = subargs;
20630 else if (elem && (!goodfn || !decls_match (goodfn, elem)))
20632 goodfn = elem;
20633 ++good;
20637 if (good == 1)
20639 mark_used (goodfn);
20640 expr = goodfn;
20641 if (baselink)
20642 expr = build_baselink (BASELINK_BINFO (baselink),
20643 BASELINK_ACCESS_BINFO (baselink),
20644 expr, BASELINK_OPTYPE (baselink));
20645 if (offset)
20647 tree base
20648 = TYPE_MAIN_VARIANT (TREE_TYPE (TREE_OPERAND (offset, 0)));
20649 expr = build_offset_ref (base, expr, addr, complain);
20651 if (addr)
20652 expr = cp_build_addr_expr (expr, complain);
20653 return expr;
20655 else if (good == 0 && badargs && (complain & tf_error))
20656 /* There were no good options and at least one bad one, so let the
20657 user know what the problem is. */
20658 instantiate_template (badfn, badargs, complain);
20660 return orig_expr;
20663 /* Subroutine of resolve_overloaded_unification; does deduction for a single
20664 overload. Fills TARGS with any deduced arguments, or error_mark_node if
20665 different overloads deduce different arguments for a given parm.
20666 ADDR_P is true if the expression for which deduction is being
20667 performed was of the form "& fn" rather than simply "fn".
20669 Returns 1 on success. */
20671 static int
20672 try_one_overload (tree tparms,
20673 tree orig_targs,
20674 tree targs,
20675 tree parm,
20676 tree arg,
20677 unification_kind_t strict,
20678 int sub_strict,
20679 bool addr_p,
20680 bool explain_p)
20682 int nargs;
20683 tree tempargs;
20684 int i;
20686 if (arg == error_mark_node)
20687 return 0;
20689 /* [temp.deduct.type] A template-argument can be deduced from a pointer
20690 to function or pointer to member function argument if the set of
20691 overloaded functions does not contain function templates and at most
20692 one of a set of overloaded functions provides a unique match.
20694 So if this is a template, just return success. */
20696 if (uses_template_parms (arg))
20697 return 1;
20699 if (TREE_CODE (arg) == METHOD_TYPE)
20700 arg = build_ptrmemfunc_type (build_pointer_type (arg));
20701 else if (addr_p)
20702 arg = build_pointer_type (arg);
20704 sub_strict |= maybe_adjust_types_for_deduction (strict, &parm, &arg, NULL);
20706 /* We don't copy orig_targs for this because if we have already deduced
20707 some template args from previous args, unify would complain when we
20708 try to deduce a template parameter for the same argument, even though
20709 there isn't really a conflict. */
20710 nargs = TREE_VEC_LENGTH (targs);
20711 tempargs = make_tree_vec (nargs);
20713 if (unify (tparms, tempargs, parm, arg, sub_strict, explain_p))
20714 return 0;
20716 /* First make sure we didn't deduce anything that conflicts with
20717 explicitly specified args. */
20718 for (i = nargs; i--; )
20720 tree elt = TREE_VEC_ELT (tempargs, i);
20721 tree oldelt = TREE_VEC_ELT (orig_targs, i);
20723 if (!elt)
20724 /*NOP*/;
20725 else if (uses_template_parms (elt))
20726 /* Since we're unifying against ourselves, we will fill in
20727 template args used in the function parm list with our own
20728 template parms. Discard them. */
20729 TREE_VEC_ELT (tempargs, i) = NULL_TREE;
20730 else if (oldelt && ARGUMENT_PACK_P (oldelt))
20732 /* Check that the argument at each index of the deduced argument pack
20733 is equivalent to the corresponding explicitly specified argument.
20734 We may have deduced more arguments than were explicitly specified,
20735 and that's OK. */
20737 /* We used to assert ARGUMENT_PACK_INCOMPLETE_P (oldelt) here, but
20738 that's wrong if we deduce the same argument pack from multiple
20739 function arguments: it's only incomplete the first time. */
20741 tree explicit_pack = ARGUMENT_PACK_ARGS (oldelt);
20742 tree deduced_pack = ARGUMENT_PACK_ARGS (elt);
20744 if (TREE_VEC_LENGTH (deduced_pack)
20745 < TREE_VEC_LENGTH (explicit_pack))
20746 return 0;
20748 for (int j = 0; j < TREE_VEC_LENGTH (explicit_pack); j++)
20749 if (!template_args_equal (TREE_VEC_ELT (explicit_pack, j),
20750 TREE_VEC_ELT (deduced_pack, j)))
20751 return 0;
20753 else if (oldelt && !template_args_equal (oldelt, elt))
20754 return 0;
20757 for (i = nargs; i--; )
20759 tree elt = TREE_VEC_ELT (tempargs, i);
20761 if (elt)
20762 TREE_VEC_ELT (targs, i) = elt;
20765 return 1;
20768 /* PARM is a template class (perhaps with unbound template
20769 parameters). ARG is a fully instantiated type. If ARG can be
20770 bound to PARM, return ARG, otherwise return NULL_TREE. TPARMS and
20771 TARGS are as for unify. */
20773 static tree
20774 try_class_unification (tree tparms, tree targs, tree parm, tree arg,
20775 bool explain_p)
20777 tree copy_of_targs;
20779 if (!CLASSTYPE_SPECIALIZATION_OF_PRIMARY_TEMPLATE_P (arg))
20780 return NULL_TREE;
20781 else if (TREE_CODE (parm) == BOUND_TEMPLATE_TEMPLATE_PARM)
20782 /* Matches anything. */;
20783 else if (most_general_template (CLASSTYPE_TI_TEMPLATE (arg))
20784 != most_general_template (CLASSTYPE_TI_TEMPLATE (parm)))
20785 return NULL_TREE;
20787 /* We need to make a new template argument vector for the call to
20788 unify. If we used TARGS, we'd clutter it up with the result of
20789 the attempted unification, even if this class didn't work out.
20790 We also don't want to commit ourselves to all the unifications
20791 we've already done, since unification is supposed to be done on
20792 an argument-by-argument basis. In other words, consider the
20793 following pathological case:
20795 template <int I, int J, int K>
20796 struct S {};
20798 template <int I, int J>
20799 struct S<I, J, 2> : public S<I, I, I>, S<J, J, J> {};
20801 template <int I, int J, int K>
20802 void f(S<I, J, K>, S<I, I, I>);
20804 void g() {
20805 S<0, 0, 0> s0;
20806 S<0, 1, 2> s2;
20808 f(s0, s2);
20811 Now, by the time we consider the unification involving `s2', we
20812 already know that we must have `f<0, 0, 0>'. But, even though
20813 `S<0, 1, 2>' is derived from `S<0, 0, 0>', the code is invalid
20814 because there are two ways to unify base classes of S<0, 1, 2>
20815 with S<I, I, I>. If we kept the already deduced knowledge, we
20816 would reject the possibility I=1. */
20817 copy_of_targs = make_tree_vec (TREE_VEC_LENGTH (targs));
20819 if (TREE_CODE (parm) == BOUND_TEMPLATE_TEMPLATE_PARM)
20821 if (unify_bound_ttp_args (tparms, copy_of_targs, parm, arg, explain_p))
20822 return NULL_TREE;
20823 return arg;
20826 /* If unification failed, we're done. */
20827 if (unify (tparms, copy_of_targs, CLASSTYPE_TI_ARGS (parm),
20828 CLASSTYPE_TI_ARGS (arg), UNIFY_ALLOW_NONE, explain_p))
20829 return NULL_TREE;
20831 return arg;
20834 /* Given a template type PARM and a class type ARG, find the unique
20835 base type in ARG that is an instance of PARM. We do not examine
20836 ARG itself; only its base-classes. If there is not exactly one
20837 appropriate base class, return NULL_TREE. PARM may be the type of
20838 a partial specialization, as well as a plain template type. Used
20839 by unify. */
20841 static enum template_base_result
20842 get_template_base (tree tparms, tree targs, tree parm, tree arg,
20843 bool explain_p, tree *result)
20845 tree rval = NULL_TREE;
20846 tree binfo;
20848 gcc_assert (RECORD_OR_UNION_CODE_P (TREE_CODE (arg)));
20850 binfo = TYPE_BINFO (complete_type (arg));
20851 if (!binfo)
20853 /* The type could not be completed. */
20854 *result = NULL_TREE;
20855 return tbr_incomplete_type;
20858 /* Walk in inheritance graph order. The search order is not
20859 important, and this avoids multiple walks of virtual bases. */
20860 for (binfo = TREE_CHAIN (binfo); binfo; binfo = TREE_CHAIN (binfo))
20862 tree r = try_class_unification (tparms, targs, parm,
20863 BINFO_TYPE (binfo), explain_p);
20865 if (r)
20867 /* If there is more than one satisfactory baseclass, then:
20869 [temp.deduct.call]
20871 If they yield more than one possible deduced A, the type
20872 deduction fails.
20874 applies. */
20875 if (rval && !same_type_p (r, rval))
20877 *result = NULL_TREE;
20878 return tbr_ambiguous_baseclass;
20881 rval = r;
20885 *result = rval;
20886 return tbr_success;
20889 /* Returns the level of DECL, which declares a template parameter. */
20891 static int
20892 template_decl_level (tree decl)
20894 switch (TREE_CODE (decl))
20896 case TYPE_DECL:
20897 case TEMPLATE_DECL:
20898 return TEMPLATE_TYPE_LEVEL (TREE_TYPE (decl));
20900 case PARM_DECL:
20901 return TEMPLATE_PARM_LEVEL (DECL_INITIAL (decl));
20903 default:
20904 gcc_unreachable ();
20906 return 0;
20909 /* Decide whether ARG can be unified with PARM, considering only the
20910 cv-qualifiers of each type, given STRICT as documented for unify.
20911 Returns nonzero iff the unification is OK on that basis. */
20913 static int
20914 check_cv_quals_for_unify (int strict, tree arg, tree parm)
20916 int arg_quals = cp_type_quals (arg);
20917 int parm_quals = cp_type_quals (parm);
20919 if (TREE_CODE (parm) == TEMPLATE_TYPE_PARM
20920 && !(strict & UNIFY_ALLOW_OUTER_MORE_CV_QUAL))
20922 /* Although a CVR qualifier is ignored when being applied to a
20923 substituted template parameter ([8.3.2]/1 for example), that
20924 does not allow us to unify "const T" with "int&" because both
20925 types are not of the form "cv-list T" [14.8.2.5 temp.deduct.type].
20926 It is ok when we're allowing additional CV qualifiers
20927 at the outer level [14.8.2.1]/3,1st bullet. */
20928 if ((TREE_CODE (arg) == REFERENCE_TYPE
20929 || TREE_CODE (arg) == FUNCTION_TYPE
20930 || TREE_CODE (arg) == METHOD_TYPE)
20931 && (parm_quals & (TYPE_QUAL_CONST | TYPE_QUAL_VOLATILE)))
20932 return 0;
20934 if ((!POINTER_TYPE_P (arg) && TREE_CODE (arg) != TEMPLATE_TYPE_PARM)
20935 && (parm_quals & TYPE_QUAL_RESTRICT))
20936 return 0;
20939 if (!(strict & (UNIFY_ALLOW_MORE_CV_QUAL | UNIFY_ALLOW_OUTER_MORE_CV_QUAL))
20940 && (arg_quals & parm_quals) != parm_quals)
20941 return 0;
20943 if (!(strict & (UNIFY_ALLOW_LESS_CV_QUAL | UNIFY_ALLOW_OUTER_LESS_CV_QUAL))
20944 && (parm_quals & arg_quals) != arg_quals)
20945 return 0;
20947 return 1;
20950 /* Determines the LEVEL and INDEX for the template parameter PARM. */
20951 void
20952 template_parm_level_and_index (tree parm, int* level, int* index)
20954 if (TREE_CODE (parm) == TEMPLATE_TYPE_PARM
20955 || TREE_CODE (parm) == TEMPLATE_TEMPLATE_PARM
20956 || TREE_CODE (parm) == BOUND_TEMPLATE_TEMPLATE_PARM)
20958 *index = TEMPLATE_TYPE_IDX (parm);
20959 *level = TEMPLATE_TYPE_LEVEL (parm);
20961 else
20963 *index = TEMPLATE_PARM_IDX (parm);
20964 *level = TEMPLATE_PARM_LEVEL (parm);
20968 #define RECUR_AND_CHECK_FAILURE(TP, TA, P, A, S, EP) \
20969 do { \
20970 if (unify (TP, TA, P, A, S, EP)) \
20971 return 1; \
20972 } while (0)
20974 /* Unifies the remaining arguments in PACKED_ARGS with the pack
20975 expansion at the end of PACKED_PARMS. Returns 0 if the type
20976 deduction succeeds, 1 otherwise. STRICT is the same as in
20977 fn_type_unification. CALL_ARGS_P is true iff PACKED_ARGS is actually a
20978 function call argument list. We'll need to adjust the arguments to make them
20979 types. SUBR tells us if this is from a recursive call to
20980 type_unification_real, or for comparing two template argument
20981 lists. */
20983 static int
20984 unify_pack_expansion (tree tparms, tree targs, tree packed_parms,
20985 tree packed_args, unification_kind_t strict,
20986 bool subr, bool explain_p)
20988 tree parm
20989 = TREE_VEC_ELT (packed_parms, TREE_VEC_LENGTH (packed_parms) - 1);
20990 tree pattern = PACK_EXPANSION_PATTERN (parm);
20991 tree pack, packs = NULL_TREE;
20992 int i, start = TREE_VEC_LENGTH (packed_parms) - 1;
20994 /* Add in any args remembered from an earlier partial instantiation. */
20995 targs = add_to_template_args (PACK_EXPANSION_EXTRA_ARGS (parm), targs);
20996 int levels = TMPL_ARGS_DEPTH (targs);
20998 packed_args = expand_template_argument_pack (packed_args);
21000 int len = TREE_VEC_LENGTH (packed_args);
21002 /* Determine the parameter packs we will be deducing from the
21003 pattern, and record their current deductions. */
21004 for (pack = PACK_EXPANSION_PARAMETER_PACKS (parm);
21005 pack; pack = TREE_CHAIN (pack))
21007 tree parm_pack = TREE_VALUE (pack);
21008 int idx, level;
21010 /* Only template parameter packs can be deduced, not e.g. function
21011 parameter packs or __bases or __integer_pack. */
21012 if (!TEMPLATE_PARM_P (parm_pack))
21013 continue;
21015 /* Determine the index and level of this parameter pack. */
21016 template_parm_level_and_index (parm_pack, &level, &idx);
21017 if (level < levels)
21018 continue;
21020 /* Keep track of the parameter packs and their corresponding
21021 argument packs. */
21022 packs = tree_cons (parm_pack, TMPL_ARG (targs, level, idx), packs);
21023 TREE_TYPE (packs) = make_tree_vec (len - start);
21026 /* Loop through all of the arguments that have not yet been
21027 unified and unify each with the pattern. */
21028 for (i = start; i < len; i++)
21030 tree parm;
21031 bool any_explicit = false;
21032 tree arg = TREE_VEC_ELT (packed_args, i);
21034 /* For each parameter pack, set its TMPL_ARG to either NULL_TREE
21035 or the element of its argument pack at the current index if
21036 this argument was explicitly specified. */
21037 for (pack = packs; pack; pack = TREE_CHAIN (pack))
21039 int idx, level;
21040 tree arg, pargs;
21041 template_parm_level_and_index (TREE_PURPOSE (pack), &level, &idx);
21043 arg = NULL_TREE;
21044 if (TREE_VALUE (pack)
21045 && (pargs = ARGUMENT_PACK_EXPLICIT_ARGS (TREE_VALUE (pack)))
21046 && (i - start < TREE_VEC_LENGTH (pargs)))
21048 any_explicit = true;
21049 arg = TREE_VEC_ELT (pargs, i - start);
21051 TMPL_ARG (targs, level, idx) = arg;
21054 /* If we had explicit template arguments, substitute them into the
21055 pattern before deduction. */
21056 if (any_explicit)
21058 /* Some arguments might still be unspecified or dependent. */
21059 bool dependent;
21060 ++processing_template_decl;
21061 dependent = any_dependent_template_arguments_p (targs);
21062 if (!dependent)
21063 --processing_template_decl;
21064 parm = tsubst (pattern, targs,
21065 explain_p ? tf_warning_or_error : tf_none,
21066 NULL_TREE);
21067 if (dependent)
21068 --processing_template_decl;
21069 if (parm == error_mark_node)
21070 return 1;
21072 else
21073 parm = pattern;
21075 /* Unify the pattern with the current argument. */
21076 if (unify_one_argument (tparms, targs, parm, arg, subr, strict,
21077 explain_p))
21078 return 1;
21080 /* For each parameter pack, collect the deduced value. */
21081 for (pack = packs; pack; pack = TREE_CHAIN (pack))
21083 int idx, level;
21084 template_parm_level_and_index (TREE_PURPOSE (pack), &level, &idx);
21086 TREE_VEC_ELT (TREE_TYPE (pack), i - start) =
21087 TMPL_ARG (targs, level, idx);
21091 /* Verify that the results of unification with the parameter packs
21092 produce results consistent with what we've seen before, and make
21093 the deduced argument packs available. */
21094 for (pack = packs; pack; pack = TREE_CHAIN (pack))
21096 tree old_pack = TREE_VALUE (pack);
21097 tree new_args = TREE_TYPE (pack);
21098 int i, len = TREE_VEC_LENGTH (new_args);
21099 int idx, level;
21100 bool nondeduced_p = false;
21102 /* By default keep the original deduced argument pack.
21103 If necessary, more specific code is going to update the
21104 resulting deduced argument later down in this function. */
21105 template_parm_level_and_index (TREE_PURPOSE (pack), &level, &idx);
21106 TMPL_ARG (targs, level, idx) = old_pack;
21108 /* If NEW_ARGS contains any NULL_TREE entries, we didn't
21109 actually deduce anything. */
21110 for (i = 0; i < len && !nondeduced_p; ++i)
21111 if (TREE_VEC_ELT (new_args, i) == NULL_TREE)
21112 nondeduced_p = true;
21113 if (nondeduced_p)
21114 continue;
21116 if (old_pack && ARGUMENT_PACK_INCOMPLETE_P (old_pack))
21118 /* If we had fewer function args than explicit template args,
21119 just use the explicits. */
21120 tree explicit_args = ARGUMENT_PACK_EXPLICIT_ARGS (old_pack);
21121 int explicit_len = TREE_VEC_LENGTH (explicit_args);
21122 if (len < explicit_len)
21123 new_args = explicit_args;
21126 if (!old_pack)
21128 tree result;
21129 /* Build the deduced *_ARGUMENT_PACK. */
21130 if (TREE_CODE (TREE_PURPOSE (pack)) == TEMPLATE_PARM_INDEX)
21132 result = make_node (NONTYPE_ARGUMENT_PACK);
21133 TREE_CONSTANT (result) = 1;
21135 else
21136 result = cxx_make_type (TYPE_ARGUMENT_PACK);
21138 SET_ARGUMENT_PACK_ARGS (result, new_args);
21140 /* Note the deduced argument packs for this parameter
21141 pack. */
21142 TMPL_ARG (targs, level, idx) = result;
21144 else if (ARGUMENT_PACK_INCOMPLETE_P (old_pack)
21145 && (ARGUMENT_PACK_ARGS (old_pack)
21146 == ARGUMENT_PACK_EXPLICIT_ARGS (old_pack)))
21148 /* We only had the explicitly-provided arguments before, but
21149 now we have a complete set of arguments. */
21150 tree explicit_args = ARGUMENT_PACK_EXPLICIT_ARGS (old_pack);
21152 SET_ARGUMENT_PACK_ARGS (old_pack, new_args);
21153 ARGUMENT_PACK_INCOMPLETE_P (old_pack) = 1;
21154 ARGUMENT_PACK_EXPLICIT_ARGS (old_pack) = explicit_args;
21156 else
21158 tree bad_old_arg = NULL_TREE, bad_new_arg = NULL_TREE;
21159 tree old_args = ARGUMENT_PACK_ARGS (old_pack);
21161 if (!comp_template_args (old_args, new_args,
21162 &bad_old_arg, &bad_new_arg))
21163 /* Inconsistent unification of this parameter pack. */
21164 return unify_parameter_pack_inconsistent (explain_p,
21165 bad_old_arg,
21166 bad_new_arg);
21170 return unify_success (explain_p);
21173 /* Handle unification of the domain of an array. PARM_DOM and ARG_DOM are
21174 INTEGER_TYPEs representing the TYPE_DOMAIN of ARRAY_TYPEs. The other
21175 parameters and return value are as for unify. */
21177 static int
21178 unify_array_domain (tree tparms, tree targs,
21179 tree parm_dom, tree arg_dom,
21180 bool explain_p)
21182 tree parm_max;
21183 tree arg_max;
21184 bool parm_cst;
21185 bool arg_cst;
21187 /* Our representation of array types uses "N - 1" as the
21188 TYPE_MAX_VALUE for an array with "N" elements, if "N" is
21189 not an integer constant. We cannot unify arbitrarily
21190 complex expressions, so we eliminate the MINUS_EXPRs
21191 here. */
21192 parm_max = TYPE_MAX_VALUE (parm_dom);
21193 parm_cst = TREE_CODE (parm_max) == INTEGER_CST;
21194 if (!parm_cst)
21196 gcc_assert (TREE_CODE (parm_max) == MINUS_EXPR);
21197 parm_max = TREE_OPERAND (parm_max, 0);
21199 arg_max = TYPE_MAX_VALUE (arg_dom);
21200 arg_cst = TREE_CODE (arg_max) == INTEGER_CST;
21201 if (!arg_cst)
21203 /* The ARG_MAX may not be a simple MINUS_EXPR, if we are
21204 trying to unify the type of a variable with the type
21205 of a template parameter. For example:
21207 template <unsigned int N>
21208 void f (char (&) [N]);
21209 int g();
21210 void h(int i) {
21211 char a[g(i)];
21212 f(a);
21215 Here, the type of the ARG will be "int [g(i)]", and
21216 may be a SAVE_EXPR, etc. */
21217 if (TREE_CODE (arg_max) != MINUS_EXPR)
21218 return unify_vla_arg (explain_p, arg_dom);
21219 arg_max = TREE_OPERAND (arg_max, 0);
21222 /* If only one of the bounds used a MINUS_EXPR, compensate
21223 by adding one to the other bound. */
21224 if (parm_cst && !arg_cst)
21225 parm_max = fold_build2_loc (input_location, PLUS_EXPR,
21226 integer_type_node,
21227 parm_max,
21228 integer_one_node);
21229 else if (arg_cst && !parm_cst)
21230 arg_max = fold_build2_loc (input_location, PLUS_EXPR,
21231 integer_type_node,
21232 arg_max,
21233 integer_one_node);
21235 return unify (tparms, targs, parm_max, arg_max,
21236 UNIFY_ALLOW_INTEGER, explain_p);
21239 /* Returns whether T, a P or A in unify, is a type, template or expression. */
21241 enum pa_kind_t { pa_type, pa_tmpl, pa_expr };
21243 static pa_kind_t
21244 pa_kind (tree t)
21246 if (PACK_EXPANSION_P (t))
21247 t = PACK_EXPANSION_PATTERN (t);
21248 if (TREE_CODE (t) == TEMPLATE_TEMPLATE_PARM
21249 || TREE_CODE (t) == UNBOUND_CLASS_TEMPLATE
21250 || DECL_TYPE_TEMPLATE_P (t))
21251 return pa_tmpl;
21252 else if (TYPE_P (t))
21253 return pa_type;
21254 else
21255 return pa_expr;
21258 /* Deduce the value of template parameters. TPARMS is the (innermost)
21259 set of template parameters to a template. TARGS is the bindings
21260 for those template parameters, as determined thus far; TARGS may
21261 include template arguments for outer levels of template parameters
21262 as well. PARM is a parameter to a template function, or a
21263 subcomponent of that parameter; ARG is the corresponding argument.
21264 This function attempts to match PARM with ARG in a manner
21265 consistent with the existing assignments in TARGS. If more values
21266 are deduced, then TARGS is updated.
21268 Returns 0 if the type deduction succeeds, 1 otherwise. The
21269 parameter STRICT is a bitwise or of the following flags:
21271 UNIFY_ALLOW_NONE:
21272 Require an exact match between PARM and ARG.
21273 UNIFY_ALLOW_MORE_CV_QUAL:
21274 Allow the deduced ARG to be more cv-qualified (by qualification
21275 conversion) than ARG.
21276 UNIFY_ALLOW_LESS_CV_QUAL:
21277 Allow the deduced ARG to be less cv-qualified than ARG.
21278 UNIFY_ALLOW_DERIVED:
21279 Allow the deduced ARG to be a template base class of ARG,
21280 or a pointer to a template base class of the type pointed to by
21281 ARG.
21282 UNIFY_ALLOW_INTEGER:
21283 Allow any integral type to be deduced. See the TEMPLATE_PARM_INDEX
21284 case for more information.
21285 UNIFY_ALLOW_OUTER_LEVEL:
21286 This is the outermost level of a deduction. Used to determine validity
21287 of qualification conversions. A valid qualification conversion must
21288 have const qualified pointers leading up to the inner type which
21289 requires additional CV quals, except at the outer level, where const
21290 is not required [conv.qual]. It would be normal to set this flag in
21291 addition to setting UNIFY_ALLOW_MORE_CV_QUAL.
21292 UNIFY_ALLOW_OUTER_MORE_CV_QUAL:
21293 This is the outermost level of a deduction, and PARM can be more CV
21294 qualified at this point.
21295 UNIFY_ALLOW_OUTER_LESS_CV_QUAL:
21296 This is the outermost level of a deduction, and PARM can be less CV
21297 qualified at this point. */
21299 static int
21300 unify (tree tparms, tree targs, tree parm, tree arg, int strict,
21301 bool explain_p)
21303 int idx;
21304 tree targ;
21305 tree tparm;
21306 int strict_in = strict;
21307 tsubst_flags_t complain = (explain_p
21308 ? tf_warning_or_error
21309 : tf_none);
21311 /* I don't think this will do the right thing with respect to types.
21312 But the only case I've seen it in so far has been array bounds, where
21313 signedness is the only information lost, and I think that will be
21314 okay. */
21315 while (CONVERT_EXPR_P (parm))
21316 parm = TREE_OPERAND (parm, 0);
21318 if (arg == error_mark_node)
21319 return unify_invalid (explain_p);
21320 if (arg == unknown_type_node
21321 || arg == init_list_type_node)
21322 /* We can't deduce anything from this, but we might get all the
21323 template args from other function args. */
21324 return unify_success (explain_p);
21326 if (parm == any_targ_node || arg == any_targ_node)
21327 return unify_success (explain_p);
21329 /* If PARM uses template parameters, then we can't bail out here,
21330 even if ARG == PARM, since we won't record unifications for the
21331 template parameters. We might need them if we're trying to
21332 figure out which of two things is more specialized. */
21333 if (arg == parm && !uses_template_parms (parm))
21334 return unify_success (explain_p);
21336 /* Handle init lists early, so the rest of the function can assume
21337 we're dealing with a type. */
21338 if (BRACE_ENCLOSED_INITIALIZER_P (arg))
21340 tree elt, elttype;
21341 unsigned i;
21342 tree orig_parm = parm;
21344 /* Replace T with std::initializer_list<T> for deduction. */
21345 if (TREE_CODE (parm) == TEMPLATE_TYPE_PARM
21346 && flag_deduce_init_list)
21347 parm = listify (parm);
21349 if (!is_std_init_list (parm)
21350 && TREE_CODE (parm) != ARRAY_TYPE)
21351 /* We can only deduce from an initializer list argument if the
21352 parameter is std::initializer_list or an array; otherwise this
21353 is a non-deduced context. */
21354 return unify_success (explain_p);
21356 if (TREE_CODE (parm) == ARRAY_TYPE)
21357 elttype = TREE_TYPE (parm);
21358 else
21360 elttype = TREE_VEC_ELT (CLASSTYPE_TI_ARGS (parm), 0);
21361 /* Deduction is defined in terms of a single type, so just punt
21362 on the (bizarre) std::initializer_list<T...>. */
21363 if (PACK_EXPANSION_P (elttype))
21364 return unify_success (explain_p);
21367 FOR_EACH_CONSTRUCTOR_VALUE (CONSTRUCTOR_ELTS (arg), i, elt)
21369 int elt_strict = strict;
21371 if (elt == error_mark_node)
21372 return unify_invalid (explain_p);
21374 if (!BRACE_ENCLOSED_INITIALIZER_P (elt))
21376 tree type = TREE_TYPE (elt);
21377 if (type == error_mark_node)
21378 return unify_invalid (explain_p);
21379 /* It should only be possible to get here for a call. */
21380 gcc_assert (elt_strict & UNIFY_ALLOW_OUTER_LEVEL);
21381 elt_strict |= maybe_adjust_types_for_deduction
21382 (DEDUCE_CALL, &elttype, &type, elt);
21383 elt = type;
21386 RECUR_AND_CHECK_FAILURE (tparms, targs, elttype, elt, elt_strict,
21387 explain_p);
21390 if (TREE_CODE (parm) == ARRAY_TYPE
21391 && deducible_array_bound (TYPE_DOMAIN (parm)))
21393 /* Also deduce from the length of the initializer list. */
21394 tree max = size_int (CONSTRUCTOR_NELTS (arg));
21395 tree idx = compute_array_index_type (NULL_TREE, max, tf_none);
21396 if (idx == error_mark_node)
21397 return unify_invalid (explain_p);
21398 return unify_array_domain (tparms, targs, TYPE_DOMAIN (parm),
21399 idx, explain_p);
21402 /* If the std::initializer_list<T> deduction worked, replace the
21403 deduced A with std::initializer_list<A>. */
21404 if (orig_parm != parm)
21406 idx = TEMPLATE_TYPE_IDX (orig_parm);
21407 targ = TREE_VEC_ELT (INNERMOST_TEMPLATE_ARGS (targs), idx);
21408 targ = listify (targ);
21409 TREE_VEC_ELT (INNERMOST_TEMPLATE_ARGS (targs), idx) = targ;
21411 return unify_success (explain_p);
21414 /* If parm and arg aren't the same kind of thing (template, type, or
21415 expression), fail early. */
21416 if (pa_kind (parm) != pa_kind (arg))
21417 return unify_invalid (explain_p);
21419 /* Immediately reject some pairs that won't unify because of
21420 cv-qualification mismatches. */
21421 if (TREE_CODE (arg) == TREE_CODE (parm)
21422 && TYPE_P (arg)
21423 /* It is the elements of the array which hold the cv quals of an array
21424 type, and the elements might be template type parms. We'll check
21425 when we recurse. */
21426 && TREE_CODE (arg) != ARRAY_TYPE
21427 /* We check the cv-qualifiers when unifying with template type
21428 parameters below. We want to allow ARG `const T' to unify with
21429 PARM `T' for example, when computing which of two templates
21430 is more specialized, for example. */
21431 && TREE_CODE (arg) != TEMPLATE_TYPE_PARM
21432 && !check_cv_quals_for_unify (strict_in, arg, parm))
21433 return unify_cv_qual_mismatch (explain_p, parm, arg);
21435 if (!(strict & UNIFY_ALLOW_OUTER_LEVEL)
21436 && TYPE_P (parm) && !CP_TYPE_CONST_P (parm))
21437 strict &= ~UNIFY_ALLOW_MORE_CV_QUAL;
21438 strict &= ~UNIFY_ALLOW_OUTER_LEVEL;
21439 strict &= ~UNIFY_ALLOW_DERIVED;
21440 strict &= ~UNIFY_ALLOW_OUTER_MORE_CV_QUAL;
21441 strict &= ~UNIFY_ALLOW_OUTER_LESS_CV_QUAL;
21443 switch (TREE_CODE (parm))
21445 case TYPENAME_TYPE:
21446 case SCOPE_REF:
21447 case UNBOUND_CLASS_TEMPLATE:
21448 /* In a type which contains a nested-name-specifier, template
21449 argument values cannot be deduced for template parameters used
21450 within the nested-name-specifier. */
21451 return unify_success (explain_p);
21453 case TEMPLATE_TYPE_PARM:
21454 case TEMPLATE_TEMPLATE_PARM:
21455 case BOUND_TEMPLATE_TEMPLATE_PARM:
21456 tparm = TREE_VALUE (TREE_VEC_ELT (tparms, 0));
21457 if (error_operand_p (tparm))
21458 return unify_invalid (explain_p);
21460 if (TEMPLATE_TYPE_LEVEL (parm)
21461 != template_decl_level (tparm))
21462 /* The PARM is not one we're trying to unify. Just check
21463 to see if it matches ARG. */
21465 if (TREE_CODE (arg) == TREE_CODE (parm)
21466 && (is_auto (parm) ? is_auto (arg)
21467 : same_type_p (parm, arg)))
21468 return unify_success (explain_p);
21469 else
21470 return unify_type_mismatch (explain_p, parm, arg);
21472 idx = TEMPLATE_TYPE_IDX (parm);
21473 targ = TREE_VEC_ELT (INNERMOST_TEMPLATE_ARGS (targs), idx);
21474 tparm = TREE_VALUE (TREE_VEC_ELT (tparms, idx));
21475 if (error_operand_p (tparm))
21476 return unify_invalid (explain_p);
21478 /* Check for mixed types and values. */
21479 if ((TREE_CODE (parm) == TEMPLATE_TYPE_PARM
21480 && TREE_CODE (tparm) != TYPE_DECL)
21481 || (TREE_CODE (parm) == TEMPLATE_TEMPLATE_PARM
21482 && TREE_CODE (tparm) != TEMPLATE_DECL))
21483 gcc_unreachable ();
21485 if (TREE_CODE (parm) == BOUND_TEMPLATE_TEMPLATE_PARM)
21487 if ((strict_in & UNIFY_ALLOW_DERIVED)
21488 && CLASS_TYPE_P (arg))
21490 /* First try to match ARG directly. */
21491 tree t = try_class_unification (tparms, targs, parm, arg,
21492 explain_p);
21493 if (!t)
21495 /* Otherwise, look for a suitable base of ARG, as below. */
21496 enum template_base_result r;
21497 r = get_template_base (tparms, targs, parm, arg,
21498 explain_p, &t);
21499 if (!t)
21500 return unify_no_common_base (explain_p, r, parm, arg);
21501 arg = t;
21504 /* ARG must be constructed from a template class or a template
21505 template parameter. */
21506 else if (TREE_CODE (arg) != BOUND_TEMPLATE_TEMPLATE_PARM
21507 && !CLASSTYPE_SPECIALIZATION_OF_PRIMARY_TEMPLATE_P (arg))
21508 return unify_template_deduction_failure (explain_p, parm, arg);
21510 /* Deduce arguments T, i from TT<T> or TT<i>. */
21511 if (unify_bound_ttp_args (tparms, targs, parm, arg, explain_p))
21512 return 1;
21514 arg = TYPE_TI_TEMPLATE (arg);
21516 /* Fall through to deduce template name. */
21519 if (TREE_CODE (parm) == TEMPLATE_TEMPLATE_PARM
21520 || TREE_CODE (parm) == BOUND_TEMPLATE_TEMPLATE_PARM)
21522 /* Deduce template name TT from TT, TT<>, TT<T> and TT<i>. */
21524 /* Simple cases: Value already set, does match or doesn't. */
21525 if (targ != NULL_TREE && template_args_equal (targ, arg))
21526 return unify_success (explain_p);
21527 else if (targ)
21528 return unify_inconsistency (explain_p, parm, targ, arg);
21530 else
21532 /* If PARM is `const T' and ARG is only `int', we don't have
21533 a match unless we are allowing additional qualification.
21534 If ARG is `const int' and PARM is just `T' that's OK;
21535 that binds `const int' to `T'. */
21536 if (!check_cv_quals_for_unify (strict_in | UNIFY_ALLOW_LESS_CV_QUAL,
21537 arg, parm))
21538 return unify_cv_qual_mismatch (explain_p, parm, arg);
21540 /* Consider the case where ARG is `const volatile int' and
21541 PARM is `const T'. Then, T should be `volatile int'. */
21542 arg = cp_build_qualified_type_real
21543 (arg, cp_type_quals (arg) & ~cp_type_quals (parm), tf_none);
21544 if (arg == error_mark_node)
21545 return unify_invalid (explain_p);
21547 /* Simple cases: Value already set, does match or doesn't. */
21548 if (targ != NULL_TREE && same_type_p (targ, arg))
21549 return unify_success (explain_p);
21550 else if (targ)
21551 return unify_inconsistency (explain_p, parm, targ, arg);
21553 /* Make sure that ARG is not a variable-sized array. (Note
21554 that were talking about variable-sized arrays (like
21555 `int[n]'), rather than arrays of unknown size (like
21556 `int[]').) We'll get very confused by such a type since
21557 the bound of the array is not constant, and therefore
21558 not mangleable. Besides, such types are not allowed in
21559 ISO C++, so we can do as we please here. We do allow
21560 them for 'auto' deduction, since that isn't ABI-exposed. */
21561 if (!is_auto (parm) && variably_modified_type_p (arg, NULL_TREE))
21562 return unify_vla_arg (explain_p, arg);
21564 /* Strip typedefs as in convert_template_argument. */
21565 arg = canonicalize_type_argument (arg, tf_none);
21568 /* If ARG is a parameter pack or an expansion, we cannot unify
21569 against it unless PARM is also a parameter pack. */
21570 if ((template_parameter_pack_p (arg) || PACK_EXPANSION_P (arg))
21571 && !template_parameter_pack_p (parm))
21572 return unify_parameter_pack_mismatch (explain_p, parm, arg);
21574 /* If the argument deduction results is a METHOD_TYPE,
21575 then there is a problem.
21576 METHOD_TYPE doesn't map to any real C++ type the result of
21577 the deduction can not be of that type. */
21578 if (TREE_CODE (arg) == METHOD_TYPE)
21579 return unify_method_type_error (explain_p, arg);
21581 TREE_VEC_ELT (INNERMOST_TEMPLATE_ARGS (targs), idx) = arg;
21582 return unify_success (explain_p);
21584 case TEMPLATE_PARM_INDEX:
21585 tparm = TREE_VALUE (TREE_VEC_ELT (tparms, 0));
21586 if (error_operand_p (tparm))
21587 return unify_invalid (explain_p);
21589 if (TEMPLATE_PARM_LEVEL (parm)
21590 != template_decl_level (tparm))
21592 /* The PARM is not one we're trying to unify. Just check
21593 to see if it matches ARG. */
21594 int result = !(TREE_CODE (arg) == TREE_CODE (parm)
21595 && cp_tree_equal (parm, arg));
21596 if (result)
21597 unify_expression_unequal (explain_p, parm, arg);
21598 return result;
21601 idx = TEMPLATE_PARM_IDX (parm);
21602 targ = TREE_VEC_ELT (INNERMOST_TEMPLATE_ARGS (targs), idx);
21604 if (targ)
21606 if ((strict & UNIFY_ALLOW_INTEGER)
21607 && TREE_TYPE (targ) && TREE_TYPE (arg)
21608 && CP_INTEGRAL_TYPE_P (TREE_TYPE (targ)))
21609 /* We're deducing from an array bound, the type doesn't matter. */
21610 arg = fold_convert (TREE_TYPE (targ), arg);
21611 int x = !cp_tree_equal (targ, arg);
21612 if (x)
21613 unify_inconsistency (explain_p, parm, targ, arg);
21614 return x;
21617 /* [temp.deduct.type] If, in the declaration of a function template
21618 with a non-type template-parameter, the non-type
21619 template-parameter is used in an expression in the function
21620 parameter-list and, if the corresponding template-argument is
21621 deduced, the template-argument type shall match the type of the
21622 template-parameter exactly, except that a template-argument
21623 deduced from an array bound may be of any integral type.
21624 The non-type parameter might use already deduced type parameters. */
21625 tparm = TREE_TYPE (parm);
21626 if (TEMPLATE_PARM_LEVEL (parm) > TMPL_ARGS_DEPTH (targs))
21627 /* We don't have enough levels of args to do any substitution. This
21628 can happen in the context of -fnew-ttp-matching. */;
21629 else
21631 ++processing_template_decl;
21632 tparm = tsubst (tparm, targs, tf_none, NULL_TREE);
21633 --processing_template_decl;
21635 if (tree a = type_uses_auto (tparm))
21637 tparm = do_auto_deduction (tparm, arg, a, complain, adc_unify);
21638 if (tparm == error_mark_node)
21639 return 1;
21643 if (!TREE_TYPE (arg))
21644 /* Template-parameter dependent expression. Just accept it for now.
21645 It will later be processed in convert_template_argument. */
21647 else if (same_type_p (non_reference (TREE_TYPE (arg)),
21648 non_reference (tparm)))
21649 /* OK */;
21650 else if ((strict & UNIFY_ALLOW_INTEGER)
21651 && CP_INTEGRAL_TYPE_P (tparm))
21652 /* Convert the ARG to the type of PARM; the deduced non-type
21653 template argument must exactly match the types of the
21654 corresponding parameter. */
21655 arg = fold (build_nop (tparm, arg));
21656 else if (uses_template_parms (tparm))
21658 /* We haven't deduced the type of this parameter yet. */
21659 if (cxx_dialect >= cxx17
21660 /* We deduce from array bounds in try_array_deduction. */
21661 && !(strict & UNIFY_ALLOW_INTEGER))
21663 /* Deduce it from the non-type argument. */
21664 tree atype = TREE_TYPE (arg);
21665 RECUR_AND_CHECK_FAILURE (tparms, targs,
21666 tparm, atype,
21667 UNIFY_ALLOW_NONE, explain_p);
21669 else
21670 /* Try again later. */
21671 return unify_success (explain_p);
21673 else
21674 return unify_type_mismatch (explain_p, tparm, TREE_TYPE (arg));
21676 /* If ARG is a parameter pack or an expansion, we cannot unify
21677 against it unless PARM is also a parameter pack. */
21678 if ((template_parameter_pack_p (arg) || PACK_EXPANSION_P (arg))
21679 && !TEMPLATE_PARM_PARAMETER_PACK (parm))
21680 return unify_parameter_pack_mismatch (explain_p, parm, arg);
21683 bool removed_attr = false;
21684 arg = strip_typedefs_expr (arg, &removed_attr);
21686 TREE_VEC_ELT (INNERMOST_TEMPLATE_ARGS (targs), idx) = arg;
21687 return unify_success (explain_p);
21689 case PTRMEM_CST:
21691 /* A pointer-to-member constant can be unified only with
21692 another constant. */
21693 if (TREE_CODE (arg) != PTRMEM_CST)
21694 return unify_ptrmem_cst_mismatch (explain_p, parm, arg);
21696 /* Just unify the class member. It would be useless (and possibly
21697 wrong, depending on the strict flags) to unify also
21698 PTRMEM_CST_CLASS, because we want to be sure that both parm and
21699 arg refer to the same variable, even if through different
21700 classes. For instance:
21702 struct A { int x; };
21703 struct B : A { };
21705 Unification of &A::x and &B::x must succeed. */
21706 return unify (tparms, targs, PTRMEM_CST_MEMBER (parm),
21707 PTRMEM_CST_MEMBER (arg), strict, explain_p);
21710 case POINTER_TYPE:
21712 if (!TYPE_PTR_P (arg))
21713 return unify_type_mismatch (explain_p, parm, arg);
21715 /* [temp.deduct.call]
21717 A can be another pointer or pointer to member type that can
21718 be converted to the deduced A via a qualification
21719 conversion (_conv.qual_).
21721 We pass down STRICT here rather than UNIFY_ALLOW_NONE.
21722 This will allow for additional cv-qualification of the
21723 pointed-to types if appropriate. */
21725 if (TREE_CODE (TREE_TYPE (arg)) == RECORD_TYPE)
21726 /* The derived-to-base conversion only persists through one
21727 level of pointers. */
21728 strict |= (strict_in & UNIFY_ALLOW_DERIVED);
21730 return unify (tparms, targs, TREE_TYPE (parm),
21731 TREE_TYPE (arg), strict, explain_p);
21734 case REFERENCE_TYPE:
21735 if (TREE_CODE (arg) != REFERENCE_TYPE)
21736 return unify_type_mismatch (explain_p, parm, arg);
21737 return unify (tparms, targs, TREE_TYPE (parm), TREE_TYPE (arg),
21738 strict & UNIFY_ALLOW_MORE_CV_QUAL, explain_p);
21740 case ARRAY_TYPE:
21741 if (TREE_CODE (arg) != ARRAY_TYPE)
21742 return unify_type_mismatch (explain_p, parm, arg);
21743 if ((TYPE_DOMAIN (parm) == NULL_TREE)
21744 != (TYPE_DOMAIN (arg) == NULL_TREE))
21745 return unify_type_mismatch (explain_p, parm, arg);
21746 RECUR_AND_CHECK_FAILURE (tparms, targs, TREE_TYPE (parm), TREE_TYPE (arg),
21747 strict & UNIFY_ALLOW_MORE_CV_QUAL, explain_p);
21748 if (TYPE_DOMAIN (parm) != NULL_TREE)
21749 return unify_array_domain (tparms, targs, TYPE_DOMAIN (parm),
21750 TYPE_DOMAIN (arg), explain_p);
21751 return unify_success (explain_p);
21753 case REAL_TYPE:
21754 case COMPLEX_TYPE:
21755 case VECTOR_TYPE:
21756 case INTEGER_TYPE:
21757 case BOOLEAN_TYPE:
21758 case ENUMERAL_TYPE:
21759 case VOID_TYPE:
21760 case NULLPTR_TYPE:
21761 if (TREE_CODE (arg) != TREE_CODE (parm))
21762 return unify_type_mismatch (explain_p, parm, arg);
21764 /* We have already checked cv-qualification at the top of the
21765 function. */
21766 if (!same_type_ignoring_top_level_qualifiers_p (arg, parm))
21767 return unify_type_mismatch (explain_p, parm, arg);
21769 /* As far as unification is concerned, this wins. Later checks
21770 will invalidate it if necessary. */
21771 return unify_success (explain_p);
21773 /* Types INTEGER_CST and MINUS_EXPR can come from array bounds. */
21774 /* Type INTEGER_CST can come from ordinary constant template args. */
21775 case INTEGER_CST:
21776 while (CONVERT_EXPR_P (arg))
21777 arg = TREE_OPERAND (arg, 0);
21779 if (TREE_CODE (arg) != INTEGER_CST)
21780 return unify_template_argument_mismatch (explain_p, parm, arg);
21781 return (tree_int_cst_equal (parm, arg)
21782 ? unify_success (explain_p)
21783 : unify_template_argument_mismatch (explain_p, parm, arg));
21785 case TREE_VEC:
21787 int i, len, argslen;
21788 int parm_variadic_p = 0;
21790 if (TREE_CODE (arg) != TREE_VEC)
21791 return unify_template_argument_mismatch (explain_p, parm, arg);
21793 len = TREE_VEC_LENGTH (parm);
21794 argslen = TREE_VEC_LENGTH (arg);
21796 /* Check for pack expansions in the parameters. */
21797 for (i = 0; i < len; ++i)
21799 if (PACK_EXPANSION_P (TREE_VEC_ELT (parm, i)))
21801 if (i == len - 1)
21802 /* We can unify against something with a trailing
21803 parameter pack. */
21804 parm_variadic_p = 1;
21805 else
21806 /* [temp.deduct.type]/9: If the template argument list of
21807 P contains a pack expansion that is not the last
21808 template argument, the entire template argument list
21809 is a non-deduced context. */
21810 return unify_success (explain_p);
21814 /* If we don't have enough arguments to satisfy the parameters
21815 (not counting the pack expression at the end), or we have
21816 too many arguments for a parameter list that doesn't end in
21817 a pack expression, we can't unify. */
21818 if (parm_variadic_p
21819 ? argslen < len - parm_variadic_p
21820 : argslen != len)
21821 return unify_arity (explain_p, TREE_VEC_LENGTH (arg), len);
21823 /* Unify all of the parameters that precede the (optional)
21824 pack expression. */
21825 for (i = 0; i < len - parm_variadic_p; ++i)
21827 RECUR_AND_CHECK_FAILURE (tparms, targs,
21828 TREE_VEC_ELT (parm, i),
21829 TREE_VEC_ELT (arg, i),
21830 UNIFY_ALLOW_NONE, explain_p);
21832 if (parm_variadic_p)
21833 return unify_pack_expansion (tparms, targs, parm, arg,
21834 DEDUCE_EXACT,
21835 /*subr=*/true, explain_p);
21836 return unify_success (explain_p);
21839 case RECORD_TYPE:
21840 case UNION_TYPE:
21841 if (TREE_CODE (arg) != TREE_CODE (parm))
21842 return unify_type_mismatch (explain_p, parm, arg);
21844 if (TYPE_PTRMEMFUNC_P (parm))
21846 if (!TYPE_PTRMEMFUNC_P (arg))
21847 return unify_type_mismatch (explain_p, parm, arg);
21849 return unify (tparms, targs,
21850 TYPE_PTRMEMFUNC_FN_TYPE (parm),
21851 TYPE_PTRMEMFUNC_FN_TYPE (arg),
21852 strict, explain_p);
21854 else if (TYPE_PTRMEMFUNC_P (arg))
21855 return unify_type_mismatch (explain_p, parm, arg);
21857 if (CLASSTYPE_TEMPLATE_INFO (parm))
21859 tree t = NULL_TREE;
21861 if (strict_in & UNIFY_ALLOW_DERIVED)
21863 /* First, we try to unify the PARM and ARG directly. */
21864 t = try_class_unification (tparms, targs,
21865 parm, arg, explain_p);
21867 if (!t)
21869 /* Fallback to the special case allowed in
21870 [temp.deduct.call]:
21872 If P is a class, and P has the form
21873 template-id, then A can be a derived class of
21874 the deduced A. Likewise, if P is a pointer to
21875 a class of the form template-id, A can be a
21876 pointer to a derived class pointed to by the
21877 deduced A. */
21878 enum template_base_result r;
21879 r = get_template_base (tparms, targs, parm, arg,
21880 explain_p, &t);
21882 if (!t)
21884 /* Don't give the derived diagnostic if we're
21885 already dealing with the same template. */
21886 bool same_template
21887 = (CLASSTYPE_TEMPLATE_INFO (arg)
21888 && (CLASSTYPE_TI_TEMPLATE (parm)
21889 == CLASSTYPE_TI_TEMPLATE (arg)));
21890 return unify_no_common_base (explain_p && !same_template,
21891 r, parm, arg);
21895 else if (CLASSTYPE_TEMPLATE_INFO (arg)
21896 && (CLASSTYPE_TI_TEMPLATE (parm)
21897 == CLASSTYPE_TI_TEMPLATE (arg)))
21898 /* Perhaps PARM is something like S<U> and ARG is S<int>.
21899 Then, we should unify `int' and `U'. */
21900 t = arg;
21901 else
21902 /* There's no chance of unification succeeding. */
21903 return unify_type_mismatch (explain_p, parm, arg);
21905 return unify (tparms, targs, CLASSTYPE_TI_ARGS (parm),
21906 CLASSTYPE_TI_ARGS (t), UNIFY_ALLOW_NONE, explain_p);
21908 else if (!same_type_ignoring_top_level_qualifiers_p (parm, arg))
21909 return unify_type_mismatch (explain_p, parm, arg);
21910 return unify_success (explain_p);
21912 case METHOD_TYPE:
21913 case FUNCTION_TYPE:
21915 unsigned int nargs;
21916 tree *args;
21917 tree a;
21918 unsigned int i;
21920 if (TREE_CODE (arg) != TREE_CODE (parm))
21921 return unify_type_mismatch (explain_p, parm, arg);
21923 /* CV qualifications for methods can never be deduced, they must
21924 match exactly. We need to check them explicitly here,
21925 because type_unification_real treats them as any other
21926 cv-qualified parameter. */
21927 if (TREE_CODE (parm) == METHOD_TYPE
21928 && (!check_cv_quals_for_unify
21929 (UNIFY_ALLOW_NONE,
21930 class_of_this_parm (arg),
21931 class_of_this_parm (parm))))
21932 return unify_cv_qual_mismatch (explain_p, parm, arg);
21933 if (TREE_CODE (arg) == FUNCTION_TYPE
21934 && type_memfn_quals (parm) != type_memfn_quals (arg))
21935 return unify_cv_qual_mismatch (explain_p, parm, arg);
21936 if (type_memfn_rqual (parm) != type_memfn_rqual (arg))
21937 return unify_type_mismatch (explain_p, parm, arg);
21939 RECUR_AND_CHECK_FAILURE (tparms, targs, TREE_TYPE (parm),
21940 TREE_TYPE (arg), UNIFY_ALLOW_NONE, explain_p);
21942 nargs = list_length (TYPE_ARG_TYPES (arg));
21943 args = XALLOCAVEC (tree, nargs);
21944 for (a = TYPE_ARG_TYPES (arg), i = 0;
21945 a != NULL_TREE && a != void_list_node;
21946 a = TREE_CHAIN (a), ++i)
21947 args[i] = TREE_VALUE (a);
21948 nargs = i;
21950 if (type_unification_real (tparms, targs, TYPE_ARG_TYPES (parm),
21951 args, nargs, 1, DEDUCE_EXACT,
21952 LOOKUP_NORMAL, NULL, explain_p))
21953 return 1;
21955 if (flag_noexcept_type)
21957 tree pspec = TYPE_RAISES_EXCEPTIONS (parm);
21958 tree aspec = canonical_eh_spec (TYPE_RAISES_EXCEPTIONS (arg));
21959 if (pspec == NULL_TREE) pspec = noexcept_false_spec;
21960 if (aspec == NULL_TREE) aspec = noexcept_false_spec;
21961 if (TREE_PURPOSE (pspec) && TREE_PURPOSE (aspec)
21962 && uses_template_parms (TREE_PURPOSE (pspec)))
21963 RECUR_AND_CHECK_FAILURE (tparms, targs, TREE_PURPOSE (pspec),
21964 TREE_PURPOSE (aspec),
21965 UNIFY_ALLOW_NONE, explain_p);
21966 else if (nothrow_spec_p (pspec) && !nothrow_spec_p (aspec))
21967 return unify_type_mismatch (explain_p, parm, arg);
21970 return 0;
21973 case OFFSET_TYPE:
21974 /* Unify a pointer to member with a pointer to member function, which
21975 deduces the type of the member as a function type. */
21976 if (TYPE_PTRMEMFUNC_P (arg))
21978 /* Check top-level cv qualifiers */
21979 if (!check_cv_quals_for_unify (UNIFY_ALLOW_NONE, arg, parm))
21980 return unify_cv_qual_mismatch (explain_p, parm, arg);
21982 RECUR_AND_CHECK_FAILURE (tparms, targs, TYPE_OFFSET_BASETYPE (parm),
21983 TYPE_PTRMEMFUNC_OBJECT_TYPE (arg),
21984 UNIFY_ALLOW_NONE, explain_p);
21986 /* Determine the type of the function we are unifying against. */
21987 tree fntype = static_fn_type (arg);
21989 return unify (tparms, targs, TREE_TYPE (parm), fntype, strict, explain_p);
21992 if (TREE_CODE (arg) != OFFSET_TYPE)
21993 return unify_type_mismatch (explain_p, parm, arg);
21994 RECUR_AND_CHECK_FAILURE (tparms, targs, TYPE_OFFSET_BASETYPE (parm),
21995 TYPE_OFFSET_BASETYPE (arg),
21996 UNIFY_ALLOW_NONE, explain_p);
21997 return unify (tparms, targs, TREE_TYPE (parm), TREE_TYPE (arg),
21998 strict, explain_p);
22000 case CONST_DECL:
22001 if (DECL_TEMPLATE_PARM_P (parm))
22002 return unify (tparms, targs, DECL_INITIAL (parm), arg, strict, explain_p);
22003 if (arg != scalar_constant_value (parm))
22004 return unify_template_argument_mismatch (explain_p, parm, arg);
22005 return unify_success (explain_p);
22007 case FIELD_DECL:
22008 case TEMPLATE_DECL:
22009 /* Matched cases are handled by the ARG == PARM test above. */
22010 return unify_template_argument_mismatch (explain_p, parm, arg);
22012 case VAR_DECL:
22013 /* We might get a variable as a non-type template argument in parm if the
22014 corresponding parameter is type-dependent. Make any necessary
22015 adjustments based on whether arg is a reference. */
22016 if (CONSTANT_CLASS_P (arg))
22017 parm = fold_non_dependent_expr (parm);
22018 else if (REFERENCE_REF_P (arg))
22020 tree sub = TREE_OPERAND (arg, 0);
22021 STRIP_NOPS (sub);
22022 if (TREE_CODE (sub) == ADDR_EXPR)
22023 arg = TREE_OPERAND (sub, 0);
22025 /* Now use the normal expression code to check whether they match. */
22026 goto expr;
22028 case TYPE_ARGUMENT_PACK:
22029 case NONTYPE_ARGUMENT_PACK:
22030 return unify (tparms, targs, ARGUMENT_PACK_ARGS (parm),
22031 ARGUMENT_PACK_ARGS (arg), strict, explain_p);
22033 case TYPEOF_TYPE:
22034 case DECLTYPE_TYPE:
22035 case UNDERLYING_TYPE:
22036 /* Cannot deduce anything from TYPEOF_TYPE, DECLTYPE_TYPE,
22037 or UNDERLYING_TYPE nodes. */
22038 return unify_success (explain_p);
22040 case ERROR_MARK:
22041 /* Unification fails if we hit an error node. */
22042 return unify_invalid (explain_p);
22044 case INDIRECT_REF:
22045 if (REFERENCE_REF_P (parm))
22047 bool pexp = PACK_EXPANSION_P (arg);
22048 if (pexp)
22049 arg = PACK_EXPANSION_PATTERN (arg);
22050 if (REFERENCE_REF_P (arg))
22051 arg = TREE_OPERAND (arg, 0);
22052 if (pexp)
22053 arg = make_pack_expansion (arg, complain);
22054 return unify (tparms, targs, TREE_OPERAND (parm, 0), arg,
22055 strict, explain_p);
22057 /* FALLTHRU */
22059 default:
22060 /* An unresolved overload is a nondeduced context. */
22061 if (is_overloaded_fn (parm) || type_unknown_p (parm))
22062 return unify_success (explain_p);
22063 gcc_assert (EXPR_P (parm) || TREE_CODE (parm) == TRAIT_EXPR);
22064 expr:
22065 /* We must be looking at an expression. This can happen with
22066 something like:
22068 template <int I>
22069 void foo(S<I>, S<I + 2>);
22071 This is a "nondeduced context":
22073 [deduct.type]
22075 The nondeduced contexts are:
22077 --A type that is a template-id in which one or more of
22078 the template-arguments is an expression that references
22079 a template-parameter.
22081 In these cases, we assume deduction succeeded, but don't
22082 actually infer any unifications. */
22084 if (!uses_template_parms (parm)
22085 && !template_args_equal (parm, arg))
22086 return unify_expression_unequal (explain_p, parm, arg);
22087 else
22088 return unify_success (explain_p);
22091 #undef RECUR_AND_CHECK_FAILURE
22093 /* Note that DECL can be defined in this translation unit, if
22094 required. */
22096 static void
22097 mark_definable (tree decl)
22099 tree clone;
22100 DECL_NOT_REALLY_EXTERN (decl) = 1;
22101 FOR_EACH_CLONE (clone, decl)
22102 DECL_NOT_REALLY_EXTERN (clone) = 1;
22105 /* Called if RESULT is explicitly instantiated, or is a member of an
22106 explicitly instantiated class. */
22108 void
22109 mark_decl_instantiated (tree result, int extern_p)
22111 SET_DECL_EXPLICIT_INSTANTIATION (result);
22113 /* If this entity has already been written out, it's too late to
22114 make any modifications. */
22115 if (TREE_ASM_WRITTEN (result))
22116 return;
22118 /* For anonymous namespace we don't need to do anything. */
22119 if (decl_anon_ns_mem_p (result))
22121 gcc_assert (!TREE_PUBLIC (result));
22122 return;
22125 if (TREE_CODE (result) != FUNCTION_DECL)
22126 /* The TREE_PUBLIC flag for function declarations will have been
22127 set correctly by tsubst. */
22128 TREE_PUBLIC (result) = 1;
22130 /* This might have been set by an earlier implicit instantiation. */
22131 DECL_COMDAT (result) = 0;
22133 if (extern_p)
22134 DECL_NOT_REALLY_EXTERN (result) = 0;
22135 else
22137 mark_definable (result);
22138 mark_needed (result);
22139 /* Always make artificials weak. */
22140 if (DECL_ARTIFICIAL (result) && flag_weak)
22141 comdat_linkage (result);
22142 /* For WIN32 we also want to put explicit instantiations in
22143 linkonce sections. */
22144 else if (TREE_PUBLIC (result))
22145 maybe_make_one_only (result);
22148 /* If EXTERN_P, then this function will not be emitted -- unless
22149 followed by an explicit instantiation, at which point its linkage
22150 will be adjusted. If !EXTERN_P, then this function will be
22151 emitted here. In neither circumstance do we want
22152 import_export_decl to adjust the linkage. */
22153 DECL_INTERFACE_KNOWN (result) = 1;
22156 /* Subroutine of more_specialized_fn: check whether TARGS is missing any
22157 important template arguments. If any are missing, we check whether
22158 they're important by using error_mark_node for substituting into any
22159 args that were used for partial ordering (the ones between ARGS and END)
22160 and seeing if it bubbles up. */
22162 static bool
22163 check_undeduced_parms (tree targs, tree args, tree end)
22165 bool found = false;
22166 int i;
22167 for (i = TREE_VEC_LENGTH (targs) - 1; i >= 0; --i)
22168 if (TREE_VEC_ELT (targs, i) == NULL_TREE)
22170 found = true;
22171 TREE_VEC_ELT (targs, i) = error_mark_node;
22173 if (found)
22175 tree substed = tsubst_arg_types (args, targs, end, tf_none, NULL_TREE);
22176 if (substed == error_mark_node)
22177 return true;
22179 return false;
22182 /* Given two function templates PAT1 and PAT2, return:
22184 1 if PAT1 is more specialized than PAT2 as described in [temp.func.order].
22185 -1 if PAT2 is more specialized than PAT1.
22186 0 if neither is more specialized.
22188 LEN indicates the number of parameters we should consider
22189 (defaulted parameters should not be considered).
22191 The 1998 std underspecified function template partial ordering, and
22192 DR214 addresses the issue. We take pairs of arguments, one from
22193 each of the templates, and deduce them against each other. One of
22194 the templates will be more specialized if all the *other*
22195 template's arguments deduce against its arguments and at least one
22196 of its arguments *does* *not* deduce against the other template's
22197 corresponding argument. Deduction is done as for class templates.
22198 The arguments used in deduction have reference and top level cv
22199 qualifiers removed. Iff both arguments were originally reference
22200 types *and* deduction succeeds in both directions, an lvalue reference
22201 wins against an rvalue reference and otherwise the template
22202 with the more cv-qualified argument wins for that pairing (if
22203 neither is more cv-qualified, they both are equal). Unlike regular
22204 deduction, after all the arguments have been deduced in this way,
22205 we do *not* verify the deduced template argument values can be
22206 substituted into non-deduced contexts.
22208 The logic can be a bit confusing here, because we look at deduce1 and
22209 targs1 to see if pat2 is at least as specialized, and vice versa; if we
22210 can find template arguments for pat1 to make arg1 look like arg2, that
22211 means that arg2 is at least as specialized as arg1. */
22214 more_specialized_fn (tree pat1, tree pat2, int len)
22216 tree decl1 = DECL_TEMPLATE_RESULT (pat1);
22217 tree decl2 = DECL_TEMPLATE_RESULT (pat2);
22218 tree targs1 = make_tree_vec (DECL_NTPARMS (pat1));
22219 tree targs2 = make_tree_vec (DECL_NTPARMS (pat2));
22220 tree tparms1 = DECL_INNERMOST_TEMPLATE_PARMS (pat1);
22221 tree tparms2 = DECL_INNERMOST_TEMPLATE_PARMS (pat2);
22222 tree args1 = TYPE_ARG_TYPES (TREE_TYPE (decl1));
22223 tree args2 = TYPE_ARG_TYPES (TREE_TYPE (decl2));
22224 tree origs1, origs2;
22225 bool lose1 = false;
22226 bool lose2 = false;
22228 /* Remove the this parameter from non-static member functions. If
22229 one is a non-static member function and the other is not a static
22230 member function, remove the first parameter from that function
22231 also. This situation occurs for operator functions where we
22232 locate both a member function (with this pointer) and non-member
22233 operator (with explicit first operand). */
22234 if (DECL_NONSTATIC_MEMBER_FUNCTION_P (decl1))
22236 len--; /* LEN is the number of significant arguments for DECL1 */
22237 args1 = TREE_CHAIN (args1);
22238 if (!DECL_STATIC_FUNCTION_P (decl2))
22239 args2 = TREE_CHAIN (args2);
22241 else if (DECL_NONSTATIC_MEMBER_FUNCTION_P (decl2))
22243 args2 = TREE_CHAIN (args2);
22244 if (!DECL_STATIC_FUNCTION_P (decl1))
22246 len--;
22247 args1 = TREE_CHAIN (args1);
22251 /* If only one is a conversion operator, they are unordered. */
22252 if (DECL_CONV_FN_P (decl1) != DECL_CONV_FN_P (decl2))
22253 return 0;
22255 /* Consider the return type for a conversion function */
22256 if (DECL_CONV_FN_P (decl1))
22258 args1 = tree_cons (NULL_TREE, TREE_TYPE (TREE_TYPE (decl1)), args1);
22259 args2 = tree_cons (NULL_TREE, TREE_TYPE (TREE_TYPE (decl2)), args2);
22260 len++;
22263 processing_template_decl++;
22265 origs1 = args1;
22266 origs2 = args2;
22268 while (len--
22269 /* Stop when an ellipsis is seen. */
22270 && args1 != NULL_TREE && args2 != NULL_TREE)
22272 tree arg1 = TREE_VALUE (args1);
22273 tree arg2 = TREE_VALUE (args2);
22274 int deduce1, deduce2;
22275 int quals1 = -1;
22276 int quals2 = -1;
22277 int ref1 = 0;
22278 int ref2 = 0;
22280 if (TREE_CODE (arg1) == TYPE_PACK_EXPANSION
22281 && TREE_CODE (arg2) == TYPE_PACK_EXPANSION)
22283 /* When both arguments are pack expansions, we need only
22284 unify the patterns themselves. */
22285 arg1 = PACK_EXPANSION_PATTERN (arg1);
22286 arg2 = PACK_EXPANSION_PATTERN (arg2);
22288 /* This is the last comparison we need to do. */
22289 len = 0;
22292 /* DR 1847: If a particular P contains no template-parameters that
22293 participate in template argument deduction, that P is not used to
22294 determine the ordering. */
22295 if (!uses_deducible_template_parms (arg1)
22296 && !uses_deducible_template_parms (arg2))
22297 goto next;
22299 if (TREE_CODE (arg1) == REFERENCE_TYPE)
22301 ref1 = TYPE_REF_IS_RVALUE (arg1) + 1;
22302 arg1 = TREE_TYPE (arg1);
22303 quals1 = cp_type_quals (arg1);
22306 if (TREE_CODE (arg2) == REFERENCE_TYPE)
22308 ref2 = TYPE_REF_IS_RVALUE (arg2) + 1;
22309 arg2 = TREE_TYPE (arg2);
22310 quals2 = cp_type_quals (arg2);
22313 arg1 = TYPE_MAIN_VARIANT (arg1);
22314 arg2 = TYPE_MAIN_VARIANT (arg2);
22316 if (TREE_CODE (arg1) == TYPE_PACK_EXPANSION)
22318 int i, len2 = remaining_arguments (args2);
22319 tree parmvec = make_tree_vec (1);
22320 tree argvec = make_tree_vec (len2);
22321 tree ta = args2;
22323 /* Setup the parameter vector, which contains only ARG1. */
22324 TREE_VEC_ELT (parmvec, 0) = arg1;
22326 /* Setup the argument vector, which contains the remaining
22327 arguments. */
22328 for (i = 0; i < len2; i++, ta = TREE_CHAIN (ta))
22329 TREE_VEC_ELT (argvec, i) = TREE_VALUE (ta);
22331 deduce1 = (unify_pack_expansion (tparms1, targs1, parmvec,
22332 argvec, DEDUCE_EXACT,
22333 /*subr=*/true, /*explain_p=*/false)
22334 == 0);
22336 /* We cannot deduce in the other direction, because ARG1 is
22337 a pack expansion but ARG2 is not. */
22338 deduce2 = 0;
22340 else if (TREE_CODE (arg2) == TYPE_PACK_EXPANSION)
22342 int i, len1 = remaining_arguments (args1);
22343 tree parmvec = make_tree_vec (1);
22344 tree argvec = make_tree_vec (len1);
22345 tree ta = args1;
22347 /* Setup the parameter vector, which contains only ARG1. */
22348 TREE_VEC_ELT (parmvec, 0) = arg2;
22350 /* Setup the argument vector, which contains the remaining
22351 arguments. */
22352 for (i = 0; i < len1; i++, ta = TREE_CHAIN (ta))
22353 TREE_VEC_ELT (argvec, i) = TREE_VALUE (ta);
22355 deduce2 = (unify_pack_expansion (tparms2, targs2, parmvec,
22356 argvec, DEDUCE_EXACT,
22357 /*subr=*/true, /*explain_p=*/false)
22358 == 0);
22360 /* We cannot deduce in the other direction, because ARG2 is
22361 a pack expansion but ARG1 is not.*/
22362 deduce1 = 0;
22365 else
22367 /* The normal case, where neither argument is a pack
22368 expansion. */
22369 deduce1 = (unify (tparms1, targs1, arg1, arg2,
22370 UNIFY_ALLOW_NONE, /*explain_p=*/false)
22371 == 0);
22372 deduce2 = (unify (tparms2, targs2, arg2, arg1,
22373 UNIFY_ALLOW_NONE, /*explain_p=*/false)
22374 == 0);
22377 /* If we couldn't deduce arguments for tparms1 to make arg1 match
22378 arg2, then arg2 is not as specialized as arg1. */
22379 if (!deduce1)
22380 lose2 = true;
22381 if (!deduce2)
22382 lose1 = true;
22384 /* "If, for a given type, deduction succeeds in both directions
22385 (i.e., the types are identical after the transformations above)
22386 and both P and A were reference types (before being replaced with
22387 the type referred to above):
22388 - if the type from the argument template was an lvalue reference and
22389 the type from the parameter template was not, the argument type is
22390 considered to be more specialized than the other; otherwise,
22391 - if the type from the argument template is more cv-qualified
22392 than the type from the parameter template (as described above),
22393 the argument type is considered to be more specialized than the other;
22394 otherwise,
22395 - neither type is more specialized than the other." */
22397 if (deduce1 && deduce2)
22399 if (ref1 && ref2 && ref1 != ref2)
22401 if (ref1 > ref2)
22402 lose1 = true;
22403 else
22404 lose2 = true;
22406 else if (quals1 != quals2 && quals1 >= 0 && quals2 >= 0)
22408 if ((quals1 & quals2) == quals2)
22409 lose2 = true;
22410 if ((quals1 & quals2) == quals1)
22411 lose1 = true;
22415 if (lose1 && lose2)
22416 /* We've failed to deduce something in either direction.
22417 These must be unordered. */
22418 break;
22420 next:
22422 if (TREE_CODE (arg1) == TYPE_PACK_EXPANSION
22423 || TREE_CODE (arg2) == TYPE_PACK_EXPANSION)
22424 /* We have already processed all of the arguments in our
22425 handing of the pack expansion type. */
22426 len = 0;
22428 args1 = TREE_CHAIN (args1);
22429 args2 = TREE_CHAIN (args2);
22432 /* "In most cases, all template parameters must have values in order for
22433 deduction to succeed, but for partial ordering purposes a template
22434 parameter may remain without a value provided it is not used in the
22435 types being used for partial ordering."
22437 Thus, if we are missing any of the targs1 we need to substitute into
22438 origs1, then pat2 is not as specialized as pat1. This can happen when
22439 there is a nondeduced context. */
22440 if (!lose2 && check_undeduced_parms (targs1, origs1, args1))
22441 lose2 = true;
22442 if (!lose1 && check_undeduced_parms (targs2, origs2, args2))
22443 lose1 = true;
22445 processing_template_decl--;
22447 /* If both deductions succeed, the partial ordering selects the more
22448 constrained template. */
22449 if (!lose1 && !lose2)
22451 tree c1 = get_constraints (DECL_TEMPLATE_RESULT (pat1));
22452 tree c2 = get_constraints (DECL_TEMPLATE_RESULT (pat2));
22453 lose1 = !subsumes_constraints (c1, c2);
22454 lose2 = !subsumes_constraints (c2, c1);
22457 /* All things being equal, if the next argument is a pack expansion
22458 for one function but not for the other, prefer the
22459 non-variadic function. FIXME this is bogus; see c++/41958. */
22460 if (lose1 == lose2
22461 && args1 && TREE_VALUE (args1)
22462 && args2 && TREE_VALUE (args2))
22464 lose1 = TREE_CODE (TREE_VALUE (args1)) == TYPE_PACK_EXPANSION;
22465 lose2 = TREE_CODE (TREE_VALUE (args2)) == TYPE_PACK_EXPANSION;
22468 if (lose1 == lose2)
22469 return 0;
22470 else if (!lose1)
22471 return 1;
22472 else
22473 return -1;
22476 /* Determine which of two partial specializations of TMPL is more
22477 specialized.
22479 PAT1 is a TREE_LIST whose TREE_VALUE is the TEMPLATE_DECL corresponding
22480 to the first partial specialization. The TREE_PURPOSE is the
22481 innermost set of template parameters for the partial
22482 specialization. PAT2 is similar, but for the second template.
22484 Return 1 if the first partial specialization is more specialized;
22485 -1 if the second is more specialized; 0 if neither is more
22486 specialized.
22488 See [temp.class.order] for information about determining which of
22489 two templates is more specialized. */
22491 static int
22492 more_specialized_partial_spec (tree tmpl, tree pat1, tree pat2)
22494 tree targs;
22495 int winner = 0;
22496 bool any_deductions = false;
22498 tree tmpl1 = TREE_VALUE (pat1);
22499 tree tmpl2 = TREE_VALUE (pat2);
22500 tree specargs1 = TI_ARGS (get_template_info (DECL_TEMPLATE_RESULT (tmpl1)));
22501 tree specargs2 = TI_ARGS (get_template_info (DECL_TEMPLATE_RESULT (tmpl2)));
22503 /* Just like what happens for functions, if we are ordering between
22504 different template specializations, we may encounter dependent
22505 types in the arguments, and we need our dependency check functions
22506 to behave correctly. */
22507 ++processing_template_decl;
22508 targs = get_partial_spec_bindings (tmpl, tmpl1, specargs2);
22509 if (targs)
22511 --winner;
22512 any_deductions = true;
22515 targs = get_partial_spec_bindings (tmpl, tmpl2, specargs1);
22516 if (targs)
22518 ++winner;
22519 any_deductions = true;
22521 --processing_template_decl;
22523 /* If both deductions succeed, the partial ordering selects the more
22524 constrained template. */
22525 if (!winner && any_deductions)
22526 return more_constrained (tmpl1, tmpl2);
22528 /* In the case of a tie where at least one of the templates
22529 has a parameter pack at the end, the template with the most
22530 non-packed parameters wins. */
22531 if (winner == 0
22532 && any_deductions
22533 && (template_args_variadic_p (TREE_PURPOSE (pat1))
22534 || template_args_variadic_p (TREE_PURPOSE (pat2))))
22536 tree args1 = INNERMOST_TEMPLATE_ARGS (TREE_PURPOSE (pat1));
22537 tree args2 = INNERMOST_TEMPLATE_ARGS (TREE_PURPOSE (pat2));
22538 int len1 = TREE_VEC_LENGTH (args1);
22539 int len2 = TREE_VEC_LENGTH (args2);
22541 /* We don't count the pack expansion at the end. */
22542 if (template_args_variadic_p (TREE_PURPOSE (pat1)))
22543 --len1;
22544 if (template_args_variadic_p (TREE_PURPOSE (pat2)))
22545 --len2;
22547 if (len1 > len2)
22548 return 1;
22549 else if (len1 < len2)
22550 return -1;
22553 return winner;
22556 /* Return the template arguments that will produce the function signature
22557 DECL from the function template FN, with the explicit template
22558 arguments EXPLICIT_ARGS. If CHECK_RETTYPE is true, the return type must
22559 also match. Return NULL_TREE if no satisfactory arguments could be
22560 found. */
22562 static tree
22563 get_bindings (tree fn, tree decl, tree explicit_args, bool check_rettype)
22565 int ntparms = DECL_NTPARMS (fn);
22566 tree targs = make_tree_vec (ntparms);
22567 tree decl_type = TREE_TYPE (decl);
22568 tree decl_arg_types;
22569 tree *args;
22570 unsigned int nargs, ix;
22571 tree arg;
22573 gcc_assert (decl != DECL_TEMPLATE_RESULT (fn));
22575 /* Never do unification on the 'this' parameter. */
22576 decl_arg_types = skip_artificial_parms_for (decl,
22577 TYPE_ARG_TYPES (decl_type));
22579 nargs = list_length (decl_arg_types);
22580 args = XALLOCAVEC (tree, nargs);
22581 for (arg = decl_arg_types, ix = 0;
22582 arg != NULL_TREE && arg != void_list_node;
22583 arg = TREE_CHAIN (arg), ++ix)
22584 args[ix] = TREE_VALUE (arg);
22586 if (fn_type_unification (fn, explicit_args, targs,
22587 args, ix,
22588 (check_rettype || DECL_CONV_FN_P (fn)
22589 ? TREE_TYPE (decl_type) : NULL_TREE),
22590 DEDUCE_EXACT, LOOKUP_NORMAL, /*explain_p=*/false,
22591 /*decltype*/false)
22592 == error_mark_node)
22593 return NULL_TREE;
22595 return targs;
22598 /* Return the innermost template arguments that, when applied to a partial
22599 specialization SPEC_TMPL of TMPL, yield the ARGS.
22601 For example, suppose we have:
22603 template <class T, class U> struct S {};
22604 template <class T> struct S<T*, int> {};
22606 Then, suppose we want to get `S<double*, int>'. SPEC_TMPL will be the
22607 partial specialization and the ARGS will be {double*, int}. The resulting
22608 vector will be {double}, indicating that `T' is bound to `double'. */
22610 static tree
22611 get_partial_spec_bindings (tree tmpl, tree spec_tmpl, tree args)
22613 tree tparms = DECL_INNERMOST_TEMPLATE_PARMS (spec_tmpl);
22614 tree spec_args
22615 = TI_ARGS (get_template_info (DECL_TEMPLATE_RESULT (spec_tmpl)));
22616 int i, ntparms = TREE_VEC_LENGTH (tparms);
22617 tree deduced_args;
22618 tree innermost_deduced_args;
22620 innermost_deduced_args = make_tree_vec (ntparms);
22621 if (TMPL_ARGS_HAVE_MULTIPLE_LEVELS (args))
22623 deduced_args = copy_node (args);
22624 SET_TMPL_ARGS_LEVEL (deduced_args,
22625 TMPL_ARGS_DEPTH (deduced_args),
22626 innermost_deduced_args);
22628 else
22629 deduced_args = innermost_deduced_args;
22631 bool tried_array_deduction = (cxx_dialect < cxx17);
22632 again:
22633 if (unify (tparms, deduced_args,
22634 INNERMOST_TEMPLATE_ARGS (spec_args),
22635 INNERMOST_TEMPLATE_ARGS (args),
22636 UNIFY_ALLOW_NONE, /*explain_p=*/false))
22637 return NULL_TREE;
22639 for (i = 0; i < ntparms; ++i)
22640 if (! TREE_VEC_ELT (innermost_deduced_args, i))
22642 if (!tried_array_deduction)
22644 try_array_deduction (tparms, innermost_deduced_args,
22645 INNERMOST_TEMPLATE_ARGS (spec_args));
22646 tried_array_deduction = true;
22647 if (TREE_VEC_ELT (innermost_deduced_args, i))
22648 goto again;
22650 return NULL_TREE;
22653 if (!push_tinst_level (spec_tmpl, deduced_args))
22655 excessive_deduction_depth = true;
22656 return NULL_TREE;
22659 /* Verify that nondeduced template arguments agree with the type
22660 obtained from argument deduction.
22662 For example:
22664 struct A { typedef int X; };
22665 template <class T, class U> struct C {};
22666 template <class T> struct C<T, typename T::X> {};
22668 Then with the instantiation `C<A, int>', we can deduce that
22669 `T' is `A' but unify () does not check whether `typename T::X'
22670 is `int'. */
22671 spec_args = tsubst (spec_args, deduced_args, tf_none, NULL_TREE);
22673 if (spec_args != error_mark_node)
22674 spec_args = coerce_template_parms (DECL_INNERMOST_TEMPLATE_PARMS (tmpl),
22675 INNERMOST_TEMPLATE_ARGS (spec_args),
22676 tmpl, tf_none, false, false);
22678 pop_tinst_level ();
22680 if (spec_args == error_mark_node
22681 /* We only need to check the innermost arguments; the other
22682 arguments will always agree. */
22683 || !comp_template_args_porder (INNERMOST_TEMPLATE_ARGS (spec_args),
22684 INNERMOST_TEMPLATE_ARGS (args)))
22685 return NULL_TREE;
22687 /* Now that we have bindings for all of the template arguments,
22688 ensure that the arguments deduced for the template template
22689 parameters have compatible template parameter lists. See the use
22690 of template_template_parm_bindings_ok_p in fn_type_unification
22691 for more information. */
22692 if (!template_template_parm_bindings_ok_p (tparms, deduced_args))
22693 return NULL_TREE;
22695 return deduced_args;
22698 // Compare two function templates T1 and T2 by deducing bindings
22699 // from one against the other. If both deductions succeed, compare
22700 // constraints to see which is more constrained.
22701 static int
22702 more_specialized_inst (tree t1, tree t2)
22704 int fate = 0;
22705 int count = 0;
22707 if (get_bindings (t1, DECL_TEMPLATE_RESULT (t2), NULL_TREE, true))
22709 --fate;
22710 ++count;
22713 if (get_bindings (t2, DECL_TEMPLATE_RESULT (t1), NULL_TREE, true))
22715 ++fate;
22716 ++count;
22719 // If both deductions succeed, then one may be more constrained.
22720 if (count == 2 && fate == 0)
22721 fate = more_constrained (t1, t2);
22723 return fate;
22726 /* TEMPLATES is a TREE_LIST. Each TREE_VALUE is a TEMPLATE_DECL.
22727 Return the TREE_LIST node with the most specialized template, if
22728 any. If there is no most specialized template, the error_mark_node
22729 is returned.
22731 Note that this function does not look at, or modify, the
22732 TREE_PURPOSE or TREE_TYPE of any of the nodes. Since the node
22733 returned is one of the elements of INSTANTIATIONS, callers may
22734 store information in the TREE_PURPOSE or TREE_TYPE of the nodes,
22735 and retrieve it from the value returned. */
22737 tree
22738 most_specialized_instantiation (tree templates)
22740 tree fn, champ;
22742 ++processing_template_decl;
22744 champ = templates;
22745 for (fn = TREE_CHAIN (templates); fn; fn = TREE_CHAIN (fn))
22747 gcc_assert (TREE_VALUE (champ) != TREE_VALUE (fn));
22748 int fate = more_specialized_inst (TREE_VALUE (champ), TREE_VALUE (fn));
22749 if (fate == -1)
22750 champ = fn;
22751 else if (!fate)
22753 /* Equally specialized, move to next function. If there
22754 is no next function, nothing's most specialized. */
22755 fn = TREE_CHAIN (fn);
22756 champ = fn;
22757 if (!fn)
22758 break;
22762 if (champ)
22763 /* Now verify that champ is better than everything earlier in the
22764 instantiation list. */
22765 for (fn = templates; fn != champ; fn = TREE_CHAIN (fn)) {
22766 if (more_specialized_inst (TREE_VALUE (champ), TREE_VALUE (fn)) != 1)
22768 champ = NULL_TREE;
22769 break;
22773 processing_template_decl--;
22775 if (!champ)
22776 return error_mark_node;
22778 return champ;
22781 /* If DECL is a specialization of some template, return the most
22782 general such template. Otherwise, returns NULL_TREE.
22784 For example, given:
22786 template <class T> struct S { template <class U> void f(U); };
22788 if TMPL is `template <class U> void S<int>::f(U)' this will return
22789 the full template. This function will not trace past partial
22790 specializations, however. For example, given in addition:
22792 template <class T> struct S<T*> { template <class U> void f(U); };
22794 if TMPL is `template <class U> void S<int*>::f(U)' this will return
22795 `template <class T> template <class U> S<T*>::f(U)'. */
22797 tree
22798 most_general_template (tree decl)
22800 if (TREE_CODE (decl) != TEMPLATE_DECL)
22802 if (tree tinfo = get_template_info (decl))
22803 decl = TI_TEMPLATE (tinfo);
22804 /* The TI_TEMPLATE can be an IDENTIFIER_NODE for a
22805 template friend, or a FIELD_DECL for a capture pack. */
22806 if (TREE_CODE (decl) != TEMPLATE_DECL)
22807 return NULL_TREE;
22810 /* Look for more and more general templates. */
22811 while (DECL_LANG_SPECIFIC (decl) && DECL_TEMPLATE_INFO (decl))
22813 /* The DECL_TI_TEMPLATE can be an IDENTIFIER_NODE in some cases.
22814 (See cp-tree.h for details.) */
22815 if (TREE_CODE (DECL_TI_TEMPLATE (decl)) != TEMPLATE_DECL)
22816 break;
22818 if (CLASS_TYPE_P (TREE_TYPE (decl))
22819 && !TYPE_DECL_ALIAS_P (TYPE_NAME (TREE_TYPE (decl)))
22820 && CLASSTYPE_TEMPLATE_SPECIALIZATION (TREE_TYPE (decl)))
22821 break;
22823 /* Stop if we run into an explicitly specialized class template. */
22824 if (!DECL_NAMESPACE_SCOPE_P (decl)
22825 && DECL_CONTEXT (decl)
22826 && CLASSTYPE_TEMPLATE_SPECIALIZATION (DECL_CONTEXT (decl)))
22827 break;
22829 decl = DECL_TI_TEMPLATE (decl);
22832 return decl;
22835 /* Return the most specialized of the template partial specializations
22836 which can produce TARGET, a specialization of some class or variable
22837 template. The value returned is actually a TREE_LIST; the TREE_VALUE is
22838 a TEMPLATE_DECL node corresponding to the partial specialization, while
22839 the TREE_PURPOSE is the set of template arguments that must be
22840 substituted into the template pattern in order to generate TARGET.
22842 If the choice of partial specialization is ambiguous, a diagnostic
22843 is issued, and the error_mark_node is returned. If there are no
22844 partial specializations matching TARGET, then NULL_TREE is
22845 returned, indicating that the primary template should be used. */
22847 static tree
22848 most_specialized_partial_spec (tree target, tsubst_flags_t complain)
22850 tree list = NULL_TREE;
22851 tree t;
22852 tree champ;
22853 int fate;
22854 bool ambiguous_p;
22855 tree outer_args = NULL_TREE;
22856 tree tmpl, args;
22858 if (TYPE_P (target))
22860 tree tinfo = CLASSTYPE_TEMPLATE_INFO (target);
22861 tmpl = TI_TEMPLATE (tinfo);
22862 args = TI_ARGS (tinfo);
22864 else if (TREE_CODE (target) == TEMPLATE_ID_EXPR)
22866 tmpl = TREE_OPERAND (target, 0);
22867 args = TREE_OPERAND (target, 1);
22869 else if (VAR_P (target))
22871 tree tinfo = DECL_TEMPLATE_INFO (target);
22872 tmpl = TI_TEMPLATE (tinfo);
22873 args = TI_ARGS (tinfo);
22875 else
22876 gcc_unreachable ();
22878 tree main_tmpl = most_general_template (tmpl);
22880 /* For determining which partial specialization to use, only the
22881 innermost args are interesting. */
22882 if (TMPL_ARGS_HAVE_MULTIPLE_LEVELS (args))
22884 outer_args = strip_innermost_template_args (args, 1);
22885 args = INNERMOST_TEMPLATE_ARGS (args);
22888 for (t = DECL_TEMPLATE_SPECIALIZATIONS (main_tmpl); t; t = TREE_CHAIN (t))
22890 tree spec_args;
22891 tree spec_tmpl = TREE_VALUE (t);
22893 if (outer_args)
22895 /* Substitute in the template args from the enclosing class. */
22896 ++processing_template_decl;
22897 spec_tmpl = tsubst (spec_tmpl, outer_args, tf_none, NULL_TREE);
22898 --processing_template_decl;
22901 if (spec_tmpl == error_mark_node)
22902 return error_mark_node;
22904 spec_args = get_partial_spec_bindings (tmpl, spec_tmpl, args);
22905 if (spec_args)
22907 if (outer_args)
22908 spec_args = add_to_template_args (outer_args, spec_args);
22910 /* Keep the candidate only if the constraints are satisfied,
22911 or if we're not compiling with concepts. */
22912 if (!flag_concepts
22913 || constraints_satisfied_p (spec_tmpl, spec_args))
22915 list = tree_cons (spec_args, TREE_VALUE (t), list);
22916 TREE_TYPE (list) = TREE_TYPE (t);
22921 if (! list)
22922 return NULL_TREE;
22924 ambiguous_p = false;
22925 t = list;
22926 champ = t;
22927 t = TREE_CHAIN (t);
22928 for (; t; t = TREE_CHAIN (t))
22930 fate = more_specialized_partial_spec (tmpl, champ, t);
22931 if (fate == 1)
22933 else
22935 if (fate == 0)
22937 t = TREE_CHAIN (t);
22938 if (! t)
22940 ambiguous_p = true;
22941 break;
22944 champ = t;
22948 if (!ambiguous_p)
22949 for (t = list; t && t != champ; t = TREE_CHAIN (t))
22951 fate = more_specialized_partial_spec (tmpl, champ, t);
22952 if (fate != 1)
22954 ambiguous_p = true;
22955 break;
22959 if (ambiguous_p)
22961 const char *str;
22962 char *spaces = NULL;
22963 if (!(complain & tf_error))
22964 return error_mark_node;
22965 if (TYPE_P (target))
22966 error ("ambiguous template instantiation for %q#T", target);
22967 else
22968 error ("ambiguous template instantiation for %q#D", target);
22969 str = ngettext ("candidate is:", "candidates are:", list_length (list));
22970 for (t = list; t; t = TREE_CHAIN (t))
22972 tree subst = build_tree_list (TREE_VALUE (t), TREE_PURPOSE (t));
22973 inform (DECL_SOURCE_LOCATION (TREE_VALUE (t)),
22974 "%s %#qS", spaces ? spaces : str, subst);
22975 spaces = spaces ? spaces : get_spaces (str);
22977 free (spaces);
22978 return error_mark_node;
22981 return champ;
22984 /* Explicitly instantiate DECL. */
22986 void
22987 do_decl_instantiation (tree decl, tree storage)
22989 tree result = NULL_TREE;
22990 int extern_p = 0;
22992 if (!decl || decl == error_mark_node)
22993 /* An error occurred, for which grokdeclarator has already issued
22994 an appropriate message. */
22995 return;
22996 else if (! DECL_LANG_SPECIFIC (decl))
22998 error ("explicit instantiation of non-template %q#D", decl);
22999 return;
23002 bool var_templ = (DECL_TEMPLATE_INFO (decl)
23003 && variable_template_p (DECL_TI_TEMPLATE (decl)));
23005 if (VAR_P (decl) && !var_templ)
23007 /* There is an asymmetry here in the way VAR_DECLs and
23008 FUNCTION_DECLs are handled by grokdeclarator. In the case of
23009 the latter, the DECL we get back will be marked as a
23010 template instantiation, and the appropriate
23011 DECL_TEMPLATE_INFO will be set up. This does not happen for
23012 VAR_DECLs so we do the lookup here. Probably, grokdeclarator
23013 should handle VAR_DECLs as it currently handles
23014 FUNCTION_DECLs. */
23015 if (!DECL_CLASS_SCOPE_P (decl))
23017 error ("%qD is not a static data member of a class template", decl);
23018 return;
23020 result = lookup_field (DECL_CONTEXT (decl), DECL_NAME (decl), 0, false);
23021 if (!result || !VAR_P (result))
23023 error ("no matching template for %qD found", decl);
23024 return;
23026 if (!same_type_p (TREE_TYPE (result), TREE_TYPE (decl)))
23028 error ("type %qT for explicit instantiation %qD does not match "
23029 "declared type %qT", TREE_TYPE (result), decl,
23030 TREE_TYPE (decl));
23031 return;
23034 else if (TREE_CODE (decl) != FUNCTION_DECL && !var_templ)
23036 error ("explicit instantiation of %q#D", decl);
23037 return;
23039 else
23040 result = decl;
23042 /* Check for various error cases. Note that if the explicit
23043 instantiation is valid the RESULT will currently be marked as an
23044 *implicit* instantiation; DECL_EXPLICIT_INSTANTIATION is not set
23045 until we get here. */
23047 if (DECL_TEMPLATE_SPECIALIZATION (result))
23049 /* DR 259 [temp.spec].
23051 Both an explicit instantiation and a declaration of an explicit
23052 specialization shall not appear in a program unless the explicit
23053 instantiation follows a declaration of the explicit specialization.
23055 For a given set of template parameters, if an explicit
23056 instantiation of a template appears after a declaration of an
23057 explicit specialization for that template, the explicit
23058 instantiation has no effect. */
23059 return;
23061 else if (DECL_EXPLICIT_INSTANTIATION (result))
23063 /* [temp.spec]
23065 No program shall explicitly instantiate any template more
23066 than once.
23068 We check DECL_NOT_REALLY_EXTERN so as not to complain when
23069 the first instantiation was `extern' and the second is not,
23070 and EXTERN_P for the opposite case. */
23071 if (DECL_NOT_REALLY_EXTERN (result) && !extern_p)
23072 permerror (input_location, "duplicate explicit instantiation of %q#D", result);
23073 /* If an "extern" explicit instantiation follows an ordinary
23074 explicit instantiation, the template is instantiated. */
23075 if (extern_p)
23076 return;
23078 else if (!DECL_IMPLICIT_INSTANTIATION (result))
23080 error ("no matching template for %qD found", result);
23081 return;
23083 else if (!DECL_TEMPLATE_INFO (result))
23085 permerror (input_location, "explicit instantiation of non-template %q#D", result);
23086 return;
23089 if (storage == NULL_TREE)
23091 else if (storage == ridpointers[(int) RID_EXTERN])
23093 if (!in_system_header_at (input_location) && (cxx_dialect == cxx98))
23094 pedwarn (input_location, OPT_Wpedantic,
23095 "ISO C++ 1998 forbids the use of %<extern%> on explicit "
23096 "instantiations");
23097 extern_p = 1;
23099 else
23100 error ("storage class %qD applied to template instantiation", storage);
23102 check_explicit_instantiation_namespace (result);
23103 mark_decl_instantiated (result, extern_p);
23104 if (! extern_p)
23105 instantiate_decl (result, /*defer_ok=*/true,
23106 /*expl_inst_class_mem_p=*/false);
23109 static void
23110 mark_class_instantiated (tree t, int extern_p)
23112 SET_CLASSTYPE_EXPLICIT_INSTANTIATION (t);
23113 SET_CLASSTYPE_INTERFACE_KNOWN (t);
23114 CLASSTYPE_INTERFACE_ONLY (t) = extern_p;
23115 TYPE_DECL_SUPPRESS_DEBUG (TYPE_NAME (t)) = extern_p;
23116 if (! extern_p)
23118 CLASSTYPE_DEBUG_REQUESTED (t) = 1;
23119 rest_of_type_compilation (t, 1);
23123 /* Called from do_type_instantiation through binding_table_foreach to
23124 do recursive instantiation for the type bound in ENTRY. */
23125 static void
23126 bt_instantiate_type_proc (binding_entry entry, void *data)
23128 tree storage = *(tree *) data;
23130 if (MAYBE_CLASS_TYPE_P (entry->type)
23131 && CLASSTYPE_TEMPLATE_INFO (entry->type)
23132 && !uses_template_parms (CLASSTYPE_TI_ARGS (entry->type)))
23133 do_type_instantiation (TYPE_MAIN_DECL (entry->type), storage, 0);
23136 /* Perform an explicit instantiation of template class T. STORAGE, if
23137 non-null, is the RID for extern, inline or static. COMPLAIN is
23138 nonzero if this is called from the parser, zero if called recursively,
23139 since the standard is unclear (as detailed below). */
23141 void
23142 do_type_instantiation (tree t, tree storage, tsubst_flags_t complain)
23144 int extern_p = 0;
23145 int nomem_p = 0;
23146 int static_p = 0;
23147 int previous_instantiation_extern_p = 0;
23149 if (TREE_CODE (t) == TYPE_DECL)
23150 t = TREE_TYPE (t);
23152 if (! CLASS_TYPE_P (t) || ! CLASSTYPE_TEMPLATE_INFO (t))
23154 tree tmpl =
23155 (TYPE_TEMPLATE_INFO (t)) ? TYPE_TI_TEMPLATE (t) : NULL;
23156 if (tmpl)
23157 error ("explicit instantiation of non-class template %qD", tmpl);
23158 else
23159 error ("explicit instantiation of non-template type %qT", t);
23160 return;
23163 complete_type (t);
23165 if (!COMPLETE_TYPE_P (t))
23167 if (complain & tf_error)
23168 error ("explicit instantiation of %q#T before definition of template",
23170 return;
23173 if (storage != NULL_TREE)
23175 if (!in_system_header_at (input_location))
23177 if (storage == ridpointers[(int) RID_EXTERN])
23179 if (cxx_dialect == cxx98)
23180 pedwarn (input_location, OPT_Wpedantic,
23181 "ISO C++ 1998 forbids the use of %<extern%> on "
23182 "explicit instantiations");
23184 else
23185 pedwarn (input_location, OPT_Wpedantic,
23186 "ISO C++ forbids the use of %qE"
23187 " on explicit instantiations", storage);
23190 if (storage == ridpointers[(int) RID_INLINE])
23191 nomem_p = 1;
23192 else if (storage == ridpointers[(int) RID_EXTERN])
23193 extern_p = 1;
23194 else if (storage == ridpointers[(int) RID_STATIC])
23195 static_p = 1;
23196 else
23198 error ("storage class %qD applied to template instantiation",
23199 storage);
23200 extern_p = 0;
23204 if (CLASSTYPE_TEMPLATE_SPECIALIZATION (t))
23206 /* DR 259 [temp.spec].
23208 Both an explicit instantiation and a declaration of an explicit
23209 specialization shall not appear in a program unless the explicit
23210 instantiation follows a declaration of the explicit specialization.
23212 For a given set of template parameters, if an explicit
23213 instantiation of a template appears after a declaration of an
23214 explicit specialization for that template, the explicit
23215 instantiation has no effect. */
23216 return;
23218 else if (CLASSTYPE_EXPLICIT_INSTANTIATION (t))
23220 /* [temp.spec]
23222 No program shall explicitly instantiate any template more
23223 than once.
23225 If PREVIOUS_INSTANTIATION_EXTERN_P, then the first explicit
23226 instantiation was `extern'. If EXTERN_P then the second is.
23227 These cases are OK. */
23228 previous_instantiation_extern_p = CLASSTYPE_INTERFACE_ONLY (t);
23230 if (!previous_instantiation_extern_p && !extern_p
23231 && (complain & tf_error))
23232 permerror (input_location, "duplicate explicit instantiation of %q#T", t);
23234 /* If we've already instantiated the template, just return now. */
23235 if (!CLASSTYPE_INTERFACE_ONLY (t))
23236 return;
23239 check_explicit_instantiation_namespace (TYPE_NAME (t));
23240 mark_class_instantiated (t, extern_p);
23242 if (nomem_p)
23243 return;
23245 /* In contrast to implicit instantiation, where only the
23246 declarations, and not the definitions, of members are
23247 instantiated, we have here:
23249 [temp.explicit]
23251 The explicit instantiation of a class template specialization
23252 implies the instantiation of all of its members not
23253 previously explicitly specialized in the translation unit
23254 containing the explicit instantiation.
23256 Of course, we can't instantiate member template classes, since we
23257 don't have any arguments for them. Note that the standard is
23258 unclear on whether the instantiation of the members are
23259 *explicit* instantiations or not. However, the most natural
23260 interpretation is that it should be an explicit
23261 instantiation. */
23262 for (tree fld = TYPE_FIELDS (t); fld; fld = DECL_CHAIN (fld))
23263 if ((VAR_P (fld)
23264 || (TREE_CODE (fld) == FUNCTION_DECL
23265 && !static_p
23266 && user_provided_p (fld)))
23267 && DECL_TEMPLATE_INSTANTIATION (fld))
23269 mark_decl_instantiated (fld, extern_p);
23270 if (! extern_p)
23271 instantiate_decl (fld, /*defer_ok=*/true,
23272 /*expl_inst_class_mem_p=*/true);
23275 if (CLASSTYPE_NESTED_UTDS (t))
23276 binding_table_foreach (CLASSTYPE_NESTED_UTDS (t),
23277 bt_instantiate_type_proc, &storage);
23280 /* Given a function DECL, which is a specialization of TMPL, modify
23281 DECL to be a re-instantiation of TMPL with the same template
23282 arguments. TMPL should be the template into which tsubst'ing
23283 should occur for DECL, not the most general template.
23285 One reason for doing this is a scenario like this:
23287 template <class T>
23288 void f(const T&, int i);
23290 void g() { f(3, 7); }
23292 template <class T>
23293 void f(const T& t, const int i) { }
23295 Note that when the template is first instantiated, with
23296 instantiate_template, the resulting DECL will have no name for the
23297 first parameter, and the wrong type for the second. So, when we go
23298 to instantiate the DECL, we regenerate it. */
23300 static void
23301 regenerate_decl_from_template (tree decl, tree tmpl, tree args)
23303 /* The arguments used to instantiate DECL, from the most general
23304 template. */
23305 tree code_pattern;
23307 code_pattern = DECL_TEMPLATE_RESULT (tmpl);
23309 /* Make sure that we can see identifiers, and compute access
23310 correctly. */
23311 push_access_scope (decl);
23313 if (TREE_CODE (decl) == FUNCTION_DECL)
23315 tree decl_parm;
23316 tree pattern_parm;
23317 tree specs;
23318 int args_depth;
23319 int parms_depth;
23321 args_depth = TMPL_ARGS_DEPTH (args);
23322 parms_depth = TMPL_PARMS_DEPTH (DECL_TEMPLATE_PARMS (tmpl));
23323 if (args_depth > parms_depth)
23324 args = get_innermost_template_args (args, parms_depth);
23326 specs = tsubst_exception_specification (TREE_TYPE (code_pattern),
23327 args, tf_error, NULL_TREE,
23328 /*defer_ok*/false);
23329 if (specs && specs != error_mark_node)
23330 TREE_TYPE (decl) = build_exception_variant (TREE_TYPE (decl),
23331 specs);
23333 /* Merge parameter declarations. */
23334 decl_parm = skip_artificial_parms_for (decl,
23335 DECL_ARGUMENTS (decl));
23336 pattern_parm
23337 = skip_artificial_parms_for (code_pattern,
23338 DECL_ARGUMENTS (code_pattern));
23339 while (decl_parm && !DECL_PACK_P (pattern_parm))
23341 tree parm_type;
23342 tree attributes;
23344 if (DECL_NAME (decl_parm) != DECL_NAME (pattern_parm))
23345 DECL_NAME (decl_parm) = DECL_NAME (pattern_parm);
23346 parm_type = tsubst (TREE_TYPE (pattern_parm), args, tf_error,
23347 NULL_TREE);
23348 parm_type = type_decays_to (parm_type);
23349 if (!same_type_p (TREE_TYPE (decl_parm), parm_type))
23350 TREE_TYPE (decl_parm) = parm_type;
23351 attributes = DECL_ATTRIBUTES (pattern_parm);
23352 if (DECL_ATTRIBUTES (decl_parm) != attributes)
23354 DECL_ATTRIBUTES (decl_parm) = attributes;
23355 cplus_decl_attributes (&decl_parm, attributes, /*flags=*/0);
23357 decl_parm = DECL_CHAIN (decl_parm);
23358 pattern_parm = DECL_CHAIN (pattern_parm);
23360 /* Merge any parameters that match with the function parameter
23361 pack. */
23362 if (pattern_parm && DECL_PACK_P (pattern_parm))
23364 int i, len;
23365 tree expanded_types;
23366 /* Expand the TYPE_PACK_EXPANSION that provides the types for
23367 the parameters in this function parameter pack. */
23368 expanded_types = tsubst_pack_expansion (TREE_TYPE (pattern_parm),
23369 args, tf_error, NULL_TREE);
23370 len = TREE_VEC_LENGTH (expanded_types);
23371 for (i = 0; i < len; i++)
23373 tree parm_type;
23374 tree attributes;
23376 if (DECL_NAME (decl_parm) != DECL_NAME (pattern_parm))
23377 /* Rename the parameter to include the index. */
23378 DECL_NAME (decl_parm) =
23379 make_ith_pack_parameter_name (DECL_NAME (pattern_parm), i);
23380 parm_type = TREE_VEC_ELT (expanded_types, i);
23381 parm_type = type_decays_to (parm_type);
23382 if (!same_type_p (TREE_TYPE (decl_parm), parm_type))
23383 TREE_TYPE (decl_parm) = parm_type;
23384 attributes = DECL_ATTRIBUTES (pattern_parm);
23385 if (DECL_ATTRIBUTES (decl_parm) != attributes)
23387 DECL_ATTRIBUTES (decl_parm) = attributes;
23388 cplus_decl_attributes (&decl_parm, attributes, /*flags=*/0);
23390 decl_parm = DECL_CHAIN (decl_parm);
23393 /* Merge additional specifiers from the CODE_PATTERN. */
23394 if (DECL_DECLARED_INLINE_P (code_pattern)
23395 && !DECL_DECLARED_INLINE_P (decl))
23396 DECL_DECLARED_INLINE_P (decl) = 1;
23398 else if (VAR_P (decl))
23400 start_lambda_scope (decl);
23401 DECL_INITIAL (decl) =
23402 tsubst_expr (DECL_INITIAL (code_pattern), args,
23403 tf_error, DECL_TI_TEMPLATE (decl),
23404 /*integral_constant_expression_p=*/false);
23405 finish_lambda_scope ();
23406 if (VAR_HAD_UNKNOWN_BOUND (decl))
23407 TREE_TYPE (decl) = tsubst (TREE_TYPE (code_pattern), args,
23408 tf_error, DECL_TI_TEMPLATE (decl));
23410 else
23411 gcc_unreachable ();
23413 pop_access_scope (decl);
23416 /* Return the TEMPLATE_DECL into which DECL_TI_ARGS(DECL) should be
23417 substituted to get DECL. */
23419 tree
23420 template_for_substitution (tree decl)
23422 tree tmpl = DECL_TI_TEMPLATE (decl);
23424 /* Set TMPL to the template whose DECL_TEMPLATE_RESULT is the pattern
23425 for the instantiation. This is not always the most general
23426 template. Consider, for example:
23428 template <class T>
23429 struct S { template <class U> void f();
23430 template <> void f<int>(); };
23432 and an instantiation of S<double>::f<int>. We want TD to be the
23433 specialization S<T>::f<int>, not the more general S<T>::f<U>. */
23434 while (/* An instantiation cannot have a definition, so we need a
23435 more general template. */
23436 DECL_TEMPLATE_INSTANTIATION (tmpl)
23437 /* We must also deal with friend templates. Given:
23439 template <class T> struct S {
23440 template <class U> friend void f() {};
23443 S<int>::f<U> say, is not an instantiation of S<T>::f<U>,
23444 so far as the language is concerned, but that's still
23445 where we get the pattern for the instantiation from. On
23446 other hand, if the definition comes outside the class, say:
23448 template <class T> struct S {
23449 template <class U> friend void f();
23451 template <class U> friend void f() {}
23453 we don't need to look any further. That's what the check for
23454 DECL_INITIAL is for. */
23455 || (TREE_CODE (decl) == FUNCTION_DECL
23456 && DECL_FRIEND_PSEUDO_TEMPLATE_INSTANTIATION (tmpl)
23457 && !DECL_INITIAL (DECL_TEMPLATE_RESULT (tmpl))))
23459 /* The present template, TD, should not be a definition. If it
23460 were a definition, we should be using it! Note that we
23461 cannot restructure the loop to just keep going until we find
23462 a template with a definition, since that might go too far if
23463 a specialization was declared, but not defined. */
23465 /* Fetch the more general template. */
23466 tmpl = DECL_TI_TEMPLATE (tmpl);
23469 return tmpl;
23472 /* Returns true if we need to instantiate this template instance even if we
23473 know we aren't going to emit it. */
23475 bool
23476 always_instantiate_p (tree decl)
23478 /* We always instantiate inline functions so that we can inline them. An
23479 explicit instantiation declaration prohibits implicit instantiation of
23480 non-inline functions. With high levels of optimization, we would
23481 normally inline non-inline functions -- but we're not allowed to do
23482 that for "extern template" functions. Therefore, we check
23483 DECL_DECLARED_INLINE_P, rather than possibly_inlined_p. */
23484 return ((TREE_CODE (decl) == FUNCTION_DECL
23485 && (DECL_DECLARED_INLINE_P (decl)
23486 || type_uses_auto (TREE_TYPE (TREE_TYPE (decl)))))
23487 /* And we need to instantiate static data members so that
23488 their initializers are available in integral constant
23489 expressions. */
23490 || (VAR_P (decl)
23491 && decl_maybe_constant_var_p (decl)));
23494 /* If FN has a noexcept-specifier that hasn't been instantiated yet,
23495 instantiate it now, modifying TREE_TYPE (fn). Returns false on
23496 error, true otherwise. */
23498 bool
23499 maybe_instantiate_noexcept (tree fn, tsubst_flags_t complain)
23501 tree fntype, spec, noex, clone;
23503 /* Don't instantiate a noexcept-specification from template context. */
23504 if (processing_template_decl
23505 && (!flag_noexcept_type || type_dependent_expression_p (fn)))
23506 return true;
23508 if (DECL_CLONED_FUNCTION_P (fn))
23509 fn = DECL_CLONED_FUNCTION (fn);
23510 fntype = TREE_TYPE (fn);
23511 spec = TYPE_RAISES_EXCEPTIONS (fntype);
23513 if (!spec || !TREE_PURPOSE (spec))
23514 return true;
23516 noex = TREE_PURPOSE (spec);
23518 if (TREE_CODE (noex) == DEFERRED_NOEXCEPT)
23520 static hash_set<tree>* fns = new hash_set<tree>;
23521 bool added = false;
23522 if (DEFERRED_NOEXCEPT_PATTERN (noex) == NULL_TREE)
23523 spec = get_defaulted_eh_spec (fn, complain);
23524 else if (!(added = !fns->add (fn)))
23526 /* If hash_set::add returns true, the element was already there. */
23527 location_t loc = EXPR_LOC_OR_LOC (DEFERRED_NOEXCEPT_PATTERN (noex),
23528 DECL_SOURCE_LOCATION (fn));
23529 error_at (loc,
23530 "exception specification of %qD depends on itself",
23531 fn);
23532 spec = noexcept_false_spec;
23534 else if (push_tinst_level (fn))
23536 push_access_scope (fn);
23537 push_deferring_access_checks (dk_no_deferred);
23538 input_location = DECL_SOURCE_LOCATION (fn);
23539 noex = tsubst_copy_and_build (DEFERRED_NOEXCEPT_PATTERN (noex),
23540 DEFERRED_NOEXCEPT_ARGS (noex),
23541 tf_warning_or_error, fn,
23542 /*function_p=*/false,
23543 /*integral_constant_expression_p=*/true);
23544 spec = build_noexcept_spec (noex, tf_warning_or_error);
23545 pop_deferring_access_checks ();
23546 pop_access_scope (fn);
23547 pop_tinst_level ();
23548 if (spec == error_mark_node)
23549 spec = noexcept_false_spec;
23551 else
23552 spec = noexcept_false_spec;
23554 if (added)
23555 fns->remove (fn);
23557 if (spec == error_mark_node)
23558 return false;
23560 TREE_TYPE (fn) = build_exception_variant (fntype, spec);
23563 FOR_EACH_CLONE (clone, fn)
23565 if (TREE_TYPE (clone) == fntype)
23566 TREE_TYPE (clone) = TREE_TYPE (fn);
23567 else
23568 TREE_TYPE (clone) = build_exception_variant (TREE_TYPE (clone), spec);
23571 return true;
23574 /* We're starting to process the function INST, an instantiation of PATTERN;
23575 add their parameters to local_specializations. */
23577 static void
23578 register_parameter_specializations (tree pattern, tree inst)
23580 tree tmpl_parm = DECL_ARGUMENTS (pattern);
23581 tree spec_parm = DECL_ARGUMENTS (inst);
23582 if (DECL_NONSTATIC_MEMBER_FUNCTION_P (inst))
23584 register_local_specialization (spec_parm, tmpl_parm);
23585 spec_parm = skip_artificial_parms_for (inst, spec_parm);
23586 tmpl_parm = skip_artificial_parms_for (pattern, tmpl_parm);
23588 for (; tmpl_parm; tmpl_parm = DECL_CHAIN (tmpl_parm))
23590 if (!DECL_PACK_P (tmpl_parm))
23592 register_local_specialization (spec_parm, tmpl_parm);
23593 spec_parm = DECL_CHAIN (spec_parm);
23595 else
23597 /* Register the (value) argument pack as a specialization of
23598 TMPL_PARM, then move on. */
23599 tree argpack = extract_fnparm_pack (tmpl_parm, &spec_parm);
23600 register_local_specialization (argpack, tmpl_parm);
23603 gcc_assert (!spec_parm);
23606 /* Produce the definition of D, a _DECL generated from a template. If
23607 DEFER_OK is true, then we don't have to actually do the
23608 instantiation now; we just have to do it sometime. Normally it is
23609 an error if this is an explicit instantiation but D is undefined.
23610 EXPL_INST_CLASS_MEM_P is true iff D is a member of an explicitly
23611 instantiated class template. */
23613 tree
23614 instantiate_decl (tree d, bool defer_ok, bool expl_inst_class_mem_p)
23616 tree tmpl = DECL_TI_TEMPLATE (d);
23617 tree gen_args;
23618 tree args;
23619 tree td;
23620 tree code_pattern;
23621 tree spec;
23622 tree gen_tmpl;
23623 bool pattern_defined;
23624 location_t saved_loc = input_location;
23625 int saved_unevaluated_operand = cp_unevaluated_operand;
23626 int saved_inhibit_evaluation_warnings = c_inhibit_evaluation_warnings;
23627 bool external_p;
23628 bool deleted_p;
23630 /* This function should only be used to instantiate templates for
23631 functions and static member variables. */
23632 gcc_assert (VAR_OR_FUNCTION_DECL_P (d));
23634 /* A concept is never instantiated. */
23635 gcc_assert (!DECL_DECLARED_CONCEPT_P (d));
23637 /* Variables are never deferred; if instantiation is required, they
23638 are instantiated right away. That allows for better code in the
23639 case that an expression refers to the value of the variable --
23640 if the variable has a constant value the referring expression can
23641 take advantage of that fact. */
23642 if (VAR_P (d))
23643 defer_ok = false;
23645 /* Don't instantiate cloned functions. Instead, instantiate the
23646 functions they cloned. */
23647 if (TREE_CODE (d) == FUNCTION_DECL && DECL_CLONED_FUNCTION_P (d))
23648 d = DECL_CLONED_FUNCTION (d);
23650 if (DECL_TEMPLATE_INSTANTIATED (d)
23651 || (TREE_CODE (d) == FUNCTION_DECL
23652 && DECL_DEFAULTED_FN (d) && DECL_INITIAL (d))
23653 || DECL_TEMPLATE_SPECIALIZATION (d))
23654 /* D has already been instantiated or explicitly specialized, so
23655 there's nothing for us to do here.
23657 It might seem reasonable to check whether or not D is an explicit
23658 instantiation, and, if so, stop here. But when an explicit
23659 instantiation is deferred until the end of the compilation,
23660 DECL_EXPLICIT_INSTANTIATION is set, even though we still need to do
23661 the instantiation. */
23662 return d;
23664 /* Check to see whether we know that this template will be
23665 instantiated in some other file, as with "extern template"
23666 extension. */
23667 external_p = (DECL_INTERFACE_KNOWN (d) && DECL_REALLY_EXTERN (d));
23669 /* In general, we do not instantiate such templates. */
23670 if (external_p && !always_instantiate_p (d))
23671 return d;
23673 gen_tmpl = most_general_template (tmpl);
23674 gen_args = DECL_TI_ARGS (d);
23676 if (tmpl != gen_tmpl)
23677 /* We should already have the extra args. */
23678 gcc_assert (TMPL_PARMS_DEPTH (DECL_TEMPLATE_PARMS (gen_tmpl))
23679 == TMPL_ARGS_DEPTH (gen_args));
23680 /* And what's in the hash table should match D. */
23681 gcc_assert ((spec = retrieve_specialization (gen_tmpl, gen_args, 0)) == d
23682 || spec == NULL_TREE);
23684 /* This needs to happen before any tsubsting. */
23685 if (! push_tinst_level (d))
23686 return d;
23688 timevar_push (TV_TEMPLATE_INST);
23690 /* Set TD to the template whose DECL_TEMPLATE_RESULT is the pattern
23691 for the instantiation. */
23692 td = template_for_substitution (d);
23693 args = gen_args;
23695 if (VAR_P (d))
23697 /* Look up an explicit specialization, if any. */
23698 tree tid = lookup_template_variable (gen_tmpl, gen_args);
23699 tree elt = most_specialized_partial_spec (tid, tf_warning_or_error);
23700 if (elt && elt != error_mark_node)
23702 td = TREE_VALUE (elt);
23703 args = TREE_PURPOSE (elt);
23707 code_pattern = DECL_TEMPLATE_RESULT (td);
23709 /* We should never be trying to instantiate a member of a class
23710 template or partial specialization. */
23711 gcc_assert (d != code_pattern);
23713 if ((DECL_NAMESPACE_SCOPE_P (d) && !DECL_INITIALIZED_IN_CLASS_P (d))
23714 || DECL_TEMPLATE_SPECIALIZATION (td))
23715 /* In the case of a friend template whose definition is provided
23716 outside the class, we may have too many arguments. Drop the
23717 ones we don't need. The same is true for specializations. */
23718 args = get_innermost_template_args
23719 (args, TMPL_PARMS_DEPTH (DECL_TEMPLATE_PARMS (td)));
23721 if (TREE_CODE (d) == FUNCTION_DECL)
23723 deleted_p = DECL_DELETED_FN (code_pattern);
23724 pattern_defined = ((DECL_SAVED_TREE (code_pattern) != NULL_TREE
23725 && DECL_INITIAL (code_pattern) != error_mark_node)
23726 || DECL_DEFAULTED_OUTSIDE_CLASS_P (code_pattern)
23727 || deleted_p);
23729 else
23731 deleted_p = false;
23732 if (DECL_CLASS_SCOPE_P (code_pattern))
23733 pattern_defined = (! DECL_IN_AGGR_P (code_pattern)
23734 || DECL_INLINE_VAR_P (code_pattern));
23735 else
23736 pattern_defined = ! DECL_EXTERNAL (code_pattern);
23739 /* We may be in the middle of deferred access check. Disable it now. */
23740 push_deferring_access_checks (dk_no_deferred);
23742 /* Unless an explicit instantiation directive has already determined
23743 the linkage of D, remember that a definition is available for
23744 this entity. */
23745 if (pattern_defined
23746 && !DECL_INTERFACE_KNOWN (d)
23747 && !DECL_NOT_REALLY_EXTERN (d))
23748 mark_definable (d);
23750 DECL_SOURCE_LOCATION (td) = DECL_SOURCE_LOCATION (code_pattern);
23751 DECL_SOURCE_LOCATION (d) = DECL_SOURCE_LOCATION (code_pattern);
23752 input_location = DECL_SOURCE_LOCATION (d);
23754 /* If D is a member of an explicitly instantiated class template,
23755 and no definition is available, treat it like an implicit
23756 instantiation. */
23757 if (!pattern_defined && expl_inst_class_mem_p
23758 && DECL_EXPLICIT_INSTANTIATION (d))
23760 /* Leave linkage flags alone on instantiations with anonymous
23761 visibility. */
23762 if (TREE_PUBLIC (d))
23764 DECL_NOT_REALLY_EXTERN (d) = 0;
23765 DECL_INTERFACE_KNOWN (d) = 0;
23767 SET_DECL_IMPLICIT_INSTANTIATION (d);
23770 /* Defer all other templates, unless we have been explicitly
23771 forbidden from doing so. */
23772 if (/* If there is no definition, we cannot instantiate the
23773 template. */
23774 ! pattern_defined
23775 /* If it's OK to postpone instantiation, do so. */
23776 || defer_ok
23777 /* If this is a static data member that will be defined
23778 elsewhere, we don't want to instantiate the entire data
23779 member, but we do want to instantiate the initializer so that
23780 we can substitute that elsewhere. */
23781 || (external_p && VAR_P (d))
23782 /* Handle here a deleted function too, avoid generating
23783 its body (c++/61080). */
23784 || deleted_p)
23786 /* The definition of the static data member is now required so
23787 we must substitute the initializer. */
23788 if (VAR_P (d)
23789 && !DECL_INITIAL (d)
23790 && DECL_INITIAL (code_pattern))
23792 tree ns;
23793 tree init;
23794 bool const_init = false;
23795 bool enter_context = DECL_CLASS_SCOPE_P (d);
23797 ns = decl_namespace_context (d);
23798 push_nested_namespace (ns);
23799 if (enter_context)
23800 push_nested_class (DECL_CONTEXT (d));
23801 init = tsubst_expr (DECL_INITIAL (code_pattern),
23802 args,
23803 tf_warning_or_error, NULL_TREE,
23804 /*integral_constant_expression_p=*/false);
23805 /* If instantiating the initializer involved instantiating this
23806 again, don't call cp_finish_decl twice. */
23807 if (!DECL_INITIAL (d))
23809 /* Make sure the initializer is still constant, in case of
23810 circular dependency (template/instantiate6.C). */
23811 const_init
23812 = DECL_INITIALIZED_BY_CONSTANT_EXPRESSION_P (code_pattern);
23813 cp_finish_decl (d, init, /*init_const_expr_p=*/const_init,
23814 /*asmspec_tree=*/NULL_TREE,
23815 LOOKUP_ONLYCONVERTING);
23817 if (enter_context)
23818 pop_nested_class ();
23819 pop_nested_namespace (ns);
23822 /* We restore the source position here because it's used by
23823 add_pending_template. */
23824 input_location = saved_loc;
23826 if (at_eof && !pattern_defined
23827 && DECL_EXPLICIT_INSTANTIATION (d)
23828 && DECL_NOT_REALLY_EXTERN (d))
23829 /* [temp.explicit]
23831 The definition of a non-exported function template, a
23832 non-exported member function template, or a non-exported
23833 member function or static data member of a class template
23834 shall be present in every translation unit in which it is
23835 explicitly instantiated. */
23836 permerror (input_location, "explicit instantiation of %qD "
23837 "but no definition available", d);
23839 /* If we're in unevaluated context, we just wanted to get the
23840 constant value; this isn't an odr use, so don't queue
23841 a full instantiation. */
23842 if (cp_unevaluated_operand != 0)
23843 goto out;
23844 /* ??? Historically, we have instantiated inline functions, even
23845 when marked as "extern template". */
23846 if (!(external_p && VAR_P (d)))
23847 add_pending_template (d);
23848 goto out;
23850 /* Tell the repository that D is available in this translation unit
23851 -- and see if it is supposed to be instantiated here. */
23852 if (TREE_PUBLIC (d) && !DECL_REALLY_EXTERN (d) && !repo_emit_p (d))
23854 /* In a PCH file, despite the fact that the repository hasn't
23855 requested instantiation in the PCH it is still possible that
23856 an instantiation will be required in a file that includes the
23857 PCH. */
23858 if (pch_file)
23859 add_pending_template (d);
23860 /* Instantiate inline functions so that the inliner can do its
23861 job, even though we'll not be emitting a copy of this
23862 function. */
23863 if (!(TREE_CODE (d) == FUNCTION_DECL && possibly_inlined_p (d)))
23864 goto out;
23867 bool push_to_top, nested;
23868 tree fn_context;
23869 fn_context = decl_function_context (d);
23870 if (LAMBDA_FUNCTION_P (d))
23871 /* tsubst_lambda_expr resolved any references to enclosing functions. */
23872 fn_context = NULL_TREE;
23873 nested = current_function_decl != NULL_TREE;
23874 push_to_top = !(nested && fn_context == current_function_decl);
23876 vec<tree> omp_privatization_save;
23877 if (nested)
23878 save_omp_privatization_clauses (omp_privatization_save);
23880 if (push_to_top)
23881 push_to_top_level ();
23882 else
23884 push_function_context ();
23885 cp_unevaluated_operand = 0;
23886 c_inhibit_evaluation_warnings = 0;
23889 /* Mark D as instantiated so that recursive calls to
23890 instantiate_decl do not try to instantiate it again. */
23891 DECL_TEMPLATE_INSTANTIATED (d) = 1;
23893 /* Regenerate the declaration in case the template has been modified
23894 by a subsequent redeclaration. */
23895 regenerate_decl_from_template (d, td, args);
23897 /* We already set the file and line above. Reset them now in case
23898 they changed as a result of calling regenerate_decl_from_template. */
23899 input_location = DECL_SOURCE_LOCATION (d);
23901 if (VAR_P (d))
23903 tree init;
23904 bool const_init = false;
23906 /* Clear out DECL_RTL; whatever was there before may not be right
23907 since we've reset the type of the declaration. */
23908 SET_DECL_RTL (d, NULL);
23909 DECL_IN_AGGR_P (d) = 0;
23911 /* The initializer is placed in DECL_INITIAL by
23912 regenerate_decl_from_template so we don't need to
23913 push/pop_access_scope again here. Pull it out so that
23914 cp_finish_decl can process it. */
23915 init = DECL_INITIAL (d);
23916 DECL_INITIAL (d) = NULL_TREE;
23917 DECL_INITIALIZED_P (d) = 0;
23919 /* Clear DECL_EXTERNAL so that cp_finish_decl will process the
23920 initializer. That function will defer actual emission until
23921 we have a chance to determine linkage. */
23922 DECL_EXTERNAL (d) = 0;
23924 /* Enter the scope of D so that access-checking works correctly. */
23925 bool enter_context = DECL_CLASS_SCOPE_P (d);
23926 if (enter_context)
23927 push_nested_class (DECL_CONTEXT (d));
23929 const_init = DECL_INITIALIZED_BY_CONSTANT_EXPRESSION_P (code_pattern);
23930 cp_finish_decl (d, init, const_init, NULL_TREE, 0);
23932 if (enter_context)
23933 pop_nested_class ();
23935 if (variable_template_p (gen_tmpl))
23936 note_variable_template_instantiation (d);
23938 else if (TREE_CODE (d) == FUNCTION_DECL && DECL_DEFAULTED_FN (code_pattern))
23939 synthesize_method (d);
23940 else if (TREE_CODE (d) == FUNCTION_DECL)
23942 /* Set up the list of local specializations. */
23943 local_specialization_stack lss (push_to_top ? lss_blank : lss_copy);
23944 tree block = NULL_TREE;
23946 /* Set up context. */
23947 if (DECL_OMP_DECLARE_REDUCTION_P (code_pattern)
23948 && TREE_CODE (DECL_CONTEXT (code_pattern)) == FUNCTION_DECL)
23949 block = push_stmt_list ();
23950 else
23951 start_preparsed_function (d, NULL_TREE, SF_PRE_PARSED);
23953 /* Some typedefs referenced from within the template code need to be
23954 access checked at template instantiation time, i.e now. These
23955 types were added to the template at parsing time. Let's get those
23956 and perform the access checks then. */
23957 perform_typedefs_access_check (DECL_TEMPLATE_RESULT (td),
23958 args);
23960 /* Create substitution entries for the parameters. */
23961 register_parameter_specializations (code_pattern, d);
23963 /* Substitute into the body of the function. */
23964 if (DECL_OMP_DECLARE_REDUCTION_P (code_pattern))
23965 tsubst_omp_udr (DECL_SAVED_TREE (code_pattern), args,
23966 tf_warning_or_error, tmpl);
23967 else
23969 tsubst_expr (DECL_SAVED_TREE (code_pattern), args,
23970 tf_warning_or_error, tmpl,
23971 /*integral_constant_expression_p=*/false);
23973 /* Set the current input_location to the end of the function
23974 so that finish_function knows where we are. */
23975 input_location
23976 = DECL_STRUCT_FUNCTION (code_pattern)->function_end_locus;
23978 /* Remember if we saw an infinite loop in the template. */
23979 current_function_infinite_loop
23980 = DECL_STRUCT_FUNCTION (code_pattern)->language->infinite_loop;
23983 /* Finish the function. */
23984 if (DECL_OMP_DECLARE_REDUCTION_P (code_pattern)
23985 && TREE_CODE (DECL_CONTEXT (code_pattern)) == FUNCTION_DECL)
23986 DECL_SAVED_TREE (d) = pop_stmt_list (block);
23987 else
23989 d = finish_function (/*inline_p=*/false);
23990 expand_or_defer_fn (d);
23993 if (DECL_OMP_DECLARE_REDUCTION_P (code_pattern))
23994 cp_check_omp_declare_reduction (d);
23997 /* We're not deferring instantiation any more. */
23998 TI_PENDING_TEMPLATE_FLAG (DECL_TEMPLATE_INFO (d)) = 0;
24000 if (push_to_top)
24001 pop_from_top_level ();
24002 else
24003 pop_function_context ();
24005 if (nested)
24006 restore_omp_privatization_clauses (omp_privatization_save);
24008 out:
24009 pop_deferring_access_checks ();
24010 timevar_pop (TV_TEMPLATE_INST);
24011 pop_tinst_level ();
24012 input_location = saved_loc;
24013 cp_unevaluated_operand = saved_unevaluated_operand;
24014 c_inhibit_evaluation_warnings = saved_inhibit_evaluation_warnings;
24016 return d;
24019 /* Run through the list of templates that we wish we could
24020 instantiate, and instantiate any we can. RETRIES is the
24021 number of times we retry pending template instantiation. */
24023 void
24024 instantiate_pending_templates (int retries)
24026 int reconsider;
24027 location_t saved_loc = input_location;
24029 /* Instantiating templates may trigger vtable generation. This in turn
24030 may require further template instantiations. We place a limit here
24031 to avoid infinite loop. */
24032 if (pending_templates && retries >= max_tinst_depth)
24034 tree decl = pending_templates->tinst->maybe_get_node ();
24036 fatal_error (input_location,
24037 "template instantiation depth exceeds maximum of %d"
24038 " instantiating %q+D, possibly from virtual table generation"
24039 " (use -ftemplate-depth= to increase the maximum)",
24040 max_tinst_depth, decl);
24041 if (TREE_CODE (decl) == FUNCTION_DECL)
24042 /* Pretend that we defined it. */
24043 DECL_INITIAL (decl) = error_mark_node;
24044 return;
24049 struct pending_template **t = &pending_templates;
24050 struct pending_template *last = NULL;
24051 reconsider = 0;
24052 while (*t)
24054 tree instantiation = reopen_tinst_level ((*t)->tinst);
24055 bool complete = false;
24057 if (TYPE_P (instantiation))
24059 if (!COMPLETE_TYPE_P (instantiation))
24061 instantiate_class_template (instantiation);
24062 if (CLASSTYPE_TEMPLATE_INSTANTIATION (instantiation))
24063 for (tree fld = TYPE_FIELDS (instantiation);
24064 fld; fld = TREE_CHAIN (fld))
24065 if ((VAR_P (fld)
24066 || (TREE_CODE (fld) == FUNCTION_DECL
24067 && !DECL_ARTIFICIAL (fld)))
24068 && DECL_TEMPLATE_INSTANTIATION (fld))
24069 instantiate_decl (fld,
24070 /*defer_ok=*/false,
24071 /*expl_inst_class_mem_p=*/false);
24073 if (COMPLETE_TYPE_P (instantiation))
24074 reconsider = 1;
24077 complete = COMPLETE_TYPE_P (instantiation);
24079 else
24081 if (!DECL_TEMPLATE_SPECIALIZATION (instantiation)
24082 && !DECL_TEMPLATE_INSTANTIATED (instantiation))
24084 instantiation
24085 = instantiate_decl (instantiation,
24086 /*defer_ok=*/false,
24087 /*expl_inst_class_mem_p=*/false);
24088 if (DECL_TEMPLATE_INSTANTIATED (instantiation))
24089 reconsider = 1;
24092 complete = (DECL_TEMPLATE_SPECIALIZATION (instantiation)
24093 || DECL_TEMPLATE_INSTANTIATED (instantiation));
24096 if (complete)
24098 /* If INSTANTIATION has been instantiated, then we don't
24099 need to consider it again in the future. */
24100 struct pending_template *drop = *t;
24101 *t = (*t)->next;
24102 set_refcount_ptr (drop->tinst);
24103 pending_template_freelist ().free (drop);
24105 else
24107 last = *t;
24108 t = &(*t)->next;
24110 tinst_depth = 0;
24111 set_refcount_ptr (current_tinst_level);
24113 last_pending_template = last;
24115 while (reconsider);
24117 input_location = saved_loc;
24120 /* Substitute ARGVEC into T, which is a list of initializers for
24121 either base class or a non-static data member. The TREE_PURPOSEs
24122 are DECLs, and the TREE_VALUEs are the initializer values. Used by
24123 instantiate_decl. */
24125 static tree
24126 tsubst_initializer_list (tree t, tree argvec)
24128 tree inits = NULL_TREE;
24129 tree target_ctor = error_mark_node;
24131 for (; t; t = TREE_CHAIN (t))
24133 tree decl;
24134 tree init;
24135 tree expanded_bases = NULL_TREE;
24136 tree expanded_arguments = NULL_TREE;
24137 int i, len = 1;
24139 if (TREE_CODE (TREE_PURPOSE (t)) == TYPE_PACK_EXPANSION)
24141 tree expr;
24142 tree arg;
24144 /* Expand the base class expansion type into separate base
24145 classes. */
24146 expanded_bases = tsubst_pack_expansion (TREE_PURPOSE (t), argvec,
24147 tf_warning_or_error,
24148 NULL_TREE);
24149 if (expanded_bases == error_mark_node)
24150 continue;
24152 /* We'll be building separate TREE_LISTs of arguments for
24153 each base. */
24154 len = TREE_VEC_LENGTH (expanded_bases);
24155 expanded_arguments = make_tree_vec (len);
24156 for (i = 0; i < len; i++)
24157 TREE_VEC_ELT (expanded_arguments, i) = NULL_TREE;
24159 /* Build a dummy EXPR_PACK_EXPANSION that will be used to
24160 expand each argument in the TREE_VALUE of t. */
24161 expr = make_node (EXPR_PACK_EXPANSION);
24162 PACK_EXPANSION_LOCAL_P (expr) = true;
24163 PACK_EXPANSION_PARAMETER_PACKS (expr) =
24164 PACK_EXPANSION_PARAMETER_PACKS (TREE_PURPOSE (t));
24166 if (TREE_VALUE (t) == void_type_node)
24167 /* VOID_TYPE_NODE is used to indicate
24168 value-initialization. */
24170 for (i = 0; i < len; i++)
24171 TREE_VEC_ELT (expanded_arguments, i) = void_type_node;
24173 else
24175 /* Substitute parameter packs into each argument in the
24176 TREE_LIST. */
24177 in_base_initializer = 1;
24178 for (arg = TREE_VALUE (t); arg; arg = TREE_CHAIN (arg))
24180 tree expanded_exprs;
24182 /* Expand the argument. */
24183 SET_PACK_EXPANSION_PATTERN (expr, TREE_VALUE (arg));
24184 expanded_exprs
24185 = tsubst_pack_expansion (expr, argvec,
24186 tf_warning_or_error,
24187 NULL_TREE);
24188 if (expanded_exprs == error_mark_node)
24189 continue;
24191 /* Prepend each of the expanded expressions to the
24192 corresponding TREE_LIST in EXPANDED_ARGUMENTS. */
24193 for (i = 0; i < len; i++)
24195 TREE_VEC_ELT (expanded_arguments, i) =
24196 tree_cons (NULL_TREE,
24197 TREE_VEC_ELT (expanded_exprs, i),
24198 TREE_VEC_ELT (expanded_arguments, i));
24201 in_base_initializer = 0;
24203 /* Reverse all of the TREE_LISTs in EXPANDED_ARGUMENTS,
24204 since we built them backwards. */
24205 for (i = 0; i < len; i++)
24207 TREE_VEC_ELT (expanded_arguments, i) =
24208 nreverse (TREE_VEC_ELT (expanded_arguments, i));
24213 for (i = 0; i < len; ++i)
24215 if (expanded_bases)
24217 decl = TREE_VEC_ELT (expanded_bases, i);
24218 decl = expand_member_init (decl);
24219 init = TREE_VEC_ELT (expanded_arguments, i);
24221 else
24223 tree tmp;
24224 decl = tsubst_copy (TREE_PURPOSE (t), argvec,
24225 tf_warning_or_error, NULL_TREE);
24227 decl = expand_member_init (decl);
24228 if (decl && !DECL_P (decl))
24229 in_base_initializer = 1;
24231 init = TREE_VALUE (t);
24232 tmp = init;
24233 if (init != void_type_node)
24234 init = tsubst_expr (init, argvec,
24235 tf_warning_or_error, NULL_TREE,
24236 /*integral_constant_expression_p=*/false);
24237 if (init == NULL_TREE && tmp != NULL_TREE)
24238 /* If we had an initializer but it instantiated to nothing,
24239 value-initialize the object. This will only occur when
24240 the initializer was a pack expansion where the parameter
24241 packs used in that expansion were of length zero. */
24242 init = void_type_node;
24243 in_base_initializer = 0;
24246 if (target_ctor != error_mark_node
24247 && init != error_mark_node)
24249 error ("mem-initializer for %qD follows constructor delegation",
24250 decl);
24251 return inits;
24253 /* Look for a target constructor. */
24254 if (init != error_mark_node
24255 && decl && CLASS_TYPE_P (decl)
24256 && same_type_p (decl, current_class_type))
24258 maybe_warn_cpp0x (CPP0X_DELEGATING_CTORS);
24259 if (inits)
24261 error ("constructor delegation follows mem-initializer for %qD",
24262 TREE_PURPOSE (inits));
24263 continue;
24265 target_ctor = init;
24268 if (decl)
24270 init = build_tree_list (decl, init);
24271 TREE_CHAIN (init) = inits;
24272 inits = init;
24276 return inits;
24279 /* Set CURRENT_ACCESS_SPECIFIER based on the protection of DECL. */
24281 static void
24282 set_current_access_from_decl (tree decl)
24284 if (TREE_PRIVATE (decl))
24285 current_access_specifier = access_private_node;
24286 else if (TREE_PROTECTED (decl))
24287 current_access_specifier = access_protected_node;
24288 else
24289 current_access_specifier = access_public_node;
24292 /* Instantiate an enumerated type. TAG is the template type, NEWTAG
24293 is the instantiation (which should have been created with
24294 start_enum) and ARGS are the template arguments to use. */
24296 static void
24297 tsubst_enum (tree tag, tree newtag, tree args)
24299 tree e;
24301 if (SCOPED_ENUM_P (newtag))
24302 begin_scope (sk_scoped_enum, newtag);
24304 for (e = TYPE_VALUES (tag); e; e = TREE_CHAIN (e))
24306 tree value;
24307 tree decl;
24309 decl = TREE_VALUE (e);
24310 /* Note that in a template enum, the TREE_VALUE is the
24311 CONST_DECL, not the corresponding INTEGER_CST. */
24312 value = tsubst_expr (DECL_INITIAL (decl),
24313 args, tf_warning_or_error, NULL_TREE,
24314 /*integral_constant_expression_p=*/true);
24316 /* Give this enumeration constant the correct access. */
24317 set_current_access_from_decl (decl);
24319 /* Actually build the enumerator itself. Here we're assuming that
24320 enumerators can't have dependent attributes. */
24321 build_enumerator (DECL_NAME (decl), value, newtag,
24322 DECL_ATTRIBUTES (decl), DECL_SOURCE_LOCATION (decl));
24325 if (SCOPED_ENUM_P (newtag))
24326 finish_scope ();
24328 finish_enum_value_list (newtag);
24329 finish_enum (newtag);
24331 DECL_SOURCE_LOCATION (TYPE_NAME (newtag))
24332 = DECL_SOURCE_LOCATION (TYPE_NAME (tag));
24335 /* DECL is a FUNCTION_DECL that is a template specialization. Return
24336 its type -- but without substituting the innermost set of template
24337 arguments. So, innermost set of template parameters will appear in
24338 the type. */
24340 tree
24341 get_mostly_instantiated_function_type (tree decl)
24343 /* For a function, DECL_TI_TEMPLATE is partially instantiated. */
24344 return TREE_TYPE (DECL_TI_TEMPLATE (decl));
24347 /* Return truthvalue if we're processing a template different from
24348 the last one involved in diagnostics. */
24349 bool
24350 problematic_instantiation_changed (void)
24352 return current_tinst_level != last_error_tinst_level;
24355 /* Remember current template involved in diagnostics. */
24356 void
24357 record_last_problematic_instantiation (void)
24359 set_refcount_ptr (last_error_tinst_level, current_tinst_level);
24362 struct tinst_level *
24363 current_instantiation (void)
24365 return current_tinst_level;
24368 /* Return TRUE if current_function_decl is being instantiated, false
24369 otherwise. */
24371 bool
24372 instantiating_current_function_p (void)
24374 return (current_instantiation ()
24375 && (current_instantiation ()->maybe_get_node ()
24376 == current_function_decl));
24379 /* [temp.param] Check that template non-type parm TYPE is of an allowable
24380 type. Return false for ok, true for disallowed. Issue error and
24381 inform messages under control of COMPLAIN. */
24383 static bool
24384 invalid_nontype_parm_type_p (tree type, tsubst_flags_t complain)
24386 if (INTEGRAL_OR_ENUMERATION_TYPE_P (type))
24387 return false;
24388 else if (TYPE_PTR_P (type))
24389 return false;
24390 else if (TREE_CODE (type) == REFERENCE_TYPE
24391 && !TYPE_REF_IS_RVALUE (type))
24392 return false;
24393 else if (TYPE_PTRMEM_P (type))
24394 return false;
24395 else if (TREE_CODE (type) == TEMPLATE_TYPE_PARM)
24396 return false;
24397 else if (TREE_CODE (type) == TYPENAME_TYPE)
24398 return false;
24399 else if (TREE_CODE (type) == DECLTYPE_TYPE)
24400 return false;
24401 else if (TREE_CODE (type) == NULLPTR_TYPE)
24402 return false;
24403 /* A bound template template parm could later be instantiated to have a valid
24404 nontype parm type via an alias template. */
24405 else if (cxx_dialect >= cxx11
24406 && TREE_CODE (type) == BOUND_TEMPLATE_TEMPLATE_PARM)
24407 return false;
24409 if (complain & tf_error)
24411 if (type == error_mark_node)
24412 inform (input_location, "invalid template non-type parameter");
24413 else
24414 error ("%q#T is not a valid type for a template non-type parameter",
24415 type);
24417 return true;
24420 /* Returns TRUE if TYPE is dependent, in the sense of [temp.dep.type].
24421 Assumes that TYPE really is a type, and not the ERROR_MARK_NODE.*/
24423 static bool
24424 dependent_type_p_r (tree type)
24426 tree scope;
24428 /* [temp.dep.type]
24430 A type is dependent if it is:
24432 -- a template parameter. Template template parameters are types
24433 for us (since TYPE_P holds true for them) so we handle
24434 them here. */
24435 if (TREE_CODE (type) == TEMPLATE_TYPE_PARM
24436 || TREE_CODE (type) == TEMPLATE_TEMPLATE_PARM)
24437 return true;
24438 /* -- a qualified-id with a nested-name-specifier which contains a
24439 class-name that names a dependent type or whose unqualified-id
24440 names a dependent type. */
24441 if (TREE_CODE (type) == TYPENAME_TYPE)
24442 return true;
24444 /* An alias template specialization can be dependent even if the
24445 resulting type is not. */
24446 if (dependent_alias_template_spec_p (type))
24447 return true;
24449 /* -- a cv-qualified type where the cv-unqualified type is
24450 dependent.
24451 No code is necessary for this bullet; the code below handles
24452 cv-qualified types, and we don't want to strip aliases with
24453 TYPE_MAIN_VARIANT because of DR 1558. */
24454 /* -- a compound type constructed from any dependent type. */
24455 if (TYPE_PTRMEM_P (type))
24456 return (dependent_type_p (TYPE_PTRMEM_CLASS_TYPE (type))
24457 || dependent_type_p (TYPE_PTRMEM_POINTED_TO_TYPE
24458 (type)));
24459 else if (TYPE_PTR_P (type)
24460 || TREE_CODE (type) == REFERENCE_TYPE)
24461 return dependent_type_p (TREE_TYPE (type));
24462 else if (TREE_CODE (type) == FUNCTION_TYPE
24463 || TREE_CODE (type) == METHOD_TYPE)
24465 tree arg_type;
24467 if (dependent_type_p (TREE_TYPE (type)))
24468 return true;
24469 for (arg_type = TYPE_ARG_TYPES (type);
24470 arg_type;
24471 arg_type = TREE_CHAIN (arg_type))
24472 if (dependent_type_p (TREE_VALUE (arg_type)))
24473 return true;
24474 if (cxx_dialect >= cxx17)
24475 /* A value-dependent noexcept-specifier makes the type dependent. */
24476 if (tree spec = TYPE_RAISES_EXCEPTIONS (type))
24477 if (tree noex = TREE_PURPOSE (spec))
24478 /* Treat DEFERRED_NOEXCEPT as non-dependent, since it doesn't
24479 affect overload resolution and treating it as dependent breaks
24480 things. */
24481 if (TREE_CODE (noex) != DEFERRED_NOEXCEPT
24482 && value_dependent_expression_p (noex))
24483 return true;
24484 return false;
24486 /* -- an array type constructed from any dependent type or whose
24487 size is specified by a constant expression that is
24488 value-dependent.
24490 We checked for type- and value-dependence of the bounds in
24491 compute_array_index_type, so TYPE_DEPENDENT_P is already set. */
24492 if (TREE_CODE (type) == ARRAY_TYPE)
24494 if (TYPE_DOMAIN (type)
24495 && dependent_type_p (TYPE_DOMAIN (type)))
24496 return true;
24497 return dependent_type_p (TREE_TYPE (type));
24500 /* -- a template-id in which either the template name is a template
24501 parameter ... */
24502 if (TREE_CODE (type) == BOUND_TEMPLATE_TEMPLATE_PARM)
24503 return true;
24504 /* ... or any of the template arguments is a dependent type or
24505 an expression that is type-dependent or value-dependent. */
24506 else if (CLASS_TYPE_P (type) && CLASSTYPE_TEMPLATE_INFO (type)
24507 && (any_dependent_template_arguments_p
24508 (INNERMOST_TEMPLATE_ARGS (CLASSTYPE_TI_ARGS (type)))))
24509 return true;
24511 /* All TYPEOF_TYPEs, DECLTYPE_TYPEs, and UNDERLYING_TYPEs are
24512 dependent; if the argument of the `typeof' expression is not
24513 type-dependent, then it should already been have resolved. */
24514 if (TREE_CODE (type) == TYPEOF_TYPE
24515 || TREE_CODE (type) == DECLTYPE_TYPE
24516 || TREE_CODE (type) == UNDERLYING_TYPE)
24517 return true;
24519 /* A template argument pack is dependent if any of its packed
24520 arguments are. */
24521 if (TREE_CODE (type) == TYPE_ARGUMENT_PACK)
24523 tree args = ARGUMENT_PACK_ARGS (type);
24524 int i, len = TREE_VEC_LENGTH (args);
24525 for (i = 0; i < len; ++i)
24526 if (dependent_template_arg_p (TREE_VEC_ELT (args, i)))
24527 return true;
24530 /* All TYPE_PACK_EXPANSIONs are dependent, because parameter packs must
24531 be template parameters. */
24532 if (TREE_CODE (type) == TYPE_PACK_EXPANSION)
24533 return true;
24535 if (any_dependent_type_attributes_p (TYPE_ATTRIBUTES (type)))
24536 return true;
24538 /* The standard does not specifically mention types that are local
24539 to template functions or local classes, but they should be
24540 considered dependent too. For example:
24542 template <int I> void f() {
24543 enum E { a = I };
24544 S<sizeof (E)> s;
24547 The size of `E' cannot be known until the value of `I' has been
24548 determined. Therefore, `E' must be considered dependent. */
24549 scope = TYPE_CONTEXT (type);
24550 if (scope && TYPE_P (scope))
24551 return dependent_type_p (scope);
24552 /* Don't use type_dependent_expression_p here, as it can lead
24553 to infinite recursion trying to determine whether a lambda
24554 nested in a lambda is dependent (c++/47687). */
24555 else if (scope && TREE_CODE (scope) == FUNCTION_DECL
24556 && DECL_LANG_SPECIFIC (scope)
24557 && DECL_TEMPLATE_INFO (scope)
24558 && (any_dependent_template_arguments_p
24559 (INNERMOST_TEMPLATE_ARGS (DECL_TI_ARGS (scope)))))
24560 return true;
24562 /* Other types are non-dependent. */
24563 return false;
24566 /* Returns TRUE if TYPE is dependent, in the sense of
24567 [temp.dep.type]. Note that a NULL type is considered dependent. */
24569 bool
24570 dependent_type_p (tree type)
24572 /* If there are no template parameters in scope, then there can't be
24573 any dependent types. */
24574 if (!processing_template_decl)
24576 /* If we are not processing a template, then nobody should be
24577 providing us with a dependent type. */
24578 gcc_assert (type);
24579 gcc_assert (TREE_CODE (type) != TEMPLATE_TYPE_PARM || is_auto (type));
24580 return false;
24583 /* If the type is NULL, we have not computed a type for the entity
24584 in question; in that case, the type is dependent. */
24585 if (!type)
24586 return true;
24588 /* Erroneous types can be considered non-dependent. */
24589 if (type == error_mark_node)
24590 return false;
24592 /* Getting here with global_type_node means we improperly called this
24593 function on the TREE_TYPE of an IDENTIFIER_NODE. */
24594 gcc_checking_assert (type != global_type_node);
24596 /* If we have not already computed the appropriate value for TYPE,
24597 do so now. */
24598 if (!TYPE_DEPENDENT_P_VALID (type))
24600 TYPE_DEPENDENT_P (type) = dependent_type_p_r (type);
24601 TYPE_DEPENDENT_P_VALID (type) = 1;
24604 return TYPE_DEPENDENT_P (type);
24607 /* Returns TRUE if SCOPE is a dependent scope, in which we can't do any
24608 lookup. In other words, a dependent type that is not the current
24609 instantiation. */
24611 bool
24612 dependent_scope_p (tree scope)
24614 return (scope && TYPE_P (scope) && dependent_type_p (scope)
24615 && !currently_open_class (scope));
24618 /* T is a SCOPE_REF. Return whether it represents a non-static member of
24619 an unknown base of 'this' (and is therefore instantiation-dependent). */
24621 static bool
24622 unknown_base_ref_p (tree t)
24624 if (!current_class_ptr)
24625 return false;
24627 tree mem = TREE_OPERAND (t, 1);
24628 if (shared_member_p (mem))
24629 return false;
24631 tree cur = current_nonlambda_class_type ();
24632 if (!any_dependent_bases_p (cur))
24633 return false;
24635 tree ctx = TREE_OPERAND (t, 0);
24636 if (DERIVED_FROM_P (ctx, cur))
24637 return false;
24639 return true;
24642 /* T is a SCOPE_REF; return whether we need to consider it
24643 instantiation-dependent so that we can check access at instantiation
24644 time even though we know which member it resolves to. */
24646 static bool
24647 instantiation_dependent_scope_ref_p (tree t)
24649 if (DECL_P (TREE_OPERAND (t, 1))
24650 && CLASS_TYPE_P (TREE_OPERAND (t, 0))
24651 && !unknown_base_ref_p (t)
24652 && accessible_in_template_p (TREE_OPERAND (t, 0),
24653 TREE_OPERAND (t, 1)))
24654 return false;
24655 else
24656 return true;
24659 /* Returns TRUE if the EXPRESSION is value-dependent, in the sense of
24660 [temp.dep.constexpr]. EXPRESSION is already known to be a constant
24661 expression. */
24663 /* Note that this predicate is not appropriate for general expressions;
24664 only constant expressions (that satisfy potential_constant_expression)
24665 can be tested for value dependence. */
24667 bool
24668 value_dependent_expression_p (tree expression)
24670 if (!processing_template_decl || expression == NULL_TREE)
24671 return false;
24673 /* A type-dependent expression is also value-dependent. */
24674 if (type_dependent_expression_p (expression))
24675 return true;
24677 switch (TREE_CODE (expression))
24679 case BASELINK:
24680 /* A dependent member function of the current instantiation. */
24681 return dependent_type_p (BINFO_TYPE (BASELINK_BINFO (expression)));
24683 case FUNCTION_DECL:
24684 /* A dependent member function of the current instantiation. */
24685 if (DECL_CLASS_SCOPE_P (expression)
24686 && dependent_type_p (DECL_CONTEXT (expression)))
24687 return true;
24688 break;
24690 case IDENTIFIER_NODE:
24691 /* A name that has not been looked up -- must be dependent. */
24692 return true;
24694 case TEMPLATE_PARM_INDEX:
24695 /* A non-type template parm. */
24696 return true;
24698 case CONST_DECL:
24699 /* A non-type template parm. */
24700 if (DECL_TEMPLATE_PARM_P (expression))
24701 return true;
24702 return value_dependent_expression_p (DECL_INITIAL (expression));
24704 case VAR_DECL:
24705 /* A constant with literal type and is initialized
24706 with an expression that is value-dependent. */
24707 if (DECL_DEPENDENT_INIT_P (expression)
24708 /* FIXME cp_finish_decl doesn't fold reference initializers. */
24709 || TREE_CODE (TREE_TYPE (expression)) == REFERENCE_TYPE)
24710 return true;
24711 if (DECL_HAS_VALUE_EXPR_P (expression))
24713 tree value_expr = DECL_VALUE_EXPR (expression);
24714 if (value_dependent_expression_p (value_expr))
24715 return true;
24717 return false;
24719 case DYNAMIC_CAST_EXPR:
24720 case STATIC_CAST_EXPR:
24721 case CONST_CAST_EXPR:
24722 case REINTERPRET_CAST_EXPR:
24723 case CAST_EXPR:
24724 case IMPLICIT_CONV_EXPR:
24725 /* These expressions are value-dependent if the type to which
24726 the cast occurs is dependent or the expression being casted
24727 is value-dependent. */
24729 tree type = TREE_TYPE (expression);
24731 if (dependent_type_p (type))
24732 return true;
24734 /* A functional cast has a list of operands. */
24735 expression = TREE_OPERAND (expression, 0);
24736 if (!expression)
24738 /* If there are no operands, it must be an expression such
24739 as "int()". This should not happen for aggregate types
24740 because it would form non-constant expressions. */
24741 gcc_assert (cxx_dialect >= cxx11
24742 || INTEGRAL_OR_ENUMERATION_TYPE_P (type));
24744 return false;
24747 if (TREE_CODE (expression) == TREE_LIST)
24748 return any_value_dependent_elements_p (expression);
24750 return value_dependent_expression_p (expression);
24753 case SIZEOF_EXPR:
24754 if (SIZEOF_EXPR_TYPE_P (expression))
24755 return dependent_type_p (TREE_TYPE (TREE_OPERAND (expression, 0)));
24756 /* FALLTHRU */
24757 case ALIGNOF_EXPR:
24758 case TYPEID_EXPR:
24759 /* A `sizeof' expression is value-dependent if the operand is
24760 type-dependent or is a pack expansion. */
24761 expression = TREE_OPERAND (expression, 0);
24762 if (PACK_EXPANSION_P (expression))
24763 return true;
24764 else if (TYPE_P (expression))
24765 return dependent_type_p (expression);
24766 return instantiation_dependent_uneval_expression_p (expression);
24768 case AT_ENCODE_EXPR:
24769 /* An 'encode' expression is value-dependent if the operand is
24770 type-dependent. */
24771 expression = TREE_OPERAND (expression, 0);
24772 return dependent_type_p (expression);
24774 case NOEXCEPT_EXPR:
24775 expression = TREE_OPERAND (expression, 0);
24776 return instantiation_dependent_uneval_expression_p (expression);
24778 case SCOPE_REF:
24779 /* All instantiation-dependent expressions should also be considered
24780 value-dependent. */
24781 return instantiation_dependent_scope_ref_p (expression);
24783 case COMPONENT_REF:
24784 return (value_dependent_expression_p (TREE_OPERAND (expression, 0))
24785 || value_dependent_expression_p (TREE_OPERAND (expression, 1)));
24787 case NONTYPE_ARGUMENT_PACK:
24788 /* A NONTYPE_ARGUMENT_PACK is value-dependent if any packed argument
24789 is value-dependent. */
24791 tree values = ARGUMENT_PACK_ARGS (expression);
24792 int i, len = TREE_VEC_LENGTH (values);
24794 for (i = 0; i < len; ++i)
24795 if (value_dependent_expression_p (TREE_VEC_ELT (values, i)))
24796 return true;
24798 return false;
24801 case TRAIT_EXPR:
24803 tree type2 = TRAIT_EXPR_TYPE2 (expression);
24805 if (dependent_type_p (TRAIT_EXPR_TYPE1 (expression)))
24806 return true;
24808 if (!type2)
24809 return false;
24811 if (TREE_CODE (type2) != TREE_LIST)
24812 return dependent_type_p (type2);
24814 for (; type2; type2 = TREE_CHAIN (type2))
24815 if (dependent_type_p (TREE_VALUE (type2)))
24816 return true;
24818 return false;
24821 case MODOP_EXPR:
24822 return ((value_dependent_expression_p (TREE_OPERAND (expression, 0)))
24823 || (value_dependent_expression_p (TREE_OPERAND (expression, 2))));
24825 case ARRAY_REF:
24826 return ((value_dependent_expression_p (TREE_OPERAND (expression, 0)))
24827 || (value_dependent_expression_p (TREE_OPERAND (expression, 1))));
24829 case ADDR_EXPR:
24831 tree op = TREE_OPERAND (expression, 0);
24832 return (value_dependent_expression_p (op)
24833 || has_value_dependent_address (op));
24836 case REQUIRES_EXPR:
24837 /* Treat all requires-expressions as value-dependent so
24838 we don't try to fold them. */
24839 return true;
24841 case TYPE_REQ:
24842 return dependent_type_p (TREE_OPERAND (expression, 0));
24844 case CALL_EXPR:
24846 if (value_dependent_expression_p (CALL_EXPR_FN (expression)))
24847 return true;
24848 tree fn = get_callee_fndecl (expression);
24849 int i, nargs;
24850 nargs = call_expr_nargs (expression);
24851 for (i = 0; i < nargs; ++i)
24853 tree op = CALL_EXPR_ARG (expression, i);
24854 /* In a call to a constexpr member function, look through the
24855 implicit ADDR_EXPR on the object argument so that it doesn't
24856 cause the call to be considered value-dependent. We also
24857 look through it in potential_constant_expression. */
24858 if (i == 0 && fn && DECL_DECLARED_CONSTEXPR_P (fn)
24859 && DECL_NONSTATIC_MEMBER_FUNCTION_P (fn)
24860 && TREE_CODE (op) == ADDR_EXPR)
24861 op = TREE_OPERAND (op, 0);
24862 if (value_dependent_expression_p (op))
24863 return true;
24865 return false;
24868 case TEMPLATE_ID_EXPR:
24869 return variable_concept_p (TREE_OPERAND (expression, 0));
24871 case CONSTRUCTOR:
24873 unsigned ix;
24874 tree val;
24875 if (dependent_type_p (TREE_TYPE (expression)))
24876 return true;
24877 FOR_EACH_CONSTRUCTOR_VALUE (CONSTRUCTOR_ELTS (expression), ix, val)
24878 if (value_dependent_expression_p (val))
24879 return true;
24880 return false;
24883 case STMT_EXPR:
24884 /* Treat a GNU statement expression as dependent to avoid crashing
24885 under instantiate_non_dependent_expr; it can't be constant. */
24886 return true;
24888 default:
24889 /* A constant expression is value-dependent if any subexpression is
24890 value-dependent. */
24891 switch (TREE_CODE_CLASS (TREE_CODE (expression)))
24893 case tcc_reference:
24894 case tcc_unary:
24895 case tcc_comparison:
24896 case tcc_binary:
24897 case tcc_expression:
24898 case tcc_vl_exp:
24900 int i, len = cp_tree_operand_length (expression);
24902 for (i = 0; i < len; i++)
24904 tree t = TREE_OPERAND (expression, i);
24906 /* In some cases, some of the operands may be missing.
24907 (For example, in the case of PREDECREMENT_EXPR, the
24908 amount to increment by may be missing.) That doesn't
24909 make the expression dependent. */
24910 if (t && value_dependent_expression_p (t))
24911 return true;
24914 break;
24915 default:
24916 break;
24918 break;
24921 /* The expression is not value-dependent. */
24922 return false;
24925 /* Returns TRUE if the EXPRESSION is type-dependent, in the sense of
24926 [temp.dep.expr]. Note that an expression with no type is
24927 considered dependent. Other parts of the compiler arrange for an
24928 expression with type-dependent subexpressions to have no type, so
24929 this function doesn't have to be fully recursive. */
24931 bool
24932 type_dependent_expression_p (tree expression)
24934 if (!processing_template_decl)
24935 return false;
24937 if (expression == NULL_TREE || expression == error_mark_node)
24938 return false;
24940 STRIP_ANY_LOCATION_WRAPPER (expression);
24942 /* An unresolved name is always dependent. */
24943 if (identifier_p (expression)
24944 || TREE_CODE (expression) == USING_DECL
24945 || TREE_CODE (expression) == WILDCARD_DECL)
24946 return true;
24948 /* A fold expression is type-dependent. */
24949 if (TREE_CODE (expression) == UNARY_LEFT_FOLD_EXPR
24950 || TREE_CODE (expression) == UNARY_RIGHT_FOLD_EXPR
24951 || TREE_CODE (expression) == BINARY_LEFT_FOLD_EXPR
24952 || TREE_CODE (expression) == BINARY_RIGHT_FOLD_EXPR)
24953 return true;
24955 /* Some expression forms are never type-dependent. */
24956 if (TREE_CODE (expression) == PSEUDO_DTOR_EXPR
24957 || TREE_CODE (expression) == SIZEOF_EXPR
24958 || TREE_CODE (expression) == ALIGNOF_EXPR
24959 || TREE_CODE (expression) == AT_ENCODE_EXPR
24960 || TREE_CODE (expression) == NOEXCEPT_EXPR
24961 || TREE_CODE (expression) == TRAIT_EXPR
24962 || TREE_CODE (expression) == TYPEID_EXPR
24963 || TREE_CODE (expression) == DELETE_EXPR
24964 || TREE_CODE (expression) == VEC_DELETE_EXPR
24965 || TREE_CODE (expression) == THROW_EXPR
24966 || TREE_CODE (expression) == REQUIRES_EXPR)
24967 return false;
24969 /* The types of these expressions depends only on the type to which
24970 the cast occurs. */
24971 if (TREE_CODE (expression) == DYNAMIC_CAST_EXPR
24972 || TREE_CODE (expression) == STATIC_CAST_EXPR
24973 || TREE_CODE (expression) == CONST_CAST_EXPR
24974 || TREE_CODE (expression) == REINTERPRET_CAST_EXPR
24975 || TREE_CODE (expression) == IMPLICIT_CONV_EXPR
24976 || TREE_CODE (expression) == CAST_EXPR)
24977 return dependent_type_p (TREE_TYPE (expression));
24979 /* The types of these expressions depends only on the type created
24980 by the expression. */
24981 if (TREE_CODE (expression) == NEW_EXPR
24982 || TREE_CODE (expression) == VEC_NEW_EXPR)
24984 /* For NEW_EXPR tree nodes created inside a template, either
24985 the object type itself or a TREE_LIST may appear as the
24986 operand 1. */
24987 tree type = TREE_OPERAND (expression, 1);
24988 if (TREE_CODE (type) == TREE_LIST)
24989 /* This is an array type. We need to check array dimensions
24990 as well. */
24991 return dependent_type_p (TREE_VALUE (TREE_PURPOSE (type)))
24992 || value_dependent_expression_p
24993 (TREE_OPERAND (TREE_VALUE (type), 1));
24994 else
24995 return dependent_type_p (type);
24998 if (TREE_CODE (expression) == SCOPE_REF)
25000 tree scope = TREE_OPERAND (expression, 0);
25001 tree name = TREE_OPERAND (expression, 1);
25003 /* 14.6.2.2 [temp.dep.expr]: An id-expression is type-dependent if it
25004 contains an identifier associated by name lookup with one or more
25005 declarations declared with a dependent type, or...a
25006 nested-name-specifier or qualified-id that names a member of an
25007 unknown specialization. */
25008 return (type_dependent_expression_p (name)
25009 || dependent_scope_p (scope));
25012 if (TREE_CODE (expression) == TEMPLATE_DECL
25013 && !DECL_TEMPLATE_TEMPLATE_PARM_P (expression))
25014 return uses_outer_template_parms (expression);
25016 if (TREE_CODE (expression) == STMT_EXPR)
25017 expression = stmt_expr_value_expr (expression);
25019 if (BRACE_ENCLOSED_INITIALIZER_P (expression))
25021 tree elt;
25022 unsigned i;
25024 FOR_EACH_CONSTRUCTOR_VALUE (CONSTRUCTOR_ELTS (expression), i, elt)
25026 if (type_dependent_expression_p (elt))
25027 return true;
25029 return false;
25032 /* A static data member of the current instantiation with incomplete
25033 array type is type-dependent, as the definition and specializations
25034 can have different bounds. */
25035 if (VAR_P (expression)
25036 && DECL_CLASS_SCOPE_P (expression)
25037 && dependent_type_p (DECL_CONTEXT (expression))
25038 && VAR_HAD_UNKNOWN_BOUND (expression))
25039 return true;
25041 /* An array of unknown bound depending on a variadic parameter, eg:
25043 template<typename... Args>
25044 void foo (Args... args)
25046 int arr[] = { args... };
25049 template<int... vals>
25050 void bar ()
25052 int arr[] = { vals... };
25055 If the array has no length and has an initializer, it must be that
25056 we couldn't determine its length in cp_complete_array_type because
25057 it is dependent. */
25058 if (VAR_P (expression)
25059 && TREE_TYPE (expression) != NULL_TREE
25060 && TREE_CODE (TREE_TYPE (expression)) == ARRAY_TYPE
25061 && !TYPE_DOMAIN (TREE_TYPE (expression))
25062 && DECL_INITIAL (expression))
25063 return true;
25065 /* A function or variable template-id is type-dependent if it has any
25066 dependent template arguments. */
25067 if (VAR_OR_FUNCTION_DECL_P (expression)
25068 && DECL_LANG_SPECIFIC (expression)
25069 && DECL_TEMPLATE_INFO (expression))
25071 /* Consider the innermost template arguments, since those are the ones
25072 that come from the template-id; the template arguments for the
25073 enclosing class do not make it type-dependent unless they are used in
25074 the type of the decl. */
25075 if (PRIMARY_TEMPLATE_P (DECL_TI_TEMPLATE (expression))
25076 && (any_dependent_template_arguments_p
25077 (INNERMOST_TEMPLATE_ARGS (DECL_TI_ARGS (expression)))))
25078 return true;
25081 /* Otherwise, if the function decl isn't from a dependent scope, it can't be
25082 type-dependent. Checking this is important for functions with auto return
25083 type, which looks like a dependent type. */
25084 if (TREE_CODE (expression) == FUNCTION_DECL
25085 && !(DECL_CLASS_SCOPE_P (expression)
25086 && dependent_type_p (DECL_CONTEXT (expression)))
25087 && !(DECL_LANG_SPECIFIC (expression)
25088 && DECL_FRIEND_P (expression)
25089 && (!DECL_FRIEND_CONTEXT (expression)
25090 || dependent_type_p (DECL_FRIEND_CONTEXT (expression))))
25091 && !DECL_LOCAL_FUNCTION_P (expression))
25093 gcc_assert (!dependent_type_p (TREE_TYPE (expression))
25094 || undeduced_auto_decl (expression));
25095 return false;
25098 /* Always dependent, on the number of arguments if nothing else. */
25099 if (TREE_CODE (expression) == EXPR_PACK_EXPANSION)
25100 return true;
25102 if (TREE_TYPE (expression) == unknown_type_node)
25104 if (TREE_CODE (expression) == ADDR_EXPR)
25105 return type_dependent_expression_p (TREE_OPERAND (expression, 0));
25106 if (TREE_CODE (expression) == COMPONENT_REF
25107 || TREE_CODE (expression) == OFFSET_REF)
25109 if (type_dependent_expression_p (TREE_OPERAND (expression, 0)))
25110 return true;
25111 expression = TREE_OPERAND (expression, 1);
25112 if (identifier_p (expression))
25113 return false;
25115 /* SCOPE_REF with non-null TREE_TYPE is always non-dependent. */
25116 if (TREE_CODE (expression) == SCOPE_REF)
25117 return false;
25119 if (BASELINK_P (expression))
25121 if (BASELINK_OPTYPE (expression)
25122 && dependent_type_p (BASELINK_OPTYPE (expression)))
25123 return true;
25124 expression = BASELINK_FUNCTIONS (expression);
25127 if (TREE_CODE (expression) == TEMPLATE_ID_EXPR)
25129 if (any_dependent_template_arguments_p
25130 (TREE_OPERAND (expression, 1)))
25131 return true;
25132 expression = TREE_OPERAND (expression, 0);
25133 if (identifier_p (expression))
25134 return true;
25137 gcc_assert (TREE_CODE (expression) == OVERLOAD
25138 || TREE_CODE (expression) == FUNCTION_DECL);
25140 for (lkp_iterator iter (expression); iter; ++iter)
25141 if (type_dependent_expression_p (*iter))
25142 return true;
25144 return false;
25147 gcc_assert (TREE_CODE (expression) != TYPE_DECL);
25149 /* Dependent type attributes might not have made it from the decl to
25150 the type yet. */
25151 if (DECL_P (expression)
25152 && any_dependent_type_attributes_p (DECL_ATTRIBUTES (expression)))
25153 return true;
25155 return (dependent_type_p (TREE_TYPE (expression)));
25158 /* [temp.dep.expr]/5: A class member access expression (5.2.5) is
25159 type-dependent if the expression refers to a member of the current
25160 instantiation and the type of the referenced member is dependent, or the
25161 class member access expression refers to a member of an unknown
25162 specialization.
25164 This function returns true if the OBJECT in such a class member access
25165 expression is of an unknown specialization. */
25167 bool
25168 type_dependent_object_expression_p (tree object)
25170 /* An IDENTIFIER_NODE can sometimes have a TREE_TYPE, but it's still
25171 dependent. */
25172 if (TREE_CODE (object) == IDENTIFIER_NODE)
25173 return true;
25174 tree scope = TREE_TYPE (object);
25175 return (!scope || dependent_scope_p (scope));
25178 /* walk_tree callback function for instantiation_dependent_expression_p,
25179 below. Returns non-zero if a dependent subexpression is found. */
25181 static tree
25182 instantiation_dependent_r (tree *tp, int *walk_subtrees,
25183 void * /*data*/)
25185 if (TYPE_P (*tp))
25187 /* We don't have to worry about decltype currently because decltype
25188 of an instantiation-dependent expr is a dependent type. This
25189 might change depending on the resolution of DR 1172. */
25190 *walk_subtrees = false;
25191 return NULL_TREE;
25193 enum tree_code code = TREE_CODE (*tp);
25194 switch (code)
25196 /* Don't treat an argument list as dependent just because it has no
25197 TREE_TYPE. */
25198 case TREE_LIST:
25199 case TREE_VEC:
25200 return NULL_TREE;
25202 case TEMPLATE_PARM_INDEX:
25203 return *tp;
25205 /* Handle expressions with type operands. */
25206 case SIZEOF_EXPR:
25207 case ALIGNOF_EXPR:
25208 case TYPEID_EXPR:
25209 case AT_ENCODE_EXPR:
25211 tree op = TREE_OPERAND (*tp, 0);
25212 if (code == SIZEOF_EXPR && SIZEOF_EXPR_TYPE_P (*tp))
25213 op = TREE_TYPE (op);
25214 if (TYPE_P (op))
25216 if (dependent_type_p (op))
25217 return *tp;
25218 else
25220 *walk_subtrees = false;
25221 return NULL_TREE;
25224 break;
25227 case COMPONENT_REF:
25228 if (identifier_p (TREE_OPERAND (*tp, 1)))
25229 /* In a template, finish_class_member_access_expr creates a
25230 COMPONENT_REF with an IDENTIFIER_NODE for op1 even if it isn't
25231 type-dependent, so that we can check access control at
25232 instantiation time (PR 42277). See also Core issue 1273. */
25233 return *tp;
25234 break;
25236 case SCOPE_REF:
25237 if (instantiation_dependent_scope_ref_p (*tp))
25238 return *tp;
25239 else
25240 break;
25242 /* Treat statement-expressions as dependent. */
25243 case BIND_EXPR:
25244 return *tp;
25246 /* Treat requires-expressions as dependent. */
25247 case REQUIRES_EXPR:
25248 return *tp;
25250 case CALL_EXPR:
25251 /* Treat calls to function concepts as dependent. */
25252 if (function_concept_check_p (*tp))
25253 return *tp;
25254 break;
25256 case TEMPLATE_ID_EXPR:
25257 /* And variable concepts. */
25258 if (variable_concept_p (TREE_OPERAND (*tp, 0)))
25259 return *tp;
25260 break;
25262 default:
25263 break;
25266 if (type_dependent_expression_p (*tp))
25267 return *tp;
25268 else
25269 return NULL_TREE;
25272 /* Returns TRUE if the EXPRESSION is instantiation-dependent, in the
25273 sense defined by the ABI:
25275 "An expression is instantiation-dependent if it is type-dependent
25276 or value-dependent, or it has a subexpression that is type-dependent
25277 or value-dependent."
25279 Except don't actually check value-dependence for unevaluated expressions,
25280 because in sizeof(i) we don't care about the value of i. Checking
25281 type-dependence will in turn check value-dependence of array bounds/template
25282 arguments as needed. */
25284 bool
25285 instantiation_dependent_uneval_expression_p (tree expression)
25287 tree result;
25289 if (!processing_template_decl)
25290 return false;
25292 if (expression == error_mark_node)
25293 return false;
25295 result = cp_walk_tree_without_duplicates (&expression,
25296 instantiation_dependent_r, NULL);
25297 return result != NULL_TREE;
25300 /* As above, but also check value-dependence of the expression as a whole. */
25302 bool
25303 instantiation_dependent_expression_p (tree expression)
25305 return (instantiation_dependent_uneval_expression_p (expression)
25306 || value_dependent_expression_p (expression));
25309 /* Like type_dependent_expression_p, but it also works while not processing
25310 a template definition, i.e. during substitution or mangling. */
25312 bool
25313 type_dependent_expression_p_push (tree expr)
25315 bool b;
25316 ++processing_template_decl;
25317 b = type_dependent_expression_p (expr);
25318 --processing_template_decl;
25319 return b;
25322 /* Returns TRUE if ARGS contains a type-dependent expression. */
25324 bool
25325 any_type_dependent_arguments_p (const vec<tree, va_gc> *args)
25327 unsigned int i;
25328 tree arg;
25330 FOR_EACH_VEC_SAFE_ELT (args, i, arg)
25332 if (type_dependent_expression_p (arg))
25333 return true;
25335 return false;
25338 /* Returns TRUE if LIST (a TREE_LIST whose TREE_VALUEs are
25339 expressions) contains any type-dependent expressions. */
25341 bool
25342 any_type_dependent_elements_p (const_tree list)
25344 for (; list; list = TREE_CHAIN (list))
25345 if (type_dependent_expression_p (TREE_VALUE (list)))
25346 return true;
25348 return false;
25351 /* Returns TRUE if LIST (a TREE_LIST whose TREE_VALUEs are
25352 expressions) contains any value-dependent expressions. */
25354 bool
25355 any_value_dependent_elements_p (const_tree list)
25357 for (; list; list = TREE_CHAIN (list))
25358 if (value_dependent_expression_p (TREE_VALUE (list)))
25359 return true;
25361 return false;
25364 /* Returns TRUE if the ARG (a template argument) is dependent. */
25366 bool
25367 dependent_template_arg_p (tree arg)
25369 if (!processing_template_decl)
25370 return false;
25372 /* Assume a template argument that was wrongly written by the user
25373 is dependent. This is consistent with what
25374 any_dependent_template_arguments_p [that calls this function]
25375 does. */
25376 if (!arg || arg == error_mark_node)
25377 return true;
25379 if (TREE_CODE (arg) == ARGUMENT_PACK_SELECT)
25380 arg = argument_pack_select_arg (arg);
25382 if (TREE_CODE (arg) == TEMPLATE_TEMPLATE_PARM)
25383 return true;
25384 if (TREE_CODE (arg) == TEMPLATE_DECL)
25386 if (DECL_TEMPLATE_PARM_P (arg))
25387 return true;
25388 /* A member template of a dependent class is not necessarily
25389 type-dependent, but it is a dependent template argument because it
25390 will be a member of an unknown specialization to that template. */
25391 tree scope = CP_DECL_CONTEXT (arg);
25392 return TYPE_P (scope) && dependent_type_p (scope);
25394 else if (ARGUMENT_PACK_P (arg))
25396 tree args = ARGUMENT_PACK_ARGS (arg);
25397 int i, len = TREE_VEC_LENGTH (args);
25398 for (i = 0; i < len; ++i)
25400 if (dependent_template_arg_p (TREE_VEC_ELT (args, i)))
25401 return true;
25404 return false;
25406 else if (TYPE_P (arg))
25407 return dependent_type_p (arg);
25408 else
25409 return (type_dependent_expression_p (arg)
25410 || value_dependent_expression_p (arg));
25413 /* Returns true if ARGS (a collection of template arguments) contains
25414 any types that require structural equality testing. */
25416 bool
25417 any_template_arguments_need_structural_equality_p (tree args)
25419 int i;
25420 int j;
25422 if (!args)
25423 return false;
25424 if (args == error_mark_node)
25425 return true;
25427 for (i = 0; i < TMPL_ARGS_DEPTH (args); ++i)
25429 tree level = TMPL_ARGS_LEVEL (args, i + 1);
25430 for (j = 0; j < TREE_VEC_LENGTH (level); ++j)
25432 tree arg = TREE_VEC_ELT (level, j);
25433 tree packed_args = NULL_TREE;
25434 int k, len = 1;
25436 if (ARGUMENT_PACK_P (arg))
25438 /* Look inside the argument pack. */
25439 packed_args = ARGUMENT_PACK_ARGS (arg);
25440 len = TREE_VEC_LENGTH (packed_args);
25443 for (k = 0; k < len; ++k)
25445 if (packed_args)
25446 arg = TREE_VEC_ELT (packed_args, k);
25448 if (error_operand_p (arg))
25449 return true;
25450 else if (TREE_CODE (arg) == TEMPLATE_DECL)
25451 continue;
25452 else if (TYPE_P (arg) && TYPE_STRUCTURAL_EQUALITY_P (arg))
25453 return true;
25454 else if (!TYPE_P (arg) && TREE_TYPE (arg)
25455 && TYPE_STRUCTURAL_EQUALITY_P (TREE_TYPE (arg)))
25456 return true;
25461 return false;
25464 /* Returns true if ARGS (a collection of template arguments) contains
25465 any dependent arguments. */
25467 bool
25468 any_dependent_template_arguments_p (const_tree args)
25470 int i;
25471 int j;
25473 if (!args)
25474 return false;
25475 if (args == error_mark_node)
25476 return true;
25478 for (i = 0; i < TMPL_ARGS_DEPTH (args); ++i)
25480 const_tree level = TMPL_ARGS_LEVEL (args, i + 1);
25481 for (j = 0; j < TREE_VEC_LENGTH (level); ++j)
25482 if (dependent_template_arg_p (TREE_VEC_ELT (level, j)))
25483 return true;
25486 return false;
25489 /* Returns true if ARGS contains any errors. */
25491 bool
25492 any_erroneous_template_args_p (const_tree args)
25494 int i;
25495 int j;
25497 if (args == error_mark_node)
25498 return true;
25500 if (args && TREE_CODE (args) != TREE_VEC)
25502 if (tree ti = get_template_info (args))
25503 args = TI_ARGS (ti);
25504 else
25505 args = NULL_TREE;
25508 if (!args)
25509 return false;
25511 for (i = 0; i < TMPL_ARGS_DEPTH (args); ++i)
25513 const_tree level = TMPL_ARGS_LEVEL (args, i + 1);
25514 for (j = 0; j < TREE_VEC_LENGTH (level); ++j)
25515 if (error_operand_p (TREE_VEC_ELT (level, j)))
25516 return true;
25519 return false;
25522 /* Returns TRUE if the template TMPL is type-dependent. */
25524 bool
25525 dependent_template_p (tree tmpl)
25527 if (TREE_CODE (tmpl) == OVERLOAD)
25529 for (lkp_iterator iter (tmpl); iter; ++iter)
25530 if (dependent_template_p (*iter))
25531 return true;
25532 return false;
25535 /* Template template parameters are dependent. */
25536 if (DECL_TEMPLATE_TEMPLATE_PARM_P (tmpl)
25537 || TREE_CODE (tmpl) == TEMPLATE_TEMPLATE_PARM)
25538 return true;
25539 /* So are names that have not been looked up. */
25540 if (TREE_CODE (tmpl) == SCOPE_REF || identifier_p (tmpl))
25541 return true;
25542 return false;
25545 /* Returns TRUE if the specialization TMPL<ARGS> is dependent. */
25547 bool
25548 dependent_template_id_p (tree tmpl, tree args)
25550 return (dependent_template_p (tmpl)
25551 || any_dependent_template_arguments_p (args));
25554 /* Returns TRUE if OMP_FOR with DECLV, INITV, CONDV and INCRV vectors
25555 are dependent. */
25557 bool
25558 dependent_omp_for_p (tree declv, tree initv, tree condv, tree incrv)
25560 int i;
25562 if (!processing_template_decl)
25563 return false;
25565 for (i = 0; i < TREE_VEC_LENGTH (declv); i++)
25567 tree decl = TREE_VEC_ELT (declv, i);
25568 tree init = TREE_VEC_ELT (initv, i);
25569 tree cond = TREE_VEC_ELT (condv, i);
25570 tree incr = TREE_VEC_ELT (incrv, i);
25572 if (type_dependent_expression_p (decl)
25573 || TREE_CODE (decl) == SCOPE_REF)
25574 return true;
25576 if (init && type_dependent_expression_p (init))
25577 return true;
25579 if (type_dependent_expression_p (cond))
25580 return true;
25582 if (COMPARISON_CLASS_P (cond)
25583 && (type_dependent_expression_p (TREE_OPERAND (cond, 0))
25584 || type_dependent_expression_p (TREE_OPERAND (cond, 1))))
25585 return true;
25587 if (TREE_CODE (incr) == MODOP_EXPR)
25589 if (type_dependent_expression_p (TREE_OPERAND (incr, 0))
25590 || type_dependent_expression_p (TREE_OPERAND (incr, 2)))
25591 return true;
25593 else if (type_dependent_expression_p (incr))
25594 return true;
25595 else if (TREE_CODE (incr) == MODIFY_EXPR)
25597 if (type_dependent_expression_p (TREE_OPERAND (incr, 0)))
25598 return true;
25599 else if (BINARY_CLASS_P (TREE_OPERAND (incr, 1)))
25601 tree t = TREE_OPERAND (incr, 1);
25602 if (type_dependent_expression_p (TREE_OPERAND (t, 0))
25603 || type_dependent_expression_p (TREE_OPERAND (t, 1)))
25604 return true;
25609 return false;
25612 /* TYPE is a TYPENAME_TYPE. Returns the ordinary TYPE to which the
25613 TYPENAME_TYPE corresponds. Returns the original TYPENAME_TYPE if
25614 no such TYPE can be found. Note that this function peers inside
25615 uninstantiated templates and therefore should be used only in
25616 extremely limited situations. ONLY_CURRENT_P restricts this
25617 peering to the currently open classes hierarchy (which is required
25618 when comparing types). */
25620 tree
25621 resolve_typename_type (tree type, bool only_current_p)
25623 tree scope;
25624 tree name;
25625 tree decl;
25626 int quals;
25627 tree pushed_scope;
25628 tree result;
25630 gcc_assert (TREE_CODE (type) == TYPENAME_TYPE);
25632 scope = TYPE_CONTEXT (type);
25633 /* We shouldn't have built a TYPENAME_TYPE with a non-dependent scope. */
25634 gcc_checking_assert (uses_template_parms (scope));
25636 /* Usually the non-qualified identifier of a TYPENAME_TYPE is
25637 TYPE_IDENTIFIER (type). But when 'type' is a typedef variant of
25638 a TYPENAME_TYPE node, then TYPE_NAME (type) is set to the TYPE_DECL representing
25639 the typedef. In that case TYPE_IDENTIFIER (type) is not the non-qualified
25640 identifier of the TYPENAME_TYPE anymore.
25641 So by getting the TYPE_IDENTIFIER of the _main declaration_ of the
25642 TYPENAME_TYPE instead, we avoid messing up with a possible
25643 typedef variant case. */
25644 name = TYPE_IDENTIFIER (TYPE_MAIN_VARIANT (type));
25646 /* If the SCOPE is itself a TYPENAME_TYPE, then we need to resolve
25647 it first before we can figure out what NAME refers to. */
25648 if (TREE_CODE (scope) == TYPENAME_TYPE)
25650 if (TYPENAME_IS_RESOLVING_P (scope))
25651 /* Given a class template A with a dependent base with nested type C,
25652 typedef typename A::C::C C will land us here, as trying to resolve
25653 the initial A::C leads to the local C typedef, which leads back to
25654 A::C::C. So we break the recursion now. */
25655 return type;
25656 else
25657 scope = resolve_typename_type (scope, only_current_p);
25659 /* If we don't know what SCOPE refers to, then we cannot resolve the
25660 TYPENAME_TYPE. */
25661 if (!CLASS_TYPE_P (scope))
25662 return type;
25663 /* If this is a typedef, we don't want to look inside (c++/11987). */
25664 if (typedef_variant_p (type))
25665 return type;
25666 /* If SCOPE isn't the template itself, it will not have a valid
25667 TYPE_FIELDS list. */
25668 if (same_type_p (scope, CLASSTYPE_PRIMARY_TEMPLATE_TYPE (scope)))
25669 /* scope is either the template itself or a compatible instantiation
25670 like X<T>, so look up the name in the original template. */
25671 scope = CLASSTYPE_PRIMARY_TEMPLATE_TYPE (scope);
25672 /* If scope has no fields, it can't be a current instantiation. Check this
25673 before currently_open_class to avoid infinite recursion (71515). */
25674 if (!TYPE_FIELDS (scope))
25675 return type;
25676 /* If the SCOPE is not the current instantiation, there's no reason
25677 to look inside it. */
25678 if (only_current_p && !currently_open_class (scope))
25679 return type;
25680 /* Enter the SCOPE so that name lookup will be resolved as if we
25681 were in the class definition. In particular, SCOPE will no
25682 longer be considered a dependent type. */
25683 pushed_scope = push_scope (scope);
25684 /* Look up the declaration. */
25685 decl = lookup_member (scope, name, /*protect=*/0, /*want_type=*/true,
25686 tf_warning_or_error);
25688 result = NULL_TREE;
25690 /* For a TYPENAME_TYPE like "typename X::template Y<T>", we want to
25691 find a TEMPLATE_DECL. Otherwise, we want to find a TYPE_DECL. */
25692 tree fullname = TYPENAME_TYPE_FULLNAME (type);
25693 if (!decl)
25694 /*nop*/;
25695 else if (identifier_p (fullname)
25696 && TREE_CODE (decl) == TYPE_DECL)
25698 result = TREE_TYPE (decl);
25699 if (result == error_mark_node)
25700 result = NULL_TREE;
25702 else if (TREE_CODE (fullname) == TEMPLATE_ID_EXPR
25703 && DECL_CLASS_TEMPLATE_P (decl))
25705 /* Obtain the template and the arguments. */
25706 tree tmpl = TREE_OPERAND (fullname, 0);
25707 if (TREE_CODE (tmpl) == IDENTIFIER_NODE)
25709 /* We get here with a plain identifier because a previous tentative
25710 parse of the nested-name-specifier as part of a ptr-operator saw
25711 ::template X<A>. The use of ::template is necessary in a
25712 ptr-operator, but wrong in a declarator-id.
25714 [temp.names]: In a qualified-id of a declarator-id, the keyword
25715 template shall not appear at the top level. */
25716 pedwarn (EXPR_LOC_OR_LOC (fullname, input_location), OPT_Wpedantic,
25717 "keyword %<template%> not allowed in declarator-id");
25718 tmpl = decl;
25720 tree args = TREE_OPERAND (fullname, 1);
25721 /* Instantiate the template. */
25722 result = lookup_template_class (tmpl, args, NULL_TREE, NULL_TREE,
25723 /*entering_scope=*/true,
25724 tf_error | tf_user);
25725 if (result == error_mark_node)
25726 result = NULL_TREE;
25729 /* Leave the SCOPE. */
25730 if (pushed_scope)
25731 pop_scope (pushed_scope);
25733 /* If we failed to resolve it, return the original typename. */
25734 if (!result)
25735 return type;
25737 /* If lookup found a typename type, resolve that too. */
25738 if (TREE_CODE (result) == TYPENAME_TYPE && !TYPENAME_IS_RESOLVING_P (result))
25740 /* Ill-formed programs can cause infinite recursion here, so we
25741 must catch that. */
25742 TYPENAME_IS_RESOLVING_P (result) = 1;
25743 result = resolve_typename_type (result, only_current_p);
25744 TYPENAME_IS_RESOLVING_P (result) = 0;
25747 /* Qualify the resulting type. */
25748 quals = cp_type_quals (type);
25749 if (quals)
25750 result = cp_build_qualified_type (result, cp_type_quals (result) | quals);
25752 return result;
25755 /* EXPR is an expression which is not type-dependent. Return a proxy
25756 for EXPR that can be used to compute the types of larger
25757 expressions containing EXPR. */
25759 tree
25760 build_non_dependent_expr (tree expr)
25762 tree orig_expr = expr;
25763 tree inner_expr;
25765 /* When checking, try to get a constant value for all non-dependent
25766 expressions in order to expose bugs in *_dependent_expression_p
25767 and constexpr. This can affect code generation, see PR70704, so
25768 only do this for -fchecking=2. */
25769 if (flag_checking > 1
25770 && cxx_dialect >= cxx11
25771 /* Don't do this during nsdmi parsing as it can lead to
25772 unexpected recursive instantiations. */
25773 && !parsing_nsdmi ()
25774 /* Don't do this during concept expansion either and for
25775 the same reason. */
25776 && !expanding_concept ())
25777 fold_non_dependent_expr (expr);
25779 STRIP_ANY_LOCATION_WRAPPER (expr);
25781 /* Preserve OVERLOADs; the functions must be available to resolve
25782 types. */
25783 inner_expr = expr;
25784 if (TREE_CODE (inner_expr) == STMT_EXPR)
25785 inner_expr = stmt_expr_value_expr (inner_expr);
25786 if (TREE_CODE (inner_expr) == ADDR_EXPR)
25787 inner_expr = TREE_OPERAND (inner_expr, 0);
25788 if (TREE_CODE (inner_expr) == COMPONENT_REF)
25789 inner_expr = TREE_OPERAND (inner_expr, 1);
25790 if (is_overloaded_fn (inner_expr)
25791 || TREE_CODE (inner_expr) == OFFSET_REF)
25792 return orig_expr;
25793 /* There is no need to return a proxy for a variable. */
25794 if (VAR_P (expr))
25795 return orig_expr;
25796 /* Preserve string constants; conversions from string constants to
25797 "char *" are allowed, even though normally a "const char *"
25798 cannot be used to initialize a "char *". */
25799 if (TREE_CODE (expr) == STRING_CST)
25800 return orig_expr;
25801 /* Preserve void and arithmetic constants, as an optimization -- there is no
25802 reason to create a new node. */
25803 if (TREE_CODE (expr) == VOID_CST
25804 || TREE_CODE (expr) == INTEGER_CST
25805 || TREE_CODE (expr) == REAL_CST)
25806 return orig_expr;
25807 /* Preserve THROW_EXPRs -- all throw-expressions have type "void".
25808 There is at least one place where we want to know that a
25809 particular expression is a throw-expression: when checking a ?:
25810 expression, there are special rules if the second or third
25811 argument is a throw-expression. */
25812 if (TREE_CODE (expr) == THROW_EXPR)
25813 return orig_expr;
25815 /* Don't wrap an initializer list, we need to be able to look inside. */
25816 if (BRACE_ENCLOSED_INITIALIZER_P (expr))
25817 return orig_expr;
25819 /* Don't wrap a dummy object, we need to be able to test for it. */
25820 if (is_dummy_object (expr))
25821 return orig_expr;
25823 if (TREE_CODE (expr) == COND_EXPR)
25824 return build3 (COND_EXPR,
25825 TREE_TYPE (expr),
25826 TREE_OPERAND (expr, 0),
25827 (TREE_OPERAND (expr, 1)
25828 ? build_non_dependent_expr (TREE_OPERAND (expr, 1))
25829 : build_non_dependent_expr (TREE_OPERAND (expr, 0))),
25830 build_non_dependent_expr (TREE_OPERAND (expr, 2)));
25831 if (TREE_CODE (expr) == COMPOUND_EXPR
25832 && !COMPOUND_EXPR_OVERLOADED (expr))
25833 return build2 (COMPOUND_EXPR,
25834 TREE_TYPE (expr),
25835 TREE_OPERAND (expr, 0),
25836 build_non_dependent_expr (TREE_OPERAND (expr, 1)));
25838 /* If the type is unknown, it can't really be non-dependent */
25839 gcc_assert (TREE_TYPE (expr) != unknown_type_node);
25841 /* Otherwise, build a NON_DEPENDENT_EXPR. */
25842 return build1_loc (EXPR_LOCATION (orig_expr), NON_DEPENDENT_EXPR,
25843 TREE_TYPE (expr), expr);
25846 /* ARGS is a vector of expressions as arguments to a function call.
25847 Replace the arguments with equivalent non-dependent expressions.
25848 This modifies ARGS in place. */
25850 void
25851 make_args_non_dependent (vec<tree, va_gc> *args)
25853 unsigned int ix;
25854 tree arg;
25856 FOR_EACH_VEC_SAFE_ELT (args, ix, arg)
25858 tree newarg = build_non_dependent_expr (arg);
25859 if (newarg != arg)
25860 (*args)[ix] = newarg;
25864 /* Returns a type which represents 'auto' or 'decltype(auto)'. We use a
25865 TEMPLATE_TYPE_PARM with a level one deeper than the actual template
25866 parms. If set_canonical is true, we set TYPE_CANONICAL on it. */
25868 static tree
25869 make_auto_1 (tree name, bool set_canonical)
25871 tree au = cxx_make_type (TEMPLATE_TYPE_PARM);
25872 TYPE_NAME (au) = build_decl (input_location,
25873 TYPE_DECL, name, au);
25874 TYPE_STUB_DECL (au) = TYPE_NAME (au);
25875 TEMPLATE_TYPE_PARM_INDEX (au) = build_template_parm_index
25876 (0, processing_template_decl + 1, processing_template_decl + 1,
25877 TYPE_NAME (au), NULL_TREE);
25878 if (set_canonical)
25879 TYPE_CANONICAL (au) = canonical_type_parameter (au);
25880 DECL_ARTIFICIAL (TYPE_NAME (au)) = 1;
25881 SET_DECL_TEMPLATE_PARM_P (TYPE_NAME (au));
25883 return au;
25886 tree
25887 make_decltype_auto (void)
25889 return make_auto_1 (decltype_auto_identifier, true);
25892 tree
25893 make_auto (void)
25895 return make_auto_1 (auto_identifier, true);
25898 /* Return a C++17 deduction placeholder for class template TMPL. */
25900 tree
25901 make_template_placeholder (tree tmpl)
25903 tree t = make_auto_1 (DECL_NAME (tmpl), true);
25904 CLASS_PLACEHOLDER_TEMPLATE (t) = tmpl;
25905 return t;
25908 /* True iff T is a C++17 class template deduction placeholder. */
25910 bool
25911 template_placeholder_p (tree t)
25913 return is_auto (t) && CLASS_PLACEHOLDER_TEMPLATE (t);
25916 /* Make a "constrained auto" type-specifier. This is an
25917 auto type with constraints that must be associated after
25918 deduction. The constraint is formed from the given
25919 CONC and its optional sequence of arguments, which are
25920 non-null if written as partial-concept-id. */
25922 tree
25923 make_constrained_auto (tree con, tree args)
25925 tree type = make_auto_1 (auto_identifier, false);
25927 /* Build the constraint. */
25928 tree tmpl = DECL_TI_TEMPLATE (con);
25929 tree expr = VAR_P (con) ? tmpl : ovl_make (tmpl);
25930 expr = build_concept_check (expr, type, args);
25932 tree constr = normalize_expression (expr);
25933 PLACEHOLDER_TYPE_CONSTRAINTS (type) = constr;
25935 /* Our canonical type depends on the constraint. */
25936 TYPE_CANONICAL (type) = canonical_type_parameter (type);
25938 /* Attach the constraint to the type declaration. */
25939 tree decl = TYPE_NAME (type);
25940 return decl;
25943 /* Given type ARG, return std::initializer_list<ARG>. */
25945 static tree
25946 listify (tree arg)
25948 tree std_init_list = get_namespace_binding (std_node, init_list_identifier);
25950 if (!std_init_list || !DECL_CLASS_TEMPLATE_P (std_init_list))
25952 gcc_rich_location richloc (input_location);
25953 maybe_add_include_fixit (&richloc, "<initializer_list>");
25954 error_at (&richloc,
25955 "deducing from brace-enclosed initializer list"
25956 " requires %<#include <initializer_list>%>");
25958 return error_mark_node;
25960 tree argvec = make_tree_vec (1);
25961 TREE_VEC_ELT (argvec, 0) = arg;
25963 return lookup_template_class (std_init_list, argvec, NULL_TREE,
25964 NULL_TREE, 0, tf_warning_or_error);
25967 /* Replace auto in TYPE with std::initializer_list<auto>. */
25969 static tree
25970 listify_autos (tree type, tree auto_node)
25972 tree init_auto = listify (auto_node);
25973 tree argvec = make_tree_vec (1);
25974 TREE_VEC_ELT (argvec, 0) = init_auto;
25975 if (processing_template_decl)
25976 argvec = add_to_template_args (current_template_args (), argvec);
25977 return tsubst (type, argvec, tf_warning_or_error, NULL_TREE);
25980 /* Hash traits for hashing possibly constrained 'auto'
25981 TEMPLATE_TYPE_PARMs for use by do_auto_deduction. */
25983 struct auto_hash : default_hash_traits<tree>
25985 static inline hashval_t hash (tree);
25986 static inline bool equal (tree, tree);
25989 /* Hash the 'auto' T. */
25991 inline hashval_t
25992 auto_hash::hash (tree t)
25994 if (tree c = PLACEHOLDER_TYPE_CONSTRAINTS (t))
25995 /* Matching constrained-type-specifiers denote the same template
25996 parameter, so hash the constraint. */
25997 return hash_placeholder_constraint (c);
25998 else
25999 /* But unconstrained autos are all separate, so just hash the pointer. */
26000 return iterative_hash_object (t, 0);
26003 /* Compare two 'auto's. */
26005 inline bool
26006 auto_hash::equal (tree t1, tree t2)
26008 if (t1 == t2)
26009 return true;
26011 tree c1 = PLACEHOLDER_TYPE_CONSTRAINTS (t1);
26012 tree c2 = PLACEHOLDER_TYPE_CONSTRAINTS (t2);
26014 /* Two unconstrained autos are distinct. */
26015 if (!c1 || !c2)
26016 return false;
26018 return equivalent_placeholder_constraints (c1, c2);
26021 /* for_each_template_parm callback for extract_autos: if t is a (possibly
26022 constrained) auto, add it to the vector. */
26024 static int
26025 extract_autos_r (tree t, void *data)
26027 hash_table<auto_hash> &hash = *(hash_table<auto_hash>*)data;
26028 if (is_auto (t))
26030 /* All the autos were built with index 0; fix that up now. */
26031 tree *p = hash.find_slot (t, INSERT);
26032 unsigned idx;
26033 if (*p)
26034 /* If this is a repeated constrained-type-specifier, use the index we
26035 chose before. */
26036 idx = TEMPLATE_PARM_IDX (TEMPLATE_TYPE_PARM_INDEX (*p));
26037 else
26039 /* Otherwise this is new, so use the current count. */
26040 *p = t;
26041 idx = hash.elements () - 1;
26043 TEMPLATE_PARM_IDX (TEMPLATE_TYPE_PARM_INDEX (t)) = idx;
26046 /* Always keep walking. */
26047 return 0;
26050 /* Return a TREE_VEC of the 'auto's used in type under the Concepts TS, which
26051 says they can appear anywhere in the type. */
26053 static tree
26054 extract_autos (tree type)
26056 hash_set<tree> visited;
26057 hash_table<auto_hash> hash (2);
26059 for_each_template_parm (type, extract_autos_r, &hash, &visited, true);
26061 tree tree_vec = make_tree_vec (hash.elements());
26062 for (hash_table<auto_hash>::iterator iter = hash.begin();
26063 iter != hash.end(); ++iter)
26065 tree elt = *iter;
26066 unsigned i = TEMPLATE_PARM_IDX (TEMPLATE_TYPE_PARM_INDEX (elt));
26067 TREE_VEC_ELT (tree_vec, i)
26068 = build_tree_list (NULL_TREE, TYPE_NAME (elt));
26071 return tree_vec;
26074 /* The stem for deduction guide names. */
26075 const char *const dguide_base = "__dguide_";
26077 /* Return the name for a deduction guide for class template TMPL. */
26079 tree
26080 dguide_name (tree tmpl)
26082 tree type = (TYPE_P (tmpl) ? tmpl : TREE_TYPE (tmpl));
26083 tree tname = TYPE_IDENTIFIER (type);
26084 char *buf = (char *) alloca (1 + strlen (dguide_base)
26085 + IDENTIFIER_LENGTH (tname));
26086 memcpy (buf, dguide_base, strlen (dguide_base));
26087 memcpy (buf + strlen (dguide_base), IDENTIFIER_POINTER (tname),
26088 IDENTIFIER_LENGTH (tname) + 1);
26089 tree dname = get_identifier (buf);
26090 TREE_TYPE (dname) = type;
26091 return dname;
26094 /* True if NAME is the name of a deduction guide. */
26096 bool
26097 dguide_name_p (tree name)
26099 return (TREE_CODE (name) == IDENTIFIER_NODE
26100 && TREE_TYPE (name)
26101 && !strncmp (IDENTIFIER_POINTER (name), dguide_base,
26102 strlen (dguide_base)));
26105 /* True if FN is a deduction guide. */
26107 bool
26108 deduction_guide_p (const_tree fn)
26110 if (DECL_P (fn))
26111 if (tree name = DECL_NAME (fn))
26112 return dguide_name_p (name);
26113 return false;
26116 /* True if FN is the copy deduction guide, i.e. A(A)->A. */
26118 bool
26119 copy_guide_p (const_tree fn)
26121 gcc_assert (deduction_guide_p (fn));
26122 if (!DECL_ARTIFICIAL (fn))
26123 return false;
26124 tree parms = FUNCTION_FIRST_USER_PARMTYPE (DECL_TI_TEMPLATE (fn));
26125 return (TREE_CHAIN (parms) == void_list_node
26126 && same_type_p (TREE_VALUE (parms), TREE_TYPE (DECL_NAME (fn))));
26129 /* True if FN is a guide generated from a constructor template. */
26131 bool
26132 template_guide_p (const_tree fn)
26134 gcc_assert (deduction_guide_p (fn));
26135 if (!DECL_ARTIFICIAL (fn))
26136 return false;
26137 tree tmpl = DECL_TI_TEMPLATE (fn);
26138 if (tree org = DECL_ABSTRACT_ORIGIN (tmpl))
26139 return PRIMARY_TEMPLATE_P (org);
26140 return false;
26143 /* OLDDECL is a _DECL for a template parameter. Return a similar parameter at
26144 LEVEL:INDEX, using tsubst_args and complain for substitution into non-type
26145 template parameter types. Note that the handling of template template
26146 parameters relies on current_template_parms being set appropriately for the
26147 new template. */
26149 static tree
26150 rewrite_template_parm (tree olddecl, unsigned index, unsigned level,
26151 tree tsubst_args, tsubst_flags_t complain)
26153 if (olddecl == error_mark_node)
26154 return error_mark_node;
26156 tree oldidx = get_template_parm_index (olddecl);
26158 tree newtype;
26159 if (TREE_CODE (olddecl) == TYPE_DECL
26160 || TREE_CODE (olddecl) == TEMPLATE_DECL)
26162 tree oldtype = TREE_TYPE (olddecl);
26163 newtype = cxx_make_type (TREE_CODE (oldtype));
26164 TYPE_MAIN_VARIANT (newtype) = newtype;
26165 if (TREE_CODE (oldtype) == TEMPLATE_TYPE_PARM)
26166 TEMPLATE_TYPE_PARM_FOR_CLASS (newtype)
26167 = TEMPLATE_TYPE_PARM_FOR_CLASS (oldtype);
26169 else
26171 newtype = TREE_TYPE (olddecl);
26172 if (type_uses_auto (newtype))
26174 // Substitute once to fix references to other template parameters.
26175 newtype = tsubst (newtype, tsubst_args,
26176 complain|tf_partial, NULL_TREE);
26177 // Now substitute again to reduce the level of the auto.
26178 newtype = tsubst (newtype, current_template_args (),
26179 complain, NULL_TREE);
26181 else
26182 newtype = tsubst (newtype, tsubst_args,
26183 complain, NULL_TREE);
26186 tree newdecl
26187 = build_decl (DECL_SOURCE_LOCATION (olddecl), TREE_CODE (olddecl),
26188 DECL_NAME (olddecl), newtype);
26189 SET_DECL_TEMPLATE_PARM_P (newdecl);
26191 tree newidx;
26192 if (TREE_CODE (olddecl) == TYPE_DECL
26193 || TREE_CODE (olddecl) == TEMPLATE_DECL)
26195 newidx = TEMPLATE_TYPE_PARM_INDEX (newtype)
26196 = build_template_parm_index (index, level, level,
26197 newdecl, newtype);
26198 TEMPLATE_PARM_PARAMETER_PACK (newidx)
26199 = TEMPLATE_PARM_PARAMETER_PACK (oldidx);
26200 TYPE_STUB_DECL (newtype) = TYPE_NAME (newtype) = newdecl;
26201 TYPE_CANONICAL (newtype) = canonical_type_parameter (newtype);
26203 if (TREE_CODE (olddecl) == TEMPLATE_DECL)
26205 DECL_TEMPLATE_RESULT (newdecl)
26206 = build_decl (DECL_SOURCE_LOCATION (olddecl), TYPE_DECL,
26207 DECL_NAME (olddecl), newtype);
26208 DECL_ARTIFICIAL (DECL_TEMPLATE_RESULT (newdecl)) = true;
26209 // First create a copy (ttargs) of tsubst_args with an
26210 // additional level for the template template parameter's own
26211 // template parameters (ttparms).
26212 tree ttparms = (INNERMOST_TEMPLATE_PARMS
26213 (DECL_TEMPLATE_PARMS (olddecl)));
26214 const int depth = TMPL_ARGS_DEPTH (tsubst_args);
26215 tree ttargs = make_tree_vec (depth + 1);
26216 for (int i = 0; i < depth; ++i)
26217 TREE_VEC_ELT (ttargs, i) = TREE_VEC_ELT (tsubst_args, i);
26218 TREE_VEC_ELT (ttargs, depth)
26219 = template_parms_level_to_args (ttparms);
26220 // Substitute ttargs into ttparms to fix references to
26221 // other template parameters.
26222 ttparms = tsubst_template_parms_level (ttparms, ttargs,
26223 complain|tf_partial);
26224 // Now substitute again with args based on tparms, to reduce
26225 // the level of the ttparms.
26226 ttargs = current_template_args ();
26227 ttparms = tsubst_template_parms_level (ttparms, ttargs,
26228 complain);
26229 // Finally, tack the adjusted parms onto tparms.
26230 ttparms = tree_cons (size_int (depth), ttparms,
26231 current_template_parms);
26232 DECL_TEMPLATE_PARMS (newdecl) = ttparms;
26235 else
26237 tree oldconst = TEMPLATE_PARM_DECL (oldidx);
26238 tree newconst
26239 = build_decl (DECL_SOURCE_LOCATION (oldconst),
26240 TREE_CODE (oldconst),
26241 DECL_NAME (oldconst), newtype);
26242 TREE_CONSTANT (newconst) = TREE_CONSTANT (newdecl)
26243 = TREE_READONLY (newconst) = TREE_READONLY (newdecl) = true;
26244 SET_DECL_TEMPLATE_PARM_P (newconst);
26245 newidx = build_template_parm_index (index, level, level,
26246 newconst, newtype);
26247 TEMPLATE_PARM_PARAMETER_PACK (newidx)
26248 = TEMPLATE_PARM_PARAMETER_PACK (oldidx);
26249 DECL_INITIAL (newdecl) = DECL_INITIAL (newconst) = newidx;
26252 return newdecl;
26255 /* Returns a C++17 class deduction guide template based on the constructor
26256 CTOR. As a special case, CTOR can be a RECORD_TYPE for an implicit default
26257 guide, or REFERENCE_TYPE for an implicit copy/move guide. */
26259 static tree
26260 build_deduction_guide (tree ctor, tree outer_args, tsubst_flags_t complain)
26262 tree type, tparms, targs, fparms, fargs, ci;
26263 bool memtmpl = false;
26264 bool explicit_p;
26265 location_t loc;
26266 tree fn_tmpl = NULL_TREE;
26268 if (TYPE_P (ctor))
26270 type = ctor;
26271 bool copy_p = TREE_CODE (type) == REFERENCE_TYPE;
26272 if (copy_p)
26274 type = TREE_TYPE (type);
26275 fparms = tree_cons (NULL_TREE, type, void_list_node);
26277 else
26278 fparms = void_list_node;
26280 tree ctmpl = CLASSTYPE_TI_TEMPLATE (type);
26281 tparms = DECL_TEMPLATE_PARMS (ctmpl);
26282 targs = CLASSTYPE_TI_ARGS (type);
26283 ci = NULL_TREE;
26284 fargs = NULL_TREE;
26285 loc = DECL_SOURCE_LOCATION (ctmpl);
26286 explicit_p = false;
26288 else
26290 ++processing_template_decl;
26291 bool ok = true;
26293 fn_tmpl
26294 = (TREE_CODE (ctor) == TEMPLATE_DECL ? ctor
26295 : DECL_TI_TEMPLATE (ctor));
26296 if (outer_args)
26297 fn_tmpl = tsubst (fn_tmpl, outer_args, complain, ctor);
26298 ctor = DECL_TEMPLATE_RESULT (fn_tmpl);
26300 type = DECL_CONTEXT (ctor);
26302 tparms = DECL_TEMPLATE_PARMS (fn_tmpl);
26303 /* If type is a member class template, DECL_TI_ARGS (ctor) will have
26304 fully specialized args for the enclosing class. Strip those off, as
26305 the deduction guide won't have those template parameters. */
26306 targs = get_innermost_template_args (DECL_TI_ARGS (ctor),
26307 TMPL_PARMS_DEPTH (tparms));
26308 /* Discard the 'this' parameter. */
26309 fparms = FUNCTION_ARG_CHAIN (ctor);
26310 fargs = TREE_CHAIN (DECL_ARGUMENTS (ctor));
26311 ci = get_constraints (ctor);
26312 loc = DECL_SOURCE_LOCATION (ctor);
26313 explicit_p = DECL_NONCONVERTING_P (ctor);
26315 if (PRIMARY_TEMPLATE_P (fn_tmpl))
26317 memtmpl = true;
26319 /* For a member template constructor, we need to flatten the two
26320 template parameter lists into one, and then adjust the function
26321 signature accordingly. This gets...complicated. */
26322 tree save_parms = current_template_parms;
26324 /* For a member template we should have two levels of parms/args, one
26325 for the class and one for the constructor. We stripped
26326 specialized args for further enclosing classes above. */
26327 const int depth = 2;
26328 gcc_assert (TMPL_ARGS_DEPTH (targs) == depth);
26330 /* Template args for translating references to the two-level template
26331 parameters into references to the one-level template parameters we
26332 are creating. */
26333 tree tsubst_args = copy_node (targs);
26334 TMPL_ARGS_LEVEL (tsubst_args, depth)
26335 = copy_node (TMPL_ARGS_LEVEL (tsubst_args, depth));
26337 /* Template parms for the constructor template. */
26338 tree ftparms = TREE_VALUE (tparms);
26339 unsigned flen = TREE_VEC_LENGTH (ftparms);
26340 /* Template parms for the class template. */
26341 tparms = TREE_CHAIN (tparms);
26342 tree ctparms = TREE_VALUE (tparms);
26343 unsigned clen = TREE_VEC_LENGTH (ctparms);
26344 /* Template parms for the deduction guide start as a copy of the
26345 template parms for the class. We set current_template_parms for
26346 lookup_template_class_1. */
26347 current_template_parms = tparms = copy_node (tparms);
26348 tree new_vec = TREE_VALUE (tparms) = make_tree_vec (flen + clen);
26349 for (unsigned i = 0; i < clen; ++i)
26350 TREE_VEC_ELT (new_vec, i) = TREE_VEC_ELT (ctparms, i);
26352 /* Now we need to rewrite the constructor parms to append them to the
26353 class parms. */
26354 for (unsigned i = 0; i < flen; ++i)
26356 unsigned index = i + clen;
26357 unsigned level = 1;
26358 tree oldelt = TREE_VEC_ELT (ftparms, i);
26359 tree olddecl = TREE_VALUE (oldelt);
26360 tree newdecl = rewrite_template_parm (olddecl, index, level,
26361 tsubst_args, complain);
26362 if (newdecl == error_mark_node)
26363 ok = false;
26364 tree newdef = tsubst_template_arg (TREE_PURPOSE (oldelt),
26365 tsubst_args, complain, ctor);
26366 tree list = build_tree_list (newdef, newdecl);
26367 TEMPLATE_PARM_CONSTRAINTS (list)
26368 = tsubst_constraint_info (TEMPLATE_PARM_CONSTRAINTS (oldelt),
26369 tsubst_args, complain, ctor);
26370 TREE_VEC_ELT (new_vec, index) = list;
26371 TMPL_ARG (tsubst_args, depth, i) = template_parm_to_arg (list);
26374 /* Now we have a final set of template parms to substitute into the
26375 function signature. */
26376 targs = template_parms_to_args (tparms);
26377 fparms = tsubst_arg_types (fparms, tsubst_args, NULL_TREE,
26378 complain, ctor);
26379 fargs = tsubst (fargs, tsubst_args, complain, ctor);
26380 if (ci)
26381 ci = tsubst_constraint_info (ci, tsubst_args, complain, ctor);
26383 current_template_parms = save_parms;
26386 --processing_template_decl;
26387 if (!ok)
26388 return error_mark_node;
26391 if (!memtmpl)
26393 /* Copy the parms so we can set DECL_PRIMARY_TEMPLATE. */
26394 tparms = copy_node (tparms);
26395 INNERMOST_TEMPLATE_PARMS (tparms)
26396 = copy_node (INNERMOST_TEMPLATE_PARMS (tparms));
26399 tree fntype = build_function_type (type, fparms);
26400 tree ded_fn = build_lang_decl_loc (loc,
26401 FUNCTION_DECL,
26402 dguide_name (type), fntype);
26403 DECL_ARGUMENTS (ded_fn) = fargs;
26404 DECL_ARTIFICIAL (ded_fn) = true;
26405 DECL_NONCONVERTING_P (ded_fn) = explicit_p;
26406 tree ded_tmpl = build_template_decl (ded_fn, tparms, /*member*/false);
26407 DECL_ARTIFICIAL (ded_tmpl) = true;
26408 DECL_TEMPLATE_RESULT (ded_tmpl) = ded_fn;
26409 TREE_TYPE (ded_tmpl) = TREE_TYPE (ded_fn);
26410 DECL_TEMPLATE_INFO (ded_fn) = build_template_info (ded_tmpl, targs);
26411 DECL_PRIMARY_TEMPLATE (ded_tmpl) = ded_tmpl;
26412 if (DECL_P (ctor))
26413 DECL_ABSTRACT_ORIGIN (ded_tmpl) = fn_tmpl;
26414 if (ci)
26415 set_constraints (ded_tmpl, ci);
26417 return ded_tmpl;
26420 /* Deduce template arguments for the class template placeholder PTYPE for
26421 template TMPL based on the initializer INIT, and return the resulting
26422 type. */
26424 static tree
26425 do_class_deduction (tree ptype, tree tmpl, tree init, int flags,
26426 tsubst_flags_t complain)
26428 if (!DECL_CLASS_TEMPLATE_P (tmpl))
26430 /* We should have handled this in the caller. */
26431 if (DECL_TEMPLATE_TEMPLATE_PARM_P (tmpl))
26432 return ptype;
26433 if (complain & tf_error)
26434 error ("non-class template %qT used without template arguments", tmpl);
26435 return error_mark_node;
26438 tree type = TREE_TYPE (tmpl);
26440 bool try_list_ctor = false;
26442 vec<tree,va_gc> *args;
26443 if (init == NULL_TREE
26444 || TREE_CODE (init) == TREE_LIST)
26445 args = make_tree_vector_from_list (init);
26446 else if (BRACE_ENCLOSED_INITIALIZER_P (init))
26448 try_list_ctor = TYPE_HAS_LIST_CTOR (type);
26449 if (try_list_ctor && CONSTRUCTOR_NELTS (init) == 1)
26451 /* As an exception, the first phase in 16.3.1.7 (considering the
26452 initializer list as a single argument) is omitted if the
26453 initializer list consists of a single expression of type cv U,
26454 where U is a specialization of C or a class derived from a
26455 specialization of C. */
26456 tree elt = CONSTRUCTOR_ELT (init, 0)->value;
26457 tree etype = TREE_TYPE (elt);
26459 tree tparms = INNERMOST_TEMPLATE_PARMS (DECL_TEMPLATE_PARMS (tmpl));
26460 tree targs = make_tree_vec (TREE_VEC_LENGTH (tparms));
26461 int err = unify (tparms, targs, type, etype,
26462 UNIFY_ALLOW_DERIVED, /*explain*/false);
26463 if (err == 0)
26464 try_list_ctor = false;
26465 ggc_free (targs);
26467 if (try_list_ctor || is_std_init_list (type))
26468 args = make_tree_vector_single (init);
26469 else
26470 args = make_tree_vector_from_ctor (init);
26472 else
26473 args = make_tree_vector_single (init);
26475 tree dname = dguide_name (tmpl);
26476 tree cands = lookup_qualified_name (CP_DECL_CONTEXT (tmpl), dname,
26477 /*type*/false, /*complain*/false,
26478 /*hidden*/false);
26479 bool elided = false;
26480 if (cands == error_mark_node)
26481 cands = NULL_TREE;
26483 /* Prune explicit deduction guides in copy-initialization context. */
26484 if (flags & LOOKUP_ONLYCONVERTING)
26486 for (lkp_iterator iter (cands); !elided && iter; ++iter)
26487 if (DECL_NONCONVERTING_P (STRIP_TEMPLATE (*iter)))
26488 elided = true;
26490 if (elided)
26492 /* Found a nonconverting guide, prune the candidates. */
26493 tree pruned = NULL_TREE;
26494 for (lkp_iterator iter (cands); iter; ++iter)
26495 if (!DECL_NONCONVERTING_P (STRIP_TEMPLATE (*iter)))
26496 pruned = lookup_add (*iter, pruned);
26498 cands = pruned;
26502 tree outer_args = NULL_TREE;
26503 if (DECL_CLASS_SCOPE_P (tmpl)
26504 && CLASSTYPE_TEMPLATE_INFO (DECL_CONTEXT (tmpl)))
26506 outer_args = CLASSTYPE_TI_ARGS (DECL_CONTEXT (tmpl));
26507 type = TREE_TYPE (most_general_template (tmpl));
26510 bool saw_ctor = false;
26511 // FIXME cache artificial deduction guides
26512 for (ovl_iterator iter (CLASSTYPE_CONSTRUCTORS (type)); iter; ++iter)
26514 /* Skip inherited constructors. */
26515 if (iter.using_p ())
26516 continue;
26518 tree guide = build_deduction_guide (*iter, outer_args, complain);
26519 if (guide == error_mark_node)
26520 return error_mark_node;
26521 if ((flags & LOOKUP_ONLYCONVERTING)
26522 && DECL_NONCONVERTING_P (STRIP_TEMPLATE (guide)))
26523 elided = true;
26524 else
26525 cands = lookup_add (guide, cands);
26527 saw_ctor = true;
26530 tree call = error_mark_node;
26532 /* If this is list-initialization and the class has a list constructor, first
26533 try deducing from the list as a single argument, as [over.match.list]. */
26534 tree list_cands = NULL_TREE;
26535 if (try_list_ctor && cands)
26536 for (lkp_iterator iter (cands); iter; ++iter)
26538 tree dg = *iter;
26539 if (is_list_ctor (dg))
26540 list_cands = lookup_add (dg, list_cands);
26542 if (list_cands)
26544 ++cp_unevaluated_operand;
26545 call = build_new_function_call (list_cands, &args, tf_decltype);
26546 --cp_unevaluated_operand;
26548 if (call == error_mark_node)
26550 /* That didn't work, now try treating the list as a sequence of
26551 arguments. */
26552 release_tree_vector (args);
26553 args = make_tree_vector_from_ctor (init);
26557 /* Maybe generate an implicit deduction guide. */
26558 if (call == error_mark_node && args->length () < 2)
26560 tree gtype = NULL_TREE;
26562 if (args->length () == 1)
26563 /* Generate a copy guide. */
26564 gtype = build_reference_type (type);
26565 else if (!saw_ctor)
26566 /* Generate a default guide. */
26567 gtype = type;
26569 if (gtype)
26571 tree guide = build_deduction_guide (gtype, outer_args, complain);
26572 if (guide == error_mark_node)
26573 return error_mark_node;
26574 cands = lookup_add (guide, cands);
26578 if (elided && !cands)
26580 error ("cannot deduce template arguments for copy-initialization"
26581 " of %qT, as it has no non-explicit deduction guides or "
26582 "user-declared constructors", type);
26583 return error_mark_node;
26585 else if (!cands && call == error_mark_node)
26587 error ("cannot deduce template arguments of %qT, as it has no viable "
26588 "deduction guides", type);
26589 return error_mark_node;
26592 if (call == error_mark_node)
26594 ++cp_unevaluated_operand;
26595 call = build_new_function_call (cands, &args, tf_decltype);
26596 --cp_unevaluated_operand;
26599 if (call == error_mark_node && (complain & tf_warning_or_error))
26601 error ("class template argument deduction failed:");
26603 ++cp_unevaluated_operand;
26604 call = build_new_function_call (cands, &args, complain | tf_decltype);
26605 --cp_unevaluated_operand;
26607 if (elided)
26608 inform (input_location, "explicit deduction guides not considered "
26609 "for copy-initialization");
26612 release_tree_vector (args);
26614 return cp_build_qualified_type (TREE_TYPE (call), cp_type_quals (ptype));
26617 /* Replace occurrences of 'auto' in TYPE with the appropriate type deduced
26618 from INIT. AUTO_NODE is the TEMPLATE_TYPE_PARM used for 'auto' in TYPE.
26619 The CONTEXT determines the context in which auto deduction is performed
26620 and is used to control error diagnostics. FLAGS are the LOOKUP_* flags.
26621 OUTER_TARGS are used during template argument deduction
26622 (context == adc_unify) to properly substitute the result, and is ignored
26623 in other contexts.
26625 For partial-concept-ids, extra args may be appended to the list of deduced
26626 template arguments prior to determining constraint satisfaction. */
26628 tree
26629 do_auto_deduction (tree type, tree init, tree auto_node,
26630 tsubst_flags_t complain, auto_deduction_context context,
26631 tree outer_targs, int flags)
26633 tree targs;
26635 if (init == error_mark_node)
26636 return error_mark_node;
26638 if (init && type_dependent_expression_p (init)
26639 && context != adc_unify)
26640 /* Defining a subset of type-dependent expressions that we can deduce
26641 from ahead of time isn't worth the trouble. */
26642 return type;
26644 /* Similarly, we can't deduce from another undeduced decl. */
26645 if (init && undeduced_auto_decl (init))
26646 return type;
26648 if (tree tmpl = CLASS_PLACEHOLDER_TEMPLATE (auto_node))
26649 /* C++17 class template argument deduction. */
26650 return do_class_deduction (type, tmpl, init, flags, complain);
26652 if (init == NULL_TREE || TREE_TYPE (init) == NULL_TREE)
26653 /* Nothing we can do with this, even in deduction context. */
26654 return type;
26656 /* [dcl.spec.auto]: Obtain P from T by replacing the occurrences of auto
26657 with either a new invented type template parameter U or, if the
26658 initializer is a braced-init-list (8.5.4), with
26659 std::initializer_list<U>. */
26660 if (BRACE_ENCLOSED_INITIALIZER_P (init))
26662 if (!DIRECT_LIST_INIT_P (init))
26663 type = listify_autos (type, auto_node);
26664 else if (CONSTRUCTOR_NELTS (init) == 1)
26665 init = CONSTRUCTOR_ELT (init, 0)->value;
26666 else
26668 if (complain & tf_warning_or_error)
26670 if (permerror (input_location, "direct-list-initialization of "
26671 "%<auto%> requires exactly one element"))
26672 inform (input_location,
26673 "for deduction to %<std::initializer_list%>, use copy-"
26674 "list-initialization (i.e. add %<=%> before the %<{%>)");
26676 type = listify_autos (type, auto_node);
26680 if (type == error_mark_node)
26681 return error_mark_node;
26683 init = resolve_nondeduced_context (init, complain);
26685 if (context == adc_decomp_type
26686 && auto_node == type
26687 && init != error_mark_node
26688 && TREE_CODE (TREE_TYPE (init)) == ARRAY_TYPE)
26689 /* [dcl.decomp]/1 - if decomposition declaration has no ref-qualifiers
26690 and initializer has array type, deduce cv-qualified array type. */
26691 return cp_build_qualified_type_real (TREE_TYPE (init), TYPE_QUALS (type),
26692 complain);
26693 else if (AUTO_IS_DECLTYPE (auto_node))
26695 bool id = (DECL_P (init)
26696 || ((TREE_CODE (init) == COMPONENT_REF
26697 || TREE_CODE (init) == SCOPE_REF)
26698 && !REF_PARENTHESIZED_P (init)));
26699 targs = make_tree_vec (1);
26700 TREE_VEC_ELT (targs, 0)
26701 = finish_decltype_type (init, id, tf_warning_or_error);
26702 if (type != auto_node)
26704 if (complain & tf_error)
26705 error ("%qT as type rather than plain %<decltype(auto)%>", type);
26706 return error_mark_node;
26709 else
26711 tree parms = build_tree_list (NULL_TREE, type);
26712 tree tparms;
26714 if (flag_concepts)
26715 tparms = extract_autos (type);
26716 else
26718 tparms = make_tree_vec (1);
26719 TREE_VEC_ELT (tparms, 0)
26720 = build_tree_list (NULL_TREE, TYPE_NAME (auto_node));
26723 targs = make_tree_vec (TREE_VEC_LENGTH (tparms));
26724 int val = type_unification_real (tparms, targs, parms, &init, 1, 0,
26725 DEDUCE_CALL, LOOKUP_NORMAL,
26726 NULL, /*explain_p=*/false);
26727 if (val > 0)
26729 if (processing_template_decl)
26730 /* Try again at instantiation time. */
26731 return type;
26732 if (type && type != error_mark_node
26733 && (complain & tf_error))
26734 /* If type is error_mark_node a diagnostic must have been
26735 emitted by now. Also, having a mention to '<type error>'
26736 in the diagnostic is not really useful to the user. */
26738 if (cfun && auto_node == current_function_auto_return_pattern
26739 && LAMBDA_FUNCTION_P (current_function_decl))
26740 error ("unable to deduce lambda return type from %qE", init);
26741 else
26742 error ("unable to deduce %qT from %qE", type, init);
26743 type_unification_real (tparms, targs, parms, &init, 1, 0,
26744 DEDUCE_CALL, LOOKUP_NORMAL,
26745 NULL, /*explain_p=*/true);
26747 return error_mark_node;
26751 /* Check any placeholder constraints against the deduced type. */
26752 if (flag_concepts && !processing_template_decl)
26753 if (tree constr = PLACEHOLDER_TYPE_CONSTRAINTS (auto_node))
26755 /* Use the deduced type to check the associated constraints. If we
26756 have a partial-concept-id, rebuild the argument list so that
26757 we check using the extra arguments. */
26758 gcc_assert (TREE_CODE (constr) == CHECK_CONSTR);
26759 tree cargs = CHECK_CONSTR_ARGS (constr);
26760 if (TREE_VEC_LENGTH (cargs) > 1)
26762 cargs = copy_node (cargs);
26763 TREE_VEC_ELT (cargs, 0) = TREE_VEC_ELT (targs, 0);
26765 else
26766 cargs = targs;
26767 if (!constraints_satisfied_p (constr, cargs))
26769 if (complain & tf_warning_or_error)
26771 switch (context)
26773 case adc_unspecified:
26774 case adc_unify:
26775 error("placeholder constraints not satisfied");
26776 break;
26777 case adc_variable_type:
26778 case adc_decomp_type:
26779 error ("deduced initializer does not satisfy "
26780 "placeholder constraints");
26781 break;
26782 case adc_return_type:
26783 error ("deduced return type does not satisfy "
26784 "placeholder constraints");
26785 break;
26786 case adc_requirement:
26787 error ("deduced expression type does not satisfy "
26788 "placeholder constraints");
26789 break;
26791 diagnose_constraints (input_location, constr, targs);
26793 return error_mark_node;
26797 if (processing_template_decl && context != adc_unify)
26798 outer_targs = current_template_args ();
26799 targs = add_to_template_args (outer_targs, targs);
26800 return tsubst (type, targs, complain, NULL_TREE);
26803 /* Substitutes LATE_RETURN_TYPE for 'auto' in TYPE and returns the
26804 result. */
26806 tree
26807 splice_late_return_type (tree type, tree late_return_type)
26809 if (is_auto (type))
26811 if (late_return_type)
26812 return late_return_type;
26814 tree idx = get_template_parm_index (type);
26815 if (TEMPLATE_PARM_LEVEL (idx) <= processing_template_decl)
26816 /* In an abbreviated function template we didn't know we were dealing
26817 with a function template when we saw the auto return type, so update
26818 it to have the correct level. */
26819 return make_auto_1 (TYPE_IDENTIFIER (type), true);
26821 return type;
26824 /* Returns true iff TYPE is a TEMPLATE_TYPE_PARM representing 'auto' or
26825 'decltype(auto)' or a deduced class template. */
26827 bool
26828 is_auto (const_tree type)
26830 if (TREE_CODE (type) == TEMPLATE_TYPE_PARM
26831 && (TYPE_IDENTIFIER (type) == auto_identifier
26832 || TYPE_IDENTIFIER (type) == decltype_auto_identifier
26833 || CLASS_PLACEHOLDER_TEMPLATE (type)))
26834 return true;
26835 else
26836 return false;
26839 /* for_each_template_parm callback for type_uses_auto. */
26842 is_auto_r (tree tp, void */*data*/)
26844 return is_auto (tp);
26847 /* Returns the TEMPLATE_TYPE_PARM in TYPE representing `auto' iff TYPE contains
26848 a use of `auto'. Returns NULL_TREE otherwise. */
26850 tree
26851 type_uses_auto (tree type)
26853 if (type == NULL_TREE)
26854 return NULL_TREE;
26855 else if (flag_concepts)
26857 /* The Concepts TS allows multiple autos in one type-specifier; just
26858 return the first one we find, do_auto_deduction will collect all of
26859 them. */
26860 if (uses_template_parms (type))
26861 return for_each_template_parm (type, is_auto_r, /*data*/NULL,
26862 /*visited*/NULL, /*nondeduced*/true);
26863 else
26864 return NULL_TREE;
26866 else
26867 return find_type_usage (type, is_auto);
26870 /* Report ill-formed occurrences of auto types in ARGUMENTS. If
26871 concepts are enabled, auto is acceptable in template arguments, but
26872 only when TEMPL identifies a template class. Return TRUE if any
26873 such errors were reported. */
26875 bool
26876 check_auto_in_tmpl_args (tree tmpl, tree args)
26878 /* If there were previous errors, nevermind. */
26879 if (!args || TREE_CODE (args) != TREE_VEC)
26880 return false;
26882 /* If TMPL is an identifier, we're parsing and we can't tell yet
26883 whether TMPL is supposed to be a type, a function or a variable.
26884 We'll only be able to tell during template substitution, so we
26885 expect to be called again then. If concepts are enabled and we
26886 know we have a type, we're ok. */
26887 if (flag_concepts
26888 && (identifier_p (tmpl)
26889 || (DECL_P (tmpl)
26890 && (DECL_TYPE_TEMPLATE_P (tmpl)
26891 || DECL_TEMPLATE_TEMPLATE_PARM_P (tmpl)))))
26892 return false;
26894 /* Quickly search for any occurrences of auto; usually there won't
26895 be any, and then we'll avoid allocating the vector. */
26896 if (!type_uses_auto (args))
26897 return false;
26899 bool errors = false;
26901 tree vec = extract_autos (args);
26902 for (int i = 0; i < TREE_VEC_LENGTH (vec); i++)
26904 tree xauto = TREE_VALUE (TREE_VEC_ELT (vec, i));
26905 error_at (DECL_SOURCE_LOCATION (xauto),
26906 "invalid use of %qT in template argument", xauto);
26907 errors = true;
26910 return errors;
26913 /* For a given template T, return the vector of typedefs referenced
26914 in T for which access check is needed at T instantiation time.
26915 T is either a FUNCTION_DECL or a RECORD_TYPE.
26916 Those typedefs were added to T by the function
26917 append_type_to_template_for_access_check. */
26919 vec<qualified_typedef_usage_t, va_gc> *
26920 get_types_needing_access_check (tree t)
26922 tree ti;
26923 vec<qualified_typedef_usage_t, va_gc> *result = NULL;
26925 if (!t || t == error_mark_node)
26926 return NULL;
26928 if (!(ti = get_template_info (t)))
26929 return NULL;
26931 if (CLASS_TYPE_P (t)
26932 || TREE_CODE (t) == FUNCTION_DECL)
26934 if (!TI_TEMPLATE (ti))
26935 return NULL;
26937 result = TI_TYPEDEFS_NEEDING_ACCESS_CHECKING (ti);
26940 return result;
26943 /* Append the typedef TYPE_DECL used in template T to a list of typedefs
26944 tied to T. That list of typedefs will be access checked at
26945 T instantiation time.
26946 T is either a FUNCTION_DECL or a RECORD_TYPE.
26947 TYPE_DECL is a TYPE_DECL node representing a typedef.
26948 SCOPE is the scope through which TYPE_DECL is accessed.
26949 LOCATION is the location of the usage point of TYPE_DECL.
26951 This function is a subroutine of
26952 append_type_to_template_for_access_check. */
26954 static void
26955 append_type_to_template_for_access_check_1 (tree t,
26956 tree type_decl,
26957 tree scope,
26958 location_t location)
26960 qualified_typedef_usage_t typedef_usage;
26961 tree ti;
26963 if (!t || t == error_mark_node)
26964 return;
26966 gcc_assert ((TREE_CODE (t) == FUNCTION_DECL
26967 || CLASS_TYPE_P (t))
26968 && type_decl
26969 && TREE_CODE (type_decl) == TYPE_DECL
26970 && scope);
26972 if (!(ti = get_template_info (t)))
26973 return;
26975 gcc_assert (TI_TEMPLATE (ti));
26977 typedef_usage.typedef_decl = type_decl;
26978 typedef_usage.context = scope;
26979 typedef_usage.locus = location;
26981 vec_safe_push (TI_TYPEDEFS_NEEDING_ACCESS_CHECKING (ti), typedef_usage);
26984 /* Append TYPE_DECL to the template TEMPL.
26985 TEMPL is either a class type, a FUNCTION_DECL or a a TEMPLATE_DECL.
26986 At TEMPL instanciation time, TYPE_DECL will be checked to see
26987 if it can be accessed through SCOPE.
26988 LOCATION is the location of the usage point of TYPE_DECL.
26990 e.g. consider the following code snippet:
26992 class C
26994 typedef int myint;
26997 template<class U> struct S
26999 C::myint mi; // <-- usage point of the typedef C::myint
27002 S<char> s;
27004 At S<char> instantiation time, we need to check the access of C::myint
27005 In other words, we need to check the access of the myint typedef through
27006 the C scope. For that purpose, this function will add the myint typedef
27007 and the scope C through which its being accessed to a list of typedefs
27008 tied to the template S. That list will be walked at template instantiation
27009 time and access check performed on each typedefs it contains.
27010 Note that this particular code snippet should yield an error because
27011 myint is private to C. */
27013 void
27014 append_type_to_template_for_access_check (tree templ,
27015 tree type_decl,
27016 tree scope,
27017 location_t location)
27019 qualified_typedef_usage_t *iter;
27020 unsigned i;
27022 gcc_assert (type_decl && (TREE_CODE (type_decl) == TYPE_DECL));
27024 /* Make sure we don't append the type to the template twice. */
27025 FOR_EACH_VEC_SAFE_ELT (get_types_needing_access_check (templ), i, iter)
27026 if (iter->typedef_decl == type_decl && scope == iter->context)
27027 return;
27029 append_type_to_template_for_access_check_1 (templ, type_decl,
27030 scope, location);
27033 /* Convert the generic type parameters in PARM that match the types given in the
27034 range [START_IDX, END_IDX) from the current_template_parms into generic type
27035 packs. */
27037 tree
27038 convert_generic_types_to_packs (tree parm, int start_idx, int end_idx)
27040 tree current = current_template_parms;
27041 int depth = TMPL_PARMS_DEPTH (current);
27042 current = INNERMOST_TEMPLATE_PARMS (current);
27043 tree replacement = make_tree_vec (TREE_VEC_LENGTH (current));
27045 for (int i = 0; i < start_idx; ++i)
27046 TREE_VEC_ELT (replacement, i)
27047 = TREE_TYPE (TREE_VALUE (TREE_VEC_ELT (current, i)));
27049 for (int i = start_idx; i < end_idx; ++i)
27051 /* Create a distinct parameter pack type from the current parm and add it
27052 to the replacement args to tsubst below into the generic function
27053 parameter. */
27055 tree o = TREE_TYPE (TREE_VALUE
27056 (TREE_VEC_ELT (current, i)));
27057 tree t = copy_type (o);
27058 TEMPLATE_TYPE_PARM_INDEX (t)
27059 = reduce_template_parm_level (TEMPLATE_TYPE_PARM_INDEX (o),
27060 o, 0, 0, tf_none);
27061 TREE_TYPE (TEMPLATE_TYPE_DECL (t)) = t;
27062 TYPE_STUB_DECL (t) = TYPE_NAME (t) = TEMPLATE_TYPE_DECL (t);
27063 TYPE_MAIN_VARIANT (t) = t;
27064 TEMPLATE_TYPE_PARAMETER_PACK (t) = true;
27065 TYPE_CANONICAL (t) = canonical_type_parameter (t);
27066 TREE_VEC_ELT (replacement, i) = t;
27067 TREE_VALUE (TREE_VEC_ELT (current, i)) = TREE_CHAIN (t);
27070 for (int i = end_idx, e = TREE_VEC_LENGTH (current); i < e; ++i)
27071 TREE_VEC_ELT (replacement, i)
27072 = TREE_TYPE (TREE_VALUE (TREE_VEC_ELT (current, i)));
27074 /* If there are more levels then build up the replacement with the outer
27075 template parms. */
27076 if (depth > 1)
27077 replacement = add_to_template_args (template_parms_to_args
27078 (TREE_CHAIN (current_template_parms)),
27079 replacement);
27081 return tsubst (parm, replacement, tf_none, NULL_TREE);
27084 /* Entries in the decl_constraint hash table. */
27085 struct GTY((for_user)) constr_entry
27087 tree decl;
27088 tree ci;
27091 /* Hashing function and equality for constraint entries. */
27092 struct constr_hasher : ggc_ptr_hash<constr_entry>
27094 static hashval_t hash (constr_entry *e)
27096 return (hashval_t)DECL_UID (e->decl);
27099 static bool equal (constr_entry *e1, constr_entry *e2)
27101 return e1->decl == e2->decl;
27105 /* A mapping from declarations to constraint information. Note that
27106 both templates and their underlying declarations are mapped to the
27107 same constraint information.
27109 FIXME: This is defined in pt.c because garbage collection
27110 code is not being generated for constraint.cc. */
27112 static GTY (()) hash_table<constr_hasher> *decl_constraints;
27114 /* Returns the template constraints of declaration T. If T is not
27115 constrained, return NULL_TREE. Note that T must be non-null. */
27117 tree
27118 get_constraints (tree t)
27120 if (!flag_concepts)
27121 return NULL_TREE;
27123 gcc_assert (DECL_P (t));
27124 if (TREE_CODE (t) == TEMPLATE_DECL)
27125 t = DECL_TEMPLATE_RESULT (t);
27126 constr_entry elt = { t, NULL_TREE };
27127 constr_entry* found = decl_constraints->find (&elt);
27128 if (found)
27129 return found->ci;
27130 else
27131 return NULL_TREE;
27134 /* Associate the given constraint information CI with the declaration
27135 T. If T is a template, then the constraints are associated with
27136 its underlying declaration. Don't build associations if CI is
27137 NULL_TREE. */
27139 void
27140 set_constraints (tree t, tree ci)
27142 if (!ci)
27143 return;
27144 gcc_assert (t && flag_concepts);
27145 if (TREE_CODE (t) == TEMPLATE_DECL)
27146 t = DECL_TEMPLATE_RESULT (t);
27147 gcc_assert (!get_constraints (t));
27148 constr_entry elt = {t, ci};
27149 constr_entry** slot = decl_constraints->find_slot (&elt, INSERT);
27150 constr_entry* entry = ggc_alloc<constr_entry> ();
27151 *entry = elt;
27152 *slot = entry;
27155 /* Remove the associated constraints of the declaration T. */
27157 void
27158 remove_constraints (tree t)
27160 gcc_assert (DECL_P (t));
27161 if (TREE_CODE (t) == TEMPLATE_DECL)
27162 t = DECL_TEMPLATE_RESULT (t);
27164 constr_entry elt = {t, NULL_TREE};
27165 constr_entry** slot = decl_constraints->find_slot (&elt, NO_INSERT);
27166 if (slot)
27167 decl_constraints->clear_slot (slot);
27170 /* Memoized satisfaction results for declarations. This
27171 maps the pair (constraint_info, arguments) to the result computed
27172 by constraints_satisfied_p. */
27174 struct GTY((for_user)) constraint_sat_entry
27176 tree ci;
27177 tree args;
27178 tree result;
27181 /* Hashing function and equality for constraint entries. */
27183 struct constraint_sat_hasher : ggc_ptr_hash<constraint_sat_entry>
27185 static hashval_t hash (constraint_sat_entry *e)
27187 hashval_t val = iterative_hash_object(e->ci, 0);
27188 return iterative_hash_template_arg (e->args, val);
27191 static bool equal (constraint_sat_entry *e1, constraint_sat_entry *e2)
27193 return e1->ci == e2->ci && comp_template_args (e1->args, e2->args);
27197 /* Memoized satisfaction results for concept checks. */
27199 struct GTY((for_user)) concept_spec_entry
27201 tree tmpl;
27202 tree args;
27203 tree result;
27206 /* Hashing function and equality for constraint entries. */
27208 struct concept_spec_hasher : ggc_ptr_hash<concept_spec_entry>
27210 static hashval_t hash (concept_spec_entry *e)
27212 return hash_tmpl_and_args (e->tmpl, e->args);
27215 static bool equal (concept_spec_entry *e1, concept_spec_entry *e2)
27217 ++comparing_specializations;
27218 bool eq = e1->tmpl == e2->tmpl && comp_template_args (e1->args, e2->args);
27219 --comparing_specializations;
27220 return eq;
27224 static GTY (()) hash_table<constraint_sat_hasher> *constraint_memos;
27225 static GTY (()) hash_table<concept_spec_hasher> *concept_memos;
27227 /* Search for a memoized satisfaction result. Returns one of the
27228 truth value nodes if previously memoized, or NULL_TREE otherwise. */
27230 tree
27231 lookup_constraint_satisfaction (tree ci, tree args)
27233 constraint_sat_entry elt = { ci, args, NULL_TREE };
27234 constraint_sat_entry* found = constraint_memos->find (&elt);
27235 if (found)
27236 return found->result;
27237 else
27238 return NULL_TREE;
27241 /* Memoize the result of a satisfication test. Returns the saved result. */
27243 tree
27244 memoize_constraint_satisfaction (tree ci, tree args, tree result)
27246 constraint_sat_entry elt = {ci, args, result};
27247 constraint_sat_entry** slot = constraint_memos->find_slot (&elt, INSERT);
27248 constraint_sat_entry* entry = ggc_alloc<constraint_sat_entry> ();
27249 *entry = elt;
27250 *slot = entry;
27251 return result;
27254 /* Search for a memoized satisfaction result for a concept. */
27256 tree
27257 lookup_concept_satisfaction (tree tmpl, tree args)
27259 concept_spec_entry elt = { tmpl, args, NULL_TREE };
27260 concept_spec_entry* found = concept_memos->find (&elt);
27261 if (found)
27262 return found->result;
27263 else
27264 return NULL_TREE;
27267 /* Memoize the result of a concept check. Returns the saved result. */
27269 tree
27270 memoize_concept_satisfaction (tree tmpl, tree args, tree result)
27272 concept_spec_entry elt = {tmpl, args, result};
27273 concept_spec_entry** slot = concept_memos->find_slot (&elt, INSERT);
27274 concept_spec_entry* entry = ggc_alloc<concept_spec_entry> ();
27275 *entry = elt;
27276 *slot = entry;
27277 return result;
27280 static GTY (()) hash_table<concept_spec_hasher> *concept_expansions;
27282 /* Returns a prior concept specialization. This returns the substituted
27283 and normalized constraints defined by the concept. */
27285 tree
27286 get_concept_expansion (tree tmpl, tree args)
27288 concept_spec_entry elt = { tmpl, args, NULL_TREE };
27289 concept_spec_entry* found = concept_expansions->find (&elt);
27290 if (found)
27291 return found->result;
27292 else
27293 return NULL_TREE;
27296 /* Save a concept expansion for later. */
27298 tree
27299 save_concept_expansion (tree tmpl, tree args, tree def)
27301 concept_spec_entry elt = {tmpl, args, def};
27302 concept_spec_entry** slot = concept_expansions->find_slot (&elt, INSERT);
27303 concept_spec_entry* entry = ggc_alloc<concept_spec_entry> ();
27304 *entry = elt;
27305 *slot = entry;
27306 return def;
27309 static hashval_t
27310 hash_subsumption_args (tree t1, tree t2)
27312 gcc_assert (TREE_CODE (t1) == CHECK_CONSTR);
27313 gcc_assert (TREE_CODE (t2) == CHECK_CONSTR);
27314 int val = 0;
27315 val = iterative_hash_object (CHECK_CONSTR_CONCEPT (t1), val);
27316 val = iterative_hash_template_arg (CHECK_CONSTR_ARGS (t1), val);
27317 val = iterative_hash_object (CHECK_CONSTR_CONCEPT (t2), val);
27318 val = iterative_hash_template_arg (CHECK_CONSTR_ARGS (t2), val);
27319 return val;
27322 /* Compare the constraints of two subsumption entries. The LEFT1 and
27323 LEFT2 arguments comprise the first subsumption pair and the RIGHT1
27324 and RIGHT2 arguments comprise the second. These are all CHECK_CONSTRs. */
27326 static bool
27327 comp_subsumption_args (tree left1, tree left2, tree right1, tree right2)
27329 if (CHECK_CONSTR_CONCEPT (left1) == CHECK_CONSTR_CONCEPT (right1))
27330 if (CHECK_CONSTR_CONCEPT (left2) == CHECK_CONSTR_CONCEPT (right2))
27331 if (comp_template_args (CHECK_CONSTR_ARGS (left1),
27332 CHECK_CONSTR_ARGS (right1)))
27333 return comp_template_args (CHECK_CONSTR_ARGS (left2),
27334 CHECK_CONSTR_ARGS (right2));
27335 return false;
27338 /* Key/value pair for learning and memoizing subsumption results. This
27339 associates a pair of check constraints (including arguments) with
27340 a boolean value indicating the result. */
27342 struct GTY((for_user)) subsumption_entry
27344 tree t1;
27345 tree t2;
27346 bool result;
27349 /* Hashing function and equality for constraint entries. */
27351 struct subsumption_hasher : ggc_ptr_hash<subsumption_entry>
27353 static hashval_t hash (subsumption_entry *e)
27355 return hash_subsumption_args (e->t1, e->t2);
27358 static bool equal (subsumption_entry *e1, subsumption_entry *e2)
27360 ++comparing_specializations;
27361 bool eq = comp_subsumption_args(e1->t1, e1->t2, e2->t1, e2->t2);
27362 --comparing_specializations;
27363 return eq;
27367 static GTY (()) hash_table<subsumption_hasher> *subsumption_table;
27369 /* Search for a previously cached subsumption result. */
27371 bool*
27372 lookup_subsumption_result (tree t1, tree t2)
27374 subsumption_entry elt = { t1, t2, false };
27375 subsumption_entry* found = subsumption_table->find (&elt);
27376 if (found)
27377 return &found->result;
27378 else
27379 return 0;
27382 /* Save a subsumption result. */
27384 bool
27385 save_subsumption_result (tree t1, tree t2, bool result)
27387 subsumption_entry elt = {t1, t2, result};
27388 subsumption_entry** slot = subsumption_table->find_slot (&elt, INSERT);
27389 subsumption_entry* entry = ggc_alloc<subsumption_entry> ();
27390 *entry = elt;
27391 *slot = entry;
27392 return result;
27395 /* Set up the hash table for constraint association. */
27397 void
27398 init_constraint_processing (void)
27400 if (!flag_concepts)
27401 return;
27403 decl_constraints = hash_table<constr_hasher>::create_ggc(37);
27404 constraint_memos = hash_table<constraint_sat_hasher>::create_ggc(37);
27405 concept_memos = hash_table<concept_spec_hasher>::create_ggc(37);
27406 concept_expansions = hash_table<concept_spec_hasher>::create_ggc(37);
27407 subsumption_table = hash_table<subsumption_hasher>::create_ggc(37);
27410 /* __integer_pack(N) in a pack expansion expands to a sequence of numbers from
27411 0..N-1. */
27413 void
27414 declare_integer_pack (void)
27416 tree ipfn = push_library_fn (get_identifier ("__integer_pack"),
27417 build_function_type_list (integer_type_node,
27418 integer_type_node,
27419 NULL_TREE),
27420 NULL_TREE, ECF_CONST);
27421 DECL_DECLARED_CONSTEXPR_P (ipfn) = true;
27422 DECL_BUILT_IN_CLASS (ipfn) = BUILT_IN_FRONTEND;
27425 /* Set up the hash tables for template instantiations. */
27427 void
27428 init_template_processing (void)
27430 decl_specializations = hash_table<spec_hasher>::create_ggc (37);
27431 type_specializations = hash_table<spec_hasher>::create_ggc (37);
27433 if (cxx_dialect >= cxx11)
27434 declare_integer_pack ();
27437 /* Print stats about the template hash tables for -fstats. */
27439 void
27440 print_template_statistics (void)
27442 fprintf (stderr, "decl_specializations: size %ld, %ld elements, "
27443 "%f collisions\n", (long) decl_specializations->size (),
27444 (long) decl_specializations->elements (),
27445 decl_specializations->collisions ());
27446 fprintf (stderr, "type_specializations: size %ld, %ld elements, "
27447 "%f collisions\n", (long) type_specializations->size (),
27448 (long) type_specializations->elements (),
27449 type_specializations->collisions ());
27452 #if CHECKING_P
27454 namespace selftest {
27456 /* Verify that build_non_dependent_expr () works, for various expressions,
27457 and that location wrappers don't affect the results. */
27459 static void
27460 test_build_non_dependent_expr ()
27462 location_t loc = BUILTINS_LOCATION;
27464 /* Verify constants, without and with location wrappers. */
27465 tree int_cst = build_int_cst (integer_type_node, 42);
27466 ASSERT_EQ (int_cst, build_non_dependent_expr (int_cst));
27468 tree wrapped_int_cst = maybe_wrap_with_location (int_cst, loc);
27469 ASSERT_TRUE (location_wrapper_p (wrapped_int_cst));
27470 ASSERT_EQ (wrapped_int_cst, build_non_dependent_expr (wrapped_int_cst));
27472 tree string_lit = build_string (4, "foo");
27473 TREE_TYPE (string_lit) = char_array_type_node;
27474 string_lit = fix_string_type (string_lit);
27475 ASSERT_EQ (string_lit, build_non_dependent_expr (string_lit));
27477 tree wrapped_string_lit = maybe_wrap_with_location (string_lit, loc);
27478 ASSERT_TRUE (location_wrapper_p (wrapped_string_lit));
27479 ASSERT_EQ (wrapped_string_lit,
27480 build_non_dependent_expr (wrapped_string_lit));
27483 /* Verify that type_dependent_expression_p () works correctly, even
27484 in the presence of location wrapper nodes. */
27486 static void
27487 test_type_dependent_expression_p ()
27489 location_t loc = BUILTINS_LOCATION;
27491 tree name = get_identifier ("foo");
27493 /* If no templates are involved, nothing is type-dependent. */
27494 gcc_assert (!processing_template_decl);
27495 ASSERT_FALSE (type_dependent_expression_p (name));
27497 ++processing_template_decl;
27499 /* Within a template, an unresolved name is always type-dependent. */
27500 ASSERT_TRUE (type_dependent_expression_p (name));
27502 /* Ensure it copes with NULL_TREE and errors. */
27503 ASSERT_FALSE (type_dependent_expression_p (NULL_TREE));
27504 ASSERT_FALSE (type_dependent_expression_p (error_mark_node));
27506 /* A USING_DECL in a template should be type-dependent, even if wrapped
27507 with a location wrapper (PR c++/83799). */
27508 tree using_decl = build_lang_decl (USING_DECL, name, NULL_TREE);
27509 TREE_TYPE (using_decl) = integer_type_node;
27510 ASSERT_TRUE (type_dependent_expression_p (using_decl));
27511 tree wrapped_using_decl = maybe_wrap_with_location (using_decl, loc);
27512 ASSERT_TRUE (location_wrapper_p (wrapped_using_decl));
27513 ASSERT_TRUE (type_dependent_expression_p (wrapped_using_decl));
27515 --processing_template_decl;
27518 /* Run all of the selftests within this file. */
27520 void
27521 cp_pt_c_tests ()
27523 test_build_non_dependent_expr ();
27524 test_type_dependent_expression_p ();
27527 } // namespace selftest
27529 #endif /* #if CHECKING_P */
27531 #include "gt-cp-pt.h"