gcc/ChangeLog
[official-gcc.git] / gcc / cp / pt.c
blobec32c5a05426d0a6f7f5c3d15566990883268b31
1 /* Handle parameterized types (templates) for GNU -*- C++ -*-.
2 Copyright (C) 1992-2015 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 "tm.h"
31 #include "alias.h"
32 #include "tree.h"
33 #include "stringpool.h"
34 #include "varasm.h"
35 #include "attribs.h"
36 #include "stor-layout.h"
37 #include "intl.h"
38 #include "flags.h"
39 #include "cp-tree.h"
40 #include "c-family/c-common.h"
41 #include "c-family/c-objc.h"
42 #include "cp-objcp-common.h"
43 #include "tree-inline.h"
44 #include "decl.h"
45 #include "toplev.h"
46 #include "timevar.h"
47 #include "tree-iterator.h"
48 #include "type-utils.h"
49 #include "gimplify.h"
51 /* The type of functions taking a tree, and some additional data, and
52 returning an int. */
53 typedef int (*tree_fn_t) (tree, void*);
55 /* The PENDING_TEMPLATES is a TREE_LIST of templates whose
56 instantiations have been deferred, either because their definitions
57 were not yet available, or because we were putting off doing the work. */
58 struct GTY ((chain_next ("%h.next"))) pending_template {
59 struct pending_template *next;
60 struct tinst_level *tinst;
63 static GTY(()) struct pending_template *pending_templates;
64 static GTY(()) struct pending_template *last_pending_template;
66 int processing_template_parmlist;
67 static int template_header_count;
69 static GTY(()) tree saved_trees;
70 static vec<int> inline_parm_levels;
72 static GTY(()) struct tinst_level *current_tinst_level;
74 static GTY(()) tree saved_access_scope;
76 /* Live only within one (recursive) call to tsubst_expr. We use
77 this to pass the statement expression node from the STMT_EXPR
78 to the EXPR_STMT that is its result. */
79 static tree cur_stmt_expr;
81 // -------------------------------------------------------------------------- //
82 // Local Specialization Stack
84 // Implementation of the RAII helper for creating new local
85 // specializations.
86 local_specialization_stack::local_specialization_stack ()
87 : saved (local_specializations)
89 local_specializations = new hash_map<tree, tree>;
92 local_specialization_stack::~local_specialization_stack ()
94 delete local_specializations;
95 local_specializations = saved;
98 /* True if we've recursed into fn_type_unification too many times. */
99 static bool excessive_deduction_depth;
101 struct GTY((for_user)) spec_entry
103 tree tmpl;
104 tree args;
105 tree spec;
108 struct spec_hasher : ggc_ptr_hash<spec_entry>
110 static hashval_t hash (spec_entry *);
111 static bool equal (spec_entry *, spec_entry *);
114 static GTY (()) hash_table<spec_hasher> *decl_specializations;
116 static GTY (()) hash_table<spec_hasher> *type_specializations;
118 /* Contains canonical template parameter types. The vector is indexed by
119 the TEMPLATE_TYPE_IDX of the template parameter. Each element is a
120 TREE_LIST, whose TREE_VALUEs contain the canonical template
121 parameters of various types and levels. */
122 static GTY(()) vec<tree, va_gc> *canonical_template_parms;
124 #define UNIFY_ALLOW_NONE 0
125 #define UNIFY_ALLOW_MORE_CV_QUAL 1
126 #define UNIFY_ALLOW_LESS_CV_QUAL 2
127 #define UNIFY_ALLOW_DERIVED 4
128 #define UNIFY_ALLOW_INTEGER 8
129 #define UNIFY_ALLOW_OUTER_LEVEL 16
130 #define UNIFY_ALLOW_OUTER_MORE_CV_QUAL 32
131 #define UNIFY_ALLOW_OUTER_LESS_CV_QUAL 64
133 enum template_base_result {
134 tbr_incomplete_type,
135 tbr_ambiguous_baseclass,
136 tbr_success
139 static void push_access_scope (tree);
140 static void pop_access_scope (tree);
141 static bool resolve_overloaded_unification (tree, tree, tree, tree,
142 unification_kind_t, int,
143 bool);
144 static int try_one_overload (tree, tree, tree, tree, tree,
145 unification_kind_t, int, bool, bool);
146 static int unify (tree, tree, tree, tree, int, bool);
147 static void add_pending_template (tree);
148 static tree reopen_tinst_level (struct tinst_level *);
149 static tree tsubst_initializer_list (tree, tree);
150 static tree get_partial_spec_bindings (tree, tree, tree, tree);
151 static tree coerce_template_parms (tree, tree, tree, tsubst_flags_t,
152 bool, bool);
153 static tree coerce_innermost_template_parms (tree, tree, tree, tsubst_flags_t,
154 bool, bool);
155 static void tsubst_enum (tree, tree, tree);
156 static tree add_to_template_args (tree, tree);
157 static tree add_outermost_template_args (tree, tree);
158 static bool check_instantiated_args (tree, tree, tsubst_flags_t);
159 static int maybe_adjust_types_for_deduction (unification_kind_t, tree*, tree*,
160 tree);
161 static int type_unification_real (tree, tree, tree, const tree *,
162 unsigned int, int, unification_kind_t, int,
163 vec<deferred_access_check, va_gc> **,
164 bool);
165 static void note_template_header (int);
166 static tree convert_nontype_argument_function (tree, tree, tsubst_flags_t);
167 static tree convert_nontype_argument (tree, tree, tsubst_flags_t);
168 static tree convert_template_argument (tree, tree, tree,
169 tsubst_flags_t, int, tree);
170 static int for_each_template_parm (tree, tree_fn_t, void*,
171 hash_set<tree> *, bool);
172 static tree expand_template_argument_pack (tree);
173 static tree build_template_parm_index (int, int, int, tree, tree);
174 static bool inline_needs_template_parms (tree, bool);
175 static void push_inline_template_parms_recursive (tree, int);
176 static tree reduce_template_parm_level (tree, tree, int, tree, tsubst_flags_t);
177 static int mark_template_parm (tree, void *);
178 static int template_parm_this_level_p (tree, void *);
179 static tree tsubst_friend_function (tree, tree);
180 static tree tsubst_friend_class (tree, tree);
181 static int can_complete_type_without_circularity (tree);
182 static tree get_bindings (tree, tree, tree, bool);
183 static int template_decl_level (tree);
184 static int check_cv_quals_for_unify (int, tree, tree);
185 static void template_parm_level_and_index (tree, int*, int*);
186 static int unify_pack_expansion (tree, tree, tree,
187 tree, unification_kind_t, bool, bool);
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 void regenerate_decl_from_template (tree, tree);
192 static tree most_specialized_partial_spec (tree, tsubst_flags_t);
193 static tree tsubst_aggr_type (tree, tree, tsubst_flags_t, tree, int);
194 static tree tsubst_arg_types (tree, tree, tree, tsubst_flags_t, tree);
195 static tree tsubst_function_type (tree, tree, tsubst_flags_t, tree);
196 static bool check_specialization_scope (void);
197 static tree process_partial_specialization (tree);
198 static void set_current_access_from_decl (tree);
199 static enum template_base_result get_template_base (tree, tree, tree, tree,
200 bool , tree *);
201 static tree try_class_unification (tree, tree, tree, tree, bool);
202 static int coerce_template_template_parms (tree, tree, tsubst_flags_t,
203 tree, tree);
204 static bool template_template_parm_bindings_ok_p (tree, tree);
205 static int template_args_equal (tree, tree);
206 static void tsubst_default_arguments (tree, tsubst_flags_t);
207 static tree for_each_template_parm_r (tree *, int *, void *);
208 static tree copy_default_args_to_explicit_spec_1 (tree, tree);
209 static void copy_default_args_to_explicit_spec (tree);
210 static int invalid_nontype_parm_type_p (tree, tsubst_flags_t);
211 static bool dependent_template_arg_p (tree);
212 static bool any_template_arguments_need_structural_equality_p (tree);
213 static bool dependent_type_p_r (tree);
214 static tree tsubst_copy (tree, tree, tsubst_flags_t, tree);
215 static tree tsubst_decl (tree, tree, tsubst_flags_t);
216 static void perform_typedefs_access_check (tree tmpl, tree targs);
217 static void append_type_to_template_for_access_check_1 (tree, tree, tree,
218 location_t);
219 static tree listify (tree);
220 static tree listify_autos (tree, tree);
221 static tree tsubst_template_parm (tree, tree, tsubst_flags_t);
222 static tree instantiate_alias_template (tree, tree, tsubst_flags_t);
223 static bool complex_alias_template_p (const_tree tmpl);
225 /* Make the current scope suitable for access checking when we are
226 processing T. T can be FUNCTION_DECL for instantiated function
227 template, VAR_DECL for static member variable, or TYPE_DECL for
228 alias template (needed by instantiate_decl). */
230 static void
231 push_access_scope (tree t)
233 gcc_assert (VAR_OR_FUNCTION_DECL_P (t)
234 || TREE_CODE (t) == TYPE_DECL);
236 if (DECL_FRIEND_CONTEXT (t))
237 push_nested_class (DECL_FRIEND_CONTEXT (t));
238 else if (DECL_CLASS_SCOPE_P (t))
239 push_nested_class (DECL_CONTEXT (t));
240 else
241 push_to_top_level ();
243 if (TREE_CODE (t) == FUNCTION_DECL)
245 saved_access_scope = tree_cons
246 (NULL_TREE, current_function_decl, saved_access_scope);
247 current_function_decl = t;
251 /* Restore the scope set up by push_access_scope. T is the node we
252 are processing. */
254 static void
255 pop_access_scope (tree t)
257 if (TREE_CODE (t) == FUNCTION_DECL)
259 current_function_decl = TREE_VALUE (saved_access_scope);
260 saved_access_scope = TREE_CHAIN (saved_access_scope);
263 if (DECL_FRIEND_CONTEXT (t) || DECL_CLASS_SCOPE_P (t))
264 pop_nested_class ();
265 else
266 pop_from_top_level ();
269 /* Do any processing required when DECL (a member template
270 declaration) is finished. Returns the TEMPLATE_DECL corresponding
271 to DECL, unless it is a specialization, in which case the DECL
272 itself is returned. */
274 tree
275 finish_member_template_decl (tree decl)
277 if (decl == error_mark_node)
278 return error_mark_node;
280 gcc_assert (DECL_P (decl));
282 if (TREE_CODE (decl) == TYPE_DECL)
284 tree type;
286 type = TREE_TYPE (decl);
287 if (type == error_mark_node)
288 return error_mark_node;
289 if (MAYBE_CLASS_TYPE_P (type)
290 && CLASSTYPE_TEMPLATE_INFO (type)
291 && !CLASSTYPE_TEMPLATE_SPECIALIZATION (type))
293 tree tmpl = CLASSTYPE_TI_TEMPLATE (type);
294 check_member_template (tmpl);
295 return tmpl;
297 return NULL_TREE;
299 else if (TREE_CODE (decl) == FIELD_DECL)
300 error ("data member %qD cannot be a member template", decl);
301 else if (DECL_TEMPLATE_INFO (decl))
303 if (!DECL_TEMPLATE_SPECIALIZATION (decl))
305 check_member_template (DECL_TI_TEMPLATE (decl));
306 return DECL_TI_TEMPLATE (decl);
308 else
309 return decl;
311 else
312 error ("invalid member template declaration %qD", decl);
314 return error_mark_node;
317 /* Create a template info node. */
319 tree
320 build_template_info (tree template_decl, tree template_args)
322 tree result = make_node (TEMPLATE_INFO);
323 TI_TEMPLATE (result) = template_decl;
324 TI_ARGS (result) = template_args;
325 return result;
328 /* Return the template info node corresponding to T, whatever T is. */
330 tree
331 get_template_info (const_tree t)
333 tree tinfo = NULL_TREE;
335 if (!t || t == error_mark_node)
336 return NULL;
338 if (TREE_CODE (t) == NAMESPACE_DECL)
339 return NULL;
341 if (DECL_P (t) && DECL_LANG_SPECIFIC (t))
342 tinfo = DECL_TEMPLATE_INFO (t);
344 if (!tinfo && DECL_IMPLICIT_TYPEDEF_P (t))
345 t = TREE_TYPE (t);
347 if (OVERLOAD_TYPE_P (t))
348 tinfo = TYPE_TEMPLATE_INFO (t);
349 else if (TREE_CODE (t) == BOUND_TEMPLATE_TEMPLATE_PARM)
350 tinfo = TEMPLATE_TEMPLATE_PARM_TEMPLATE_INFO (t);
352 return tinfo;
355 /* Returns the template nesting level of the indicated class TYPE.
357 For example, in:
358 template <class T>
359 struct A
361 template <class U>
362 struct B {};
365 A<T>::B<U> has depth two, while A<T> has depth one.
366 Both A<T>::B<int> and A<int>::B<U> have depth one, if
367 they are instantiations, not specializations.
369 This function is guaranteed to return 0 if passed NULL_TREE so
370 that, for example, `template_class_depth (current_class_type)' is
371 always safe. */
374 template_class_depth (tree type)
376 int depth;
378 for (depth = 0;
379 type && TREE_CODE (type) != NAMESPACE_DECL;
380 type = (TREE_CODE (type) == FUNCTION_DECL)
381 ? CP_DECL_CONTEXT (type) : CP_TYPE_CONTEXT (type))
383 tree tinfo = get_template_info (type);
385 if (tinfo && PRIMARY_TEMPLATE_P (TI_TEMPLATE (tinfo))
386 && uses_template_parms (INNERMOST_TEMPLATE_ARGS (TI_ARGS (tinfo))))
387 ++depth;
390 return depth;
393 /* Subroutine of maybe_begin_member_template_processing.
394 Returns true if processing DECL needs us to push template parms. */
396 static bool
397 inline_needs_template_parms (tree decl, bool nsdmi)
399 if (!decl || (!nsdmi && ! DECL_TEMPLATE_INFO (decl)))
400 return false;
402 return (TMPL_PARMS_DEPTH (DECL_TEMPLATE_PARMS (most_general_template (decl)))
403 > (processing_template_decl + DECL_TEMPLATE_SPECIALIZATION (decl)));
406 /* Subroutine of maybe_begin_member_template_processing.
407 Push the template parms in PARMS, starting from LEVELS steps into the
408 chain, and ending at the beginning, since template parms are listed
409 innermost first. */
411 static void
412 push_inline_template_parms_recursive (tree parmlist, int levels)
414 tree parms = TREE_VALUE (parmlist);
415 int i;
417 if (levels > 1)
418 push_inline_template_parms_recursive (TREE_CHAIN (parmlist), levels - 1);
420 ++processing_template_decl;
421 current_template_parms
422 = tree_cons (size_int (processing_template_decl),
423 parms, current_template_parms);
424 TEMPLATE_PARMS_FOR_INLINE (current_template_parms) = 1;
426 begin_scope (TREE_VEC_LENGTH (parms) ? sk_template_parms : sk_template_spec,
427 NULL);
428 for (i = 0; i < TREE_VEC_LENGTH (parms); ++i)
430 tree parm = TREE_VALUE (TREE_VEC_ELT (parms, i));
432 if (error_operand_p (parm))
433 continue;
435 gcc_assert (DECL_P (parm));
437 switch (TREE_CODE (parm))
439 case TYPE_DECL:
440 case TEMPLATE_DECL:
441 pushdecl (parm);
442 break;
444 case PARM_DECL:
446 /* Make a CONST_DECL as is done in process_template_parm.
447 It is ugly that we recreate this here; the original
448 version built in process_template_parm is no longer
449 available. */
450 tree decl = build_decl (DECL_SOURCE_LOCATION (parm),
451 CONST_DECL, DECL_NAME (parm),
452 TREE_TYPE (parm));
453 DECL_ARTIFICIAL (decl) = 1;
454 TREE_CONSTANT (decl) = 1;
455 TREE_READONLY (decl) = 1;
456 DECL_INITIAL (decl) = DECL_INITIAL (parm);
457 SET_DECL_TEMPLATE_PARM_P (decl);
458 pushdecl (decl);
460 break;
462 default:
463 gcc_unreachable ();
468 /* Restore the template parameter context for a member template, a
469 friend template defined in a class definition, or a non-template
470 member of template class. */
472 void
473 maybe_begin_member_template_processing (tree decl)
475 tree parms;
476 int levels = 0;
477 bool nsdmi = TREE_CODE (decl) == FIELD_DECL;
479 if (nsdmi)
481 tree ctx = DECL_CONTEXT (decl);
482 decl = (CLASSTYPE_TEMPLATE_INFO (ctx)
483 /* Disregard full specializations (c++/60999). */
484 && uses_template_parms (ctx)
485 ? CLASSTYPE_TI_TEMPLATE (ctx) : NULL_TREE);
488 if (inline_needs_template_parms (decl, nsdmi))
490 parms = DECL_TEMPLATE_PARMS (most_general_template (decl));
491 levels = TMPL_PARMS_DEPTH (parms) - processing_template_decl;
493 if (DECL_TEMPLATE_SPECIALIZATION (decl))
495 --levels;
496 parms = TREE_CHAIN (parms);
499 push_inline_template_parms_recursive (parms, levels);
502 /* Remember how many levels of template parameters we pushed so that
503 we can pop them later. */
504 inline_parm_levels.safe_push (levels);
507 /* Undo the effects of maybe_begin_member_template_processing. */
509 void
510 maybe_end_member_template_processing (void)
512 int i;
513 int last;
515 if (inline_parm_levels.length () == 0)
516 return;
518 last = inline_parm_levels.pop ();
519 for (i = 0; i < last; ++i)
521 --processing_template_decl;
522 current_template_parms = TREE_CHAIN (current_template_parms);
523 poplevel (0, 0, 0);
527 /* Return a new template argument vector which contains all of ARGS,
528 but has as its innermost set of arguments the EXTRA_ARGS. */
530 static tree
531 add_to_template_args (tree args, tree extra_args)
533 tree new_args;
534 int extra_depth;
535 int i;
536 int j;
538 if (args == NULL_TREE || extra_args == error_mark_node)
539 return extra_args;
541 extra_depth = TMPL_ARGS_DEPTH (extra_args);
542 new_args = make_tree_vec (TMPL_ARGS_DEPTH (args) + extra_depth);
544 for (i = 1; i <= TMPL_ARGS_DEPTH (args); ++i)
545 SET_TMPL_ARGS_LEVEL (new_args, i, TMPL_ARGS_LEVEL (args, i));
547 for (j = 1; j <= extra_depth; ++j, ++i)
548 SET_TMPL_ARGS_LEVEL (new_args, i, TMPL_ARGS_LEVEL (extra_args, j));
550 return new_args;
553 /* Like add_to_template_args, but only the outermost ARGS are added to
554 the EXTRA_ARGS. In particular, all but TMPL_ARGS_DEPTH
555 (EXTRA_ARGS) levels are added. This function is used to combine
556 the template arguments from a partial instantiation with the
557 template arguments used to attain the full instantiation from the
558 partial instantiation. */
560 static tree
561 add_outermost_template_args (tree args, tree extra_args)
563 tree new_args;
565 /* If there are more levels of EXTRA_ARGS than there are ARGS,
566 something very fishy is going on. */
567 gcc_assert (TMPL_ARGS_DEPTH (args) >= TMPL_ARGS_DEPTH (extra_args));
569 /* If *all* the new arguments will be the EXTRA_ARGS, just return
570 them. */
571 if (TMPL_ARGS_DEPTH (args) == TMPL_ARGS_DEPTH (extra_args))
572 return extra_args;
574 /* For the moment, we make ARGS look like it contains fewer levels. */
575 TREE_VEC_LENGTH (args) -= TMPL_ARGS_DEPTH (extra_args);
577 new_args = add_to_template_args (args, extra_args);
579 /* Now, we restore ARGS to its full dimensions. */
580 TREE_VEC_LENGTH (args) += TMPL_ARGS_DEPTH (extra_args);
582 return new_args;
585 /* Return the N levels of innermost template arguments from the ARGS. */
587 tree
588 get_innermost_template_args (tree args, int n)
590 tree new_args;
591 int extra_levels;
592 int i;
594 gcc_assert (n >= 0);
596 /* If N is 1, just return the innermost set of template arguments. */
597 if (n == 1)
598 return TMPL_ARGS_LEVEL (args, TMPL_ARGS_DEPTH (args));
600 /* If we're not removing anything, just return the arguments we were
601 given. */
602 extra_levels = TMPL_ARGS_DEPTH (args) - n;
603 gcc_assert (extra_levels >= 0);
604 if (extra_levels == 0)
605 return args;
607 /* Make a new set of arguments, not containing the outer arguments. */
608 new_args = make_tree_vec (n);
609 for (i = 1; i <= n; ++i)
610 SET_TMPL_ARGS_LEVEL (new_args, i,
611 TMPL_ARGS_LEVEL (args, i + extra_levels));
613 return new_args;
616 /* The inverse of get_innermost_template_args: Return all but the innermost
617 EXTRA_LEVELS levels of template arguments from the ARGS. */
619 static tree
620 strip_innermost_template_args (tree args, int extra_levels)
622 tree new_args;
623 int n = TMPL_ARGS_DEPTH (args) - extra_levels;
624 int i;
626 gcc_assert (n >= 0);
628 /* If N is 1, just return the outermost set of template arguments. */
629 if (n == 1)
630 return TMPL_ARGS_LEVEL (args, 1);
632 /* If we're not removing anything, just return the arguments we were
633 given. */
634 gcc_assert (extra_levels >= 0);
635 if (extra_levels == 0)
636 return args;
638 /* Make a new set of arguments, not containing the inner arguments. */
639 new_args = make_tree_vec (n);
640 for (i = 1; i <= n; ++i)
641 SET_TMPL_ARGS_LEVEL (new_args, i,
642 TMPL_ARGS_LEVEL (args, i));
644 return new_args;
647 /* We've got a template header coming up; push to a new level for storing
648 the parms. */
650 void
651 begin_template_parm_list (void)
653 /* We use a non-tag-transparent scope here, which causes pushtag to
654 put tags in this scope, rather than in the enclosing class or
655 namespace scope. This is the right thing, since we want
656 TEMPLATE_DECLS, and not TYPE_DECLS for template classes. For a
657 global template class, push_template_decl handles putting the
658 TEMPLATE_DECL into top-level scope. For a nested template class,
659 e.g.:
661 template <class T> struct S1 {
662 template <class T> struct S2 {};
665 pushtag contains special code to call pushdecl_with_scope on the
666 TEMPLATE_DECL for S2. */
667 begin_scope (sk_template_parms, NULL);
668 ++processing_template_decl;
669 ++processing_template_parmlist;
670 note_template_header (0);
672 /* Add a dummy parameter level while we process the parameter list. */
673 current_template_parms
674 = tree_cons (size_int (processing_template_decl),
675 make_tree_vec (0),
676 current_template_parms);
679 /* This routine is called when a specialization is declared. If it is
680 invalid to declare a specialization here, an error is reported and
681 false is returned, otherwise this routine will return true. */
683 static bool
684 check_specialization_scope (void)
686 tree scope = current_scope ();
688 /* [temp.expl.spec]
690 An explicit specialization shall be declared in the namespace of
691 which the template is a member, or, for member templates, in the
692 namespace of which the enclosing class or enclosing class
693 template is a member. An explicit specialization of a member
694 function, member class or static data member of a class template
695 shall be declared in the namespace of which the class template
696 is a member. */
697 if (scope && TREE_CODE (scope) != NAMESPACE_DECL)
699 error ("explicit specialization in non-namespace scope %qD", scope);
700 return false;
703 /* [temp.expl.spec]
705 In an explicit specialization declaration for a member of a class
706 template or a member template that appears in namespace scope,
707 the member template and some of its enclosing class templates may
708 remain unspecialized, except that the declaration shall not
709 explicitly specialize a class member template if its enclosing
710 class templates are not explicitly specialized as well. */
711 if (current_template_parms)
713 error ("enclosing class templates are not explicitly specialized");
714 return false;
717 return true;
720 /* We've just seen template <>. */
722 bool
723 begin_specialization (void)
725 begin_scope (sk_template_spec, NULL);
726 note_template_header (1);
727 return check_specialization_scope ();
730 /* Called at then end of processing a declaration preceded by
731 template<>. */
733 void
734 end_specialization (void)
736 finish_scope ();
737 reset_specialization ();
740 /* Any template <>'s that we have seen thus far are not referring to a
741 function specialization. */
743 void
744 reset_specialization (void)
746 processing_specialization = 0;
747 template_header_count = 0;
750 /* We've just seen a template header. If SPECIALIZATION is nonzero,
751 it was of the form template <>. */
753 static void
754 note_template_header (int specialization)
756 processing_specialization = specialization;
757 template_header_count++;
760 /* We're beginning an explicit instantiation. */
762 void
763 begin_explicit_instantiation (void)
765 gcc_assert (!processing_explicit_instantiation);
766 processing_explicit_instantiation = true;
770 void
771 end_explicit_instantiation (void)
773 gcc_assert (processing_explicit_instantiation);
774 processing_explicit_instantiation = false;
777 /* An explicit specialization or partial specialization of TMPL is being
778 declared. Check that the namespace in which the specialization is
779 occurring is permissible. Returns false iff it is invalid to
780 specialize TMPL in the current namespace. */
782 static bool
783 check_specialization_namespace (tree tmpl)
785 tree tpl_ns = decl_namespace_context (tmpl);
787 /* [tmpl.expl.spec]
789 An explicit specialization shall be declared in the namespace of
790 which the template is a member, or, for member templates, in the
791 namespace of which the enclosing class or enclosing class
792 template is a member. An explicit specialization of a member
793 function, member class or static data member of a class template
794 shall be declared in the namespace of which the class template is
795 a member. */
796 if (current_scope() != DECL_CONTEXT (tmpl)
797 && !at_namespace_scope_p ())
799 error ("specialization of %qD must appear at namespace scope", tmpl);
800 return false;
802 if (is_associated_namespace (current_namespace, tpl_ns))
803 /* Same or super-using namespace. */
804 return true;
805 else
807 permerror (input_location,
808 "specialization of %qD in different namespace", tmpl);
809 permerror (DECL_SOURCE_LOCATION (tmpl),
810 " from definition of %q#D", tmpl);
811 return false;
815 /* SPEC is an explicit instantiation. Check that it is valid to
816 perform this explicit instantiation in the current namespace. */
818 static void
819 check_explicit_instantiation_namespace (tree spec)
821 tree ns;
823 /* DR 275: An explicit instantiation shall appear in an enclosing
824 namespace of its template. */
825 ns = decl_namespace_context (spec);
826 if (!is_ancestor (current_namespace, ns))
827 permerror (input_location, "explicit instantiation of %qD in namespace %qD "
828 "(which does not enclose namespace %qD)",
829 spec, current_namespace, ns);
832 // Returns the type of a template specialization only if that
833 // specialization needs to be defined. Otherwise (e.g., if the type has
834 // already been defined), the function returns NULL_TREE.
835 static tree
836 maybe_new_partial_specialization (tree type)
838 // An implicit instantiation of an incomplete type implies
839 // the definition of a new class template.
841 // template<typename T>
842 // struct S;
844 // template<typename T>
845 // struct S<T*>;
847 // Here, S<T*> is an implicit instantiation of S whose type
848 // is incomplete.
849 if (CLASSTYPE_IMPLICIT_INSTANTIATION (type) && !COMPLETE_TYPE_P (type))
850 return type;
852 // It can also be the case that TYPE is a completed specialization.
853 // Continuing the previous example, suppose we also declare:
855 // template<typename T>
856 // requires Integral<T>
857 // struct S<T*>;
859 // Here, S<T*> refers to the specialization S<T*> defined
860 // above. However, we need to differentiate definitions because
861 // we intend to define a new partial specialization. In this case,
862 // we rely on the fact that the constraints are different for
863 // this declaration than that above.
865 // Note that we also get here for injected class names and
866 // late-parsed template definitions. We must ensure that we
867 // do not create new type declarations for those cases.
868 if (flag_concepts && CLASSTYPE_TEMPLATE_SPECIALIZATION (type))
870 tree tmpl = CLASSTYPE_TI_TEMPLATE (type);
871 tree args = CLASSTYPE_TI_ARGS (type);
873 // If there are no template parameters, this cannot be a new
874 // partial template specializtion?
875 if (!current_template_parms)
876 return NULL_TREE;
878 // If the constraints are not the same as those of the primary
879 // then, we can probably create a new specialization.
880 tree type_constr = current_template_constraints ();
882 if (type == TREE_TYPE (tmpl))
883 if (tree main_constr = get_constraints (tmpl))
884 if (equivalent_constraints (type_constr, main_constr))
885 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 TYPE_FOR_JAVA (t) = TYPE_FOR_JAVA (type);
906 SET_TYPE_TEMPLATE_INFO (t, build_template_info (tmpl, args));
908 /* We only need a separate type node for storing the definition of this
909 partial specialization; uses of S<T*> are unconstrained, so all are
910 equivalent. So keep TYPE_CANONICAL the same. */
911 TYPE_CANONICAL (t) = TYPE_CANONICAL (type);
913 // Build the corresponding type decl.
914 tree d = create_implicit_typedef (DECL_NAME (tmpl), t);
915 DECL_CONTEXT (d) = TYPE_CONTEXT (t);
916 DECL_SOURCE_LOCATION (d) = input_location;
918 return t;
921 return NULL_TREE;
924 /* The TYPE is being declared. If it is a template type, that means it
925 is a partial specialization. Do appropriate error-checking. */
927 tree
928 maybe_process_partial_specialization (tree type)
930 tree context;
932 if (type == error_mark_node)
933 return error_mark_node;
935 /* A lambda that appears in specialization context is not itself a
936 specialization. */
937 if (CLASS_TYPE_P (type) && CLASSTYPE_LAMBDA_EXPR (type))
938 return type;
940 if (TREE_CODE (type) == BOUND_TEMPLATE_TEMPLATE_PARM)
942 error ("name of class shadows template template parameter %qD",
943 TYPE_NAME (type));
944 return error_mark_node;
947 context = TYPE_CONTEXT (type);
949 if (TYPE_ALIAS_P (type))
951 if (TYPE_TEMPLATE_INFO (type)
952 && DECL_ALIAS_TEMPLATE_P (TYPE_TI_TEMPLATE (type)))
953 error ("specialization of alias template %qD",
954 TYPE_TI_TEMPLATE (type));
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 check_unstripped_args (tree args ATTRIBUTE_UNUSED)
1140 #ifdef ENABLE_CHECKING
1141 ++processing_template_decl;
1142 if (!any_dependent_template_arguments_p (args))
1144 tree inner = INNERMOST_TEMPLATE_ARGS (args);
1145 for (int i = 0; i < TREE_VEC_LENGTH (inner); ++i)
1147 tree arg = TREE_VEC_ELT (inner, i);
1148 if (TREE_CODE (arg) == TEMPLATE_DECL)
1149 /* OK */;
1150 else if (TYPE_P (arg))
1151 gcc_assert (strip_typedefs (arg, NULL) == arg);
1152 else if (strip_typedefs (TREE_TYPE (arg), NULL) != TREE_TYPE (arg))
1153 /* Allow typedefs on the type of a non-type argument, since a
1154 parameter can have them. */;
1155 else
1156 gcc_assert (strip_typedefs_expr (arg, NULL) == arg);
1159 --processing_template_decl;
1160 #endif
1163 /* Retrieve the specialization (in the sense of [temp.spec] - a
1164 specialization is either an instantiation or an explicit
1165 specialization) of TMPL for the given template ARGS. If there is
1166 no such specialization, return NULL_TREE. The ARGS are a vector of
1167 arguments, or a vector of vectors of arguments, in the case of
1168 templates with more than one level of parameters.
1170 If TMPL is a type template and CLASS_SPECIALIZATIONS_P is true,
1171 then we search for a partial specialization matching ARGS. This
1172 parameter is ignored if TMPL is not a class template.
1174 We can also look up a FIELD_DECL, if it is a lambda capture pack; the
1175 result is a NONTYPE_ARGUMENT_PACK. */
1177 static tree
1178 retrieve_specialization (tree tmpl, tree args, hashval_t hash)
1180 if (tmpl == NULL_TREE)
1181 return NULL_TREE;
1183 if (args == error_mark_node)
1184 return NULL_TREE;
1186 gcc_assert (TREE_CODE (tmpl) == TEMPLATE_DECL
1187 || TREE_CODE (tmpl) == FIELD_DECL);
1189 /* There should be as many levels of arguments as there are
1190 levels of parameters. */
1191 gcc_assert (TMPL_ARGS_DEPTH (args)
1192 == (TREE_CODE (tmpl) == TEMPLATE_DECL
1193 ? TMPL_PARMS_DEPTH (DECL_TEMPLATE_PARMS (tmpl))
1194 : template_class_depth (DECL_CONTEXT (tmpl))));
1196 check_unstripped_args (args);
1198 if (optimize_specialization_lookup_p (tmpl))
1200 tree class_template;
1201 tree class_specialization;
1202 vec<tree, va_gc> *methods;
1203 tree fns;
1204 int idx;
1206 /* The template arguments actually apply to the containing
1207 class. Find the class specialization with those
1208 arguments. */
1209 class_template = CLASSTYPE_TI_TEMPLATE (DECL_CONTEXT (tmpl));
1210 class_specialization
1211 = retrieve_specialization (class_template, args, 0);
1212 if (!class_specialization)
1213 return NULL_TREE;
1214 /* Now, find the appropriate entry in the CLASSTYPE_METHOD_VEC
1215 for the specialization. */
1216 idx = class_method_index_for_fn (class_specialization, tmpl);
1217 if (idx == -1)
1218 return NULL_TREE;
1219 /* Iterate through the methods with the indicated name, looking
1220 for the one that has an instance of TMPL. */
1221 methods = CLASSTYPE_METHOD_VEC (class_specialization);
1222 for (fns = (*methods)[idx]; fns; fns = OVL_NEXT (fns))
1224 tree fn = OVL_CURRENT (fns);
1225 if (DECL_TEMPLATE_INFO (fn) && DECL_TI_TEMPLATE (fn) == tmpl
1226 /* using-declarations can add base methods to the method vec,
1227 and we don't want those here. */
1228 && DECL_CONTEXT (fn) == class_specialization)
1229 return fn;
1231 return NULL_TREE;
1233 else
1235 spec_entry *found;
1236 spec_entry elt;
1237 hash_table<spec_hasher> *specializations;
1239 elt.tmpl = tmpl;
1240 elt.args = args;
1241 elt.spec = NULL_TREE;
1243 if (DECL_CLASS_TEMPLATE_P (tmpl))
1244 specializations = type_specializations;
1245 else
1246 specializations = decl_specializations;
1248 if (hash == 0)
1249 hash = spec_hasher::hash (&elt);
1250 found = specializations->find_with_hash (&elt, hash);
1251 if (found)
1252 return found->spec;
1255 return NULL_TREE;
1258 /* Like retrieve_specialization, but for local declarations. */
1260 tree
1261 retrieve_local_specialization (tree tmpl)
1263 if (local_specializations == NULL)
1264 return NULL_TREE;
1266 tree *slot = local_specializations->get (tmpl);
1267 return slot ? *slot : NULL_TREE;
1270 /* Returns nonzero iff DECL is a specialization of TMPL. */
1273 is_specialization_of (tree decl, tree tmpl)
1275 tree t;
1277 if (TREE_CODE (decl) == FUNCTION_DECL)
1279 for (t = decl;
1280 t != NULL_TREE;
1281 t = DECL_TEMPLATE_INFO (t) ? DECL_TI_TEMPLATE (t) : NULL_TREE)
1282 if (t == tmpl)
1283 return 1;
1285 else
1287 gcc_assert (TREE_CODE (decl) == TYPE_DECL);
1289 for (t = TREE_TYPE (decl);
1290 t != NULL_TREE;
1291 t = CLASSTYPE_USE_TEMPLATE (t)
1292 ? TREE_TYPE (CLASSTYPE_TI_TEMPLATE (t)) : NULL_TREE)
1293 if (same_type_ignoring_top_level_qualifiers_p (t, TREE_TYPE (tmpl)))
1294 return 1;
1297 return 0;
1300 /* Returns nonzero iff DECL is a specialization of friend declaration
1301 FRIEND_DECL according to [temp.friend]. */
1303 bool
1304 is_specialization_of_friend (tree decl, tree friend_decl)
1306 bool need_template = true;
1307 int template_depth;
1309 gcc_assert (TREE_CODE (decl) == FUNCTION_DECL
1310 || TREE_CODE (decl) == TYPE_DECL);
1312 /* For [temp.friend/6] when FRIEND_DECL is an ordinary member function
1313 of a template class, we want to check if DECL is a specialization
1314 if this. */
1315 if (TREE_CODE (friend_decl) == FUNCTION_DECL
1316 && DECL_TEMPLATE_INFO (friend_decl)
1317 && !DECL_USE_TEMPLATE (friend_decl))
1319 /* We want a TEMPLATE_DECL for `is_specialization_of'. */
1320 friend_decl = DECL_TI_TEMPLATE (friend_decl);
1321 need_template = false;
1323 else if (TREE_CODE (friend_decl) == TEMPLATE_DECL
1324 && !PRIMARY_TEMPLATE_P (friend_decl))
1325 need_template = false;
1327 /* There is nothing to do if this is not a template friend. */
1328 if (TREE_CODE (friend_decl) != TEMPLATE_DECL)
1329 return false;
1331 if (is_specialization_of (decl, friend_decl))
1332 return true;
1334 /* [temp.friend/6]
1335 A member of a class template may be declared to be a friend of a
1336 non-template class. In this case, the corresponding member of
1337 every specialization of the class template is a friend of the
1338 class granting friendship.
1340 For example, given a template friend declaration
1342 template <class T> friend void A<T>::f();
1344 the member function below is considered a friend
1346 template <> struct A<int> {
1347 void f();
1350 For this type of template friend, TEMPLATE_DEPTH below will be
1351 nonzero. To determine if DECL is a friend of FRIEND, we first
1352 check if the enclosing class is a specialization of another. */
1354 template_depth = template_class_depth (CP_DECL_CONTEXT (friend_decl));
1355 if (template_depth
1356 && DECL_CLASS_SCOPE_P (decl)
1357 && is_specialization_of (TYPE_NAME (DECL_CONTEXT (decl)),
1358 CLASSTYPE_TI_TEMPLATE (DECL_CONTEXT (friend_decl))))
1360 /* Next, we check the members themselves. In order to handle
1361 a few tricky cases, such as when FRIEND_DECL's are
1363 template <class T> friend void A<T>::g(T t);
1364 template <class T> template <T t> friend void A<T>::h();
1366 and DECL's are
1368 void A<int>::g(int);
1369 template <int> void A<int>::h();
1371 we need to figure out ARGS, the template arguments from
1372 the context of DECL. This is required for template substitution
1373 of `T' in the function parameter of `g' and template parameter
1374 of `h' in the above examples. Here ARGS corresponds to `int'. */
1376 tree context = DECL_CONTEXT (decl);
1377 tree args = NULL_TREE;
1378 int current_depth = 0;
1380 while (current_depth < template_depth)
1382 if (CLASSTYPE_TEMPLATE_INFO (context))
1384 if (current_depth == 0)
1385 args = TYPE_TI_ARGS (context);
1386 else
1387 args = add_to_template_args (TYPE_TI_ARGS (context), args);
1388 current_depth++;
1390 context = TYPE_CONTEXT (context);
1393 if (TREE_CODE (decl) == FUNCTION_DECL)
1395 bool is_template;
1396 tree friend_type;
1397 tree decl_type;
1398 tree friend_args_type;
1399 tree decl_args_type;
1401 /* Make sure that both DECL and FRIEND_DECL are templates or
1402 non-templates. */
1403 is_template = DECL_TEMPLATE_INFO (decl)
1404 && PRIMARY_TEMPLATE_P (DECL_TI_TEMPLATE (decl));
1405 if (need_template ^ is_template)
1406 return false;
1407 else if (is_template)
1409 /* If both are templates, check template parameter list. */
1410 tree friend_parms
1411 = tsubst_template_parms (DECL_TEMPLATE_PARMS (friend_decl),
1412 args, tf_none);
1413 if (!comp_template_parms
1414 (DECL_TEMPLATE_PARMS (DECL_TI_TEMPLATE (decl)),
1415 friend_parms))
1416 return false;
1418 decl_type = TREE_TYPE (DECL_TI_TEMPLATE (decl));
1420 else
1421 decl_type = TREE_TYPE (decl);
1423 friend_type = tsubst_function_type (TREE_TYPE (friend_decl), args,
1424 tf_none, NULL_TREE);
1425 if (friend_type == error_mark_node)
1426 return false;
1428 /* Check if return types match. */
1429 if (!same_type_p (TREE_TYPE (decl_type), TREE_TYPE (friend_type)))
1430 return false;
1432 /* Check if function parameter types match, ignoring the
1433 `this' parameter. */
1434 friend_args_type = TYPE_ARG_TYPES (friend_type);
1435 decl_args_type = TYPE_ARG_TYPES (decl_type);
1436 if (DECL_NONSTATIC_MEMBER_FUNCTION_P (friend_decl))
1437 friend_args_type = TREE_CHAIN (friend_args_type);
1438 if (DECL_NONSTATIC_MEMBER_FUNCTION_P (decl))
1439 decl_args_type = TREE_CHAIN (decl_args_type);
1441 return compparms (decl_args_type, friend_args_type);
1443 else
1445 /* DECL is a TYPE_DECL */
1446 bool is_template;
1447 tree decl_type = TREE_TYPE (decl);
1449 /* Make sure that both DECL and FRIEND_DECL are templates or
1450 non-templates. */
1451 is_template
1452 = CLASSTYPE_TEMPLATE_INFO (decl_type)
1453 && PRIMARY_TEMPLATE_P (CLASSTYPE_TI_TEMPLATE (decl_type));
1455 if (need_template ^ is_template)
1456 return false;
1457 else if (is_template)
1459 tree friend_parms;
1460 /* If both are templates, check the name of the two
1461 TEMPLATE_DECL's first because is_friend didn't. */
1462 if (DECL_NAME (CLASSTYPE_TI_TEMPLATE (decl_type))
1463 != DECL_NAME (friend_decl))
1464 return false;
1466 /* Now check template parameter list. */
1467 friend_parms
1468 = tsubst_template_parms (DECL_TEMPLATE_PARMS (friend_decl),
1469 args, tf_none);
1470 return comp_template_parms
1471 (DECL_TEMPLATE_PARMS (CLASSTYPE_TI_TEMPLATE (decl_type)),
1472 friend_parms);
1474 else
1475 return (DECL_NAME (decl)
1476 == DECL_NAME (friend_decl));
1479 return false;
1482 /* Register the specialization SPEC as a specialization of TMPL with
1483 the indicated ARGS. IS_FRIEND indicates whether the specialization
1484 is actually just a friend declaration. Returns SPEC, or an
1485 equivalent prior declaration, if 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 if (!duplicate_decls (spec, fn, is_friend) && DECL_INITIAL (spec))
1611 /* Dup decl failed, but this is a new definition. Set the
1612 line number so any errors match this new
1613 definition. */
1614 DECL_SOURCE_LOCATION (fn) = DECL_SOURCE_LOCATION (spec);
1616 return fn;
1619 else if (fn)
1620 return duplicate_decls (spec, fn, is_friend);
1622 /* A specialization must be declared in the same namespace as the
1623 template it is specializing. */
1624 if (DECL_P (spec) && DECL_TEMPLATE_SPECIALIZATION (spec)
1625 && !check_specialization_namespace (tmpl))
1626 DECL_CONTEXT (spec) = DECL_CONTEXT (tmpl);
1628 if (slot != NULL /* !optimize_specialization_lookup_p (tmpl) */)
1630 spec_entry *entry = ggc_alloc<spec_entry> ();
1631 gcc_assert (tmpl && args && spec);
1632 *entry = elt;
1633 *slot = entry;
1634 if ((TREE_CODE (spec) == FUNCTION_DECL && DECL_NAMESPACE_SCOPE_P (spec)
1635 && PRIMARY_TEMPLATE_P (tmpl)
1636 && DECL_SAVED_TREE (DECL_TEMPLATE_RESULT (tmpl)) == NULL_TREE)
1637 || variable_template_p (tmpl))
1638 /* If TMPL is a forward declaration of a template function, keep a list
1639 of all specializations in case we need to reassign them to a friend
1640 template later in tsubst_friend_function.
1642 Also keep a list of all variable template instantiations so that
1643 process_partial_specialization can check whether a later partial
1644 specialization would have used it. */
1645 DECL_TEMPLATE_INSTANTIATIONS (tmpl)
1646 = tree_cons (args, spec, DECL_TEMPLATE_INSTANTIATIONS (tmpl));
1649 return spec;
1652 /* Returns true iff two spec_entry nodes are equivalent. */
1654 int comparing_specializations;
1656 bool
1657 spec_hasher::equal (spec_entry *e1, spec_entry *e2)
1659 int equal;
1661 ++comparing_specializations;
1662 equal = (e1->tmpl == e2->tmpl
1663 && comp_template_args (e1->args, e2->args));
1664 if (equal && flag_concepts
1665 /* tmpl could be a FIELD_DECL for a capture pack. */
1666 && TREE_CODE (e1->tmpl) == TEMPLATE_DECL
1667 && VAR_P (DECL_TEMPLATE_RESULT (e1->tmpl))
1668 && uses_template_parms (e1->args))
1670 /* Partial specializations of a variable template can be distinguished by
1671 constraints. */
1672 tree c1 = e1->spec ? get_constraints (e1->spec) : NULL_TREE;
1673 tree c2 = e2->spec ? get_constraints (e2->spec) : NULL_TREE;
1674 equal = equivalent_constraints (c1, c2);
1676 --comparing_specializations;
1678 return equal;
1681 /* Returns a hash for a template TMPL and template arguments ARGS. */
1683 static hashval_t
1684 hash_tmpl_and_args (tree tmpl, tree args)
1686 hashval_t val = DECL_UID (tmpl);
1687 return iterative_hash_template_arg (args, val);
1690 /* Returns a hash for a spec_entry node based on the TMPL and ARGS members,
1691 ignoring SPEC. */
1693 hashval_t
1694 spec_hasher::hash (spec_entry *e)
1696 return hash_tmpl_and_args (e->tmpl, e->args);
1699 /* Recursively calculate a hash value for a template argument ARG, for use
1700 in the hash tables of template specializations. */
1702 hashval_t
1703 iterative_hash_template_arg (tree arg, hashval_t val)
1705 unsigned HOST_WIDE_INT i;
1706 enum tree_code code;
1707 char tclass;
1709 if (arg == NULL_TREE)
1710 return iterative_hash_object (arg, val);
1712 if (!TYPE_P (arg))
1713 STRIP_NOPS (arg);
1715 if (TREE_CODE (arg) == ARGUMENT_PACK_SELECT)
1716 /* We can get one of these when re-hashing a previous entry in the middle
1717 of substituting into a pack expansion. Just look through it. */
1718 arg = ARGUMENT_PACK_SELECT_FROM_PACK (arg);
1720 code = TREE_CODE (arg);
1721 tclass = TREE_CODE_CLASS (code);
1723 val = iterative_hash_object (code, val);
1725 switch (code)
1727 case ERROR_MARK:
1728 return val;
1730 case IDENTIFIER_NODE:
1731 return iterative_hash_object (IDENTIFIER_HASH_VALUE (arg), val);
1733 case TREE_VEC:
1735 int i, len = TREE_VEC_LENGTH (arg);
1736 for (i = 0; i < len; ++i)
1737 val = iterative_hash_template_arg (TREE_VEC_ELT (arg, i), val);
1738 return val;
1741 case TYPE_PACK_EXPANSION:
1742 case EXPR_PACK_EXPANSION:
1743 val = iterative_hash_template_arg (PACK_EXPANSION_PATTERN (arg), val);
1744 return iterative_hash_template_arg (PACK_EXPANSION_EXTRA_ARGS (arg), val);
1746 case TYPE_ARGUMENT_PACK:
1747 case NONTYPE_ARGUMENT_PACK:
1748 return iterative_hash_template_arg (ARGUMENT_PACK_ARGS (arg), val);
1750 case TREE_LIST:
1751 for (; arg; arg = TREE_CHAIN (arg))
1752 val = iterative_hash_template_arg (TREE_VALUE (arg), val);
1753 return val;
1755 case OVERLOAD:
1756 for (; arg; arg = OVL_NEXT (arg))
1757 val = iterative_hash_template_arg (OVL_CURRENT (arg), val);
1758 return val;
1760 case CONSTRUCTOR:
1762 tree field, value;
1763 iterative_hash_template_arg (TREE_TYPE (arg), val);
1764 FOR_EACH_CONSTRUCTOR_ELT (CONSTRUCTOR_ELTS (arg), i, field, value)
1766 val = iterative_hash_template_arg (field, val);
1767 val = iterative_hash_template_arg (value, val);
1769 return val;
1772 case PARM_DECL:
1773 if (!DECL_ARTIFICIAL (arg))
1775 val = iterative_hash_object (DECL_PARM_INDEX (arg), val);
1776 val = iterative_hash_object (DECL_PARM_LEVEL (arg), val);
1778 return iterative_hash_template_arg (TREE_TYPE (arg), val);
1780 case TARGET_EXPR:
1781 return iterative_hash_template_arg (TARGET_EXPR_INITIAL (arg), val);
1783 case PTRMEM_CST:
1784 val = iterative_hash_template_arg (PTRMEM_CST_CLASS (arg), val);
1785 return iterative_hash_template_arg (PTRMEM_CST_MEMBER (arg), val);
1787 case TEMPLATE_PARM_INDEX:
1788 val = iterative_hash_template_arg
1789 (TREE_TYPE (TEMPLATE_PARM_DECL (arg)), val);
1790 val = iterative_hash_object (TEMPLATE_PARM_LEVEL (arg), val);
1791 return iterative_hash_object (TEMPLATE_PARM_IDX (arg), val);
1793 case TRAIT_EXPR:
1794 val = iterative_hash_object (TRAIT_EXPR_KIND (arg), val);
1795 val = iterative_hash_template_arg (TRAIT_EXPR_TYPE1 (arg), val);
1796 return iterative_hash_template_arg (TRAIT_EXPR_TYPE2 (arg), val);
1798 case BASELINK:
1799 val = iterative_hash_template_arg (BINFO_TYPE (BASELINK_BINFO (arg)),
1800 val);
1801 return iterative_hash_template_arg (DECL_NAME (get_first_fn (arg)),
1802 val);
1804 case MODOP_EXPR:
1805 val = iterative_hash_template_arg (TREE_OPERAND (arg, 0), val);
1806 code = TREE_CODE (TREE_OPERAND (arg, 1));
1807 val = iterative_hash_object (code, val);
1808 return iterative_hash_template_arg (TREE_OPERAND (arg, 2), val);
1810 case LAMBDA_EXPR:
1811 /* A lambda can't appear in a template arg, but don't crash on
1812 erroneous input. */
1813 gcc_assert (seen_error ());
1814 return val;
1816 case CAST_EXPR:
1817 case IMPLICIT_CONV_EXPR:
1818 case STATIC_CAST_EXPR:
1819 case REINTERPRET_CAST_EXPR:
1820 case CONST_CAST_EXPR:
1821 case DYNAMIC_CAST_EXPR:
1822 case NEW_EXPR:
1823 val = iterative_hash_template_arg (TREE_TYPE (arg), val);
1824 /* Now hash operands as usual. */
1825 break;
1827 default:
1828 break;
1831 switch (tclass)
1833 case tcc_type:
1834 if (alias_template_specialization_p (arg))
1836 // We want an alias specialization that survived strip_typedefs
1837 // to hash differently from its TYPE_CANONICAL, to avoid hash
1838 // collisions that compare as different in template_args_equal.
1839 // These could be dependent specializations that strip_typedefs
1840 // left alone, or untouched specializations because
1841 // coerce_template_parms returns the unconverted template
1842 // arguments if it sees incomplete argument packs.
1843 tree ti = TYPE_TEMPLATE_INFO (arg);
1844 return hash_tmpl_and_args (TI_TEMPLATE (ti), TI_ARGS (ti));
1846 if (TYPE_CANONICAL (arg))
1847 return iterative_hash_object (TYPE_HASH (TYPE_CANONICAL (arg)),
1848 val);
1849 else if (TREE_CODE (arg) == DECLTYPE_TYPE)
1850 return iterative_hash_template_arg (DECLTYPE_TYPE_EXPR (arg), val);
1851 /* Otherwise just compare the types during lookup. */
1852 return val;
1854 case tcc_declaration:
1855 case tcc_constant:
1856 return iterative_hash_expr (arg, val);
1858 default:
1859 gcc_assert (IS_EXPR_CODE_CLASS (tclass));
1861 unsigned n = cp_tree_operand_length (arg);
1862 for (i = 0; i < n; ++i)
1863 val = iterative_hash_template_arg (TREE_OPERAND (arg, i), val);
1864 return val;
1867 gcc_unreachable ();
1868 return 0;
1871 /* Unregister the specialization SPEC as a specialization of TMPL.
1872 Replace it with NEW_SPEC, if NEW_SPEC is non-NULL. Returns true
1873 if the SPEC was listed as a specialization of TMPL.
1875 Note that SPEC has been ggc_freed, so we can't look inside it. */
1877 bool
1878 reregister_specialization (tree spec, tree tinfo, tree new_spec)
1880 spec_entry *entry;
1881 spec_entry elt;
1883 elt.tmpl = most_general_template (TI_TEMPLATE (tinfo));
1884 elt.args = TI_ARGS (tinfo);
1885 elt.spec = NULL_TREE;
1887 entry = decl_specializations->find (&elt);
1888 if (entry != NULL)
1890 gcc_assert (entry->spec == spec || entry->spec == new_spec);
1891 gcc_assert (new_spec != NULL_TREE);
1892 entry->spec = new_spec;
1893 return 1;
1896 return 0;
1899 /* Like register_specialization, but for local declarations. We are
1900 registering SPEC, an instantiation of TMPL. */
1902 void
1903 register_local_specialization (tree spec, tree tmpl)
1905 local_specializations->put (tmpl, spec);
1908 /* TYPE is a class type. Returns true if TYPE is an explicitly
1909 specialized class. */
1911 bool
1912 explicit_class_specialization_p (tree type)
1914 if (!CLASSTYPE_TEMPLATE_SPECIALIZATION (type))
1915 return false;
1916 return !uses_template_parms (CLASSTYPE_TI_ARGS (type));
1919 /* Print the list of functions at FNS, going through all the overloads
1920 for each element of the list. Alternatively, FNS can not be a
1921 TREE_LIST, in which case it will be printed together with all the
1922 overloads.
1924 MORE and *STR should respectively be FALSE and NULL when the function
1925 is called from the outside. They are used internally on recursive
1926 calls. print_candidates manages the two parameters and leaves NULL
1927 in *STR when it ends. */
1929 static void
1930 print_candidates_1 (tree fns, bool more, const char **str)
1932 tree fn, fn2;
1933 char *spaces = NULL;
1935 for (fn = fns; fn; fn = OVL_NEXT (fn))
1936 if (TREE_CODE (fn) == TREE_LIST)
1938 for (fn2 = fn; fn2 != NULL_TREE; fn2 = TREE_CHAIN (fn2))
1939 print_candidates_1 (TREE_VALUE (fn2),
1940 TREE_CHAIN (fn2) || more, str);
1942 else
1944 tree cand = OVL_CURRENT (fn);
1945 if (!*str)
1947 /* Pick the prefix string. */
1948 if (!more && !OVL_NEXT (fns))
1950 inform (DECL_SOURCE_LOCATION (cand),
1951 "candidate is: %#D", cand);
1952 continue;
1955 *str = _("candidates are:");
1956 spaces = get_spaces (*str);
1958 inform (DECL_SOURCE_LOCATION (cand), "%s %#D", *str, cand);
1959 *str = spaces ? spaces : *str;
1962 if (!more)
1964 free (spaces);
1965 *str = NULL;
1969 /* Print the list of candidate FNS in an error message. FNS can also
1970 be a TREE_LIST of non-functions in the case of an ambiguous lookup. */
1972 void
1973 print_candidates (tree fns)
1975 const char *str = NULL;
1976 print_candidates_1 (fns, false, &str);
1977 gcc_assert (str == NULL);
1980 /* Get a (possibly) constrained template declaration for the
1981 purpose of ordering candidates. */
1982 static tree
1983 get_template_for_ordering (tree list)
1985 gcc_assert (TREE_CODE (list) == TREE_LIST);
1986 tree f = TREE_VALUE (list);
1987 if (tree ti = DECL_TEMPLATE_INFO (f))
1988 return TI_TEMPLATE (ti);
1989 return f;
1992 /* Among candidates having the same signature, return the
1993 most constrained or NULL_TREE if there is no best candidate.
1994 If the signatures of candidates vary (e.g., template
1995 specialization vs. member function), then there can be no
1996 most constrained.
1998 Note that we don't compare constraints on the functions
1999 themselves, but rather those of their templates. */
2000 static tree
2001 most_constrained_function (tree candidates)
2003 // Try to find the best candidate in a first pass.
2004 tree champ = candidates;
2005 for (tree c = TREE_CHAIN (champ); c; c = TREE_CHAIN (c))
2007 int winner = more_constrained (get_template_for_ordering (champ),
2008 get_template_for_ordering (c));
2009 if (winner == -1)
2010 champ = c; // The candidate is more constrained
2011 else if (winner == 0)
2012 return NULL_TREE; // Neither is more constrained
2015 // Verify that the champ is better than previous candidates.
2016 for (tree c = candidates; c != champ; c = TREE_CHAIN (c)) {
2017 if (!more_constrained (get_template_for_ordering (champ),
2018 get_template_for_ordering (c)))
2019 return NULL_TREE;
2022 return champ;
2026 /* Returns the template (one of the functions given by TEMPLATE_ID)
2027 which can be specialized to match the indicated DECL with the
2028 explicit template args given in TEMPLATE_ID. The DECL may be
2029 NULL_TREE if none is available. In that case, the functions in
2030 TEMPLATE_ID are non-members.
2032 If NEED_MEMBER_TEMPLATE is nonzero the function is known to be a
2033 specialization of a member template.
2035 The TEMPLATE_COUNT is the number of references to qualifying
2036 template classes that appeared in the name of the function. See
2037 check_explicit_specialization for a more accurate description.
2039 TSK indicates what kind of template declaration (if any) is being
2040 declared. TSK_TEMPLATE indicates that the declaration given by
2041 DECL, though a FUNCTION_DECL, has template parameters, and is
2042 therefore a template function.
2044 The template args (those explicitly specified and those deduced)
2045 are output in a newly created vector *TARGS_OUT.
2047 If it is impossible to determine the result, an error message is
2048 issued. The error_mark_node is returned to indicate failure. */
2050 static tree
2051 determine_specialization (tree template_id,
2052 tree decl,
2053 tree* targs_out,
2054 int need_member_template,
2055 int template_count,
2056 tmpl_spec_kind tsk)
2058 tree fns;
2059 tree targs;
2060 tree explicit_targs;
2061 tree candidates = NULL_TREE;
2063 /* A TREE_LIST of templates of which DECL may be a specialization.
2064 The TREE_VALUE of each node is a TEMPLATE_DECL. The
2065 corresponding TREE_PURPOSE is the set of template arguments that,
2066 when used to instantiate the template, would produce a function
2067 with the signature of DECL. */
2068 tree templates = NULL_TREE;
2069 int header_count;
2070 cp_binding_level *b;
2072 *targs_out = NULL_TREE;
2074 if (template_id == error_mark_node || decl == error_mark_node)
2075 return error_mark_node;
2077 /* We shouldn't be specializing a member template of an
2078 unspecialized class template; we already gave an error in
2079 check_specialization_scope, now avoid crashing. */
2080 if (template_count && DECL_CLASS_SCOPE_P (decl)
2081 && template_class_depth (DECL_CONTEXT (decl)) > 0)
2083 gcc_assert (errorcount);
2084 return error_mark_node;
2087 fns = TREE_OPERAND (template_id, 0);
2088 explicit_targs = TREE_OPERAND (template_id, 1);
2090 if (fns == error_mark_node)
2091 return error_mark_node;
2093 /* Check for baselinks. */
2094 if (BASELINK_P (fns))
2095 fns = BASELINK_FUNCTIONS (fns);
2097 if (TREE_CODE (decl) == FUNCTION_DECL && !is_overloaded_fn (fns))
2099 error ("%qD is not a function template", fns);
2100 return error_mark_node;
2102 else if (VAR_P (decl) && !variable_template_p (fns))
2104 error ("%qD is not a variable template", fns);
2105 return error_mark_node;
2108 /* Count the number of template headers specified for this
2109 specialization. */
2110 header_count = 0;
2111 for (b = current_binding_level;
2112 b->kind == sk_template_parms;
2113 b = b->level_chain)
2114 ++header_count;
2116 tree orig_fns = fns;
2118 if (variable_template_p (fns))
2120 tree parms = INNERMOST_TEMPLATE_PARMS (DECL_TEMPLATE_PARMS (fns));
2121 targs = coerce_template_parms (parms, explicit_targs, fns,
2122 tf_warning_or_error,
2123 /*req_all*/true, /*use_defarg*/true);
2124 if (targs != error_mark_node)
2125 templates = tree_cons (targs, fns, templates);
2127 else for (; fns; fns = OVL_NEXT (fns))
2129 tree fn = OVL_CURRENT (fns);
2131 if (TREE_CODE (fn) == TEMPLATE_DECL)
2133 tree decl_arg_types;
2134 tree fn_arg_types;
2135 tree insttype;
2137 /* In case of explicit specialization, we need to check if
2138 the number of template headers appearing in the specialization
2139 is correct. This is usually done in check_explicit_specialization,
2140 but the check done there cannot be exhaustive when specializing
2141 member functions. Consider the following code:
2143 template <> void A<int>::f(int);
2144 template <> template <> void A<int>::f(int);
2146 Assuming that A<int> is not itself an explicit specialization
2147 already, the first line specializes "f" which is a non-template
2148 member function, whilst the second line specializes "f" which
2149 is a template member function. So both lines are syntactically
2150 correct, and check_explicit_specialization does not reject
2151 them.
2153 Here, we can do better, as we are matching the specialization
2154 against the declarations. We count the number of template
2155 headers, and we check if they match TEMPLATE_COUNT + 1
2156 (TEMPLATE_COUNT is the number of qualifying template classes,
2157 plus there must be another header for the member template
2158 itself).
2160 Notice that if header_count is zero, this is not a
2161 specialization but rather a template instantiation, so there
2162 is no check we can perform here. */
2163 if (header_count && header_count != template_count + 1)
2164 continue;
2166 /* Check that the number of template arguments at the
2167 innermost level for DECL is the same as for FN. */
2168 if (current_binding_level->kind == sk_template_parms
2169 && !current_binding_level->explicit_spec_p
2170 && (TREE_VEC_LENGTH (DECL_INNERMOST_TEMPLATE_PARMS (fn))
2171 != TREE_VEC_LENGTH (INNERMOST_TEMPLATE_PARMS
2172 (current_template_parms))))
2173 continue;
2175 /* DECL might be a specialization of FN. */
2176 decl_arg_types = TYPE_ARG_TYPES (TREE_TYPE (decl));
2177 fn_arg_types = TYPE_ARG_TYPES (TREE_TYPE (fn));
2179 /* For a non-static member function, we need to make sure
2180 that the const qualification is the same. Since
2181 get_bindings does not try to merge the "this" parameter,
2182 we must do the comparison explicitly. */
2183 if (DECL_NONSTATIC_MEMBER_FUNCTION_P (fn)
2184 && !same_type_p (TREE_VALUE (fn_arg_types),
2185 TREE_VALUE (decl_arg_types)))
2186 continue;
2188 /* Skip the "this" parameter and, for constructors of
2189 classes with virtual bases, the VTT parameter. A
2190 full specialization of a constructor will have a VTT
2191 parameter, but a template never will. */
2192 decl_arg_types
2193 = skip_artificial_parms_for (decl, decl_arg_types);
2194 fn_arg_types
2195 = skip_artificial_parms_for (fn, fn_arg_types);
2197 /* Function templates cannot be specializations; there are
2198 no partial specializations of functions. Therefore, if
2199 the type of DECL does not match FN, there is no
2200 match.
2202 Note that it should never be the case that we have both
2203 candidates added here, and for regular member functions
2204 below. */
2205 if (tsk == tsk_template)
2207 if (compparms (fn_arg_types, decl_arg_types))
2208 candidates = tree_cons (NULL_TREE, fn, candidates);
2209 continue;
2212 /* See whether this function might be a specialization of this
2213 template. Suppress access control because we might be trying
2214 to make this specialization a friend, and we have already done
2215 access control for the declaration of the specialization. */
2216 push_deferring_access_checks (dk_no_check);
2217 targs = get_bindings (fn, decl, explicit_targs, /*check_ret=*/true);
2218 pop_deferring_access_checks ();
2220 if (!targs)
2221 /* We cannot deduce template arguments that when used to
2222 specialize TMPL will produce DECL. */
2223 continue;
2225 /* Remove, from the set of candidates, all those functions
2226 whose constraints are not satisfied. */
2227 if (flag_concepts && !constraints_satisfied_p (fn, targs))
2228 continue;
2230 // Then, try to form the new function type.
2231 insttype = tsubst (TREE_TYPE (fn), targs, tf_none, NULL_TREE);
2232 if (insttype == error_mark_node)
2233 continue;
2234 fn_arg_types
2235 = skip_artificial_parms_for (fn, TYPE_ARG_TYPES (insttype));
2236 if (!compparms (fn_arg_types, decl_arg_types))
2237 continue;
2239 /* Save this template, and the arguments deduced. */
2240 templates = tree_cons (targs, fn, templates);
2242 else if (need_member_template)
2243 /* FN is an ordinary member function, and we need a
2244 specialization of a member template. */
2246 else if (TREE_CODE (fn) != FUNCTION_DECL)
2247 /* We can get IDENTIFIER_NODEs here in certain erroneous
2248 cases. */
2250 else if (!DECL_FUNCTION_MEMBER_P (fn))
2251 /* This is just an ordinary non-member function. Nothing can
2252 be a specialization of that. */
2254 else if (DECL_ARTIFICIAL (fn))
2255 /* Cannot specialize functions that are created implicitly. */
2257 else
2259 tree decl_arg_types;
2261 /* This is an ordinary member function. However, since
2262 we're here, we can assume its enclosing class is a
2263 template class. For example,
2265 template <typename T> struct S { void f(); };
2266 template <> void S<int>::f() {}
2268 Here, S<int>::f is a non-template, but S<int> is a
2269 template class. If FN has the same type as DECL, we
2270 might be in business. */
2272 if (!DECL_TEMPLATE_INFO (fn))
2273 /* Its enclosing class is an explicit specialization
2274 of a template class. This is not a candidate. */
2275 continue;
2277 if (!same_type_p (TREE_TYPE (TREE_TYPE (decl)),
2278 TREE_TYPE (TREE_TYPE (fn))))
2279 /* The return types differ. */
2280 continue;
2282 /* Adjust the type of DECL in case FN is a static member. */
2283 decl_arg_types = TYPE_ARG_TYPES (TREE_TYPE (decl));
2284 if (DECL_STATIC_FUNCTION_P (fn)
2285 && DECL_NONSTATIC_MEMBER_FUNCTION_P (decl))
2286 decl_arg_types = TREE_CHAIN (decl_arg_types);
2288 if (!compparms (TYPE_ARG_TYPES (TREE_TYPE (fn)),
2289 decl_arg_types))
2290 continue;
2292 // If the deduced arguments do not satisfy the constraints,
2293 // this is not a candidate.
2294 if (flag_concepts && !constraints_satisfied_p (fn))
2295 continue;
2297 // Add the candidate.
2298 candidates = tree_cons (NULL_TREE, fn, candidates);
2302 if (templates && TREE_CHAIN (templates))
2304 /* We have:
2306 [temp.expl.spec]
2308 It is possible for a specialization with a given function
2309 signature to be instantiated from more than one function
2310 template. In such cases, explicit specification of the
2311 template arguments must be used to uniquely identify the
2312 function template specialization being specialized.
2314 Note that here, there's no suggestion that we're supposed to
2315 determine which of the candidate templates is most
2316 specialized. However, we, also have:
2318 [temp.func.order]
2320 Partial ordering of overloaded function template
2321 declarations is used in the following contexts to select
2322 the function template to which a function template
2323 specialization refers:
2325 -- when an explicit specialization refers to a function
2326 template.
2328 So, we do use the partial ordering rules, at least for now.
2329 This extension can only serve to make invalid programs valid,
2330 so it's safe. And, there is strong anecdotal evidence that
2331 the committee intended the partial ordering rules to apply;
2332 the EDG front end has that behavior, and John Spicer claims
2333 that the committee simply forgot to delete the wording in
2334 [temp.expl.spec]. */
2335 tree tmpl = most_specialized_instantiation (templates);
2336 if (tmpl != error_mark_node)
2338 templates = tmpl;
2339 TREE_CHAIN (templates) = NULL_TREE;
2343 // Concepts allows multiple declarations of member functions
2344 // with the same signature. Like above, we need to rely on
2345 // on the partial ordering of those candidates to determine which
2346 // is the best.
2347 if (flag_concepts && candidates && TREE_CHAIN (candidates))
2349 if (tree cand = most_constrained_function (candidates))
2351 candidates = cand;
2352 TREE_CHAIN (cand) = NULL_TREE;
2356 if (templates == NULL_TREE && candidates == NULL_TREE)
2358 error ("template-id %qD for %q+D does not match any template "
2359 "declaration", template_id, decl);
2360 if (header_count && header_count != template_count + 1)
2361 inform (input_location, "saw %d %<template<>%>, need %d for "
2362 "specializing a member function template",
2363 header_count, template_count + 1);
2364 else
2365 print_candidates (orig_fns);
2366 return error_mark_node;
2368 else if ((templates && TREE_CHAIN (templates))
2369 || (candidates && TREE_CHAIN (candidates))
2370 || (templates && candidates))
2372 error ("ambiguous template specialization %qD for %q+D",
2373 template_id, decl);
2374 candidates = chainon (candidates, templates);
2375 print_candidates (candidates);
2376 return error_mark_node;
2379 /* We have one, and exactly one, match. */
2380 if (candidates)
2382 tree fn = TREE_VALUE (candidates);
2383 *targs_out = copy_node (DECL_TI_ARGS (fn));
2385 // Propagate the candidate's constraints to the declaration.
2386 set_constraints (decl, get_constraints (fn));
2388 /* DECL is a re-declaration or partial instantiation of a template
2389 function. */
2390 if (TREE_CODE (fn) == TEMPLATE_DECL)
2391 return fn;
2392 /* It was a specialization of an ordinary member function in a
2393 template class. */
2394 return DECL_TI_TEMPLATE (fn);
2397 /* It was a specialization of a template. */
2398 targs = DECL_TI_ARGS (DECL_TEMPLATE_RESULT (TREE_VALUE (templates)));
2399 if (TMPL_ARGS_HAVE_MULTIPLE_LEVELS (targs))
2401 *targs_out = copy_node (targs);
2402 SET_TMPL_ARGS_LEVEL (*targs_out,
2403 TMPL_ARGS_DEPTH (*targs_out),
2404 TREE_PURPOSE (templates));
2406 else
2407 *targs_out = TREE_PURPOSE (templates);
2408 return TREE_VALUE (templates);
2411 /* Returns a chain of parameter types, exactly like the SPEC_TYPES,
2412 but with the default argument values filled in from those in the
2413 TMPL_TYPES. */
2415 static tree
2416 copy_default_args_to_explicit_spec_1 (tree spec_types,
2417 tree tmpl_types)
2419 tree new_spec_types;
2421 if (!spec_types)
2422 return NULL_TREE;
2424 if (spec_types == void_list_node)
2425 return void_list_node;
2427 /* Substitute into the rest of the list. */
2428 new_spec_types =
2429 copy_default_args_to_explicit_spec_1 (TREE_CHAIN (spec_types),
2430 TREE_CHAIN (tmpl_types));
2432 /* Add the default argument for this parameter. */
2433 return hash_tree_cons (TREE_PURPOSE (tmpl_types),
2434 TREE_VALUE (spec_types),
2435 new_spec_types);
2438 /* DECL is an explicit specialization. Replicate default arguments
2439 from the template it specializes. (That way, code like:
2441 template <class T> void f(T = 3);
2442 template <> void f(double);
2443 void g () { f (); }
2445 works, as required.) An alternative approach would be to look up
2446 the correct default arguments at the call-site, but this approach
2447 is consistent with how implicit instantiations are handled. */
2449 static void
2450 copy_default_args_to_explicit_spec (tree decl)
2452 tree tmpl;
2453 tree spec_types;
2454 tree tmpl_types;
2455 tree new_spec_types;
2456 tree old_type;
2457 tree new_type;
2458 tree t;
2459 tree object_type = NULL_TREE;
2460 tree in_charge = NULL_TREE;
2461 tree vtt = NULL_TREE;
2463 /* See if there's anything we need to do. */
2464 tmpl = DECL_TI_TEMPLATE (decl);
2465 tmpl_types = TYPE_ARG_TYPES (TREE_TYPE (DECL_TEMPLATE_RESULT (tmpl)));
2466 for (t = tmpl_types; t; t = TREE_CHAIN (t))
2467 if (TREE_PURPOSE (t))
2468 break;
2469 if (!t)
2470 return;
2472 old_type = TREE_TYPE (decl);
2473 spec_types = TYPE_ARG_TYPES (old_type);
2475 if (DECL_NONSTATIC_MEMBER_FUNCTION_P (decl))
2477 /* Remove the this pointer, but remember the object's type for
2478 CV quals. */
2479 object_type = TREE_TYPE (TREE_VALUE (spec_types));
2480 spec_types = TREE_CHAIN (spec_types);
2481 tmpl_types = TREE_CHAIN (tmpl_types);
2483 if (DECL_HAS_IN_CHARGE_PARM_P (decl))
2485 /* DECL may contain more parameters than TMPL due to the extra
2486 in-charge parameter in constructors and destructors. */
2487 in_charge = spec_types;
2488 spec_types = TREE_CHAIN (spec_types);
2490 if (DECL_HAS_VTT_PARM_P (decl))
2492 vtt = spec_types;
2493 spec_types = TREE_CHAIN (spec_types);
2497 /* Compute the merged default arguments. */
2498 new_spec_types =
2499 copy_default_args_to_explicit_spec_1 (spec_types, tmpl_types);
2501 /* Compute the new FUNCTION_TYPE. */
2502 if (object_type)
2504 if (vtt)
2505 new_spec_types = hash_tree_cons (TREE_PURPOSE (vtt),
2506 TREE_VALUE (vtt),
2507 new_spec_types);
2509 if (in_charge)
2510 /* Put the in-charge parameter back. */
2511 new_spec_types = hash_tree_cons (TREE_PURPOSE (in_charge),
2512 TREE_VALUE (in_charge),
2513 new_spec_types);
2515 new_type = build_method_type_directly (object_type,
2516 TREE_TYPE (old_type),
2517 new_spec_types);
2519 else
2520 new_type = build_function_type (TREE_TYPE (old_type),
2521 new_spec_types);
2522 new_type = cp_build_type_attribute_variant (new_type,
2523 TYPE_ATTRIBUTES (old_type));
2524 new_type = build_exception_variant (new_type,
2525 TYPE_RAISES_EXCEPTIONS (old_type));
2527 if (TYPE_HAS_LATE_RETURN_TYPE (old_type))
2528 TYPE_HAS_LATE_RETURN_TYPE (new_type) = 1;
2530 TREE_TYPE (decl) = new_type;
2533 /* Return the number of template headers we expect to see for a definition
2534 or specialization of CTYPE or one of its non-template members. */
2537 num_template_headers_for_class (tree ctype)
2539 int num_templates = 0;
2541 while (ctype && CLASS_TYPE_P (ctype))
2543 /* You're supposed to have one `template <...>' for every
2544 template class, but you don't need one for a full
2545 specialization. For example:
2547 template <class T> struct S{};
2548 template <> struct S<int> { void f(); };
2549 void S<int>::f () {}
2551 is correct; there shouldn't be a `template <>' for the
2552 definition of `S<int>::f'. */
2553 if (!CLASSTYPE_TEMPLATE_INFO (ctype))
2554 /* If CTYPE does not have template information of any
2555 kind, then it is not a template, nor is it nested
2556 within a template. */
2557 break;
2558 if (explicit_class_specialization_p (ctype))
2559 break;
2560 if (PRIMARY_TEMPLATE_P (CLASSTYPE_TI_TEMPLATE (ctype)))
2561 ++num_templates;
2563 ctype = TYPE_CONTEXT (ctype);
2566 return num_templates;
2569 /* Do a simple sanity check on the template headers that precede the
2570 variable declaration DECL. */
2572 void
2573 check_template_variable (tree decl)
2575 tree ctx = CP_DECL_CONTEXT (decl);
2576 int wanted = num_template_headers_for_class (ctx);
2577 if (DECL_LANG_SPECIFIC (decl) && DECL_TEMPLATE_INFO (decl)
2578 && PRIMARY_TEMPLATE_P (DECL_TI_TEMPLATE (decl)))
2580 if (cxx_dialect < cxx14)
2581 pedwarn (DECL_SOURCE_LOCATION (decl), 0,
2582 "variable templates only available with "
2583 "-std=c++14 or -std=gnu++14");
2585 // Namespace-scope variable templates should have a template header.
2586 ++wanted;
2588 if (template_header_count > wanted)
2590 bool warned = pedwarn (DECL_SOURCE_LOCATION (decl), 0,
2591 "too many template headers for %D (should be %d)",
2592 decl, wanted);
2593 if (warned && CLASS_TYPE_P (ctx)
2594 && CLASSTYPE_TEMPLATE_SPECIALIZATION (ctx))
2595 inform (DECL_SOURCE_LOCATION (decl),
2596 "members of an explicitly specialized class are defined "
2597 "without a template header");
2601 /* Check to see if the function just declared, as indicated in
2602 DECLARATOR, and in DECL, is a specialization of a function
2603 template. We may also discover that the declaration is an explicit
2604 instantiation at this point.
2606 Returns DECL, or an equivalent declaration that should be used
2607 instead if all goes well. Issues an error message if something is
2608 amiss. Returns error_mark_node if the error is not easily
2609 recoverable.
2611 FLAGS is a bitmask consisting of the following flags:
2613 2: The function has a definition.
2614 4: The function is a friend.
2616 The TEMPLATE_COUNT is the number of references to qualifying
2617 template classes that appeared in the name of the function. For
2618 example, in
2620 template <class T> struct S { void f(); };
2621 void S<int>::f();
2623 the TEMPLATE_COUNT would be 1. However, explicitly specialized
2624 classes are not counted in the TEMPLATE_COUNT, so that in
2626 template <class T> struct S {};
2627 template <> struct S<int> { void f(); }
2628 template <> void S<int>::f();
2630 the TEMPLATE_COUNT would be 0. (Note that this declaration is
2631 invalid; there should be no template <>.)
2633 If the function is a specialization, it is marked as such via
2634 DECL_TEMPLATE_SPECIALIZATION. Furthermore, its DECL_TEMPLATE_INFO
2635 is set up correctly, and it is added to the list of specializations
2636 for that template. */
2638 tree
2639 check_explicit_specialization (tree declarator,
2640 tree decl,
2641 int template_count,
2642 int flags)
2644 int have_def = flags & 2;
2645 int is_friend = flags & 4;
2646 bool is_concept = flags & 8;
2647 int specialization = 0;
2648 int explicit_instantiation = 0;
2649 int member_specialization = 0;
2650 tree ctype = DECL_CLASS_CONTEXT (decl);
2651 tree dname = DECL_NAME (decl);
2652 tmpl_spec_kind tsk;
2654 if (is_friend)
2656 if (!processing_specialization)
2657 tsk = tsk_none;
2658 else
2659 tsk = tsk_excessive_parms;
2661 else
2662 tsk = current_tmpl_spec_kind (template_count);
2664 switch (tsk)
2666 case tsk_none:
2667 if (processing_specialization && !VAR_P (decl))
2669 specialization = 1;
2670 SET_DECL_TEMPLATE_SPECIALIZATION (decl);
2672 else if (TREE_CODE (declarator) == TEMPLATE_ID_EXPR)
2674 if (is_friend)
2675 /* This could be something like:
2677 template <class T> void f(T);
2678 class S { friend void f<>(int); } */
2679 specialization = 1;
2680 else
2682 /* This case handles bogus declarations like template <>
2683 template <class T> void f<int>(); */
2685 error ("template-id %qD in declaration of primary template",
2686 declarator);
2687 return decl;
2690 break;
2692 case tsk_invalid_member_spec:
2693 /* The error has already been reported in
2694 check_specialization_scope. */
2695 return error_mark_node;
2697 case tsk_invalid_expl_inst:
2698 error ("template parameter list used in explicit instantiation");
2700 /* Fall through. */
2702 case tsk_expl_inst:
2703 if (have_def)
2704 error ("definition provided for explicit instantiation");
2706 explicit_instantiation = 1;
2707 break;
2709 case tsk_excessive_parms:
2710 case tsk_insufficient_parms:
2711 if (tsk == tsk_excessive_parms)
2712 error ("too many template parameter lists in declaration of %qD",
2713 decl);
2714 else if (template_header_count)
2715 error("too few template parameter lists in declaration of %qD", decl);
2716 else
2717 error("explicit specialization of %qD must be introduced by "
2718 "%<template <>%>", decl);
2720 /* Fall through. */
2721 case tsk_expl_spec:
2722 if (is_concept)
2723 error ("explicit specialization declared %<concept%>");
2725 if (VAR_P (decl) && TREE_CODE (declarator) != TEMPLATE_ID_EXPR)
2726 /* In cases like template<> constexpr bool v = true;
2727 We'll give an error in check_template_variable. */
2728 break;
2730 SET_DECL_TEMPLATE_SPECIALIZATION (decl);
2731 if (ctype)
2732 member_specialization = 1;
2733 else
2734 specialization = 1;
2735 break;
2737 case tsk_template:
2738 if (TREE_CODE (declarator) == TEMPLATE_ID_EXPR)
2740 /* This case handles bogus declarations like template <>
2741 template <class T> void f<int>(); */
2743 if (!uses_template_parms (declarator))
2744 error ("template-id %qD in declaration of primary template",
2745 declarator);
2746 else if (variable_template_p (TREE_OPERAND (declarator, 0)))
2748 /* Partial specialization of variable template. */
2749 SET_DECL_TEMPLATE_SPECIALIZATION (decl);
2750 specialization = 1;
2751 goto ok;
2753 else if (cxx_dialect < cxx14)
2754 error ("non-type partial specialization %qD "
2755 "is not allowed", declarator);
2756 else
2757 error ("non-class, non-variable partial specialization %qD "
2758 "is not allowed", declarator);
2759 return decl;
2760 ok:;
2763 if (ctype && CLASSTYPE_TEMPLATE_INSTANTIATION (ctype))
2764 /* This is a specialization of a member template, without
2765 specialization the containing class. Something like:
2767 template <class T> struct S {
2768 template <class U> void f (U);
2770 template <> template <class U> void S<int>::f(U) {}
2772 That's a specialization -- but of the entire template. */
2773 specialization = 1;
2774 break;
2776 default:
2777 gcc_unreachable ();
2780 if ((specialization || member_specialization)
2781 /* This doesn't apply to variable templates. */
2782 && (TREE_CODE (TREE_TYPE (decl)) == FUNCTION_TYPE
2783 || TREE_CODE (TREE_TYPE (decl)) == METHOD_TYPE))
2785 tree t = TYPE_ARG_TYPES (TREE_TYPE (decl));
2786 for (; t; t = TREE_CHAIN (t))
2787 if (TREE_PURPOSE (t))
2789 permerror (input_location,
2790 "default argument specified in explicit specialization");
2791 break;
2795 if (specialization || member_specialization || explicit_instantiation)
2797 tree tmpl = NULL_TREE;
2798 tree targs = NULL_TREE;
2799 bool was_template_id = (TREE_CODE (declarator) == TEMPLATE_ID_EXPR);
2801 /* Make sure that the declarator is a TEMPLATE_ID_EXPR. */
2802 if (!was_template_id)
2804 tree fns;
2806 gcc_assert (identifier_p (declarator));
2807 if (ctype)
2808 fns = dname;
2809 else
2811 /* If there is no class context, the explicit instantiation
2812 must be at namespace scope. */
2813 gcc_assert (DECL_NAMESPACE_SCOPE_P (decl));
2815 /* Find the namespace binding, using the declaration
2816 context. */
2817 fns = lookup_qualified_name (CP_DECL_CONTEXT (decl), dname,
2818 false, true);
2819 if (fns == error_mark_node || !is_overloaded_fn (fns))
2821 error ("%qD is not a template function", dname);
2822 fns = error_mark_node;
2824 else
2826 tree fn = OVL_CURRENT (fns);
2827 if (!is_associated_namespace (CP_DECL_CONTEXT (decl),
2828 CP_DECL_CONTEXT (fn)))
2829 error ("%qD is not declared in %qD",
2830 decl, current_namespace);
2834 declarator = lookup_template_function (fns, NULL_TREE);
2837 if (declarator == error_mark_node)
2838 return error_mark_node;
2840 if (ctype != NULL_TREE && TYPE_BEING_DEFINED (ctype))
2842 if (!explicit_instantiation)
2843 /* A specialization in class scope. This is invalid,
2844 but the error will already have been flagged by
2845 check_specialization_scope. */
2846 return error_mark_node;
2847 else
2849 /* It's not valid to write an explicit instantiation in
2850 class scope, e.g.:
2852 class C { template void f(); }
2854 This case is caught by the parser. However, on
2855 something like:
2857 template class C { void f(); };
2859 (which is invalid) we can get here. The error will be
2860 issued later. */
2864 return decl;
2866 else if (ctype != NULL_TREE
2867 && (identifier_p (TREE_OPERAND (declarator, 0))))
2869 // We'll match variable templates in start_decl.
2870 if (VAR_P (decl))
2871 return decl;
2873 /* Find the list of functions in ctype that have the same
2874 name as the declared function. */
2875 tree name = TREE_OPERAND (declarator, 0);
2876 tree fns = NULL_TREE;
2877 int idx;
2879 if (constructor_name_p (name, ctype))
2881 int is_constructor = DECL_CONSTRUCTOR_P (decl);
2883 if (is_constructor ? !TYPE_HAS_USER_CONSTRUCTOR (ctype)
2884 : !CLASSTYPE_DESTRUCTORS (ctype))
2886 /* From [temp.expl.spec]:
2888 If such an explicit specialization for the member
2889 of a class template names an implicitly-declared
2890 special member function (clause _special_), the
2891 program is ill-formed.
2893 Similar language is found in [temp.explicit]. */
2894 error ("specialization of implicitly-declared special member function");
2895 return error_mark_node;
2898 name = is_constructor ? ctor_identifier : dtor_identifier;
2901 if (!DECL_CONV_FN_P (decl))
2903 idx = lookup_fnfields_1 (ctype, name);
2904 if (idx >= 0)
2905 fns = (*CLASSTYPE_METHOD_VEC (ctype))[idx];
2907 else
2909 vec<tree, va_gc> *methods;
2910 tree ovl;
2912 /* For a type-conversion operator, we cannot do a
2913 name-based lookup. We might be looking for `operator
2914 int' which will be a specialization of `operator T'.
2915 So, we find *all* the conversion operators, and then
2916 select from them. */
2917 fns = NULL_TREE;
2919 methods = CLASSTYPE_METHOD_VEC (ctype);
2920 if (methods)
2921 for (idx = CLASSTYPE_FIRST_CONVERSION_SLOT;
2922 methods->iterate (idx, &ovl);
2923 ++idx)
2925 if (!DECL_CONV_FN_P (OVL_CURRENT (ovl)))
2926 /* There are no more conversion functions. */
2927 break;
2929 /* Glue all these conversion functions together
2930 with those we already have. */
2931 for (; ovl; ovl = OVL_NEXT (ovl))
2932 fns = ovl_cons (OVL_CURRENT (ovl), fns);
2936 if (fns == NULL_TREE)
2938 error ("no member function %qD declared in %qT", name, ctype);
2939 return error_mark_node;
2941 else
2942 TREE_OPERAND (declarator, 0) = fns;
2945 /* Figure out what exactly is being specialized at this point.
2946 Note that for an explicit instantiation, even one for a
2947 member function, we cannot tell apriori whether the
2948 instantiation is for a member template, or just a member
2949 function of a template class. Even if a member template is
2950 being instantiated, the member template arguments may be
2951 elided if they can be deduced from the rest of the
2952 declaration. */
2953 tmpl = determine_specialization (declarator, decl,
2954 &targs,
2955 member_specialization,
2956 template_count,
2957 tsk);
2959 if (!tmpl || tmpl == error_mark_node)
2960 /* We couldn't figure out what this declaration was
2961 specializing. */
2962 return error_mark_node;
2963 else
2965 tree gen_tmpl = most_general_template (tmpl);
2967 if (explicit_instantiation)
2969 /* We don't set DECL_EXPLICIT_INSTANTIATION here; that
2970 is done by do_decl_instantiation later. */
2972 int arg_depth = TMPL_ARGS_DEPTH (targs);
2973 int parm_depth = TMPL_PARMS_DEPTH (DECL_TEMPLATE_PARMS (tmpl));
2975 if (arg_depth > parm_depth)
2977 /* If TMPL is not the most general template (for
2978 example, if TMPL is a friend template that is
2979 injected into namespace scope), then there will
2980 be too many levels of TARGS. Remove some of them
2981 here. */
2982 int i;
2983 tree new_targs;
2985 new_targs = make_tree_vec (parm_depth);
2986 for (i = arg_depth - parm_depth; i < arg_depth; ++i)
2987 TREE_VEC_ELT (new_targs, i - (arg_depth - parm_depth))
2988 = TREE_VEC_ELT (targs, i);
2989 targs = new_targs;
2992 return instantiate_template (tmpl, targs, tf_error);
2995 /* If we thought that the DECL was a member function, but it
2996 turns out to be specializing a static member function,
2997 make DECL a static member function as well. */
2998 if (DECL_FUNCTION_TEMPLATE_P (tmpl)
2999 && DECL_STATIC_FUNCTION_P (tmpl)
3000 && DECL_NONSTATIC_MEMBER_FUNCTION_P (decl))
3001 revert_static_member_fn (decl);
3003 /* If this is a specialization of a member template of a
3004 template class, we want to return the TEMPLATE_DECL, not
3005 the specialization of it. */
3006 if (tsk == tsk_template && !was_template_id)
3008 tree result = DECL_TEMPLATE_RESULT (tmpl);
3009 SET_DECL_TEMPLATE_SPECIALIZATION (tmpl);
3010 DECL_INITIAL (result) = NULL_TREE;
3011 if (have_def)
3013 tree parm;
3014 DECL_SOURCE_LOCATION (tmpl) = DECL_SOURCE_LOCATION (decl);
3015 DECL_SOURCE_LOCATION (result)
3016 = DECL_SOURCE_LOCATION (decl);
3017 /* We want to use the argument list specified in the
3018 definition, not in the original declaration. */
3019 DECL_ARGUMENTS (result) = DECL_ARGUMENTS (decl);
3020 for (parm = DECL_ARGUMENTS (result); parm;
3021 parm = DECL_CHAIN (parm))
3022 DECL_CONTEXT (parm) = result;
3024 return register_specialization (tmpl, gen_tmpl, targs,
3025 is_friend, 0);
3028 /* Set up the DECL_TEMPLATE_INFO for DECL. */
3029 DECL_TEMPLATE_INFO (decl) = build_template_info (tmpl, targs);
3031 if (was_template_id)
3032 TINFO_USED_TEMPLATE_ID (DECL_TEMPLATE_INFO (decl)) = true;
3034 /* Inherit default function arguments from the template
3035 DECL is specializing. */
3036 if (DECL_FUNCTION_TEMPLATE_P (tmpl))
3037 copy_default_args_to_explicit_spec (decl);
3039 /* This specialization has the same protection as the
3040 template it specializes. */
3041 TREE_PRIVATE (decl) = TREE_PRIVATE (gen_tmpl);
3042 TREE_PROTECTED (decl) = TREE_PROTECTED (gen_tmpl);
3044 /* 7.1.1-1 [dcl.stc]
3046 A storage-class-specifier shall not be specified in an
3047 explicit specialization...
3049 The parser rejects these, so unless action is taken here,
3050 explicit function specializations will always appear with
3051 global linkage.
3053 The action recommended by the C++ CWG in response to C++
3054 defect report 605 is to make the storage class and linkage
3055 of the explicit specialization match the templated function:
3057 http://www.open-std.org/jtc1/sc22/wg21/docs/cwg_active.html#605
3059 if (tsk == tsk_expl_spec && DECL_FUNCTION_TEMPLATE_P (gen_tmpl))
3061 tree tmpl_func = DECL_TEMPLATE_RESULT (gen_tmpl);
3062 gcc_assert (TREE_CODE (tmpl_func) == FUNCTION_DECL);
3064 /* A concept cannot be specialized. */
3065 if (DECL_DECLARED_CONCEPT_P (tmpl_func))
3067 error ("explicit specialization of function concept %qD",
3068 gen_tmpl);
3069 return error_mark_node;
3072 /* This specialization has the same linkage and visibility as
3073 the function template it specializes. */
3074 TREE_PUBLIC (decl) = TREE_PUBLIC (tmpl_func);
3075 if (! TREE_PUBLIC (decl))
3077 DECL_INTERFACE_KNOWN (decl) = 1;
3078 DECL_NOT_REALLY_EXTERN (decl) = 1;
3080 DECL_THIS_STATIC (decl) = DECL_THIS_STATIC (tmpl_func);
3081 if (DECL_VISIBILITY_SPECIFIED (tmpl_func))
3083 DECL_VISIBILITY_SPECIFIED (decl) = 1;
3084 DECL_VISIBILITY (decl) = DECL_VISIBILITY (tmpl_func);
3088 /* If DECL is a friend declaration, declared using an
3089 unqualified name, the namespace associated with DECL may
3090 have been set incorrectly. For example, in:
3092 template <typename T> void f(T);
3093 namespace N {
3094 struct S { friend void f<int>(int); }
3097 we will have set the DECL_CONTEXT for the friend
3098 declaration to N, rather than to the global namespace. */
3099 if (DECL_NAMESPACE_SCOPE_P (decl))
3100 DECL_CONTEXT (decl) = DECL_CONTEXT (tmpl);
3102 if (is_friend && !have_def)
3103 /* This is not really a declaration of a specialization.
3104 It's just the name of an instantiation. But, it's not
3105 a request for an instantiation, either. */
3106 SET_DECL_IMPLICIT_INSTANTIATION (decl);
3107 else if (TREE_CODE (decl) == FUNCTION_DECL)
3108 /* A specialization is not necessarily COMDAT. */
3109 DECL_COMDAT (decl) = (TREE_PUBLIC (decl)
3110 && DECL_DECLARED_INLINE_P (decl));
3111 else if (VAR_P (decl))
3112 DECL_COMDAT (decl) = false;
3114 /* If this is a full specialization, register it so that we can find
3115 it again. Partial specializations will be registered in
3116 process_partial_specialization. */
3117 if (!processing_template_decl)
3118 decl = register_specialization (decl, gen_tmpl, targs,
3119 is_friend, 0);
3121 /* A 'structor should already have clones. */
3122 gcc_assert (decl == error_mark_node
3123 || variable_template_p (tmpl)
3124 || !(DECL_CONSTRUCTOR_P (decl)
3125 || DECL_DESTRUCTOR_P (decl))
3126 || DECL_CLONED_FUNCTION_P (DECL_CHAIN (decl)));
3130 return decl;
3133 /* Returns 1 iff PARMS1 and PARMS2 are identical sets of template
3134 parameters. These are represented in the same format used for
3135 DECL_TEMPLATE_PARMS. */
3138 comp_template_parms (const_tree parms1, const_tree parms2)
3140 const_tree p1;
3141 const_tree p2;
3143 if (parms1 == parms2)
3144 return 1;
3146 for (p1 = parms1, p2 = parms2;
3147 p1 != NULL_TREE && p2 != NULL_TREE;
3148 p1 = TREE_CHAIN (p1), p2 = TREE_CHAIN (p2))
3150 tree t1 = TREE_VALUE (p1);
3151 tree t2 = TREE_VALUE (p2);
3152 int i;
3154 gcc_assert (TREE_CODE (t1) == TREE_VEC);
3155 gcc_assert (TREE_CODE (t2) == TREE_VEC);
3157 if (TREE_VEC_LENGTH (t1) != TREE_VEC_LENGTH (t2))
3158 return 0;
3160 for (i = 0; i < TREE_VEC_LENGTH (t2); ++i)
3162 tree parm1 = TREE_VALUE (TREE_VEC_ELT (t1, i));
3163 tree parm2 = TREE_VALUE (TREE_VEC_ELT (t2, i));
3165 /* If either of the template parameters are invalid, assume
3166 they match for the sake of error recovery. */
3167 if (error_operand_p (parm1) || error_operand_p (parm2))
3168 return 1;
3170 if (TREE_CODE (parm1) != TREE_CODE (parm2))
3171 return 0;
3173 if (TREE_CODE (parm1) == TEMPLATE_TYPE_PARM
3174 && (TEMPLATE_TYPE_PARAMETER_PACK (parm1)
3175 == TEMPLATE_TYPE_PARAMETER_PACK (parm2)))
3176 continue;
3177 else if (!same_type_p (TREE_TYPE (parm1), TREE_TYPE (parm2)))
3178 return 0;
3182 if ((p1 != NULL_TREE) != (p2 != NULL_TREE))
3183 /* One set of parameters has more parameters lists than the
3184 other. */
3185 return 0;
3187 return 1;
3190 /* Determine whether PARM is a parameter pack. */
3192 bool
3193 template_parameter_pack_p (const_tree parm)
3195 /* Determine if we have a non-type template parameter pack. */
3196 if (TREE_CODE (parm) == PARM_DECL)
3197 return (DECL_TEMPLATE_PARM_P (parm)
3198 && TEMPLATE_PARM_PARAMETER_PACK (DECL_INITIAL (parm)));
3199 if (TREE_CODE (parm) == TEMPLATE_PARM_INDEX)
3200 return TEMPLATE_PARM_PARAMETER_PACK (parm);
3202 /* If this is a list of template parameters, we could get a
3203 TYPE_DECL or a TEMPLATE_DECL. */
3204 if (TREE_CODE (parm) == TYPE_DECL || TREE_CODE (parm) == TEMPLATE_DECL)
3205 parm = TREE_TYPE (parm);
3207 /* Otherwise it must be a type template parameter. */
3208 return ((TREE_CODE (parm) == TEMPLATE_TYPE_PARM
3209 || TREE_CODE (parm) == TEMPLATE_TEMPLATE_PARM)
3210 && TEMPLATE_TYPE_PARAMETER_PACK (parm));
3213 /* Determine if T is a function parameter pack. */
3215 bool
3216 function_parameter_pack_p (const_tree t)
3218 if (t && TREE_CODE (t) == PARM_DECL)
3219 return DECL_PACK_P (t);
3220 return false;
3223 /* Return the function template declaration of PRIMARY_FUNC_TMPL_INST.
3224 PRIMARY_FUNC_TMPL_INST is a primary function template instantiation. */
3226 tree
3227 get_function_template_decl (const_tree primary_func_tmpl_inst)
3229 if (! primary_func_tmpl_inst
3230 || TREE_CODE (primary_func_tmpl_inst) != FUNCTION_DECL
3231 || ! primary_template_instantiation_p (primary_func_tmpl_inst))
3232 return NULL;
3234 return DECL_TEMPLATE_RESULT (DECL_TI_TEMPLATE (primary_func_tmpl_inst));
3237 /* Return true iff the function parameter PARAM_DECL was expanded
3238 from the function parameter pack PACK. */
3240 bool
3241 function_parameter_expanded_from_pack_p (tree param_decl, tree pack)
3243 if (DECL_ARTIFICIAL (param_decl)
3244 || !function_parameter_pack_p (pack))
3245 return false;
3247 /* The parameter pack and its pack arguments have the same
3248 DECL_PARM_INDEX. */
3249 return DECL_PARM_INDEX (pack) == DECL_PARM_INDEX (param_decl);
3252 /* Determine whether ARGS describes a variadic template args list,
3253 i.e., one that is terminated by a template argument pack. */
3255 static bool
3256 template_args_variadic_p (tree args)
3258 int nargs;
3259 tree last_parm;
3261 if (args == NULL_TREE)
3262 return false;
3264 args = INNERMOST_TEMPLATE_ARGS (args);
3265 nargs = TREE_VEC_LENGTH (args);
3267 if (nargs == 0)
3268 return false;
3270 last_parm = TREE_VEC_ELT (args, nargs - 1);
3272 return ARGUMENT_PACK_P (last_parm);
3275 /* Generate a new name for the parameter pack name NAME (an
3276 IDENTIFIER_NODE) that incorporates its */
3278 static tree
3279 make_ith_pack_parameter_name (tree name, int i)
3281 /* Munge the name to include the parameter index. */
3282 #define NUMBUF_LEN 128
3283 char numbuf[NUMBUF_LEN];
3284 char* newname;
3285 int newname_len;
3287 if (name == NULL_TREE)
3288 return name;
3289 snprintf (numbuf, NUMBUF_LEN, "%i", i);
3290 newname_len = IDENTIFIER_LENGTH (name)
3291 + strlen (numbuf) + 2;
3292 newname = (char*)alloca (newname_len);
3293 snprintf (newname, newname_len,
3294 "%s#%i", IDENTIFIER_POINTER (name), i);
3295 return get_identifier (newname);
3298 /* Return true if T is a primary function, class or alias template
3299 instantiation. */
3301 bool
3302 primary_template_instantiation_p (const_tree t)
3304 if (!t)
3305 return false;
3307 if (TREE_CODE (t) == FUNCTION_DECL)
3308 return DECL_LANG_SPECIFIC (t)
3309 && DECL_TEMPLATE_INSTANTIATION (t)
3310 && PRIMARY_TEMPLATE_P (DECL_TI_TEMPLATE (t));
3311 else if (CLASS_TYPE_P (t) && !TYPE_DECL_ALIAS_P (TYPE_NAME (t)))
3312 return CLASSTYPE_TEMPLATE_INSTANTIATION (t)
3313 && PRIMARY_TEMPLATE_P (CLASSTYPE_TI_TEMPLATE (t));
3314 else if (alias_template_specialization_p (t))
3315 return true;
3316 return false;
3319 /* Return true if PARM is a template template parameter. */
3321 bool
3322 template_template_parameter_p (const_tree parm)
3324 return DECL_TEMPLATE_TEMPLATE_PARM_P (parm);
3327 /* Return true iff PARM is a DECL representing a type template
3328 parameter. */
3330 bool
3331 template_type_parameter_p (const_tree parm)
3333 return (parm
3334 && (TREE_CODE (parm) == TYPE_DECL
3335 || TREE_CODE (parm) == TEMPLATE_DECL)
3336 && DECL_TEMPLATE_PARM_P (parm));
3339 /* Return the template parameters of T if T is a
3340 primary template instantiation, NULL otherwise. */
3342 tree
3343 get_primary_template_innermost_parameters (const_tree t)
3345 tree parms = NULL, template_info = NULL;
3347 if ((template_info = get_template_info (t))
3348 && primary_template_instantiation_p (t))
3349 parms = INNERMOST_TEMPLATE_PARMS
3350 (DECL_TEMPLATE_PARMS (TI_TEMPLATE (template_info)));
3352 return parms;
3355 /* Return the template parameters of the LEVELth level from the full list
3356 of template parameters PARMS. */
3358 tree
3359 get_template_parms_at_level (tree parms, int level)
3361 tree p;
3362 if (!parms
3363 || TREE_CODE (parms) != TREE_LIST
3364 || level > TMPL_PARMS_DEPTH (parms))
3365 return NULL_TREE;
3367 for (p = parms; p; p = TREE_CHAIN (p))
3368 if (TMPL_PARMS_DEPTH (p) == level)
3369 return p;
3371 return NULL_TREE;
3374 /* Returns the template arguments of T if T is a template instantiation,
3375 NULL otherwise. */
3377 tree
3378 get_template_innermost_arguments (const_tree t)
3380 tree args = NULL, template_info = NULL;
3382 if ((template_info = get_template_info (t))
3383 && TI_ARGS (template_info))
3384 args = INNERMOST_TEMPLATE_ARGS (TI_ARGS (template_info));
3386 return args;
3389 /* Return the argument pack elements of T if T is a template argument pack,
3390 NULL otherwise. */
3392 tree
3393 get_template_argument_pack_elems (const_tree t)
3395 if (TREE_CODE (t) != TYPE_ARGUMENT_PACK
3396 && TREE_CODE (t) != NONTYPE_ARGUMENT_PACK)
3397 return NULL;
3399 return ARGUMENT_PACK_ARGS (t);
3402 /* Structure used to track the progress of find_parameter_packs_r. */
3403 struct find_parameter_pack_data
3405 /* TREE_LIST that will contain all of the parameter packs found by
3406 the traversal. */
3407 tree* parameter_packs;
3409 /* Set of AST nodes that have been visited by the traversal. */
3410 hash_set<tree> *visited;
3413 /* Identifies all of the argument packs that occur in a template
3414 argument and appends them to the TREE_LIST inside DATA, which is a
3415 find_parameter_pack_data structure. This is a subroutine of
3416 make_pack_expansion and uses_parameter_packs. */
3417 static tree
3418 find_parameter_packs_r (tree *tp, int *walk_subtrees, void* data)
3420 tree t = *tp;
3421 struct find_parameter_pack_data* ppd =
3422 (struct find_parameter_pack_data*)data;
3423 bool parameter_pack_p = false;
3425 /* Handle type aliases/typedefs. */
3426 if (TYPE_ALIAS_P (t))
3428 if (TYPE_TEMPLATE_INFO (t))
3429 cp_walk_tree (&TYPE_TI_ARGS (t),
3430 &find_parameter_packs_r,
3431 ppd, ppd->visited);
3432 *walk_subtrees = 0;
3433 return NULL_TREE;
3436 /* Identify whether this is a parameter pack or not. */
3437 switch (TREE_CODE (t))
3439 case TEMPLATE_PARM_INDEX:
3440 if (TEMPLATE_PARM_PARAMETER_PACK (t))
3441 parameter_pack_p = true;
3442 break;
3444 case TEMPLATE_TYPE_PARM:
3445 t = TYPE_MAIN_VARIANT (t);
3446 case TEMPLATE_TEMPLATE_PARM:
3447 if (TEMPLATE_TYPE_PARAMETER_PACK (t))
3448 parameter_pack_p = true;
3449 break;
3451 case FIELD_DECL:
3452 case PARM_DECL:
3453 if (DECL_PACK_P (t))
3455 /* We don't want to walk into the type of a PARM_DECL,
3456 because we don't want to see the type parameter pack. */
3457 *walk_subtrees = 0;
3458 parameter_pack_p = true;
3460 break;
3462 /* Look through a lambda capture proxy to the field pack. */
3463 case VAR_DECL:
3464 if (DECL_HAS_VALUE_EXPR_P (t))
3466 tree v = DECL_VALUE_EXPR (t);
3467 cp_walk_tree (&v,
3468 &find_parameter_packs_r,
3469 ppd, ppd->visited);
3470 *walk_subtrees = 0;
3472 else if (variable_template_specialization_p (t))
3474 cp_walk_tree (&DECL_TI_ARGS (t),
3475 find_parameter_packs_r,
3476 ppd, ppd->visited);
3477 *walk_subtrees = 0;
3479 break;
3481 case BASES:
3482 parameter_pack_p = true;
3483 break;
3484 default:
3485 /* Not a parameter pack. */
3486 break;
3489 if (parameter_pack_p)
3491 /* Add this parameter pack to the list. */
3492 *ppd->parameter_packs = tree_cons (NULL_TREE, t, *ppd->parameter_packs);
3495 if (TYPE_P (t))
3496 cp_walk_tree (&TYPE_CONTEXT (t),
3497 &find_parameter_packs_r, ppd, ppd->visited);
3499 /* This switch statement will return immediately if we don't find a
3500 parameter pack. */
3501 switch (TREE_CODE (t))
3503 case TEMPLATE_PARM_INDEX:
3504 return NULL_TREE;
3506 case BOUND_TEMPLATE_TEMPLATE_PARM:
3507 /* Check the template itself. */
3508 cp_walk_tree (&TREE_TYPE (TYPE_TI_TEMPLATE (t)),
3509 &find_parameter_packs_r, ppd, ppd->visited);
3510 /* Check the template arguments. */
3511 cp_walk_tree (&TYPE_TI_ARGS (t), &find_parameter_packs_r, ppd,
3512 ppd->visited);
3513 *walk_subtrees = 0;
3514 return NULL_TREE;
3516 case TEMPLATE_TYPE_PARM:
3517 case TEMPLATE_TEMPLATE_PARM:
3518 return NULL_TREE;
3520 case PARM_DECL:
3521 return NULL_TREE;
3523 case RECORD_TYPE:
3524 if (TYPE_PTRMEMFUNC_P (t))
3525 return NULL_TREE;
3526 /* Fall through. */
3528 case UNION_TYPE:
3529 case ENUMERAL_TYPE:
3530 if (TYPE_TEMPLATE_INFO (t))
3531 cp_walk_tree (&TYPE_TI_ARGS (t),
3532 &find_parameter_packs_r, ppd, ppd->visited);
3534 *walk_subtrees = 0;
3535 return NULL_TREE;
3537 case CONSTRUCTOR:
3538 case TEMPLATE_DECL:
3539 cp_walk_tree (&TREE_TYPE (t),
3540 &find_parameter_packs_r, ppd, ppd->visited);
3541 return NULL_TREE;
3543 case TYPENAME_TYPE:
3544 cp_walk_tree (&TYPENAME_TYPE_FULLNAME (t), &find_parameter_packs_r,
3545 ppd, ppd->visited);
3546 *walk_subtrees = 0;
3547 return NULL_TREE;
3549 case TYPE_PACK_EXPANSION:
3550 case EXPR_PACK_EXPANSION:
3551 *walk_subtrees = 0;
3552 return NULL_TREE;
3554 case INTEGER_TYPE:
3555 cp_walk_tree (&TYPE_MAX_VALUE (t), &find_parameter_packs_r,
3556 ppd, ppd->visited);
3557 *walk_subtrees = 0;
3558 return NULL_TREE;
3560 case IDENTIFIER_NODE:
3561 cp_walk_tree (&TREE_TYPE (t), &find_parameter_packs_r, ppd,
3562 ppd->visited);
3563 *walk_subtrees = 0;
3564 return NULL_TREE;
3566 default:
3567 return NULL_TREE;
3570 return NULL_TREE;
3573 /* Determines if the expression or type T uses any parameter packs. */
3574 bool
3575 uses_parameter_packs (tree t)
3577 tree parameter_packs = NULL_TREE;
3578 struct find_parameter_pack_data ppd;
3579 ppd.parameter_packs = &parameter_packs;
3580 ppd.visited = new hash_set<tree>;
3581 cp_walk_tree (&t, &find_parameter_packs_r, &ppd, ppd.visited);
3582 delete ppd.visited;
3583 return parameter_packs != NULL_TREE;
3586 /* Turn ARG, which may be an expression, type, or a TREE_LIST
3587 representation a base-class initializer into a parameter pack
3588 expansion. If all goes well, the resulting node will be an
3589 EXPR_PACK_EXPANSION, TYPE_PACK_EXPANSION, or TREE_LIST,
3590 respectively. */
3591 tree
3592 make_pack_expansion (tree arg)
3594 tree result;
3595 tree parameter_packs = NULL_TREE;
3596 bool for_types = false;
3597 struct find_parameter_pack_data ppd;
3599 if (!arg || arg == error_mark_node)
3600 return arg;
3602 if (TREE_CODE (arg) == TREE_LIST && TREE_PURPOSE (arg))
3604 /* A TREE_LIST with a non-null TREE_PURPOSE is for a base
3605 class initializer. In this case, the TREE_PURPOSE will be a
3606 _TYPE node (representing the base class expansion we're
3607 initializing) and the TREE_VALUE will be a TREE_LIST
3608 containing the initialization arguments.
3610 The resulting expansion looks somewhat different from most
3611 expansions. Rather than returning just one _EXPANSION, we
3612 return a TREE_LIST whose TREE_PURPOSE is a
3613 TYPE_PACK_EXPANSION containing the bases that will be
3614 initialized. The TREE_VALUE will be identical to the
3615 original TREE_VALUE, which is a list of arguments that will
3616 be passed to each base. We do not introduce any new pack
3617 expansion nodes into the TREE_VALUE (although it is possible
3618 that some already exist), because the TREE_PURPOSE and
3619 TREE_VALUE all need to be expanded together with the same
3620 _EXPANSION node. Note that the TYPE_PACK_EXPANSION in the
3621 resulting TREE_PURPOSE will mention the parameter packs in
3622 both the bases and the arguments to the bases. */
3623 tree purpose;
3624 tree value;
3625 tree parameter_packs = NULL_TREE;
3627 /* Determine which parameter packs will be used by the base
3628 class expansion. */
3629 ppd.visited = new hash_set<tree>;
3630 ppd.parameter_packs = &parameter_packs;
3631 cp_walk_tree (&TREE_PURPOSE (arg), &find_parameter_packs_r,
3632 &ppd, ppd.visited);
3634 if (parameter_packs == NULL_TREE)
3636 error ("base initializer expansion %<%T%> contains no parameter packs", arg);
3637 delete ppd.visited;
3638 return error_mark_node;
3641 if (TREE_VALUE (arg) != void_type_node)
3643 /* Collect the sets of parameter packs used in each of the
3644 initialization arguments. */
3645 for (value = TREE_VALUE (arg); value; value = TREE_CHAIN (value))
3647 /* Determine which parameter packs will be expanded in this
3648 argument. */
3649 cp_walk_tree (&TREE_VALUE (value), &find_parameter_packs_r,
3650 &ppd, ppd.visited);
3654 delete ppd.visited;
3656 /* Create the pack expansion type for the base type. */
3657 purpose = cxx_make_type (TYPE_PACK_EXPANSION);
3658 SET_PACK_EXPANSION_PATTERN (purpose, TREE_PURPOSE (arg));
3659 PACK_EXPANSION_PARAMETER_PACKS (purpose) = parameter_packs;
3661 /* Just use structural equality for these TYPE_PACK_EXPANSIONS;
3662 they will rarely be compared to anything. */
3663 SET_TYPE_STRUCTURAL_EQUALITY (purpose);
3665 return tree_cons (purpose, TREE_VALUE (arg), NULL_TREE);
3668 if (TYPE_P (arg) || TREE_CODE (arg) == TEMPLATE_DECL)
3669 for_types = true;
3671 /* Build the PACK_EXPANSION_* node. */
3672 result = for_types
3673 ? cxx_make_type (TYPE_PACK_EXPANSION)
3674 : make_node (EXPR_PACK_EXPANSION);
3675 SET_PACK_EXPANSION_PATTERN (result, arg);
3676 if (TREE_CODE (result) == EXPR_PACK_EXPANSION)
3678 /* Propagate type and const-expression information. */
3679 TREE_TYPE (result) = TREE_TYPE (arg);
3680 TREE_CONSTANT (result) = TREE_CONSTANT (arg);
3682 else
3683 /* Just use structural equality for these TYPE_PACK_EXPANSIONS;
3684 they will rarely be compared to anything. */
3685 SET_TYPE_STRUCTURAL_EQUALITY (result);
3687 /* Determine which parameter packs will be expanded. */
3688 ppd.parameter_packs = &parameter_packs;
3689 ppd.visited = new hash_set<tree>;
3690 cp_walk_tree (&arg, &find_parameter_packs_r, &ppd, ppd.visited);
3691 delete ppd.visited;
3693 /* Make sure we found some parameter packs. */
3694 if (parameter_packs == NULL_TREE)
3696 if (TYPE_P (arg))
3697 error ("expansion pattern %<%T%> contains no argument packs", arg);
3698 else
3699 error ("expansion pattern %<%E%> contains no argument packs", arg);
3700 return error_mark_node;
3702 PACK_EXPANSION_PARAMETER_PACKS (result) = parameter_packs;
3704 PACK_EXPANSION_LOCAL_P (result) = at_function_scope_p ();
3706 return result;
3709 /* Checks T for any "bare" parameter packs, which have not yet been
3710 expanded, and issues an error if any are found. This operation can
3711 only be done on full expressions or types (e.g., an expression
3712 statement, "if" condition, etc.), because we could have expressions like:
3714 foo(f(g(h(args)))...)
3716 where "args" is a parameter pack. check_for_bare_parameter_packs
3717 should not be called for the subexpressions args, h(args),
3718 g(h(args)), or f(g(h(args))), because we would produce erroneous
3719 error messages.
3721 Returns TRUE and emits an error if there were bare parameter packs,
3722 returns FALSE otherwise. */
3723 bool
3724 check_for_bare_parameter_packs (tree t)
3726 tree parameter_packs = NULL_TREE;
3727 struct find_parameter_pack_data ppd;
3729 if (!processing_template_decl || !t || t == error_mark_node)
3730 return false;
3732 if (TREE_CODE (t) == TYPE_DECL)
3733 t = TREE_TYPE (t);
3735 ppd.parameter_packs = &parameter_packs;
3736 ppd.visited = new hash_set<tree>;
3737 cp_walk_tree (&t, &find_parameter_packs_r, &ppd, ppd.visited);
3738 delete ppd.visited;
3740 if (parameter_packs)
3742 error ("parameter packs not expanded with %<...%>:");
3743 while (parameter_packs)
3745 tree pack = TREE_VALUE (parameter_packs);
3746 tree name = NULL_TREE;
3748 if (TREE_CODE (pack) == TEMPLATE_TYPE_PARM
3749 || TREE_CODE (pack) == TEMPLATE_TEMPLATE_PARM)
3750 name = TYPE_NAME (pack);
3751 else if (TREE_CODE (pack) == TEMPLATE_PARM_INDEX)
3752 name = DECL_NAME (TEMPLATE_PARM_DECL (pack));
3753 else
3754 name = DECL_NAME (pack);
3756 if (name)
3757 inform (input_location, " %qD", name);
3758 else
3759 inform (input_location, " <anonymous>");
3761 parameter_packs = TREE_CHAIN (parameter_packs);
3764 return true;
3767 return false;
3770 /* Expand any parameter packs that occur in the template arguments in
3771 ARGS. */
3772 tree
3773 expand_template_argument_pack (tree args)
3775 tree result_args = NULL_TREE;
3776 int in_arg, out_arg = 0, nargs = args ? TREE_VEC_LENGTH (args) : 0;
3777 int num_result_args = -1;
3778 int non_default_args_count = -1;
3780 /* First, determine if we need to expand anything, and the number of
3781 slots we'll need. */
3782 for (in_arg = 0; in_arg < nargs; ++in_arg)
3784 tree arg = TREE_VEC_ELT (args, in_arg);
3785 if (arg == NULL_TREE)
3786 return args;
3787 if (ARGUMENT_PACK_P (arg))
3789 int num_packed = TREE_VEC_LENGTH (ARGUMENT_PACK_ARGS (arg));
3790 if (num_result_args < 0)
3791 num_result_args = in_arg + num_packed;
3792 else
3793 num_result_args += num_packed;
3795 else
3797 if (num_result_args >= 0)
3798 num_result_args++;
3802 /* If no expansion is necessary, we're done. */
3803 if (num_result_args < 0)
3804 return args;
3806 /* Expand arguments. */
3807 result_args = make_tree_vec (num_result_args);
3808 if (NON_DEFAULT_TEMPLATE_ARGS_COUNT (args))
3809 non_default_args_count =
3810 GET_NON_DEFAULT_TEMPLATE_ARGS_COUNT (args);
3811 for (in_arg = 0; in_arg < nargs; ++in_arg)
3813 tree arg = TREE_VEC_ELT (args, in_arg);
3814 if (ARGUMENT_PACK_P (arg))
3816 tree packed = ARGUMENT_PACK_ARGS (arg);
3817 int i, num_packed = TREE_VEC_LENGTH (packed);
3818 for (i = 0; i < num_packed; ++i, ++out_arg)
3819 TREE_VEC_ELT (result_args, out_arg) = TREE_VEC_ELT(packed, i);
3820 if (non_default_args_count > 0)
3821 non_default_args_count += num_packed - 1;
3823 else
3825 TREE_VEC_ELT (result_args, out_arg) = arg;
3826 ++out_arg;
3829 if (non_default_args_count >= 0)
3830 SET_NON_DEFAULT_TEMPLATE_ARGS_COUNT (result_args, non_default_args_count);
3831 return result_args;
3834 /* Checks if DECL shadows a template parameter.
3836 [temp.local]: A template-parameter shall not be redeclared within its
3837 scope (including nested scopes).
3839 Emits an error and returns TRUE if the DECL shadows a parameter,
3840 returns FALSE otherwise. */
3842 bool
3843 check_template_shadow (tree decl)
3845 tree olddecl;
3847 /* If we're not in a template, we can't possibly shadow a template
3848 parameter. */
3849 if (!current_template_parms)
3850 return true;
3852 /* Figure out what we're shadowing. */
3853 if (TREE_CODE (decl) == OVERLOAD)
3854 decl = OVL_CURRENT (decl);
3855 olddecl = innermost_non_namespace_value (DECL_NAME (decl));
3857 /* If there's no previous binding for this name, we're not shadowing
3858 anything, let alone a template parameter. */
3859 if (!olddecl)
3860 return true;
3862 /* If we're not shadowing a template parameter, we're done. Note
3863 that OLDDECL might be an OVERLOAD (or perhaps even an
3864 ERROR_MARK), so we can't just blithely assume it to be a _DECL
3865 node. */
3866 if (!DECL_P (olddecl) || !DECL_TEMPLATE_PARM_P (olddecl))
3867 return true;
3869 /* We check for decl != olddecl to avoid bogus errors for using a
3870 name inside a class. We check TPFI to avoid duplicate errors for
3871 inline member templates. */
3872 if (decl == olddecl
3873 || (DECL_TEMPLATE_PARM_P (decl)
3874 && TEMPLATE_PARMS_FOR_INLINE (current_template_parms)))
3875 return true;
3877 /* Don't complain about the injected class name, as we've already
3878 complained about the class itself. */
3879 if (DECL_SELF_REFERENCE_P (decl))
3880 return false;
3882 if (DECL_TEMPLATE_PARM_P (decl))
3883 error ("declaration of template parameter %q+D shadows "
3884 "template parameter", decl);
3885 else
3886 error ("declaration of %q+#D shadows template parameter", decl);
3887 inform (DECL_SOURCE_LOCATION (olddecl),
3888 "template parameter %qD declared here", olddecl);
3889 return false;
3892 /* Return a new TEMPLATE_PARM_INDEX with the indicated INDEX, LEVEL,
3893 ORIG_LEVEL, DECL, and TYPE. */
3895 static tree
3896 build_template_parm_index (int index,
3897 int level,
3898 int orig_level,
3899 tree decl,
3900 tree type)
3902 tree t = make_node (TEMPLATE_PARM_INDEX);
3903 TEMPLATE_PARM_IDX (t) = index;
3904 TEMPLATE_PARM_LEVEL (t) = level;
3905 TEMPLATE_PARM_ORIG_LEVEL (t) = orig_level;
3906 TEMPLATE_PARM_DECL (t) = decl;
3907 TREE_TYPE (t) = type;
3908 TREE_CONSTANT (t) = TREE_CONSTANT (decl);
3909 TREE_READONLY (t) = TREE_READONLY (decl);
3911 return t;
3914 /* Find the canonical type parameter for the given template type
3915 parameter. Returns the canonical type parameter, which may be TYPE
3916 if no such parameter existed. */
3918 static tree
3919 canonical_type_parameter (tree type)
3921 tree list;
3922 int idx = TEMPLATE_TYPE_IDX (type);
3923 if (!canonical_template_parms)
3924 vec_alloc (canonical_template_parms, idx+1);
3926 while (canonical_template_parms->length () <= (unsigned)idx)
3927 vec_safe_push (canonical_template_parms, NULL_TREE);
3929 list = (*canonical_template_parms)[idx];
3930 while (list && !comptypes (type, TREE_VALUE (list), COMPARE_STRUCTURAL))
3931 list = TREE_CHAIN (list);
3933 if (list)
3934 return TREE_VALUE (list);
3935 else
3937 (*canonical_template_parms)[idx]
3938 = tree_cons (NULL_TREE, type,
3939 (*canonical_template_parms)[idx]);
3940 return type;
3944 /* Return a TEMPLATE_PARM_INDEX, similar to INDEX, but whose
3945 TEMPLATE_PARM_LEVEL has been decreased by LEVELS. If such a
3946 TEMPLATE_PARM_INDEX already exists, it is returned; otherwise, a
3947 new one is created. */
3949 static tree
3950 reduce_template_parm_level (tree index, tree type, int levels, tree args,
3951 tsubst_flags_t complain)
3953 if (TEMPLATE_PARM_DESCENDANTS (index) == NULL_TREE
3954 || (TEMPLATE_PARM_LEVEL (TEMPLATE_PARM_DESCENDANTS (index))
3955 != TEMPLATE_PARM_LEVEL (index) - levels)
3956 || !same_type_p (type, TREE_TYPE (TEMPLATE_PARM_DESCENDANTS (index))))
3958 tree orig_decl = TEMPLATE_PARM_DECL (index);
3959 tree decl, t;
3961 decl = build_decl (DECL_SOURCE_LOCATION (orig_decl),
3962 TREE_CODE (orig_decl), DECL_NAME (orig_decl), type);
3963 TREE_CONSTANT (decl) = TREE_CONSTANT (orig_decl);
3964 TREE_READONLY (decl) = TREE_READONLY (orig_decl);
3965 DECL_ARTIFICIAL (decl) = 1;
3966 SET_DECL_TEMPLATE_PARM_P (decl);
3968 t = build_template_parm_index (TEMPLATE_PARM_IDX (index),
3969 TEMPLATE_PARM_LEVEL (index) - levels,
3970 TEMPLATE_PARM_ORIG_LEVEL (index),
3971 decl, type);
3972 TEMPLATE_PARM_DESCENDANTS (index) = t;
3973 TEMPLATE_PARM_PARAMETER_PACK (t)
3974 = TEMPLATE_PARM_PARAMETER_PACK (index);
3976 /* Template template parameters need this. */
3977 if (TREE_CODE (decl) == TEMPLATE_DECL)
3979 DECL_TEMPLATE_RESULT (decl)
3980 = build_decl (DECL_SOURCE_LOCATION (decl),
3981 TYPE_DECL, DECL_NAME (decl), type);
3982 DECL_ARTIFICIAL (DECL_TEMPLATE_RESULT (decl)) = true;
3983 DECL_TEMPLATE_PARMS (decl) = tsubst_template_parms
3984 (DECL_TEMPLATE_PARMS (orig_decl), args, complain);
3988 return TEMPLATE_PARM_DESCENDANTS (index);
3991 /* Process information from new template parameter PARM and append it
3992 to the LIST being built. This new parameter is a non-type
3993 parameter iff IS_NON_TYPE is true. This new parameter is a
3994 parameter pack iff IS_PARAMETER_PACK is true. The location of PARM
3995 is in PARM_LOC. */
3997 tree
3998 process_template_parm (tree list, location_t parm_loc, tree parm,
3999 bool is_non_type, bool is_parameter_pack)
4001 tree decl = 0;
4002 int idx = 0;
4004 gcc_assert (TREE_CODE (parm) == TREE_LIST);
4005 tree defval = TREE_PURPOSE (parm);
4006 tree constr = TREE_TYPE (parm);
4008 if (list)
4010 tree p = tree_last (list);
4012 if (p && TREE_VALUE (p) != error_mark_node)
4014 p = TREE_VALUE (p);
4015 if (TREE_CODE (p) == TYPE_DECL || TREE_CODE (p) == TEMPLATE_DECL)
4016 idx = TEMPLATE_TYPE_IDX (TREE_TYPE (p));
4017 else
4018 idx = TEMPLATE_PARM_IDX (DECL_INITIAL (p));
4021 ++idx;
4024 if (is_non_type)
4026 parm = TREE_VALUE (parm);
4028 SET_DECL_TEMPLATE_PARM_P (parm);
4030 if (TREE_TYPE (parm) != error_mark_node)
4032 /* [temp.param]
4034 The top-level cv-qualifiers on the template-parameter are
4035 ignored when determining its type. */
4036 TREE_TYPE (parm) = TYPE_MAIN_VARIANT (TREE_TYPE (parm));
4037 if (invalid_nontype_parm_type_p (TREE_TYPE (parm), 1))
4038 TREE_TYPE (parm) = error_mark_node;
4039 else if (uses_parameter_packs (TREE_TYPE (parm))
4040 && !is_parameter_pack
4041 /* If we're in a nested template parameter list, the template
4042 template parameter could be a parameter pack. */
4043 && processing_template_parmlist == 1)
4045 /* This template parameter is not a parameter pack, but it
4046 should be. Complain about "bare" parameter packs. */
4047 check_for_bare_parameter_packs (TREE_TYPE (parm));
4049 /* Recover by calling this a parameter pack. */
4050 is_parameter_pack = true;
4054 /* A template parameter is not modifiable. */
4055 TREE_CONSTANT (parm) = 1;
4056 TREE_READONLY (parm) = 1;
4057 decl = build_decl (parm_loc,
4058 CONST_DECL, DECL_NAME (parm), TREE_TYPE (parm));
4059 TREE_CONSTANT (decl) = 1;
4060 TREE_READONLY (decl) = 1;
4061 DECL_INITIAL (parm) = DECL_INITIAL (decl)
4062 = build_template_parm_index (idx, processing_template_decl,
4063 processing_template_decl,
4064 decl, TREE_TYPE (parm));
4066 TEMPLATE_PARM_PARAMETER_PACK (DECL_INITIAL (parm))
4067 = is_parameter_pack;
4069 else
4071 tree t;
4072 parm = TREE_VALUE (TREE_VALUE (parm));
4074 if (parm && TREE_CODE (parm) == TEMPLATE_DECL)
4076 t = cxx_make_type (TEMPLATE_TEMPLATE_PARM);
4077 /* This is for distinguishing between real templates and template
4078 template parameters */
4079 TREE_TYPE (parm) = t;
4080 TREE_TYPE (DECL_TEMPLATE_RESULT (parm)) = t;
4081 decl = parm;
4083 else
4085 t = cxx_make_type (TEMPLATE_TYPE_PARM);
4086 /* parm is either IDENTIFIER_NODE or NULL_TREE. */
4087 decl = build_decl (parm_loc,
4088 TYPE_DECL, parm, t);
4091 TYPE_NAME (t) = decl;
4092 TYPE_STUB_DECL (t) = decl;
4093 parm = decl;
4094 TEMPLATE_TYPE_PARM_INDEX (t)
4095 = build_template_parm_index (idx, processing_template_decl,
4096 processing_template_decl,
4097 decl, TREE_TYPE (parm));
4098 TEMPLATE_TYPE_PARAMETER_PACK (t) = is_parameter_pack;
4099 TYPE_CANONICAL (t) = canonical_type_parameter (t);
4101 DECL_ARTIFICIAL (decl) = 1;
4102 SET_DECL_TEMPLATE_PARM_P (decl);
4104 /* Build requirements for the type/template parameter.
4105 This must be done after SET_DECL_TEMPLATE_PARM_P or
4106 process_template_parm could fail. */
4107 tree reqs = finish_shorthand_constraint (parm, constr);
4109 pushdecl (decl);
4111 /* Build the parameter node linking the parameter declaration,
4112 its default argument (if any), and its constraints (if any). */
4113 parm = build_tree_list (defval, parm);
4114 TEMPLATE_PARM_CONSTRAINTS (parm) = reqs;
4116 return chainon (list, parm);
4119 /* The end of a template parameter list has been reached. Process the
4120 tree list into a parameter vector, converting each parameter into a more
4121 useful form. Type parameters are saved as IDENTIFIER_NODEs, and others
4122 as PARM_DECLs. */
4124 tree
4125 end_template_parm_list (tree parms)
4127 int nparms;
4128 tree parm, next;
4129 tree saved_parmlist = make_tree_vec (list_length (parms));
4131 /* Pop the dummy parameter level and add the real one. */
4132 current_template_parms = TREE_CHAIN (current_template_parms);
4134 current_template_parms
4135 = tree_cons (size_int (processing_template_decl),
4136 saved_parmlist, current_template_parms);
4138 for (parm = parms, nparms = 0; parm; parm = next, nparms++)
4140 next = TREE_CHAIN (parm);
4141 TREE_VEC_ELT (saved_parmlist, nparms) = parm;
4142 TREE_CHAIN (parm) = NULL_TREE;
4145 --processing_template_parmlist;
4147 return saved_parmlist;
4150 // Explicitly indicate the end of the template parameter list. We assume
4151 // that the current template parameters have been constructed and/or
4152 // managed explicitly, as when creating new template template parameters
4153 // from a shorthand constraint.
4154 void
4155 end_template_parm_list ()
4157 --processing_template_parmlist;
4160 /* end_template_decl is called after a template declaration is seen. */
4162 void
4163 end_template_decl (void)
4165 reset_specialization ();
4167 if (! processing_template_decl)
4168 return;
4170 /* This matches the pushlevel in begin_template_parm_list. */
4171 finish_scope ();
4173 --processing_template_decl;
4174 current_template_parms = TREE_CHAIN (current_template_parms);
4177 /* Takes a TREE_LIST representing a template parameter and convert it
4178 into an argument suitable to be passed to the type substitution
4179 functions. Note that If the TREE_LIST contains an error_mark
4180 node, the returned argument is error_mark_node. */
4182 tree
4183 template_parm_to_arg (tree t)
4186 if (t == NULL_TREE
4187 || TREE_CODE (t) != TREE_LIST)
4188 return t;
4190 if (error_operand_p (TREE_VALUE (t)))
4191 return error_mark_node;
4193 t = TREE_VALUE (t);
4195 if (TREE_CODE (t) == TYPE_DECL
4196 || TREE_CODE (t) == TEMPLATE_DECL)
4198 t = TREE_TYPE (t);
4200 if (TEMPLATE_TYPE_PARAMETER_PACK (t))
4202 /* Turn this argument into a TYPE_ARGUMENT_PACK
4203 with a single element, which expands T. */
4204 tree vec = make_tree_vec (1);
4205 #ifdef ENABLE_CHECKING
4206 SET_NON_DEFAULT_TEMPLATE_ARGS_COUNT
4207 (vec, TREE_VEC_LENGTH (vec));
4208 #endif
4209 TREE_VEC_ELT (vec, 0) = make_pack_expansion (t);
4211 t = cxx_make_type (TYPE_ARGUMENT_PACK);
4212 SET_ARGUMENT_PACK_ARGS (t, vec);
4215 else
4217 t = DECL_INITIAL (t);
4219 if (TEMPLATE_PARM_PARAMETER_PACK (t))
4221 /* Turn this argument into a NONTYPE_ARGUMENT_PACK
4222 with a single element, which expands T. */
4223 tree vec = make_tree_vec (1);
4224 tree type = TREE_TYPE (TEMPLATE_PARM_DECL (t));
4225 #ifdef ENABLE_CHECKING
4226 SET_NON_DEFAULT_TEMPLATE_ARGS_COUNT
4227 (vec, TREE_VEC_LENGTH (vec));
4228 #endif
4229 t = convert_from_reference (t);
4230 TREE_VEC_ELT (vec, 0) = make_pack_expansion (t);
4232 t = make_node (NONTYPE_ARGUMENT_PACK);
4233 SET_ARGUMENT_PACK_ARGS (t, vec);
4234 TREE_TYPE (t) = type;
4236 else
4237 t = convert_from_reference (t);
4239 return t;
4242 /* Given a set of template parameters, return them as a set of template
4243 arguments. The template parameters are represented as a TREE_VEC, in
4244 the form documented in cp-tree.h for template arguments. */
4246 static tree
4247 template_parms_to_args (tree parms)
4249 tree header;
4250 tree args = NULL_TREE;
4251 int length = TMPL_PARMS_DEPTH (parms);
4252 int l = length;
4254 /* If there is only one level of template parameters, we do not
4255 create a TREE_VEC of TREE_VECs. Instead, we return a single
4256 TREE_VEC containing the arguments. */
4257 if (length > 1)
4258 args = make_tree_vec (length);
4260 for (header = parms; header; header = TREE_CHAIN (header))
4262 tree a = copy_node (TREE_VALUE (header));
4263 int i;
4265 TREE_TYPE (a) = NULL_TREE;
4266 for (i = TREE_VEC_LENGTH (a) - 1; i >= 0; --i)
4267 TREE_VEC_ELT (a, i) = template_parm_to_arg (TREE_VEC_ELT (a, i));
4269 #ifdef ENABLE_CHECKING
4270 SET_NON_DEFAULT_TEMPLATE_ARGS_COUNT (a, TREE_VEC_LENGTH (a));
4271 #endif
4273 if (length > 1)
4274 TREE_VEC_ELT (args, --l) = a;
4275 else
4276 args = a;
4279 return args;
4282 /* Within the declaration of a template, return the currently active
4283 template parameters as an argument TREE_VEC. */
4285 static tree
4286 current_template_args (void)
4288 return template_parms_to_args (current_template_parms);
4291 /* Update the declared TYPE by doing any lookups which were thought to be
4292 dependent, but are not now that we know the SCOPE of the declarator. */
4294 tree
4295 maybe_update_decl_type (tree orig_type, tree scope)
4297 tree type = orig_type;
4299 if (type == NULL_TREE)
4300 return type;
4302 if (TREE_CODE (orig_type) == TYPE_DECL)
4303 type = TREE_TYPE (type);
4305 if (scope && TYPE_P (scope) && dependent_type_p (scope)
4306 && dependent_type_p (type)
4307 /* Don't bother building up the args in this case. */
4308 && TREE_CODE (type) != TEMPLATE_TYPE_PARM)
4310 /* tsubst in the args corresponding to the template parameters,
4311 including auto if present. Most things will be unchanged, but
4312 make_typename_type and tsubst_qualified_id will resolve
4313 TYPENAME_TYPEs and SCOPE_REFs that were previously dependent. */
4314 tree args = current_template_args ();
4315 tree auto_node = type_uses_auto (type);
4316 tree pushed;
4317 if (auto_node)
4319 tree auto_vec = make_tree_vec (1);
4320 TREE_VEC_ELT (auto_vec, 0) = auto_node;
4321 args = add_to_template_args (args, auto_vec);
4323 pushed = push_scope (scope);
4324 type = tsubst (type, args, tf_warning_or_error, NULL_TREE);
4325 if (pushed)
4326 pop_scope (scope);
4329 if (type == error_mark_node)
4330 return orig_type;
4332 if (TREE_CODE (orig_type) == TYPE_DECL)
4334 if (same_type_p (type, TREE_TYPE (orig_type)))
4335 type = orig_type;
4336 else
4337 type = TYPE_NAME (type);
4339 return type;
4342 /* Return a TEMPLATE_DECL corresponding to DECL, using the indicated
4343 template PARMS and constraints, CONSTR. If MEMBER_TEMPLATE_P is true,
4344 the new template is a member template. */
4346 tree
4347 build_template_decl (tree decl, tree parms, bool member_template_p)
4349 tree tmpl = build_lang_decl (TEMPLATE_DECL, DECL_NAME (decl), NULL_TREE);
4350 DECL_TEMPLATE_PARMS (tmpl) = parms;
4351 DECL_CONTEXT (tmpl) = DECL_CONTEXT (decl);
4352 DECL_SOURCE_LOCATION (tmpl) = DECL_SOURCE_LOCATION (decl);
4353 DECL_MEMBER_TEMPLATE_P (tmpl) = member_template_p;
4355 return tmpl;
4358 struct template_parm_data
4360 /* The level of the template parameters we are currently
4361 processing. */
4362 int level;
4364 /* The index of the specialization argument we are currently
4365 processing. */
4366 int current_arg;
4368 /* An array whose size is the number of template parameters. The
4369 elements are nonzero if the parameter has been used in any one
4370 of the arguments processed so far. */
4371 int* parms;
4373 /* An array whose size is the number of template arguments. The
4374 elements are nonzero if the argument makes use of template
4375 parameters of this level. */
4376 int* arg_uses_template_parms;
4379 /* Subroutine of push_template_decl used to see if each template
4380 parameter in a partial specialization is used in the explicit
4381 argument list. If T is of the LEVEL given in DATA (which is
4382 treated as a template_parm_data*), then DATA->PARMS is marked
4383 appropriately. */
4385 static int
4386 mark_template_parm (tree t, void* data)
4388 int level;
4389 int idx;
4390 struct template_parm_data* tpd = (struct template_parm_data*) data;
4392 template_parm_level_and_index (t, &level, &idx);
4394 if (level == tpd->level)
4396 tpd->parms[idx] = 1;
4397 tpd->arg_uses_template_parms[tpd->current_arg] = 1;
4400 /* Return zero so that for_each_template_parm will continue the
4401 traversal of the tree; we want to mark *every* template parm. */
4402 return 0;
4405 /* Process the partial specialization DECL. */
4407 static tree
4408 process_partial_specialization (tree decl)
4410 tree type = TREE_TYPE (decl);
4411 tree tinfo = get_template_info (decl);
4412 tree maintmpl = TI_TEMPLATE (tinfo);
4413 tree specargs = TI_ARGS (tinfo);
4414 tree inner_args = INNERMOST_TEMPLATE_ARGS (specargs);
4415 tree main_inner_parms = DECL_INNERMOST_TEMPLATE_PARMS (maintmpl);
4416 tree inner_parms;
4417 tree inst;
4418 int nargs = TREE_VEC_LENGTH (inner_args);
4419 int ntparms;
4420 int i;
4421 bool did_error_intro = false;
4422 struct template_parm_data tpd;
4423 struct template_parm_data tpd2;
4425 gcc_assert (current_template_parms);
4427 /* A concept cannot be specialized. */
4428 if (flag_concepts && variable_concept_p (maintmpl))
4430 error ("specialization of variable concept %q#D", maintmpl);
4431 return error_mark_node;
4434 inner_parms = INNERMOST_TEMPLATE_PARMS (current_template_parms);
4435 ntparms = TREE_VEC_LENGTH (inner_parms);
4437 /* We check that each of the template parameters given in the
4438 partial specialization is used in the argument list to the
4439 specialization. For example:
4441 template <class T> struct S;
4442 template <class T> struct S<T*>;
4444 The second declaration is OK because `T*' uses the template
4445 parameter T, whereas
4447 template <class T> struct S<int>;
4449 is no good. Even trickier is:
4451 template <class T>
4452 struct S1
4454 template <class U>
4455 struct S2;
4456 template <class U>
4457 struct S2<T>;
4460 The S2<T> declaration is actually invalid; it is a
4461 full-specialization. Of course,
4463 template <class U>
4464 struct S2<T (*)(U)>;
4466 or some such would have been OK. */
4467 tpd.level = TMPL_PARMS_DEPTH (current_template_parms);
4468 tpd.parms = XALLOCAVEC (int, ntparms);
4469 memset (tpd.parms, 0, sizeof (int) * ntparms);
4471 tpd.arg_uses_template_parms = XALLOCAVEC (int, nargs);
4472 memset (tpd.arg_uses_template_parms, 0, sizeof (int) * nargs);
4473 for (i = 0; i < nargs; ++i)
4475 tpd.current_arg = i;
4476 for_each_template_parm (TREE_VEC_ELT (inner_args, i),
4477 &mark_template_parm,
4478 &tpd,
4479 NULL,
4480 /*include_nondeduced_p=*/false);
4482 for (i = 0; i < ntparms; ++i)
4483 if (tpd.parms[i] == 0)
4485 /* One of the template parms was not used in a deduced context in the
4486 specialization. */
4487 if (!did_error_intro)
4489 error ("template parameters not deducible in "
4490 "partial specialization:");
4491 did_error_intro = true;
4494 inform (input_location, " %qD",
4495 TREE_VALUE (TREE_VEC_ELT (inner_parms, i)));
4498 if (did_error_intro)
4499 return error_mark_node;
4501 /* [temp.class.spec]
4503 The argument list of the specialization shall not be identical to
4504 the implicit argument list of the primary template. */
4505 tree main_args
4506 = TI_ARGS (get_template_info (DECL_TEMPLATE_RESULT (maintmpl)));
4507 if (comp_template_args (inner_args, INNERMOST_TEMPLATE_ARGS (main_args))
4508 && (!flag_concepts
4509 || !subsumes_constraints (current_template_constraints (),
4510 get_constraints (maintmpl))))
4512 if (!flag_concepts)
4513 error ("partial specialization %q+D does not specialize "
4514 "any template arguments", decl);
4515 else
4516 error ("partial specialization %q+D does not specialize any "
4517 "template arguments and is not more constrained than", decl);
4518 inform (DECL_SOURCE_LOCATION (maintmpl), "primary template here");
4521 /* A partial specialization that replaces multiple parameters of the
4522 primary template with a pack expansion is less specialized for those
4523 parameters. */
4524 if (nargs < DECL_NTPARMS (maintmpl))
4526 error ("partial specialization is not more specialized than the "
4527 "primary template because it replaces multiple parameters "
4528 "with a pack expansion");
4529 inform (DECL_SOURCE_LOCATION (maintmpl), "primary template here");
4530 return decl;
4533 /* [temp.class.spec]
4535 A partially specialized non-type argument expression shall not
4536 involve template parameters of the partial specialization except
4537 when the argument expression is a simple identifier.
4539 The type of a template parameter corresponding to a specialized
4540 non-type argument shall not be dependent on a parameter of the
4541 specialization.
4543 Also, we verify that pack expansions only occur at the
4544 end of the argument list. */
4545 gcc_assert (nargs == DECL_NTPARMS (maintmpl));
4546 tpd2.parms = 0;
4547 for (i = 0; i < nargs; ++i)
4549 tree parm = TREE_VALUE (TREE_VEC_ELT (main_inner_parms, i));
4550 tree arg = TREE_VEC_ELT (inner_args, i);
4551 tree packed_args = NULL_TREE;
4552 int j, len = 1;
4554 if (ARGUMENT_PACK_P (arg))
4556 /* Extract the arguments from the argument pack. We'll be
4557 iterating over these in the following loop. */
4558 packed_args = ARGUMENT_PACK_ARGS (arg);
4559 len = TREE_VEC_LENGTH (packed_args);
4562 for (j = 0; j < len; j++)
4564 if (packed_args)
4565 /* Get the Jth argument in the parameter pack. */
4566 arg = TREE_VEC_ELT (packed_args, j);
4568 if (PACK_EXPANSION_P (arg))
4570 /* Pack expansions must come at the end of the
4571 argument list. */
4572 if ((packed_args && j < len - 1)
4573 || (!packed_args && i < nargs - 1))
4575 if (TREE_CODE (arg) == EXPR_PACK_EXPANSION)
4576 error ("parameter pack argument %qE must be at the "
4577 "end of the template argument list", arg);
4578 else
4579 error ("parameter pack argument %qT must be at the "
4580 "end of the template argument list", arg);
4584 if (TREE_CODE (arg) == EXPR_PACK_EXPANSION)
4585 /* We only care about the pattern. */
4586 arg = PACK_EXPANSION_PATTERN (arg);
4588 if (/* These first two lines are the `non-type' bit. */
4589 !TYPE_P (arg)
4590 && TREE_CODE (arg) != TEMPLATE_DECL
4591 /* This next two lines are the `argument expression is not just a
4592 simple identifier' condition and also the `specialized
4593 non-type argument' bit. */
4594 && TREE_CODE (arg) != TEMPLATE_PARM_INDEX
4595 && !(REFERENCE_REF_P (arg)
4596 && TREE_CODE (TREE_OPERAND (arg, 0)) == TEMPLATE_PARM_INDEX))
4598 if ((!packed_args && tpd.arg_uses_template_parms[i])
4599 || (packed_args && uses_template_parms (arg)))
4600 error ("template argument %qE involves template parameter(s)",
4601 arg);
4602 else
4604 /* Look at the corresponding template parameter,
4605 marking which template parameters its type depends
4606 upon. */
4607 tree type = TREE_TYPE (parm);
4609 if (!tpd2.parms)
4611 /* We haven't yet initialized TPD2. Do so now. */
4612 tpd2.arg_uses_template_parms = XALLOCAVEC (int, nargs);
4613 /* The number of parameters here is the number in the
4614 main template, which, as checked in the assertion
4615 above, is NARGS. */
4616 tpd2.parms = XALLOCAVEC (int, nargs);
4617 tpd2.level =
4618 TMPL_PARMS_DEPTH (DECL_TEMPLATE_PARMS (maintmpl));
4621 /* Mark the template parameters. But this time, we're
4622 looking for the template parameters of the main
4623 template, not in the specialization. */
4624 tpd2.current_arg = i;
4625 tpd2.arg_uses_template_parms[i] = 0;
4626 memset (tpd2.parms, 0, sizeof (int) * nargs);
4627 for_each_template_parm (type,
4628 &mark_template_parm,
4629 &tpd2,
4630 NULL,
4631 /*include_nondeduced_p=*/false);
4633 if (tpd2.arg_uses_template_parms [i])
4635 /* The type depended on some template parameters.
4636 If they are fully specialized in the
4637 specialization, that's OK. */
4638 int j;
4639 int count = 0;
4640 for (j = 0; j < nargs; ++j)
4641 if (tpd2.parms[j] != 0
4642 && tpd.arg_uses_template_parms [j])
4643 ++count;
4644 if (count != 0)
4645 error_n (input_location, count,
4646 "type %qT of template argument %qE depends "
4647 "on a template parameter",
4648 "type %qT of template argument %qE depends "
4649 "on template parameters",
4650 type,
4651 arg);
4658 /* We should only get here once. */
4659 if (TREE_CODE (decl) == TYPE_DECL)
4660 gcc_assert (!COMPLETE_TYPE_P (type));
4662 // Build the template decl.
4663 tree tmpl = build_template_decl (decl, current_template_parms,
4664 DECL_MEMBER_TEMPLATE_P (maintmpl));
4665 TREE_TYPE (tmpl) = type;
4666 DECL_TEMPLATE_RESULT (tmpl) = decl;
4667 SET_DECL_TEMPLATE_SPECIALIZATION (tmpl);
4668 DECL_TEMPLATE_INFO (tmpl) = build_template_info (maintmpl, specargs);
4669 DECL_PRIMARY_TEMPLATE (tmpl) = maintmpl;
4671 if (VAR_P (decl))
4672 /* We didn't register this in check_explicit_specialization so we could
4673 wait until the constraints were set. */
4674 decl = register_specialization (decl, maintmpl, specargs, false, 0);
4675 else
4676 associate_classtype_constraints (type);
4678 DECL_TEMPLATE_SPECIALIZATIONS (maintmpl)
4679 = tree_cons (specargs, tmpl,
4680 DECL_TEMPLATE_SPECIALIZATIONS (maintmpl));
4681 TREE_TYPE (DECL_TEMPLATE_SPECIALIZATIONS (maintmpl)) = type;
4683 for (inst = DECL_TEMPLATE_INSTANTIATIONS (maintmpl); inst;
4684 inst = TREE_CHAIN (inst))
4686 tree instance = TREE_VALUE (inst);
4687 if (TYPE_P (instance)
4688 ? (COMPLETE_TYPE_P (instance)
4689 && CLASSTYPE_IMPLICIT_INSTANTIATION (instance))
4690 : DECL_TEMPLATE_INSTANTIATION (instance))
4692 tree spec = most_specialized_partial_spec (instance, tf_none);
4693 if (spec && TREE_VALUE (spec) == tmpl)
4695 tree inst_decl = (DECL_P (instance)
4696 ? instance : TYPE_NAME (instance));
4697 permerror (input_location,
4698 "partial specialization of %qD after instantiation "
4699 "of %qD", decl, inst_decl);
4704 return decl;
4707 /* PARM is a template parameter of some form; return the corresponding
4708 TEMPLATE_PARM_INDEX. */
4710 static tree
4711 get_template_parm_index (tree parm)
4713 if (TREE_CODE (parm) == PARM_DECL
4714 || TREE_CODE (parm) == CONST_DECL)
4715 parm = DECL_INITIAL (parm);
4716 else if (TREE_CODE (parm) == TYPE_DECL
4717 || TREE_CODE (parm) == TEMPLATE_DECL)
4718 parm = TREE_TYPE (parm);
4719 if (TREE_CODE (parm) == TEMPLATE_TYPE_PARM
4720 || TREE_CODE (parm) == BOUND_TEMPLATE_TEMPLATE_PARM
4721 || TREE_CODE (parm) == TEMPLATE_TEMPLATE_PARM)
4722 parm = TEMPLATE_TYPE_PARM_INDEX (parm);
4723 gcc_assert (TREE_CODE (parm) == TEMPLATE_PARM_INDEX);
4724 return parm;
4727 /* Subroutine of fixed_parameter_pack_p below. Look for any template
4728 parameter packs used by the template parameter PARM. */
4730 static void
4731 fixed_parameter_pack_p_1 (tree parm, struct find_parameter_pack_data *ppd)
4733 /* A type parm can't refer to another parm. */
4734 if (TREE_CODE (parm) == TYPE_DECL)
4735 return;
4736 else if (TREE_CODE (parm) == PARM_DECL)
4738 cp_walk_tree (&TREE_TYPE (parm), &find_parameter_packs_r,
4739 ppd, ppd->visited);
4740 return;
4743 gcc_assert (TREE_CODE (parm) == TEMPLATE_DECL);
4745 tree vec = INNERMOST_TEMPLATE_PARMS (DECL_TEMPLATE_PARMS (parm));
4746 for (int i = 0; i < TREE_VEC_LENGTH (vec); ++i)
4747 fixed_parameter_pack_p_1 (TREE_VALUE (TREE_VEC_ELT (vec, i)), ppd);
4750 /* PARM is a template parameter pack. Return any parameter packs used in
4751 its type or the type of any of its template parameters. If there are
4752 any such packs, it will be instantiated into a fixed template parameter
4753 list by partial instantiation rather than be fully deduced. */
4755 tree
4756 fixed_parameter_pack_p (tree parm)
4758 /* This can only be true in a member template. */
4759 if (TEMPLATE_PARM_ORIG_LEVEL (get_template_parm_index (parm)) < 2)
4760 return NULL_TREE;
4761 /* This can only be true for a parameter pack. */
4762 if (!template_parameter_pack_p (parm))
4763 return NULL_TREE;
4764 /* A type parm can't refer to another parm. */
4765 if (TREE_CODE (parm) == TYPE_DECL)
4766 return NULL_TREE;
4768 tree parameter_packs = NULL_TREE;
4769 struct find_parameter_pack_data ppd;
4770 ppd.parameter_packs = &parameter_packs;
4771 ppd.visited = new hash_set<tree>;
4773 fixed_parameter_pack_p_1 (parm, &ppd);
4775 delete ppd.visited;
4776 return parameter_packs;
4779 /* Check that a template declaration's use of default arguments and
4780 parameter packs is not invalid. Here, PARMS are the template
4781 parameters. IS_PRIMARY is true if DECL is the thing declared by
4782 a primary template. IS_PARTIAL is true if DECL is a partial
4783 specialization.
4785 IS_FRIEND_DECL is nonzero if DECL is a friend function template
4786 declaration (but not a definition); 1 indicates a declaration, 2
4787 indicates a redeclaration. When IS_FRIEND_DECL=2, no errors are
4788 emitted for extraneous default arguments.
4790 Returns TRUE if there were no errors found, FALSE otherwise. */
4792 bool
4793 check_default_tmpl_args (tree decl, tree parms, bool is_primary,
4794 bool is_partial, int is_friend_decl)
4796 const char *msg;
4797 int last_level_to_check;
4798 tree parm_level;
4799 bool no_errors = true;
4801 /* [temp.param]
4803 A default template-argument shall not be specified in a
4804 function template declaration or a function template definition, nor
4805 in the template-parameter-list of the definition of a member of a
4806 class template. */
4808 if (TREE_CODE (CP_DECL_CONTEXT (decl)) == FUNCTION_DECL
4809 || (TREE_CODE (decl) == FUNCTION_DECL && DECL_LOCAL_FUNCTION_P (decl)))
4810 /* You can't have a function template declaration in a local
4811 scope, nor you can you define a member of a class template in a
4812 local scope. */
4813 return true;
4815 if ((TREE_CODE (decl) == TYPE_DECL
4816 && TREE_TYPE (decl)
4817 && LAMBDA_TYPE_P (TREE_TYPE (decl)))
4818 || (TREE_CODE (decl) == FUNCTION_DECL
4819 && LAMBDA_FUNCTION_P (decl)))
4820 /* A lambda doesn't have an explicit declaration; don't complain
4821 about the parms of the enclosing class. */
4822 return true;
4824 if (current_class_type
4825 && !TYPE_BEING_DEFINED (current_class_type)
4826 && DECL_LANG_SPECIFIC (decl)
4827 && DECL_DECLARES_FUNCTION_P (decl)
4828 /* If this is either a friend defined in the scope of the class
4829 or a member function. */
4830 && (DECL_FUNCTION_MEMBER_P (decl)
4831 ? same_type_p (DECL_CONTEXT (decl), current_class_type)
4832 : DECL_FRIEND_CONTEXT (decl)
4833 ? same_type_p (DECL_FRIEND_CONTEXT (decl), current_class_type)
4834 : false)
4835 /* And, if it was a member function, it really was defined in
4836 the scope of the class. */
4837 && (!DECL_FUNCTION_MEMBER_P (decl)
4838 || DECL_INITIALIZED_IN_CLASS_P (decl)))
4839 /* We already checked these parameters when the template was
4840 declared, so there's no need to do it again now. This function
4841 was defined in class scope, but we're processing its body now
4842 that the class is complete. */
4843 return true;
4845 /* Core issue 226 (C++0x only): the following only applies to class
4846 templates. */
4847 if (is_primary
4848 && ((cxx_dialect == cxx98) || TREE_CODE (decl) != FUNCTION_DECL))
4850 /* [temp.param]
4852 If a template-parameter has a default template-argument, all
4853 subsequent template-parameters shall have a default
4854 template-argument supplied. */
4855 for (parm_level = parms; parm_level; parm_level = TREE_CHAIN (parm_level))
4857 tree inner_parms = TREE_VALUE (parm_level);
4858 int ntparms = TREE_VEC_LENGTH (inner_parms);
4859 int seen_def_arg_p = 0;
4860 int i;
4862 for (i = 0; i < ntparms; ++i)
4864 tree parm = TREE_VEC_ELT (inner_parms, i);
4866 if (parm == error_mark_node)
4867 continue;
4869 if (TREE_PURPOSE (parm))
4870 seen_def_arg_p = 1;
4871 else if (seen_def_arg_p
4872 && !template_parameter_pack_p (TREE_VALUE (parm)))
4874 error ("no default argument for %qD", TREE_VALUE (parm));
4875 /* For better subsequent error-recovery, we indicate that
4876 there should have been a default argument. */
4877 TREE_PURPOSE (parm) = error_mark_node;
4878 no_errors = false;
4880 else if (!is_partial
4881 && !is_friend_decl
4882 /* Don't complain about an enclosing partial
4883 specialization. */
4884 && parm_level == parms
4885 && TREE_CODE (decl) == TYPE_DECL
4886 && i < ntparms - 1
4887 && template_parameter_pack_p (TREE_VALUE (parm))
4888 /* A fixed parameter pack will be partially
4889 instantiated into a fixed length list. */
4890 && !fixed_parameter_pack_p (TREE_VALUE (parm)))
4892 /* A primary class template can only have one
4893 parameter pack, at the end of the template
4894 parameter list. */
4896 error ("parameter pack %q+D must be at the end of the"
4897 " template parameter list", TREE_VALUE (parm));
4899 TREE_VALUE (TREE_VEC_ELT (inner_parms, i))
4900 = error_mark_node;
4901 no_errors = false;
4907 if (((cxx_dialect == cxx98) && TREE_CODE (decl) != TYPE_DECL)
4908 || is_partial
4909 || !is_primary
4910 || is_friend_decl)
4911 /* For an ordinary class template, default template arguments are
4912 allowed at the innermost level, e.g.:
4913 template <class T = int>
4914 struct S {};
4915 but, in a partial specialization, they're not allowed even
4916 there, as we have in [temp.class.spec]:
4918 The template parameter list of a specialization shall not
4919 contain default template argument values.
4921 So, for a partial specialization, or for a function template
4922 (in C++98/C++03), we look at all of them. */
4924 else
4925 /* But, for a primary class template that is not a partial
4926 specialization we look at all template parameters except the
4927 innermost ones. */
4928 parms = TREE_CHAIN (parms);
4930 /* Figure out what error message to issue. */
4931 if (is_friend_decl == 2)
4932 msg = G_("default template arguments may not be used in function template "
4933 "friend re-declaration");
4934 else if (is_friend_decl)
4935 msg = G_("default template arguments may not be used in function template "
4936 "friend declarations");
4937 else if (TREE_CODE (decl) == FUNCTION_DECL && (cxx_dialect == cxx98))
4938 msg = G_("default template arguments may not be used in function templates "
4939 "without -std=c++11 or -std=gnu++11");
4940 else if (is_partial)
4941 msg = G_("default template arguments may not be used in "
4942 "partial specializations");
4943 else
4944 msg = G_("default argument for template parameter for class enclosing %qD");
4946 if (current_class_type && TYPE_BEING_DEFINED (current_class_type))
4947 /* If we're inside a class definition, there's no need to
4948 examine the parameters to the class itself. On the one
4949 hand, they will be checked when the class is defined, and,
4950 on the other, default arguments are valid in things like:
4951 template <class T = double>
4952 struct S { template <class U> void f(U); };
4953 Here the default argument for `S' has no bearing on the
4954 declaration of `f'. */
4955 last_level_to_check = template_class_depth (current_class_type) + 1;
4956 else
4957 /* Check everything. */
4958 last_level_to_check = 0;
4960 for (parm_level = parms;
4961 parm_level && TMPL_PARMS_DEPTH (parm_level) >= last_level_to_check;
4962 parm_level = TREE_CHAIN (parm_level))
4964 tree inner_parms = TREE_VALUE (parm_level);
4965 int i;
4966 int ntparms;
4968 ntparms = TREE_VEC_LENGTH (inner_parms);
4969 for (i = 0; i < ntparms; ++i)
4971 if (TREE_VEC_ELT (inner_parms, i) == error_mark_node)
4972 continue;
4974 if (TREE_PURPOSE (TREE_VEC_ELT (inner_parms, i)))
4976 if (msg)
4978 no_errors = false;
4979 if (is_friend_decl == 2)
4980 return no_errors;
4982 error (msg, decl);
4983 msg = 0;
4986 /* Clear out the default argument so that we are not
4987 confused later. */
4988 TREE_PURPOSE (TREE_VEC_ELT (inner_parms, i)) = NULL_TREE;
4992 /* At this point, if we're still interested in issuing messages,
4993 they must apply to classes surrounding the object declared. */
4994 if (msg)
4995 msg = G_("default argument for template parameter for class "
4996 "enclosing %qD");
4999 return no_errors;
5002 /* Worker for push_template_decl_real, called via
5003 for_each_template_parm. DATA is really an int, indicating the
5004 level of the parameters we are interested in. If T is a template
5005 parameter of that level, return nonzero. */
5007 static int
5008 template_parm_this_level_p (tree t, void* data)
5010 int this_level = *(int *)data;
5011 int level;
5013 if (TREE_CODE (t) == TEMPLATE_PARM_INDEX)
5014 level = TEMPLATE_PARM_LEVEL (t);
5015 else
5016 level = TEMPLATE_TYPE_LEVEL (t);
5017 return level == this_level;
5020 /* Creates a TEMPLATE_DECL for the indicated DECL using the template
5021 parameters given by current_template_args, or reuses a
5022 previously existing one, if appropriate. Returns the DECL, or an
5023 equivalent one, if it is replaced via a call to duplicate_decls.
5025 If IS_FRIEND is true, DECL is a friend declaration. */
5027 tree
5028 push_template_decl_real (tree decl, bool is_friend)
5030 tree tmpl;
5031 tree args;
5032 tree info;
5033 tree ctx;
5034 bool is_primary;
5035 bool is_partial;
5036 int new_template_p = 0;
5037 /* True if the template is a member template, in the sense of
5038 [temp.mem]. */
5039 bool member_template_p = false;
5041 if (decl == error_mark_node || !current_template_parms)
5042 return error_mark_node;
5044 /* See if this is a partial specialization. */
5045 is_partial = ((DECL_IMPLICIT_TYPEDEF_P (decl)
5046 && TREE_CODE (TREE_TYPE (decl)) != ENUMERAL_TYPE
5047 && CLASSTYPE_TEMPLATE_SPECIALIZATION (TREE_TYPE (decl)))
5048 || (VAR_P (decl)
5049 && DECL_LANG_SPECIFIC (decl)
5050 && DECL_TEMPLATE_SPECIALIZATION (decl)
5051 && TINFO_USED_TEMPLATE_ID (DECL_TEMPLATE_INFO (decl))));
5053 if (TREE_CODE (decl) == FUNCTION_DECL && DECL_FRIEND_P (decl))
5054 is_friend = true;
5056 if (is_friend)
5057 /* For a friend, we want the context of the friend function, not
5058 the type of which it is a friend. */
5059 ctx = CP_DECL_CONTEXT (decl);
5060 else if (CP_DECL_CONTEXT (decl)
5061 && TREE_CODE (CP_DECL_CONTEXT (decl)) != NAMESPACE_DECL)
5062 /* In the case of a virtual function, we want the class in which
5063 it is defined. */
5064 ctx = CP_DECL_CONTEXT (decl);
5065 else
5066 /* Otherwise, if we're currently defining some class, the DECL
5067 is assumed to be a member of the class. */
5068 ctx = current_scope ();
5070 if (ctx && TREE_CODE (ctx) == NAMESPACE_DECL)
5071 ctx = NULL_TREE;
5073 if (!DECL_CONTEXT (decl))
5074 DECL_CONTEXT (decl) = FROB_CONTEXT (current_namespace);
5076 /* See if this is a primary template. */
5077 if (is_friend && ctx
5078 && uses_template_parms_level (ctx, processing_template_decl))
5079 /* A friend template that specifies a class context, i.e.
5080 template <typename T> friend void A<T>::f();
5081 is not primary. */
5082 is_primary = false;
5083 else if (TREE_CODE (decl) == TYPE_DECL
5084 && LAMBDA_TYPE_P (TREE_TYPE (decl)))
5085 is_primary = false;
5086 else
5087 is_primary = template_parm_scope_p ();
5089 if (is_primary)
5091 if (DECL_CLASS_SCOPE_P (decl))
5092 member_template_p = true;
5093 if (TREE_CODE (decl) == TYPE_DECL
5094 && anon_aggrname_p (DECL_NAME (decl)))
5096 error ("template class without a name");
5097 return error_mark_node;
5099 else if (TREE_CODE (decl) == FUNCTION_DECL)
5101 if (member_template_p)
5103 if (DECL_OVERRIDE_P (decl) || DECL_FINAL_P (decl))
5104 error ("member template %qD may not have virt-specifiers", decl);
5106 if (DECL_DESTRUCTOR_P (decl))
5108 /* [temp.mem]
5110 A destructor shall not be a member template. */
5111 error ("destructor %qD declared as member template", decl);
5112 return error_mark_node;
5114 if (NEW_DELETE_OPNAME_P (DECL_NAME (decl))
5115 && (!prototype_p (TREE_TYPE (decl))
5116 || TYPE_ARG_TYPES (TREE_TYPE (decl)) == void_list_node
5117 || !TREE_CHAIN (TYPE_ARG_TYPES (TREE_TYPE (decl)))
5118 || (TREE_CHAIN (TYPE_ARG_TYPES ((TREE_TYPE (decl))))
5119 == void_list_node)))
5121 /* [basic.stc.dynamic.allocation]
5123 An allocation function can be a function
5124 template. ... Template allocation functions shall
5125 have two or more parameters. */
5126 error ("invalid template declaration of %qD", decl);
5127 return error_mark_node;
5130 else if (DECL_IMPLICIT_TYPEDEF_P (decl)
5131 && CLASS_TYPE_P (TREE_TYPE (decl)))
5132 /* OK */;
5133 else if (TREE_CODE (decl) == TYPE_DECL
5134 && TYPE_DECL_ALIAS_P (decl))
5135 /* alias-declaration */
5136 gcc_assert (!DECL_ARTIFICIAL (decl));
5137 else if (VAR_P (decl))
5138 /* C++14 variable template. */;
5139 else
5141 error ("template declaration of %q#D", decl);
5142 return error_mark_node;
5146 /* Check to see that the rules regarding the use of default
5147 arguments are not being violated. */
5148 check_default_tmpl_args (decl, current_template_parms,
5149 is_primary, is_partial, /*is_friend_decl=*/0);
5151 /* Ensure that there are no parameter packs in the type of this
5152 declaration that have not been expanded. */
5153 if (TREE_CODE (decl) == FUNCTION_DECL)
5155 /* Check each of the arguments individually to see if there are
5156 any bare parameter packs. */
5157 tree type = TREE_TYPE (decl);
5158 tree arg = DECL_ARGUMENTS (decl);
5159 tree argtype = TYPE_ARG_TYPES (type);
5161 while (arg && argtype)
5163 if (!DECL_PACK_P (arg)
5164 && check_for_bare_parameter_packs (TREE_TYPE (arg)))
5166 /* This is a PARM_DECL that contains unexpanded parameter
5167 packs. We have already complained about this in the
5168 check_for_bare_parameter_packs call, so just replace
5169 these types with ERROR_MARK_NODE. */
5170 TREE_TYPE (arg) = error_mark_node;
5171 TREE_VALUE (argtype) = error_mark_node;
5174 arg = DECL_CHAIN (arg);
5175 argtype = TREE_CHAIN (argtype);
5178 /* Check for bare parameter packs in the return type and the
5179 exception specifiers. */
5180 if (check_for_bare_parameter_packs (TREE_TYPE (type)))
5181 /* Errors were already issued, set return type to int
5182 as the frontend doesn't expect error_mark_node as
5183 the return type. */
5184 TREE_TYPE (type) = integer_type_node;
5185 if (check_for_bare_parameter_packs (TYPE_RAISES_EXCEPTIONS (type)))
5186 TYPE_RAISES_EXCEPTIONS (type) = NULL_TREE;
5188 else if (check_for_bare_parameter_packs ((TREE_CODE (decl) == TYPE_DECL
5189 && TYPE_DECL_ALIAS_P (decl))
5190 ? DECL_ORIGINAL_TYPE (decl)
5191 : TREE_TYPE (decl)))
5193 TREE_TYPE (decl) = error_mark_node;
5194 return error_mark_node;
5197 if (is_partial)
5198 return process_partial_specialization (decl);
5200 args = current_template_args ();
5202 if (!ctx
5203 || TREE_CODE (ctx) == FUNCTION_DECL
5204 || (CLASS_TYPE_P (ctx) && TYPE_BEING_DEFINED (ctx))
5205 || (TREE_CODE (decl) == TYPE_DECL
5206 && LAMBDA_TYPE_P (TREE_TYPE (decl)))
5207 || (is_friend && !DECL_TEMPLATE_INFO (decl)))
5209 if (DECL_LANG_SPECIFIC (decl)
5210 && DECL_TEMPLATE_INFO (decl)
5211 && DECL_TI_TEMPLATE (decl))
5212 tmpl = DECL_TI_TEMPLATE (decl);
5213 /* If DECL is a TYPE_DECL for a class-template, then there won't
5214 be DECL_LANG_SPECIFIC. The information equivalent to
5215 DECL_TEMPLATE_INFO is found in TYPE_TEMPLATE_INFO instead. */
5216 else if (DECL_IMPLICIT_TYPEDEF_P (decl)
5217 && TYPE_TEMPLATE_INFO (TREE_TYPE (decl))
5218 && TYPE_TI_TEMPLATE (TREE_TYPE (decl)))
5220 /* Since a template declaration already existed for this
5221 class-type, we must be redeclaring it here. Make sure
5222 that the redeclaration is valid. */
5223 redeclare_class_template (TREE_TYPE (decl),
5224 current_template_parms,
5225 current_template_constraints ());
5226 /* We don't need to create a new TEMPLATE_DECL; just use the
5227 one we already had. */
5228 tmpl = TYPE_TI_TEMPLATE (TREE_TYPE (decl));
5230 else
5232 tmpl = build_template_decl (decl, current_template_parms,
5233 member_template_p);
5234 new_template_p = 1;
5236 if (DECL_LANG_SPECIFIC (decl)
5237 && DECL_TEMPLATE_SPECIALIZATION (decl))
5239 /* A specialization of a member template of a template
5240 class. */
5241 SET_DECL_TEMPLATE_SPECIALIZATION (tmpl);
5242 DECL_TEMPLATE_INFO (tmpl) = DECL_TEMPLATE_INFO (decl);
5243 DECL_TEMPLATE_INFO (decl) = NULL_TREE;
5247 else
5249 tree a, t, current, parms;
5250 int i;
5251 tree tinfo = get_template_info (decl);
5253 if (!tinfo)
5255 error ("template definition of non-template %q#D", decl);
5256 return error_mark_node;
5259 tmpl = TI_TEMPLATE (tinfo);
5261 if (DECL_FUNCTION_TEMPLATE_P (tmpl)
5262 && DECL_TEMPLATE_INFO (decl) && DECL_TI_ARGS (decl)
5263 && DECL_TEMPLATE_SPECIALIZATION (decl)
5264 && DECL_MEMBER_TEMPLATE_P (tmpl))
5266 tree new_tmpl;
5268 /* The declaration is a specialization of a member
5269 template, declared outside the class. Therefore, the
5270 innermost template arguments will be NULL, so we
5271 replace them with the arguments determined by the
5272 earlier call to check_explicit_specialization. */
5273 args = DECL_TI_ARGS (decl);
5275 new_tmpl
5276 = build_template_decl (decl, current_template_parms,
5277 member_template_p);
5278 DECL_TEMPLATE_RESULT (new_tmpl) = decl;
5279 TREE_TYPE (new_tmpl) = TREE_TYPE (decl);
5280 DECL_TI_TEMPLATE (decl) = new_tmpl;
5281 SET_DECL_TEMPLATE_SPECIALIZATION (new_tmpl);
5282 DECL_TEMPLATE_INFO (new_tmpl)
5283 = build_template_info (tmpl, args);
5285 register_specialization (new_tmpl,
5286 most_general_template (tmpl),
5287 args,
5288 is_friend, 0);
5289 return decl;
5292 /* Make sure the template headers we got make sense. */
5294 parms = DECL_TEMPLATE_PARMS (tmpl);
5295 i = TMPL_PARMS_DEPTH (parms);
5296 if (TMPL_ARGS_DEPTH (args) != i)
5298 error ("expected %d levels of template parms for %q#D, got %d",
5299 i, decl, TMPL_ARGS_DEPTH (args));
5300 DECL_INTERFACE_KNOWN (decl) = 1;
5301 return error_mark_node;
5303 else
5304 for (current = decl; i > 0; --i, parms = TREE_CHAIN (parms))
5306 a = TMPL_ARGS_LEVEL (args, i);
5307 t = INNERMOST_TEMPLATE_PARMS (parms);
5309 if (TREE_VEC_LENGTH (t) != TREE_VEC_LENGTH (a))
5311 if (current == decl)
5312 error ("got %d template parameters for %q#D",
5313 TREE_VEC_LENGTH (a), decl);
5314 else
5315 error ("got %d template parameters for %q#T",
5316 TREE_VEC_LENGTH (a), current);
5317 error (" but %d required", TREE_VEC_LENGTH (t));
5318 /* Avoid crash in import_export_decl. */
5319 DECL_INTERFACE_KNOWN (decl) = 1;
5320 return error_mark_node;
5323 if (current == decl)
5324 current = ctx;
5325 else if (current == NULL_TREE)
5326 /* Can happen in erroneous input. */
5327 break;
5328 else
5329 current = get_containing_scope (current);
5332 /* Check that the parms are used in the appropriate qualifying scopes
5333 in the declarator. */
5334 if (!comp_template_args
5335 (TI_ARGS (tinfo),
5336 TI_ARGS (get_template_info (DECL_TEMPLATE_RESULT (tmpl)))))
5338 error ("\
5339 template arguments to %qD do not match original template %qD",
5340 decl, DECL_TEMPLATE_RESULT (tmpl));
5341 if (!uses_template_parms (TI_ARGS (tinfo)))
5342 inform (input_location, "use template<> for an explicit specialization");
5343 /* Avoid crash in import_export_decl. */
5344 DECL_INTERFACE_KNOWN (decl) = 1;
5345 return error_mark_node;
5349 DECL_TEMPLATE_RESULT (tmpl) = decl;
5350 TREE_TYPE (tmpl) = TREE_TYPE (decl);
5352 /* Push template declarations for global functions and types. Note
5353 that we do not try to push a global template friend declared in a
5354 template class; such a thing may well depend on the template
5355 parameters of the class. */
5356 if (new_template_p && !ctx
5357 && !(is_friend && template_class_depth (current_class_type) > 0))
5359 tmpl = pushdecl_namespace_level (tmpl, is_friend);
5360 if (tmpl == error_mark_node)
5361 return error_mark_node;
5363 /* Hide template friend classes that haven't been declared yet. */
5364 if (is_friend && TREE_CODE (decl) == TYPE_DECL)
5366 DECL_ANTICIPATED (tmpl) = 1;
5367 DECL_FRIEND_P (tmpl) = 1;
5371 if (is_primary)
5373 tree parms = DECL_TEMPLATE_PARMS (tmpl);
5374 int i;
5376 DECL_PRIMARY_TEMPLATE (tmpl) = tmpl;
5377 if (DECL_CONV_FN_P (tmpl))
5379 int depth = TMPL_PARMS_DEPTH (parms);
5381 /* It is a conversion operator. See if the type converted to
5382 depends on innermost template operands. */
5384 if (uses_template_parms_level (TREE_TYPE (TREE_TYPE (tmpl)),
5385 depth))
5386 DECL_TEMPLATE_CONV_FN_P (tmpl) = 1;
5389 /* Give template template parms a DECL_CONTEXT of the template
5390 for which they are a parameter. */
5391 parms = INNERMOST_TEMPLATE_PARMS (parms);
5392 for (i = TREE_VEC_LENGTH (parms) - 1; i >= 0; --i)
5394 tree parm = TREE_VALUE (TREE_VEC_ELT (parms, i));
5395 if (TREE_CODE (parm) == TEMPLATE_DECL)
5396 DECL_CONTEXT (parm) = tmpl;
5399 if (TREE_CODE (decl) == TYPE_DECL
5400 && TYPE_DECL_ALIAS_P (decl)
5401 && complex_alias_template_p (tmpl))
5402 TEMPLATE_DECL_COMPLEX_ALIAS_P (tmpl) = true;
5405 /* The DECL_TI_ARGS of DECL contains full set of arguments referring
5406 back to its most general template. If TMPL is a specialization,
5407 ARGS may only have the innermost set of arguments. Add the missing
5408 argument levels if necessary. */
5409 if (DECL_TEMPLATE_INFO (tmpl))
5410 args = add_outermost_template_args (DECL_TI_ARGS (tmpl), args);
5412 info = build_template_info (tmpl, args);
5414 if (DECL_IMPLICIT_TYPEDEF_P (decl))
5415 SET_TYPE_TEMPLATE_INFO (TREE_TYPE (tmpl), info);
5416 else
5418 if (is_primary && !DECL_LANG_SPECIFIC (decl))
5419 retrofit_lang_decl (decl);
5420 if (DECL_LANG_SPECIFIC (decl))
5421 DECL_TEMPLATE_INFO (decl) = info;
5424 if (flag_implicit_templates
5425 && !is_friend
5426 && TREE_PUBLIC (decl)
5427 && VAR_OR_FUNCTION_DECL_P (decl))
5428 /* Set DECL_COMDAT on template instantiations; if we force
5429 them to be emitted by explicit instantiation or -frepo,
5430 mark_needed will tell cgraph to do the right thing. */
5431 DECL_COMDAT (decl) = true;
5433 return DECL_TEMPLATE_RESULT (tmpl);
5436 tree
5437 push_template_decl (tree decl)
5439 return push_template_decl_real (decl, false);
5442 /* FN is an inheriting constructor that inherits from the constructor
5443 template INHERITED; turn FN into a constructor template with a matching
5444 template header. */
5446 tree
5447 add_inherited_template_parms (tree fn, tree inherited)
5449 tree inner_parms
5450 = INNERMOST_TEMPLATE_PARMS (DECL_TEMPLATE_PARMS (inherited));
5451 inner_parms = copy_node (inner_parms);
5452 tree parms
5453 = tree_cons (size_int (processing_template_decl + 1),
5454 inner_parms, current_template_parms);
5455 tree tmpl = build_template_decl (fn, parms, /*member*/true);
5456 tree args = template_parms_to_args (parms);
5457 DECL_TEMPLATE_INFO (fn) = build_template_info (tmpl, args);
5458 TREE_TYPE (tmpl) = TREE_TYPE (fn);
5459 DECL_TEMPLATE_RESULT (tmpl) = fn;
5460 DECL_ARTIFICIAL (tmpl) = true;
5461 DECL_PRIMARY_TEMPLATE (tmpl) = tmpl;
5462 return tmpl;
5465 /* Called when a class template TYPE is redeclared with the indicated
5466 template PARMS, e.g.:
5468 template <class T> struct S;
5469 template <class T> struct S {}; */
5471 bool
5472 redeclare_class_template (tree type, tree parms, tree cons)
5474 tree tmpl;
5475 tree tmpl_parms;
5476 int i;
5478 if (!TYPE_TEMPLATE_INFO (type))
5480 error ("%qT is not a template type", type);
5481 return false;
5484 tmpl = TYPE_TI_TEMPLATE (type);
5485 if (!PRIMARY_TEMPLATE_P (tmpl))
5486 /* The type is nested in some template class. Nothing to worry
5487 about here; there are no new template parameters for the nested
5488 type. */
5489 return true;
5491 if (!parms)
5493 error ("template specifiers not specified in declaration of %qD",
5494 tmpl);
5495 return false;
5498 parms = INNERMOST_TEMPLATE_PARMS (parms);
5499 tmpl_parms = DECL_INNERMOST_TEMPLATE_PARMS (tmpl);
5501 if (TREE_VEC_LENGTH (parms) != TREE_VEC_LENGTH (tmpl_parms))
5503 error_n (input_location, TREE_VEC_LENGTH (parms),
5504 "redeclared with %d template parameter",
5505 "redeclared with %d template parameters",
5506 TREE_VEC_LENGTH (parms));
5507 inform_n (DECL_SOURCE_LOCATION (tmpl), TREE_VEC_LENGTH (tmpl_parms),
5508 "previous declaration %qD used %d template parameter",
5509 "previous declaration %qD used %d template parameters",
5510 tmpl, TREE_VEC_LENGTH (tmpl_parms));
5511 return false;
5514 for (i = 0; i < TREE_VEC_LENGTH (tmpl_parms); ++i)
5516 tree tmpl_parm;
5517 tree parm;
5518 tree tmpl_default;
5519 tree parm_default;
5521 if (TREE_VEC_ELT (tmpl_parms, i) == error_mark_node
5522 || TREE_VEC_ELT (parms, i) == error_mark_node)
5523 continue;
5525 tmpl_parm = TREE_VALUE (TREE_VEC_ELT (tmpl_parms, i));
5526 if (error_operand_p (tmpl_parm))
5527 return false;
5529 parm = TREE_VALUE (TREE_VEC_ELT (parms, i));
5530 tmpl_default = TREE_PURPOSE (TREE_VEC_ELT (tmpl_parms, i));
5531 parm_default = TREE_PURPOSE (TREE_VEC_ELT (parms, i));
5533 /* TMPL_PARM and PARM can be either TYPE_DECL, PARM_DECL, or
5534 TEMPLATE_DECL. */
5535 if (TREE_CODE (tmpl_parm) != TREE_CODE (parm)
5536 || (TREE_CODE (tmpl_parm) != TYPE_DECL
5537 && !same_type_p (TREE_TYPE (tmpl_parm), TREE_TYPE (parm)))
5538 || (TREE_CODE (tmpl_parm) != PARM_DECL
5539 && (TEMPLATE_TYPE_PARAMETER_PACK (TREE_TYPE (tmpl_parm))
5540 != TEMPLATE_TYPE_PARAMETER_PACK (TREE_TYPE (parm))))
5541 || (TREE_CODE (tmpl_parm) == PARM_DECL
5542 && (TEMPLATE_PARM_PARAMETER_PACK (DECL_INITIAL (tmpl_parm))
5543 != TEMPLATE_PARM_PARAMETER_PACK (DECL_INITIAL (parm)))))
5545 error ("template parameter %q+#D", tmpl_parm);
5546 error ("redeclared here as %q#D", parm);
5547 return false;
5550 if (tmpl_default != NULL_TREE && parm_default != NULL_TREE)
5552 /* We have in [temp.param]:
5554 A template-parameter may not be given default arguments
5555 by two different declarations in the same scope. */
5556 error_at (input_location, "redefinition of default argument for %q#D", parm);
5557 inform (DECL_SOURCE_LOCATION (tmpl_parm),
5558 "original definition appeared here");
5559 return false;
5562 if (parm_default != NULL_TREE)
5563 /* Update the previous template parameters (which are the ones
5564 that will really count) with the new default value. */
5565 TREE_PURPOSE (TREE_VEC_ELT (tmpl_parms, i)) = parm_default;
5566 else if (tmpl_default != NULL_TREE)
5567 /* Update the new parameters, too; they'll be used as the
5568 parameters for any members. */
5569 TREE_PURPOSE (TREE_VEC_ELT (parms, i)) = tmpl_default;
5571 /* Give each template template parm in this redeclaration a
5572 DECL_CONTEXT of the template for which they are a parameter. */
5573 if (TREE_CODE (parm) == TEMPLATE_DECL)
5575 gcc_assert (DECL_CONTEXT (parm) == NULL_TREE);
5576 DECL_CONTEXT (parm) = tmpl;
5580 // Cannot redeclare a class template with a different set of constraints.
5581 if (!equivalent_constraints (get_constraints (tmpl), cons))
5583 error_at (input_location, "redeclaration %q#D with different "
5584 "constraints", tmpl);
5585 inform (DECL_SOURCE_LOCATION (tmpl),
5586 "original declaration appeared here");
5589 return true;
5592 /* The actual substitution part of instantiate_non_dependent_expr_sfinae,
5593 to be used when the caller has already checked
5594 (processing_template_decl
5595 && !instantiation_dependent_expression_p (expr)
5596 && potential_constant_expression (expr))
5597 and cleared processing_template_decl. */
5599 tree
5600 instantiate_non_dependent_expr_internal (tree expr, tsubst_flags_t complain)
5602 return tsubst_copy_and_build (expr,
5603 /*args=*/NULL_TREE,
5604 complain,
5605 /*in_decl=*/NULL_TREE,
5606 /*function_p=*/false,
5607 /*integral_constant_expression_p=*/true);
5610 /* Simplify EXPR if it is a non-dependent expression. Returns the
5611 (possibly simplified) expression. */
5613 tree
5614 instantiate_non_dependent_expr_sfinae (tree expr, tsubst_flags_t complain)
5616 if (expr == NULL_TREE)
5617 return NULL_TREE;
5619 /* If we're in a template, but EXPR isn't value dependent, simplify
5620 it. We're supposed to treat:
5622 template <typename T> void f(T[1 + 1]);
5623 template <typename T> void f(T[2]);
5625 as two declarations of the same function, for example. */
5626 if (processing_template_decl
5627 && !instantiation_dependent_expression_p (expr)
5628 && potential_constant_expression (expr))
5630 processing_template_decl_sentinel s;
5631 expr = instantiate_non_dependent_expr_internal (expr, complain);
5633 return expr;
5636 tree
5637 instantiate_non_dependent_expr (tree expr)
5639 return instantiate_non_dependent_expr_sfinae (expr, tf_error);
5642 /* True iff T is a specialization of a variable template. */
5644 bool
5645 variable_template_specialization_p (tree t)
5647 if (!VAR_P (t) || !DECL_LANG_SPECIFIC (t) || !DECL_TEMPLATE_INFO (t))
5648 return false;
5649 tree tmpl = DECL_TI_TEMPLATE (t);
5650 return variable_template_p (tmpl);
5653 /* Return TRUE iff T is a type alias, a TEMPLATE_DECL for an alias
5654 template declaration, or a TYPE_DECL for an alias declaration. */
5656 bool
5657 alias_type_or_template_p (tree t)
5659 if (t == NULL_TREE)
5660 return false;
5661 return ((TREE_CODE (t) == TYPE_DECL && TYPE_DECL_ALIAS_P (t))
5662 || (TYPE_P (t)
5663 && TYPE_NAME (t)
5664 && TYPE_DECL_ALIAS_P (TYPE_NAME (t)))
5665 || DECL_ALIAS_TEMPLATE_P (t));
5668 /* Return TRUE iff T is a specialization of an alias template. */
5670 bool
5671 alias_template_specialization_p (const_tree t)
5673 /* It's an alias template specialization if it's an alias and its
5674 TYPE_NAME is a specialization of a primary template. */
5675 if (TYPE_ALIAS_P (t))
5677 tree name = TYPE_NAME (t);
5678 if (DECL_LANG_SPECIFIC (name))
5679 if (tree ti = DECL_TEMPLATE_INFO (name))
5681 tree tmpl = TI_TEMPLATE (ti);
5682 return PRIMARY_TEMPLATE_P (tmpl);
5685 return false;
5688 /* An alias template is complex from a SFINAE perspective if a template-id
5689 using that alias can be ill-formed when the expansion is not, as with
5690 the void_t template. We determine this by checking whether the
5691 expansion for the alias template uses all its template parameters. */
5693 struct uses_all_template_parms_data
5695 int level;
5696 bool *seen;
5699 static int
5700 uses_all_template_parms_r (tree t, void *data_)
5702 struct uses_all_template_parms_data &data
5703 = *(struct uses_all_template_parms_data*)data_;
5704 tree idx = get_template_parm_index (t);
5706 if (TEMPLATE_PARM_LEVEL (idx) == data.level)
5707 data.seen[TEMPLATE_PARM_IDX (idx)] = true;
5708 return 0;
5711 static bool
5712 complex_alias_template_p (const_tree tmpl)
5714 struct uses_all_template_parms_data data;
5715 tree pat = DECL_ORIGINAL_TYPE (DECL_TEMPLATE_RESULT (tmpl));
5716 tree parms = DECL_TEMPLATE_PARMS (tmpl);
5717 data.level = TMPL_PARMS_DEPTH (parms);
5718 int len = TREE_VEC_LENGTH (INNERMOST_TEMPLATE_PARMS (parms));
5719 data.seen = XALLOCAVEC (bool, len);
5720 for (int i = 0; i < len; ++i)
5721 data.seen[i] = false;
5723 for_each_template_parm (pat, uses_all_template_parms_r, &data, NULL, true);
5724 for (int i = 0; i < len; ++i)
5725 if (!data.seen[i])
5726 return true;
5727 return false;
5730 /* Return TRUE iff T is a specialization of a complex alias template with
5731 dependent template-arguments. */
5733 bool
5734 dependent_alias_template_spec_p (const_tree t)
5736 return (alias_template_specialization_p (t)
5737 && TEMPLATE_DECL_COMPLEX_ALIAS_P (DECL_TI_TEMPLATE (TYPE_NAME (t)))
5738 && (any_dependent_template_arguments_p
5739 (INNERMOST_TEMPLATE_ARGS (TYPE_TI_ARGS (t)))));
5742 /* Return the number of innermost template parameters in TMPL. */
5744 static int
5745 num_innermost_template_parms (tree tmpl)
5747 tree parms = INNERMOST_TEMPLATE_PARMS (DECL_TEMPLATE_PARMS (tmpl));
5748 return TREE_VEC_LENGTH (parms);
5751 /* Return either TMPL or another template that it is equivalent to under DR
5752 1286: An alias that just changes the name of a template is equivalent to
5753 the other template. */
5755 static tree
5756 get_underlying_template (tree tmpl)
5758 gcc_assert (TREE_CODE (tmpl) == TEMPLATE_DECL);
5759 while (DECL_ALIAS_TEMPLATE_P (tmpl))
5761 tree result = DECL_ORIGINAL_TYPE (DECL_TEMPLATE_RESULT (tmpl));
5762 if (TYPE_TEMPLATE_INFO (result))
5764 tree sub = TYPE_TI_TEMPLATE (result);
5765 if (PRIMARY_TEMPLATE_P (sub)
5766 && (num_innermost_template_parms (tmpl)
5767 == num_innermost_template_parms (sub)))
5769 tree alias_args = INNERMOST_TEMPLATE_ARGS
5770 (template_parms_to_args (DECL_TEMPLATE_PARMS (tmpl)));
5771 if (!comp_template_args (TYPE_TI_ARGS (result), alias_args))
5772 break;
5773 /* The alias type is equivalent to the pattern of the
5774 underlying template, so strip the alias. */
5775 tmpl = sub;
5776 continue;
5779 break;
5781 return tmpl;
5784 /* Subroutine of convert_nontype_argument. Converts EXPR to TYPE, which
5785 must be a function or a pointer-to-function type, as specified
5786 in [temp.arg.nontype]: disambiguate EXPR if it is an overload set,
5787 and check that the resulting function has external linkage. */
5789 static tree
5790 convert_nontype_argument_function (tree type, tree expr,
5791 tsubst_flags_t complain)
5793 tree fns = expr;
5794 tree fn, fn_no_ptr;
5795 linkage_kind linkage;
5797 fn = instantiate_type (type, fns, tf_none);
5798 if (fn == error_mark_node)
5799 return error_mark_node;
5801 fn_no_ptr = fn;
5802 if (TREE_CODE (fn_no_ptr) == ADDR_EXPR)
5803 fn_no_ptr = TREE_OPERAND (fn_no_ptr, 0);
5804 if (BASELINK_P (fn_no_ptr))
5805 fn_no_ptr = BASELINK_FUNCTIONS (fn_no_ptr);
5807 /* [temp.arg.nontype]/1
5809 A template-argument for a non-type, non-template template-parameter
5810 shall be one of:
5811 [...]
5812 -- the address of an object or function with external [C++11: or
5813 internal] linkage. */
5815 if (TREE_CODE (fn_no_ptr) != FUNCTION_DECL)
5817 if (complain & tf_error)
5819 error ("%qE is not a valid template argument for type %qT",
5820 expr, type);
5821 if (TYPE_PTR_P (type))
5822 error ("it must be the address of a function with "
5823 "external linkage");
5824 else
5825 error ("it must be the name of a function with "
5826 "external linkage");
5828 return NULL_TREE;
5831 linkage = decl_linkage (fn_no_ptr);
5832 if (cxx_dialect >= cxx11 ? linkage == lk_none : linkage != lk_external)
5834 if (complain & tf_error)
5836 if (cxx_dialect >= cxx11)
5837 error ("%qE is not a valid template argument for type %qT "
5838 "because %qD has no linkage",
5839 expr, type, fn_no_ptr);
5840 else
5841 error ("%qE is not a valid template argument for type %qT "
5842 "because %qD does not have external linkage",
5843 expr, type, fn_no_ptr);
5845 return NULL_TREE;
5848 return fn;
5851 /* Subroutine of convert_nontype_argument.
5852 Check if EXPR of type TYPE is a valid pointer-to-member constant.
5853 Emit an error otherwise. */
5855 static bool
5856 check_valid_ptrmem_cst_expr (tree type, tree expr,
5857 tsubst_flags_t complain)
5859 STRIP_NOPS (expr);
5860 if (expr && (null_ptr_cst_p (expr) || TREE_CODE (expr) == PTRMEM_CST))
5861 return true;
5862 if (cxx_dialect >= cxx11 && null_member_pointer_value_p (expr))
5863 return true;
5864 if (processing_template_decl
5865 && TREE_CODE (expr) == ADDR_EXPR
5866 && TREE_CODE (TREE_OPERAND (expr, 0)) == OFFSET_REF)
5867 return true;
5868 if (complain & tf_error)
5870 error ("%qE is not a valid template argument for type %qT",
5871 expr, type);
5872 error ("it must be a pointer-to-member of the form %<&X::Y%>");
5874 return false;
5877 /* Returns TRUE iff the address of OP is value-dependent.
5879 14.6.2.4 [temp.dep.temp]:
5880 A non-integral non-type template-argument is dependent if its type is
5881 dependent or it has either of the following forms
5882 qualified-id
5883 & qualified-id
5884 and contains a nested-name-specifier which specifies a class-name that
5885 names a dependent type.
5887 We generalize this to just say that the address of a member of a
5888 dependent class is value-dependent; the above doesn't cover the
5889 address of a static data member named with an unqualified-id. */
5891 static bool
5892 has_value_dependent_address (tree op)
5894 /* We could use get_inner_reference here, but there's no need;
5895 this is only relevant for template non-type arguments, which
5896 can only be expressed as &id-expression. */
5897 if (DECL_P (op))
5899 tree ctx = CP_DECL_CONTEXT (op);
5900 if (TYPE_P (ctx) && dependent_type_p (ctx))
5901 return true;
5904 return false;
5907 /* The next set of functions are used for providing helpful explanatory
5908 diagnostics for failed overload resolution. Their messages should be
5909 indented by two spaces for consistency with the messages in
5910 call.c */
5912 static int
5913 unify_success (bool /*explain_p*/)
5915 return 0;
5918 static int
5919 unify_parameter_deduction_failure (bool explain_p, tree parm)
5921 if (explain_p)
5922 inform (input_location,
5923 " couldn't deduce template parameter %qD", parm);
5924 return 1;
5927 static int
5928 unify_invalid (bool /*explain_p*/)
5930 return 1;
5933 static int
5934 unify_cv_qual_mismatch (bool explain_p, tree parm, tree arg)
5936 if (explain_p)
5937 inform (input_location,
5938 " types %qT and %qT have incompatible cv-qualifiers",
5939 parm, arg);
5940 return 1;
5943 static int
5944 unify_type_mismatch (bool explain_p, tree parm, tree arg)
5946 if (explain_p)
5947 inform (input_location, " mismatched types %qT and %qT", parm, arg);
5948 return 1;
5951 static int
5952 unify_parameter_pack_mismatch (bool explain_p, tree parm, tree arg)
5954 if (explain_p)
5955 inform (input_location,
5956 " template parameter %qD is not a parameter pack, but "
5957 "argument %qD is",
5958 parm, arg);
5959 return 1;
5962 static int
5963 unify_ptrmem_cst_mismatch (bool explain_p, tree parm, tree arg)
5965 if (explain_p)
5966 inform (input_location,
5967 " template argument %qE does not match "
5968 "pointer-to-member constant %qE",
5969 arg, parm);
5970 return 1;
5973 static int
5974 unify_expression_unequal (bool explain_p, tree parm, tree arg)
5976 if (explain_p)
5977 inform (input_location, " %qE is not equivalent to %qE", parm, arg);
5978 return 1;
5981 static int
5982 unify_parameter_pack_inconsistent (bool explain_p, tree old_arg, tree new_arg)
5984 if (explain_p)
5985 inform (input_location,
5986 " inconsistent parameter pack deduction with %qT and %qT",
5987 old_arg, new_arg);
5988 return 1;
5991 static int
5992 unify_inconsistency (bool explain_p, tree parm, tree first, tree second)
5994 if (explain_p)
5996 if (TYPE_P (parm))
5997 inform (input_location,
5998 " deduced conflicting types for parameter %qT (%qT and %qT)",
5999 parm, first, second);
6000 else
6001 inform (input_location,
6002 " deduced conflicting values for non-type parameter "
6003 "%qE (%qE and %qE)", parm, first, second);
6005 return 1;
6008 static int
6009 unify_vla_arg (bool explain_p, tree arg)
6011 if (explain_p)
6012 inform (input_location,
6013 " variable-sized array type %qT is not "
6014 "a valid template argument",
6015 arg);
6016 return 1;
6019 static int
6020 unify_method_type_error (bool explain_p, tree arg)
6022 if (explain_p)
6023 inform (input_location,
6024 " member function type %qT is not a valid template argument",
6025 arg);
6026 return 1;
6029 static int
6030 unify_arity (bool explain_p, int have, int wanted, bool least_p = false)
6032 if (explain_p)
6034 if (least_p)
6035 inform_n (input_location, wanted,
6036 " candidate expects at least %d argument, %d provided",
6037 " candidate expects at least %d arguments, %d provided",
6038 wanted, have);
6039 else
6040 inform_n (input_location, wanted,
6041 " candidate expects %d argument, %d provided",
6042 " candidate expects %d arguments, %d provided",
6043 wanted, have);
6045 return 1;
6048 static int
6049 unify_too_many_arguments (bool explain_p, int have, int wanted)
6051 return unify_arity (explain_p, have, wanted);
6054 static int
6055 unify_too_few_arguments (bool explain_p, int have, int wanted,
6056 bool least_p = false)
6058 return unify_arity (explain_p, have, wanted, least_p);
6061 static int
6062 unify_arg_conversion (bool explain_p, tree to_type,
6063 tree from_type, tree arg)
6065 if (explain_p)
6066 inform (EXPR_LOC_OR_LOC (arg, input_location),
6067 " cannot convert %qE (type %qT) to type %qT",
6068 arg, from_type, to_type);
6069 return 1;
6072 static int
6073 unify_no_common_base (bool explain_p, enum template_base_result r,
6074 tree parm, tree arg)
6076 if (explain_p)
6077 switch (r)
6079 case tbr_ambiguous_baseclass:
6080 inform (input_location, " %qT is an ambiguous base class of %qT",
6081 parm, arg);
6082 break;
6083 default:
6084 inform (input_location, " %qT is not derived from %qT", arg, parm);
6085 break;
6087 return 1;
6090 static int
6091 unify_inconsistent_template_template_parameters (bool explain_p)
6093 if (explain_p)
6094 inform (input_location,
6095 " template parameters of a template template argument are "
6096 "inconsistent with other deduced template arguments");
6097 return 1;
6100 static int
6101 unify_template_deduction_failure (bool explain_p, tree parm, tree arg)
6103 if (explain_p)
6104 inform (input_location,
6105 " can't deduce a template for %qT from non-template type %qT",
6106 parm, arg);
6107 return 1;
6110 static int
6111 unify_template_argument_mismatch (bool explain_p, tree parm, tree arg)
6113 if (explain_p)
6114 inform (input_location,
6115 " template argument %qE does not match %qD", arg, parm);
6116 return 1;
6119 static int
6120 unify_overload_resolution_failure (bool explain_p, tree arg)
6122 if (explain_p)
6123 inform (input_location,
6124 " could not resolve address from overloaded function %qE",
6125 arg);
6126 return 1;
6129 /* Attempt to convert the non-type template parameter EXPR to the
6130 indicated TYPE. If the conversion is successful, return the
6131 converted value. If the conversion is unsuccessful, return
6132 NULL_TREE if we issued an error message, or error_mark_node if we
6133 did not. We issue error messages for out-and-out bad template
6134 parameters, but not simply because the conversion failed, since we
6135 might be just trying to do argument deduction. Both TYPE and EXPR
6136 must be non-dependent.
6138 The conversion follows the special rules described in
6139 [temp.arg.nontype], and it is much more strict than an implicit
6140 conversion.
6142 This function is called twice for each template argument (see
6143 lookup_template_class for a more accurate description of this
6144 problem). This means that we need to handle expressions which
6145 are not valid in a C++ source, but can be created from the
6146 first call (for instance, casts to perform conversions). These
6147 hacks can go away after we fix the double coercion problem. */
6149 static tree
6150 convert_nontype_argument (tree type, tree expr, tsubst_flags_t complain)
6152 tree expr_type;
6154 /* Detect immediately string literals as invalid non-type argument.
6155 This special-case is not needed for correctness (we would easily
6156 catch this later), but only to provide better diagnostic for this
6157 common user mistake. As suggested by DR 100, we do not mention
6158 linkage issues in the diagnostic as this is not the point. */
6159 /* FIXME we're making this OK. */
6160 if (TREE_CODE (expr) == STRING_CST)
6162 if (complain & tf_error)
6163 error ("%qE is not a valid template argument for type %qT "
6164 "because string literals can never be used in this context",
6165 expr, type);
6166 return NULL_TREE;
6169 /* Add the ADDR_EXPR now for the benefit of
6170 value_dependent_expression_p. */
6171 if (TYPE_PTROBV_P (type)
6172 && TREE_CODE (TREE_TYPE (expr)) == ARRAY_TYPE)
6174 expr = decay_conversion (expr, complain);
6175 if (expr == error_mark_node)
6176 return error_mark_node;
6179 /* If we are in a template, EXPR may be non-dependent, but still
6180 have a syntactic, rather than semantic, form. For example, EXPR
6181 might be a SCOPE_REF, rather than the VAR_DECL to which the
6182 SCOPE_REF refers. Preserving the qualifying scope is necessary
6183 so that access checking can be performed when the template is
6184 instantiated -- but here we need the resolved form so that we can
6185 convert the argument. */
6186 bool non_dep = false;
6187 if (TYPE_REF_OBJ_P (type)
6188 && has_value_dependent_address (expr))
6189 /* If we want the address and it's value-dependent, don't fold. */;
6190 else if (!type_unknown_p (expr)
6191 && processing_template_decl
6192 && !instantiation_dependent_expression_p (expr)
6193 && potential_constant_expression (expr))
6194 non_dep = true;
6195 if (error_operand_p (expr))
6196 return error_mark_node;
6197 expr_type = TREE_TYPE (expr);
6198 if (TREE_CODE (type) == REFERENCE_TYPE)
6199 expr = mark_lvalue_use (expr);
6200 else
6201 expr = mark_rvalue_use (expr);
6203 /* If the argument is non-dependent, perform any conversions in
6204 non-dependent context as well. */
6205 processing_template_decl_sentinel s (non_dep);
6206 if (non_dep)
6207 expr = instantiate_non_dependent_expr_internal (expr, complain);
6209 /* 14.3.2/5: The null pointer{,-to-member} conversion is applied
6210 to a non-type argument of "nullptr". */
6211 if (expr == nullptr_node && TYPE_PTR_OR_PTRMEM_P (type))
6212 expr = convert (type, expr);
6214 /* In C++11, integral or enumeration non-type template arguments can be
6215 arbitrary constant expressions. Pointer and pointer to
6216 member arguments can be general constant expressions that evaluate
6217 to a null value, but otherwise still need to be of a specific form. */
6218 if (cxx_dialect >= cxx11)
6220 if (TREE_CODE (expr) == PTRMEM_CST)
6221 /* A PTRMEM_CST is already constant, and a valid template
6222 argument for a parameter of pointer to member type, we just want
6223 to leave it in that form rather than lower it to a
6224 CONSTRUCTOR. */;
6225 else if (INTEGRAL_OR_ENUMERATION_TYPE_P (type))
6226 expr = maybe_constant_value (expr);
6227 else if (TYPE_PTR_OR_PTRMEM_P (type))
6229 tree folded = maybe_constant_value (expr);
6230 if (TYPE_PTR_P (type) ? integer_zerop (folded)
6231 : null_member_pointer_value_p (folded))
6232 expr = folded;
6236 /* HACK: Due to double coercion, we can get a
6237 NOP_EXPR<REFERENCE_TYPE>(ADDR_EXPR<POINTER_TYPE> (arg)) here,
6238 which is the tree that we built on the first call (see
6239 below when coercing to reference to object or to reference to
6240 function). We just strip everything and get to the arg.
6241 See g++.old-deja/g++.oliva/template4.C and g++.dg/template/nontype9.C
6242 for examples. */
6243 if (TYPE_REF_OBJ_P (type) || TYPE_REFFN_P (type))
6245 tree probe_type, probe = expr;
6246 if (REFERENCE_REF_P (probe))
6247 probe = TREE_OPERAND (probe, 0);
6248 probe_type = TREE_TYPE (probe);
6249 if (TREE_CODE (probe) == NOP_EXPR)
6251 /* ??? Maybe we could use convert_from_reference here, but we
6252 would need to relax its constraints because the NOP_EXPR
6253 could actually change the type to something more cv-qualified,
6254 and this is not folded by convert_from_reference. */
6255 tree addr = TREE_OPERAND (probe, 0);
6256 if (TREE_CODE (probe_type) == REFERENCE_TYPE
6257 && TREE_CODE (addr) == ADDR_EXPR
6258 && TYPE_PTR_P (TREE_TYPE (addr))
6259 && (same_type_ignoring_top_level_qualifiers_p
6260 (TREE_TYPE (probe_type),
6261 TREE_TYPE (TREE_TYPE (addr)))))
6263 expr = TREE_OPERAND (addr, 0);
6264 expr_type = TREE_TYPE (probe_type);
6269 /* We could also generate a NOP_EXPR(ADDR_EXPR()) when the
6270 parameter is a pointer to object, through decay and
6271 qualification conversion. Let's strip everything. */
6272 else if (TREE_CODE (expr) == NOP_EXPR && TYPE_PTROBV_P (type))
6274 tree probe = expr;
6275 STRIP_NOPS (probe);
6276 if (TREE_CODE (probe) == ADDR_EXPR
6277 && TYPE_PTR_P (TREE_TYPE (probe)))
6279 /* Skip the ADDR_EXPR only if it is part of the decay for
6280 an array. Otherwise, it is part of the original argument
6281 in the source code. */
6282 if (TREE_CODE (TREE_TYPE (TREE_OPERAND (probe, 0))) == ARRAY_TYPE)
6283 probe = TREE_OPERAND (probe, 0);
6284 expr = probe;
6285 expr_type = TREE_TYPE (expr);
6289 /* [temp.arg.nontype]/5, bullet 1
6291 For a non-type template-parameter of integral or enumeration type,
6292 integral promotions (_conv.prom_) and integral conversions
6293 (_conv.integral_) are applied. */
6294 if (INTEGRAL_OR_ENUMERATION_TYPE_P (type))
6296 tree t = build_integral_nontype_arg_conv (type, expr, complain);
6297 t = maybe_constant_value (t);
6298 if (t != error_mark_node)
6299 expr = t;
6301 if (!same_type_ignoring_top_level_qualifiers_p (type, TREE_TYPE (expr)))
6302 return error_mark_node;
6304 /* Notice that there are constant expressions like '4 % 0' which
6305 do not fold into integer constants. */
6306 if (TREE_CODE (expr) != INTEGER_CST)
6308 if (complain & tf_error)
6310 int errs = errorcount, warns = warningcount + werrorcount;
6311 if (processing_template_decl
6312 && !require_potential_constant_expression (expr))
6313 return NULL_TREE;
6314 expr = cxx_constant_value (expr);
6315 if (errorcount > errs || warningcount + werrorcount > warns)
6316 inform (EXPR_LOC_OR_LOC (expr, input_location),
6317 "in template argument for type %qT ", type);
6318 if (expr == error_mark_node)
6319 return NULL_TREE;
6320 /* else cxx_constant_value complained but gave us
6321 a real constant, so go ahead. */
6322 gcc_assert (TREE_CODE (expr) == INTEGER_CST);
6324 else
6325 return NULL_TREE;
6328 /* Avoid typedef problems. */
6329 if (TREE_TYPE (expr) != type)
6330 expr = fold_convert (type, expr);
6332 /* [temp.arg.nontype]/5, bullet 2
6334 For a non-type template-parameter of type pointer to object,
6335 qualification conversions (_conv.qual_) and the array-to-pointer
6336 conversion (_conv.array_) are applied. */
6337 else if (TYPE_PTROBV_P (type))
6339 /* [temp.arg.nontype]/1 (TC1 version, DR 49):
6341 A template-argument for a non-type, non-template template-parameter
6342 shall be one of: [...]
6344 -- the name of a non-type template-parameter;
6345 -- the address of an object or function with external linkage, [...]
6346 expressed as "& id-expression" where the & is optional if the name
6347 refers to a function or array, or if the corresponding
6348 template-parameter is a reference.
6350 Here, we do not care about functions, as they are invalid anyway
6351 for a parameter of type pointer-to-object. */
6353 if (DECL_P (expr) && DECL_TEMPLATE_PARM_P (expr))
6354 /* Non-type template parameters are OK. */
6356 else if (cxx_dialect >= cxx11 && integer_zerop (expr))
6357 /* Null pointer values are OK in C++11. */;
6358 else if (TREE_CODE (expr) != ADDR_EXPR
6359 && TREE_CODE (expr_type) != ARRAY_TYPE)
6361 if (VAR_P (expr))
6363 if (complain & tf_error)
6364 error ("%qD is not a valid template argument "
6365 "because %qD is a variable, not the address of "
6366 "a variable", expr, expr);
6367 return NULL_TREE;
6369 if (POINTER_TYPE_P (expr_type))
6371 if (complain & tf_error)
6372 error ("%qE is not a valid template argument for %qT "
6373 "because it is not the address of a variable",
6374 expr, type);
6375 return NULL_TREE;
6377 /* Other values, like integer constants, might be valid
6378 non-type arguments of some other type. */
6379 return error_mark_node;
6381 else
6383 tree decl;
6385 decl = ((TREE_CODE (expr) == ADDR_EXPR)
6386 ? TREE_OPERAND (expr, 0) : expr);
6387 if (!VAR_P (decl))
6389 if (complain & tf_error)
6390 error ("%qE is not a valid template argument of type %qT "
6391 "because %qE is not a variable", expr, type, decl);
6392 return NULL_TREE;
6394 else if (cxx_dialect < cxx11 && !DECL_EXTERNAL_LINKAGE_P (decl))
6396 if (complain & tf_error)
6397 error ("%qE is not a valid template argument of type %qT "
6398 "because %qD does not have external linkage",
6399 expr, type, decl);
6400 return NULL_TREE;
6402 else if (cxx_dialect >= cxx11 && decl_linkage (decl) == lk_none)
6404 if (complain & tf_error)
6405 error ("%qE is not a valid template argument of type %qT "
6406 "because %qD has no linkage", expr, type, decl);
6407 return NULL_TREE;
6411 expr = decay_conversion (expr, complain);
6412 if (expr == error_mark_node)
6413 return error_mark_node;
6415 expr = perform_qualification_conversions (type, expr);
6416 if (expr == error_mark_node)
6417 return error_mark_node;
6419 /* [temp.arg.nontype]/5, bullet 3
6421 For a non-type template-parameter of type reference to object, no
6422 conversions apply. The type referred to by the reference may be more
6423 cv-qualified than the (otherwise identical) type of the
6424 template-argument. The template-parameter is bound directly to the
6425 template-argument, which must be an lvalue. */
6426 else if (TYPE_REF_OBJ_P (type))
6428 if (!same_type_ignoring_top_level_qualifiers_p (TREE_TYPE (type),
6429 expr_type))
6430 return error_mark_node;
6432 if (!at_least_as_qualified_p (TREE_TYPE (type), expr_type))
6434 if (complain & tf_error)
6435 error ("%qE is not a valid template argument for type %qT "
6436 "because of conflicts in cv-qualification", expr, type);
6437 return NULL_TREE;
6440 if (!real_lvalue_p (expr))
6442 if (complain & tf_error)
6443 error ("%qE is not a valid template argument for type %qT "
6444 "because it is not an lvalue", expr, type);
6445 return NULL_TREE;
6448 /* [temp.arg.nontype]/1
6450 A template-argument for a non-type, non-template template-parameter
6451 shall be one of: [...]
6453 -- the address of an object or function with external linkage. */
6454 if (INDIRECT_REF_P (expr)
6455 && TYPE_REF_OBJ_P (TREE_TYPE (TREE_OPERAND (expr, 0))))
6457 expr = TREE_OPERAND (expr, 0);
6458 if (DECL_P (expr))
6460 if (complain & tf_error)
6461 error ("%q#D is not a valid template argument for type %qT "
6462 "because a reference variable does not have a constant "
6463 "address", expr, type);
6464 return NULL_TREE;
6468 if (!DECL_P (expr))
6470 if (complain & tf_error)
6471 error ("%qE is not a valid template argument for type %qT "
6472 "because it is not an object with linkage",
6473 expr, type);
6474 return NULL_TREE;
6477 /* DR 1155 allows internal linkage in C++11 and up. */
6478 linkage_kind linkage = decl_linkage (expr);
6479 if (linkage < (cxx_dialect >= cxx11 ? lk_internal : lk_external))
6481 if (complain & tf_error)
6482 error ("%qE is not a valid template argument for type %qT "
6483 "because object %qD does not have linkage",
6484 expr, type, expr);
6485 return NULL_TREE;
6488 expr = build_nop (type, build_address (expr));
6490 /* [temp.arg.nontype]/5, bullet 4
6492 For a non-type template-parameter of type pointer to function, only
6493 the function-to-pointer conversion (_conv.func_) is applied. If the
6494 template-argument represents a set of overloaded functions (or a
6495 pointer to such), the matching function is selected from the set
6496 (_over.over_). */
6497 else if (TYPE_PTRFN_P (type))
6499 /* If the argument is a template-id, we might not have enough
6500 context information to decay the pointer. */
6501 if (!type_unknown_p (expr_type))
6503 expr = decay_conversion (expr, complain);
6504 if (expr == error_mark_node)
6505 return error_mark_node;
6508 if (cxx_dialect >= cxx11 && integer_zerop (expr))
6509 /* Null pointer values are OK in C++11. */
6510 return perform_qualification_conversions (type, expr);
6512 expr = convert_nontype_argument_function (type, expr, complain);
6513 if (!expr || expr == error_mark_node)
6514 return expr;
6516 /* [temp.arg.nontype]/5, bullet 5
6518 For a non-type template-parameter of type reference to function, no
6519 conversions apply. If the template-argument represents a set of
6520 overloaded functions, the matching function is selected from the set
6521 (_over.over_). */
6522 else if (TYPE_REFFN_P (type))
6524 if (TREE_CODE (expr) == ADDR_EXPR)
6526 if (complain & tf_error)
6528 error ("%qE is not a valid template argument for type %qT "
6529 "because it is a pointer", expr, type);
6530 inform (input_location, "try using %qE instead",
6531 TREE_OPERAND (expr, 0));
6533 return NULL_TREE;
6536 expr = convert_nontype_argument_function (type, expr, complain);
6537 if (!expr || expr == error_mark_node)
6538 return expr;
6540 expr = build_nop (type, build_address (expr));
6542 /* [temp.arg.nontype]/5, bullet 6
6544 For a non-type template-parameter of type pointer to member function,
6545 no conversions apply. If the template-argument represents a set of
6546 overloaded member functions, the matching member function is selected
6547 from the set (_over.over_). */
6548 else if (TYPE_PTRMEMFUNC_P (type))
6550 expr = instantiate_type (type, expr, tf_none);
6551 if (expr == error_mark_node)
6552 return error_mark_node;
6554 /* [temp.arg.nontype] bullet 1 says the pointer to member
6555 expression must be a pointer-to-member constant. */
6556 if (!check_valid_ptrmem_cst_expr (type, expr, complain))
6557 return error_mark_node;
6559 /* There is no way to disable standard conversions in
6560 resolve_address_of_overloaded_function (called by
6561 instantiate_type). It is possible that the call succeeded by
6562 converting &B::I to &D::I (where B is a base of D), so we need
6563 to reject this conversion here.
6565 Actually, even if there was a way to disable standard conversions,
6566 it would still be better to reject them here so that we can
6567 provide a superior diagnostic. */
6568 if (!same_type_p (TREE_TYPE (expr), type))
6570 if (complain & tf_error)
6572 error ("%qE is not a valid template argument for type %qT "
6573 "because it is of type %qT", expr, type,
6574 TREE_TYPE (expr));
6575 /* If we are just one standard conversion off, explain. */
6576 if (can_convert_standard (type, TREE_TYPE (expr), complain))
6577 inform (input_location,
6578 "standard conversions are not allowed in this context");
6580 return NULL_TREE;
6583 /* [temp.arg.nontype]/5, bullet 7
6585 For a non-type template-parameter of type pointer to data member,
6586 qualification conversions (_conv.qual_) are applied. */
6587 else if (TYPE_PTRDATAMEM_P (type))
6589 /* [temp.arg.nontype] bullet 1 says the pointer to member
6590 expression must be a pointer-to-member constant. */
6591 if (!check_valid_ptrmem_cst_expr (type, expr, complain))
6592 return error_mark_node;
6594 expr = perform_qualification_conversions (type, expr);
6595 if (expr == error_mark_node)
6596 return expr;
6598 else if (NULLPTR_TYPE_P (type))
6600 if (expr != nullptr_node)
6602 if (complain & tf_error)
6603 error ("%qE is not a valid template argument for type %qT "
6604 "because it is of type %qT", expr, type, TREE_TYPE (expr));
6605 return NULL_TREE;
6607 return expr;
6609 /* A template non-type parameter must be one of the above. */
6610 else
6611 gcc_unreachable ();
6613 /* Sanity check: did we actually convert the argument to the
6614 right type? */
6615 gcc_assert (same_type_ignoring_top_level_qualifiers_p
6616 (type, TREE_TYPE (expr)));
6617 return convert_from_reference (expr);
6620 /* Subroutine of coerce_template_template_parms, which returns 1 if
6621 PARM_PARM and ARG_PARM match using the rule for the template
6622 parameters of template template parameters. Both PARM and ARG are
6623 template parameters; the rest of the arguments are the same as for
6624 coerce_template_template_parms.
6626 static int
6627 coerce_template_template_parm (tree parm,
6628 tree arg,
6629 tsubst_flags_t complain,
6630 tree in_decl,
6631 tree outer_args)
6633 if (arg == NULL_TREE || error_operand_p (arg)
6634 || parm == NULL_TREE || error_operand_p (parm))
6635 return 0;
6637 if (TREE_CODE (arg) != TREE_CODE (parm))
6638 return 0;
6640 switch (TREE_CODE (parm))
6642 case TEMPLATE_DECL:
6643 /* We encounter instantiations of templates like
6644 template <template <template <class> class> class TT>
6645 class C; */
6647 tree parmparm = DECL_INNERMOST_TEMPLATE_PARMS (parm);
6648 tree argparm = DECL_INNERMOST_TEMPLATE_PARMS (arg);
6650 if (!coerce_template_template_parms
6651 (parmparm, argparm, complain, in_decl, outer_args))
6652 return 0;
6654 /* Fall through. */
6656 case TYPE_DECL:
6657 if (TEMPLATE_TYPE_PARAMETER_PACK (TREE_TYPE (arg))
6658 && !TEMPLATE_TYPE_PARAMETER_PACK (TREE_TYPE (parm)))
6659 /* Argument is a parameter pack but parameter is not. */
6660 return 0;
6661 break;
6663 case PARM_DECL:
6664 /* The tsubst call is used to handle cases such as
6666 template <int> class C {};
6667 template <class T, template <T> class TT> class D {};
6668 D<int, C> d;
6670 i.e. the parameter list of TT depends on earlier parameters. */
6671 if (!uses_template_parms (TREE_TYPE (arg)))
6673 tree t = tsubst (TREE_TYPE (parm), outer_args, complain, in_decl);
6674 if (!uses_template_parms (t)
6675 && !same_type_p (t, TREE_TYPE (arg)))
6676 return 0;
6679 if (TEMPLATE_PARM_PARAMETER_PACK (DECL_INITIAL (arg))
6680 && !TEMPLATE_PARM_PARAMETER_PACK (DECL_INITIAL (parm)))
6681 /* Argument is a parameter pack but parameter is not. */
6682 return 0;
6684 break;
6686 default:
6687 gcc_unreachable ();
6690 return 1;
6694 /* Return 1 if PARM_PARMS and ARG_PARMS matches using rule for
6695 template template parameters. Both PARM_PARMS and ARG_PARMS are
6696 vectors of TREE_LIST nodes containing TYPE_DECL, TEMPLATE_DECL
6697 or PARM_DECL.
6699 Consider the example:
6700 template <class T> class A;
6701 template<template <class U> class TT> class B;
6703 For B<A>, PARM_PARMS are the parameters to TT, while ARG_PARMS are
6704 the parameters to A, and OUTER_ARGS contains A. */
6706 static int
6707 coerce_template_template_parms (tree parm_parms,
6708 tree arg_parms,
6709 tsubst_flags_t complain,
6710 tree in_decl,
6711 tree outer_args)
6713 int nparms, nargs, i;
6714 tree parm, arg;
6715 int variadic_p = 0;
6717 gcc_assert (TREE_CODE (parm_parms) == TREE_VEC);
6718 gcc_assert (TREE_CODE (arg_parms) == TREE_VEC);
6720 nparms = TREE_VEC_LENGTH (parm_parms);
6721 nargs = TREE_VEC_LENGTH (arg_parms);
6723 /* Determine whether we have a parameter pack at the end of the
6724 template template parameter's template parameter list. */
6725 if (TREE_VEC_ELT (parm_parms, nparms - 1) != error_mark_node)
6727 parm = TREE_VALUE (TREE_VEC_ELT (parm_parms, nparms - 1));
6729 if (error_operand_p (parm))
6730 return 0;
6732 switch (TREE_CODE (parm))
6734 case TEMPLATE_DECL:
6735 case TYPE_DECL:
6736 if (TEMPLATE_TYPE_PARAMETER_PACK (TREE_TYPE (parm)))
6737 variadic_p = 1;
6738 break;
6740 case PARM_DECL:
6741 if (TEMPLATE_PARM_PARAMETER_PACK (DECL_INITIAL (parm)))
6742 variadic_p = 1;
6743 break;
6745 default:
6746 gcc_unreachable ();
6750 if (nargs != nparms
6751 && !(variadic_p && nargs >= nparms - 1))
6752 return 0;
6754 /* Check all of the template parameters except the parameter pack at
6755 the end (if any). */
6756 for (i = 0; i < nparms - variadic_p; ++i)
6758 if (TREE_VEC_ELT (parm_parms, i) == error_mark_node
6759 || TREE_VEC_ELT (arg_parms, i) == error_mark_node)
6760 continue;
6762 parm = TREE_VALUE (TREE_VEC_ELT (parm_parms, i));
6763 arg = TREE_VALUE (TREE_VEC_ELT (arg_parms, i));
6765 if (!coerce_template_template_parm (parm, arg, complain, in_decl,
6766 outer_args))
6767 return 0;
6771 if (variadic_p)
6773 /* Check each of the template parameters in the template
6774 argument against the template parameter pack at the end of
6775 the template template parameter. */
6776 if (TREE_VEC_ELT (parm_parms, i) == error_mark_node)
6777 return 0;
6779 parm = TREE_VALUE (TREE_VEC_ELT (parm_parms, i));
6781 for (; i < nargs; ++i)
6783 if (TREE_VEC_ELT (arg_parms, i) == error_mark_node)
6784 continue;
6786 arg = TREE_VALUE (TREE_VEC_ELT (arg_parms, i));
6788 if (!coerce_template_template_parm (parm, arg, complain, in_decl,
6789 outer_args))
6790 return 0;
6794 return 1;
6797 /* Verifies that the deduced template arguments (in TARGS) for the
6798 template template parameters (in TPARMS) represent valid bindings,
6799 by comparing the template parameter list of each template argument
6800 to the template parameter list of its corresponding template
6801 template parameter, in accordance with DR150. This
6802 routine can only be called after all template arguments have been
6803 deduced. It will return TRUE if all of the template template
6804 parameter bindings are okay, FALSE otherwise. */
6805 bool
6806 template_template_parm_bindings_ok_p (tree tparms, tree targs)
6808 int i, ntparms = TREE_VEC_LENGTH (tparms);
6809 bool ret = true;
6811 /* We're dealing with template parms in this process. */
6812 ++processing_template_decl;
6814 targs = INNERMOST_TEMPLATE_ARGS (targs);
6816 for (i = 0; i < ntparms; ++i)
6818 tree tparm = TREE_VALUE (TREE_VEC_ELT (tparms, i));
6819 tree targ = TREE_VEC_ELT (targs, i);
6821 if (TREE_CODE (tparm) == TEMPLATE_DECL && targ)
6823 tree packed_args = NULL_TREE;
6824 int idx, len = 1;
6826 if (ARGUMENT_PACK_P (targ))
6828 /* Look inside the argument pack. */
6829 packed_args = ARGUMENT_PACK_ARGS (targ);
6830 len = TREE_VEC_LENGTH (packed_args);
6833 for (idx = 0; idx < len; ++idx)
6835 tree targ_parms = NULL_TREE;
6837 if (packed_args)
6838 /* Extract the next argument from the argument
6839 pack. */
6840 targ = TREE_VEC_ELT (packed_args, idx);
6842 if (PACK_EXPANSION_P (targ))
6843 /* Look at the pattern of the pack expansion. */
6844 targ = PACK_EXPANSION_PATTERN (targ);
6846 /* Extract the template parameters from the template
6847 argument. */
6848 if (TREE_CODE (targ) == TEMPLATE_DECL)
6849 targ_parms = DECL_INNERMOST_TEMPLATE_PARMS (targ);
6850 else if (TREE_CODE (targ) == TEMPLATE_TEMPLATE_PARM)
6851 targ_parms = DECL_INNERMOST_TEMPLATE_PARMS (TYPE_NAME (targ));
6853 /* Verify that we can coerce the template template
6854 parameters from the template argument to the template
6855 parameter. This requires an exact match. */
6856 if (targ_parms
6857 && !coerce_template_template_parms
6858 (DECL_INNERMOST_TEMPLATE_PARMS (tparm),
6859 targ_parms,
6860 tf_none,
6861 tparm,
6862 targs))
6864 ret = false;
6865 goto out;
6871 out:
6873 --processing_template_decl;
6874 return ret;
6877 /* Since type attributes aren't mangled, we need to strip them from
6878 template type arguments. */
6880 static tree
6881 canonicalize_type_argument (tree arg, tsubst_flags_t complain)
6883 if (!arg || arg == error_mark_node || arg == TYPE_CANONICAL (arg))
6884 return arg;
6885 bool removed_attributes = false;
6886 tree canon = strip_typedefs (arg, &removed_attributes);
6887 if (removed_attributes
6888 && (complain & tf_warning))
6889 warning (0, "ignoring attributes on template argument %qT", arg);
6890 return canon;
6893 // A template declaration can be substituted for a constrained
6894 // template template parameter only when the argument is more
6895 // constrained than the parameter.
6896 static bool
6897 is_compatible_template_arg (tree parm, tree arg)
6899 tree parm_cons = get_constraints (parm);
6901 /* For now, allow constrained template template arguments
6902 and unconstrained template template parameters. */
6903 if (parm_cons == NULL_TREE)
6904 return true;
6906 tree arg_cons = get_constraints (arg);
6908 // If the template parameter is constrained, we need to rewrite its
6909 // constraints in terms of the ARG's template parameters. This ensures
6910 // that all of the template parameter types will have the same depth.
6912 // Note that this is only valid when coerce_template_template_parm is
6913 // true for the innermost template parameters of PARM and ARG. In other
6914 // words, because coercion is successful, this conversion will be valid.
6915 if (parm_cons)
6917 tree args = template_parms_to_args (DECL_TEMPLATE_PARMS (arg));
6918 parm_cons = tsubst_constraint_info (parm_cons,
6919 INNERMOST_TEMPLATE_ARGS (args),
6920 tf_none, NULL_TREE);
6921 if (parm_cons == error_mark_node)
6922 return false;
6925 return subsumes (parm_cons, arg_cons);
6928 // Convert a placeholder argument into a binding to the original
6929 // parameter. The original parameter is saved as the TREE_TYPE of
6930 // ARG.
6931 static inline tree
6932 convert_wildcard_argument (tree parm, tree arg)
6934 TREE_TYPE (arg) = parm;
6935 return arg;
6938 /* Convert the indicated template ARG as necessary to match the
6939 indicated template PARM. Returns the converted ARG, or
6940 error_mark_node if the conversion was unsuccessful. Error and
6941 warning messages are issued under control of COMPLAIN. This
6942 conversion is for the Ith parameter in the parameter list. ARGS is
6943 the full set of template arguments deduced so far. */
6945 static tree
6946 convert_template_argument (tree parm,
6947 tree arg,
6948 tree args,
6949 tsubst_flags_t complain,
6950 int i,
6951 tree in_decl)
6953 tree orig_arg;
6954 tree val;
6955 int is_type, requires_type, is_tmpl_type, requires_tmpl_type;
6957 if (parm == error_mark_node)
6958 return error_mark_node;
6960 /* Trivially convert placeholders. */
6961 if (TREE_CODE (arg) == WILDCARD_DECL)
6962 return convert_wildcard_argument (parm, arg);
6964 if (TREE_CODE (arg) == TREE_LIST
6965 && TREE_CODE (TREE_VALUE (arg)) == OFFSET_REF)
6967 /* The template argument was the name of some
6968 member function. That's usually
6969 invalid, but static members are OK. In any
6970 case, grab the underlying fields/functions
6971 and issue an error later if required. */
6972 orig_arg = TREE_VALUE (arg);
6973 TREE_TYPE (arg) = unknown_type_node;
6976 orig_arg = arg;
6978 requires_tmpl_type = TREE_CODE (parm) == TEMPLATE_DECL;
6979 requires_type = (TREE_CODE (parm) == TYPE_DECL
6980 || requires_tmpl_type);
6982 /* When determining whether an argument pack expansion is a template,
6983 look at the pattern. */
6984 if (TREE_CODE (arg) == TYPE_PACK_EXPANSION)
6985 arg = PACK_EXPANSION_PATTERN (arg);
6987 /* Deal with an injected-class-name used as a template template arg. */
6988 if (requires_tmpl_type && CLASS_TYPE_P (arg))
6990 tree t = maybe_get_template_decl_from_type_decl (TYPE_NAME (arg));
6991 if (TREE_CODE (t) == TEMPLATE_DECL)
6993 if (cxx_dialect >= cxx11)
6994 /* OK under DR 1004. */;
6995 else if (complain & tf_warning_or_error)
6996 pedwarn (input_location, OPT_Wpedantic, "injected-class-name %qD"
6997 " used as template template argument", TYPE_NAME (arg));
6998 else if (flag_pedantic_errors)
6999 t = arg;
7001 arg = t;
7005 is_tmpl_type =
7006 ((TREE_CODE (arg) == TEMPLATE_DECL
7007 && TREE_CODE (DECL_TEMPLATE_RESULT (arg)) == TYPE_DECL)
7008 || (requires_tmpl_type && TREE_CODE (arg) == TYPE_ARGUMENT_PACK)
7009 || TREE_CODE (arg) == TEMPLATE_TEMPLATE_PARM
7010 || TREE_CODE (arg) == UNBOUND_CLASS_TEMPLATE);
7012 if (is_tmpl_type
7013 && (TREE_CODE (arg) == TEMPLATE_TEMPLATE_PARM
7014 || TREE_CODE (arg) == UNBOUND_CLASS_TEMPLATE))
7015 arg = TYPE_STUB_DECL (arg);
7017 is_type = TYPE_P (arg) || is_tmpl_type;
7019 if (requires_type && ! is_type && TREE_CODE (arg) == SCOPE_REF
7020 && TREE_CODE (TREE_OPERAND (arg, 0)) == TEMPLATE_TYPE_PARM)
7022 if (TREE_CODE (TREE_OPERAND (arg, 1)) == BIT_NOT_EXPR)
7024 if (complain & tf_error)
7025 error ("invalid use of destructor %qE as a type", orig_arg);
7026 return error_mark_node;
7029 permerror (input_location,
7030 "to refer to a type member of a template parameter, "
7031 "use %<typename %E%>", orig_arg);
7033 orig_arg = make_typename_type (TREE_OPERAND (arg, 0),
7034 TREE_OPERAND (arg, 1),
7035 typename_type,
7036 complain);
7037 arg = orig_arg;
7038 is_type = 1;
7040 if (is_type != requires_type)
7042 if (in_decl)
7044 if (complain & tf_error)
7046 error ("type/value mismatch at argument %d in template "
7047 "parameter list for %qD",
7048 i + 1, in_decl);
7049 if (is_type)
7050 inform (input_location,
7051 " expected a constant of type %qT, got %qT",
7052 TREE_TYPE (parm),
7053 (DECL_P (arg) ? DECL_NAME (arg) : orig_arg));
7054 else if (requires_tmpl_type)
7055 inform (input_location,
7056 " expected a class template, got %qE", orig_arg);
7057 else
7058 inform (input_location,
7059 " expected a type, got %qE", orig_arg);
7062 return error_mark_node;
7064 if (is_tmpl_type ^ requires_tmpl_type)
7066 if (in_decl && (complain & tf_error))
7068 error ("type/value mismatch at argument %d in template "
7069 "parameter list for %qD",
7070 i + 1, in_decl);
7071 if (is_tmpl_type)
7072 inform (input_location,
7073 " expected a type, got %qT", DECL_NAME (arg));
7074 else
7075 inform (input_location,
7076 " expected a class template, got %qT", orig_arg);
7078 return error_mark_node;
7081 if (is_type)
7083 if (requires_tmpl_type)
7085 if (template_parameter_pack_p (parm) && ARGUMENT_PACK_P (orig_arg))
7086 val = orig_arg;
7087 else if (TREE_CODE (TREE_TYPE (arg)) == UNBOUND_CLASS_TEMPLATE)
7088 /* The number of argument required is not known yet.
7089 Just accept it for now. */
7090 val = TREE_TYPE (arg);
7091 else
7093 tree parmparm = DECL_INNERMOST_TEMPLATE_PARMS (parm);
7094 tree argparm;
7096 /* Strip alias templates that are equivalent to another
7097 template. */
7098 arg = get_underlying_template (arg);
7099 argparm = DECL_INNERMOST_TEMPLATE_PARMS (arg);
7101 if (coerce_template_template_parms (parmparm, argparm,
7102 complain, in_decl,
7103 args))
7105 val = arg;
7107 /* TEMPLATE_TEMPLATE_PARM node is preferred over
7108 TEMPLATE_DECL. */
7109 if (val != error_mark_node)
7111 if (DECL_TEMPLATE_TEMPLATE_PARM_P (val))
7112 val = TREE_TYPE (val);
7113 if (TREE_CODE (orig_arg) == TYPE_PACK_EXPANSION)
7114 val = make_pack_expansion (val);
7117 else
7119 if (in_decl && (complain & tf_error))
7121 error ("type/value mismatch at argument %d in "
7122 "template parameter list for %qD",
7123 i + 1, in_decl);
7124 inform (input_location,
7125 " expected a template of type %qD, got %qT",
7126 parm, orig_arg);
7129 val = error_mark_node;
7132 // Check that the constraints are compatible before allowing the
7133 // substitution.
7134 if (val != error_mark_node)
7135 if (!is_compatible_template_arg (parm, arg))
7137 if (in_decl && (complain & tf_error))
7139 error ("constraint mismatch at argument %d in "
7140 "template parameter list for %qD",
7141 i + 1, in_decl);
7142 inform (input_location, " expected %qD but got %qD",
7143 parm, arg);
7145 val = error_mark_node;
7149 else
7150 val = orig_arg;
7151 /* We only form one instance of each template specialization.
7152 Therefore, if we use a non-canonical variant (i.e., a
7153 typedef), any future messages referring to the type will use
7154 the typedef, which is confusing if those future uses do not
7155 themselves also use the typedef. */
7156 if (TYPE_P (val))
7157 val = canonicalize_type_argument (val, complain);
7159 else
7161 tree t = tsubst (TREE_TYPE (parm), args, complain, in_decl);
7163 if (invalid_nontype_parm_type_p (t, complain))
7164 return error_mark_node;
7166 if (template_parameter_pack_p (parm) && ARGUMENT_PACK_P (orig_arg))
7168 if (same_type_p (t, TREE_TYPE (orig_arg)))
7169 val = orig_arg;
7170 else
7172 /* Not sure if this is reachable, but it doesn't hurt
7173 to be robust. */
7174 error ("type mismatch in nontype parameter pack");
7175 val = error_mark_node;
7178 else if (!dependent_template_arg_p (orig_arg)
7179 && !uses_template_parms (t))
7180 /* We used to call digest_init here. However, digest_init
7181 will report errors, which we don't want when complain
7182 is zero. More importantly, digest_init will try too
7183 hard to convert things: for example, `0' should not be
7184 converted to pointer type at this point according to
7185 the standard. Accepting this is not merely an
7186 extension, since deciding whether or not these
7187 conversions can occur is part of determining which
7188 function template to call, or whether a given explicit
7189 argument specification is valid. */
7190 val = convert_nontype_argument (t, orig_arg, complain);
7191 else
7193 bool removed_attr = false;
7194 val = strip_typedefs_expr (orig_arg, &removed_attr);
7197 if (val == NULL_TREE)
7198 val = error_mark_node;
7199 else if (val == error_mark_node && (complain & tf_error))
7200 error ("could not convert template argument %qE to %qT", orig_arg, t);
7202 if (INDIRECT_REF_P (val))
7204 /* Reject template arguments that are references to built-in
7205 functions with no library fallbacks. */
7206 const_tree inner = TREE_OPERAND (val, 0);
7207 if (TREE_CODE (TREE_TYPE (inner)) == REFERENCE_TYPE
7208 && TREE_CODE (TREE_TYPE (TREE_TYPE (inner))) == FUNCTION_TYPE
7209 && TREE_CODE (TREE_TYPE (inner)) == REFERENCE_TYPE
7210 && reject_gcc_builtin (TREE_OPERAND (inner, 0)))
7211 return error_mark_node;
7214 if (TREE_CODE (val) == SCOPE_REF)
7216 /* Strip typedefs from the SCOPE_REF. */
7217 tree type = canonicalize_type_argument (TREE_TYPE (val), complain);
7218 tree scope = canonicalize_type_argument (TREE_OPERAND (val, 0),
7219 complain);
7220 val = build_qualified_name (type, scope, TREE_OPERAND (val, 1),
7221 QUALIFIED_NAME_IS_TEMPLATE (val));
7225 return val;
7228 /* Coerces the remaining template arguments in INNER_ARGS (from
7229 ARG_IDX to the end) into the parameter pack at PARM_IDX in PARMS.
7230 Returns the coerced argument pack. PARM_IDX is the position of this
7231 parameter in the template parameter list. ARGS is the original
7232 template argument list. */
7233 static tree
7234 coerce_template_parameter_pack (tree parms,
7235 int parm_idx,
7236 tree args,
7237 tree inner_args,
7238 int arg_idx,
7239 tree new_args,
7240 int* lost,
7241 tree in_decl,
7242 tsubst_flags_t complain)
7244 tree parm = TREE_VEC_ELT (parms, parm_idx);
7245 int nargs = inner_args ? NUM_TMPL_ARGS (inner_args) : 0;
7246 tree packed_args;
7247 tree argument_pack;
7248 tree packed_parms = NULL_TREE;
7250 if (arg_idx > nargs)
7251 arg_idx = nargs;
7253 if (tree packs = fixed_parameter_pack_p (TREE_VALUE (parm)))
7255 /* When the template parameter is a non-type template parameter pack
7256 or template template parameter pack whose type or template
7257 parameters use parameter packs, we know exactly how many arguments
7258 we are looking for. Build a vector of the instantiated decls for
7259 these template parameters in PACKED_PARMS. */
7260 /* We can't use make_pack_expansion here because it would interpret a
7261 _DECL as a use rather than a declaration. */
7262 tree decl = TREE_VALUE (parm);
7263 tree exp = cxx_make_type (TYPE_PACK_EXPANSION);
7264 SET_PACK_EXPANSION_PATTERN (exp, decl);
7265 PACK_EXPANSION_PARAMETER_PACKS (exp) = packs;
7266 SET_TYPE_STRUCTURAL_EQUALITY (exp);
7268 TREE_VEC_LENGTH (args)--;
7269 packed_parms = tsubst_pack_expansion (exp, args, complain, decl);
7270 TREE_VEC_LENGTH (args)++;
7272 if (packed_parms == error_mark_node)
7273 return error_mark_node;
7275 /* If we're doing a partial instantiation of a member template,
7276 verify that all of the types used for the non-type
7277 template parameter pack are, in fact, valid for non-type
7278 template parameters. */
7279 if (arg_idx < nargs
7280 && PACK_EXPANSION_P (TREE_VEC_ELT (inner_args, arg_idx)))
7282 int j, len = TREE_VEC_LENGTH (packed_parms);
7283 for (j = 0; j < len; ++j)
7285 tree t = TREE_TYPE (TREE_VEC_ELT (packed_parms, j));
7286 if (invalid_nontype_parm_type_p (t, complain))
7287 return error_mark_node;
7289 /* We don't know how many args we have yet, just
7290 use the unconverted ones for now. */
7291 return NULL_TREE;
7294 packed_args = make_tree_vec (TREE_VEC_LENGTH (packed_parms));
7296 /* Check if we have a placeholder pack, which indicates we're
7297 in the context of a introduction list. In that case we want
7298 to match this pack to the single placeholder. */
7299 else if (arg_idx < nargs
7300 && TREE_CODE (TREE_VEC_ELT (inner_args, arg_idx)) == WILDCARD_DECL
7301 && WILDCARD_PACK_P (TREE_VEC_ELT (inner_args, arg_idx)))
7303 nargs = arg_idx + 1;
7304 packed_args = make_tree_vec (1);
7306 else
7307 packed_args = make_tree_vec (nargs - arg_idx);
7309 /* Convert the remaining arguments, which will be a part of the
7310 parameter pack "parm". */
7311 for (; arg_idx < nargs; ++arg_idx)
7313 tree arg = TREE_VEC_ELT (inner_args, arg_idx);
7314 tree actual_parm = TREE_VALUE (parm);
7315 int pack_idx = arg_idx - parm_idx;
7317 if (packed_parms)
7319 /* Once we've packed as many args as we have types, stop. */
7320 if (pack_idx >= TREE_VEC_LENGTH (packed_parms))
7321 break;
7322 else if (PACK_EXPANSION_P (arg))
7323 /* We don't know how many args we have yet, just
7324 use the unconverted ones for now. */
7325 return NULL_TREE;
7326 else
7327 actual_parm = TREE_VEC_ELT (packed_parms, pack_idx);
7330 if (arg == error_mark_node)
7332 if (complain & tf_error)
7333 error ("template argument %d is invalid", arg_idx + 1);
7335 else
7336 arg = convert_template_argument (actual_parm,
7337 arg, new_args, complain, parm_idx,
7338 in_decl);
7339 if (arg == error_mark_node)
7340 (*lost)++;
7341 TREE_VEC_ELT (packed_args, pack_idx) = arg;
7344 if (arg_idx - parm_idx < TREE_VEC_LENGTH (packed_args)
7345 && TREE_VEC_LENGTH (packed_args) > 0)
7347 if (complain & tf_error)
7348 error ("wrong number of template arguments (%d, should be %d)",
7349 arg_idx - parm_idx, TREE_VEC_LENGTH (packed_args));
7350 return error_mark_node;
7353 if (TREE_CODE (TREE_VALUE (parm)) == TYPE_DECL
7354 || TREE_CODE (TREE_VALUE (parm)) == TEMPLATE_DECL)
7355 argument_pack = cxx_make_type (TYPE_ARGUMENT_PACK);
7356 else
7358 argument_pack = make_node (NONTYPE_ARGUMENT_PACK);
7359 TREE_TYPE (argument_pack)
7360 = tsubst (TREE_TYPE (TREE_VALUE (parm)), new_args, complain, in_decl);
7361 TREE_CONSTANT (argument_pack) = 1;
7364 SET_ARGUMENT_PACK_ARGS (argument_pack, packed_args);
7365 #ifdef ENABLE_CHECKING
7366 SET_NON_DEFAULT_TEMPLATE_ARGS_COUNT (packed_args,
7367 TREE_VEC_LENGTH (packed_args));
7368 #endif
7369 return argument_pack;
7372 /* Returns the number of pack expansions in the template argument vector
7373 ARGS. */
7375 static int
7376 pack_expansion_args_count (tree args)
7378 int i;
7379 int count = 0;
7380 if (args)
7381 for (i = 0; i < TREE_VEC_LENGTH (args); ++i)
7383 tree elt = TREE_VEC_ELT (args, i);
7384 if (elt && PACK_EXPANSION_P (elt))
7385 ++count;
7387 return count;
7390 /* Convert all template arguments to their appropriate types, and
7391 return a vector containing the innermost resulting template
7392 arguments. If any error occurs, return error_mark_node. Error and
7393 warning messages are issued under control of COMPLAIN.
7395 If REQUIRE_ALL_ARGS is false, argument deduction will be performed
7396 for arguments not specified in ARGS. Otherwise, if
7397 USE_DEFAULT_ARGS is true, default arguments will be used to fill in
7398 unspecified arguments. If REQUIRE_ALL_ARGS is true, but
7399 USE_DEFAULT_ARGS is false, then all arguments must be specified in
7400 ARGS. */
7402 static tree
7403 coerce_template_parms (tree parms,
7404 tree args,
7405 tree in_decl,
7406 tsubst_flags_t complain,
7407 bool require_all_args,
7408 bool use_default_args)
7410 int nparms, nargs, parm_idx, arg_idx, lost = 0;
7411 tree orig_inner_args;
7412 tree inner_args;
7413 tree new_args;
7414 tree new_inner_args;
7415 int saved_unevaluated_operand;
7416 int saved_inhibit_evaluation_warnings;
7418 /* When used as a boolean value, indicates whether this is a
7419 variadic template parameter list. Since it's an int, we can also
7420 subtract it from nparms to get the number of non-variadic
7421 parameters. */
7422 int variadic_p = 0;
7423 int variadic_args_p = 0;
7424 int post_variadic_parms = 0;
7426 /* Likewise for parameters with default arguments. */
7427 int default_p = 0;
7429 if (args == error_mark_node)
7430 return error_mark_node;
7432 nparms = TREE_VEC_LENGTH (parms);
7434 /* Determine if there are any parameter packs or default arguments. */
7435 for (parm_idx = 0; parm_idx < nparms; ++parm_idx)
7437 tree parm = TREE_VEC_ELT (parms, parm_idx);
7438 if (variadic_p)
7439 ++post_variadic_parms;
7440 if (template_parameter_pack_p (TREE_VALUE (parm)))
7441 ++variadic_p;
7442 if (TREE_PURPOSE (parm))
7443 ++default_p;
7446 inner_args = orig_inner_args = INNERMOST_TEMPLATE_ARGS (args);
7447 /* If there are no parameters that follow a parameter pack, we need to
7448 expand any argument packs so that we can deduce a parameter pack from
7449 some non-packed args followed by an argument pack, as in variadic85.C.
7450 If there are such parameters, we need to leave argument packs intact
7451 so the arguments are assigned properly. This can happen when dealing
7452 with a nested class inside a partial specialization of a class
7453 template, as in variadic92.C, or when deducing a template parameter pack
7454 from a sub-declarator, as in variadic114.C. */
7455 if (!post_variadic_parms)
7456 inner_args = expand_template_argument_pack (inner_args);
7458 /* Count any pack expansion args. */
7459 variadic_args_p = pack_expansion_args_count (inner_args);
7461 nargs = inner_args ? NUM_TMPL_ARGS (inner_args) : 0;
7462 if ((nargs > nparms && !variadic_p)
7463 || (nargs < nparms - variadic_p
7464 && require_all_args
7465 && !variadic_args_p
7466 && (!use_default_args
7467 || (TREE_VEC_ELT (parms, nargs) != error_mark_node
7468 && !TREE_PURPOSE (TREE_VEC_ELT (parms, nargs))))))
7470 if (complain & tf_error)
7472 if (variadic_p || default_p)
7474 nparms -= variadic_p + default_p;
7475 error ("wrong number of template arguments "
7476 "(%d, should be at least %d)", nargs, nparms);
7478 else
7479 error ("wrong number of template arguments "
7480 "(%d, should be %d)", nargs, nparms);
7482 if (in_decl)
7483 inform (DECL_SOURCE_LOCATION (in_decl),
7484 "provided for %qD", in_decl);
7487 return error_mark_node;
7489 /* We can't pass a pack expansion to a non-pack parameter of an alias
7490 template (DR 1430). */
7491 else if (in_decl
7492 && (DECL_ALIAS_TEMPLATE_P (in_decl)
7493 || concept_template_p (in_decl))
7494 && variadic_args_p
7495 && nargs - variadic_args_p < nparms - variadic_p)
7497 if (complain & tf_error)
7499 for (int i = 0; i < TREE_VEC_LENGTH (inner_args); ++i)
7501 tree arg = TREE_VEC_ELT (inner_args, i);
7502 tree parm = TREE_VALUE (TREE_VEC_ELT (parms, i));
7504 if (PACK_EXPANSION_P (arg)
7505 && !template_parameter_pack_p (parm))
7507 if (DECL_ALIAS_TEMPLATE_P (in_decl))
7508 error_at (location_of (arg),
7509 "pack expansion argument for non-pack parameter "
7510 "%qD of alias template %qD", parm, in_decl);
7511 else
7512 error_at (location_of (arg),
7513 "pack expansion argument for non-pack parameter "
7514 "%qD of concept %qD", parm, in_decl);
7515 inform (DECL_SOURCE_LOCATION (parm), "declared here");
7516 goto found;
7519 gcc_unreachable ();
7520 found:;
7522 return error_mark_node;
7525 /* We need to evaluate the template arguments, even though this
7526 template-id may be nested within a "sizeof". */
7527 saved_unevaluated_operand = cp_unevaluated_operand;
7528 cp_unevaluated_operand = 0;
7529 saved_inhibit_evaluation_warnings = c_inhibit_evaluation_warnings;
7530 c_inhibit_evaluation_warnings = 0;
7531 new_inner_args = make_tree_vec (nparms);
7532 new_args = add_outermost_template_args (args, new_inner_args);
7533 int pack_adjust = 0;
7534 for (parm_idx = 0, arg_idx = 0; parm_idx < nparms; parm_idx++, arg_idx++)
7536 tree arg;
7537 tree parm;
7539 /* Get the Ith template parameter. */
7540 parm = TREE_VEC_ELT (parms, parm_idx);
7542 if (parm == error_mark_node)
7544 TREE_VEC_ELT (new_inner_args, arg_idx) = error_mark_node;
7545 continue;
7548 /* Calculate the next argument. */
7549 if (arg_idx < nargs)
7550 arg = TREE_VEC_ELT (inner_args, arg_idx);
7551 else
7552 arg = NULL_TREE;
7554 if (template_parameter_pack_p (TREE_VALUE (parm))
7555 && !(arg && ARGUMENT_PACK_P (arg)))
7557 /* Some arguments will be placed in the
7558 template parameter pack PARM. */
7559 arg = coerce_template_parameter_pack (parms, parm_idx, args,
7560 inner_args, arg_idx,
7561 new_args, &lost,
7562 in_decl, complain);
7564 if (arg == NULL_TREE)
7566 /* We don't know how many args we have yet, just use the
7567 unconverted (and still packed) ones for now. */
7568 new_inner_args = orig_inner_args;
7569 arg_idx = nargs;
7570 break;
7573 TREE_VEC_ELT (new_inner_args, parm_idx) = arg;
7575 /* Store this argument. */
7576 if (arg == error_mark_node)
7578 lost++;
7579 /* We are done with all of the arguments. */
7580 arg_idx = nargs;
7582 else
7584 pack_adjust = TREE_VEC_LENGTH (ARGUMENT_PACK_ARGS (arg)) - 1;
7585 arg_idx += pack_adjust;
7588 continue;
7590 else if (arg)
7592 if (PACK_EXPANSION_P (arg))
7594 /* "If every valid specialization of a variadic template
7595 requires an empty template parameter pack, the template is
7596 ill-formed, no diagnostic required." So check that the
7597 pattern works with this parameter. */
7598 tree pattern = PACK_EXPANSION_PATTERN (arg);
7599 tree conv = convert_template_argument (TREE_VALUE (parm),
7600 pattern, new_args,
7601 complain, parm_idx,
7602 in_decl);
7603 if (conv == error_mark_node)
7605 inform (input_location, "so any instantiation with a "
7606 "non-empty parameter pack would be ill-formed");
7607 ++lost;
7609 else if (TYPE_P (conv) && !TYPE_P (pattern))
7610 /* Recover from missing typename. */
7611 TREE_VEC_ELT (inner_args, arg_idx)
7612 = make_pack_expansion (conv);
7614 /* We don't know how many args we have yet, just
7615 use the unconverted ones for now. */
7616 new_inner_args = inner_args;
7617 arg_idx = nargs;
7618 break;
7621 else if (require_all_args)
7623 /* There must be a default arg in this case. */
7624 arg = tsubst_template_arg (TREE_PURPOSE (parm), new_args,
7625 complain, in_decl);
7626 /* The position of the first default template argument,
7627 is also the number of non-defaulted arguments in NEW_INNER_ARGS.
7628 Record that. */
7629 if (!NON_DEFAULT_TEMPLATE_ARGS_COUNT (new_inner_args))
7630 SET_NON_DEFAULT_TEMPLATE_ARGS_COUNT (new_inner_args,
7631 arg_idx - pack_adjust);
7633 else
7634 break;
7636 if (arg == error_mark_node)
7638 if (complain & tf_error)
7639 error ("template argument %d is invalid", arg_idx + 1);
7641 else if (!arg)
7642 /* This only occurs if there was an error in the template
7643 parameter list itself (which we would already have
7644 reported) that we are trying to recover from, e.g., a class
7645 template with a parameter list such as
7646 template<typename..., typename>. */
7647 ++lost;
7648 else
7649 arg = convert_template_argument (TREE_VALUE (parm),
7650 arg, new_args, complain,
7651 parm_idx, in_decl);
7653 if (arg == error_mark_node)
7654 lost++;
7655 TREE_VEC_ELT (new_inner_args, arg_idx - pack_adjust) = arg;
7657 cp_unevaluated_operand = saved_unevaluated_operand;
7658 c_inhibit_evaluation_warnings = saved_inhibit_evaluation_warnings;
7660 if (variadic_p && arg_idx < nargs)
7662 if (complain & tf_error)
7664 error ("wrong number of template arguments "
7665 "(%d, should be %d)", nargs, arg_idx);
7666 if (in_decl)
7667 error ("provided for %q+D", in_decl);
7669 return error_mark_node;
7672 if (lost)
7673 return error_mark_node;
7675 #ifdef ENABLE_CHECKING
7676 if (!NON_DEFAULT_TEMPLATE_ARGS_COUNT (new_inner_args))
7677 SET_NON_DEFAULT_TEMPLATE_ARGS_COUNT (new_inner_args,
7678 TREE_VEC_LENGTH (new_inner_args));
7679 #endif
7681 return new_inner_args;
7684 /* Convert all template arguments to their appropriate types, and
7685 return a vector containing the innermost resulting template
7686 arguments. If any error occurs, return error_mark_node. Error and
7687 warning messages are not issued.
7689 Note that no function argument deduction is performed, and default
7690 arguments are used to fill in unspecified arguments. */
7691 tree
7692 coerce_template_parms (tree parms, tree args, tree in_decl)
7694 return coerce_template_parms (parms, args, in_decl, tf_none, true, true);
7697 /* Convert all template arguments to their appropriate type, and
7698 instantiate default arguments as needed. This returns a vector
7699 containing the innermost resulting template arguments, or
7700 error_mark_node if unsuccessful. */
7701 tree
7702 coerce_template_parms (tree parms, tree args, tree in_decl,
7703 tsubst_flags_t complain)
7705 return coerce_template_parms (parms, args, in_decl, complain, true, true);
7708 /* Like coerce_template_parms. If PARMS represents all template
7709 parameters levels, this function returns a vector of vectors
7710 representing all the resulting argument levels. Note that in this
7711 case, only the innermost arguments are coerced because the
7712 outermost ones are supposed to have been coerced already.
7714 Otherwise, if PARMS represents only (the innermost) vector of
7715 parameters, this function returns a vector containing just the
7716 innermost resulting arguments. */
7718 static tree
7719 coerce_innermost_template_parms (tree parms,
7720 tree args,
7721 tree in_decl,
7722 tsubst_flags_t complain,
7723 bool require_all_args,
7724 bool use_default_args)
7726 int parms_depth = TMPL_PARMS_DEPTH (parms);
7727 int args_depth = TMPL_ARGS_DEPTH (args);
7728 tree coerced_args;
7730 if (parms_depth > 1)
7732 coerced_args = make_tree_vec (parms_depth);
7733 tree level;
7734 int cur_depth;
7736 for (level = parms, cur_depth = parms_depth;
7737 parms_depth > 0 && level != NULL_TREE;
7738 level = TREE_CHAIN (level), --cur_depth)
7740 tree l;
7741 if (cur_depth == args_depth)
7742 l = coerce_template_parms (TREE_VALUE (level),
7743 args, in_decl, complain,
7744 require_all_args,
7745 use_default_args);
7746 else
7747 l = TMPL_ARGS_LEVEL (args, cur_depth);
7749 if (l == error_mark_node)
7750 return error_mark_node;
7752 SET_TMPL_ARGS_LEVEL (coerced_args, cur_depth, l);
7755 else
7756 coerced_args = coerce_template_parms (INNERMOST_TEMPLATE_PARMS (parms),
7757 args, in_decl, complain,
7758 require_all_args,
7759 use_default_args);
7760 return coerced_args;
7763 /* Returns 1 if template args OT and NT are equivalent. */
7765 static int
7766 template_args_equal (tree ot, tree nt)
7768 if (nt == ot)
7769 return 1;
7770 if (nt == NULL_TREE || ot == NULL_TREE)
7771 return false;
7773 if (TREE_CODE (nt) == TREE_VEC)
7774 /* For member templates */
7775 return TREE_CODE (ot) == TREE_VEC && comp_template_args (ot, nt);
7776 else if (PACK_EXPANSION_P (ot))
7777 return (PACK_EXPANSION_P (nt)
7778 && template_args_equal (PACK_EXPANSION_PATTERN (ot),
7779 PACK_EXPANSION_PATTERN (nt))
7780 && template_args_equal (PACK_EXPANSION_EXTRA_ARGS (ot),
7781 PACK_EXPANSION_EXTRA_ARGS (nt)));
7782 else if (ARGUMENT_PACK_P (ot))
7784 int i, len;
7785 tree opack, npack;
7787 if (!ARGUMENT_PACK_P (nt))
7788 return 0;
7790 opack = ARGUMENT_PACK_ARGS (ot);
7791 npack = ARGUMENT_PACK_ARGS (nt);
7792 len = TREE_VEC_LENGTH (opack);
7793 if (TREE_VEC_LENGTH (npack) != len)
7794 return 0;
7795 for (i = 0; i < len; ++i)
7796 if (!template_args_equal (TREE_VEC_ELT (opack, i),
7797 TREE_VEC_ELT (npack, i)))
7798 return 0;
7799 return 1;
7801 else if (ot && TREE_CODE (ot) == ARGUMENT_PACK_SELECT)
7803 /* We get here probably because we are in the middle of substituting
7804 into the pattern of a pack expansion. In that case the
7805 ARGUMENT_PACK_SELECT temporarily replaces the pack argument we are
7806 interested in. So we want to use the initial pack argument for
7807 the comparison. */
7808 ot = ARGUMENT_PACK_SELECT_FROM_PACK (ot);
7809 if (nt && TREE_CODE (nt) == ARGUMENT_PACK_SELECT)
7810 nt = ARGUMENT_PACK_SELECT_FROM_PACK (nt);
7811 return template_args_equal (ot, nt);
7813 else if (TYPE_P (nt))
7815 if (!TYPE_P (ot))
7816 return false;
7817 /* Don't treat an alias template specialization with dependent
7818 arguments as equivalent to its underlying type when used as a
7819 template argument; we need them to be distinct so that we
7820 substitute into the specialization arguments at instantiation
7821 time. And aliases can't be equivalent without being ==, so
7822 we don't need to look any deeper. */
7823 if (TYPE_ALIAS_P (nt) || TYPE_ALIAS_P (ot))
7824 return false;
7825 else
7826 return same_type_p (ot, nt);
7828 else if (TREE_CODE (ot) == TREE_VEC || TYPE_P (ot))
7829 return 0;
7830 else
7832 /* Try to treat a template non-type argument that has been converted
7833 to the parameter type as equivalent to one that hasn't yet. */
7834 for (enum tree_code code1 = TREE_CODE (ot);
7835 CONVERT_EXPR_CODE_P (code1)
7836 || code1 == NON_LVALUE_EXPR;
7837 code1 = TREE_CODE (ot))
7838 ot = TREE_OPERAND (ot, 0);
7839 for (enum tree_code code2 = TREE_CODE (nt);
7840 CONVERT_EXPR_CODE_P (code2)
7841 || code2 == NON_LVALUE_EXPR;
7842 code2 = TREE_CODE (nt))
7843 nt = TREE_OPERAND (nt, 0);
7845 return cp_tree_equal (ot, nt);
7849 /* Returns 1 iff the OLDARGS and NEWARGS are in fact identical sets of
7850 template arguments. Returns 0 otherwise, and updates OLDARG_PTR and
7851 NEWARG_PTR with the offending arguments if they are non-NULL. */
7853 static int
7854 comp_template_args_with_info (tree oldargs, tree newargs,
7855 tree *oldarg_ptr, tree *newarg_ptr)
7857 int i;
7859 if (oldargs == newargs)
7860 return 1;
7862 if (!oldargs || !newargs)
7863 return 0;
7865 if (TREE_VEC_LENGTH (oldargs) != TREE_VEC_LENGTH (newargs))
7866 return 0;
7868 for (i = 0; i < TREE_VEC_LENGTH (oldargs); ++i)
7870 tree nt = TREE_VEC_ELT (newargs, i);
7871 tree ot = TREE_VEC_ELT (oldargs, i);
7873 if (! template_args_equal (ot, nt))
7875 if (oldarg_ptr != NULL)
7876 *oldarg_ptr = ot;
7877 if (newarg_ptr != NULL)
7878 *newarg_ptr = nt;
7879 return 0;
7882 return 1;
7885 /* Returns 1 iff the OLDARGS and NEWARGS are in fact identical sets
7886 of template arguments. Returns 0 otherwise. */
7889 comp_template_args (tree oldargs, tree newargs)
7891 return comp_template_args_with_info (oldargs, newargs, NULL, NULL);
7894 static void
7895 add_pending_template (tree d)
7897 tree ti = (TYPE_P (d)
7898 ? CLASSTYPE_TEMPLATE_INFO (d)
7899 : DECL_TEMPLATE_INFO (d));
7900 struct pending_template *pt;
7901 int level;
7903 if (TI_PENDING_TEMPLATE_FLAG (ti))
7904 return;
7906 /* We are called both from instantiate_decl, where we've already had a
7907 tinst_level pushed, and instantiate_template, where we haven't.
7908 Compensate. */
7909 level = !current_tinst_level || current_tinst_level->decl != d;
7911 if (level)
7912 push_tinst_level (d);
7914 pt = ggc_alloc<pending_template> ();
7915 pt->next = NULL;
7916 pt->tinst = current_tinst_level;
7917 if (last_pending_template)
7918 last_pending_template->next = pt;
7919 else
7920 pending_templates = pt;
7922 last_pending_template = pt;
7924 TI_PENDING_TEMPLATE_FLAG (ti) = 1;
7926 if (level)
7927 pop_tinst_level ();
7931 /* Return a TEMPLATE_ID_EXPR corresponding to the indicated FNS and
7932 ARGLIST. Valid choices for FNS are given in the cp-tree.def
7933 documentation for TEMPLATE_ID_EXPR. */
7935 tree
7936 lookup_template_function (tree fns, tree arglist)
7938 tree type;
7940 if (fns == error_mark_node || arglist == error_mark_node)
7941 return error_mark_node;
7943 gcc_assert (!arglist || TREE_CODE (arglist) == TREE_VEC);
7945 if (!is_overloaded_fn (fns) && !identifier_p (fns))
7947 error ("%q#D is not a function template", fns);
7948 return error_mark_node;
7951 if (BASELINK_P (fns))
7953 BASELINK_FUNCTIONS (fns) = build2 (TEMPLATE_ID_EXPR,
7954 unknown_type_node,
7955 BASELINK_FUNCTIONS (fns),
7956 arglist);
7957 return fns;
7960 type = TREE_TYPE (fns);
7961 if (TREE_CODE (fns) == OVERLOAD || !type)
7962 type = unknown_type_node;
7964 return build2 (TEMPLATE_ID_EXPR, type, fns, arglist);
7967 /* Within the scope of a template class S<T>, the name S gets bound
7968 (in build_self_reference) to a TYPE_DECL for the class, not a
7969 TEMPLATE_DECL. If DECL is a TYPE_DECL for current_class_type,
7970 or one of its enclosing classes, and that type is a template,
7971 return the associated TEMPLATE_DECL. Otherwise, the original
7972 DECL is returned.
7974 Also handle the case when DECL is a TREE_LIST of ambiguous
7975 injected-class-names from different bases. */
7977 tree
7978 maybe_get_template_decl_from_type_decl (tree decl)
7980 if (decl == NULL_TREE)
7981 return decl;
7983 /* DR 176: A lookup that finds an injected-class-name (10.2
7984 [class.member.lookup]) can result in an ambiguity in certain cases
7985 (for example, if it is found in more than one base class). If all of
7986 the injected-class-names that are found refer to specializations of
7987 the same class template, and if the name is followed by a
7988 template-argument-list, the reference refers to the class template
7989 itself and not a specialization thereof, and is not ambiguous. */
7990 if (TREE_CODE (decl) == TREE_LIST)
7992 tree t, tmpl = NULL_TREE;
7993 for (t = decl; t; t = TREE_CHAIN (t))
7995 tree elt = maybe_get_template_decl_from_type_decl (TREE_VALUE (t));
7996 if (!tmpl)
7997 tmpl = elt;
7998 else if (tmpl != elt)
7999 break;
8001 if (tmpl && t == NULL_TREE)
8002 return tmpl;
8003 else
8004 return decl;
8007 return (decl != NULL_TREE
8008 && DECL_SELF_REFERENCE_P (decl)
8009 && CLASSTYPE_TEMPLATE_INFO (TREE_TYPE (decl)))
8010 ? CLASSTYPE_TI_TEMPLATE (TREE_TYPE (decl)) : decl;
8013 /* Given an IDENTIFIER_NODE (or type TEMPLATE_DECL) and a chain of
8014 parameters, find the desired type.
8016 D1 is the PTYPENAME terminal, and ARGLIST is the list of arguments.
8018 IN_DECL, if non-NULL, is the template declaration we are trying to
8019 instantiate.
8021 If ENTERING_SCOPE is nonzero, we are about to enter the scope of
8022 the class we are looking up.
8024 Issue error and warning messages under control of COMPLAIN.
8026 If the template class is really a local class in a template
8027 function, then the FUNCTION_CONTEXT is the function in which it is
8028 being instantiated.
8030 ??? Note that this function is currently called *twice* for each
8031 template-id: the first time from the parser, while creating the
8032 incomplete type (finish_template_type), and the second type during the
8033 real instantiation (instantiate_template_class). This is surely something
8034 that we want to avoid. It also causes some problems with argument
8035 coercion (see convert_nontype_argument for more information on this). */
8037 static tree
8038 lookup_template_class_1 (tree d1, tree arglist, tree in_decl, tree context,
8039 int entering_scope, tsubst_flags_t complain)
8041 tree templ = NULL_TREE, parmlist;
8042 tree t;
8043 spec_entry **slot;
8044 spec_entry *entry;
8045 spec_entry elt;
8046 hashval_t hash;
8048 if (identifier_p (d1))
8050 tree value = innermost_non_namespace_value (d1);
8051 if (value && DECL_TEMPLATE_TEMPLATE_PARM_P (value))
8052 templ = value;
8053 else
8055 if (context)
8056 push_decl_namespace (context);
8057 templ = lookup_name (d1);
8058 templ = maybe_get_template_decl_from_type_decl (templ);
8059 if (context)
8060 pop_decl_namespace ();
8062 if (templ)
8063 context = DECL_CONTEXT (templ);
8065 else if (TREE_CODE (d1) == TYPE_DECL && MAYBE_CLASS_TYPE_P (TREE_TYPE (d1)))
8067 tree type = TREE_TYPE (d1);
8069 /* If we are declaring a constructor, say A<T>::A<T>, we will get
8070 an implicit typename for the second A. Deal with it. */
8071 if (TREE_CODE (type) == TYPENAME_TYPE && TREE_TYPE (type))
8072 type = TREE_TYPE (type);
8074 if (CLASSTYPE_TEMPLATE_INFO (type))
8076 templ = CLASSTYPE_TI_TEMPLATE (type);
8077 d1 = DECL_NAME (templ);
8080 else if (TREE_CODE (d1) == ENUMERAL_TYPE
8081 || (TYPE_P (d1) && MAYBE_CLASS_TYPE_P (d1)))
8083 templ = TYPE_TI_TEMPLATE (d1);
8084 d1 = DECL_NAME (templ);
8086 else if (DECL_TYPE_TEMPLATE_P (d1))
8088 templ = d1;
8089 d1 = DECL_NAME (templ);
8090 context = DECL_CONTEXT (templ);
8092 else if (DECL_TEMPLATE_TEMPLATE_PARM_P (d1))
8094 templ = d1;
8095 d1 = DECL_NAME (templ);
8098 /* Issue an error message if we didn't find a template. */
8099 if (! templ)
8101 if (complain & tf_error)
8102 error ("%qT is not a template", d1);
8103 return error_mark_node;
8106 if (TREE_CODE (templ) != TEMPLATE_DECL
8107 /* Make sure it's a user visible template, if it was named by
8108 the user. */
8109 || ((complain & tf_user) && !DECL_TEMPLATE_PARM_P (templ)
8110 && !PRIMARY_TEMPLATE_P (templ)))
8112 if (complain & tf_error)
8114 error ("non-template type %qT used as a template", d1);
8115 if (in_decl)
8116 error ("for template declaration %q+D", in_decl);
8118 return error_mark_node;
8121 complain &= ~tf_user;
8123 /* An alias that just changes the name of a template is equivalent to the
8124 other template, so if any of the arguments are pack expansions, strip
8125 the alias to avoid problems with a pack expansion passed to a non-pack
8126 alias template parameter (DR 1430). */
8127 if (pack_expansion_args_count (INNERMOST_TEMPLATE_ARGS (arglist)))
8128 templ = get_underlying_template (templ);
8130 if (DECL_TEMPLATE_TEMPLATE_PARM_P (templ))
8132 /* Create a new TEMPLATE_DECL and TEMPLATE_TEMPLATE_PARM node to store
8133 template arguments */
8135 tree parm;
8136 tree arglist2;
8137 tree outer;
8139 parmlist = DECL_INNERMOST_TEMPLATE_PARMS (templ);
8141 /* Consider an example where a template template parameter declared as
8143 template <class T, class U = std::allocator<T> > class TT
8145 The template parameter level of T and U are one level larger than
8146 of TT. To proper process the default argument of U, say when an
8147 instantiation `TT<int>' is seen, we need to build the full
8148 arguments containing {int} as the innermost level. Outer levels,
8149 available when not appearing as default template argument, can be
8150 obtained from the arguments of the enclosing template.
8152 Suppose that TT is later substituted with std::vector. The above
8153 instantiation is `TT<int, std::allocator<T> >' with TT at
8154 level 1, and T at level 2, while the template arguments at level 1
8155 becomes {std::vector} and the inner level 2 is {int}. */
8157 outer = DECL_CONTEXT (templ);
8158 if (outer)
8159 outer = TI_ARGS (get_template_info (DECL_TEMPLATE_RESULT (outer)));
8160 else if (current_template_parms)
8162 /* This is an argument of the current template, so we haven't set
8163 DECL_CONTEXT yet. */
8164 tree relevant_template_parms;
8166 /* Parameter levels that are greater than the level of the given
8167 template template parm are irrelevant. */
8168 relevant_template_parms = current_template_parms;
8169 while (TMPL_PARMS_DEPTH (relevant_template_parms)
8170 != TEMPLATE_TYPE_LEVEL (TREE_TYPE (templ)))
8171 relevant_template_parms = TREE_CHAIN (relevant_template_parms);
8173 outer = template_parms_to_args (relevant_template_parms);
8176 if (outer)
8177 arglist = add_to_template_args (outer, arglist);
8179 arglist2 = coerce_template_parms (parmlist, arglist, templ,
8180 complain,
8181 /*require_all_args=*/true,
8182 /*use_default_args=*/true);
8183 if (arglist2 == error_mark_node
8184 || (!uses_template_parms (arglist2)
8185 && check_instantiated_args (templ, arglist2, complain)))
8186 return error_mark_node;
8188 parm = bind_template_template_parm (TREE_TYPE (templ), arglist2);
8189 return parm;
8191 else
8193 tree template_type = TREE_TYPE (templ);
8194 tree gen_tmpl;
8195 tree type_decl;
8196 tree found = NULL_TREE;
8197 int arg_depth;
8198 int parm_depth;
8199 int is_dependent_type;
8200 int use_partial_inst_tmpl = false;
8202 if (template_type == error_mark_node)
8203 /* An error occurred while building the template TEMPL, and a
8204 diagnostic has most certainly been emitted for that
8205 already. Let's propagate that error. */
8206 return error_mark_node;
8208 gen_tmpl = most_general_template (templ);
8209 parmlist = DECL_TEMPLATE_PARMS (gen_tmpl);
8210 parm_depth = TMPL_PARMS_DEPTH (parmlist);
8211 arg_depth = TMPL_ARGS_DEPTH (arglist);
8213 if (arg_depth == 1 && parm_depth > 1)
8215 /* We've been given an incomplete set of template arguments.
8216 For example, given:
8218 template <class T> struct S1 {
8219 template <class U> struct S2 {};
8220 template <class U> struct S2<U*> {};
8223 we will be called with an ARGLIST of `U*', but the
8224 TEMPLATE will be `template <class T> template
8225 <class U> struct S1<T>::S2'. We must fill in the missing
8226 arguments. */
8227 arglist
8228 = add_outermost_template_args (TYPE_TI_ARGS (TREE_TYPE (templ)),
8229 arglist);
8230 arg_depth = TMPL_ARGS_DEPTH (arglist);
8233 /* Now we should have enough arguments. */
8234 gcc_assert (parm_depth == arg_depth);
8236 /* From here on, we're only interested in the most general
8237 template. */
8239 /* Calculate the BOUND_ARGS. These will be the args that are
8240 actually tsubst'd into the definition to create the
8241 instantiation. */
8242 arglist = coerce_innermost_template_parms (parmlist, arglist, gen_tmpl,
8243 complain,
8244 /*require_all_args=*/true,
8245 /*use_default_args=*/true);
8247 if (arglist == error_mark_node)
8248 /* We were unable to bind the arguments. */
8249 return error_mark_node;
8251 /* In the scope of a template class, explicit references to the
8252 template class refer to the type of the template, not any
8253 instantiation of it. For example, in:
8255 template <class T> class C { void f(C<T>); }
8257 the `C<T>' is just the same as `C'. Outside of the
8258 class, however, such a reference is an instantiation. */
8259 if ((entering_scope
8260 || !PRIMARY_TEMPLATE_P (gen_tmpl)
8261 || currently_open_class (template_type))
8262 /* comp_template_args is expensive, check it last. */
8263 && comp_template_args (TYPE_TI_ARGS (template_type),
8264 arglist))
8265 return template_type;
8267 /* If we already have this specialization, return it. */
8268 elt.tmpl = gen_tmpl;
8269 elt.args = arglist;
8270 elt.spec = NULL_TREE;
8271 hash = spec_hasher::hash (&elt);
8272 entry = type_specializations->find_with_hash (&elt, hash);
8274 if (entry)
8275 return entry->spec;
8277 /* If the the template's constraints are not satisfied,
8278 then we cannot form a valid type.
8280 Note that the check is deferred until after the hash
8281 lookup. This prevents redundant checks on previously
8282 instantiated specializations. */
8283 if (flag_concepts && !constraints_satisfied_p (gen_tmpl, arglist))
8285 if (complain & tf_error)
8287 error ("template constraint failure");
8288 diagnose_constraints (input_location, gen_tmpl, arglist);
8290 return error_mark_node;
8293 is_dependent_type = uses_template_parms (arglist);
8295 /* If the deduced arguments are invalid, then the binding
8296 failed. */
8297 if (!is_dependent_type
8298 && check_instantiated_args (gen_tmpl,
8299 INNERMOST_TEMPLATE_ARGS (arglist),
8300 complain))
8301 return error_mark_node;
8303 if (!is_dependent_type
8304 && !PRIMARY_TEMPLATE_P (gen_tmpl)
8305 && !LAMBDA_TYPE_P (TREE_TYPE (gen_tmpl))
8306 && TREE_CODE (CP_DECL_CONTEXT (gen_tmpl)) == NAMESPACE_DECL)
8308 found = xref_tag_from_type (TREE_TYPE (gen_tmpl),
8309 DECL_NAME (gen_tmpl),
8310 /*tag_scope=*/ts_global);
8311 return found;
8314 context = tsubst (DECL_CONTEXT (gen_tmpl), arglist,
8315 complain, in_decl);
8316 if (context == error_mark_node)
8317 return error_mark_node;
8319 if (!context)
8320 context = global_namespace;
8322 /* Create the type. */
8323 if (DECL_ALIAS_TEMPLATE_P (gen_tmpl))
8325 /* The user referred to a specialization of an alias
8326 template represented by GEN_TMPL.
8328 [temp.alias]/2 says:
8330 When a template-id refers to the specialization of an
8331 alias template, it is equivalent to the associated
8332 type obtained by substitution of its
8333 template-arguments for the template-parameters in the
8334 type-id of the alias template. */
8336 t = tsubst (TREE_TYPE (gen_tmpl), arglist, complain, in_decl);
8337 /* Note that the call above (by indirectly calling
8338 register_specialization in tsubst_decl) registers the
8339 TYPE_DECL representing the specialization of the alias
8340 template. So next time someone substitutes ARGLIST for
8341 the template parms into the alias template (GEN_TMPL),
8342 she'll get that TYPE_DECL back. */
8344 if (t == error_mark_node)
8345 return t;
8347 else if (TREE_CODE (template_type) == ENUMERAL_TYPE)
8349 if (!is_dependent_type)
8351 set_current_access_from_decl (TYPE_NAME (template_type));
8352 t = start_enum (TYPE_IDENTIFIER (template_type), NULL_TREE,
8353 tsubst (ENUM_UNDERLYING_TYPE (template_type),
8354 arglist, complain, in_decl),
8355 SCOPED_ENUM_P (template_type), NULL);
8357 if (t == error_mark_node)
8358 return t;
8360 else
8362 /* We don't want to call start_enum for this type, since
8363 the values for the enumeration constants may involve
8364 template parameters. And, no one should be interested
8365 in the enumeration constants for such a type. */
8366 t = cxx_make_type (ENUMERAL_TYPE);
8367 SET_SCOPED_ENUM_P (t, SCOPED_ENUM_P (template_type));
8369 SET_OPAQUE_ENUM_P (t, OPAQUE_ENUM_P (template_type));
8370 ENUM_FIXED_UNDERLYING_TYPE_P (t)
8371 = ENUM_FIXED_UNDERLYING_TYPE_P (template_type);
8373 else if (CLASS_TYPE_P (template_type))
8375 t = make_class_type (TREE_CODE (template_type));
8376 CLASSTYPE_DECLARED_CLASS (t)
8377 = CLASSTYPE_DECLARED_CLASS (template_type);
8378 SET_CLASSTYPE_IMPLICIT_INSTANTIATION (t);
8379 TYPE_FOR_JAVA (t) = TYPE_FOR_JAVA (template_type);
8381 /* A local class. Make sure the decl gets registered properly. */
8382 if (context == current_function_decl)
8383 pushtag (DECL_NAME (gen_tmpl), t, /*tag_scope=*/ts_current);
8385 if (comp_template_args (CLASSTYPE_TI_ARGS (template_type), arglist))
8386 /* This instantiation is another name for the primary
8387 template type. Set the TYPE_CANONICAL field
8388 appropriately. */
8389 TYPE_CANONICAL (t) = template_type;
8390 else if (any_template_arguments_need_structural_equality_p (arglist))
8391 /* Some of the template arguments require structural
8392 equality testing, so this template class requires
8393 structural equality testing. */
8394 SET_TYPE_STRUCTURAL_EQUALITY (t);
8396 else
8397 gcc_unreachable ();
8399 /* If we called start_enum or pushtag above, this information
8400 will already be set up. */
8401 if (!TYPE_NAME (t))
8403 TYPE_CONTEXT (t) = FROB_CONTEXT (context);
8405 type_decl = create_implicit_typedef (DECL_NAME (gen_tmpl), t);
8406 DECL_CONTEXT (type_decl) = TYPE_CONTEXT (t);
8407 DECL_SOURCE_LOCATION (type_decl)
8408 = DECL_SOURCE_LOCATION (TYPE_STUB_DECL (template_type));
8410 else
8411 type_decl = TYPE_NAME (t);
8413 if (CLASS_TYPE_P (template_type))
8415 TREE_PRIVATE (type_decl)
8416 = TREE_PRIVATE (TYPE_MAIN_DECL (template_type));
8417 TREE_PROTECTED (type_decl)
8418 = TREE_PROTECTED (TYPE_MAIN_DECL (template_type));
8419 if (CLASSTYPE_VISIBILITY_SPECIFIED (template_type))
8421 DECL_VISIBILITY_SPECIFIED (type_decl) = 1;
8422 DECL_VISIBILITY (type_decl) = CLASSTYPE_VISIBILITY (template_type);
8426 if (OVERLOAD_TYPE_P (t)
8427 && !DECL_ALIAS_TEMPLATE_P (gen_tmpl))
8429 static const char *tags[] = {"abi_tag", "may_alias"};
8431 for (unsigned ix = 0; ix != 2; ix++)
8433 tree attributes
8434 = lookup_attribute (tags[ix], TYPE_ATTRIBUTES (template_type));
8436 if (!attributes)
8438 else if (!TREE_CHAIN (attributes) && !TYPE_ATTRIBUTES (t))
8439 TYPE_ATTRIBUTES (t) = attributes;
8440 else
8441 TYPE_ATTRIBUTES (t)
8442 = tree_cons (TREE_PURPOSE (attributes),
8443 TREE_VALUE (attributes),
8444 TYPE_ATTRIBUTES (t));
8448 /* Let's consider the explicit specialization of a member
8449 of a class template specialization that is implicitly instantiated,
8450 e.g.:
8451 template<class T>
8452 struct S
8454 template<class U> struct M {}; //#0
8457 template<>
8458 template<>
8459 struct S<int>::M<char> //#1
8461 int i;
8463 [temp.expl.spec]/4 says this is valid.
8465 In this case, when we write:
8466 S<int>::M<char> m;
8468 M is instantiated from the CLASSTYPE_TI_TEMPLATE of #1, not from
8469 the one of #0.
8471 When we encounter #1, we want to store the partial instantiation
8472 of M (template<class T> S<int>::M<T>) in its CLASSTYPE_TI_TEMPLATE.
8474 For all cases other than this "explicit specialization of member of a
8475 class template", we just want to store the most general template into
8476 the CLASSTYPE_TI_TEMPLATE of M.
8478 This case of "explicit specialization of member of a class template"
8479 only happens when:
8480 1/ the enclosing class is an instantiation of, and therefore not
8481 the same as, the context of the most general template, and
8482 2/ we aren't looking at the partial instantiation itself, i.e.
8483 the innermost arguments are not the same as the innermost parms of
8484 the most general template.
8486 So it's only when 1/ and 2/ happens that we want to use the partial
8487 instantiation of the member template in lieu of its most general
8488 template. */
8490 if (PRIMARY_TEMPLATE_P (gen_tmpl)
8491 && TMPL_ARGS_HAVE_MULTIPLE_LEVELS (arglist)
8492 /* the enclosing class must be an instantiation... */
8493 && CLASS_TYPE_P (context)
8494 && !same_type_p (context, DECL_CONTEXT (gen_tmpl)))
8496 tree partial_inst_args;
8497 TREE_VEC_LENGTH (arglist)--;
8498 ++processing_template_decl;
8499 partial_inst_args =
8500 tsubst (INNERMOST_TEMPLATE_ARGS
8501 (TYPE_TI_ARGS (TREE_TYPE (gen_tmpl))),
8502 arglist, complain, NULL_TREE);
8503 --processing_template_decl;
8504 TREE_VEC_LENGTH (arglist)++;
8505 use_partial_inst_tmpl =
8506 /*...and we must not be looking at the partial instantiation
8507 itself. */
8508 !comp_template_args (INNERMOST_TEMPLATE_ARGS (arglist),
8509 partial_inst_args);
8512 if (!use_partial_inst_tmpl)
8513 /* This case is easy; there are no member templates involved. */
8514 found = gen_tmpl;
8515 else
8517 /* This is a full instantiation of a member template. Find
8518 the partial instantiation of which this is an instance. */
8520 /* Temporarily reduce by one the number of levels in the ARGLIST
8521 so as to avoid comparing the last set of arguments. */
8522 TREE_VEC_LENGTH (arglist)--;
8523 found = tsubst (gen_tmpl, arglist, complain, NULL_TREE);
8524 TREE_VEC_LENGTH (arglist)++;
8525 /* FOUND is either a proper class type, or an alias
8526 template specialization. In the later case, it's a
8527 TYPE_DECL, resulting from the substituting of arguments
8528 for parameters in the TYPE_DECL of the alias template
8529 done earlier. So be careful while getting the template
8530 of FOUND. */
8531 found = TREE_CODE (found) == TYPE_DECL
8532 ? TYPE_TI_TEMPLATE (TREE_TYPE (found))
8533 : CLASSTYPE_TI_TEMPLATE (found);
8536 // Build template info for the new specialization.
8537 SET_TYPE_TEMPLATE_INFO (t, build_template_info (found, arglist));
8539 elt.spec = t;
8540 slot = type_specializations->find_slot_with_hash (&elt, hash, INSERT);
8541 entry = ggc_alloc<spec_entry> ();
8542 *entry = elt;
8543 *slot = entry;
8545 /* Note this use of the partial instantiation so we can check it
8546 later in maybe_process_partial_specialization. */
8547 DECL_TEMPLATE_INSTANTIATIONS (found)
8548 = tree_cons (arglist, t,
8549 DECL_TEMPLATE_INSTANTIATIONS (found));
8551 if (TREE_CODE (template_type) == ENUMERAL_TYPE && !is_dependent_type
8552 && !DECL_ALIAS_TEMPLATE_P (gen_tmpl))
8553 /* Now that the type has been registered on the instantiations
8554 list, we set up the enumerators. Because the enumeration
8555 constants may involve the enumeration type itself, we make
8556 sure to register the type first, and then create the
8557 constants. That way, doing tsubst_expr for the enumeration
8558 constants won't result in recursive calls here; we'll find
8559 the instantiation and exit above. */
8560 tsubst_enum (template_type, t, arglist);
8562 if (CLASS_TYPE_P (template_type) && is_dependent_type)
8563 /* If the type makes use of template parameters, the
8564 code that generates debugging information will crash. */
8565 DECL_IGNORED_P (TYPE_MAIN_DECL (t)) = 1;
8567 /* Possibly limit visibility based on template args. */
8568 TREE_PUBLIC (type_decl) = 1;
8569 determine_visibility (type_decl);
8571 inherit_targ_abi_tags (t);
8573 return t;
8577 /* Wrapper for lookup_template_class_1. */
8579 tree
8580 lookup_template_class (tree d1, tree arglist, tree in_decl, tree context,
8581 int entering_scope, tsubst_flags_t complain)
8583 tree ret;
8584 timevar_push (TV_TEMPLATE_INST);
8585 ret = lookup_template_class_1 (d1, arglist, in_decl, context,
8586 entering_scope, complain);
8587 timevar_pop (TV_TEMPLATE_INST);
8588 return ret;
8591 /* Return a TEMPLATE_ID_EXPR for the given variable template and ARGLIST. */
8593 tree
8594 lookup_template_variable (tree templ, tree arglist)
8596 /* The type of the expression is NULL_TREE since the template-id could refer
8597 to an explicit or partial specialization. */
8598 tree type = NULL_TREE;
8599 if (flag_concepts && variable_concept_p (templ))
8600 /* Except that concepts are always bool. */
8601 type = boolean_type_node;
8602 return build2 (TEMPLATE_ID_EXPR, type, templ, arglist);
8605 /* Instantiate a variable declaration from a TEMPLATE_ID_EXPR for use. */
8607 tree
8608 finish_template_variable (tree var, tsubst_flags_t complain)
8610 tree templ = TREE_OPERAND (var, 0);
8611 tree arglist = TREE_OPERAND (var, 1);
8613 /* We never want to return a VAR_DECL for a variable concept, since they
8614 aren't instantiated. In a template, leave the TEMPLATE_ID_EXPR alone. */
8615 bool concept_p = flag_concepts && variable_concept_p (templ);
8616 if (concept_p && processing_template_decl)
8617 return var;
8619 tree tmpl_args = DECL_TI_ARGS (DECL_TEMPLATE_RESULT (templ));
8620 arglist = add_outermost_template_args (tmpl_args, arglist);
8622 tree parms = DECL_TEMPLATE_PARMS (templ);
8623 arglist = coerce_innermost_template_parms (parms, arglist, templ, complain,
8624 /*req_all*/true,
8625 /*use_default*/true);
8627 if (flag_concepts && !constraints_satisfied_p (templ, arglist))
8629 if (complain & tf_error)
8631 error ("constraints for %qD not satisfied", templ);
8632 diagnose_constraints (location_of (var), templ, arglist);
8634 return error_mark_node;
8637 /* If a template-id refers to a specialization of a variable
8638 concept, then the expression is true if and only if the
8639 concept's constraints are satisfied by the given template
8640 arguments.
8642 NOTE: This is an extension of Concepts Lite TS that
8643 allows constraints to be used in expressions. */
8644 if (concept_p)
8646 tree decl = DECL_TEMPLATE_RESULT (templ);
8647 return evaluate_variable_concept (decl, arglist);
8650 return instantiate_template (templ, arglist, complain);
8653 struct pair_fn_data
8655 tree_fn_t fn;
8656 void *data;
8657 /* True when we should also visit template parameters that occur in
8658 non-deduced contexts. */
8659 bool include_nondeduced_p;
8660 hash_set<tree> *visited;
8663 /* Called from for_each_template_parm via walk_tree. */
8665 static tree
8666 for_each_template_parm_r (tree *tp, int *walk_subtrees, void *d)
8668 tree t = *tp;
8669 struct pair_fn_data *pfd = (struct pair_fn_data *) d;
8670 tree_fn_t fn = pfd->fn;
8671 void *data = pfd->data;
8673 if (TYPE_P (t)
8674 && (pfd->include_nondeduced_p || TREE_CODE (t) != TYPENAME_TYPE)
8675 && for_each_template_parm (TYPE_CONTEXT (t), fn, data, pfd->visited,
8676 pfd->include_nondeduced_p))
8677 return error_mark_node;
8679 switch (TREE_CODE (t))
8681 case RECORD_TYPE:
8682 if (TYPE_PTRMEMFUNC_P (t))
8683 break;
8684 /* Fall through. */
8686 case UNION_TYPE:
8687 case ENUMERAL_TYPE:
8688 if (!TYPE_TEMPLATE_INFO (t))
8689 *walk_subtrees = 0;
8690 else if (for_each_template_parm (TYPE_TI_ARGS (t),
8691 fn, data, pfd->visited,
8692 pfd->include_nondeduced_p))
8693 return error_mark_node;
8694 break;
8696 case INTEGER_TYPE:
8697 if (for_each_template_parm (TYPE_MIN_VALUE (t),
8698 fn, data, pfd->visited,
8699 pfd->include_nondeduced_p)
8700 || for_each_template_parm (TYPE_MAX_VALUE (t),
8701 fn, data, pfd->visited,
8702 pfd->include_nondeduced_p))
8703 return error_mark_node;
8704 break;
8706 case METHOD_TYPE:
8707 /* Since we're not going to walk subtrees, we have to do this
8708 explicitly here. */
8709 if (for_each_template_parm (TYPE_METHOD_BASETYPE (t), fn, data,
8710 pfd->visited, pfd->include_nondeduced_p))
8711 return error_mark_node;
8712 /* Fall through. */
8714 case FUNCTION_TYPE:
8715 /* Check the return type. */
8716 if (for_each_template_parm (TREE_TYPE (t), fn, data, pfd->visited,
8717 pfd->include_nondeduced_p))
8718 return error_mark_node;
8720 /* Check the parameter types. Since default arguments are not
8721 instantiated until they are needed, the TYPE_ARG_TYPES may
8722 contain expressions that involve template parameters. But,
8723 no-one should be looking at them yet. And, once they're
8724 instantiated, they don't contain template parameters, so
8725 there's no point in looking at them then, either. */
8727 tree parm;
8729 for (parm = TYPE_ARG_TYPES (t); parm; parm = TREE_CHAIN (parm))
8730 if (for_each_template_parm (TREE_VALUE (parm), fn, data,
8731 pfd->visited, pfd->include_nondeduced_p))
8732 return error_mark_node;
8734 /* Since we've already handled the TYPE_ARG_TYPES, we don't
8735 want walk_tree walking into them itself. */
8736 *walk_subtrees = 0;
8738 break;
8740 case TYPEOF_TYPE:
8741 case UNDERLYING_TYPE:
8742 if (pfd->include_nondeduced_p
8743 && for_each_template_parm (TYPE_VALUES_RAW (t), fn, data,
8744 pfd->visited,
8745 pfd->include_nondeduced_p))
8746 return error_mark_node;
8747 break;
8749 case FUNCTION_DECL:
8750 case VAR_DECL:
8751 if (DECL_LANG_SPECIFIC (t) && DECL_TEMPLATE_INFO (t)
8752 && for_each_template_parm (DECL_TI_ARGS (t), fn, data,
8753 pfd->visited, pfd->include_nondeduced_p))
8754 return error_mark_node;
8755 /* Fall through. */
8757 case PARM_DECL:
8758 case CONST_DECL:
8759 if (TREE_CODE (t) == CONST_DECL && DECL_TEMPLATE_PARM_P (t)
8760 && for_each_template_parm (DECL_INITIAL (t), fn, data,
8761 pfd->visited, pfd->include_nondeduced_p))
8762 return error_mark_node;
8763 if (DECL_CONTEXT (t)
8764 && pfd->include_nondeduced_p
8765 && for_each_template_parm (DECL_CONTEXT (t), fn, data,
8766 pfd->visited, pfd->include_nondeduced_p))
8767 return error_mark_node;
8768 break;
8770 case BOUND_TEMPLATE_TEMPLATE_PARM:
8771 /* Record template parameters such as `T' inside `TT<T>'. */
8772 if (for_each_template_parm (TYPE_TI_ARGS (t), fn, data, pfd->visited,
8773 pfd->include_nondeduced_p))
8774 return error_mark_node;
8775 /* Fall through. */
8777 case TEMPLATE_TEMPLATE_PARM:
8778 case TEMPLATE_TYPE_PARM:
8779 case TEMPLATE_PARM_INDEX:
8780 if (fn && (*fn)(t, data))
8781 return error_mark_node;
8782 else if (!fn)
8783 return error_mark_node;
8784 break;
8786 case TEMPLATE_DECL:
8787 /* A template template parameter is encountered. */
8788 if (DECL_TEMPLATE_TEMPLATE_PARM_P (t)
8789 && for_each_template_parm (TREE_TYPE (t), fn, data, pfd->visited,
8790 pfd->include_nondeduced_p))
8791 return error_mark_node;
8793 /* Already substituted template template parameter */
8794 *walk_subtrees = 0;
8795 break;
8797 case TYPENAME_TYPE:
8798 if (!fn
8799 || for_each_template_parm (TYPENAME_TYPE_FULLNAME (t), fn,
8800 data, pfd->visited,
8801 pfd->include_nondeduced_p))
8802 return error_mark_node;
8803 break;
8805 case CONSTRUCTOR:
8806 if (TREE_TYPE (t) && TYPE_PTRMEMFUNC_P (TREE_TYPE (t))
8807 && pfd->include_nondeduced_p
8808 && for_each_template_parm (TYPE_PTRMEMFUNC_FN_TYPE
8809 (TREE_TYPE (t)), fn, data,
8810 pfd->visited, pfd->include_nondeduced_p))
8811 return error_mark_node;
8812 break;
8814 case INDIRECT_REF:
8815 case COMPONENT_REF:
8816 /* If there's no type, then this thing must be some expression
8817 involving template parameters. */
8818 if (!fn && !TREE_TYPE (t))
8819 return error_mark_node;
8820 break;
8822 case MODOP_EXPR:
8823 case CAST_EXPR:
8824 case IMPLICIT_CONV_EXPR:
8825 case REINTERPRET_CAST_EXPR:
8826 case CONST_CAST_EXPR:
8827 case STATIC_CAST_EXPR:
8828 case DYNAMIC_CAST_EXPR:
8829 case ARROW_EXPR:
8830 case DOTSTAR_EXPR:
8831 case TYPEID_EXPR:
8832 case PSEUDO_DTOR_EXPR:
8833 if (!fn)
8834 return error_mark_node;
8835 break;
8837 default:
8838 break;
8841 /* We didn't find any template parameters we liked. */
8842 return NULL_TREE;
8845 /* For each TEMPLATE_TYPE_PARM, TEMPLATE_TEMPLATE_PARM,
8846 BOUND_TEMPLATE_TEMPLATE_PARM or TEMPLATE_PARM_INDEX in T,
8847 call FN with the parameter and the DATA.
8848 If FN returns nonzero, the iteration is terminated, and
8849 for_each_template_parm returns 1. Otherwise, the iteration
8850 continues. If FN never returns a nonzero value, the value
8851 returned by for_each_template_parm is 0. If FN is NULL, it is
8852 considered to be the function which always returns 1.
8854 If INCLUDE_NONDEDUCED_P, then this routine will also visit template
8855 parameters that occur in non-deduced contexts. When false, only
8856 visits those template parameters that can be deduced. */
8858 static int
8859 for_each_template_parm (tree t, tree_fn_t fn, void* data,
8860 hash_set<tree> *visited,
8861 bool include_nondeduced_p)
8863 struct pair_fn_data pfd;
8864 int result;
8866 /* Set up. */
8867 pfd.fn = fn;
8868 pfd.data = data;
8869 pfd.include_nondeduced_p = include_nondeduced_p;
8871 /* Walk the tree. (Conceptually, we would like to walk without
8872 duplicates, but for_each_template_parm_r recursively calls
8873 for_each_template_parm, so we would need to reorganize a fair
8874 bit to use walk_tree_without_duplicates, so we keep our own
8875 visited list.) */
8876 if (visited)
8877 pfd.visited = visited;
8878 else
8879 pfd.visited = new hash_set<tree>;
8880 result = cp_walk_tree (&t,
8881 for_each_template_parm_r,
8882 &pfd,
8883 pfd.visited) != NULL_TREE;
8885 /* Clean up. */
8886 if (!visited)
8888 delete pfd.visited;
8889 pfd.visited = 0;
8892 return result;
8895 /* Returns true if T depends on any template parameter. */
8898 uses_template_parms (tree t)
8900 if (t == NULL_TREE)
8901 return false;
8903 bool dependent_p;
8904 int saved_processing_template_decl;
8906 saved_processing_template_decl = processing_template_decl;
8907 if (!saved_processing_template_decl)
8908 processing_template_decl = 1;
8909 if (TYPE_P (t))
8910 dependent_p = dependent_type_p (t);
8911 else if (TREE_CODE (t) == TREE_VEC)
8912 dependent_p = any_dependent_template_arguments_p (t);
8913 else if (TREE_CODE (t) == TREE_LIST)
8914 dependent_p = (uses_template_parms (TREE_VALUE (t))
8915 || uses_template_parms (TREE_CHAIN (t)));
8916 else if (TREE_CODE (t) == TYPE_DECL)
8917 dependent_p = dependent_type_p (TREE_TYPE (t));
8918 else if (DECL_P (t)
8919 || EXPR_P (t)
8920 || TREE_CODE (t) == TEMPLATE_PARM_INDEX
8921 || TREE_CODE (t) == OVERLOAD
8922 || BASELINK_P (t)
8923 || identifier_p (t)
8924 || TREE_CODE (t) == TRAIT_EXPR
8925 || TREE_CODE (t) == CONSTRUCTOR
8926 || CONSTANT_CLASS_P (t))
8927 dependent_p = (type_dependent_expression_p (t)
8928 || value_dependent_expression_p (t));
8929 else
8931 gcc_assert (t == error_mark_node);
8932 dependent_p = false;
8935 processing_template_decl = saved_processing_template_decl;
8937 return dependent_p;
8940 /* Returns true iff current_function_decl is an incompletely instantiated
8941 template. Useful instead of processing_template_decl because the latter
8942 is set to 0 during instantiate_non_dependent_expr. */
8944 bool
8945 in_template_function (void)
8947 tree fn = current_function_decl;
8948 bool ret;
8949 ++processing_template_decl;
8950 ret = (fn && DECL_LANG_SPECIFIC (fn)
8951 && DECL_TEMPLATE_INFO (fn)
8952 && any_dependent_template_arguments_p (DECL_TI_ARGS (fn)));
8953 --processing_template_decl;
8954 return ret;
8957 /* Returns true if T depends on any template parameter with level LEVEL. */
8960 uses_template_parms_level (tree t, int level)
8962 return for_each_template_parm (t, template_parm_this_level_p, &level, NULL,
8963 /*include_nondeduced_p=*/true);
8966 /* Returns TRUE iff INST is an instantiation we don't need to do in an
8967 ill-formed translation unit, i.e. a variable or function that isn't
8968 usable in a constant expression. */
8970 static inline bool
8971 neglectable_inst_p (tree d)
8973 return (DECL_P (d)
8974 && !(TREE_CODE (d) == FUNCTION_DECL ? DECL_DECLARED_CONSTEXPR_P (d)
8975 : decl_maybe_constant_var_p (d)));
8978 /* Returns TRUE iff we should refuse to instantiate DECL because it's
8979 neglectable and instantiated from within an erroneous instantiation. */
8981 static bool
8982 limit_bad_template_recursion (tree decl)
8984 struct tinst_level *lev = current_tinst_level;
8985 int errs = errorcount + sorrycount;
8986 if (lev == NULL || errs == 0 || !neglectable_inst_p (decl))
8987 return false;
8989 for (; lev; lev = lev->next)
8990 if (neglectable_inst_p (lev->decl))
8991 break;
8993 return (lev && errs > lev->errors);
8996 static int tinst_depth;
8997 extern int max_tinst_depth;
8998 int depth_reached;
9000 static GTY(()) struct tinst_level *last_error_tinst_level;
9002 /* We're starting to instantiate D; record the template instantiation context
9003 for diagnostics and to restore it later. */
9005 bool
9006 push_tinst_level (tree d)
9008 return push_tinst_level_loc (d, input_location);
9011 /* We're starting to instantiate D; record the template instantiation context
9012 at LOC for diagnostics and to restore it later. */
9014 bool
9015 push_tinst_level_loc (tree d, location_t loc)
9017 struct tinst_level *new_level;
9019 if (tinst_depth >= max_tinst_depth)
9021 fatal_error (input_location,
9022 "template instantiation depth exceeds maximum of %d"
9023 " (use -ftemplate-depth= to increase the maximum)",
9024 max_tinst_depth);
9025 return false;
9028 /* If the current instantiation caused problems, don't let it instantiate
9029 anything else. Do allow deduction substitution and decls usable in
9030 constant expressions. */
9031 if (limit_bad_template_recursion (d))
9032 return false;
9034 new_level = ggc_alloc<tinst_level> ();
9035 new_level->decl = d;
9036 new_level->locus = loc;
9037 new_level->errors = errorcount+sorrycount;
9038 new_level->in_system_header_p = in_system_header_at (input_location);
9039 new_level->next = current_tinst_level;
9040 current_tinst_level = new_level;
9042 ++tinst_depth;
9043 if (GATHER_STATISTICS && (tinst_depth > depth_reached))
9044 depth_reached = tinst_depth;
9046 return true;
9049 /* We're done instantiating this template; return to the instantiation
9050 context. */
9052 void
9053 pop_tinst_level (void)
9055 /* Restore the filename and line number stashed away when we started
9056 this instantiation. */
9057 input_location = current_tinst_level->locus;
9058 current_tinst_level = current_tinst_level->next;
9059 --tinst_depth;
9062 /* We're instantiating a deferred template; restore the template
9063 instantiation context in which the instantiation was requested, which
9064 is one step out from LEVEL. Return the corresponding DECL or TYPE. */
9066 static tree
9067 reopen_tinst_level (struct tinst_level *level)
9069 struct tinst_level *t;
9071 tinst_depth = 0;
9072 for (t = level; t; t = t->next)
9073 ++tinst_depth;
9075 current_tinst_level = level;
9076 pop_tinst_level ();
9077 if (current_tinst_level)
9078 current_tinst_level->errors = errorcount+sorrycount;
9079 return level->decl;
9082 /* Returns the TINST_LEVEL which gives the original instantiation
9083 context. */
9085 struct tinst_level *
9086 outermost_tinst_level (void)
9088 struct tinst_level *level = current_tinst_level;
9089 if (level)
9090 while (level->next)
9091 level = level->next;
9092 return level;
9095 /* DECL is a friend FUNCTION_DECL or TEMPLATE_DECL. ARGS is the
9096 vector of template arguments, as for tsubst.
9098 Returns an appropriate tsubst'd friend declaration. */
9100 static tree
9101 tsubst_friend_function (tree decl, tree args)
9103 tree new_friend;
9105 if (TREE_CODE (decl) == FUNCTION_DECL
9106 && DECL_TEMPLATE_INSTANTIATION (decl)
9107 && TREE_CODE (DECL_TI_TEMPLATE (decl)) != TEMPLATE_DECL)
9108 /* This was a friend declared with an explicit template
9109 argument list, e.g.:
9111 friend void f<>(T);
9113 to indicate that f was a template instantiation, not a new
9114 function declaration. Now, we have to figure out what
9115 instantiation of what template. */
9117 tree template_id, arglist, fns;
9118 tree new_args;
9119 tree tmpl;
9120 tree ns = decl_namespace_context (TYPE_MAIN_DECL (current_class_type));
9122 /* Friend functions are looked up in the containing namespace scope.
9123 We must enter that scope, to avoid finding member functions of the
9124 current class with same name. */
9125 push_nested_namespace (ns);
9126 fns = tsubst_expr (DECL_TI_TEMPLATE (decl), args,
9127 tf_warning_or_error, NULL_TREE,
9128 /*integral_constant_expression_p=*/false);
9129 pop_nested_namespace (ns);
9130 arglist = tsubst (DECL_TI_ARGS (decl), args,
9131 tf_warning_or_error, NULL_TREE);
9132 template_id = lookup_template_function (fns, arglist);
9134 new_friend = tsubst (decl, args, tf_warning_or_error, NULL_TREE);
9135 tmpl = determine_specialization (template_id, new_friend,
9136 &new_args,
9137 /*need_member_template=*/0,
9138 TREE_VEC_LENGTH (args),
9139 tsk_none);
9140 return instantiate_template (tmpl, new_args, tf_error);
9143 new_friend = tsubst (decl, args, tf_warning_or_error, NULL_TREE);
9145 /* The NEW_FRIEND will look like an instantiation, to the
9146 compiler, but is not an instantiation from the point of view of
9147 the language. For example, we might have had:
9149 template <class T> struct S {
9150 template <class U> friend void f(T, U);
9153 Then, in S<int>, template <class U> void f(int, U) is not an
9154 instantiation of anything. */
9155 if (new_friend == error_mark_node)
9156 return error_mark_node;
9158 DECL_USE_TEMPLATE (new_friend) = 0;
9159 if (TREE_CODE (decl) == TEMPLATE_DECL)
9161 DECL_USE_TEMPLATE (DECL_TEMPLATE_RESULT (new_friend)) = 0;
9162 DECL_SAVED_TREE (DECL_TEMPLATE_RESULT (new_friend))
9163 = DECL_SAVED_TREE (DECL_TEMPLATE_RESULT (decl));
9166 /* The mangled name for the NEW_FRIEND is incorrect. The function
9167 is not a template instantiation and should not be mangled like
9168 one. Therefore, we forget the mangling here; we'll recompute it
9169 later if we need it. */
9170 if (TREE_CODE (new_friend) != TEMPLATE_DECL)
9172 SET_DECL_RTL (new_friend, NULL);
9173 SET_DECL_ASSEMBLER_NAME (new_friend, NULL_TREE);
9176 if (DECL_NAMESPACE_SCOPE_P (new_friend))
9178 tree old_decl;
9179 tree new_friend_template_info;
9180 tree new_friend_result_template_info;
9181 tree ns;
9182 int new_friend_is_defn;
9184 /* We must save some information from NEW_FRIEND before calling
9185 duplicate decls since that function will free NEW_FRIEND if
9186 possible. */
9187 new_friend_template_info = DECL_TEMPLATE_INFO (new_friend);
9188 new_friend_is_defn =
9189 (DECL_INITIAL (DECL_TEMPLATE_RESULT
9190 (template_for_substitution (new_friend)))
9191 != NULL_TREE);
9192 if (TREE_CODE (new_friend) == TEMPLATE_DECL)
9194 /* This declaration is a `primary' template. */
9195 DECL_PRIMARY_TEMPLATE (new_friend) = new_friend;
9197 new_friend_result_template_info
9198 = DECL_TEMPLATE_INFO (DECL_TEMPLATE_RESULT (new_friend));
9200 else
9201 new_friend_result_template_info = NULL_TREE;
9203 /* Make the init_value nonzero so pushdecl knows this is a defn. */
9204 if (new_friend_is_defn)
9205 DECL_INITIAL (new_friend) = error_mark_node;
9207 /* Inside pushdecl_namespace_level, we will push into the
9208 current namespace. However, the friend function should go
9209 into the namespace of the template. */
9210 ns = decl_namespace_context (new_friend);
9211 push_nested_namespace (ns);
9212 old_decl = pushdecl_namespace_level (new_friend, /*is_friend=*/true);
9213 pop_nested_namespace (ns);
9215 if (old_decl == error_mark_node)
9216 return error_mark_node;
9218 if (old_decl != new_friend)
9220 /* This new friend declaration matched an existing
9221 declaration. For example, given:
9223 template <class T> void f(T);
9224 template <class U> class C {
9225 template <class T> friend void f(T) {}
9228 the friend declaration actually provides the definition
9229 of `f', once C has been instantiated for some type. So,
9230 old_decl will be the out-of-class template declaration,
9231 while new_friend is the in-class definition.
9233 But, if `f' was called before this point, the
9234 instantiation of `f' will have DECL_TI_ARGS corresponding
9235 to `T' but not to `U', references to which might appear
9236 in the definition of `f'. Previously, the most general
9237 template for an instantiation of `f' was the out-of-class
9238 version; now it is the in-class version. Therefore, we
9239 run through all specialization of `f', adding to their
9240 DECL_TI_ARGS appropriately. In particular, they need a
9241 new set of outer arguments, corresponding to the
9242 arguments for this class instantiation.
9244 The same situation can arise with something like this:
9246 friend void f(int);
9247 template <class T> class C {
9248 friend void f(T) {}
9251 when `C<int>' is instantiated. Now, `f(int)' is defined
9252 in the class. */
9254 if (!new_friend_is_defn)
9255 /* On the other hand, if the in-class declaration does
9256 *not* provide a definition, then we don't want to alter
9257 existing definitions. We can just leave everything
9258 alone. */
9260 else
9262 tree new_template = TI_TEMPLATE (new_friend_template_info);
9263 tree new_args = TI_ARGS (new_friend_template_info);
9265 /* Overwrite whatever template info was there before, if
9266 any, with the new template information pertaining to
9267 the declaration. */
9268 DECL_TEMPLATE_INFO (old_decl) = new_friend_template_info;
9270 if (TREE_CODE (old_decl) != TEMPLATE_DECL)
9272 /* We should have called reregister_specialization in
9273 duplicate_decls. */
9274 gcc_assert (retrieve_specialization (new_template,
9275 new_args, 0)
9276 == old_decl);
9278 /* Instantiate it if the global has already been used. */
9279 if (DECL_ODR_USED (old_decl))
9280 instantiate_decl (old_decl, /*defer_ok=*/true,
9281 /*expl_inst_class_mem_p=*/false);
9283 else
9285 tree t;
9287 /* Indicate that the old function template is a partial
9288 instantiation. */
9289 DECL_TEMPLATE_INFO (DECL_TEMPLATE_RESULT (old_decl))
9290 = new_friend_result_template_info;
9292 gcc_assert (new_template
9293 == most_general_template (new_template));
9294 gcc_assert (new_template != old_decl);
9296 /* Reassign any specializations already in the hash table
9297 to the new more general template, and add the
9298 additional template args. */
9299 for (t = DECL_TEMPLATE_INSTANTIATIONS (old_decl);
9300 t != NULL_TREE;
9301 t = TREE_CHAIN (t))
9303 tree spec = TREE_VALUE (t);
9304 spec_entry elt;
9306 elt.tmpl = old_decl;
9307 elt.args = DECL_TI_ARGS (spec);
9308 elt.spec = NULL_TREE;
9310 decl_specializations->remove_elt (&elt);
9312 DECL_TI_ARGS (spec)
9313 = add_outermost_template_args (new_args,
9314 DECL_TI_ARGS (spec));
9316 register_specialization
9317 (spec, new_template, DECL_TI_ARGS (spec), true, 0);
9320 DECL_TEMPLATE_INSTANTIATIONS (old_decl) = NULL_TREE;
9324 /* The information from NEW_FRIEND has been merged into OLD_DECL
9325 by duplicate_decls. */
9326 new_friend = old_decl;
9329 else
9331 tree context = DECL_CONTEXT (new_friend);
9332 bool dependent_p;
9334 /* In the code
9335 template <class T> class C {
9336 template <class U> friend void C1<U>::f (); // case 1
9337 friend void C2<T>::f (); // case 2
9339 we only need to make sure CONTEXT is a complete type for
9340 case 2. To distinguish between the two cases, we note that
9341 CONTEXT of case 1 remains dependent type after tsubst while
9342 this isn't true for case 2. */
9343 ++processing_template_decl;
9344 dependent_p = dependent_type_p (context);
9345 --processing_template_decl;
9347 if (!dependent_p
9348 && !complete_type_or_else (context, NULL_TREE))
9349 return error_mark_node;
9351 if (COMPLETE_TYPE_P (context))
9353 tree fn = new_friend;
9354 /* do_friend adds the TEMPLATE_DECL for any member friend
9355 template even if it isn't a member template, i.e.
9356 template <class T> friend A<T>::f();
9357 Look through it in that case. */
9358 if (TREE_CODE (fn) == TEMPLATE_DECL
9359 && !PRIMARY_TEMPLATE_P (fn))
9360 fn = DECL_TEMPLATE_RESULT (fn);
9361 /* Check to see that the declaration is really present, and,
9362 possibly obtain an improved declaration. */
9363 fn = check_classfn (context, fn, NULL_TREE);
9365 if (fn)
9366 new_friend = fn;
9370 return new_friend;
9373 /* FRIEND_TMPL is a friend TEMPLATE_DECL. ARGS is the vector of
9374 template arguments, as for tsubst.
9376 Returns an appropriate tsubst'd friend type or error_mark_node on
9377 failure. */
9379 static tree
9380 tsubst_friend_class (tree friend_tmpl, tree args)
9382 tree friend_type;
9383 tree tmpl;
9384 tree context;
9386 if (DECL_TEMPLATE_TEMPLATE_PARM_P (friend_tmpl))
9388 tree t = tsubst (TREE_TYPE (friend_tmpl), args, tf_none, NULL_TREE);
9389 return TREE_TYPE (t);
9392 context = CP_DECL_CONTEXT (friend_tmpl);
9394 if (context != global_namespace)
9396 if (TREE_CODE (context) == NAMESPACE_DECL)
9397 push_nested_namespace (context);
9398 else
9399 push_nested_class (tsubst (context, args, tf_none, NULL_TREE));
9402 /* Look for a class template declaration. We look for hidden names
9403 because two friend declarations of the same template are the
9404 same. For example, in:
9406 struct A {
9407 template <typename> friend class F;
9409 template <typename> struct B {
9410 template <typename> friend class F;
9413 both F templates are the same. */
9414 tmpl = lookup_name_real (DECL_NAME (friend_tmpl), 0, 0,
9415 /*block_p=*/true, 0, LOOKUP_HIDDEN);
9417 /* But, if we don't find one, it might be because we're in a
9418 situation like this:
9420 template <class T>
9421 struct S {
9422 template <class U>
9423 friend struct S;
9426 Here, in the scope of (say) S<int>, `S' is bound to a TYPE_DECL
9427 for `S<int>', not the TEMPLATE_DECL. */
9428 if (!tmpl || !DECL_CLASS_TEMPLATE_P (tmpl))
9430 tmpl = lookup_name_prefer_type (DECL_NAME (friend_tmpl), 1);
9431 tmpl = maybe_get_template_decl_from_type_decl (tmpl);
9434 if (tmpl && DECL_CLASS_TEMPLATE_P (tmpl))
9436 /* The friend template has already been declared. Just
9437 check to see that the declarations match, and install any new
9438 default parameters. We must tsubst the default parameters,
9439 of course. We only need the innermost template parameters
9440 because that is all that redeclare_class_template will look
9441 at. */
9442 if (TMPL_PARMS_DEPTH (DECL_TEMPLATE_PARMS (friend_tmpl))
9443 > TMPL_ARGS_DEPTH (args))
9445 tree parms;
9446 location_t saved_input_location;
9447 parms = tsubst_template_parms (DECL_TEMPLATE_PARMS (friend_tmpl),
9448 args, tf_warning_or_error);
9450 saved_input_location = input_location;
9451 input_location = DECL_SOURCE_LOCATION (friend_tmpl);
9452 tree cons = get_constraints (tmpl);
9453 redeclare_class_template (TREE_TYPE (tmpl), parms, cons);
9454 input_location = saved_input_location;
9458 friend_type = TREE_TYPE (tmpl);
9460 else
9462 /* The friend template has not already been declared. In this
9463 case, the instantiation of the template class will cause the
9464 injection of this template into the global scope. */
9465 tmpl = tsubst (friend_tmpl, args, tf_warning_or_error, NULL_TREE);
9466 if (tmpl == error_mark_node)
9467 return error_mark_node;
9469 /* The new TMPL is not an instantiation of anything, so we
9470 forget its origins. We don't reset CLASSTYPE_TI_TEMPLATE for
9471 the new type because that is supposed to be the corresponding
9472 template decl, i.e., TMPL. */
9473 DECL_USE_TEMPLATE (tmpl) = 0;
9474 DECL_TEMPLATE_INFO (tmpl) = NULL_TREE;
9475 CLASSTYPE_USE_TEMPLATE (TREE_TYPE (tmpl)) = 0;
9476 CLASSTYPE_TI_ARGS (TREE_TYPE (tmpl))
9477 = INNERMOST_TEMPLATE_ARGS (CLASSTYPE_TI_ARGS (TREE_TYPE (tmpl)));
9479 /* Inject this template into the global scope. */
9480 friend_type = TREE_TYPE (pushdecl_top_level_maybe_friend (tmpl, true));
9483 if (context != global_namespace)
9485 if (TREE_CODE (context) == NAMESPACE_DECL)
9486 pop_nested_namespace (context);
9487 else
9488 pop_nested_class ();
9491 return friend_type;
9494 /* Returns zero if TYPE cannot be completed later due to circularity.
9495 Otherwise returns one. */
9497 static int
9498 can_complete_type_without_circularity (tree type)
9500 if (type == NULL_TREE || type == error_mark_node)
9501 return 0;
9502 else if (COMPLETE_TYPE_P (type))
9503 return 1;
9504 else if (TREE_CODE (type) == ARRAY_TYPE && TYPE_DOMAIN (type))
9505 return can_complete_type_without_circularity (TREE_TYPE (type));
9506 else if (CLASS_TYPE_P (type)
9507 && TYPE_BEING_DEFINED (TYPE_MAIN_VARIANT (type)))
9508 return 0;
9509 else
9510 return 1;
9513 static tree tsubst_omp_clauses (tree, bool, tree, tsubst_flags_t, tree);
9515 /* Apply any attributes which had to be deferred until instantiation
9516 time. DECL_P, ATTRIBUTES and ATTR_FLAGS are as cplus_decl_attributes;
9517 ARGS, COMPLAIN, IN_DECL are as tsubst. */
9519 static void
9520 apply_late_template_attributes (tree *decl_p, tree attributes, int attr_flags,
9521 tree args, tsubst_flags_t complain, tree in_decl)
9523 tree last_dep = NULL_TREE;
9524 tree t;
9525 tree *p;
9527 for (t = attributes; t; t = TREE_CHAIN (t))
9528 if (ATTR_IS_DEPENDENT (t))
9530 last_dep = t;
9531 attributes = copy_list (attributes);
9532 break;
9535 if (DECL_P (*decl_p))
9537 if (TREE_TYPE (*decl_p) == error_mark_node)
9538 return;
9539 p = &DECL_ATTRIBUTES (*decl_p);
9541 else
9542 p = &TYPE_ATTRIBUTES (*decl_p);
9544 if (last_dep)
9546 tree late_attrs = NULL_TREE;
9547 tree *q = &late_attrs;
9549 for (*p = attributes; *p; )
9551 t = *p;
9552 if (ATTR_IS_DEPENDENT (t))
9554 *p = TREE_CHAIN (t);
9555 TREE_CHAIN (t) = NULL_TREE;
9556 if ((flag_openmp || flag_openmp_simd || flag_cilkplus)
9557 && is_attribute_p ("omp declare simd",
9558 get_attribute_name (t))
9559 && TREE_VALUE (t))
9561 tree clauses = TREE_VALUE (TREE_VALUE (t));
9562 clauses = tsubst_omp_clauses (clauses, true, args,
9563 complain, in_decl);
9564 c_omp_declare_simd_clauses_to_decls (*decl_p, clauses);
9565 clauses = finish_omp_clauses (clauses);
9566 tree parms = DECL_ARGUMENTS (*decl_p);
9567 clauses
9568 = c_omp_declare_simd_clauses_to_numbers (parms, clauses);
9569 if (clauses)
9570 TREE_VALUE (TREE_VALUE (t)) = clauses;
9571 else
9572 TREE_VALUE (t) = NULL_TREE;
9574 /* If the first attribute argument is an identifier, don't
9575 pass it through tsubst. Attributes like mode, format,
9576 cleanup and several target specific attributes expect it
9577 unmodified. */
9578 else if (attribute_takes_identifier_p (get_attribute_name (t))
9579 && TREE_VALUE (t))
9581 tree chain
9582 = tsubst_expr (TREE_CHAIN (TREE_VALUE (t)), args, complain,
9583 in_decl,
9584 /*integral_constant_expression_p=*/false);
9585 if (chain != TREE_CHAIN (TREE_VALUE (t)))
9586 TREE_VALUE (t)
9587 = tree_cons (NULL_TREE, TREE_VALUE (TREE_VALUE (t)),
9588 chain);
9590 else if (TREE_VALUE (t) && PACK_EXPANSION_P (TREE_VALUE (t)))
9592 /* An attribute pack expansion. */
9593 tree purp = TREE_PURPOSE (t);
9594 tree pack = (tsubst_pack_expansion
9595 (TREE_VALUE (t), args, complain, in_decl));
9596 int len = TREE_VEC_LENGTH (pack);
9597 for (int i = 0; i < len; ++i)
9599 tree elt = TREE_VEC_ELT (pack, i);
9600 *q = build_tree_list (purp, elt);
9601 q = &TREE_CHAIN (*q);
9603 continue;
9605 else
9606 TREE_VALUE (t)
9607 = tsubst_expr (TREE_VALUE (t), args, complain, in_decl,
9608 /*integral_constant_expression_p=*/false);
9609 *q = t;
9610 q = &TREE_CHAIN (t);
9612 else
9613 p = &TREE_CHAIN (t);
9616 cplus_decl_attributes (decl_p, late_attrs, attr_flags);
9620 /* Perform (or defer) access check for typedefs that were referenced
9621 from within the template TMPL code.
9622 This is a subroutine of instantiate_decl and instantiate_class_template.
9623 TMPL is the template to consider and TARGS is the list of arguments of
9624 that template. */
9626 static void
9627 perform_typedefs_access_check (tree tmpl, tree targs)
9629 location_t saved_location;
9630 unsigned i;
9631 qualified_typedef_usage_t *iter;
9633 if (!tmpl
9634 || (!CLASS_TYPE_P (tmpl)
9635 && TREE_CODE (tmpl) != FUNCTION_DECL))
9636 return;
9638 saved_location = input_location;
9639 FOR_EACH_VEC_SAFE_ELT (get_types_needing_access_check (tmpl), i, iter)
9641 tree type_decl = iter->typedef_decl;
9642 tree type_scope = iter->context;
9644 if (!type_decl || !type_scope || !CLASS_TYPE_P (type_scope))
9645 continue;
9647 if (uses_template_parms (type_decl))
9648 type_decl = tsubst (type_decl, targs, tf_error, NULL_TREE);
9649 if (uses_template_parms (type_scope))
9650 type_scope = tsubst (type_scope, targs, tf_error, NULL_TREE);
9652 /* Make access check error messages point to the location
9653 of the use of the typedef. */
9654 input_location = iter->locus;
9655 perform_or_defer_access_check (TYPE_BINFO (type_scope),
9656 type_decl, type_decl,
9657 tf_warning_or_error);
9659 input_location = saved_location;
9662 static tree
9663 instantiate_class_template_1 (tree type)
9665 tree templ, args, pattern, t, member;
9666 tree typedecl;
9667 tree pbinfo;
9668 tree base_list;
9669 unsigned int saved_maximum_field_alignment;
9670 tree fn_context;
9672 if (type == error_mark_node)
9673 return error_mark_node;
9675 if (COMPLETE_OR_OPEN_TYPE_P (type)
9676 || uses_template_parms (type))
9677 return type;
9679 /* Figure out which template is being instantiated. */
9680 templ = most_general_template (CLASSTYPE_TI_TEMPLATE (type));
9681 gcc_assert (TREE_CODE (templ) == TEMPLATE_DECL);
9683 /* Determine what specialization of the original template to
9684 instantiate. */
9685 t = most_specialized_partial_spec (type, tf_warning_or_error);
9686 if (t == error_mark_node)
9688 TYPE_BEING_DEFINED (type) = 1;
9689 return error_mark_node;
9691 else if (t)
9693 /* This TYPE is actually an instantiation of a partial
9694 specialization. We replace the innermost set of ARGS with
9695 the arguments appropriate for substitution. For example,
9696 given:
9698 template <class T> struct S {};
9699 template <class T> struct S<T*> {};
9701 and supposing that we are instantiating S<int*>, ARGS will
9702 presently be {int*} -- but we need {int}. */
9703 pattern = TREE_TYPE (t);
9704 args = TREE_PURPOSE (t);
9706 else
9708 pattern = TREE_TYPE (templ);
9709 args = CLASSTYPE_TI_ARGS (type);
9712 /* If the template we're instantiating is incomplete, then clearly
9713 there's nothing we can do. */
9714 if (!COMPLETE_TYPE_P (pattern))
9715 return type;
9717 /* If we've recursively instantiated too many templates, stop. */
9718 if (! push_tinst_level (type))
9719 return type;
9721 /* Now we're really doing the instantiation. Mark the type as in
9722 the process of being defined. */
9723 TYPE_BEING_DEFINED (type) = 1;
9725 /* We may be in the middle of deferred access check. Disable
9726 it now. */
9727 push_deferring_access_checks (dk_no_deferred);
9729 int saved_unevaluated_operand = cp_unevaluated_operand;
9730 int saved_inhibit_evaluation_warnings = c_inhibit_evaluation_warnings;
9732 fn_context = decl_function_context (TYPE_MAIN_DECL (type));
9733 /* Also avoid push_to_top_level for a lambda in an NSDMI. */
9734 if (!fn_context && LAMBDA_TYPE_P (type) && TYPE_CLASS_SCOPE_P (type))
9735 fn_context = error_mark_node;
9736 if (!fn_context)
9737 push_to_top_level ();
9738 else
9740 cp_unevaluated_operand = 0;
9741 c_inhibit_evaluation_warnings = 0;
9743 /* Use #pragma pack from the template context. */
9744 saved_maximum_field_alignment = maximum_field_alignment;
9745 maximum_field_alignment = TYPE_PRECISION (pattern);
9747 SET_CLASSTYPE_INTERFACE_UNKNOWN (type);
9749 /* Set the input location to the most specialized template definition.
9750 This is needed if tsubsting causes an error. */
9751 typedecl = TYPE_MAIN_DECL (pattern);
9752 input_location = DECL_SOURCE_LOCATION (TYPE_NAME (type)) =
9753 DECL_SOURCE_LOCATION (typedecl);
9755 TYPE_PACKED (type) = TYPE_PACKED (pattern);
9756 TYPE_ALIGN (type) = TYPE_ALIGN (pattern);
9757 TYPE_USER_ALIGN (type) = TYPE_USER_ALIGN (pattern);
9758 TYPE_FOR_JAVA (type) = TYPE_FOR_JAVA (pattern); /* For libjava's JArray<T> */
9759 if (ANON_AGGR_TYPE_P (pattern))
9760 SET_ANON_AGGR_TYPE_P (type);
9761 if (CLASSTYPE_VISIBILITY_SPECIFIED (pattern))
9763 CLASSTYPE_VISIBILITY_SPECIFIED (type) = 1;
9764 CLASSTYPE_VISIBILITY (type) = CLASSTYPE_VISIBILITY (pattern);
9765 /* Adjust visibility for template arguments. */
9766 determine_visibility (TYPE_MAIN_DECL (type));
9768 if (CLASS_TYPE_P (type))
9769 CLASSTYPE_FINAL (type) = CLASSTYPE_FINAL (pattern);
9771 pbinfo = TYPE_BINFO (pattern);
9773 /* We should never instantiate a nested class before its enclosing
9774 class; we need to look up the nested class by name before we can
9775 instantiate it, and that lookup should instantiate the enclosing
9776 class. */
9777 gcc_assert (!DECL_CLASS_SCOPE_P (TYPE_MAIN_DECL (pattern))
9778 || COMPLETE_OR_OPEN_TYPE_P (TYPE_CONTEXT (type)));
9780 base_list = NULL_TREE;
9781 if (BINFO_N_BASE_BINFOS (pbinfo))
9783 tree pbase_binfo;
9784 tree pushed_scope;
9785 int i;
9787 /* We must enter the scope containing the type, as that is where
9788 the accessibility of types named in dependent bases are
9789 looked up from. */
9790 pushed_scope = push_scope (CP_TYPE_CONTEXT (type));
9792 /* Substitute into each of the bases to determine the actual
9793 basetypes. */
9794 for (i = 0; BINFO_BASE_ITERATE (pbinfo, i, pbase_binfo); i++)
9796 tree base;
9797 tree access = BINFO_BASE_ACCESS (pbinfo, i);
9798 tree expanded_bases = NULL_TREE;
9799 int idx, len = 1;
9801 if (PACK_EXPANSION_P (BINFO_TYPE (pbase_binfo)))
9803 expanded_bases =
9804 tsubst_pack_expansion (BINFO_TYPE (pbase_binfo),
9805 args, tf_error, NULL_TREE);
9806 if (expanded_bases == error_mark_node)
9807 continue;
9809 len = TREE_VEC_LENGTH (expanded_bases);
9812 for (idx = 0; idx < len; idx++)
9814 if (expanded_bases)
9815 /* Extract the already-expanded base class. */
9816 base = TREE_VEC_ELT (expanded_bases, idx);
9817 else
9818 /* Substitute to figure out the base class. */
9819 base = tsubst (BINFO_TYPE (pbase_binfo), args, tf_error,
9820 NULL_TREE);
9822 if (base == error_mark_node)
9823 continue;
9825 base_list = tree_cons (access, base, base_list);
9826 if (BINFO_VIRTUAL_P (pbase_binfo))
9827 TREE_TYPE (base_list) = integer_type_node;
9831 /* The list is now in reverse order; correct that. */
9832 base_list = nreverse (base_list);
9834 if (pushed_scope)
9835 pop_scope (pushed_scope);
9837 /* Now call xref_basetypes to set up all the base-class
9838 information. */
9839 xref_basetypes (type, base_list);
9841 apply_late_template_attributes (&type, TYPE_ATTRIBUTES (pattern),
9842 (int) ATTR_FLAG_TYPE_IN_PLACE,
9843 args, tf_error, NULL_TREE);
9844 fixup_attribute_variants (type);
9846 /* Now that our base classes are set up, enter the scope of the
9847 class, so that name lookups into base classes, etc. will work
9848 correctly. This is precisely analogous to what we do in
9849 begin_class_definition when defining an ordinary non-template
9850 class, except we also need to push the enclosing classes. */
9851 push_nested_class (type);
9853 /* Now members are processed in the order of declaration. */
9854 for (member = CLASSTYPE_DECL_LIST (pattern);
9855 member; member = TREE_CHAIN (member))
9857 tree t = TREE_VALUE (member);
9859 if (TREE_PURPOSE (member))
9861 if (TYPE_P (t))
9863 /* Build new CLASSTYPE_NESTED_UTDS. */
9865 tree newtag;
9866 bool class_template_p;
9868 class_template_p = (TREE_CODE (t) != ENUMERAL_TYPE
9869 && TYPE_LANG_SPECIFIC (t)
9870 && CLASSTYPE_IS_TEMPLATE (t));
9871 /* If the member is a class template, then -- even after
9872 substitution -- there may be dependent types in the
9873 template argument list for the class. We increment
9874 PROCESSING_TEMPLATE_DECL so that dependent_type_p, as
9875 that function will assume that no types are dependent
9876 when outside of a template. */
9877 if (class_template_p)
9878 ++processing_template_decl;
9879 newtag = tsubst (t, args, tf_error, NULL_TREE);
9880 if (class_template_p)
9881 --processing_template_decl;
9882 if (newtag == error_mark_node)
9883 continue;
9885 if (TREE_CODE (newtag) != ENUMERAL_TYPE)
9887 tree name = TYPE_IDENTIFIER (t);
9889 if (class_template_p)
9890 /* Unfortunately, lookup_template_class sets
9891 CLASSTYPE_IMPLICIT_INSTANTIATION for a partial
9892 instantiation (i.e., for the type of a member
9893 template class nested within a template class.)
9894 This behavior is required for
9895 maybe_process_partial_specialization to work
9896 correctly, but is not accurate in this case;
9897 the TAG is not an instantiation of anything.
9898 (The corresponding TEMPLATE_DECL is an
9899 instantiation, but the TYPE is not.) */
9900 CLASSTYPE_USE_TEMPLATE (newtag) = 0;
9902 /* Now, we call pushtag to put this NEWTAG into the scope of
9903 TYPE. We first set up the IDENTIFIER_TYPE_VALUE to avoid
9904 pushtag calling push_template_decl. We don't have to do
9905 this for enums because it will already have been done in
9906 tsubst_enum. */
9907 if (name)
9908 SET_IDENTIFIER_TYPE_VALUE (name, newtag);
9909 pushtag (name, newtag, /*tag_scope=*/ts_current);
9912 else if (DECL_DECLARES_FUNCTION_P (t))
9914 /* Build new TYPE_METHODS. */
9915 tree r;
9917 if (TREE_CODE (t) == TEMPLATE_DECL)
9918 ++processing_template_decl;
9919 r = tsubst (t, args, tf_error, NULL_TREE);
9920 if (TREE_CODE (t) == TEMPLATE_DECL)
9921 --processing_template_decl;
9922 set_current_access_from_decl (r);
9923 finish_member_declaration (r);
9924 /* Instantiate members marked with attribute used. */
9925 if (r != error_mark_node && DECL_PRESERVE_P (r))
9926 mark_used (r);
9927 if (TREE_CODE (r) == FUNCTION_DECL
9928 && DECL_OMP_DECLARE_REDUCTION_P (r))
9929 cp_check_omp_declare_reduction (r);
9931 else if (DECL_CLASS_TEMPLATE_P (t)
9932 && LAMBDA_TYPE_P (TREE_TYPE (t)))
9933 /* A closure type for a lambda in a default argument for a
9934 member template. Ignore it; it will be instantiated with
9935 the default argument. */;
9936 else
9938 /* Build new TYPE_FIELDS. */
9939 if (TREE_CODE (t) == STATIC_ASSERT)
9941 tree condition;
9943 ++c_inhibit_evaluation_warnings;
9944 condition =
9945 tsubst_expr (STATIC_ASSERT_CONDITION (t), args,
9946 tf_warning_or_error, NULL_TREE,
9947 /*integral_constant_expression_p=*/true);
9948 --c_inhibit_evaluation_warnings;
9950 finish_static_assert (condition,
9951 STATIC_ASSERT_MESSAGE (t),
9952 STATIC_ASSERT_SOURCE_LOCATION (t),
9953 /*member_p=*/true);
9955 else if (TREE_CODE (t) != CONST_DECL)
9957 tree r;
9958 tree vec = NULL_TREE;
9959 int len = 1;
9961 /* The file and line for this declaration, to
9962 assist in error message reporting. Since we
9963 called push_tinst_level above, we don't need to
9964 restore these. */
9965 input_location = DECL_SOURCE_LOCATION (t);
9967 if (TREE_CODE (t) == TEMPLATE_DECL)
9968 ++processing_template_decl;
9969 r = tsubst (t, args, tf_warning_or_error, NULL_TREE);
9970 if (TREE_CODE (t) == TEMPLATE_DECL)
9971 --processing_template_decl;
9973 if (TREE_CODE (r) == TREE_VEC)
9975 /* A capture pack became multiple fields. */
9976 vec = r;
9977 len = TREE_VEC_LENGTH (vec);
9980 for (int i = 0; i < len; ++i)
9982 if (vec)
9983 r = TREE_VEC_ELT (vec, i);
9984 if (VAR_P (r))
9986 /* In [temp.inst]:
9988 [t]he initialization (and any associated
9989 side-effects) of a static data member does
9990 not occur unless the static data member is
9991 itself used in a way that requires the
9992 definition of the static data member to
9993 exist.
9995 Therefore, we do not substitute into the
9996 initialized for the static data member here. */
9997 finish_static_data_member_decl
9999 /*init=*/NULL_TREE,
10000 /*init_const_expr_p=*/false,
10001 /*asmspec_tree=*/NULL_TREE,
10002 /*flags=*/0);
10003 /* Instantiate members marked with attribute used. */
10004 if (r != error_mark_node && DECL_PRESERVE_P (r))
10005 mark_used (r);
10007 else if (TREE_CODE (r) == FIELD_DECL)
10009 /* Determine whether R has a valid type and can be
10010 completed later. If R is invalid, then its type
10011 is replaced by error_mark_node. */
10012 tree rtype = TREE_TYPE (r);
10013 if (can_complete_type_without_circularity (rtype))
10014 complete_type (rtype);
10016 if (!COMPLETE_TYPE_P (rtype))
10018 cxx_incomplete_type_error (r, rtype);
10019 TREE_TYPE (r) = error_mark_node;
10023 /* If it is a TYPE_DECL for a class-scoped ENUMERAL_TYPE,
10024 such a thing will already have been added to the field
10025 list by tsubst_enum in finish_member_declaration in the
10026 CLASSTYPE_NESTED_UTDS case above. */
10027 if (!(TREE_CODE (r) == TYPE_DECL
10028 && TREE_CODE (TREE_TYPE (r)) == ENUMERAL_TYPE
10029 && DECL_ARTIFICIAL (r)))
10031 set_current_access_from_decl (r);
10032 finish_member_declaration (r);
10038 else
10040 if (TYPE_P (t) || DECL_CLASS_TEMPLATE_P (t)
10041 || DECL_TEMPLATE_TEMPLATE_PARM_P (t))
10043 /* Build new CLASSTYPE_FRIEND_CLASSES. */
10045 tree friend_type = t;
10046 bool adjust_processing_template_decl = false;
10048 if (TREE_CODE (friend_type) == TEMPLATE_DECL)
10050 /* template <class T> friend class C; */
10051 friend_type = tsubst_friend_class (friend_type, args);
10052 adjust_processing_template_decl = true;
10054 else if (TREE_CODE (friend_type) == UNBOUND_CLASS_TEMPLATE)
10056 /* template <class T> friend class C::D; */
10057 friend_type = tsubst (friend_type, args,
10058 tf_warning_or_error, NULL_TREE);
10059 if (TREE_CODE (friend_type) == TEMPLATE_DECL)
10060 friend_type = TREE_TYPE (friend_type);
10061 adjust_processing_template_decl = true;
10063 else if (TREE_CODE (friend_type) == TYPENAME_TYPE
10064 || TREE_CODE (friend_type) == TEMPLATE_TYPE_PARM)
10066 /* This could be either
10068 friend class T::C;
10070 when dependent_type_p is false or
10072 template <class U> friend class T::C;
10074 otherwise. */
10075 friend_type = tsubst (friend_type, args,
10076 tf_warning_or_error, NULL_TREE);
10077 /* Bump processing_template_decl for correct
10078 dependent_type_p calculation. */
10079 ++processing_template_decl;
10080 if (dependent_type_p (friend_type))
10081 adjust_processing_template_decl = true;
10082 --processing_template_decl;
10084 else if (!CLASSTYPE_USE_TEMPLATE (friend_type)
10085 && hidden_name_p (TYPE_NAME (friend_type)))
10087 /* friend class C;
10089 where C hasn't been declared yet. Let's lookup name
10090 from namespace scope directly, bypassing any name that
10091 come from dependent base class. */
10092 tree ns = decl_namespace_context (TYPE_MAIN_DECL (friend_type));
10094 /* The call to xref_tag_from_type does injection for friend
10095 classes. */
10096 push_nested_namespace (ns);
10097 friend_type =
10098 xref_tag_from_type (friend_type, NULL_TREE,
10099 /*tag_scope=*/ts_current);
10100 pop_nested_namespace (ns);
10102 else if (uses_template_parms (friend_type))
10103 /* friend class C<T>; */
10104 friend_type = tsubst (friend_type, args,
10105 tf_warning_or_error, NULL_TREE);
10106 /* Otherwise it's
10108 friend class C;
10110 where C is already declared or
10112 friend class C<int>;
10114 We don't have to do anything in these cases. */
10116 if (adjust_processing_template_decl)
10117 /* Trick make_friend_class into realizing that the friend
10118 we're adding is a template, not an ordinary class. It's
10119 important that we use make_friend_class since it will
10120 perform some error-checking and output cross-reference
10121 information. */
10122 ++processing_template_decl;
10124 if (friend_type != error_mark_node)
10125 make_friend_class (type, friend_type, /*complain=*/false);
10127 if (adjust_processing_template_decl)
10128 --processing_template_decl;
10130 else
10132 /* Build new DECL_FRIENDLIST. */
10133 tree r;
10135 /* The file and line for this declaration, to
10136 assist in error message reporting. Since we
10137 called push_tinst_level above, we don't need to
10138 restore these. */
10139 input_location = DECL_SOURCE_LOCATION (t);
10141 if (TREE_CODE (t) == TEMPLATE_DECL)
10143 ++processing_template_decl;
10144 push_deferring_access_checks (dk_no_check);
10147 r = tsubst_friend_function (t, args);
10148 add_friend (type, r, /*complain=*/false);
10149 if (TREE_CODE (t) == TEMPLATE_DECL)
10151 pop_deferring_access_checks ();
10152 --processing_template_decl;
10158 if (fn_context)
10160 /* Restore these before substituting into the lambda capture
10161 initializers. */
10162 cp_unevaluated_operand = saved_unevaluated_operand;
10163 c_inhibit_evaluation_warnings = saved_inhibit_evaluation_warnings;
10166 if (tree expr = CLASSTYPE_LAMBDA_EXPR (type))
10168 tree decl = lambda_function (type);
10169 if (decl)
10171 if (!DECL_TEMPLATE_INFO (decl)
10172 || DECL_TEMPLATE_RESULT (DECL_TI_TEMPLATE (decl)) != decl)
10173 instantiate_decl (decl, false, false);
10175 /* We need to instantiate the capture list from the template
10176 after we've instantiated the closure members, but before we
10177 consider adding the conversion op. Also keep any captures
10178 that may have been added during instantiation of the op(). */
10179 tree tmpl_expr = CLASSTYPE_LAMBDA_EXPR (pattern);
10180 tree tmpl_cap
10181 = tsubst_copy_and_build (LAMBDA_EXPR_CAPTURE_LIST (tmpl_expr),
10182 args, tf_warning_or_error, NULL_TREE,
10183 false, false);
10185 LAMBDA_EXPR_CAPTURE_LIST (expr)
10186 = chainon (tmpl_cap, nreverse (LAMBDA_EXPR_CAPTURE_LIST (expr)));
10188 maybe_add_lambda_conv_op (type);
10190 else
10191 gcc_assert (errorcount);
10194 /* Set the file and line number information to whatever is given for
10195 the class itself. This puts error messages involving generated
10196 implicit functions at a predictable point, and the same point
10197 that would be used for non-template classes. */
10198 input_location = DECL_SOURCE_LOCATION (typedecl);
10200 unreverse_member_declarations (type);
10201 finish_struct_1 (type);
10202 TYPE_BEING_DEFINED (type) = 0;
10204 /* We don't instantiate default arguments for member functions. 14.7.1:
10206 The implicit instantiation of a class template specialization causes
10207 the implicit instantiation of the declarations, but not of the
10208 definitions or default arguments, of the class member functions,
10209 member classes, static data members and member templates.... */
10211 /* Some typedefs referenced from within the template code need to be access
10212 checked at template instantiation time, i.e now. These types were
10213 added to the template at parsing time. Let's get those and perform
10214 the access checks then. */
10215 perform_typedefs_access_check (pattern, args);
10216 perform_deferred_access_checks (tf_warning_or_error);
10217 pop_nested_class ();
10218 maximum_field_alignment = saved_maximum_field_alignment;
10219 if (!fn_context)
10220 pop_from_top_level ();
10221 pop_deferring_access_checks ();
10222 pop_tinst_level ();
10224 /* The vtable for a template class can be emitted in any translation
10225 unit in which the class is instantiated. When there is no key
10226 method, however, finish_struct_1 will already have added TYPE to
10227 the keyed_classes list. */
10228 if (TYPE_CONTAINS_VPTR_P (type) && CLASSTYPE_KEY_METHOD (type))
10229 keyed_classes = tree_cons (NULL_TREE, type, keyed_classes);
10231 return type;
10234 /* Wrapper for instantiate_class_template_1. */
10236 tree
10237 instantiate_class_template (tree type)
10239 tree ret;
10240 timevar_push (TV_TEMPLATE_INST);
10241 ret = instantiate_class_template_1 (type);
10242 timevar_pop (TV_TEMPLATE_INST);
10243 return ret;
10246 static tree
10247 tsubst_template_arg (tree t, tree args, tsubst_flags_t complain, tree in_decl)
10249 tree r;
10251 if (!t)
10252 r = t;
10253 else if (TYPE_P (t))
10254 r = tsubst (t, args, complain, in_decl);
10255 else
10257 if (!(complain & tf_warning))
10258 ++c_inhibit_evaluation_warnings;
10259 r = tsubst_expr (t, args, complain, in_decl,
10260 /*integral_constant_expression_p=*/true);
10261 if (!(complain & tf_warning))
10262 --c_inhibit_evaluation_warnings;
10264 return r;
10267 /* Given a function parameter pack TMPL_PARM and some function parameters
10268 instantiated from it at *SPEC_P, return a NONTYPE_ARGUMENT_PACK of them
10269 and set *SPEC_P to point at the next point in the list. */
10271 tree
10272 extract_fnparm_pack (tree tmpl_parm, tree *spec_p)
10274 /* Collect all of the extra "packed" parameters into an
10275 argument pack. */
10276 tree parmvec;
10277 tree parmtypevec;
10278 tree argpack = make_node (NONTYPE_ARGUMENT_PACK);
10279 tree argtypepack = cxx_make_type (TYPE_ARGUMENT_PACK);
10280 tree spec_parm = *spec_p;
10281 int i, len;
10283 for (len = 0; spec_parm; ++len, spec_parm = TREE_CHAIN (spec_parm))
10284 if (tmpl_parm
10285 && !function_parameter_expanded_from_pack_p (spec_parm, tmpl_parm))
10286 break;
10288 /* Fill in PARMVEC and PARMTYPEVEC with all of the parameters. */
10289 parmvec = make_tree_vec (len);
10290 parmtypevec = make_tree_vec (len);
10291 spec_parm = *spec_p;
10292 for (i = 0; i < len; i++, spec_parm = DECL_CHAIN (spec_parm))
10294 TREE_VEC_ELT (parmvec, i) = spec_parm;
10295 TREE_VEC_ELT (parmtypevec, i) = TREE_TYPE (spec_parm);
10298 /* Build the argument packs. */
10299 SET_ARGUMENT_PACK_ARGS (argpack, parmvec);
10300 SET_ARGUMENT_PACK_ARGS (argtypepack, parmtypevec);
10301 TREE_TYPE (argpack) = argtypepack;
10302 *spec_p = spec_parm;
10304 return argpack;
10307 /* Give a chain SPEC_PARM of PARM_DECLs, pack them into a
10308 NONTYPE_ARGUMENT_PACK. */
10310 static tree
10311 make_fnparm_pack (tree spec_parm)
10313 return extract_fnparm_pack (NULL_TREE, &spec_parm);
10316 /* Return 1 if the Ith element of the argument pack ARG_PACK is a
10317 pack expansion with no extra args, 2 if it has extra args, or 0
10318 if it is not a pack expansion. */
10320 static int
10321 argument_pack_element_is_expansion_p (tree arg_pack, int i)
10323 tree vec = ARGUMENT_PACK_ARGS (arg_pack);
10324 if (i >= TREE_VEC_LENGTH (vec))
10325 return 0;
10326 tree elt = TREE_VEC_ELT (vec, i);
10327 if (DECL_P (elt))
10328 /* A decl pack is itself an expansion. */
10329 elt = TREE_TYPE (elt);
10330 if (!PACK_EXPANSION_P (elt))
10331 return 0;
10332 if (PACK_EXPANSION_EXTRA_ARGS (elt))
10333 return 2;
10334 return 1;
10338 /* Creates and return an ARGUMENT_PACK_SELECT tree node. */
10340 static tree
10341 make_argument_pack_select (tree arg_pack, unsigned index)
10343 tree aps = make_node (ARGUMENT_PACK_SELECT);
10345 ARGUMENT_PACK_SELECT_FROM_PACK (aps) = arg_pack;
10346 ARGUMENT_PACK_SELECT_INDEX (aps) = index;
10348 return aps;
10351 /* This is a subroutine of tsubst_pack_expansion.
10353 It returns TRUE if we need to use the PACK_EXPANSION_EXTRA_ARGS
10354 mechanism to store the (non complete list of) arguments of the
10355 substitution and return a non substituted pack expansion, in order
10356 to wait for when we have enough arguments to really perform the
10357 substitution. */
10359 static bool
10360 use_pack_expansion_extra_args_p (tree parm_packs,
10361 int arg_pack_len,
10362 bool has_empty_arg)
10364 /* If one pack has an expansion and another pack has a normal
10365 argument or if one pack has an empty argument and an another
10366 one hasn't then tsubst_pack_expansion cannot perform the
10367 substitution and need to fall back on the
10368 PACK_EXPANSION_EXTRA mechanism. */
10369 if (parm_packs == NULL_TREE)
10370 return false;
10371 else if (has_empty_arg)
10372 return true;
10374 bool has_expansion_arg = false;
10375 for (int i = 0 ; i < arg_pack_len; ++i)
10377 bool has_non_expansion_arg = false;
10378 for (tree parm_pack = parm_packs;
10379 parm_pack;
10380 parm_pack = TREE_CHAIN (parm_pack))
10382 tree arg = TREE_VALUE (parm_pack);
10384 int exp = argument_pack_element_is_expansion_p (arg, i);
10385 if (exp == 2)
10386 /* We can't substitute a pack expansion with extra args into
10387 our pattern. */
10388 return true;
10389 else if (exp)
10390 has_expansion_arg = true;
10391 else
10392 has_non_expansion_arg = true;
10395 if (has_expansion_arg && has_non_expansion_arg)
10396 return true;
10398 return false;
10401 /* [temp.variadic]/6 says that:
10403 The instantiation of a pack expansion [...]
10404 produces a list E1,E2, ..., En, where N is the number of elements
10405 in the pack expansion parameters.
10407 This subroutine of tsubst_pack_expansion produces one of these Ei.
10409 PATTERN is the pattern of the pack expansion. PARM_PACKS is a
10410 TREE_LIST in which each TREE_PURPOSE is a parameter pack of
10411 PATTERN, and each TREE_VALUE is its corresponding argument pack.
10412 INDEX is the index 'i' of the element Ei to produce. ARGS,
10413 COMPLAIN, and IN_DECL are the same parameters as for the
10414 tsubst_pack_expansion function.
10416 The function returns the resulting Ei upon successful completion,
10417 or error_mark_node.
10419 Note that this function possibly modifies the ARGS parameter, so
10420 it's the responsibility of the caller to restore it. */
10422 static tree
10423 gen_elem_of_pack_expansion_instantiation (tree pattern,
10424 tree parm_packs,
10425 unsigned index,
10426 tree args /* This parm gets
10427 modified. */,
10428 tsubst_flags_t complain,
10429 tree in_decl)
10431 tree t;
10432 bool ith_elem_is_expansion = false;
10434 /* For each parameter pack, change the substitution of the parameter
10435 pack to the ith argument in its argument pack, then expand the
10436 pattern. */
10437 for (tree pack = parm_packs; pack; pack = TREE_CHAIN (pack))
10439 tree parm = TREE_PURPOSE (pack);
10440 tree arg_pack = TREE_VALUE (pack);
10441 tree aps; /* instance of ARGUMENT_PACK_SELECT. */
10443 ith_elem_is_expansion |=
10444 argument_pack_element_is_expansion_p (arg_pack, index);
10446 /* Select the Ith argument from the pack. */
10447 if (TREE_CODE (parm) == PARM_DECL
10448 || TREE_CODE (parm) == FIELD_DECL)
10450 if (index == 0)
10452 aps = make_argument_pack_select (arg_pack, index);
10453 if (!mark_used (parm, complain) && !(complain & tf_error))
10454 return error_mark_node;
10455 register_local_specialization (aps, parm);
10457 else
10458 aps = retrieve_local_specialization (parm);
10460 else
10462 int idx, level;
10463 template_parm_level_and_index (parm, &level, &idx);
10465 if (index == 0)
10467 aps = make_argument_pack_select (arg_pack, index);
10468 /* Update the corresponding argument. */
10469 TMPL_ARG (args, level, idx) = aps;
10471 else
10472 /* Re-use the ARGUMENT_PACK_SELECT. */
10473 aps = TMPL_ARG (args, level, idx);
10475 ARGUMENT_PACK_SELECT_INDEX (aps) = index;
10478 /* Substitute into the PATTERN with the (possibly altered)
10479 arguments. */
10480 if (pattern == in_decl)
10481 /* Expanding a fixed parameter pack from
10482 coerce_template_parameter_pack. */
10483 t = tsubst_decl (pattern, args, complain);
10484 else if (pattern == error_mark_node)
10485 t = error_mark_node;
10486 else if (constraint_p (pattern))
10488 if (processing_template_decl)
10489 t = tsubst_constraint (pattern, args, complain, in_decl);
10490 else
10491 t = (constraints_satisfied_p (pattern, args)
10492 ? boolean_true_node : boolean_false_node);
10494 else if (!TYPE_P (pattern))
10495 t = tsubst_expr (pattern, args, complain, in_decl,
10496 /*integral_constant_expression_p=*/false);
10497 else
10498 t = tsubst (pattern, args, complain, in_decl);
10500 /* If the Ith argument pack element is a pack expansion, then
10501 the Ith element resulting from the substituting is going to
10502 be a pack expansion as well. */
10503 if (ith_elem_is_expansion)
10504 t = make_pack_expansion (t);
10506 return t;
10509 /* Substitute ARGS into T, which is an pack expansion
10510 (i.e. TYPE_PACK_EXPANSION or EXPR_PACK_EXPANSION). Returns a
10511 TREE_VEC with the substituted arguments, a PACK_EXPANSION_* node
10512 (if only a partial substitution could be performed) or
10513 ERROR_MARK_NODE if there was an error. */
10514 tree
10515 tsubst_pack_expansion (tree t, tree args, tsubst_flags_t complain,
10516 tree in_decl)
10518 tree pattern;
10519 tree pack, packs = NULL_TREE;
10520 bool unsubstituted_packs = false;
10521 int i, len = -1;
10522 tree result;
10523 hash_map<tree, tree> *saved_local_specializations = NULL;
10524 bool need_local_specializations = false;
10525 int levels;
10527 gcc_assert (PACK_EXPANSION_P (t));
10528 pattern = PACK_EXPANSION_PATTERN (t);
10530 /* Add in any args remembered from an earlier partial instantiation. */
10531 args = add_to_template_args (PACK_EXPANSION_EXTRA_ARGS (t), args);
10533 levels = TMPL_ARGS_DEPTH (args);
10535 /* Determine the argument packs that will instantiate the parameter
10536 packs used in the expansion expression. While we're at it,
10537 compute the number of arguments to be expanded and make sure it
10538 is consistent. */
10539 for (pack = PACK_EXPANSION_PARAMETER_PACKS (t); pack;
10540 pack = TREE_CHAIN (pack))
10542 tree parm_pack = TREE_VALUE (pack);
10543 tree arg_pack = NULL_TREE;
10544 tree orig_arg = NULL_TREE;
10545 int level = 0;
10547 if (TREE_CODE (parm_pack) == BASES)
10549 if (BASES_DIRECT (parm_pack))
10550 return calculate_direct_bases (tsubst_expr (BASES_TYPE (parm_pack),
10551 args, complain, in_decl, false));
10552 else
10553 return calculate_bases (tsubst_expr (BASES_TYPE (parm_pack),
10554 args, complain, in_decl, false));
10556 if (TREE_CODE (parm_pack) == PARM_DECL)
10558 /* We know we have correct local_specializations if this
10559 expansion is at function scope, or if we're dealing with a
10560 local parameter in a requires expression; for the latter,
10561 tsubst_requires_expr set it up appropriately. */
10562 if (PACK_EXPANSION_LOCAL_P (t) || CONSTRAINT_VAR_P (parm_pack))
10563 arg_pack = retrieve_local_specialization (parm_pack);
10564 else
10566 /* We can't rely on local_specializations for a parameter
10567 name used later in a function declaration (such as in a
10568 late-specified return type). Even if it exists, it might
10569 have the wrong value for a recursive call. Just make a
10570 dummy decl, since it's only used for its type. */
10571 arg_pack = tsubst_decl (parm_pack, args, complain);
10572 if (arg_pack && DECL_PACK_P (arg_pack))
10573 /* Partial instantiation of the parm_pack, we can't build
10574 up an argument pack yet. */
10575 arg_pack = NULL_TREE;
10576 else
10577 arg_pack = make_fnparm_pack (arg_pack);
10578 need_local_specializations = true;
10581 else if (TREE_CODE (parm_pack) == FIELD_DECL)
10582 arg_pack = tsubst_copy (parm_pack, args, complain, in_decl);
10583 else
10585 int idx;
10586 template_parm_level_and_index (parm_pack, &level, &idx);
10588 if (level <= levels)
10589 arg_pack = TMPL_ARG (args, level, idx);
10592 orig_arg = arg_pack;
10593 if (arg_pack && TREE_CODE (arg_pack) == ARGUMENT_PACK_SELECT)
10594 arg_pack = ARGUMENT_PACK_SELECT_FROM_PACK (arg_pack);
10596 if (arg_pack && !ARGUMENT_PACK_P (arg_pack))
10597 /* This can only happen if we forget to expand an argument
10598 pack somewhere else. Just return an error, silently. */
10600 result = make_tree_vec (1);
10601 TREE_VEC_ELT (result, 0) = error_mark_node;
10602 return result;
10605 if (arg_pack)
10607 int my_len =
10608 TREE_VEC_LENGTH (ARGUMENT_PACK_ARGS (arg_pack));
10610 /* Don't bother trying to do a partial substitution with
10611 incomplete packs; we'll try again after deduction. */
10612 if (ARGUMENT_PACK_INCOMPLETE_P (arg_pack))
10613 return t;
10615 if (len < 0)
10616 len = my_len;
10617 else if (len != my_len)
10619 if (!(complain & tf_error))
10620 /* Fail quietly. */;
10621 else if (TREE_CODE (t) == TYPE_PACK_EXPANSION)
10622 error ("mismatched argument pack lengths while expanding "
10623 "%<%T%>",
10624 pattern);
10625 else
10626 error ("mismatched argument pack lengths while expanding "
10627 "%<%E%>",
10628 pattern);
10629 return error_mark_node;
10632 /* Keep track of the parameter packs and their corresponding
10633 argument packs. */
10634 packs = tree_cons (parm_pack, arg_pack, packs);
10635 TREE_TYPE (packs) = orig_arg;
10637 else
10639 /* We can't substitute for this parameter pack. We use a flag as
10640 well as the missing_level counter because function parameter
10641 packs don't have a level. */
10642 unsubstituted_packs = true;
10646 /* If the expansion is just T..., return the matching argument pack. */
10647 if (!unsubstituted_packs
10648 && TREE_PURPOSE (packs) == pattern)
10650 tree args = ARGUMENT_PACK_ARGS (TREE_VALUE (packs));
10651 if (TREE_CODE (t) == TYPE_PACK_EXPANSION
10652 || pack_expansion_args_count (args))
10653 return args;
10654 /* Otherwise use the normal path so we get convert_from_reference. */
10657 /* We cannot expand this expansion expression, because we don't have
10658 all of the argument packs we need. */
10659 if (use_pack_expansion_extra_args_p (packs, len, unsubstituted_packs))
10661 /* We got some full packs, but we can't substitute them in until we
10662 have values for all the packs. So remember these until then. */
10664 t = make_pack_expansion (pattern);
10665 PACK_EXPANSION_EXTRA_ARGS (t) = args;
10666 return t;
10668 else if (unsubstituted_packs)
10670 /* There were no real arguments, we're just replacing a parameter
10671 pack with another version of itself. Substitute into the
10672 pattern and return a PACK_EXPANSION_*. The caller will need to
10673 deal with that. */
10674 if (TREE_CODE (t) == EXPR_PACK_EXPANSION)
10675 t = tsubst_expr (pattern, args, complain, in_decl,
10676 /*integral_constant_expression_p=*/false);
10677 else
10678 t = tsubst (pattern, args, complain, in_decl);
10679 t = make_pack_expansion (t);
10680 return t;
10683 gcc_assert (len >= 0);
10685 if (need_local_specializations)
10687 /* We're in a late-specified return type, so create our own local
10688 specializations map; the current map is either NULL or (in the
10689 case of recursive unification) might have bindings that we don't
10690 want to use or alter. */
10691 saved_local_specializations = local_specializations;
10692 local_specializations = new hash_map<tree, tree>;
10695 /* For each argument in each argument pack, substitute into the
10696 pattern. */
10697 result = make_tree_vec (len);
10698 for (i = 0; i < len; ++i)
10700 t = gen_elem_of_pack_expansion_instantiation (pattern, packs,
10702 args, complain,
10703 in_decl);
10704 TREE_VEC_ELT (result, i) = t;
10705 if (t == error_mark_node)
10707 result = error_mark_node;
10708 break;
10712 /* Update ARGS to restore the substitution from parameter packs to
10713 their argument packs. */
10714 for (pack = packs; pack; pack = TREE_CHAIN (pack))
10716 tree parm = TREE_PURPOSE (pack);
10718 if (TREE_CODE (parm) == PARM_DECL
10719 || TREE_CODE (parm) == FIELD_DECL)
10720 register_local_specialization (TREE_TYPE (pack), parm);
10721 else
10723 int idx, level;
10725 if (TREE_VALUE (pack) == NULL_TREE)
10726 continue;
10728 template_parm_level_and_index (parm, &level, &idx);
10730 /* Update the corresponding argument. */
10731 if (TMPL_ARGS_HAVE_MULTIPLE_LEVELS (args))
10732 TREE_VEC_ELT (TREE_VEC_ELT (args, level -1 ), idx) =
10733 TREE_TYPE (pack);
10734 else
10735 TREE_VEC_ELT (args, idx) = TREE_TYPE (pack);
10739 if (need_local_specializations)
10741 delete local_specializations;
10742 local_specializations = saved_local_specializations;
10745 return result;
10748 /* Given PARM_DECL PARM, find the corresponding PARM_DECL in the template
10749 TMPL. We do this using DECL_PARM_INDEX, which should work even with
10750 parameter packs; all parms generated from a function parameter pack will
10751 have the same DECL_PARM_INDEX. */
10753 tree
10754 get_pattern_parm (tree parm, tree tmpl)
10756 tree pattern = DECL_TEMPLATE_RESULT (tmpl);
10757 tree patparm;
10759 if (DECL_ARTIFICIAL (parm))
10761 for (patparm = DECL_ARGUMENTS (pattern);
10762 patparm; patparm = DECL_CHAIN (patparm))
10763 if (DECL_ARTIFICIAL (patparm)
10764 && DECL_NAME (parm) == DECL_NAME (patparm))
10765 break;
10767 else
10769 patparm = FUNCTION_FIRST_USER_PARM (DECL_TEMPLATE_RESULT (tmpl));
10770 patparm = chain_index (DECL_PARM_INDEX (parm)-1, patparm);
10771 gcc_assert (DECL_PARM_INDEX (patparm)
10772 == DECL_PARM_INDEX (parm));
10775 return patparm;
10778 /* Substitute ARGS into the vector or list of template arguments T. */
10780 static tree
10781 tsubst_template_args (tree t, tree args, tsubst_flags_t complain, tree in_decl)
10783 tree orig_t = t;
10784 int len, need_new = 0, i, expanded_len_adjust = 0, out;
10785 tree *elts;
10787 if (t == error_mark_node)
10788 return error_mark_node;
10790 len = TREE_VEC_LENGTH (t);
10791 elts = XALLOCAVEC (tree, len);
10793 for (i = 0; i < len; i++)
10795 tree orig_arg = TREE_VEC_ELT (t, i);
10796 tree new_arg;
10798 if (TREE_CODE (orig_arg) == TREE_VEC)
10799 new_arg = tsubst_template_args (orig_arg, args, complain, in_decl);
10800 else if (PACK_EXPANSION_P (orig_arg))
10802 /* Substitute into an expansion expression. */
10803 new_arg = tsubst_pack_expansion (orig_arg, args, complain, in_decl);
10805 if (TREE_CODE (new_arg) == TREE_VEC)
10806 /* Add to the expanded length adjustment the number of
10807 expanded arguments. We subtract one from this
10808 measurement, because the argument pack expression
10809 itself is already counted as 1 in
10810 LEN. EXPANDED_LEN_ADJUST can actually be negative, if
10811 the argument pack is empty. */
10812 expanded_len_adjust += TREE_VEC_LENGTH (new_arg) - 1;
10814 else if (ARGUMENT_PACK_P (orig_arg))
10816 /* Substitute into each of the arguments. */
10817 new_arg = TYPE_P (orig_arg)
10818 ? cxx_make_type (TREE_CODE (orig_arg))
10819 : make_node (TREE_CODE (orig_arg));
10821 SET_ARGUMENT_PACK_ARGS (
10822 new_arg,
10823 tsubst_template_args (ARGUMENT_PACK_ARGS (orig_arg),
10824 args, complain, in_decl));
10826 if (ARGUMENT_PACK_ARGS (new_arg) == error_mark_node)
10827 new_arg = error_mark_node;
10829 if (TREE_CODE (new_arg) == NONTYPE_ARGUMENT_PACK) {
10830 TREE_TYPE (new_arg) = tsubst (TREE_TYPE (orig_arg), args,
10831 complain, in_decl);
10832 TREE_CONSTANT (new_arg) = TREE_CONSTANT (orig_arg);
10834 if (TREE_TYPE (new_arg) == error_mark_node)
10835 new_arg = error_mark_node;
10838 else
10839 new_arg = tsubst_template_arg (orig_arg, args, complain, in_decl);
10841 if (new_arg == error_mark_node)
10842 return error_mark_node;
10844 elts[i] = new_arg;
10845 if (new_arg != orig_arg)
10846 need_new = 1;
10849 if (!need_new)
10850 return t;
10852 /* Make space for the expanded arguments coming from template
10853 argument packs. */
10854 t = make_tree_vec (len + expanded_len_adjust);
10855 /* ORIG_T can contain TREE_VECs. That happens if ORIG_T contains the
10856 arguments for a member template.
10857 In that case each TREE_VEC in ORIG_T represents a level of template
10858 arguments, and ORIG_T won't carry any non defaulted argument count.
10859 It will rather be the nested TREE_VECs that will carry one.
10860 In other words, ORIG_T carries a non defaulted argument count only
10861 if it doesn't contain any nested TREE_VEC. */
10862 if (NON_DEFAULT_TEMPLATE_ARGS_COUNT (orig_t))
10864 int count = GET_NON_DEFAULT_TEMPLATE_ARGS_COUNT (orig_t);
10865 count += expanded_len_adjust;
10866 SET_NON_DEFAULT_TEMPLATE_ARGS_COUNT (t, count);
10868 for (i = 0, out = 0; i < len; i++)
10870 if ((PACK_EXPANSION_P (TREE_VEC_ELT (orig_t, i))
10871 || ARGUMENT_PACK_P (TREE_VEC_ELT (orig_t, i)))
10872 && TREE_CODE (elts[i]) == TREE_VEC)
10874 int idx;
10876 /* Now expand the template argument pack "in place". */
10877 for (idx = 0; idx < TREE_VEC_LENGTH (elts[i]); idx++, out++)
10878 TREE_VEC_ELT (t, out) = TREE_VEC_ELT (elts[i], idx);
10880 else
10882 TREE_VEC_ELT (t, out) = elts[i];
10883 out++;
10887 return t;
10890 /* Return the result of substituting ARGS into the template parameters
10891 given by PARMS. If there are m levels of ARGS and m + n levels of
10892 PARMS, then the result will contain n levels of PARMS. For
10893 example, if PARMS is `template <class T> template <class U>
10894 template <T*, U, class V>' and ARGS is {{int}, {double}} then the
10895 result will be `template <int*, double, class V>'. */
10897 static tree
10898 tsubst_template_parms (tree parms, tree args, tsubst_flags_t complain)
10900 tree r = NULL_TREE;
10901 tree* new_parms;
10903 /* When substituting into a template, we must set
10904 PROCESSING_TEMPLATE_DECL as the template parameters may be
10905 dependent if they are based on one-another, and the dependency
10906 predicates are short-circuit outside of templates. */
10907 ++processing_template_decl;
10909 for (new_parms = &r;
10910 parms && TMPL_PARMS_DEPTH (parms) > TMPL_ARGS_DEPTH (args);
10911 new_parms = &(TREE_CHAIN (*new_parms)),
10912 parms = TREE_CHAIN (parms))
10914 tree new_vec =
10915 make_tree_vec (TREE_VEC_LENGTH (TREE_VALUE (parms)));
10916 int i;
10918 for (i = 0; i < TREE_VEC_LENGTH (new_vec); ++i)
10920 tree tuple;
10922 if (parms == error_mark_node)
10923 continue;
10925 tuple = TREE_VEC_ELT (TREE_VALUE (parms), i);
10927 if (tuple == error_mark_node)
10928 continue;
10930 TREE_VEC_ELT (new_vec, i) =
10931 tsubst_template_parm (tuple, args, complain);
10934 *new_parms =
10935 tree_cons (size_int (TMPL_PARMS_DEPTH (parms)
10936 - TMPL_ARGS_DEPTH (args)),
10937 new_vec, NULL_TREE);
10940 --processing_template_decl;
10942 return r;
10945 /* Return the result of substituting ARGS into one template parameter
10946 given by T. T Must be a TREE_LIST which TREE_VALUE is the template
10947 parameter and which TREE_PURPOSE is the default argument of the
10948 template parameter. */
10950 static tree
10951 tsubst_template_parm (tree t, tree args, tsubst_flags_t complain)
10953 tree default_value, parm_decl;
10955 if (args == NULL_TREE
10956 || t == NULL_TREE
10957 || t == error_mark_node)
10958 return t;
10960 gcc_assert (TREE_CODE (t) == TREE_LIST);
10962 default_value = TREE_PURPOSE (t);
10963 parm_decl = TREE_VALUE (t);
10965 parm_decl = tsubst (parm_decl, args, complain, NULL_TREE);
10966 if (TREE_CODE (parm_decl) == PARM_DECL
10967 && invalid_nontype_parm_type_p (TREE_TYPE (parm_decl), complain))
10968 parm_decl = error_mark_node;
10969 default_value = tsubst_template_arg (default_value, args,
10970 complain, NULL_TREE);
10972 return build_tree_list (default_value, parm_decl);
10975 /* Substitute the ARGS into the indicated aggregate (or enumeration)
10976 type T. If T is not an aggregate or enumeration type, it is
10977 handled as if by tsubst. IN_DECL is as for tsubst. If
10978 ENTERING_SCOPE is nonzero, T is the context for a template which
10979 we are presently tsubst'ing. Return the substituted value. */
10981 static tree
10982 tsubst_aggr_type (tree t,
10983 tree args,
10984 tsubst_flags_t complain,
10985 tree in_decl,
10986 int entering_scope)
10988 if (t == NULL_TREE)
10989 return NULL_TREE;
10991 switch (TREE_CODE (t))
10993 case RECORD_TYPE:
10994 if (TYPE_PTRMEMFUNC_P (t))
10995 return tsubst (TYPE_PTRMEMFUNC_FN_TYPE (t), args, complain, in_decl);
10997 /* Else fall through. */
10998 case ENUMERAL_TYPE:
10999 case UNION_TYPE:
11000 if (TYPE_TEMPLATE_INFO (t) && uses_template_parms (t))
11002 tree argvec;
11003 tree context;
11004 tree r;
11005 int saved_unevaluated_operand;
11006 int saved_inhibit_evaluation_warnings;
11008 /* In "sizeof(X<I>)" we need to evaluate "I". */
11009 saved_unevaluated_operand = cp_unevaluated_operand;
11010 cp_unevaluated_operand = 0;
11011 saved_inhibit_evaluation_warnings = c_inhibit_evaluation_warnings;
11012 c_inhibit_evaluation_warnings = 0;
11014 /* First, determine the context for the type we are looking
11015 up. */
11016 context = TYPE_CONTEXT (t);
11017 if (context && TYPE_P (context))
11019 context = tsubst_aggr_type (context, args, complain,
11020 in_decl, /*entering_scope=*/1);
11021 /* If context is a nested class inside a class template,
11022 it may still need to be instantiated (c++/33959). */
11023 context = complete_type (context);
11026 /* Then, figure out what arguments are appropriate for the
11027 type we are trying to find. For example, given:
11029 template <class T> struct S;
11030 template <class T, class U> void f(T, U) { S<U> su; }
11032 and supposing that we are instantiating f<int, double>,
11033 then our ARGS will be {int, double}, but, when looking up
11034 S we only want {double}. */
11035 argvec = tsubst_template_args (TYPE_TI_ARGS (t), args,
11036 complain, in_decl);
11037 if (argvec == error_mark_node)
11038 r = error_mark_node;
11039 else
11041 r = lookup_template_class (t, argvec, in_decl, context,
11042 entering_scope, complain);
11043 r = cp_build_qualified_type_real (r, cp_type_quals (t), complain);
11046 cp_unevaluated_operand = saved_unevaluated_operand;
11047 c_inhibit_evaluation_warnings = saved_inhibit_evaluation_warnings;
11049 return r;
11051 else
11052 /* This is not a template type, so there's nothing to do. */
11053 return t;
11055 default:
11056 return tsubst (t, args, complain, in_decl);
11060 /* Substitute into the default argument ARG (a default argument for
11061 FN), which has the indicated TYPE. */
11063 tree
11064 tsubst_default_argument (tree fn, tree type, tree arg, tsubst_flags_t complain)
11066 tree saved_class_ptr = NULL_TREE;
11067 tree saved_class_ref = NULL_TREE;
11068 int errs = errorcount + sorrycount;
11070 /* This can happen in invalid code. */
11071 if (TREE_CODE (arg) == DEFAULT_ARG)
11072 return arg;
11074 /* This default argument came from a template. Instantiate the
11075 default argument here, not in tsubst. In the case of
11076 something like:
11078 template <class T>
11079 struct S {
11080 static T t();
11081 void f(T = t());
11084 we must be careful to do name lookup in the scope of S<T>,
11085 rather than in the current class. */
11086 push_access_scope (fn);
11087 /* The "this" pointer is not valid in a default argument. */
11088 if (cfun)
11090 saved_class_ptr = current_class_ptr;
11091 cp_function_chain->x_current_class_ptr = NULL_TREE;
11092 saved_class_ref = current_class_ref;
11093 cp_function_chain->x_current_class_ref = NULL_TREE;
11096 push_deferring_access_checks(dk_no_deferred);
11097 /* The default argument expression may cause implicitly defined
11098 member functions to be synthesized, which will result in garbage
11099 collection. We must treat this situation as if we were within
11100 the body of function so as to avoid collecting live data on the
11101 stack. */
11102 ++function_depth;
11103 arg = tsubst_expr (arg, DECL_TI_ARGS (fn),
11104 complain, NULL_TREE,
11105 /*integral_constant_expression_p=*/false);
11106 --function_depth;
11107 pop_deferring_access_checks();
11109 /* Restore the "this" pointer. */
11110 if (cfun)
11112 cp_function_chain->x_current_class_ptr = saved_class_ptr;
11113 cp_function_chain->x_current_class_ref = saved_class_ref;
11116 if (errorcount+sorrycount > errs
11117 && (complain & tf_warning_or_error))
11118 inform (input_location,
11119 " when instantiating default argument for call to %D", fn);
11121 /* Make sure the default argument is reasonable. */
11122 arg = check_default_argument (type, arg, complain);
11124 pop_access_scope (fn);
11126 return arg;
11129 /* Substitute into all the default arguments for FN. */
11131 static void
11132 tsubst_default_arguments (tree fn, tsubst_flags_t complain)
11134 tree arg;
11135 tree tmpl_args;
11137 tmpl_args = DECL_TI_ARGS (fn);
11139 /* If this function is not yet instantiated, we certainly don't need
11140 its default arguments. */
11141 if (uses_template_parms (tmpl_args))
11142 return;
11143 /* Don't do this again for clones. */
11144 if (DECL_CLONED_FUNCTION_P (fn))
11145 return;
11147 for (arg = TYPE_ARG_TYPES (TREE_TYPE (fn));
11148 arg;
11149 arg = TREE_CHAIN (arg))
11150 if (TREE_PURPOSE (arg))
11151 TREE_PURPOSE (arg) = tsubst_default_argument (fn,
11152 TREE_VALUE (arg),
11153 TREE_PURPOSE (arg),
11154 complain);
11157 /* Substitute the ARGS into the T, which is a _DECL. Return the
11158 result of the substitution. Issue error and warning messages under
11159 control of COMPLAIN. */
11161 static tree
11162 tsubst_decl (tree t, tree args, tsubst_flags_t complain)
11164 #define RETURN(EXP) do { r = (EXP); goto out; } while(0)
11165 location_t saved_loc;
11166 tree r = NULL_TREE;
11167 tree in_decl = t;
11168 hashval_t hash = 0;
11170 /* Set the filename and linenumber to improve error-reporting. */
11171 saved_loc = input_location;
11172 input_location = DECL_SOURCE_LOCATION (t);
11174 switch (TREE_CODE (t))
11176 case TEMPLATE_DECL:
11178 /* We can get here when processing a member function template,
11179 member class template, or template template parameter. */
11180 tree decl = DECL_TEMPLATE_RESULT (t);
11181 tree spec;
11182 tree tmpl_args;
11183 tree full_args;
11185 if (DECL_TEMPLATE_TEMPLATE_PARM_P (t))
11187 /* Template template parameter is treated here. */
11188 tree new_type = tsubst (TREE_TYPE (t), args, complain, in_decl);
11189 if (new_type == error_mark_node)
11190 r = error_mark_node;
11191 /* If we get a real template back, return it. This can happen in
11192 the context of most_specialized_partial_spec. */
11193 else if (TREE_CODE (new_type) == TEMPLATE_DECL)
11194 r = new_type;
11195 else
11196 /* The new TEMPLATE_DECL was built in
11197 reduce_template_parm_level. */
11198 r = TEMPLATE_TEMPLATE_PARM_TEMPLATE_DECL (new_type);
11199 break;
11202 /* We might already have an instance of this template.
11203 The ARGS are for the surrounding class type, so the
11204 full args contain the tsubst'd args for the context,
11205 plus the innermost args from the template decl. */
11206 tmpl_args = DECL_CLASS_TEMPLATE_P (t)
11207 ? CLASSTYPE_TI_ARGS (TREE_TYPE (t))
11208 : DECL_TI_ARGS (DECL_TEMPLATE_RESULT (t));
11209 /* Because this is a template, the arguments will still be
11210 dependent, even after substitution. If
11211 PROCESSING_TEMPLATE_DECL is not set, the dependency
11212 predicates will short-circuit. */
11213 ++processing_template_decl;
11214 full_args = tsubst_template_args (tmpl_args, args,
11215 complain, in_decl);
11216 --processing_template_decl;
11217 if (full_args == error_mark_node)
11218 RETURN (error_mark_node);
11220 /* If this is a default template template argument,
11221 tsubst might not have changed anything. */
11222 if (full_args == tmpl_args)
11223 RETURN (t);
11225 hash = hash_tmpl_and_args (t, full_args);
11226 spec = retrieve_specialization (t, full_args, hash);
11227 if (spec != NULL_TREE)
11229 r = spec;
11230 break;
11233 /* Make a new template decl. It will be similar to the
11234 original, but will record the current template arguments.
11235 We also create a new function declaration, which is just
11236 like the old one, but points to this new template, rather
11237 than the old one. */
11238 r = copy_decl (t);
11239 gcc_assert (DECL_LANG_SPECIFIC (r) != 0);
11240 DECL_CHAIN (r) = NULL_TREE;
11242 // Build new template info linking to the original template decl.
11243 DECL_TEMPLATE_INFO (r) = build_template_info (t, args);
11245 if (TREE_CODE (decl) == TYPE_DECL
11246 && !TYPE_DECL_ALIAS_P (decl))
11248 tree new_type;
11249 ++processing_template_decl;
11250 new_type = tsubst (TREE_TYPE (t), args, complain, in_decl);
11251 --processing_template_decl;
11252 if (new_type == error_mark_node)
11253 RETURN (error_mark_node);
11255 TREE_TYPE (r) = new_type;
11256 /* For a partial specialization, we need to keep pointing to
11257 the primary template. */
11258 if (!DECL_TEMPLATE_SPECIALIZATION (t))
11259 CLASSTYPE_TI_TEMPLATE (new_type) = r;
11260 DECL_TEMPLATE_RESULT (r) = TYPE_MAIN_DECL (new_type);
11261 DECL_TI_ARGS (r) = CLASSTYPE_TI_ARGS (new_type);
11262 DECL_CONTEXT (r) = TYPE_CONTEXT (new_type);
11264 else
11266 tree new_decl;
11267 ++processing_template_decl;
11268 new_decl = tsubst (decl, args, complain, in_decl);
11269 --processing_template_decl;
11270 if (new_decl == error_mark_node)
11271 RETURN (error_mark_node);
11273 DECL_TEMPLATE_RESULT (r) = new_decl;
11274 DECL_TI_TEMPLATE (new_decl) = r;
11275 TREE_TYPE (r) = TREE_TYPE (new_decl);
11276 DECL_TI_ARGS (r) = DECL_TI_ARGS (new_decl);
11277 DECL_CONTEXT (r) = DECL_CONTEXT (new_decl);
11280 SET_DECL_IMPLICIT_INSTANTIATION (r);
11281 DECL_TEMPLATE_INSTANTIATIONS (r) = NULL_TREE;
11282 DECL_TEMPLATE_SPECIALIZATIONS (r) = NULL_TREE;
11284 /* The template parameters for this new template are all the
11285 template parameters for the old template, except the
11286 outermost level of parameters. */
11287 DECL_TEMPLATE_PARMS (r)
11288 = tsubst_template_parms (DECL_TEMPLATE_PARMS (t), args,
11289 complain);
11291 if (PRIMARY_TEMPLATE_P (t))
11292 DECL_PRIMARY_TEMPLATE (r) = r;
11294 if (TREE_CODE (decl) != TYPE_DECL && !VAR_P (decl))
11295 /* Record this non-type partial instantiation. */
11296 register_specialization (r, t,
11297 DECL_TI_ARGS (DECL_TEMPLATE_RESULT (r)),
11298 false, hash);
11300 break;
11302 case FUNCTION_DECL:
11304 tree ctx;
11305 tree argvec = NULL_TREE;
11306 tree *friends;
11307 tree gen_tmpl;
11308 tree type;
11309 int member;
11310 int args_depth;
11311 int parms_depth;
11313 /* Nobody should be tsubst'ing into non-template functions. */
11314 gcc_assert (DECL_TEMPLATE_INFO (t) != NULL_TREE);
11316 if (TREE_CODE (DECL_TI_TEMPLATE (t)) == TEMPLATE_DECL)
11318 tree spec;
11319 bool dependent_p;
11321 /* If T is not dependent, just return it. We have to
11322 increment PROCESSING_TEMPLATE_DECL because
11323 value_dependent_expression_p assumes that nothing is
11324 dependent when PROCESSING_TEMPLATE_DECL is zero. */
11325 ++processing_template_decl;
11326 dependent_p = value_dependent_expression_p (t);
11327 --processing_template_decl;
11328 if (!dependent_p)
11329 RETURN (t);
11331 /* Calculate the most general template of which R is a
11332 specialization, and the complete set of arguments used to
11333 specialize R. */
11334 gen_tmpl = most_general_template (DECL_TI_TEMPLATE (t));
11335 argvec = tsubst_template_args (DECL_TI_ARGS
11336 (DECL_TEMPLATE_RESULT
11337 (DECL_TI_TEMPLATE (t))),
11338 args, complain, in_decl);
11339 if (argvec == error_mark_node)
11340 RETURN (error_mark_node);
11342 /* Check to see if we already have this specialization. */
11343 hash = hash_tmpl_and_args (gen_tmpl, argvec);
11344 spec = retrieve_specialization (gen_tmpl, argvec, hash);
11346 if (spec)
11348 r = spec;
11349 break;
11352 /* We can see more levels of arguments than parameters if
11353 there was a specialization of a member template, like
11354 this:
11356 template <class T> struct S { template <class U> void f(); }
11357 template <> template <class U> void S<int>::f(U);
11359 Here, we'll be substituting into the specialization,
11360 because that's where we can find the code we actually
11361 want to generate, but we'll have enough arguments for
11362 the most general template.
11364 We also deal with the peculiar case:
11366 template <class T> struct S {
11367 template <class U> friend void f();
11369 template <class U> void f() {}
11370 template S<int>;
11371 template void f<double>();
11373 Here, the ARGS for the instantiation of will be {int,
11374 double}. But, we only need as many ARGS as there are
11375 levels of template parameters in CODE_PATTERN. We are
11376 careful not to get fooled into reducing the ARGS in
11377 situations like:
11379 template <class T> struct S { template <class U> void f(U); }
11380 template <class T> template <> void S<T>::f(int) {}
11382 which we can spot because the pattern will be a
11383 specialization in this case. */
11384 args_depth = TMPL_ARGS_DEPTH (args);
11385 parms_depth =
11386 TMPL_PARMS_DEPTH (DECL_TEMPLATE_PARMS (DECL_TI_TEMPLATE (t)));
11387 if (args_depth > parms_depth
11388 && !DECL_TEMPLATE_SPECIALIZATION (t))
11389 args = get_innermost_template_args (args, parms_depth);
11391 else
11393 /* This special case arises when we have something like this:
11395 template <class T> struct S {
11396 friend void f<int>(int, double);
11399 Here, the DECL_TI_TEMPLATE for the friend declaration
11400 will be an IDENTIFIER_NODE. We are being called from
11401 tsubst_friend_function, and we want only to create a
11402 new decl (R) with appropriate types so that we can call
11403 determine_specialization. */
11404 gen_tmpl = NULL_TREE;
11407 if (DECL_CLASS_SCOPE_P (t))
11409 if (DECL_NAME (t) == constructor_name (DECL_CONTEXT (t)))
11410 member = 2;
11411 else
11412 member = 1;
11413 ctx = tsubst_aggr_type (DECL_CONTEXT (t), args,
11414 complain, t, /*entering_scope=*/1);
11416 else
11418 member = 0;
11419 ctx = DECL_CONTEXT (t);
11421 type = tsubst (TREE_TYPE (t), args, complain, in_decl);
11422 if (type == error_mark_node)
11423 RETURN (error_mark_node);
11425 /* If we hit excessive deduction depth, the type is bogus even if
11426 it isn't error_mark_node, so don't build a decl. */
11427 if (excessive_deduction_depth)
11428 RETURN (error_mark_node);
11430 /* We do NOT check for matching decls pushed separately at this
11431 point, as they may not represent instantiations of this
11432 template, and in any case are considered separate under the
11433 discrete model. */
11434 r = copy_decl (t);
11435 DECL_USE_TEMPLATE (r) = 0;
11436 TREE_TYPE (r) = type;
11437 /* Clear out the mangled name and RTL for the instantiation. */
11438 SET_DECL_ASSEMBLER_NAME (r, NULL_TREE);
11439 SET_DECL_RTL (r, NULL);
11440 /* Leave DECL_INITIAL set on deleted instantiations. */
11441 if (!DECL_DELETED_FN (r))
11442 DECL_INITIAL (r) = NULL_TREE;
11443 DECL_CONTEXT (r) = ctx;
11445 /* OpenMP UDRs have the only argument a reference to the declared
11446 type. We want to diagnose if the declared type is a reference,
11447 which is invalid, but as references to references are usually
11448 quietly merged, diagnose it here. */
11449 if (DECL_OMP_DECLARE_REDUCTION_P (t))
11451 tree argtype
11452 = TREE_TYPE (TREE_VALUE (TYPE_ARG_TYPES (TREE_TYPE (t))));
11453 argtype = tsubst (argtype, args, complain, in_decl);
11454 if (TREE_CODE (argtype) == REFERENCE_TYPE)
11455 error_at (DECL_SOURCE_LOCATION (t),
11456 "reference type %qT in "
11457 "%<#pragma omp declare reduction%>", argtype);
11458 if (strchr (IDENTIFIER_POINTER (DECL_NAME (t)), '~') == NULL)
11459 DECL_NAME (r) = omp_reduction_id (ERROR_MARK, DECL_NAME (t),
11460 argtype);
11463 if (member && DECL_CONV_FN_P (r))
11464 /* Type-conversion operator. Reconstruct the name, in
11465 case it's the name of one of the template's parameters. */
11466 DECL_NAME (r) = mangle_conv_op_name_for_type (TREE_TYPE (type));
11468 DECL_ARGUMENTS (r) = tsubst (DECL_ARGUMENTS (t), args,
11469 complain, t);
11470 DECL_RESULT (r) = NULL_TREE;
11472 TREE_STATIC (r) = 0;
11473 TREE_PUBLIC (r) = TREE_PUBLIC (t);
11474 DECL_EXTERNAL (r) = 1;
11475 /* If this is an instantiation of a function with internal
11476 linkage, we already know what object file linkage will be
11477 assigned to the instantiation. */
11478 DECL_INTERFACE_KNOWN (r) = !TREE_PUBLIC (r);
11479 DECL_DEFER_OUTPUT (r) = 0;
11480 DECL_CHAIN (r) = NULL_TREE;
11481 DECL_PENDING_INLINE_INFO (r) = 0;
11482 DECL_PENDING_INLINE_P (r) = 0;
11483 DECL_SAVED_TREE (r) = NULL_TREE;
11484 DECL_STRUCT_FUNCTION (r) = NULL;
11485 TREE_USED (r) = 0;
11486 /* We'll re-clone as appropriate in instantiate_template. */
11487 DECL_CLONED_FUNCTION (r) = NULL_TREE;
11489 /* If we aren't complaining now, return on error before we register
11490 the specialization so that we'll complain eventually. */
11491 if ((complain & tf_error) == 0
11492 && IDENTIFIER_OPNAME_P (DECL_NAME (r))
11493 && !grok_op_properties (r, /*complain=*/false))
11494 RETURN (error_mark_node);
11496 /* When instantiating a constrained member, substitute
11497 into the constraints to create a new constraint. */
11498 if (tree ci = get_constraints (t))
11499 if (member)
11501 ci = tsubst_constraint_info (ci, argvec, complain, NULL_TREE);
11502 set_constraints (r, ci);
11505 /* Set up the DECL_TEMPLATE_INFO for R. There's no need to do
11506 this in the special friend case mentioned above where
11507 GEN_TMPL is NULL. */
11508 if (gen_tmpl)
11510 DECL_TEMPLATE_INFO (r)
11511 = build_template_info (gen_tmpl, argvec);
11512 SET_DECL_IMPLICIT_INSTANTIATION (r);
11514 tree new_r
11515 = register_specialization (r, gen_tmpl, argvec, false, hash);
11516 if (new_r != r)
11517 /* We instantiated this while substituting into
11518 the type earlier (template/friend54.C). */
11519 RETURN (new_r);
11521 /* We're not supposed to instantiate default arguments
11522 until they are called, for a template. But, for a
11523 declaration like:
11525 template <class T> void f ()
11526 { extern void g(int i = T()); }
11528 we should do the substitution when the template is
11529 instantiated. We handle the member function case in
11530 instantiate_class_template since the default arguments
11531 might refer to other members of the class. */
11532 if (!member
11533 && !PRIMARY_TEMPLATE_P (gen_tmpl)
11534 && !uses_template_parms (argvec))
11535 tsubst_default_arguments (r, complain);
11537 else
11538 DECL_TEMPLATE_INFO (r) = NULL_TREE;
11540 /* Copy the list of befriending classes. */
11541 for (friends = &DECL_BEFRIENDING_CLASSES (r);
11542 *friends;
11543 friends = &TREE_CHAIN (*friends))
11545 *friends = copy_node (*friends);
11546 TREE_VALUE (*friends) = tsubst (TREE_VALUE (*friends),
11547 args, complain,
11548 in_decl);
11551 if (DECL_CONSTRUCTOR_P (r) || DECL_DESTRUCTOR_P (r))
11553 maybe_retrofit_in_chrg (r);
11554 if (DECL_CONSTRUCTOR_P (r))
11555 grok_ctor_properties (ctx, r);
11556 if (DECL_INHERITED_CTOR_BASE (r))
11557 deduce_inheriting_ctor (r);
11558 /* If this is an instantiation of a member template, clone it.
11559 If it isn't, that'll be handled by
11560 clone_constructors_and_destructors. */
11561 if (PRIMARY_TEMPLATE_P (gen_tmpl))
11562 clone_function_decl (r, /*update_method_vec_p=*/0);
11564 else if ((complain & tf_error) != 0
11565 && IDENTIFIER_OPNAME_P (DECL_NAME (r))
11566 && !grok_op_properties (r, /*complain=*/true))
11567 RETURN (error_mark_node);
11569 if (DECL_FRIEND_P (t) && DECL_FRIEND_CONTEXT (t))
11570 SET_DECL_FRIEND_CONTEXT (r,
11571 tsubst (DECL_FRIEND_CONTEXT (t),
11572 args, complain, in_decl));
11574 /* Possibly limit visibility based on template args. */
11575 DECL_VISIBILITY (r) = VISIBILITY_DEFAULT;
11576 if (DECL_VISIBILITY_SPECIFIED (t))
11578 DECL_VISIBILITY_SPECIFIED (r) = 0;
11579 DECL_ATTRIBUTES (r)
11580 = remove_attribute ("visibility", DECL_ATTRIBUTES (r));
11582 determine_visibility (r);
11583 if (DECL_DEFAULTED_OUTSIDE_CLASS_P (r)
11584 && !processing_template_decl)
11585 defaulted_late_check (r);
11587 apply_late_template_attributes (&r, DECL_ATTRIBUTES (r), 0,
11588 args, complain, in_decl);
11590 break;
11592 case PARM_DECL:
11594 tree type = NULL_TREE;
11595 int i, len = 1;
11596 tree expanded_types = NULL_TREE;
11597 tree prev_r = NULL_TREE;
11598 tree first_r = NULL_TREE;
11600 if (DECL_PACK_P (t))
11602 /* If there is a local specialization that isn't a
11603 parameter pack, it means that we're doing a "simple"
11604 substitution from inside tsubst_pack_expansion. Just
11605 return the local specialization (which will be a single
11606 parm). */
11607 tree spec = retrieve_local_specialization (t);
11608 if (spec
11609 && TREE_CODE (spec) == PARM_DECL
11610 && TREE_CODE (TREE_TYPE (spec)) != TYPE_PACK_EXPANSION)
11611 RETURN (spec);
11613 /* Expand the TYPE_PACK_EXPANSION that provides the types for
11614 the parameters in this function parameter pack. */
11615 expanded_types = tsubst_pack_expansion (TREE_TYPE (t), args,
11616 complain, in_decl);
11617 if (TREE_CODE (expanded_types) == TREE_VEC)
11619 len = TREE_VEC_LENGTH (expanded_types);
11621 /* Zero-length parameter packs are boring. Just substitute
11622 into the chain. */
11623 if (len == 0)
11624 RETURN (tsubst (TREE_CHAIN (t), args, complain,
11625 TREE_CHAIN (t)));
11627 else
11629 /* All we did was update the type. Make a note of that. */
11630 type = expanded_types;
11631 expanded_types = NULL_TREE;
11635 /* Loop through all of the parameters we'll build. When T is
11636 a function parameter pack, LEN is the number of expanded
11637 types in EXPANDED_TYPES; otherwise, LEN is 1. */
11638 r = NULL_TREE;
11639 for (i = 0; i < len; ++i)
11641 prev_r = r;
11642 r = copy_node (t);
11643 if (DECL_TEMPLATE_PARM_P (t))
11644 SET_DECL_TEMPLATE_PARM_P (r);
11646 if (expanded_types)
11647 /* We're on the Ith parameter of the function parameter
11648 pack. */
11650 /* Get the Ith type. */
11651 type = TREE_VEC_ELT (expanded_types, i);
11653 /* Rename the parameter to include the index. */
11654 DECL_NAME (r)
11655 = make_ith_pack_parameter_name (DECL_NAME (r), i);
11657 else if (!type)
11658 /* We're dealing with a normal parameter. */
11659 type = tsubst (TREE_TYPE (t), args, complain, in_decl);
11661 type = type_decays_to (type);
11662 TREE_TYPE (r) = type;
11663 cp_apply_type_quals_to_decl (cp_type_quals (type), r);
11665 if (DECL_INITIAL (r))
11667 if (TREE_CODE (DECL_INITIAL (r)) != TEMPLATE_PARM_INDEX)
11668 DECL_INITIAL (r) = TREE_TYPE (r);
11669 else
11670 DECL_INITIAL (r) = tsubst (DECL_INITIAL (r), args,
11671 complain, in_decl);
11674 DECL_CONTEXT (r) = NULL_TREE;
11676 if (!DECL_TEMPLATE_PARM_P (r))
11677 DECL_ARG_TYPE (r) = type_passed_as (type);
11679 apply_late_template_attributes (&r, DECL_ATTRIBUTES (r), 0,
11680 args, complain, in_decl);
11682 /* Keep track of the first new parameter we
11683 generate. That's what will be returned to the
11684 caller. */
11685 if (!first_r)
11686 first_r = r;
11688 /* Build a proper chain of parameters when substituting
11689 into a function parameter pack. */
11690 if (prev_r)
11691 DECL_CHAIN (prev_r) = r;
11694 /* If cp_unevaluated_operand is set, we're just looking for a
11695 single dummy parameter, so don't keep going. */
11696 if (DECL_CHAIN (t) && !cp_unevaluated_operand)
11697 DECL_CHAIN (r) = tsubst (DECL_CHAIN (t), args,
11698 complain, DECL_CHAIN (t));
11700 /* FIRST_R contains the start of the chain we've built. */
11701 r = first_r;
11703 break;
11705 case FIELD_DECL:
11707 tree type = NULL_TREE;
11708 tree vec = NULL_TREE;
11709 tree expanded_types = NULL_TREE;
11710 int len = 1;
11712 if (PACK_EXPANSION_P (TREE_TYPE (t)))
11714 /* This field is a lambda capture pack. Return a TREE_VEC of
11715 the expanded fields to instantiate_class_template_1 and
11716 store them in the specializations hash table as a
11717 NONTYPE_ARGUMENT_PACK so that tsubst_copy can find them. */
11718 expanded_types = tsubst_pack_expansion (TREE_TYPE (t), args,
11719 complain, in_decl);
11720 if (TREE_CODE (expanded_types) == TREE_VEC)
11722 len = TREE_VEC_LENGTH (expanded_types);
11723 vec = make_tree_vec (len);
11725 else
11727 /* All we did was update the type. Make a note of that. */
11728 type = expanded_types;
11729 expanded_types = NULL_TREE;
11733 for (int i = 0; i < len; ++i)
11735 r = copy_decl (t);
11736 if (expanded_types)
11738 type = TREE_VEC_ELT (expanded_types, i);
11739 DECL_NAME (r)
11740 = make_ith_pack_parameter_name (DECL_NAME (r), i);
11742 else if (!type)
11743 type = tsubst (TREE_TYPE (t), args, complain, in_decl);
11745 if (type == error_mark_node)
11746 RETURN (error_mark_node);
11747 TREE_TYPE (r) = type;
11748 cp_apply_type_quals_to_decl (cp_type_quals (type), r);
11750 if (DECL_C_BIT_FIELD (r))
11751 /* For bit-fields, DECL_INITIAL gives the number of bits. For
11752 non-bit-fields DECL_INITIAL is a non-static data member
11753 initializer, which gets deferred instantiation. */
11754 DECL_INITIAL (r)
11755 = tsubst_expr (DECL_INITIAL (t), args,
11756 complain, in_decl,
11757 /*integral_constant_expression_p=*/true);
11758 else if (DECL_INITIAL (t))
11760 /* Set up DECL_TEMPLATE_INFO so that we can get at the
11761 NSDMI in perform_member_init. Still set DECL_INITIAL
11762 so that we know there is one. */
11763 DECL_INITIAL (r) = void_node;
11764 gcc_assert (DECL_LANG_SPECIFIC (r) == NULL);
11765 retrofit_lang_decl (r);
11766 DECL_TEMPLATE_INFO (r) = build_template_info (t, args);
11768 /* We don't have to set DECL_CONTEXT here; it is set by
11769 finish_member_declaration. */
11770 DECL_CHAIN (r) = NULL_TREE;
11772 apply_late_template_attributes (&r, DECL_ATTRIBUTES (r), 0,
11773 args, complain, in_decl);
11775 if (vec)
11776 TREE_VEC_ELT (vec, i) = r;
11779 if (vec)
11781 r = vec;
11782 tree pack = make_node (NONTYPE_ARGUMENT_PACK);
11783 tree tpack = cxx_make_type (TYPE_ARGUMENT_PACK);
11784 SET_ARGUMENT_PACK_ARGS (pack, vec);
11785 SET_ARGUMENT_PACK_ARGS (tpack, expanded_types);
11786 TREE_TYPE (pack) = tpack;
11787 register_specialization (pack, t, args, false, 0);
11790 break;
11792 case USING_DECL:
11793 /* We reach here only for member using decls. We also need to check
11794 uses_template_parms because DECL_DEPENDENT_P is not set for a
11795 using-declaration that designates a member of the current
11796 instantiation (c++/53549). */
11797 if (DECL_DEPENDENT_P (t)
11798 || uses_template_parms (USING_DECL_SCOPE (t)))
11800 tree inst_scope = tsubst_copy (USING_DECL_SCOPE (t), args,
11801 complain, in_decl);
11802 tree name = tsubst_copy (DECL_NAME (t), args, complain, in_decl);
11803 r = do_class_using_decl (inst_scope, name);
11804 if (!r)
11805 r = error_mark_node;
11806 else
11808 TREE_PROTECTED (r) = TREE_PROTECTED (t);
11809 TREE_PRIVATE (r) = TREE_PRIVATE (t);
11812 else
11814 r = copy_node (t);
11815 DECL_CHAIN (r) = NULL_TREE;
11817 break;
11819 case TYPE_DECL:
11820 case VAR_DECL:
11822 tree argvec = NULL_TREE;
11823 tree gen_tmpl = NULL_TREE;
11824 tree spec;
11825 tree tmpl = NULL_TREE;
11826 tree ctx;
11827 tree type = NULL_TREE;
11828 bool local_p;
11830 if (TREE_TYPE (t) == error_mark_node)
11831 RETURN (error_mark_node);
11833 if (TREE_CODE (t) == TYPE_DECL
11834 && t == TYPE_MAIN_DECL (TREE_TYPE (t)))
11836 /* If this is the canonical decl, we don't have to
11837 mess with instantiations, and often we can't (for
11838 typename, template type parms and such). Note that
11839 TYPE_NAME is not correct for the above test if
11840 we've copied the type for a typedef. */
11841 type = tsubst (TREE_TYPE (t), args, complain, in_decl);
11842 if (type == error_mark_node)
11843 RETURN (error_mark_node);
11844 r = TYPE_NAME (type);
11845 break;
11848 /* Check to see if we already have the specialization we
11849 need. */
11850 spec = NULL_TREE;
11851 if (DECL_CLASS_SCOPE_P (t) || DECL_NAMESPACE_SCOPE_P (t))
11853 /* T is a static data member or namespace-scope entity.
11854 We have to substitute into namespace-scope variables
11855 (not just variable templates) because of cases like:
11857 template <class T> void f() { extern T t; }
11859 where the entity referenced is not known until
11860 instantiation time. */
11861 local_p = false;
11862 ctx = DECL_CONTEXT (t);
11863 if (DECL_CLASS_SCOPE_P (t))
11865 ctx = tsubst_aggr_type (ctx, args,
11866 complain,
11867 in_decl, /*entering_scope=*/1);
11868 /* If CTX is unchanged, then T is in fact the
11869 specialization we want. That situation occurs when
11870 referencing a static data member within in its own
11871 class. We can use pointer equality, rather than
11872 same_type_p, because DECL_CONTEXT is always
11873 canonical... */
11874 if (ctx == DECL_CONTEXT (t)
11875 /* ... unless T is a member template; in which
11876 case our caller can be willing to create a
11877 specialization of that template represented
11878 by T. */
11879 && !(DECL_TI_TEMPLATE (t)
11880 && DECL_MEMBER_TEMPLATE_P (DECL_TI_TEMPLATE (t))))
11881 spec = t;
11884 if (!spec)
11886 tmpl = DECL_TI_TEMPLATE (t);
11887 gen_tmpl = most_general_template (tmpl);
11888 argvec = tsubst (DECL_TI_ARGS (t), args, complain, in_decl);
11889 if (argvec != error_mark_node)
11890 argvec = (coerce_innermost_template_parms
11891 (DECL_TEMPLATE_PARMS (gen_tmpl),
11892 argvec, t, complain,
11893 /*all*/true, /*defarg*/true));
11894 if (argvec == error_mark_node)
11895 RETURN (error_mark_node);
11896 hash = hash_tmpl_and_args (gen_tmpl, argvec);
11897 spec = retrieve_specialization (gen_tmpl, argvec, hash);
11900 else
11902 /* A local variable. */
11903 local_p = true;
11904 /* Subsequent calls to pushdecl will fill this in. */
11905 ctx = NULL_TREE;
11906 spec = retrieve_local_specialization (t);
11908 /* If we already have the specialization we need, there is
11909 nothing more to do. */
11910 if (spec)
11912 r = spec;
11913 break;
11916 /* Create a new node for the specialization we need. */
11917 r = copy_decl (t);
11918 if (type == NULL_TREE)
11920 if (is_typedef_decl (t))
11921 type = DECL_ORIGINAL_TYPE (t);
11922 else
11923 type = TREE_TYPE (t);
11924 if (VAR_P (t)
11925 && VAR_HAD_UNKNOWN_BOUND (t)
11926 && type != error_mark_node)
11927 type = strip_array_domain (type);
11928 type = tsubst (type, args, complain, in_decl);
11930 if (VAR_P (r))
11932 /* Even if the original location is out of scope, the
11933 newly substituted one is not. */
11934 DECL_DEAD_FOR_LOCAL (r) = 0;
11935 DECL_INITIALIZED_P (r) = 0;
11936 DECL_TEMPLATE_INSTANTIATED (r) = 0;
11937 if (type == error_mark_node)
11938 RETURN (error_mark_node);
11939 if (TREE_CODE (type) == FUNCTION_TYPE)
11941 /* It may seem that this case cannot occur, since:
11943 typedef void f();
11944 void g() { f x; }
11946 declares a function, not a variable. However:
11948 typedef void f();
11949 template <typename T> void g() { T t; }
11950 template void g<f>();
11952 is an attempt to declare a variable with function
11953 type. */
11954 error ("variable %qD has function type",
11955 /* R is not yet sufficiently initialized, so we
11956 just use its name. */
11957 DECL_NAME (r));
11958 RETURN (error_mark_node);
11960 type = complete_type (type);
11961 /* Wait until cp_finish_decl to set this again, to handle
11962 circular dependency (template/instantiate6.C). */
11963 DECL_INITIALIZED_BY_CONSTANT_EXPRESSION_P (r) = 0;
11964 type = check_var_type (DECL_NAME (r), type);
11966 if (DECL_HAS_VALUE_EXPR_P (t))
11968 tree ve = DECL_VALUE_EXPR (t);
11969 ve = tsubst_expr (ve, args, complain, in_decl,
11970 /*constant_expression_p=*/false);
11971 if (REFERENCE_REF_P (ve))
11973 gcc_assert (TREE_CODE (type) == REFERENCE_TYPE);
11974 ve = TREE_OPERAND (ve, 0);
11976 SET_DECL_VALUE_EXPR (r, ve);
11978 if (CP_DECL_THREAD_LOCAL_P (r)
11979 && !processing_template_decl)
11980 set_decl_tls_model (r, decl_default_tls_model (r));
11982 else if (DECL_SELF_REFERENCE_P (t))
11983 SET_DECL_SELF_REFERENCE_P (r);
11984 TREE_TYPE (r) = type;
11985 cp_apply_type_quals_to_decl (cp_type_quals (type), r);
11986 DECL_CONTEXT (r) = ctx;
11987 /* Clear out the mangled name and RTL for the instantiation. */
11988 SET_DECL_ASSEMBLER_NAME (r, NULL_TREE);
11989 if (CODE_CONTAINS_STRUCT (TREE_CODE (t), TS_DECL_WRTL))
11990 SET_DECL_RTL (r, NULL);
11991 /* The initializer must not be expanded until it is required;
11992 see [temp.inst]. */
11993 DECL_INITIAL (r) = NULL_TREE;
11994 if (CODE_CONTAINS_STRUCT (TREE_CODE (t), TS_DECL_WRTL))
11995 SET_DECL_RTL (r, NULL);
11996 DECL_SIZE (r) = DECL_SIZE_UNIT (r) = 0;
11997 if (VAR_P (r))
11999 /* Possibly limit visibility based on template args. */
12000 DECL_VISIBILITY (r) = VISIBILITY_DEFAULT;
12001 if (DECL_VISIBILITY_SPECIFIED (t))
12003 DECL_VISIBILITY_SPECIFIED (r) = 0;
12004 DECL_ATTRIBUTES (r)
12005 = remove_attribute ("visibility", DECL_ATTRIBUTES (r));
12007 determine_visibility (r);
12010 if (!local_p)
12012 /* A static data member declaration is always marked
12013 external when it is declared in-class, even if an
12014 initializer is present. We mimic the non-template
12015 processing here. */
12016 DECL_EXTERNAL (r) = 1;
12017 if (DECL_NAMESPACE_SCOPE_P (t))
12018 DECL_NOT_REALLY_EXTERN (r) = 1;
12020 DECL_TEMPLATE_INFO (r) = build_template_info (tmpl, argvec);
12021 SET_DECL_IMPLICIT_INSTANTIATION (r);
12022 register_specialization (r, gen_tmpl, argvec, false, hash);
12024 else if (!cp_unevaluated_operand)
12025 register_local_specialization (r, t);
12027 DECL_CHAIN (r) = NULL_TREE;
12029 apply_late_template_attributes (&r, DECL_ATTRIBUTES (r),
12030 /*flags=*/0,
12031 args, complain, in_decl);
12033 /* Preserve a typedef that names a type. */
12034 if (is_typedef_decl (r))
12036 DECL_ORIGINAL_TYPE (r) = NULL_TREE;
12037 set_underlying_type (r);
12038 if (TYPE_DECL_ALIAS_P (r) && type != error_mark_node)
12039 /* An alias template specialization can be dependent
12040 even if its underlying type is not. */
12041 TYPE_DEPENDENT_P_VALID (TREE_TYPE (r)) = false;
12044 layout_decl (r, 0);
12046 break;
12048 default:
12049 gcc_unreachable ();
12051 #undef RETURN
12053 out:
12054 /* Restore the file and line information. */
12055 input_location = saved_loc;
12057 return r;
12060 /* Substitute into the ARG_TYPES of a function type.
12061 If END is a TREE_CHAIN, leave it and any following types
12062 un-substituted. */
12064 static tree
12065 tsubst_arg_types (tree arg_types,
12066 tree args,
12067 tree end,
12068 tsubst_flags_t complain,
12069 tree in_decl)
12071 tree remaining_arg_types;
12072 tree type = NULL_TREE;
12073 int i = 1;
12074 tree expanded_args = NULL_TREE;
12075 tree default_arg;
12077 if (!arg_types || arg_types == void_list_node || arg_types == end)
12078 return arg_types;
12080 remaining_arg_types = tsubst_arg_types (TREE_CHAIN (arg_types),
12081 args, end, complain, in_decl);
12082 if (remaining_arg_types == error_mark_node)
12083 return error_mark_node;
12085 if (PACK_EXPANSION_P (TREE_VALUE (arg_types)))
12087 /* For a pack expansion, perform substitution on the
12088 entire expression. Later on, we'll handle the arguments
12089 one-by-one. */
12090 expanded_args = tsubst_pack_expansion (TREE_VALUE (arg_types),
12091 args, complain, in_decl);
12093 if (TREE_CODE (expanded_args) == TREE_VEC)
12094 /* So that we'll spin through the parameters, one by one. */
12095 i = TREE_VEC_LENGTH (expanded_args);
12096 else
12098 /* We only partially substituted into the parameter
12099 pack. Our type is TYPE_PACK_EXPANSION. */
12100 type = expanded_args;
12101 expanded_args = NULL_TREE;
12105 while (i > 0) {
12106 --i;
12108 if (expanded_args)
12109 type = TREE_VEC_ELT (expanded_args, i);
12110 else if (!type)
12111 type = tsubst (TREE_VALUE (arg_types), args, complain, in_decl);
12113 if (type == error_mark_node)
12114 return error_mark_node;
12115 if (VOID_TYPE_P (type))
12117 if (complain & tf_error)
12119 error ("invalid parameter type %qT", type);
12120 if (in_decl)
12121 error ("in declaration %q+D", in_decl);
12123 return error_mark_node;
12125 /* DR 657. */
12126 if (abstract_virtuals_error_sfinae (ACU_PARM, type, complain))
12127 return error_mark_node;
12129 /* Do array-to-pointer, function-to-pointer conversion, and ignore
12130 top-level qualifiers as required. */
12131 type = cv_unqualified (type_decays_to (type));
12133 /* We do not substitute into default arguments here. The standard
12134 mandates that they be instantiated only when needed, which is
12135 done in build_over_call. */
12136 default_arg = TREE_PURPOSE (arg_types);
12138 if (default_arg && TREE_CODE (default_arg) == DEFAULT_ARG)
12140 /* We've instantiated a template before its default arguments
12141 have been parsed. This can happen for a nested template
12142 class, and is not an error unless we require the default
12143 argument in a call of this function. */
12144 remaining_arg_types =
12145 tree_cons (default_arg, type, remaining_arg_types);
12146 vec_safe_push (DEFARG_INSTANTIATIONS(default_arg), remaining_arg_types);
12148 else
12149 remaining_arg_types =
12150 hash_tree_cons (default_arg, type, remaining_arg_types);
12153 return remaining_arg_types;
12156 /* Substitute into a FUNCTION_TYPE or METHOD_TYPE. This routine does
12157 *not* handle the exception-specification for FNTYPE, because the
12158 initial substitution of explicitly provided template parameters
12159 during argument deduction forbids substitution into the
12160 exception-specification:
12162 [temp.deduct]
12164 All references in the function type of the function template to the
12165 corresponding template parameters are replaced by the specified tem-
12166 plate argument values. If a substitution in a template parameter or
12167 in the function type of the function template results in an invalid
12168 type, type deduction fails. [Note: The equivalent substitution in
12169 exception specifications is done only when the function is instanti-
12170 ated, at which point a program is ill-formed if the substitution
12171 results in an invalid type.] */
12173 static tree
12174 tsubst_function_type (tree t,
12175 tree args,
12176 tsubst_flags_t complain,
12177 tree in_decl)
12179 tree return_type;
12180 tree arg_types = NULL_TREE;
12181 tree fntype;
12183 /* The TYPE_CONTEXT is not used for function/method types. */
12184 gcc_assert (TYPE_CONTEXT (t) == NULL_TREE);
12186 /* DR 1227: Mixing immediate and non-immediate contexts in deduction
12187 failure. */
12188 bool late_return_type_p = TYPE_HAS_LATE_RETURN_TYPE (t);
12190 if (late_return_type_p)
12192 /* Substitute the argument types. */
12193 arg_types = tsubst_arg_types (TYPE_ARG_TYPES (t), args, NULL_TREE,
12194 complain, in_decl);
12195 if (arg_types == error_mark_node)
12196 return error_mark_node;
12198 tree save_ccp = current_class_ptr;
12199 tree save_ccr = current_class_ref;
12200 tree this_type = (TREE_CODE (t) == METHOD_TYPE
12201 ? TREE_TYPE (TREE_VALUE (arg_types)) : NULL_TREE);
12202 bool do_inject = this_type && CLASS_TYPE_P (this_type);
12203 if (do_inject)
12205 /* DR 1207: 'this' is in scope in the trailing return type. */
12206 inject_this_parameter (this_type, cp_type_quals (this_type));
12209 /* Substitute the return type. */
12210 return_type = tsubst (TREE_TYPE (t), args, complain, in_decl);
12212 if (do_inject)
12214 current_class_ptr = save_ccp;
12215 current_class_ref = save_ccr;
12218 else
12219 /* Substitute the return type. */
12220 return_type = tsubst (TREE_TYPE (t), args, complain, in_decl);
12222 if (return_type == error_mark_node)
12223 return error_mark_node;
12224 /* DR 486 clarifies that creation of a function type with an
12225 invalid return type is a deduction failure. */
12226 if (TREE_CODE (return_type) == ARRAY_TYPE
12227 || TREE_CODE (return_type) == FUNCTION_TYPE)
12229 if (complain & tf_error)
12231 if (TREE_CODE (return_type) == ARRAY_TYPE)
12232 error ("function returning an array");
12233 else
12234 error ("function returning a function");
12236 return error_mark_node;
12238 /* And DR 657. */
12239 if (abstract_virtuals_error_sfinae (ACU_RETURN, return_type, complain))
12240 return error_mark_node;
12242 if (!late_return_type_p)
12244 /* Substitute the argument types. */
12245 arg_types = tsubst_arg_types (TYPE_ARG_TYPES (t), args, NULL_TREE,
12246 complain, in_decl);
12247 if (arg_types == error_mark_node)
12248 return error_mark_node;
12251 /* Construct a new type node and return it. */
12252 if (TREE_CODE (t) == FUNCTION_TYPE)
12254 fntype = build_function_type (return_type, arg_types);
12255 fntype = apply_memfn_quals (fntype,
12256 type_memfn_quals (t),
12257 type_memfn_rqual (t));
12259 else
12261 tree r = TREE_TYPE (TREE_VALUE (arg_types));
12262 /* Don't pick up extra function qualifiers from the basetype. */
12263 r = cp_build_qualified_type_real (r, type_memfn_quals (t), complain);
12264 if (! MAYBE_CLASS_TYPE_P (r))
12266 /* [temp.deduct]
12268 Type deduction may fail for any of the following
12269 reasons:
12271 -- Attempting to create "pointer to member of T" when T
12272 is not a class type. */
12273 if (complain & tf_error)
12274 error ("creating pointer to member function of non-class type %qT",
12276 return error_mark_node;
12279 fntype = build_method_type_directly (r, return_type,
12280 TREE_CHAIN (arg_types));
12281 fntype = build_ref_qualified_type (fntype, type_memfn_rqual (t));
12283 fntype = cp_build_type_attribute_variant (fntype, TYPE_ATTRIBUTES (t));
12285 if (late_return_type_p)
12286 TYPE_HAS_LATE_RETURN_TYPE (fntype) = 1;
12288 return fntype;
12291 /* FNTYPE is a FUNCTION_TYPE or METHOD_TYPE. Substitute the template
12292 ARGS into that specification, and return the substituted
12293 specification. If there is no specification, return NULL_TREE. */
12295 static tree
12296 tsubst_exception_specification (tree fntype,
12297 tree args,
12298 tsubst_flags_t complain,
12299 tree in_decl,
12300 bool defer_ok)
12302 tree specs;
12303 tree new_specs;
12305 specs = TYPE_RAISES_EXCEPTIONS (fntype);
12306 new_specs = NULL_TREE;
12307 if (specs && TREE_PURPOSE (specs))
12309 /* A noexcept-specifier. */
12310 tree expr = TREE_PURPOSE (specs);
12311 if (TREE_CODE (expr) == INTEGER_CST)
12312 new_specs = expr;
12313 else if (defer_ok)
12315 /* Defer instantiation of noexcept-specifiers to avoid
12316 excessive instantiations (c++/49107). */
12317 new_specs = make_node (DEFERRED_NOEXCEPT);
12318 if (DEFERRED_NOEXCEPT_SPEC_P (specs))
12320 /* We already partially instantiated this member template,
12321 so combine the new args with the old. */
12322 DEFERRED_NOEXCEPT_PATTERN (new_specs)
12323 = DEFERRED_NOEXCEPT_PATTERN (expr);
12324 DEFERRED_NOEXCEPT_ARGS (new_specs)
12325 = add_to_template_args (DEFERRED_NOEXCEPT_ARGS (expr), args);
12327 else
12329 DEFERRED_NOEXCEPT_PATTERN (new_specs) = expr;
12330 DEFERRED_NOEXCEPT_ARGS (new_specs) = args;
12333 else
12334 new_specs = tsubst_copy_and_build
12335 (expr, args, complain, in_decl, /*function_p=*/false,
12336 /*integral_constant_expression_p=*/true);
12337 new_specs = build_noexcept_spec (new_specs, complain);
12339 else if (specs)
12341 if (! TREE_VALUE (specs))
12342 new_specs = specs;
12343 else
12344 while (specs)
12346 tree spec;
12347 int i, len = 1;
12348 tree expanded_specs = NULL_TREE;
12350 if (PACK_EXPANSION_P (TREE_VALUE (specs)))
12352 /* Expand the pack expansion type. */
12353 expanded_specs = tsubst_pack_expansion (TREE_VALUE (specs),
12354 args, complain,
12355 in_decl);
12357 if (expanded_specs == error_mark_node)
12358 return error_mark_node;
12359 else if (TREE_CODE (expanded_specs) == TREE_VEC)
12360 len = TREE_VEC_LENGTH (expanded_specs);
12361 else
12363 /* We're substituting into a member template, so
12364 we got a TYPE_PACK_EXPANSION back. Add that
12365 expansion and move on. */
12366 gcc_assert (TREE_CODE (expanded_specs)
12367 == TYPE_PACK_EXPANSION);
12368 new_specs = add_exception_specifier (new_specs,
12369 expanded_specs,
12370 complain);
12371 specs = TREE_CHAIN (specs);
12372 continue;
12376 for (i = 0; i < len; ++i)
12378 if (expanded_specs)
12379 spec = TREE_VEC_ELT (expanded_specs, i);
12380 else
12381 spec = tsubst (TREE_VALUE (specs), args, complain, in_decl);
12382 if (spec == error_mark_node)
12383 return spec;
12384 new_specs = add_exception_specifier (new_specs, spec,
12385 complain);
12388 specs = TREE_CHAIN (specs);
12391 return new_specs;
12394 /* Take the tree structure T and replace template parameters used
12395 therein with the argument vector ARGS. IN_DECL is an associated
12396 decl for diagnostics. If an error occurs, returns ERROR_MARK_NODE.
12397 Issue error and warning messages under control of COMPLAIN. Note
12398 that we must be relatively non-tolerant of extensions here, in
12399 order to preserve conformance; if we allow substitutions that
12400 should not be allowed, we may allow argument deductions that should
12401 not succeed, and therefore report ambiguous overload situations
12402 where there are none. In theory, we could allow the substitution,
12403 but indicate that it should have failed, and allow our caller to
12404 make sure that the right thing happens, but we don't try to do this
12405 yet.
12407 This function is used for dealing with types, decls and the like;
12408 for expressions, use tsubst_expr or tsubst_copy. */
12410 tree
12411 tsubst (tree t, tree args, tsubst_flags_t complain, tree in_decl)
12413 enum tree_code code;
12414 tree type, r = NULL_TREE;
12416 if (t == NULL_TREE || t == error_mark_node
12417 || t == integer_type_node
12418 || t == void_type_node
12419 || t == char_type_node
12420 || t == unknown_type_node
12421 || TREE_CODE (t) == NAMESPACE_DECL
12422 || TREE_CODE (t) == TRANSLATION_UNIT_DECL)
12423 return t;
12425 if (DECL_P (t))
12426 return tsubst_decl (t, args, complain);
12428 if (args == NULL_TREE)
12429 return t;
12431 code = TREE_CODE (t);
12433 if (code == IDENTIFIER_NODE)
12434 type = IDENTIFIER_TYPE_VALUE (t);
12435 else
12436 type = TREE_TYPE (t);
12438 gcc_assert (type != unknown_type_node);
12440 /* Reuse typedefs. We need to do this to handle dependent attributes,
12441 such as attribute aligned. */
12442 if (TYPE_P (t)
12443 && typedef_variant_p (t))
12445 tree decl = TYPE_NAME (t);
12447 if (alias_template_specialization_p (t))
12449 /* DECL represents an alias template and we want to
12450 instantiate it. */
12451 tree tmpl = most_general_template (DECL_TI_TEMPLATE (decl));
12452 tree gen_args = tsubst (DECL_TI_ARGS (decl), args, complain, in_decl);
12453 r = instantiate_alias_template (tmpl, gen_args, complain);
12455 else if (DECL_CLASS_SCOPE_P (decl)
12456 && CLASSTYPE_TEMPLATE_INFO (DECL_CONTEXT (decl))
12457 && uses_template_parms (DECL_CONTEXT (decl)))
12459 tree tmpl = most_general_template (DECL_TI_TEMPLATE (decl));
12460 tree gen_args = tsubst (DECL_TI_ARGS (decl), args, complain, in_decl);
12461 r = retrieve_specialization (tmpl, gen_args, 0);
12463 else if (DECL_FUNCTION_SCOPE_P (decl)
12464 && DECL_TEMPLATE_INFO (DECL_CONTEXT (decl))
12465 && uses_template_parms (DECL_TI_ARGS (DECL_CONTEXT (decl))))
12466 r = retrieve_local_specialization (decl);
12467 else
12468 /* The typedef is from a non-template context. */
12469 return t;
12471 if (r)
12473 r = TREE_TYPE (r);
12474 r = cp_build_qualified_type_real
12475 (r, cp_type_quals (t) | cp_type_quals (r),
12476 complain | tf_ignore_bad_quals);
12477 return r;
12479 else
12481 /* We don't have an instantiation yet, so drop the typedef. */
12482 int quals = cp_type_quals (t);
12483 t = DECL_ORIGINAL_TYPE (decl);
12484 t = cp_build_qualified_type_real (t, quals,
12485 complain | tf_ignore_bad_quals);
12489 if (type
12490 && code != TYPENAME_TYPE
12491 && code != TEMPLATE_TYPE_PARM
12492 && code != IDENTIFIER_NODE
12493 && code != FUNCTION_TYPE
12494 && code != METHOD_TYPE)
12495 type = tsubst (type, args, complain, in_decl);
12496 if (type == error_mark_node)
12497 return error_mark_node;
12499 switch (code)
12501 case RECORD_TYPE:
12502 case UNION_TYPE:
12503 case ENUMERAL_TYPE:
12504 return tsubst_aggr_type (t, args, complain, in_decl,
12505 /*entering_scope=*/0);
12507 case ERROR_MARK:
12508 case IDENTIFIER_NODE:
12509 case VOID_TYPE:
12510 case REAL_TYPE:
12511 case COMPLEX_TYPE:
12512 case VECTOR_TYPE:
12513 case BOOLEAN_TYPE:
12514 case NULLPTR_TYPE:
12515 case LANG_TYPE:
12516 return t;
12518 case INTEGER_TYPE:
12519 if (t == integer_type_node)
12520 return t;
12522 if (TREE_CODE (TYPE_MIN_VALUE (t)) == INTEGER_CST
12523 && TREE_CODE (TYPE_MAX_VALUE (t)) == INTEGER_CST)
12524 return t;
12527 tree max, omax = TREE_OPERAND (TYPE_MAX_VALUE (t), 0);
12529 max = tsubst_expr (omax, args, complain, in_decl,
12530 /*integral_constant_expression_p=*/false);
12532 /* Fix up type of the magic NOP_EXPR with TREE_SIDE_EFFECTS if
12533 needed. */
12534 if (TREE_CODE (max) == NOP_EXPR
12535 && TREE_SIDE_EFFECTS (omax)
12536 && !TREE_TYPE (max))
12537 TREE_TYPE (max) = TREE_TYPE (TREE_OPERAND (max, 0));
12539 /* If we're in a partial instantiation, preserve the magic NOP_EXPR
12540 with TREE_SIDE_EFFECTS that indicates this is not an integral
12541 constant expression. */
12542 if (processing_template_decl
12543 && TREE_SIDE_EFFECTS (omax) && TREE_CODE (omax) == NOP_EXPR)
12545 gcc_assert (TREE_CODE (max) == NOP_EXPR);
12546 TREE_SIDE_EFFECTS (max) = 1;
12549 return compute_array_index_type (NULL_TREE, max, complain);
12552 case TEMPLATE_TYPE_PARM:
12553 case TEMPLATE_TEMPLATE_PARM:
12554 case BOUND_TEMPLATE_TEMPLATE_PARM:
12555 case TEMPLATE_PARM_INDEX:
12557 int idx;
12558 int level;
12559 int levels;
12560 tree arg = NULL_TREE;
12562 /* Early in template argument deduction substitution, we don't
12563 want to reduce the level of 'auto', or it will be confused
12564 with a normal template parm in subsequent deduction. */
12565 if (is_auto (t) && (complain & tf_partial))
12566 return t;
12568 r = NULL_TREE;
12570 gcc_assert (TREE_VEC_LENGTH (args) > 0);
12571 template_parm_level_and_index (t, &level, &idx);
12573 levels = TMPL_ARGS_DEPTH (args);
12574 if (level <= levels
12575 && TREE_VEC_LENGTH (TMPL_ARGS_LEVEL (args, level)) > 0)
12577 arg = TMPL_ARG (args, level, idx);
12579 if (arg && TREE_CODE (arg) == ARGUMENT_PACK_SELECT)
12581 /* See through ARGUMENT_PACK_SELECT arguments. */
12582 arg = ARGUMENT_PACK_SELECT_ARG (arg);
12583 /* If the selected argument is an expansion E, that most
12584 likely means we were called from
12585 gen_elem_of_pack_expansion_instantiation during the
12586 substituting of pack an argument pack (which Ith
12587 element is a pack expansion, where I is
12588 ARGUMENT_PACK_SELECT_INDEX) into a pack expansion.
12589 In this case, the Ith element resulting from this
12590 substituting is going to be a pack expansion, which
12591 pattern is the pattern of E. Let's return the
12592 pattern of E, and
12593 gen_elem_of_pack_expansion_instantiation will
12594 build the resulting pack expansion from it. */
12595 if (PACK_EXPANSION_P (arg))
12597 /* Make sure we aren't throwing away arg info. */
12598 gcc_assert (!PACK_EXPANSION_EXTRA_ARGS (arg));
12599 arg = PACK_EXPANSION_PATTERN (arg);
12604 if (arg == error_mark_node)
12605 return error_mark_node;
12606 else if (arg != NULL_TREE)
12608 if (ARGUMENT_PACK_P (arg))
12609 /* If ARG is an argument pack, we don't actually want to
12610 perform a substitution here, because substitutions
12611 for argument packs are only done
12612 element-by-element. We can get to this point when
12613 substituting the type of a non-type template
12614 parameter pack, when that type actually contains
12615 template parameter packs from an outer template, e.g.,
12617 template<typename... Types> struct A {
12618 template<Types... Values> struct B { };
12619 }; */
12620 return t;
12622 if (code == TEMPLATE_TYPE_PARM)
12624 int quals;
12625 gcc_assert (TYPE_P (arg));
12627 quals = cp_type_quals (arg) | cp_type_quals (t);
12629 return cp_build_qualified_type_real
12630 (arg, quals, complain | tf_ignore_bad_quals);
12632 else if (code == BOUND_TEMPLATE_TEMPLATE_PARM)
12634 /* We are processing a type constructed from a
12635 template template parameter. */
12636 tree argvec = tsubst (TYPE_TI_ARGS (t),
12637 args, complain, in_decl);
12638 if (argvec == error_mark_node)
12639 return error_mark_node;
12641 gcc_assert (TREE_CODE (arg) == TEMPLATE_TEMPLATE_PARM
12642 || TREE_CODE (arg) == TEMPLATE_DECL
12643 || TREE_CODE (arg) == UNBOUND_CLASS_TEMPLATE);
12645 if (TREE_CODE (arg) == UNBOUND_CLASS_TEMPLATE)
12646 /* Consider this code:
12648 template <template <class> class Template>
12649 struct Internal {
12650 template <class Arg> using Bind = Template<Arg>;
12653 template <template <class> class Template, class Arg>
12654 using Instantiate = Template<Arg>; //#0
12656 template <template <class> class Template,
12657 class Argument>
12658 using Bind =
12659 Instantiate<Internal<Template>::template Bind,
12660 Argument>; //#1
12662 When #1 is parsed, the
12663 BOUND_TEMPLATE_TEMPLATE_PARM representing the
12664 parameter `Template' in #0 matches the
12665 UNBOUND_CLASS_TEMPLATE representing the argument
12666 `Internal<Template>::template Bind'; We then want
12667 to assemble the type `Bind<Argument>' that can't
12668 be fully created right now, because
12669 `Internal<Template>' not being complete, the Bind
12670 template cannot be looked up in that context. So
12671 we need to "store" `Bind<Argument>' for later
12672 when the context of Bind becomes complete. Let's
12673 store that in a TYPENAME_TYPE. */
12674 return make_typename_type (TYPE_CONTEXT (arg),
12675 build_nt (TEMPLATE_ID_EXPR,
12676 TYPE_IDENTIFIER (arg),
12677 argvec),
12678 typename_type,
12679 complain);
12681 /* We can get a TEMPLATE_TEMPLATE_PARM here when we
12682 are resolving nested-types in the signature of a
12683 member function templates. Otherwise ARG is a
12684 TEMPLATE_DECL and is the real template to be
12685 instantiated. */
12686 if (TREE_CODE (arg) == TEMPLATE_TEMPLATE_PARM)
12687 arg = TYPE_NAME (arg);
12689 r = lookup_template_class (arg,
12690 argvec, in_decl,
12691 DECL_CONTEXT (arg),
12692 /*entering_scope=*/0,
12693 complain);
12694 return cp_build_qualified_type_real
12695 (r, cp_type_quals (t) | cp_type_quals (r), complain);
12697 else
12698 /* TEMPLATE_TEMPLATE_PARM or TEMPLATE_PARM_INDEX. */
12699 return convert_from_reference (unshare_expr (arg));
12702 if (level == 1)
12703 /* This can happen during the attempted tsubst'ing in
12704 unify. This means that we don't yet have any information
12705 about the template parameter in question. */
12706 return t;
12708 /* If we get here, we must have been looking at a parm for a
12709 more deeply nested template. Make a new version of this
12710 template parameter, but with a lower level. */
12711 switch (code)
12713 case TEMPLATE_TYPE_PARM:
12714 case TEMPLATE_TEMPLATE_PARM:
12715 case BOUND_TEMPLATE_TEMPLATE_PARM:
12716 if (cp_type_quals (t))
12718 r = tsubst (TYPE_MAIN_VARIANT (t), args, complain, in_decl);
12719 r = cp_build_qualified_type_real
12720 (r, cp_type_quals (t),
12721 complain | (code == TEMPLATE_TYPE_PARM
12722 ? tf_ignore_bad_quals : 0));
12724 else if (TREE_CODE (t) == TEMPLATE_TYPE_PARM
12725 && PLACEHOLDER_TYPE_CONSTRAINTS (t)
12726 && (r = (TEMPLATE_PARM_DESCENDANTS
12727 (TEMPLATE_TYPE_PARM_INDEX (t))))
12728 && (r = TREE_TYPE (r))
12729 && !PLACEHOLDER_TYPE_CONSTRAINTS (r))
12730 /* Break infinite recursion when substituting the constraints
12731 of a constrained placeholder. */;
12732 else
12734 r = copy_type (t);
12735 TEMPLATE_TYPE_PARM_INDEX (r)
12736 = reduce_template_parm_level (TEMPLATE_TYPE_PARM_INDEX (t),
12737 r, levels, args, complain);
12738 TYPE_STUB_DECL (r) = TYPE_NAME (r) = TEMPLATE_TYPE_DECL (r);
12739 TYPE_MAIN_VARIANT (r) = r;
12740 TYPE_POINTER_TO (r) = NULL_TREE;
12741 TYPE_REFERENCE_TO (r) = NULL_TREE;
12743 if (TREE_CODE (r) == TEMPLATE_TEMPLATE_PARM)
12744 /* We have reduced the level of the template
12745 template parameter, but not the levels of its
12746 template parameters, so canonical_type_parameter
12747 will not be able to find the canonical template
12748 template parameter for this level. Thus, we
12749 require structural equality checking to compare
12750 TEMPLATE_TEMPLATE_PARMs. */
12751 SET_TYPE_STRUCTURAL_EQUALITY (r);
12752 else if (TYPE_STRUCTURAL_EQUALITY_P (t))
12753 SET_TYPE_STRUCTURAL_EQUALITY (r);
12754 else
12755 TYPE_CANONICAL (r) = canonical_type_parameter (r);
12757 /* Propagate constraints on placeholders. */
12758 if (TREE_CODE (t) == TEMPLATE_TYPE_PARM)
12759 if (tree constr = PLACEHOLDER_TYPE_CONSTRAINTS (t))
12760 PLACEHOLDER_TYPE_CONSTRAINTS (r)
12761 = tsubst_constraint (constr, args, complain, in_decl);
12763 if (code == BOUND_TEMPLATE_TEMPLATE_PARM)
12765 tree argvec = tsubst (TYPE_TI_ARGS (t), args,
12766 complain, in_decl);
12767 if (argvec == error_mark_node)
12768 return error_mark_node;
12770 TEMPLATE_TEMPLATE_PARM_TEMPLATE_INFO (r)
12771 = build_template_info (TYPE_TI_TEMPLATE (t), argvec);
12774 break;
12776 case TEMPLATE_PARM_INDEX:
12777 r = reduce_template_parm_level (t, type, levels, args, complain);
12778 break;
12780 default:
12781 gcc_unreachable ();
12784 return r;
12787 case TREE_LIST:
12789 tree purpose, value, chain;
12791 if (t == void_list_node)
12792 return t;
12794 purpose = TREE_PURPOSE (t);
12795 if (purpose)
12797 purpose = tsubst (purpose, args, complain, in_decl);
12798 if (purpose == error_mark_node)
12799 return error_mark_node;
12801 value = TREE_VALUE (t);
12802 if (value)
12804 value = tsubst (value, args, complain, in_decl);
12805 if (value == error_mark_node)
12806 return error_mark_node;
12808 chain = TREE_CHAIN (t);
12809 if (chain && chain != void_type_node)
12811 chain = tsubst (chain, args, complain, in_decl);
12812 if (chain == error_mark_node)
12813 return error_mark_node;
12815 if (purpose == TREE_PURPOSE (t)
12816 && value == TREE_VALUE (t)
12817 && chain == TREE_CHAIN (t))
12818 return t;
12819 return hash_tree_cons (purpose, value, chain);
12822 case TREE_BINFO:
12823 /* We should never be tsubsting a binfo. */
12824 gcc_unreachable ();
12826 case TREE_VEC:
12827 /* A vector of template arguments. */
12828 gcc_assert (!type);
12829 return tsubst_template_args (t, args, complain, in_decl);
12831 case POINTER_TYPE:
12832 case REFERENCE_TYPE:
12834 if (type == TREE_TYPE (t) && TREE_CODE (type) != METHOD_TYPE)
12835 return t;
12837 /* [temp.deduct]
12839 Type deduction may fail for any of the following
12840 reasons:
12842 -- Attempting to create a pointer to reference type.
12843 -- Attempting to create a reference to a reference type or
12844 a reference to void.
12846 Core issue 106 says that creating a reference to a reference
12847 during instantiation is no longer a cause for failure. We
12848 only enforce this check in strict C++98 mode. */
12849 if ((TREE_CODE (type) == REFERENCE_TYPE
12850 && (((cxx_dialect == cxx98) && flag_iso) || code != REFERENCE_TYPE))
12851 || (code == REFERENCE_TYPE && VOID_TYPE_P (type)))
12853 static location_t last_loc;
12855 /* We keep track of the last time we issued this error
12856 message to avoid spewing a ton of messages during a
12857 single bad template instantiation. */
12858 if (complain & tf_error
12859 && last_loc != input_location)
12861 if (VOID_TYPE_P (type))
12862 error ("forming reference to void");
12863 else if (code == POINTER_TYPE)
12864 error ("forming pointer to reference type %qT", type);
12865 else
12866 error ("forming reference to reference type %qT", type);
12867 last_loc = input_location;
12870 return error_mark_node;
12872 else if (TREE_CODE (type) == FUNCTION_TYPE
12873 && (type_memfn_quals (type) != TYPE_UNQUALIFIED
12874 || type_memfn_rqual (type) != REF_QUAL_NONE))
12876 if (complain & tf_error)
12878 if (code == POINTER_TYPE)
12879 error ("forming pointer to qualified function type %qT",
12880 type);
12881 else
12882 error ("forming reference to qualified function type %qT",
12883 type);
12885 return error_mark_node;
12887 else if (code == POINTER_TYPE)
12889 r = build_pointer_type (type);
12890 if (TREE_CODE (type) == METHOD_TYPE)
12891 r = build_ptrmemfunc_type (r);
12893 else if (TREE_CODE (type) == REFERENCE_TYPE)
12894 /* In C++0x, during template argument substitution, when there is an
12895 attempt to create a reference to a reference type, reference
12896 collapsing is applied as described in [14.3.1/4 temp.arg.type]:
12898 "If a template-argument for a template-parameter T names a type
12899 that is a reference to a type A, an attempt to create the type
12900 'lvalue reference to cv T' creates the type 'lvalue reference to
12901 A,' while an attempt to create the type type rvalue reference to
12902 cv T' creates the type T"
12904 r = cp_build_reference_type
12905 (TREE_TYPE (type),
12906 TYPE_REF_IS_RVALUE (t) && TYPE_REF_IS_RVALUE (type));
12907 else
12908 r = cp_build_reference_type (type, TYPE_REF_IS_RVALUE (t));
12909 r = cp_build_qualified_type_real (r, cp_type_quals (t), complain);
12911 if (r != error_mark_node)
12912 /* Will this ever be needed for TYPE_..._TO values? */
12913 layout_type (r);
12915 return r;
12917 case OFFSET_TYPE:
12919 r = tsubst (TYPE_OFFSET_BASETYPE (t), args, complain, in_decl);
12920 if (r == error_mark_node || !MAYBE_CLASS_TYPE_P (r))
12922 /* [temp.deduct]
12924 Type deduction may fail for any of the following
12925 reasons:
12927 -- Attempting to create "pointer to member of T" when T
12928 is not a class type. */
12929 if (complain & tf_error)
12930 error ("creating pointer to member of non-class type %qT", r);
12931 return error_mark_node;
12933 if (TREE_CODE (type) == REFERENCE_TYPE)
12935 if (complain & tf_error)
12936 error ("creating pointer to member reference type %qT", type);
12937 return error_mark_node;
12939 if (VOID_TYPE_P (type))
12941 if (complain & tf_error)
12942 error ("creating pointer to member of type void");
12943 return error_mark_node;
12945 gcc_assert (TREE_CODE (type) != METHOD_TYPE);
12946 if (TREE_CODE (type) == FUNCTION_TYPE)
12948 /* The type of the implicit object parameter gets its
12949 cv-qualifiers from the FUNCTION_TYPE. */
12950 tree memptr;
12951 tree method_type
12952 = build_memfn_type (type, r, type_memfn_quals (type),
12953 type_memfn_rqual (type));
12954 memptr = build_ptrmemfunc_type (build_pointer_type (method_type));
12955 return cp_build_qualified_type_real (memptr, cp_type_quals (t),
12956 complain);
12958 else
12959 return cp_build_qualified_type_real (build_ptrmem_type (r, type),
12960 cp_type_quals (t),
12961 complain);
12963 case FUNCTION_TYPE:
12964 case METHOD_TYPE:
12966 tree fntype;
12967 tree specs;
12968 fntype = tsubst_function_type (t, args, complain, in_decl);
12969 if (fntype == error_mark_node)
12970 return error_mark_node;
12972 /* Substitute the exception specification. */
12973 specs = tsubst_exception_specification (t, args, complain,
12974 in_decl, /*defer_ok*/true);
12975 if (specs == error_mark_node)
12976 return error_mark_node;
12977 if (specs)
12978 fntype = build_exception_variant (fntype, specs);
12979 return fntype;
12981 case ARRAY_TYPE:
12983 tree domain = tsubst (TYPE_DOMAIN (t), args, complain, in_decl);
12984 if (domain == error_mark_node)
12985 return error_mark_node;
12987 /* As an optimization, we avoid regenerating the array type if
12988 it will obviously be the same as T. */
12989 if (type == TREE_TYPE (t) && domain == TYPE_DOMAIN (t))
12990 return t;
12992 /* These checks should match the ones in create_array_type_for_decl.
12994 [temp.deduct]
12996 The deduction may fail for any of the following reasons:
12998 -- Attempting to create an array with an element type that
12999 is void, a function type, or a reference type, or [DR337]
13000 an abstract class type. */
13001 if (VOID_TYPE_P (type)
13002 || TREE_CODE (type) == FUNCTION_TYPE
13003 || (TREE_CODE (type) == ARRAY_TYPE
13004 && TYPE_DOMAIN (type) == NULL_TREE)
13005 || TREE_CODE (type) == REFERENCE_TYPE)
13007 if (complain & tf_error)
13008 error ("creating array of %qT", type);
13009 return error_mark_node;
13012 if (abstract_virtuals_error_sfinae (ACU_ARRAY, type, complain))
13013 return error_mark_node;
13015 r = build_cplus_array_type (type, domain);
13017 if (TYPE_USER_ALIGN (t))
13019 TYPE_ALIGN (r) = TYPE_ALIGN (t);
13020 TYPE_USER_ALIGN (r) = 1;
13023 return r;
13026 case TYPENAME_TYPE:
13028 tree ctx = tsubst_aggr_type (TYPE_CONTEXT (t), args, complain,
13029 in_decl, /*entering_scope=*/1);
13030 tree f = tsubst_copy (TYPENAME_TYPE_FULLNAME (t), args,
13031 complain, in_decl);
13033 if (ctx == error_mark_node || f == error_mark_node)
13034 return error_mark_node;
13036 if (!MAYBE_CLASS_TYPE_P (ctx))
13038 if (complain & tf_error)
13039 error ("%qT is not a class, struct, or union type", ctx);
13040 return error_mark_node;
13042 else if (!uses_template_parms (ctx) && !TYPE_BEING_DEFINED (ctx))
13044 /* Normally, make_typename_type does not require that the CTX
13045 have complete type in order to allow things like:
13047 template <class T> struct S { typename S<T>::X Y; };
13049 But, such constructs have already been resolved by this
13050 point, so here CTX really should have complete type, unless
13051 it's a partial instantiation. */
13052 ctx = complete_type (ctx);
13053 if (!COMPLETE_TYPE_P (ctx))
13055 if (complain & tf_error)
13056 cxx_incomplete_type_error (NULL_TREE, ctx);
13057 return error_mark_node;
13061 f = make_typename_type (ctx, f, typename_type,
13062 complain | tf_keep_type_decl);
13063 if (f == error_mark_node)
13064 return f;
13065 if (TREE_CODE (f) == TYPE_DECL)
13067 complain |= tf_ignore_bad_quals;
13068 f = TREE_TYPE (f);
13071 if (TREE_CODE (f) != TYPENAME_TYPE)
13073 if (TYPENAME_IS_ENUM_P (t) && TREE_CODE (f) != ENUMERAL_TYPE)
13075 if (complain & tf_error)
13076 error ("%qT resolves to %qT, which is not an enumeration type",
13077 t, f);
13078 else
13079 return error_mark_node;
13081 else if (TYPENAME_IS_CLASS_P (t) && !CLASS_TYPE_P (f))
13083 if (complain & tf_error)
13084 error ("%qT resolves to %qT, which is is not a class type",
13085 t, f);
13086 else
13087 return error_mark_node;
13091 return cp_build_qualified_type_real
13092 (f, cp_type_quals (f) | cp_type_quals (t), complain);
13095 case UNBOUND_CLASS_TEMPLATE:
13097 tree ctx = tsubst_aggr_type (TYPE_CONTEXT (t), args, complain,
13098 in_decl, /*entering_scope=*/1);
13099 tree name = TYPE_IDENTIFIER (t);
13100 tree parm_list = DECL_TEMPLATE_PARMS (TYPE_NAME (t));
13102 if (ctx == error_mark_node || name == error_mark_node)
13103 return error_mark_node;
13105 if (parm_list)
13106 parm_list = tsubst_template_parms (parm_list, args, complain);
13107 return make_unbound_class_template (ctx, name, parm_list, complain);
13110 case TYPEOF_TYPE:
13112 tree type;
13114 ++cp_unevaluated_operand;
13115 ++c_inhibit_evaluation_warnings;
13117 type = tsubst_expr (TYPEOF_TYPE_EXPR (t), args,
13118 complain, in_decl,
13119 /*integral_constant_expression_p=*/false);
13121 --cp_unevaluated_operand;
13122 --c_inhibit_evaluation_warnings;
13124 type = finish_typeof (type);
13125 return cp_build_qualified_type_real (type,
13126 cp_type_quals (t)
13127 | cp_type_quals (type),
13128 complain);
13131 case DECLTYPE_TYPE:
13133 tree type;
13135 ++cp_unevaluated_operand;
13136 ++c_inhibit_evaluation_warnings;
13138 type = tsubst_copy_and_build (DECLTYPE_TYPE_EXPR (t), args,
13139 complain|tf_decltype, in_decl,
13140 /*function_p*/false,
13141 /*integral_constant_expression*/false);
13143 --cp_unevaluated_operand;
13144 --c_inhibit_evaluation_warnings;
13146 if (DECLTYPE_FOR_LAMBDA_CAPTURE (t))
13147 type = lambda_capture_field_type (type,
13148 DECLTYPE_FOR_INIT_CAPTURE (t));
13149 else if (DECLTYPE_FOR_LAMBDA_PROXY (t))
13150 type = lambda_proxy_type (type);
13151 else
13153 bool id = DECLTYPE_TYPE_ID_EXPR_OR_MEMBER_ACCESS_P (t);
13154 if (id && TREE_CODE (DECLTYPE_TYPE_EXPR (t)) == BIT_NOT_EXPR
13155 && EXPR_P (type))
13156 /* In a template ~id could be either a complement expression
13157 or an unqualified-id naming a destructor; if instantiating
13158 it produces an expression, it's not an id-expression or
13159 member access. */
13160 id = false;
13161 type = finish_decltype_type (type, id, complain);
13163 return cp_build_qualified_type_real (type,
13164 cp_type_quals (t)
13165 | cp_type_quals (type),
13166 complain | tf_ignore_bad_quals);
13169 case UNDERLYING_TYPE:
13171 tree type = tsubst (UNDERLYING_TYPE_TYPE (t), args,
13172 complain, in_decl);
13173 return finish_underlying_type (type);
13176 case TYPE_ARGUMENT_PACK:
13177 case NONTYPE_ARGUMENT_PACK:
13179 tree r = TYPE_P (t) ? cxx_make_type (code) : make_node (code);
13180 tree packed_out =
13181 tsubst_template_args (ARGUMENT_PACK_ARGS (t),
13182 args,
13183 complain,
13184 in_decl);
13185 SET_ARGUMENT_PACK_ARGS (r, packed_out);
13187 /* For template nontype argument packs, also substitute into
13188 the type. */
13189 if (code == NONTYPE_ARGUMENT_PACK)
13190 TREE_TYPE (r) = tsubst (TREE_TYPE (t), args, complain, in_decl);
13192 return r;
13194 break;
13196 case VOID_CST:
13197 case INTEGER_CST:
13198 case REAL_CST:
13199 case STRING_CST:
13200 case PLUS_EXPR:
13201 case MINUS_EXPR:
13202 case NEGATE_EXPR:
13203 case NOP_EXPR:
13204 case INDIRECT_REF:
13205 case ADDR_EXPR:
13206 case CALL_EXPR:
13207 case ARRAY_REF:
13208 case SCOPE_REF:
13209 /* We should use one of the expression tsubsts for these codes. */
13210 gcc_unreachable ();
13212 default:
13213 sorry ("use of %qs in template", get_tree_code_name (code));
13214 return error_mark_node;
13218 /* Like tsubst_expr for a BASELINK. OBJECT_TYPE, if non-NULL, is the
13219 type of the expression on the left-hand side of the "." or "->"
13220 operator. */
13222 static tree
13223 tsubst_baselink (tree baselink, tree object_type,
13224 tree args, tsubst_flags_t complain, tree in_decl)
13226 tree name;
13227 tree qualifying_scope;
13228 tree fns;
13229 tree optype;
13230 tree template_args = 0;
13231 bool template_id_p = false;
13232 bool qualified = BASELINK_QUALIFIED_P (baselink);
13234 /* A baselink indicates a function from a base class. Both the
13235 BASELINK_ACCESS_BINFO and the base class referenced may
13236 indicate bases of the template class, rather than the
13237 instantiated class. In addition, lookups that were not
13238 ambiguous before may be ambiguous now. Therefore, we perform
13239 the lookup again. */
13240 qualifying_scope = BINFO_TYPE (BASELINK_ACCESS_BINFO (baselink));
13241 qualifying_scope = tsubst (qualifying_scope, args,
13242 complain, in_decl);
13243 fns = BASELINK_FUNCTIONS (baselink);
13244 optype = tsubst (BASELINK_OPTYPE (baselink), args, complain, in_decl);
13245 if (TREE_CODE (fns) == TEMPLATE_ID_EXPR)
13247 template_id_p = true;
13248 template_args = TREE_OPERAND (fns, 1);
13249 fns = TREE_OPERAND (fns, 0);
13250 if (template_args)
13251 template_args = tsubst_template_args (template_args, args,
13252 complain, in_decl);
13254 name = DECL_NAME (get_first_fn (fns));
13255 if (IDENTIFIER_TYPENAME_P (name))
13256 name = mangle_conv_op_name_for_type (optype);
13257 baselink = lookup_fnfields (qualifying_scope, name, /*protect=*/1);
13258 if (!baselink)
13259 return error_mark_node;
13261 /* If lookup found a single function, mark it as used at this
13262 point. (If it lookup found multiple functions the one selected
13263 later by overload resolution will be marked as used at that
13264 point.) */
13265 if (BASELINK_P (baselink))
13266 fns = BASELINK_FUNCTIONS (baselink);
13267 if (!template_id_p && !really_overloaded_fn (fns)
13268 && !mark_used (OVL_CURRENT (fns), complain) && !(complain & tf_error))
13269 return error_mark_node;
13271 /* Add back the template arguments, if present. */
13272 if (BASELINK_P (baselink) && template_id_p)
13273 BASELINK_FUNCTIONS (baselink)
13274 = build_nt (TEMPLATE_ID_EXPR,
13275 BASELINK_FUNCTIONS (baselink),
13276 template_args);
13277 /* Update the conversion operator type. */
13278 BASELINK_OPTYPE (baselink) = optype;
13280 if (!object_type)
13281 object_type = current_class_type;
13283 if (qualified)
13284 baselink = adjust_result_of_qualified_name_lookup (baselink,
13285 qualifying_scope,
13286 object_type);
13287 return baselink;
13290 /* Like tsubst_expr for a SCOPE_REF, given by QUALIFIED_ID. DONE is
13291 true if the qualified-id will be a postfix-expression in-and-of
13292 itself; false if more of the postfix-expression follows the
13293 QUALIFIED_ID. ADDRESS_P is true if the qualified-id is the operand
13294 of "&". */
13296 static tree
13297 tsubst_qualified_id (tree qualified_id, tree args,
13298 tsubst_flags_t complain, tree in_decl,
13299 bool done, bool address_p)
13301 tree expr;
13302 tree scope;
13303 tree name;
13304 bool is_template;
13305 tree template_args;
13306 location_t loc = UNKNOWN_LOCATION;
13308 gcc_assert (TREE_CODE (qualified_id) == SCOPE_REF);
13310 /* Figure out what name to look up. */
13311 name = TREE_OPERAND (qualified_id, 1);
13312 if (TREE_CODE (name) == TEMPLATE_ID_EXPR)
13314 is_template = true;
13315 loc = EXPR_LOCATION (name);
13316 template_args = TREE_OPERAND (name, 1);
13317 if (template_args)
13318 template_args = tsubst_template_args (template_args, args,
13319 complain, in_decl);
13320 name = TREE_OPERAND (name, 0);
13322 else
13324 is_template = false;
13325 template_args = NULL_TREE;
13328 /* Substitute into the qualifying scope. When there are no ARGS, we
13329 are just trying to simplify a non-dependent expression. In that
13330 case the qualifying scope may be dependent, and, in any case,
13331 substituting will not help. */
13332 scope = TREE_OPERAND (qualified_id, 0);
13333 if (args)
13335 scope = tsubst (scope, args, complain, in_decl);
13336 expr = tsubst_copy (name, args, complain, in_decl);
13338 else
13339 expr = name;
13341 if (dependent_scope_p (scope))
13343 if (is_template)
13344 expr = build_min_nt_loc (loc, TEMPLATE_ID_EXPR, expr, template_args);
13345 return build_qualified_name (NULL_TREE, scope, expr,
13346 QUALIFIED_NAME_IS_TEMPLATE (qualified_id));
13349 if (!BASELINK_P (name) && !DECL_P (expr))
13351 if (TREE_CODE (expr) == BIT_NOT_EXPR)
13353 /* A BIT_NOT_EXPR is used to represent a destructor. */
13354 if (!check_dtor_name (scope, TREE_OPERAND (expr, 0)))
13356 error ("qualifying type %qT does not match destructor name ~%qT",
13357 scope, TREE_OPERAND (expr, 0));
13358 expr = error_mark_node;
13360 else
13361 expr = lookup_qualified_name (scope, complete_dtor_identifier,
13362 /*is_type_p=*/0, false);
13364 else
13365 expr = lookup_qualified_name (scope, expr, /*is_type_p=*/0, false);
13366 if (TREE_CODE (TREE_CODE (expr) == TEMPLATE_DECL
13367 ? DECL_TEMPLATE_RESULT (expr) : expr) == TYPE_DECL)
13369 if (complain & tf_error)
13371 error ("dependent-name %qE is parsed as a non-type, but "
13372 "instantiation yields a type", qualified_id);
13373 inform (input_location, "say %<typename %E%> if a type is meant", qualified_id);
13375 return error_mark_node;
13379 if (DECL_P (expr))
13381 check_accessibility_of_qualified_id (expr, /*object_type=*/NULL_TREE,
13382 scope);
13383 /* Remember that there was a reference to this entity. */
13384 if (!mark_used (expr, complain) && !(complain & tf_error))
13385 return error_mark_node;
13388 if (expr == error_mark_node || TREE_CODE (expr) == TREE_LIST)
13390 if (complain & tf_error)
13391 qualified_name_lookup_error (scope,
13392 TREE_OPERAND (qualified_id, 1),
13393 expr, input_location);
13394 return error_mark_node;
13397 if (is_template)
13398 expr = lookup_template_function (expr, template_args);
13400 if (expr == error_mark_node && complain & tf_error)
13401 qualified_name_lookup_error (scope, TREE_OPERAND (qualified_id, 1),
13402 expr, input_location);
13403 else if (TYPE_P (scope))
13405 expr = (adjust_result_of_qualified_name_lookup
13406 (expr, scope, current_nonlambda_class_type ()));
13407 expr = (finish_qualified_id_expr
13408 (scope, expr, done, address_p && PTRMEM_OK_P (qualified_id),
13409 QUALIFIED_NAME_IS_TEMPLATE (qualified_id),
13410 /*template_arg_p=*/false, complain));
13413 /* Expressions do not generally have reference type. */
13414 if (TREE_CODE (expr) != SCOPE_REF
13415 /* However, if we're about to form a pointer-to-member, we just
13416 want the referenced member referenced. */
13417 && TREE_CODE (expr) != OFFSET_REF)
13418 expr = convert_from_reference (expr);
13420 return expr;
13423 /* tsubst the initializer for a VAR_DECL. INIT is the unsubstituted
13424 initializer, DECL is the substituted VAR_DECL. Other arguments are as
13425 for tsubst. */
13427 static tree
13428 tsubst_init (tree init, tree decl, tree args,
13429 tsubst_flags_t complain, tree in_decl)
13431 if (!init)
13432 return NULL_TREE;
13434 init = tsubst_expr (init, args, complain, in_decl, false);
13436 if (!init)
13438 /* If we had an initializer but it
13439 instantiated to nothing,
13440 value-initialize the object. This will
13441 only occur when the initializer was a
13442 pack expansion where the parameter packs
13443 used in that expansion were of length
13444 zero. */
13445 init = build_value_init (TREE_TYPE (decl),
13446 complain);
13447 if (TREE_CODE (init) == AGGR_INIT_EXPR)
13448 init = get_target_expr_sfinae (init, complain);
13451 return init;
13454 /* Like tsubst, but deals with expressions. This function just replaces
13455 template parms; to finish processing the resultant expression, use
13456 tsubst_copy_and_build or tsubst_expr. */
13458 static tree
13459 tsubst_copy (tree t, tree args, tsubst_flags_t complain, tree in_decl)
13461 enum tree_code code;
13462 tree r;
13464 if (t == NULL_TREE || t == error_mark_node || args == NULL_TREE)
13465 return t;
13467 code = TREE_CODE (t);
13469 switch (code)
13471 case PARM_DECL:
13472 r = retrieve_local_specialization (t);
13474 if (r == NULL_TREE)
13476 /* We get here for a use of 'this' in an NSDMI. */
13477 if (DECL_NAME (t) == this_identifier
13478 && current_function_decl
13479 && DECL_CONSTRUCTOR_P (current_function_decl))
13480 return current_class_ptr;
13482 /* This can happen for a parameter name used later in a function
13483 declaration (such as in a late-specified return type). Just
13484 make a dummy decl, since it's only used for its type. */
13485 gcc_assert (cp_unevaluated_operand != 0);
13486 r = tsubst_decl (t, args, complain);
13487 /* Give it the template pattern as its context; its true context
13488 hasn't been instantiated yet and this is good enough for
13489 mangling. */
13490 DECL_CONTEXT (r) = DECL_CONTEXT (t);
13493 if (TREE_CODE (r) == ARGUMENT_PACK_SELECT)
13494 r = ARGUMENT_PACK_SELECT_ARG (r);
13495 if (!mark_used (r, complain) && !(complain & tf_error))
13496 return error_mark_node;
13497 return r;
13499 case CONST_DECL:
13501 tree enum_type;
13502 tree v;
13504 if (DECL_TEMPLATE_PARM_P (t))
13505 return tsubst_copy (DECL_INITIAL (t), args, complain, in_decl);
13506 /* There is no need to substitute into namespace-scope
13507 enumerators. */
13508 if (DECL_NAMESPACE_SCOPE_P (t))
13509 return t;
13510 /* If ARGS is NULL, then T is known to be non-dependent. */
13511 if (args == NULL_TREE)
13512 return scalar_constant_value (t);
13514 /* Unfortunately, we cannot just call lookup_name here.
13515 Consider:
13517 template <int I> int f() {
13518 enum E { a = I };
13519 struct S { void g() { E e = a; } };
13522 When we instantiate f<7>::S::g(), say, lookup_name is not
13523 clever enough to find f<7>::a. */
13524 enum_type
13525 = tsubst_aggr_type (DECL_CONTEXT (t), args, complain, in_decl,
13526 /*entering_scope=*/0);
13528 for (v = TYPE_VALUES (enum_type);
13529 v != NULL_TREE;
13530 v = TREE_CHAIN (v))
13531 if (TREE_PURPOSE (v) == DECL_NAME (t))
13532 return TREE_VALUE (v);
13534 /* We didn't find the name. That should never happen; if
13535 name-lookup found it during preliminary parsing, we
13536 should find it again here during instantiation. */
13537 gcc_unreachable ();
13539 return t;
13541 case FIELD_DECL:
13542 if (PACK_EXPANSION_P (TREE_TYPE (t)))
13544 /* Check for a local specialization set up by
13545 tsubst_pack_expansion. */
13546 if (tree r = retrieve_local_specialization (t))
13548 if (TREE_CODE (r) == ARGUMENT_PACK_SELECT)
13549 r = ARGUMENT_PACK_SELECT_ARG (r);
13550 return r;
13553 /* When retrieving a capture pack from a generic lambda, remove the
13554 lambda call op's own template argument list from ARGS. Only the
13555 template arguments active for the closure type should be used to
13556 retrieve the pack specialization. */
13557 if (LAMBDA_FUNCTION_P (current_function_decl)
13558 && (template_class_depth (DECL_CONTEXT (t))
13559 != TMPL_ARGS_DEPTH (args)))
13560 args = strip_innermost_template_args (args, 1);
13562 /* Otherwise return the full NONTYPE_ARGUMENT_PACK that
13563 tsubst_decl put in the hash table. */
13564 return retrieve_specialization (t, args, 0);
13567 if (DECL_CONTEXT (t))
13569 tree ctx;
13571 ctx = tsubst_aggr_type (DECL_CONTEXT (t), args, complain, in_decl,
13572 /*entering_scope=*/1);
13573 if (ctx != DECL_CONTEXT (t))
13575 tree r = lookup_field (ctx, DECL_NAME (t), 0, false);
13576 if (!r)
13578 if (complain & tf_error)
13579 error ("using invalid field %qD", t);
13580 return error_mark_node;
13582 return r;
13586 return t;
13588 case VAR_DECL:
13589 case FUNCTION_DECL:
13590 if (DECL_LANG_SPECIFIC (t) && DECL_TEMPLATE_INFO (t))
13591 r = tsubst (t, args, complain, in_decl);
13592 else if (local_variable_p (t))
13594 r = retrieve_local_specialization (t);
13595 if (r == NULL_TREE)
13597 /* First try name lookup to find the instantiation. */
13598 r = lookup_name (DECL_NAME (t));
13599 if (r)
13601 /* Make sure that the one we found is the one we want. */
13602 tree ctx = tsubst (DECL_CONTEXT (t), args,
13603 complain, in_decl);
13604 if (ctx != DECL_CONTEXT (r))
13605 r = NULL_TREE;
13608 if (r)
13609 /* OK */;
13610 else
13612 /* This can happen for a variable used in a
13613 late-specified return type of a local lambda, or for a
13614 local static or constant. Building a new VAR_DECL
13615 should be OK in all those cases. */
13616 r = tsubst_decl (t, args, complain);
13617 if (decl_maybe_constant_var_p (r))
13619 /* We can't call cp_finish_decl, so handle the
13620 initializer by hand. */
13621 tree init = tsubst_init (DECL_INITIAL (t), r, args,
13622 complain, in_decl);
13623 if (!processing_template_decl)
13624 init = maybe_constant_init (init);
13625 if (processing_template_decl
13626 ? potential_constant_expression (init)
13627 : reduced_constant_expression_p (init))
13628 DECL_INITIALIZED_BY_CONSTANT_EXPRESSION_P (r)
13629 = TREE_CONSTANT (r) = true;
13630 DECL_INITIAL (r) = init;
13632 gcc_assert (cp_unevaluated_operand || TREE_STATIC (r)
13633 || decl_constant_var_p (r)
13634 || errorcount || sorrycount);
13635 if (!processing_template_decl)
13637 if (TREE_STATIC (r))
13638 rest_of_decl_compilation (r, toplevel_bindings_p (),
13639 at_eof);
13640 else
13641 r = process_outer_var_ref (r, complain);
13644 /* Remember this for subsequent uses. */
13645 if (local_specializations)
13646 register_local_specialization (r, t);
13649 else
13650 r = t;
13651 if (!mark_used (r, complain) && !(complain & tf_error))
13652 return error_mark_node;
13653 return r;
13655 case NAMESPACE_DECL:
13656 return t;
13658 case OVERLOAD:
13659 /* An OVERLOAD will always be a non-dependent overload set; an
13660 overload set from function scope will just be represented with an
13661 IDENTIFIER_NODE, and from class scope with a BASELINK. */
13662 gcc_assert (!uses_template_parms (t));
13663 return t;
13665 case BASELINK:
13666 return tsubst_baselink (t, current_nonlambda_class_type (),
13667 args, complain, in_decl);
13669 case TEMPLATE_DECL:
13670 if (DECL_TEMPLATE_TEMPLATE_PARM_P (t))
13671 return tsubst (TREE_TYPE (DECL_TEMPLATE_RESULT (t)),
13672 args, complain, in_decl);
13673 else if (DECL_FUNCTION_TEMPLATE_P (t) && DECL_MEMBER_TEMPLATE_P (t))
13674 return tsubst (t, args, complain, in_decl);
13675 else if (DECL_CLASS_SCOPE_P (t)
13676 && uses_template_parms (DECL_CONTEXT (t)))
13678 /* Template template argument like the following example need
13679 special treatment:
13681 template <template <class> class TT> struct C {};
13682 template <class T> struct D {
13683 template <class U> struct E {};
13684 C<E> c; // #1
13686 D<int> d; // #2
13688 We are processing the template argument `E' in #1 for
13689 the template instantiation #2. Originally, `E' is a
13690 TEMPLATE_DECL with `D<T>' as its DECL_CONTEXT. Now we
13691 have to substitute this with one having context `D<int>'. */
13693 tree context = tsubst (DECL_CONTEXT (t), args, complain, in_decl);
13694 return lookup_field (context, DECL_NAME(t), 0, false);
13696 else
13697 /* Ordinary template template argument. */
13698 return t;
13700 case CAST_EXPR:
13701 case REINTERPRET_CAST_EXPR:
13702 case CONST_CAST_EXPR:
13703 case STATIC_CAST_EXPR:
13704 case DYNAMIC_CAST_EXPR:
13705 case IMPLICIT_CONV_EXPR:
13706 case CONVERT_EXPR:
13707 case NOP_EXPR:
13709 tree type = tsubst (TREE_TYPE (t), args, complain, in_decl);
13710 tree op0 = tsubst_copy (TREE_OPERAND (t, 0), args, complain, in_decl);
13711 return build1 (code, type, op0);
13714 case SIZEOF_EXPR:
13715 if (PACK_EXPANSION_P (TREE_OPERAND (t, 0)))
13718 tree expanded, op = TREE_OPERAND (t, 0);
13719 int len = 0;
13721 if (SIZEOF_EXPR_TYPE_P (t))
13722 op = TREE_TYPE (op);
13724 ++cp_unevaluated_operand;
13725 ++c_inhibit_evaluation_warnings;
13726 /* We only want to compute the number of arguments. */
13727 expanded = tsubst_pack_expansion (op, args, complain, in_decl);
13728 --cp_unevaluated_operand;
13729 --c_inhibit_evaluation_warnings;
13731 if (TREE_CODE (expanded) == TREE_VEC)
13732 len = TREE_VEC_LENGTH (expanded);
13734 if (expanded == error_mark_node)
13735 return error_mark_node;
13736 else if (PACK_EXPANSION_P (expanded)
13737 || (TREE_CODE (expanded) == TREE_VEC
13738 && len > 0
13739 && PACK_EXPANSION_P (TREE_VEC_ELT (expanded, len-1))))
13741 if (TREE_CODE (expanded) == TREE_VEC)
13742 expanded = TREE_VEC_ELT (expanded, len - 1);
13744 if (TYPE_P (expanded))
13745 return cxx_sizeof_or_alignof_type (expanded, SIZEOF_EXPR,
13746 complain & tf_error);
13747 else
13748 return cxx_sizeof_or_alignof_expr (expanded, SIZEOF_EXPR,
13749 complain & tf_error);
13751 else
13752 return build_int_cst (size_type_node, len);
13754 if (SIZEOF_EXPR_TYPE_P (t))
13756 r = tsubst (TREE_TYPE (TREE_OPERAND (t, 0)),
13757 args, complain, in_decl);
13758 r = build1 (NOP_EXPR, r, error_mark_node);
13759 r = build1 (SIZEOF_EXPR,
13760 tsubst (TREE_TYPE (t), args, complain, in_decl), r);
13761 SIZEOF_EXPR_TYPE_P (r) = 1;
13762 return r;
13764 /* Fall through */
13766 case INDIRECT_REF:
13767 case NEGATE_EXPR:
13768 case TRUTH_NOT_EXPR:
13769 case BIT_NOT_EXPR:
13770 case ADDR_EXPR:
13771 case UNARY_PLUS_EXPR: /* Unary + */
13772 case ALIGNOF_EXPR:
13773 case AT_ENCODE_EXPR:
13774 case ARROW_EXPR:
13775 case THROW_EXPR:
13776 case TYPEID_EXPR:
13777 case REALPART_EXPR:
13778 case IMAGPART_EXPR:
13779 case PAREN_EXPR:
13781 tree type = tsubst (TREE_TYPE (t), args, complain, in_decl);
13782 tree op0 = tsubst_copy (TREE_OPERAND (t, 0), args, complain, in_decl);
13783 return build1 (code, type, op0);
13786 case COMPONENT_REF:
13788 tree object;
13789 tree name;
13791 object = tsubst_copy (TREE_OPERAND (t, 0), args, complain, in_decl);
13792 name = TREE_OPERAND (t, 1);
13793 if (TREE_CODE (name) == BIT_NOT_EXPR)
13795 name = tsubst_copy (TREE_OPERAND (name, 0), args,
13796 complain, in_decl);
13797 name = build1 (BIT_NOT_EXPR, NULL_TREE, name);
13799 else if (TREE_CODE (name) == SCOPE_REF
13800 && TREE_CODE (TREE_OPERAND (name, 1)) == BIT_NOT_EXPR)
13802 tree base = tsubst_copy (TREE_OPERAND (name, 0), args,
13803 complain, in_decl);
13804 name = TREE_OPERAND (name, 1);
13805 name = tsubst_copy (TREE_OPERAND (name, 0), args,
13806 complain, in_decl);
13807 name = build1 (BIT_NOT_EXPR, NULL_TREE, name);
13808 name = build_qualified_name (/*type=*/NULL_TREE,
13809 base, name,
13810 /*template_p=*/false);
13812 else if (BASELINK_P (name))
13813 name = tsubst_baselink (name,
13814 non_reference (TREE_TYPE (object)),
13815 args, complain,
13816 in_decl);
13817 else
13818 name = tsubst_copy (name, args, complain, in_decl);
13819 return build_nt (COMPONENT_REF, object, name, NULL_TREE);
13822 case PLUS_EXPR:
13823 case MINUS_EXPR:
13824 case MULT_EXPR:
13825 case TRUNC_DIV_EXPR:
13826 case CEIL_DIV_EXPR:
13827 case FLOOR_DIV_EXPR:
13828 case ROUND_DIV_EXPR:
13829 case EXACT_DIV_EXPR:
13830 case BIT_AND_EXPR:
13831 case BIT_IOR_EXPR:
13832 case BIT_XOR_EXPR:
13833 case TRUNC_MOD_EXPR:
13834 case FLOOR_MOD_EXPR:
13835 case TRUTH_ANDIF_EXPR:
13836 case TRUTH_ORIF_EXPR:
13837 case TRUTH_AND_EXPR:
13838 case TRUTH_OR_EXPR:
13839 case RSHIFT_EXPR:
13840 case LSHIFT_EXPR:
13841 case RROTATE_EXPR:
13842 case LROTATE_EXPR:
13843 case EQ_EXPR:
13844 case NE_EXPR:
13845 case MAX_EXPR:
13846 case MIN_EXPR:
13847 case LE_EXPR:
13848 case GE_EXPR:
13849 case LT_EXPR:
13850 case GT_EXPR:
13851 case COMPOUND_EXPR:
13852 case DOTSTAR_EXPR:
13853 case MEMBER_REF:
13854 case PREDECREMENT_EXPR:
13855 case PREINCREMENT_EXPR:
13856 case POSTDECREMENT_EXPR:
13857 case POSTINCREMENT_EXPR:
13859 tree op0 = tsubst_copy (TREE_OPERAND (t, 0), args, complain, in_decl);
13860 tree op1 = tsubst_copy (TREE_OPERAND (t, 1), args, complain, in_decl);
13861 return build_nt (code, op0, op1);
13864 case SCOPE_REF:
13866 tree op0 = tsubst_copy (TREE_OPERAND (t, 0), args, complain, in_decl);
13867 tree op1 = tsubst_copy (TREE_OPERAND (t, 1), args, complain, in_decl);
13868 return build_qualified_name (/*type=*/NULL_TREE, op0, op1,
13869 QUALIFIED_NAME_IS_TEMPLATE (t));
13872 case ARRAY_REF:
13874 tree op0 = tsubst_copy (TREE_OPERAND (t, 0), args, complain, in_decl);
13875 tree op1 = tsubst_copy (TREE_OPERAND (t, 1), args, complain, in_decl);
13876 return build_nt (ARRAY_REF, op0, op1, NULL_TREE, NULL_TREE);
13879 case CALL_EXPR:
13881 int n = VL_EXP_OPERAND_LENGTH (t);
13882 tree result = build_vl_exp (CALL_EXPR, n);
13883 int i;
13884 for (i = 0; i < n; i++)
13885 TREE_OPERAND (t, i) = tsubst_copy (TREE_OPERAND (t, i), args,
13886 complain, in_decl);
13887 return result;
13890 case COND_EXPR:
13891 case MODOP_EXPR:
13892 case PSEUDO_DTOR_EXPR:
13893 case VEC_PERM_EXPR:
13895 tree op0 = tsubst_copy (TREE_OPERAND (t, 0), args, complain, in_decl);
13896 tree op1 = tsubst_copy (TREE_OPERAND (t, 1), args, complain, in_decl);
13897 tree op2 = tsubst_copy (TREE_OPERAND (t, 2), args, complain, in_decl);
13898 r = build_nt (code, op0, op1, op2);
13899 TREE_NO_WARNING (r) = TREE_NO_WARNING (t);
13900 return r;
13903 case NEW_EXPR:
13905 tree op0 = tsubst_copy (TREE_OPERAND (t, 0), args, complain, in_decl);
13906 tree op1 = tsubst_copy (TREE_OPERAND (t, 1), args, complain, in_decl);
13907 tree op2 = tsubst_copy (TREE_OPERAND (t, 2), args, complain, in_decl);
13908 r = build_nt (code, op0, op1, op2);
13909 NEW_EXPR_USE_GLOBAL (r) = NEW_EXPR_USE_GLOBAL (t);
13910 return r;
13913 case DELETE_EXPR:
13915 tree op0 = tsubst_copy (TREE_OPERAND (t, 0), args, complain, in_decl);
13916 tree op1 = tsubst_copy (TREE_OPERAND (t, 1), args, complain, in_decl);
13917 r = build_nt (code, op0, op1);
13918 DELETE_EXPR_USE_GLOBAL (r) = DELETE_EXPR_USE_GLOBAL (t);
13919 DELETE_EXPR_USE_VEC (r) = DELETE_EXPR_USE_VEC (t);
13920 return r;
13923 case TEMPLATE_ID_EXPR:
13925 /* Substituted template arguments */
13926 tree fn = TREE_OPERAND (t, 0);
13927 tree targs = TREE_OPERAND (t, 1);
13929 fn = tsubst_copy (fn, args, complain, in_decl);
13930 if (targs)
13931 targs = tsubst_template_args (targs, args, complain, in_decl);
13933 return lookup_template_function (fn, targs);
13936 case TREE_LIST:
13938 tree purpose, value, chain;
13940 if (t == void_list_node)
13941 return t;
13943 purpose = TREE_PURPOSE (t);
13944 if (purpose)
13945 purpose = tsubst_copy (purpose, args, complain, in_decl);
13946 value = TREE_VALUE (t);
13947 if (value)
13948 value = tsubst_copy (value, args, complain, in_decl);
13949 chain = TREE_CHAIN (t);
13950 if (chain && chain != void_type_node)
13951 chain = tsubst_copy (chain, args, complain, in_decl);
13952 if (purpose == TREE_PURPOSE (t)
13953 && value == TREE_VALUE (t)
13954 && chain == TREE_CHAIN (t))
13955 return t;
13956 return tree_cons (purpose, value, chain);
13959 case RECORD_TYPE:
13960 case UNION_TYPE:
13961 case ENUMERAL_TYPE:
13962 case INTEGER_TYPE:
13963 case TEMPLATE_TYPE_PARM:
13964 case TEMPLATE_TEMPLATE_PARM:
13965 case BOUND_TEMPLATE_TEMPLATE_PARM:
13966 case TEMPLATE_PARM_INDEX:
13967 case POINTER_TYPE:
13968 case REFERENCE_TYPE:
13969 case OFFSET_TYPE:
13970 case FUNCTION_TYPE:
13971 case METHOD_TYPE:
13972 case ARRAY_TYPE:
13973 case TYPENAME_TYPE:
13974 case UNBOUND_CLASS_TEMPLATE:
13975 case TYPEOF_TYPE:
13976 case DECLTYPE_TYPE:
13977 case TYPE_DECL:
13978 return tsubst (t, args, complain, in_decl);
13980 case USING_DECL:
13981 t = DECL_NAME (t);
13982 /* Fall through. */
13983 case IDENTIFIER_NODE:
13984 if (IDENTIFIER_TYPENAME_P (t))
13986 tree new_type = tsubst (TREE_TYPE (t), args, complain, in_decl);
13987 return mangle_conv_op_name_for_type (new_type);
13989 else
13990 return t;
13992 case CONSTRUCTOR:
13993 /* This is handled by tsubst_copy_and_build. */
13994 gcc_unreachable ();
13996 case VA_ARG_EXPR:
13998 tree op0 = tsubst_copy (TREE_OPERAND (t, 0), args, complain, in_decl);
13999 tree type = tsubst (TREE_TYPE (t), args, complain, in_decl);
14000 return build_x_va_arg (EXPR_LOCATION (t), op0, type);
14003 case CLEANUP_POINT_EXPR:
14004 /* We shouldn't have built any of these during initial template
14005 generation. Instead, they should be built during instantiation
14006 in response to the saved STMT_IS_FULL_EXPR_P setting. */
14007 gcc_unreachable ();
14009 case OFFSET_REF:
14011 tree type = tsubst (TREE_TYPE (t), args, complain, in_decl);
14012 tree op0 = tsubst_copy (TREE_OPERAND (t, 0), args, complain, in_decl);
14013 tree op1 = tsubst_copy (TREE_OPERAND (t, 1), args, complain, in_decl);
14014 r = build2 (code, type, op0, op1);
14015 PTRMEM_OK_P (r) = PTRMEM_OK_P (t);
14016 if (!mark_used (TREE_OPERAND (r, 1), complain)
14017 && !(complain & tf_error))
14018 return error_mark_node;
14019 return r;
14022 case EXPR_PACK_EXPANSION:
14023 error ("invalid use of pack expansion expression");
14024 return error_mark_node;
14026 case NONTYPE_ARGUMENT_PACK:
14027 error ("use %<...%> to expand argument pack");
14028 return error_mark_node;
14030 case VOID_CST:
14031 gcc_checking_assert (t == void_node && VOID_TYPE_P (TREE_TYPE (t)));
14032 return t;
14034 case INTEGER_CST:
14035 case REAL_CST:
14036 case STRING_CST:
14037 case COMPLEX_CST:
14039 /* Instantiate any typedefs in the type. */
14040 tree type = tsubst (TREE_TYPE (t), args, complain, in_decl);
14041 r = fold_convert (type, t);
14042 gcc_assert (TREE_CODE (r) == code);
14043 return r;
14046 case PTRMEM_CST:
14047 /* These can sometimes show up in a partial instantiation, but never
14048 involve template parms. */
14049 gcc_assert (!uses_template_parms (t));
14050 return t;
14052 default:
14053 /* We shouldn't get here, but keep going if !ENABLE_CHECKING. */
14054 gcc_checking_assert (false);
14055 return t;
14059 /* Helper function for tsubst_omp_clauses, used for instantiation of
14060 OMP_CLAUSE_DECL of clauses that handles also OpenMP array sections
14061 represented with TREE_LIST. */
14063 static tree
14064 tsubst_omp_clause_decl (tree decl, tree args, tsubst_flags_t complain,
14065 tree in_decl)
14067 if (TREE_CODE (decl) == TREE_LIST)
14069 tree low_bound
14070 = tsubst_expr (TREE_PURPOSE (decl), args, complain, in_decl,
14071 /*integral_constant_expression_p=*/false);
14072 tree length = tsubst_expr (TREE_VALUE (decl), args, complain, in_decl,
14073 /*integral_constant_expression_p=*/false);
14074 tree chain = tsubst_omp_clause_decl (TREE_CHAIN (decl), args, complain,
14075 in_decl);
14076 if (TREE_PURPOSE (decl) == low_bound
14077 && TREE_VALUE (decl) == length
14078 && TREE_CHAIN (decl) == chain)
14079 return decl;
14080 return tree_cons (low_bound, length, chain);
14082 return tsubst_copy (decl, args, complain, in_decl);
14085 /* Like tsubst_copy, but specifically for OpenMP clauses. */
14087 static tree
14088 tsubst_omp_clauses (tree clauses, bool declare_simd,
14089 tree args, tsubst_flags_t complain, tree in_decl)
14091 tree new_clauses = NULL, nc, oc;
14093 for (oc = clauses; oc ; oc = OMP_CLAUSE_CHAIN (oc))
14095 nc = copy_node (oc);
14096 OMP_CLAUSE_CHAIN (nc) = new_clauses;
14097 new_clauses = nc;
14099 switch (OMP_CLAUSE_CODE (nc))
14101 case OMP_CLAUSE_LASTPRIVATE:
14102 if (OMP_CLAUSE_LASTPRIVATE_STMT (oc))
14104 OMP_CLAUSE_LASTPRIVATE_STMT (nc) = push_stmt_list ();
14105 tsubst_expr (OMP_CLAUSE_LASTPRIVATE_STMT (oc), args, complain,
14106 in_decl, /*integral_constant_expression_p=*/false);
14107 OMP_CLAUSE_LASTPRIVATE_STMT (nc)
14108 = pop_stmt_list (OMP_CLAUSE_LASTPRIVATE_STMT (nc));
14110 /* FALLTHRU */
14111 case OMP_CLAUSE_PRIVATE:
14112 case OMP_CLAUSE_SHARED:
14113 case OMP_CLAUSE_FIRSTPRIVATE:
14114 case OMP_CLAUSE_COPYIN:
14115 case OMP_CLAUSE_COPYPRIVATE:
14116 case OMP_CLAUSE_UNIFORM:
14117 OMP_CLAUSE_DECL (nc) = tsubst_copy (OMP_CLAUSE_DECL (oc), args,
14118 complain, in_decl);
14119 break;
14120 case OMP_CLAUSE_DEPEND:
14121 case OMP_CLAUSE_FROM:
14122 case OMP_CLAUSE_TO:
14123 case OMP_CLAUSE_MAP:
14124 OMP_CLAUSE_DECL (nc)
14125 = tsubst_omp_clause_decl (OMP_CLAUSE_DECL (oc), args, complain,
14126 in_decl);
14127 break;
14128 case OMP_CLAUSE_IF:
14129 case OMP_CLAUSE_NUM_THREADS:
14130 case OMP_CLAUSE_SCHEDULE:
14131 case OMP_CLAUSE_COLLAPSE:
14132 case OMP_CLAUSE_FINAL:
14133 case OMP_CLAUSE_DEVICE:
14134 case OMP_CLAUSE_DIST_SCHEDULE:
14135 case OMP_CLAUSE_NUM_TEAMS:
14136 case OMP_CLAUSE_THREAD_LIMIT:
14137 case OMP_CLAUSE_SAFELEN:
14138 case OMP_CLAUSE_SIMDLEN:
14139 OMP_CLAUSE_OPERAND (nc, 0)
14140 = tsubst_expr (OMP_CLAUSE_OPERAND (oc, 0), args, complain,
14141 in_decl, /*integral_constant_expression_p=*/false);
14142 break;
14143 case OMP_CLAUSE_REDUCTION:
14144 if (OMP_CLAUSE_REDUCTION_PLACEHOLDER (oc))
14146 tree placeholder = OMP_CLAUSE_REDUCTION_PLACEHOLDER (oc);
14147 if (TREE_CODE (placeholder) == SCOPE_REF)
14149 tree scope = tsubst (TREE_OPERAND (placeholder, 0), args,
14150 complain, in_decl);
14151 OMP_CLAUSE_REDUCTION_PLACEHOLDER (nc)
14152 = build_qualified_name (NULL_TREE, scope,
14153 TREE_OPERAND (placeholder, 1),
14154 false);
14156 else
14157 gcc_assert (identifier_p (placeholder));
14159 OMP_CLAUSE_DECL (nc) = tsubst_copy (OMP_CLAUSE_DECL (oc), args,
14160 complain, in_decl);
14161 break;
14162 case OMP_CLAUSE_LINEAR:
14163 case OMP_CLAUSE_ALIGNED:
14164 OMP_CLAUSE_DECL (nc) = tsubst_copy (OMP_CLAUSE_DECL (oc), args,
14165 complain, in_decl);
14166 OMP_CLAUSE_OPERAND (nc, 1)
14167 = tsubst_expr (OMP_CLAUSE_OPERAND (oc, 1), args, complain,
14168 in_decl, /*integral_constant_expression_p=*/false);
14169 break;
14170 case OMP_CLAUSE_NOWAIT:
14171 case OMP_CLAUSE_ORDERED:
14172 case OMP_CLAUSE_DEFAULT:
14173 case OMP_CLAUSE_UNTIED:
14174 case OMP_CLAUSE_MERGEABLE:
14175 case OMP_CLAUSE_INBRANCH:
14176 case OMP_CLAUSE_NOTINBRANCH:
14177 case OMP_CLAUSE_PROC_BIND:
14178 case OMP_CLAUSE_FOR:
14179 case OMP_CLAUSE_PARALLEL:
14180 case OMP_CLAUSE_SECTIONS:
14181 case OMP_CLAUSE_TASKGROUP:
14182 break;
14183 default:
14184 gcc_unreachable ();
14188 new_clauses = nreverse (new_clauses);
14189 if (!declare_simd)
14190 new_clauses = finish_omp_clauses (new_clauses);
14191 return new_clauses;
14194 /* Like tsubst_copy_and_build, but unshare TREE_LIST nodes. */
14196 static tree
14197 tsubst_copy_asm_operands (tree t, tree args, tsubst_flags_t complain,
14198 tree in_decl)
14200 #define RECUR(t) tsubst_copy_asm_operands (t, args, complain, in_decl)
14202 tree purpose, value, chain;
14204 if (t == NULL)
14205 return t;
14207 if (TREE_CODE (t) != TREE_LIST)
14208 return tsubst_copy_and_build (t, args, complain, in_decl,
14209 /*function_p=*/false,
14210 /*integral_constant_expression_p=*/false);
14212 if (t == void_list_node)
14213 return t;
14215 purpose = TREE_PURPOSE (t);
14216 if (purpose)
14217 purpose = RECUR (purpose);
14218 value = TREE_VALUE (t);
14219 if (value)
14221 if (TREE_CODE (value) != LABEL_DECL)
14222 value = RECUR (value);
14223 else
14225 value = lookup_label (DECL_NAME (value));
14226 gcc_assert (TREE_CODE (value) == LABEL_DECL);
14227 TREE_USED (value) = 1;
14230 chain = TREE_CHAIN (t);
14231 if (chain && chain != void_type_node)
14232 chain = RECUR (chain);
14233 return tree_cons (purpose, value, chain);
14234 #undef RECUR
14237 /* Substitute one OMP_FOR iterator. */
14239 static void
14240 tsubst_omp_for_iterator (tree t, int i, tree declv, tree initv,
14241 tree condv, tree incrv, tree *clauses,
14242 tree args, tsubst_flags_t complain, tree in_decl,
14243 bool integral_constant_expression_p)
14245 #define RECUR(NODE) \
14246 tsubst_expr ((NODE), args, complain, in_decl, \
14247 integral_constant_expression_p)
14248 tree decl, init, cond, incr;
14250 init = TREE_VEC_ELT (OMP_FOR_INIT (t), i);
14251 gcc_assert (TREE_CODE (init) == MODIFY_EXPR);
14252 decl = TREE_OPERAND (init, 0);
14253 init = TREE_OPERAND (init, 1);
14254 tree decl_expr = NULL_TREE;
14255 if (init && TREE_CODE (init) == DECL_EXPR)
14257 /* We need to jump through some hoops to handle declarations in the
14258 for-init-statement, since we might need to handle auto deduction,
14259 but we need to keep control of initialization. */
14260 decl_expr = init;
14261 init = DECL_INITIAL (DECL_EXPR_DECL (init));
14262 decl = tsubst_decl (decl, args, complain);
14264 else
14265 decl = RECUR (decl);
14266 init = RECUR (init);
14268 tree auto_node = type_uses_auto (TREE_TYPE (decl));
14269 if (auto_node && init)
14270 TREE_TYPE (decl)
14271 = do_auto_deduction (TREE_TYPE (decl), init, auto_node);
14273 gcc_assert (!type_dependent_expression_p (decl));
14275 if (!CLASS_TYPE_P (TREE_TYPE (decl)))
14277 if (decl_expr)
14279 /* Declare the variable, but don't let that initialize it. */
14280 tree init_sav = DECL_INITIAL (DECL_EXPR_DECL (decl_expr));
14281 DECL_INITIAL (DECL_EXPR_DECL (decl_expr)) = NULL_TREE;
14282 RECUR (decl_expr);
14283 DECL_INITIAL (DECL_EXPR_DECL (decl_expr)) = init_sav;
14286 cond = RECUR (TREE_VEC_ELT (OMP_FOR_COND (t), i));
14287 incr = TREE_VEC_ELT (OMP_FOR_INCR (t), i);
14288 if (TREE_CODE (incr) == MODIFY_EXPR)
14290 tree lhs = RECUR (TREE_OPERAND (incr, 0));
14291 tree rhs = RECUR (TREE_OPERAND (incr, 1));
14292 incr = build_x_modify_expr (EXPR_LOCATION (incr), lhs,
14293 NOP_EXPR, rhs, complain);
14295 else
14296 incr = RECUR (incr);
14297 TREE_VEC_ELT (declv, i) = decl;
14298 TREE_VEC_ELT (initv, i) = init;
14299 TREE_VEC_ELT (condv, i) = cond;
14300 TREE_VEC_ELT (incrv, i) = incr;
14301 return;
14304 if (decl_expr)
14306 /* Declare and initialize the variable. */
14307 RECUR (decl_expr);
14308 init = NULL_TREE;
14310 else if (init)
14312 tree c;
14313 for (c = *clauses; c ; c = OMP_CLAUSE_CHAIN (c))
14315 if ((OMP_CLAUSE_CODE (c) == OMP_CLAUSE_PRIVATE
14316 || OMP_CLAUSE_CODE (c) == OMP_CLAUSE_LASTPRIVATE)
14317 && OMP_CLAUSE_DECL (c) == decl)
14318 break;
14319 else if (OMP_CLAUSE_CODE (c) == OMP_CLAUSE_FIRSTPRIVATE
14320 && OMP_CLAUSE_DECL (c) == decl)
14321 error ("iteration variable %qD should not be firstprivate", decl);
14322 else if (OMP_CLAUSE_CODE (c) == OMP_CLAUSE_REDUCTION
14323 && OMP_CLAUSE_DECL (c) == decl)
14324 error ("iteration variable %qD should not be reduction", decl);
14326 if (c == NULL)
14328 c = build_omp_clause (input_location, OMP_CLAUSE_PRIVATE);
14329 OMP_CLAUSE_DECL (c) = decl;
14330 c = finish_omp_clauses (c);
14331 if (c)
14333 OMP_CLAUSE_CHAIN (c) = *clauses;
14334 *clauses = c;
14338 cond = TREE_VEC_ELT (OMP_FOR_COND (t), i);
14339 if (COMPARISON_CLASS_P (cond))
14341 tree op0 = RECUR (TREE_OPERAND (cond, 0));
14342 tree op1 = RECUR (TREE_OPERAND (cond, 1));
14343 cond = build2 (TREE_CODE (cond), boolean_type_node, op0, op1);
14345 else
14346 cond = RECUR (cond);
14347 incr = TREE_VEC_ELT (OMP_FOR_INCR (t), i);
14348 switch (TREE_CODE (incr))
14350 case PREINCREMENT_EXPR:
14351 case PREDECREMENT_EXPR:
14352 case POSTINCREMENT_EXPR:
14353 case POSTDECREMENT_EXPR:
14354 incr = build2 (TREE_CODE (incr), TREE_TYPE (decl),
14355 RECUR (TREE_OPERAND (incr, 0)), NULL_TREE);
14356 break;
14357 case MODIFY_EXPR:
14358 if (TREE_CODE (TREE_OPERAND (incr, 1)) == PLUS_EXPR
14359 || TREE_CODE (TREE_OPERAND (incr, 1)) == MINUS_EXPR)
14361 tree rhs = TREE_OPERAND (incr, 1);
14362 tree lhs = RECUR (TREE_OPERAND (incr, 0));
14363 tree rhs0 = RECUR (TREE_OPERAND (rhs, 0));
14364 tree rhs1 = RECUR (TREE_OPERAND (rhs, 1));
14365 incr = build2 (MODIFY_EXPR, TREE_TYPE (decl), lhs,
14366 build2 (TREE_CODE (rhs), TREE_TYPE (decl),
14367 rhs0, rhs1));
14369 else
14370 incr = RECUR (incr);
14371 break;
14372 case MODOP_EXPR:
14373 if (TREE_CODE (TREE_OPERAND (incr, 1)) == PLUS_EXPR
14374 || TREE_CODE (TREE_OPERAND (incr, 1)) == MINUS_EXPR)
14376 tree lhs = RECUR (TREE_OPERAND (incr, 0));
14377 incr = build2 (MODIFY_EXPR, TREE_TYPE (decl), lhs,
14378 build2 (TREE_CODE (TREE_OPERAND (incr, 1)),
14379 TREE_TYPE (decl), lhs,
14380 RECUR (TREE_OPERAND (incr, 2))));
14382 else if (TREE_CODE (TREE_OPERAND (incr, 1)) == NOP_EXPR
14383 && (TREE_CODE (TREE_OPERAND (incr, 2)) == PLUS_EXPR
14384 || (TREE_CODE (TREE_OPERAND (incr, 2)) == MINUS_EXPR)))
14386 tree rhs = TREE_OPERAND (incr, 2);
14387 tree lhs = RECUR (TREE_OPERAND (incr, 0));
14388 tree rhs0 = RECUR (TREE_OPERAND (rhs, 0));
14389 tree rhs1 = RECUR (TREE_OPERAND (rhs, 1));
14390 incr = build2 (MODIFY_EXPR, TREE_TYPE (decl), lhs,
14391 build2 (TREE_CODE (rhs), TREE_TYPE (decl),
14392 rhs0, rhs1));
14394 else
14395 incr = RECUR (incr);
14396 break;
14397 default:
14398 incr = RECUR (incr);
14399 break;
14402 TREE_VEC_ELT (declv, i) = decl;
14403 TREE_VEC_ELT (initv, i) = init;
14404 TREE_VEC_ELT (condv, i) = cond;
14405 TREE_VEC_ELT (incrv, i) = incr;
14406 #undef RECUR
14409 /* Like tsubst_copy for expressions, etc. but also does semantic
14410 processing. */
14412 tree
14413 tsubst_expr (tree t, tree args, tsubst_flags_t complain, tree in_decl,
14414 bool integral_constant_expression_p)
14416 #define RETURN(EXP) do { r = (EXP); goto out; } while(0)
14417 #define RECUR(NODE) \
14418 tsubst_expr ((NODE), args, complain, in_decl, \
14419 integral_constant_expression_p)
14421 tree stmt, tmp;
14422 tree r;
14423 location_t loc;
14425 if (t == NULL_TREE || t == error_mark_node)
14426 return t;
14428 loc = input_location;
14429 if (EXPR_HAS_LOCATION (t))
14430 input_location = EXPR_LOCATION (t);
14431 if (STATEMENT_CODE_P (TREE_CODE (t)))
14432 current_stmt_tree ()->stmts_are_full_exprs_p = STMT_IS_FULL_EXPR_P (t);
14434 switch (TREE_CODE (t))
14436 case STATEMENT_LIST:
14438 tree_stmt_iterator i;
14439 for (i = tsi_start (t); !tsi_end_p (i); tsi_next (&i))
14440 RECUR (tsi_stmt (i));
14441 break;
14444 case CTOR_INITIALIZER:
14445 finish_mem_initializers (tsubst_initializer_list
14446 (TREE_OPERAND (t, 0), args));
14447 break;
14449 case RETURN_EXPR:
14450 finish_return_stmt (RECUR (TREE_OPERAND (t, 0)));
14451 break;
14453 case EXPR_STMT:
14454 tmp = RECUR (EXPR_STMT_EXPR (t));
14455 if (EXPR_STMT_STMT_EXPR_RESULT (t))
14456 finish_stmt_expr_expr (tmp, cur_stmt_expr);
14457 else
14458 finish_expr_stmt (tmp);
14459 break;
14461 case USING_STMT:
14462 do_using_directive (USING_STMT_NAMESPACE (t));
14463 break;
14465 case DECL_EXPR:
14467 tree decl, pattern_decl;
14468 tree init;
14470 pattern_decl = decl = DECL_EXPR_DECL (t);
14471 if (TREE_CODE (decl) == LABEL_DECL)
14472 finish_label_decl (DECL_NAME (decl));
14473 else if (TREE_CODE (decl) == USING_DECL)
14475 tree scope = USING_DECL_SCOPE (decl);
14476 tree name = DECL_NAME (decl);
14477 tree decl;
14479 scope = tsubst (scope, args, complain, in_decl);
14480 decl = lookup_qualified_name (scope, name,
14481 /*is_type_p=*/false,
14482 /*complain=*/false);
14483 if (decl == error_mark_node || TREE_CODE (decl) == TREE_LIST)
14484 qualified_name_lookup_error (scope, name, decl, input_location);
14485 else
14486 do_local_using_decl (decl, scope, name);
14488 else if (DECL_PACK_P (decl))
14490 /* Don't build up decls for a variadic capture proxy, we'll
14491 instantiate the elements directly as needed. */
14492 break;
14494 else
14496 init = DECL_INITIAL (decl);
14497 decl = tsubst (decl, args, complain, in_decl);
14498 if (decl != error_mark_node)
14500 /* By marking the declaration as instantiated, we avoid
14501 trying to instantiate it. Since instantiate_decl can't
14502 handle local variables, and since we've already done
14503 all that needs to be done, that's the right thing to
14504 do. */
14505 if (VAR_P (decl))
14506 DECL_TEMPLATE_INSTANTIATED (decl) = 1;
14507 if (VAR_P (decl)
14508 && ANON_AGGR_TYPE_P (TREE_TYPE (decl)))
14509 /* Anonymous aggregates are a special case. */
14510 finish_anon_union (decl);
14511 else if (is_capture_proxy (DECL_EXPR_DECL (t)))
14513 DECL_CONTEXT (decl) = current_function_decl;
14514 if (DECL_NAME (decl) == this_identifier)
14516 tree lam = DECL_CONTEXT (current_function_decl);
14517 lam = CLASSTYPE_LAMBDA_EXPR (lam);
14518 LAMBDA_EXPR_THIS_CAPTURE (lam) = decl;
14520 insert_capture_proxy (decl);
14522 else if (DECL_IMPLICIT_TYPEDEF_P (t))
14523 /* We already did a pushtag. */;
14524 else if (TREE_CODE (decl) == FUNCTION_DECL
14525 && DECL_OMP_DECLARE_REDUCTION_P (decl)
14526 && DECL_FUNCTION_SCOPE_P (pattern_decl))
14528 DECL_CONTEXT (decl) = NULL_TREE;
14529 pushdecl (decl);
14530 DECL_CONTEXT (decl) = current_function_decl;
14531 cp_check_omp_declare_reduction (decl);
14533 else
14535 int const_init = false;
14536 maybe_push_decl (decl);
14537 if (VAR_P (decl)
14538 && DECL_PRETTY_FUNCTION_P (decl))
14540 /* For __PRETTY_FUNCTION__ we have to adjust the
14541 initializer. */
14542 const char *const name
14543 = cxx_printable_name (current_function_decl, 2);
14544 init = cp_fname_init (name, &TREE_TYPE (decl));
14546 else
14547 init = tsubst_init (init, decl, args, complain, in_decl);
14549 if (VAR_P (decl))
14550 const_init = (DECL_INITIALIZED_BY_CONSTANT_EXPRESSION_P
14551 (pattern_decl));
14552 cp_finish_decl (decl, init, const_init, NULL_TREE, 0);
14557 break;
14560 case FOR_STMT:
14561 stmt = begin_for_stmt (NULL_TREE, NULL_TREE);
14562 RECUR (FOR_INIT_STMT (t));
14563 finish_for_init_stmt (stmt);
14564 tmp = RECUR (FOR_COND (t));
14565 finish_for_cond (tmp, stmt, false);
14566 tmp = RECUR (FOR_EXPR (t));
14567 finish_for_expr (tmp, stmt);
14568 RECUR (FOR_BODY (t));
14569 finish_for_stmt (stmt);
14570 break;
14572 case RANGE_FOR_STMT:
14574 tree decl, expr;
14575 stmt = begin_for_stmt (NULL_TREE, NULL_TREE);
14576 decl = RANGE_FOR_DECL (t);
14577 decl = tsubst (decl, args, complain, in_decl);
14578 maybe_push_decl (decl);
14579 expr = RECUR (RANGE_FOR_EXPR (t));
14580 stmt = cp_convert_range_for (stmt, decl, expr, RANGE_FOR_IVDEP (t));
14581 RECUR (RANGE_FOR_BODY (t));
14582 finish_for_stmt (stmt);
14584 break;
14586 case WHILE_STMT:
14587 stmt = begin_while_stmt ();
14588 tmp = RECUR (WHILE_COND (t));
14589 finish_while_stmt_cond (tmp, stmt, false);
14590 RECUR (WHILE_BODY (t));
14591 finish_while_stmt (stmt);
14592 break;
14594 case DO_STMT:
14595 stmt = begin_do_stmt ();
14596 RECUR (DO_BODY (t));
14597 finish_do_body (stmt);
14598 tmp = RECUR (DO_COND (t));
14599 finish_do_stmt (tmp, stmt, false);
14600 break;
14602 case IF_STMT:
14603 stmt = begin_if_stmt ();
14604 tmp = RECUR (IF_COND (t));
14605 finish_if_stmt_cond (tmp, stmt);
14606 RECUR (THEN_CLAUSE (t));
14607 finish_then_clause (stmt);
14609 if (ELSE_CLAUSE (t))
14611 begin_else_clause (stmt);
14612 RECUR (ELSE_CLAUSE (t));
14613 finish_else_clause (stmt);
14616 finish_if_stmt (stmt);
14617 break;
14619 case BIND_EXPR:
14620 if (BIND_EXPR_BODY_BLOCK (t))
14621 stmt = begin_function_body ();
14622 else
14623 stmt = begin_compound_stmt (BIND_EXPR_TRY_BLOCK (t)
14624 ? BCS_TRY_BLOCK : 0);
14626 RECUR (BIND_EXPR_BODY (t));
14628 if (BIND_EXPR_BODY_BLOCK (t))
14629 finish_function_body (stmt);
14630 else
14631 finish_compound_stmt (stmt);
14632 break;
14634 case BREAK_STMT:
14635 finish_break_stmt ();
14636 break;
14638 case CONTINUE_STMT:
14639 finish_continue_stmt ();
14640 break;
14642 case SWITCH_STMT:
14643 stmt = begin_switch_stmt ();
14644 tmp = RECUR (SWITCH_STMT_COND (t));
14645 finish_switch_cond (tmp, stmt);
14646 RECUR (SWITCH_STMT_BODY (t));
14647 finish_switch_stmt (stmt);
14648 break;
14650 case CASE_LABEL_EXPR:
14652 tree low = RECUR (CASE_LOW (t));
14653 tree high = RECUR (CASE_HIGH (t));
14654 finish_case_label (EXPR_LOCATION (t), low, high);
14656 break;
14658 case LABEL_EXPR:
14660 tree decl = LABEL_EXPR_LABEL (t);
14661 tree label;
14663 label = finish_label_stmt (DECL_NAME (decl));
14664 if (DECL_ATTRIBUTES (decl) != NULL_TREE)
14665 cplus_decl_attributes (&label, DECL_ATTRIBUTES (decl), 0);
14667 break;
14669 case GOTO_EXPR:
14670 tmp = GOTO_DESTINATION (t);
14671 if (TREE_CODE (tmp) != LABEL_DECL)
14672 /* Computed goto's must be tsubst'd into. On the other hand,
14673 non-computed gotos must not be; the identifier in question
14674 will have no binding. */
14675 tmp = RECUR (tmp);
14676 else
14677 tmp = DECL_NAME (tmp);
14678 finish_goto_stmt (tmp);
14679 break;
14681 case ASM_EXPR:
14683 tree string = RECUR (ASM_STRING (t));
14684 tree outputs = tsubst_copy_asm_operands (ASM_OUTPUTS (t), args,
14685 complain, in_decl);
14686 tree inputs = tsubst_copy_asm_operands (ASM_INPUTS (t), args,
14687 complain, in_decl);
14688 tree clobbers = tsubst_copy_asm_operands (ASM_CLOBBERS (t), args,
14689 complain, in_decl);
14690 tree labels = tsubst_copy_asm_operands (ASM_LABELS (t), args,
14691 complain, in_decl);
14692 tmp = finish_asm_stmt (ASM_VOLATILE_P (t), string, outputs, inputs,
14693 clobbers, labels);
14694 tree asm_expr = tmp;
14695 if (TREE_CODE (asm_expr) == CLEANUP_POINT_EXPR)
14696 asm_expr = TREE_OPERAND (asm_expr, 0);
14697 ASM_INPUT_P (asm_expr) = ASM_INPUT_P (t);
14699 break;
14701 case TRY_BLOCK:
14702 if (CLEANUP_P (t))
14704 stmt = begin_try_block ();
14705 RECUR (TRY_STMTS (t));
14706 finish_cleanup_try_block (stmt);
14707 finish_cleanup (RECUR (TRY_HANDLERS (t)), stmt);
14709 else
14711 tree compound_stmt = NULL_TREE;
14713 if (FN_TRY_BLOCK_P (t))
14714 stmt = begin_function_try_block (&compound_stmt);
14715 else
14716 stmt = begin_try_block ();
14718 RECUR (TRY_STMTS (t));
14720 if (FN_TRY_BLOCK_P (t))
14721 finish_function_try_block (stmt);
14722 else
14723 finish_try_block (stmt);
14725 RECUR (TRY_HANDLERS (t));
14726 if (FN_TRY_BLOCK_P (t))
14727 finish_function_handler_sequence (stmt, compound_stmt);
14728 else
14729 finish_handler_sequence (stmt);
14731 break;
14733 case HANDLER:
14735 tree decl = HANDLER_PARMS (t);
14737 if (decl)
14739 decl = tsubst (decl, args, complain, in_decl);
14740 /* Prevent instantiate_decl from trying to instantiate
14741 this variable. We've already done all that needs to be
14742 done. */
14743 if (decl != error_mark_node)
14744 DECL_TEMPLATE_INSTANTIATED (decl) = 1;
14746 stmt = begin_handler ();
14747 finish_handler_parms (decl, stmt);
14748 RECUR (HANDLER_BODY (t));
14749 finish_handler (stmt);
14751 break;
14753 case TAG_DEFN:
14754 tmp = tsubst (TREE_TYPE (t), args, complain, NULL_TREE);
14755 if (CLASS_TYPE_P (tmp))
14757 /* Local classes are not independent templates; they are
14758 instantiated along with their containing function. And this
14759 way we don't have to deal with pushing out of one local class
14760 to instantiate a member of another local class. */
14761 tree fn;
14762 /* Closures are handled by the LAMBDA_EXPR. */
14763 gcc_assert (!LAMBDA_TYPE_P (TREE_TYPE (t)));
14764 complete_type (tmp);
14765 for (fn = TYPE_METHODS (tmp); fn; fn = DECL_CHAIN (fn))
14766 if (!DECL_ARTIFICIAL (fn))
14767 instantiate_decl (fn, /*defer_ok*/0, /*expl_inst_class*/false);
14769 break;
14771 case STATIC_ASSERT:
14773 tree condition;
14775 ++c_inhibit_evaluation_warnings;
14776 condition =
14777 tsubst_expr (STATIC_ASSERT_CONDITION (t),
14778 args,
14779 complain, in_decl,
14780 /*integral_constant_expression_p=*/true);
14781 --c_inhibit_evaluation_warnings;
14783 finish_static_assert (condition,
14784 STATIC_ASSERT_MESSAGE (t),
14785 STATIC_ASSERT_SOURCE_LOCATION (t),
14786 /*member_p=*/false);
14788 break;
14790 case OMP_PARALLEL:
14791 tmp = tsubst_omp_clauses (OMP_PARALLEL_CLAUSES (t), false,
14792 args, complain, in_decl);
14793 stmt = begin_omp_parallel ();
14794 RECUR (OMP_PARALLEL_BODY (t));
14795 OMP_PARALLEL_COMBINED (finish_omp_parallel (tmp, stmt))
14796 = OMP_PARALLEL_COMBINED (t);
14797 break;
14799 case OMP_TASK:
14800 tmp = tsubst_omp_clauses (OMP_TASK_CLAUSES (t), false,
14801 args, complain, in_decl);
14802 stmt = begin_omp_task ();
14803 RECUR (OMP_TASK_BODY (t));
14804 finish_omp_task (tmp, stmt);
14805 break;
14807 case OMP_FOR:
14808 case OMP_SIMD:
14809 case CILK_SIMD:
14810 case CILK_FOR:
14811 case OMP_DISTRIBUTE:
14813 tree clauses, body, pre_body;
14814 tree declv = NULL_TREE, initv = NULL_TREE, condv = NULL_TREE;
14815 tree incrv = NULL_TREE;
14816 int i;
14818 clauses = tsubst_omp_clauses (OMP_FOR_CLAUSES (t), false,
14819 args, complain, in_decl);
14820 if (OMP_FOR_INIT (t) != NULL_TREE)
14822 declv = make_tree_vec (TREE_VEC_LENGTH (OMP_FOR_INIT (t)));
14823 initv = make_tree_vec (TREE_VEC_LENGTH (OMP_FOR_INIT (t)));
14824 condv = make_tree_vec (TREE_VEC_LENGTH (OMP_FOR_INIT (t)));
14825 incrv = make_tree_vec (TREE_VEC_LENGTH (OMP_FOR_INIT (t)));
14828 stmt = begin_omp_structured_block ();
14830 pre_body = push_stmt_list ();
14831 RECUR (OMP_FOR_PRE_BODY (t));
14832 pre_body = pop_stmt_list (pre_body);
14834 if (OMP_FOR_INIT (t) != NULL_TREE)
14835 for (i = 0; i < TREE_VEC_LENGTH (OMP_FOR_INIT (t)); i++)
14836 tsubst_omp_for_iterator (t, i, declv, initv, condv, incrv,
14837 &clauses, args, complain, in_decl,
14838 integral_constant_expression_p);
14840 body = push_stmt_list ();
14841 RECUR (OMP_FOR_BODY (t));
14842 body = pop_stmt_list (body);
14844 if (OMP_FOR_INIT (t) != NULL_TREE)
14845 t = finish_omp_for (EXPR_LOCATION (t), TREE_CODE (t), declv, initv,
14846 condv, incrv, body, pre_body, clauses);
14847 else
14849 t = make_node (TREE_CODE (t));
14850 TREE_TYPE (t) = void_type_node;
14851 OMP_FOR_BODY (t) = body;
14852 OMP_FOR_PRE_BODY (t) = pre_body;
14853 OMP_FOR_CLAUSES (t) = clauses;
14854 SET_EXPR_LOCATION (t, EXPR_LOCATION (t));
14855 add_stmt (t);
14858 add_stmt (finish_omp_structured_block (stmt));
14860 break;
14862 case OMP_SECTIONS:
14863 case OMP_SINGLE:
14864 case OMP_TEAMS:
14865 tmp = tsubst_omp_clauses (OMP_CLAUSES (t), false,
14866 args, complain, in_decl);
14867 stmt = push_stmt_list ();
14868 RECUR (OMP_BODY (t));
14869 stmt = pop_stmt_list (stmt);
14871 t = copy_node (t);
14872 OMP_BODY (t) = stmt;
14873 OMP_CLAUSES (t) = tmp;
14874 add_stmt (t);
14875 break;
14877 case OMP_TARGET_DATA:
14878 case OMP_TARGET:
14879 tmp = tsubst_omp_clauses (OMP_CLAUSES (t), false,
14880 args, complain, in_decl);
14881 keep_next_level (true);
14882 stmt = begin_omp_structured_block ();
14884 RECUR (OMP_BODY (t));
14885 stmt = finish_omp_structured_block (stmt);
14887 t = copy_node (t);
14888 OMP_BODY (t) = stmt;
14889 OMP_CLAUSES (t) = tmp;
14890 add_stmt (t);
14891 break;
14893 case OMP_TARGET_UPDATE:
14894 tmp = tsubst_omp_clauses (OMP_TARGET_UPDATE_CLAUSES (t), false,
14895 args, complain, in_decl);
14896 t = copy_node (t);
14897 OMP_TARGET_UPDATE_CLAUSES (t) = tmp;
14898 add_stmt (t);
14899 break;
14901 case OMP_SECTION:
14902 case OMP_CRITICAL:
14903 case OMP_MASTER:
14904 case OMP_TASKGROUP:
14905 case OMP_ORDERED:
14906 stmt = push_stmt_list ();
14907 RECUR (OMP_BODY (t));
14908 stmt = pop_stmt_list (stmt);
14910 t = copy_node (t);
14911 OMP_BODY (t) = stmt;
14912 add_stmt (t);
14913 break;
14915 case OMP_ATOMIC:
14916 gcc_assert (OMP_ATOMIC_DEPENDENT_P (t));
14917 if (TREE_CODE (TREE_OPERAND (t, 1)) != MODIFY_EXPR)
14919 tree op1 = TREE_OPERAND (t, 1);
14920 tree rhs1 = NULL_TREE;
14921 tree lhs, rhs;
14922 if (TREE_CODE (op1) == COMPOUND_EXPR)
14924 rhs1 = RECUR (TREE_OPERAND (op1, 0));
14925 op1 = TREE_OPERAND (op1, 1);
14927 lhs = RECUR (TREE_OPERAND (op1, 0));
14928 rhs = RECUR (TREE_OPERAND (op1, 1));
14929 finish_omp_atomic (OMP_ATOMIC, TREE_CODE (op1), lhs, rhs,
14930 NULL_TREE, NULL_TREE, rhs1,
14931 OMP_ATOMIC_SEQ_CST (t));
14933 else
14935 tree op1 = TREE_OPERAND (t, 1);
14936 tree v = NULL_TREE, lhs, rhs = NULL_TREE, lhs1 = NULL_TREE;
14937 tree rhs1 = NULL_TREE;
14938 enum tree_code code = TREE_CODE (TREE_OPERAND (op1, 1));
14939 enum tree_code opcode = NOP_EXPR;
14940 if (code == OMP_ATOMIC_READ)
14942 v = RECUR (TREE_OPERAND (op1, 0));
14943 lhs = RECUR (TREE_OPERAND (TREE_OPERAND (op1, 1), 0));
14945 else if (code == OMP_ATOMIC_CAPTURE_OLD
14946 || code == OMP_ATOMIC_CAPTURE_NEW)
14948 tree op11 = TREE_OPERAND (TREE_OPERAND (op1, 1), 1);
14949 v = RECUR (TREE_OPERAND (op1, 0));
14950 lhs1 = RECUR (TREE_OPERAND (TREE_OPERAND (op1, 1), 0));
14951 if (TREE_CODE (op11) == COMPOUND_EXPR)
14953 rhs1 = RECUR (TREE_OPERAND (op11, 0));
14954 op11 = TREE_OPERAND (op11, 1);
14956 lhs = RECUR (TREE_OPERAND (op11, 0));
14957 rhs = RECUR (TREE_OPERAND (op11, 1));
14958 opcode = TREE_CODE (op11);
14959 if (opcode == MODIFY_EXPR)
14960 opcode = NOP_EXPR;
14962 else
14964 code = OMP_ATOMIC;
14965 lhs = RECUR (TREE_OPERAND (op1, 0));
14966 rhs = RECUR (TREE_OPERAND (op1, 1));
14968 finish_omp_atomic (code, opcode, lhs, rhs, v, lhs1, rhs1,
14969 OMP_ATOMIC_SEQ_CST (t));
14971 break;
14973 case TRANSACTION_EXPR:
14975 int flags = 0;
14976 flags |= (TRANSACTION_EXPR_OUTER (t) ? TM_STMT_ATTR_OUTER : 0);
14977 flags |= (TRANSACTION_EXPR_RELAXED (t) ? TM_STMT_ATTR_RELAXED : 0);
14979 if (TRANSACTION_EXPR_IS_STMT (t))
14981 tree body = TRANSACTION_EXPR_BODY (t);
14982 tree noex = NULL_TREE;
14983 if (TREE_CODE (body) == MUST_NOT_THROW_EXPR)
14985 noex = MUST_NOT_THROW_COND (body);
14986 if (noex == NULL_TREE)
14987 noex = boolean_true_node;
14988 body = TREE_OPERAND (body, 0);
14990 stmt = begin_transaction_stmt (input_location, NULL, flags);
14991 RECUR (body);
14992 finish_transaction_stmt (stmt, NULL, flags, RECUR (noex));
14994 else
14996 stmt = build_transaction_expr (EXPR_LOCATION (t),
14997 RECUR (TRANSACTION_EXPR_BODY (t)),
14998 flags, NULL_TREE);
14999 RETURN (stmt);
15002 break;
15004 case MUST_NOT_THROW_EXPR:
15006 tree op0 = RECUR (TREE_OPERAND (t, 0));
15007 tree cond = RECUR (MUST_NOT_THROW_COND (t));
15008 RETURN (build_must_not_throw_expr (op0, cond));
15011 case EXPR_PACK_EXPANSION:
15012 error ("invalid use of pack expansion expression");
15013 RETURN (error_mark_node);
15015 case NONTYPE_ARGUMENT_PACK:
15016 error ("use %<...%> to expand argument pack");
15017 RETURN (error_mark_node);
15019 case CILK_SPAWN_STMT:
15020 cfun->calls_cilk_spawn = 1;
15021 RETURN (build_cilk_spawn (EXPR_LOCATION (t), RECUR (CILK_SPAWN_FN (t))));
15023 case CILK_SYNC_STMT:
15024 RETURN (build_cilk_sync ());
15026 case COMPOUND_EXPR:
15027 tmp = RECUR (TREE_OPERAND (t, 0));
15028 if (tmp == NULL_TREE)
15029 /* If the first operand was a statement, we're done with it. */
15030 RETURN (RECUR (TREE_OPERAND (t, 1)));
15031 RETURN (build_x_compound_expr (EXPR_LOCATION (t), tmp,
15032 RECUR (TREE_OPERAND (t, 1)),
15033 complain));
15035 case ANNOTATE_EXPR:
15036 tmp = RECUR (TREE_OPERAND (t, 0));
15037 RETURN (build2_loc (EXPR_LOCATION (t), ANNOTATE_EXPR,
15038 TREE_TYPE (tmp), tmp, RECUR (TREE_OPERAND (t, 1))));
15040 default:
15041 gcc_assert (!STATEMENT_CODE_P (TREE_CODE (t)));
15043 RETURN (tsubst_copy_and_build (t, args, complain, in_decl,
15044 /*function_p=*/false,
15045 integral_constant_expression_p));
15048 RETURN (NULL_TREE);
15049 out:
15050 input_location = loc;
15051 return r;
15052 #undef RECUR
15053 #undef RETURN
15056 /* Instantiate the special body of the artificial DECL_OMP_DECLARE_REDUCTION
15057 function. For description of the body see comment above
15058 cp_parser_omp_declare_reduction_exprs. */
15060 static void
15061 tsubst_omp_udr (tree t, tree args, tsubst_flags_t complain, tree in_decl)
15063 if (t == NULL_TREE || t == error_mark_node)
15064 return;
15066 gcc_assert (TREE_CODE (t) == STATEMENT_LIST);
15068 tree_stmt_iterator tsi;
15069 int i;
15070 tree stmts[7];
15071 memset (stmts, 0, sizeof stmts);
15072 for (i = 0, tsi = tsi_start (t);
15073 i < 7 && !tsi_end_p (tsi);
15074 i++, tsi_next (&tsi))
15075 stmts[i] = tsi_stmt (tsi);
15076 gcc_assert (tsi_end_p (tsi));
15078 if (i >= 3)
15080 gcc_assert (TREE_CODE (stmts[0]) == DECL_EXPR
15081 && TREE_CODE (stmts[1]) == DECL_EXPR);
15082 tree omp_out = tsubst (DECL_EXPR_DECL (stmts[0]),
15083 args, complain, in_decl);
15084 tree omp_in = tsubst (DECL_EXPR_DECL (stmts[1]),
15085 args, complain, in_decl);
15086 DECL_CONTEXT (omp_out) = current_function_decl;
15087 DECL_CONTEXT (omp_in) = current_function_decl;
15088 keep_next_level (true);
15089 tree block = begin_omp_structured_block ();
15090 tsubst_expr (stmts[2], args, complain, in_decl, false);
15091 block = finish_omp_structured_block (block);
15092 block = maybe_cleanup_point_expr_void (block);
15093 add_decl_expr (omp_out);
15094 if (TREE_NO_WARNING (DECL_EXPR_DECL (stmts[0])))
15095 TREE_NO_WARNING (omp_out) = 1;
15096 add_decl_expr (omp_in);
15097 finish_expr_stmt (block);
15099 if (i >= 6)
15101 gcc_assert (TREE_CODE (stmts[3]) == DECL_EXPR
15102 && TREE_CODE (stmts[4]) == DECL_EXPR);
15103 tree omp_priv = tsubst (DECL_EXPR_DECL (stmts[3]),
15104 args, complain, in_decl);
15105 tree omp_orig = tsubst (DECL_EXPR_DECL (stmts[4]),
15106 args, complain, in_decl);
15107 DECL_CONTEXT (omp_priv) = current_function_decl;
15108 DECL_CONTEXT (omp_orig) = current_function_decl;
15109 keep_next_level (true);
15110 tree block = begin_omp_structured_block ();
15111 tsubst_expr (stmts[5], args, complain, in_decl, false);
15112 block = finish_omp_structured_block (block);
15113 block = maybe_cleanup_point_expr_void (block);
15114 cp_walk_tree (&block, cp_remove_omp_priv_cleanup_stmt, omp_priv, NULL);
15115 add_decl_expr (omp_priv);
15116 add_decl_expr (omp_orig);
15117 finish_expr_stmt (block);
15118 if (i == 7)
15119 add_decl_expr (omp_orig);
15123 /* T is a postfix-expression that is not being used in a function
15124 call. Return the substituted version of T. */
15126 static tree
15127 tsubst_non_call_postfix_expression (tree t, tree args,
15128 tsubst_flags_t complain,
15129 tree in_decl)
15131 if (TREE_CODE (t) == SCOPE_REF)
15132 t = tsubst_qualified_id (t, args, complain, in_decl,
15133 /*done=*/false, /*address_p=*/false);
15134 else
15135 t = tsubst_copy_and_build (t, args, complain, in_decl,
15136 /*function_p=*/false,
15137 /*integral_constant_expression_p=*/false);
15139 return t;
15142 /* Like tsubst but deals with expressions and performs semantic
15143 analysis. FUNCTION_P is true if T is the "F" in "F (ARGS)". */
15145 tree
15146 tsubst_copy_and_build (tree t,
15147 tree args,
15148 tsubst_flags_t complain,
15149 tree in_decl,
15150 bool function_p,
15151 bool integral_constant_expression_p)
15153 #define RETURN(EXP) do { retval = (EXP); goto out; } while(0)
15154 #define RECUR(NODE) \
15155 tsubst_copy_and_build (NODE, args, complain, in_decl, \
15156 /*function_p=*/false, \
15157 integral_constant_expression_p)
15159 tree retval, op1;
15160 location_t loc;
15162 if (t == NULL_TREE || t == error_mark_node)
15163 return t;
15165 loc = input_location;
15166 if (EXPR_HAS_LOCATION (t))
15167 input_location = EXPR_LOCATION (t);
15169 /* N3276 decltype magic only applies to calls at the top level or on the
15170 right side of a comma. */
15171 tsubst_flags_t decltype_flag = (complain & tf_decltype);
15172 complain &= ~tf_decltype;
15174 switch (TREE_CODE (t))
15176 case USING_DECL:
15177 t = DECL_NAME (t);
15178 /* Fall through. */
15179 case IDENTIFIER_NODE:
15181 tree decl;
15182 cp_id_kind idk;
15183 bool non_integral_constant_expression_p;
15184 const char *error_msg;
15186 if (IDENTIFIER_TYPENAME_P (t))
15188 tree new_type = tsubst (TREE_TYPE (t), args, complain, in_decl);
15189 t = mangle_conv_op_name_for_type (new_type);
15192 /* Look up the name. */
15193 decl = lookup_name (t);
15195 /* By convention, expressions use ERROR_MARK_NODE to indicate
15196 failure, not NULL_TREE. */
15197 if (decl == NULL_TREE)
15198 decl = error_mark_node;
15200 decl = finish_id_expression (t, decl, NULL_TREE,
15201 &idk,
15202 integral_constant_expression_p,
15203 /*allow_non_integral_constant_expression_p=*/(cxx_dialect >= cxx11),
15204 &non_integral_constant_expression_p,
15205 /*template_p=*/false,
15206 /*done=*/true,
15207 /*address_p=*/false,
15208 /*template_arg_p=*/false,
15209 &error_msg,
15210 input_location);
15211 if (error_msg)
15212 error (error_msg);
15213 if (!function_p && identifier_p (decl))
15215 if (complain & tf_error)
15216 unqualified_name_lookup_error (decl);
15217 decl = error_mark_node;
15219 RETURN (decl);
15222 case TEMPLATE_ID_EXPR:
15224 tree object;
15225 tree templ = RECUR (TREE_OPERAND (t, 0));
15226 tree targs = TREE_OPERAND (t, 1);
15228 if (targs)
15229 targs = tsubst_template_args (targs, args, complain, in_decl);
15230 if (targs == error_mark_node)
15231 return error_mark_node;
15233 if (variable_template_p (templ))
15235 templ = lookup_template_variable (templ, targs);
15236 if (!any_dependent_template_arguments_p (targs))
15238 templ = finish_template_variable (templ, complain);
15239 mark_used (templ);
15241 RETURN (convert_from_reference (templ));
15244 if (TREE_CODE (templ) == COMPONENT_REF)
15246 object = TREE_OPERAND (templ, 0);
15247 templ = TREE_OPERAND (templ, 1);
15249 else
15250 object = NULL_TREE;
15251 templ = lookup_template_function (templ, targs);
15253 if (object)
15254 RETURN (build3 (COMPONENT_REF, TREE_TYPE (templ),
15255 object, templ, NULL_TREE));
15256 else
15257 RETURN (baselink_for_fns (templ));
15260 case INDIRECT_REF:
15262 tree r = RECUR (TREE_OPERAND (t, 0));
15264 if (REFERENCE_REF_P (t))
15266 /* A type conversion to reference type will be enclosed in
15267 such an indirect ref, but the substitution of the cast
15268 will have also added such an indirect ref. */
15269 if (TREE_CODE (TREE_TYPE (r)) == REFERENCE_TYPE)
15270 r = convert_from_reference (r);
15272 else
15273 r = build_x_indirect_ref (input_location, r, RO_UNARY_STAR,
15274 complain|decltype_flag);
15275 RETURN (r);
15278 case NOP_EXPR:
15280 tree type = tsubst (TREE_TYPE (t), args, complain, in_decl);
15281 tree op0 = RECUR (TREE_OPERAND (t, 0));
15282 RETURN (build_nop (type, op0));
15285 case IMPLICIT_CONV_EXPR:
15287 tree type = tsubst (TREE_TYPE (t), args, complain, in_decl);
15288 tree expr = RECUR (TREE_OPERAND (t, 0));
15289 int flags = LOOKUP_IMPLICIT;
15290 if (IMPLICIT_CONV_EXPR_DIRECT_INIT (t))
15291 flags = LOOKUP_NORMAL;
15292 RETURN (perform_implicit_conversion_flags (type, expr, complain,
15293 flags));
15296 case CONVERT_EXPR:
15298 tree type = tsubst (TREE_TYPE (t), args, complain, in_decl);
15299 tree op0 = RECUR (TREE_OPERAND (t, 0));
15300 RETURN (build1 (CONVERT_EXPR, type, op0));
15303 case CAST_EXPR:
15304 case REINTERPRET_CAST_EXPR:
15305 case CONST_CAST_EXPR:
15306 case DYNAMIC_CAST_EXPR:
15307 case STATIC_CAST_EXPR:
15309 tree type;
15310 tree op, r = NULL_TREE;
15312 type = tsubst (TREE_TYPE (t), args, complain, in_decl);
15313 if (integral_constant_expression_p
15314 && !cast_valid_in_integral_constant_expression_p (type))
15316 if (complain & tf_error)
15317 error ("a cast to a type other than an integral or "
15318 "enumeration type cannot appear in a constant-expression");
15319 RETURN (error_mark_node);
15322 op = RECUR (TREE_OPERAND (t, 0));
15324 warning_sentinel s(warn_useless_cast);
15325 switch (TREE_CODE (t))
15327 case CAST_EXPR:
15328 r = build_functional_cast (type, op, complain);
15329 break;
15330 case REINTERPRET_CAST_EXPR:
15331 r = build_reinterpret_cast (type, op, complain);
15332 break;
15333 case CONST_CAST_EXPR:
15334 r = build_const_cast (type, op, complain);
15335 break;
15336 case DYNAMIC_CAST_EXPR:
15337 r = build_dynamic_cast (type, op, complain);
15338 break;
15339 case STATIC_CAST_EXPR:
15340 r = build_static_cast (type, op, complain);
15341 break;
15342 default:
15343 gcc_unreachable ();
15346 RETURN (r);
15349 case POSTDECREMENT_EXPR:
15350 case POSTINCREMENT_EXPR:
15351 op1 = tsubst_non_call_postfix_expression (TREE_OPERAND (t, 0),
15352 args, complain, in_decl);
15353 RETURN (build_x_unary_op (input_location, TREE_CODE (t), op1,
15354 complain|decltype_flag));
15356 case PREDECREMENT_EXPR:
15357 case PREINCREMENT_EXPR:
15358 case NEGATE_EXPR:
15359 case BIT_NOT_EXPR:
15360 case ABS_EXPR:
15361 case TRUTH_NOT_EXPR:
15362 case UNARY_PLUS_EXPR: /* Unary + */
15363 case REALPART_EXPR:
15364 case IMAGPART_EXPR:
15365 RETURN (build_x_unary_op (input_location, TREE_CODE (t),
15366 RECUR (TREE_OPERAND (t, 0)),
15367 complain|decltype_flag));
15369 case FIX_TRUNC_EXPR:
15370 RETURN (cp_build_unary_op (FIX_TRUNC_EXPR, RECUR (TREE_OPERAND (t, 0)),
15371 0, complain));
15373 case ADDR_EXPR:
15374 op1 = TREE_OPERAND (t, 0);
15375 if (TREE_CODE (op1) == LABEL_DECL)
15376 RETURN (finish_label_address_expr (DECL_NAME (op1),
15377 EXPR_LOCATION (op1)));
15378 if (TREE_CODE (op1) == SCOPE_REF)
15379 op1 = tsubst_qualified_id (op1, args, complain, in_decl,
15380 /*done=*/true, /*address_p=*/true);
15381 else
15382 op1 = tsubst_non_call_postfix_expression (op1, args, complain,
15383 in_decl);
15384 RETURN (build_x_unary_op (input_location, ADDR_EXPR, op1,
15385 complain|decltype_flag));
15387 case PLUS_EXPR:
15388 case MINUS_EXPR:
15389 case MULT_EXPR:
15390 case TRUNC_DIV_EXPR:
15391 case CEIL_DIV_EXPR:
15392 case FLOOR_DIV_EXPR:
15393 case ROUND_DIV_EXPR:
15394 case EXACT_DIV_EXPR:
15395 case BIT_AND_EXPR:
15396 case BIT_IOR_EXPR:
15397 case BIT_XOR_EXPR:
15398 case TRUNC_MOD_EXPR:
15399 case FLOOR_MOD_EXPR:
15400 case TRUTH_ANDIF_EXPR:
15401 case TRUTH_ORIF_EXPR:
15402 case TRUTH_AND_EXPR:
15403 case TRUTH_OR_EXPR:
15404 case RSHIFT_EXPR:
15405 case LSHIFT_EXPR:
15406 case RROTATE_EXPR:
15407 case LROTATE_EXPR:
15408 case EQ_EXPR:
15409 case NE_EXPR:
15410 case MAX_EXPR:
15411 case MIN_EXPR:
15412 case LE_EXPR:
15413 case GE_EXPR:
15414 case LT_EXPR:
15415 case GT_EXPR:
15416 case MEMBER_REF:
15417 case DOTSTAR_EXPR:
15419 warning_sentinel s1(warn_type_limits);
15420 warning_sentinel s2(warn_div_by_zero);
15421 warning_sentinel s3(warn_logical_op);
15422 warning_sentinel s4(warn_tautological_compare);
15423 tree op0 = RECUR (TREE_OPERAND (t, 0));
15424 tree op1 = RECUR (TREE_OPERAND (t, 1));
15425 tree r = build_x_binary_op
15426 (input_location, TREE_CODE (t),
15427 op0,
15428 (TREE_NO_WARNING (TREE_OPERAND (t, 0))
15429 ? ERROR_MARK
15430 : TREE_CODE (TREE_OPERAND (t, 0))),
15431 op1,
15432 (TREE_NO_WARNING (TREE_OPERAND (t, 1))
15433 ? ERROR_MARK
15434 : TREE_CODE (TREE_OPERAND (t, 1))),
15435 /*overload=*/NULL,
15436 complain|decltype_flag);
15437 if (EXPR_P (r) && TREE_NO_WARNING (t))
15438 TREE_NO_WARNING (r) = TREE_NO_WARNING (t);
15440 RETURN (r);
15443 case POINTER_PLUS_EXPR:
15445 tree op0 = RECUR (TREE_OPERAND (t, 0));
15446 tree op1 = RECUR (TREE_OPERAND (t, 1));
15447 return fold_build_pointer_plus (op0, op1);
15450 case SCOPE_REF:
15451 RETURN (tsubst_qualified_id (t, args, complain, in_decl, /*done=*/true,
15452 /*address_p=*/false));
15453 case ARRAY_REF:
15454 op1 = tsubst_non_call_postfix_expression (TREE_OPERAND (t, 0),
15455 args, complain, in_decl);
15456 RETURN (build_x_array_ref (EXPR_LOCATION (t), op1,
15457 RECUR (TREE_OPERAND (t, 1)),
15458 complain|decltype_flag));
15460 case ARRAY_NOTATION_REF:
15462 tree start_index, length, stride;
15463 op1 = tsubst_non_call_postfix_expression (ARRAY_NOTATION_ARRAY (t),
15464 args, complain, in_decl);
15465 start_index = RECUR (ARRAY_NOTATION_START (t));
15466 length = RECUR (ARRAY_NOTATION_LENGTH (t));
15467 stride = RECUR (ARRAY_NOTATION_STRIDE (t));
15468 RETURN (build_array_notation_ref (EXPR_LOCATION (t), op1, start_index,
15469 length, stride, TREE_TYPE (op1)));
15471 case SIZEOF_EXPR:
15472 if (PACK_EXPANSION_P (TREE_OPERAND (t, 0)))
15473 RETURN (tsubst_copy (t, args, complain, in_decl));
15474 /* Fall through */
15476 case ALIGNOF_EXPR:
15478 tree r;
15480 op1 = TREE_OPERAND (t, 0);
15481 if (TREE_CODE (t) == SIZEOF_EXPR && SIZEOF_EXPR_TYPE_P (t))
15482 op1 = TREE_TYPE (op1);
15483 if (!args)
15485 /* When there are no ARGS, we are trying to evaluate a
15486 non-dependent expression from the parser. Trying to do
15487 the substitutions may not work. */
15488 if (!TYPE_P (op1))
15489 op1 = TREE_TYPE (op1);
15491 else
15493 ++cp_unevaluated_operand;
15494 ++c_inhibit_evaluation_warnings;
15495 if (TYPE_P (op1))
15496 op1 = tsubst (op1, args, complain, in_decl);
15497 else
15498 op1 = tsubst_copy_and_build (op1, args, complain, in_decl,
15499 /*function_p=*/false,
15500 /*integral_constant_expression_p=*/
15501 false);
15502 --cp_unevaluated_operand;
15503 --c_inhibit_evaluation_warnings;
15505 if (TYPE_P (op1))
15506 r = cxx_sizeof_or_alignof_type (op1, TREE_CODE (t),
15507 complain & tf_error);
15508 else
15509 r = cxx_sizeof_or_alignof_expr (op1, TREE_CODE (t),
15510 complain & tf_error);
15511 if (TREE_CODE (t) == SIZEOF_EXPR && r != error_mark_node)
15513 if (TREE_CODE (r) != SIZEOF_EXPR || TYPE_P (op1))
15515 if (!processing_template_decl && TYPE_P (op1))
15517 r = build_min (SIZEOF_EXPR, size_type_node,
15518 build1 (NOP_EXPR, op1, error_mark_node));
15519 SIZEOF_EXPR_TYPE_P (r) = 1;
15521 else
15522 r = build_min (SIZEOF_EXPR, size_type_node, op1);
15523 TREE_SIDE_EFFECTS (r) = 0;
15524 TREE_READONLY (r) = 1;
15526 SET_EXPR_LOCATION (r, EXPR_LOCATION (t));
15528 RETURN (r);
15531 case AT_ENCODE_EXPR:
15533 op1 = TREE_OPERAND (t, 0);
15534 ++cp_unevaluated_operand;
15535 ++c_inhibit_evaluation_warnings;
15536 op1 = tsubst_copy_and_build (op1, args, complain, in_decl,
15537 /*function_p=*/false,
15538 /*integral_constant_expression_p=*/false);
15539 --cp_unevaluated_operand;
15540 --c_inhibit_evaluation_warnings;
15541 RETURN (objc_build_encode_expr (op1));
15544 case NOEXCEPT_EXPR:
15545 op1 = TREE_OPERAND (t, 0);
15546 ++cp_unevaluated_operand;
15547 ++c_inhibit_evaluation_warnings;
15548 ++cp_noexcept_operand;
15549 op1 = tsubst_copy_and_build (op1, args, complain, in_decl,
15550 /*function_p=*/false,
15551 /*integral_constant_expression_p=*/false);
15552 --cp_unevaluated_operand;
15553 --c_inhibit_evaluation_warnings;
15554 --cp_noexcept_operand;
15555 RETURN (finish_noexcept_expr (op1, complain));
15557 case MODOP_EXPR:
15559 warning_sentinel s(warn_div_by_zero);
15560 tree lhs = RECUR (TREE_OPERAND (t, 0));
15561 tree rhs = RECUR (TREE_OPERAND (t, 2));
15562 tree r = build_x_modify_expr
15563 (EXPR_LOCATION (t), lhs, TREE_CODE (TREE_OPERAND (t, 1)), rhs,
15564 complain|decltype_flag);
15565 /* TREE_NO_WARNING must be set if either the expression was
15566 parenthesized or it uses an operator such as >>= rather
15567 than plain assignment. In the former case, it was already
15568 set and must be copied. In the latter case,
15569 build_x_modify_expr sets it and it must not be reset
15570 here. */
15571 if (TREE_NO_WARNING (t))
15572 TREE_NO_WARNING (r) = TREE_NO_WARNING (t);
15574 RETURN (r);
15577 case ARROW_EXPR:
15578 op1 = tsubst_non_call_postfix_expression (TREE_OPERAND (t, 0),
15579 args, complain, in_decl);
15580 /* Remember that there was a reference to this entity. */
15581 if (DECL_P (op1)
15582 && !mark_used (op1, complain) && !(complain & tf_error))
15583 RETURN (error_mark_node);
15584 RETURN (build_x_arrow (input_location, op1, complain));
15586 case NEW_EXPR:
15588 tree placement = RECUR (TREE_OPERAND (t, 0));
15589 tree init = RECUR (TREE_OPERAND (t, 3));
15590 vec<tree, va_gc> *placement_vec;
15591 vec<tree, va_gc> *init_vec;
15592 tree ret;
15594 if (placement == NULL_TREE)
15595 placement_vec = NULL;
15596 else
15598 placement_vec = make_tree_vector ();
15599 for (; placement != NULL_TREE; placement = TREE_CHAIN (placement))
15600 vec_safe_push (placement_vec, TREE_VALUE (placement));
15603 /* If there was an initializer in the original tree, but it
15604 instantiated to an empty list, then we should pass a
15605 non-NULL empty vector to tell build_new that it was an
15606 empty initializer() rather than no initializer. This can
15607 only happen when the initializer is a pack expansion whose
15608 parameter packs are of length zero. */
15609 if (init == NULL_TREE && TREE_OPERAND (t, 3) == NULL_TREE)
15610 init_vec = NULL;
15611 else
15613 init_vec = make_tree_vector ();
15614 if (init == void_node)
15615 gcc_assert (init_vec != NULL);
15616 else
15618 for (; init != NULL_TREE; init = TREE_CHAIN (init))
15619 vec_safe_push (init_vec, TREE_VALUE (init));
15623 tree op1 = tsubst (TREE_OPERAND (t, 1), args, complain, in_decl);
15624 tree op2 = RECUR (TREE_OPERAND (t, 2));
15625 ret = build_new (&placement_vec, op1, op2, &init_vec,
15626 NEW_EXPR_USE_GLOBAL (t),
15627 complain);
15629 if (placement_vec != NULL)
15630 release_tree_vector (placement_vec);
15631 if (init_vec != NULL)
15632 release_tree_vector (init_vec);
15634 RETURN (ret);
15637 case DELETE_EXPR:
15639 tree op0 = RECUR (TREE_OPERAND (t, 0));
15640 tree op1 = RECUR (TREE_OPERAND (t, 1));
15641 RETURN (delete_sanity (op0, op1,
15642 DELETE_EXPR_USE_VEC (t),
15643 DELETE_EXPR_USE_GLOBAL (t),
15644 complain));
15647 case COMPOUND_EXPR:
15649 tree op0 = tsubst_copy_and_build (TREE_OPERAND (t, 0), args,
15650 complain & ~tf_decltype, in_decl,
15651 /*function_p=*/false,
15652 integral_constant_expression_p);
15653 RETURN (build_x_compound_expr (EXPR_LOCATION (t),
15654 op0,
15655 RECUR (TREE_OPERAND (t, 1)),
15656 complain|decltype_flag));
15659 case CALL_EXPR:
15661 tree function;
15662 vec<tree, va_gc> *call_args;
15663 unsigned int nargs, i;
15664 bool qualified_p;
15665 bool koenig_p;
15666 tree ret;
15668 function = CALL_EXPR_FN (t);
15669 /* When we parsed the expression, we determined whether or
15670 not Koenig lookup should be performed. */
15671 koenig_p = KOENIG_LOOKUP_P (t);
15672 if (TREE_CODE (function) == SCOPE_REF)
15674 qualified_p = true;
15675 function = tsubst_qualified_id (function, args, complain, in_decl,
15676 /*done=*/false,
15677 /*address_p=*/false);
15679 else if (koenig_p && identifier_p (function))
15681 /* Do nothing; calling tsubst_copy_and_build on an identifier
15682 would incorrectly perform unqualified lookup again.
15684 Note that we can also have an IDENTIFIER_NODE if the earlier
15685 unqualified lookup found a member function; in that case
15686 koenig_p will be false and we do want to do the lookup
15687 again to find the instantiated member function.
15689 FIXME but doing that causes c++/15272, so we need to stop
15690 using IDENTIFIER_NODE in that situation. */
15691 qualified_p = false;
15693 else
15695 if (TREE_CODE (function) == COMPONENT_REF)
15697 tree op = TREE_OPERAND (function, 1);
15699 qualified_p = (TREE_CODE (op) == SCOPE_REF
15700 || (BASELINK_P (op)
15701 && BASELINK_QUALIFIED_P (op)));
15703 else
15704 qualified_p = false;
15706 if (TREE_CODE (function) == ADDR_EXPR
15707 && TREE_CODE (TREE_OPERAND (function, 0)) == FUNCTION_DECL)
15708 /* Avoid error about taking the address of a constructor. */
15709 function = TREE_OPERAND (function, 0);
15711 function = tsubst_copy_and_build (function, args, complain,
15712 in_decl,
15713 !qualified_p,
15714 integral_constant_expression_p);
15716 if (BASELINK_P (function))
15717 qualified_p = true;
15720 nargs = call_expr_nargs (t);
15721 call_args = make_tree_vector ();
15722 for (i = 0; i < nargs; ++i)
15724 tree arg = CALL_EXPR_ARG (t, i);
15726 if (!PACK_EXPANSION_P (arg))
15727 vec_safe_push (call_args, RECUR (CALL_EXPR_ARG (t, i)));
15728 else
15730 /* Expand the pack expansion and push each entry onto
15731 CALL_ARGS. */
15732 arg = tsubst_pack_expansion (arg, args, complain, in_decl);
15733 if (TREE_CODE (arg) == TREE_VEC)
15735 unsigned int len, j;
15737 len = TREE_VEC_LENGTH (arg);
15738 for (j = 0; j < len; ++j)
15740 tree value = TREE_VEC_ELT (arg, j);
15741 if (value != NULL_TREE)
15742 value = convert_from_reference (value);
15743 vec_safe_push (call_args, value);
15746 else
15748 /* A partial substitution. Add one entry. */
15749 vec_safe_push (call_args, arg);
15754 /* We do not perform argument-dependent lookup if normal
15755 lookup finds a non-function, in accordance with the
15756 expected resolution of DR 218. */
15757 if (koenig_p
15758 && ((is_overloaded_fn (function)
15759 /* If lookup found a member function, the Koenig lookup is
15760 not appropriate, even if an unqualified-name was used
15761 to denote the function. */
15762 && !DECL_FUNCTION_MEMBER_P (get_first_fn (function)))
15763 || identifier_p (function))
15764 /* Only do this when substitution turns a dependent call
15765 into a non-dependent call. */
15766 && type_dependent_expression_p_push (t)
15767 && !any_type_dependent_arguments_p (call_args))
15768 function = perform_koenig_lookup (function, call_args, tf_none);
15770 if (identifier_p (function)
15771 && !any_type_dependent_arguments_p (call_args))
15773 if (koenig_p && (complain & tf_warning_or_error))
15775 /* For backwards compatibility and good diagnostics, try
15776 the unqualified lookup again if we aren't in SFINAE
15777 context. */
15778 tree unq = (tsubst_copy_and_build
15779 (function, args, complain, in_decl, true,
15780 integral_constant_expression_p));
15781 if (unq == error_mark_node)
15782 RETURN (error_mark_node);
15784 if (unq != function)
15786 tree fn = unq;
15787 if (INDIRECT_REF_P (fn))
15788 fn = TREE_OPERAND (fn, 0);
15789 if (TREE_CODE (fn) == COMPONENT_REF)
15790 fn = TREE_OPERAND (fn, 1);
15791 if (is_overloaded_fn (fn))
15792 fn = get_first_fn (fn);
15793 if (permerror (EXPR_LOC_OR_LOC (t, input_location),
15794 "%qD was not declared in this scope, "
15795 "and no declarations were found by "
15796 "argument-dependent lookup at the point "
15797 "of instantiation", function))
15799 if (!DECL_P (fn))
15800 /* Can't say anything more. */;
15801 else if (DECL_CLASS_SCOPE_P (fn))
15803 location_t loc = EXPR_LOC_OR_LOC (t,
15804 input_location);
15805 inform (loc,
15806 "declarations in dependent base %qT are "
15807 "not found by unqualified lookup",
15808 DECL_CLASS_CONTEXT (fn));
15809 if (current_class_ptr)
15810 inform (loc,
15811 "use %<this->%D%> instead", function);
15812 else
15813 inform (loc,
15814 "use %<%T::%D%> instead",
15815 current_class_name, function);
15817 else
15818 inform (DECL_SOURCE_LOCATION (fn),
15819 "%qD declared here, later in the "
15820 "translation unit", fn);
15822 function = unq;
15825 if (identifier_p (function))
15827 if (complain & tf_error)
15828 unqualified_name_lookup_error (function);
15829 release_tree_vector (call_args);
15830 RETURN (error_mark_node);
15834 /* Remember that there was a reference to this entity. */
15835 if (DECL_P (function)
15836 && !mark_used (function, complain) && !(complain & tf_error))
15837 RETURN (error_mark_node);
15839 /* Put back tf_decltype for the actual call. */
15840 complain |= decltype_flag;
15842 if (TREE_CODE (function) == OFFSET_REF)
15843 ret = build_offset_ref_call_from_tree (function, &call_args,
15844 complain);
15845 else if (TREE_CODE (function) == COMPONENT_REF)
15847 tree instance = TREE_OPERAND (function, 0);
15848 tree fn = TREE_OPERAND (function, 1);
15850 if (processing_template_decl
15851 && (type_dependent_expression_p (instance)
15852 || (!BASELINK_P (fn)
15853 && TREE_CODE (fn) != FIELD_DECL)
15854 || type_dependent_expression_p (fn)
15855 || any_type_dependent_arguments_p (call_args)))
15856 ret = build_nt_call_vec (function, call_args);
15857 else if (!BASELINK_P (fn))
15858 ret = finish_call_expr (function, &call_args,
15859 /*disallow_virtual=*/false,
15860 /*koenig_p=*/false,
15861 complain);
15862 else
15863 ret = (build_new_method_call
15864 (instance, fn,
15865 &call_args, NULL_TREE,
15866 qualified_p ? LOOKUP_NONVIRTUAL : LOOKUP_NORMAL,
15867 /*fn_p=*/NULL,
15868 complain));
15870 else
15871 ret = finish_call_expr (function, &call_args,
15872 /*disallow_virtual=*/qualified_p,
15873 koenig_p,
15874 complain);
15876 release_tree_vector (call_args);
15878 RETURN (ret);
15881 case COND_EXPR:
15883 tree cond = RECUR (TREE_OPERAND (t, 0));
15884 tree folded_cond = fold_non_dependent_expr (cond);
15885 tree exp1, exp2;
15887 if (TREE_CODE (folded_cond) == INTEGER_CST)
15889 if (integer_zerop (folded_cond))
15891 ++c_inhibit_evaluation_warnings;
15892 exp1 = RECUR (TREE_OPERAND (t, 1));
15893 --c_inhibit_evaluation_warnings;
15894 exp2 = RECUR (TREE_OPERAND (t, 2));
15896 else
15898 exp1 = RECUR (TREE_OPERAND (t, 1));
15899 ++c_inhibit_evaluation_warnings;
15900 exp2 = RECUR (TREE_OPERAND (t, 2));
15901 --c_inhibit_evaluation_warnings;
15903 cond = folded_cond;
15905 else
15907 exp1 = RECUR (TREE_OPERAND (t, 1));
15908 exp2 = RECUR (TREE_OPERAND (t, 2));
15911 RETURN (build_x_conditional_expr (EXPR_LOCATION (t),
15912 cond, exp1, exp2, complain));
15915 case PSEUDO_DTOR_EXPR:
15917 tree op0 = RECUR (TREE_OPERAND (t, 0));
15918 tree op1 = RECUR (TREE_OPERAND (t, 1));
15919 tree op2 = tsubst (TREE_OPERAND (t, 2), args, complain, in_decl);
15920 RETURN (finish_pseudo_destructor_expr (op0, op1, op2,
15921 input_location));
15924 case TREE_LIST:
15926 tree purpose, value, chain;
15928 if (t == void_list_node)
15929 RETURN (t);
15931 if ((TREE_PURPOSE (t) && PACK_EXPANSION_P (TREE_PURPOSE (t)))
15932 || (TREE_VALUE (t) && PACK_EXPANSION_P (TREE_VALUE (t))))
15934 /* We have pack expansions, so expand those and
15935 create a new list out of it. */
15936 tree purposevec = NULL_TREE;
15937 tree valuevec = NULL_TREE;
15938 tree chain;
15939 int i, len = -1;
15941 /* Expand the argument expressions. */
15942 if (TREE_PURPOSE (t))
15943 purposevec = tsubst_pack_expansion (TREE_PURPOSE (t), args,
15944 complain, in_decl);
15945 if (TREE_VALUE (t))
15946 valuevec = tsubst_pack_expansion (TREE_VALUE (t), args,
15947 complain, in_decl);
15949 /* Build the rest of the list. */
15950 chain = TREE_CHAIN (t);
15951 if (chain && chain != void_type_node)
15952 chain = RECUR (chain);
15954 /* Determine the number of arguments. */
15955 if (purposevec && TREE_CODE (purposevec) == TREE_VEC)
15957 len = TREE_VEC_LENGTH (purposevec);
15958 gcc_assert (!valuevec || len == TREE_VEC_LENGTH (valuevec));
15960 else if (TREE_CODE (valuevec) == TREE_VEC)
15961 len = TREE_VEC_LENGTH (valuevec);
15962 else
15964 /* Since we only performed a partial substitution into
15965 the argument pack, we only RETURN (a single list
15966 node. */
15967 if (purposevec == TREE_PURPOSE (t)
15968 && valuevec == TREE_VALUE (t)
15969 && chain == TREE_CHAIN (t))
15970 RETURN (t);
15972 RETURN (tree_cons (purposevec, valuevec, chain));
15975 /* Convert the argument vectors into a TREE_LIST */
15976 i = len;
15977 while (i > 0)
15979 /* Grab the Ith values. */
15980 i--;
15981 purpose = purposevec ? TREE_VEC_ELT (purposevec, i)
15982 : NULL_TREE;
15983 value
15984 = valuevec ? convert_from_reference (TREE_VEC_ELT (valuevec, i))
15985 : NULL_TREE;
15987 /* Build the list (backwards). */
15988 chain = tree_cons (purpose, value, chain);
15991 RETURN (chain);
15994 purpose = TREE_PURPOSE (t);
15995 if (purpose)
15996 purpose = RECUR (purpose);
15997 value = TREE_VALUE (t);
15998 if (value)
15999 value = RECUR (value);
16000 chain = TREE_CHAIN (t);
16001 if (chain && chain != void_type_node)
16002 chain = RECUR (chain);
16003 if (purpose == TREE_PURPOSE (t)
16004 && value == TREE_VALUE (t)
16005 && chain == TREE_CHAIN (t))
16006 RETURN (t);
16007 RETURN (tree_cons (purpose, value, chain));
16010 case COMPONENT_REF:
16012 tree object;
16013 tree object_type;
16014 tree member;
16015 tree r;
16017 object = tsubst_non_call_postfix_expression (TREE_OPERAND (t, 0),
16018 args, complain, in_decl);
16019 /* Remember that there was a reference to this entity. */
16020 if (DECL_P (object)
16021 && !mark_used (object, complain) && !(complain & tf_error))
16022 RETURN (error_mark_node);
16023 object_type = TREE_TYPE (object);
16025 member = TREE_OPERAND (t, 1);
16026 if (BASELINK_P (member))
16027 member = tsubst_baselink (member,
16028 non_reference (TREE_TYPE (object)),
16029 args, complain, in_decl);
16030 else
16031 member = tsubst_copy (member, args, complain, in_decl);
16032 if (member == error_mark_node)
16033 RETURN (error_mark_node);
16035 if (type_dependent_expression_p (object))
16036 /* We can't do much here. */;
16037 else if (!CLASS_TYPE_P (object_type))
16039 if (scalarish_type_p (object_type))
16041 tree s = NULL_TREE;
16042 tree dtor = member;
16044 if (TREE_CODE (dtor) == SCOPE_REF)
16046 s = TREE_OPERAND (dtor, 0);
16047 dtor = TREE_OPERAND (dtor, 1);
16049 if (TREE_CODE (dtor) == BIT_NOT_EXPR)
16051 dtor = TREE_OPERAND (dtor, 0);
16052 if (TYPE_P (dtor))
16053 RETURN (finish_pseudo_destructor_expr
16054 (object, s, dtor, input_location));
16058 else if (TREE_CODE (member) == SCOPE_REF
16059 && TREE_CODE (TREE_OPERAND (member, 1)) == TEMPLATE_ID_EXPR)
16061 /* Lookup the template functions now that we know what the
16062 scope is. */
16063 tree scope = TREE_OPERAND (member, 0);
16064 tree tmpl = TREE_OPERAND (TREE_OPERAND (member, 1), 0);
16065 tree args = TREE_OPERAND (TREE_OPERAND (member, 1), 1);
16066 member = lookup_qualified_name (scope, tmpl,
16067 /*is_type_p=*/false,
16068 /*complain=*/false);
16069 if (BASELINK_P (member))
16071 BASELINK_FUNCTIONS (member)
16072 = build_nt (TEMPLATE_ID_EXPR, BASELINK_FUNCTIONS (member),
16073 args);
16074 member = (adjust_result_of_qualified_name_lookup
16075 (member, BINFO_TYPE (BASELINK_BINFO (member)),
16076 object_type));
16078 else
16080 qualified_name_lookup_error (scope, tmpl, member,
16081 input_location);
16082 RETURN (error_mark_node);
16085 else if (TREE_CODE (member) == SCOPE_REF
16086 && !CLASS_TYPE_P (TREE_OPERAND (member, 0))
16087 && TREE_CODE (TREE_OPERAND (member, 0)) != NAMESPACE_DECL)
16089 if (complain & tf_error)
16091 if (TYPE_P (TREE_OPERAND (member, 0)))
16092 error ("%qT is not a class or namespace",
16093 TREE_OPERAND (member, 0));
16094 else
16095 error ("%qD is not a class or namespace",
16096 TREE_OPERAND (member, 0));
16098 RETURN (error_mark_node);
16100 else if (TREE_CODE (member) == FIELD_DECL)
16102 r = finish_non_static_data_member (member, object, NULL_TREE);
16103 if (TREE_CODE (r) == COMPONENT_REF)
16104 REF_PARENTHESIZED_P (r) = REF_PARENTHESIZED_P (t);
16105 RETURN (r);
16108 r = finish_class_member_access_expr (object, member,
16109 /*template_p=*/false,
16110 complain);
16111 if (TREE_CODE (r) == COMPONENT_REF)
16112 REF_PARENTHESIZED_P (r) = REF_PARENTHESIZED_P (t);
16113 RETURN (r);
16116 case THROW_EXPR:
16117 RETURN (build_throw
16118 (RECUR (TREE_OPERAND (t, 0))));
16120 case CONSTRUCTOR:
16122 vec<constructor_elt, va_gc> *n;
16123 constructor_elt *ce;
16124 unsigned HOST_WIDE_INT idx;
16125 tree type = tsubst (TREE_TYPE (t), args, complain, in_decl);
16126 bool process_index_p;
16127 int newlen;
16128 bool need_copy_p = false;
16129 tree r;
16131 if (type == error_mark_node)
16132 RETURN (error_mark_node);
16134 /* digest_init will do the wrong thing if we let it. */
16135 if (type && TYPE_PTRMEMFUNC_P (type))
16136 RETURN (t);
16138 /* We do not want to process the index of aggregate
16139 initializers as they are identifier nodes which will be
16140 looked up by digest_init. */
16141 process_index_p = !(type && MAYBE_CLASS_TYPE_P (type));
16143 n = vec_safe_copy (CONSTRUCTOR_ELTS (t));
16144 newlen = vec_safe_length (n);
16145 FOR_EACH_VEC_SAFE_ELT (n, idx, ce)
16147 if (ce->index && process_index_p
16148 /* An identifier index is looked up in the type
16149 being initialized, not the current scope. */
16150 && TREE_CODE (ce->index) != IDENTIFIER_NODE)
16151 ce->index = RECUR (ce->index);
16153 if (PACK_EXPANSION_P (ce->value))
16155 /* Substitute into the pack expansion. */
16156 ce->value = tsubst_pack_expansion (ce->value, args, complain,
16157 in_decl);
16159 if (ce->value == error_mark_node
16160 || PACK_EXPANSION_P (ce->value))
16162 else if (TREE_VEC_LENGTH (ce->value) == 1)
16163 /* Just move the argument into place. */
16164 ce->value = TREE_VEC_ELT (ce->value, 0);
16165 else
16167 /* Update the length of the final CONSTRUCTOR
16168 arguments vector, and note that we will need to
16169 copy.*/
16170 newlen = newlen + TREE_VEC_LENGTH (ce->value) - 1;
16171 need_copy_p = true;
16174 else
16175 ce->value = RECUR (ce->value);
16178 if (need_copy_p)
16180 vec<constructor_elt, va_gc> *old_n = n;
16182 vec_alloc (n, newlen);
16183 FOR_EACH_VEC_ELT (*old_n, idx, ce)
16185 if (TREE_CODE (ce->value) == TREE_VEC)
16187 int i, len = TREE_VEC_LENGTH (ce->value);
16188 for (i = 0; i < len; ++i)
16189 CONSTRUCTOR_APPEND_ELT (n, 0,
16190 TREE_VEC_ELT (ce->value, i));
16192 else
16193 CONSTRUCTOR_APPEND_ELT (n, 0, ce->value);
16197 r = build_constructor (init_list_type_node, n);
16198 CONSTRUCTOR_IS_DIRECT_INIT (r) = CONSTRUCTOR_IS_DIRECT_INIT (t);
16200 if (TREE_HAS_CONSTRUCTOR (t))
16201 RETURN (finish_compound_literal (type, r, complain));
16203 TREE_TYPE (r) = type;
16204 RETURN (r);
16207 case TYPEID_EXPR:
16209 tree operand_0 = TREE_OPERAND (t, 0);
16210 if (TYPE_P (operand_0))
16212 operand_0 = tsubst (operand_0, args, complain, in_decl);
16213 RETURN (get_typeid (operand_0, complain));
16215 else
16217 operand_0 = RECUR (operand_0);
16218 RETURN (build_typeid (operand_0, complain));
16222 case VAR_DECL:
16223 if (!args)
16224 RETURN (t);
16225 else if (DECL_PACK_P (t))
16227 /* We don't build decls for an instantiation of a
16228 variadic capture proxy, we instantiate the elements
16229 when needed. */
16230 gcc_assert (DECL_HAS_VALUE_EXPR_P (t));
16231 return RECUR (DECL_VALUE_EXPR (t));
16233 /* Fall through */
16235 case PARM_DECL:
16237 tree r = tsubst_copy (t, args, complain, in_decl);
16238 /* ??? We're doing a subset of finish_id_expression here. */
16239 if (VAR_P (r)
16240 && !processing_template_decl
16241 && !cp_unevaluated_operand
16242 && (TREE_STATIC (r) || DECL_EXTERNAL (r))
16243 && CP_DECL_THREAD_LOCAL_P (r))
16245 if (tree wrap = get_tls_wrapper_fn (r))
16246 /* Replace an evaluated use of the thread_local variable with
16247 a call to its wrapper. */
16248 r = build_cxx_call (wrap, 0, NULL, tf_warning_or_error);
16250 else if (outer_automatic_var_p (r))
16252 r = process_outer_var_ref (r, complain);
16253 if (is_capture_proxy (r))
16254 register_local_specialization (r, t);
16257 if (TREE_CODE (TREE_TYPE (t)) != REFERENCE_TYPE)
16258 /* If the original type was a reference, we'll be wrapped in
16259 the appropriate INDIRECT_REF. */
16260 r = convert_from_reference (r);
16261 RETURN (r);
16264 case VA_ARG_EXPR:
16266 tree op0 = RECUR (TREE_OPERAND (t, 0));
16267 tree type = tsubst (TREE_TYPE (t), args, complain, in_decl);
16268 RETURN (build_x_va_arg (EXPR_LOCATION (t), op0, type));
16271 case OFFSETOF_EXPR:
16272 RETURN (finish_offsetof (RECUR (TREE_OPERAND (t, 0)),
16273 EXPR_LOCATION (t)));
16275 case TRAIT_EXPR:
16277 tree type1 = tsubst (TRAIT_EXPR_TYPE1 (t), args,
16278 complain, in_decl);
16280 tree type2 = TRAIT_EXPR_TYPE2 (t);
16281 if (type2 && TREE_CODE (type2) == TREE_LIST)
16282 type2 = RECUR (type2);
16283 else if (type2)
16284 type2 = tsubst (type2, args, complain, in_decl);
16286 RETURN (finish_trait_expr (TRAIT_EXPR_KIND (t), type1, type2));
16289 case STMT_EXPR:
16291 tree old_stmt_expr = cur_stmt_expr;
16292 tree stmt_expr = begin_stmt_expr ();
16294 cur_stmt_expr = stmt_expr;
16295 tsubst_expr (STMT_EXPR_STMT (t), args, complain, in_decl,
16296 integral_constant_expression_p);
16297 stmt_expr = finish_stmt_expr (stmt_expr, false);
16298 cur_stmt_expr = old_stmt_expr;
16300 /* If the resulting list of expression statement is empty,
16301 fold it further into void_node. */
16302 if (empty_expr_stmt_p (stmt_expr))
16303 stmt_expr = void_node;
16305 RETURN (stmt_expr);
16308 case LAMBDA_EXPR:
16310 tree r = build_lambda_expr ();
16312 tree type = tsubst (LAMBDA_EXPR_CLOSURE (t), args, complain, NULL_TREE);
16313 LAMBDA_EXPR_CLOSURE (r) = type;
16314 CLASSTYPE_LAMBDA_EXPR (type) = r;
16316 LAMBDA_EXPR_LOCATION (r)
16317 = LAMBDA_EXPR_LOCATION (t);
16318 LAMBDA_EXPR_DEFAULT_CAPTURE_MODE (r)
16319 = LAMBDA_EXPR_DEFAULT_CAPTURE_MODE (t);
16320 LAMBDA_EXPR_MUTABLE_P (r) = LAMBDA_EXPR_MUTABLE_P (t);
16321 LAMBDA_EXPR_DISCRIMINATOR (r)
16322 = (LAMBDA_EXPR_DISCRIMINATOR (t));
16323 /* For a function scope, we want to use tsubst so that we don't
16324 complain about referring to an auto function before its return
16325 type has been deduced. Otherwise, we want to use tsubst_copy so
16326 that we look up the existing field/parameter/variable rather
16327 than build a new one. */
16328 tree scope = LAMBDA_EXPR_EXTRA_SCOPE (t);
16329 if (scope && TREE_CODE (scope) == FUNCTION_DECL)
16330 scope = tsubst (scope, args, complain, in_decl);
16331 else if (scope && TREE_CODE (scope) == PARM_DECL)
16333 /* Look up the parameter we want directly, as tsubst_copy
16334 doesn't do what we need. */
16335 tree fn = tsubst (DECL_CONTEXT (scope), args, complain, in_decl);
16336 tree parm = FUNCTION_FIRST_USER_PARM (fn);
16337 while (DECL_PARM_INDEX (parm) != DECL_PARM_INDEX (scope))
16338 parm = DECL_CHAIN (parm);
16339 scope = parm;
16340 /* FIXME Work around the parm not having DECL_CONTEXT set. */
16341 if (DECL_CONTEXT (scope) == NULL_TREE)
16342 DECL_CONTEXT (scope) = fn;
16344 else
16345 scope = RECUR (scope);
16346 LAMBDA_EXPR_EXTRA_SCOPE (r) = scope;
16347 LAMBDA_EXPR_RETURN_TYPE (r)
16348 = tsubst (LAMBDA_EXPR_RETURN_TYPE (t), args, complain, in_decl);
16350 gcc_assert (LAMBDA_EXPR_THIS_CAPTURE (t) == NULL_TREE
16351 && LAMBDA_EXPR_PENDING_PROXIES (t) == NULL);
16353 /* Do this again now that LAMBDA_EXPR_EXTRA_SCOPE is set. */
16354 determine_visibility (TYPE_NAME (type));
16355 /* Now that we know visibility, instantiate the type so we have a
16356 declaration of the op() for later calls to lambda_function. */
16357 complete_type (type);
16359 LAMBDA_EXPR_THIS_CAPTURE (r) = NULL_TREE;
16361 insert_pending_capture_proxies ();
16363 RETURN (build_lambda_object (r));
16366 case TARGET_EXPR:
16367 /* We can get here for a constant initializer of non-dependent type.
16368 FIXME stop folding in cp_parser_initializer_clause. */
16370 tree r = get_target_expr_sfinae (RECUR (TARGET_EXPR_INITIAL (t)),
16371 complain);
16372 RETURN (r);
16375 case TRANSACTION_EXPR:
16376 RETURN (tsubst_expr(t, args, complain, in_decl,
16377 integral_constant_expression_p));
16379 case PAREN_EXPR:
16380 RETURN (finish_parenthesized_expr (RECUR (TREE_OPERAND (t, 0))));
16382 case VEC_PERM_EXPR:
16384 tree op0 = RECUR (TREE_OPERAND (t, 0));
16385 tree op1 = RECUR (TREE_OPERAND (t, 1));
16386 tree op2 = RECUR (TREE_OPERAND (t, 2));
16387 RETURN (build_x_vec_perm_expr (input_location, op0, op1, op2,
16388 complain));
16391 case REQUIRES_EXPR:
16392 RETURN (tsubst_requires_expr (t, args, complain, in_decl));
16394 default:
16395 /* Handle Objective-C++ constructs, if appropriate. */
16397 tree subst
16398 = objcp_tsubst_copy_and_build (t, args, complain,
16399 in_decl, /*function_p=*/false);
16400 if (subst)
16401 RETURN (subst);
16403 RETURN (tsubst_copy (t, args, complain, in_decl));
16406 #undef RECUR
16407 #undef RETURN
16408 out:
16409 input_location = loc;
16410 return retval;
16413 /* Verify that the instantiated ARGS are valid. For type arguments,
16414 make sure that the type's linkage is ok. For non-type arguments,
16415 make sure they are constants if they are integral or enumerations.
16416 Emit an error under control of COMPLAIN, and return TRUE on error. */
16418 static bool
16419 check_instantiated_arg (tree tmpl, tree t, tsubst_flags_t complain)
16421 if (dependent_template_arg_p (t))
16422 return false;
16423 if (ARGUMENT_PACK_P (t))
16425 tree vec = ARGUMENT_PACK_ARGS (t);
16426 int len = TREE_VEC_LENGTH (vec);
16427 bool result = false;
16428 int i;
16430 for (i = 0; i < len; ++i)
16431 if (check_instantiated_arg (tmpl, TREE_VEC_ELT (vec, i), complain))
16432 result = true;
16433 return result;
16435 else if (TYPE_P (t))
16437 /* [basic.link]: A name with no linkage (notably, the name
16438 of a class or enumeration declared in a local scope)
16439 shall not be used to declare an entity with linkage.
16440 This implies that names with no linkage cannot be used as
16441 template arguments
16443 DR 757 relaxes this restriction for C++0x. */
16444 tree nt = (cxx_dialect > cxx98 ? NULL_TREE
16445 : no_linkage_check (t, /*relaxed_p=*/false));
16447 if (nt)
16449 /* DR 488 makes use of a type with no linkage cause
16450 type deduction to fail. */
16451 if (complain & tf_error)
16453 if (TYPE_ANONYMOUS_P (nt))
16454 error ("%qT is/uses anonymous type", t);
16455 else
16456 error ("template argument for %qD uses local type %qT",
16457 tmpl, t);
16459 return true;
16461 /* In order to avoid all sorts of complications, we do not
16462 allow variably-modified types as template arguments. */
16463 else if (variably_modified_type_p (t, NULL_TREE))
16465 if (complain & tf_error)
16466 error ("%qT is a variably modified type", t);
16467 return true;
16470 /* Class template and alias template arguments should be OK. */
16471 else if (DECL_TYPE_TEMPLATE_P (t))
16473 /* A non-type argument of integral or enumerated type must be a
16474 constant. */
16475 else if (TREE_TYPE (t)
16476 && INTEGRAL_OR_ENUMERATION_TYPE_P (TREE_TYPE (t))
16477 && !REFERENCE_REF_P (t)
16478 && !TREE_CONSTANT (t))
16480 if (complain & tf_error)
16481 error ("integral expression %qE is not constant", t);
16482 return true;
16484 return false;
16487 static bool
16488 check_instantiated_args (tree tmpl, tree args, tsubst_flags_t complain)
16490 int ix, len = DECL_NTPARMS (tmpl);
16491 bool result = false;
16493 for (ix = 0; ix != len; ix++)
16495 if (check_instantiated_arg (tmpl, TREE_VEC_ELT (args, ix), complain))
16496 result = true;
16498 if (result && (complain & tf_error))
16499 error (" trying to instantiate %qD", tmpl);
16500 return result;
16503 /* We're out of SFINAE context now, so generate diagnostics for the access
16504 errors we saw earlier when instantiating D from TMPL and ARGS. */
16506 static void
16507 recheck_decl_substitution (tree d, tree tmpl, tree args)
16509 tree pattern = DECL_TEMPLATE_RESULT (tmpl);
16510 tree type = TREE_TYPE (pattern);
16511 location_t loc = input_location;
16513 push_access_scope (d);
16514 push_deferring_access_checks (dk_no_deferred);
16515 input_location = DECL_SOURCE_LOCATION (pattern);
16516 tsubst (type, args, tf_warning_or_error, d);
16517 input_location = loc;
16518 pop_deferring_access_checks ();
16519 pop_access_scope (d);
16522 /* Instantiate the indicated variable, function, or alias template TMPL with
16523 the template arguments in TARG_PTR. */
16525 static tree
16526 instantiate_template_1 (tree tmpl, tree orig_args, tsubst_flags_t complain)
16528 tree targ_ptr = orig_args;
16529 tree fndecl;
16530 tree gen_tmpl;
16531 tree spec;
16532 bool access_ok = true;
16534 if (tmpl == error_mark_node)
16535 return error_mark_node;
16537 gcc_assert (TREE_CODE (tmpl) == TEMPLATE_DECL);
16539 /* If this function is a clone, handle it specially. */
16540 if (DECL_CLONED_FUNCTION_P (tmpl))
16542 tree spec;
16543 tree clone;
16545 /* Use DECL_ABSTRACT_ORIGIN because only FUNCTION_DECLs have
16546 DECL_CLONED_FUNCTION. */
16547 spec = instantiate_template (DECL_ABSTRACT_ORIGIN (tmpl),
16548 targ_ptr, complain);
16549 if (spec == error_mark_node)
16550 return error_mark_node;
16552 /* Look for the clone. */
16553 FOR_EACH_CLONE (clone, spec)
16554 if (DECL_NAME (clone) == DECL_NAME (tmpl))
16555 return clone;
16556 /* We should always have found the clone by now. */
16557 gcc_unreachable ();
16558 return NULL_TREE;
16561 if (targ_ptr == error_mark_node)
16562 return error_mark_node;
16564 /* Check to see if we already have this specialization. */
16565 gen_tmpl = most_general_template (tmpl);
16566 if (tmpl != gen_tmpl)
16567 /* The TMPL is a partial instantiation. To get a full set of
16568 arguments we must add the arguments used to perform the
16569 partial instantiation. */
16570 targ_ptr = add_outermost_template_args (DECL_TI_ARGS (tmpl),
16571 targ_ptr);
16573 /* It would be nice to avoid hashing here and then again in tsubst_decl,
16574 but it doesn't seem to be on the hot path. */
16575 spec = retrieve_specialization (gen_tmpl, targ_ptr, 0);
16577 gcc_assert (tmpl == gen_tmpl
16578 || ((fndecl = retrieve_specialization (tmpl, orig_args, 0))
16579 == spec)
16580 || fndecl == NULL_TREE);
16582 if (spec != NULL_TREE)
16584 if (FNDECL_HAS_ACCESS_ERRORS (spec))
16586 if (complain & tf_error)
16587 recheck_decl_substitution (spec, gen_tmpl, targ_ptr);
16588 return error_mark_node;
16590 return spec;
16593 if (check_instantiated_args (gen_tmpl, INNERMOST_TEMPLATE_ARGS (targ_ptr),
16594 complain))
16595 return error_mark_node;
16597 /* We are building a FUNCTION_DECL, during which the access of its
16598 parameters and return types have to be checked. However this
16599 FUNCTION_DECL which is the desired context for access checking
16600 is not built yet. We solve this chicken-and-egg problem by
16601 deferring all checks until we have the FUNCTION_DECL. */
16602 push_deferring_access_checks (dk_deferred);
16604 /* Instantiation of the function happens in the context of the function
16605 template, not the context of the overload resolution we're doing. */
16606 push_to_top_level ();
16607 /* If there are dependent arguments, e.g. because we're doing partial
16608 ordering, make sure processing_template_decl stays set. */
16609 if (uses_template_parms (targ_ptr))
16610 ++processing_template_decl;
16611 if (DECL_CLASS_SCOPE_P (gen_tmpl))
16613 tree ctx = tsubst_aggr_type (DECL_CONTEXT (gen_tmpl), targ_ptr,
16614 complain, gen_tmpl, true);
16615 push_nested_class (ctx);
16618 tree pattern = DECL_TEMPLATE_RESULT (gen_tmpl);
16620 if (VAR_P (pattern))
16622 /* We need to determine if we're using a partial or explicit
16623 specialization now, because the type of the variable could be
16624 different. */
16625 tree tid = lookup_template_variable (gen_tmpl, targ_ptr);
16626 tree elt = most_specialized_partial_spec (tid, complain);
16627 if (elt == error_mark_node)
16628 pattern = error_mark_node;
16629 else if (elt)
16631 tmpl = TREE_VALUE (elt);
16632 pattern = DECL_TEMPLATE_RESULT (tmpl);
16633 targ_ptr = TREE_PURPOSE (elt);
16637 /* Substitute template parameters to obtain the specialization. */
16638 fndecl = tsubst (pattern, targ_ptr, complain, gen_tmpl);
16639 if (DECL_CLASS_SCOPE_P (gen_tmpl))
16640 pop_nested_class ();
16641 pop_from_top_level ();
16643 if (fndecl == error_mark_node)
16645 pop_deferring_access_checks ();
16646 return error_mark_node;
16649 /* The DECL_TI_TEMPLATE should always be the immediate parent
16650 template, not the most general template. */
16651 DECL_TI_TEMPLATE (fndecl) = tmpl;
16652 DECL_TI_ARGS (fndecl) = targ_ptr;
16654 /* Now we know the specialization, compute access previously
16655 deferred. */
16656 push_access_scope (fndecl);
16657 if (!perform_deferred_access_checks (complain))
16658 access_ok = false;
16659 pop_access_scope (fndecl);
16660 pop_deferring_access_checks ();
16662 /* If we've just instantiated the main entry point for a function,
16663 instantiate all the alternate entry points as well. We do this
16664 by cloning the instantiation of the main entry point, not by
16665 instantiating the template clones. */
16666 if (DECL_CHAIN (gen_tmpl) && DECL_CLONED_FUNCTION_P (DECL_CHAIN (gen_tmpl)))
16667 clone_function_decl (fndecl, /*update_method_vec_p=*/0);
16669 if (!access_ok)
16671 if (!(complain & tf_error))
16673 /* Remember to reinstantiate when we're out of SFINAE so the user
16674 can see the errors. */
16675 FNDECL_HAS_ACCESS_ERRORS (fndecl) = true;
16677 return error_mark_node;
16679 return fndecl;
16682 /* Wrapper for instantiate_template_1. */
16684 tree
16685 instantiate_template (tree tmpl, tree orig_args, tsubst_flags_t complain)
16687 tree ret;
16688 timevar_push (TV_TEMPLATE_INST);
16689 ret = instantiate_template_1 (tmpl, orig_args, complain);
16690 timevar_pop (TV_TEMPLATE_INST);
16691 return ret;
16694 /* Instantiate the alias template TMPL with ARGS. Also push a template
16695 instantiation level, which instantiate_template doesn't do because
16696 functions and variables have sufficient context established by the
16697 callers. */
16699 static tree
16700 instantiate_alias_template (tree tmpl, tree args, tsubst_flags_t complain)
16702 struct pending_template *old_last_pend = last_pending_template;
16703 struct tinst_level *old_error_tinst = last_error_tinst_level;
16704 if (tmpl == error_mark_node || args == error_mark_node)
16705 return error_mark_node;
16706 tree tinst = build_tree_list (tmpl, args);
16707 if (!push_tinst_level (tinst))
16709 ggc_free (tinst);
16710 return error_mark_node;
16713 args =
16714 coerce_innermost_template_parms (DECL_TEMPLATE_PARMS (tmpl),
16715 args, tmpl, complain,
16716 /*require_all_args=*/true,
16717 /*use_default_args=*/true);
16719 tree r = instantiate_template (tmpl, args, complain);
16720 pop_tinst_level ();
16721 /* We can't free this if a pending_template entry or last_error_tinst_level
16722 is pointing at it. */
16723 if (last_pending_template == old_last_pend
16724 && last_error_tinst_level == old_error_tinst)
16725 ggc_free (tinst);
16727 return r;
16730 /* PARM is a template parameter pack for FN. Returns true iff
16731 PARM is used in a deducible way in the argument list of FN. */
16733 static bool
16734 pack_deducible_p (tree parm, tree fn)
16736 tree t = FUNCTION_FIRST_USER_PARMTYPE (fn);
16737 for (; t; t = TREE_CHAIN (t))
16739 tree type = TREE_VALUE (t);
16740 tree packs;
16741 if (!PACK_EXPANSION_P (type))
16742 continue;
16743 for (packs = PACK_EXPANSION_PARAMETER_PACKS (type);
16744 packs; packs = TREE_CHAIN (packs))
16745 if (template_args_equal (TREE_VALUE (packs), parm))
16747 /* The template parameter pack is used in a function parameter
16748 pack. If this is the end of the parameter list, the
16749 template parameter pack is deducible. */
16750 if (TREE_CHAIN (t) == void_list_node)
16751 return true;
16752 else
16753 /* Otherwise, not. Well, it could be deduced from
16754 a non-pack parameter, but doing so would end up with
16755 a deduction mismatch, so don't bother. */
16756 return false;
16759 /* The template parameter pack isn't used in any function parameter
16760 packs, but it might be used deeper, e.g. tuple<Args...>. */
16761 return true;
16764 /* The FN is a TEMPLATE_DECL for a function. ARGS is an array with
16765 NARGS elements of the arguments that are being used when calling
16766 it. TARGS is a vector into which the deduced template arguments
16767 are placed.
16769 Returns either a FUNCTION_DECL for the matching specialization of FN or
16770 NULL_TREE if no suitable specialization can be found. If EXPLAIN_P is
16771 true, diagnostics will be printed to explain why it failed.
16773 If FN is a conversion operator, or we are trying to produce a specific
16774 specialization, RETURN_TYPE is the return type desired.
16776 The EXPLICIT_TARGS are explicit template arguments provided via a
16777 template-id.
16779 The parameter STRICT is one of:
16781 DEDUCE_CALL:
16782 We are deducing arguments for a function call, as in
16783 [temp.deduct.call].
16785 DEDUCE_CONV:
16786 We are deducing arguments for a conversion function, as in
16787 [temp.deduct.conv].
16789 DEDUCE_EXACT:
16790 We are deducing arguments when doing an explicit instantiation
16791 as in [temp.explicit], when determining an explicit specialization
16792 as in [temp.expl.spec], or when taking the address of a function
16793 template, as in [temp.deduct.funcaddr]. */
16795 tree
16796 fn_type_unification (tree fn,
16797 tree explicit_targs,
16798 tree targs,
16799 const tree *args,
16800 unsigned int nargs,
16801 tree return_type,
16802 unification_kind_t strict,
16803 int flags,
16804 bool explain_p,
16805 bool decltype_p)
16807 tree parms;
16808 tree fntype;
16809 tree decl = NULL_TREE;
16810 tsubst_flags_t complain = (explain_p ? tf_warning_or_error : tf_none);
16811 bool ok;
16812 static int deduction_depth;
16813 struct pending_template *old_last_pend = last_pending_template;
16814 struct tinst_level *old_error_tinst = last_error_tinst_level;
16815 tree tparms = DECL_INNERMOST_TEMPLATE_PARMS (fn);
16816 tree tinst;
16817 tree r = error_mark_node;
16819 if (decltype_p)
16820 complain |= tf_decltype;
16822 /* In C++0x, it's possible to have a function template whose type depends
16823 on itself recursively. This is most obvious with decltype, but can also
16824 occur with enumeration scope (c++/48969). So we need to catch infinite
16825 recursion and reject the substitution at deduction time; this function
16826 will return error_mark_node for any repeated substitution.
16828 This also catches excessive recursion such as when f<N> depends on
16829 f<N-1> across all integers, and returns error_mark_node for all the
16830 substitutions back up to the initial one.
16832 This is, of course, not reentrant. */
16833 if (excessive_deduction_depth)
16834 return error_mark_node;
16835 tinst = build_tree_list (fn, NULL_TREE);
16836 ++deduction_depth;
16838 gcc_assert (TREE_CODE (fn) == TEMPLATE_DECL);
16840 fntype = TREE_TYPE (fn);
16841 if (explicit_targs)
16843 /* [temp.deduct]
16845 The specified template arguments must match the template
16846 parameters in kind (i.e., type, nontype, template), and there
16847 must not be more arguments than there are parameters;
16848 otherwise type deduction fails.
16850 Nontype arguments must match the types of the corresponding
16851 nontype template parameters, or must be convertible to the
16852 types of the corresponding nontype parameters as specified in
16853 _temp.arg.nontype_, otherwise type deduction fails.
16855 All references in the function type of the function template
16856 to the corresponding template parameters are replaced by the
16857 specified template argument values. If a substitution in a
16858 template parameter or in the function type of the function
16859 template results in an invalid type, type deduction fails. */
16860 int i, len = TREE_VEC_LENGTH (tparms);
16861 location_t loc = input_location;
16862 bool incomplete = false;
16864 /* Adjust any explicit template arguments before entering the
16865 substitution context. */
16866 explicit_targs
16867 = (coerce_template_parms (tparms, explicit_targs, NULL_TREE,
16868 complain,
16869 /*require_all_args=*/false,
16870 /*use_default_args=*/false));
16871 if (explicit_targs == error_mark_node)
16872 goto fail;
16874 /* Substitute the explicit args into the function type. This is
16875 necessary so that, for instance, explicitly declared function
16876 arguments can match null pointed constants. If we were given
16877 an incomplete set of explicit args, we must not do semantic
16878 processing during substitution as we could create partial
16879 instantiations. */
16880 for (i = 0; i < len; i++)
16882 tree parm = TREE_VALUE (TREE_VEC_ELT (tparms, i));
16883 bool parameter_pack = false;
16884 tree targ = TREE_VEC_ELT (explicit_targs, i);
16886 /* Dig out the actual parm. */
16887 if (TREE_CODE (parm) == TYPE_DECL
16888 || TREE_CODE (parm) == TEMPLATE_DECL)
16890 parm = TREE_TYPE (parm);
16891 parameter_pack = TEMPLATE_TYPE_PARAMETER_PACK (parm);
16893 else if (TREE_CODE (parm) == PARM_DECL)
16895 parm = DECL_INITIAL (parm);
16896 parameter_pack = TEMPLATE_PARM_PARAMETER_PACK (parm);
16899 if (!parameter_pack && targ == NULL_TREE)
16900 /* No explicit argument for this template parameter. */
16901 incomplete = true;
16903 if (parameter_pack && pack_deducible_p (parm, fn))
16905 /* Mark the argument pack as "incomplete". We could
16906 still deduce more arguments during unification.
16907 We remove this mark in type_unification_real. */
16908 if (targ)
16910 ARGUMENT_PACK_INCOMPLETE_P(targ) = 1;
16911 ARGUMENT_PACK_EXPLICIT_ARGS (targ)
16912 = ARGUMENT_PACK_ARGS (targ);
16915 /* We have some incomplete argument packs. */
16916 incomplete = true;
16920 TREE_VALUE (tinst) = explicit_targs;
16921 if (!push_tinst_level (tinst))
16923 excessive_deduction_depth = true;
16924 goto fail;
16926 processing_template_decl += incomplete;
16927 input_location = DECL_SOURCE_LOCATION (fn);
16928 /* Ignore any access checks; we'll see them again in
16929 instantiate_template and they might have the wrong
16930 access path at this point. */
16931 push_deferring_access_checks (dk_deferred);
16932 fntype = tsubst (TREE_TYPE (fn), explicit_targs,
16933 complain | tf_partial, NULL_TREE);
16934 pop_deferring_access_checks ();
16935 input_location = loc;
16936 processing_template_decl -= incomplete;
16937 pop_tinst_level ();
16939 if (fntype == error_mark_node)
16940 goto fail;
16942 /* Place the explicitly specified arguments in TARGS. */
16943 for (i = NUM_TMPL_ARGS (explicit_targs); i--;)
16944 TREE_VEC_ELT (targs, i) = TREE_VEC_ELT (explicit_targs, i);
16947 /* Never do unification on the 'this' parameter. */
16948 parms = skip_artificial_parms_for (fn, TYPE_ARG_TYPES (fntype));
16950 if (return_type)
16952 tree *new_args;
16954 parms = tree_cons (NULL_TREE, TREE_TYPE (fntype), parms);
16955 new_args = XALLOCAVEC (tree, nargs + 1);
16956 new_args[0] = return_type;
16957 memcpy (new_args + 1, args, nargs * sizeof (tree));
16958 args = new_args;
16959 ++nargs;
16962 /* We allow incomplete unification without an error message here
16963 because the standard doesn't seem to explicitly prohibit it. Our
16964 callers must be ready to deal with unification failures in any
16965 event. */
16967 TREE_VALUE (tinst) = targs;
16968 /* If we aren't explaining yet, push tinst context so we can see where
16969 any errors (e.g. from class instantiations triggered by instantiation
16970 of default template arguments) come from. If we are explaining, this
16971 context is redundant. */
16972 if (!explain_p && !push_tinst_level (tinst))
16974 excessive_deduction_depth = true;
16975 goto fail;
16978 /* type_unification_real will pass back any access checks from default
16979 template argument substitution. */
16980 vec<deferred_access_check, va_gc> *checks;
16981 checks = NULL;
16983 ok = !type_unification_real (DECL_INNERMOST_TEMPLATE_PARMS (fn),
16984 targs, parms, args, nargs, /*subr=*/0,
16985 strict, flags, &checks, explain_p);
16986 if (!explain_p)
16987 pop_tinst_level ();
16988 if (!ok)
16989 goto fail;
16991 /* Now that we have bindings for all of the template arguments,
16992 ensure that the arguments deduced for the template template
16993 parameters have compatible template parameter lists. We cannot
16994 check this property before we have deduced all template
16995 arguments, because the template parameter types of a template
16996 template parameter might depend on prior template parameters
16997 deduced after the template template parameter. The following
16998 ill-formed example illustrates this issue:
17000 template<typename T, template<T> class C> void f(C<5>, T);
17002 template<int N> struct X {};
17004 void g() {
17005 f(X<5>(), 5l); // error: template argument deduction fails
17008 The template parameter list of 'C' depends on the template type
17009 parameter 'T', but 'C' is deduced to 'X' before 'T' is deduced to
17010 'long'. Thus, we can't check that 'C' cannot bind to 'X' at the
17011 time that we deduce 'C'. */
17012 if (!template_template_parm_bindings_ok_p
17013 (DECL_INNERMOST_TEMPLATE_PARMS (fn), targs))
17015 unify_inconsistent_template_template_parameters (explain_p);
17016 goto fail;
17019 /* All is well so far. Now, check:
17021 [temp.deduct]
17023 When all template arguments have been deduced, all uses of
17024 template parameters in nondeduced contexts are replaced with
17025 the corresponding deduced argument values. If the
17026 substitution results in an invalid type, as described above,
17027 type deduction fails. */
17028 TREE_VALUE (tinst) = targs;
17029 if (!push_tinst_level (tinst))
17031 excessive_deduction_depth = true;
17032 goto fail;
17035 /* Also collect access checks from the instantiation. */
17036 reopen_deferring_access_checks (checks);
17038 decl = instantiate_template (fn, targs, complain);
17040 checks = get_deferred_access_checks ();
17041 pop_deferring_access_checks ();
17043 pop_tinst_level ();
17045 if (decl == error_mark_node)
17046 goto fail;
17048 /* Now perform any access checks encountered during substitution. */
17049 push_access_scope (decl);
17050 ok = perform_access_checks (checks, complain);
17051 pop_access_scope (decl);
17052 if (!ok)
17053 goto fail;
17055 /* If we're looking for an exact match, check that what we got
17056 is indeed an exact match. It might not be if some template
17057 parameters are used in non-deduced contexts. But don't check
17058 for an exact match if we have dependent template arguments;
17059 in that case we're doing partial ordering, and we already know
17060 that we have two candidates that will provide the actual type. */
17061 if (strict == DEDUCE_EXACT && !any_dependent_template_arguments_p (targs))
17063 tree substed = TREE_TYPE (decl);
17064 unsigned int i;
17066 tree sarg
17067 = skip_artificial_parms_for (decl, TYPE_ARG_TYPES (substed));
17068 if (return_type)
17069 sarg = tree_cons (NULL_TREE, TREE_TYPE (substed), sarg);
17070 for (i = 0; i < nargs && sarg; ++i, sarg = TREE_CHAIN (sarg))
17071 if (!same_type_p (args[i], TREE_VALUE (sarg)))
17073 unify_type_mismatch (explain_p, args[i],
17074 TREE_VALUE (sarg));
17075 goto fail;
17079 r = decl;
17081 fail:
17082 --deduction_depth;
17083 if (excessive_deduction_depth)
17085 if (deduction_depth == 0)
17086 /* Reset once we're all the way out. */
17087 excessive_deduction_depth = false;
17090 /* We can't free this if a pending_template entry or last_error_tinst_level
17091 is pointing at it. */
17092 if (last_pending_template == old_last_pend
17093 && last_error_tinst_level == old_error_tinst)
17094 ggc_free (tinst);
17096 return r;
17099 /* Adjust types before performing type deduction, as described in
17100 [temp.deduct.call] and [temp.deduct.conv]. The rules in these two
17101 sections are symmetric. PARM is the type of a function parameter
17102 or the return type of the conversion function. ARG is the type of
17103 the argument passed to the call, or the type of the value
17104 initialized with the result of the conversion function.
17105 ARG_EXPR is the original argument expression, which may be null. */
17107 static int
17108 maybe_adjust_types_for_deduction (unification_kind_t strict,
17109 tree* parm,
17110 tree* arg,
17111 tree arg_expr)
17113 int result = 0;
17115 switch (strict)
17117 case DEDUCE_CALL:
17118 break;
17120 case DEDUCE_CONV:
17121 /* Swap PARM and ARG throughout the remainder of this
17122 function; the handling is precisely symmetric since PARM
17123 will initialize ARG rather than vice versa. */
17124 std::swap (parm, arg);
17125 break;
17127 case DEDUCE_EXACT:
17128 /* Core issue #873: Do the DR606 thing (see below) for these cases,
17129 too, but here handle it by stripping the reference from PARM
17130 rather than by adding it to ARG. */
17131 if (TREE_CODE (*parm) == REFERENCE_TYPE
17132 && TYPE_REF_IS_RVALUE (*parm)
17133 && TREE_CODE (TREE_TYPE (*parm)) == TEMPLATE_TYPE_PARM
17134 && cp_type_quals (TREE_TYPE (*parm)) == TYPE_UNQUALIFIED
17135 && TREE_CODE (*arg) == REFERENCE_TYPE
17136 && !TYPE_REF_IS_RVALUE (*arg))
17137 *parm = TREE_TYPE (*parm);
17138 /* Nothing else to do in this case. */
17139 return 0;
17141 default:
17142 gcc_unreachable ();
17145 if (TREE_CODE (*parm) != REFERENCE_TYPE)
17147 /* [temp.deduct.call]
17149 If P is not a reference type:
17151 --If A is an array type, the pointer type produced by the
17152 array-to-pointer standard conversion (_conv.array_) is
17153 used in place of A for type deduction; otherwise,
17155 --If A is a function type, the pointer type produced by
17156 the function-to-pointer standard conversion
17157 (_conv.func_) is used in place of A for type deduction;
17158 otherwise,
17160 --If A is a cv-qualified type, the top level
17161 cv-qualifiers of A's type are ignored for type
17162 deduction. */
17163 if (TREE_CODE (*arg) == ARRAY_TYPE)
17164 *arg = build_pointer_type (TREE_TYPE (*arg));
17165 else if (TREE_CODE (*arg) == FUNCTION_TYPE)
17166 *arg = build_pointer_type (*arg);
17167 else
17168 *arg = TYPE_MAIN_VARIANT (*arg);
17171 /* From C++0x [14.8.2.1/3 temp.deduct.call] (after DR606), "If P is
17172 of the form T&&, where T is a template parameter, and the argument
17173 is an lvalue, T is deduced as A& */
17174 if (TREE_CODE (*parm) == REFERENCE_TYPE
17175 && TYPE_REF_IS_RVALUE (*parm)
17176 && TREE_CODE (TREE_TYPE (*parm)) == TEMPLATE_TYPE_PARM
17177 && cp_type_quals (TREE_TYPE (*parm)) == TYPE_UNQUALIFIED
17178 && (arg_expr ? real_lvalue_p (arg_expr)
17179 /* try_one_overload doesn't provide an arg_expr, but
17180 functions are always lvalues. */
17181 : TREE_CODE (*arg) == FUNCTION_TYPE))
17182 *arg = build_reference_type (*arg);
17184 /* [temp.deduct.call]
17186 If P is a cv-qualified type, the top level cv-qualifiers
17187 of P's type are ignored for type deduction. If P is a
17188 reference type, the type referred to by P is used for
17189 type deduction. */
17190 *parm = TYPE_MAIN_VARIANT (*parm);
17191 if (TREE_CODE (*parm) == REFERENCE_TYPE)
17193 *parm = TREE_TYPE (*parm);
17194 result |= UNIFY_ALLOW_OUTER_MORE_CV_QUAL;
17197 /* DR 322. For conversion deduction, remove a reference type on parm
17198 too (which has been swapped into ARG). */
17199 if (strict == DEDUCE_CONV && TREE_CODE (*arg) == REFERENCE_TYPE)
17200 *arg = TREE_TYPE (*arg);
17202 return result;
17205 /* Subroutine of unify_one_argument. PARM is a function parameter of a
17206 template which does contain any deducible template parameters; check if
17207 ARG is a suitable match for it. STRICT, FLAGS and EXPLAIN_P are as in
17208 unify_one_argument. */
17210 static int
17211 check_non_deducible_conversion (tree parm, tree arg, int strict,
17212 int flags, bool explain_p)
17214 tree type;
17216 if (!TYPE_P (arg))
17217 type = TREE_TYPE (arg);
17218 else
17219 type = arg;
17221 if (same_type_p (parm, type))
17222 return unify_success (explain_p);
17224 if (strict == DEDUCE_CONV)
17226 if (can_convert_arg (type, parm, NULL_TREE, flags,
17227 explain_p ? tf_warning_or_error : tf_none))
17228 return unify_success (explain_p);
17230 else if (strict != DEDUCE_EXACT)
17232 if (can_convert_arg (parm, type,
17233 TYPE_P (arg) ? NULL_TREE : arg,
17234 flags, explain_p ? tf_warning_or_error : tf_none))
17235 return unify_success (explain_p);
17238 if (strict == DEDUCE_EXACT)
17239 return unify_type_mismatch (explain_p, parm, arg);
17240 else
17241 return unify_arg_conversion (explain_p, parm, type, arg);
17244 static bool uses_deducible_template_parms (tree type);
17246 /* Returns true iff the expression EXPR is one from which a template
17247 argument can be deduced. In other words, if it's an undecorated
17248 use of a template non-type parameter. */
17250 static bool
17251 deducible_expression (tree expr)
17253 return (TREE_CODE (expr) == TEMPLATE_PARM_INDEX);
17256 /* Returns true iff the array domain DOMAIN uses a template parameter in a
17257 deducible way; that is, if it has a max value of <PARM> - 1. */
17259 static bool
17260 deducible_array_bound (tree domain)
17262 if (domain == NULL_TREE)
17263 return false;
17265 tree max = TYPE_MAX_VALUE (domain);
17266 if (TREE_CODE (max) != MINUS_EXPR)
17267 return false;
17269 return deducible_expression (TREE_OPERAND (max, 0));
17272 /* Returns true iff the template arguments ARGS use a template parameter
17273 in a deducible way. */
17275 static bool
17276 deducible_template_args (tree args)
17278 for (int i = 0; i < TREE_VEC_LENGTH (args); ++i)
17280 bool deducible;
17281 tree elt = TREE_VEC_ELT (args, i);
17282 if (ARGUMENT_PACK_P (elt))
17283 deducible = deducible_template_args (ARGUMENT_PACK_ARGS (elt));
17284 else
17286 if (PACK_EXPANSION_P (elt))
17287 elt = PACK_EXPANSION_PATTERN (elt);
17288 if (TREE_CODE (elt) == TEMPLATE_TEMPLATE_PARM)
17289 deducible = true;
17290 else if (TYPE_P (elt))
17291 deducible = uses_deducible_template_parms (elt);
17292 else
17293 deducible = deducible_expression (elt);
17295 if (deducible)
17296 return true;
17298 return false;
17301 /* Returns true iff TYPE contains any deducible references to template
17302 parameters, as per 14.8.2.5. */
17304 static bool
17305 uses_deducible_template_parms (tree type)
17307 if (PACK_EXPANSION_P (type))
17308 type = PACK_EXPANSION_PATTERN (type);
17310 /* T
17311 cv-list T
17312 TT<T>
17313 TT<i>
17314 TT<> */
17315 if (TREE_CODE (type) == TEMPLATE_TYPE_PARM
17316 || TREE_CODE (type) == BOUND_TEMPLATE_TEMPLATE_PARM)
17317 return true;
17319 /* T*
17321 T&& */
17322 if (POINTER_TYPE_P (type))
17323 return uses_deducible_template_parms (TREE_TYPE (type));
17325 /* T[integer-constant ]
17326 type [i] */
17327 if (TREE_CODE (type) == ARRAY_TYPE)
17328 return (uses_deducible_template_parms (TREE_TYPE (type))
17329 || deducible_array_bound (TYPE_DOMAIN (type)));
17331 /* T type ::*
17332 type T::*
17333 T T::*
17334 T (type ::*)()
17335 type (T::*)()
17336 type (type ::*)(T)
17337 type (T::*)(T)
17338 T (type ::*)(T)
17339 T (T::*)()
17340 T (T::*)(T) */
17341 if (TYPE_PTRMEM_P (type))
17342 return (uses_deducible_template_parms (TYPE_PTRMEM_CLASS_TYPE (type))
17343 || (uses_deducible_template_parms
17344 (TYPE_PTRMEM_POINTED_TO_TYPE (type))));
17346 /* template-name <T> (where template-name refers to a class template)
17347 template-name <i> (where template-name refers to a class template) */
17348 if (CLASS_TYPE_P (type)
17349 && CLASSTYPE_TEMPLATE_INFO (type)
17350 && PRIMARY_TEMPLATE_P (CLASSTYPE_TI_TEMPLATE (type)))
17351 return deducible_template_args (INNERMOST_TEMPLATE_ARGS
17352 (CLASSTYPE_TI_ARGS (type)));
17354 /* type (T)
17356 T(T) */
17357 if (TREE_CODE (type) == FUNCTION_TYPE
17358 || TREE_CODE (type) == METHOD_TYPE)
17360 if (uses_deducible_template_parms (TREE_TYPE (type)))
17361 return true;
17362 tree parm = TYPE_ARG_TYPES (type);
17363 if (TREE_CODE (type) == METHOD_TYPE)
17364 parm = TREE_CHAIN (parm);
17365 for (; parm; parm = TREE_CHAIN (parm))
17366 if (uses_deducible_template_parms (TREE_VALUE (parm)))
17367 return true;
17370 return false;
17373 /* Subroutine of type_unification_real and unify_pack_expansion to
17374 handle unification of a single P/A pair. Parameters are as
17375 for those functions. */
17377 static int
17378 unify_one_argument (tree tparms, tree targs, tree parm, tree arg,
17379 int subr, unification_kind_t strict,
17380 bool explain_p)
17382 tree arg_expr = NULL_TREE;
17383 int arg_strict;
17385 if (arg == error_mark_node || parm == error_mark_node)
17386 return unify_invalid (explain_p);
17387 if (arg == unknown_type_node)
17388 /* We can't deduce anything from this, but we might get all the
17389 template args from other function args. */
17390 return unify_success (explain_p);
17392 /* Implicit conversions (Clause 4) will be performed on a function
17393 argument to convert it to the type of the corresponding function
17394 parameter if the parameter type contains no template-parameters that
17395 participate in template argument deduction. */
17396 if (strict != DEDUCE_EXACT
17397 && TYPE_P (parm) && !uses_deducible_template_parms (parm))
17398 /* For function parameters with no deducible template parameters,
17399 just return. We'll check non-dependent conversions later. */
17400 return unify_success (explain_p);
17402 switch (strict)
17404 case DEDUCE_CALL:
17405 arg_strict = (UNIFY_ALLOW_OUTER_LEVEL
17406 | UNIFY_ALLOW_MORE_CV_QUAL
17407 | UNIFY_ALLOW_DERIVED);
17408 break;
17410 case DEDUCE_CONV:
17411 arg_strict = UNIFY_ALLOW_LESS_CV_QUAL;
17412 break;
17414 case DEDUCE_EXACT:
17415 arg_strict = UNIFY_ALLOW_NONE;
17416 break;
17418 default:
17419 gcc_unreachable ();
17422 /* We only do these transformations if this is the top-level
17423 parameter_type_list in a call or declaration matching; in other
17424 situations (nested function declarators, template argument lists) we
17425 won't be comparing a type to an expression, and we don't do any type
17426 adjustments. */
17427 if (!subr)
17429 if (!TYPE_P (arg))
17431 gcc_assert (TREE_TYPE (arg) != NULL_TREE);
17432 if (type_unknown_p (arg))
17434 /* [temp.deduct.type] A template-argument can be
17435 deduced from a pointer to function or pointer
17436 to member function argument if the set of
17437 overloaded functions does not contain function
17438 templates and at most one of a set of
17439 overloaded functions provides a unique
17440 match. */
17442 if (resolve_overloaded_unification
17443 (tparms, targs, parm, arg, strict,
17444 arg_strict, explain_p))
17445 return unify_success (explain_p);
17446 return unify_overload_resolution_failure (explain_p, arg);
17449 arg_expr = arg;
17450 arg = unlowered_expr_type (arg);
17451 if (arg == error_mark_node)
17452 return unify_invalid (explain_p);
17455 arg_strict |=
17456 maybe_adjust_types_for_deduction (strict, &parm, &arg, arg_expr);
17458 else
17459 if ((TYPE_P (parm) || TREE_CODE (parm) == TEMPLATE_DECL)
17460 != (TYPE_P (arg) || TREE_CODE (arg) == TEMPLATE_DECL))
17461 return unify_template_argument_mismatch (explain_p, parm, arg);
17463 /* For deduction from an init-list we need the actual list. */
17464 if (arg_expr && BRACE_ENCLOSED_INITIALIZER_P (arg_expr))
17465 arg = arg_expr;
17466 return unify (tparms, targs, parm, arg, arg_strict, explain_p);
17469 /* Most parms like fn_type_unification.
17471 If SUBR is 1, we're being called recursively (to unify the
17472 arguments of a function or method parameter of a function
17473 template).
17475 CHECKS is a pointer to a vector of access checks encountered while
17476 substituting default template arguments. */
17478 static int
17479 type_unification_real (tree tparms,
17480 tree targs,
17481 tree xparms,
17482 const tree *xargs,
17483 unsigned int xnargs,
17484 int subr,
17485 unification_kind_t strict,
17486 int flags,
17487 vec<deferred_access_check, va_gc> **checks,
17488 bool explain_p)
17490 tree parm, arg;
17491 int i;
17492 int ntparms = TREE_VEC_LENGTH (tparms);
17493 int saw_undeduced = 0;
17494 tree parms;
17495 const tree *args;
17496 unsigned int nargs;
17497 unsigned int ia;
17499 gcc_assert (TREE_CODE (tparms) == TREE_VEC);
17500 gcc_assert (xparms == NULL_TREE || TREE_CODE (xparms) == TREE_LIST);
17501 gcc_assert (ntparms > 0);
17503 /* Reset the number of non-defaulted template arguments contained
17504 in TARGS. */
17505 NON_DEFAULT_TEMPLATE_ARGS_COUNT (targs) = NULL_TREE;
17507 again:
17508 parms = xparms;
17509 args = xargs;
17510 nargs = xnargs;
17512 ia = 0;
17513 while (parms && parms != void_list_node
17514 && ia < nargs)
17516 parm = TREE_VALUE (parms);
17518 if (TREE_CODE (parm) == TYPE_PACK_EXPANSION
17519 && (!TREE_CHAIN (parms) || TREE_CHAIN (parms) == void_list_node))
17520 /* For a function parameter pack that occurs at the end of the
17521 parameter-declaration-list, the type A of each remaining
17522 argument of the call is compared with the type P of the
17523 declarator-id of the function parameter pack. */
17524 break;
17526 parms = TREE_CHAIN (parms);
17528 if (TREE_CODE (parm) == TYPE_PACK_EXPANSION)
17529 /* For a function parameter pack that does not occur at the
17530 end of the parameter-declaration-list, the type of the
17531 parameter pack is a non-deduced context. */
17532 continue;
17534 arg = args[ia];
17535 ++ia;
17537 if (unify_one_argument (tparms, targs, parm, arg, subr, strict,
17538 explain_p))
17539 return 1;
17542 if (parms
17543 && parms != void_list_node
17544 && TREE_CODE (TREE_VALUE (parms)) == TYPE_PACK_EXPANSION)
17546 /* Unify the remaining arguments with the pack expansion type. */
17547 tree argvec;
17548 tree parmvec = make_tree_vec (1);
17550 /* Allocate a TREE_VEC and copy in all of the arguments */
17551 argvec = make_tree_vec (nargs - ia);
17552 for (i = 0; ia < nargs; ++ia, ++i)
17553 TREE_VEC_ELT (argvec, i) = args[ia];
17555 /* Copy the parameter into parmvec. */
17556 TREE_VEC_ELT (parmvec, 0) = TREE_VALUE (parms);
17557 if (unify_pack_expansion (tparms, targs, parmvec, argvec, strict,
17558 /*subr=*/subr, explain_p))
17559 return 1;
17561 /* Advance to the end of the list of parameters. */
17562 parms = TREE_CHAIN (parms);
17565 /* Fail if we've reached the end of the parm list, and more args
17566 are present, and the parm list isn't variadic. */
17567 if (ia < nargs && parms == void_list_node)
17568 return unify_too_many_arguments (explain_p, nargs, ia);
17569 /* Fail if parms are left and they don't have default values and
17570 they aren't all deduced as empty packs (c++/57397). This is
17571 consistent with sufficient_parms_p. */
17572 if (parms && parms != void_list_node
17573 && TREE_PURPOSE (parms) == NULL_TREE)
17575 unsigned int count = nargs;
17576 tree p = parms;
17577 bool type_pack_p;
17580 type_pack_p = TREE_CODE (TREE_VALUE (p)) == TYPE_PACK_EXPANSION;
17581 if (!type_pack_p)
17582 count++;
17583 p = TREE_CHAIN (p);
17585 while (p && p != void_list_node);
17586 if (count != nargs)
17587 return unify_too_few_arguments (explain_p, ia, count,
17588 type_pack_p);
17591 if (!subr)
17593 tsubst_flags_t complain = (explain_p
17594 ? tf_warning_or_error
17595 : tf_none);
17597 for (i = 0; i < ntparms; i++)
17599 tree targ = TREE_VEC_ELT (targs, i);
17600 tree tparm = TREE_VEC_ELT (tparms, i);
17602 /* Clear the "incomplete" flags on all argument packs now so that
17603 substituting them into later default arguments works. */
17604 if (targ && ARGUMENT_PACK_P (targ))
17606 ARGUMENT_PACK_INCOMPLETE_P (targ) = 0;
17607 ARGUMENT_PACK_EXPLICIT_ARGS (targ) = NULL_TREE;
17610 if (targ || tparm == error_mark_node)
17611 continue;
17612 tparm = TREE_VALUE (tparm);
17614 /* If this is an undeduced nontype parameter that depends on
17615 a type parameter, try another pass; its type may have been
17616 deduced from a later argument than the one from which
17617 this parameter can be deduced. */
17618 if (TREE_CODE (tparm) == PARM_DECL
17619 && uses_template_parms (TREE_TYPE (tparm))
17620 && saw_undeduced < 2)
17622 saw_undeduced = 1;
17623 continue;
17626 /* Core issue #226 (C++0x) [temp.deduct]:
17628 If a template argument has not been deduced, its
17629 default template argument, if any, is used.
17631 When we are in C++98 mode, TREE_PURPOSE will either
17632 be NULL_TREE or ERROR_MARK_NODE, so we do not need
17633 to explicitly check cxx_dialect here. */
17634 if (TREE_PURPOSE (TREE_VEC_ELT (tparms, i)))
17635 /* OK, there is a default argument. Wait until after the
17636 conversion check to do substitution. */
17637 continue;
17639 /* If the type parameter is a parameter pack, then it will
17640 be deduced to an empty parameter pack. */
17641 if (template_parameter_pack_p (tparm))
17643 tree arg;
17645 if (TREE_CODE (tparm) == TEMPLATE_PARM_INDEX)
17647 arg = make_node (NONTYPE_ARGUMENT_PACK);
17648 TREE_TYPE (arg) = TREE_TYPE (TEMPLATE_PARM_DECL (tparm));
17649 TREE_CONSTANT (arg) = 1;
17651 else
17652 arg = cxx_make_type (TYPE_ARGUMENT_PACK);
17654 SET_ARGUMENT_PACK_ARGS (arg, make_tree_vec (0));
17656 TREE_VEC_ELT (targs, i) = arg;
17657 continue;
17660 return unify_parameter_deduction_failure (explain_p, tparm);
17663 /* DR 1391: All parameters have args, now check non-dependent parms for
17664 convertibility. */
17665 if (saw_undeduced < 2)
17666 for (ia = 0, parms = xparms, args = xargs, nargs = xnargs;
17667 parms && parms != void_list_node && ia < nargs; )
17669 parm = TREE_VALUE (parms);
17671 if (TREE_CODE (parm) == TYPE_PACK_EXPANSION
17672 && (!TREE_CHAIN (parms)
17673 || TREE_CHAIN (parms) == void_list_node))
17674 /* For a function parameter pack that occurs at the end of the
17675 parameter-declaration-list, the type A of each remaining
17676 argument of the call is compared with the type P of the
17677 declarator-id of the function parameter pack. */
17678 break;
17680 parms = TREE_CHAIN (parms);
17682 if (TREE_CODE (parm) == TYPE_PACK_EXPANSION)
17683 /* For a function parameter pack that does not occur at the
17684 end of the parameter-declaration-list, the type of the
17685 parameter pack is a non-deduced context. */
17686 continue;
17688 arg = args[ia];
17689 ++ia;
17691 if (uses_template_parms (parm))
17692 continue;
17693 if (check_non_deducible_conversion (parm, arg, strict, flags,
17694 explain_p))
17695 return 1;
17698 /* Now substitute into the default template arguments. */
17699 for (i = 0; i < ntparms; i++)
17701 tree targ = TREE_VEC_ELT (targs, i);
17702 tree tparm = TREE_VEC_ELT (tparms, i);
17704 if (targ || tparm == error_mark_node)
17705 continue;
17706 tree parm = TREE_VALUE (tparm);
17708 if (TREE_CODE (parm) == PARM_DECL
17709 && uses_template_parms (TREE_TYPE (parm))
17710 && saw_undeduced < 2)
17711 continue;
17713 tree arg = TREE_PURPOSE (tparm);
17714 reopen_deferring_access_checks (*checks);
17715 location_t save_loc = input_location;
17716 if (DECL_P (parm))
17717 input_location = DECL_SOURCE_LOCATION (parm);
17718 arg = tsubst_template_arg (arg, targs, complain, NULL_TREE);
17719 arg = convert_template_argument (parm, arg, targs, complain,
17720 i, NULL_TREE);
17721 input_location = save_loc;
17722 *checks = get_deferred_access_checks ();
17723 pop_deferring_access_checks ();
17724 if (arg == error_mark_node)
17725 return 1;
17726 else
17728 TREE_VEC_ELT (targs, i) = arg;
17729 /* The position of the first default template argument,
17730 is also the number of non-defaulted arguments in TARGS.
17731 Record that. */
17732 if (!NON_DEFAULT_TEMPLATE_ARGS_COUNT (targs))
17733 SET_NON_DEFAULT_TEMPLATE_ARGS_COUNT (targs, i);
17734 continue;
17738 if (saw_undeduced++ == 1)
17739 goto again;
17741 #ifdef ENABLE_CHECKING
17742 if (!NON_DEFAULT_TEMPLATE_ARGS_COUNT (targs))
17743 SET_NON_DEFAULT_TEMPLATE_ARGS_COUNT (targs, TREE_VEC_LENGTH (targs));
17744 #endif
17746 return unify_success (explain_p);
17749 /* Subroutine of type_unification_real. Args are like the variables
17750 at the call site. ARG is an overloaded function (or template-id);
17751 we try deducing template args from each of the overloads, and if
17752 only one succeeds, we go with that. Modifies TARGS and returns
17753 true on success. */
17755 static bool
17756 resolve_overloaded_unification (tree tparms,
17757 tree targs,
17758 tree parm,
17759 tree arg,
17760 unification_kind_t strict,
17761 int sub_strict,
17762 bool explain_p)
17764 tree tempargs = copy_node (targs);
17765 int good = 0;
17766 tree goodfn = NULL_TREE;
17767 bool addr_p;
17769 if (TREE_CODE (arg) == ADDR_EXPR)
17771 arg = TREE_OPERAND (arg, 0);
17772 addr_p = true;
17774 else
17775 addr_p = false;
17777 if (TREE_CODE (arg) == COMPONENT_REF)
17778 /* Handle `&x' where `x' is some static or non-static member
17779 function name. */
17780 arg = TREE_OPERAND (arg, 1);
17782 if (TREE_CODE (arg) == OFFSET_REF)
17783 arg = TREE_OPERAND (arg, 1);
17785 /* Strip baselink information. */
17786 if (BASELINK_P (arg))
17787 arg = BASELINK_FUNCTIONS (arg);
17789 if (TREE_CODE (arg) == TEMPLATE_ID_EXPR)
17791 /* If we got some explicit template args, we need to plug them into
17792 the affected templates before we try to unify, in case the
17793 explicit args will completely resolve the templates in question. */
17795 int ok = 0;
17796 tree expl_subargs = TREE_OPERAND (arg, 1);
17797 arg = TREE_OPERAND (arg, 0);
17799 for (; arg; arg = OVL_NEXT (arg))
17801 tree fn = OVL_CURRENT (arg);
17802 tree subargs, elem;
17804 if (TREE_CODE (fn) != TEMPLATE_DECL)
17805 continue;
17807 subargs = coerce_template_parms (DECL_INNERMOST_TEMPLATE_PARMS (fn),
17808 expl_subargs, NULL_TREE, tf_none,
17809 /*require_all_args=*/true,
17810 /*use_default_args=*/true);
17811 if (subargs != error_mark_node
17812 && !any_dependent_template_arguments_p (subargs))
17814 elem = TREE_TYPE (instantiate_template (fn, subargs, tf_none));
17815 if (try_one_overload (tparms, targs, tempargs, parm,
17816 elem, strict, sub_strict, addr_p, explain_p)
17817 && (!goodfn || !same_type_p (goodfn, elem)))
17819 goodfn = elem;
17820 ++good;
17823 else if (subargs)
17824 ++ok;
17826 /* If no templates (or more than one) are fully resolved by the
17827 explicit arguments, this template-id is a non-deduced context; it
17828 could still be OK if we deduce all template arguments for the
17829 enclosing call through other arguments. */
17830 if (good != 1)
17831 good = ok;
17833 else if (TREE_CODE (arg) != OVERLOAD
17834 && TREE_CODE (arg) != FUNCTION_DECL)
17835 /* If ARG is, for example, "(0, &f)" then its type will be unknown
17836 -- but the deduction does not succeed because the expression is
17837 not just the function on its own. */
17838 return false;
17839 else
17840 for (; arg; arg = OVL_NEXT (arg))
17841 if (try_one_overload (tparms, targs, tempargs, parm,
17842 TREE_TYPE (OVL_CURRENT (arg)),
17843 strict, sub_strict, addr_p, explain_p)
17844 && (!goodfn || !decls_match (goodfn, OVL_CURRENT (arg))))
17846 goodfn = OVL_CURRENT (arg);
17847 ++good;
17850 /* [temp.deduct.type] A template-argument can be deduced from a pointer
17851 to function or pointer to member function argument if the set of
17852 overloaded functions does not contain function templates and at most
17853 one of a set of overloaded functions provides a unique match.
17855 So if we found multiple possibilities, we return success but don't
17856 deduce anything. */
17858 if (good == 1)
17860 int i = TREE_VEC_LENGTH (targs);
17861 for (; i--; )
17862 if (TREE_VEC_ELT (tempargs, i))
17864 tree old = TREE_VEC_ELT (targs, i);
17865 tree new_ = TREE_VEC_ELT (tempargs, i);
17866 if (new_ && old && ARGUMENT_PACK_P (old)
17867 && ARGUMENT_PACK_EXPLICIT_ARGS (old))
17868 /* Don't forget explicit template arguments in a pack. */
17869 ARGUMENT_PACK_EXPLICIT_ARGS (new_)
17870 = ARGUMENT_PACK_EXPLICIT_ARGS (old);
17871 TREE_VEC_ELT (targs, i) = new_;
17874 if (good)
17875 return true;
17877 return false;
17880 /* Core DR 115: In contexts where deduction is done and fails, or in
17881 contexts where deduction is not done, if a template argument list is
17882 specified and it, along with any default template arguments, identifies
17883 a single function template specialization, then the template-id is an
17884 lvalue for the function template specialization. */
17886 tree
17887 resolve_nondeduced_context (tree orig_expr)
17889 tree expr, offset, baselink;
17890 bool addr;
17892 if (!type_unknown_p (orig_expr))
17893 return orig_expr;
17895 expr = orig_expr;
17896 addr = false;
17897 offset = NULL_TREE;
17898 baselink = NULL_TREE;
17900 if (TREE_CODE (expr) == ADDR_EXPR)
17902 expr = TREE_OPERAND (expr, 0);
17903 addr = true;
17905 if (TREE_CODE (expr) == OFFSET_REF)
17907 offset = expr;
17908 expr = TREE_OPERAND (expr, 1);
17910 if (BASELINK_P (expr))
17912 baselink = expr;
17913 expr = BASELINK_FUNCTIONS (expr);
17916 if (TREE_CODE (expr) == TEMPLATE_ID_EXPR)
17918 int good = 0;
17919 tree goodfn = NULL_TREE;
17921 /* If we got some explicit template args, we need to plug them into
17922 the affected templates before we try to unify, in case the
17923 explicit args will completely resolve the templates in question. */
17925 tree expl_subargs = TREE_OPERAND (expr, 1);
17926 tree arg = TREE_OPERAND (expr, 0);
17927 tree badfn = NULL_TREE;
17928 tree badargs = NULL_TREE;
17930 for (; arg; arg = OVL_NEXT (arg))
17932 tree fn = OVL_CURRENT (arg);
17933 tree subargs, elem;
17935 if (TREE_CODE (fn) != TEMPLATE_DECL)
17936 continue;
17938 subargs = coerce_template_parms (DECL_INNERMOST_TEMPLATE_PARMS (fn),
17939 expl_subargs, NULL_TREE, tf_none,
17940 /*require_all_args=*/true,
17941 /*use_default_args=*/true);
17942 if (subargs != error_mark_node
17943 && !any_dependent_template_arguments_p (subargs))
17945 elem = instantiate_template (fn, subargs, tf_none);
17946 if (elem == error_mark_node)
17948 badfn = fn;
17949 badargs = subargs;
17951 else if (elem && (!goodfn || !decls_match (goodfn, elem)))
17953 goodfn = elem;
17954 ++good;
17958 if (good == 1)
17960 mark_used (goodfn);
17961 expr = goodfn;
17962 if (baselink)
17963 expr = build_baselink (BASELINK_BINFO (baselink),
17964 BASELINK_ACCESS_BINFO (baselink),
17965 expr, BASELINK_OPTYPE (baselink));
17966 if (offset)
17968 tree base
17969 = TYPE_MAIN_VARIANT (TREE_TYPE (TREE_OPERAND (offset, 0)));
17970 expr = build_offset_ref (base, expr, addr, tf_warning_or_error);
17972 if (addr)
17973 expr = cp_build_addr_expr (expr, tf_warning_or_error);
17974 return expr;
17976 else if (good == 0 && badargs)
17977 /* There were no good options and at least one bad one, so let the
17978 user know what the problem is. */
17979 instantiate_template (badfn, badargs, tf_warning_or_error);
17981 return orig_expr;
17984 /* Subroutine of resolve_overloaded_unification; does deduction for a single
17985 overload. Fills TARGS with any deduced arguments, or error_mark_node if
17986 different overloads deduce different arguments for a given parm.
17987 ADDR_P is true if the expression for which deduction is being
17988 performed was of the form "& fn" rather than simply "fn".
17990 Returns 1 on success. */
17992 static int
17993 try_one_overload (tree tparms,
17994 tree orig_targs,
17995 tree targs,
17996 tree parm,
17997 tree arg,
17998 unification_kind_t strict,
17999 int sub_strict,
18000 bool addr_p,
18001 bool explain_p)
18003 int nargs;
18004 tree tempargs;
18005 int i;
18007 if (arg == error_mark_node)
18008 return 0;
18010 /* [temp.deduct.type] A template-argument can be deduced from a pointer
18011 to function or pointer to member function argument if the set of
18012 overloaded functions does not contain function templates and at most
18013 one of a set of overloaded functions provides a unique match.
18015 So if this is a template, just return success. */
18017 if (uses_template_parms (arg))
18018 return 1;
18020 if (TREE_CODE (arg) == METHOD_TYPE)
18021 arg = build_ptrmemfunc_type (build_pointer_type (arg));
18022 else if (addr_p)
18023 arg = build_pointer_type (arg);
18025 sub_strict |= maybe_adjust_types_for_deduction (strict, &parm, &arg, NULL);
18027 /* We don't copy orig_targs for this because if we have already deduced
18028 some template args from previous args, unify would complain when we
18029 try to deduce a template parameter for the same argument, even though
18030 there isn't really a conflict. */
18031 nargs = TREE_VEC_LENGTH (targs);
18032 tempargs = make_tree_vec (nargs);
18034 if (unify (tparms, tempargs, parm, arg, sub_strict, explain_p))
18035 return 0;
18037 /* First make sure we didn't deduce anything that conflicts with
18038 explicitly specified args. */
18039 for (i = nargs; i--; )
18041 tree elt = TREE_VEC_ELT (tempargs, i);
18042 tree oldelt = TREE_VEC_ELT (orig_targs, i);
18044 if (!elt)
18045 /*NOP*/;
18046 else if (uses_template_parms (elt))
18047 /* Since we're unifying against ourselves, we will fill in
18048 template args used in the function parm list with our own
18049 template parms. Discard them. */
18050 TREE_VEC_ELT (tempargs, i) = NULL_TREE;
18051 else if (oldelt && !template_args_equal (oldelt, elt))
18052 return 0;
18055 for (i = nargs; i--; )
18057 tree elt = TREE_VEC_ELT (tempargs, i);
18059 if (elt)
18060 TREE_VEC_ELT (targs, i) = elt;
18063 return 1;
18066 /* PARM is a template class (perhaps with unbound template
18067 parameters). ARG is a fully instantiated type. If ARG can be
18068 bound to PARM, return ARG, otherwise return NULL_TREE. TPARMS and
18069 TARGS are as for unify. */
18071 static tree
18072 try_class_unification (tree tparms, tree targs, tree parm, tree arg,
18073 bool explain_p)
18075 tree copy_of_targs;
18077 if (!CLASSTYPE_TEMPLATE_INFO (arg)
18078 || (most_general_template (CLASSTYPE_TI_TEMPLATE (arg))
18079 != most_general_template (CLASSTYPE_TI_TEMPLATE (parm))))
18080 return NULL_TREE;
18082 /* We need to make a new template argument vector for the call to
18083 unify. If we used TARGS, we'd clutter it up with the result of
18084 the attempted unification, even if this class didn't work out.
18085 We also don't want to commit ourselves to all the unifications
18086 we've already done, since unification is supposed to be done on
18087 an argument-by-argument basis. In other words, consider the
18088 following pathological case:
18090 template <int I, int J, int K>
18091 struct S {};
18093 template <int I, int J>
18094 struct S<I, J, 2> : public S<I, I, I>, S<J, J, J> {};
18096 template <int I, int J, int K>
18097 void f(S<I, J, K>, S<I, I, I>);
18099 void g() {
18100 S<0, 0, 0> s0;
18101 S<0, 1, 2> s2;
18103 f(s0, s2);
18106 Now, by the time we consider the unification involving `s2', we
18107 already know that we must have `f<0, 0, 0>'. But, even though
18108 `S<0, 1, 2>' is derived from `S<0, 0, 0>', the code is invalid
18109 because there are two ways to unify base classes of S<0, 1, 2>
18110 with S<I, I, I>. If we kept the already deduced knowledge, we
18111 would reject the possibility I=1. */
18112 copy_of_targs = make_tree_vec (TREE_VEC_LENGTH (targs));
18114 /* If unification failed, we're done. */
18115 if (unify (tparms, copy_of_targs, CLASSTYPE_TI_ARGS (parm),
18116 CLASSTYPE_TI_ARGS (arg), UNIFY_ALLOW_NONE, explain_p))
18117 return NULL_TREE;
18119 return arg;
18122 /* Given a template type PARM and a class type ARG, find the unique
18123 base type in ARG that is an instance of PARM. We do not examine
18124 ARG itself; only its base-classes. If there is not exactly one
18125 appropriate base class, return NULL_TREE. PARM may be the type of
18126 a partial specialization, as well as a plain template type. Used
18127 by unify. */
18129 static enum template_base_result
18130 get_template_base (tree tparms, tree targs, tree parm, tree arg,
18131 bool explain_p, tree *result)
18133 tree rval = NULL_TREE;
18134 tree binfo;
18136 gcc_assert (RECORD_OR_UNION_CODE_P (TREE_CODE (arg)));
18138 binfo = TYPE_BINFO (complete_type (arg));
18139 if (!binfo)
18141 /* The type could not be completed. */
18142 *result = NULL_TREE;
18143 return tbr_incomplete_type;
18146 /* Walk in inheritance graph order. The search order is not
18147 important, and this avoids multiple walks of virtual bases. */
18148 for (binfo = TREE_CHAIN (binfo); binfo; binfo = TREE_CHAIN (binfo))
18150 tree r = try_class_unification (tparms, targs, parm,
18151 BINFO_TYPE (binfo), explain_p);
18153 if (r)
18155 /* If there is more than one satisfactory baseclass, then:
18157 [temp.deduct.call]
18159 If they yield more than one possible deduced A, the type
18160 deduction fails.
18162 applies. */
18163 if (rval && !same_type_p (r, rval))
18165 *result = NULL_TREE;
18166 return tbr_ambiguous_baseclass;
18169 rval = r;
18173 *result = rval;
18174 return tbr_success;
18177 /* Returns the level of DECL, which declares a template parameter. */
18179 static int
18180 template_decl_level (tree decl)
18182 switch (TREE_CODE (decl))
18184 case TYPE_DECL:
18185 case TEMPLATE_DECL:
18186 return TEMPLATE_TYPE_LEVEL (TREE_TYPE (decl));
18188 case PARM_DECL:
18189 return TEMPLATE_PARM_LEVEL (DECL_INITIAL (decl));
18191 default:
18192 gcc_unreachable ();
18194 return 0;
18197 /* Decide whether ARG can be unified with PARM, considering only the
18198 cv-qualifiers of each type, given STRICT as documented for unify.
18199 Returns nonzero iff the unification is OK on that basis. */
18201 static int
18202 check_cv_quals_for_unify (int strict, tree arg, tree parm)
18204 int arg_quals = cp_type_quals (arg);
18205 int parm_quals = cp_type_quals (parm);
18207 if (TREE_CODE (parm) == TEMPLATE_TYPE_PARM
18208 && !(strict & UNIFY_ALLOW_OUTER_MORE_CV_QUAL))
18210 /* Although a CVR qualifier is ignored when being applied to a
18211 substituted template parameter ([8.3.2]/1 for example), that
18212 does not allow us to unify "const T" with "int&" because both
18213 types are not of the form "cv-list T" [14.8.2.5 temp.deduct.type].
18214 It is ok when we're allowing additional CV qualifiers
18215 at the outer level [14.8.2.1]/3,1st bullet. */
18216 if ((TREE_CODE (arg) == REFERENCE_TYPE
18217 || TREE_CODE (arg) == FUNCTION_TYPE
18218 || TREE_CODE (arg) == METHOD_TYPE)
18219 && (parm_quals & (TYPE_QUAL_CONST | TYPE_QUAL_VOLATILE)))
18220 return 0;
18222 if ((!POINTER_TYPE_P (arg) && TREE_CODE (arg) != TEMPLATE_TYPE_PARM)
18223 && (parm_quals & TYPE_QUAL_RESTRICT))
18224 return 0;
18227 if (!(strict & (UNIFY_ALLOW_MORE_CV_QUAL | UNIFY_ALLOW_OUTER_MORE_CV_QUAL))
18228 && (arg_quals & parm_quals) != parm_quals)
18229 return 0;
18231 if (!(strict & (UNIFY_ALLOW_LESS_CV_QUAL | UNIFY_ALLOW_OUTER_LESS_CV_QUAL))
18232 && (parm_quals & arg_quals) != arg_quals)
18233 return 0;
18235 return 1;
18238 /* Determines the LEVEL and INDEX for the template parameter PARM. */
18239 void
18240 template_parm_level_and_index (tree parm, int* level, int* index)
18242 if (TREE_CODE (parm) == TEMPLATE_TYPE_PARM
18243 || TREE_CODE (parm) == TEMPLATE_TEMPLATE_PARM
18244 || TREE_CODE (parm) == BOUND_TEMPLATE_TEMPLATE_PARM)
18246 *index = TEMPLATE_TYPE_IDX (parm);
18247 *level = TEMPLATE_TYPE_LEVEL (parm);
18249 else
18251 *index = TEMPLATE_PARM_IDX (parm);
18252 *level = TEMPLATE_PARM_LEVEL (parm);
18256 #define RECUR_AND_CHECK_FAILURE(TP, TA, P, A, S, EP) \
18257 do { \
18258 if (unify (TP, TA, P, A, S, EP)) \
18259 return 1; \
18260 } while (0);
18262 /* Unifies the remaining arguments in PACKED_ARGS with the pack
18263 expansion at the end of PACKED_PARMS. Returns 0 if the type
18264 deduction succeeds, 1 otherwise. STRICT is the same as in
18265 unify. CALL_ARGS_P is true iff PACKED_ARGS is actually a function
18266 call argument list. We'll need to adjust the arguments to make them
18267 types. SUBR tells us if this is from a recursive call to
18268 type_unification_real, or for comparing two template argument
18269 lists. */
18271 static int
18272 unify_pack_expansion (tree tparms, tree targs, tree packed_parms,
18273 tree packed_args, unification_kind_t strict,
18274 bool subr, bool explain_p)
18276 tree parm
18277 = TREE_VEC_ELT (packed_parms, TREE_VEC_LENGTH (packed_parms) - 1);
18278 tree pattern = PACK_EXPANSION_PATTERN (parm);
18279 tree pack, packs = NULL_TREE;
18280 int i, start = TREE_VEC_LENGTH (packed_parms) - 1;
18282 packed_args = expand_template_argument_pack (packed_args);
18284 int len = TREE_VEC_LENGTH (packed_args);
18286 /* Determine the parameter packs we will be deducing from the
18287 pattern, and record their current deductions. */
18288 for (pack = PACK_EXPANSION_PARAMETER_PACKS (parm);
18289 pack; pack = TREE_CHAIN (pack))
18291 tree parm_pack = TREE_VALUE (pack);
18292 int idx, level;
18294 /* Determine the index and level of this parameter pack. */
18295 template_parm_level_and_index (parm_pack, &level, &idx);
18297 /* Keep track of the parameter packs and their corresponding
18298 argument packs. */
18299 packs = tree_cons (parm_pack, TMPL_ARG (targs, level, idx), packs);
18300 TREE_TYPE (packs) = make_tree_vec (len - start);
18303 /* Loop through all of the arguments that have not yet been
18304 unified and unify each with the pattern. */
18305 for (i = start; i < len; i++)
18307 tree parm;
18308 bool any_explicit = false;
18309 tree arg = TREE_VEC_ELT (packed_args, i);
18311 /* For each parameter pack, set its TMPL_ARG to either NULL_TREE
18312 or the element of its argument pack at the current index if
18313 this argument was explicitly specified. */
18314 for (pack = packs; pack; pack = TREE_CHAIN (pack))
18316 int idx, level;
18317 tree arg, pargs;
18318 template_parm_level_and_index (TREE_PURPOSE (pack), &level, &idx);
18320 arg = NULL_TREE;
18321 if (TREE_VALUE (pack)
18322 && (pargs = ARGUMENT_PACK_EXPLICIT_ARGS (TREE_VALUE (pack)))
18323 && (i - start < TREE_VEC_LENGTH (pargs)))
18325 any_explicit = true;
18326 arg = TREE_VEC_ELT (pargs, i - start);
18328 TMPL_ARG (targs, level, idx) = arg;
18331 /* If we had explicit template arguments, substitute them into the
18332 pattern before deduction. */
18333 if (any_explicit)
18335 /* Some arguments might still be unspecified or dependent. */
18336 bool dependent;
18337 ++processing_template_decl;
18338 dependent = any_dependent_template_arguments_p (targs);
18339 if (!dependent)
18340 --processing_template_decl;
18341 parm = tsubst (pattern, targs,
18342 explain_p ? tf_warning_or_error : tf_none,
18343 NULL_TREE);
18344 if (dependent)
18345 --processing_template_decl;
18346 if (parm == error_mark_node)
18347 return 1;
18349 else
18350 parm = pattern;
18352 /* Unify the pattern with the current argument. */
18353 if (unify_one_argument (tparms, targs, parm, arg, subr, strict,
18354 explain_p))
18355 return 1;
18357 /* For each parameter pack, collect the deduced value. */
18358 for (pack = packs; pack; pack = TREE_CHAIN (pack))
18360 int idx, level;
18361 template_parm_level_and_index (TREE_PURPOSE (pack), &level, &idx);
18363 TREE_VEC_ELT (TREE_TYPE (pack), i - start) =
18364 TMPL_ARG (targs, level, idx);
18368 /* Verify that the results of unification with the parameter packs
18369 produce results consistent with what we've seen before, and make
18370 the deduced argument packs available. */
18371 for (pack = packs; pack; pack = TREE_CHAIN (pack))
18373 tree old_pack = TREE_VALUE (pack);
18374 tree new_args = TREE_TYPE (pack);
18375 int i, len = TREE_VEC_LENGTH (new_args);
18376 int idx, level;
18377 bool nondeduced_p = false;
18379 /* By default keep the original deduced argument pack.
18380 If necessary, more specific code is going to update the
18381 resulting deduced argument later down in this function. */
18382 template_parm_level_and_index (TREE_PURPOSE (pack), &level, &idx);
18383 TMPL_ARG (targs, level, idx) = old_pack;
18385 /* If NEW_ARGS contains any NULL_TREE entries, we didn't
18386 actually deduce anything. */
18387 for (i = 0; i < len && !nondeduced_p; ++i)
18388 if (TREE_VEC_ELT (new_args, i) == NULL_TREE)
18389 nondeduced_p = true;
18390 if (nondeduced_p)
18391 continue;
18393 if (old_pack && ARGUMENT_PACK_INCOMPLETE_P (old_pack))
18395 /* If we had fewer function args than explicit template args,
18396 just use the explicits. */
18397 tree explicit_args = ARGUMENT_PACK_EXPLICIT_ARGS (old_pack);
18398 int explicit_len = TREE_VEC_LENGTH (explicit_args);
18399 if (len < explicit_len)
18400 new_args = explicit_args;
18403 if (!old_pack)
18405 tree result;
18406 /* Build the deduced *_ARGUMENT_PACK. */
18407 if (TREE_CODE (TREE_PURPOSE (pack)) == TEMPLATE_PARM_INDEX)
18409 result = make_node (NONTYPE_ARGUMENT_PACK);
18410 TREE_TYPE (result) =
18411 TREE_TYPE (TEMPLATE_PARM_DECL (TREE_PURPOSE (pack)));
18412 TREE_CONSTANT (result) = 1;
18414 else
18415 result = cxx_make_type (TYPE_ARGUMENT_PACK);
18417 SET_ARGUMENT_PACK_ARGS (result, new_args);
18419 /* Note the deduced argument packs for this parameter
18420 pack. */
18421 TMPL_ARG (targs, level, idx) = result;
18423 else if (ARGUMENT_PACK_INCOMPLETE_P (old_pack)
18424 && (ARGUMENT_PACK_ARGS (old_pack)
18425 == ARGUMENT_PACK_EXPLICIT_ARGS (old_pack)))
18427 /* We only had the explicitly-provided arguments before, but
18428 now we have a complete set of arguments. */
18429 tree explicit_args = ARGUMENT_PACK_EXPLICIT_ARGS (old_pack);
18431 SET_ARGUMENT_PACK_ARGS (old_pack, new_args);
18432 ARGUMENT_PACK_INCOMPLETE_P (old_pack) = 1;
18433 ARGUMENT_PACK_EXPLICIT_ARGS (old_pack) = explicit_args;
18435 else
18437 tree bad_old_arg = NULL_TREE, bad_new_arg = NULL_TREE;
18438 tree old_args = ARGUMENT_PACK_ARGS (old_pack);
18440 if (!comp_template_args_with_info (old_args, new_args,
18441 &bad_old_arg, &bad_new_arg))
18442 /* Inconsistent unification of this parameter pack. */
18443 return unify_parameter_pack_inconsistent (explain_p,
18444 bad_old_arg,
18445 bad_new_arg);
18449 return unify_success (explain_p);
18452 /* Handle unification of the domain of an array. PARM_DOM and ARG_DOM are
18453 INTEGER_TYPEs representing the TYPE_DOMAIN of ARRAY_TYPEs. The other
18454 parameters and return value are as for unify. */
18456 static int
18457 unify_array_domain (tree tparms, tree targs,
18458 tree parm_dom, tree arg_dom,
18459 bool explain_p)
18461 tree parm_max;
18462 tree arg_max;
18463 bool parm_cst;
18464 bool arg_cst;
18466 /* Our representation of array types uses "N - 1" as the
18467 TYPE_MAX_VALUE for an array with "N" elements, if "N" is
18468 not an integer constant. We cannot unify arbitrarily
18469 complex expressions, so we eliminate the MINUS_EXPRs
18470 here. */
18471 parm_max = TYPE_MAX_VALUE (parm_dom);
18472 parm_cst = TREE_CODE (parm_max) == INTEGER_CST;
18473 if (!parm_cst)
18475 gcc_assert (TREE_CODE (parm_max) == MINUS_EXPR);
18476 parm_max = TREE_OPERAND (parm_max, 0);
18478 arg_max = TYPE_MAX_VALUE (arg_dom);
18479 arg_cst = TREE_CODE (arg_max) == INTEGER_CST;
18480 if (!arg_cst)
18482 /* The ARG_MAX may not be a simple MINUS_EXPR, if we are
18483 trying to unify the type of a variable with the type
18484 of a template parameter. For example:
18486 template <unsigned int N>
18487 void f (char (&) [N]);
18488 int g();
18489 void h(int i) {
18490 char a[g(i)];
18491 f(a);
18494 Here, the type of the ARG will be "int [g(i)]", and
18495 may be a SAVE_EXPR, etc. */
18496 if (TREE_CODE (arg_max) != MINUS_EXPR)
18497 return unify_vla_arg (explain_p, arg_dom);
18498 arg_max = TREE_OPERAND (arg_max, 0);
18501 /* If only one of the bounds used a MINUS_EXPR, compensate
18502 by adding one to the other bound. */
18503 if (parm_cst && !arg_cst)
18504 parm_max = fold_build2_loc (input_location, PLUS_EXPR,
18505 integer_type_node,
18506 parm_max,
18507 integer_one_node);
18508 else if (arg_cst && !parm_cst)
18509 arg_max = fold_build2_loc (input_location, PLUS_EXPR,
18510 integer_type_node,
18511 arg_max,
18512 integer_one_node);
18514 return unify (tparms, targs, parm_max, arg_max,
18515 UNIFY_ALLOW_INTEGER, explain_p);
18518 /* Deduce the value of template parameters. TPARMS is the (innermost)
18519 set of template parameters to a template. TARGS is the bindings
18520 for those template parameters, as determined thus far; TARGS may
18521 include template arguments for outer levels of template parameters
18522 as well. PARM is a parameter to a template function, or a
18523 subcomponent of that parameter; ARG is the corresponding argument.
18524 This function attempts to match PARM with ARG in a manner
18525 consistent with the existing assignments in TARGS. If more values
18526 are deduced, then TARGS is updated.
18528 Returns 0 if the type deduction succeeds, 1 otherwise. The
18529 parameter STRICT is a bitwise or of the following flags:
18531 UNIFY_ALLOW_NONE:
18532 Require an exact match between PARM and ARG.
18533 UNIFY_ALLOW_MORE_CV_QUAL:
18534 Allow the deduced ARG to be more cv-qualified (by qualification
18535 conversion) than ARG.
18536 UNIFY_ALLOW_LESS_CV_QUAL:
18537 Allow the deduced ARG to be less cv-qualified than ARG.
18538 UNIFY_ALLOW_DERIVED:
18539 Allow the deduced ARG to be a template base class of ARG,
18540 or a pointer to a template base class of the type pointed to by
18541 ARG.
18542 UNIFY_ALLOW_INTEGER:
18543 Allow any integral type to be deduced. See the TEMPLATE_PARM_INDEX
18544 case for more information.
18545 UNIFY_ALLOW_OUTER_LEVEL:
18546 This is the outermost level of a deduction. Used to determine validity
18547 of qualification conversions. A valid qualification conversion must
18548 have const qualified pointers leading up to the inner type which
18549 requires additional CV quals, except at the outer level, where const
18550 is not required [conv.qual]. It would be normal to set this flag in
18551 addition to setting UNIFY_ALLOW_MORE_CV_QUAL.
18552 UNIFY_ALLOW_OUTER_MORE_CV_QUAL:
18553 This is the outermost level of a deduction, and PARM can be more CV
18554 qualified at this point.
18555 UNIFY_ALLOW_OUTER_LESS_CV_QUAL:
18556 This is the outermost level of a deduction, and PARM can be less CV
18557 qualified at this point. */
18559 static int
18560 unify (tree tparms, tree targs, tree parm, tree arg, int strict,
18561 bool explain_p)
18563 int idx;
18564 tree targ;
18565 tree tparm;
18566 int strict_in = strict;
18568 /* I don't think this will do the right thing with respect to types.
18569 But the only case I've seen it in so far has been array bounds, where
18570 signedness is the only information lost, and I think that will be
18571 okay. */
18572 while (TREE_CODE (parm) == NOP_EXPR)
18573 parm = TREE_OPERAND (parm, 0);
18575 if (arg == error_mark_node)
18576 return unify_invalid (explain_p);
18577 if (arg == unknown_type_node
18578 || arg == init_list_type_node)
18579 /* We can't deduce anything from this, but we might get all the
18580 template args from other function args. */
18581 return unify_success (explain_p);
18583 /* If PARM uses template parameters, then we can't bail out here,
18584 even if ARG == PARM, since we won't record unifications for the
18585 template parameters. We might need them if we're trying to
18586 figure out which of two things is more specialized. */
18587 if (arg == parm && !uses_template_parms (parm))
18588 return unify_success (explain_p);
18590 /* Handle init lists early, so the rest of the function can assume
18591 we're dealing with a type. */
18592 if (BRACE_ENCLOSED_INITIALIZER_P (arg))
18594 tree elt, elttype;
18595 unsigned i;
18596 tree orig_parm = parm;
18598 /* Replace T with std::initializer_list<T> for deduction. */
18599 if (TREE_CODE (parm) == TEMPLATE_TYPE_PARM
18600 && flag_deduce_init_list)
18601 parm = listify (parm);
18603 if (!is_std_init_list (parm)
18604 && TREE_CODE (parm) != ARRAY_TYPE)
18605 /* We can only deduce from an initializer list argument if the
18606 parameter is std::initializer_list or an array; otherwise this
18607 is a non-deduced context. */
18608 return unify_success (explain_p);
18610 if (TREE_CODE (parm) == ARRAY_TYPE)
18611 elttype = TREE_TYPE (parm);
18612 else
18614 elttype = TREE_VEC_ELT (CLASSTYPE_TI_ARGS (parm), 0);
18615 /* Deduction is defined in terms of a single type, so just punt
18616 on the (bizarre) std::initializer_list<T...>. */
18617 if (PACK_EXPANSION_P (elttype))
18618 return unify_success (explain_p);
18621 FOR_EACH_CONSTRUCTOR_VALUE (CONSTRUCTOR_ELTS (arg), i, elt)
18623 int elt_strict = strict;
18625 if (elt == error_mark_node)
18626 return unify_invalid (explain_p);
18628 if (!BRACE_ENCLOSED_INITIALIZER_P (elt))
18630 tree type = TREE_TYPE (elt);
18631 if (type == error_mark_node)
18632 return unify_invalid (explain_p);
18633 /* It should only be possible to get here for a call. */
18634 gcc_assert (elt_strict & UNIFY_ALLOW_OUTER_LEVEL);
18635 elt_strict |= maybe_adjust_types_for_deduction
18636 (DEDUCE_CALL, &elttype, &type, elt);
18637 elt = type;
18640 RECUR_AND_CHECK_FAILURE (tparms, targs, elttype, elt, elt_strict,
18641 explain_p);
18644 if (TREE_CODE (parm) == ARRAY_TYPE
18645 && deducible_array_bound (TYPE_DOMAIN (parm)))
18647 /* Also deduce from the length of the initializer list. */
18648 tree max = size_int (CONSTRUCTOR_NELTS (arg));
18649 tree idx = compute_array_index_type (NULL_TREE, max, tf_none);
18650 if (idx == error_mark_node)
18651 return unify_invalid (explain_p);
18652 return unify_array_domain (tparms, targs, TYPE_DOMAIN (parm),
18653 idx, explain_p);
18656 /* If the std::initializer_list<T> deduction worked, replace the
18657 deduced A with std::initializer_list<A>. */
18658 if (orig_parm != parm)
18660 idx = TEMPLATE_TYPE_IDX (orig_parm);
18661 targ = TREE_VEC_ELT (INNERMOST_TEMPLATE_ARGS (targs), idx);
18662 targ = listify (targ);
18663 TREE_VEC_ELT (INNERMOST_TEMPLATE_ARGS (targs), idx) = targ;
18665 return unify_success (explain_p);
18668 /* Immediately reject some pairs that won't unify because of
18669 cv-qualification mismatches. */
18670 if (TREE_CODE (arg) == TREE_CODE (parm)
18671 && TYPE_P (arg)
18672 /* It is the elements of the array which hold the cv quals of an array
18673 type, and the elements might be template type parms. We'll check
18674 when we recurse. */
18675 && TREE_CODE (arg) != ARRAY_TYPE
18676 /* We check the cv-qualifiers when unifying with template type
18677 parameters below. We want to allow ARG `const T' to unify with
18678 PARM `T' for example, when computing which of two templates
18679 is more specialized, for example. */
18680 && TREE_CODE (arg) != TEMPLATE_TYPE_PARM
18681 && !check_cv_quals_for_unify (strict_in, arg, parm))
18682 return unify_cv_qual_mismatch (explain_p, parm, arg);
18684 if (!(strict & UNIFY_ALLOW_OUTER_LEVEL)
18685 && TYPE_P (parm) && !CP_TYPE_CONST_P (parm))
18686 strict &= ~UNIFY_ALLOW_MORE_CV_QUAL;
18687 strict &= ~UNIFY_ALLOW_OUTER_LEVEL;
18688 strict &= ~UNIFY_ALLOW_DERIVED;
18689 strict &= ~UNIFY_ALLOW_OUTER_MORE_CV_QUAL;
18690 strict &= ~UNIFY_ALLOW_OUTER_LESS_CV_QUAL;
18692 switch (TREE_CODE (parm))
18694 case TYPENAME_TYPE:
18695 case SCOPE_REF:
18696 case UNBOUND_CLASS_TEMPLATE:
18697 /* In a type which contains a nested-name-specifier, template
18698 argument values cannot be deduced for template parameters used
18699 within the nested-name-specifier. */
18700 return unify_success (explain_p);
18702 case TEMPLATE_TYPE_PARM:
18703 case TEMPLATE_TEMPLATE_PARM:
18704 case BOUND_TEMPLATE_TEMPLATE_PARM:
18705 tparm = TREE_VALUE (TREE_VEC_ELT (tparms, 0));
18706 if (error_operand_p (tparm))
18707 return unify_invalid (explain_p);
18709 if (TEMPLATE_TYPE_LEVEL (parm)
18710 != template_decl_level (tparm))
18711 /* The PARM is not one we're trying to unify. Just check
18712 to see if it matches ARG. */
18714 if (TREE_CODE (arg) == TREE_CODE (parm)
18715 && (is_auto (parm) ? is_auto (arg)
18716 : same_type_p (parm, arg)))
18717 return unify_success (explain_p);
18718 else
18719 return unify_type_mismatch (explain_p, parm, arg);
18721 idx = TEMPLATE_TYPE_IDX (parm);
18722 targ = TREE_VEC_ELT (INNERMOST_TEMPLATE_ARGS (targs), idx);
18723 tparm = TREE_VALUE (TREE_VEC_ELT (tparms, idx));
18724 if (error_operand_p (tparm))
18725 return unify_invalid (explain_p);
18727 /* Check for mixed types and values. */
18728 if ((TREE_CODE (parm) == TEMPLATE_TYPE_PARM
18729 && TREE_CODE (tparm) != TYPE_DECL)
18730 || (TREE_CODE (parm) == TEMPLATE_TEMPLATE_PARM
18731 && TREE_CODE (tparm) != TEMPLATE_DECL))
18732 gcc_unreachable ();
18734 if (TREE_CODE (parm) == BOUND_TEMPLATE_TEMPLATE_PARM)
18736 /* ARG must be constructed from a template class or a template
18737 template parameter. */
18738 if (TREE_CODE (arg) != BOUND_TEMPLATE_TEMPLATE_PARM
18739 && !CLASSTYPE_SPECIALIZATION_OF_PRIMARY_TEMPLATE_P (arg))
18740 return unify_template_deduction_failure (explain_p, parm, arg);
18742 tree parmvec = TYPE_TI_ARGS (parm);
18743 /* An alias template name is never deduced. */
18744 if (TYPE_ALIAS_P (arg))
18745 arg = strip_typedefs (arg);
18746 tree argvec = INNERMOST_TEMPLATE_ARGS (TYPE_TI_ARGS (arg));
18747 tree full_argvec = add_to_template_args (targs, argvec);
18748 tree parm_parms
18749 = DECL_INNERMOST_TEMPLATE_PARMS
18750 (TEMPLATE_TEMPLATE_PARM_TEMPLATE_DECL (parm));
18751 int i, len;
18752 int parm_variadic_p = 0;
18754 /* The resolution to DR150 makes clear that default
18755 arguments for an N-argument may not be used to bind T
18756 to a template template parameter with fewer than N
18757 parameters. It is not safe to permit the binding of
18758 default arguments as an extension, as that may change
18759 the meaning of a conforming program. Consider:
18761 struct Dense { static const unsigned int dim = 1; };
18763 template <template <typename> class View,
18764 typename Block>
18765 void operator+(float, View<Block> const&);
18767 template <typename Block,
18768 unsigned int Dim = Block::dim>
18769 struct Lvalue_proxy { operator float() const; };
18771 void
18772 test_1d (void) {
18773 Lvalue_proxy<Dense> p;
18774 float b;
18775 b + p;
18778 Here, if Lvalue_proxy is permitted to bind to View, then
18779 the global operator+ will be used; if they are not, the
18780 Lvalue_proxy will be converted to float. */
18781 if (coerce_template_parms (parm_parms,
18782 full_argvec,
18783 TYPE_TI_TEMPLATE (parm),
18784 (explain_p
18785 ? tf_warning_or_error
18786 : tf_none),
18787 /*require_all_args=*/true,
18788 /*use_default_args=*/false)
18789 == error_mark_node)
18790 return 1;
18792 /* Deduce arguments T, i from TT<T> or TT<i>.
18793 We check each element of PARMVEC and ARGVEC individually
18794 rather than the whole TREE_VEC since they can have
18795 different number of elements. */
18797 parmvec = expand_template_argument_pack (parmvec);
18798 argvec = expand_template_argument_pack (argvec);
18800 len = TREE_VEC_LENGTH (parmvec);
18802 /* Check if the parameters end in a pack, making them
18803 variadic. */
18804 if (len > 0
18805 && PACK_EXPANSION_P (TREE_VEC_ELT (parmvec, len - 1)))
18806 parm_variadic_p = 1;
18808 for (i = 0; i < len - parm_variadic_p; ++i)
18809 /* If the template argument list of P contains a pack
18810 expansion that is not the last template argument, the
18811 entire template argument list is a non-deduced
18812 context. */
18813 if (PACK_EXPANSION_P (TREE_VEC_ELT (parmvec, i)))
18814 return unify_success (explain_p);
18816 if (TREE_VEC_LENGTH (argvec) < len - parm_variadic_p)
18817 return unify_too_few_arguments (explain_p,
18818 TREE_VEC_LENGTH (argvec), len);
18820 for (i = 0; i < len - parm_variadic_p; ++i)
18822 RECUR_AND_CHECK_FAILURE (tparms, targs,
18823 TREE_VEC_ELT (parmvec, i),
18824 TREE_VEC_ELT (argvec, i),
18825 UNIFY_ALLOW_NONE, explain_p);
18828 if (parm_variadic_p
18829 && unify_pack_expansion (tparms, targs,
18830 parmvec, argvec,
18831 DEDUCE_EXACT,
18832 /*subr=*/true, explain_p))
18833 return 1;
18835 arg = TYPE_TI_TEMPLATE (arg);
18837 /* Fall through to deduce template name. */
18840 if (TREE_CODE (parm) == TEMPLATE_TEMPLATE_PARM
18841 || TREE_CODE (parm) == BOUND_TEMPLATE_TEMPLATE_PARM)
18843 /* Deduce template name TT from TT, TT<>, TT<T> and TT<i>. */
18845 /* Simple cases: Value already set, does match or doesn't. */
18846 if (targ != NULL_TREE && template_args_equal (targ, arg))
18847 return unify_success (explain_p);
18848 else if (targ)
18849 return unify_inconsistency (explain_p, parm, targ, arg);
18851 else
18853 /* If PARM is `const T' and ARG is only `int', we don't have
18854 a match unless we are allowing additional qualification.
18855 If ARG is `const int' and PARM is just `T' that's OK;
18856 that binds `const int' to `T'. */
18857 if (!check_cv_quals_for_unify (strict_in | UNIFY_ALLOW_LESS_CV_QUAL,
18858 arg, parm))
18859 return unify_cv_qual_mismatch (explain_p, parm, arg);
18861 /* Consider the case where ARG is `const volatile int' and
18862 PARM is `const T'. Then, T should be `volatile int'. */
18863 arg = cp_build_qualified_type_real
18864 (arg, cp_type_quals (arg) & ~cp_type_quals (parm), tf_none);
18865 if (arg == error_mark_node)
18866 return unify_invalid (explain_p);
18868 /* Simple cases: Value already set, does match or doesn't. */
18869 if (targ != NULL_TREE && same_type_p (targ, arg))
18870 return unify_success (explain_p);
18871 else if (targ)
18872 return unify_inconsistency (explain_p, parm, targ, arg);
18874 /* Make sure that ARG is not a variable-sized array. (Note
18875 that were talking about variable-sized arrays (like
18876 `int[n]'), rather than arrays of unknown size (like
18877 `int[]').) We'll get very confused by such a type since
18878 the bound of the array is not constant, and therefore
18879 not mangleable. Besides, such types are not allowed in
18880 ISO C++, so we can do as we please here. We do allow
18881 them for 'auto' deduction, since that isn't ABI-exposed. */
18882 if (!is_auto (parm) && variably_modified_type_p (arg, NULL_TREE))
18883 return unify_vla_arg (explain_p, arg);
18885 /* Strip typedefs as in convert_template_argument. */
18886 arg = canonicalize_type_argument (arg, tf_none);
18889 /* If ARG is a parameter pack or an expansion, we cannot unify
18890 against it unless PARM is also a parameter pack. */
18891 if ((template_parameter_pack_p (arg) || PACK_EXPANSION_P (arg))
18892 && !template_parameter_pack_p (parm))
18893 return unify_parameter_pack_mismatch (explain_p, parm, arg);
18895 /* If the argument deduction results is a METHOD_TYPE,
18896 then there is a problem.
18897 METHOD_TYPE doesn't map to any real C++ type the result of
18898 the deduction can not be of that type. */
18899 if (TREE_CODE (arg) == METHOD_TYPE)
18900 return unify_method_type_error (explain_p, arg);
18902 TREE_VEC_ELT (INNERMOST_TEMPLATE_ARGS (targs), idx) = arg;
18903 return unify_success (explain_p);
18905 case TEMPLATE_PARM_INDEX:
18906 tparm = TREE_VALUE (TREE_VEC_ELT (tparms, 0));
18907 if (error_operand_p (tparm))
18908 return unify_invalid (explain_p);
18910 if (TEMPLATE_PARM_LEVEL (parm)
18911 != template_decl_level (tparm))
18913 /* The PARM is not one we're trying to unify. Just check
18914 to see if it matches ARG. */
18915 int result = !(TREE_CODE (arg) == TREE_CODE (parm)
18916 && cp_tree_equal (parm, arg));
18917 if (result)
18918 unify_expression_unequal (explain_p, parm, arg);
18919 return result;
18922 idx = TEMPLATE_PARM_IDX (parm);
18923 targ = TREE_VEC_ELT (INNERMOST_TEMPLATE_ARGS (targs), idx);
18925 if (targ)
18927 int x = !cp_tree_equal (targ, arg);
18928 if (x)
18929 unify_inconsistency (explain_p, parm, targ, arg);
18930 return x;
18933 /* [temp.deduct.type] If, in the declaration of a function template
18934 with a non-type template-parameter, the non-type
18935 template-parameter is used in an expression in the function
18936 parameter-list and, if the corresponding template-argument is
18937 deduced, the template-argument type shall match the type of the
18938 template-parameter exactly, except that a template-argument
18939 deduced from an array bound may be of any integral type.
18940 The non-type parameter might use already deduced type parameters. */
18941 tparm = tsubst (TREE_TYPE (parm), targs, 0, NULL_TREE);
18942 if (!TREE_TYPE (arg))
18943 /* Template-parameter dependent expression. Just accept it for now.
18944 It will later be processed in convert_template_argument. */
18946 else if (same_type_p (TREE_TYPE (arg), tparm))
18947 /* OK */;
18948 else if ((strict & UNIFY_ALLOW_INTEGER)
18949 && CP_INTEGRAL_TYPE_P (tparm))
18950 /* Convert the ARG to the type of PARM; the deduced non-type
18951 template argument must exactly match the types of the
18952 corresponding parameter. */
18953 arg = fold (build_nop (tparm, arg));
18954 else if (uses_template_parms (tparm))
18955 /* We haven't deduced the type of this parameter yet. Try again
18956 later. */
18957 return unify_success (explain_p);
18958 else
18959 return unify_type_mismatch (explain_p, tparm, TREE_TYPE (arg));
18961 /* If ARG is a parameter pack or an expansion, we cannot unify
18962 against it unless PARM is also a parameter pack. */
18963 if ((template_parameter_pack_p (arg) || PACK_EXPANSION_P (arg))
18964 && !TEMPLATE_PARM_PARAMETER_PACK (parm))
18965 return unify_parameter_pack_mismatch (explain_p, parm, arg);
18968 bool removed_attr = false;
18969 arg = strip_typedefs_expr (arg, &removed_attr);
18971 TREE_VEC_ELT (INNERMOST_TEMPLATE_ARGS (targs), idx) = arg;
18972 return unify_success (explain_p);
18974 case PTRMEM_CST:
18976 /* A pointer-to-member constant can be unified only with
18977 another constant. */
18978 if (TREE_CODE (arg) != PTRMEM_CST)
18979 return unify_ptrmem_cst_mismatch (explain_p, parm, arg);
18981 /* Just unify the class member. It would be useless (and possibly
18982 wrong, depending on the strict flags) to unify also
18983 PTRMEM_CST_CLASS, because we want to be sure that both parm and
18984 arg refer to the same variable, even if through different
18985 classes. For instance:
18987 struct A { int x; };
18988 struct B : A { };
18990 Unification of &A::x and &B::x must succeed. */
18991 return unify (tparms, targs, PTRMEM_CST_MEMBER (parm),
18992 PTRMEM_CST_MEMBER (arg), strict, explain_p);
18995 case POINTER_TYPE:
18997 if (!TYPE_PTR_P (arg))
18998 return unify_type_mismatch (explain_p, parm, arg);
19000 /* [temp.deduct.call]
19002 A can be another pointer or pointer to member type that can
19003 be converted to the deduced A via a qualification
19004 conversion (_conv.qual_).
19006 We pass down STRICT here rather than UNIFY_ALLOW_NONE.
19007 This will allow for additional cv-qualification of the
19008 pointed-to types if appropriate. */
19010 if (TREE_CODE (TREE_TYPE (arg)) == RECORD_TYPE)
19011 /* The derived-to-base conversion only persists through one
19012 level of pointers. */
19013 strict |= (strict_in & UNIFY_ALLOW_DERIVED);
19015 return unify (tparms, targs, TREE_TYPE (parm),
19016 TREE_TYPE (arg), strict, explain_p);
19019 case REFERENCE_TYPE:
19020 if (TREE_CODE (arg) != REFERENCE_TYPE)
19021 return unify_type_mismatch (explain_p, parm, arg);
19022 return unify (tparms, targs, TREE_TYPE (parm), TREE_TYPE (arg),
19023 strict & UNIFY_ALLOW_MORE_CV_QUAL, explain_p);
19025 case ARRAY_TYPE:
19026 if (TREE_CODE (arg) != ARRAY_TYPE)
19027 return unify_type_mismatch (explain_p, parm, arg);
19028 if ((TYPE_DOMAIN (parm) == NULL_TREE)
19029 != (TYPE_DOMAIN (arg) == NULL_TREE))
19030 return unify_type_mismatch (explain_p, parm, arg);
19031 RECUR_AND_CHECK_FAILURE (tparms, targs, TREE_TYPE (parm), TREE_TYPE (arg),
19032 strict & UNIFY_ALLOW_MORE_CV_QUAL, explain_p);
19033 if (TYPE_DOMAIN (parm) != NULL_TREE)
19034 return unify_array_domain (tparms, targs, TYPE_DOMAIN (parm),
19035 TYPE_DOMAIN (arg), explain_p);
19036 return unify_success (explain_p);
19038 case REAL_TYPE:
19039 case COMPLEX_TYPE:
19040 case VECTOR_TYPE:
19041 case INTEGER_TYPE:
19042 case BOOLEAN_TYPE:
19043 case ENUMERAL_TYPE:
19044 case VOID_TYPE:
19045 case NULLPTR_TYPE:
19046 if (TREE_CODE (arg) != TREE_CODE (parm))
19047 return unify_type_mismatch (explain_p, parm, arg);
19049 /* We have already checked cv-qualification at the top of the
19050 function. */
19051 if (!same_type_ignoring_top_level_qualifiers_p (arg, parm))
19052 return unify_type_mismatch (explain_p, parm, arg);
19054 /* As far as unification is concerned, this wins. Later checks
19055 will invalidate it if necessary. */
19056 return unify_success (explain_p);
19058 /* Types INTEGER_CST and MINUS_EXPR can come from array bounds. */
19059 /* Type INTEGER_CST can come from ordinary constant template args. */
19060 case INTEGER_CST:
19061 while (TREE_CODE (arg) == NOP_EXPR)
19062 arg = TREE_OPERAND (arg, 0);
19064 if (TREE_CODE (arg) != INTEGER_CST)
19065 return unify_template_argument_mismatch (explain_p, parm, arg);
19066 return (tree_int_cst_equal (parm, arg)
19067 ? unify_success (explain_p)
19068 : unify_template_argument_mismatch (explain_p, parm, arg));
19070 case TREE_VEC:
19072 int i, len, argslen;
19073 int parm_variadic_p = 0;
19075 if (TREE_CODE (arg) != TREE_VEC)
19076 return unify_template_argument_mismatch (explain_p, parm, arg);
19078 len = TREE_VEC_LENGTH (parm);
19079 argslen = TREE_VEC_LENGTH (arg);
19081 /* Check for pack expansions in the parameters. */
19082 for (i = 0; i < len; ++i)
19084 if (PACK_EXPANSION_P (TREE_VEC_ELT (parm, i)))
19086 if (i == len - 1)
19087 /* We can unify against something with a trailing
19088 parameter pack. */
19089 parm_variadic_p = 1;
19090 else
19091 /* [temp.deduct.type]/9: If the template argument list of
19092 P contains a pack expansion that is not the last
19093 template argument, the entire template argument list
19094 is a non-deduced context. */
19095 return unify_success (explain_p);
19099 /* If we don't have enough arguments to satisfy the parameters
19100 (not counting the pack expression at the end), or we have
19101 too many arguments for a parameter list that doesn't end in
19102 a pack expression, we can't unify. */
19103 if (parm_variadic_p
19104 ? argslen < len - parm_variadic_p
19105 : argslen != len)
19106 return unify_arity (explain_p, TREE_VEC_LENGTH (arg), len);
19108 /* Unify all of the parameters that precede the (optional)
19109 pack expression. */
19110 for (i = 0; i < len - parm_variadic_p; ++i)
19112 RECUR_AND_CHECK_FAILURE (tparms, targs,
19113 TREE_VEC_ELT (parm, i),
19114 TREE_VEC_ELT (arg, i),
19115 UNIFY_ALLOW_NONE, explain_p);
19117 if (parm_variadic_p)
19118 return unify_pack_expansion (tparms, targs, parm, arg,
19119 DEDUCE_EXACT,
19120 /*subr=*/true, explain_p);
19121 return unify_success (explain_p);
19124 case RECORD_TYPE:
19125 case UNION_TYPE:
19126 if (TREE_CODE (arg) != TREE_CODE (parm))
19127 return unify_type_mismatch (explain_p, parm, arg);
19129 if (TYPE_PTRMEMFUNC_P (parm))
19131 if (!TYPE_PTRMEMFUNC_P (arg))
19132 return unify_type_mismatch (explain_p, parm, arg);
19134 return unify (tparms, targs,
19135 TYPE_PTRMEMFUNC_FN_TYPE (parm),
19136 TYPE_PTRMEMFUNC_FN_TYPE (arg),
19137 strict, explain_p);
19139 else if (TYPE_PTRMEMFUNC_P (arg))
19140 return unify_type_mismatch (explain_p, parm, arg);
19142 if (CLASSTYPE_TEMPLATE_INFO (parm))
19144 tree t = NULL_TREE;
19146 if (strict_in & UNIFY_ALLOW_DERIVED)
19148 /* First, we try to unify the PARM and ARG directly. */
19149 t = try_class_unification (tparms, targs,
19150 parm, arg, explain_p);
19152 if (!t)
19154 /* Fallback to the special case allowed in
19155 [temp.deduct.call]:
19157 If P is a class, and P has the form
19158 template-id, then A can be a derived class of
19159 the deduced A. Likewise, if P is a pointer to
19160 a class of the form template-id, A can be a
19161 pointer to a derived class pointed to by the
19162 deduced A. */
19163 enum template_base_result r;
19164 r = get_template_base (tparms, targs, parm, arg,
19165 explain_p, &t);
19167 if (!t)
19168 return unify_no_common_base (explain_p, r, parm, arg);
19171 else if (CLASSTYPE_TEMPLATE_INFO (arg)
19172 && (CLASSTYPE_TI_TEMPLATE (parm)
19173 == CLASSTYPE_TI_TEMPLATE (arg)))
19174 /* Perhaps PARM is something like S<U> and ARG is S<int>.
19175 Then, we should unify `int' and `U'. */
19176 t = arg;
19177 else
19178 /* There's no chance of unification succeeding. */
19179 return unify_type_mismatch (explain_p, parm, arg);
19181 return unify (tparms, targs, CLASSTYPE_TI_ARGS (parm),
19182 CLASSTYPE_TI_ARGS (t), UNIFY_ALLOW_NONE, explain_p);
19184 else if (!same_type_ignoring_top_level_qualifiers_p (parm, arg))
19185 return unify_type_mismatch (explain_p, parm, arg);
19186 return unify_success (explain_p);
19188 case METHOD_TYPE:
19189 case FUNCTION_TYPE:
19191 unsigned int nargs;
19192 tree *args;
19193 tree a;
19194 unsigned int i;
19196 if (TREE_CODE (arg) != TREE_CODE (parm))
19197 return unify_type_mismatch (explain_p, parm, arg);
19199 /* CV qualifications for methods can never be deduced, they must
19200 match exactly. We need to check them explicitly here,
19201 because type_unification_real treats them as any other
19202 cv-qualified parameter. */
19203 if (TREE_CODE (parm) == METHOD_TYPE
19204 && (!check_cv_quals_for_unify
19205 (UNIFY_ALLOW_NONE,
19206 class_of_this_parm (arg),
19207 class_of_this_parm (parm))))
19208 return unify_cv_qual_mismatch (explain_p, parm, arg);
19210 RECUR_AND_CHECK_FAILURE (tparms, targs, TREE_TYPE (parm),
19211 TREE_TYPE (arg), UNIFY_ALLOW_NONE, explain_p);
19213 nargs = list_length (TYPE_ARG_TYPES (arg));
19214 args = XALLOCAVEC (tree, nargs);
19215 for (a = TYPE_ARG_TYPES (arg), i = 0;
19216 a != NULL_TREE && a != void_list_node;
19217 a = TREE_CHAIN (a), ++i)
19218 args[i] = TREE_VALUE (a);
19219 nargs = i;
19221 return type_unification_real (tparms, targs, TYPE_ARG_TYPES (parm),
19222 args, nargs, 1, DEDUCE_EXACT,
19223 LOOKUP_NORMAL, NULL, explain_p);
19226 case OFFSET_TYPE:
19227 /* Unify a pointer to member with a pointer to member function, which
19228 deduces the type of the member as a function type. */
19229 if (TYPE_PTRMEMFUNC_P (arg))
19231 /* Check top-level cv qualifiers */
19232 if (!check_cv_quals_for_unify (UNIFY_ALLOW_NONE, arg, parm))
19233 return unify_cv_qual_mismatch (explain_p, parm, arg);
19235 RECUR_AND_CHECK_FAILURE (tparms, targs, TYPE_OFFSET_BASETYPE (parm),
19236 TYPE_PTRMEMFUNC_OBJECT_TYPE (arg),
19237 UNIFY_ALLOW_NONE, explain_p);
19239 /* Determine the type of the function we are unifying against. */
19240 tree fntype = static_fn_type (arg);
19242 return unify (tparms, targs, TREE_TYPE (parm), fntype, strict, explain_p);
19245 if (TREE_CODE (arg) != OFFSET_TYPE)
19246 return unify_type_mismatch (explain_p, parm, arg);
19247 RECUR_AND_CHECK_FAILURE (tparms, targs, TYPE_OFFSET_BASETYPE (parm),
19248 TYPE_OFFSET_BASETYPE (arg),
19249 UNIFY_ALLOW_NONE, explain_p);
19250 return unify (tparms, targs, TREE_TYPE (parm), TREE_TYPE (arg),
19251 strict, explain_p);
19253 case CONST_DECL:
19254 if (DECL_TEMPLATE_PARM_P (parm))
19255 return unify (tparms, targs, DECL_INITIAL (parm), arg, strict, explain_p);
19256 if (arg != scalar_constant_value (parm))
19257 return unify_template_argument_mismatch (explain_p, parm, arg);
19258 return unify_success (explain_p);
19260 case FIELD_DECL:
19261 case TEMPLATE_DECL:
19262 /* Matched cases are handled by the ARG == PARM test above. */
19263 return unify_template_argument_mismatch (explain_p, parm, arg);
19265 case VAR_DECL:
19266 /* A non-type template parameter that is a variable should be a
19267 an integral constant, in which case, it whould have been
19268 folded into its (constant) value. So we should not be getting
19269 a variable here. */
19270 gcc_unreachable ();
19272 case TYPE_ARGUMENT_PACK:
19273 case NONTYPE_ARGUMENT_PACK:
19274 return unify (tparms, targs, ARGUMENT_PACK_ARGS (parm),
19275 ARGUMENT_PACK_ARGS (arg), strict, explain_p);
19277 case TYPEOF_TYPE:
19278 case DECLTYPE_TYPE:
19279 case UNDERLYING_TYPE:
19280 /* Cannot deduce anything from TYPEOF_TYPE, DECLTYPE_TYPE,
19281 or UNDERLYING_TYPE nodes. */
19282 return unify_success (explain_p);
19284 case ERROR_MARK:
19285 /* Unification fails if we hit an error node. */
19286 return unify_invalid (explain_p);
19288 case INDIRECT_REF:
19289 if (REFERENCE_REF_P (parm))
19291 if (REFERENCE_REF_P (arg))
19292 arg = TREE_OPERAND (arg, 0);
19293 return unify (tparms, targs, TREE_OPERAND (parm, 0), arg,
19294 strict, explain_p);
19296 /* FALLTHRU */
19298 default:
19299 /* An unresolved overload is a nondeduced context. */
19300 if (is_overloaded_fn (parm) || type_unknown_p (parm))
19301 return unify_success (explain_p);
19302 gcc_assert (EXPR_P (parm));
19304 /* We must be looking at an expression. This can happen with
19305 something like:
19307 template <int I>
19308 void foo(S<I>, S<I + 2>);
19310 This is a "nondeduced context":
19312 [deduct.type]
19314 The nondeduced contexts are:
19316 --A type that is a template-id in which one or more of
19317 the template-arguments is an expression that references
19318 a template-parameter.
19320 In these cases, we assume deduction succeeded, but don't
19321 actually infer any unifications. */
19323 if (!uses_template_parms (parm)
19324 && !template_args_equal (parm, arg))
19325 return unify_expression_unequal (explain_p, parm, arg);
19326 else
19327 return unify_success (explain_p);
19330 #undef RECUR_AND_CHECK_FAILURE
19332 /* Note that DECL can be defined in this translation unit, if
19333 required. */
19335 static void
19336 mark_definable (tree decl)
19338 tree clone;
19339 DECL_NOT_REALLY_EXTERN (decl) = 1;
19340 FOR_EACH_CLONE (clone, decl)
19341 DECL_NOT_REALLY_EXTERN (clone) = 1;
19344 /* Called if RESULT is explicitly instantiated, or is a member of an
19345 explicitly instantiated class. */
19347 void
19348 mark_decl_instantiated (tree result, int extern_p)
19350 SET_DECL_EXPLICIT_INSTANTIATION (result);
19352 /* If this entity has already been written out, it's too late to
19353 make any modifications. */
19354 if (TREE_ASM_WRITTEN (result))
19355 return;
19357 /* For anonymous namespace we don't need to do anything. */
19358 if (decl_anon_ns_mem_p (result))
19360 gcc_assert (!TREE_PUBLIC (result));
19361 return;
19364 if (TREE_CODE (result) != FUNCTION_DECL)
19365 /* The TREE_PUBLIC flag for function declarations will have been
19366 set correctly by tsubst. */
19367 TREE_PUBLIC (result) = 1;
19369 /* This might have been set by an earlier implicit instantiation. */
19370 DECL_COMDAT (result) = 0;
19372 if (extern_p)
19373 DECL_NOT_REALLY_EXTERN (result) = 0;
19374 else
19376 mark_definable (result);
19377 mark_needed (result);
19378 /* Always make artificials weak. */
19379 if (DECL_ARTIFICIAL (result) && flag_weak)
19380 comdat_linkage (result);
19381 /* For WIN32 we also want to put explicit instantiations in
19382 linkonce sections. */
19383 else if (TREE_PUBLIC (result))
19384 maybe_make_one_only (result);
19387 /* If EXTERN_P, then this function will not be emitted -- unless
19388 followed by an explicit instantiation, at which point its linkage
19389 will be adjusted. If !EXTERN_P, then this function will be
19390 emitted here. In neither circumstance do we want
19391 import_export_decl to adjust the linkage. */
19392 DECL_INTERFACE_KNOWN (result) = 1;
19395 /* Subroutine of more_specialized_fn: check whether TARGS is missing any
19396 important template arguments. If any are missing, we check whether
19397 they're important by using error_mark_node for substituting into any
19398 args that were used for partial ordering (the ones between ARGS and END)
19399 and seeing if it bubbles up. */
19401 static bool
19402 check_undeduced_parms (tree targs, tree args, tree end)
19404 bool found = false;
19405 int i;
19406 for (i = TREE_VEC_LENGTH (targs) - 1; i >= 0; --i)
19407 if (TREE_VEC_ELT (targs, i) == NULL_TREE)
19409 found = true;
19410 TREE_VEC_ELT (targs, i) = error_mark_node;
19412 if (found)
19414 tree substed = tsubst_arg_types (args, targs, end, tf_none, NULL_TREE);
19415 if (substed == error_mark_node)
19416 return true;
19418 return false;
19421 /* Given two function templates PAT1 and PAT2, return:
19423 1 if PAT1 is more specialized than PAT2 as described in [temp.func.order].
19424 -1 if PAT2 is more specialized than PAT1.
19425 0 if neither is more specialized.
19427 LEN indicates the number of parameters we should consider
19428 (defaulted parameters should not be considered).
19430 The 1998 std underspecified function template partial ordering, and
19431 DR214 addresses the issue. We take pairs of arguments, one from
19432 each of the templates, and deduce them against each other. One of
19433 the templates will be more specialized if all the *other*
19434 template's arguments deduce against its arguments and at least one
19435 of its arguments *does* *not* deduce against the other template's
19436 corresponding argument. Deduction is done as for class templates.
19437 The arguments used in deduction have reference and top level cv
19438 qualifiers removed. Iff both arguments were originally reference
19439 types *and* deduction succeeds in both directions, an lvalue reference
19440 wins against an rvalue reference and otherwise the template
19441 with the more cv-qualified argument wins for that pairing (if
19442 neither is more cv-qualified, they both are equal). Unlike regular
19443 deduction, after all the arguments have been deduced in this way,
19444 we do *not* verify the deduced template argument values can be
19445 substituted into non-deduced contexts.
19447 The logic can be a bit confusing here, because we look at deduce1 and
19448 targs1 to see if pat2 is at least as specialized, and vice versa; if we
19449 can find template arguments for pat1 to make arg1 look like arg2, that
19450 means that arg2 is at least as specialized as arg1. */
19453 more_specialized_fn (tree pat1, tree pat2, int len)
19455 tree decl1 = DECL_TEMPLATE_RESULT (pat1);
19456 tree decl2 = DECL_TEMPLATE_RESULT (pat2);
19457 tree targs1 = make_tree_vec (DECL_NTPARMS (pat1));
19458 tree targs2 = make_tree_vec (DECL_NTPARMS (pat2));
19459 tree tparms1 = DECL_INNERMOST_TEMPLATE_PARMS (pat1);
19460 tree tparms2 = DECL_INNERMOST_TEMPLATE_PARMS (pat2);
19461 tree args1 = TYPE_ARG_TYPES (TREE_TYPE (decl1));
19462 tree args2 = TYPE_ARG_TYPES (TREE_TYPE (decl2));
19463 tree origs1, origs2;
19464 bool lose1 = false;
19465 bool lose2 = false;
19467 /* Remove the this parameter from non-static member functions. If
19468 one is a non-static member function and the other is not a static
19469 member function, remove the first parameter from that function
19470 also. This situation occurs for operator functions where we
19471 locate both a member function (with this pointer) and non-member
19472 operator (with explicit first operand). */
19473 if (DECL_NONSTATIC_MEMBER_FUNCTION_P (decl1))
19475 len--; /* LEN is the number of significant arguments for DECL1 */
19476 args1 = TREE_CHAIN (args1);
19477 if (!DECL_STATIC_FUNCTION_P (decl2))
19478 args2 = TREE_CHAIN (args2);
19480 else if (DECL_NONSTATIC_MEMBER_FUNCTION_P (decl2))
19482 args2 = TREE_CHAIN (args2);
19483 if (!DECL_STATIC_FUNCTION_P (decl1))
19485 len--;
19486 args1 = TREE_CHAIN (args1);
19490 /* If only one is a conversion operator, they are unordered. */
19491 if (DECL_CONV_FN_P (decl1) != DECL_CONV_FN_P (decl2))
19492 return 0;
19494 /* Consider the return type for a conversion function */
19495 if (DECL_CONV_FN_P (decl1))
19497 args1 = tree_cons (NULL_TREE, TREE_TYPE (TREE_TYPE (decl1)), args1);
19498 args2 = tree_cons (NULL_TREE, TREE_TYPE (TREE_TYPE (decl2)), args2);
19499 len++;
19502 processing_template_decl++;
19504 origs1 = args1;
19505 origs2 = args2;
19507 while (len--
19508 /* Stop when an ellipsis is seen. */
19509 && args1 != NULL_TREE && args2 != NULL_TREE)
19511 tree arg1 = TREE_VALUE (args1);
19512 tree arg2 = TREE_VALUE (args2);
19513 int deduce1, deduce2;
19514 int quals1 = -1;
19515 int quals2 = -1;
19516 int ref1 = 0;
19517 int ref2 = 0;
19519 if (TREE_CODE (arg1) == TYPE_PACK_EXPANSION
19520 && TREE_CODE (arg2) == TYPE_PACK_EXPANSION)
19522 /* When both arguments are pack expansions, we need only
19523 unify the patterns themselves. */
19524 arg1 = PACK_EXPANSION_PATTERN (arg1);
19525 arg2 = PACK_EXPANSION_PATTERN (arg2);
19527 /* This is the last comparison we need to do. */
19528 len = 0;
19531 if (TREE_CODE (arg1) == REFERENCE_TYPE)
19533 ref1 = TYPE_REF_IS_RVALUE (arg1) + 1;
19534 arg1 = TREE_TYPE (arg1);
19535 quals1 = cp_type_quals (arg1);
19538 if (TREE_CODE (arg2) == REFERENCE_TYPE)
19540 ref2 = TYPE_REF_IS_RVALUE (arg2) + 1;
19541 arg2 = TREE_TYPE (arg2);
19542 quals2 = cp_type_quals (arg2);
19545 arg1 = TYPE_MAIN_VARIANT (arg1);
19546 arg2 = TYPE_MAIN_VARIANT (arg2);
19548 if (TREE_CODE (arg1) == TYPE_PACK_EXPANSION)
19550 int i, len2 = list_length (args2);
19551 tree parmvec = make_tree_vec (1);
19552 tree argvec = make_tree_vec (len2);
19553 tree ta = args2;
19555 /* Setup the parameter vector, which contains only ARG1. */
19556 TREE_VEC_ELT (parmvec, 0) = arg1;
19558 /* Setup the argument vector, which contains the remaining
19559 arguments. */
19560 for (i = 0; i < len2; i++, ta = TREE_CHAIN (ta))
19561 TREE_VEC_ELT (argvec, i) = TREE_VALUE (ta);
19563 deduce1 = (unify_pack_expansion (tparms1, targs1, parmvec,
19564 argvec, DEDUCE_EXACT,
19565 /*subr=*/true, /*explain_p=*/false)
19566 == 0);
19568 /* We cannot deduce in the other direction, because ARG1 is
19569 a pack expansion but ARG2 is not. */
19570 deduce2 = 0;
19572 else if (TREE_CODE (arg2) == TYPE_PACK_EXPANSION)
19574 int i, len1 = list_length (args1);
19575 tree parmvec = make_tree_vec (1);
19576 tree argvec = make_tree_vec (len1);
19577 tree ta = args1;
19579 /* Setup the parameter vector, which contains only ARG1. */
19580 TREE_VEC_ELT (parmvec, 0) = arg2;
19582 /* Setup the argument vector, which contains the remaining
19583 arguments. */
19584 for (i = 0; i < len1; i++, ta = TREE_CHAIN (ta))
19585 TREE_VEC_ELT (argvec, i) = TREE_VALUE (ta);
19587 deduce2 = (unify_pack_expansion (tparms2, targs2, parmvec,
19588 argvec, DEDUCE_EXACT,
19589 /*subr=*/true, /*explain_p=*/false)
19590 == 0);
19592 /* We cannot deduce in the other direction, because ARG2 is
19593 a pack expansion but ARG1 is not.*/
19594 deduce1 = 0;
19597 else
19599 /* The normal case, where neither argument is a pack
19600 expansion. */
19601 deduce1 = (unify (tparms1, targs1, arg1, arg2,
19602 UNIFY_ALLOW_NONE, /*explain_p=*/false)
19603 == 0);
19604 deduce2 = (unify (tparms2, targs2, arg2, arg1,
19605 UNIFY_ALLOW_NONE, /*explain_p=*/false)
19606 == 0);
19609 /* If we couldn't deduce arguments for tparms1 to make arg1 match
19610 arg2, then arg2 is not as specialized as arg1. */
19611 if (!deduce1)
19612 lose2 = true;
19613 if (!deduce2)
19614 lose1 = true;
19616 /* "If, for a given type, deduction succeeds in both directions
19617 (i.e., the types are identical after the transformations above)
19618 and both P and A were reference types (before being replaced with
19619 the type referred to above):
19620 - if the type from the argument template was an lvalue reference and
19621 the type from the parameter template was not, the argument type is
19622 considered to be more specialized than the other; otherwise,
19623 - if the type from the argument template is more cv-qualified
19624 than the type from the parameter template (as described above),
19625 the argument type is considered to be more specialized than the other;
19626 otherwise,
19627 - neither type is more specialized than the other." */
19629 if (deduce1 && deduce2)
19631 if (ref1 && ref2 && ref1 != ref2)
19633 if (ref1 > ref2)
19634 lose1 = true;
19635 else
19636 lose2 = true;
19638 else if (quals1 != quals2 && quals1 >= 0 && quals2 >= 0)
19640 if ((quals1 & quals2) == quals2)
19641 lose2 = true;
19642 if ((quals1 & quals2) == quals1)
19643 lose1 = true;
19647 if (lose1 && lose2)
19648 /* We've failed to deduce something in either direction.
19649 These must be unordered. */
19650 break;
19652 if (TREE_CODE (arg1) == TYPE_PACK_EXPANSION
19653 || TREE_CODE (arg2) == TYPE_PACK_EXPANSION)
19654 /* We have already processed all of the arguments in our
19655 handing of the pack expansion type. */
19656 len = 0;
19658 args1 = TREE_CHAIN (args1);
19659 args2 = TREE_CHAIN (args2);
19662 /* "In most cases, all template parameters must have values in order for
19663 deduction to succeed, but for partial ordering purposes a template
19664 parameter may remain without a value provided it is not used in the
19665 types being used for partial ordering."
19667 Thus, if we are missing any of the targs1 we need to substitute into
19668 origs1, then pat2 is not as specialized as pat1. This can happen when
19669 there is a nondeduced context. */
19670 if (!lose2 && check_undeduced_parms (targs1, origs1, args1))
19671 lose2 = true;
19672 if (!lose1 && check_undeduced_parms (targs2, origs2, args2))
19673 lose1 = true;
19675 processing_template_decl--;
19677 /* If both deductions succeed, the partial ordering selects the more
19678 constrained template. */
19679 if (!lose1 && !lose2)
19681 tree c1 = get_constraints (DECL_TEMPLATE_RESULT (pat1));
19682 tree c2 = get_constraints (DECL_TEMPLATE_RESULT (pat2));
19683 lose1 = !subsumes_constraints (c1, c2);
19684 lose2 = !subsumes_constraints (c2, c1);
19687 /* All things being equal, if the next argument is a pack expansion
19688 for one function but not for the other, prefer the
19689 non-variadic function. FIXME this is bogus; see c++/41958. */
19690 if (lose1 == lose2
19691 && args1 && TREE_VALUE (args1)
19692 && args2 && TREE_VALUE (args2))
19694 lose1 = TREE_CODE (TREE_VALUE (args1)) == TYPE_PACK_EXPANSION;
19695 lose2 = TREE_CODE (TREE_VALUE (args2)) == TYPE_PACK_EXPANSION;
19698 if (lose1 == lose2)
19699 return 0;
19700 else if (!lose1)
19701 return 1;
19702 else
19703 return -1;
19706 /* Determine which of two partial specializations of TMPL is more
19707 specialized.
19709 PAT1 is a TREE_LIST whose TREE_VALUE is the TEMPLATE_DECL corresponding
19710 to the first partial specialization. The TREE_PURPOSE is the
19711 innermost set of template parameters for the partial
19712 specialization. PAT2 is similar, but for the second template.
19714 Return 1 if the first partial specialization is more specialized;
19715 -1 if the second is more specialized; 0 if neither is more
19716 specialized.
19718 See [temp.class.order] for information about determining which of
19719 two templates is more specialized. */
19721 static int
19722 more_specialized_partial_spec (tree tmpl, tree pat1, tree pat2)
19724 tree targs;
19725 int winner = 0;
19726 bool any_deductions = false;
19728 tree tmpl1 = TREE_VALUE (pat1);
19729 tree tmpl2 = TREE_VALUE (pat2);
19730 tree parms1 = DECL_INNERMOST_TEMPLATE_PARMS (tmpl1);
19731 tree parms2 = DECL_INNERMOST_TEMPLATE_PARMS (tmpl2);
19732 tree specargs1 = TI_ARGS (get_template_info (DECL_TEMPLATE_RESULT (tmpl1)));
19733 tree specargs2 = TI_ARGS (get_template_info (DECL_TEMPLATE_RESULT (tmpl2)));
19735 /* Just like what happens for functions, if we are ordering between
19736 different template specializations, we may encounter dependent
19737 types in the arguments, and we need our dependency check functions
19738 to behave correctly. */
19739 ++processing_template_decl;
19740 targs = get_partial_spec_bindings (tmpl, parms1, specargs1, specargs2);
19741 if (targs)
19743 --winner;
19744 any_deductions = true;
19747 targs = get_partial_spec_bindings (tmpl, parms2, specargs2, specargs1);
19748 if (targs)
19750 ++winner;
19751 any_deductions = true;
19753 --processing_template_decl;
19755 /* If both deductions succeed, the partial ordering selects the more
19756 constrained template. */
19757 if (!winner && any_deductions)
19758 return more_constrained (tmpl1, tmpl2);
19760 /* In the case of a tie where at least one of the templates
19761 has a parameter pack at the end, the template with the most
19762 non-packed parameters wins. */
19763 if (winner == 0
19764 && any_deductions
19765 && (template_args_variadic_p (TREE_PURPOSE (pat1))
19766 || template_args_variadic_p (TREE_PURPOSE (pat2))))
19768 tree args1 = INNERMOST_TEMPLATE_ARGS (TREE_PURPOSE (pat1));
19769 tree args2 = INNERMOST_TEMPLATE_ARGS (TREE_PURPOSE (pat2));
19770 int len1 = TREE_VEC_LENGTH (args1);
19771 int len2 = TREE_VEC_LENGTH (args2);
19773 /* We don't count the pack expansion at the end. */
19774 if (template_args_variadic_p (TREE_PURPOSE (pat1)))
19775 --len1;
19776 if (template_args_variadic_p (TREE_PURPOSE (pat2)))
19777 --len2;
19779 if (len1 > len2)
19780 return 1;
19781 else if (len1 < len2)
19782 return -1;
19785 return winner;
19788 /* Return the template arguments that will produce the function signature
19789 DECL from the function template FN, with the explicit template
19790 arguments EXPLICIT_ARGS. If CHECK_RETTYPE is true, the return type must
19791 also match. Return NULL_TREE if no satisfactory arguments could be
19792 found. */
19794 static tree
19795 get_bindings (tree fn, tree decl, tree explicit_args, bool check_rettype)
19797 int ntparms = DECL_NTPARMS (fn);
19798 tree targs = make_tree_vec (ntparms);
19799 tree decl_type = TREE_TYPE (decl);
19800 tree decl_arg_types;
19801 tree *args;
19802 unsigned int nargs, ix;
19803 tree arg;
19805 gcc_assert (decl != DECL_TEMPLATE_RESULT (fn));
19807 /* Never do unification on the 'this' parameter. */
19808 decl_arg_types = skip_artificial_parms_for (decl,
19809 TYPE_ARG_TYPES (decl_type));
19811 nargs = list_length (decl_arg_types);
19812 args = XALLOCAVEC (tree, nargs);
19813 for (arg = decl_arg_types, ix = 0;
19814 arg != NULL_TREE && arg != void_list_node;
19815 arg = TREE_CHAIN (arg), ++ix)
19816 args[ix] = TREE_VALUE (arg);
19818 if (fn_type_unification (fn, explicit_args, targs,
19819 args, ix,
19820 (check_rettype || DECL_CONV_FN_P (fn)
19821 ? TREE_TYPE (decl_type) : NULL_TREE),
19822 DEDUCE_EXACT, LOOKUP_NORMAL, /*explain_p=*/false,
19823 /*decltype*/false)
19824 == error_mark_node)
19825 return NULL_TREE;
19827 return targs;
19830 /* Return the innermost template arguments that, when applied to a partial
19831 specialization of TMPL whose innermost template parameters are
19832 TPARMS, and whose specialization arguments are SPEC_ARGS, yield the
19833 ARGS.
19835 For example, suppose we have:
19837 template <class T, class U> struct S {};
19838 template <class T> struct S<T*, int> {};
19840 Then, suppose we want to get `S<double*, int>'. The TPARMS will be
19841 {T}, the SPEC_ARGS will be {T*, int} and the ARGS will be {double*,
19842 int}. The resulting vector will be {double}, indicating that `T'
19843 is bound to `double'. */
19845 static tree
19846 get_partial_spec_bindings (tree tmpl, tree tparms, tree spec_args, tree args)
19848 int i, ntparms = TREE_VEC_LENGTH (tparms);
19849 tree deduced_args;
19850 tree innermost_deduced_args;
19852 innermost_deduced_args = make_tree_vec (ntparms);
19853 if (TMPL_ARGS_HAVE_MULTIPLE_LEVELS (args))
19855 deduced_args = copy_node (args);
19856 SET_TMPL_ARGS_LEVEL (deduced_args,
19857 TMPL_ARGS_DEPTH (deduced_args),
19858 innermost_deduced_args);
19860 else
19861 deduced_args = innermost_deduced_args;
19863 if (unify (tparms, deduced_args,
19864 INNERMOST_TEMPLATE_ARGS (spec_args),
19865 INNERMOST_TEMPLATE_ARGS (args),
19866 UNIFY_ALLOW_NONE, /*explain_p=*/false))
19867 return NULL_TREE;
19869 for (i = 0; i < ntparms; ++i)
19870 if (! TREE_VEC_ELT (innermost_deduced_args, i))
19871 return NULL_TREE;
19873 /* Verify that nondeduced template arguments agree with the type
19874 obtained from argument deduction.
19876 For example:
19878 struct A { typedef int X; };
19879 template <class T, class U> struct C {};
19880 template <class T> struct C<T, typename T::X> {};
19882 Then with the instantiation `C<A, int>', we can deduce that
19883 `T' is `A' but unify () does not check whether `typename T::X'
19884 is `int'. */
19885 spec_args = tsubst (spec_args, deduced_args, tf_none, NULL_TREE);
19886 spec_args = coerce_template_parms (DECL_INNERMOST_TEMPLATE_PARMS (tmpl),
19887 spec_args, tmpl,
19888 tf_none, false, false);
19889 if (spec_args == error_mark_node
19890 /* We only need to check the innermost arguments; the other
19891 arguments will always agree. */
19892 || !comp_template_args (INNERMOST_TEMPLATE_ARGS (spec_args),
19893 INNERMOST_TEMPLATE_ARGS (args)))
19894 return NULL_TREE;
19896 /* Now that we have bindings for all of the template arguments,
19897 ensure that the arguments deduced for the template template
19898 parameters have compatible template parameter lists. See the use
19899 of template_template_parm_bindings_ok_p in fn_type_unification
19900 for more information. */
19901 if (!template_template_parm_bindings_ok_p (tparms, deduced_args))
19902 return NULL_TREE;
19904 return deduced_args;
19907 // Compare two function templates T1 and T2 by deducing bindings
19908 // from one against the other. If both deductions succeed, compare
19909 // constraints to see which is more constrained.
19910 static int
19911 more_specialized_inst (tree t1, tree t2)
19913 int fate = 0;
19914 int count = 0;
19916 if (get_bindings (t1, DECL_TEMPLATE_RESULT (t2), NULL_TREE, true))
19918 --fate;
19919 ++count;
19922 if (get_bindings (t2, DECL_TEMPLATE_RESULT (t1), NULL_TREE, true))
19924 ++fate;
19925 ++count;
19928 // If both deductions succeed, then one may be more constrained.
19929 if (count == 2 && fate == 0)
19930 fate = more_constrained (t1, t2);
19932 return fate;
19935 /* TEMPLATES is a TREE_LIST. Each TREE_VALUE is a TEMPLATE_DECL.
19936 Return the TREE_LIST node with the most specialized template, if
19937 any. If there is no most specialized template, the error_mark_node
19938 is returned.
19940 Note that this function does not look at, or modify, the
19941 TREE_PURPOSE or TREE_TYPE of any of the nodes. Since the node
19942 returned is one of the elements of INSTANTIATIONS, callers may
19943 store information in the TREE_PURPOSE or TREE_TYPE of the nodes,
19944 and retrieve it from the value returned. */
19946 tree
19947 most_specialized_instantiation (tree templates)
19949 tree fn, champ;
19951 ++processing_template_decl;
19953 champ = templates;
19954 for (fn = TREE_CHAIN (templates); fn; fn = TREE_CHAIN (fn))
19956 int fate = more_specialized_inst (TREE_VALUE (champ), TREE_VALUE (fn));
19957 if (fate == -1)
19958 champ = fn;
19959 else if (!fate)
19961 /* Equally specialized, move to next function. If there
19962 is no next function, nothing's most specialized. */
19963 fn = TREE_CHAIN (fn);
19964 champ = fn;
19965 if (!fn)
19966 break;
19970 if (champ)
19971 /* Now verify that champ is better than everything earlier in the
19972 instantiation list. */
19973 for (fn = templates; fn != champ; fn = TREE_CHAIN (fn)) {
19974 if (more_specialized_inst (TREE_VALUE (champ), TREE_VALUE (fn)) != 1)
19976 champ = NULL_TREE;
19977 break;
19981 processing_template_decl--;
19983 if (!champ)
19984 return error_mark_node;
19986 return champ;
19989 /* If DECL is a specialization of some template, return the most
19990 general such template. Otherwise, returns NULL_TREE.
19992 For example, given:
19994 template <class T> struct S { template <class U> void f(U); };
19996 if TMPL is `template <class U> void S<int>::f(U)' this will return
19997 the full template. This function will not trace past partial
19998 specializations, however. For example, given in addition:
20000 template <class T> struct S<T*> { template <class U> void f(U); };
20002 if TMPL is `template <class U> void S<int*>::f(U)' this will return
20003 `template <class T> template <class U> S<T*>::f(U)'. */
20005 tree
20006 most_general_template (tree decl)
20008 if (TREE_CODE (decl) != TEMPLATE_DECL)
20010 if (tree tinfo = get_template_info (decl))
20011 decl = TI_TEMPLATE (tinfo);
20012 /* The TI_TEMPLATE can be an IDENTIFIER_NODE for a
20013 template friend, or a FIELD_DECL for a capture pack. */
20014 if (TREE_CODE (decl) != TEMPLATE_DECL)
20015 return NULL_TREE;
20018 /* Look for more and more general templates. */
20019 while (DECL_LANG_SPECIFIC (decl) && DECL_TEMPLATE_INFO (decl))
20021 /* The DECL_TI_TEMPLATE can be an IDENTIFIER_NODE in some cases.
20022 (See cp-tree.h for details.) */
20023 if (TREE_CODE (DECL_TI_TEMPLATE (decl)) != TEMPLATE_DECL)
20024 break;
20026 if (CLASS_TYPE_P (TREE_TYPE (decl))
20027 && !TYPE_DECL_ALIAS_P (TYPE_NAME (TREE_TYPE (decl)))
20028 && CLASSTYPE_TEMPLATE_SPECIALIZATION (TREE_TYPE (decl)))
20029 break;
20031 /* Stop if we run into an explicitly specialized class template. */
20032 if (!DECL_NAMESPACE_SCOPE_P (decl)
20033 && DECL_CONTEXT (decl)
20034 && CLASSTYPE_TEMPLATE_SPECIALIZATION (DECL_CONTEXT (decl)))
20035 break;
20037 decl = DECL_TI_TEMPLATE (decl);
20040 return decl;
20043 /* Return the most specialized of the template partial specializations
20044 which can produce TARGET, a specialization of some class or variable
20045 template. The value returned is actually a TREE_LIST; the TREE_VALUE is
20046 a TEMPLATE_DECL node corresponding to the partial specialization, while
20047 the TREE_PURPOSE is the set of template arguments that must be
20048 substituted into the template pattern in order to generate TARGET.
20050 If the choice of partial specialization is ambiguous, a diagnostic
20051 is issued, and the error_mark_node is returned. If there are no
20052 partial specializations matching TARGET, then NULL_TREE is
20053 returned, indicating that the primary template should be used. */
20055 static tree
20056 most_specialized_partial_spec (tree target, tsubst_flags_t complain)
20058 tree list = NULL_TREE;
20059 tree t;
20060 tree champ;
20061 int fate;
20062 bool ambiguous_p;
20063 tree outer_args = NULL_TREE;
20064 tree tmpl, args;
20066 if (TYPE_P (target))
20068 tree tinfo = CLASSTYPE_TEMPLATE_INFO (target);
20069 tmpl = TI_TEMPLATE (tinfo);
20070 args = TI_ARGS (tinfo);
20072 else if (TREE_CODE (target) == TEMPLATE_ID_EXPR)
20074 tmpl = TREE_OPERAND (target, 0);
20075 args = TREE_OPERAND (target, 1);
20077 else if (VAR_P (target))
20079 tree tinfo = DECL_TEMPLATE_INFO (target);
20080 tmpl = TI_TEMPLATE (tinfo);
20081 args = TI_ARGS (tinfo);
20083 else
20084 gcc_unreachable ();
20086 tree main_tmpl = most_general_template (tmpl);
20088 /* For determining which partial specialization to use, only the
20089 innermost args are interesting. */
20090 if (TMPL_ARGS_HAVE_MULTIPLE_LEVELS (args))
20092 outer_args = strip_innermost_template_args (args, 1);
20093 args = INNERMOST_TEMPLATE_ARGS (args);
20096 for (t = DECL_TEMPLATE_SPECIALIZATIONS (main_tmpl); t; t = TREE_CHAIN (t))
20098 tree partial_spec_args;
20099 tree spec_args;
20100 tree spec_tmpl = TREE_VALUE (t);
20102 partial_spec_args = TREE_PURPOSE (t);
20104 ++processing_template_decl;
20106 if (outer_args)
20108 /* Discard the outer levels of args, and then substitute in the
20109 template args from the enclosing class. */
20110 partial_spec_args = INNERMOST_TEMPLATE_ARGS (partial_spec_args);
20111 partial_spec_args = tsubst_template_args
20112 (partial_spec_args, outer_args, tf_none, NULL_TREE);
20114 /* And the same for the partial specialization TEMPLATE_DECL. */
20115 spec_tmpl = tsubst (spec_tmpl, outer_args, tf_none, NULL_TREE);
20118 partial_spec_args =
20119 coerce_template_parms (DECL_INNERMOST_TEMPLATE_PARMS (tmpl),
20120 partial_spec_args,
20121 tmpl, tf_none,
20122 /*require_all_args=*/true,
20123 /*use_default_args=*/true);
20125 --processing_template_decl;
20127 if (partial_spec_args == error_mark_node)
20128 return error_mark_node;
20129 if (spec_tmpl == error_mark_node)
20130 return error_mark_node;
20132 tree parms = DECL_INNERMOST_TEMPLATE_PARMS (spec_tmpl);
20133 spec_args = get_partial_spec_bindings (tmpl, parms,
20134 partial_spec_args,
20135 args);
20136 if (spec_args)
20138 if (outer_args)
20139 spec_args = add_to_template_args (outer_args, spec_args);
20141 /* Keep the candidate only if the constraints are satisfied,
20142 or if we're not compiling with concepts. */
20143 if (!flag_concepts
20144 || constraints_satisfied_p (spec_tmpl, spec_args))
20146 list = tree_cons (spec_args, TREE_VALUE (t), list);
20147 TREE_TYPE (list) = TREE_TYPE (t);
20152 if (! list)
20153 return NULL_TREE;
20155 ambiguous_p = false;
20156 t = list;
20157 champ = t;
20158 t = TREE_CHAIN (t);
20159 for (; t; t = TREE_CHAIN (t))
20161 fate = more_specialized_partial_spec (tmpl, champ, t);
20162 if (fate == 1)
20164 else
20166 if (fate == 0)
20168 t = TREE_CHAIN (t);
20169 if (! t)
20171 ambiguous_p = true;
20172 break;
20175 champ = t;
20179 if (!ambiguous_p)
20180 for (t = list; t && t != champ; t = TREE_CHAIN (t))
20182 fate = more_specialized_partial_spec (tmpl, champ, t);
20183 if (fate != 1)
20185 ambiguous_p = true;
20186 break;
20190 if (ambiguous_p)
20192 const char *str;
20193 char *spaces = NULL;
20194 if (!(complain & tf_error))
20195 return error_mark_node;
20196 if (TYPE_P (target))
20197 error ("ambiguous template instantiation for %q#T", target);
20198 else
20199 error ("ambiguous template instantiation for %q#D", target);
20200 str = ngettext ("candidate is:", "candidates are:", list_length (list));
20201 for (t = list; t; t = TREE_CHAIN (t))
20203 tree subst = build_tree_list (TREE_VALUE (t), TREE_PURPOSE (t));
20204 inform (DECL_SOURCE_LOCATION (TREE_VALUE (t)),
20205 "%s %#S", spaces ? spaces : str, subst);
20206 spaces = spaces ? spaces : get_spaces (str);
20208 free (spaces);
20209 return error_mark_node;
20212 return champ;
20215 /* Explicitly instantiate DECL. */
20217 void
20218 do_decl_instantiation (tree decl, tree storage)
20220 tree result = NULL_TREE;
20221 int extern_p = 0;
20223 if (!decl || decl == error_mark_node)
20224 /* An error occurred, for which grokdeclarator has already issued
20225 an appropriate message. */
20226 return;
20227 else if (! DECL_LANG_SPECIFIC (decl))
20229 error ("explicit instantiation of non-template %q#D", decl);
20230 return;
20233 bool var_templ = (DECL_TEMPLATE_INFO (decl)
20234 && variable_template_p (DECL_TI_TEMPLATE (decl)));
20236 if (VAR_P (decl) && !var_templ)
20238 /* There is an asymmetry here in the way VAR_DECLs and
20239 FUNCTION_DECLs are handled by grokdeclarator. In the case of
20240 the latter, the DECL we get back will be marked as a
20241 template instantiation, and the appropriate
20242 DECL_TEMPLATE_INFO will be set up. This does not happen for
20243 VAR_DECLs so we do the lookup here. Probably, grokdeclarator
20244 should handle VAR_DECLs as it currently handles
20245 FUNCTION_DECLs. */
20246 if (!DECL_CLASS_SCOPE_P (decl))
20248 error ("%qD is not a static data member of a class template", decl);
20249 return;
20251 result = lookup_field (DECL_CONTEXT (decl), DECL_NAME (decl), 0, false);
20252 if (!result || !VAR_P (result))
20254 error ("no matching template for %qD found", decl);
20255 return;
20257 if (!same_type_p (TREE_TYPE (result), TREE_TYPE (decl)))
20259 error ("type %qT for explicit instantiation %qD does not match "
20260 "declared type %qT", TREE_TYPE (result), decl,
20261 TREE_TYPE (decl));
20262 return;
20265 else if (TREE_CODE (decl) != FUNCTION_DECL && !var_templ)
20267 error ("explicit instantiation of %q#D", decl);
20268 return;
20270 else
20271 result = decl;
20273 /* Check for various error cases. Note that if the explicit
20274 instantiation is valid the RESULT will currently be marked as an
20275 *implicit* instantiation; DECL_EXPLICIT_INSTANTIATION is not set
20276 until we get here. */
20278 if (DECL_TEMPLATE_SPECIALIZATION (result))
20280 /* DR 259 [temp.spec].
20282 Both an explicit instantiation and a declaration of an explicit
20283 specialization shall not appear in a program unless the explicit
20284 instantiation follows a declaration of the explicit specialization.
20286 For a given set of template parameters, if an explicit
20287 instantiation of a template appears after a declaration of an
20288 explicit specialization for that template, the explicit
20289 instantiation has no effect. */
20290 return;
20292 else if (DECL_EXPLICIT_INSTANTIATION (result))
20294 /* [temp.spec]
20296 No program shall explicitly instantiate any template more
20297 than once.
20299 We check DECL_NOT_REALLY_EXTERN so as not to complain when
20300 the first instantiation was `extern' and the second is not,
20301 and EXTERN_P for the opposite case. */
20302 if (DECL_NOT_REALLY_EXTERN (result) && !extern_p)
20303 permerror (input_location, "duplicate explicit instantiation of %q#D", result);
20304 /* If an "extern" explicit instantiation follows an ordinary
20305 explicit instantiation, the template is instantiated. */
20306 if (extern_p)
20307 return;
20309 else if (!DECL_IMPLICIT_INSTANTIATION (result))
20311 error ("no matching template for %qD found", result);
20312 return;
20314 else if (!DECL_TEMPLATE_INFO (result))
20316 permerror (input_location, "explicit instantiation of non-template %q#D", result);
20317 return;
20320 if (storage == NULL_TREE)
20322 else if (storage == ridpointers[(int) RID_EXTERN])
20324 if (!in_system_header_at (input_location) && (cxx_dialect == cxx98))
20325 pedwarn (input_location, OPT_Wpedantic,
20326 "ISO C++ 1998 forbids the use of %<extern%> on explicit "
20327 "instantiations");
20328 extern_p = 1;
20330 else
20331 error ("storage class %qD applied to template instantiation", storage);
20333 check_explicit_instantiation_namespace (result);
20334 mark_decl_instantiated (result, extern_p);
20335 if (! extern_p)
20336 instantiate_decl (result, /*defer_ok=*/1,
20337 /*expl_inst_class_mem_p=*/false);
20340 static void
20341 mark_class_instantiated (tree t, int extern_p)
20343 SET_CLASSTYPE_EXPLICIT_INSTANTIATION (t);
20344 SET_CLASSTYPE_INTERFACE_KNOWN (t);
20345 CLASSTYPE_INTERFACE_ONLY (t) = extern_p;
20346 TYPE_DECL_SUPPRESS_DEBUG (TYPE_NAME (t)) = extern_p;
20347 if (! extern_p)
20349 CLASSTYPE_DEBUG_REQUESTED (t) = 1;
20350 rest_of_type_compilation (t, 1);
20354 /* Called from do_type_instantiation through binding_table_foreach to
20355 do recursive instantiation for the type bound in ENTRY. */
20356 static void
20357 bt_instantiate_type_proc (binding_entry entry, void *data)
20359 tree storage = *(tree *) data;
20361 if (MAYBE_CLASS_TYPE_P (entry->type)
20362 && !uses_template_parms (CLASSTYPE_TI_ARGS (entry->type)))
20363 do_type_instantiation (TYPE_MAIN_DECL (entry->type), storage, 0);
20366 /* Called from do_type_instantiation to instantiate a member
20367 (a member function or a static member variable) of an
20368 explicitly instantiated class template. */
20369 static void
20370 instantiate_class_member (tree decl, int extern_p)
20372 mark_decl_instantiated (decl, extern_p);
20373 if (! extern_p)
20374 instantiate_decl (decl, /*defer_ok=*/1,
20375 /*expl_inst_class_mem_p=*/true);
20378 /* Perform an explicit instantiation of template class T. STORAGE, if
20379 non-null, is the RID for extern, inline or static. COMPLAIN is
20380 nonzero if this is called from the parser, zero if called recursively,
20381 since the standard is unclear (as detailed below). */
20383 void
20384 do_type_instantiation (tree t, tree storage, tsubst_flags_t complain)
20386 int extern_p = 0;
20387 int nomem_p = 0;
20388 int static_p = 0;
20389 int previous_instantiation_extern_p = 0;
20391 if (TREE_CODE (t) == TYPE_DECL)
20392 t = TREE_TYPE (t);
20394 if (! CLASS_TYPE_P (t) || ! CLASSTYPE_TEMPLATE_INFO (t))
20396 tree tmpl =
20397 (TYPE_TEMPLATE_INFO (t)) ? TYPE_TI_TEMPLATE (t) : NULL;
20398 if (tmpl)
20399 error ("explicit instantiation of non-class template %qD", tmpl);
20400 else
20401 error ("explicit instantiation of non-template type %qT", t);
20402 return;
20405 complete_type (t);
20407 if (!COMPLETE_TYPE_P (t))
20409 if (complain & tf_error)
20410 error ("explicit instantiation of %q#T before definition of template",
20412 return;
20415 if (storage != NULL_TREE)
20417 if (!in_system_header_at (input_location))
20419 if (storage == ridpointers[(int) RID_EXTERN])
20421 if (cxx_dialect == cxx98)
20422 pedwarn (input_location, OPT_Wpedantic,
20423 "ISO C++ 1998 forbids the use of %<extern%> on "
20424 "explicit instantiations");
20426 else
20427 pedwarn (input_location, OPT_Wpedantic,
20428 "ISO C++ forbids the use of %qE"
20429 " on explicit instantiations", storage);
20432 if (storage == ridpointers[(int) RID_INLINE])
20433 nomem_p = 1;
20434 else if (storage == ridpointers[(int) RID_EXTERN])
20435 extern_p = 1;
20436 else if (storage == ridpointers[(int) RID_STATIC])
20437 static_p = 1;
20438 else
20440 error ("storage class %qD applied to template instantiation",
20441 storage);
20442 extern_p = 0;
20446 if (CLASSTYPE_TEMPLATE_SPECIALIZATION (t))
20448 /* DR 259 [temp.spec].
20450 Both an explicit instantiation and a declaration of an explicit
20451 specialization shall not appear in a program unless the explicit
20452 instantiation follows a declaration of the explicit specialization.
20454 For a given set of template parameters, if an explicit
20455 instantiation of a template appears after a declaration of an
20456 explicit specialization for that template, the explicit
20457 instantiation has no effect. */
20458 return;
20460 else if (CLASSTYPE_EXPLICIT_INSTANTIATION (t))
20462 /* [temp.spec]
20464 No program shall explicitly instantiate any template more
20465 than once.
20467 If PREVIOUS_INSTANTIATION_EXTERN_P, then the first explicit
20468 instantiation was `extern'. If EXTERN_P then the second is.
20469 These cases are OK. */
20470 previous_instantiation_extern_p = CLASSTYPE_INTERFACE_ONLY (t);
20472 if (!previous_instantiation_extern_p && !extern_p
20473 && (complain & tf_error))
20474 permerror (input_location, "duplicate explicit instantiation of %q#T", t);
20476 /* If we've already instantiated the template, just return now. */
20477 if (!CLASSTYPE_INTERFACE_ONLY (t))
20478 return;
20481 check_explicit_instantiation_namespace (TYPE_NAME (t));
20482 mark_class_instantiated (t, extern_p);
20484 if (nomem_p)
20485 return;
20488 tree tmp;
20490 /* In contrast to implicit instantiation, where only the
20491 declarations, and not the definitions, of members are
20492 instantiated, we have here:
20494 [temp.explicit]
20496 The explicit instantiation of a class template specialization
20497 implies the instantiation of all of its members not
20498 previously explicitly specialized in the translation unit
20499 containing the explicit instantiation.
20501 Of course, we can't instantiate member template classes, since
20502 we don't have any arguments for them. Note that the standard
20503 is unclear on whether the instantiation of the members are
20504 *explicit* instantiations or not. However, the most natural
20505 interpretation is that it should be an explicit instantiation. */
20507 if (! static_p)
20508 for (tmp = TYPE_METHODS (t); tmp; tmp = DECL_CHAIN (tmp))
20509 if (TREE_CODE (tmp) == FUNCTION_DECL
20510 && DECL_TEMPLATE_INSTANTIATION (tmp))
20511 instantiate_class_member (tmp, extern_p);
20513 for (tmp = TYPE_FIELDS (t); tmp; tmp = DECL_CHAIN (tmp))
20514 if (VAR_P (tmp) && DECL_TEMPLATE_INSTANTIATION (tmp))
20515 instantiate_class_member (tmp, extern_p);
20517 if (CLASSTYPE_NESTED_UTDS (t))
20518 binding_table_foreach (CLASSTYPE_NESTED_UTDS (t),
20519 bt_instantiate_type_proc, &storage);
20523 /* Given a function DECL, which is a specialization of TMPL, modify
20524 DECL to be a re-instantiation of TMPL with the same template
20525 arguments. TMPL should be the template into which tsubst'ing
20526 should occur for DECL, not the most general template.
20528 One reason for doing this is a scenario like this:
20530 template <class T>
20531 void f(const T&, int i);
20533 void g() { f(3, 7); }
20535 template <class T>
20536 void f(const T& t, const int i) { }
20538 Note that when the template is first instantiated, with
20539 instantiate_template, the resulting DECL will have no name for the
20540 first parameter, and the wrong type for the second. So, when we go
20541 to instantiate the DECL, we regenerate it. */
20543 static void
20544 regenerate_decl_from_template (tree decl, tree tmpl)
20546 /* The arguments used to instantiate DECL, from the most general
20547 template. */
20548 tree args;
20549 tree code_pattern;
20551 args = DECL_TI_ARGS (decl);
20552 code_pattern = DECL_TEMPLATE_RESULT (tmpl);
20554 /* Make sure that we can see identifiers, and compute access
20555 correctly. */
20556 push_access_scope (decl);
20558 if (TREE_CODE (decl) == FUNCTION_DECL)
20560 tree decl_parm;
20561 tree pattern_parm;
20562 tree specs;
20563 int args_depth;
20564 int parms_depth;
20566 args_depth = TMPL_ARGS_DEPTH (args);
20567 parms_depth = TMPL_PARMS_DEPTH (DECL_TEMPLATE_PARMS (tmpl));
20568 if (args_depth > parms_depth)
20569 args = get_innermost_template_args (args, parms_depth);
20571 specs = tsubst_exception_specification (TREE_TYPE (code_pattern),
20572 args, tf_error, NULL_TREE,
20573 /*defer_ok*/false);
20574 if (specs && specs != error_mark_node)
20575 TREE_TYPE (decl) = build_exception_variant (TREE_TYPE (decl),
20576 specs);
20578 /* Merge parameter declarations. */
20579 decl_parm = skip_artificial_parms_for (decl,
20580 DECL_ARGUMENTS (decl));
20581 pattern_parm
20582 = skip_artificial_parms_for (code_pattern,
20583 DECL_ARGUMENTS (code_pattern));
20584 while (decl_parm && !DECL_PACK_P (pattern_parm))
20586 tree parm_type;
20587 tree attributes;
20589 if (DECL_NAME (decl_parm) != DECL_NAME (pattern_parm))
20590 DECL_NAME (decl_parm) = DECL_NAME (pattern_parm);
20591 parm_type = tsubst (TREE_TYPE (pattern_parm), args, tf_error,
20592 NULL_TREE);
20593 parm_type = type_decays_to (parm_type);
20594 if (!same_type_p (TREE_TYPE (decl_parm), parm_type))
20595 TREE_TYPE (decl_parm) = parm_type;
20596 attributes = DECL_ATTRIBUTES (pattern_parm);
20597 if (DECL_ATTRIBUTES (decl_parm) != attributes)
20599 DECL_ATTRIBUTES (decl_parm) = attributes;
20600 cplus_decl_attributes (&decl_parm, attributes, /*flags=*/0);
20602 decl_parm = DECL_CHAIN (decl_parm);
20603 pattern_parm = DECL_CHAIN (pattern_parm);
20605 /* Merge any parameters that match with the function parameter
20606 pack. */
20607 if (pattern_parm && DECL_PACK_P (pattern_parm))
20609 int i, len;
20610 tree expanded_types;
20611 /* Expand the TYPE_PACK_EXPANSION that provides the types for
20612 the parameters in this function parameter pack. */
20613 expanded_types = tsubst_pack_expansion (TREE_TYPE (pattern_parm),
20614 args, tf_error, NULL_TREE);
20615 len = TREE_VEC_LENGTH (expanded_types);
20616 for (i = 0; i < len; i++)
20618 tree parm_type;
20619 tree attributes;
20621 if (DECL_NAME (decl_parm) != DECL_NAME (pattern_parm))
20622 /* Rename the parameter to include the index. */
20623 DECL_NAME (decl_parm) =
20624 make_ith_pack_parameter_name (DECL_NAME (pattern_parm), i);
20625 parm_type = TREE_VEC_ELT (expanded_types, i);
20626 parm_type = type_decays_to (parm_type);
20627 if (!same_type_p (TREE_TYPE (decl_parm), parm_type))
20628 TREE_TYPE (decl_parm) = parm_type;
20629 attributes = DECL_ATTRIBUTES (pattern_parm);
20630 if (DECL_ATTRIBUTES (decl_parm) != attributes)
20632 DECL_ATTRIBUTES (decl_parm) = attributes;
20633 cplus_decl_attributes (&decl_parm, attributes, /*flags=*/0);
20635 decl_parm = DECL_CHAIN (decl_parm);
20638 /* Merge additional specifiers from the CODE_PATTERN. */
20639 if (DECL_DECLARED_INLINE_P (code_pattern)
20640 && !DECL_DECLARED_INLINE_P (decl))
20641 DECL_DECLARED_INLINE_P (decl) = 1;
20643 else if (VAR_P (decl))
20645 DECL_INITIAL (decl) =
20646 tsubst_expr (DECL_INITIAL (code_pattern), args,
20647 tf_error, DECL_TI_TEMPLATE (decl),
20648 /*integral_constant_expression_p=*/false);
20649 if (VAR_HAD_UNKNOWN_BOUND (decl))
20650 TREE_TYPE (decl) = tsubst (TREE_TYPE (code_pattern), args,
20651 tf_error, DECL_TI_TEMPLATE (decl));
20653 else
20654 gcc_unreachable ();
20656 pop_access_scope (decl);
20659 /* Return the TEMPLATE_DECL into which DECL_TI_ARGS(DECL) should be
20660 substituted to get DECL. */
20662 tree
20663 template_for_substitution (tree decl)
20665 tree tmpl = DECL_TI_TEMPLATE (decl);
20667 /* Set TMPL to the template whose DECL_TEMPLATE_RESULT is the pattern
20668 for the instantiation. This is not always the most general
20669 template. Consider, for example:
20671 template <class T>
20672 struct S { template <class U> void f();
20673 template <> void f<int>(); };
20675 and an instantiation of S<double>::f<int>. We want TD to be the
20676 specialization S<T>::f<int>, not the more general S<T>::f<U>. */
20677 while (/* An instantiation cannot have a definition, so we need a
20678 more general template. */
20679 DECL_TEMPLATE_INSTANTIATION (tmpl)
20680 /* We must also deal with friend templates. Given:
20682 template <class T> struct S {
20683 template <class U> friend void f() {};
20686 S<int>::f<U> say, is not an instantiation of S<T>::f<U>,
20687 so far as the language is concerned, but that's still
20688 where we get the pattern for the instantiation from. On
20689 other hand, if the definition comes outside the class, say:
20691 template <class T> struct S {
20692 template <class U> friend void f();
20694 template <class U> friend void f() {}
20696 we don't need to look any further. That's what the check for
20697 DECL_INITIAL is for. */
20698 || (TREE_CODE (decl) == FUNCTION_DECL
20699 && DECL_FRIEND_PSEUDO_TEMPLATE_INSTANTIATION (tmpl)
20700 && !DECL_INITIAL (DECL_TEMPLATE_RESULT (tmpl))))
20702 /* The present template, TD, should not be a definition. If it
20703 were a definition, we should be using it! Note that we
20704 cannot restructure the loop to just keep going until we find
20705 a template with a definition, since that might go too far if
20706 a specialization was declared, but not defined. */
20708 /* Fetch the more general template. */
20709 tmpl = DECL_TI_TEMPLATE (tmpl);
20712 return tmpl;
20715 /* Returns true if we need to instantiate this template instance even if we
20716 know we aren't going to emit it. */
20718 bool
20719 always_instantiate_p (tree decl)
20721 /* We always instantiate inline functions so that we can inline them. An
20722 explicit instantiation declaration prohibits implicit instantiation of
20723 non-inline functions. With high levels of optimization, we would
20724 normally inline non-inline functions -- but we're not allowed to do
20725 that for "extern template" functions. Therefore, we check
20726 DECL_DECLARED_INLINE_P, rather than possibly_inlined_p. */
20727 return ((TREE_CODE (decl) == FUNCTION_DECL
20728 && (DECL_DECLARED_INLINE_P (decl)
20729 || type_uses_auto (TREE_TYPE (TREE_TYPE (decl)))))
20730 /* And we need to instantiate static data members so that
20731 their initializers are available in integral constant
20732 expressions. */
20733 || (VAR_P (decl)
20734 && decl_maybe_constant_var_p (decl)));
20737 /* If FN has a noexcept-specifier that hasn't been instantiated yet,
20738 instantiate it now, modifying TREE_TYPE (fn). */
20740 void
20741 maybe_instantiate_noexcept (tree fn)
20743 tree fntype, spec, noex, clone;
20745 /* Don't instantiate a noexcept-specification from template context. */
20746 if (processing_template_decl)
20747 return;
20749 if (DECL_CLONED_FUNCTION_P (fn))
20750 fn = DECL_CLONED_FUNCTION (fn);
20751 fntype = TREE_TYPE (fn);
20752 spec = TYPE_RAISES_EXCEPTIONS (fntype);
20754 if (!spec || !TREE_PURPOSE (spec))
20755 return;
20757 noex = TREE_PURPOSE (spec);
20759 if (TREE_CODE (noex) == DEFERRED_NOEXCEPT)
20761 if (DEFERRED_NOEXCEPT_PATTERN (noex) == NULL_TREE)
20762 spec = get_defaulted_eh_spec (fn);
20763 else if (push_tinst_level (fn))
20765 push_access_scope (fn);
20766 push_deferring_access_checks (dk_no_deferred);
20767 input_location = DECL_SOURCE_LOCATION (fn);
20768 noex = tsubst_copy_and_build (DEFERRED_NOEXCEPT_PATTERN (noex),
20769 DEFERRED_NOEXCEPT_ARGS (noex),
20770 tf_warning_or_error, fn,
20771 /*function_p=*/false,
20772 /*integral_constant_expression_p=*/true);
20773 pop_deferring_access_checks ();
20774 pop_access_scope (fn);
20775 pop_tinst_level ();
20776 spec = build_noexcept_spec (noex, tf_warning_or_error);
20777 if (spec == error_mark_node)
20778 spec = noexcept_false_spec;
20780 else
20781 spec = noexcept_false_spec;
20783 TREE_TYPE (fn) = build_exception_variant (fntype, spec);
20786 FOR_EACH_CLONE (clone, fn)
20788 if (TREE_TYPE (clone) == fntype)
20789 TREE_TYPE (clone) = TREE_TYPE (fn);
20790 else
20791 TREE_TYPE (clone) = build_exception_variant (TREE_TYPE (clone), spec);
20795 /* Produce the definition of D, a _DECL generated from a template. If
20796 DEFER_OK is nonzero, then we don't have to actually do the
20797 instantiation now; we just have to do it sometime. Normally it is
20798 an error if this is an explicit instantiation but D is undefined.
20799 EXPL_INST_CLASS_MEM_P is true iff D is a member of an
20800 explicitly instantiated class template. */
20802 tree
20803 instantiate_decl (tree d, int defer_ok,
20804 bool expl_inst_class_mem_p)
20806 tree tmpl = DECL_TI_TEMPLATE (d);
20807 tree gen_args;
20808 tree args;
20809 tree td;
20810 tree code_pattern;
20811 tree spec;
20812 tree gen_tmpl;
20813 bool pattern_defined;
20814 location_t saved_loc = input_location;
20815 int saved_unevaluated_operand = cp_unevaluated_operand;
20816 int saved_inhibit_evaluation_warnings = c_inhibit_evaluation_warnings;
20817 bool external_p;
20818 bool deleted_p;
20819 tree fn_context;
20820 bool nested;
20822 /* This function should only be used to instantiate templates for
20823 functions and static member variables. */
20824 gcc_assert (VAR_OR_FUNCTION_DECL_P (d));
20826 /* A concept is never instantiated. */
20827 gcc_assert (!DECL_DECLARED_CONCEPT_P (d));
20829 /* Variables are never deferred; if instantiation is required, they
20830 are instantiated right away. That allows for better code in the
20831 case that an expression refers to the value of the variable --
20832 if the variable has a constant value the referring expression can
20833 take advantage of that fact. */
20834 if (VAR_P (d)
20835 || DECL_DECLARED_CONSTEXPR_P (d))
20836 defer_ok = 0;
20838 /* Don't instantiate cloned functions. Instead, instantiate the
20839 functions they cloned. */
20840 if (TREE_CODE (d) == FUNCTION_DECL && DECL_CLONED_FUNCTION_P (d))
20841 d = DECL_CLONED_FUNCTION (d);
20843 if (DECL_TEMPLATE_INSTANTIATED (d)
20844 || (TREE_CODE (d) == FUNCTION_DECL
20845 && DECL_DEFAULTED_FN (d) && DECL_INITIAL (d))
20846 || DECL_TEMPLATE_SPECIALIZATION (d))
20847 /* D has already been instantiated or explicitly specialized, so
20848 there's nothing for us to do here.
20850 It might seem reasonable to check whether or not D is an explicit
20851 instantiation, and, if so, stop here. But when an explicit
20852 instantiation is deferred until the end of the compilation,
20853 DECL_EXPLICIT_INSTANTIATION is set, even though we still need to do
20854 the instantiation. */
20855 return d;
20857 /* Check to see whether we know that this template will be
20858 instantiated in some other file, as with "extern template"
20859 extension. */
20860 external_p = (DECL_INTERFACE_KNOWN (d) && DECL_REALLY_EXTERN (d));
20862 /* In general, we do not instantiate such templates. */
20863 if (external_p && !always_instantiate_p (d))
20864 return d;
20866 gen_tmpl = most_general_template (tmpl);
20867 gen_args = DECL_TI_ARGS (d);
20869 if (tmpl != gen_tmpl)
20870 /* We should already have the extra args. */
20871 gcc_assert (TMPL_PARMS_DEPTH (DECL_TEMPLATE_PARMS (gen_tmpl))
20872 == TMPL_ARGS_DEPTH (gen_args));
20873 /* And what's in the hash table should match D. */
20874 gcc_assert ((spec = retrieve_specialization (gen_tmpl, gen_args, 0)) == d
20875 || spec == NULL_TREE);
20877 /* This needs to happen before any tsubsting. */
20878 if (! push_tinst_level (d))
20879 return d;
20881 timevar_push (TV_TEMPLATE_INST);
20883 /* Set TD to the template whose DECL_TEMPLATE_RESULT is the pattern
20884 for the instantiation. */
20885 td = template_for_substitution (d);
20886 code_pattern = DECL_TEMPLATE_RESULT (td);
20888 /* We should never be trying to instantiate a member of a class
20889 template or partial specialization. */
20890 gcc_assert (d != code_pattern);
20892 if ((DECL_NAMESPACE_SCOPE_P (d) && !DECL_INITIALIZED_IN_CLASS_P (d))
20893 || DECL_TEMPLATE_SPECIALIZATION (td))
20894 /* In the case of a friend template whose definition is provided
20895 outside the class, we may have too many arguments. Drop the
20896 ones we don't need. The same is true for specializations. */
20897 args = get_innermost_template_args
20898 (gen_args, TMPL_PARMS_DEPTH (DECL_TEMPLATE_PARMS (td)));
20899 else
20900 args = gen_args;
20902 if (TREE_CODE (d) == FUNCTION_DECL)
20904 deleted_p = DECL_DELETED_FN (code_pattern);
20905 pattern_defined = (DECL_SAVED_TREE (code_pattern) != NULL_TREE
20906 || DECL_DEFAULTED_OUTSIDE_CLASS_P (code_pattern)
20907 || deleted_p);
20909 else
20911 deleted_p = false;
20912 pattern_defined = ! DECL_IN_AGGR_P (code_pattern);
20915 /* We may be in the middle of deferred access check. Disable it now. */
20916 push_deferring_access_checks (dk_no_deferred);
20918 /* Unless an explicit instantiation directive has already determined
20919 the linkage of D, remember that a definition is available for
20920 this entity. */
20921 if (pattern_defined
20922 && !DECL_INTERFACE_KNOWN (d)
20923 && !DECL_NOT_REALLY_EXTERN (d))
20924 mark_definable (d);
20926 DECL_SOURCE_LOCATION (td) = DECL_SOURCE_LOCATION (code_pattern);
20927 DECL_SOURCE_LOCATION (d) = DECL_SOURCE_LOCATION (code_pattern);
20928 input_location = DECL_SOURCE_LOCATION (d);
20930 /* If D is a member of an explicitly instantiated class template,
20931 and no definition is available, treat it like an implicit
20932 instantiation. */
20933 if (!pattern_defined && expl_inst_class_mem_p
20934 && DECL_EXPLICIT_INSTANTIATION (d))
20936 /* Leave linkage flags alone on instantiations with anonymous
20937 visibility. */
20938 if (TREE_PUBLIC (d))
20940 DECL_NOT_REALLY_EXTERN (d) = 0;
20941 DECL_INTERFACE_KNOWN (d) = 0;
20943 SET_DECL_IMPLICIT_INSTANTIATION (d);
20946 /* Defer all other templates, unless we have been explicitly
20947 forbidden from doing so. */
20948 if (/* If there is no definition, we cannot instantiate the
20949 template. */
20950 ! pattern_defined
20951 /* If it's OK to postpone instantiation, do so. */
20952 || defer_ok
20953 /* If this is a static data member that will be defined
20954 elsewhere, we don't want to instantiate the entire data
20955 member, but we do want to instantiate the initializer so that
20956 we can substitute that elsewhere. */
20957 || (external_p && VAR_P (d))
20958 /* Handle here a deleted function too, avoid generating
20959 its body (c++/61080). */
20960 || deleted_p)
20962 /* The definition of the static data member is now required so
20963 we must substitute the initializer. */
20964 if (VAR_P (d)
20965 && !DECL_INITIAL (d)
20966 && DECL_INITIAL (code_pattern))
20968 tree ns;
20969 tree init;
20970 bool const_init = false;
20971 bool enter_context = DECL_CLASS_SCOPE_P (d);
20973 ns = decl_namespace_context (d);
20974 push_nested_namespace (ns);
20975 if (enter_context)
20976 push_nested_class (DECL_CONTEXT (d));
20977 init = tsubst_expr (DECL_INITIAL (code_pattern),
20978 args,
20979 tf_warning_or_error, NULL_TREE,
20980 /*integral_constant_expression_p=*/false);
20981 /* If instantiating the initializer involved instantiating this
20982 again, don't call cp_finish_decl twice. */
20983 if (!DECL_INITIAL (d))
20985 /* Make sure the initializer is still constant, in case of
20986 circular dependency (template/instantiate6.C). */
20987 const_init
20988 = DECL_INITIALIZED_BY_CONSTANT_EXPRESSION_P (code_pattern);
20989 cp_finish_decl (d, init, /*init_const_expr_p=*/const_init,
20990 /*asmspec_tree=*/NULL_TREE,
20991 LOOKUP_ONLYCONVERTING);
20993 if (enter_context)
20994 pop_nested_class ();
20995 pop_nested_namespace (ns);
20998 /* We restore the source position here because it's used by
20999 add_pending_template. */
21000 input_location = saved_loc;
21002 if (at_eof && !pattern_defined
21003 && DECL_EXPLICIT_INSTANTIATION (d)
21004 && DECL_NOT_REALLY_EXTERN (d))
21005 /* [temp.explicit]
21007 The definition of a non-exported function template, a
21008 non-exported member function template, or a non-exported
21009 member function or static data member of a class template
21010 shall be present in every translation unit in which it is
21011 explicitly instantiated. */
21012 permerror (input_location, "explicit instantiation of %qD "
21013 "but no definition available", d);
21015 /* If we're in unevaluated context, we just wanted to get the
21016 constant value; this isn't an odr use, so don't queue
21017 a full instantiation. */
21018 if (cp_unevaluated_operand != 0)
21019 goto out;
21020 /* ??? Historically, we have instantiated inline functions, even
21021 when marked as "extern template". */
21022 if (!(external_p && VAR_P (d)))
21023 add_pending_template (d);
21024 goto out;
21026 /* Tell the repository that D is available in this translation unit
21027 -- and see if it is supposed to be instantiated here. */
21028 if (TREE_PUBLIC (d) && !DECL_REALLY_EXTERN (d) && !repo_emit_p (d))
21030 /* In a PCH file, despite the fact that the repository hasn't
21031 requested instantiation in the PCH it is still possible that
21032 an instantiation will be required in a file that includes the
21033 PCH. */
21034 if (pch_file)
21035 add_pending_template (d);
21036 /* Instantiate inline functions so that the inliner can do its
21037 job, even though we'll not be emitting a copy of this
21038 function. */
21039 if (!(TREE_CODE (d) == FUNCTION_DECL && possibly_inlined_p (d)))
21040 goto out;
21043 fn_context = decl_function_context (d);
21044 nested = (current_function_decl != NULL_TREE);
21045 if (!fn_context)
21046 push_to_top_level ();
21047 else
21049 if (nested)
21050 push_function_context ();
21051 cp_unevaluated_operand = 0;
21052 c_inhibit_evaluation_warnings = 0;
21055 /* Mark D as instantiated so that recursive calls to
21056 instantiate_decl do not try to instantiate it again. */
21057 DECL_TEMPLATE_INSTANTIATED (d) = 1;
21059 /* Regenerate the declaration in case the template has been modified
21060 by a subsequent redeclaration. */
21061 regenerate_decl_from_template (d, td);
21063 /* We already set the file and line above. Reset them now in case
21064 they changed as a result of calling regenerate_decl_from_template. */
21065 input_location = DECL_SOURCE_LOCATION (d);
21067 if (VAR_P (d))
21069 tree init;
21070 bool const_init = false;
21072 /* Clear out DECL_RTL; whatever was there before may not be right
21073 since we've reset the type of the declaration. */
21074 SET_DECL_RTL (d, NULL);
21075 DECL_IN_AGGR_P (d) = 0;
21077 /* The initializer is placed in DECL_INITIAL by
21078 regenerate_decl_from_template so we don't need to
21079 push/pop_access_scope again here. Pull it out so that
21080 cp_finish_decl can process it. */
21081 init = DECL_INITIAL (d);
21082 DECL_INITIAL (d) = NULL_TREE;
21083 DECL_INITIALIZED_P (d) = 0;
21085 /* Clear DECL_EXTERNAL so that cp_finish_decl will process the
21086 initializer. That function will defer actual emission until
21087 we have a chance to determine linkage. */
21088 DECL_EXTERNAL (d) = 0;
21090 /* Enter the scope of D so that access-checking works correctly. */
21091 bool enter_context = DECL_CLASS_SCOPE_P (d);
21092 if (enter_context)
21093 push_nested_class (DECL_CONTEXT (d));
21095 const_init = DECL_INITIALIZED_BY_CONSTANT_EXPRESSION_P (code_pattern);
21096 cp_finish_decl (d, init, const_init, NULL_TREE, 0);
21098 if (enter_context)
21099 pop_nested_class ();
21101 if (variable_template_p (td))
21102 note_variable_template_instantiation (d);
21104 else if (TREE_CODE (d) == FUNCTION_DECL && DECL_DEFAULTED_FN (code_pattern))
21105 synthesize_method (d);
21106 else if (TREE_CODE (d) == FUNCTION_DECL)
21108 hash_map<tree, tree> *saved_local_specializations;
21109 tree subst_decl;
21110 tree tmpl_parm;
21111 tree spec_parm;
21112 tree block = NULL_TREE;
21114 /* Save away the current list, in case we are instantiating one
21115 template from within the body of another. */
21116 saved_local_specializations = local_specializations;
21118 /* Set up the list of local specializations. */
21119 local_specializations = new hash_map<tree, tree>;
21121 /* Set up context. */
21122 if (DECL_OMP_DECLARE_REDUCTION_P (code_pattern)
21123 && TREE_CODE (DECL_CONTEXT (code_pattern)) == FUNCTION_DECL)
21124 block = push_stmt_list ();
21125 else
21126 start_preparsed_function (d, NULL_TREE, SF_PRE_PARSED);
21128 /* Some typedefs referenced from within the template code need to be
21129 access checked at template instantiation time, i.e now. These
21130 types were added to the template at parsing time. Let's get those
21131 and perform the access checks then. */
21132 perform_typedefs_access_check (DECL_TEMPLATE_RESULT (gen_tmpl),
21133 gen_args);
21135 /* Create substitution entries for the parameters. */
21136 subst_decl = DECL_TEMPLATE_RESULT (template_for_substitution (d));
21137 tmpl_parm = DECL_ARGUMENTS (subst_decl);
21138 spec_parm = DECL_ARGUMENTS (d);
21139 if (DECL_NONSTATIC_MEMBER_FUNCTION_P (d))
21141 register_local_specialization (spec_parm, tmpl_parm);
21142 spec_parm = skip_artificial_parms_for (d, spec_parm);
21143 tmpl_parm = skip_artificial_parms_for (subst_decl, tmpl_parm);
21145 for (; tmpl_parm; tmpl_parm = DECL_CHAIN (tmpl_parm))
21147 if (!DECL_PACK_P (tmpl_parm))
21149 register_local_specialization (spec_parm, tmpl_parm);
21150 spec_parm = DECL_CHAIN (spec_parm);
21152 else
21154 /* Register the (value) argument pack as a specialization of
21155 TMPL_PARM, then move on. */
21156 tree argpack = extract_fnparm_pack (tmpl_parm, &spec_parm);
21157 register_local_specialization (argpack, tmpl_parm);
21160 gcc_assert (!spec_parm);
21162 /* Substitute into the body of the function. */
21163 if (DECL_OMP_DECLARE_REDUCTION_P (code_pattern))
21164 tsubst_omp_udr (DECL_SAVED_TREE (code_pattern), args,
21165 tf_warning_or_error, tmpl);
21166 else
21168 tsubst_expr (DECL_SAVED_TREE (code_pattern), args,
21169 tf_warning_or_error, tmpl,
21170 /*integral_constant_expression_p=*/false);
21172 /* Set the current input_location to the end of the function
21173 so that finish_function knows where we are. */
21174 input_location
21175 = DECL_STRUCT_FUNCTION (code_pattern)->function_end_locus;
21177 /* Remember if we saw an infinite loop in the template. */
21178 current_function_infinite_loop
21179 = DECL_STRUCT_FUNCTION (code_pattern)->language->infinite_loop;
21182 /* We don't need the local specializations any more. */
21183 delete local_specializations;
21184 local_specializations = saved_local_specializations;
21186 /* Finish the function. */
21187 if (DECL_OMP_DECLARE_REDUCTION_P (code_pattern)
21188 && TREE_CODE (DECL_CONTEXT (code_pattern)) == FUNCTION_DECL)
21189 DECL_SAVED_TREE (d) = pop_stmt_list (block);
21190 else
21192 d = finish_function (0);
21193 expand_or_defer_fn (d);
21196 if (DECL_OMP_DECLARE_REDUCTION_P (code_pattern))
21197 cp_check_omp_declare_reduction (d);
21200 /* We're not deferring instantiation any more. */
21201 TI_PENDING_TEMPLATE_FLAG (DECL_TEMPLATE_INFO (d)) = 0;
21203 if (!fn_context)
21204 pop_from_top_level ();
21205 else if (nested)
21206 pop_function_context ();
21208 out:
21209 input_location = saved_loc;
21210 cp_unevaluated_operand = saved_unevaluated_operand;
21211 c_inhibit_evaluation_warnings = saved_inhibit_evaluation_warnings;
21212 pop_deferring_access_checks ();
21213 pop_tinst_level ();
21215 timevar_pop (TV_TEMPLATE_INST);
21217 return d;
21220 /* Run through the list of templates that we wish we could
21221 instantiate, and instantiate any we can. RETRIES is the
21222 number of times we retry pending template instantiation. */
21224 void
21225 instantiate_pending_templates (int retries)
21227 int reconsider;
21228 location_t saved_loc = input_location;
21230 /* Instantiating templates may trigger vtable generation. This in turn
21231 may require further template instantiations. We place a limit here
21232 to avoid infinite loop. */
21233 if (pending_templates && retries >= max_tinst_depth)
21235 tree decl = pending_templates->tinst->decl;
21237 fatal_error (input_location,
21238 "template instantiation depth exceeds maximum of %d"
21239 " instantiating %q+D, possibly from virtual table generation"
21240 " (use -ftemplate-depth= to increase the maximum)",
21241 max_tinst_depth, decl);
21242 if (TREE_CODE (decl) == FUNCTION_DECL)
21243 /* Pretend that we defined it. */
21244 DECL_INITIAL (decl) = error_mark_node;
21245 return;
21250 struct pending_template **t = &pending_templates;
21251 struct pending_template *last = NULL;
21252 reconsider = 0;
21253 while (*t)
21255 tree instantiation = reopen_tinst_level ((*t)->tinst);
21256 bool complete = false;
21258 if (TYPE_P (instantiation))
21260 tree fn;
21262 if (!COMPLETE_TYPE_P (instantiation))
21264 instantiate_class_template (instantiation);
21265 if (CLASSTYPE_TEMPLATE_INSTANTIATION (instantiation))
21266 for (fn = TYPE_METHODS (instantiation);
21268 fn = TREE_CHAIN (fn))
21269 if (! DECL_ARTIFICIAL (fn))
21270 instantiate_decl (fn,
21271 /*defer_ok=*/0,
21272 /*expl_inst_class_mem_p=*/false);
21273 if (COMPLETE_TYPE_P (instantiation))
21274 reconsider = 1;
21277 complete = COMPLETE_TYPE_P (instantiation);
21279 else
21281 if (!DECL_TEMPLATE_SPECIALIZATION (instantiation)
21282 && !DECL_TEMPLATE_INSTANTIATED (instantiation))
21284 instantiation
21285 = instantiate_decl (instantiation,
21286 /*defer_ok=*/0,
21287 /*expl_inst_class_mem_p=*/false);
21288 if (DECL_TEMPLATE_INSTANTIATED (instantiation))
21289 reconsider = 1;
21292 complete = (DECL_TEMPLATE_SPECIALIZATION (instantiation)
21293 || DECL_TEMPLATE_INSTANTIATED (instantiation));
21296 if (complete)
21297 /* If INSTANTIATION has been instantiated, then we don't
21298 need to consider it again in the future. */
21299 *t = (*t)->next;
21300 else
21302 last = *t;
21303 t = &(*t)->next;
21305 tinst_depth = 0;
21306 current_tinst_level = NULL;
21308 last_pending_template = last;
21310 while (reconsider);
21312 input_location = saved_loc;
21315 /* Substitute ARGVEC into T, which is a list of initializers for
21316 either base class or a non-static data member. The TREE_PURPOSEs
21317 are DECLs, and the TREE_VALUEs are the initializer values. Used by
21318 instantiate_decl. */
21320 static tree
21321 tsubst_initializer_list (tree t, tree argvec)
21323 tree inits = NULL_TREE;
21325 for (; t; t = TREE_CHAIN (t))
21327 tree decl;
21328 tree init;
21329 tree expanded_bases = NULL_TREE;
21330 tree expanded_arguments = NULL_TREE;
21331 int i, len = 1;
21333 if (TREE_CODE (TREE_PURPOSE (t)) == TYPE_PACK_EXPANSION)
21335 tree expr;
21336 tree arg;
21338 /* Expand the base class expansion type into separate base
21339 classes. */
21340 expanded_bases = tsubst_pack_expansion (TREE_PURPOSE (t), argvec,
21341 tf_warning_or_error,
21342 NULL_TREE);
21343 if (expanded_bases == error_mark_node)
21344 continue;
21346 /* We'll be building separate TREE_LISTs of arguments for
21347 each base. */
21348 len = TREE_VEC_LENGTH (expanded_bases);
21349 expanded_arguments = make_tree_vec (len);
21350 for (i = 0; i < len; i++)
21351 TREE_VEC_ELT (expanded_arguments, i) = NULL_TREE;
21353 /* Build a dummy EXPR_PACK_EXPANSION that will be used to
21354 expand each argument in the TREE_VALUE of t. */
21355 expr = make_node (EXPR_PACK_EXPANSION);
21356 PACK_EXPANSION_LOCAL_P (expr) = true;
21357 PACK_EXPANSION_PARAMETER_PACKS (expr) =
21358 PACK_EXPANSION_PARAMETER_PACKS (TREE_PURPOSE (t));
21360 if (TREE_VALUE (t) == void_type_node)
21361 /* VOID_TYPE_NODE is used to indicate
21362 value-initialization. */
21364 for (i = 0; i < len; i++)
21365 TREE_VEC_ELT (expanded_arguments, i) = void_type_node;
21367 else
21369 /* Substitute parameter packs into each argument in the
21370 TREE_LIST. */
21371 in_base_initializer = 1;
21372 for (arg = TREE_VALUE (t); arg; arg = TREE_CHAIN (arg))
21374 tree expanded_exprs;
21376 /* Expand the argument. */
21377 SET_PACK_EXPANSION_PATTERN (expr, TREE_VALUE (arg));
21378 expanded_exprs
21379 = tsubst_pack_expansion (expr, argvec,
21380 tf_warning_or_error,
21381 NULL_TREE);
21382 if (expanded_exprs == error_mark_node)
21383 continue;
21385 /* Prepend each of the expanded expressions to the
21386 corresponding TREE_LIST in EXPANDED_ARGUMENTS. */
21387 for (i = 0; i < len; i++)
21389 TREE_VEC_ELT (expanded_arguments, i) =
21390 tree_cons (NULL_TREE,
21391 TREE_VEC_ELT (expanded_exprs, i),
21392 TREE_VEC_ELT (expanded_arguments, i));
21395 in_base_initializer = 0;
21397 /* Reverse all of the TREE_LISTs in EXPANDED_ARGUMENTS,
21398 since we built them backwards. */
21399 for (i = 0; i < len; i++)
21401 TREE_VEC_ELT (expanded_arguments, i) =
21402 nreverse (TREE_VEC_ELT (expanded_arguments, i));
21407 for (i = 0; i < len; ++i)
21409 if (expanded_bases)
21411 decl = TREE_VEC_ELT (expanded_bases, i);
21412 decl = expand_member_init (decl);
21413 init = TREE_VEC_ELT (expanded_arguments, i);
21415 else
21417 tree tmp;
21418 decl = tsubst_copy (TREE_PURPOSE (t), argvec,
21419 tf_warning_or_error, NULL_TREE);
21421 decl = expand_member_init (decl);
21422 if (decl && !DECL_P (decl))
21423 in_base_initializer = 1;
21425 init = TREE_VALUE (t);
21426 tmp = init;
21427 if (init != void_type_node)
21428 init = tsubst_expr (init, argvec,
21429 tf_warning_or_error, NULL_TREE,
21430 /*integral_constant_expression_p=*/false);
21431 if (init == NULL_TREE && tmp != NULL_TREE)
21432 /* If we had an initializer but it instantiated to nothing,
21433 value-initialize the object. This will only occur when
21434 the initializer was a pack expansion where the parameter
21435 packs used in that expansion were of length zero. */
21436 init = void_type_node;
21437 in_base_initializer = 0;
21440 if (decl)
21442 init = build_tree_list (decl, init);
21443 TREE_CHAIN (init) = inits;
21444 inits = init;
21448 return inits;
21451 /* Set CURRENT_ACCESS_SPECIFIER based on the protection of DECL. */
21453 static void
21454 set_current_access_from_decl (tree decl)
21456 if (TREE_PRIVATE (decl))
21457 current_access_specifier = access_private_node;
21458 else if (TREE_PROTECTED (decl))
21459 current_access_specifier = access_protected_node;
21460 else
21461 current_access_specifier = access_public_node;
21464 /* Instantiate an enumerated type. TAG is the template type, NEWTAG
21465 is the instantiation (which should have been created with
21466 start_enum) and ARGS are the template arguments to use. */
21468 static void
21469 tsubst_enum (tree tag, tree newtag, tree args)
21471 tree e;
21473 if (SCOPED_ENUM_P (newtag))
21474 begin_scope (sk_scoped_enum, newtag);
21476 for (e = TYPE_VALUES (tag); e; e = TREE_CHAIN (e))
21478 tree value;
21479 tree decl;
21481 decl = TREE_VALUE (e);
21482 /* Note that in a template enum, the TREE_VALUE is the
21483 CONST_DECL, not the corresponding INTEGER_CST. */
21484 value = tsubst_expr (DECL_INITIAL (decl),
21485 args, tf_warning_or_error, NULL_TREE,
21486 /*integral_constant_expression_p=*/true);
21488 /* Give this enumeration constant the correct access. */
21489 set_current_access_from_decl (decl);
21491 /* Actually build the enumerator itself. Here we're assuming that
21492 enumerators can't have dependent attributes. */
21493 build_enumerator (DECL_NAME (decl), value, newtag,
21494 DECL_ATTRIBUTES (decl), DECL_SOURCE_LOCATION (decl));
21497 if (SCOPED_ENUM_P (newtag))
21498 finish_scope ();
21500 finish_enum_value_list (newtag);
21501 finish_enum (newtag);
21503 DECL_SOURCE_LOCATION (TYPE_NAME (newtag))
21504 = DECL_SOURCE_LOCATION (TYPE_NAME (tag));
21507 /* DECL is a FUNCTION_DECL that is a template specialization. Return
21508 its type -- but without substituting the innermost set of template
21509 arguments. So, innermost set of template parameters will appear in
21510 the type. */
21512 tree
21513 get_mostly_instantiated_function_type (tree decl)
21515 /* For a function, DECL_TI_TEMPLATE is partially instantiated. */
21516 return TREE_TYPE (DECL_TI_TEMPLATE (decl));
21519 /* Return truthvalue if we're processing a template different from
21520 the last one involved in diagnostics. */
21521 bool
21522 problematic_instantiation_changed (void)
21524 return current_tinst_level != last_error_tinst_level;
21527 /* Remember current template involved in diagnostics. */
21528 void
21529 record_last_problematic_instantiation (void)
21531 last_error_tinst_level = current_tinst_level;
21534 struct tinst_level *
21535 current_instantiation (void)
21537 return current_tinst_level;
21540 /* Return TRUE if current_function_decl is being instantiated, false
21541 otherwise. */
21543 bool
21544 instantiating_current_function_p (void)
21546 return (current_instantiation ()
21547 && current_instantiation ()->decl == current_function_decl);
21550 /* [temp.param] Check that template non-type parm TYPE is of an allowable
21551 type. Return zero for ok, nonzero for disallowed. Issue error and
21552 warning messages under control of COMPLAIN. */
21554 static int
21555 invalid_nontype_parm_type_p (tree type, tsubst_flags_t complain)
21557 if (INTEGRAL_OR_ENUMERATION_TYPE_P (type))
21558 return 0;
21559 else if (POINTER_TYPE_P (type))
21560 return 0;
21561 else if (TYPE_PTRMEM_P (type))
21562 return 0;
21563 else if (TREE_CODE (type) == TEMPLATE_TYPE_PARM)
21564 return 0;
21565 else if (TREE_CODE (type) == TYPENAME_TYPE)
21566 return 0;
21567 else if (TREE_CODE (type) == DECLTYPE_TYPE)
21568 return 0;
21569 else if (TREE_CODE (type) == NULLPTR_TYPE)
21570 return 0;
21571 /* A bound template template parm could later be instantiated to have a valid
21572 nontype parm type via an alias template. */
21573 else if (cxx_dialect >= cxx11
21574 && TREE_CODE (type) == BOUND_TEMPLATE_TEMPLATE_PARM)
21575 return 0;
21577 if (complain & tf_error)
21579 if (type == error_mark_node)
21580 inform (input_location, "invalid template non-type parameter");
21581 else
21582 error ("%q#T is not a valid type for a template non-type parameter",
21583 type);
21585 return 1;
21588 /* Returns TRUE if TYPE is dependent, in the sense of [temp.dep.type].
21589 Assumes that TYPE really is a type, and not the ERROR_MARK_NODE.*/
21591 static bool
21592 dependent_type_p_r (tree type)
21594 tree scope;
21596 /* [temp.dep.type]
21598 A type is dependent if it is:
21600 -- a template parameter. Template template parameters are types
21601 for us (since TYPE_P holds true for them) so we handle
21602 them here. */
21603 if (TREE_CODE (type) == TEMPLATE_TYPE_PARM
21604 || TREE_CODE (type) == TEMPLATE_TEMPLATE_PARM)
21605 return true;
21606 /* -- a qualified-id with a nested-name-specifier which contains a
21607 class-name that names a dependent type or whose unqualified-id
21608 names a dependent type. */
21609 if (TREE_CODE (type) == TYPENAME_TYPE)
21610 return true;
21612 /* An alias template specialization can be dependent even if the
21613 resulting type is not. */
21614 if (dependent_alias_template_spec_p (type))
21615 return true;
21617 /* -- a cv-qualified type where the cv-unqualified type is
21618 dependent.
21619 No code is necessary for this bullet; the code below handles
21620 cv-qualified types, and we don't want to strip aliases with
21621 TYPE_MAIN_VARIANT because of DR 1558. */
21622 /* -- a compound type constructed from any dependent type. */
21623 if (TYPE_PTRMEM_P (type))
21624 return (dependent_type_p (TYPE_PTRMEM_CLASS_TYPE (type))
21625 || dependent_type_p (TYPE_PTRMEM_POINTED_TO_TYPE
21626 (type)));
21627 else if (TYPE_PTR_P (type)
21628 || TREE_CODE (type) == REFERENCE_TYPE)
21629 return dependent_type_p (TREE_TYPE (type));
21630 else if (TREE_CODE (type) == FUNCTION_TYPE
21631 || TREE_CODE (type) == METHOD_TYPE)
21633 tree arg_type;
21635 if (dependent_type_p (TREE_TYPE (type)))
21636 return true;
21637 for (arg_type = TYPE_ARG_TYPES (type);
21638 arg_type;
21639 arg_type = TREE_CHAIN (arg_type))
21640 if (dependent_type_p (TREE_VALUE (arg_type)))
21641 return true;
21642 return false;
21644 /* -- an array type constructed from any dependent type or whose
21645 size is specified by a constant expression that is
21646 value-dependent.
21648 We checked for type- and value-dependence of the bounds in
21649 compute_array_index_type, so TYPE_DEPENDENT_P is already set. */
21650 if (TREE_CODE (type) == ARRAY_TYPE)
21652 if (TYPE_DOMAIN (type)
21653 && dependent_type_p (TYPE_DOMAIN (type)))
21654 return true;
21655 return dependent_type_p (TREE_TYPE (type));
21658 /* -- a template-id in which either the template name is a template
21659 parameter ... */
21660 if (TREE_CODE (type) == BOUND_TEMPLATE_TEMPLATE_PARM)
21661 return true;
21662 /* ... or any of the template arguments is a dependent type or
21663 an expression that is type-dependent or value-dependent. */
21664 else if (CLASS_TYPE_P (type) && CLASSTYPE_TEMPLATE_INFO (type)
21665 && (any_dependent_template_arguments_p
21666 (INNERMOST_TEMPLATE_ARGS (CLASSTYPE_TI_ARGS (type)))))
21667 return true;
21669 /* All TYPEOF_TYPEs, DECLTYPE_TYPEs, and UNDERLYING_TYPEs are
21670 dependent; if the argument of the `typeof' expression is not
21671 type-dependent, then it should already been have resolved. */
21672 if (TREE_CODE (type) == TYPEOF_TYPE
21673 || TREE_CODE (type) == DECLTYPE_TYPE
21674 || TREE_CODE (type) == UNDERLYING_TYPE)
21675 return true;
21677 /* A template argument pack is dependent if any of its packed
21678 arguments are. */
21679 if (TREE_CODE (type) == TYPE_ARGUMENT_PACK)
21681 tree args = ARGUMENT_PACK_ARGS (type);
21682 int i, len = TREE_VEC_LENGTH (args);
21683 for (i = 0; i < len; ++i)
21684 if (dependent_template_arg_p (TREE_VEC_ELT (args, i)))
21685 return true;
21688 /* All TYPE_PACK_EXPANSIONs are dependent, because parameter packs must
21689 be template parameters. */
21690 if (TREE_CODE (type) == TYPE_PACK_EXPANSION)
21691 return true;
21693 /* The standard does not specifically mention types that are local
21694 to template functions or local classes, but they should be
21695 considered dependent too. For example:
21697 template <int I> void f() {
21698 enum E { a = I };
21699 S<sizeof (E)> s;
21702 The size of `E' cannot be known until the value of `I' has been
21703 determined. Therefore, `E' must be considered dependent. */
21704 scope = TYPE_CONTEXT (type);
21705 if (scope && TYPE_P (scope))
21706 return dependent_type_p (scope);
21707 /* Don't use type_dependent_expression_p here, as it can lead
21708 to infinite recursion trying to determine whether a lambda
21709 nested in a lambda is dependent (c++/47687). */
21710 else if (scope && TREE_CODE (scope) == FUNCTION_DECL
21711 && DECL_LANG_SPECIFIC (scope)
21712 && DECL_TEMPLATE_INFO (scope)
21713 && (any_dependent_template_arguments_p
21714 (INNERMOST_TEMPLATE_ARGS (DECL_TI_ARGS (scope)))))
21715 return true;
21717 /* Other types are non-dependent. */
21718 return false;
21721 /* Returns TRUE if TYPE is dependent, in the sense of
21722 [temp.dep.type]. Note that a NULL type is considered dependent. */
21724 bool
21725 dependent_type_p (tree type)
21727 /* If there are no template parameters in scope, then there can't be
21728 any dependent types. */
21729 if (!processing_template_decl)
21731 /* If we are not processing a template, then nobody should be
21732 providing us with a dependent type. */
21733 gcc_assert (type);
21734 gcc_assert (TREE_CODE (type) != TEMPLATE_TYPE_PARM || is_auto (type));
21735 return false;
21738 /* If the type is NULL, we have not computed a type for the entity
21739 in question; in that case, the type is dependent. */
21740 if (!type)
21741 return true;
21743 /* Erroneous types can be considered non-dependent. */
21744 if (type == error_mark_node)
21745 return false;
21747 /* If we have not already computed the appropriate value for TYPE,
21748 do so now. */
21749 if (!TYPE_DEPENDENT_P_VALID (type))
21751 TYPE_DEPENDENT_P (type) = dependent_type_p_r (type);
21752 TYPE_DEPENDENT_P_VALID (type) = 1;
21755 return TYPE_DEPENDENT_P (type);
21758 /* Returns TRUE if SCOPE is a dependent scope, in which we can't do any
21759 lookup. In other words, a dependent type that is not the current
21760 instantiation. */
21762 bool
21763 dependent_scope_p (tree scope)
21765 return (scope && TYPE_P (scope) && dependent_type_p (scope)
21766 && !currently_open_class (scope));
21769 /* T is a SCOPE_REF; return whether we need to consider it
21770 instantiation-dependent so that we can check access at instantiation
21771 time even though we know which member it resolves to. */
21773 static bool
21774 instantiation_dependent_scope_ref_p (tree t)
21776 if (DECL_P (TREE_OPERAND (t, 1))
21777 && CLASS_TYPE_P (TREE_OPERAND (t, 0))
21778 && accessible_in_template_p (TREE_OPERAND (t, 0),
21779 TREE_OPERAND (t, 1)))
21780 return false;
21781 else
21782 return true;
21785 /* Returns TRUE if the EXPRESSION is value-dependent, in the sense of
21786 [temp.dep.constexpr]. EXPRESSION is already known to be a constant
21787 expression. */
21789 /* Note that this predicate is not appropriate for general expressions;
21790 only constant expressions (that satisfy potential_constant_expression)
21791 can be tested for value dependence. */
21793 bool
21794 value_dependent_expression_p (tree expression)
21796 if (!processing_template_decl)
21797 return false;
21799 /* A name declared with a dependent type. */
21800 if (DECL_P (expression) && type_dependent_expression_p (expression))
21801 return true;
21803 switch (TREE_CODE (expression))
21805 case IDENTIFIER_NODE:
21806 /* A name that has not been looked up -- must be dependent. */
21807 return true;
21809 case TEMPLATE_PARM_INDEX:
21810 /* A non-type template parm. */
21811 return true;
21813 case CONST_DECL:
21814 /* A non-type template parm. */
21815 if (DECL_TEMPLATE_PARM_P (expression))
21816 return true;
21817 return value_dependent_expression_p (DECL_INITIAL (expression));
21819 case VAR_DECL:
21820 /* A constant with literal type and is initialized
21821 with an expression that is value-dependent.
21823 Note that a non-dependent parenthesized initializer will have
21824 already been replaced with its constant value, so if we see
21825 a TREE_LIST it must be dependent. */
21826 if (DECL_INITIAL (expression)
21827 && decl_constant_var_p (expression)
21828 && (TREE_CODE (DECL_INITIAL (expression)) == TREE_LIST
21829 /* cp_finish_decl doesn't fold reference initializers. */
21830 || TREE_CODE (TREE_TYPE (expression)) == REFERENCE_TYPE
21831 || value_dependent_expression_p (DECL_INITIAL (expression))))
21832 return true;
21833 return false;
21835 case DYNAMIC_CAST_EXPR:
21836 case STATIC_CAST_EXPR:
21837 case CONST_CAST_EXPR:
21838 case REINTERPRET_CAST_EXPR:
21839 case CAST_EXPR:
21840 /* These expressions are value-dependent if the type to which
21841 the cast occurs is dependent or the expression being casted
21842 is value-dependent. */
21844 tree type = TREE_TYPE (expression);
21846 if (dependent_type_p (type))
21847 return true;
21849 /* A functional cast has a list of operands. */
21850 expression = TREE_OPERAND (expression, 0);
21851 if (!expression)
21853 /* If there are no operands, it must be an expression such
21854 as "int()". This should not happen for aggregate types
21855 because it would form non-constant expressions. */
21856 gcc_assert (cxx_dialect >= cxx11
21857 || INTEGRAL_OR_ENUMERATION_TYPE_P (type));
21859 return false;
21862 if (TREE_CODE (expression) == TREE_LIST)
21863 return any_value_dependent_elements_p (expression);
21865 return value_dependent_expression_p (expression);
21868 case SIZEOF_EXPR:
21869 if (SIZEOF_EXPR_TYPE_P (expression))
21870 return dependent_type_p (TREE_TYPE (TREE_OPERAND (expression, 0)));
21871 /* FALLTHRU */
21872 case ALIGNOF_EXPR:
21873 case TYPEID_EXPR:
21874 /* A `sizeof' expression is value-dependent if the operand is
21875 type-dependent or is a pack expansion. */
21876 expression = TREE_OPERAND (expression, 0);
21877 if (PACK_EXPANSION_P (expression))
21878 return true;
21879 else if (TYPE_P (expression))
21880 return dependent_type_p (expression);
21881 return instantiation_dependent_expression_p (expression);
21883 case AT_ENCODE_EXPR:
21884 /* An 'encode' expression is value-dependent if the operand is
21885 type-dependent. */
21886 expression = TREE_OPERAND (expression, 0);
21887 return dependent_type_p (expression);
21889 case NOEXCEPT_EXPR:
21890 expression = TREE_OPERAND (expression, 0);
21891 return instantiation_dependent_expression_p (expression);
21893 case SCOPE_REF:
21894 /* All instantiation-dependent expressions should also be considered
21895 value-dependent. */
21896 return instantiation_dependent_scope_ref_p (expression);
21898 case COMPONENT_REF:
21899 return (value_dependent_expression_p (TREE_OPERAND (expression, 0))
21900 || value_dependent_expression_p (TREE_OPERAND (expression, 1)));
21902 case NONTYPE_ARGUMENT_PACK:
21903 /* A NONTYPE_ARGUMENT_PACK is value-dependent if any packed argument
21904 is value-dependent. */
21906 tree values = ARGUMENT_PACK_ARGS (expression);
21907 int i, len = TREE_VEC_LENGTH (values);
21909 for (i = 0; i < len; ++i)
21910 if (value_dependent_expression_p (TREE_VEC_ELT (values, i)))
21911 return true;
21913 return false;
21916 case TRAIT_EXPR:
21918 tree type2 = TRAIT_EXPR_TYPE2 (expression);
21919 return (dependent_type_p (TRAIT_EXPR_TYPE1 (expression))
21920 || (type2 ? dependent_type_p (type2) : false));
21923 case MODOP_EXPR:
21924 return ((value_dependent_expression_p (TREE_OPERAND (expression, 0)))
21925 || (value_dependent_expression_p (TREE_OPERAND (expression, 2))));
21927 case ARRAY_REF:
21928 return ((value_dependent_expression_p (TREE_OPERAND (expression, 0)))
21929 || (value_dependent_expression_p (TREE_OPERAND (expression, 1))));
21931 case ADDR_EXPR:
21933 tree op = TREE_OPERAND (expression, 0);
21934 return (value_dependent_expression_p (op)
21935 || has_value_dependent_address (op));
21938 case REQUIRES_EXPR:
21939 /* Treat all requires-expressions as value-dependent so
21940 we don't try to fold them. */
21941 return true;
21943 case TYPE_REQ:
21944 return dependent_type_p (TREE_OPERAND (expression, 0));
21946 case CALL_EXPR:
21948 tree fn = get_callee_fndecl (expression);
21949 int i, nargs;
21950 if (!fn && value_dependent_expression_p (CALL_EXPR_FN (expression)))
21951 return true;
21952 nargs = call_expr_nargs (expression);
21953 for (i = 0; i < nargs; ++i)
21955 tree op = CALL_EXPR_ARG (expression, i);
21956 /* In a call to a constexpr member function, look through the
21957 implicit ADDR_EXPR on the object argument so that it doesn't
21958 cause the call to be considered value-dependent. We also
21959 look through it in potential_constant_expression. */
21960 if (i == 0 && fn && DECL_DECLARED_CONSTEXPR_P (fn)
21961 && DECL_NONSTATIC_MEMBER_FUNCTION_P (fn)
21962 && TREE_CODE (op) == ADDR_EXPR)
21963 op = TREE_OPERAND (op, 0);
21964 if (value_dependent_expression_p (op))
21965 return true;
21967 return false;
21970 case TEMPLATE_ID_EXPR:
21971 /* If a TEMPLATE_ID_EXPR involves a dependent name, it will be
21972 type-dependent. */
21973 return type_dependent_expression_p (expression)
21974 || variable_concept_p (TREE_OPERAND (expression, 0));
21976 case CONSTRUCTOR:
21978 unsigned ix;
21979 tree val;
21980 if (dependent_type_p (TREE_TYPE (expression)))
21981 return true;
21982 FOR_EACH_CONSTRUCTOR_VALUE (CONSTRUCTOR_ELTS (expression), ix, val)
21983 if (value_dependent_expression_p (val))
21984 return true;
21985 return false;
21988 case STMT_EXPR:
21989 /* Treat a GNU statement expression as dependent to avoid crashing
21990 under instantiate_non_dependent_expr; it can't be constant. */
21991 return true;
21993 default:
21994 /* A constant expression is value-dependent if any subexpression is
21995 value-dependent. */
21996 switch (TREE_CODE_CLASS (TREE_CODE (expression)))
21998 case tcc_reference:
21999 case tcc_unary:
22000 case tcc_comparison:
22001 case tcc_binary:
22002 case tcc_expression:
22003 case tcc_vl_exp:
22005 int i, len = cp_tree_operand_length (expression);
22007 for (i = 0; i < len; i++)
22009 tree t = TREE_OPERAND (expression, i);
22011 /* In some cases, some of the operands may be missing.l
22012 (For example, in the case of PREDECREMENT_EXPR, the
22013 amount to increment by may be missing.) That doesn't
22014 make the expression dependent. */
22015 if (t && value_dependent_expression_p (t))
22016 return true;
22019 break;
22020 default:
22021 break;
22023 break;
22026 /* The expression is not value-dependent. */
22027 return false;
22030 /* Returns TRUE if the EXPRESSION is type-dependent, in the sense of
22031 [temp.dep.expr]. Note that an expression with no type is
22032 considered dependent. Other parts of the compiler arrange for an
22033 expression with type-dependent subexpressions to have no type, so
22034 this function doesn't have to be fully recursive. */
22036 bool
22037 type_dependent_expression_p (tree expression)
22039 if (!processing_template_decl)
22040 return false;
22042 if (expression == NULL_TREE || expression == error_mark_node)
22043 return false;
22045 /* An unresolved name is always dependent. */
22046 if (identifier_p (expression)
22047 || TREE_CODE (expression) == USING_DECL
22048 || TREE_CODE (expression) == WILDCARD_DECL)
22049 return true;
22051 /* Some expression forms are never type-dependent. */
22052 if (TREE_CODE (expression) == PSEUDO_DTOR_EXPR
22053 || TREE_CODE (expression) == SIZEOF_EXPR
22054 || TREE_CODE (expression) == ALIGNOF_EXPR
22055 || TREE_CODE (expression) == AT_ENCODE_EXPR
22056 || TREE_CODE (expression) == NOEXCEPT_EXPR
22057 || TREE_CODE (expression) == TRAIT_EXPR
22058 || TREE_CODE (expression) == TYPEID_EXPR
22059 || TREE_CODE (expression) == DELETE_EXPR
22060 || TREE_CODE (expression) == VEC_DELETE_EXPR
22061 || TREE_CODE (expression) == THROW_EXPR
22062 || TREE_CODE (expression) == REQUIRES_EXPR)
22063 return false;
22065 /* The types of these expressions depends only on the type to which
22066 the cast occurs. */
22067 if (TREE_CODE (expression) == DYNAMIC_CAST_EXPR
22068 || TREE_CODE (expression) == STATIC_CAST_EXPR
22069 || TREE_CODE (expression) == CONST_CAST_EXPR
22070 || TREE_CODE (expression) == REINTERPRET_CAST_EXPR
22071 || TREE_CODE (expression) == IMPLICIT_CONV_EXPR
22072 || TREE_CODE (expression) == CAST_EXPR)
22073 return dependent_type_p (TREE_TYPE (expression));
22075 /* The types of these expressions depends only on the type created
22076 by the expression. */
22077 if (TREE_CODE (expression) == NEW_EXPR
22078 || TREE_CODE (expression) == VEC_NEW_EXPR)
22080 /* For NEW_EXPR tree nodes created inside a template, either
22081 the object type itself or a TREE_LIST may appear as the
22082 operand 1. */
22083 tree type = TREE_OPERAND (expression, 1);
22084 if (TREE_CODE (type) == TREE_LIST)
22085 /* This is an array type. We need to check array dimensions
22086 as well. */
22087 return dependent_type_p (TREE_VALUE (TREE_PURPOSE (type)))
22088 || value_dependent_expression_p
22089 (TREE_OPERAND (TREE_VALUE (type), 1));
22090 else
22091 return dependent_type_p (type);
22094 if (TREE_CODE (expression) == SCOPE_REF)
22096 tree scope = TREE_OPERAND (expression, 0);
22097 tree name = TREE_OPERAND (expression, 1);
22099 /* 14.6.2.2 [temp.dep.expr]: An id-expression is type-dependent if it
22100 contains an identifier associated by name lookup with one or more
22101 declarations declared with a dependent type, or...a
22102 nested-name-specifier or qualified-id that names a member of an
22103 unknown specialization. */
22104 return (type_dependent_expression_p (name)
22105 || dependent_scope_p (scope));
22108 if (TREE_CODE (expression) == FUNCTION_DECL
22109 && DECL_LANG_SPECIFIC (expression)
22110 && DECL_TEMPLATE_INFO (expression)
22111 && (any_dependent_template_arguments_p
22112 (INNERMOST_TEMPLATE_ARGS (DECL_TI_ARGS (expression)))))
22113 return true;
22115 if (TREE_CODE (expression) == TEMPLATE_DECL
22116 && !DECL_TEMPLATE_TEMPLATE_PARM_P (expression))
22117 return false;
22119 if (TREE_CODE (expression) == STMT_EXPR)
22120 expression = stmt_expr_value_expr (expression);
22122 if (BRACE_ENCLOSED_INITIALIZER_P (expression))
22124 tree elt;
22125 unsigned i;
22127 FOR_EACH_CONSTRUCTOR_VALUE (CONSTRUCTOR_ELTS (expression), i, elt)
22129 if (type_dependent_expression_p (elt))
22130 return true;
22132 return false;
22135 /* A static data member of the current instantiation with incomplete
22136 array type is type-dependent, as the definition and specializations
22137 can have different bounds. */
22138 if (VAR_P (expression)
22139 && DECL_CLASS_SCOPE_P (expression)
22140 && dependent_type_p (DECL_CONTEXT (expression))
22141 && VAR_HAD_UNKNOWN_BOUND (expression))
22142 return true;
22144 /* An array of unknown bound depending on a variadic parameter, eg:
22146 template<typename... Args>
22147 void foo (Args... args)
22149 int arr[] = { args... };
22152 template<int... vals>
22153 void bar ()
22155 int arr[] = { vals... };
22158 If the array has no length and has an initializer, it must be that
22159 we couldn't determine its length in cp_complete_array_type because
22160 it is dependent. */
22161 if (VAR_P (expression)
22162 && TREE_CODE (TREE_TYPE (expression)) == ARRAY_TYPE
22163 && !TYPE_DOMAIN (TREE_TYPE (expression))
22164 && DECL_INITIAL (expression))
22165 return true;
22167 /* A variable template specialization is type-dependent if it has any
22168 dependent template arguments. */
22169 if (VAR_P (expression)
22170 && DECL_LANG_SPECIFIC (expression)
22171 && DECL_TEMPLATE_INFO (expression)
22172 && variable_template_p (DECL_TI_TEMPLATE (expression)))
22173 return any_dependent_template_arguments_p (DECL_TI_ARGS (expression));
22175 /* Always dependent, on the number of arguments if nothing else. */
22176 if (TREE_CODE (expression) == EXPR_PACK_EXPANSION)
22177 return true;
22179 if (TREE_TYPE (expression) == unknown_type_node)
22181 if (TREE_CODE (expression) == ADDR_EXPR)
22182 return type_dependent_expression_p (TREE_OPERAND (expression, 0));
22183 if (TREE_CODE (expression) == COMPONENT_REF
22184 || TREE_CODE (expression) == OFFSET_REF)
22186 if (type_dependent_expression_p (TREE_OPERAND (expression, 0)))
22187 return true;
22188 expression = TREE_OPERAND (expression, 1);
22189 if (identifier_p (expression))
22190 return false;
22192 /* SCOPE_REF with non-null TREE_TYPE is always non-dependent. */
22193 if (TREE_CODE (expression) == SCOPE_REF)
22194 return false;
22196 if (BASELINK_P (expression))
22198 if (BASELINK_OPTYPE (expression)
22199 && dependent_type_p (BASELINK_OPTYPE (expression)))
22200 return true;
22201 expression = BASELINK_FUNCTIONS (expression);
22204 if (TREE_CODE (expression) == TEMPLATE_ID_EXPR)
22206 if (any_dependent_template_arguments_p
22207 (TREE_OPERAND (expression, 1)))
22208 return true;
22209 expression = TREE_OPERAND (expression, 0);
22210 if (identifier_p (expression))
22211 return true;
22214 gcc_assert (TREE_CODE (expression) == OVERLOAD
22215 || TREE_CODE (expression) == FUNCTION_DECL);
22217 while (expression)
22219 if (type_dependent_expression_p (OVL_CURRENT (expression)))
22220 return true;
22221 expression = OVL_NEXT (expression);
22223 return false;
22226 gcc_assert (TREE_CODE (expression) != TYPE_DECL);
22228 return (dependent_type_p (TREE_TYPE (expression)));
22231 /* walk_tree callback function for instantiation_dependent_expression_p,
22232 below. Returns non-zero if a dependent subexpression is found. */
22234 static tree
22235 instantiation_dependent_r (tree *tp, int *walk_subtrees,
22236 void * /*data*/)
22238 if (TYPE_P (*tp))
22240 /* We don't have to worry about decltype currently because decltype
22241 of an instantiation-dependent expr is a dependent type. This
22242 might change depending on the resolution of DR 1172. */
22243 *walk_subtrees = false;
22244 return NULL_TREE;
22246 enum tree_code code = TREE_CODE (*tp);
22247 switch (code)
22249 /* Don't treat an argument list as dependent just because it has no
22250 TREE_TYPE. */
22251 case TREE_LIST:
22252 case TREE_VEC:
22253 return NULL_TREE;
22255 case VAR_DECL:
22256 case CONST_DECL:
22257 /* A constant with a dependent initializer is dependent. */
22258 if (value_dependent_expression_p (*tp))
22259 return *tp;
22260 break;
22262 case TEMPLATE_PARM_INDEX:
22263 return *tp;
22265 /* Handle expressions with type operands. */
22266 case SIZEOF_EXPR:
22267 case ALIGNOF_EXPR:
22268 case TYPEID_EXPR:
22269 case AT_ENCODE_EXPR:
22271 tree op = TREE_OPERAND (*tp, 0);
22272 if (code == SIZEOF_EXPR && SIZEOF_EXPR_TYPE_P (*tp))
22273 op = TREE_TYPE (op);
22274 if (TYPE_P (op))
22276 if (dependent_type_p (op))
22277 return *tp;
22278 else
22280 *walk_subtrees = false;
22281 return NULL_TREE;
22284 break;
22287 case TRAIT_EXPR:
22288 if (value_dependent_expression_p (*tp))
22289 return *tp;
22290 *walk_subtrees = false;
22291 return NULL_TREE;
22293 case COMPONENT_REF:
22294 if (identifier_p (TREE_OPERAND (*tp, 1)))
22295 /* In a template, finish_class_member_access_expr creates a
22296 COMPONENT_REF with an IDENTIFIER_NODE for op1 even if it isn't
22297 type-dependent, so that we can check access control at
22298 instantiation time (PR 42277). See also Core issue 1273. */
22299 return *tp;
22300 break;
22302 case SCOPE_REF:
22303 if (instantiation_dependent_scope_ref_p (*tp))
22304 return *tp;
22305 else
22306 break;
22308 /* Treat statement-expressions as dependent. */
22309 case BIND_EXPR:
22310 return *tp;
22312 /* Treat requires-expressions as dependent. */
22313 case REQUIRES_EXPR:
22314 return *tp;
22316 case CALL_EXPR:
22317 /* Treat calls to function concepts as dependent. */
22318 if (function_concept_check_p (*tp))
22319 return *tp;
22320 break;
22322 case TEMPLATE_ID_EXPR:
22323 /* And variable concepts. */
22324 if (variable_concept_p (TREE_OPERAND (*tp, 0)))
22325 return *tp;
22326 break;
22328 default:
22329 break;
22332 if (type_dependent_expression_p (*tp))
22333 return *tp;
22334 else
22335 return NULL_TREE;
22338 /* Returns TRUE if the EXPRESSION is instantiation-dependent, in the
22339 sense defined by the ABI:
22341 "An expression is instantiation-dependent if it is type-dependent
22342 or value-dependent, or it has a subexpression that is type-dependent
22343 or value-dependent." */
22345 bool
22346 instantiation_dependent_expression_p (tree expression)
22348 tree result;
22350 if (!processing_template_decl)
22351 return false;
22353 if (expression == error_mark_node)
22354 return false;
22356 result = cp_walk_tree_without_duplicates (&expression,
22357 instantiation_dependent_r, NULL);
22358 return result != NULL_TREE;
22361 /* Like type_dependent_expression_p, but it also works while not processing
22362 a template definition, i.e. during substitution or mangling. */
22364 bool
22365 type_dependent_expression_p_push (tree expr)
22367 bool b;
22368 ++processing_template_decl;
22369 b = type_dependent_expression_p (expr);
22370 --processing_template_decl;
22371 return b;
22374 /* Returns TRUE if ARGS contains a type-dependent expression. */
22376 bool
22377 any_type_dependent_arguments_p (const vec<tree, va_gc> *args)
22379 unsigned int i;
22380 tree arg;
22382 FOR_EACH_VEC_SAFE_ELT (args, i, arg)
22384 if (type_dependent_expression_p (arg))
22385 return true;
22387 return false;
22390 /* Returns TRUE if LIST (a TREE_LIST whose TREE_VALUEs are
22391 expressions) contains any type-dependent expressions. */
22393 bool
22394 any_type_dependent_elements_p (const_tree list)
22396 for (; list; list = TREE_CHAIN (list))
22397 if (type_dependent_expression_p (TREE_VALUE (list)))
22398 return true;
22400 return false;
22403 /* Returns TRUE if LIST (a TREE_LIST whose TREE_VALUEs are
22404 expressions) contains any value-dependent expressions. */
22406 bool
22407 any_value_dependent_elements_p (const_tree list)
22409 for (; list; list = TREE_CHAIN (list))
22410 if (value_dependent_expression_p (TREE_VALUE (list)))
22411 return true;
22413 return false;
22416 /* Returns TRUE if the ARG (a template argument) is dependent. */
22418 bool
22419 dependent_template_arg_p (tree arg)
22421 if (!processing_template_decl)
22422 return false;
22424 /* Assume a template argument that was wrongly written by the user
22425 is dependent. This is consistent with what
22426 any_dependent_template_arguments_p [that calls this function]
22427 does. */
22428 if (!arg || arg == error_mark_node)
22429 return true;
22431 if (TREE_CODE (arg) == ARGUMENT_PACK_SELECT)
22432 arg = ARGUMENT_PACK_SELECT_ARG (arg);
22434 if (TREE_CODE (arg) == TEMPLATE_DECL
22435 || TREE_CODE (arg) == TEMPLATE_TEMPLATE_PARM)
22436 return dependent_template_p (arg);
22437 else if (ARGUMENT_PACK_P (arg))
22439 tree args = ARGUMENT_PACK_ARGS (arg);
22440 int i, len = TREE_VEC_LENGTH (args);
22441 for (i = 0; i < len; ++i)
22443 if (dependent_template_arg_p (TREE_VEC_ELT (args, i)))
22444 return true;
22447 return false;
22449 else if (TYPE_P (arg))
22450 return dependent_type_p (arg);
22451 else
22452 return (type_dependent_expression_p (arg)
22453 || value_dependent_expression_p (arg));
22456 /* Returns true if ARGS (a collection of template arguments) contains
22457 any types that require structural equality testing. */
22459 bool
22460 any_template_arguments_need_structural_equality_p (tree args)
22462 int i;
22463 int j;
22465 if (!args)
22466 return false;
22467 if (args == error_mark_node)
22468 return true;
22470 for (i = 0; i < TMPL_ARGS_DEPTH (args); ++i)
22472 tree level = TMPL_ARGS_LEVEL (args, i + 1);
22473 for (j = 0; j < TREE_VEC_LENGTH (level); ++j)
22475 tree arg = TREE_VEC_ELT (level, j);
22476 tree packed_args = NULL_TREE;
22477 int k, len = 1;
22479 if (ARGUMENT_PACK_P (arg))
22481 /* Look inside the argument pack. */
22482 packed_args = ARGUMENT_PACK_ARGS (arg);
22483 len = TREE_VEC_LENGTH (packed_args);
22486 for (k = 0; k < len; ++k)
22488 if (packed_args)
22489 arg = TREE_VEC_ELT (packed_args, k);
22491 if (error_operand_p (arg))
22492 return true;
22493 else if (TREE_CODE (arg) == TEMPLATE_DECL)
22494 continue;
22495 else if (TYPE_P (arg) && TYPE_STRUCTURAL_EQUALITY_P (arg))
22496 return true;
22497 else if (!TYPE_P (arg) && TREE_TYPE (arg)
22498 && TYPE_STRUCTURAL_EQUALITY_P (TREE_TYPE (arg)))
22499 return true;
22504 return false;
22507 /* Returns true if ARGS (a collection of template arguments) contains
22508 any dependent arguments. */
22510 bool
22511 any_dependent_template_arguments_p (const_tree args)
22513 int i;
22514 int j;
22516 if (!args)
22517 return false;
22518 if (args == error_mark_node)
22519 return true;
22521 for (i = 0; i < TMPL_ARGS_DEPTH (args); ++i)
22523 const_tree level = TMPL_ARGS_LEVEL (args, i + 1);
22524 for (j = 0; j < TREE_VEC_LENGTH (level); ++j)
22525 if (dependent_template_arg_p (TREE_VEC_ELT (level, j)))
22526 return true;
22529 return false;
22532 /* Returns TRUE if the template TMPL is dependent. */
22534 bool
22535 dependent_template_p (tree tmpl)
22537 if (TREE_CODE (tmpl) == OVERLOAD)
22539 while (tmpl)
22541 if (dependent_template_p (OVL_CURRENT (tmpl)))
22542 return true;
22543 tmpl = OVL_NEXT (tmpl);
22545 return false;
22548 /* Template template parameters are dependent. */
22549 if (DECL_TEMPLATE_TEMPLATE_PARM_P (tmpl)
22550 || TREE_CODE (tmpl) == TEMPLATE_TEMPLATE_PARM)
22551 return true;
22552 /* So are names that have not been looked up. */
22553 if (TREE_CODE (tmpl) == SCOPE_REF || identifier_p (tmpl))
22554 return true;
22555 /* So are member templates of dependent classes. */
22556 if (TYPE_P (CP_DECL_CONTEXT (tmpl)))
22557 return dependent_type_p (DECL_CONTEXT (tmpl));
22558 return false;
22561 /* Returns TRUE if the specialization TMPL<ARGS> is dependent. */
22563 bool
22564 dependent_template_id_p (tree tmpl, tree args)
22566 return (dependent_template_p (tmpl)
22567 || any_dependent_template_arguments_p (args));
22570 /* Returns TRUE if OMP_FOR with DECLV, INITV, CONDV and INCRV vectors
22571 is dependent. */
22573 bool
22574 dependent_omp_for_p (tree declv, tree initv, tree condv, tree incrv)
22576 int i;
22578 if (!processing_template_decl)
22579 return false;
22581 for (i = 0; i < TREE_VEC_LENGTH (declv); i++)
22583 tree decl = TREE_VEC_ELT (declv, i);
22584 tree init = TREE_VEC_ELT (initv, i);
22585 tree cond = TREE_VEC_ELT (condv, i);
22586 tree incr = TREE_VEC_ELT (incrv, i);
22588 if (type_dependent_expression_p (decl))
22589 return true;
22591 if (init && type_dependent_expression_p (init))
22592 return true;
22594 if (type_dependent_expression_p (cond))
22595 return true;
22597 if (COMPARISON_CLASS_P (cond)
22598 && (type_dependent_expression_p (TREE_OPERAND (cond, 0))
22599 || type_dependent_expression_p (TREE_OPERAND (cond, 1))))
22600 return true;
22602 if (TREE_CODE (incr) == MODOP_EXPR)
22604 if (type_dependent_expression_p (TREE_OPERAND (incr, 0))
22605 || type_dependent_expression_p (TREE_OPERAND (incr, 2)))
22606 return true;
22608 else if (type_dependent_expression_p (incr))
22609 return true;
22610 else if (TREE_CODE (incr) == MODIFY_EXPR)
22612 if (type_dependent_expression_p (TREE_OPERAND (incr, 0)))
22613 return true;
22614 else if (BINARY_CLASS_P (TREE_OPERAND (incr, 1)))
22616 tree t = TREE_OPERAND (incr, 1);
22617 if (type_dependent_expression_p (TREE_OPERAND (t, 0))
22618 || type_dependent_expression_p (TREE_OPERAND (t, 1)))
22619 return true;
22624 return false;
22627 /* TYPE is a TYPENAME_TYPE. Returns the ordinary TYPE to which the
22628 TYPENAME_TYPE corresponds. Returns the original TYPENAME_TYPE if
22629 no such TYPE can be found. Note that this function peers inside
22630 uninstantiated templates and therefore should be used only in
22631 extremely limited situations. ONLY_CURRENT_P restricts this
22632 peering to the currently open classes hierarchy (which is required
22633 when comparing types). */
22635 tree
22636 resolve_typename_type (tree type, bool only_current_p)
22638 tree scope;
22639 tree name;
22640 tree decl;
22641 int quals;
22642 tree pushed_scope;
22643 tree result;
22645 gcc_assert (TREE_CODE (type) == TYPENAME_TYPE);
22647 scope = TYPE_CONTEXT (type);
22648 /* Usually the non-qualified identifier of a TYPENAME_TYPE is
22649 TYPE_IDENTIFIER (type). But when 'type' is a typedef variant of
22650 a TYPENAME_TYPE node, then TYPE_NAME (type) is set to the TYPE_DECL representing
22651 the typedef. In that case TYPE_IDENTIFIER (type) is not the non-qualified
22652 identifier of the TYPENAME_TYPE anymore.
22653 So by getting the TYPE_IDENTIFIER of the _main declaration_ of the
22654 TYPENAME_TYPE instead, we avoid messing up with a possible
22655 typedef variant case. */
22656 name = TYPE_IDENTIFIER (TYPE_MAIN_VARIANT (type));
22658 /* If the SCOPE is itself a TYPENAME_TYPE, then we need to resolve
22659 it first before we can figure out what NAME refers to. */
22660 if (TREE_CODE (scope) == TYPENAME_TYPE)
22662 if (TYPENAME_IS_RESOLVING_P (scope))
22663 /* Given a class template A with a dependent base with nested type C,
22664 typedef typename A::C::C C will land us here, as trying to resolve
22665 the initial A::C leads to the local C typedef, which leads back to
22666 A::C::C. So we break the recursion now. */
22667 return type;
22668 else
22669 scope = resolve_typename_type (scope, only_current_p);
22671 /* If we don't know what SCOPE refers to, then we cannot resolve the
22672 TYPENAME_TYPE. */
22673 if (TREE_CODE (scope) == TYPENAME_TYPE)
22674 return type;
22675 /* If the SCOPE is a template type parameter, we have no way of
22676 resolving the name. */
22677 if (TREE_CODE (scope) == TEMPLATE_TYPE_PARM)
22678 return type;
22679 /* If the SCOPE is not the current instantiation, there's no reason
22680 to look inside it. */
22681 if (only_current_p && !currently_open_class (scope))
22682 return type;
22683 /* If this is a typedef, we don't want to look inside (c++/11987). */
22684 if (typedef_variant_p (type))
22685 return type;
22686 /* If SCOPE isn't the template itself, it will not have a valid
22687 TYPE_FIELDS list. */
22688 if (CLASS_TYPE_P (scope)
22689 && same_type_p (scope, CLASSTYPE_PRIMARY_TEMPLATE_TYPE (scope)))
22690 /* scope is either the template itself or a compatible instantiation
22691 like X<T>, so look up the name in the original template. */
22692 scope = CLASSTYPE_PRIMARY_TEMPLATE_TYPE (scope);
22693 else
22694 /* scope is a partial instantiation, so we can't do the lookup or we
22695 will lose the template arguments. */
22696 return type;
22697 /* Enter the SCOPE so that name lookup will be resolved as if we
22698 were in the class definition. In particular, SCOPE will no
22699 longer be considered a dependent type. */
22700 pushed_scope = push_scope (scope);
22701 /* Look up the declaration. */
22702 decl = lookup_member (scope, name, /*protect=*/0, /*want_type=*/true,
22703 tf_warning_or_error);
22705 result = NULL_TREE;
22707 /* For a TYPENAME_TYPE like "typename X::template Y<T>", we want to
22708 find a TEMPLATE_DECL. Otherwise, we want to find a TYPE_DECL. */
22709 if (!decl)
22710 /*nop*/;
22711 else if (identifier_p (TYPENAME_TYPE_FULLNAME (type))
22712 && TREE_CODE (decl) == TYPE_DECL)
22714 result = TREE_TYPE (decl);
22715 if (result == error_mark_node)
22716 result = NULL_TREE;
22718 else if (TREE_CODE (TYPENAME_TYPE_FULLNAME (type)) == TEMPLATE_ID_EXPR
22719 && DECL_CLASS_TEMPLATE_P (decl))
22721 tree tmpl;
22722 tree args;
22723 /* Obtain the template and the arguments. */
22724 tmpl = TREE_OPERAND (TYPENAME_TYPE_FULLNAME (type), 0);
22725 args = TREE_OPERAND (TYPENAME_TYPE_FULLNAME (type), 1);
22726 /* Instantiate the template. */
22727 result = lookup_template_class (tmpl, args, NULL_TREE, NULL_TREE,
22728 /*entering_scope=*/0,
22729 tf_error | tf_user);
22730 if (result == error_mark_node)
22731 result = NULL_TREE;
22734 /* Leave the SCOPE. */
22735 if (pushed_scope)
22736 pop_scope (pushed_scope);
22738 /* If we failed to resolve it, return the original typename. */
22739 if (!result)
22740 return type;
22742 /* If lookup found a typename type, resolve that too. */
22743 if (TREE_CODE (result) == TYPENAME_TYPE && !TYPENAME_IS_RESOLVING_P (result))
22745 /* Ill-formed programs can cause infinite recursion here, so we
22746 must catch that. */
22747 TYPENAME_IS_RESOLVING_P (type) = 1;
22748 result = resolve_typename_type (result, only_current_p);
22749 TYPENAME_IS_RESOLVING_P (type) = 0;
22752 /* Qualify the resulting type. */
22753 quals = cp_type_quals (type);
22754 if (quals)
22755 result = cp_build_qualified_type (result, cp_type_quals (result) | quals);
22757 return result;
22760 /* EXPR is an expression which is not type-dependent. Return a proxy
22761 for EXPR that can be used to compute the types of larger
22762 expressions containing EXPR. */
22764 tree
22765 build_non_dependent_expr (tree expr)
22767 tree inner_expr;
22769 #ifdef ENABLE_CHECKING
22770 /* Try to get a constant value for all non-dependent expressions in
22771 order to expose bugs in *_dependent_expression_p and constexpr. */
22772 if (cxx_dialect >= cxx11)
22773 fold_non_dependent_expr (expr);
22774 #endif
22776 /* Preserve OVERLOADs; the functions must be available to resolve
22777 types. */
22778 inner_expr = expr;
22779 if (TREE_CODE (inner_expr) == STMT_EXPR)
22780 inner_expr = stmt_expr_value_expr (inner_expr);
22781 if (TREE_CODE (inner_expr) == ADDR_EXPR)
22782 inner_expr = TREE_OPERAND (inner_expr, 0);
22783 if (TREE_CODE (inner_expr) == COMPONENT_REF)
22784 inner_expr = TREE_OPERAND (inner_expr, 1);
22785 if (is_overloaded_fn (inner_expr)
22786 || TREE_CODE (inner_expr) == OFFSET_REF)
22787 return expr;
22788 /* There is no need to return a proxy for a variable. */
22789 if (VAR_P (expr))
22790 return expr;
22791 /* Preserve string constants; conversions from string constants to
22792 "char *" are allowed, even though normally a "const char *"
22793 cannot be used to initialize a "char *". */
22794 if (TREE_CODE (expr) == STRING_CST)
22795 return expr;
22796 /* Preserve void and arithmetic constants, as an optimization -- there is no
22797 reason to create a new node. */
22798 if (TREE_CODE (expr) == VOID_CST
22799 || TREE_CODE (expr) == INTEGER_CST
22800 || TREE_CODE (expr) == REAL_CST)
22801 return expr;
22802 /* Preserve THROW_EXPRs -- all throw-expressions have type "void".
22803 There is at least one place where we want to know that a
22804 particular expression is a throw-expression: when checking a ?:
22805 expression, there are special rules if the second or third
22806 argument is a throw-expression. */
22807 if (TREE_CODE (expr) == THROW_EXPR)
22808 return expr;
22810 /* Don't wrap an initializer list, we need to be able to look inside. */
22811 if (BRACE_ENCLOSED_INITIALIZER_P (expr))
22812 return expr;
22814 /* Don't wrap a dummy object, we need to be able to test for it. */
22815 if (is_dummy_object (expr))
22816 return expr;
22818 if (TREE_CODE (expr) == COND_EXPR)
22819 return build3 (COND_EXPR,
22820 TREE_TYPE (expr),
22821 TREE_OPERAND (expr, 0),
22822 (TREE_OPERAND (expr, 1)
22823 ? build_non_dependent_expr (TREE_OPERAND (expr, 1))
22824 : build_non_dependent_expr (TREE_OPERAND (expr, 0))),
22825 build_non_dependent_expr (TREE_OPERAND (expr, 2)));
22826 if (TREE_CODE (expr) == COMPOUND_EXPR
22827 && !COMPOUND_EXPR_OVERLOADED (expr))
22828 return build2 (COMPOUND_EXPR,
22829 TREE_TYPE (expr),
22830 TREE_OPERAND (expr, 0),
22831 build_non_dependent_expr (TREE_OPERAND (expr, 1)));
22833 /* If the type is unknown, it can't really be non-dependent */
22834 gcc_assert (TREE_TYPE (expr) != unknown_type_node);
22836 /* Otherwise, build a NON_DEPENDENT_EXPR. */
22837 return build1 (NON_DEPENDENT_EXPR, TREE_TYPE (expr), expr);
22840 /* ARGS is a vector of expressions as arguments to a function call.
22841 Replace the arguments with equivalent non-dependent expressions.
22842 This modifies ARGS in place. */
22844 void
22845 make_args_non_dependent (vec<tree, va_gc> *args)
22847 unsigned int ix;
22848 tree arg;
22850 FOR_EACH_VEC_SAFE_ELT (args, ix, arg)
22852 tree newarg = build_non_dependent_expr (arg);
22853 if (newarg != arg)
22854 (*args)[ix] = newarg;
22858 /* Returns a type which represents 'auto' or 'decltype(auto)'. We use a
22859 TEMPLATE_TYPE_PARM with a level one deeper than the actual template
22860 parms. */
22862 static tree
22863 make_auto_1 (tree name)
22865 tree au = cxx_make_type (TEMPLATE_TYPE_PARM);
22866 TYPE_NAME (au) = build_decl (input_location,
22867 TYPE_DECL, name, au);
22868 TYPE_STUB_DECL (au) = TYPE_NAME (au);
22869 TEMPLATE_TYPE_PARM_INDEX (au) = build_template_parm_index
22870 (0, processing_template_decl + 1, processing_template_decl + 1,
22871 TYPE_NAME (au), NULL_TREE);
22872 TYPE_CANONICAL (au) = canonical_type_parameter (au);
22873 DECL_ARTIFICIAL (TYPE_NAME (au)) = 1;
22874 SET_DECL_TEMPLATE_PARM_P (TYPE_NAME (au));
22876 return au;
22879 tree
22880 make_decltype_auto (void)
22882 return make_auto_1 (get_identifier ("decltype(auto)"));
22885 tree
22886 make_auto (void)
22888 return make_auto_1 (get_identifier ("auto"));
22891 /* Given type ARG, return std::initializer_list<ARG>. */
22893 static tree
22894 listify (tree arg)
22896 tree std_init_list = namespace_binding
22897 (get_identifier ("initializer_list"), std_node);
22898 tree argvec;
22899 if (!std_init_list || !DECL_CLASS_TEMPLATE_P (std_init_list))
22901 error ("deducing from brace-enclosed initializer list requires "
22902 "#include <initializer_list>");
22903 return error_mark_node;
22905 argvec = make_tree_vec (1);
22906 TREE_VEC_ELT (argvec, 0) = arg;
22907 return lookup_template_class (std_init_list, argvec, NULL_TREE,
22908 NULL_TREE, 0, tf_warning_or_error);
22911 /* Replace auto in TYPE with std::initializer_list<auto>. */
22913 static tree
22914 listify_autos (tree type, tree auto_node)
22916 tree init_auto = listify (auto_node);
22917 tree argvec = make_tree_vec (1);
22918 TREE_VEC_ELT (argvec, 0) = init_auto;
22919 if (processing_template_decl)
22920 argvec = add_to_template_args (current_template_args (), argvec);
22921 return tsubst (type, argvec, tf_warning_or_error, NULL_TREE);
22924 /* Replace occurrences of 'auto' in TYPE with the appropriate type deduced
22925 from INIT. AUTO_NODE is the TEMPLATE_TYPE_PARM used for 'auto' in TYPE. */
22927 tree
22928 do_auto_deduction (tree type, tree init, tree auto_node)
22930 return do_auto_deduction (type, init, auto_node,
22931 tf_warning_or_error,
22932 adc_unspecified);
22935 /* Replace occurrences of 'auto' in TYPE with the appropriate type deduced
22936 from INIT. AUTO_NODE is the TEMPLATE_TYPE_PARM used for 'auto' in TYPE.
22937 The CONTEXT determines the context in which auto deduction is performed
22938 and is used to control error diagnostics. */
22940 tree
22941 do_auto_deduction (tree type, tree init, tree auto_node,
22942 tsubst_flags_t complain, auto_deduction_context context)
22944 tree targs;
22946 if (init == error_mark_node)
22947 return error_mark_node;
22949 if (type_dependent_expression_p (init))
22950 /* Defining a subset of type-dependent expressions that we can deduce
22951 from ahead of time isn't worth the trouble. */
22952 return type;
22954 /* [dcl.spec.auto]: Obtain P from T by replacing the occurrences of auto
22955 with either a new invented type template parameter U or, if the
22956 initializer is a braced-init-list (8.5.4), with
22957 std::initializer_list<U>. */
22958 if (BRACE_ENCLOSED_INITIALIZER_P (init))
22960 if (!DIRECT_LIST_INIT_P (init))
22961 type = listify_autos (type, auto_node);
22962 else if (CONSTRUCTOR_NELTS (init) == 1)
22963 init = CONSTRUCTOR_ELT (init, 0)->value;
22964 else
22966 if (complain & tf_warning_or_error)
22968 if (permerror (input_location, "direct-list-initialization of "
22969 "%<auto%> requires exactly one element"))
22970 inform (input_location,
22971 "for deduction to %<std::initializer_list%>, use copy-"
22972 "list-initialization (i.e. add %<=%> before the %<{%>)");
22974 type = listify_autos (type, auto_node);
22978 init = resolve_nondeduced_context (init);
22980 targs = make_tree_vec (1);
22981 if (AUTO_IS_DECLTYPE (auto_node))
22983 bool id = (DECL_P (init) || (TREE_CODE (init) == COMPONENT_REF
22984 && !REF_PARENTHESIZED_P (init)));
22985 TREE_VEC_ELT (targs, 0)
22986 = finish_decltype_type (init, id, tf_warning_or_error);
22987 if (type != auto_node)
22989 if (complain & tf_error)
22990 error ("%qT as type rather than plain %<decltype(auto)%>", type);
22991 return error_mark_node;
22994 else
22996 tree parms = build_tree_list (NULL_TREE, type);
22997 tree tparms = make_tree_vec (1);
22998 int val;
23000 TREE_VEC_ELT (tparms, 0)
23001 = build_tree_list (NULL_TREE, TYPE_NAME (auto_node));
23002 val = type_unification_real (tparms, targs, parms, &init, 1, 0,
23003 DEDUCE_CALL, LOOKUP_NORMAL,
23004 NULL, /*explain_p=*/false);
23005 if (val > 0)
23007 if (processing_template_decl)
23008 /* Try again at instantiation time. */
23009 return type;
23010 if (type && type != error_mark_node
23011 && (complain & tf_error))
23012 /* If type is error_mark_node a diagnostic must have been
23013 emitted by now. Also, having a mention to '<type error>'
23014 in the diagnostic is not really useful to the user. */
23016 if (cfun && auto_node == current_function_auto_return_pattern
23017 && LAMBDA_FUNCTION_P (current_function_decl))
23018 error ("unable to deduce lambda return type from %qE", init);
23019 else
23020 error ("unable to deduce %qT from %qE", type, init);
23022 return error_mark_node;
23026 /* If the list of declarators contains more than one declarator, the type
23027 of each declared variable is determined as described above. If the
23028 type deduced for the template parameter U is not the same in each
23029 deduction, the program is ill-formed. */
23030 if (TREE_TYPE (auto_node)
23031 && !same_type_p (TREE_TYPE (auto_node), TREE_VEC_ELT (targs, 0)))
23033 if (cfun && auto_node == current_function_auto_return_pattern
23034 && LAMBDA_FUNCTION_P (current_function_decl))
23035 error ("inconsistent types %qT and %qT deduced for "
23036 "lambda return type", TREE_TYPE (auto_node),
23037 TREE_VEC_ELT (targs, 0));
23038 else
23039 error ("inconsistent deduction for %qT: %qT and then %qT",
23040 auto_node, TREE_TYPE (auto_node), TREE_VEC_ELT (targs, 0));
23041 return error_mark_node;
23043 if (context != adc_requirement)
23044 TREE_TYPE (auto_node) = TREE_VEC_ELT (targs, 0);
23046 /* Check any placeholder constraints against the deduced type. */
23047 if (flag_concepts && !processing_template_decl)
23048 if (tree constr = PLACEHOLDER_TYPE_CONSTRAINTS (auto_node))
23050 /* Use the deduced type to check the associated constraints. */
23051 if (!constraints_satisfied_p (constr, targs))
23053 if (complain & tf_warning_or_error)
23055 switch (context)
23057 case adc_unspecified:
23058 error("placeholder constraints not satisfied");
23059 break;
23060 case adc_variable_type:
23061 error ("deduced initializer does not satisfy "
23062 "placeholder constraints");
23063 break;
23064 case adc_return_type:
23065 error ("deduced return type does not satisfy "
23066 "placeholder constraints");
23067 break;
23068 case adc_requirement:
23069 error ("deduced expression type does not saatisy "
23070 "placeholder constraints");
23071 break;
23073 diagnose_constraints (input_location, constr, targs);
23075 return error_mark_node;
23079 if (processing_template_decl)
23080 targs = add_to_template_args (current_template_args (), targs);
23081 return tsubst (type, targs, complain, NULL_TREE);
23084 /* Substitutes LATE_RETURN_TYPE for 'auto' in TYPE and returns the
23085 result. */
23087 tree
23088 splice_late_return_type (tree type, tree late_return_type)
23090 if (is_auto (type))
23092 if (late_return_type)
23093 return late_return_type;
23095 tree idx = get_template_parm_index (type);
23096 if (TEMPLATE_PARM_LEVEL (idx) <= processing_template_decl)
23097 /* In an abbreviated function template we didn't know we were dealing
23098 with a function template when we saw the auto return type, so update
23099 it to have the correct level. */
23100 return make_auto_1 (TYPE_IDENTIFIER (type));
23102 return type;
23105 /* Returns true iff TYPE is a TEMPLATE_TYPE_PARM representing 'auto' or
23106 'decltype(auto)'. */
23108 bool
23109 is_auto (const_tree type)
23111 if (TREE_CODE (type) == TEMPLATE_TYPE_PARM
23112 && (TYPE_IDENTIFIER (type) == get_identifier ("auto")
23113 || TYPE_IDENTIFIER (type) == get_identifier ("decltype(auto)")))
23114 return true;
23115 else
23116 return false;
23119 /* Returns the TEMPLATE_TYPE_PARM in TYPE representing `auto' iff TYPE contains
23120 a use of `auto'. Returns NULL_TREE otherwise. */
23122 tree
23123 type_uses_auto (tree type)
23125 return find_type_usage (type, is_auto);
23128 /* Returns true iff TYPE is a TEMPLATE_TYPE_PARM representing 'auto',
23129 'decltype(auto)' or a concept. */
23131 bool
23132 is_auto_or_concept (const_tree type)
23134 return is_auto (type); // or concept
23137 /* Returns the TEMPLATE_TYPE_PARM in TYPE representing a generic type (`auto' or
23138 a concept identifier) iff TYPE contains a use of a generic type. Returns
23139 NULL_TREE otherwise. */
23141 tree
23142 type_uses_auto_or_concept (tree type)
23144 return find_type_usage (type, is_auto_or_concept);
23148 /* For a given template T, return the vector of typedefs referenced
23149 in T for which access check is needed at T instantiation time.
23150 T is either a FUNCTION_DECL or a RECORD_TYPE.
23151 Those typedefs were added to T by the function
23152 append_type_to_template_for_access_check. */
23154 vec<qualified_typedef_usage_t, va_gc> *
23155 get_types_needing_access_check (tree t)
23157 tree ti;
23158 vec<qualified_typedef_usage_t, va_gc> *result = NULL;
23160 if (!t || t == error_mark_node)
23161 return NULL;
23163 if (!(ti = get_template_info (t)))
23164 return NULL;
23166 if (CLASS_TYPE_P (t)
23167 || TREE_CODE (t) == FUNCTION_DECL)
23169 if (!TI_TEMPLATE (ti))
23170 return NULL;
23172 result = TI_TYPEDEFS_NEEDING_ACCESS_CHECKING (ti);
23175 return result;
23178 /* Append the typedef TYPE_DECL used in template T to a list of typedefs
23179 tied to T. That list of typedefs will be access checked at
23180 T instantiation time.
23181 T is either a FUNCTION_DECL or a RECORD_TYPE.
23182 TYPE_DECL is a TYPE_DECL node representing a typedef.
23183 SCOPE is the scope through which TYPE_DECL is accessed.
23184 LOCATION is the location of the usage point of TYPE_DECL.
23186 This function is a subroutine of
23187 append_type_to_template_for_access_check. */
23189 static void
23190 append_type_to_template_for_access_check_1 (tree t,
23191 tree type_decl,
23192 tree scope,
23193 location_t location)
23195 qualified_typedef_usage_t typedef_usage;
23196 tree ti;
23198 if (!t || t == error_mark_node)
23199 return;
23201 gcc_assert ((TREE_CODE (t) == FUNCTION_DECL
23202 || CLASS_TYPE_P (t))
23203 && type_decl
23204 && TREE_CODE (type_decl) == TYPE_DECL
23205 && scope);
23207 if (!(ti = get_template_info (t)))
23208 return;
23210 gcc_assert (TI_TEMPLATE (ti));
23212 typedef_usage.typedef_decl = type_decl;
23213 typedef_usage.context = scope;
23214 typedef_usage.locus = location;
23216 vec_safe_push (TI_TYPEDEFS_NEEDING_ACCESS_CHECKING (ti), typedef_usage);
23219 /* Append TYPE_DECL to the template TEMPL.
23220 TEMPL is either a class type, a FUNCTION_DECL or a a TEMPLATE_DECL.
23221 At TEMPL instanciation time, TYPE_DECL will be checked to see
23222 if it can be accessed through SCOPE.
23223 LOCATION is the location of the usage point of TYPE_DECL.
23225 e.g. consider the following code snippet:
23227 class C
23229 typedef int myint;
23232 template<class U> struct S
23234 C::myint mi; // <-- usage point of the typedef C::myint
23237 S<char> s;
23239 At S<char> instantiation time, we need to check the access of C::myint
23240 In other words, we need to check the access of the myint typedef through
23241 the C scope. For that purpose, this function will add the myint typedef
23242 and the scope C through which its being accessed to a list of typedefs
23243 tied to the template S. That list will be walked at template instantiation
23244 time and access check performed on each typedefs it contains.
23245 Note that this particular code snippet should yield an error because
23246 myint is private to C. */
23248 void
23249 append_type_to_template_for_access_check (tree templ,
23250 tree type_decl,
23251 tree scope,
23252 location_t location)
23254 qualified_typedef_usage_t *iter;
23255 unsigned i;
23257 gcc_assert (type_decl && (TREE_CODE (type_decl) == TYPE_DECL));
23259 /* Make sure we don't append the type to the template twice. */
23260 FOR_EACH_VEC_SAFE_ELT (get_types_needing_access_check (templ), i, iter)
23261 if (iter->typedef_decl == type_decl && scope == iter->context)
23262 return;
23264 append_type_to_template_for_access_check_1 (templ, type_decl,
23265 scope, location);
23268 /* Convert the generic type parameters in PARM that match the types given in the
23269 range [START_IDX, END_IDX) from the current_template_parms into generic type
23270 packs. */
23272 tree
23273 convert_generic_types_to_packs (tree parm, int start_idx, int end_idx)
23275 tree current = current_template_parms;
23276 int depth = TMPL_PARMS_DEPTH (current);
23277 current = INNERMOST_TEMPLATE_PARMS (current);
23278 tree replacement = make_tree_vec (TREE_VEC_LENGTH (current));
23280 for (int i = 0; i < start_idx; ++i)
23281 TREE_VEC_ELT (replacement, i)
23282 = TREE_TYPE (TREE_VALUE (TREE_VEC_ELT (current, i)));
23284 for (int i = start_idx; i < end_idx; ++i)
23286 /* Create a distinct parameter pack type from the current parm and add it
23287 to the replacement args to tsubst below into the generic function
23288 parameter. */
23290 tree o = TREE_TYPE (TREE_VALUE
23291 (TREE_VEC_ELT (current, i)));
23292 tree t = copy_type (o);
23293 TEMPLATE_TYPE_PARM_INDEX (t)
23294 = reduce_template_parm_level (TEMPLATE_TYPE_PARM_INDEX (o),
23295 o, 0, 0, tf_none);
23296 TREE_TYPE (TEMPLATE_TYPE_DECL (t)) = t;
23297 TYPE_STUB_DECL (t) = TYPE_NAME (t) = TEMPLATE_TYPE_DECL (t);
23298 TYPE_MAIN_VARIANT (t) = t;
23299 TEMPLATE_TYPE_PARAMETER_PACK (t) = true;
23300 TYPE_CANONICAL (t) = canonical_type_parameter (t);
23301 TREE_VEC_ELT (replacement, i) = t;
23302 TREE_VALUE (TREE_VEC_ELT (current, i)) = TREE_CHAIN (t);
23305 for (int i = end_idx, e = TREE_VEC_LENGTH (current); i < e; ++i)
23306 TREE_VEC_ELT (replacement, i)
23307 = TREE_TYPE (TREE_VALUE (TREE_VEC_ELT (current, i)));
23309 /* If there are more levels then build up the replacement with the outer
23310 template parms. */
23311 if (depth > 1)
23312 replacement = add_to_template_args (template_parms_to_args
23313 (TREE_CHAIN (current_template_parms)),
23314 replacement);
23316 return tsubst (parm, replacement, tf_none, NULL_TREE);
23319 /* Entries in the decl_constraint hash table. */
23320 struct GTY((for_user)) constr_entry
23322 tree decl;
23323 tree ci;
23326 /* Hashing function and equality for constraint entries. */
23327 struct constr_hasher : ggc_ptr_hash<constr_entry>
23329 static hashval_t hash (constr_entry *e)
23331 return (hashval_t)DECL_UID (e->decl);
23334 static bool equal (constr_entry *e1, constr_entry *e2)
23336 return e1->decl == e2->decl;
23340 /* A mapping from declarations to constraint information. Note that
23341 both templates and their underlying declarations are mapped to the
23342 same constraint information.
23344 FIXME: This is defined in pt.c because garbage collection
23345 code is not being generated for constraint.cc. */
23347 static GTY (()) hash_table<constr_hasher> *decl_constraints;
23349 /* Returns true iff cinfo contains a valid set of constraints.
23350 This is the case when the associated requirements have been
23351 successfully decomposed into lists of atomic constraints.
23352 That is, when the saved assumptions are not error_mark_node. */
23354 bool
23355 valid_constraints_p (tree cinfo)
23357 gcc_assert (cinfo);
23358 return CI_ASSUMPTIONS (cinfo) != error_mark_node;
23361 /* Returns the template constraints of declaration T. If T is not
23362 constrained, return NULL_TREE. Note that T must be non-null. */
23364 tree
23365 get_constraints (tree t)
23367 gcc_assert (DECL_P (t));
23368 if (TREE_CODE (t) == TEMPLATE_DECL)
23369 t = DECL_TEMPLATE_RESULT (t);
23370 constr_entry elt = { t, NULL_TREE };
23371 constr_entry* found = decl_constraints->find (&elt);
23372 if (found)
23373 return found->ci;
23374 else
23375 return NULL_TREE;
23378 /* Associate the given constraint information CI with the declaration
23379 T. If T is a template, then the constraints are associated with
23380 its underlying declaration. Don't build associations if CI is
23381 NULL_TREE. */
23383 void
23384 set_constraints (tree t, tree ci)
23386 if (!ci)
23387 return;
23388 gcc_assert (t);
23389 if (TREE_CODE (t) == TEMPLATE_DECL)
23390 t = DECL_TEMPLATE_RESULT (t);
23391 gcc_assert (!get_constraints (t));
23392 constr_entry elt = {t, ci};
23393 constr_entry** slot = decl_constraints->find_slot (&elt, INSERT);
23394 constr_entry* entry = ggc_alloc<constr_entry> ();
23395 *entry = elt;
23396 *slot = entry;
23399 /* Remove the associated constraints of the declaration T. */
23401 void
23402 remove_constraints (tree t)
23404 gcc_assert (DECL_P (t));
23405 if (TREE_CODE (t) == TEMPLATE_DECL)
23406 t = DECL_TEMPLATE_RESULT (t);
23408 constr_entry elt = {t, NULL_TREE};
23409 constr_entry** slot = decl_constraints->find_slot (&elt, NO_INSERT);
23410 if (slot)
23411 decl_constraints->clear_slot (slot);
23414 /* Set up the hash table for constraint association. */
23416 void
23417 init_constraint_processing (void)
23419 decl_constraints = hash_table<constr_hasher>::create_ggc(37);
23422 /* Set up the hash tables for template instantiations. */
23424 void
23425 init_template_processing (void)
23427 decl_specializations = hash_table<spec_hasher>::create_ggc (37);
23428 type_specializations = hash_table<spec_hasher>::create_ggc (37);
23431 /* Print stats about the template hash tables for -fstats. */
23433 void
23434 print_template_statistics (void)
23436 fprintf (stderr, "decl_specializations: size %ld, %ld elements, "
23437 "%f collisions\n", (long) decl_specializations->size (),
23438 (long) decl_specializations->elements (),
23439 decl_specializations->collisions ());
23440 fprintf (stderr, "type_specializations: size %ld, %ld elements, "
23441 "%f collisions\n", (long) type_specializations->size (),
23442 (long) type_specializations->elements (),
23443 type_specializations->collisions ());
23446 #include "gt-cp-pt.h"