re PR c++/60605 (incorrect diagosis of default template argument for function declara...
[official-gcc.git] / gcc / cp / pt.c
blobd5cc2576f9de2110c61ad4b764e25084badbf435
1 /* Handle parameterized types (templates) for GNU -*- C++ -*-.
2 Copyright (C) 1992-2014 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 "tree.h"
32 #include "stringpool.h"
33 #include "varasm.h"
34 #include "attribs.h"
35 #include "stor-layout.h"
36 #include "intl.h"
37 #include "pointer-set.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 /* True if we've recursed into fn_type_unification too many times. */
82 static bool excessive_deduction_depth;
84 typedef struct GTY(()) spec_entry
86 tree tmpl;
87 tree args;
88 tree spec;
89 } spec_entry;
91 static GTY ((param_is (spec_entry)))
92 htab_t decl_specializations;
94 static GTY ((param_is (spec_entry)))
95 htab_t type_specializations;
97 /* Contains canonical template parameter types. The vector is indexed by
98 the TEMPLATE_TYPE_IDX of the template parameter. Each element is a
99 TREE_LIST, whose TREE_VALUEs contain the canonical template
100 parameters of various types and levels. */
101 static GTY(()) vec<tree, va_gc> *canonical_template_parms;
103 #define UNIFY_ALLOW_NONE 0
104 #define UNIFY_ALLOW_MORE_CV_QUAL 1
105 #define UNIFY_ALLOW_LESS_CV_QUAL 2
106 #define UNIFY_ALLOW_DERIVED 4
107 #define UNIFY_ALLOW_INTEGER 8
108 #define UNIFY_ALLOW_OUTER_LEVEL 16
109 #define UNIFY_ALLOW_OUTER_MORE_CV_QUAL 32
110 #define UNIFY_ALLOW_OUTER_LESS_CV_QUAL 64
112 enum template_base_result {
113 tbr_incomplete_type,
114 tbr_ambiguous_baseclass,
115 tbr_success
118 static void push_access_scope (tree);
119 static void pop_access_scope (tree);
120 static bool resolve_overloaded_unification (tree, tree, tree, tree,
121 unification_kind_t, int,
122 bool);
123 static int try_one_overload (tree, tree, tree, tree, tree,
124 unification_kind_t, int, bool, bool);
125 static int unify (tree, tree, tree, tree, int, bool);
126 static void add_pending_template (tree);
127 static tree reopen_tinst_level (struct tinst_level *);
128 static tree tsubst_initializer_list (tree, tree);
129 static tree get_class_bindings (tree, tree, tree, tree);
130 static tree coerce_template_parms (tree, tree, tree, tsubst_flags_t,
131 bool, bool);
132 static tree coerce_innermost_template_parms (tree, tree, tree, tsubst_flags_t,
133 bool, bool);
134 static void tsubst_enum (tree, tree, tree);
135 static tree add_to_template_args (tree, tree);
136 static tree add_outermost_template_args (tree, tree);
137 static bool check_instantiated_args (tree, tree, tsubst_flags_t);
138 static int maybe_adjust_types_for_deduction (unification_kind_t, tree*, tree*,
139 tree);
140 static int type_unification_real (tree, tree, tree, const tree *,
141 unsigned int, int, unification_kind_t, int,
142 vec<deferred_access_check, va_gc> **,
143 bool);
144 static void note_template_header (int);
145 static tree convert_nontype_argument_function (tree, tree, tsubst_flags_t);
146 static tree convert_nontype_argument (tree, tree, tsubst_flags_t);
147 static tree convert_template_argument (tree, tree, tree,
148 tsubst_flags_t, int, tree);
149 static int for_each_template_parm (tree, tree_fn_t, void*,
150 struct pointer_set_t*, bool);
151 static tree expand_template_argument_pack (tree);
152 static tree build_template_parm_index (int, int, int, tree, tree);
153 static bool inline_needs_template_parms (tree, bool);
154 static void push_inline_template_parms_recursive (tree, int);
155 static tree retrieve_local_specialization (tree);
156 static void register_local_specialization (tree, tree);
157 static hashval_t hash_specialization (const void *p);
158 static tree reduce_template_parm_level (tree, tree, int, tree, tsubst_flags_t);
159 static int mark_template_parm (tree, void *);
160 static int template_parm_this_level_p (tree, void *);
161 static tree tsubst_friend_function (tree, tree);
162 static tree tsubst_friend_class (tree, tree);
163 static int can_complete_type_without_circularity (tree);
164 static tree get_bindings (tree, tree, tree, bool);
165 static int template_decl_level (tree);
166 static int check_cv_quals_for_unify (int, tree, tree);
167 static void template_parm_level_and_index (tree, int*, int*);
168 static int unify_pack_expansion (tree, tree, tree,
169 tree, unification_kind_t, bool, bool);
170 static tree tsubst_template_arg (tree, tree, tsubst_flags_t, tree);
171 static tree tsubst_template_args (tree, tree, tsubst_flags_t, tree);
172 static tree tsubst_template_parms (tree, tree, tsubst_flags_t);
173 static void regenerate_decl_from_template (tree, tree);
174 static tree most_specialized_class (tree, tsubst_flags_t);
175 static tree tsubst_aggr_type (tree, tree, tsubst_flags_t, tree, int);
176 static tree tsubst_arg_types (tree, tree, tree, tsubst_flags_t, tree);
177 static tree tsubst_function_type (tree, tree, tsubst_flags_t, tree);
178 static bool check_specialization_scope (void);
179 static tree process_partial_specialization (tree);
180 static void set_current_access_from_decl (tree);
181 static enum template_base_result get_template_base (tree, tree, tree, tree,
182 bool , tree *);
183 static tree try_class_unification (tree, tree, tree, tree, bool);
184 static int coerce_template_template_parms (tree, tree, tsubst_flags_t,
185 tree, tree);
186 static bool template_template_parm_bindings_ok_p (tree, tree);
187 static int template_args_equal (tree, tree);
188 static void tsubst_default_arguments (tree, tsubst_flags_t);
189 static tree for_each_template_parm_r (tree *, int *, void *);
190 static tree copy_default_args_to_explicit_spec_1 (tree, tree);
191 static void copy_default_args_to_explicit_spec (tree);
192 static int invalid_nontype_parm_type_p (tree, tsubst_flags_t);
193 static bool dependent_template_arg_p (tree);
194 static bool any_template_arguments_need_structural_equality_p (tree);
195 static bool dependent_type_p_r (tree);
196 static tree tsubst_expr (tree, tree, tsubst_flags_t, tree, bool);
197 static tree tsubst_copy (tree, tree, tsubst_flags_t, tree);
198 static tree tsubst_pack_expansion (tree, tree, tsubst_flags_t, tree);
199 static tree tsubst_decl (tree, tree, tsubst_flags_t);
200 static void perform_typedefs_access_check (tree tmpl, tree targs);
201 static void append_type_to_template_for_access_check_1 (tree, tree, tree,
202 location_t);
203 static tree listify (tree);
204 static tree listify_autos (tree, tree);
205 static tree template_parm_to_arg (tree t);
206 static tree current_template_args (void);
207 static tree tsubst_template_parm (tree, tree, tsubst_flags_t);
208 static tree instantiate_alias_template (tree, tree, tsubst_flags_t);
210 /* Make the current scope suitable for access checking when we are
211 processing T. T can be FUNCTION_DECL for instantiated function
212 template, VAR_DECL for static member variable, or TYPE_DECL for
213 alias template (needed by instantiate_decl). */
215 static void
216 push_access_scope (tree t)
218 gcc_assert (VAR_OR_FUNCTION_DECL_P (t)
219 || TREE_CODE (t) == TYPE_DECL);
221 if (DECL_FRIEND_CONTEXT (t))
222 push_nested_class (DECL_FRIEND_CONTEXT (t));
223 else if (DECL_CLASS_SCOPE_P (t))
224 push_nested_class (DECL_CONTEXT (t));
225 else
226 push_to_top_level ();
228 if (TREE_CODE (t) == FUNCTION_DECL)
230 saved_access_scope = tree_cons
231 (NULL_TREE, current_function_decl, saved_access_scope);
232 current_function_decl = t;
236 /* Restore the scope set up by push_access_scope. T is the node we
237 are processing. */
239 static void
240 pop_access_scope (tree t)
242 if (TREE_CODE (t) == FUNCTION_DECL)
244 current_function_decl = TREE_VALUE (saved_access_scope);
245 saved_access_scope = TREE_CHAIN (saved_access_scope);
248 if (DECL_FRIEND_CONTEXT (t) || DECL_CLASS_SCOPE_P (t))
249 pop_nested_class ();
250 else
251 pop_from_top_level ();
254 /* Do any processing required when DECL (a member template
255 declaration) is finished. Returns the TEMPLATE_DECL corresponding
256 to DECL, unless it is a specialization, in which case the DECL
257 itself is returned. */
259 tree
260 finish_member_template_decl (tree decl)
262 if (decl == error_mark_node)
263 return error_mark_node;
265 gcc_assert (DECL_P (decl));
267 if (TREE_CODE (decl) == TYPE_DECL)
269 tree type;
271 type = TREE_TYPE (decl);
272 if (type == error_mark_node)
273 return error_mark_node;
274 if (MAYBE_CLASS_TYPE_P (type)
275 && CLASSTYPE_TEMPLATE_INFO (type)
276 && !CLASSTYPE_TEMPLATE_SPECIALIZATION (type))
278 tree tmpl = CLASSTYPE_TI_TEMPLATE (type);
279 check_member_template (tmpl);
280 return tmpl;
282 return NULL_TREE;
284 else if (TREE_CODE (decl) == FIELD_DECL)
285 error ("data member %qD cannot be a member template", decl);
286 else if (DECL_TEMPLATE_INFO (decl))
288 if (!DECL_TEMPLATE_SPECIALIZATION (decl))
290 check_member_template (DECL_TI_TEMPLATE (decl));
291 return DECL_TI_TEMPLATE (decl);
293 else
294 return decl;
296 else
297 error ("invalid member template declaration %qD", decl);
299 return error_mark_node;
302 /* Create a template info node. */
304 tree
305 build_template_info (tree template_decl, tree template_args)
307 tree result = make_node (TEMPLATE_INFO);
308 TI_TEMPLATE (result) = template_decl;
309 TI_ARGS (result) = template_args;
310 return result;
313 /* Return the template info node corresponding to T, whatever T is. */
315 tree
316 get_template_info (const_tree t)
318 tree tinfo = NULL_TREE;
320 if (!t || t == error_mark_node)
321 return NULL;
323 if (TREE_CODE (t) == NAMESPACE_DECL)
324 return NULL;
326 if (DECL_P (t) && DECL_LANG_SPECIFIC (t))
327 tinfo = DECL_TEMPLATE_INFO (t);
329 if (!tinfo && DECL_IMPLICIT_TYPEDEF_P (t))
330 t = TREE_TYPE (t);
332 if (OVERLOAD_TYPE_P (t))
333 tinfo = TYPE_TEMPLATE_INFO (t);
334 else if (TREE_CODE (t) == BOUND_TEMPLATE_TEMPLATE_PARM)
335 tinfo = TEMPLATE_TEMPLATE_PARM_TEMPLATE_INFO (t);
337 return tinfo;
340 /* Returns the template nesting level of the indicated class TYPE.
342 For example, in:
343 template <class T>
344 struct A
346 template <class U>
347 struct B {};
350 A<T>::B<U> has depth two, while A<T> has depth one.
351 Both A<T>::B<int> and A<int>::B<U> have depth one, if
352 they are instantiations, not specializations.
354 This function is guaranteed to return 0 if passed NULL_TREE so
355 that, for example, `template_class_depth (current_class_type)' is
356 always safe. */
359 template_class_depth (tree type)
361 int depth;
363 for (depth = 0;
364 type && TREE_CODE (type) != NAMESPACE_DECL;
365 type = (TREE_CODE (type) == FUNCTION_DECL)
366 ? CP_DECL_CONTEXT (type) : CP_TYPE_CONTEXT (type))
368 tree tinfo = get_template_info (type);
370 if (tinfo && PRIMARY_TEMPLATE_P (TI_TEMPLATE (tinfo))
371 && uses_template_parms (INNERMOST_TEMPLATE_ARGS (TI_ARGS (tinfo))))
372 ++depth;
375 return depth;
378 /* Subroutine of maybe_begin_member_template_processing.
379 Returns true if processing DECL needs us to push template parms. */
381 static bool
382 inline_needs_template_parms (tree decl, bool nsdmi)
384 if (!decl || (!nsdmi && ! DECL_TEMPLATE_INFO (decl)))
385 return false;
387 return (TMPL_PARMS_DEPTH (DECL_TEMPLATE_PARMS (most_general_template (decl)))
388 > (processing_template_decl + DECL_TEMPLATE_SPECIALIZATION (decl)));
391 /* Subroutine of maybe_begin_member_template_processing.
392 Push the template parms in PARMS, starting from LEVELS steps into the
393 chain, and ending at the beginning, since template parms are listed
394 innermost first. */
396 static void
397 push_inline_template_parms_recursive (tree parmlist, int levels)
399 tree parms = TREE_VALUE (parmlist);
400 int i;
402 if (levels > 1)
403 push_inline_template_parms_recursive (TREE_CHAIN (parmlist), levels - 1);
405 ++processing_template_decl;
406 current_template_parms
407 = tree_cons (size_int (processing_template_decl),
408 parms, current_template_parms);
409 TEMPLATE_PARMS_FOR_INLINE (current_template_parms) = 1;
411 begin_scope (TREE_VEC_LENGTH (parms) ? sk_template_parms : sk_template_spec,
412 NULL);
413 for (i = 0; i < TREE_VEC_LENGTH (parms); ++i)
415 tree parm = TREE_VALUE (TREE_VEC_ELT (parms, i));
417 if (error_operand_p (parm))
418 continue;
420 gcc_assert (DECL_P (parm));
422 switch (TREE_CODE (parm))
424 case TYPE_DECL:
425 case TEMPLATE_DECL:
426 pushdecl (parm);
427 break;
429 case PARM_DECL:
431 /* Make a CONST_DECL as is done in process_template_parm.
432 It is ugly that we recreate this here; the original
433 version built in process_template_parm is no longer
434 available. */
435 tree decl = build_decl (DECL_SOURCE_LOCATION (parm),
436 CONST_DECL, DECL_NAME (parm),
437 TREE_TYPE (parm));
438 DECL_ARTIFICIAL (decl) = 1;
439 TREE_CONSTANT (decl) = 1;
440 TREE_READONLY (decl) = 1;
441 DECL_INITIAL (decl) = DECL_INITIAL (parm);
442 SET_DECL_TEMPLATE_PARM_P (decl);
443 pushdecl (decl);
445 break;
447 default:
448 gcc_unreachable ();
453 /* Restore the template parameter context for a member template, a
454 friend template defined in a class definition, or a non-template
455 member of template class. */
457 void
458 maybe_begin_member_template_processing (tree decl)
460 tree parms;
461 int levels = 0;
462 bool nsdmi = TREE_CODE (decl) == FIELD_DECL;
464 if (nsdmi)
466 tree ctx = DECL_CONTEXT (decl);
467 decl = (CLASSTYPE_TEMPLATE_INFO (ctx)
468 /* Disregard full specializations (c++/60999). */
469 && uses_template_parms (ctx)
470 ? CLASSTYPE_TI_TEMPLATE (ctx) : NULL_TREE);
473 if (inline_needs_template_parms (decl, nsdmi))
475 parms = DECL_TEMPLATE_PARMS (most_general_template (decl));
476 levels = TMPL_PARMS_DEPTH (parms) - processing_template_decl;
478 if (DECL_TEMPLATE_SPECIALIZATION (decl))
480 --levels;
481 parms = TREE_CHAIN (parms);
484 push_inline_template_parms_recursive (parms, levels);
487 /* Remember how many levels of template parameters we pushed so that
488 we can pop them later. */
489 inline_parm_levels.safe_push (levels);
492 /* Undo the effects of maybe_begin_member_template_processing. */
494 void
495 maybe_end_member_template_processing (void)
497 int i;
498 int last;
500 if (inline_parm_levels.length () == 0)
501 return;
503 last = inline_parm_levels.pop ();
504 for (i = 0; i < last; ++i)
506 --processing_template_decl;
507 current_template_parms = TREE_CHAIN (current_template_parms);
508 poplevel (0, 0, 0);
512 /* Return a new template argument vector which contains all of ARGS,
513 but has as its innermost set of arguments the EXTRA_ARGS. */
515 static tree
516 add_to_template_args (tree args, tree extra_args)
518 tree new_args;
519 int extra_depth;
520 int i;
521 int j;
523 if (args == NULL_TREE || extra_args == error_mark_node)
524 return extra_args;
526 extra_depth = TMPL_ARGS_DEPTH (extra_args);
527 new_args = make_tree_vec (TMPL_ARGS_DEPTH (args) + extra_depth);
529 for (i = 1; i <= TMPL_ARGS_DEPTH (args); ++i)
530 SET_TMPL_ARGS_LEVEL (new_args, i, TMPL_ARGS_LEVEL (args, i));
532 for (j = 1; j <= extra_depth; ++j, ++i)
533 SET_TMPL_ARGS_LEVEL (new_args, i, TMPL_ARGS_LEVEL (extra_args, j));
535 return new_args;
538 /* Like add_to_template_args, but only the outermost ARGS are added to
539 the EXTRA_ARGS. In particular, all but TMPL_ARGS_DEPTH
540 (EXTRA_ARGS) levels are added. This function is used to combine
541 the template arguments from a partial instantiation with the
542 template arguments used to attain the full instantiation from the
543 partial instantiation. */
545 static tree
546 add_outermost_template_args (tree args, tree extra_args)
548 tree new_args;
550 /* If there are more levels of EXTRA_ARGS than there are ARGS,
551 something very fishy is going on. */
552 gcc_assert (TMPL_ARGS_DEPTH (args) >= TMPL_ARGS_DEPTH (extra_args));
554 /* If *all* the new arguments will be the EXTRA_ARGS, just return
555 them. */
556 if (TMPL_ARGS_DEPTH (args) == TMPL_ARGS_DEPTH (extra_args))
557 return extra_args;
559 /* For the moment, we make ARGS look like it contains fewer levels. */
560 TREE_VEC_LENGTH (args) -= TMPL_ARGS_DEPTH (extra_args);
562 new_args = add_to_template_args (args, extra_args);
564 /* Now, we restore ARGS to its full dimensions. */
565 TREE_VEC_LENGTH (args) += TMPL_ARGS_DEPTH (extra_args);
567 return new_args;
570 /* Return the N levels of innermost template arguments from the ARGS. */
572 tree
573 get_innermost_template_args (tree args, int n)
575 tree new_args;
576 int extra_levels;
577 int i;
579 gcc_assert (n >= 0);
581 /* If N is 1, just return the innermost set of template arguments. */
582 if (n == 1)
583 return TMPL_ARGS_LEVEL (args, TMPL_ARGS_DEPTH (args));
585 /* If we're not removing anything, just return the arguments we were
586 given. */
587 extra_levels = TMPL_ARGS_DEPTH (args) - n;
588 gcc_assert (extra_levels >= 0);
589 if (extra_levels == 0)
590 return args;
592 /* Make a new set of arguments, not containing the outer arguments. */
593 new_args = make_tree_vec (n);
594 for (i = 1; i <= n; ++i)
595 SET_TMPL_ARGS_LEVEL (new_args, i,
596 TMPL_ARGS_LEVEL (args, i + extra_levels));
598 return new_args;
601 /* The inverse of get_innermost_template_args: Return all but the innermost
602 EXTRA_LEVELS levels of template arguments from the ARGS. */
604 static tree
605 strip_innermost_template_args (tree args, int extra_levels)
607 tree new_args;
608 int n = TMPL_ARGS_DEPTH (args) - extra_levels;
609 int i;
611 gcc_assert (n >= 0);
613 /* If N is 1, just return the outermost set of template arguments. */
614 if (n == 1)
615 return TMPL_ARGS_LEVEL (args, 1);
617 /* If we're not removing anything, just return the arguments we were
618 given. */
619 gcc_assert (extra_levels >= 0);
620 if (extra_levels == 0)
621 return args;
623 /* Make a new set of arguments, not containing the inner arguments. */
624 new_args = make_tree_vec (n);
625 for (i = 1; i <= n; ++i)
626 SET_TMPL_ARGS_LEVEL (new_args, i,
627 TMPL_ARGS_LEVEL (args, i));
629 return new_args;
632 /* We've got a template header coming up; push to a new level for storing
633 the parms. */
635 void
636 begin_template_parm_list (void)
638 /* We use a non-tag-transparent scope here, which causes pushtag to
639 put tags in this scope, rather than in the enclosing class or
640 namespace scope. This is the right thing, since we want
641 TEMPLATE_DECLS, and not TYPE_DECLS for template classes. For a
642 global template class, push_template_decl handles putting the
643 TEMPLATE_DECL into top-level scope. For a nested template class,
644 e.g.:
646 template <class T> struct S1 {
647 template <class T> struct S2 {};
650 pushtag contains special code to call pushdecl_with_scope on the
651 TEMPLATE_DECL for S2. */
652 begin_scope (sk_template_parms, NULL);
653 ++processing_template_decl;
654 ++processing_template_parmlist;
655 note_template_header (0);
658 /* This routine is called when a specialization is declared. If it is
659 invalid to declare a specialization here, an error is reported and
660 false is returned, otherwise this routine will return true. */
662 static bool
663 check_specialization_scope (void)
665 tree scope = current_scope ();
667 /* [temp.expl.spec]
669 An explicit specialization shall be declared in the namespace of
670 which the template is a member, or, for member templates, in the
671 namespace of which the enclosing class or enclosing class
672 template is a member. An explicit specialization of a member
673 function, member class or static data member of a class template
674 shall be declared in the namespace of which the class template
675 is a member. */
676 if (scope && TREE_CODE (scope) != NAMESPACE_DECL)
678 error ("explicit specialization in non-namespace scope %qD", scope);
679 return false;
682 /* [temp.expl.spec]
684 In an explicit specialization declaration for a member of a class
685 template or a member template that appears in namespace scope,
686 the member template and some of its enclosing class templates may
687 remain unspecialized, except that the declaration shall not
688 explicitly specialize a class member template if its enclosing
689 class templates are not explicitly specialized as well. */
690 if (current_template_parms)
692 error ("enclosing class templates are not explicitly specialized");
693 return false;
696 return true;
699 /* We've just seen template <>. */
701 bool
702 begin_specialization (void)
704 begin_scope (sk_template_spec, NULL);
705 note_template_header (1);
706 return check_specialization_scope ();
709 /* Called at then end of processing a declaration preceded by
710 template<>. */
712 void
713 end_specialization (void)
715 finish_scope ();
716 reset_specialization ();
719 /* Any template <>'s that we have seen thus far are not referring to a
720 function specialization. */
722 void
723 reset_specialization (void)
725 processing_specialization = 0;
726 template_header_count = 0;
729 /* We've just seen a template header. If SPECIALIZATION is nonzero,
730 it was of the form template <>. */
732 static void
733 note_template_header (int specialization)
735 processing_specialization = specialization;
736 template_header_count++;
739 /* We're beginning an explicit instantiation. */
741 void
742 begin_explicit_instantiation (void)
744 gcc_assert (!processing_explicit_instantiation);
745 processing_explicit_instantiation = true;
749 void
750 end_explicit_instantiation (void)
752 gcc_assert (processing_explicit_instantiation);
753 processing_explicit_instantiation = false;
756 /* An explicit specialization or partial specialization of TMPL is being
757 declared. Check that the namespace in which the specialization is
758 occurring is permissible. Returns false iff it is invalid to
759 specialize TMPL in the current namespace. */
761 static bool
762 check_specialization_namespace (tree tmpl)
764 tree tpl_ns = decl_namespace_context (tmpl);
766 /* [tmpl.expl.spec]
768 An explicit specialization shall be declared in the namespace of
769 which the template is a member, or, for member templates, in the
770 namespace of which the enclosing class or enclosing class
771 template is a member. An explicit specialization of a member
772 function, member class or static data member of a class template
773 shall be declared in the namespace of which the class template is
774 a member. */
775 if (current_scope() != DECL_CONTEXT (tmpl)
776 && !at_namespace_scope_p ())
778 error ("specialization of %qD must appear at namespace scope", tmpl);
779 return false;
781 if (is_associated_namespace (current_namespace, tpl_ns))
782 /* Same or super-using namespace. */
783 return true;
784 else
786 permerror (input_location, "specialization of %qD in different namespace", tmpl);
787 permerror (input_location, " from definition of %q+#D", tmpl);
788 return false;
792 /* SPEC is an explicit instantiation. Check that it is valid to
793 perform this explicit instantiation in the current namespace. */
795 static void
796 check_explicit_instantiation_namespace (tree spec)
798 tree ns;
800 /* DR 275: An explicit instantiation shall appear in an enclosing
801 namespace of its template. */
802 ns = decl_namespace_context (spec);
803 if (!is_ancestor (current_namespace, ns))
804 permerror (input_location, "explicit instantiation of %qD in namespace %qD "
805 "(which does not enclose namespace %qD)",
806 spec, current_namespace, ns);
809 /* The TYPE is being declared. If it is a template type, that means it
810 is a partial specialization. Do appropriate error-checking. */
812 tree
813 maybe_process_partial_specialization (tree type)
815 tree context;
817 if (type == error_mark_node)
818 return error_mark_node;
820 /* A lambda that appears in specialization context is not itself a
821 specialization. */
822 if (CLASS_TYPE_P (type) && CLASSTYPE_LAMBDA_EXPR (type))
823 return type;
825 if (TREE_CODE (type) == BOUND_TEMPLATE_TEMPLATE_PARM)
827 error ("name of class shadows template template parameter %qD",
828 TYPE_NAME (type));
829 return error_mark_node;
832 context = TYPE_CONTEXT (type);
834 if (TYPE_ALIAS_P (type))
836 if (TYPE_TEMPLATE_INFO (type)
837 && DECL_ALIAS_TEMPLATE_P (TYPE_TI_TEMPLATE (type)))
838 error ("specialization of alias template %qD",
839 TYPE_TI_TEMPLATE (type));
840 else
841 error ("explicit specialization of non-template %qT", type);
842 return error_mark_node;
844 else if (CLASS_TYPE_P (type) && CLASSTYPE_USE_TEMPLATE (type))
846 /* This is for ordinary explicit specialization and partial
847 specialization of a template class such as:
849 template <> class C<int>;
853 template <class T> class C<T*>;
855 Make sure that `C<int>' and `C<T*>' are implicit instantiations. */
857 if (CLASSTYPE_IMPLICIT_INSTANTIATION (type)
858 && !COMPLETE_TYPE_P (type))
860 if (!check_specialization_namespace (CLASSTYPE_TI_TEMPLATE (type))
861 && !at_namespace_scope_p ())
862 return error_mark_node;
863 SET_CLASSTYPE_TEMPLATE_SPECIALIZATION (type);
864 DECL_SOURCE_LOCATION (TYPE_MAIN_DECL (type)) = input_location;
865 if (processing_template_decl)
867 if (push_template_decl (TYPE_MAIN_DECL (type))
868 == error_mark_node)
869 return error_mark_node;
872 else if (CLASSTYPE_TEMPLATE_INSTANTIATION (type))
873 error ("specialization of %qT after instantiation", type);
874 else if (errorcount && !processing_specialization
875 && CLASSTYPE_TEMPLATE_SPECIALIZATION (type)
876 && !uses_template_parms (CLASSTYPE_TI_ARGS (type)))
877 /* Trying to define a specialization either without a template<> header
878 or in an inappropriate place. We've already given an error, so just
879 bail now so we don't actually define the specialization. */
880 return error_mark_node;
882 else if (CLASS_TYPE_P (type)
883 && !CLASSTYPE_USE_TEMPLATE (type)
884 && CLASSTYPE_TEMPLATE_INFO (type)
885 && context && CLASS_TYPE_P (context)
886 && CLASSTYPE_TEMPLATE_INFO (context))
888 /* This is for an explicit specialization of member class
889 template according to [temp.expl.spec/18]:
891 template <> template <class U> class C<int>::D;
893 The context `C<int>' must be an implicit instantiation.
894 Otherwise this is just a member class template declared
895 earlier like:
897 template <> class C<int> { template <class U> class D; };
898 template <> template <class U> class C<int>::D;
900 In the first case, `C<int>::D' is a specialization of `C<T>::D'
901 while in the second case, `C<int>::D' is a primary template
902 and `C<T>::D' may not exist. */
904 if (CLASSTYPE_IMPLICIT_INSTANTIATION (context)
905 && !COMPLETE_TYPE_P (type))
907 tree t;
908 tree tmpl = CLASSTYPE_TI_TEMPLATE (type);
910 if (current_namespace
911 != decl_namespace_context (tmpl))
913 permerror (input_location, "specializing %q#T in different namespace", type);
914 permerror (input_location, " from definition of %q+#D", tmpl);
917 /* Check for invalid specialization after instantiation:
919 template <> template <> class C<int>::D<int>;
920 template <> template <class U> class C<int>::D; */
922 for (t = DECL_TEMPLATE_INSTANTIATIONS (tmpl);
923 t; t = TREE_CHAIN (t))
925 tree inst = TREE_VALUE (t);
926 if (CLASSTYPE_TEMPLATE_SPECIALIZATION (inst)
927 || !COMPLETE_OR_OPEN_TYPE_P (inst))
929 /* We already have a full specialization of this partial
930 instantiation, or a full specialization has been
931 looked up but not instantiated. Reassign it to the
932 new member specialization template. */
933 spec_entry elt;
934 spec_entry *entry;
935 void **slot;
937 elt.tmpl = most_general_template (tmpl);
938 elt.args = CLASSTYPE_TI_ARGS (inst);
939 elt.spec = inst;
941 htab_remove_elt (type_specializations, &elt);
943 elt.tmpl = tmpl;
944 elt.args = INNERMOST_TEMPLATE_ARGS (elt.args);
946 slot = htab_find_slot (type_specializations, &elt, INSERT);
947 entry = ggc_alloc<spec_entry> ();
948 *entry = elt;
949 *slot = entry;
951 else
952 /* But if we've had an implicit instantiation, that's a
953 problem ([temp.expl.spec]/6). */
954 error ("specialization %qT after instantiation %qT",
955 type, inst);
958 /* Mark TYPE as a specialization. And as a result, we only
959 have one level of template argument for the innermost
960 class template. */
961 SET_CLASSTYPE_TEMPLATE_SPECIALIZATION (type);
962 DECL_SOURCE_LOCATION (TYPE_MAIN_DECL (type)) = input_location;
963 CLASSTYPE_TI_ARGS (type)
964 = INNERMOST_TEMPLATE_ARGS (CLASSTYPE_TI_ARGS (type));
967 else if (processing_specialization)
969 /* Someday C++0x may allow for enum template specialization. */
970 if (cxx_dialect > cxx98 && TREE_CODE (type) == ENUMERAL_TYPE
971 && CLASS_TYPE_P (context) && CLASSTYPE_USE_TEMPLATE (context))
972 pedwarn (input_location, OPT_Wpedantic, "template specialization "
973 "of %qD not allowed by ISO C++", type);
974 else
976 error ("explicit specialization of non-template %qT", type);
977 return error_mark_node;
981 return type;
984 /* Returns nonzero if we can optimize the retrieval of specializations
985 for TMPL, a TEMPLATE_DECL. In particular, for such a template, we
986 do not use DECL_TEMPLATE_SPECIALIZATIONS at all. */
988 static inline bool
989 optimize_specialization_lookup_p (tree tmpl)
991 return (DECL_FUNCTION_TEMPLATE_P (tmpl)
992 && DECL_CLASS_SCOPE_P (tmpl)
993 /* DECL_CLASS_SCOPE_P holds of T::f even if T is a template
994 parameter. */
995 && CLASS_TYPE_P (DECL_CONTEXT (tmpl))
996 /* The optimized lookup depends on the fact that the
997 template arguments for the member function template apply
998 purely to the containing class, which is not true if the
999 containing class is an explicit or partial
1000 specialization. */
1001 && !CLASSTYPE_TEMPLATE_SPECIALIZATION (DECL_CONTEXT (tmpl))
1002 && !DECL_MEMBER_TEMPLATE_P (tmpl)
1003 && !DECL_CONV_FN_P (tmpl)
1004 /* It is possible to have a template that is not a member
1005 template and is not a member of a template class:
1007 template <typename T>
1008 struct S { friend A::f(); };
1010 Here, the friend function is a template, but the context does
1011 not have template information. The optimized lookup relies
1012 on having ARGS be the template arguments for both the class
1013 and the function template. */
1014 && !DECL_FRIEND_P (DECL_TEMPLATE_RESULT (tmpl)));
1017 /* Retrieve the specialization (in the sense of [temp.spec] - a
1018 specialization is either an instantiation or an explicit
1019 specialization) of TMPL for the given template ARGS. If there is
1020 no such specialization, return NULL_TREE. The ARGS are a vector of
1021 arguments, or a vector of vectors of arguments, in the case of
1022 templates with more than one level of parameters.
1024 If TMPL is a type template and CLASS_SPECIALIZATIONS_P is true,
1025 then we search for a partial specialization matching ARGS. This
1026 parameter is ignored if TMPL is not a class template.
1028 We can also look up a FIELD_DECL, if it is a lambda capture pack; the
1029 result is a NONTYPE_ARGUMENT_PACK. */
1031 static tree
1032 retrieve_specialization (tree tmpl, tree args, hashval_t hash)
1034 if (tmpl == NULL_TREE)
1035 return NULL_TREE;
1037 if (args == error_mark_node)
1038 return NULL_TREE;
1040 gcc_assert (TREE_CODE (tmpl) == TEMPLATE_DECL
1041 || TREE_CODE (tmpl) == FIELD_DECL);
1043 /* There should be as many levels of arguments as there are
1044 levels of parameters. */
1045 gcc_assert (TMPL_ARGS_DEPTH (args)
1046 == (TREE_CODE (tmpl) == TEMPLATE_DECL
1047 ? TMPL_PARMS_DEPTH (DECL_TEMPLATE_PARMS (tmpl))
1048 : template_class_depth (DECL_CONTEXT (tmpl))));
1050 if (optimize_specialization_lookup_p (tmpl))
1052 tree class_template;
1053 tree class_specialization;
1054 vec<tree, va_gc> *methods;
1055 tree fns;
1056 int idx;
1058 /* The template arguments actually apply to the containing
1059 class. Find the class specialization with those
1060 arguments. */
1061 class_template = CLASSTYPE_TI_TEMPLATE (DECL_CONTEXT (tmpl));
1062 class_specialization
1063 = retrieve_specialization (class_template, args, 0);
1064 if (!class_specialization)
1065 return NULL_TREE;
1066 /* Now, find the appropriate entry in the CLASSTYPE_METHOD_VEC
1067 for the specialization. */
1068 idx = class_method_index_for_fn (class_specialization, tmpl);
1069 if (idx == -1)
1070 return NULL_TREE;
1071 /* Iterate through the methods with the indicated name, looking
1072 for the one that has an instance of TMPL. */
1073 methods = CLASSTYPE_METHOD_VEC (class_specialization);
1074 for (fns = (*methods)[idx]; fns; fns = OVL_NEXT (fns))
1076 tree fn = OVL_CURRENT (fns);
1077 if (DECL_TEMPLATE_INFO (fn) && DECL_TI_TEMPLATE (fn) == tmpl
1078 /* using-declarations can add base methods to the method vec,
1079 and we don't want those here. */
1080 && DECL_CONTEXT (fn) == class_specialization)
1081 return fn;
1083 return NULL_TREE;
1085 else
1087 spec_entry *found;
1088 spec_entry elt;
1089 htab_t specializations;
1091 elt.tmpl = tmpl;
1092 elt.args = args;
1093 elt.spec = NULL_TREE;
1095 if (DECL_CLASS_TEMPLATE_P (tmpl))
1096 specializations = type_specializations;
1097 else
1098 specializations = decl_specializations;
1100 if (hash == 0)
1101 hash = hash_specialization (&elt);
1102 found = (spec_entry *) htab_find_with_hash (specializations, &elt, hash);
1103 if (found)
1104 return found->spec;
1107 return NULL_TREE;
1110 /* Like retrieve_specialization, but for local declarations. */
1112 static tree
1113 retrieve_local_specialization (tree tmpl)
1115 void **slot;
1117 if (local_specializations == NULL)
1118 return NULL_TREE;
1120 slot = pointer_map_contains (local_specializations, tmpl);
1121 return slot ? (tree) *slot : NULL_TREE;
1124 /* Returns nonzero iff DECL is a specialization of TMPL. */
1127 is_specialization_of (tree decl, tree tmpl)
1129 tree t;
1131 if (TREE_CODE (decl) == FUNCTION_DECL)
1133 for (t = decl;
1134 t != NULL_TREE;
1135 t = DECL_TEMPLATE_INFO (t) ? DECL_TI_TEMPLATE (t) : NULL_TREE)
1136 if (t == tmpl)
1137 return 1;
1139 else
1141 gcc_assert (TREE_CODE (decl) == TYPE_DECL);
1143 for (t = TREE_TYPE (decl);
1144 t != NULL_TREE;
1145 t = CLASSTYPE_USE_TEMPLATE (t)
1146 ? TREE_TYPE (CLASSTYPE_TI_TEMPLATE (t)) : NULL_TREE)
1147 if (same_type_ignoring_top_level_qualifiers_p (t, TREE_TYPE (tmpl)))
1148 return 1;
1151 return 0;
1154 /* Returns nonzero iff DECL is a specialization of friend declaration
1155 FRIEND_DECL according to [temp.friend]. */
1157 bool
1158 is_specialization_of_friend (tree decl, tree friend_decl)
1160 bool need_template = true;
1161 int template_depth;
1163 gcc_assert (TREE_CODE (decl) == FUNCTION_DECL
1164 || TREE_CODE (decl) == TYPE_DECL);
1166 /* For [temp.friend/6] when FRIEND_DECL is an ordinary member function
1167 of a template class, we want to check if DECL is a specialization
1168 if this. */
1169 if (TREE_CODE (friend_decl) == FUNCTION_DECL
1170 && DECL_TEMPLATE_INFO (friend_decl)
1171 && !DECL_USE_TEMPLATE (friend_decl))
1173 /* We want a TEMPLATE_DECL for `is_specialization_of'. */
1174 friend_decl = DECL_TI_TEMPLATE (friend_decl);
1175 need_template = false;
1177 else if (TREE_CODE (friend_decl) == TEMPLATE_DECL
1178 && !PRIMARY_TEMPLATE_P (friend_decl))
1179 need_template = false;
1181 /* There is nothing to do if this is not a template friend. */
1182 if (TREE_CODE (friend_decl) != TEMPLATE_DECL)
1183 return false;
1185 if (is_specialization_of (decl, friend_decl))
1186 return true;
1188 /* [temp.friend/6]
1189 A member of a class template may be declared to be a friend of a
1190 non-template class. In this case, the corresponding member of
1191 every specialization of the class template is a friend of the
1192 class granting friendship.
1194 For example, given a template friend declaration
1196 template <class T> friend void A<T>::f();
1198 the member function below is considered a friend
1200 template <> struct A<int> {
1201 void f();
1204 For this type of template friend, TEMPLATE_DEPTH below will be
1205 nonzero. To determine if DECL is a friend of FRIEND, we first
1206 check if the enclosing class is a specialization of another. */
1208 template_depth = template_class_depth (CP_DECL_CONTEXT (friend_decl));
1209 if (template_depth
1210 && DECL_CLASS_SCOPE_P (decl)
1211 && is_specialization_of (TYPE_NAME (DECL_CONTEXT (decl)),
1212 CLASSTYPE_TI_TEMPLATE (DECL_CONTEXT (friend_decl))))
1214 /* Next, we check the members themselves. In order to handle
1215 a few tricky cases, such as when FRIEND_DECL's are
1217 template <class T> friend void A<T>::g(T t);
1218 template <class T> template <T t> friend void A<T>::h();
1220 and DECL's are
1222 void A<int>::g(int);
1223 template <int> void A<int>::h();
1225 we need to figure out ARGS, the template arguments from
1226 the context of DECL. This is required for template substitution
1227 of `T' in the function parameter of `g' and template parameter
1228 of `h' in the above examples. Here ARGS corresponds to `int'. */
1230 tree context = DECL_CONTEXT (decl);
1231 tree args = NULL_TREE;
1232 int current_depth = 0;
1234 while (current_depth < template_depth)
1236 if (CLASSTYPE_TEMPLATE_INFO (context))
1238 if (current_depth == 0)
1239 args = TYPE_TI_ARGS (context);
1240 else
1241 args = add_to_template_args (TYPE_TI_ARGS (context), args);
1242 current_depth++;
1244 context = TYPE_CONTEXT (context);
1247 if (TREE_CODE (decl) == FUNCTION_DECL)
1249 bool is_template;
1250 tree friend_type;
1251 tree decl_type;
1252 tree friend_args_type;
1253 tree decl_args_type;
1255 /* Make sure that both DECL and FRIEND_DECL are templates or
1256 non-templates. */
1257 is_template = DECL_TEMPLATE_INFO (decl)
1258 && PRIMARY_TEMPLATE_P (DECL_TI_TEMPLATE (decl));
1259 if (need_template ^ is_template)
1260 return false;
1261 else if (is_template)
1263 /* If both are templates, check template parameter list. */
1264 tree friend_parms
1265 = tsubst_template_parms (DECL_TEMPLATE_PARMS (friend_decl),
1266 args, tf_none);
1267 if (!comp_template_parms
1268 (DECL_TEMPLATE_PARMS (DECL_TI_TEMPLATE (decl)),
1269 friend_parms))
1270 return false;
1272 decl_type = TREE_TYPE (DECL_TI_TEMPLATE (decl));
1274 else
1275 decl_type = TREE_TYPE (decl);
1277 friend_type = tsubst_function_type (TREE_TYPE (friend_decl), args,
1278 tf_none, NULL_TREE);
1279 if (friend_type == error_mark_node)
1280 return false;
1282 /* Check if return types match. */
1283 if (!same_type_p (TREE_TYPE (decl_type), TREE_TYPE (friend_type)))
1284 return false;
1286 /* Check if function parameter types match, ignoring the
1287 `this' parameter. */
1288 friend_args_type = TYPE_ARG_TYPES (friend_type);
1289 decl_args_type = TYPE_ARG_TYPES (decl_type);
1290 if (DECL_NONSTATIC_MEMBER_FUNCTION_P (friend_decl))
1291 friend_args_type = TREE_CHAIN (friend_args_type);
1292 if (DECL_NONSTATIC_MEMBER_FUNCTION_P (decl))
1293 decl_args_type = TREE_CHAIN (decl_args_type);
1295 return compparms (decl_args_type, friend_args_type);
1297 else
1299 /* DECL is a TYPE_DECL */
1300 bool is_template;
1301 tree decl_type = TREE_TYPE (decl);
1303 /* Make sure that both DECL and FRIEND_DECL are templates or
1304 non-templates. */
1305 is_template
1306 = CLASSTYPE_TEMPLATE_INFO (decl_type)
1307 && PRIMARY_TEMPLATE_P (CLASSTYPE_TI_TEMPLATE (decl_type));
1309 if (need_template ^ is_template)
1310 return false;
1311 else if (is_template)
1313 tree friend_parms;
1314 /* If both are templates, check the name of the two
1315 TEMPLATE_DECL's first because is_friend didn't. */
1316 if (DECL_NAME (CLASSTYPE_TI_TEMPLATE (decl_type))
1317 != DECL_NAME (friend_decl))
1318 return false;
1320 /* Now check template parameter list. */
1321 friend_parms
1322 = tsubst_template_parms (DECL_TEMPLATE_PARMS (friend_decl),
1323 args, tf_none);
1324 return comp_template_parms
1325 (DECL_TEMPLATE_PARMS (CLASSTYPE_TI_TEMPLATE (decl_type)),
1326 friend_parms);
1328 else
1329 return (DECL_NAME (decl)
1330 == DECL_NAME (friend_decl));
1333 return false;
1336 /* Register the specialization SPEC as a specialization of TMPL with
1337 the indicated ARGS. IS_FRIEND indicates whether the specialization
1338 is actually just a friend declaration. Returns SPEC, or an
1339 equivalent prior declaration, if available.
1341 We also store instantiations of field packs in the hash table, even
1342 though they are not themselves templates, to make lookup easier. */
1344 static tree
1345 register_specialization (tree spec, tree tmpl, tree args, bool is_friend,
1346 hashval_t hash)
1348 tree fn;
1349 void **slot = NULL;
1350 spec_entry elt;
1352 gcc_assert ((TREE_CODE (tmpl) == TEMPLATE_DECL && DECL_P (spec))
1353 || (TREE_CODE (tmpl) == FIELD_DECL
1354 && TREE_CODE (spec) == NONTYPE_ARGUMENT_PACK));
1356 if (TREE_CODE (spec) == FUNCTION_DECL
1357 && uses_template_parms (DECL_TI_ARGS (spec)))
1358 /* This is the FUNCTION_DECL for a partial instantiation. Don't
1359 register it; we want the corresponding TEMPLATE_DECL instead.
1360 We use `uses_template_parms (DECL_TI_ARGS (spec))' rather than
1361 the more obvious `uses_template_parms (spec)' to avoid problems
1362 with default function arguments. In particular, given
1363 something like this:
1365 template <class T> void f(T t1, T t = T())
1367 the default argument expression is not substituted for in an
1368 instantiation unless and until it is actually needed. */
1369 return spec;
1371 if (optimize_specialization_lookup_p (tmpl))
1372 /* We don't put these specializations in the hash table, but we might
1373 want to give an error about a mismatch. */
1374 fn = retrieve_specialization (tmpl, args, 0);
1375 else
1377 elt.tmpl = tmpl;
1378 elt.args = args;
1379 elt.spec = spec;
1381 if (hash == 0)
1382 hash = hash_specialization (&elt);
1384 slot =
1385 htab_find_slot_with_hash (decl_specializations, &elt, hash, INSERT);
1386 if (*slot)
1387 fn = ((spec_entry *) *slot)->spec;
1388 else
1389 fn = NULL_TREE;
1392 /* We can sometimes try to re-register a specialization that we've
1393 already got. In particular, regenerate_decl_from_template calls
1394 duplicate_decls which will update the specialization list. But,
1395 we'll still get called again here anyhow. It's more convenient
1396 to simply allow this than to try to prevent it. */
1397 if (fn == spec)
1398 return spec;
1399 else if (fn && DECL_TEMPLATE_SPECIALIZATION (spec))
1401 if (DECL_TEMPLATE_INSTANTIATION (fn))
1403 if (DECL_ODR_USED (fn)
1404 || DECL_EXPLICIT_INSTANTIATION (fn))
1406 error ("specialization of %qD after instantiation",
1407 fn);
1408 return error_mark_node;
1410 else
1412 tree clone;
1413 /* This situation should occur only if the first
1414 specialization is an implicit instantiation, the
1415 second is an explicit specialization, and the
1416 implicit instantiation has not yet been used. That
1417 situation can occur if we have implicitly
1418 instantiated a member function and then specialized
1419 it later.
1421 We can also wind up here if a friend declaration that
1422 looked like an instantiation turns out to be a
1423 specialization:
1425 template <class T> void foo(T);
1426 class S { friend void foo<>(int) };
1427 template <> void foo(int);
1429 We transform the existing DECL in place so that any
1430 pointers to it become pointers to the updated
1431 declaration.
1433 If there was a definition for the template, but not
1434 for the specialization, we want this to look as if
1435 there were no definition, and vice versa. */
1436 DECL_INITIAL (fn) = NULL_TREE;
1437 duplicate_decls (spec, fn, is_friend);
1438 /* The call to duplicate_decls will have applied
1439 [temp.expl.spec]:
1441 An explicit specialization of a function template
1442 is inline only if it is explicitly declared to be,
1443 and independently of whether its function template
1446 to the primary function; now copy the inline bits to
1447 the various clones. */
1448 FOR_EACH_CLONE (clone, fn)
1450 DECL_DECLARED_INLINE_P (clone)
1451 = DECL_DECLARED_INLINE_P (fn);
1452 DECL_SOURCE_LOCATION (clone)
1453 = DECL_SOURCE_LOCATION (fn);
1454 DECL_DELETED_FN (clone)
1455 = DECL_DELETED_FN (fn);
1457 check_specialization_namespace (tmpl);
1459 return fn;
1462 else if (DECL_TEMPLATE_SPECIALIZATION (fn))
1464 if (!duplicate_decls (spec, fn, is_friend) && DECL_INITIAL (spec))
1465 /* Dup decl failed, but this is a new definition. Set the
1466 line number so any errors match this new
1467 definition. */
1468 DECL_SOURCE_LOCATION (fn) = DECL_SOURCE_LOCATION (spec);
1470 return fn;
1473 else if (fn)
1474 return duplicate_decls (spec, fn, is_friend);
1476 /* A specialization must be declared in the same namespace as the
1477 template it is specializing. */
1478 if (DECL_P (spec) && DECL_TEMPLATE_SPECIALIZATION (spec)
1479 && !check_specialization_namespace (tmpl))
1480 DECL_CONTEXT (spec) = DECL_CONTEXT (tmpl);
1482 if (slot != NULL /* !optimize_specialization_lookup_p (tmpl) */)
1484 spec_entry *entry = ggc_alloc<spec_entry> ();
1485 gcc_assert (tmpl && args && spec);
1486 *entry = elt;
1487 *slot = entry;
1488 if (TREE_CODE (spec) == FUNCTION_DECL && DECL_NAMESPACE_SCOPE_P (spec)
1489 && PRIMARY_TEMPLATE_P (tmpl)
1490 && DECL_SAVED_TREE (DECL_TEMPLATE_RESULT (tmpl)) == NULL_TREE)
1491 /* TMPL is a forward declaration of a template function; keep a list
1492 of all specializations in case we need to reassign them to a friend
1493 template later in tsubst_friend_function. */
1494 DECL_TEMPLATE_INSTANTIATIONS (tmpl)
1495 = tree_cons (args, spec, DECL_TEMPLATE_INSTANTIATIONS (tmpl));
1498 return spec;
1501 /* Returns true iff two spec_entry nodes are equivalent. Only compares the
1502 TMPL and ARGS members, ignores SPEC. */
1504 int comparing_specializations;
1506 static int
1507 eq_specializations (const void *p1, const void *p2)
1509 const spec_entry *e1 = (const spec_entry *)p1;
1510 const spec_entry *e2 = (const spec_entry *)p2;
1511 int equal;
1513 ++comparing_specializations;
1514 equal = (e1->tmpl == e2->tmpl
1515 && comp_template_args (e1->args, e2->args));
1516 --comparing_specializations;
1518 return equal;
1521 /* Returns a hash for a template TMPL and template arguments ARGS. */
1523 static hashval_t
1524 hash_tmpl_and_args (tree tmpl, tree args)
1526 hashval_t val = DECL_UID (tmpl);
1527 return iterative_hash_template_arg (args, val);
1530 /* Returns a hash for a spec_entry node based on the TMPL and ARGS members,
1531 ignoring SPEC. */
1533 static hashval_t
1534 hash_specialization (const void *p)
1536 const spec_entry *e = (const spec_entry *)p;
1537 return hash_tmpl_and_args (e->tmpl, e->args);
1540 /* Recursively calculate a hash value for a template argument ARG, for use
1541 in the hash tables of template specializations. */
1543 hashval_t
1544 iterative_hash_template_arg (tree arg, hashval_t val)
1546 unsigned HOST_WIDE_INT i;
1547 enum tree_code code;
1548 char tclass;
1550 if (arg == NULL_TREE)
1551 return iterative_hash_object (arg, val);
1553 if (!TYPE_P (arg))
1554 STRIP_NOPS (arg);
1556 if (TREE_CODE (arg) == ARGUMENT_PACK_SELECT)
1557 /* We can get one of these when re-hashing a previous entry in the middle
1558 of substituting into a pack expansion. Just look through it. */
1559 arg = ARGUMENT_PACK_SELECT_FROM_PACK (arg);
1561 code = TREE_CODE (arg);
1562 tclass = TREE_CODE_CLASS (code);
1564 val = iterative_hash_object (code, val);
1566 switch (code)
1568 case ERROR_MARK:
1569 return val;
1571 case IDENTIFIER_NODE:
1572 return iterative_hash_object (IDENTIFIER_HASH_VALUE (arg), val);
1574 case TREE_VEC:
1576 int i, len = TREE_VEC_LENGTH (arg);
1577 for (i = 0; i < len; ++i)
1578 val = iterative_hash_template_arg (TREE_VEC_ELT (arg, i), val);
1579 return val;
1582 case TYPE_PACK_EXPANSION:
1583 case EXPR_PACK_EXPANSION:
1584 val = iterative_hash_template_arg (PACK_EXPANSION_PATTERN (arg), val);
1585 return iterative_hash_template_arg (PACK_EXPANSION_EXTRA_ARGS (arg), val);
1587 case TYPE_ARGUMENT_PACK:
1588 case NONTYPE_ARGUMENT_PACK:
1589 return iterative_hash_template_arg (ARGUMENT_PACK_ARGS (arg), val);
1591 case TREE_LIST:
1592 for (; arg; arg = TREE_CHAIN (arg))
1593 val = iterative_hash_template_arg (TREE_VALUE (arg), val);
1594 return val;
1596 case OVERLOAD:
1597 for (; arg; arg = OVL_NEXT (arg))
1598 val = iterative_hash_template_arg (OVL_CURRENT (arg), val);
1599 return val;
1601 case CONSTRUCTOR:
1603 tree field, value;
1604 FOR_EACH_CONSTRUCTOR_ELT (CONSTRUCTOR_ELTS (arg), i, field, value)
1606 val = iterative_hash_template_arg (field, val);
1607 val = iterative_hash_template_arg (value, val);
1609 return val;
1612 case PARM_DECL:
1613 if (!DECL_ARTIFICIAL (arg))
1615 val = iterative_hash_object (DECL_PARM_INDEX (arg), val);
1616 val = iterative_hash_object (DECL_PARM_LEVEL (arg), val);
1618 return iterative_hash_template_arg (TREE_TYPE (arg), val);
1620 case TARGET_EXPR:
1621 return iterative_hash_template_arg (TARGET_EXPR_INITIAL (arg), val);
1623 case PTRMEM_CST:
1624 val = iterative_hash_template_arg (PTRMEM_CST_CLASS (arg), val);
1625 return iterative_hash_template_arg (PTRMEM_CST_MEMBER (arg), val);
1627 case TEMPLATE_PARM_INDEX:
1628 val = iterative_hash_template_arg
1629 (TREE_TYPE (TEMPLATE_PARM_DECL (arg)), val);
1630 val = iterative_hash_object (TEMPLATE_PARM_LEVEL (arg), val);
1631 return iterative_hash_object (TEMPLATE_PARM_IDX (arg), val);
1633 case TRAIT_EXPR:
1634 val = iterative_hash_object (TRAIT_EXPR_KIND (arg), val);
1635 val = iterative_hash_template_arg (TRAIT_EXPR_TYPE1 (arg), val);
1636 return iterative_hash_template_arg (TRAIT_EXPR_TYPE2 (arg), val);
1638 case BASELINK:
1639 val = iterative_hash_template_arg (BINFO_TYPE (BASELINK_BINFO (arg)),
1640 val);
1641 return iterative_hash_template_arg (DECL_NAME (get_first_fn (arg)),
1642 val);
1644 case MODOP_EXPR:
1645 val = iterative_hash_template_arg (TREE_OPERAND (arg, 0), val);
1646 code = TREE_CODE (TREE_OPERAND (arg, 1));
1647 val = iterative_hash_object (code, val);
1648 return iterative_hash_template_arg (TREE_OPERAND (arg, 2), val);
1650 case LAMBDA_EXPR:
1651 /* A lambda can't appear in a template arg, but don't crash on
1652 erroneous input. */
1653 gcc_assert (seen_error ());
1654 return val;
1656 case CAST_EXPR:
1657 case IMPLICIT_CONV_EXPR:
1658 case STATIC_CAST_EXPR:
1659 case REINTERPRET_CAST_EXPR:
1660 case CONST_CAST_EXPR:
1661 case DYNAMIC_CAST_EXPR:
1662 case NEW_EXPR:
1663 val = iterative_hash_template_arg (TREE_TYPE (arg), val);
1664 /* Now hash operands as usual. */
1665 break;
1667 default:
1668 break;
1671 switch (tclass)
1673 case tcc_type:
1674 if (TYPE_CANONICAL (arg))
1675 return iterative_hash_object (TYPE_HASH (TYPE_CANONICAL (arg)),
1676 val);
1677 else if (TREE_CODE (arg) == DECLTYPE_TYPE)
1678 return iterative_hash_template_arg (DECLTYPE_TYPE_EXPR (arg), val);
1679 /* Otherwise just compare the types during lookup. */
1680 return val;
1682 case tcc_declaration:
1683 case tcc_constant:
1684 return iterative_hash_expr (arg, val);
1686 default:
1687 gcc_assert (IS_EXPR_CODE_CLASS (tclass));
1689 unsigned n = cp_tree_operand_length (arg);
1690 for (i = 0; i < n; ++i)
1691 val = iterative_hash_template_arg (TREE_OPERAND (arg, i), val);
1692 return val;
1695 gcc_unreachable ();
1696 return 0;
1699 /* Unregister the specialization SPEC as a specialization of TMPL.
1700 Replace it with NEW_SPEC, if NEW_SPEC is non-NULL. Returns true
1701 if the SPEC was listed as a specialization of TMPL.
1703 Note that SPEC has been ggc_freed, so we can't look inside it. */
1705 bool
1706 reregister_specialization (tree spec, tree tinfo, tree new_spec)
1708 spec_entry *entry;
1709 spec_entry elt;
1711 elt.tmpl = most_general_template (TI_TEMPLATE (tinfo));
1712 elt.args = TI_ARGS (tinfo);
1713 elt.spec = NULL_TREE;
1715 entry = (spec_entry *) htab_find (decl_specializations, &elt);
1716 if (entry != NULL)
1718 gcc_assert (entry->spec == spec || entry->spec == new_spec);
1719 gcc_assert (new_spec != NULL_TREE);
1720 entry->spec = new_spec;
1721 return 1;
1724 return 0;
1727 /* Like register_specialization, but for local declarations. We are
1728 registering SPEC, an instantiation of TMPL. */
1730 static void
1731 register_local_specialization (tree spec, tree tmpl)
1733 void **slot;
1735 slot = pointer_map_insert (local_specializations, tmpl);
1736 *slot = spec;
1739 /* TYPE is a class type. Returns true if TYPE is an explicitly
1740 specialized class. */
1742 bool
1743 explicit_class_specialization_p (tree type)
1745 if (!CLASSTYPE_TEMPLATE_SPECIALIZATION (type))
1746 return false;
1747 return !uses_template_parms (CLASSTYPE_TI_ARGS (type));
1750 /* Print the list of functions at FNS, going through all the overloads
1751 for each element of the list. Alternatively, FNS can not be a
1752 TREE_LIST, in which case it will be printed together with all the
1753 overloads.
1755 MORE and *STR should respectively be FALSE and NULL when the function
1756 is called from the outside. They are used internally on recursive
1757 calls. print_candidates manages the two parameters and leaves NULL
1758 in *STR when it ends. */
1760 static void
1761 print_candidates_1 (tree fns, bool more, const char **str)
1763 tree fn, fn2;
1764 char *spaces = NULL;
1766 for (fn = fns; fn; fn = OVL_NEXT (fn))
1767 if (TREE_CODE (fn) == TREE_LIST)
1769 for (fn2 = fn; fn2 != NULL_TREE; fn2 = TREE_CHAIN (fn2))
1770 print_candidates_1 (TREE_VALUE (fn2),
1771 TREE_CHAIN (fn2) || more, str);
1773 else
1775 tree cand = OVL_CURRENT (fn);
1776 if (!*str)
1778 /* Pick the prefix string. */
1779 if (!more && !OVL_NEXT (fns))
1781 inform (DECL_SOURCE_LOCATION (cand),
1782 "candidate is: %#D", cand);
1783 continue;
1786 *str = _("candidates are:");
1787 spaces = get_spaces (*str);
1789 inform (DECL_SOURCE_LOCATION (cand), "%s %#D", *str, cand);
1790 *str = spaces ? spaces : *str;
1793 if (!more)
1795 free (spaces);
1796 *str = NULL;
1800 /* Print the list of candidate FNS in an error message. FNS can also
1801 be a TREE_LIST of non-functions in the case of an ambiguous lookup. */
1803 void
1804 print_candidates (tree fns)
1806 const char *str = NULL;
1807 print_candidates_1 (fns, false, &str);
1808 gcc_assert (str == NULL);
1811 /* Returns the template (one of the functions given by TEMPLATE_ID)
1812 which can be specialized to match the indicated DECL with the
1813 explicit template args given in TEMPLATE_ID. The DECL may be
1814 NULL_TREE if none is available. In that case, the functions in
1815 TEMPLATE_ID are non-members.
1817 If NEED_MEMBER_TEMPLATE is nonzero the function is known to be a
1818 specialization of a member template.
1820 The TEMPLATE_COUNT is the number of references to qualifying
1821 template classes that appeared in the name of the function. See
1822 check_explicit_specialization for a more accurate description.
1824 TSK indicates what kind of template declaration (if any) is being
1825 declared. TSK_TEMPLATE indicates that the declaration given by
1826 DECL, though a FUNCTION_DECL, has template parameters, and is
1827 therefore a template function.
1829 The template args (those explicitly specified and those deduced)
1830 are output in a newly created vector *TARGS_OUT.
1832 If it is impossible to determine the result, an error message is
1833 issued. The error_mark_node is returned to indicate failure. */
1835 static tree
1836 determine_specialization (tree template_id,
1837 tree decl,
1838 tree* targs_out,
1839 int need_member_template,
1840 int template_count,
1841 tmpl_spec_kind tsk)
1843 tree fns;
1844 tree targs;
1845 tree explicit_targs;
1846 tree candidates = NULL_TREE;
1847 /* A TREE_LIST of templates of which DECL may be a specialization.
1848 The TREE_VALUE of each node is a TEMPLATE_DECL. The
1849 corresponding TREE_PURPOSE is the set of template arguments that,
1850 when used to instantiate the template, would produce a function
1851 with the signature of DECL. */
1852 tree templates = NULL_TREE;
1853 int header_count;
1854 cp_binding_level *b;
1856 *targs_out = NULL_TREE;
1858 if (template_id == error_mark_node || decl == error_mark_node)
1859 return error_mark_node;
1861 /* We shouldn't be specializing a member template of an
1862 unspecialized class template; we already gave an error in
1863 check_specialization_scope, now avoid crashing. */
1864 if (template_count && DECL_CLASS_SCOPE_P (decl)
1865 && template_class_depth (DECL_CONTEXT (decl)) > 0)
1867 gcc_assert (errorcount);
1868 return error_mark_node;
1871 fns = TREE_OPERAND (template_id, 0);
1872 explicit_targs = TREE_OPERAND (template_id, 1);
1874 if (fns == error_mark_node)
1875 return error_mark_node;
1877 /* Check for baselinks. */
1878 if (BASELINK_P (fns))
1879 fns = BASELINK_FUNCTIONS (fns);
1881 if (!is_overloaded_fn (fns))
1883 error ("%qD is not a function template", fns);
1884 return error_mark_node;
1887 /* Count the number of template headers specified for this
1888 specialization. */
1889 header_count = 0;
1890 for (b = current_binding_level;
1891 b->kind == sk_template_parms;
1892 b = b->level_chain)
1893 ++header_count;
1895 for (; fns; fns = OVL_NEXT (fns))
1897 tree fn = OVL_CURRENT (fns);
1899 if (TREE_CODE (fn) == TEMPLATE_DECL)
1901 tree decl_arg_types;
1902 tree fn_arg_types;
1903 tree insttype;
1905 /* In case of explicit specialization, we need to check if
1906 the number of template headers appearing in the specialization
1907 is correct. This is usually done in check_explicit_specialization,
1908 but the check done there cannot be exhaustive when specializing
1909 member functions. Consider the following code:
1911 template <> void A<int>::f(int);
1912 template <> template <> void A<int>::f(int);
1914 Assuming that A<int> is not itself an explicit specialization
1915 already, the first line specializes "f" which is a non-template
1916 member function, whilst the second line specializes "f" which
1917 is a template member function. So both lines are syntactically
1918 correct, and check_explicit_specialization does not reject
1919 them.
1921 Here, we can do better, as we are matching the specialization
1922 against the declarations. We count the number of template
1923 headers, and we check if they match TEMPLATE_COUNT + 1
1924 (TEMPLATE_COUNT is the number of qualifying template classes,
1925 plus there must be another header for the member template
1926 itself).
1928 Notice that if header_count is zero, this is not a
1929 specialization but rather a template instantiation, so there
1930 is no check we can perform here. */
1931 if (header_count && header_count != template_count + 1)
1932 continue;
1934 /* Check that the number of template arguments at the
1935 innermost level for DECL is the same as for FN. */
1936 if (current_binding_level->kind == sk_template_parms
1937 && !current_binding_level->explicit_spec_p
1938 && (TREE_VEC_LENGTH (DECL_INNERMOST_TEMPLATE_PARMS (fn))
1939 != TREE_VEC_LENGTH (INNERMOST_TEMPLATE_PARMS
1940 (current_template_parms))))
1941 continue;
1943 /* DECL might be a specialization of FN. */
1944 decl_arg_types = TYPE_ARG_TYPES (TREE_TYPE (decl));
1945 fn_arg_types = TYPE_ARG_TYPES (TREE_TYPE (fn));
1947 /* For a non-static member function, we need to make sure
1948 that the const qualification is the same. Since
1949 get_bindings does not try to merge the "this" parameter,
1950 we must do the comparison explicitly. */
1951 if (DECL_NONSTATIC_MEMBER_FUNCTION_P (fn)
1952 && !same_type_p (TREE_VALUE (fn_arg_types),
1953 TREE_VALUE (decl_arg_types)))
1954 continue;
1956 /* Skip the "this" parameter and, for constructors of
1957 classes with virtual bases, the VTT parameter. A
1958 full specialization of a constructor will have a VTT
1959 parameter, but a template never will. */
1960 decl_arg_types
1961 = skip_artificial_parms_for (decl, decl_arg_types);
1962 fn_arg_types
1963 = skip_artificial_parms_for (fn, fn_arg_types);
1965 /* Function templates cannot be specializations; there are
1966 no partial specializations of functions. Therefore, if
1967 the type of DECL does not match FN, there is no
1968 match. */
1969 if (tsk == tsk_template)
1971 if (compparms (fn_arg_types, decl_arg_types))
1972 candidates = tree_cons (NULL_TREE, fn, candidates);
1973 continue;
1976 /* See whether this function might be a specialization of this
1977 template. Suppress access control because we might be trying
1978 to make this specialization a friend, and we have already done
1979 access control for the declaration of the specialization. */
1980 push_deferring_access_checks (dk_no_check);
1981 targs = get_bindings (fn, decl, explicit_targs, /*check_ret=*/true);
1982 pop_deferring_access_checks ();
1984 if (!targs)
1985 /* We cannot deduce template arguments that when used to
1986 specialize TMPL will produce DECL. */
1987 continue;
1989 /* Make sure that the deduced arguments actually work. */
1990 insttype = tsubst (TREE_TYPE (fn), targs, tf_none, NULL_TREE);
1991 if (insttype == error_mark_node)
1992 continue;
1993 fn_arg_types
1994 = skip_artificial_parms_for (fn, TYPE_ARG_TYPES (insttype));
1995 if (!compparms (fn_arg_types, decl_arg_types))
1996 continue;
1998 /* Save this template, and the arguments deduced. */
1999 templates = tree_cons (targs, fn, templates);
2001 else if (need_member_template)
2002 /* FN is an ordinary member function, and we need a
2003 specialization of a member template. */
2005 else if (TREE_CODE (fn) != FUNCTION_DECL)
2006 /* We can get IDENTIFIER_NODEs here in certain erroneous
2007 cases. */
2009 else if (!DECL_FUNCTION_MEMBER_P (fn))
2010 /* This is just an ordinary non-member function. Nothing can
2011 be a specialization of that. */
2013 else if (DECL_ARTIFICIAL (fn))
2014 /* Cannot specialize functions that are created implicitly. */
2016 else
2018 tree decl_arg_types;
2020 /* This is an ordinary member function. However, since
2021 we're here, we can assume its enclosing class is a
2022 template class. For example,
2024 template <typename T> struct S { void f(); };
2025 template <> void S<int>::f() {}
2027 Here, S<int>::f is a non-template, but S<int> is a
2028 template class. If FN has the same type as DECL, we
2029 might be in business. */
2031 if (!DECL_TEMPLATE_INFO (fn))
2032 /* Its enclosing class is an explicit specialization
2033 of a template class. This is not a candidate. */
2034 continue;
2036 if (!same_type_p (TREE_TYPE (TREE_TYPE (decl)),
2037 TREE_TYPE (TREE_TYPE (fn))))
2038 /* The return types differ. */
2039 continue;
2041 /* Adjust the type of DECL in case FN is a static member. */
2042 decl_arg_types = TYPE_ARG_TYPES (TREE_TYPE (decl));
2043 if (DECL_STATIC_FUNCTION_P (fn)
2044 && DECL_NONSTATIC_MEMBER_FUNCTION_P (decl))
2045 decl_arg_types = TREE_CHAIN (decl_arg_types);
2047 if (compparms (TYPE_ARG_TYPES (TREE_TYPE (fn)),
2048 decl_arg_types))
2049 /* They match! */
2050 candidates = tree_cons (NULL_TREE, fn, candidates);
2054 if (templates && TREE_CHAIN (templates))
2056 /* We have:
2058 [temp.expl.spec]
2060 It is possible for a specialization with a given function
2061 signature to be instantiated from more than one function
2062 template. In such cases, explicit specification of the
2063 template arguments must be used to uniquely identify the
2064 function template specialization being specialized.
2066 Note that here, there's no suggestion that we're supposed to
2067 determine which of the candidate templates is most
2068 specialized. However, we, also have:
2070 [temp.func.order]
2072 Partial ordering of overloaded function template
2073 declarations is used in the following contexts to select
2074 the function template to which a function template
2075 specialization refers:
2077 -- when an explicit specialization refers to a function
2078 template.
2080 So, we do use the partial ordering rules, at least for now.
2081 This extension can only serve to make invalid programs valid,
2082 so it's safe. And, there is strong anecdotal evidence that
2083 the committee intended the partial ordering rules to apply;
2084 the EDG front end has that behavior, and John Spicer claims
2085 that the committee simply forgot to delete the wording in
2086 [temp.expl.spec]. */
2087 tree tmpl = most_specialized_instantiation (templates);
2088 if (tmpl != error_mark_node)
2090 templates = tmpl;
2091 TREE_CHAIN (templates) = NULL_TREE;
2095 if (templates == NULL_TREE && candidates == NULL_TREE)
2097 error ("template-id %qD for %q+D does not match any template "
2098 "declaration", template_id, decl);
2099 if (header_count && header_count != template_count + 1)
2100 inform (input_location, "saw %d %<template<>%>, need %d for "
2101 "specializing a member function template",
2102 header_count, template_count + 1);
2103 return error_mark_node;
2105 else if ((templates && TREE_CHAIN (templates))
2106 || (candidates && TREE_CHAIN (candidates))
2107 || (templates && candidates))
2109 error ("ambiguous template specialization %qD for %q+D",
2110 template_id, decl);
2111 candidates = chainon (candidates, templates);
2112 print_candidates (candidates);
2113 return error_mark_node;
2116 /* We have one, and exactly one, match. */
2117 if (candidates)
2119 tree fn = TREE_VALUE (candidates);
2120 *targs_out = copy_node (DECL_TI_ARGS (fn));
2121 /* DECL is a re-declaration or partial instantiation of a template
2122 function. */
2123 if (TREE_CODE (fn) == TEMPLATE_DECL)
2124 return fn;
2125 /* It was a specialization of an ordinary member function in a
2126 template class. */
2127 return DECL_TI_TEMPLATE (fn);
2130 /* It was a specialization of a template. */
2131 targs = DECL_TI_ARGS (DECL_TEMPLATE_RESULT (TREE_VALUE (templates)));
2132 if (TMPL_ARGS_HAVE_MULTIPLE_LEVELS (targs))
2134 *targs_out = copy_node (targs);
2135 SET_TMPL_ARGS_LEVEL (*targs_out,
2136 TMPL_ARGS_DEPTH (*targs_out),
2137 TREE_PURPOSE (templates));
2139 else
2140 *targs_out = TREE_PURPOSE (templates);
2141 return TREE_VALUE (templates);
2144 /* Returns a chain of parameter types, exactly like the SPEC_TYPES,
2145 but with the default argument values filled in from those in the
2146 TMPL_TYPES. */
2148 static tree
2149 copy_default_args_to_explicit_spec_1 (tree spec_types,
2150 tree tmpl_types)
2152 tree new_spec_types;
2154 if (!spec_types)
2155 return NULL_TREE;
2157 if (spec_types == void_list_node)
2158 return void_list_node;
2160 /* Substitute into the rest of the list. */
2161 new_spec_types =
2162 copy_default_args_to_explicit_spec_1 (TREE_CHAIN (spec_types),
2163 TREE_CHAIN (tmpl_types));
2165 /* Add the default argument for this parameter. */
2166 return hash_tree_cons (TREE_PURPOSE (tmpl_types),
2167 TREE_VALUE (spec_types),
2168 new_spec_types);
2171 /* DECL is an explicit specialization. Replicate default arguments
2172 from the template it specializes. (That way, code like:
2174 template <class T> void f(T = 3);
2175 template <> void f(double);
2176 void g () { f (); }
2178 works, as required.) An alternative approach would be to look up
2179 the correct default arguments at the call-site, but this approach
2180 is consistent with how implicit instantiations are handled. */
2182 static void
2183 copy_default_args_to_explicit_spec (tree decl)
2185 tree tmpl;
2186 tree spec_types;
2187 tree tmpl_types;
2188 tree new_spec_types;
2189 tree old_type;
2190 tree new_type;
2191 tree t;
2192 tree object_type = NULL_TREE;
2193 tree in_charge = NULL_TREE;
2194 tree vtt = NULL_TREE;
2196 /* See if there's anything we need to do. */
2197 tmpl = DECL_TI_TEMPLATE (decl);
2198 tmpl_types = TYPE_ARG_TYPES (TREE_TYPE (DECL_TEMPLATE_RESULT (tmpl)));
2199 for (t = tmpl_types; t; t = TREE_CHAIN (t))
2200 if (TREE_PURPOSE (t))
2201 break;
2202 if (!t)
2203 return;
2205 old_type = TREE_TYPE (decl);
2206 spec_types = TYPE_ARG_TYPES (old_type);
2208 if (DECL_NONSTATIC_MEMBER_FUNCTION_P (decl))
2210 /* Remove the this pointer, but remember the object's type for
2211 CV quals. */
2212 object_type = TREE_TYPE (TREE_VALUE (spec_types));
2213 spec_types = TREE_CHAIN (spec_types);
2214 tmpl_types = TREE_CHAIN (tmpl_types);
2216 if (DECL_HAS_IN_CHARGE_PARM_P (decl))
2218 /* DECL may contain more parameters than TMPL due to the extra
2219 in-charge parameter in constructors and destructors. */
2220 in_charge = spec_types;
2221 spec_types = TREE_CHAIN (spec_types);
2223 if (DECL_HAS_VTT_PARM_P (decl))
2225 vtt = spec_types;
2226 spec_types = TREE_CHAIN (spec_types);
2230 /* Compute the merged default arguments. */
2231 new_spec_types =
2232 copy_default_args_to_explicit_spec_1 (spec_types, tmpl_types);
2234 /* Compute the new FUNCTION_TYPE. */
2235 if (object_type)
2237 if (vtt)
2238 new_spec_types = hash_tree_cons (TREE_PURPOSE (vtt),
2239 TREE_VALUE (vtt),
2240 new_spec_types);
2242 if (in_charge)
2243 /* Put the in-charge parameter back. */
2244 new_spec_types = hash_tree_cons (TREE_PURPOSE (in_charge),
2245 TREE_VALUE (in_charge),
2246 new_spec_types);
2248 new_type = build_method_type_directly (object_type,
2249 TREE_TYPE (old_type),
2250 new_spec_types);
2252 else
2253 new_type = build_function_type (TREE_TYPE (old_type),
2254 new_spec_types);
2255 new_type = cp_build_type_attribute_variant (new_type,
2256 TYPE_ATTRIBUTES (old_type));
2257 new_type = build_exception_variant (new_type,
2258 TYPE_RAISES_EXCEPTIONS (old_type));
2260 if (TYPE_HAS_LATE_RETURN_TYPE (old_type))
2261 TYPE_HAS_LATE_RETURN_TYPE (new_type) = 1;
2263 TREE_TYPE (decl) = new_type;
2266 /* Return the number of template headers we expect to see for a definition
2267 or specialization of CTYPE or one of its non-template members. */
2270 num_template_headers_for_class (tree ctype)
2272 int num_templates = 0;
2274 while (ctype && CLASS_TYPE_P (ctype))
2276 /* You're supposed to have one `template <...>' for every
2277 template class, but you don't need one for a full
2278 specialization. For example:
2280 template <class T> struct S{};
2281 template <> struct S<int> { void f(); };
2282 void S<int>::f () {}
2284 is correct; there shouldn't be a `template <>' for the
2285 definition of `S<int>::f'. */
2286 if (!CLASSTYPE_TEMPLATE_INFO (ctype))
2287 /* If CTYPE does not have template information of any
2288 kind, then it is not a template, nor is it nested
2289 within a template. */
2290 break;
2291 if (explicit_class_specialization_p (ctype))
2292 break;
2293 if (PRIMARY_TEMPLATE_P (CLASSTYPE_TI_TEMPLATE (ctype)))
2294 ++num_templates;
2296 ctype = TYPE_CONTEXT (ctype);
2299 return num_templates;
2302 /* Do a simple sanity check on the template headers that precede the
2303 variable declaration DECL. */
2305 void
2306 check_template_variable (tree decl)
2308 tree ctx = CP_DECL_CONTEXT (decl);
2309 int wanted = num_template_headers_for_class (ctx);
2310 if (!TYPE_P (ctx) || !CLASSTYPE_TEMPLATE_INFO (ctx))
2311 permerror (DECL_SOURCE_LOCATION (decl),
2312 "%qD is not a static data member of a class template", decl);
2313 else if (template_header_count > wanted)
2315 bool warned = pedwarn (DECL_SOURCE_LOCATION (decl), 0,
2316 "too many template headers for %D (should be %d)",
2317 decl, wanted);
2318 if (warned && CLASSTYPE_TEMPLATE_SPECIALIZATION (ctx))
2319 inform (DECL_SOURCE_LOCATION (decl),
2320 "members of an explicitly specialized class are defined "
2321 "without a template header");
2325 /* Check to see if the function just declared, as indicated in
2326 DECLARATOR, and in DECL, is a specialization of a function
2327 template. We may also discover that the declaration is an explicit
2328 instantiation at this point.
2330 Returns DECL, or an equivalent declaration that should be used
2331 instead if all goes well. Issues an error message if something is
2332 amiss. Returns error_mark_node if the error is not easily
2333 recoverable.
2335 FLAGS is a bitmask consisting of the following flags:
2337 2: The function has a definition.
2338 4: The function is a friend.
2340 The TEMPLATE_COUNT is the number of references to qualifying
2341 template classes that appeared in the name of the function. For
2342 example, in
2344 template <class T> struct S { void f(); };
2345 void S<int>::f();
2347 the TEMPLATE_COUNT would be 1. However, explicitly specialized
2348 classes are not counted in the TEMPLATE_COUNT, so that in
2350 template <class T> struct S {};
2351 template <> struct S<int> { void f(); }
2352 template <> void S<int>::f();
2354 the TEMPLATE_COUNT would be 0. (Note that this declaration is
2355 invalid; there should be no template <>.)
2357 If the function is a specialization, it is marked as such via
2358 DECL_TEMPLATE_SPECIALIZATION. Furthermore, its DECL_TEMPLATE_INFO
2359 is set up correctly, and it is added to the list of specializations
2360 for that template. */
2362 tree
2363 check_explicit_specialization (tree declarator,
2364 tree decl,
2365 int template_count,
2366 int flags)
2368 int have_def = flags & 2;
2369 int is_friend = flags & 4;
2370 int specialization = 0;
2371 int explicit_instantiation = 0;
2372 int member_specialization = 0;
2373 tree ctype = DECL_CLASS_CONTEXT (decl);
2374 tree dname = DECL_NAME (decl);
2375 tmpl_spec_kind tsk;
2377 if (is_friend)
2379 if (!processing_specialization)
2380 tsk = tsk_none;
2381 else
2382 tsk = tsk_excessive_parms;
2384 else
2385 tsk = current_tmpl_spec_kind (template_count);
2387 switch (tsk)
2389 case tsk_none:
2390 if (processing_specialization)
2392 specialization = 1;
2393 SET_DECL_TEMPLATE_SPECIALIZATION (decl);
2395 else if (TREE_CODE (declarator) == TEMPLATE_ID_EXPR)
2397 if (is_friend)
2398 /* This could be something like:
2400 template <class T> void f(T);
2401 class S { friend void f<>(int); } */
2402 specialization = 1;
2403 else
2405 /* This case handles bogus declarations like template <>
2406 template <class T> void f<int>(); */
2408 error ("template-id %qD in declaration of primary template",
2409 declarator);
2410 return decl;
2413 break;
2415 case tsk_invalid_member_spec:
2416 /* The error has already been reported in
2417 check_specialization_scope. */
2418 return error_mark_node;
2420 case tsk_invalid_expl_inst:
2421 error ("template parameter list used in explicit instantiation");
2423 /* Fall through. */
2425 case tsk_expl_inst:
2426 if (have_def)
2427 error ("definition provided for explicit instantiation");
2429 explicit_instantiation = 1;
2430 break;
2432 case tsk_excessive_parms:
2433 case tsk_insufficient_parms:
2434 if (tsk == tsk_excessive_parms)
2435 error ("too many template parameter lists in declaration of %qD",
2436 decl);
2437 else if (template_header_count)
2438 error("too few template parameter lists in declaration of %qD", decl);
2439 else
2440 error("explicit specialization of %qD must be introduced by "
2441 "%<template <>%>", decl);
2443 /* Fall through. */
2444 case tsk_expl_spec:
2445 SET_DECL_TEMPLATE_SPECIALIZATION (decl);
2446 if (ctype)
2447 member_specialization = 1;
2448 else
2449 specialization = 1;
2450 break;
2452 case tsk_template:
2453 if (TREE_CODE (declarator) == TEMPLATE_ID_EXPR)
2455 /* This case handles bogus declarations like template <>
2456 template <class T> void f<int>(); */
2458 if (uses_template_parms (declarator))
2459 error ("function template partial specialization %qD "
2460 "is not allowed", declarator);
2461 else
2462 error ("template-id %qD in declaration of primary template",
2463 declarator);
2464 return decl;
2467 if (ctype && CLASSTYPE_TEMPLATE_INSTANTIATION (ctype))
2468 /* This is a specialization of a member template, without
2469 specialization the containing class. Something like:
2471 template <class T> struct S {
2472 template <class U> void f (U);
2474 template <> template <class U> void S<int>::f(U) {}
2476 That's a specialization -- but of the entire template. */
2477 specialization = 1;
2478 break;
2480 default:
2481 gcc_unreachable ();
2484 if (specialization || member_specialization)
2486 tree t = TYPE_ARG_TYPES (TREE_TYPE (decl));
2487 for (; t; t = TREE_CHAIN (t))
2488 if (TREE_PURPOSE (t))
2490 permerror (input_location,
2491 "default argument specified in explicit specialization");
2492 break;
2496 if (specialization || member_specialization || explicit_instantiation)
2498 tree tmpl = NULL_TREE;
2499 tree targs = NULL_TREE;
2501 /* Make sure that the declarator is a TEMPLATE_ID_EXPR. */
2502 if (TREE_CODE (declarator) != TEMPLATE_ID_EXPR)
2504 tree fns;
2506 gcc_assert (identifier_p (declarator));
2507 if (ctype)
2508 fns = dname;
2509 else
2511 /* If there is no class context, the explicit instantiation
2512 must be at namespace scope. */
2513 gcc_assert (DECL_NAMESPACE_SCOPE_P (decl));
2515 /* Find the namespace binding, using the declaration
2516 context. */
2517 fns = lookup_qualified_name (CP_DECL_CONTEXT (decl), dname,
2518 false, true);
2519 if (fns == error_mark_node || !is_overloaded_fn (fns))
2521 error ("%qD is not a template function", dname);
2522 fns = error_mark_node;
2524 else
2526 tree fn = OVL_CURRENT (fns);
2527 if (!is_associated_namespace (CP_DECL_CONTEXT (decl),
2528 CP_DECL_CONTEXT (fn)))
2529 error ("%qD is not declared in %qD",
2530 decl, current_namespace);
2534 declarator = lookup_template_function (fns, NULL_TREE);
2537 if (declarator == error_mark_node)
2538 return error_mark_node;
2540 if (ctype != NULL_TREE && TYPE_BEING_DEFINED (ctype))
2542 if (!explicit_instantiation)
2543 /* A specialization in class scope. This is invalid,
2544 but the error will already have been flagged by
2545 check_specialization_scope. */
2546 return error_mark_node;
2547 else
2549 /* It's not valid to write an explicit instantiation in
2550 class scope, e.g.:
2552 class C { template void f(); }
2554 This case is caught by the parser. However, on
2555 something like:
2557 template class C { void f(); };
2559 (which is invalid) we can get here. The error will be
2560 issued later. */
2564 return decl;
2566 else if (ctype != NULL_TREE
2567 && (identifier_p (TREE_OPERAND (declarator, 0))))
2569 /* Find the list of functions in ctype that have the same
2570 name as the declared function. */
2571 tree name = TREE_OPERAND (declarator, 0);
2572 tree fns = NULL_TREE;
2573 int idx;
2575 if (constructor_name_p (name, ctype))
2577 int is_constructor = DECL_CONSTRUCTOR_P (decl);
2579 if (is_constructor ? !TYPE_HAS_USER_CONSTRUCTOR (ctype)
2580 : !CLASSTYPE_DESTRUCTORS (ctype))
2582 /* From [temp.expl.spec]:
2584 If such an explicit specialization for the member
2585 of a class template names an implicitly-declared
2586 special member function (clause _special_), the
2587 program is ill-formed.
2589 Similar language is found in [temp.explicit]. */
2590 error ("specialization of implicitly-declared special member function");
2591 return error_mark_node;
2594 name = is_constructor ? ctor_identifier : dtor_identifier;
2597 if (!DECL_CONV_FN_P (decl))
2599 idx = lookup_fnfields_1 (ctype, name);
2600 if (idx >= 0)
2601 fns = (*CLASSTYPE_METHOD_VEC (ctype))[idx];
2603 else
2605 vec<tree, va_gc> *methods;
2606 tree ovl;
2608 /* For a type-conversion operator, we cannot do a
2609 name-based lookup. We might be looking for `operator
2610 int' which will be a specialization of `operator T'.
2611 So, we find *all* the conversion operators, and then
2612 select from them. */
2613 fns = NULL_TREE;
2615 methods = CLASSTYPE_METHOD_VEC (ctype);
2616 if (methods)
2617 for (idx = CLASSTYPE_FIRST_CONVERSION_SLOT;
2618 methods->iterate (idx, &ovl);
2619 ++idx)
2621 if (!DECL_CONV_FN_P (OVL_CURRENT (ovl)))
2622 /* There are no more conversion functions. */
2623 break;
2625 /* Glue all these conversion functions together
2626 with those we already have. */
2627 for (; ovl; ovl = OVL_NEXT (ovl))
2628 fns = ovl_cons (OVL_CURRENT (ovl), fns);
2632 if (fns == NULL_TREE)
2634 error ("no member function %qD declared in %qT", name, ctype);
2635 return error_mark_node;
2637 else
2638 TREE_OPERAND (declarator, 0) = fns;
2641 /* Figure out what exactly is being specialized at this point.
2642 Note that for an explicit instantiation, even one for a
2643 member function, we cannot tell apriori whether the
2644 instantiation is for a member template, or just a member
2645 function of a template class. Even if a member template is
2646 being instantiated, the member template arguments may be
2647 elided if they can be deduced from the rest of the
2648 declaration. */
2649 tmpl = determine_specialization (declarator, decl,
2650 &targs,
2651 member_specialization,
2652 template_count,
2653 tsk);
2655 if (!tmpl || tmpl == error_mark_node)
2656 /* We couldn't figure out what this declaration was
2657 specializing. */
2658 return error_mark_node;
2659 else
2661 tree gen_tmpl = most_general_template (tmpl);
2663 if (explicit_instantiation)
2665 /* We don't set DECL_EXPLICIT_INSTANTIATION here; that
2666 is done by do_decl_instantiation later. */
2668 int arg_depth = TMPL_ARGS_DEPTH (targs);
2669 int parm_depth = TMPL_PARMS_DEPTH (DECL_TEMPLATE_PARMS (tmpl));
2671 if (arg_depth > parm_depth)
2673 /* If TMPL is not the most general template (for
2674 example, if TMPL is a friend template that is
2675 injected into namespace scope), then there will
2676 be too many levels of TARGS. Remove some of them
2677 here. */
2678 int i;
2679 tree new_targs;
2681 new_targs = make_tree_vec (parm_depth);
2682 for (i = arg_depth - parm_depth; i < arg_depth; ++i)
2683 TREE_VEC_ELT (new_targs, i - (arg_depth - parm_depth))
2684 = TREE_VEC_ELT (targs, i);
2685 targs = new_targs;
2688 return instantiate_template (tmpl, targs, tf_error);
2691 /* If we thought that the DECL was a member function, but it
2692 turns out to be specializing a static member function,
2693 make DECL a static member function as well. */
2694 if (DECL_STATIC_FUNCTION_P (tmpl)
2695 && DECL_NONSTATIC_MEMBER_FUNCTION_P (decl))
2696 revert_static_member_fn (decl);
2698 /* If this is a specialization of a member template of a
2699 template class, we want to return the TEMPLATE_DECL, not
2700 the specialization of it. */
2701 if (tsk == tsk_template)
2703 tree result = DECL_TEMPLATE_RESULT (tmpl);
2704 SET_DECL_TEMPLATE_SPECIALIZATION (tmpl);
2705 DECL_INITIAL (result) = NULL_TREE;
2706 if (have_def)
2708 tree parm;
2709 DECL_SOURCE_LOCATION (tmpl) = DECL_SOURCE_LOCATION (decl);
2710 DECL_SOURCE_LOCATION (result)
2711 = DECL_SOURCE_LOCATION (decl);
2712 /* We want to use the argument list specified in the
2713 definition, not in the original declaration. */
2714 DECL_ARGUMENTS (result) = DECL_ARGUMENTS (decl);
2715 for (parm = DECL_ARGUMENTS (result); parm;
2716 parm = DECL_CHAIN (parm))
2717 DECL_CONTEXT (parm) = result;
2719 return register_specialization (tmpl, gen_tmpl, targs,
2720 is_friend, 0);
2723 /* Set up the DECL_TEMPLATE_INFO for DECL. */
2724 DECL_TEMPLATE_INFO (decl) = build_template_info (tmpl, targs);
2726 /* Inherit default function arguments from the template
2727 DECL is specializing. */
2728 copy_default_args_to_explicit_spec (decl);
2730 /* This specialization has the same protection as the
2731 template it specializes. */
2732 TREE_PRIVATE (decl) = TREE_PRIVATE (gen_tmpl);
2733 TREE_PROTECTED (decl) = TREE_PROTECTED (gen_tmpl);
2735 /* 7.1.1-1 [dcl.stc]
2737 A storage-class-specifier shall not be specified in an
2738 explicit specialization...
2740 The parser rejects these, so unless action is taken here,
2741 explicit function specializations will always appear with
2742 global linkage.
2744 The action recommended by the C++ CWG in response to C++
2745 defect report 605 is to make the storage class and linkage
2746 of the explicit specialization match the templated function:
2748 http://www.open-std.org/jtc1/sc22/wg21/docs/cwg_active.html#605
2750 if (tsk == tsk_expl_spec && DECL_FUNCTION_TEMPLATE_P (gen_tmpl))
2752 tree tmpl_func = DECL_TEMPLATE_RESULT (gen_tmpl);
2753 gcc_assert (TREE_CODE (tmpl_func) == FUNCTION_DECL);
2755 /* This specialization has the same linkage and visibility as
2756 the function template it specializes. */
2757 TREE_PUBLIC (decl) = TREE_PUBLIC (tmpl_func);
2758 if (! TREE_PUBLIC (decl))
2760 DECL_INTERFACE_KNOWN (decl) = 1;
2761 DECL_NOT_REALLY_EXTERN (decl) = 1;
2763 DECL_THIS_STATIC (decl) = DECL_THIS_STATIC (tmpl_func);
2764 if (DECL_VISIBILITY_SPECIFIED (tmpl_func))
2766 DECL_VISIBILITY_SPECIFIED (decl) = 1;
2767 DECL_VISIBILITY (decl) = DECL_VISIBILITY (tmpl_func);
2771 /* If DECL is a friend declaration, declared using an
2772 unqualified name, the namespace associated with DECL may
2773 have been set incorrectly. For example, in:
2775 template <typename T> void f(T);
2776 namespace N {
2777 struct S { friend void f<int>(int); }
2780 we will have set the DECL_CONTEXT for the friend
2781 declaration to N, rather than to the global namespace. */
2782 if (DECL_NAMESPACE_SCOPE_P (decl))
2783 DECL_CONTEXT (decl) = DECL_CONTEXT (tmpl);
2785 if (is_friend && !have_def)
2786 /* This is not really a declaration of a specialization.
2787 It's just the name of an instantiation. But, it's not
2788 a request for an instantiation, either. */
2789 SET_DECL_IMPLICIT_INSTANTIATION (decl);
2791 /* Register this specialization so that we can find it
2792 again. */
2793 decl = register_specialization (decl, gen_tmpl, targs, is_friend, 0);
2795 /* A 'structor should already have clones. */
2796 gcc_assert (decl == error_mark_node
2797 || !(DECL_CONSTRUCTOR_P (decl)
2798 || DECL_DESTRUCTOR_P (decl))
2799 || DECL_CLONED_FUNCTION_P (DECL_CHAIN (decl)));
2803 return decl;
2806 /* Returns 1 iff PARMS1 and PARMS2 are identical sets of template
2807 parameters. These are represented in the same format used for
2808 DECL_TEMPLATE_PARMS. */
2811 comp_template_parms (const_tree parms1, const_tree parms2)
2813 const_tree p1;
2814 const_tree p2;
2816 if (parms1 == parms2)
2817 return 1;
2819 for (p1 = parms1, p2 = parms2;
2820 p1 != NULL_TREE && p2 != NULL_TREE;
2821 p1 = TREE_CHAIN (p1), p2 = TREE_CHAIN (p2))
2823 tree t1 = TREE_VALUE (p1);
2824 tree t2 = TREE_VALUE (p2);
2825 int i;
2827 gcc_assert (TREE_CODE (t1) == TREE_VEC);
2828 gcc_assert (TREE_CODE (t2) == TREE_VEC);
2830 if (TREE_VEC_LENGTH (t1) != TREE_VEC_LENGTH (t2))
2831 return 0;
2833 for (i = 0; i < TREE_VEC_LENGTH (t2); ++i)
2835 tree parm1 = TREE_VALUE (TREE_VEC_ELT (t1, i));
2836 tree parm2 = TREE_VALUE (TREE_VEC_ELT (t2, i));
2838 /* If either of the template parameters are invalid, assume
2839 they match for the sake of error recovery. */
2840 if (error_operand_p (parm1) || error_operand_p (parm2))
2841 return 1;
2843 if (TREE_CODE (parm1) != TREE_CODE (parm2))
2844 return 0;
2846 if (TREE_CODE (parm1) == TEMPLATE_TYPE_PARM
2847 && (TEMPLATE_TYPE_PARAMETER_PACK (parm1)
2848 == TEMPLATE_TYPE_PARAMETER_PACK (parm2)))
2849 continue;
2850 else if (!same_type_p (TREE_TYPE (parm1), TREE_TYPE (parm2)))
2851 return 0;
2855 if ((p1 != NULL_TREE) != (p2 != NULL_TREE))
2856 /* One set of parameters has more parameters lists than the
2857 other. */
2858 return 0;
2860 return 1;
2863 /* Determine whether PARM is a parameter pack. */
2865 bool
2866 template_parameter_pack_p (const_tree parm)
2868 /* Determine if we have a non-type template parameter pack. */
2869 if (TREE_CODE (parm) == PARM_DECL)
2870 return (DECL_TEMPLATE_PARM_P (parm)
2871 && TEMPLATE_PARM_PARAMETER_PACK (DECL_INITIAL (parm)));
2872 if (TREE_CODE (parm) == TEMPLATE_PARM_INDEX)
2873 return TEMPLATE_PARM_PARAMETER_PACK (parm);
2875 /* If this is a list of template parameters, we could get a
2876 TYPE_DECL or a TEMPLATE_DECL. */
2877 if (TREE_CODE (parm) == TYPE_DECL || TREE_CODE (parm) == TEMPLATE_DECL)
2878 parm = TREE_TYPE (parm);
2880 /* Otherwise it must be a type template parameter. */
2881 return ((TREE_CODE (parm) == TEMPLATE_TYPE_PARM
2882 || TREE_CODE (parm) == TEMPLATE_TEMPLATE_PARM)
2883 && TEMPLATE_TYPE_PARAMETER_PACK (parm));
2886 /* Determine if T is a function parameter pack. */
2888 bool
2889 function_parameter_pack_p (const_tree t)
2891 if (t && TREE_CODE (t) == PARM_DECL)
2892 return DECL_PACK_P (t);
2893 return false;
2896 /* Return the function template declaration of PRIMARY_FUNC_TMPL_INST.
2897 PRIMARY_FUNC_TMPL_INST is a primary function template instantiation. */
2899 tree
2900 get_function_template_decl (const_tree primary_func_tmpl_inst)
2902 if (! primary_func_tmpl_inst
2903 || TREE_CODE (primary_func_tmpl_inst) != FUNCTION_DECL
2904 || ! primary_template_instantiation_p (primary_func_tmpl_inst))
2905 return NULL;
2907 return DECL_TEMPLATE_RESULT (DECL_TI_TEMPLATE (primary_func_tmpl_inst));
2910 /* Return true iff the function parameter PARAM_DECL was expanded
2911 from the function parameter pack PACK. */
2913 bool
2914 function_parameter_expanded_from_pack_p (tree param_decl, tree pack)
2916 if (DECL_ARTIFICIAL (param_decl)
2917 || !function_parameter_pack_p (pack))
2918 return false;
2920 /* The parameter pack and its pack arguments have the same
2921 DECL_PARM_INDEX. */
2922 return DECL_PARM_INDEX (pack) == DECL_PARM_INDEX (param_decl);
2925 /* Determine whether ARGS describes a variadic template args list,
2926 i.e., one that is terminated by a template argument pack. */
2928 static bool
2929 template_args_variadic_p (tree args)
2931 int nargs;
2932 tree last_parm;
2934 if (args == NULL_TREE)
2935 return false;
2937 args = INNERMOST_TEMPLATE_ARGS (args);
2938 nargs = TREE_VEC_LENGTH (args);
2940 if (nargs == 0)
2941 return false;
2943 last_parm = TREE_VEC_ELT (args, nargs - 1);
2945 return ARGUMENT_PACK_P (last_parm);
2948 /* Generate a new name for the parameter pack name NAME (an
2949 IDENTIFIER_NODE) that incorporates its */
2951 static tree
2952 make_ith_pack_parameter_name (tree name, int i)
2954 /* Munge the name to include the parameter index. */
2955 #define NUMBUF_LEN 128
2956 char numbuf[NUMBUF_LEN];
2957 char* newname;
2958 int newname_len;
2960 if (name == NULL_TREE)
2961 return name;
2962 snprintf (numbuf, NUMBUF_LEN, "%i", i);
2963 newname_len = IDENTIFIER_LENGTH (name)
2964 + strlen (numbuf) + 2;
2965 newname = (char*)alloca (newname_len);
2966 snprintf (newname, newname_len,
2967 "%s#%i", IDENTIFIER_POINTER (name), i);
2968 return get_identifier (newname);
2971 /* Return true if T is a primary function, class or alias template
2972 instantiation. */
2974 bool
2975 primary_template_instantiation_p (const_tree t)
2977 if (!t)
2978 return false;
2980 if (TREE_CODE (t) == FUNCTION_DECL)
2981 return DECL_LANG_SPECIFIC (t)
2982 && DECL_TEMPLATE_INSTANTIATION (t)
2983 && PRIMARY_TEMPLATE_P (DECL_TI_TEMPLATE (t));
2984 else if (CLASS_TYPE_P (t) && !TYPE_DECL_ALIAS_P (TYPE_NAME (t)))
2985 return CLASSTYPE_TEMPLATE_INSTANTIATION (t)
2986 && PRIMARY_TEMPLATE_P (CLASSTYPE_TI_TEMPLATE (t));
2987 else if (alias_template_specialization_p (t))
2988 return true;
2989 return false;
2992 /* Return true if PARM is a template template parameter. */
2994 bool
2995 template_template_parameter_p (const_tree parm)
2997 return DECL_TEMPLATE_TEMPLATE_PARM_P (parm);
3000 /* Return true iff PARM is a DECL representing a type template
3001 parameter. */
3003 bool
3004 template_type_parameter_p (const_tree parm)
3006 return (parm
3007 && (TREE_CODE (parm) == TYPE_DECL
3008 || TREE_CODE (parm) == TEMPLATE_DECL)
3009 && DECL_TEMPLATE_PARM_P (parm));
3012 /* Return the template parameters of T if T is a
3013 primary template instantiation, NULL otherwise. */
3015 tree
3016 get_primary_template_innermost_parameters (const_tree t)
3018 tree parms = NULL, template_info = NULL;
3020 if ((template_info = get_template_info (t))
3021 && primary_template_instantiation_p (t))
3022 parms = INNERMOST_TEMPLATE_PARMS
3023 (DECL_TEMPLATE_PARMS (TI_TEMPLATE (template_info)));
3025 return parms;
3028 /* Return the template parameters of the LEVELth level from the full list
3029 of template parameters PARMS. */
3031 tree
3032 get_template_parms_at_level (tree parms, int level)
3034 tree p;
3035 if (!parms
3036 || TREE_CODE (parms) != TREE_LIST
3037 || level > TMPL_PARMS_DEPTH (parms))
3038 return NULL_TREE;
3040 for (p = parms; p; p = TREE_CHAIN (p))
3041 if (TMPL_PARMS_DEPTH (p) == level)
3042 return p;
3044 return NULL_TREE;
3047 /* Returns the template arguments of T if T is a template instantiation,
3048 NULL otherwise. */
3050 tree
3051 get_template_innermost_arguments (const_tree t)
3053 tree args = NULL, template_info = NULL;
3055 if ((template_info = get_template_info (t))
3056 && TI_ARGS (template_info))
3057 args = INNERMOST_TEMPLATE_ARGS (TI_ARGS (template_info));
3059 return args;
3062 /* Return the argument pack elements of T if T is a template argument pack,
3063 NULL otherwise. */
3065 tree
3066 get_template_argument_pack_elems (const_tree t)
3068 if (TREE_CODE (t) != TYPE_ARGUMENT_PACK
3069 && TREE_CODE (t) != NONTYPE_ARGUMENT_PACK)
3070 return NULL;
3072 return ARGUMENT_PACK_ARGS (t);
3075 /* Structure used to track the progress of find_parameter_packs_r. */
3076 struct find_parameter_pack_data
3078 /* TREE_LIST that will contain all of the parameter packs found by
3079 the traversal. */
3080 tree* parameter_packs;
3082 /* Set of AST nodes that have been visited by the traversal. */
3083 struct pointer_set_t *visited;
3086 /* Identifies all of the argument packs that occur in a template
3087 argument and appends them to the TREE_LIST inside DATA, which is a
3088 find_parameter_pack_data structure. This is a subroutine of
3089 make_pack_expansion and uses_parameter_packs. */
3090 static tree
3091 find_parameter_packs_r (tree *tp, int *walk_subtrees, void* data)
3093 tree t = *tp;
3094 struct find_parameter_pack_data* ppd =
3095 (struct find_parameter_pack_data*)data;
3096 bool parameter_pack_p = false;
3098 /* Handle type aliases/typedefs. */
3099 if (TYPE_ALIAS_P (t))
3101 if (TYPE_TEMPLATE_INFO (t))
3102 cp_walk_tree (&TYPE_TI_ARGS (t),
3103 &find_parameter_packs_r,
3104 ppd, ppd->visited);
3105 *walk_subtrees = 0;
3106 return NULL_TREE;
3109 /* Identify whether this is a parameter pack or not. */
3110 switch (TREE_CODE (t))
3112 case TEMPLATE_PARM_INDEX:
3113 if (TEMPLATE_PARM_PARAMETER_PACK (t))
3114 parameter_pack_p = true;
3115 break;
3117 case TEMPLATE_TYPE_PARM:
3118 t = TYPE_MAIN_VARIANT (t);
3119 case TEMPLATE_TEMPLATE_PARM:
3120 if (TEMPLATE_TYPE_PARAMETER_PACK (t))
3121 parameter_pack_p = true;
3122 break;
3124 case FIELD_DECL:
3125 case PARM_DECL:
3126 if (DECL_PACK_P (t))
3128 /* We don't want to walk into the type of a PARM_DECL,
3129 because we don't want to see the type parameter pack. */
3130 *walk_subtrees = 0;
3131 parameter_pack_p = true;
3133 break;
3135 /* Look through a lambda capture proxy to the field pack. */
3136 case VAR_DECL:
3137 if (DECL_HAS_VALUE_EXPR_P (t))
3139 tree v = DECL_VALUE_EXPR (t);
3140 cp_walk_tree (&v,
3141 &find_parameter_packs_r,
3142 ppd, ppd->visited);
3143 *walk_subtrees = 0;
3145 break;
3147 case BASES:
3148 parameter_pack_p = true;
3149 break;
3150 default:
3151 /* Not a parameter pack. */
3152 break;
3155 if (parameter_pack_p)
3157 /* Add this parameter pack to the list. */
3158 *ppd->parameter_packs = tree_cons (NULL_TREE, t, *ppd->parameter_packs);
3161 if (TYPE_P (t))
3162 cp_walk_tree (&TYPE_CONTEXT (t),
3163 &find_parameter_packs_r, ppd, ppd->visited);
3165 /* This switch statement will return immediately if we don't find a
3166 parameter pack. */
3167 switch (TREE_CODE (t))
3169 case TEMPLATE_PARM_INDEX:
3170 return NULL_TREE;
3172 case BOUND_TEMPLATE_TEMPLATE_PARM:
3173 /* Check the template itself. */
3174 cp_walk_tree (&TREE_TYPE (TYPE_TI_TEMPLATE (t)),
3175 &find_parameter_packs_r, ppd, ppd->visited);
3176 /* Check the template arguments. */
3177 cp_walk_tree (&TYPE_TI_ARGS (t), &find_parameter_packs_r, ppd,
3178 ppd->visited);
3179 *walk_subtrees = 0;
3180 return NULL_TREE;
3182 case TEMPLATE_TYPE_PARM:
3183 case TEMPLATE_TEMPLATE_PARM:
3184 return NULL_TREE;
3186 case PARM_DECL:
3187 return NULL_TREE;
3189 case RECORD_TYPE:
3190 if (TYPE_PTRMEMFUNC_P (t))
3191 return NULL_TREE;
3192 /* Fall through. */
3194 case UNION_TYPE:
3195 case ENUMERAL_TYPE:
3196 if (TYPE_TEMPLATE_INFO (t))
3197 cp_walk_tree (&TYPE_TI_ARGS (t),
3198 &find_parameter_packs_r, ppd, ppd->visited);
3200 *walk_subtrees = 0;
3201 return NULL_TREE;
3203 case CONSTRUCTOR:
3204 case TEMPLATE_DECL:
3205 cp_walk_tree (&TREE_TYPE (t),
3206 &find_parameter_packs_r, ppd, ppd->visited);
3207 return NULL_TREE;
3209 case TYPENAME_TYPE:
3210 cp_walk_tree (&TYPENAME_TYPE_FULLNAME (t), &find_parameter_packs_r,
3211 ppd, ppd->visited);
3212 *walk_subtrees = 0;
3213 return NULL_TREE;
3215 case TYPE_PACK_EXPANSION:
3216 case EXPR_PACK_EXPANSION:
3217 *walk_subtrees = 0;
3218 return NULL_TREE;
3220 case INTEGER_TYPE:
3221 cp_walk_tree (&TYPE_MAX_VALUE (t), &find_parameter_packs_r,
3222 ppd, ppd->visited);
3223 *walk_subtrees = 0;
3224 return NULL_TREE;
3226 case IDENTIFIER_NODE:
3227 cp_walk_tree (&TREE_TYPE (t), &find_parameter_packs_r, ppd,
3228 ppd->visited);
3229 *walk_subtrees = 0;
3230 return NULL_TREE;
3232 default:
3233 return NULL_TREE;
3236 return NULL_TREE;
3239 /* Determines if the expression or type T uses any parameter packs. */
3240 bool
3241 uses_parameter_packs (tree t)
3243 tree parameter_packs = NULL_TREE;
3244 struct find_parameter_pack_data ppd;
3245 ppd.parameter_packs = &parameter_packs;
3246 ppd.visited = pointer_set_create ();
3247 cp_walk_tree (&t, &find_parameter_packs_r, &ppd, ppd.visited);
3248 pointer_set_destroy (ppd.visited);
3249 return parameter_packs != NULL_TREE;
3252 /* Turn ARG, which may be an expression, type, or a TREE_LIST
3253 representation a base-class initializer into a parameter pack
3254 expansion. If all goes well, the resulting node will be an
3255 EXPR_PACK_EXPANSION, TYPE_PACK_EXPANSION, or TREE_LIST,
3256 respectively. */
3257 tree
3258 make_pack_expansion (tree arg)
3260 tree result;
3261 tree parameter_packs = NULL_TREE;
3262 bool for_types = false;
3263 struct find_parameter_pack_data ppd;
3265 if (!arg || arg == error_mark_node)
3266 return arg;
3268 if (TREE_CODE (arg) == TREE_LIST)
3270 /* The only time we will see a TREE_LIST here is for a base
3271 class initializer. In this case, the TREE_PURPOSE will be a
3272 _TYPE node (representing the base class expansion we're
3273 initializing) and the TREE_VALUE will be a TREE_LIST
3274 containing the initialization arguments.
3276 The resulting expansion looks somewhat different from most
3277 expansions. Rather than returning just one _EXPANSION, we
3278 return a TREE_LIST whose TREE_PURPOSE is a
3279 TYPE_PACK_EXPANSION containing the bases that will be
3280 initialized. The TREE_VALUE will be identical to the
3281 original TREE_VALUE, which is a list of arguments that will
3282 be passed to each base. We do not introduce any new pack
3283 expansion nodes into the TREE_VALUE (although it is possible
3284 that some already exist), because the TREE_PURPOSE and
3285 TREE_VALUE all need to be expanded together with the same
3286 _EXPANSION node. Note that the TYPE_PACK_EXPANSION in the
3287 resulting TREE_PURPOSE will mention the parameter packs in
3288 both the bases and the arguments to the bases. */
3289 tree purpose;
3290 tree value;
3291 tree parameter_packs = NULL_TREE;
3293 /* Determine which parameter packs will be used by the base
3294 class expansion. */
3295 ppd.visited = pointer_set_create ();
3296 ppd.parameter_packs = &parameter_packs;
3297 cp_walk_tree (&TREE_PURPOSE (arg), &find_parameter_packs_r,
3298 &ppd, ppd.visited);
3300 if (parameter_packs == NULL_TREE)
3302 error ("base initializer expansion %<%T%> contains no parameter packs", arg);
3303 pointer_set_destroy (ppd.visited);
3304 return error_mark_node;
3307 if (TREE_VALUE (arg) != void_type_node)
3309 /* Collect the sets of parameter packs used in each of the
3310 initialization arguments. */
3311 for (value = TREE_VALUE (arg); value; value = TREE_CHAIN (value))
3313 /* Determine which parameter packs will be expanded in this
3314 argument. */
3315 cp_walk_tree (&TREE_VALUE (value), &find_parameter_packs_r,
3316 &ppd, ppd.visited);
3320 pointer_set_destroy (ppd.visited);
3322 /* Create the pack expansion type for the base type. */
3323 purpose = cxx_make_type (TYPE_PACK_EXPANSION);
3324 SET_PACK_EXPANSION_PATTERN (purpose, TREE_PURPOSE (arg));
3325 PACK_EXPANSION_PARAMETER_PACKS (purpose) = parameter_packs;
3327 /* Just use structural equality for these TYPE_PACK_EXPANSIONS;
3328 they will rarely be compared to anything. */
3329 SET_TYPE_STRUCTURAL_EQUALITY (purpose);
3331 return tree_cons (purpose, TREE_VALUE (arg), NULL_TREE);
3334 if (TYPE_P (arg) || TREE_CODE (arg) == TEMPLATE_DECL)
3335 for_types = true;
3337 /* Build the PACK_EXPANSION_* node. */
3338 result = for_types
3339 ? cxx_make_type (TYPE_PACK_EXPANSION)
3340 : make_node (EXPR_PACK_EXPANSION);
3341 SET_PACK_EXPANSION_PATTERN (result, arg);
3342 if (TREE_CODE (result) == EXPR_PACK_EXPANSION)
3344 /* Propagate type and const-expression information. */
3345 TREE_TYPE (result) = TREE_TYPE (arg);
3346 TREE_CONSTANT (result) = TREE_CONSTANT (arg);
3348 else
3349 /* Just use structural equality for these TYPE_PACK_EXPANSIONS;
3350 they will rarely be compared to anything. */
3351 SET_TYPE_STRUCTURAL_EQUALITY (result);
3353 /* Determine which parameter packs will be expanded. */
3354 ppd.parameter_packs = &parameter_packs;
3355 ppd.visited = pointer_set_create ();
3356 cp_walk_tree (&arg, &find_parameter_packs_r, &ppd, ppd.visited);
3357 pointer_set_destroy (ppd.visited);
3359 /* Make sure we found some parameter packs. */
3360 if (parameter_packs == NULL_TREE)
3362 if (TYPE_P (arg))
3363 error ("expansion pattern %<%T%> contains no argument packs", arg);
3364 else
3365 error ("expansion pattern %<%E%> contains no argument packs", arg);
3366 return error_mark_node;
3368 PACK_EXPANSION_PARAMETER_PACKS (result) = parameter_packs;
3370 PACK_EXPANSION_LOCAL_P (result) = at_function_scope_p ();
3372 return result;
3375 /* Checks T for any "bare" parameter packs, which have not yet been
3376 expanded, and issues an error if any are found. This operation can
3377 only be done on full expressions or types (e.g., an expression
3378 statement, "if" condition, etc.), because we could have expressions like:
3380 foo(f(g(h(args)))...)
3382 where "args" is a parameter pack. check_for_bare_parameter_packs
3383 should not be called for the subexpressions args, h(args),
3384 g(h(args)), or f(g(h(args))), because we would produce erroneous
3385 error messages.
3387 Returns TRUE and emits an error if there were bare parameter packs,
3388 returns FALSE otherwise. */
3389 bool
3390 check_for_bare_parameter_packs (tree t)
3392 tree parameter_packs = NULL_TREE;
3393 struct find_parameter_pack_data ppd;
3395 if (!processing_template_decl || !t || t == error_mark_node)
3396 return false;
3398 if (TREE_CODE (t) == TYPE_DECL)
3399 t = TREE_TYPE (t);
3401 ppd.parameter_packs = &parameter_packs;
3402 ppd.visited = pointer_set_create ();
3403 cp_walk_tree (&t, &find_parameter_packs_r, &ppd, ppd.visited);
3404 pointer_set_destroy (ppd.visited);
3406 if (parameter_packs)
3408 error ("parameter packs not expanded with %<...%>:");
3409 while (parameter_packs)
3411 tree pack = TREE_VALUE (parameter_packs);
3412 tree name = NULL_TREE;
3414 if (TREE_CODE (pack) == TEMPLATE_TYPE_PARM
3415 || TREE_CODE (pack) == TEMPLATE_TEMPLATE_PARM)
3416 name = TYPE_NAME (pack);
3417 else if (TREE_CODE (pack) == TEMPLATE_PARM_INDEX)
3418 name = DECL_NAME (TEMPLATE_PARM_DECL (pack));
3419 else
3420 name = DECL_NAME (pack);
3422 if (name)
3423 inform (input_location, " %qD", name);
3424 else
3425 inform (input_location, " <anonymous>");
3427 parameter_packs = TREE_CHAIN (parameter_packs);
3430 return true;
3433 return false;
3436 /* Expand any parameter packs that occur in the template arguments in
3437 ARGS. */
3438 tree
3439 expand_template_argument_pack (tree args)
3441 tree result_args = NULL_TREE;
3442 int in_arg, out_arg = 0, nargs = args ? TREE_VEC_LENGTH (args) : 0;
3443 int num_result_args = -1;
3444 int non_default_args_count = -1;
3446 /* First, determine if we need to expand anything, and the number of
3447 slots we'll need. */
3448 for (in_arg = 0; in_arg < nargs; ++in_arg)
3450 tree arg = TREE_VEC_ELT (args, in_arg);
3451 if (arg == NULL_TREE)
3452 return args;
3453 if (ARGUMENT_PACK_P (arg))
3455 int num_packed = TREE_VEC_LENGTH (ARGUMENT_PACK_ARGS (arg));
3456 if (num_result_args < 0)
3457 num_result_args = in_arg + num_packed;
3458 else
3459 num_result_args += num_packed;
3461 else
3463 if (num_result_args >= 0)
3464 num_result_args++;
3468 /* If no expansion is necessary, we're done. */
3469 if (num_result_args < 0)
3470 return args;
3472 /* Expand arguments. */
3473 result_args = make_tree_vec (num_result_args);
3474 if (NON_DEFAULT_TEMPLATE_ARGS_COUNT (args))
3475 non_default_args_count =
3476 GET_NON_DEFAULT_TEMPLATE_ARGS_COUNT (args);
3477 for (in_arg = 0; in_arg < nargs; ++in_arg)
3479 tree arg = TREE_VEC_ELT (args, in_arg);
3480 if (ARGUMENT_PACK_P (arg))
3482 tree packed = ARGUMENT_PACK_ARGS (arg);
3483 int i, num_packed = TREE_VEC_LENGTH (packed);
3484 for (i = 0; i < num_packed; ++i, ++out_arg)
3485 TREE_VEC_ELT (result_args, out_arg) = TREE_VEC_ELT(packed, i);
3486 if (non_default_args_count > 0)
3487 non_default_args_count += num_packed - 1;
3489 else
3491 TREE_VEC_ELT (result_args, out_arg) = arg;
3492 ++out_arg;
3495 if (non_default_args_count >= 0)
3496 SET_NON_DEFAULT_TEMPLATE_ARGS_COUNT (result_args, non_default_args_count);
3497 return result_args;
3500 /* Checks if DECL shadows a template parameter.
3502 [temp.local]: A template-parameter shall not be redeclared within its
3503 scope (including nested scopes).
3505 Emits an error and returns TRUE if the DECL shadows a parameter,
3506 returns FALSE otherwise. */
3508 bool
3509 check_template_shadow (tree decl)
3511 tree olddecl;
3513 /* If we're not in a template, we can't possibly shadow a template
3514 parameter. */
3515 if (!current_template_parms)
3516 return true;
3518 /* Figure out what we're shadowing. */
3519 if (TREE_CODE (decl) == OVERLOAD)
3520 decl = OVL_CURRENT (decl);
3521 olddecl = innermost_non_namespace_value (DECL_NAME (decl));
3523 /* If there's no previous binding for this name, we're not shadowing
3524 anything, let alone a template parameter. */
3525 if (!olddecl)
3526 return true;
3528 /* If we're not shadowing a template parameter, we're done. Note
3529 that OLDDECL might be an OVERLOAD (or perhaps even an
3530 ERROR_MARK), so we can't just blithely assume it to be a _DECL
3531 node. */
3532 if (!DECL_P (olddecl) || !DECL_TEMPLATE_PARM_P (olddecl))
3533 return true;
3535 /* We check for decl != olddecl to avoid bogus errors for using a
3536 name inside a class. We check TPFI to avoid duplicate errors for
3537 inline member templates. */
3538 if (decl == olddecl
3539 || (DECL_TEMPLATE_PARM_P (decl)
3540 && TEMPLATE_PARMS_FOR_INLINE (current_template_parms)))
3541 return true;
3543 /* Don't complain about the injected class name, as we've already
3544 complained about the class itself. */
3545 if (DECL_SELF_REFERENCE_P (decl))
3546 return false;
3548 error ("declaration of %q+#D", decl);
3549 error (" shadows template parm %q+#D", olddecl);
3550 return false;
3553 /* Return a new TEMPLATE_PARM_INDEX with the indicated INDEX, LEVEL,
3554 ORIG_LEVEL, DECL, and TYPE. */
3556 static tree
3557 build_template_parm_index (int index,
3558 int level,
3559 int orig_level,
3560 tree decl,
3561 tree type)
3563 tree t = make_node (TEMPLATE_PARM_INDEX);
3564 TEMPLATE_PARM_IDX (t) = index;
3565 TEMPLATE_PARM_LEVEL (t) = level;
3566 TEMPLATE_PARM_ORIG_LEVEL (t) = orig_level;
3567 TEMPLATE_PARM_DECL (t) = decl;
3568 TREE_TYPE (t) = type;
3569 TREE_CONSTANT (t) = TREE_CONSTANT (decl);
3570 TREE_READONLY (t) = TREE_READONLY (decl);
3572 return t;
3575 /* Find the canonical type parameter for the given template type
3576 parameter. Returns the canonical type parameter, which may be TYPE
3577 if no such parameter existed. */
3579 static tree
3580 canonical_type_parameter (tree type)
3582 tree list;
3583 int idx = TEMPLATE_TYPE_IDX (type);
3584 if (!canonical_template_parms)
3585 vec_alloc (canonical_template_parms, idx+1);
3587 while (canonical_template_parms->length () <= (unsigned)idx)
3588 vec_safe_push (canonical_template_parms, NULL_TREE);
3590 list = (*canonical_template_parms)[idx];
3591 while (list && !comptypes (type, TREE_VALUE (list), COMPARE_STRUCTURAL))
3592 list = TREE_CHAIN (list);
3594 if (list)
3595 return TREE_VALUE (list);
3596 else
3598 (*canonical_template_parms)[idx]
3599 = tree_cons (NULL_TREE, type,
3600 (*canonical_template_parms)[idx]);
3601 return type;
3605 /* Return a TEMPLATE_PARM_INDEX, similar to INDEX, but whose
3606 TEMPLATE_PARM_LEVEL has been decreased by LEVELS. If such a
3607 TEMPLATE_PARM_INDEX already exists, it is returned; otherwise, a
3608 new one is created. */
3610 static tree
3611 reduce_template_parm_level (tree index, tree type, int levels, tree args,
3612 tsubst_flags_t complain)
3614 if (TEMPLATE_PARM_DESCENDANTS (index) == NULL_TREE
3615 || (TEMPLATE_PARM_LEVEL (TEMPLATE_PARM_DESCENDANTS (index))
3616 != TEMPLATE_PARM_LEVEL (index) - levels)
3617 || !same_type_p (type, TREE_TYPE (TEMPLATE_PARM_DESCENDANTS (index))))
3619 tree orig_decl = TEMPLATE_PARM_DECL (index);
3620 tree decl, t;
3622 decl = build_decl (DECL_SOURCE_LOCATION (orig_decl),
3623 TREE_CODE (orig_decl), DECL_NAME (orig_decl), type);
3624 TREE_CONSTANT (decl) = TREE_CONSTANT (orig_decl);
3625 TREE_READONLY (decl) = TREE_READONLY (orig_decl);
3626 DECL_ARTIFICIAL (decl) = 1;
3627 SET_DECL_TEMPLATE_PARM_P (decl);
3629 t = build_template_parm_index (TEMPLATE_PARM_IDX (index),
3630 TEMPLATE_PARM_LEVEL (index) - levels,
3631 TEMPLATE_PARM_ORIG_LEVEL (index),
3632 decl, type);
3633 TEMPLATE_PARM_DESCENDANTS (index) = t;
3634 TEMPLATE_PARM_PARAMETER_PACK (t)
3635 = TEMPLATE_PARM_PARAMETER_PACK (index);
3637 /* Template template parameters need this. */
3638 if (TREE_CODE (decl) == TEMPLATE_DECL)
3639 DECL_TEMPLATE_PARMS (decl) = tsubst_template_parms
3640 (DECL_TEMPLATE_PARMS (TEMPLATE_PARM_DECL (index)),
3641 args, complain);
3644 return TEMPLATE_PARM_DESCENDANTS (index);
3647 /* Process information from new template parameter PARM and append it
3648 to the LIST being built. This new parameter is a non-type
3649 parameter iff IS_NON_TYPE is true. This new parameter is a
3650 parameter pack iff IS_PARAMETER_PACK is true. The location of PARM
3651 is in PARM_LOC. */
3653 tree
3654 process_template_parm (tree list, location_t parm_loc, tree parm,
3655 bool is_non_type, bool is_parameter_pack)
3657 tree decl = 0;
3658 tree defval;
3659 int idx = 0;
3661 gcc_assert (TREE_CODE (parm) == TREE_LIST);
3662 defval = TREE_PURPOSE (parm);
3664 if (list)
3666 tree p = tree_last (list);
3668 if (p && TREE_VALUE (p) != error_mark_node)
3670 p = TREE_VALUE (p);
3671 if (TREE_CODE (p) == TYPE_DECL || TREE_CODE (p) == TEMPLATE_DECL)
3672 idx = TEMPLATE_TYPE_IDX (TREE_TYPE (p));
3673 else
3674 idx = TEMPLATE_PARM_IDX (DECL_INITIAL (p));
3677 ++idx;
3680 if (is_non_type)
3682 parm = TREE_VALUE (parm);
3684 SET_DECL_TEMPLATE_PARM_P (parm);
3686 if (TREE_TYPE (parm) != error_mark_node)
3688 /* [temp.param]
3690 The top-level cv-qualifiers on the template-parameter are
3691 ignored when determining its type. */
3692 TREE_TYPE (parm) = TYPE_MAIN_VARIANT (TREE_TYPE (parm));
3693 if (invalid_nontype_parm_type_p (TREE_TYPE (parm), 1))
3694 TREE_TYPE (parm) = error_mark_node;
3695 else if (uses_parameter_packs (TREE_TYPE (parm))
3696 && !is_parameter_pack
3697 /* If we're in a nested template parameter list, the template
3698 template parameter could be a parameter pack. */
3699 && processing_template_parmlist == 1)
3701 /* This template parameter is not a parameter pack, but it
3702 should be. Complain about "bare" parameter packs. */
3703 check_for_bare_parameter_packs (TREE_TYPE (parm));
3705 /* Recover by calling this a parameter pack. */
3706 is_parameter_pack = true;
3710 /* A template parameter is not modifiable. */
3711 TREE_CONSTANT (parm) = 1;
3712 TREE_READONLY (parm) = 1;
3713 decl = build_decl (parm_loc,
3714 CONST_DECL, DECL_NAME (parm), TREE_TYPE (parm));
3715 TREE_CONSTANT (decl) = 1;
3716 TREE_READONLY (decl) = 1;
3717 DECL_INITIAL (parm) = DECL_INITIAL (decl)
3718 = build_template_parm_index (idx, processing_template_decl,
3719 processing_template_decl,
3720 decl, TREE_TYPE (parm));
3722 TEMPLATE_PARM_PARAMETER_PACK (DECL_INITIAL (parm))
3723 = is_parameter_pack;
3725 else
3727 tree t;
3728 parm = TREE_VALUE (TREE_VALUE (parm));
3730 if (parm && TREE_CODE (parm) == TEMPLATE_DECL)
3732 t = cxx_make_type (TEMPLATE_TEMPLATE_PARM);
3733 /* This is for distinguishing between real templates and template
3734 template parameters */
3735 TREE_TYPE (parm) = t;
3736 TREE_TYPE (DECL_TEMPLATE_RESULT (parm)) = t;
3737 decl = parm;
3739 else
3741 t = cxx_make_type (TEMPLATE_TYPE_PARM);
3742 /* parm is either IDENTIFIER_NODE or NULL_TREE. */
3743 decl = build_decl (parm_loc,
3744 TYPE_DECL, parm, t);
3747 TYPE_NAME (t) = decl;
3748 TYPE_STUB_DECL (t) = decl;
3749 parm = decl;
3750 TEMPLATE_TYPE_PARM_INDEX (t)
3751 = build_template_parm_index (idx, processing_template_decl,
3752 processing_template_decl,
3753 decl, TREE_TYPE (parm));
3754 TEMPLATE_TYPE_PARAMETER_PACK (t) = is_parameter_pack;
3755 TYPE_CANONICAL (t) = canonical_type_parameter (t);
3757 DECL_ARTIFICIAL (decl) = 1;
3758 SET_DECL_TEMPLATE_PARM_P (decl);
3759 pushdecl (decl);
3760 parm = build_tree_list (defval, parm);
3761 return chainon (list, parm);
3764 /* The end of a template parameter list has been reached. Process the
3765 tree list into a parameter vector, converting each parameter into a more
3766 useful form. Type parameters are saved as IDENTIFIER_NODEs, and others
3767 as PARM_DECLs. */
3769 tree
3770 end_template_parm_list (tree parms)
3772 int nparms;
3773 tree parm, next;
3774 tree saved_parmlist = make_tree_vec (list_length (parms));
3776 current_template_parms
3777 = tree_cons (size_int (processing_template_decl),
3778 saved_parmlist, current_template_parms);
3780 for (parm = parms, nparms = 0; parm; parm = next, nparms++)
3782 next = TREE_CHAIN (parm);
3783 TREE_VEC_ELT (saved_parmlist, nparms) = parm;
3784 TREE_CHAIN (parm) = NULL_TREE;
3787 --processing_template_parmlist;
3789 return saved_parmlist;
3792 /* end_template_decl is called after a template declaration is seen. */
3794 void
3795 end_template_decl (void)
3797 reset_specialization ();
3799 if (! processing_template_decl)
3800 return;
3802 /* This matches the pushlevel in begin_template_parm_list. */
3803 finish_scope ();
3805 --processing_template_decl;
3806 current_template_parms = TREE_CHAIN (current_template_parms);
3809 /* Takes a TREE_LIST representing a template parameter and convert it
3810 into an argument suitable to be passed to the type substitution
3811 functions. Note that If the TREE_LIST contains an error_mark
3812 node, the returned argument is error_mark_node. */
3814 static tree
3815 template_parm_to_arg (tree t)
3818 if (t == NULL_TREE
3819 || TREE_CODE (t) != TREE_LIST)
3820 return t;
3822 if (error_operand_p (TREE_VALUE (t)))
3823 return error_mark_node;
3825 t = TREE_VALUE (t);
3827 if (TREE_CODE (t) == TYPE_DECL
3828 || TREE_CODE (t) == TEMPLATE_DECL)
3830 t = TREE_TYPE (t);
3832 if (TEMPLATE_TYPE_PARAMETER_PACK (t))
3834 /* Turn this argument into a TYPE_ARGUMENT_PACK
3835 with a single element, which expands T. */
3836 tree vec = make_tree_vec (1);
3837 #ifdef ENABLE_CHECKING
3838 SET_NON_DEFAULT_TEMPLATE_ARGS_COUNT
3839 (vec, TREE_VEC_LENGTH (vec));
3840 #endif
3841 TREE_VEC_ELT (vec, 0) = make_pack_expansion (t);
3843 t = cxx_make_type (TYPE_ARGUMENT_PACK);
3844 SET_ARGUMENT_PACK_ARGS (t, vec);
3847 else
3849 t = DECL_INITIAL (t);
3851 if (TEMPLATE_PARM_PARAMETER_PACK (t))
3853 /* Turn this argument into a NONTYPE_ARGUMENT_PACK
3854 with a single element, which expands T. */
3855 tree vec = make_tree_vec (1);
3856 tree type = TREE_TYPE (TEMPLATE_PARM_DECL (t));
3857 #ifdef ENABLE_CHECKING
3858 SET_NON_DEFAULT_TEMPLATE_ARGS_COUNT
3859 (vec, TREE_VEC_LENGTH (vec));
3860 #endif
3861 t = convert_from_reference (t);
3862 TREE_VEC_ELT (vec, 0) = make_pack_expansion (t);
3864 t = make_node (NONTYPE_ARGUMENT_PACK);
3865 SET_ARGUMENT_PACK_ARGS (t, vec);
3866 TREE_TYPE (t) = type;
3868 else
3869 t = convert_from_reference (t);
3871 return t;
3874 /* Given a set of template parameters, return them as a set of template
3875 arguments. The template parameters are represented as a TREE_VEC, in
3876 the form documented in cp-tree.h for template arguments. */
3878 static tree
3879 template_parms_to_args (tree parms)
3881 tree header;
3882 tree args = NULL_TREE;
3883 int length = TMPL_PARMS_DEPTH (parms);
3884 int l = length;
3886 /* If there is only one level of template parameters, we do not
3887 create a TREE_VEC of TREE_VECs. Instead, we return a single
3888 TREE_VEC containing the arguments. */
3889 if (length > 1)
3890 args = make_tree_vec (length);
3892 for (header = parms; header; header = TREE_CHAIN (header))
3894 tree a = copy_node (TREE_VALUE (header));
3895 int i;
3897 TREE_TYPE (a) = NULL_TREE;
3898 for (i = TREE_VEC_LENGTH (a) - 1; i >= 0; --i)
3899 TREE_VEC_ELT (a, i) = template_parm_to_arg (TREE_VEC_ELT (a, i));
3901 #ifdef ENABLE_CHECKING
3902 SET_NON_DEFAULT_TEMPLATE_ARGS_COUNT (a, TREE_VEC_LENGTH (a));
3903 #endif
3905 if (length > 1)
3906 TREE_VEC_ELT (args, --l) = a;
3907 else
3908 args = a;
3911 if (length > 1 && TREE_VEC_ELT (args, 0) == NULL_TREE)
3912 /* This can happen for template parms of a template template
3913 parameter, e.g:
3915 template<template<class T, class U> class TT> struct S;
3917 Consider the level of the parms of TT; T and U both have
3918 level 2; TT has no template parm of level 1. So in this case
3919 the first element of full_template_args is NULL_TREE. If we
3920 leave it like this TMPL_ARGS_DEPTH on args returns 1 instead
3921 of 2. This will make tsubst wrongly consider that T and U
3922 have level 1. Instead, let's create a dummy vector as the
3923 first element of full_template_args so that TMPL_ARGS_DEPTH
3924 returns the correct depth for args. */
3925 TREE_VEC_ELT (args, 0) = make_tree_vec (1);
3926 return args;
3929 /* Within the declaration of a template, return the currently active
3930 template parameters as an argument TREE_VEC. */
3932 static tree
3933 current_template_args (void)
3935 return template_parms_to_args (current_template_parms);
3938 /* Update the declared TYPE by doing any lookups which were thought to be
3939 dependent, but are not now that we know the SCOPE of the declarator. */
3941 tree
3942 maybe_update_decl_type (tree orig_type, tree scope)
3944 tree type = orig_type;
3946 if (type == NULL_TREE)
3947 return type;
3949 if (TREE_CODE (orig_type) == TYPE_DECL)
3950 type = TREE_TYPE (type);
3952 if (scope && TYPE_P (scope) && dependent_type_p (scope)
3953 && dependent_type_p (type)
3954 /* Don't bother building up the args in this case. */
3955 && TREE_CODE (type) != TEMPLATE_TYPE_PARM)
3957 /* tsubst in the args corresponding to the template parameters,
3958 including auto if present. Most things will be unchanged, but
3959 make_typename_type and tsubst_qualified_id will resolve
3960 TYPENAME_TYPEs and SCOPE_REFs that were previously dependent. */
3961 tree args = current_template_args ();
3962 tree auto_node = type_uses_auto (type);
3963 tree pushed;
3964 if (auto_node)
3966 tree auto_vec = make_tree_vec (1);
3967 TREE_VEC_ELT (auto_vec, 0) = auto_node;
3968 args = add_to_template_args (args, auto_vec);
3970 pushed = push_scope (scope);
3971 type = tsubst (type, args, tf_warning_or_error, NULL_TREE);
3972 if (pushed)
3973 pop_scope (scope);
3976 if (type == error_mark_node)
3977 return orig_type;
3979 if (TREE_CODE (orig_type) == TYPE_DECL)
3981 if (same_type_p (type, TREE_TYPE (orig_type)))
3982 type = orig_type;
3983 else
3984 type = TYPE_NAME (type);
3986 return type;
3989 /* Return a TEMPLATE_DECL corresponding to DECL, using the indicated
3990 template PARMS. If MEMBER_TEMPLATE_P is true, the new template is
3991 a member template. Used by push_template_decl below. */
3993 static tree
3994 build_template_decl (tree decl, tree parms, bool member_template_p)
3996 tree tmpl = build_lang_decl (TEMPLATE_DECL, DECL_NAME (decl), NULL_TREE);
3997 DECL_TEMPLATE_PARMS (tmpl) = parms;
3998 DECL_CONTEXT (tmpl) = DECL_CONTEXT (decl);
3999 DECL_SOURCE_LOCATION (tmpl) = DECL_SOURCE_LOCATION (decl);
4000 DECL_MEMBER_TEMPLATE_P (tmpl) = member_template_p;
4002 return tmpl;
4005 struct template_parm_data
4007 /* The level of the template parameters we are currently
4008 processing. */
4009 int level;
4011 /* The index of the specialization argument we are currently
4012 processing. */
4013 int current_arg;
4015 /* An array whose size is the number of template parameters. The
4016 elements are nonzero if the parameter has been used in any one
4017 of the arguments processed so far. */
4018 int* parms;
4020 /* An array whose size is the number of template arguments. The
4021 elements are nonzero if the argument makes use of template
4022 parameters of this level. */
4023 int* arg_uses_template_parms;
4026 /* Subroutine of push_template_decl used to see if each template
4027 parameter in a partial specialization is used in the explicit
4028 argument list. If T is of the LEVEL given in DATA (which is
4029 treated as a template_parm_data*), then DATA->PARMS is marked
4030 appropriately. */
4032 static int
4033 mark_template_parm (tree t, void* data)
4035 int level;
4036 int idx;
4037 struct template_parm_data* tpd = (struct template_parm_data*) data;
4039 template_parm_level_and_index (t, &level, &idx);
4041 if (level == tpd->level)
4043 tpd->parms[idx] = 1;
4044 tpd->arg_uses_template_parms[tpd->current_arg] = 1;
4047 /* Return zero so that for_each_template_parm will continue the
4048 traversal of the tree; we want to mark *every* template parm. */
4049 return 0;
4052 /* Process the partial specialization DECL. */
4054 static tree
4055 process_partial_specialization (tree decl)
4057 tree type = TREE_TYPE (decl);
4058 tree maintmpl = CLASSTYPE_TI_TEMPLATE (type);
4059 tree specargs = CLASSTYPE_TI_ARGS (type);
4060 tree inner_args = INNERMOST_TEMPLATE_ARGS (specargs);
4061 tree main_inner_parms = DECL_INNERMOST_TEMPLATE_PARMS (maintmpl);
4062 tree inner_parms;
4063 tree inst;
4064 int nargs = TREE_VEC_LENGTH (inner_args);
4065 int ntparms;
4066 int i;
4067 bool did_error_intro = false;
4068 struct template_parm_data tpd;
4069 struct template_parm_data tpd2;
4071 gcc_assert (current_template_parms);
4073 inner_parms = INNERMOST_TEMPLATE_PARMS (current_template_parms);
4074 ntparms = TREE_VEC_LENGTH (inner_parms);
4076 /* We check that each of the template parameters given in the
4077 partial specialization is used in the argument list to the
4078 specialization. For example:
4080 template <class T> struct S;
4081 template <class T> struct S<T*>;
4083 The second declaration is OK because `T*' uses the template
4084 parameter T, whereas
4086 template <class T> struct S<int>;
4088 is no good. Even trickier is:
4090 template <class T>
4091 struct S1
4093 template <class U>
4094 struct S2;
4095 template <class U>
4096 struct S2<T>;
4099 The S2<T> declaration is actually invalid; it is a
4100 full-specialization. Of course,
4102 template <class U>
4103 struct S2<T (*)(U)>;
4105 or some such would have been OK. */
4106 tpd.level = TMPL_PARMS_DEPTH (current_template_parms);
4107 tpd.parms = XALLOCAVEC (int, ntparms);
4108 memset (tpd.parms, 0, sizeof (int) * ntparms);
4110 tpd.arg_uses_template_parms = XALLOCAVEC (int, nargs);
4111 memset (tpd.arg_uses_template_parms, 0, sizeof (int) * nargs);
4112 for (i = 0; i < nargs; ++i)
4114 tpd.current_arg = i;
4115 for_each_template_parm (TREE_VEC_ELT (inner_args, i),
4116 &mark_template_parm,
4117 &tpd,
4118 NULL,
4119 /*include_nondeduced_p=*/false);
4121 for (i = 0; i < ntparms; ++i)
4122 if (tpd.parms[i] == 0)
4124 /* One of the template parms was not used in a deduced context in the
4125 specialization. */
4126 if (!did_error_intro)
4128 error ("template parameters not deducible in "
4129 "partial specialization:");
4130 did_error_intro = true;
4133 inform (input_location, " %qD",
4134 TREE_VALUE (TREE_VEC_ELT (inner_parms, i)));
4137 if (did_error_intro)
4138 return error_mark_node;
4140 /* [temp.class.spec]
4142 The argument list of the specialization shall not be identical to
4143 the implicit argument list of the primary template. */
4144 if (comp_template_args
4145 (inner_args,
4146 INNERMOST_TEMPLATE_ARGS (CLASSTYPE_TI_ARGS (TREE_TYPE
4147 (maintmpl)))))
4148 error ("partial specialization %qT does not specialize any template arguments", type);
4150 /* A partial specialization that replaces multiple parameters of the
4151 primary template with a pack expansion is less specialized for those
4152 parameters. */
4153 if (nargs < DECL_NTPARMS (maintmpl))
4155 error ("partial specialization is not more specialized than the "
4156 "primary template because it replaces multiple parameters "
4157 "with a pack expansion");
4158 inform (DECL_SOURCE_LOCATION (maintmpl), "primary template here");
4159 return decl;
4162 /* [temp.class.spec]
4164 A partially specialized non-type argument expression shall not
4165 involve template parameters of the partial specialization except
4166 when the argument expression is a simple identifier.
4168 The type of a template parameter corresponding to a specialized
4169 non-type argument shall not be dependent on a parameter of the
4170 specialization.
4172 Also, we verify that pack expansions only occur at the
4173 end of the argument list. */
4174 gcc_assert (nargs == DECL_NTPARMS (maintmpl));
4175 tpd2.parms = 0;
4176 for (i = 0; i < nargs; ++i)
4178 tree parm = TREE_VALUE (TREE_VEC_ELT (main_inner_parms, i));
4179 tree arg = TREE_VEC_ELT (inner_args, i);
4180 tree packed_args = NULL_TREE;
4181 int j, len = 1;
4183 if (ARGUMENT_PACK_P (arg))
4185 /* Extract the arguments from the argument pack. We'll be
4186 iterating over these in the following loop. */
4187 packed_args = ARGUMENT_PACK_ARGS (arg);
4188 len = TREE_VEC_LENGTH (packed_args);
4191 for (j = 0; j < len; j++)
4193 if (packed_args)
4194 /* Get the Jth argument in the parameter pack. */
4195 arg = TREE_VEC_ELT (packed_args, j);
4197 if (PACK_EXPANSION_P (arg))
4199 /* Pack expansions must come at the end of the
4200 argument list. */
4201 if ((packed_args && j < len - 1)
4202 || (!packed_args && i < nargs - 1))
4204 if (TREE_CODE (arg) == EXPR_PACK_EXPANSION)
4205 error ("parameter pack argument %qE must be at the "
4206 "end of the template argument list", arg);
4207 else
4208 error ("parameter pack argument %qT must be at the "
4209 "end of the template argument list", arg);
4213 if (TREE_CODE (arg) == EXPR_PACK_EXPANSION)
4214 /* We only care about the pattern. */
4215 arg = PACK_EXPANSION_PATTERN (arg);
4217 if (/* These first two lines are the `non-type' bit. */
4218 !TYPE_P (arg)
4219 && TREE_CODE (arg) != TEMPLATE_DECL
4220 /* This next two lines are the `argument expression is not just a
4221 simple identifier' condition and also the `specialized
4222 non-type argument' bit. */
4223 && TREE_CODE (arg) != TEMPLATE_PARM_INDEX
4224 && !(REFERENCE_REF_P (arg)
4225 && TREE_CODE (TREE_OPERAND (arg, 0)) == TEMPLATE_PARM_INDEX))
4227 if ((!packed_args && tpd.arg_uses_template_parms[i])
4228 || (packed_args && uses_template_parms (arg)))
4229 error ("template argument %qE involves template parameter(s)",
4230 arg);
4231 else
4233 /* Look at the corresponding template parameter,
4234 marking which template parameters its type depends
4235 upon. */
4236 tree type = TREE_TYPE (parm);
4238 if (!tpd2.parms)
4240 /* We haven't yet initialized TPD2. Do so now. */
4241 tpd2.arg_uses_template_parms = XALLOCAVEC (int, nargs);
4242 /* The number of parameters here is the number in the
4243 main template, which, as checked in the assertion
4244 above, is NARGS. */
4245 tpd2.parms = XALLOCAVEC (int, nargs);
4246 tpd2.level =
4247 TMPL_PARMS_DEPTH (DECL_TEMPLATE_PARMS (maintmpl));
4250 /* Mark the template parameters. But this time, we're
4251 looking for the template parameters of the main
4252 template, not in the specialization. */
4253 tpd2.current_arg = i;
4254 tpd2.arg_uses_template_parms[i] = 0;
4255 memset (tpd2.parms, 0, sizeof (int) * nargs);
4256 for_each_template_parm (type,
4257 &mark_template_parm,
4258 &tpd2,
4259 NULL,
4260 /*include_nondeduced_p=*/false);
4262 if (tpd2.arg_uses_template_parms [i])
4264 /* The type depended on some template parameters.
4265 If they are fully specialized in the
4266 specialization, that's OK. */
4267 int j;
4268 int count = 0;
4269 for (j = 0; j < nargs; ++j)
4270 if (tpd2.parms[j] != 0
4271 && tpd.arg_uses_template_parms [j])
4272 ++count;
4273 if (count != 0)
4274 error_n (input_location, count,
4275 "type %qT of template argument %qE depends "
4276 "on a template parameter",
4277 "type %qT of template argument %qE depends "
4278 "on template parameters",
4279 type,
4280 arg);
4287 /* We should only get here once. */
4288 gcc_assert (!COMPLETE_TYPE_P (type));
4290 tree tmpl = build_template_decl (decl, current_template_parms,
4291 DECL_MEMBER_TEMPLATE_P (maintmpl));
4292 TREE_TYPE (tmpl) = type;
4293 DECL_TEMPLATE_RESULT (tmpl) = decl;
4294 SET_DECL_TEMPLATE_SPECIALIZATION (tmpl);
4295 DECL_TEMPLATE_INFO (tmpl) = build_template_info (maintmpl, specargs);
4296 DECL_PRIMARY_TEMPLATE (tmpl) = maintmpl;
4298 DECL_TEMPLATE_SPECIALIZATIONS (maintmpl)
4299 = tree_cons (specargs, tmpl,
4300 DECL_TEMPLATE_SPECIALIZATIONS (maintmpl));
4301 TREE_TYPE (DECL_TEMPLATE_SPECIALIZATIONS (maintmpl)) = type;
4303 for (inst = DECL_TEMPLATE_INSTANTIATIONS (maintmpl); inst;
4304 inst = TREE_CHAIN (inst))
4306 tree inst_type = TREE_VALUE (inst);
4307 if (COMPLETE_TYPE_P (inst_type)
4308 && CLASSTYPE_IMPLICIT_INSTANTIATION (inst_type))
4310 tree spec = most_specialized_class (inst_type, tf_none);
4311 if (spec && TREE_TYPE (spec) == type)
4312 permerror (input_location,
4313 "partial specialization of %qT after instantiation "
4314 "of %qT", type, inst_type);
4318 return decl;
4321 /* PARM is a template parameter of some form; return the corresponding
4322 TEMPLATE_PARM_INDEX. */
4324 static tree
4325 get_template_parm_index (tree parm)
4327 if (TREE_CODE (parm) == PARM_DECL
4328 || TREE_CODE (parm) == CONST_DECL)
4329 parm = DECL_INITIAL (parm);
4330 else if (TREE_CODE (parm) == TYPE_DECL
4331 || TREE_CODE (parm) == TEMPLATE_DECL)
4332 parm = TREE_TYPE (parm);
4333 if (TREE_CODE (parm) == TEMPLATE_TYPE_PARM
4334 || TREE_CODE (parm) == TEMPLATE_TEMPLATE_PARM)
4335 parm = TEMPLATE_TYPE_PARM_INDEX (parm);
4336 gcc_assert (TREE_CODE (parm) == TEMPLATE_PARM_INDEX);
4337 return parm;
4340 /* Subroutine of fixed_parameter_pack_p below. Look for any template
4341 parameter packs used by the template parameter PARM. */
4343 static void
4344 fixed_parameter_pack_p_1 (tree parm, struct find_parameter_pack_data *ppd)
4346 /* A type parm can't refer to another parm. */
4347 if (TREE_CODE (parm) == TYPE_DECL)
4348 return;
4349 else if (TREE_CODE (parm) == PARM_DECL)
4351 cp_walk_tree (&TREE_TYPE (parm), &find_parameter_packs_r,
4352 ppd, ppd->visited);
4353 return;
4356 gcc_assert (TREE_CODE (parm) == TEMPLATE_DECL);
4358 tree vec = INNERMOST_TEMPLATE_PARMS (DECL_TEMPLATE_PARMS (parm));
4359 for (int i = 0; i < TREE_VEC_LENGTH (vec); ++i)
4360 fixed_parameter_pack_p_1 (TREE_VALUE (TREE_VEC_ELT (vec, i)), ppd);
4363 /* PARM is a template parameter pack. Return any parameter packs used in
4364 its type or the type of any of its template parameters. If there are
4365 any such packs, it will be instantiated into a fixed template parameter
4366 list by partial instantiation rather than be fully deduced. */
4368 tree
4369 fixed_parameter_pack_p (tree parm)
4371 /* This can only be true in a member template. */
4372 if (TEMPLATE_PARM_ORIG_LEVEL (get_template_parm_index (parm)) < 2)
4373 return NULL_TREE;
4374 /* This can only be true for a parameter pack. */
4375 if (!template_parameter_pack_p (parm))
4376 return NULL_TREE;
4377 /* A type parm can't refer to another parm. */
4378 if (TREE_CODE (parm) == TYPE_DECL)
4379 return NULL_TREE;
4381 tree parameter_packs = NULL_TREE;
4382 struct find_parameter_pack_data ppd;
4383 ppd.parameter_packs = &parameter_packs;
4384 ppd.visited = pointer_set_create ();
4386 fixed_parameter_pack_p_1 (parm, &ppd);
4388 pointer_set_destroy (ppd.visited);
4389 return parameter_packs;
4392 /* Check that a template declaration's use of default arguments and
4393 parameter packs is not invalid. Here, PARMS are the template
4394 parameters. IS_PRIMARY is true if DECL is the thing declared by
4395 a primary template. IS_PARTIAL is true if DECL is a partial
4396 specialization.
4398 IS_FRIEND_DECL is nonzero if DECL is a friend function template
4399 declaration (but not a definition); 1 indicates a declaration, 2
4400 indicates a redeclaration. When IS_FRIEND_DECL=2, no errors are
4401 emitted for extraneous default arguments.
4403 Returns TRUE if there were no errors found, FALSE otherwise. */
4405 bool
4406 check_default_tmpl_args (tree decl, tree parms, bool is_primary,
4407 bool is_partial, int is_friend_decl)
4409 const char *msg;
4410 int last_level_to_check;
4411 tree parm_level;
4412 bool no_errors = true;
4414 /* [temp.param]
4416 A default template-argument shall not be specified in a
4417 function template declaration or a function template definition, nor
4418 in the template-parameter-list of the definition of a member of a
4419 class template. */
4421 if (TREE_CODE (CP_DECL_CONTEXT (decl)) == FUNCTION_DECL
4422 || (TREE_CODE (decl) == FUNCTION_DECL && DECL_LOCAL_FUNCTION_P (decl)))
4423 /* You can't have a function template declaration in a local
4424 scope, nor you can you define a member of a class template in a
4425 local scope. */
4426 return true;
4428 if (TREE_CODE (decl) == TYPE_DECL
4429 && TREE_TYPE (decl)
4430 && LAMBDA_TYPE_P (TREE_TYPE (decl)))
4431 /* A lambda doesn't have an explicit declaration; don't complain
4432 about the parms of the enclosing class. */
4433 return true;
4435 if (current_class_type
4436 && !TYPE_BEING_DEFINED (current_class_type)
4437 && DECL_LANG_SPECIFIC (decl)
4438 && DECL_DECLARES_FUNCTION_P (decl)
4439 /* If this is either a friend defined in the scope of the class
4440 or a member function. */
4441 && (DECL_FUNCTION_MEMBER_P (decl)
4442 ? same_type_p (DECL_CONTEXT (decl), current_class_type)
4443 : DECL_FRIEND_CONTEXT (decl)
4444 ? same_type_p (DECL_FRIEND_CONTEXT (decl), current_class_type)
4445 : false)
4446 /* And, if it was a member function, it really was defined in
4447 the scope of the class. */
4448 && (!DECL_FUNCTION_MEMBER_P (decl)
4449 || DECL_INITIALIZED_IN_CLASS_P (decl)))
4450 /* We already checked these parameters when the template was
4451 declared, so there's no need to do it again now. This function
4452 was defined in class scope, but we're processing its body now
4453 that the class is complete. */
4454 return true;
4456 /* Core issue 226 (C++0x only): the following only applies to class
4457 templates. */
4458 if (is_primary
4459 && ((cxx_dialect == cxx98) || TREE_CODE (decl) != FUNCTION_DECL))
4461 /* [temp.param]
4463 If a template-parameter has a default template-argument, all
4464 subsequent template-parameters shall have a default
4465 template-argument supplied. */
4466 for (parm_level = parms; parm_level; parm_level = TREE_CHAIN (parm_level))
4468 tree inner_parms = TREE_VALUE (parm_level);
4469 int ntparms = TREE_VEC_LENGTH (inner_parms);
4470 int seen_def_arg_p = 0;
4471 int i;
4473 for (i = 0; i < ntparms; ++i)
4475 tree parm = TREE_VEC_ELT (inner_parms, i);
4477 if (parm == error_mark_node)
4478 continue;
4480 if (TREE_PURPOSE (parm))
4481 seen_def_arg_p = 1;
4482 else if (seen_def_arg_p
4483 && !template_parameter_pack_p (TREE_VALUE (parm)))
4485 error ("no default argument for %qD", TREE_VALUE (parm));
4486 /* For better subsequent error-recovery, we indicate that
4487 there should have been a default argument. */
4488 TREE_PURPOSE (parm) = error_mark_node;
4489 no_errors = false;
4491 else if (!is_partial
4492 && !is_friend_decl
4493 /* Don't complain about an enclosing partial
4494 specialization. */
4495 && parm_level == parms
4496 && TREE_CODE (decl) == TYPE_DECL
4497 && i < ntparms - 1
4498 && template_parameter_pack_p (TREE_VALUE (parm))
4499 /* A fixed parameter pack will be partially
4500 instantiated into a fixed length list. */
4501 && !fixed_parameter_pack_p (TREE_VALUE (parm)))
4503 /* A primary class template can only have one
4504 parameter pack, at the end of the template
4505 parameter list. */
4507 if (TREE_CODE (TREE_VALUE (parm)) == PARM_DECL)
4508 error ("parameter pack %qE must be at the end of the"
4509 " template parameter list", TREE_VALUE (parm));
4510 else
4511 error ("parameter pack %qT must be at the end of the"
4512 " template parameter list",
4513 TREE_TYPE (TREE_VALUE (parm)));
4515 TREE_VALUE (TREE_VEC_ELT (inner_parms, i))
4516 = error_mark_node;
4517 no_errors = false;
4523 if (((cxx_dialect == cxx98) && TREE_CODE (decl) != TYPE_DECL)
4524 || is_partial
4525 || !is_primary
4526 || is_friend_decl)
4527 /* For an ordinary class template, default template arguments are
4528 allowed at the innermost level, e.g.:
4529 template <class T = int>
4530 struct S {};
4531 but, in a partial specialization, they're not allowed even
4532 there, as we have in [temp.class.spec]:
4534 The template parameter list of a specialization shall not
4535 contain default template argument values.
4537 So, for a partial specialization, or for a function template
4538 (in C++98/C++03), we look at all of them. */
4540 else
4541 /* But, for a primary class template that is not a partial
4542 specialization we look at all template parameters except the
4543 innermost ones. */
4544 parms = TREE_CHAIN (parms);
4546 /* Figure out what error message to issue. */
4547 if (is_friend_decl == 2)
4548 msg = G_("default template arguments may not be used in function template "
4549 "friend re-declaration");
4550 else if (is_friend_decl)
4551 msg = G_("default template arguments may not be used in function template "
4552 "friend declarations");
4553 else if (TREE_CODE (decl) == FUNCTION_DECL && (cxx_dialect == cxx98))
4554 msg = G_("default template arguments may not be used in function templates "
4555 "without -std=c++11 or -std=gnu++11");
4556 else if (is_partial)
4557 msg = G_("default template arguments may not be used in "
4558 "partial specializations");
4559 else
4560 msg = G_("default argument for template parameter for class enclosing %qD");
4562 if (current_class_type && TYPE_BEING_DEFINED (current_class_type))
4563 /* If we're inside a class definition, there's no need to
4564 examine the parameters to the class itself. On the one
4565 hand, they will be checked when the class is defined, and,
4566 on the other, default arguments are valid in things like:
4567 template <class T = double>
4568 struct S { template <class U> void f(U); };
4569 Here the default argument for `S' has no bearing on the
4570 declaration of `f'. */
4571 last_level_to_check = template_class_depth (current_class_type) + 1;
4572 else
4573 /* Check everything. */
4574 last_level_to_check = 0;
4576 for (parm_level = parms;
4577 parm_level && TMPL_PARMS_DEPTH (parm_level) >= last_level_to_check;
4578 parm_level = TREE_CHAIN (parm_level))
4580 tree inner_parms = TREE_VALUE (parm_level);
4581 int i;
4582 int ntparms;
4584 ntparms = TREE_VEC_LENGTH (inner_parms);
4585 for (i = 0; i < ntparms; ++i)
4587 if (TREE_VEC_ELT (inner_parms, i) == error_mark_node)
4588 continue;
4590 if (TREE_PURPOSE (TREE_VEC_ELT (inner_parms, i)))
4592 if (msg)
4594 no_errors = false;
4595 if (is_friend_decl == 2)
4596 return no_errors;
4598 error (msg, decl);
4599 msg = 0;
4602 /* Clear out the default argument so that we are not
4603 confused later. */
4604 TREE_PURPOSE (TREE_VEC_ELT (inner_parms, i)) = NULL_TREE;
4608 /* At this point, if we're still interested in issuing messages,
4609 they must apply to classes surrounding the object declared. */
4610 if (msg)
4611 msg = G_("default argument for template parameter for class "
4612 "enclosing %qD");
4615 return no_errors;
4618 /* Worker for push_template_decl_real, called via
4619 for_each_template_parm. DATA is really an int, indicating the
4620 level of the parameters we are interested in. If T is a template
4621 parameter of that level, return nonzero. */
4623 static int
4624 template_parm_this_level_p (tree t, void* data)
4626 int this_level = *(int *)data;
4627 int level;
4629 if (TREE_CODE (t) == TEMPLATE_PARM_INDEX)
4630 level = TEMPLATE_PARM_LEVEL (t);
4631 else
4632 level = TEMPLATE_TYPE_LEVEL (t);
4633 return level == this_level;
4636 /* Creates a TEMPLATE_DECL for the indicated DECL using the template
4637 parameters given by current_template_args, or reuses a
4638 previously existing one, if appropriate. Returns the DECL, or an
4639 equivalent one, if it is replaced via a call to duplicate_decls.
4641 If IS_FRIEND is true, DECL is a friend declaration. */
4643 tree
4644 push_template_decl_real (tree decl, bool is_friend)
4646 tree tmpl;
4647 tree args;
4648 tree info;
4649 tree ctx;
4650 bool is_primary;
4651 bool is_partial;
4652 int new_template_p = 0;
4653 /* True if the template is a member template, in the sense of
4654 [temp.mem]. */
4655 bool member_template_p = false;
4657 if (decl == error_mark_node || !current_template_parms)
4658 return error_mark_node;
4660 /* See if this is a partial specialization. */
4661 is_partial = (DECL_IMPLICIT_TYPEDEF_P (decl)
4662 && TREE_CODE (TREE_TYPE (decl)) != ENUMERAL_TYPE
4663 && CLASSTYPE_TEMPLATE_SPECIALIZATION (TREE_TYPE (decl)));
4665 if (TREE_CODE (decl) == FUNCTION_DECL && DECL_FRIEND_P (decl))
4666 is_friend = true;
4668 if (is_friend)
4669 /* For a friend, we want the context of the friend function, not
4670 the type of which it is a friend. */
4671 ctx = CP_DECL_CONTEXT (decl);
4672 else if (CP_DECL_CONTEXT (decl)
4673 && TREE_CODE (CP_DECL_CONTEXT (decl)) != NAMESPACE_DECL)
4674 /* In the case of a virtual function, we want the class in which
4675 it is defined. */
4676 ctx = CP_DECL_CONTEXT (decl);
4677 else
4678 /* Otherwise, if we're currently defining some class, the DECL
4679 is assumed to be a member of the class. */
4680 ctx = current_scope ();
4682 if (ctx && TREE_CODE (ctx) == NAMESPACE_DECL)
4683 ctx = NULL_TREE;
4685 if (!DECL_CONTEXT (decl))
4686 DECL_CONTEXT (decl) = FROB_CONTEXT (current_namespace);
4688 /* See if this is a primary template. */
4689 if (is_friend && ctx
4690 && uses_template_parms_level (ctx, processing_template_decl))
4691 /* A friend template that specifies a class context, i.e.
4692 template <typename T> friend void A<T>::f();
4693 is not primary. */
4694 is_primary = false;
4695 else
4696 is_primary = template_parm_scope_p ();
4698 if (is_primary)
4700 if (DECL_CLASS_SCOPE_P (decl))
4701 member_template_p = true;
4702 if (TREE_CODE (decl) == TYPE_DECL
4703 && ANON_AGGRNAME_P (DECL_NAME (decl)))
4705 error ("template class without a name");
4706 return error_mark_node;
4708 else if (TREE_CODE (decl) == FUNCTION_DECL)
4710 if (DECL_DESTRUCTOR_P (decl))
4712 /* [temp.mem]
4714 A destructor shall not be a member template. */
4715 error ("destructor %qD declared as member template", decl);
4716 return error_mark_node;
4718 if (NEW_DELETE_OPNAME_P (DECL_NAME (decl))
4719 && (!prototype_p (TREE_TYPE (decl))
4720 || TYPE_ARG_TYPES (TREE_TYPE (decl)) == void_list_node
4721 || !TREE_CHAIN (TYPE_ARG_TYPES (TREE_TYPE (decl)))
4722 || (TREE_CHAIN (TYPE_ARG_TYPES ((TREE_TYPE (decl))))
4723 == void_list_node)))
4725 /* [basic.stc.dynamic.allocation]
4727 An allocation function can be a function
4728 template. ... Template allocation functions shall
4729 have two or more parameters. */
4730 error ("invalid template declaration of %qD", decl);
4731 return error_mark_node;
4734 else if (DECL_IMPLICIT_TYPEDEF_P (decl)
4735 && CLASS_TYPE_P (TREE_TYPE (decl)))
4736 /* OK */;
4737 else if (TREE_CODE (decl) == TYPE_DECL
4738 && TYPE_DECL_ALIAS_P (decl))
4739 /* alias-declaration */
4740 gcc_assert (!DECL_ARTIFICIAL (decl));
4741 else
4743 error ("template declaration of %q#D", decl);
4744 return error_mark_node;
4748 /* Check to see that the rules regarding the use of default
4749 arguments are not being violated. */
4750 check_default_tmpl_args (decl, current_template_parms,
4751 is_primary, is_partial, /*is_friend_decl=*/0);
4753 /* Ensure that there are no parameter packs in the type of this
4754 declaration that have not been expanded. */
4755 if (TREE_CODE (decl) == FUNCTION_DECL)
4757 /* Check each of the arguments individually to see if there are
4758 any bare parameter packs. */
4759 tree type = TREE_TYPE (decl);
4760 tree arg = DECL_ARGUMENTS (decl);
4761 tree argtype = TYPE_ARG_TYPES (type);
4763 while (arg && argtype)
4765 if (!DECL_PACK_P (arg)
4766 && check_for_bare_parameter_packs (TREE_TYPE (arg)))
4768 /* This is a PARM_DECL that contains unexpanded parameter
4769 packs. We have already complained about this in the
4770 check_for_bare_parameter_packs call, so just replace
4771 these types with ERROR_MARK_NODE. */
4772 TREE_TYPE (arg) = error_mark_node;
4773 TREE_VALUE (argtype) = error_mark_node;
4776 arg = DECL_CHAIN (arg);
4777 argtype = TREE_CHAIN (argtype);
4780 /* Check for bare parameter packs in the return type and the
4781 exception specifiers. */
4782 if (check_for_bare_parameter_packs (TREE_TYPE (type)))
4783 /* Errors were already issued, set return type to int
4784 as the frontend doesn't expect error_mark_node as
4785 the return type. */
4786 TREE_TYPE (type) = integer_type_node;
4787 if (check_for_bare_parameter_packs (TYPE_RAISES_EXCEPTIONS (type)))
4788 TYPE_RAISES_EXCEPTIONS (type) = NULL_TREE;
4790 else if (check_for_bare_parameter_packs ((TREE_CODE (decl) == TYPE_DECL
4791 && TYPE_DECL_ALIAS_P (decl))
4792 ? DECL_ORIGINAL_TYPE (decl)
4793 : TREE_TYPE (decl)))
4795 TREE_TYPE (decl) = error_mark_node;
4796 return error_mark_node;
4799 if (is_partial)
4800 return process_partial_specialization (decl);
4802 args = current_template_args ();
4804 if (!ctx
4805 || TREE_CODE (ctx) == FUNCTION_DECL
4806 || (CLASS_TYPE_P (ctx) && TYPE_BEING_DEFINED (ctx))
4807 || (TREE_CODE (decl) == TYPE_DECL
4808 && LAMBDA_TYPE_P (TREE_TYPE (decl)))
4809 || (is_friend && !DECL_TEMPLATE_INFO (decl)))
4811 if (DECL_LANG_SPECIFIC (decl)
4812 && DECL_TEMPLATE_INFO (decl)
4813 && DECL_TI_TEMPLATE (decl))
4814 tmpl = DECL_TI_TEMPLATE (decl);
4815 /* If DECL is a TYPE_DECL for a class-template, then there won't
4816 be DECL_LANG_SPECIFIC. The information equivalent to
4817 DECL_TEMPLATE_INFO is found in TYPE_TEMPLATE_INFO instead. */
4818 else if (DECL_IMPLICIT_TYPEDEF_P (decl)
4819 && TYPE_TEMPLATE_INFO (TREE_TYPE (decl))
4820 && TYPE_TI_TEMPLATE (TREE_TYPE (decl)))
4822 /* Since a template declaration already existed for this
4823 class-type, we must be redeclaring it here. Make sure
4824 that the redeclaration is valid. */
4825 redeclare_class_template (TREE_TYPE (decl),
4826 current_template_parms);
4827 /* We don't need to create a new TEMPLATE_DECL; just use the
4828 one we already had. */
4829 tmpl = TYPE_TI_TEMPLATE (TREE_TYPE (decl));
4831 else
4833 tmpl = build_template_decl (decl, current_template_parms,
4834 member_template_p);
4835 new_template_p = 1;
4837 if (DECL_LANG_SPECIFIC (decl)
4838 && DECL_TEMPLATE_SPECIALIZATION (decl))
4840 /* A specialization of a member template of a template
4841 class. */
4842 SET_DECL_TEMPLATE_SPECIALIZATION (tmpl);
4843 DECL_TEMPLATE_INFO (tmpl) = DECL_TEMPLATE_INFO (decl);
4844 DECL_TEMPLATE_INFO (decl) = NULL_TREE;
4848 else
4850 tree a, t, current, parms;
4851 int i;
4852 tree tinfo = get_template_info (decl);
4854 if (!tinfo)
4856 error ("template definition of non-template %q#D", decl);
4857 return error_mark_node;
4860 tmpl = TI_TEMPLATE (tinfo);
4862 if (DECL_FUNCTION_TEMPLATE_P (tmpl)
4863 && DECL_TEMPLATE_INFO (decl) && DECL_TI_ARGS (decl)
4864 && DECL_TEMPLATE_SPECIALIZATION (decl)
4865 && DECL_MEMBER_TEMPLATE_P (tmpl))
4867 tree new_tmpl;
4869 /* The declaration is a specialization of a member
4870 template, declared outside the class. Therefore, the
4871 innermost template arguments will be NULL, so we
4872 replace them with the arguments determined by the
4873 earlier call to check_explicit_specialization. */
4874 args = DECL_TI_ARGS (decl);
4876 new_tmpl
4877 = build_template_decl (decl, current_template_parms,
4878 member_template_p);
4879 DECL_TEMPLATE_RESULT (new_tmpl) = decl;
4880 TREE_TYPE (new_tmpl) = TREE_TYPE (decl);
4881 DECL_TI_TEMPLATE (decl) = new_tmpl;
4882 SET_DECL_TEMPLATE_SPECIALIZATION (new_tmpl);
4883 DECL_TEMPLATE_INFO (new_tmpl)
4884 = build_template_info (tmpl, args);
4886 register_specialization (new_tmpl,
4887 most_general_template (tmpl),
4888 args,
4889 is_friend, 0);
4890 return decl;
4893 /* Make sure the template headers we got make sense. */
4895 parms = DECL_TEMPLATE_PARMS (tmpl);
4896 i = TMPL_PARMS_DEPTH (parms);
4897 if (TMPL_ARGS_DEPTH (args) != i)
4899 error ("expected %d levels of template parms for %q#D, got %d",
4900 i, decl, TMPL_ARGS_DEPTH (args));
4901 DECL_INTERFACE_KNOWN (decl) = 1;
4902 return error_mark_node;
4904 else
4905 for (current = decl; i > 0; --i, parms = TREE_CHAIN (parms))
4907 a = TMPL_ARGS_LEVEL (args, i);
4908 t = INNERMOST_TEMPLATE_PARMS (parms);
4910 if (TREE_VEC_LENGTH (t) != TREE_VEC_LENGTH (a))
4912 if (current == decl)
4913 error ("got %d template parameters for %q#D",
4914 TREE_VEC_LENGTH (a), decl);
4915 else
4916 error ("got %d template parameters for %q#T",
4917 TREE_VEC_LENGTH (a), current);
4918 error (" but %d required", TREE_VEC_LENGTH (t));
4919 /* Avoid crash in import_export_decl. */
4920 DECL_INTERFACE_KNOWN (decl) = 1;
4921 return error_mark_node;
4924 if (current == decl)
4925 current = ctx;
4926 else if (current == NULL_TREE)
4927 /* Can happen in erroneous input. */
4928 break;
4929 else
4930 current = get_containing_scope (current);
4933 /* Check that the parms are used in the appropriate qualifying scopes
4934 in the declarator. */
4935 if (!comp_template_args
4936 (TI_ARGS (tinfo),
4937 TI_ARGS (get_template_info (DECL_TEMPLATE_RESULT (tmpl)))))
4939 error ("\
4940 template arguments to %qD do not match original template %qD",
4941 decl, DECL_TEMPLATE_RESULT (tmpl));
4942 if (!uses_template_parms (TI_ARGS (tinfo)))
4943 inform (input_location, "use template<> for an explicit specialization");
4944 /* Avoid crash in import_export_decl. */
4945 DECL_INTERFACE_KNOWN (decl) = 1;
4946 return error_mark_node;
4950 DECL_TEMPLATE_RESULT (tmpl) = decl;
4951 TREE_TYPE (tmpl) = TREE_TYPE (decl);
4953 /* Push template declarations for global functions and types. Note
4954 that we do not try to push a global template friend declared in a
4955 template class; such a thing may well depend on the template
4956 parameters of the class. */
4957 if (new_template_p && !ctx
4958 && !(is_friend && template_class_depth (current_class_type) > 0))
4960 tmpl = pushdecl_namespace_level (tmpl, is_friend);
4961 if (tmpl == error_mark_node)
4962 return error_mark_node;
4964 /* Hide template friend classes that haven't been declared yet. */
4965 if (is_friend && TREE_CODE (decl) == TYPE_DECL)
4967 DECL_ANTICIPATED (tmpl) = 1;
4968 DECL_FRIEND_P (tmpl) = 1;
4972 if (is_primary)
4974 tree parms = DECL_TEMPLATE_PARMS (tmpl);
4975 int i;
4977 DECL_PRIMARY_TEMPLATE (tmpl) = tmpl;
4978 if (DECL_CONV_FN_P (tmpl))
4980 int depth = TMPL_PARMS_DEPTH (parms);
4982 /* It is a conversion operator. See if the type converted to
4983 depends on innermost template operands. */
4985 if (uses_template_parms_level (TREE_TYPE (TREE_TYPE (tmpl)),
4986 depth))
4987 DECL_TEMPLATE_CONV_FN_P (tmpl) = 1;
4990 /* Give template template parms a DECL_CONTEXT of the template
4991 for which they are a parameter. */
4992 parms = INNERMOST_TEMPLATE_PARMS (parms);
4993 for (i = TREE_VEC_LENGTH (parms) - 1; i >= 0; --i)
4995 tree parm = TREE_VALUE (TREE_VEC_ELT (parms, i));
4996 if (TREE_CODE (parm) == TEMPLATE_DECL)
4997 DECL_CONTEXT (parm) = tmpl;
5001 /* The DECL_TI_ARGS of DECL contains full set of arguments referring
5002 back to its most general template. If TMPL is a specialization,
5003 ARGS may only have the innermost set of arguments. Add the missing
5004 argument levels if necessary. */
5005 if (DECL_TEMPLATE_INFO (tmpl))
5006 args = add_outermost_template_args (DECL_TI_ARGS (tmpl), args);
5008 info = build_template_info (tmpl, args);
5010 if (DECL_IMPLICIT_TYPEDEF_P (decl))
5011 SET_TYPE_TEMPLATE_INFO (TREE_TYPE (tmpl), info);
5012 else
5014 if (is_primary && !DECL_LANG_SPECIFIC (decl))
5015 retrofit_lang_decl (decl);
5016 if (DECL_LANG_SPECIFIC (decl))
5017 DECL_TEMPLATE_INFO (decl) = info;
5020 return DECL_TEMPLATE_RESULT (tmpl);
5023 tree
5024 push_template_decl (tree decl)
5026 return push_template_decl_real (decl, false);
5029 /* FN is an inheriting constructor that inherits from the constructor
5030 template INHERITED; turn FN into a constructor template with a matching
5031 template header. */
5033 tree
5034 add_inherited_template_parms (tree fn, tree inherited)
5036 tree inner_parms
5037 = INNERMOST_TEMPLATE_PARMS (DECL_TEMPLATE_PARMS (inherited));
5038 inner_parms = copy_node (inner_parms);
5039 tree parms
5040 = tree_cons (size_int (processing_template_decl + 1),
5041 inner_parms, current_template_parms);
5042 tree tmpl = build_template_decl (fn, parms, /*member*/true);
5043 tree args = template_parms_to_args (parms);
5044 DECL_TEMPLATE_INFO (fn) = build_template_info (tmpl, args);
5045 TREE_TYPE (tmpl) = TREE_TYPE (fn);
5046 DECL_TEMPLATE_RESULT (tmpl) = fn;
5047 DECL_ARTIFICIAL (tmpl) = true;
5048 DECL_PRIMARY_TEMPLATE (tmpl) = tmpl;
5049 return tmpl;
5052 /* Called when a class template TYPE is redeclared with the indicated
5053 template PARMS, e.g.:
5055 template <class T> struct S;
5056 template <class T> struct S {}; */
5058 bool
5059 redeclare_class_template (tree type, tree parms)
5061 tree tmpl;
5062 tree tmpl_parms;
5063 int i;
5065 if (!TYPE_TEMPLATE_INFO (type))
5067 error ("%qT is not a template type", type);
5068 return false;
5071 tmpl = TYPE_TI_TEMPLATE (type);
5072 if (!PRIMARY_TEMPLATE_P (tmpl))
5073 /* The type is nested in some template class. Nothing to worry
5074 about here; there are no new template parameters for the nested
5075 type. */
5076 return true;
5078 if (!parms)
5080 error ("template specifiers not specified in declaration of %qD",
5081 tmpl);
5082 return false;
5085 parms = INNERMOST_TEMPLATE_PARMS (parms);
5086 tmpl_parms = DECL_INNERMOST_TEMPLATE_PARMS (tmpl);
5088 if (TREE_VEC_LENGTH (parms) != TREE_VEC_LENGTH (tmpl_parms))
5090 error_n (input_location, TREE_VEC_LENGTH (parms),
5091 "redeclared with %d template parameter",
5092 "redeclared with %d template parameters",
5093 TREE_VEC_LENGTH (parms));
5094 inform_n (input_location, TREE_VEC_LENGTH (tmpl_parms),
5095 "previous declaration %q+D used %d template parameter",
5096 "previous declaration %q+D used %d template parameters",
5097 tmpl, TREE_VEC_LENGTH (tmpl_parms));
5098 return false;
5101 for (i = 0; i < TREE_VEC_LENGTH (tmpl_parms); ++i)
5103 tree tmpl_parm;
5104 tree parm;
5105 tree tmpl_default;
5106 tree parm_default;
5108 if (TREE_VEC_ELT (tmpl_parms, i) == error_mark_node
5109 || TREE_VEC_ELT (parms, i) == error_mark_node)
5110 continue;
5112 tmpl_parm = TREE_VALUE (TREE_VEC_ELT (tmpl_parms, i));
5113 if (error_operand_p (tmpl_parm))
5114 return false;
5116 parm = TREE_VALUE (TREE_VEC_ELT (parms, i));
5117 tmpl_default = TREE_PURPOSE (TREE_VEC_ELT (tmpl_parms, i));
5118 parm_default = TREE_PURPOSE (TREE_VEC_ELT (parms, i));
5120 /* TMPL_PARM and PARM can be either TYPE_DECL, PARM_DECL, or
5121 TEMPLATE_DECL. */
5122 if (TREE_CODE (tmpl_parm) != TREE_CODE (parm)
5123 || (TREE_CODE (tmpl_parm) != TYPE_DECL
5124 && !same_type_p (TREE_TYPE (tmpl_parm), TREE_TYPE (parm)))
5125 || (TREE_CODE (tmpl_parm) != PARM_DECL
5126 && (TEMPLATE_TYPE_PARAMETER_PACK (TREE_TYPE (tmpl_parm))
5127 != TEMPLATE_TYPE_PARAMETER_PACK (TREE_TYPE (parm))))
5128 || (TREE_CODE (tmpl_parm) == PARM_DECL
5129 && (TEMPLATE_PARM_PARAMETER_PACK (DECL_INITIAL (tmpl_parm))
5130 != TEMPLATE_PARM_PARAMETER_PACK (DECL_INITIAL (parm)))))
5132 error ("template parameter %q+#D", tmpl_parm);
5133 error ("redeclared here as %q#D", parm);
5134 return false;
5137 if (tmpl_default != NULL_TREE && parm_default != NULL_TREE)
5139 /* We have in [temp.param]:
5141 A template-parameter may not be given default arguments
5142 by two different declarations in the same scope. */
5143 error_at (input_location, "redefinition of default argument for %q#D", parm);
5144 inform (DECL_SOURCE_LOCATION (tmpl_parm),
5145 "original definition appeared here");
5146 return false;
5149 if (parm_default != NULL_TREE)
5150 /* Update the previous template parameters (which are the ones
5151 that will really count) with the new default value. */
5152 TREE_PURPOSE (TREE_VEC_ELT (tmpl_parms, i)) = parm_default;
5153 else if (tmpl_default != NULL_TREE)
5154 /* Update the new parameters, too; they'll be used as the
5155 parameters for any members. */
5156 TREE_PURPOSE (TREE_VEC_ELT (parms, i)) = tmpl_default;
5159 return true;
5162 /* Simplify EXPR if it is a non-dependent expression. Returns the
5163 (possibly simplified) expression. */
5165 tree
5166 fold_non_dependent_expr_sfinae (tree expr, tsubst_flags_t complain)
5168 if (expr == NULL_TREE)
5169 return NULL_TREE;
5171 /* If we're in a template, but EXPR isn't value dependent, simplify
5172 it. We're supposed to treat:
5174 template <typename T> void f(T[1 + 1]);
5175 template <typename T> void f(T[2]);
5177 as two declarations of the same function, for example. */
5178 if (processing_template_decl
5179 && !instantiation_dependent_expression_p (expr)
5180 && potential_constant_expression (expr))
5182 HOST_WIDE_INT saved_processing_template_decl;
5184 saved_processing_template_decl = processing_template_decl;
5185 processing_template_decl = 0;
5186 expr = tsubst_copy_and_build (expr,
5187 /*args=*/NULL_TREE,
5188 complain,
5189 /*in_decl=*/NULL_TREE,
5190 /*function_p=*/false,
5191 /*integral_constant_expression_p=*/true);
5192 processing_template_decl = saved_processing_template_decl;
5194 return expr;
5197 tree
5198 fold_non_dependent_expr (tree expr)
5200 return fold_non_dependent_expr_sfinae (expr, tf_error);
5203 /* Return TRUE iff T is a type alias, a TEMPLATE_DECL for an alias
5204 template declaration, or a TYPE_DECL for an alias declaration. */
5206 bool
5207 alias_type_or_template_p (tree t)
5209 if (t == NULL_TREE)
5210 return false;
5211 return ((TREE_CODE (t) == TYPE_DECL && TYPE_DECL_ALIAS_P (t))
5212 || (TYPE_P (t)
5213 && TYPE_NAME (t)
5214 && TYPE_DECL_ALIAS_P (TYPE_NAME (t)))
5215 || DECL_ALIAS_TEMPLATE_P (t));
5218 /* Return TRUE iff is a specialization of an alias template. */
5220 bool
5221 alias_template_specialization_p (const_tree t)
5223 if (t == NULL_TREE)
5224 return false;
5226 return (TYPE_P (t)
5227 && TYPE_TEMPLATE_INFO (t)
5228 && PRIMARY_TEMPLATE_P (TYPE_TI_TEMPLATE (t))
5229 && DECL_ALIAS_TEMPLATE_P (TYPE_TI_TEMPLATE (t)));
5232 /* Return the number of innermost template parameters in TMPL. */
5234 static int
5235 num_innermost_template_parms (tree tmpl)
5237 tree parms = INNERMOST_TEMPLATE_PARMS (DECL_TEMPLATE_PARMS (tmpl));
5238 return TREE_VEC_LENGTH (parms);
5241 /* Return either TMPL or another template that it is equivalent to under DR
5242 1286: An alias that just changes the name of a template is equivalent to
5243 the other template. */
5245 static tree
5246 get_underlying_template (tree tmpl)
5248 gcc_assert (TREE_CODE (tmpl) == TEMPLATE_DECL);
5249 while (DECL_ALIAS_TEMPLATE_P (tmpl))
5251 tree result = DECL_ORIGINAL_TYPE (DECL_TEMPLATE_RESULT (tmpl));
5252 if (TYPE_TEMPLATE_INFO (result))
5254 tree sub = TYPE_TI_TEMPLATE (result);
5255 if (PRIMARY_TEMPLATE_P (sub)
5256 && (num_innermost_template_parms (tmpl)
5257 == num_innermost_template_parms (sub)))
5259 tree alias_args = INNERMOST_TEMPLATE_ARGS
5260 (template_parms_to_args (DECL_TEMPLATE_PARMS (tmpl)));
5261 if (!comp_template_args (TYPE_TI_ARGS (result), alias_args))
5262 break;
5263 /* The alias type is equivalent to the pattern of the
5264 underlying template, so strip the alias. */
5265 tmpl = sub;
5266 continue;
5269 break;
5271 return tmpl;
5274 /* Subroutine of convert_nontype_argument. Converts EXPR to TYPE, which
5275 must be a function or a pointer-to-function type, as specified
5276 in [temp.arg.nontype]: disambiguate EXPR if it is an overload set,
5277 and check that the resulting function has external linkage. */
5279 static tree
5280 convert_nontype_argument_function (tree type, tree expr,
5281 tsubst_flags_t complain)
5283 tree fns = expr;
5284 tree fn, fn_no_ptr;
5285 linkage_kind linkage;
5287 fn = instantiate_type (type, fns, tf_none);
5288 if (fn == error_mark_node)
5289 return error_mark_node;
5291 fn_no_ptr = fn;
5292 if (TREE_CODE (fn_no_ptr) == ADDR_EXPR)
5293 fn_no_ptr = TREE_OPERAND (fn_no_ptr, 0);
5294 if (BASELINK_P (fn_no_ptr))
5295 fn_no_ptr = BASELINK_FUNCTIONS (fn_no_ptr);
5297 /* [temp.arg.nontype]/1
5299 A template-argument for a non-type, non-template template-parameter
5300 shall be one of:
5301 [...]
5302 -- the address of an object or function with external [C++11: or
5303 internal] linkage. */
5305 if (TREE_CODE (fn_no_ptr) != FUNCTION_DECL)
5307 if (complain & tf_error)
5309 error ("%qE is not a valid template argument for type %qT",
5310 expr, type);
5311 if (TYPE_PTR_P (type))
5312 error ("it must be the address of a function with "
5313 "external linkage");
5314 else
5315 error ("it must be the name of a function with "
5316 "external linkage");
5318 return NULL_TREE;
5321 linkage = decl_linkage (fn_no_ptr);
5322 if (cxx_dialect >= cxx11 ? linkage == lk_none : linkage != lk_external)
5324 if (complain & tf_error)
5326 if (cxx_dialect >= cxx11)
5327 error ("%qE is not a valid template argument for type %qT "
5328 "because %qD has no linkage",
5329 expr, type, fn_no_ptr);
5330 else
5331 error ("%qE is not a valid template argument for type %qT "
5332 "because %qD does not have external linkage",
5333 expr, type, fn_no_ptr);
5335 return NULL_TREE;
5338 return fn;
5341 /* Subroutine of convert_nontype_argument.
5342 Check if EXPR of type TYPE is a valid pointer-to-member constant.
5343 Emit an error otherwise. */
5345 static bool
5346 check_valid_ptrmem_cst_expr (tree type, tree expr,
5347 tsubst_flags_t complain)
5349 STRIP_NOPS (expr);
5350 if (expr && (null_ptr_cst_p (expr) || TREE_CODE (expr) == PTRMEM_CST))
5351 return true;
5352 if (cxx_dialect >= cxx11 && null_member_pointer_value_p (expr))
5353 return true;
5354 if (processing_template_decl
5355 && TREE_CODE (expr) == ADDR_EXPR
5356 && TREE_CODE (TREE_OPERAND (expr, 0)) == OFFSET_REF)
5357 return true;
5358 if (complain & tf_error)
5360 error ("%qE is not a valid template argument for type %qT",
5361 expr, type);
5362 error ("it must be a pointer-to-member of the form %<&X::Y%>");
5364 return false;
5367 /* Returns TRUE iff the address of OP is value-dependent.
5369 14.6.2.4 [temp.dep.temp]:
5370 A non-integral non-type template-argument is dependent if its type is
5371 dependent or it has either of the following forms
5372 qualified-id
5373 & qualified-id
5374 and contains a nested-name-specifier which specifies a class-name that
5375 names a dependent type.
5377 We generalize this to just say that the address of a member of a
5378 dependent class is value-dependent; the above doesn't cover the
5379 address of a static data member named with an unqualified-id. */
5381 static bool
5382 has_value_dependent_address (tree op)
5384 /* We could use get_inner_reference here, but there's no need;
5385 this is only relevant for template non-type arguments, which
5386 can only be expressed as &id-expression. */
5387 if (DECL_P (op))
5389 tree ctx = CP_DECL_CONTEXT (op);
5390 if (TYPE_P (ctx) && dependent_type_p (ctx))
5391 return true;
5394 return false;
5397 /* The next set of functions are used for providing helpful explanatory
5398 diagnostics for failed overload resolution. Their messages should be
5399 indented by two spaces for consistency with the messages in
5400 call.c */
5402 static int
5403 unify_success (bool /*explain_p*/)
5405 return 0;
5408 static int
5409 unify_parameter_deduction_failure (bool explain_p, tree parm)
5411 if (explain_p)
5412 inform (input_location,
5413 " couldn't deduce template parameter %qD", parm);
5414 return 1;
5417 static int
5418 unify_invalid (bool /*explain_p*/)
5420 return 1;
5423 static int
5424 unify_cv_qual_mismatch (bool explain_p, tree parm, tree arg)
5426 if (explain_p)
5427 inform (input_location,
5428 " types %qT and %qT have incompatible cv-qualifiers",
5429 parm, arg);
5430 return 1;
5433 static int
5434 unify_type_mismatch (bool explain_p, tree parm, tree arg)
5436 if (explain_p)
5437 inform (input_location, " mismatched types %qT and %qT", parm, arg);
5438 return 1;
5441 static int
5442 unify_parameter_pack_mismatch (bool explain_p, tree parm, tree arg)
5444 if (explain_p)
5445 inform (input_location,
5446 " template parameter %qD is not a parameter pack, but "
5447 "argument %qD is",
5448 parm, arg);
5449 return 1;
5452 static int
5453 unify_ptrmem_cst_mismatch (bool explain_p, tree parm, tree arg)
5455 if (explain_p)
5456 inform (input_location,
5457 " template argument %qE does not match "
5458 "pointer-to-member constant %qE",
5459 arg, parm);
5460 return 1;
5463 static int
5464 unify_expression_unequal (bool explain_p, tree parm, tree arg)
5466 if (explain_p)
5467 inform (input_location, " %qE is not equivalent to %qE", parm, arg);
5468 return 1;
5471 static int
5472 unify_parameter_pack_inconsistent (bool explain_p, tree old_arg, tree new_arg)
5474 if (explain_p)
5475 inform (input_location,
5476 " inconsistent parameter pack deduction with %qT and %qT",
5477 old_arg, new_arg);
5478 return 1;
5481 static int
5482 unify_inconsistency (bool explain_p, tree parm, tree first, tree second)
5484 if (explain_p)
5486 if (TYPE_P (parm))
5487 inform (input_location,
5488 " deduced conflicting types for parameter %qT (%qT and %qT)",
5489 parm, first, second);
5490 else
5491 inform (input_location,
5492 " deduced conflicting values for non-type parameter "
5493 "%qE (%qE and %qE)", parm, first, second);
5495 return 1;
5498 static int
5499 unify_vla_arg (bool explain_p, tree arg)
5501 if (explain_p)
5502 inform (input_location,
5503 " variable-sized array type %qT is not "
5504 "a valid template argument",
5505 arg);
5506 return 1;
5509 static int
5510 unify_method_type_error (bool explain_p, tree arg)
5512 if (explain_p)
5513 inform (input_location,
5514 " member function type %qT is not a valid template argument",
5515 arg);
5516 return 1;
5519 static int
5520 unify_arity (bool explain_p, int have, int wanted)
5522 if (explain_p)
5523 inform_n (input_location, wanted,
5524 " candidate expects %d argument, %d provided",
5525 " candidate expects %d arguments, %d provided",
5526 wanted, have);
5527 return 1;
5530 static int
5531 unify_too_many_arguments (bool explain_p, int have, int wanted)
5533 return unify_arity (explain_p, have, wanted);
5536 static int
5537 unify_too_few_arguments (bool explain_p, int have, int wanted)
5539 return unify_arity (explain_p, have, wanted);
5542 static int
5543 unify_arg_conversion (bool explain_p, tree to_type,
5544 tree from_type, tree arg)
5546 if (explain_p)
5547 inform (EXPR_LOC_OR_LOC (arg, input_location),
5548 " cannot convert %qE (type %qT) to type %qT",
5549 arg, from_type, to_type);
5550 return 1;
5553 static int
5554 unify_no_common_base (bool explain_p, enum template_base_result r,
5555 tree parm, tree arg)
5557 if (explain_p)
5558 switch (r)
5560 case tbr_ambiguous_baseclass:
5561 inform (input_location, " %qT is an ambiguous base class of %qT",
5562 parm, arg);
5563 break;
5564 default:
5565 inform (input_location, " %qT is not derived from %qT", arg, parm);
5566 break;
5568 return 1;
5571 static int
5572 unify_inconsistent_template_template_parameters (bool explain_p)
5574 if (explain_p)
5575 inform (input_location,
5576 " template parameters of a template template argument are "
5577 "inconsistent with other deduced template arguments");
5578 return 1;
5581 static int
5582 unify_template_deduction_failure (bool explain_p, tree parm, tree arg)
5584 if (explain_p)
5585 inform (input_location,
5586 " can't deduce a template for %qT from non-template type %qT",
5587 parm, arg);
5588 return 1;
5591 static int
5592 unify_template_argument_mismatch (bool explain_p, tree parm, tree arg)
5594 if (explain_p)
5595 inform (input_location,
5596 " template argument %qE does not match %qD", arg, parm);
5597 return 1;
5600 static int
5601 unify_overload_resolution_failure (bool explain_p, tree arg)
5603 if (explain_p)
5604 inform (input_location,
5605 " could not resolve address from overloaded function %qE",
5606 arg);
5607 return 1;
5610 /* Attempt to convert the non-type template parameter EXPR to the
5611 indicated TYPE. If the conversion is successful, return the
5612 converted value. If the conversion is unsuccessful, return
5613 NULL_TREE if we issued an error message, or error_mark_node if we
5614 did not. We issue error messages for out-and-out bad template
5615 parameters, but not simply because the conversion failed, since we
5616 might be just trying to do argument deduction. Both TYPE and EXPR
5617 must be non-dependent.
5619 The conversion follows the special rules described in
5620 [temp.arg.nontype], and it is much more strict than an implicit
5621 conversion.
5623 This function is called twice for each template argument (see
5624 lookup_template_class for a more accurate description of this
5625 problem). This means that we need to handle expressions which
5626 are not valid in a C++ source, but can be created from the
5627 first call (for instance, casts to perform conversions). These
5628 hacks can go away after we fix the double coercion problem. */
5630 static tree
5631 convert_nontype_argument (tree type, tree expr, tsubst_flags_t complain)
5633 tree expr_type;
5635 /* Detect immediately string literals as invalid non-type argument.
5636 This special-case is not needed for correctness (we would easily
5637 catch this later), but only to provide better diagnostic for this
5638 common user mistake. As suggested by DR 100, we do not mention
5639 linkage issues in the diagnostic as this is not the point. */
5640 /* FIXME we're making this OK. */
5641 if (TREE_CODE (expr) == STRING_CST)
5643 if (complain & tf_error)
5644 error ("%qE is not a valid template argument for type %qT "
5645 "because string literals can never be used in this context",
5646 expr, type);
5647 return NULL_TREE;
5650 /* Add the ADDR_EXPR now for the benefit of
5651 value_dependent_expression_p. */
5652 if (TYPE_PTROBV_P (type)
5653 && TREE_CODE (TREE_TYPE (expr)) == ARRAY_TYPE)
5655 expr = decay_conversion (expr, complain);
5656 if (expr == error_mark_node)
5657 return error_mark_node;
5660 /* If we are in a template, EXPR may be non-dependent, but still
5661 have a syntactic, rather than semantic, form. For example, EXPR
5662 might be a SCOPE_REF, rather than the VAR_DECL to which the
5663 SCOPE_REF refers. Preserving the qualifying scope is necessary
5664 so that access checking can be performed when the template is
5665 instantiated -- but here we need the resolved form so that we can
5666 convert the argument. */
5667 if (TYPE_REF_OBJ_P (type)
5668 && has_value_dependent_address (expr))
5669 /* If we want the address and it's value-dependent, don't fold. */;
5670 else if (!type_unknown_p (expr))
5671 expr = fold_non_dependent_expr_sfinae (expr, complain);
5672 if (error_operand_p (expr))
5673 return error_mark_node;
5674 expr_type = TREE_TYPE (expr);
5675 if (TREE_CODE (type) == REFERENCE_TYPE)
5676 expr = mark_lvalue_use (expr);
5677 else
5678 expr = mark_rvalue_use (expr);
5680 /* 14.3.2/5: The null pointer{,-to-member} conversion is applied
5681 to a non-type argument of "nullptr". */
5682 if (expr == nullptr_node && TYPE_PTR_OR_PTRMEM_P (type))
5683 expr = convert (type, expr);
5685 /* In C++11, integral or enumeration non-type template arguments can be
5686 arbitrary constant expressions. Pointer and pointer to
5687 member arguments can be general constant expressions that evaluate
5688 to a null value, but otherwise still need to be of a specific form. */
5689 if (cxx_dialect >= cxx11)
5691 if (TREE_CODE (expr) == PTRMEM_CST)
5692 /* A PTRMEM_CST is already constant, and a valid template
5693 argument for a parameter of pointer to member type, we just want
5694 to leave it in that form rather than lower it to a
5695 CONSTRUCTOR. */;
5696 else if (INTEGRAL_OR_ENUMERATION_TYPE_P (type))
5697 expr = maybe_constant_value (expr);
5698 else if (TYPE_PTR_OR_PTRMEM_P (type))
5700 tree folded = maybe_constant_value (expr);
5701 if (TYPE_PTR_P (type) ? integer_zerop (folded)
5702 : null_member_pointer_value_p (folded))
5703 expr = folded;
5707 /* HACK: Due to double coercion, we can get a
5708 NOP_EXPR<REFERENCE_TYPE>(ADDR_EXPR<POINTER_TYPE> (arg)) here,
5709 which is the tree that we built on the first call (see
5710 below when coercing to reference to object or to reference to
5711 function). We just strip everything and get to the arg.
5712 See g++.old-deja/g++.oliva/template4.C and g++.dg/template/nontype9.C
5713 for examples. */
5714 if (TYPE_REF_OBJ_P (type) || TYPE_REFFN_P (type))
5716 tree probe_type, probe = expr;
5717 if (REFERENCE_REF_P (probe))
5718 probe = TREE_OPERAND (probe, 0);
5719 probe_type = TREE_TYPE (probe);
5720 if (TREE_CODE (probe) == NOP_EXPR)
5722 /* ??? Maybe we could use convert_from_reference here, but we
5723 would need to relax its constraints because the NOP_EXPR
5724 could actually change the type to something more cv-qualified,
5725 and this is not folded by convert_from_reference. */
5726 tree addr = TREE_OPERAND (probe, 0);
5727 if (TREE_CODE (probe_type) == REFERENCE_TYPE
5728 && TREE_CODE (addr) == ADDR_EXPR
5729 && TYPE_PTR_P (TREE_TYPE (addr))
5730 && (same_type_ignoring_top_level_qualifiers_p
5731 (TREE_TYPE (probe_type),
5732 TREE_TYPE (TREE_TYPE (addr)))))
5734 expr = TREE_OPERAND (addr, 0);
5735 expr_type = TREE_TYPE (probe_type);
5740 /* We could also generate a NOP_EXPR(ADDR_EXPR()) when the
5741 parameter is a pointer to object, through decay and
5742 qualification conversion. Let's strip everything. */
5743 else if (TREE_CODE (expr) == NOP_EXPR && TYPE_PTROBV_P (type))
5745 tree probe = expr;
5746 STRIP_NOPS (probe);
5747 if (TREE_CODE (probe) == ADDR_EXPR
5748 && TYPE_PTR_P (TREE_TYPE (probe)))
5750 /* Skip the ADDR_EXPR only if it is part of the decay for
5751 an array. Otherwise, it is part of the original argument
5752 in the source code. */
5753 if (TREE_CODE (TREE_TYPE (TREE_OPERAND (probe, 0))) == ARRAY_TYPE)
5754 probe = TREE_OPERAND (probe, 0);
5755 expr = probe;
5756 expr_type = TREE_TYPE (expr);
5760 /* [temp.arg.nontype]/5, bullet 1
5762 For a non-type template-parameter of integral or enumeration type,
5763 integral promotions (_conv.prom_) and integral conversions
5764 (_conv.integral_) are applied. */
5765 if (INTEGRAL_OR_ENUMERATION_TYPE_P (type))
5767 tree t = build_integral_nontype_arg_conv (type, expr, complain);
5768 t = maybe_constant_value (t);
5769 if (t != error_mark_node)
5770 expr = t;
5772 if (!same_type_ignoring_top_level_qualifiers_p (type, TREE_TYPE (expr)))
5773 return error_mark_node;
5775 /* Notice that there are constant expressions like '4 % 0' which
5776 do not fold into integer constants. */
5777 if (TREE_CODE (expr) != INTEGER_CST)
5779 if (complain & tf_error)
5781 int errs = errorcount, warns = warningcount + werrorcount;
5782 if (processing_template_decl
5783 && !require_potential_constant_expression (expr))
5784 return NULL_TREE;
5785 expr = cxx_constant_value (expr);
5786 if (errorcount > errs || warningcount + werrorcount > warns)
5787 inform (EXPR_LOC_OR_LOC (expr, input_location),
5788 "in template argument for type %qT ", type);
5789 if (expr == error_mark_node)
5790 return NULL_TREE;
5791 /* else cxx_constant_value complained but gave us
5792 a real constant, so go ahead. */
5793 gcc_assert (TREE_CODE (expr) == INTEGER_CST);
5795 else
5796 return NULL_TREE;
5799 /* Avoid typedef problems. */
5800 if (TREE_TYPE (expr) != type)
5801 expr = fold_convert (type, expr);
5803 /* [temp.arg.nontype]/5, bullet 2
5805 For a non-type template-parameter of type pointer to object,
5806 qualification conversions (_conv.qual_) and the array-to-pointer
5807 conversion (_conv.array_) are applied. */
5808 else if (TYPE_PTROBV_P (type))
5810 /* [temp.arg.nontype]/1 (TC1 version, DR 49):
5812 A template-argument for a non-type, non-template template-parameter
5813 shall be one of: [...]
5815 -- the name of a non-type template-parameter;
5816 -- the address of an object or function with external linkage, [...]
5817 expressed as "& id-expression" where the & is optional if the name
5818 refers to a function or array, or if the corresponding
5819 template-parameter is a reference.
5821 Here, we do not care about functions, as they are invalid anyway
5822 for a parameter of type pointer-to-object. */
5824 if (DECL_P (expr) && DECL_TEMPLATE_PARM_P (expr))
5825 /* Non-type template parameters are OK. */
5827 else if (cxx_dialect >= cxx11 && integer_zerop (expr))
5828 /* Null pointer values are OK in C++11. */;
5829 else if (TREE_CODE (expr) != ADDR_EXPR
5830 && TREE_CODE (expr_type) != ARRAY_TYPE)
5832 if (VAR_P (expr))
5834 if (complain & tf_error)
5835 error ("%qD is not a valid template argument "
5836 "because %qD is a variable, not the address of "
5837 "a variable", expr, expr);
5838 return NULL_TREE;
5840 if (POINTER_TYPE_P (expr_type))
5842 if (complain & tf_error)
5843 error ("%qE is not a valid template argument for %qT "
5844 "because it is not the address of a variable",
5845 expr, type);
5846 return NULL_TREE;
5848 /* Other values, like integer constants, might be valid
5849 non-type arguments of some other type. */
5850 return error_mark_node;
5852 else
5854 tree decl;
5856 decl = ((TREE_CODE (expr) == ADDR_EXPR)
5857 ? TREE_OPERAND (expr, 0) : expr);
5858 if (!VAR_P (decl))
5860 if (complain & tf_error)
5861 error ("%qE is not a valid template argument of type %qT "
5862 "because %qE is not a variable", expr, type, decl);
5863 return NULL_TREE;
5865 else if (cxx_dialect < cxx11 && !DECL_EXTERNAL_LINKAGE_P (decl))
5867 if (complain & tf_error)
5868 error ("%qE is not a valid template argument of type %qT "
5869 "because %qD does not have external linkage",
5870 expr, type, decl);
5871 return NULL_TREE;
5873 else if (cxx_dialect >= cxx11 && decl_linkage (decl) == lk_none)
5875 if (complain & tf_error)
5876 error ("%qE is not a valid template argument of type %qT "
5877 "because %qD has no linkage", expr, type, decl);
5878 return NULL_TREE;
5882 expr = decay_conversion (expr, complain);
5883 if (expr == error_mark_node)
5884 return error_mark_node;
5886 expr = perform_qualification_conversions (type, expr);
5887 if (expr == error_mark_node)
5888 return error_mark_node;
5890 /* [temp.arg.nontype]/5, bullet 3
5892 For a non-type template-parameter of type reference to object, no
5893 conversions apply. The type referred to by the reference may be more
5894 cv-qualified than the (otherwise identical) type of the
5895 template-argument. The template-parameter is bound directly to the
5896 template-argument, which must be an lvalue. */
5897 else if (TYPE_REF_OBJ_P (type))
5899 if (!same_type_ignoring_top_level_qualifiers_p (TREE_TYPE (type),
5900 expr_type))
5901 return error_mark_node;
5903 if (!at_least_as_qualified_p (TREE_TYPE (type), expr_type))
5905 if (complain & tf_error)
5906 error ("%qE is not a valid template argument for type %qT "
5907 "because of conflicts in cv-qualification", expr, type);
5908 return NULL_TREE;
5911 if (!real_lvalue_p (expr))
5913 if (complain & tf_error)
5914 error ("%qE is not a valid template argument for type %qT "
5915 "because it is not an lvalue", expr, type);
5916 return NULL_TREE;
5919 /* [temp.arg.nontype]/1
5921 A template-argument for a non-type, non-template template-parameter
5922 shall be one of: [...]
5924 -- the address of an object or function with external linkage. */
5925 if (INDIRECT_REF_P (expr)
5926 && TYPE_REF_OBJ_P (TREE_TYPE (TREE_OPERAND (expr, 0))))
5928 expr = TREE_OPERAND (expr, 0);
5929 if (DECL_P (expr))
5931 if (complain & tf_error)
5932 error ("%q#D is not a valid template argument for type %qT "
5933 "because a reference variable does not have a constant "
5934 "address", expr, type);
5935 return NULL_TREE;
5939 if (!DECL_P (expr))
5941 if (complain & tf_error)
5942 error ("%qE is not a valid template argument for type %qT "
5943 "because it is not an object with external linkage",
5944 expr, type);
5945 return NULL_TREE;
5948 if (!DECL_EXTERNAL_LINKAGE_P (expr))
5950 if (complain & tf_error)
5951 error ("%qE is not a valid template argument for type %qT "
5952 "because object %qD has not external linkage",
5953 expr, type, expr);
5954 return NULL_TREE;
5957 expr = build_nop (type, build_address (expr));
5959 /* [temp.arg.nontype]/5, bullet 4
5961 For a non-type template-parameter of type pointer to function, only
5962 the function-to-pointer conversion (_conv.func_) is applied. If the
5963 template-argument represents a set of overloaded functions (or a
5964 pointer to such), the matching function is selected from the set
5965 (_over.over_). */
5966 else if (TYPE_PTRFN_P (type))
5968 /* If the argument is a template-id, we might not have enough
5969 context information to decay the pointer. */
5970 if (!type_unknown_p (expr_type))
5972 expr = decay_conversion (expr, complain);
5973 if (expr == error_mark_node)
5974 return error_mark_node;
5977 if (cxx_dialect >= cxx11 && integer_zerop (expr))
5978 /* Null pointer values are OK in C++11. */
5979 return perform_qualification_conversions (type, expr);
5981 expr = convert_nontype_argument_function (type, expr, complain);
5982 if (!expr || expr == error_mark_node)
5983 return expr;
5985 /* [temp.arg.nontype]/5, bullet 5
5987 For a non-type template-parameter of type reference to function, no
5988 conversions apply. If the template-argument represents a set of
5989 overloaded functions, the matching function is selected from the set
5990 (_over.over_). */
5991 else if (TYPE_REFFN_P (type))
5993 if (TREE_CODE (expr) == ADDR_EXPR)
5995 if (complain & tf_error)
5997 error ("%qE is not a valid template argument for type %qT "
5998 "because it is a pointer", expr, type);
5999 inform (input_location, "try using %qE instead",
6000 TREE_OPERAND (expr, 0));
6002 return NULL_TREE;
6005 expr = convert_nontype_argument_function (type, expr, complain);
6006 if (!expr || expr == error_mark_node)
6007 return expr;
6009 expr = build_nop (type, build_address (expr));
6011 /* [temp.arg.nontype]/5, bullet 6
6013 For a non-type template-parameter of type pointer to member function,
6014 no conversions apply. If the template-argument represents a set of
6015 overloaded member functions, the matching member function is selected
6016 from the set (_over.over_). */
6017 else if (TYPE_PTRMEMFUNC_P (type))
6019 expr = instantiate_type (type, expr, tf_none);
6020 if (expr == error_mark_node)
6021 return error_mark_node;
6023 /* [temp.arg.nontype] bullet 1 says the pointer to member
6024 expression must be a pointer-to-member constant. */
6025 if (!check_valid_ptrmem_cst_expr (type, expr, complain))
6026 return error_mark_node;
6028 /* There is no way to disable standard conversions in
6029 resolve_address_of_overloaded_function (called by
6030 instantiate_type). It is possible that the call succeeded by
6031 converting &B::I to &D::I (where B is a base of D), so we need
6032 to reject this conversion here.
6034 Actually, even if there was a way to disable standard conversions,
6035 it would still be better to reject them here so that we can
6036 provide a superior diagnostic. */
6037 if (!same_type_p (TREE_TYPE (expr), type))
6039 if (complain & tf_error)
6041 error ("%qE is not a valid template argument for type %qT "
6042 "because it is of type %qT", expr, type,
6043 TREE_TYPE (expr));
6044 /* If we are just one standard conversion off, explain. */
6045 if (can_convert_standard (type, TREE_TYPE (expr), complain))
6046 inform (input_location,
6047 "standard conversions are not allowed in this context");
6049 return NULL_TREE;
6052 /* [temp.arg.nontype]/5, bullet 7
6054 For a non-type template-parameter of type pointer to data member,
6055 qualification conversions (_conv.qual_) are applied. */
6056 else if (TYPE_PTRDATAMEM_P (type))
6058 /* [temp.arg.nontype] bullet 1 says the pointer to member
6059 expression must be a pointer-to-member constant. */
6060 if (!check_valid_ptrmem_cst_expr (type, expr, complain))
6061 return error_mark_node;
6063 expr = perform_qualification_conversions (type, expr);
6064 if (expr == error_mark_node)
6065 return expr;
6067 else if (NULLPTR_TYPE_P (type))
6069 if (expr != nullptr_node)
6071 if (complain & tf_error)
6072 error ("%qE is not a valid template argument for type %qT "
6073 "because it is of type %qT", expr, type, TREE_TYPE (expr));
6074 return NULL_TREE;
6076 return expr;
6078 /* A template non-type parameter must be one of the above. */
6079 else
6080 gcc_unreachable ();
6082 /* Sanity check: did we actually convert the argument to the
6083 right type? */
6084 gcc_assert (same_type_ignoring_top_level_qualifiers_p
6085 (type, TREE_TYPE (expr)));
6086 return expr;
6089 /* Subroutine of coerce_template_template_parms, which returns 1 if
6090 PARM_PARM and ARG_PARM match using the rule for the template
6091 parameters of template template parameters. Both PARM and ARG are
6092 template parameters; the rest of the arguments are the same as for
6093 coerce_template_template_parms.
6095 static int
6096 coerce_template_template_parm (tree parm,
6097 tree arg,
6098 tsubst_flags_t complain,
6099 tree in_decl,
6100 tree outer_args)
6102 if (arg == NULL_TREE || error_operand_p (arg)
6103 || parm == NULL_TREE || error_operand_p (parm))
6104 return 0;
6106 if (TREE_CODE (arg) != TREE_CODE (parm))
6107 return 0;
6109 switch (TREE_CODE (parm))
6111 case TEMPLATE_DECL:
6112 /* We encounter instantiations of templates like
6113 template <template <template <class> class> class TT>
6114 class C; */
6116 tree parmparm = DECL_INNERMOST_TEMPLATE_PARMS (parm);
6117 tree argparm = DECL_INNERMOST_TEMPLATE_PARMS (arg);
6119 if (!coerce_template_template_parms
6120 (parmparm, argparm, complain, in_decl, outer_args))
6121 return 0;
6123 /* Fall through. */
6125 case TYPE_DECL:
6126 if (TEMPLATE_TYPE_PARAMETER_PACK (TREE_TYPE (arg))
6127 && !TEMPLATE_TYPE_PARAMETER_PACK (TREE_TYPE (parm)))
6128 /* Argument is a parameter pack but parameter is not. */
6129 return 0;
6130 break;
6132 case PARM_DECL:
6133 /* The tsubst call is used to handle cases such as
6135 template <int> class C {};
6136 template <class T, template <T> class TT> class D {};
6137 D<int, C> d;
6139 i.e. the parameter list of TT depends on earlier parameters. */
6140 if (!uses_template_parms (TREE_TYPE (arg))
6141 && !same_type_p
6142 (tsubst (TREE_TYPE (parm), outer_args, complain, in_decl),
6143 TREE_TYPE (arg)))
6144 return 0;
6146 if (TEMPLATE_PARM_PARAMETER_PACK (DECL_INITIAL (arg))
6147 && !TEMPLATE_PARM_PARAMETER_PACK (DECL_INITIAL (parm)))
6148 /* Argument is a parameter pack but parameter is not. */
6149 return 0;
6151 break;
6153 default:
6154 gcc_unreachable ();
6157 return 1;
6161 /* Return 1 if PARM_PARMS and ARG_PARMS matches using rule for
6162 template template parameters. Both PARM_PARMS and ARG_PARMS are
6163 vectors of TREE_LIST nodes containing TYPE_DECL, TEMPLATE_DECL
6164 or PARM_DECL.
6166 Consider the example:
6167 template <class T> class A;
6168 template<template <class U> class TT> class B;
6170 For B<A>, PARM_PARMS are the parameters to TT, while ARG_PARMS are
6171 the parameters to A, and OUTER_ARGS contains A. */
6173 static int
6174 coerce_template_template_parms (tree parm_parms,
6175 tree arg_parms,
6176 tsubst_flags_t complain,
6177 tree in_decl,
6178 tree outer_args)
6180 int nparms, nargs, i;
6181 tree parm, arg;
6182 int variadic_p = 0;
6184 gcc_assert (TREE_CODE (parm_parms) == TREE_VEC);
6185 gcc_assert (TREE_CODE (arg_parms) == TREE_VEC);
6187 nparms = TREE_VEC_LENGTH (parm_parms);
6188 nargs = TREE_VEC_LENGTH (arg_parms);
6190 /* Determine whether we have a parameter pack at the end of the
6191 template template parameter's template parameter list. */
6192 if (TREE_VEC_ELT (parm_parms, nparms - 1) != error_mark_node)
6194 parm = TREE_VALUE (TREE_VEC_ELT (parm_parms, nparms - 1));
6196 if (error_operand_p (parm))
6197 return 0;
6199 switch (TREE_CODE (parm))
6201 case TEMPLATE_DECL:
6202 case TYPE_DECL:
6203 if (TEMPLATE_TYPE_PARAMETER_PACK (TREE_TYPE (parm)))
6204 variadic_p = 1;
6205 break;
6207 case PARM_DECL:
6208 if (TEMPLATE_PARM_PARAMETER_PACK (DECL_INITIAL (parm)))
6209 variadic_p = 1;
6210 break;
6212 default:
6213 gcc_unreachable ();
6217 if (nargs != nparms
6218 && !(variadic_p && nargs >= nparms - 1))
6219 return 0;
6221 /* Check all of the template parameters except the parameter pack at
6222 the end (if any). */
6223 for (i = 0; i < nparms - variadic_p; ++i)
6225 if (TREE_VEC_ELT (parm_parms, i) == error_mark_node
6226 || TREE_VEC_ELT (arg_parms, i) == error_mark_node)
6227 continue;
6229 parm = TREE_VALUE (TREE_VEC_ELT (parm_parms, i));
6230 arg = TREE_VALUE (TREE_VEC_ELT (arg_parms, i));
6232 if (!coerce_template_template_parm (parm, arg, complain, in_decl,
6233 outer_args))
6234 return 0;
6238 if (variadic_p)
6240 /* Check each of the template parameters in the template
6241 argument against the template parameter pack at the end of
6242 the template template parameter. */
6243 if (TREE_VEC_ELT (parm_parms, i) == error_mark_node)
6244 return 0;
6246 parm = TREE_VALUE (TREE_VEC_ELT (parm_parms, i));
6248 for (; i < nargs; ++i)
6250 if (TREE_VEC_ELT (arg_parms, i) == error_mark_node)
6251 continue;
6253 arg = TREE_VALUE (TREE_VEC_ELT (arg_parms, i));
6255 if (!coerce_template_template_parm (parm, arg, complain, in_decl,
6256 outer_args))
6257 return 0;
6261 return 1;
6264 /* Verifies that the deduced template arguments (in TARGS) for the
6265 template template parameters (in TPARMS) represent valid bindings,
6266 by comparing the template parameter list of each template argument
6267 to the template parameter list of its corresponding template
6268 template parameter, in accordance with DR150. This
6269 routine can only be called after all template arguments have been
6270 deduced. It will return TRUE if all of the template template
6271 parameter bindings are okay, FALSE otherwise. */
6272 bool
6273 template_template_parm_bindings_ok_p (tree tparms, tree targs)
6275 int i, ntparms = TREE_VEC_LENGTH (tparms);
6276 bool ret = true;
6278 /* We're dealing with template parms in this process. */
6279 ++processing_template_decl;
6281 targs = INNERMOST_TEMPLATE_ARGS (targs);
6283 for (i = 0; i < ntparms; ++i)
6285 tree tparm = TREE_VALUE (TREE_VEC_ELT (tparms, i));
6286 tree targ = TREE_VEC_ELT (targs, i);
6288 if (TREE_CODE (tparm) == TEMPLATE_DECL && targ)
6290 tree packed_args = NULL_TREE;
6291 int idx, len = 1;
6293 if (ARGUMENT_PACK_P (targ))
6295 /* Look inside the argument pack. */
6296 packed_args = ARGUMENT_PACK_ARGS (targ);
6297 len = TREE_VEC_LENGTH (packed_args);
6300 for (idx = 0; idx < len; ++idx)
6302 tree targ_parms = NULL_TREE;
6304 if (packed_args)
6305 /* Extract the next argument from the argument
6306 pack. */
6307 targ = TREE_VEC_ELT (packed_args, idx);
6309 if (PACK_EXPANSION_P (targ))
6310 /* Look at the pattern of the pack expansion. */
6311 targ = PACK_EXPANSION_PATTERN (targ);
6313 /* Extract the template parameters from the template
6314 argument. */
6315 if (TREE_CODE (targ) == TEMPLATE_DECL)
6316 targ_parms = DECL_INNERMOST_TEMPLATE_PARMS (targ);
6317 else if (TREE_CODE (targ) == TEMPLATE_TEMPLATE_PARM)
6318 targ_parms = DECL_INNERMOST_TEMPLATE_PARMS (TYPE_NAME (targ));
6320 /* Verify that we can coerce the template template
6321 parameters from the template argument to the template
6322 parameter. This requires an exact match. */
6323 if (targ_parms
6324 && !coerce_template_template_parms
6325 (DECL_INNERMOST_TEMPLATE_PARMS (tparm),
6326 targ_parms,
6327 tf_none,
6328 tparm,
6329 targs))
6331 ret = false;
6332 goto out;
6338 out:
6340 --processing_template_decl;
6341 return ret;
6344 /* Since type attributes aren't mangled, we need to strip them from
6345 template type arguments. */
6347 static tree
6348 canonicalize_type_argument (tree arg, tsubst_flags_t complain)
6350 tree mv;
6351 if (!arg || arg == error_mark_node || arg == TYPE_CANONICAL (arg))
6352 return arg;
6353 mv = TYPE_MAIN_VARIANT (arg);
6354 arg = strip_typedefs (arg);
6355 if (TYPE_ALIGN (arg) != TYPE_ALIGN (mv)
6356 || TYPE_ATTRIBUTES (arg) != TYPE_ATTRIBUTES (mv))
6358 if (complain & tf_warning)
6359 warning (0, "ignoring attributes on template argument %qT", arg);
6360 arg = build_aligned_type (arg, TYPE_ALIGN (mv));
6361 arg = cp_build_type_attribute_variant (arg, TYPE_ATTRIBUTES (mv));
6363 return arg;
6366 /* Convert the indicated template ARG as necessary to match the
6367 indicated template PARM. Returns the converted ARG, or
6368 error_mark_node if the conversion was unsuccessful. Error and
6369 warning messages are issued under control of COMPLAIN. This
6370 conversion is for the Ith parameter in the parameter list. ARGS is
6371 the full set of template arguments deduced so far. */
6373 static tree
6374 convert_template_argument (tree parm,
6375 tree arg,
6376 tree args,
6377 tsubst_flags_t complain,
6378 int i,
6379 tree in_decl)
6381 tree orig_arg;
6382 tree val;
6383 int is_type, requires_type, is_tmpl_type, requires_tmpl_type;
6385 if (TREE_CODE (arg) == TREE_LIST
6386 && TREE_CODE (TREE_VALUE (arg)) == OFFSET_REF)
6388 /* The template argument was the name of some
6389 member function. That's usually
6390 invalid, but static members are OK. In any
6391 case, grab the underlying fields/functions
6392 and issue an error later if required. */
6393 orig_arg = TREE_VALUE (arg);
6394 TREE_TYPE (arg) = unknown_type_node;
6397 orig_arg = arg;
6399 requires_tmpl_type = TREE_CODE (parm) == TEMPLATE_DECL;
6400 requires_type = (TREE_CODE (parm) == TYPE_DECL
6401 || requires_tmpl_type);
6403 /* When determining whether an argument pack expansion is a template,
6404 look at the pattern. */
6405 if (TREE_CODE (arg) == TYPE_PACK_EXPANSION)
6406 arg = PACK_EXPANSION_PATTERN (arg);
6408 /* Deal with an injected-class-name used as a template template arg. */
6409 if (requires_tmpl_type && CLASS_TYPE_P (arg))
6411 tree t = maybe_get_template_decl_from_type_decl (TYPE_NAME (arg));
6412 if (TREE_CODE (t) == TEMPLATE_DECL)
6414 if (cxx_dialect >= cxx11)
6415 /* OK under DR 1004. */;
6416 else if (complain & tf_warning_or_error)
6417 pedwarn (input_location, OPT_Wpedantic, "injected-class-name %qD"
6418 " used as template template argument", TYPE_NAME (arg));
6419 else if (flag_pedantic_errors)
6420 t = arg;
6422 arg = t;
6426 is_tmpl_type =
6427 ((TREE_CODE (arg) == TEMPLATE_DECL
6428 && TREE_CODE (DECL_TEMPLATE_RESULT (arg)) == TYPE_DECL)
6429 || (requires_tmpl_type && TREE_CODE (arg) == TYPE_ARGUMENT_PACK)
6430 || TREE_CODE (arg) == TEMPLATE_TEMPLATE_PARM
6431 || TREE_CODE (arg) == UNBOUND_CLASS_TEMPLATE);
6433 if (is_tmpl_type
6434 && (TREE_CODE (arg) == TEMPLATE_TEMPLATE_PARM
6435 || TREE_CODE (arg) == UNBOUND_CLASS_TEMPLATE))
6436 arg = TYPE_STUB_DECL (arg);
6438 is_type = TYPE_P (arg) || is_tmpl_type;
6440 if (requires_type && ! is_type && TREE_CODE (arg) == SCOPE_REF
6441 && TREE_CODE (TREE_OPERAND (arg, 0)) == TEMPLATE_TYPE_PARM)
6443 if (TREE_CODE (TREE_OPERAND (arg, 1)) == BIT_NOT_EXPR)
6445 if (complain & tf_error)
6446 error ("invalid use of destructor %qE as a type", orig_arg);
6447 return error_mark_node;
6450 permerror (input_location,
6451 "to refer to a type member of a template parameter, "
6452 "use %<typename %E%>", orig_arg);
6454 orig_arg = make_typename_type (TREE_OPERAND (arg, 0),
6455 TREE_OPERAND (arg, 1),
6456 typename_type,
6457 complain);
6458 arg = orig_arg;
6459 is_type = 1;
6461 if (is_type != requires_type)
6463 if (in_decl)
6465 if (complain & tf_error)
6467 error ("type/value mismatch at argument %d in template "
6468 "parameter list for %qD",
6469 i + 1, in_decl);
6470 if (is_type)
6471 error (" expected a constant of type %qT, got %qT",
6472 TREE_TYPE (parm),
6473 (DECL_P (arg) ? DECL_NAME (arg) : orig_arg));
6474 else if (requires_tmpl_type)
6475 error (" expected a class template, got %qE", orig_arg);
6476 else
6477 error (" expected a type, got %qE", orig_arg);
6480 return error_mark_node;
6482 if (is_tmpl_type ^ requires_tmpl_type)
6484 if (in_decl && (complain & tf_error))
6486 error ("type/value mismatch at argument %d in template "
6487 "parameter list for %qD",
6488 i + 1, in_decl);
6489 if (is_tmpl_type)
6490 error (" expected a type, got %qT", DECL_NAME (arg));
6491 else
6492 error (" expected a class template, got %qT", orig_arg);
6494 return error_mark_node;
6497 if (is_type)
6499 if (requires_tmpl_type)
6501 if (template_parameter_pack_p (parm) && ARGUMENT_PACK_P (orig_arg))
6502 val = orig_arg;
6503 else if (TREE_CODE (TREE_TYPE (arg)) == UNBOUND_CLASS_TEMPLATE)
6504 /* The number of argument required is not known yet.
6505 Just accept it for now. */
6506 val = TREE_TYPE (arg);
6507 else
6509 tree parmparm = DECL_INNERMOST_TEMPLATE_PARMS (parm);
6510 tree argparm;
6512 /* Strip alias templates that are equivalent to another
6513 template. */
6514 arg = get_underlying_template (arg);
6515 argparm = DECL_INNERMOST_TEMPLATE_PARMS (arg);
6517 if (coerce_template_template_parms (parmparm, argparm,
6518 complain, in_decl,
6519 args))
6521 val = arg;
6523 /* TEMPLATE_TEMPLATE_PARM node is preferred over
6524 TEMPLATE_DECL. */
6525 if (val != error_mark_node)
6527 if (DECL_TEMPLATE_TEMPLATE_PARM_P (val))
6528 val = TREE_TYPE (val);
6529 if (TREE_CODE (orig_arg) == TYPE_PACK_EXPANSION)
6530 val = make_pack_expansion (val);
6533 else
6535 if (in_decl && (complain & tf_error))
6537 error ("type/value mismatch at argument %d in "
6538 "template parameter list for %qD",
6539 i + 1, in_decl);
6540 error (" expected a template of type %qD, got %qT",
6541 parm, orig_arg);
6544 val = error_mark_node;
6548 else
6549 val = orig_arg;
6550 /* We only form one instance of each template specialization.
6551 Therefore, if we use a non-canonical variant (i.e., a
6552 typedef), any future messages referring to the type will use
6553 the typedef, which is confusing if those future uses do not
6554 themselves also use the typedef. */
6555 if (TYPE_P (val))
6556 val = canonicalize_type_argument (val, complain);
6558 else
6560 tree t = tsubst (TREE_TYPE (parm), args, complain, in_decl);
6562 if (invalid_nontype_parm_type_p (t, complain))
6563 return error_mark_node;
6565 if (template_parameter_pack_p (parm) && ARGUMENT_PACK_P (orig_arg))
6567 if (same_type_p (t, TREE_TYPE (orig_arg)))
6568 val = orig_arg;
6569 else
6571 /* Not sure if this is reachable, but it doesn't hurt
6572 to be robust. */
6573 error ("type mismatch in nontype parameter pack");
6574 val = error_mark_node;
6577 else if (!dependent_template_arg_p (orig_arg)
6578 && !uses_template_parms (t))
6579 /* We used to call digest_init here. However, digest_init
6580 will report errors, which we don't want when complain
6581 is zero. More importantly, digest_init will try too
6582 hard to convert things: for example, `0' should not be
6583 converted to pointer type at this point according to
6584 the standard. Accepting this is not merely an
6585 extension, since deciding whether or not these
6586 conversions can occur is part of determining which
6587 function template to call, or whether a given explicit
6588 argument specification is valid. */
6589 val = convert_nontype_argument (t, orig_arg, complain);
6590 else
6591 val = strip_typedefs_expr (orig_arg);
6593 if (val == NULL_TREE)
6594 val = error_mark_node;
6595 else if (val == error_mark_node && (complain & tf_error))
6596 error ("could not convert template argument %qE to %qT", orig_arg, t);
6598 if (TREE_CODE (val) == SCOPE_REF)
6600 /* Strip typedefs from the SCOPE_REF. */
6601 tree type = canonicalize_type_argument (TREE_TYPE (val), complain);
6602 tree scope = canonicalize_type_argument (TREE_OPERAND (val, 0),
6603 complain);
6604 val = build_qualified_name (type, scope, TREE_OPERAND (val, 1),
6605 QUALIFIED_NAME_IS_TEMPLATE (val));
6609 return val;
6612 /* Coerces the remaining template arguments in INNER_ARGS (from
6613 ARG_IDX to the end) into the parameter pack at PARM_IDX in PARMS.
6614 Returns the coerced argument pack. PARM_IDX is the position of this
6615 parameter in the template parameter list. ARGS is the original
6616 template argument list. */
6617 static tree
6618 coerce_template_parameter_pack (tree parms,
6619 int parm_idx,
6620 tree args,
6621 tree inner_args,
6622 int arg_idx,
6623 tree new_args,
6624 int* lost,
6625 tree in_decl,
6626 tsubst_flags_t complain)
6628 tree parm = TREE_VEC_ELT (parms, parm_idx);
6629 int nargs = inner_args ? NUM_TMPL_ARGS (inner_args) : 0;
6630 tree packed_args;
6631 tree argument_pack;
6632 tree packed_parms = NULL_TREE;
6634 if (arg_idx > nargs)
6635 arg_idx = nargs;
6637 if (tree packs = fixed_parameter_pack_p (TREE_VALUE (parm)))
6639 /* When the template parameter is a non-type template parameter pack
6640 or template template parameter pack whose type or template
6641 parameters use parameter packs, we know exactly how many arguments
6642 we are looking for. Build a vector of the instantiated decls for
6643 these template parameters in PACKED_PARMS. */
6644 /* We can't use make_pack_expansion here because it would interpret a
6645 _DECL as a use rather than a declaration. */
6646 tree decl = TREE_VALUE (parm);
6647 tree exp = cxx_make_type (TYPE_PACK_EXPANSION);
6648 SET_PACK_EXPANSION_PATTERN (exp, decl);
6649 PACK_EXPANSION_PARAMETER_PACKS (exp) = packs;
6650 SET_TYPE_STRUCTURAL_EQUALITY (exp);
6652 TREE_VEC_LENGTH (args)--;
6653 packed_parms = tsubst_pack_expansion (exp, args, complain, decl);
6654 TREE_VEC_LENGTH (args)++;
6656 if (packed_parms == error_mark_node)
6657 return error_mark_node;
6659 /* If we're doing a partial instantiation of a member template,
6660 verify that all of the types used for the non-type
6661 template parameter pack are, in fact, valid for non-type
6662 template parameters. */
6663 if (arg_idx < nargs
6664 && PACK_EXPANSION_P (TREE_VEC_ELT (inner_args, arg_idx)))
6666 int j, len = TREE_VEC_LENGTH (packed_parms);
6667 for (j = 0; j < len; ++j)
6669 tree t = TREE_TYPE (TREE_VEC_ELT (packed_parms, j));
6670 if (invalid_nontype_parm_type_p (t, complain))
6671 return error_mark_node;
6675 packed_args = make_tree_vec (TREE_VEC_LENGTH (packed_parms));
6677 else
6678 packed_args = make_tree_vec (nargs - arg_idx);
6680 /* Convert the remaining arguments, which will be a part of the
6681 parameter pack "parm". */
6682 for (; arg_idx < nargs; ++arg_idx)
6684 tree arg = TREE_VEC_ELT (inner_args, arg_idx);
6685 tree actual_parm = TREE_VALUE (parm);
6686 int pack_idx = arg_idx - parm_idx;
6688 if (packed_parms)
6690 /* Once we've packed as many args as we have types, stop. */
6691 if (pack_idx >= TREE_VEC_LENGTH (packed_parms))
6692 break;
6693 else if (PACK_EXPANSION_P (arg))
6694 /* We don't know how many args we have yet, just
6695 use the unconverted ones for now. */
6696 return NULL_TREE;
6697 else
6698 actual_parm = TREE_VEC_ELT (packed_parms, pack_idx);
6701 if (arg == error_mark_node)
6703 if (complain & tf_error)
6704 error ("template argument %d is invalid", arg_idx + 1);
6706 else
6707 arg = convert_template_argument (actual_parm,
6708 arg, new_args, complain, parm_idx,
6709 in_decl);
6710 if (arg == error_mark_node)
6711 (*lost)++;
6712 TREE_VEC_ELT (packed_args, pack_idx) = arg;
6715 if (arg_idx - parm_idx < TREE_VEC_LENGTH (packed_args)
6716 && TREE_VEC_LENGTH (packed_args) > 0)
6718 if (complain & tf_error)
6719 error ("wrong number of template arguments (%d, should be %d)",
6720 arg_idx - parm_idx, TREE_VEC_LENGTH (packed_args));
6721 return error_mark_node;
6724 if (TREE_CODE (TREE_VALUE (parm)) == TYPE_DECL
6725 || TREE_CODE (TREE_VALUE (parm)) == TEMPLATE_DECL)
6726 argument_pack = cxx_make_type (TYPE_ARGUMENT_PACK);
6727 else
6729 argument_pack = make_node (NONTYPE_ARGUMENT_PACK);
6730 TREE_TYPE (argument_pack)
6731 = tsubst (TREE_TYPE (TREE_VALUE (parm)), new_args, complain, in_decl);
6732 TREE_CONSTANT (argument_pack) = 1;
6735 SET_ARGUMENT_PACK_ARGS (argument_pack, packed_args);
6736 #ifdef ENABLE_CHECKING
6737 SET_NON_DEFAULT_TEMPLATE_ARGS_COUNT (packed_args,
6738 TREE_VEC_LENGTH (packed_args));
6739 #endif
6740 return argument_pack;
6743 /* Returns the number of pack expansions in the template argument vector
6744 ARGS. */
6746 static int
6747 pack_expansion_args_count (tree args)
6749 int i;
6750 int count = 0;
6751 if (args)
6752 for (i = 0; i < TREE_VEC_LENGTH (args); ++i)
6754 tree elt = TREE_VEC_ELT (args, i);
6755 if (elt && PACK_EXPANSION_P (elt))
6756 ++count;
6758 return count;
6761 /* Convert all template arguments to their appropriate types, and
6762 return a vector containing the innermost resulting template
6763 arguments. If any error occurs, return error_mark_node. Error and
6764 warning messages are issued under control of COMPLAIN.
6766 If REQUIRE_ALL_ARGS is false, argument deduction will be performed
6767 for arguments not specified in ARGS. Otherwise, if
6768 USE_DEFAULT_ARGS is true, default arguments will be used to fill in
6769 unspecified arguments. If REQUIRE_ALL_ARGS is true, but
6770 USE_DEFAULT_ARGS is false, then all arguments must be specified in
6771 ARGS. */
6773 static tree
6774 coerce_template_parms (tree parms,
6775 tree args,
6776 tree in_decl,
6777 tsubst_flags_t complain,
6778 bool require_all_args,
6779 bool use_default_args)
6781 int nparms, nargs, parm_idx, arg_idx, lost = 0;
6782 tree orig_inner_args;
6783 tree inner_args;
6784 tree new_args;
6785 tree new_inner_args;
6786 int saved_unevaluated_operand;
6787 int saved_inhibit_evaluation_warnings;
6789 /* When used as a boolean value, indicates whether this is a
6790 variadic template parameter list. Since it's an int, we can also
6791 subtract it from nparms to get the number of non-variadic
6792 parameters. */
6793 int variadic_p = 0;
6794 int variadic_args_p = 0;
6795 int post_variadic_parms = 0;
6797 if (args == error_mark_node)
6798 return error_mark_node;
6800 nparms = TREE_VEC_LENGTH (parms);
6802 /* Determine if there are any parameter packs. */
6803 for (parm_idx = 0; parm_idx < nparms; ++parm_idx)
6805 tree tparm = TREE_VALUE (TREE_VEC_ELT (parms, parm_idx));
6806 if (variadic_p)
6807 ++post_variadic_parms;
6808 if (template_parameter_pack_p (tparm))
6809 ++variadic_p;
6812 inner_args = orig_inner_args = INNERMOST_TEMPLATE_ARGS (args);
6813 /* If there are no parameters that follow a parameter pack, we need to
6814 expand any argument packs so that we can deduce a parameter pack from
6815 some non-packed args followed by an argument pack, as in variadic85.C.
6816 If there are such parameters, we need to leave argument packs intact
6817 so the arguments are assigned properly. This can happen when dealing
6818 with a nested class inside a partial specialization of a class
6819 template, as in variadic92.C, or when deducing a template parameter pack
6820 from a sub-declarator, as in variadic114.C. */
6821 if (!post_variadic_parms)
6822 inner_args = expand_template_argument_pack (inner_args);
6824 /* Count any pack expansion args. */
6825 variadic_args_p = pack_expansion_args_count (inner_args);
6827 nargs = inner_args ? NUM_TMPL_ARGS (inner_args) : 0;
6828 if ((nargs > nparms && !variadic_p)
6829 || (nargs < nparms - variadic_p
6830 && require_all_args
6831 && !variadic_args_p
6832 && (!use_default_args
6833 || (TREE_VEC_ELT (parms, nargs) != error_mark_node
6834 && !TREE_PURPOSE (TREE_VEC_ELT (parms, nargs))))))
6836 if (complain & tf_error)
6838 if (variadic_p)
6840 nparms -= variadic_p;
6841 error ("wrong number of template arguments "
6842 "(%d, should be %d or more)", nargs, nparms);
6844 else
6845 error ("wrong number of template arguments "
6846 "(%d, should be %d)", nargs, nparms);
6848 if (in_decl)
6849 error ("provided for %q+D", in_decl);
6852 return error_mark_node;
6854 /* We can't pass a pack expansion to a non-pack parameter of an alias
6855 template (DR 1430). */
6856 else if (in_decl && DECL_ALIAS_TEMPLATE_P (in_decl)
6857 && variadic_args_p
6858 && nargs - variadic_args_p < nparms - variadic_p)
6860 if (complain & tf_error)
6862 for (int i = 0; i < TREE_VEC_LENGTH (inner_args); ++i)
6864 tree arg = TREE_VEC_ELT (inner_args, i);
6865 tree parm = TREE_VALUE (TREE_VEC_ELT (parms, i));
6867 if (PACK_EXPANSION_P (arg)
6868 && !template_parameter_pack_p (parm))
6870 error ("pack expansion argument for non-pack parameter "
6871 "%qD of alias template %qD", parm, in_decl);
6872 inform (DECL_SOURCE_LOCATION (parm), "declared here");
6873 goto found;
6876 gcc_unreachable ();
6877 found:;
6879 return error_mark_node;
6882 /* We need to evaluate the template arguments, even though this
6883 template-id may be nested within a "sizeof". */
6884 saved_unevaluated_operand = cp_unevaluated_operand;
6885 cp_unevaluated_operand = 0;
6886 saved_inhibit_evaluation_warnings = c_inhibit_evaluation_warnings;
6887 c_inhibit_evaluation_warnings = 0;
6888 new_inner_args = make_tree_vec (nparms);
6889 new_args = add_outermost_template_args (args, new_inner_args);
6890 int pack_adjust = 0;
6891 for (parm_idx = 0, arg_idx = 0; parm_idx < nparms; parm_idx++, arg_idx++)
6893 tree arg;
6894 tree parm;
6896 /* Get the Ith template parameter. */
6897 parm = TREE_VEC_ELT (parms, parm_idx);
6899 if (parm == error_mark_node)
6901 TREE_VEC_ELT (new_inner_args, arg_idx) = error_mark_node;
6902 continue;
6905 /* Calculate the next argument. */
6906 if (arg_idx < nargs)
6907 arg = TREE_VEC_ELT (inner_args, arg_idx);
6908 else
6909 arg = NULL_TREE;
6911 if (template_parameter_pack_p (TREE_VALUE (parm))
6912 && !(arg && ARGUMENT_PACK_P (arg)))
6914 /* Some arguments will be placed in the
6915 template parameter pack PARM. */
6916 arg = coerce_template_parameter_pack (parms, parm_idx, args,
6917 inner_args, arg_idx,
6918 new_args, &lost,
6919 in_decl, complain);
6921 if (arg == NULL_TREE)
6923 /* We don't know how many args we have yet, just use the
6924 unconverted (and still packed) ones for now. */
6925 new_inner_args = orig_inner_args;
6926 arg_idx = nargs;
6927 break;
6930 TREE_VEC_ELT (new_inner_args, parm_idx) = arg;
6932 /* Store this argument. */
6933 if (arg == error_mark_node)
6935 lost++;
6936 /* We are done with all of the arguments. */
6937 arg_idx = nargs;
6939 else
6941 pack_adjust = TREE_VEC_LENGTH (ARGUMENT_PACK_ARGS (arg)) - 1;
6942 arg_idx += pack_adjust;
6945 continue;
6947 else if (arg)
6949 if (PACK_EXPANSION_P (arg))
6951 /* "If every valid specialization of a variadic template
6952 requires an empty template parameter pack, the template is
6953 ill-formed, no diagnostic required." So check that the
6954 pattern works with this parameter. */
6955 tree pattern = PACK_EXPANSION_PATTERN (arg);
6956 tree conv = convert_template_argument (TREE_VALUE (parm),
6957 pattern, new_args,
6958 complain, parm_idx,
6959 in_decl);
6960 if (conv == error_mark_node)
6962 inform (input_location, "so any instantiation with a "
6963 "non-empty parameter pack would be ill-formed");
6964 ++lost;
6966 else if (TYPE_P (conv) && !TYPE_P (pattern))
6967 /* Recover from missing typename. */
6968 TREE_VEC_ELT (inner_args, arg_idx)
6969 = make_pack_expansion (conv);
6971 /* We don't know how many args we have yet, just
6972 use the unconverted ones for now. */
6973 new_inner_args = inner_args;
6974 arg_idx = nargs;
6975 break;
6978 else if (require_all_args)
6980 /* There must be a default arg in this case. */
6981 arg = tsubst_template_arg (TREE_PURPOSE (parm), new_args,
6982 complain, in_decl);
6983 /* The position of the first default template argument,
6984 is also the number of non-defaulted arguments in NEW_INNER_ARGS.
6985 Record that. */
6986 if (!NON_DEFAULT_TEMPLATE_ARGS_COUNT (new_inner_args))
6987 SET_NON_DEFAULT_TEMPLATE_ARGS_COUNT (new_inner_args,
6988 arg_idx - pack_adjust);
6990 else
6991 break;
6993 if (arg == error_mark_node)
6995 if (complain & tf_error)
6996 error ("template argument %d is invalid", arg_idx + 1);
6998 else if (!arg)
6999 /* This only occurs if there was an error in the template
7000 parameter list itself (which we would already have
7001 reported) that we are trying to recover from, e.g., a class
7002 template with a parameter list such as
7003 template<typename..., typename>. */
7004 ++lost;
7005 else
7006 arg = convert_template_argument (TREE_VALUE (parm),
7007 arg, new_args, complain,
7008 parm_idx, in_decl);
7010 if (arg == error_mark_node)
7011 lost++;
7012 TREE_VEC_ELT (new_inner_args, arg_idx - pack_adjust) = arg;
7014 cp_unevaluated_operand = saved_unevaluated_operand;
7015 c_inhibit_evaluation_warnings = saved_inhibit_evaluation_warnings;
7017 if (variadic_p && arg_idx < nargs)
7019 if (complain & tf_error)
7021 error ("wrong number of template arguments "
7022 "(%d, should be %d)", nargs, arg_idx);
7023 if (in_decl)
7024 error ("provided for %q+D", in_decl);
7026 return error_mark_node;
7029 if (lost)
7030 return error_mark_node;
7032 #ifdef ENABLE_CHECKING
7033 if (!NON_DEFAULT_TEMPLATE_ARGS_COUNT (new_inner_args))
7034 SET_NON_DEFAULT_TEMPLATE_ARGS_COUNT (new_inner_args,
7035 TREE_VEC_LENGTH (new_inner_args));
7036 #endif
7038 return new_inner_args;
7041 /* Like coerce_template_parms. If PARMS represents all template
7042 parameters levels, this function returns a vector of vectors
7043 representing all the resulting argument levels. Note that in this
7044 case, only the innermost arguments are coerced because the
7045 outermost ones are supposed to have been coerced already.
7047 Otherwise, if PARMS represents only (the innermost) vector of
7048 parameters, this function returns a vector containing just the
7049 innermost resulting arguments. */
7051 static tree
7052 coerce_innermost_template_parms (tree parms,
7053 tree args,
7054 tree in_decl,
7055 tsubst_flags_t complain,
7056 bool require_all_args,
7057 bool use_default_args)
7059 int parms_depth = TMPL_PARMS_DEPTH (parms);
7060 int args_depth = TMPL_ARGS_DEPTH (args);
7061 tree coerced_args;
7063 if (parms_depth > 1)
7065 coerced_args = make_tree_vec (parms_depth);
7066 tree level;
7067 int cur_depth;
7069 for (level = parms, cur_depth = parms_depth;
7070 parms_depth > 0 && level != NULL_TREE;
7071 level = TREE_CHAIN (level), --cur_depth)
7073 tree l;
7074 if (cur_depth == args_depth)
7075 l = coerce_template_parms (TREE_VALUE (level),
7076 args, in_decl, complain,
7077 require_all_args,
7078 use_default_args);
7079 else
7080 l = TMPL_ARGS_LEVEL (args, cur_depth);
7082 if (l == error_mark_node)
7083 return error_mark_node;
7085 SET_TMPL_ARGS_LEVEL (coerced_args, cur_depth, l);
7088 else
7089 coerced_args = coerce_template_parms (INNERMOST_TEMPLATE_PARMS (parms),
7090 args, in_decl, complain,
7091 require_all_args,
7092 use_default_args);
7093 return coerced_args;
7096 /* Returns 1 if template args OT and NT are equivalent. */
7098 static int
7099 template_args_equal (tree ot, tree nt)
7101 if (nt == ot)
7102 return 1;
7103 if (nt == NULL_TREE || ot == NULL_TREE)
7104 return false;
7106 if (TREE_CODE (nt) == TREE_VEC)
7107 /* For member templates */
7108 return TREE_CODE (ot) == TREE_VEC && comp_template_args (ot, nt);
7109 else if (PACK_EXPANSION_P (ot))
7110 return (PACK_EXPANSION_P (nt)
7111 && template_args_equal (PACK_EXPANSION_PATTERN (ot),
7112 PACK_EXPANSION_PATTERN (nt))
7113 && template_args_equal (PACK_EXPANSION_EXTRA_ARGS (ot),
7114 PACK_EXPANSION_EXTRA_ARGS (nt)));
7115 else if (ARGUMENT_PACK_P (ot))
7117 int i, len;
7118 tree opack, npack;
7120 if (!ARGUMENT_PACK_P (nt))
7121 return 0;
7123 opack = ARGUMENT_PACK_ARGS (ot);
7124 npack = ARGUMENT_PACK_ARGS (nt);
7125 len = TREE_VEC_LENGTH (opack);
7126 if (TREE_VEC_LENGTH (npack) != len)
7127 return 0;
7128 for (i = 0; i < len; ++i)
7129 if (!template_args_equal (TREE_VEC_ELT (opack, i),
7130 TREE_VEC_ELT (npack, i)))
7131 return 0;
7132 return 1;
7134 else if (ot && TREE_CODE (ot) == ARGUMENT_PACK_SELECT)
7136 /* We get here probably because we are in the middle of substituting
7137 into the pattern of a pack expansion. In that case the
7138 ARGUMENT_PACK_SELECT temporarily replaces the pack argument we are
7139 interested in. So we want to use the initial pack argument for
7140 the comparison. */
7141 ot = ARGUMENT_PACK_SELECT_FROM_PACK (ot);
7142 if (nt && TREE_CODE (nt) == ARGUMENT_PACK_SELECT)
7143 nt = ARGUMENT_PACK_SELECT_FROM_PACK (nt);
7144 return template_args_equal (ot, nt);
7146 else if (TYPE_P (nt))
7147 return TYPE_P (ot) && same_type_p (ot, nt);
7148 else if (TREE_CODE (ot) == TREE_VEC || TYPE_P (ot))
7149 return 0;
7150 else
7151 return cp_tree_equal (ot, nt);
7154 /* Returns 1 iff the OLDARGS and NEWARGS are in fact identical sets of
7155 template arguments. Returns 0 otherwise, and updates OLDARG_PTR and
7156 NEWARG_PTR with the offending arguments if they are non-NULL. */
7158 static int
7159 comp_template_args_with_info (tree oldargs, tree newargs,
7160 tree *oldarg_ptr, tree *newarg_ptr)
7162 int i;
7164 if (oldargs == newargs)
7165 return 1;
7167 if (!oldargs || !newargs)
7168 return 0;
7170 if (TREE_VEC_LENGTH (oldargs) != TREE_VEC_LENGTH (newargs))
7171 return 0;
7173 for (i = 0; i < TREE_VEC_LENGTH (oldargs); ++i)
7175 tree nt = TREE_VEC_ELT (newargs, i);
7176 tree ot = TREE_VEC_ELT (oldargs, i);
7178 if (! template_args_equal (ot, nt))
7180 if (oldarg_ptr != NULL)
7181 *oldarg_ptr = ot;
7182 if (newarg_ptr != NULL)
7183 *newarg_ptr = nt;
7184 return 0;
7187 return 1;
7190 /* Returns 1 iff the OLDARGS and NEWARGS are in fact identical sets
7191 of template arguments. Returns 0 otherwise. */
7194 comp_template_args (tree oldargs, tree newargs)
7196 return comp_template_args_with_info (oldargs, newargs, NULL, NULL);
7199 static void
7200 add_pending_template (tree d)
7202 tree ti = (TYPE_P (d)
7203 ? CLASSTYPE_TEMPLATE_INFO (d)
7204 : DECL_TEMPLATE_INFO (d));
7205 struct pending_template *pt;
7206 int level;
7208 if (TI_PENDING_TEMPLATE_FLAG (ti))
7209 return;
7211 /* We are called both from instantiate_decl, where we've already had a
7212 tinst_level pushed, and instantiate_template, where we haven't.
7213 Compensate. */
7214 level = !current_tinst_level || current_tinst_level->decl != d;
7216 if (level)
7217 push_tinst_level (d);
7219 pt = ggc_alloc<pending_template> ();
7220 pt->next = NULL;
7221 pt->tinst = current_tinst_level;
7222 if (last_pending_template)
7223 last_pending_template->next = pt;
7224 else
7225 pending_templates = pt;
7227 last_pending_template = pt;
7229 TI_PENDING_TEMPLATE_FLAG (ti) = 1;
7231 if (level)
7232 pop_tinst_level ();
7236 /* Return a TEMPLATE_ID_EXPR corresponding to the indicated FNS and
7237 ARGLIST. Valid choices for FNS are given in the cp-tree.def
7238 documentation for TEMPLATE_ID_EXPR. */
7240 tree
7241 lookup_template_function (tree fns, tree arglist)
7243 tree type;
7245 if (fns == error_mark_node || arglist == error_mark_node)
7246 return error_mark_node;
7248 gcc_assert (!arglist || TREE_CODE (arglist) == TREE_VEC);
7250 if (!is_overloaded_fn (fns) && !identifier_p (fns))
7252 error ("%q#D is not a function template", fns);
7253 return error_mark_node;
7256 if (BASELINK_P (fns))
7258 BASELINK_FUNCTIONS (fns) = build2 (TEMPLATE_ID_EXPR,
7259 unknown_type_node,
7260 BASELINK_FUNCTIONS (fns),
7261 arglist);
7262 return fns;
7265 type = TREE_TYPE (fns);
7266 if (TREE_CODE (fns) == OVERLOAD || !type)
7267 type = unknown_type_node;
7269 return build2 (TEMPLATE_ID_EXPR, type, fns, arglist);
7272 /* Within the scope of a template class S<T>, the name S gets bound
7273 (in build_self_reference) to a TYPE_DECL for the class, not a
7274 TEMPLATE_DECL. If DECL is a TYPE_DECL for current_class_type,
7275 or one of its enclosing classes, and that type is a template,
7276 return the associated TEMPLATE_DECL. Otherwise, the original
7277 DECL is returned.
7279 Also handle the case when DECL is a TREE_LIST of ambiguous
7280 injected-class-names from different bases. */
7282 tree
7283 maybe_get_template_decl_from_type_decl (tree decl)
7285 if (decl == NULL_TREE)
7286 return decl;
7288 /* DR 176: A lookup that finds an injected-class-name (10.2
7289 [class.member.lookup]) can result in an ambiguity in certain cases
7290 (for example, if it is found in more than one base class). If all of
7291 the injected-class-names that are found refer to specializations of
7292 the same class template, and if the name is followed by a
7293 template-argument-list, the reference refers to the class template
7294 itself and not a specialization thereof, and is not ambiguous. */
7295 if (TREE_CODE (decl) == TREE_LIST)
7297 tree t, tmpl = NULL_TREE;
7298 for (t = decl; t; t = TREE_CHAIN (t))
7300 tree elt = maybe_get_template_decl_from_type_decl (TREE_VALUE (t));
7301 if (!tmpl)
7302 tmpl = elt;
7303 else if (tmpl != elt)
7304 break;
7306 if (tmpl && t == NULL_TREE)
7307 return tmpl;
7308 else
7309 return decl;
7312 return (decl != NULL_TREE
7313 && DECL_SELF_REFERENCE_P (decl)
7314 && CLASSTYPE_TEMPLATE_INFO (TREE_TYPE (decl)))
7315 ? CLASSTYPE_TI_TEMPLATE (TREE_TYPE (decl)) : decl;
7318 /* Given an IDENTIFIER_NODE (or type TEMPLATE_DECL) and a chain of
7319 parameters, find the desired type.
7321 D1 is the PTYPENAME terminal, and ARGLIST is the list of arguments.
7323 IN_DECL, if non-NULL, is the template declaration we are trying to
7324 instantiate.
7326 If ENTERING_SCOPE is nonzero, we are about to enter the scope of
7327 the class we are looking up.
7329 Issue error and warning messages under control of COMPLAIN.
7331 If the template class is really a local class in a template
7332 function, then the FUNCTION_CONTEXT is the function in which it is
7333 being instantiated.
7335 ??? Note that this function is currently called *twice* for each
7336 template-id: the first time from the parser, while creating the
7337 incomplete type (finish_template_type), and the second type during the
7338 real instantiation (instantiate_template_class). This is surely something
7339 that we want to avoid. It also causes some problems with argument
7340 coercion (see convert_nontype_argument for more information on this). */
7342 static tree
7343 lookup_template_class_1 (tree d1, tree arglist, tree in_decl, tree context,
7344 int entering_scope, tsubst_flags_t complain)
7346 tree templ = NULL_TREE, parmlist;
7347 tree t;
7348 void **slot;
7349 spec_entry *entry;
7350 spec_entry elt;
7351 hashval_t hash;
7353 if (identifier_p (d1))
7355 tree value = innermost_non_namespace_value (d1);
7356 if (value && DECL_TEMPLATE_TEMPLATE_PARM_P (value))
7357 templ = value;
7358 else
7360 if (context)
7361 push_decl_namespace (context);
7362 templ = lookup_name (d1);
7363 templ = maybe_get_template_decl_from_type_decl (templ);
7364 if (context)
7365 pop_decl_namespace ();
7367 if (templ)
7368 context = DECL_CONTEXT (templ);
7370 else if (TREE_CODE (d1) == TYPE_DECL && MAYBE_CLASS_TYPE_P (TREE_TYPE (d1)))
7372 tree type = TREE_TYPE (d1);
7374 /* If we are declaring a constructor, say A<T>::A<T>, we will get
7375 an implicit typename for the second A. Deal with it. */
7376 if (TREE_CODE (type) == TYPENAME_TYPE && TREE_TYPE (type))
7377 type = TREE_TYPE (type);
7379 if (CLASSTYPE_TEMPLATE_INFO (type))
7381 templ = CLASSTYPE_TI_TEMPLATE (type);
7382 d1 = DECL_NAME (templ);
7385 else if (TREE_CODE (d1) == ENUMERAL_TYPE
7386 || (TYPE_P (d1) && MAYBE_CLASS_TYPE_P (d1)))
7388 templ = TYPE_TI_TEMPLATE (d1);
7389 d1 = DECL_NAME (templ);
7391 else if (TREE_CODE (d1) == TEMPLATE_DECL
7392 && DECL_TEMPLATE_RESULT (d1)
7393 && TREE_CODE (DECL_TEMPLATE_RESULT (d1)) == TYPE_DECL)
7395 templ = d1;
7396 d1 = DECL_NAME (templ);
7397 context = DECL_CONTEXT (templ);
7399 else if (DECL_TEMPLATE_TEMPLATE_PARM_P (d1))
7401 templ = d1;
7402 d1 = DECL_NAME (templ);
7405 /* Issue an error message if we didn't find a template. */
7406 if (! templ)
7408 if (complain & tf_error)
7409 error ("%qT is not a template", d1);
7410 return error_mark_node;
7413 if (TREE_CODE (templ) != TEMPLATE_DECL
7414 /* Make sure it's a user visible template, if it was named by
7415 the user. */
7416 || ((complain & tf_user) && !DECL_TEMPLATE_PARM_P (templ)
7417 && !PRIMARY_TEMPLATE_P (templ)))
7419 if (complain & tf_error)
7421 error ("non-template type %qT used as a template", d1);
7422 if (in_decl)
7423 error ("for template declaration %q+D", in_decl);
7425 return error_mark_node;
7428 complain &= ~tf_user;
7430 /* An alias that just changes the name of a template is equivalent to the
7431 other template, so if any of the arguments are pack expansions, strip
7432 the alias to avoid problems with a pack expansion passed to a non-pack
7433 alias template parameter (DR 1430). */
7434 if (pack_expansion_args_count (INNERMOST_TEMPLATE_ARGS (arglist)))
7435 templ = get_underlying_template (templ);
7437 if (DECL_TEMPLATE_TEMPLATE_PARM_P (templ))
7439 /* Create a new TEMPLATE_DECL and TEMPLATE_TEMPLATE_PARM node to store
7440 template arguments */
7442 tree parm;
7443 tree arglist2;
7444 tree outer;
7446 parmlist = DECL_INNERMOST_TEMPLATE_PARMS (templ);
7448 /* Consider an example where a template template parameter declared as
7450 template <class T, class U = std::allocator<T> > class TT
7452 The template parameter level of T and U are one level larger than
7453 of TT. To proper process the default argument of U, say when an
7454 instantiation `TT<int>' is seen, we need to build the full
7455 arguments containing {int} as the innermost level. Outer levels,
7456 available when not appearing as default template argument, can be
7457 obtained from the arguments of the enclosing template.
7459 Suppose that TT is later substituted with std::vector. The above
7460 instantiation is `TT<int, std::allocator<T> >' with TT at
7461 level 1, and T at level 2, while the template arguments at level 1
7462 becomes {std::vector} and the inner level 2 is {int}. */
7464 outer = DECL_CONTEXT (templ);
7465 if (outer)
7466 outer = TI_ARGS (get_template_info (DECL_TEMPLATE_RESULT (outer)));
7467 else if (current_template_parms)
7468 /* This is an argument of the current template, so we haven't set
7469 DECL_CONTEXT yet. */
7470 outer = current_template_args ();
7472 if (outer)
7473 arglist = add_to_template_args (outer, arglist);
7475 arglist2 = coerce_template_parms (parmlist, arglist, templ,
7476 complain,
7477 /*require_all_args=*/true,
7478 /*use_default_args=*/true);
7479 if (arglist2 == error_mark_node
7480 || (!uses_template_parms (arglist2)
7481 && check_instantiated_args (templ, arglist2, complain)))
7482 return error_mark_node;
7484 parm = bind_template_template_parm (TREE_TYPE (templ), arglist2);
7485 return parm;
7487 else
7489 tree template_type = TREE_TYPE (templ);
7490 tree gen_tmpl;
7491 tree type_decl;
7492 tree found = NULL_TREE;
7493 int arg_depth;
7494 int parm_depth;
7495 int is_dependent_type;
7496 int use_partial_inst_tmpl = false;
7498 if (template_type == error_mark_node)
7499 /* An error occurred while building the template TEMPL, and a
7500 diagnostic has most certainly been emitted for that
7501 already. Let's propagate that error. */
7502 return error_mark_node;
7504 gen_tmpl = most_general_template (templ);
7505 parmlist = DECL_TEMPLATE_PARMS (gen_tmpl);
7506 parm_depth = TMPL_PARMS_DEPTH (parmlist);
7507 arg_depth = TMPL_ARGS_DEPTH (arglist);
7509 if (arg_depth == 1 && parm_depth > 1)
7511 /* We've been given an incomplete set of template arguments.
7512 For example, given:
7514 template <class T> struct S1 {
7515 template <class U> struct S2 {};
7516 template <class U> struct S2<U*> {};
7519 we will be called with an ARGLIST of `U*', but the
7520 TEMPLATE will be `template <class T> template
7521 <class U> struct S1<T>::S2'. We must fill in the missing
7522 arguments. */
7523 arglist
7524 = add_outermost_template_args (TYPE_TI_ARGS (TREE_TYPE (templ)),
7525 arglist);
7526 arg_depth = TMPL_ARGS_DEPTH (arglist);
7529 /* Now we should have enough arguments. */
7530 gcc_assert (parm_depth == arg_depth);
7532 /* From here on, we're only interested in the most general
7533 template. */
7535 /* Calculate the BOUND_ARGS. These will be the args that are
7536 actually tsubst'd into the definition to create the
7537 instantiation. */
7538 if (parm_depth > 1)
7540 /* We have multiple levels of arguments to coerce, at once. */
7541 int i;
7542 int saved_depth = TMPL_ARGS_DEPTH (arglist);
7544 tree bound_args = make_tree_vec (parm_depth);
7546 for (i = saved_depth,
7547 t = DECL_TEMPLATE_PARMS (gen_tmpl);
7548 i > 0 && t != NULL_TREE;
7549 --i, t = TREE_CHAIN (t))
7551 tree a;
7552 if (i == saved_depth)
7553 a = coerce_template_parms (TREE_VALUE (t),
7554 arglist, gen_tmpl,
7555 complain,
7556 /*require_all_args=*/true,
7557 /*use_default_args=*/true);
7558 else
7559 /* Outer levels should have already been coerced. */
7560 a = TMPL_ARGS_LEVEL (arglist, i);
7562 /* Don't process further if one of the levels fails. */
7563 if (a == error_mark_node)
7565 /* Restore the ARGLIST to its full size. */
7566 TREE_VEC_LENGTH (arglist) = saved_depth;
7567 return error_mark_node;
7570 SET_TMPL_ARGS_LEVEL (bound_args, i, a);
7572 /* We temporarily reduce the length of the ARGLIST so
7573 that coerce_template_parms will see only the arguments
7574 corresponding to the template parameters it is
7575 examining. */
7576 TREE_VEC_LENGTH (arglist)--;
7579 /* Restore the ARGLIST to its full size. */
7580 TREE_VEC_LENGTH (arglist) = saved_depth;
7582 arglist = bound_args;
7584 else
7585 arglist
7586 = coerce_template_parms (INNERMOST_TEMPLATE_PARMS (parmlist),
7587 INNERMOST_TEMPLATE_ARGS (arglist),
7588 gen_tmpl,
7589 complain,
7590 /*require_all_args=*/true,
7591 /*use_default_args=*/true);
7593 if (arglist == error_mark_node)
7594 /* We were unable to bind the arguments. */
7595 return error_mark_node;
7597 /* In the scope of a template class, explicit references to the
7598 template class refer to the type of the template, not any
7599 instantiation of it. For example, in:
7601 template <class T> class C { void f(C<T>); }
7603 the `C<T>' is just the same as `C'. Outside of the
7604 class, however, such a reference is an instantiation. */
7605 if ((entering_scope
7606 || !PRIMARY_TEMPLATE_P (gen_tmpl)
7607 || currently_open_class (template_type))
7608 /* comp_template_args is expensive, check it last. */
7609 && comp_template_args (TYPE_TI_ARGS (template_type),
7610 arglist))
7611 return template_type;
7613 /* If we already have this specialization, return it. */
7614 elt.tmpl = gen_tmpl;
7615 elt.args = arglist;
7616 hash = hash_specialization (&elt);
7617 entry = (spec_entry *) htab_find_with_hash (type_specializations,
7618 &elt, hash);
7620 if (entry)
7621 return entry->spec;
7623 is_dependent_type = uses_template_parms (arglist);
7625 /* If the deduced arguments are invalid, then the binding
7626 failed. */
7627 if (!is_dependent_type
7628 && check_instantiated_args (gen_tmpl,
7629 INNERMOST_TEMPLATE_ARGS (arglist),
7630 complain))
7631 return error_mark_node;
7633 if (!is_dependent_type
7634 && !PRIMARY_TEMPLATE_P (gen_tmpl)
7635 && !LAMBDA_TYPE_P (TREE_TYPE (gen_tmpl))
7636 && TREE_CODE (CP_DECL_CONTEXT (gen_tmpl)) == NAMESPACE_DECL)
7638 found = xref_tag_from_type (TREE_TYPE (gen_tmpl),
7639 DECL_NAME (gen_tmpl),
7640 /*tag_scope=*/ts_global);
7641 return found;
7644 context = tsubst (DECL_CONTEXT (gen_tmpl), arglist,
7645 complain, in_decl);
7646 if (context == error_mark_node)
7647 return error_mark_node;
7649 if (!context)
7650 context = global_namespace;
7652 /* Create the type. */
7653 if (DECL_ALIAS_TEMPLATE_P (gen_tmpl))
7655 /* The user referred to a specialization of an alias
7656 template represented by GEN_TMPL.
7658 [temp.alias]/2 says:
7660 When a template-id refers to the specialization of an
7661 alias template, it is equivalent to the associated
7662 type obtained by substitution of its
7663 template-arguments for the template-parameters in the
7664 type-id of the alias template. */
7666 t = tsubst (TREE_TYPE (gen_tmpl), arglist, complain, in_decl);
7667 /* Note that the call above (by indirectly calling
7668 register_specialization in tsubst_decl) registers the
7669 TYPE_DECL representing the specialization of the alias
7670 template. So next time someone substitutes ARGLIST for
7671 the template parms into the alias template (GEN_TMPL),
7672 she'll get that TYPE_DECL back. */
7674 if (t == error_mark_node)
7675 return t;
7677 else if (TREE_CODE (template_type) == ENUMERAL_TYPE)
7679 if (!is_dependent_type)
7681 set_current_access_from_decl (TYPE_NAME (template_type));
7682 t = start_enum (TYPE_IDENTIFIER (template_type), NULL_TREE,
7683 tsubst (ENUM_UNDERLYING_TYPE (template_type),
7684 arglist, complain, in_decl),
7685 SCOPED_ENUM_P (template_type), NULL);
7687 if (t == error_mark_node)
7688 return t;
7690 else
7692 /* We don't want to call start_enum for this type, since
7693 the values for the enumeration constants may involve
7694 template parameters. And, no one should be interested
7695 in the enumeration constants for such a type. */
7696 t = cxx_make_type (ENUMERAL_TYPE);
7697 SET_SCOPED_ENUM_P (t, SCOPED_ENUM_P (template_type));
7699 SET_OPAQUE_ENUM_P (t, OPAQUE_ENUM_P (template_type));
7700 ENUM_FIXED_UNDERLYING_TYPE_P (t)
7701 = ENUM_FIXED_UNDERLYING_TYPE_P (template_type);
7703 else if (CLASS_TYPE_P (template_type))
7705 t = make_class_type (TREE_CODE (template_type));
7706 CLASSTYPE_DECLARED_CLASS (t)
7707 = CLASSTYPE_DECLARED_CLASS (template_type);
7708 SET_CLASSTYPE_IMPLICIT_INSTANTIATION (t);
7709 TYPE_FOR_JAVA (t) = TYPE_FOR_JAVA (template_type);
7711 /* A local class. Make sure the decl gets registered properly. */
7712 if (context == current_function_decl)
7713 pushtag (DECL_NAME (gen_tmpl), t, /*tag_scope=*/ts_current);
7715 if (comp_template_args (CLASSTYPE_TI_ARGS (template_type), arglist))
7716 /* This instantiation is another name for the primary
7717 template type. Set the TYPE_CANONICAL field
7718 appropriately. */
7719 TYPE_CANONICAL (t) = template_type;
7720 else if (any_template_arguments_need_structural_equality_p (arglist))
7721 /* Some of the template arguments require structural
7722 equality testing, so this template class requires
7723 structural equality testing. */
7724 SET_TYPE_STRUCTURAL_EQUALITY (t);
7726 else
7727 gcc_unreachable ();
7729 /* If we called start_enum or pushtag above, this information
7730 will already be set up. */
7731 if (!TYPE_NAME (t))
7733 TYPE_CONTEXT (t) = FROB_CONTEXT (context);
7735 type_decl = create_implicit_typedef (DECL_NAME (gen_tmpl), t);
7736 DECL_CONTEXT (type_decl) = TYPE_CONTEXT (t);
7737 DECL_SOURCE_LOCATION (type_decl)
7738 = DECL_SOURCE_LOCATION (TYPE_STUB_DECL (template_type));
7740 else
7741 type_decl = TYPE_NAME (t);
7743 if (CLASS_TYPE_P (template_type))
7745 TREE_PRIVATE (type_decl)
7746 = TREE_PRIVATE (TYPE_MAIN_DECL (template_type));
7747 TREE_PROTECTED (type_decl)
7748 = TREE_PROTECTED (TYPE_MAIN_DECL (template_type));
7749 if (CLASSTYPE_VISIBILITY_SPECIFIED (template_type))
7751 DECL_VISIBILITY_SPECIFIED (type_decl) = 1;
7752 DECL_VISIBILITY (type_decl) = CLASSTYPE_VISIBILITY (template_type);
7756 /* Let's consider the explicit specialization of a member
7757 of a class template specialization that is implicitly instantiated,
7758 e.g.:
7759 template<class T>
7760 struct S
7762 template<class U> struct M {}; //#0
7765 template<>
7766 template<>
7767 struct S<int>::M<char> //#1
7769 int i;
7771 [temp.expl.spec]/4 says this is valid.
7773 In this case, when we write:
7774 S<int>::M<char> m;
7776 M is instantiated from the CLASSTYPE_TI_TEMPLATE of #1, not from
7777 the one of #0.
7779 When we encounter #1, we want to store the partial instantiation
7780 of M (template<class T> S<int>::M<T>) in its CLASSTYPE_TI_TEMPLATE.
7782 For all cases other than this "explicit specialization of member of a
7783 class template", we just want to store the most general template into
7784 the CLASSTYPE_TI_TEMPLATE of M.
7786 This case of "explicit specialization of member of a class template"
7787 only happens when:
7788 1/ the enclosing class is an instantiation of, and therefore not
7789 the same as, the context of the most general template, and
7790 2/ we aren't looking at the partial instantiation itself, i.e.
7791 the innermost arguments are not the same as the innermost parms of
7792 the most general template.
7794 So it's only when 1/ and 2/ happens that we want to use the partial
7795 instantiation of the member template in lieu of its most general
7796 template. */
7798 if (PRIMARY_TEMPLATE_P (gen_tmpl)
7799 && TMPL_ARGS_HAVE_MULTIPLE_LEVELS (arglist)
7800 /* the enclosing class must be an instantiation... */
7801 && CLASS_TYPE_P (context)
7802 && !same_type_p (context, DECL_CONTEXT (gen_tmpl)))
7804 tree partial_inst_args;
7805 TREE_VEC_LENGTH (arglist)--;
7806 ++processing_template_decl;
7807 partial_inst_args =
7808 tsubst (INNERMOST_TEMPLATE_ARGS
7809 (TYPE_TI_ARGS (TREE_TYPE (gen_tmpl))),
7810 arglist, complain, NULL_TREE);
7811 --processing_template_decl;
7812 TREE_VEC_LENGTH (arglist)++;
7813 use_partial_inst_tmpl =
7814 /*...and we must not be looking at the partial instantiation
7815 itself. */
7816 !comp_template_args (INNERMOST_TEMPLATE_ARGS (arglist),
7817 partial_inst_args);
7820 if (!use_partial_inst_tmpl)
7821 /* This case is easy; there are no member templates involved. */
7822 found = gen_tmpl;
7823 else
7825 /* This is a full instantiation of a member template. Find
7826 the partial instantiation of which this is an instance. */
7828 /* Temporarily reduce by one the number of levels in the ARGLIST
7829 so as to avoid comparing the last set of arguments. */
7830 TREE_VEC_LENGTH (arglist)--;
7831 found = tsubst (gen_tmpl, arglist, complain, NULL_TREE);
7832 TREE_VEC_LENGTH (arglist)++;
7833 /* FOUND is either a proper class type, or an alias
7834 template specialization. In the later case, it's a
7835 TYPE_DECL, resulting from the substituting of arguments
7836 for parameters in the TYPE_DECL of the alias template
7837 done earlier. So be careful while getting the template
7838 of FOUND. */
7839 found = TREE_CODE (found) == TYPE_DECL
7840 ? TYPE_TI_TEMPLATE (TREE_TYPE (found))
7841 : CLASSTYPE_TI_TEMPLATE (found);
7844 SET_TYPE_TEMPLATE_INFO (t, build_template_info (found, arglist));
7846 elt.spec = t;
7847 slot = htab_find_slot_with_hash (type_specializations,
7848 &elt, hash, INSERT);
7849 entry = ggc_alloc<spec_entry> ();
7850 *entry = elt;
7851 *slot = entry;
7853 /* Note this use of the partial instantiation so we can check it
7854 later in maybe_process_partial_specialization. */
7855 DECL_TEMPLATE_INSTANTIATIONS (found)
7856 = tree_cons (arglist, t,
7857 DECL_TEMPLATE_INSTANTIATIONS (found));
7859 if (TREE_CODE (template_type) == ENUMERAL_TYPE && !is_dependent_type
7860 && !DECL_ALIAS_TEMPLATE_P (gen_tmpl))
7861 /* Now that the type has been registered on the instantiations
7862 list, we set up the enumerators. Because the enumeration
7863 constants may involve the enumeration type itself, we make
7864 sure to register the type first, and then create the
7865 constants. That way, doing tsubst_expr for the enumeration
7866 constants won't result in recursive calls here; we'll find
7867 the instantiation and exit above. */
7868 tsubst_enum (template_type, t, arglist);
7870 if (CLASS_TYPE_P (template_type) && is_dependent_type)
7871 /* If the type makes use of template parameters, the
7872 code that generates debugging information will crash. */
7873 DECL_IGNORED_P (TYPE_MAIN_DECL (t)) = 1;
7875 /* Possibly limit visibility based on template args. */
7876 TREE_PUBLIC (type_decl) = 1;
7877 determine_visibility (type_decl);
7879 return t;
7883 /* Wrapper for lookup_template_class_1. */
7885 tree
7886 lookup_template_class (tree d1, tree arglist, tree in_decl, tree context,
7887 int entering_scope, tsubst_flags_t complain)
7889 tree ret;
7890 timevar_push (TV_TEMPLATE_INST);
7891 ret = lookup_template_class_1 (d1, arglist, in_decl, context,
7892 entering_scope, complain);
7893 timevar_pop (TV_TEMPLATE_INST);
7894 return ret;
7897 struct pair_fn_data
7899 tree_fn_t fn;
7900 void *data;
7901 /* True when we should also visit template parameters that occur in
7902 non-deduced contexts. */
7903 bool include_nondeduced_p;
7904 struct pointer_set_t *visited;
7907 /* Called from for_each_template_parm via walk_tree. */
7909 static tree
7910 for_each_template_parm_r (tree *tp, int *walk_subtrees, void *d)
7912 tree t = *tp;
7913 struct pair_fn_data *pfd = (struct pair_fn_data *) d;
7914 tree_fn_t fn = pfd->fn;
7915 void *data = pfd->data;
7917 if (TYPE_P (t)
7918 && (pfd->include_nondeduced_p || TREE_CODE (t) != TYPENAME_TYPE)
7919 && for_each_template_parm (TYPE_CONTEXT (t), fn, data, pfd->visited,
7920 pfd->include_nondeduced_p))
7921 return error_mark_node;
7923 switch (TREE_CODE (t))
7925 case RECORD_TYPE:
7926 if (TYPE_PTRMEMFUNC_P (t))
7927 break;
7928 /* Fall through. */
7930 case UNION_TYPE:
7931 case ENUMERAL_TYPE:
7932 if (!TYPE_TEMPLATE_INFO (t))
7933 *walk_subtrees = 0;
7934 else if (for_each_template_parm (TYPE_TI_ARGS (t),
7935 fn, data, pfd->visited,
7936 pfd->include_nondeduced_p))
7937 return error_mark_node;
7938 break;
7940 case INTEGER_TYPE:
7941 if (for_each_template_parm (TYPE_MIN_VALUE (t),
7942 fn, data, pfd->visited,
7943 pfd->include_nondeduced_p)
7944 || for_each_template_parm (TYPE_MAX_VALUE (t),
7945 fn, data, pfd->visited,
7946 pfd->include_nondeduced_p))
7947 return error_mark_node;
7948 break;
7950 case METHOD_TYPE:
7951 /* Since we're not going to walk subtrees, we have to do this
7952 explicitly here. */
7953 if (for_each_template_parm (TYPE_METHOD_BASETYPE (t), fn, data,
7954 pfd->visited, pfd->include_nondeduced_p))
7955 return error_mark_node;
7956 /* Fall through. */
7958 case FUNCTION_TYPE:
7959 /* Check the return type. */
7960 if (for_each_template_parm (TREE_TYPE (t), fn, data, pfd->visited,
7961 pfd->include_nondeduced_p))
7962 return error_mark_node;
7964 /* Check the parameter types. Since default arguments are not
7965 instantiated until they are needed, the TYPE_ARG_TYPES may
7966 contain expressions that involve template parameters. But,
7967 no-one should be looking at them yet. And, once they're
7968 instantiated, they don't contain template parameters, so
7969 there's no point in looking at them then, either. */
7971 tree parm;
7973 for (parm = TYPE_ARG_TYPES (t); parm; parm = TREE_CHAIN (parm))
7974 if (for_each_template_parm (TREE_VALUE (parm), fn, data,
7975 pfd->visited, pfd->include_nondeduced_p))
7976 return error_mark_node;
7978 /* Since we've already handled the TYPE_ARG_TYPES, we don't
7979 want walk_tree walking into them itself. */
7980 *walk_subtrees = 0;
7982 break;
7984 case TYPEOF_TYPE:
7985 case UNDERLYING_TYPE:
7986 if (pfd->include_nondeduced_p
7987 && for_each_template_parm (TYPE_FIELDS (t), fn, data,
7988 pfd->visited,
7989 pfd->include_nondeduced_p))
7990 return error_mark_node;
7991 break;
7993 case FUNCTION_DECL:
7994 case VAR_DECL:
7995 if (DECL_LANG_SPECIFIC (t) && DECL_TEMPLATE_INFO (t)
7996 && for_each_template_parm (DECL_TI_ARGS (t), fn, data,
7997 pfd->visited, pfd->include_nondeduced_p))
7998 return error_mark_node;
7999 /* Fall through. */
8001 case PARM_DECL:
8002 case CONST_DECL:
8003 if (TREE_CODE (t) == CONST_DECL && DECL_TEMPLATE_PARM_P (t)
8004 && for_each_template_parm (DECL_INITIAL (t), fn, data,
8005 pfd->visited, pfd->include_nondeduced_p))
8006 return error_mark_node;
8007 if (DECL_CONTEXT (t)
8008 && pfd->include_nondeduced_p
8009 && for_each_template_parm (DECL_CONTEXT (t), fn, data,
8010 pfd->visited, pfd->include_nondeduced_p))
8011 return error_mark_node;
8012 break;
8014 case BOUND_TEMPLATE_TEMPLATE_PARM:
8015 /* Record template parameters such as `T' inside `TT<T>'. */
8016 if (for_each_template_parm (TYPE_TI_ARGS (t), fn, data, pfd->visited,
8017 pfd->include_nondeduced_p))
8018 return error_mark_node;
8019 /* Fall through. */
8021 case TEMPLATE_TEMPLATE_PARM:
8022 case TEMPLATE_TYPE_PARM:
8023 case TEMPLATE_PARM_INDEX:
8024 if (fn && (*fn)(t, data))
8025 return error_mark_node;
8026 else if (!fn)
8027 return error_mark_node;
8028 break;
8030 case TEMPLATE_DECL:
8031 /* A template template parameter is encountered. */
8032 if (DECL_TEMPLATE_TEMPLATE_PARM_P (t)
8033 && for_each_template_parm (TREE_TYPE (t), fn, data, pfd->visited,
8034 pfd->include_nondeduced_p))
8035 return error_mark_node;
8037 /* Already substituted template template parameter */
8038 *walk_subtrees = 0;
8039 break;
8041 case TYPENAME_TYPE:
8042 if (!fn
8043 || for_each_template_parm (TYPENAME_TYPE_FULLNAME (t), fn,
8044 data, pfd->visited,
8045 pfd->include_nondeduced_p))
8046 return error_mark_node;
8047 break;
8049 case CONSTRUCTOR:
8050 if (TREE_TYPE (t) && TYPE_PTRMEMFUNC_P (TREE_TYPE (t))
8051 && pfd->include_nondeduced_p
8052 && for_each_template_parm (TYPE_PTRMEMFUNC_FN_TYPE
8053 (TREE_TYPE (t)), fn, data,
8054 pfd->visited, pfd->include_nondeduced_p))
8055 return error_mark_node;
8056 break;
8058 case INDIRECT_REF:
8059 case COMPONENT_REF:
8060 /* If there's no type, then this thing must be some expression
8061 involving template parameters. */
8062 if (!fn && !TREE_TYPE (t))
8063 return error_mark_node;
8064 break;
8066 case MODOP_EXPR:
8067 case CAST_EXPR:
8068 case IMPLICIT_CONV_EXPR:
8069 case REINTERPRET_CAST_EXPR:
8070 case CONST_CAST_EXPR:
8071 case STATIC_CAST_EXPR:
8072 case DYNAMIC_CAST_EXPR:
8073 case ARROW_EXPR:
8074 case DOTSTAR_EXPR:
8075 case TYPEID_EXPR:
8076 case PSEUDO_DTOR_EXPR:
8077 if (!fn)
8078 return error_mark_node;
8079 break;
8081 default:
8082 break;
8085 /* We didn't find any template parameters we liked. */
8086 return NULL_TREE;
8089 /* For each TEMPLATE_TYPE_PARM, TEMPLATE_TEMPLATE_PARM,
8090 BOUND_TEMPLATE_TEMPLATE_PARM or TEMPLATE_PARM_INDEX in T,
8091 call FN with the parameter and the DATA.
8092 If FN returns nonzero, the iteration is terminated, and
8093 for_each_template_parm returns 1. Otherwise, the iteration
8094 continues. If FN never returns a nonzero value, the value
8095 returned by for_each_template_parm is 0. If FN is NULL, it is
8096 considered to be the function which always returns 1.
8098 If INCLUDE_NONDEDUCED_P, then this routine will also visit template
8099 parameters that occur in non-deduced contexts. When false, only
8100 visits those template parameters that can be deduced. */
8102 static int
8103 for_each_template_parm (tree t, tree_fn_t fn, void* data,
8104 struct pointer_set_t *visited,
8105 bool include_nondeduced_p)
8107 struct pair_fn_data pfd;
8108 int result;
8110 /* Set up. */
8111 pfd.fn = fn;
8112 pfd.data = data;
8113 pfd.include_nondeduced_p = include_nondeduced_p;
8115 /* Walk the tree. (Conceptually, we would like to walk without
8116 duplicates, but for_each_template_parm_r recursively calls
8117 for_each_template_parm, so we would need to reorganize a fair
8118 bit to use walk_tree_without_duplicates, so we keep our own
8119 visited list.) */
8120 if (visited)
8121 pfd.visited = visited;
8122 else
8123 pfd.visited = pointer_set_create ();
8124 result = cp_walk_tree (&t,
8125 for_each_template_parm_r,
8126 &pfd,
8127 pfd.visited) != NULL_TREE;
8129 /* Clean up. */
8130 if (!visited)
8132 pointer_set_destroy (pfd.visited);
8133 pfd.visited = 0;
8136 return result;
8139 /* Returns true if T depends on any template parameter. */
8142 uses_template_parms (tree t)
8144 bool dependent_p;
8145 int saved_processing_template_decl;
8147 saved_processing_template_decl = processing_template_decl;
8148 if (!saved_processing_template_decl)
8149 processing_template_decl = 1;
8150 if (TYPE_P (t))
8151 dependent_p = dependent_type_p (t);
8152 else if (TREE_CODE (t) == TREE_VEC)
8153 dependent_p = any_dependent_template_arguments_p (t);
8154 else if (TREE_CODE (t) == TREE_LIST)
8155 dependent_p = (uses_template_parms (TREE_VALUE (t))
8156 || uses_template_parms (TREE_CHAIN (t)));
8157 else if (TREE_CODE (t) == TYPE_DECL)
8158 dependent_p = dependent_type_p (TREE_TYPE (t));
8159 else if (DECL_P (t)
8160 || EXPR_P (t)
8161 || TREE_CODE (t) == TEMPLATE_PARM_INDEX
8162 || TREE_CODE (t) == OVERLOAD
8163 || BASELINK_P (t)
8164 || identifier_p (t)
8165 || TREE_CODE (t) == TRAIT_EXPR
8166 || TREE_CODE (t) == CONSTRUCTOR
8167 || CONSTANT_CLASS_P (t))
8168 dependent_p = (type_dependent_expression_p (t)
8169 || value_dependent_expression_p (t));
8170 else
8172 gcc_assert (t == error_mark_node);
8173 dependent_p = false;
8176 processing_template_decl = saved_processing_template_decl;
8178 return dependent_p;
8181 /* Returns true iff current_function_decl is an incompletely instantiated
8182 template. Useful instead of processing_template_decl because the latter
8183 is set to 0 during fold_non_dependent_expr. */
8185 bool
8186 in_template_function (void)
8188 tree fn = current_function_decl;
8189 bool ret;
8190 ++processing_template_decl;
8191 ret = (fn && DECL_LANG_SPECIFIC (fn)
8192 && DECL_TEMPLATE_INFO (fn)
8193 && any_dependent_template_arguments_p (DECL_TI_ARGS (fn)));
8194 --processing_template_decl;
8195 return ret;
8198 /* Returns true if T depends on any template parameter with level LEVEL. */
8201 uses_template_parms_level (tree t, int level)
8203 return for_each_template_parm (t, template_parm_this_level_p, &level, NULL,
8204 /*include_nondeduced_p=*/true);
8207 /* Returns TRUE iff INST is an instantiation we don't need to do in an
8208 ill-formed translation unit, i.e. a variable or function that isn't
8209 usable in a constant expression. */
8211 static inline bool
8212 neglectable_inst_p (tree d)
8214 return (DECL_P (d)
8215 && !(TREE_CODE (d) == FUNCTION_DECL ? DECL_DECLARED_CONSTEXPR_P (d)
8216 : decl_maybe_constant_var_p (d)));
8219 /* Returns TRUE iff we should refuse to instantiate DECL because it's
8220 neglectable and instantiated from within an erroneous instantiation. */
8222 static bool
8223 limit_bad_template_recursion (tree decl)
8225 struct tinst_level *lev = current_tinst_level;
8226 int errs = errorcount + sorrycount;
8227 if (lev == NULL || errs == 0 || !neglectable_inst_p (decl))
8228 return false;
8230 for (; lev; lev = lev->next)
8231 if (neglectable_inst_p (lev->decl))
8232 break;
8234 return (lev && errs > lev->errors);
8237 static int tinst_depth;
8238 extern int max_tinst_depth;
8239 int depth_reached;
8241 static GTY(()) struct tinst_level *last_error_tinst_level;
8243 /* We're starting to instantiate D; record the template instantiation context
8244 for diagnostics and to restore it later. */
8247 push_tinst_level (tree d)
8249 struct tinst_level *new_level;
8251 if (tinst_depth >= max_tinst_depth)
8253 last_error_tinst_level = current_tinst_level;
8254 if (TREE_CODE (d) == TREE_LIST)
8255 error ("template instantiation depth exceeds maximum of %d (use "
8256 "-ftemplate-depth= to increase the maximum) substituting %qS",
8257 max_tinst_depth, d);
8258 else
8259 error ("template instantiation depth exceeds maximum of %d (use "
8260 "-ftemplate-depth= to increase the maximum) instantiating %qD",
8261 max_tinst_depth, d);
8263 print_instantiation_context ();
8265 return 0;
8268 /* If the current instantiation caused problems, don't let it instantiate
8269 anything else. Do allow deduction substitution and decls usable in
8270 constant expressions. */
8271 if (limit_bad_template_recursion (d))
8272 return 0;
8274 new_level = ggc_alloc<tinst_level> ();
8275 new_level->decl = d;
8276 new_level->locus = input_location;
8277 new_level->errors = errorcount+sorrycount;
8278 new_level->in_system_header_p = in_system_header_at (input_location);
8279 new_level->next = current_tinst_level;
8280 current_tinst_level = new_level;
8282 ++tinst_depth;
8283 if (GATHER_STATISTICS && (tinst_depth > depth_reached))
8284 depth_reached = tinst_depth;
8286 return 1;
8289 /* We're done instantiating this template; return to the instantiation
8290 context. */
8292 void
8293 pop_tinst_level (void)
8295 /* Restore the filename and line number stashed away when we started
8296 this instantiation. */
8297 input_location = current_tinst_level->locus;
8298 current_tinst_level = current_tinst_level->next;
8299 --tinst_depth;
8302 /* We're instantiating a deferred template; restore the template
8303 instantiation context in which the instantiation was requested, which
8304 is one step out from LEVEL. Return the corresponding DECL or TYPE. */
8306 static tree
8307 reopen_tinst_level (struct tinst_level *level)
8309 struct tinst_level *t;
8311 tinst_depth = 0;
8312 for (t = level; t; t = t->next)
8313 ++tinst_depth;
8315 current_tinst_level = level;
8316 pop_tinst_level ();
8317 if (current_tinst_level)
8318 current_tinst_level->errors = errorcount+sorrycount;
8319 return level->decl;
8322 /* Returns the TINST_LEVEL which gives the original instantiation
8323 context. */
8325 struct tinst_level *
8326 outermost_tinst_level (void)
8328 struct tinst_level *level = current_tinst_level;
8329 if (level)
8330 while (level->next)
8331 level = level->next;
8332 return level;
8335 /* DECL is a friend FUNCTION_DECL or TEMPLATE_DECL. ARGS is the
8336 vector of template arguments, as for tsubst.
8338 Returns an appropriate tsubst'd friend declaration. */
8340 static tree
8341 tsubst_friend_function (tree decl, tree args)
8343 tree new_friend;
8345 if (TREE_CODE (decl) == FUNCTION_DECL
8346 && DECL_TEMPLATE_INSTANTIATION (decl)
8347 && TREE_CODE (DECL_TI_TEMPLATE (decl)) != TEMPLATE_DECL)
8348 /* This was a friend declared with an explicit template
8349 argument list, e.g.:
8351 friend void f<>(T);
8353 to indicate that f was a template instantiation, not a new
8354 function declaration. Now, we have to figure out what
8355 instantiation of what template. */
8357 tree template_id, arglist, fns;
8358 tree new_args;
8359 tree tmpl;
8360 tree ns = decl_namespace_context (TYPE_MAIN_DECL (current_class_type));
8362 /* Friend functions are looked up in the containing namespace scope.
8363 We must enter that scope, to avoid finding member functions of the
8364 current class with same name. */
8365 push_nested_namespace (ns);
8366 fns = tsubst_expr (DECL_TI_TEMPLATE (decl), args,
8367 tf_warning_or_error, NULL_TREE,
8368 /*integral_constant_expression_p=*/false);
8369 pop_nested_namespace (ns);
8370 arglist = tsubst (DECL_TI_ARGS (decl), args,
8371 tf_warning_or_error, NULL_TREE);
8372 template_id = lookup_template_function (fns, arglist);
8374 new_friend = tsubst (decl, args, tf_warning_or_error, NULL_TREE);
8375 tmpl = determine_specialization (template_id, new_friend,
8376 &new_args,
8377 /*need_member_template=*/0,
8378 TREE_VEC_LENGTH (args),
8379 tsk_none);
8380 return instantiate_template (tmpl, new_args, tf_error);
8383 new_friend = tsubst (decl, args, tf_warning_or_error, NULL_TREE);
8385 /* The NEW_FRIEND will look like an instantiation, to the
8386 compiler, but is not an instantiation from the point of view of
8387 the language. For example, we might have had:
8389 template <class T> struct S {
8390 template <class U> friend void f(T, U);
8393 Then, in S<int>, template <class U> void f(int, U) is not an
8394 instantiation of anything. */
8395 if (new_friend == error_mark_node)
8396 return error_mark_node;
8398 DECL_USE_TEMPLATE (new_friend) = 0;
8399 if (TREE_CODE (decl) == TEMPLATE_DECL)
8401 DECL_USE_TEMPLATE (DECL_TEMPLATE_RESULT (new_friend)) = 0;
8402 DECL_SAVED_TREE (DECL_TEMPLATE_RESULT (new_friend))
8403 = DECL_SAVED_TREE (DECL_TEMPLATE_RESULT (decl));
8406 /* The mangled name for the NEW_FRIEND is incorrect. The function
8407 is not a template instantiation and should not be mangled like
8408 one. Therefore, we forget the mangling here; we'll recompute it
8409 later if we need it. */
8410 if (TREE_CODE (new_friend) != TEMPLATE_DECL)
8412 SET_DECL_RTL (new_friend, NULL);
8413 SET_DECL_ASSEMBLER_NAME (new_friend, NULL_TREE);
8416 if (DECL_NAMESPACE_SCOPE_P (new_friend))
8418 tree old_decl;
8419 tree new_friend_template_info;
8420 tree new_friend_result_template_info;
8421 tree ns;
8422 int new_friend_is_defn;
8424 /* We must save some information from NEW_FRIEND before calling
8425 duplicate decls since that function will free NEW_FRIEND if
8426 possible. */
8427 new_friend_template_info = DECL_TEMPLATE_INFO (new_friend);
8428 new_friend_is_defn =
8429 (DECL_INITIAL (DECL_TEMPLATE_RESULT
8430 (template_for_substitution (new_friend)))
8431 != NULL_TREE);
8432 if (TREE_CODE (new_friend) == TEMPLATE_DECL)
8434 /* This declaration is a `primary' template. */
8435 DECL_PRIMARY_TEMPLATE (new_friend) = new_friend;
8437 new_friend_result_template_info
8438 = DECL_TEMPLATE_INFO (DECL_TEMPLATE_RESULT (new_friend));
8440 else
8441 new_friend_result_template_info = NULL_TREE;
8443 /* Make the init_value nonzero so pushdecl knows this is a defn. */
8444 if (new_friend_is_defn)
8445 DECL_INITIAL (new_friend) = error_mark_node;
8447 /* Inside pushdecl_namespace_level, we will push into the
8448 current namespace. However, the friend function should go
8449 into the namespace of the template. */
8450 ns = decl_namespace_context (new_friend);
8451 push_nested_namespace (ns);
8452 old_decl = pushdecl_namespace_level (new_friend, /*is_friend=*/true);
8453 pop_nested_namespace (ns);
8455 if (old_decl == error_mark_node)
8456 return error_mark_node;
8458 if (old_decl != new_friend)
8460 /* This new friend declaration matched an existing
8461 declaration. For example, given:
8463 template <class T> void f(T);
8464 template <class U> class C {
8465 template <class T> friend void f(T) {}
8468 the friend declaration actually provides the definition
8469 of `f', once C has been instantiated for some type. So,
8470 old_decl will be the out-of-class template declaration,
8471 while new_friend is the in-class definition.
8473 But, if `f' was called before this point, the
8474 instantiation of `f' will have DECL_TI_ARGS corresponding
8475 to `T' but not to `U', references to which might appear
8476 in the definition of `f'. Previously, the most general
8477 template for an instantiation of `f' was the out-of-class
8478 version; now it is the in-class version. Therefore, we
8479 run through all specialization of `f', adding to their
8480 DECL_TI_ARGS appropriately. In particular, they need a
8481 new set of outer arguments, corresponding to the
8482 arguments for this class instantiation.
8484 The same situation can arise with something like this:
8486 friend void f(int);
8487 template <class T> class C {
8488 friend void f(T) {}
8491 when `C<int>' is instantiated. Now, `f(int)' is defined
8492 in the class. */
8494 if (!new_friend_is_defn)
8495 /* On the other hand, if the in-class declaration does
8496 *not* provide a definition, then we don't want to alter
8497 existing definitions. We can just leave everything
8498 alone. */
8500 else
8502 tree new_template = TI_TEMPLATE (new_friend_template_info);
8503 tree new_args = TI_ARGS (new_friend_template_info);
8505 /* Overwrite whatever template info was there before, if
8506 any, with the new template information pertaining to
8507 the declaration. */
8508 DECL_TEMPLATE_INFO (old_decl) = new_friend_template_info;
8510 if (TREE_CODE (old_decl) != TEMPLATE_DECL)
8512 /* We should have called reregister_specialization in
8513 duplicate_decls. */
8514 gcc_assert (retrieve_specialization (new_template,
8515 new_args, 0)
8516 == old_decl);
8518 /* Instantiate it if the global has already been used. */
8519 if (DECL_ODR_USED (old_decl))
8520 instantiate_decl (old_decl, /*defer_ok=*/true,
8521 /*expl_inst_class_mem_p=*/false);
8523 else
8525 tree t;
8527 /* Indicate that the old function template is a partial
8528 instantiation. */
8529 DECL_TEMPLATE_INFO (DECL_TEMPLATE_RESULT (old_decl))
8530 = new_friend_result_template_info;
8532 gcc_assert (new_template
8533 == most_general_template (new_template));
8534 gcc_assert (new_template != old_decl);
8536 /* Reassign any specializations already in the hash table
8537 to the new more general template, and add the
8538 additional template args. */
8539 for (t = DECL_TEMPLATE_INSTANTIATIONS (old_decl);
8540 t != NULL_TREE;
8541 t = TREE_CHAIN (t))
8543 tree spec = TREE_VALUE (t);
8544 spec_entry elt;
8546 elt.tmpl = old_decl;
8547 elt.args = DECL_TI_ARGS (spec);
8548 elt.spec = NULL_TREE;
8550 htab_remove_elt (decl_specializations, &elt);
8552 DECL_TI_ARGS (spec)
8553 = add_outermost_template_args (new_args,
8554 DECL_TI_ARGS (spec));
8556 register_specialization
8557 (spec, new_template, DECL_TI_ARGS (spec), true, 0);
8560 DECL_TEMPLATE_INSTANTIATIONS (old_decl) = NULL_TREE;
8564 /* The information from NEW_FRIEND has been merged into OLD_DECL
8565 by duplicate_decls. */
8566 new_friend = old_decl;
8569 else
8571 tree context = DECL_CONTEXT (new_friend);
8572 bool dependent_p;
8574 /* In the code
8575 template <class T> class C {
8576 template <class U> friend void C1<U>::f (); // case 1
8577 friend void C2<T>::f (); // case 2
8579 we only need to make sure CONTEXT is a complete type for
8580 case 2. To distinguish between the two cases, we note that
8581 CONTEXT of case 1 remains dependent type after tsubst while
8582 this isn't true for case 2. */
8583 ++processing_template_decl;
8584 dependent_p = dependent_type_p (context);
8585 --processing_template_decl;
8587 if (!dependent_p
8588 && !complete_type_or_else (context, NULL_TREE))
8589 return error_mark_node;
8591 if (COMPLETE_TYPE_P (context))
8593 tree fn = new_friend;
8594 /* do_friend adds the TEMPLATE_DECL for any member friend
8595 template even if it isn't a member template, i.e.
8596 template <class T> friend A<T>::f();
8597 Look through it in that case. */
8598 if (TREE_CODE (fn) == TEMPLATE_DECL
8599 && !PRIMARY_TEMPLATE_P (fn))
8600 fn = DECL_TEMPLATE_RESULT (fn);
8601 /* Check to see that the declaration is really present, and,
8602 possibly obtain an improved declaration. */
8603 fn = check_classfn (context, fn, NULL_TREE);
8605 if (fn)
8606 new_friend = fn;
8610 return new_friend;
8613 /* FRIEND_TMPL is a friend TEMPLATE_DECL. ARGS is the vector of
8614 template arguments, as for tsubst.
8616 Returns an appropriate tsubst'd friend type or error_mark_node on
8617 failure. */
8619 static tree
8620 tsubst_friend_class (tree friend_tmpl, tree args)
8622 tree friend_type;
8623 tree tmpl;
8624 tree context;
8626 if (DECL_TEMPLATE_TEMPLATE_PARM_P (friend_tmpl))
8628 tree t = tsubst (TREE_TYPE (friend_tmpl), args, tf_none, NULL_TREE);
8629 return TREE_TYPE (t);
8632 context = CP_DECL_CONTEXT (friend_tmpl);
8634 if (context != global_namespace)
8636 if (TREE_CODE (context) == NAMESPACE_DECL)
8637 push_nested_namespace (context);
8638 else
8639 push_nested_class (tsubst (context, args, tf_none, NULL_TREE));
8642 /* Look for a class template declaration. We look for hidden names
8643 because two friend declarations of the same template are the
8644 same. For example, in:
8646 struct A {
8647 template <typename> friend class F;
8649 template <typename> struct B {
8650 template <typename> friend class F;
8653 both F templates are the same. */
8654 tmpl = lookup_name_real (DECL_NAME (friend_tmpl), 0, 0,
8655 /*block_p=*/true, 0, LOOKUP_HIDDEN);
8657 /* But, if we don't find one, it might be because we're in a
8658 situation like this:
8660 template <class T>
8661 struct S {
8662 template <class U>
8663 friend struct S;
8666 Here, in the scope of (say) S<int>, `S' is bound to a TYPE_DECL
8667 for `S<int>', not the TEMPLATE_DECL. */
8668 if (!tmpl || !DECL_CLASS_TEMPLATE_P (tmpl))
8670 tmpl = lookup_name_prefer_type (DECL_NAME (friend_tmpl), 1);
8671 tmpl = maybe_get_template_decl_from_type_decl (tmpl);
8674 if (tmpl && DECL_CLASS_TEMPLATE_P (tmpl))
8676 /* The friend template has already been declared. Just
8677 check to see that the declarations match, and install any new
8678 default parameters. We must tsubst the default parameters,
8679 of course. We only need the innermost template parameters
8680 because that is all that redeclare_class_template will look
8681 at. */
8682 if (TMPL_PARMS_DEPTH (DECL_TEMPLATE_PARMS (friend_tmpl))
8683 > TMPL_ARGS_DEPTH (args))
8685 tree parms;
8686 location_t saved_input_location;
8687 parms = tsubst_template_parms (DECL_TEMPLATE_PARMS (friend_tmpl),
8688 args, tf_warning_or_error);
8690 saved_input_location = input_location;
8691 input_location = DECL_SOURCE_LOCATION (friend_tmpl);
8692 redeclare_class_template (TREE_TYPE (tmpl), parms);
8693 input_location = saved_input_location;
8697 friend_type = TREE_TYPE (tmpl);
8699 else
8701 /* The friend template has not already been declared. In this
8702 case, the instantiation of the template class will cause the
8703 injection of this template into the global scope. */
8704 tmpl = tsubst (friend_tmpl, args, tf_warning_or_error, NULL_TREE);
8705 if (tmpl == error_mark_node)
8706 return error_mark_node;
8708 /* The new TMPL is not an instantiation of anything, so we
8709 forget its origins. We don't reset CLASSTYPE_TI_TEMPLATE for
8710 the new type because that is supposed to be the corresponding
8711 template decl, i.e., TMPL. */
8712 DECL_USE_TEMPLATE (tmpl) = 0;
8713 DECL_TEMPLATE_INFO (tmpl) = NULL_TREE;
8714 CLASSTYPE_USE_TEMPLATE (TREE_TYPE (tmpl)) = 0;
8715 CLASSTYPE_TI_ARGS (TREE_TYPE (tmpl))
8716 = INNERMOST_TEMPLATE_ARGS (CLASSTYPE_TI_ARGS (TREE_TYPE (tmpl)));
8718 /* Inject this template into the global scope. */
8719 friend_type = TREE_TYPE (pushdecl_top_level_maybe_friend (tmpl, true));
8722 if (context != global_namespace)
8724 if (TREE_CODE (context) == NAMESPACE_DECL)
8725 pop_nested_namespace (context);
8726 else
8727 pop_nested_class ();
8730 return friend_type;
8733 /* Returns zero if TYPE cannot be completed later due to circularity.
8734 Otherwise returns one. */
8736 static int
8737 can_complete_type_without_circularity (tree type)
8739 if (type == NULL_TREE || type == error_mark_node)
8740 return 0;
8741 else if (COMPLETE_TYPE_P (type))
8742 return 1;
8743 else if (TREE_CODE (type) == ARRAY_TYPE && TYPE_DOMAIN (type))
8744 return can_complete_type_without_circularity (TREE_TYPE (type));
8745 else if (CLASS_TYPE_P (type)
8746 && TYPE_BEING_DEFINED (TYPE_MAIN_VARIANT (type)))
8747 return 0;
8748 else
8749 return 1;
8752 static tree tsubst_omp_clauses (tree, bool, tree, tsubst_flags_t, tree);
8754 /* Apply any attributes which had to be deferred until instantiation
8755 time. DECL_P, ATTRIBUTES and ATTR_FLAGS are as cplus_decl_attributes;
8756 ARGS, COMPLAIN, IN_DECL are as tsubst. */
8758 static void
8759 apply_late_template_attributes (tree *decl_p, tree attributes, int attr_flags,
8760 tree args, tsubst_flags_t complain, tree in_decl)
8762 tree last_dep = NULL_TREE;
8763 tree t;
8764 tree *p;
8766 for (t = attributes; t; t = TREE_CHAIN (t))
8767 if (ATTR_IS_DEPENDENT (t))
8769 last_dep = t;
8770 attributes = copy_list (attributes);
8771 break;
8774 if (DECL_P (*decl_p))
8776 if (TREE_TYPE (*decl_p) == error_mark_node)
8777 return;
8778 p = &DECL_ATTRIBUTES (*decl_p);
8780 else
8781 p = &TYPE_ATTRIBUTES (*decl_p);
8783 if (last_dep)
8785 tree late_attrs = NULL_TREE;
8786 tree *q = &late_attrs;
8788 for (*p = attributes; *p; )
8790 t = *p;
8791 if (ATTR_IS_DEPENDENT (t))
8793 *p = TREE_CHAIN (t);
8794 TREE_CHAIN (t) = NULL_TREE;
8795 if ((flag_openmp || flag_cilkplus)
8796 && is_attribute_p ("omp declare simd",
8797 get_attribute_name (t))
8798 && TREE_VALUE (t))
8800 tree clauses = TREE_VALUE (TREE_VALUE (t));
8801 clauses = tsubst_omp_clauses (clauses, true, args,
8802 complain, in_decl);
8803 c_omp_declare_simd_clauses_to_decls (*decl_p, clauses);
8804 clauses = finish_omp_clauses (clauses);
8805 tree parms = DECL_ARGUMENTS (*decl_p);
8806 clauses
8807 = c_omp_declare_simd_clauses_to_numbers (parms, clauses);
8808 if (clauses)
8809 TREE_VALUE (TREE_VALUE (t)) = clauses;
8810 else
8811 TREE_VALUE (t) = NULL_TREE;
8813 /* If the first attribute argument is an identifier, don't
8814 pass it through tsubst. Attributes like mode, format,
8815 cleanup and several target specific attributes expect it
8816 unmodified. */
8817 else if (attribute_takes_identifier_p (get_attribute_name (t))
8818 && TREE_VALUE (t))
8820 tree chain
8821 = tsubst_expr (TREE_CHAIN (TREE_VALUE (t)), args, complain,
8822 in_decl,
8823 /*integral_constant_expression_p=*/false);
8824 if (chain != TREE_CHAIN (TREE_VALUE (t)))
8825 TREE_VALUE (t)
8826 = tree_cons (NULL_TREE, TREE_VALUE (TREE_VALUE (t)),
8827 chain);
8829 else
8830 TREE_VALUE (t)
8831 = tsubst_expr (TREE_VALUE (t), args, complain, in_decl,
8832 /*integral_constant_expression_p=*/false);
8833 *q = t;
8834 q = &TREE_CHAIN (t);
8836 else
8837 p = &TREE_CHAIN (t);
8840 cplus_decl_attributes (decl_p, late_attrs, attr_flags);
8844 /* Perform (or defer) access check for typedefs that were referenced
8845 from within the template TMPL code.
8846 This is a subroutine of instantiate_decl and instantiate_class_template.
8847 TMPL is the template to consider and TARGS is the list of arguments of
8848 that template. */
8850 static void
8851 perform_typedefs_access_check (tree tmpl, tree targs)
8853 location_t saved_location;
8854 unsigned i;
8855 qualified_typedef_usage_t *iter;
8857 if (!tmpl
8858 || (!CLASS_TYPE_P (tmpl)
8859 && TREE_CODE (tmpl) != FUNCTION_DECL))
8860 return;
8862 saved_location = input_location;
8863 FOR_EACH_VEC_SAFE_ELT (get_types_needing_access_check (tmpl), i, iter)
8865 tree type_decl = iter->typedef_decl;
8866 tree type_scope = iter->context;
8868 if (!type_decl || !type_scope || !CLASS_TYPE_P (type_scope))
8869 continue;
8871 if (uses_template_parms (type_decl))
8872 type_decl = tsubst (type_decl, targs, tf_error, NULL_TREE);
8873 if (uses_template_parms (type_scope))
8874 type_scope = tsubst (type_scope, targs, tf_error, NULL_TREE);
8876 /* Make access check error messages point to the location
8877 of the use of the typedef. */
8878 input_location = iter->locus;
8879 perform_or_defer_access_check (TYPE_BINFO (type_scope),
8880 type_decl, type_decl,
8881 tf_warning_or_error);
8883 input_location = saved_location;
8886 static tree
8887 instantiate_class_template_1 (tree type)
8889 tree templ, args, pattern, t, member;
8890 tree typedecl;
8891 tree pbinfo;
8892 tree base_list;
8893 unsigned int saved_maximum_field_alignment;
8894 tree fn_context;
8896 if (type == error_mark_node)
8897 return error_mark_node;
8899 if (COMPLETE_OR_OPEN_TYPE_P (type)
8900 || uses_template_parms (type))
8901 return type;
8903 /* Figure out which template is being instantiated. */
8904 templ = most_general_template (CLASSTYPE_TI_TEMPLATE (type));
8905 gcc_assert (TREE_CODE (templ) == TEMPLATE_DECL);
8907 /* Determine what specialization of the original template to
8908 instantiate. */
8909 t = most_specialized_class (type, tf_warning_or_error);
8910 if (t == error_mark_node)
8912 TYPE_BEING_DEFINED (type) = 1;
8913 return error_mark_node;
8915 else if (t)
8917 /* This TYPE is actually an instantiation of a partial
8918 specialization. We replace the innermost set of ARGS with
8919 the arguments appropriate for substitution. For example,
8920 given:
8922 template <class T> struct S {};
8923 template <class T> struct S<T*> {};
8925 and supposing that we are instantiating S<int*>, ARGS will
8926 presently be {int*} -- but we need {int}. */
8927 pattern = TREE_TYPE (t);
8928 args = TREE_PURPOSE (t);
8930 else
8932 pattern = TREE_TYPE (templ);
8933 args = CLASSTYPE_TI_ARGS (type);
8936 /* If the template we're instantiating is incomplete, then clearly
8937 there's nothing we can do. */
8938 if (!COMPLETE_TYPE_P (pattern))
8939 return type;
8941 /* If we've recursively instantiated too many templates, stop. */
8942 if (! push_tinst_level (type))
8943 return type;
8945 /* Now we're really doing the instantiation. Mark the type as in
8946 the process of being defined. */
8947 TYPE_BEING_DEFINED (type) = 1;
8949 /* We may be in the middle of deferred access check. Disable
8950 it now. */
8951 push_deferring_access_checks (dk_no_deferred);
8953 fn_context = decl_function_context (TYPE_MAIN_DECL (type));
8954 /* Also avoid push_to_top_level for a lambda in an NSDMI. */
8955 if (!fn_context && LAMBDA_TYPE_P (type) && TYPE_CLASS_SCOPE_P (type))
8956 fn_context = error_mark_node;
8957 if (!fn_context)
8958 push_to_top_level ();
8959 /* Use #pragma pack from the template context. */
8960 saved_maximum_field_alignment = maximum_field_alignment;
8961 maximum_field_alignment = TYPE_PRECISION (pattern);
8963 SET_CLASSTYPE_INTERFACE_UNKNOWN (type);
8965 /* Set the input location to the most specialized template definition.
8966 This is needed if tsubsting causes an error. */
8967 typedecl = TYPE_MAIN_DECL (pattern);
8968 input_location = DECL_SOURCE_LOCATION (TYPE_NAME (type)) =
8969 DECL_SOURCE_LOCATION (typedecl);
8971 TYPE_PACKED (type) = TYPE_PACKED (pattern);
8972 TYPE_ALIGN (type) = TYPE_ALIGN (pattern);
8973 TYPE_USER_ALIGN (type) = TYPE_USER_ALIGN (pattern);
8974 TYPE_FOR_JAVA (type) = TYPE_FOR_JAVA (pattern); /* For libjava's JArray<T> */
8975 if (ANON_AGGR_TYPE_P (pattern))
8976 SET_ANON_AGGR_TYPE_P (type);
8977 if (CLASSTYPE_VISIBILITY_SPECIFIED (pattern))
8979 CLASSTYPE_VISIBILITY_SPECIFIED (type) = 1;
8980 CLASSTYPE_VISIBILITY (type) = CLASSTYPE_VISIBILITY (pattern);
8981 /* Adjust visibility for template arguments. */
8982 determine_visibility (TYPE_MAIN_DECL (type));
8984 if (CLASS_TYPE_P (type))
8985 CLASSTYPE_FINAL (type) = CLASSTYPE_FINAL (pattern);
8987 pbinfo = TYPE_BINFO (pattern);
8989 /* We should never instantiate a nested class before its enclosing
8990 class; we need to look up the nested class by name before we can
8991 instantiate it, and that lookup should instantiate the enclosing
8992 class. */
8993 gcc_assert (!DECL_CLASS_SCOPE_P (TYPE_MAIN_DECL (pattern))
8994 || COMPLETE_OR_OPEN_TYPE_P (TYPE_CONTEXT (type)));
8996 base_list = NULL_TREE;
8997 if (BINFO_N_BASE_BINFOS (pbinfo))
8999 tree pbase_binfo;
9000 tree pushed_scope;
9001 int i;
9003 /* We must enter the scope containing the type, as that is where
9004 the accessibility of types named in dependent bases are
9005 looked up from. */
9006 pushed_scope = push_scope (CP_TYPE_CONTEXT (type));
9008 /* Substitute into each of the bases to determine the actual
9009 basetypes. */
9010 for (i = 0; BINFO_BASE_ITERATE (pbinfo, i, pbase_binfo); i++)
9012 tree base;
9013 tree access = BINFO_BASE_ACCESS (pbinfo, i);
9014 tree expanded_bases = NULL_TREE;
9015 int idx, len = 1;
9017 if (PACK_EXPANSION_P (BINFO_TYPE (pbase_binfo)))
9019 expanded_bases =
9020 tsubst_pack_expansion (BINFO_TYPE (pbase_binfo),
9021 args, tf_error, NULL_TREE);
9022 if (expanded_bases == error_mark_node)
9023 continue;
9025 len = TREE_VEC_LENGTH (expanded_bases);
9028 for (idx = 0; idx < len; idx++)
9030 if (expanded_bases)
9031 /* Extract the already-expanded base class. */
9032 base = TREE_VEC_ELT (expanded_bases, idx);
9033 else
9034 /* Substitute to figure out the base class. */
9035 base = tsubst (BINFO_TYPE (pbase_binfo), args, tf_error,
9036 NULL_TREE);
9038 if (base == error_mark_node)
9039 continue;
9041 base_list = tree_cons (access, base, base_list);
9042 if (BINFO_VIRTUAL_P (pbase_binfo))
9043 TREE_TYPE (base_list) = integer_type_node;
9047 /* The list is now in reverse order; correct that. */
9048 base_list = nreverse (base_list);
9050 if (pushed_scope)
9051 pop_scope (pushed_scope);
9053 /* Now call xref_basetypes to set up all the base-class
9054 information. */
9055 xref_basetypes (type, base_list);
9057 apply_late_template_attributes (&type, TYPE_ATTRIBUTES (pattern),
9058 (int) ATTR_FLAG_TYPE_IN_PLACE,
9059 args, tf_error, NULL_TREE);
9060 fixup_attribute_variants (type);
9062 /* Now that our base classes are set up, enter the scope of the
9063 class, so that name lookups into base classes, etc. will work
9064 correctly. This is precisely analogous to what we do in
9065 begin_class_definition when defining an ordinary non-template
9066 class, except we also need to push the enclosing classes. */
9067 push_nested_class (type);
9069 /* Now members are processed in the order of declaration. */
9070 for (member = CLASSTYPE_DECL_LIST (pattern);
9071 member; member = TREE_CHAIN (member))
9073 tree t = TREE_VALUE (member);
9075 if (TREE_PURPOSE (member))
9077 if (TYPE_P (t))
9079 /* Build new CLASSTYPE_NESTED_UTDS. */
9081 tree newtag;
9082 bool class_template_p;
9084 class_template_p = (TREE_CODE (t) != ENUMERAL_TYPE
9085 && TYPE_LANG_SPECIFIC (t)
9086 && CLASSTYPE_IS_TEMPLATE (t));
9087 /* If the member is a class template, then -- even after
9088 substitution -- there may be dependent types in the
9089 template argument list for the class. We increment
9090 PROCESSING_TEMPLATE_DECL so that dependent_type_p, as
9091 that function will assume that no types are dependent
9092 when outside of a template. */
9093 if (class_template_p)
9094 ++processing_template_decl;
9095 newtag = tsubst (t, args, tf_error, NULL_TREE);
9096 if (class_template_p)
9097 --processing_template_decl;
9098 if (newtag == error_mark_node)
9099 continue;
9101 if (TREE_CODE (newtag) != ENUMERAL_TYPE)
9103 tree name = TYPE_IDENTIFIER (t);
9105 if (class_template_p)
9106 /* Unfortunately, lookup_template_class sets
9107 CLASSTYPE_IMPLICIT_INSTANTIATION for a partial
9108 instantiation (i.e., for the type of a member
9109 template class nested within a template class.)
9110 This behavior is required for
9111 maybe_process_partial_specialization to work
9112 correctly, but is not accurate in this case;
9113 the TAG is not an instantiation of anything.
9114 (The corresponding TEMPLATE_DECL is an
9115 instantiation, but the TYPE is not.) */
9116 CLASSTYPE_USE_TEMPLATE (newtag) = 0;
9118 /* Now, we call pushtag to put this NEWTAG into the scope of
9119 TYPE. We first set up the IDENTIFIER_TYPE_VALUE to avoid
9120 pushtag calling push_template_decl. We don't have to do
9121 this for enums because it will already have been done in
9122 tsubst_enum. */
9123 if (name)
9124 SET_IDENTIFIER_TYPE_VALUE (name, newtag);
9125 pushtag (name, newtag, /*tag_scope=*/ts_current);
9128 else if (DECL_DECLARES_FUNCTION_P (t))
9130 /* Build new TYPE_METHODS. */
9131 tree r;
9133 if (TREE_CODE (t) == TEMPLATE_DECL)
9134 ++processing_template_decl;
9135 r = tsubst (t, args, tf_error, NULL_TREE);
9136 if (TREE_CODE (t) == TEMPLATE_DECL)
9137 --processing_template_decl;
9138 set_current_access_from_decl (r);
9139 finish_member_declaration (r);
9140 /* Instantiate members marked with attribute used. */
9141 if (r != error_mark_node && DECL_PRESERVE_P (r))
9142 mark_used (r);
9143 if (TREE_CODE (r) == FUNCTION_DECL
9144 && DECL_OMP_DECLARE_REDUCTION_P (r))
9145 cp_check_omp_declare_reduction (r);
9147 else
9149 /* Build new TYPE_FIELDS. */
9150 if (TREE_CODE (t) == STATIC_ASSERT)
9152 tree condition;
9154 ++c_inhibit_evaluation_warnings;
9155 condition =
9156 tsubst_expr (STATIC_ASSERT_CONDITION (t), args,
9157 tf_warning_or_error, NULL_TREE,
9158 /*integral_constant_expression_p=*/true);
9159 --c_inhibit_evaluation_warnings;
9161 finish_static_assert (condition,
9162 STATIC_ASSERT_MESSAGE (t),
9163 STATIC_ASSERT_SOURCE_LOCATION (t),
9164 /*member_p=*/true);
9166 else if (TREE_CODE (t) != CONST_DECL)
9168 tree r;
9169 tree vec = NULL_TREE;
9170 int len = 1;
9172 /* The file and line for this declaration, to
9173 assist in error message reporting. Since we
9174 called push_tinst_level above, we don't need to
9175 restore these. */
9176 input_location = DECL_SOURCE_LOCATION (t);
9178 if (TREE_CODE (t) == TEMPLATE_DECL)
9179 ++processing_template_decl;
9180 r = tsubst (t, args, tf_warning_or_error, NULL_TREE);
9181 if (TREE_CODE (t) == TEMPLATE_DECL)
9182 --processing_template_decl;
9184 if (TREE_CODE (r) == TREE_VEC)
9186 /* A capture pack became multiple fields. */
9187 vec = r;
9188 len = TREE_VEC_LENGTH (vec);
9191 for (int i = 0; i < len; ++i)
9193 if (vec)
9194 r = TREE_VEC_ELT (vec, i);
9195 if (VAR_P (r))
9197 /* In [temp.inst]:
9199 [t]he initialization (and any associated
9200 side-effects) of a static data member does
9201 not occur unless the static data member is
9202 itself used in a way that requires the
9203 definition of the static data member to
9204 exist.
9206 Therefore, we do not substitute into the
9207 initialized for the static data member here. */
9208 finish_static_data_member_decl
9210 /*init=*/NULL_TREE,
9211 /*init_const_expr_p=*/false,
9212 /*asmspec_tree=*/NULL_TREE,
9213 /*flags=*/0);
9214 /* Instantiate members marked with attribute used. */
9215 if (r != error_mark_node && DECL_PRESERVE_P (r))
9216 mark_used (r);
9218 else if (TREE_CODE (r) == FIELD_DECL)
9220 /* Determine whether R has a valid type and can be
9221 completed later. If R is invalid, then its type
9222 is replaced by error_mark_node. */
9223 tree rtype = TREE_TYPE (r);
9224 if (can_complete_type_without_circularity (rtype))
9225 complete_type (rtype);
9227 if (!COMPLETE_TYPE_P (rtype))
9229 cxx_incomplete_type_error (r, rtype);
9230 TREE_TYPE (r) = error_mark_node;
9234 /* If it is a TYPE_DECL for a class-scoped ENUMERAL_TYPE,
9235 such a thing will already have been added to the field
9236 list by tsubst_enum in finish_member_declaration in the
9237 CLASSTYPE_NESTED_UTDS case above. */
9238 if (!(TREE_CODE (r) == TYPE_DECL
9239 && TREE_CODE (TREE_TYPE (r)) == ENUMERAL_TYPE
9240 && DECL_ARTIFICIAL (r)))
9242 set_current_access_from_decl (r);
9243 finish_member_declaration (r);
9249 else
9251 if (TYPE_P (t) || DECL_CLASS_TEMPLATE_P (t)
9252 || DECL_TEMPLATE_TEMPLATE_PARM_P (t))
9254 /* Build new CLASSTYPE_FRIEND_CLASSES. */
9256 tree friend_type = t;
9257 bool adjust_processing_template_decl = false;
9259 if (TREE_CODE (friend_type) == TEMPLATE_DECL)
9261 /* template <class T> friend class C; */
9262 friend_type = tsubst_friend_class (friend_type, args);
9263 adjust_processing_template_decl = true;
9265 else if (TREE_CODE (friend_type) == UNBOUND_CLASS_TEMPLATE)
9267 /* template <class T> friend class C::D; */
9268 friend_type = tsubst (friend_type, args,
9269 tf_warning_or_error, NULL_TREE);
9270 if (TREE_CODE (friend_type) == TEMPLATE_DECL)
9271 friend_type = TREE_TYPE (friend_type);
9272 adjust_processing_template_decl = true;
9274 else if (TREE_CODE (friend_type) == TYPENAME_TYPE
9275 || TREE_CODE (friend_type) == TEMPLATE_TYPE_PARM)
9277 /* This could be either
9279 friend class T::C;
9281 when dependent_type_p is false or
9283 template <class U> friend class T::C;
9285 otherwise. */
9286 friend_type = tsubst (friend_type, args,
9287 tf_warning_or_error, NULL_TREE);
9288 /* Bump processing_template_decl for correct
9289 dependent_type_p calculation. */
9290 ++processing_template_decl;
9291 if (dependent_type_p (friend_type))
9292 adjust_processing_template_decl = true;
9293 --processing_template_decl;
9295 else if (!CLASSTYPE_USE_TEMPLATE (friend_type)
9296 && hidden_name_p (TYPE_NAME (friend_type)))
9298 /* friend class C;
9300 where C hasn't been declared yet. Let's lookup name
9301 from namespace scope directly, bypassing any name that
9302 come from dependent base class. */
9303 tree ns = decl_namespace_context (TYPE_MAIN_DECL (friend_type));
9305 /* The call to xref_tag_from_type does injection for friend
9306 classes. */
9307 push_nested_namespace (ns);
9308 friend_type =
9309 xref_tag_from_type (friend_type, NULL_TREE,
9310 /*tag_scope=*/ts_current);
9311 pop_nested_namespace (ns);
9313 else if (uses_template_parms (friend_type))
9314 /* friend class C<T>; */
9315 friend_type = tsubst (friend_type, args,
9316 tf_warning_or_error, NULL_TREE);
9317 /* Otherwise it's
9319 friend class C;
9321 where C is already declared or
9323 friend class C<int>;
9325 We don't have to do anything in these cases. */
9327 if (adjust_processing_template_decl)
9328 /* Trick make_friend_class into realizing that the friend
9329 we're adding is a template, not an ordinary class. It's
9330 important that we use make_friend_class since it will
9331 perform some error-checking and output cross-reference
9332 information. */
9333 ++processing_template_decl;
9335 if (friend_type != error_mark_node)
9336 make_friend_class (type, friend_type, /*complain=*/false);
9338 if (adjust_processing_template_decl)
9339 --processing_template_decl;
9341 else
9343 /* Build new DECL_FRIENDLIST. */
9344 tree r;
9346 /* The file and line for this declaration, to
9347 assist in error message reporting. Since we
9348 called push_tinst_level above, we don't need to
9349 restore these. */
9350 input_location = DECL_SOURCE_LOCATION (t);
9352 if (TREE_CODE (t) == TEMPLATE_DECL)
9354 ++processing_template_decl;
9355 push_deferring_access_checks (dk_no_check);
9358 r = tsubst_friend_function (t, args);
9359 add_friend (type, r, /*complain=*/false);
9360 if (TREE_CODE (t) == TEMPLATE_DECL)
9362 pop_deferring_access_checks ();
9363 --processing_template_decl;
9369 if (tree expr = CLASSTYPE_LAMBDA_EXPR (type))
9371 tree decl = lambda_function (type);
9372 if (decl)
9374 if (!DECL_TEMPLATE_INFO (decl)
9375 || DECL_TEMPLATE_RESULT (DECL_TI_TEMPLATE (decl)) != decl)
9376 instantiate_decl (decl, false, false);
9378 /* We need to instantiate the capture list from the template
9379 after we've instantiated the closure members, but before we
9380 consider adding the conversion op. Also keep any captures
9381 that may have been added during instantiation of the op(). */
9382 tree tmpl_expr = CLASSTYPE_LAMBDA_EXPR (pattern);
9383 tree tmpl_cap
9384 = tsubst_copy_and_build (LAMBDA_EXPR_CAPTURE_LIST (tmpl_expr),
9385 args, tf_warning_or_error, NULL_TREE,
9386 false, false);
9388 LAMBDA_EXPR_CAPTURE_LIST (expr)
9389 = chainon (tmpl_cap, nreverse (LAMBDA_EXPR_CAPTURE_LIST (expr)));
9391 maybe_add_lambda_conv_op (type);
9393 else
9394 gcc_assert (errorcount);
9397 /* Set the file and line number information to whatever is given for
9398 the class itself. This puts error messages involving generated
9399 implicit functions at a predictable point, and the same point
9400 that would be used for non-template classes. */
9401 input_location = DECL_SOURCE_LOCATION (typedecl);
9403 unreverse_member_declarations (type);
9404 finish_struct_1 (type);
9405 TYPE_BEING_DEFINED (type) = 0;
9407 /* We don't instantiate default arguments for member functions. 14.7.1:
9409 The implicit instantiation of a class template specialization causes
9410 the implicit instantiation of the declarations, but not of the
9411 definitions or default arguments, of the class member functions,
9412 member classes, static data members and member templates.... */
9414 /* Some typedefs referenced from within the template code need to be access
9415 checked at template instantiation time, i.e now. These types were
9416 added to the template at parsing time. Let's get those and perform
9417 the access checks then. */
9418 perform_typedefs_access_check (pattern, args);
9419 perform_deferred_access_checks (tf_warning_or_error);
9420 pop_nested_class ();
9421 maximum_field_alignment = saved_maximum_field_alignment;
9422 if (!fn_context)
9423 pop_from_top_level ();
9424 pop_deferring_access_checks ();
9425 pop_tinst_level ();
9427 /* The vtable for a template class can be emitted in any translation
9428 unit in which the class is instantiated. When there is no key
9429 method, however, finish_struct_1 will already have added TYPE to
9430 the keyed_classes list. */
9431 if (TYPE_CONTAINS_VPTR_P (type) && CLASSTYPE_KEY_METHOD (type))
9432 keyed_classes = tree_cons (NULL_TREE, type, keyed_classes);
9434 return type;
9437 /* Wrapper for instantiate_class_template_1. */
9439 tree
9440 instantiate_class_template (tree type)
9442 tree ret;
9443 timevar_push (TV_TEMPLATE_INST);
9444 ret = instantiate_class_template_1 (type);
9445 timevar_pop (TV_TEMPLATE_INST);
9446 return ret;
9449 static tree
9450 tsubst_template_arg (tree t, tree args, tsubst_flags_t complain, tree in_decl)
9452 tree r;
9454 if (!t)
9455 r = t;
9456 else if (TYPE_P (t))
9457 r = tsubst (t, args, complain, in_decl);
9458 else
9460 if (!(complain & tf_warning))
9461 ++c_inhibit_evaluation_warnings;
9462 r = tsubst_expr (t, args, complain, in_decl,
9463 /*integral_constant_expression_p=*/true);
9464 if (!(complain & tf_warning))
9465 --c_inhibit_evaluation_warnings;
9467 return r;
9470 /* Given a function parameter pack TMPL_PARM and some function parameters
9471 instantiated from it at *SPEC_P, return a NONTYPE_ARGUMENT_PACK of them
9472 and set *SPEC_P to point at the next point in the list. */
9474 static tree
9475 extract_fnparm_pack (tree tmpl_parm, tree *spec_p)
9477 /* Collect all of the extra "packed" parameters into an
9478 argument pack. */
9479 tree parmvec;
9480 tree parmtypevec;
9481 tree argpack = make_node (NONTYPE_ARGUMENT_PACK);
9482 tree argtypepack = cxx_make_type (TYPE_ARGUMENT_PACK);
9483 tree spec_parm = *spec_p;
9484 int i, len;
9486 for (len = 0; spec_parm; ++len, spec_parm = TREE_CHAIN (spec_parm))
9487 if (tmpl_parm
9488 && !function_parameter_expanded_from_pack_p (spec_parm, tmpl_parm))
9489 break;
9491 /* Fill in PARMVEC and PARMTYPEVEC with all of the parameters. */
9492 parmvec = make_tree_vec (len);
9493 parmtypevec = make_tree_vec (len);
9494 spec_parm = *spec_p;
9495 for (i = 0; i < len; i++, spec_parm = DECL_CHAIN (spec_parm))
9497 TREE_VEC_ELT (parmvec, i) = spec_parm;
9498 TREE_VEC_ELT (parmtypevec, i) = TREE_TYPE (spec_parm);
9501 /* Build the argument packs. */
9502 SET_ARGUMENT_PACK_ARGS (argpack, parmvec);
9503 SET_ARGUMENT_PACK_ARGS (argtypepack, parmtypevec);
9504 TREE_TYPE (argpack) = argtypepack;
9505 *spec_p = spec_parm;
9507 return argpack;
9510 /* Give a chain SPEC_PARM of PARM_DECLs, pack them into a
9511 NONTYPE_ARGUMENT_PACK. */
9513 static tree
9514 make_fnparm_pack (tree spec_parm)
9516 return extract_fnparm_pack (NULL_TREE, &spec_parm);
9519 /* Return true iff the Ith element of the argument pack ARG_PACK is a
9520 pack expansion. */
9522 static bool
9523 argument_pack_element_is_expansion_p (tree arg_pack, int i)
9525 tree vec = ARGUMENT_PACK_ARGS (arg_pack);
9526 if (i >= TREE_VEC_LENGTH (vec))
9527 return false;
9528 return PACK_EXPANSION_P (TREE_VEC_ELT (vec, i));
9532 /* Creates and return an ARGUMENT_PACK_SELECT tree node. */
9534 static tree
9535 make_argument_pack_select (tree arg_pack, unsigned index)
9537 tree aps = make_node (ARGUMENT_PACK_SELECT);
9539 ARGUMENT_PACK_SELECT_FROM_PACK (aps) = arg_pack;
9540 ARGUMENT_PACK_SELECT_INDEX (aps) = index;
9542 return aps;
9545 /* This is a subroutine of tsubst_pack_expansion.
9547 It returns TRUE if we need to use the PACK_EXPANSION_EXTRA_ARGS
9548 mechanism to store the (non complete list of) arguments of the
9549 substitution and return a non substituted pack expansion, in order
9550 to wait for when we have enough arguments to really perform the
9551 substitution. */
9553 static bool
9554 use_pack_expansion_extra_args_p (tree parm_packs,
9555 int arg_pack_len,
9556 bool has_empty_arg)
9558 /* If one pack has an expansion and another pack has a normal
9559 argument or if one pack has an empty argument and an another
9560 one hasn't then tsubst_pack_expansion cannot perform the
9561 substitution and need to fall back on the
9562 PACK_EXPANSION_EXTRA mechanism. */
9563 if (parm_packs == NULL_TREE)
9564 return false;
9565 else if (has_empty_arg)
9566 return true;
9568 bool has_expansion_arg = false;
9569 for (int i = 0 ; i < arg_pack_len; ++i)
9571 bool has_non_expansion_arg = false;
9572 for (tree parm_pack = parm_packs;
9573 parm_pack;
9574 parm_pack = TREE_CHAIN (parm_pack))
9576 tree arg = TREE_VALUE (parm_pack);
9578 if (argument_pack_element_is_expansion_p (arg, i))
9579 has_expansion_arg = true;
9580 else
9581 has_non_expansion_arg = true;
9584 if (has_expansion_arg && has_non_expansion_arg)
9585 return true;
9587 return false;
9590 /* [temp.variadic]/6 says that:
9592 The instantiation of a pack expansion [...]
9593 produces a list E1,E2, ..., En, where N is the number of elements
9594 in the pack expansion parameters.
9596 This subroutine of tsubst_pack_expansion produces one of these Ei.
9598 PATTERN is the pattern of the pack expansion. PARM_PACKS is a
9599 TREE_LIST in which each TREE_PURPOSE is a parameter pack of
9600 PATTERN, and each TREE_VALUE is its corresponding argument pack.
9601 INDEX is the index 'i' of the element Ei to produce. ARGS,
9602 COMPLAIN, and IN_DECL are the same parameters as for the
9603 tsubst_pack_expansion function.
9605 The function returns the resulting Ei upon successful completion,
9606 or error_mark_node.
9608 Note that this function possibly modifies the ARGS parameter, so
9609 it's the responsibility of the caller to restore it. */
9611 static tree
9612 gen_elem_of_pack_expansion_instantiation (tree pattern,
9613 tree parm_packs,
9614 unsigned index,
9615 tree args /* This parm gets
9616 modified. */,
9617 tsubst_flags_t complain,
9618 tree in_decl)
9620 tree t;
9621 bool ith_elem_is_expansion = false;
9623 /* For each parameter pack, change the substitution of the parameter
9624 pack to the ith argument in its argument pack, then expand the
9625 pattern. */
9626 for (tree pack = parm_packs; pack; pack = TREE_CHAIN (pack))
9628 tree parm = TREE_PURPOSE (pack);
9629 tree arg_pack = TREE_VALUE (pack);
9630 tree aps; /* instance of ARGUMENT_PACK_SELECT. */
9632 ith_elem_is_expansion |=
9633 argument_pack_element_is_expansion_p (arg_pack, index);
9635 /* Select the Ith argument from the pack. */
9636 if (TREE_CODE (parm) == PARM_DECL
9637 || TREE_CODE (parm) == FIELD_DECL)
9639 if (index == 0)
9641 aps = make_argument_pack_select (arg_pack, index);
9642 mark_used (parm);
9643 register_local_specialization (aps, parm);
9645 else
9646 aps = retrieve_local_specialization (parm);
9648 else
9650 int idx, level;
9651 template_parm_level_and_index (parm, &level, &idx);
9653 if (index == 0)
9655 aps = make_argument_pack_select (arg_pack, index);
9656 /* Update the corresponding argument. */
9657 TMPL_ARG (args, level, idx) = aps;
9659 else
9660 /* Re-use the ARGUMENT_PACK_SELECT. */
9661 aps = TMPL_ARG (args, level, idx);
9663 ARGUMENT_PACK_SELECT_INDEX (aps) = index;
9666 /* Substitute into the PATTERN with the (possibly altered)
9667 arguments. */
9668 if (pattern == in_decl)
9669 /* Expanding a fixed parameter pack from
9670 coerce_template_parameter_pack. */
9671 t = tsubst_decl (pattern, args, complain);
9672 else if (!TYPE_P (pattern))
9673 t = tsubst_expr (pattern, args, complain, in_decl,
9674 /*integral_constant_expression_p=*/false);
9675 else
9676 t = tsubst (pattern, args, complain, in_decl);
9678 /* If the Ith argument pack element is a pack expansion, then
9679 the Ith element resulting from the substituting is going to
9680 be a pack expansion as well. */
9681 if (ith_elem_is_expansion)
9682 t = make_pack_expansion (t);
9684 return t;
9687 /* Substitute ARGS into T, which is an pack expansion
9688 (i.e. TYPE_PACK_EXPANSION or EXPR_PACK_EXPANSION). Returns a
9689 TREE_VEC with the substituted arguments, a PACK_EXPANSION_* node
9690 (if only a partial substitution could be performed) or
9691 ERROR_MARK_NODE if there was an error. */
9692 tree
9693 tsubst_pack_expansion (tree t, tree args, tsubst_flags_t complain,
9694 tree in_decl)
9696 tree pattern;
9697 tree pack, packs = NULL_TREE;
9698 bool unsubstituted_packs = false;
9699 int i, len = -1;
9700 tree result;
9701 struct pointer_map_t *saved_local_specializations = NULL;
9702 bool need_local_specializations = false;
9703 int levels;
9705 gcc_assert (PACK_EXPANSION_P (t));
9706 pattern = PACK_EXPANSION_PATTERN (t);
9708 /* Add in any args remembered from an earlier partial instantiation. */
9709 args = add_to_template_args (PACK_EXPANSION_EXTRA_ARGS (t), args);
9711 levels = TMPL_ARGS_DEPTH (args);
9713 /* Determine the argument packs that will instantiate the parameter
9714 packs used in the expansion expression. While we're at it,
9715 compute the number of arguments to be expanded and make sure it
9716 is consistent. */
9717 for (pack = PACK_EXPANSION_PARAMETER_PACKS (t); pack;
9718 pack = TREE_CHAIN (pack))
9720 tree parm_pack = TREE_VALUE (pack);
9721 tree arg_pack = NULL_TREE;
9722 tree orig_arg = NULL_TREE;
9723 int level = 0;
9725 if (TREE_CODE (parm_pack) == BASES)
9727 if (BASES_DIRECT (parm_pack))
9728 return calculate_direct_bases (tsubst_expr (BASES_TYPE (parm_pack),
9729 args, complain, in_decl, false));
9730 else
9731 return calculate_bases (tsubst_expr (BASES_TYPE (parm_pack),
9732 args, complain, in_decl, false));
9734 if (TREE_CODE (parm_pack) == PARM_DECL)
9736 if (PACK_EXPANSION_LOCAL_P (t))
9737 arg_pack = retrieve_local_specialization (parm_pack);
9738 else
9740 /* We can't rely on local_specializations for a parameter
9741 name used later in a function declaration (such as in a
9742 late-specified return type). Even if it exists, it might
9743 have the wrong value for a recursive call. Just make a
9744 dummy decl, since it's only used for its type. */
9745 arg_pack = tsubst_decl (parm_pack, args, complain);
9746 if (arg_pack && DECL_PACK_P (arg_pack))
9747 /* Partial instantiation of the parm_pack, we can't build
9748 up an argument pack yet. */
9749 arg_pack = NULL_TREE;
9750 else
9751 arg_pack = make_fnparm_pack (arg_pack);
9752 need_local_specializations = true;
9755 else if (TREE_CODE (parm_pack) == FIELD_DECL)
9756 arg_pack = tsubst_copy (parm_pack, args, complain, in_decl);
9757 else
9759 int idx;
9760 template_parm_level_and_index (parm_pack, &level, &idx);
9762 if (level <= levels)
9763 arg_pack = TMPL_ARG (args, level, idx);
9766 orig_arg = arg_pack;
9767 if (arg_pack && TREE_CODE (arg_pack) == ARGUMENT_PACK_SELECT)
9768 arg_pack = ARGUMENT_PACK_SELECT_FROM_PACK (arg_pack);
9770 if (arg_pack && !ARGUMENT_PACK_P (arg_pack))
9771 /* This can only happen if we forget to expand an argument
9772 pack somewhere else. Just return an error, silently. */
9774 result = make_tree_vec (1);
9775 TREE_VEC_ELT (result, 0) = error_mark_node;
9776 return result;
9779 if (arg_pack)
9781 int my_len =
9782 TREE_VEC_LENGTH (ARGUMENT_PACK_ARGS (arg_pack));
9784 /* Don't bother trying to do a partial substitution with
9785 incomplete packs; we'll try again after deduction. */
9786 if (ARGUMENT_PACK_INCOMPLETE_P (arg_pack))
9787 return t;
9789 if (len < 0)
9790 len = my_len;
9791 else if (len != my_len)
9793 if (!(complain & tf_error))
9794 /* Fail quietly. */;
9795 else if (TREE_CODE (t) == TYPE_PACK_EXPANSION)
9796 error ("mismatched argument pack lengths while expanding "
9797 "%<%T%>",
9798 pattern);
9799 else
9800 error ("mismatched argument pack lengths while expanding "
9801 "%<%E%>",
9802 pattern);
9803 return error_mark_node;
9806 /* Keep track of the parameter packs and their corresponding
9807 argument packs. */
9808 packs = tree_cons (parm_pack, arg_pack, packs);
9809 TREE_TYPE (packs) = orig_arg;
9811 else
9813 /* We can't substitute for this parameter pack. We use a flag as
9814 well as the missing_level counter because function parameter
9815 packs don't have a level. */
9816 unsubstituted_packs = true;
9820 /* We cannot expand this expansion expression, because we don't have
9821 all of the argument packs we need. */
9822 if (use_pack_expansion_extra_args_p (packs, len, unsubstituted_packs))
9824 /* We got some full packs, but we can't substitute them in until we
9825 have values for all the packs. So remember these until then. */
9827 t = make_pack_expansion (pattern);
9828 PACK_EXPANSION_EXTRA_ARGS (t) = args;
9829 return t;
9831 else if (unsubstituted_packs)
9833 /* There were no real arguments, we're just replacing a parameter
9834 pack with another version of itself. Substitute into the
9835 pattern and return a PACK_EXPANSION_*. The caller will need to
9836 deal with that. */
9837 if (TREE_CODE (t) == EXPR_PACK_EXPANSION)
9838 t = tsubst_expr (pattern, args, complain, in_decl,
9839 /*integral_constant_expression_p=*/false);
9840 else
9841 t = tsubst (pattern, args, complain, in_decl);
9842 t = make_pack_expansion (t);
9843 return t;
9846 gcc_assert (len >= 0);
9848 if (need_local_specializations)
9850 /* We're in a late-specified return type, so create our own local
9851 specializations map; the current map is either NULL or (in the
9852 case of recursive unification) might have bindings that we don't
9853 want to use or alter. */
9854 saved_local_specializations = local_specializations;
9855 local_specializations = pointer_map_create ();
9858 /* For each argument in each argument pack, substitute into the
9859 pattern. */
9860 result = make_tree_vec (len);
9861 for (i = 0; i < len; ++i)
9863 t = gen_elem_of_pack_expansion_instantiation (pattern, packs,
9865 args, complain,
9866 in_decl);
9867 TREE_VEC_ELT (result, i) = t;
9868 if (t == error_mark_node)
9870 result = error_mark_node;
9871 break;
9875 /* Update ARGS to restore the substitution from parameter packs to
9876 their argument packs. */
9877 for (pack = packs; pack; pack = TREE_CHAIN (pack))
9879 tree parm = TREE_PURPOSE (pack);
9881 if (TREE_CODE (parm) == PARM_DECL
9882 || TREE_CODE (parm) == FIELD_DECL)
9883 register_local_specialization (TREE_TYPE (pack), parm);
9884 else
9886 int idx, level;
9888 if (TREE_VALUE (pack) == NULL_TREE)
9889 continue;
9891 template_parm_level_and_index (parm, &level, &idx);
9893 /* Update the corresponding argument. */
9894 if (TMPL_ARGS_HAVE_MULTIPLE_LEVELS (args))
9895 TREE_VEC_ELT (TREE_VEC_ELT (args, level -1 ), idx) =
9896 TREE_TYPE (pack);
9897 else
9898 TREE_VEC_ELT (args, idx) = TREE_TYPE (pack);
9902 if (need_local_specializations)
9904 pointer_map_destroy (local_specializations);
9905 local_specializations = saved_local_specializations;
9908 return result;
9911 /* Given PARM_DECL PARM, find the corresponding PARM_DECL in the template
9912 TMPL. We do this using DECL_PARM_INDEX, which should work even with
9913 parameter packs; all parms generated from a function parameter pack will
9914 have the same DECL_PARM_INDEX. */
9916 tree
9917 get_pattern_parm (tree parm, tree tmpl)
9919 tree pattern = DECL_TEMPLATE_RESULT (tmpl);
9920 tree patparm;
9922 if (DECL_ARTIFICIAL (parm))
9924 for (patparm = DECL_ARGUMENTS (pattern);
9925 patparm; patparm = DECL_CHAIN (patparm))
9926 if (DECL_ARTIFICIAL (patparm)
9927 && DECL_NAME (parm) == DECL_NAME (patparm))
9928 break;
9930 else
9932 patparm = FUNCTION_FIRST_USER_PARM (DECL_TEMPLATE_RESULT (tmpl));
9933 patparm = chain_index (DECL_PARM_INDEX (parm)-1, patparm);
9934 gcc_assert (DECL_PARM_INDEX (patparm)
9935 == DECL_PARM_INDEX (parm));
9938 return patparm;
9941 /* Substitute ARGS into the vector or list of template arguments T. */
9943 static tree
9944 tsubst_template_args (tree t, tree args, tsubst_flags_t complain, tree in_decl)
9946 tree orig_t = t;
9947 int len, need_new = 0, i, expanded_len_adjust = 0, out;
9948 tree *elts;
9950 if (t == error_mark_node)
9951 return error_mark_node;
9953 len = TREE_VEC_LENGTH (t);
9954 elts = XALLOCAVEC (tree, len);
9956 for (i = 0; i < len; i++)
9958 tree orig_arg = TREE_VEC_ELT (t, i);
9959 tree new_arg;
9961 if (TREE_CODE (orig_arg) == TREE_VEC)
9962 new_arg = tsubst_template_args (orig_arg, args, complain, in_decl);
9963 else if (PACK_EXPANSION_P (orig_arg))
9965 /* Substitute into an expansion expression. */
9966 new_arg = tsubst_pack_expansion (orig_arg, args, complain, in_decl);
9968 if (TREE_CODE (new_arg) == TREE_VEC)
9969 /* Add to the expanded length adjustment the number of
9970 expanded arguments. We subtract one from this
9971 measurement, because the argument pack expression
9972 itself is already counted as 1 in
9973 LEN. EXPANDED_LEN_ADJUST can actually be negative, if
9974 the argument pack is empty. */
9975 expanded_len_adjust += TREE_VEC_LENGTH (new_arg) - 1;
9977 else if (ARGUMENT_PACK_P (orig_arg))
9979 /* Substitute into each of the arguments. */
9980 new_arg = TYPE_P (orig_arg)
9981 ? cxx_make_type (TREE_CODE (orig_arg))
9982 : make_node (TREE_CODE (orig_arg));
9984 SET_ARGUMENT_PACK_ARGS (
9985 new_arg,
9986 tsubst_template_args (ARGUMENT_PACK_ARGS (orig_arg),
9987 args, complain, in_decl));
9989 if (ARGUMENT_PACK_ARGS (new_arg) == error_mark_node)
9990 new_arg = error_mark_node;
9992 if (TREE_CODE (new_arg) == NONTYPE_ARGUMENT_PACK) {
9993 TREE_TYPE (new_arg) = tsubst (TREE_TYPE (orig_arg), args,
9994 complain, in_decl);
9995 TREE_CONSTANT (new_arg) = TREE_CONSTANT (orig_arg);
9997 if (TREE_TYPE (new_arg) == error_mark_node)
9998 new_arg = error_mark_node;
10001 else
10002 new_arg = tsubst_template_arg (orig_arg, args, complain, in_decl);
10004 if (new_arg == error_mark_node)
10005 return error_mark_node;
10007 elts[i] = new_arg;
10008 if (new_arg != orig_arg)
10009 need_new = 1;
10012 if (!need_new)
10013 return t;
10015 /* Make space for the expanded arguments coming from template
10016 argument packs. */
10017 t = make_tree_vec (len + expanded_len_adjust);
10018 /* ORIG_T can contain TREE_VECs. That happens if ORIG_T contains the
10019 arguments for a member template.
10020 In that case each TREE_VEC in ORIG_T represents a level of template
10021 arguments, and ORIG_T won't carry any non defaulted argument count.
10022 It will rather be the nested TREE_VECs that will carry one.
10023 In other words, ORIG_T carries a non defaulted argument count only
10024 if it doesn't contain any nested TREE_VEC. */
10025 if (NON_DEFAULT_TEMPLATE_ARGS_COUNT (orig_t))
10027 int count = GET_NON_DEFAULT_TEMPLATE_ARGS_COUNT (orig_t);
10028 count += expanded_len_adjust;
10029 SET_NON_DEFAULT_TEMPLATE_ARGS_COUNT (t, count);
10031 for (i = 0, out = 0; i < len; i++)
10033 if ((PACK_EXPANSION_P (TREE_VEC_ELT (orig_t, i))
10034 || ARGUMENT_PACK_P (TREE_VEC_ELT (orig_t, i)))
10035 && TREE_CODE (elts[i]) == TREE_VEC)
10037 int idx;
10039 /* Now expand the template argument pack "in place". */
10040 for (idx = 0; idx < TREE_VEC_LENGTH (elts[i]); idx++, out++)
10041 TREE_VEC_ELT (t, out) = TREE_VEC_ELT (elts[i], idx);
10043 else
10045 TREE_VEC_ELT (t, out) = elts[i];
10046 out++;
10050 return t;
10053 /* Return the result of substituting ARGS into the template parameters
10054 given by PARMS. If there are m levels of ARGS and m + n levels of
10055 PARMS, then the result will contain n levels of PARMS. For
10056 example, if PARMS is `template <class T> template <class U>
10057 template <T*, U, class V>' and ARGS is {{int}, {double}} then the
10058 result will be `template <int*, double, class V>'. */
10060 static tree
10061 tsubst_template_parms (tree parms, tree args, tsubst_flags_t complain)
10063 tree r = NULL_TREE;
10064 tree* new_parms;
10066 /* When substituting into a template, we must set
10067 PROCESSING_TEMPLATE_DECL as the template parameters may be
10068 dependent if they are based on one-another, and the dependency
10069 predicates are short-circuit outside of templates. */
10070 ++processing_template_decl;
10072 for (new_parms = &r;
10073 parms && TMPL_PARMS_DEPTH (parms) > TMPL_ARGS_DEPTH (args);
10074 new_parms = &(TREE_CHAIN (*new_parms)),
10075 parms = TREE_CHAIN (parms))
10077 tree new_vec =
10078 make_tree_vec (TREE_VEC_LENGTH (TREE_VALUE (parms)));
10079 int i;
10081 for (i = 0; i < TREE_VEC_LENGTH (new_vec); ++i)
10083 tree tuple;
10085 if (parms == error_mark_node)
10086 continue;
10088 tuple = TREE_VEC_ELT (TREE_VALUE (parms), i);
10090 if (tuple == error_mark_node)
10091 continue;
10093 TREE_VEC_ELT (new_vec, i) =
10094 tsubst_template_parm (tuple, args, complain);
10097 *new_parms =
10098 tree_cons (size_int (TMPL_PARMS_DEPTH (parms)
10099 - TMPL_ARGS_DEPTH (args)),
10100 new_vec, NULL_TREE);
10103 --processing_template_decl;
10105 return r;
10108 /* Return the result of substituting ARGS into one template parameter
10109 given by T. T Must be a TREE_LIST which TREE_VALUE is the template
10110 parameter and which TREE_PURPOSE is the default argument of the
10111 template parameter. */
10113 static tree
10114 tsubst_template_parm (tree t, tree args, tsubst_flags_t complain)
10116 tree default_value, parm_decl;
10118 if (args == NULL_TREE
10119 || t == NULL_TREE
10120 || t == error_mark_node)
10121 return t;
10123 gcc_assert (TREE_CODE (t) == TREE_LIST);
10125 default_value = TREE_PURPOSE (t);
10126 parm_decl = TREE_VALUE (t);
10128 parm_decl = tsubst (parm_decl, args, complain, NULL_TREE);
10129 if (TREE_CODE (parm_decl) == PARM_DECL
10130 && invalid_nontype_parm_type_p (TREE_TYPE (parm_decl), complain))
10131 parm_decl = error_mark_node;
10132 default_value = tsubst_template_arg (default_value, args,
10133 complain, NULL_TREE);
10135 return build_tree_list (default_value, parm_decl);
10138 /* Substitute the ARGS into the indicated aggregate (or enumeration)
10139 type T. If T is not an aggregate or enumeration type, it is
10140 handled as if by tsubst. IN_DECL is as for tsubst. If
10141 ENTERING_SCOPE is nonzero, T is the context for a template which
10142 we are presently tsubst'ing. Return the substituted value. */
10144 static tree
10145 tsubst_aggr_type (tree t,
10146 tree args,
10147 tsubst_flags_t complain,
10148 tree in_decl,
10149 int entering_scope)
10151 if (t == NULL_TREE)
10152 return NULL_TREE;
10154 switch (TREE_CODE (t))
10156 case RECORD_TYPE:
10157 if (TYPE_PTRMEMFUNC_P (t))
10158 return tsubst (TYPE_PTRMEMFUNC_FN_TYPE (t), args, complain, in_decl);
10160 /* Else fall through. */
10161 case ENUMERAL_TYPE:
10162 case UNION_TYPE:
10163 if (TYPE_TEMPLATE_INFO (t) && uses_template_parms (t))
10165 tree argvec;
10166 tree context;
10167 tree r;
10168 int saved_unevaluated_operand;
10169 int saved_inhibit_evaluation_warnings;
10171 /* In "sizeof(X<I>)" we need to evaluate "I". */
10172 saved_unevaluated_operand = cp_unevaluated_operand;
10173 cp_unevaluated_operand = 0;
10174 saved_inhibit_evaluation_warnings = c_inhibit_evaluation_warnings;
10175 c_inhibit_evaluation_warnings = 0;
10177 /* First, determine the context for the type we are looking
10178 up. */
10179 context = TYPE_CONTEXT (t);
10180 if (context && TYPE_P (context))
10182 context = tsubst_aggr_type (context, args, complain,
10183 in_decl, /*entering_scope=*/1);
10184 /* If context is a nested class inside a class template,
10185 it may still need to be instantiated (c++/33959). */
10186 context = complete_type (context);
10189 /* Then, figure out what arguments are appropriate for the
10190 type we are trying to find. For example, given:
10192 template <class T> struct S;
10193 template <class T, class U> void f(T, U) { S<U> su; }
10195 and supposing that we are instantiating f<int, double>,
10196 then our ARGS will be {int, double}, but, when looking up
10197 S we only want {double}. */
10198 argvec = tsubst_template_args (TYPE_TI_ARGS (t), args,
10199 complain, in_decl);
10200 if (argvec == error_mark_node)
10201 r = error_mark_node;
10202 else
10204 r = lookup_template_class (t, argvec, in_decl, context,
10205 entering_scope, complain);
10206 r = cp_build_qualified_type_real (r, cp_type_quals (t), complain);
10209 cp_unevaluated_operand = saved_unevaluated_operand;
10210 c_inhibit_evaluation_warnings = saved_inhibit_evaluation_warnings;
10212 return r;
10214 else
10215 /* This is not a template type, so there's nothing to do. */
10216 return t;
10218 default:
10219 return tsubst (t, args, complain, in_decl);
10223 /* Substitute into the default argument ARG (a default argument for
10224 FN), which has the indicated TYPE. */
10226 tree
10227 tsubst_default_argument (tree fn, tree type, tree arg, tsubst_flags_t complain)
10229 tree saved_class_ptr = NULL_TREE;
10230 tree saved_class_ref = NULL_TREE;
10231 int errs = errorcount + sorrycount;
10233 /* This can happen in invalid code. */
10234 if (TREE_CODE (arg) == DEFAULT_ARG)
10235 return arg;
10237 /* This default argument came from a template. Instantiate the
10238 default argument here, not in tsubst. In the case of
10239 something like:
10241 template <class T>
10242 struct S {
10243 static T t();
10244 void f(T = t());
10247 we must be careful to do name lookup in the scope of S<T>,
10248 rather than in the current class. */
10249 push_access_scope (fn);
10250 /* The "this" pointer is not valid in a default argument. */
10251 if (cfun)
10253 saved_class_ptr = current_class_ptr;
10254 cp_function_chain->x_current_class_ptr = NULL_TREE;
10255 saved_class_ref = current_class_ref;
10256 cp_function_chain->x_current_class_ref = NULL_TREE;
10259 push_deferring_access_checks(dk_no_deferred);
10260 /* The default argument expression may cause implicitly defined
10261 member functions to be synthesized, which will result in garbage
10262 collection. We must treat this situation as if we were within
10263 the body of function so as to avoid collecting live data on the
10264 stack. */
10265 ++function_depth;
10266 arg = tsubst_expr (arg, DECL_TI_ARGS (fn),
10267 complain, NULL_TREE,
10268 /*integral_constant_expression_p=*/false);
10269 --function_depth;
10270 pop_deferring_access_checks();
10272 /* Restore the "this" pointer. */
10273 if (cfun)
10275 cp_function_chain->x_current_class_ptr = saved_class_ptr;
10276 cp_function_chain->x_current_class_ref = saved_class_ref;
10279 if (errorcount+sorrycount > errs
10280 && (complain & tf_warning_or_error))
10281 inform (input_location,
10282 " when instantiating default argument for call to %D", fn);
10284 /* Make sure the default argument is reasonable. */
10285 arg = check_default_argument (type, arg, complain);
10287 pop_access_scope (fn);
10289 return arg;
10292 /* Substitute into all the default arguments for FN. */
10294 static void
10295 tsubst_default_arguments (tree fn, tsubst_flags_t complain)
10297 tree arg;
10298 tree tmpl_args;
10300 tmpl_args = DECL_TI_ARGS (fn);
10302 /* If this function is not yet instantiated, we certainly don't need
10303 its default arguments. */
10304 if (uses_template_parms (tmpl_args))
10305 return;
10306 /* Don't do this again for clones. */
10307 if (DECL_CLONED_FUNCTION_P (fn))
10308 return;
10310 for (arg = TYPE_ARG_TYPES (TREE_TYPE (fn));
10311 arg;
10312 arg = TREE_CHAIN (arg))
10313 if (TREE_PURPOSE (arg))
10314 TREE_PURPOSE (arg) = tsubst_default_argument (fn,
10315 TREE_VALUE (arg),
10316 TREE_PURPOSE (arg),
10317 complain);
10320 /* Substitute the ARGS into the T, which is a _DECL. Return the
10321 result of the substitution. Issue error and warning messages under
10322 control of COMPLAIN. */
10324 static tree
10325 tsubst_decl (tree t, tree args, tsubst_flags_t complain)
10327 #define RETURN(EXP) do { r = (EXP); goto out; } while(0)
10328 location_t saved_loc;
10329 tree r = NULL_TREE;
10330 tree in_decl = t;
10331 hashval_t hash = 0;
10333 /* Set the filename and linenumber to improve error-reporting. */
10334 saved_loc = input_location;
10335 input_location = DECL_SOURCE_LOCATION (t);
10337 switch (TREE_CODE (t))
10339 case TEMPLATE_DECL:
10341 /* We can get here when processing a member function template,
10342 member class template, or template template parameter. */
10343 tree decl = DECL_TEMPLATE_RESULT (t);
10344 tree spec;
10345 tree tmpl_args;
10346 tree full_args;
10348 if (DECL_TEMPLATE_TEMPLATE_PARM_P (t))
10350 /* Template template parameter is treated here. */
10351 tree new_type = tsubst (TREE_TYPE (t), args, complain, in_decl);
10352 if (new_type == error_mark_node)
10353 RETURN (error_mark_node);
10354 /* If we get a real template back, return it. This can happen in
10355 the context of most_specialized_class. */
10356 if (TREE_CODE (new_type) == TEMPLATE_DECL)
10357 return new_type;
10359 r = copy_decl (t);
10360 DECL_CHAIN (r) = NULL_TREE;
10361 TREE_TYPE (r) = new_type;
10362 DECL_TEMPLATE_RESULT (r)
10363 = build_decl (DECL_SOURCE_LOCATION (decl),
10364 TYPE_DECL, DECL_NAME (decl), new_type);
10365 DECL_TEMPLATE_PARMS (r)
10366 = tsubst_template_parms (DECL_TEMPLATE_PARMS (t), args,
10367 complain);
10368 TYPE_NAME (new_type) = r;
10369 break;
10372 /* We might already have an instance of this template.
10373 The ARGS are for the surrounding class type, so the
10374 full args contain the tsubst'd args for the context,
10375 plus the innermost args from the template decl. */
10376 tmpl_args = DECL_CLASS_TEMPLATE_P (t)
10377 ? CLASSTYPE_TI_ARGS (TREE_TYPE (t))
10378 : DECL_TI_ARGS (DECL_TEMPLATE_RESULT (t));
10379 /* Because this is a template, the arguments will still be
10380 dependent, even after substitution. If
10381 PROCESSING_TEMPLATE_DECL is not set, the dependency
10382 predicates will short-circuit. */
10383 ++processing_template_decl;
10384 full_args = tsubst_template_args (tmpl_args, args,
10385 complain, in_decl);
10386 --processing_template_decl;
10387 if (full_args == error_mark_node)
10388 RETURN (error_mark_node);
10390 /* If this is a default template template argument,
10391 tsubst might not have changed anything. */
10392 if (full_args == tmpl_args)
10393 RETURN (t);
10395 hash = hash_tmpl_and_args (t, full_args);
10396 spec = retrieve_specialization (t, full_args, hash);
10397 if (spec != NULL_TREE)
10399 r = spec;
10400 break;
10403 /* Make a new template decl. It will be similar to the
10404 original, but will record the current template arguments.
10405 We also create a new function declaration, which is just
10406 like the old one, but points to this new template, rather
10407 than the old one. */
10408 r = copy_decl (t);
10409 gcc_assert (DECL_LANG_SPECIFIC (r) != 0);
10410 DECL_CHAIN (r) = NULL_TREE;
10412 DECL_TEMPLATE_INFO (r) = build_template_info (t, args);
10414 if (TREE_CODE (decl) == TYPE_DECL
10415 && !TYPE_DECL_ALIAS_P (decl))
10417 tree new_type;
10418 ++processing_template_decl;
10419 new_type = tsubst (TREE_TYPE (t), args, complain, in_decl);
10420 --processing_template_decl;
10421 if (new_type == error_mark_node)
10422 RETURN (error_mark_node);
10424 TREE_TYPE (r) = new_type;
10425 /* For a partial specialization, we need to keep pointing to
10426 the primary template. */
10427 if (!DECL_TEMPLATE_SPECIALIZATION (t))
10428 CLASSTYPE_TI_TEMPLATE (new_type) = r;
10429 DECL_TEMPLATE_RESULT (r) = TYPE_MAIN_DECL (new_type);
10430 DECL_TI_ARGS (r) = CLASSTYPE_TI_ARGS (new_type);
10431 DECL_CONTEXT (r) = TYPE_CONTEXT (new_type);
10433 else
10435 tree new_decl;
10436 ++processing_template_decl;
10437 new_decl = tsubst (decl, args, complain, in_decl);
10438 --processing_template_decl;
10439 if (new_decl == error_mark_node)
10440 RETURN (error_mark_node);
10442 DECL_TEMPLATE_RESULT (r) = new_decl;
10443 DECL_TI_TEMPLATE (new_decl) = r;
10444 TREE_TYPE (r) = TREE_TYPE (new_decl);
10445 DECL_TI_ARGS (r) = DECL_TI_ARGS (new_decl);
10446 DECL_CONTEXT (r) = DECL_CONTEXT (new_decl);
10449 SET_DECL_IMPLICIT_INSTANTIATION (r);
10450 DECL_TEMPLATE_INSTANTIATIONS (r) = NULL_TREE;
10451 DECL_TEMPLATE_SPECIALIZATIONS (r) = NULL_TREE;
10453 /* The template parameters for this new template are all the
10454 template parameters for the old template, except the
10455 outermost level of parameters. */
10456 DECL_TEMPLATE_PARMS (r)
10457 = tsubst_template_parms (DECL_TEMPLATE_PARMS (t), args,
10458 complain);
10460 if (PRIMARY_TEMPLATE_P (t))
10461 DECL_PRIMARY_TEMPLATE (r) = r;
10463 if (TREE_CODE (decl) != TYPE_DECL)
10464 /* Record this non-type partial instantiation. */
10465 register_specialization (r, t,
10466 DECL_TI_ARGS (DECL_TEMPLATE_RESULT (r)),
10467 false, hash);
10469 break;
10471 case FUNCTION_DECL:
10473 tree ctx;
10474 tree argvec = NULL_TREE;
10475 tree *friends;
10476 tree gen_tmpl;
10477 tree type;
10478 int member;
10479 int args_depth;
10480 int parms_depth;
10482 /* Nobody should be tsubst'ing into non-template functions. */
10483 gcc_assert (DECL_TEMPLATE_INFO (t) != NULL_TREE);
10485 if (TREE_CODE (DECL_TI_TEMPLATE (t)) == TEMPLATE_DECL)
10487 tree spec;
10488 bool dependent_p;
10490 /* If T is not dependent, just return it. We have to
10491 increment PROCESSING_TEMPLATE_DECL because
10492 value_dependent_expression_p assumes that nothing is
10493 dependent when PROCESSING_TEMPLATE_DECL is zero. */
10494 ++processing_template_decl;
10495 dependent_p = value_dependent_expression_p (t);
10496 --processing_template_decl;
10497 if (!dependent_p)
10498 RETURN (t);
10500 /* Calculate the most general template of which R is a
10501 specialization, and the complete set of arguments used to
10502 specialize R. */
10503 gen_tmpl = most_general_template (DECL_TI_TEMPLATE (t));
10504 argvec = tsubst_template_args (DECL_TI_ARGS
10505 (DECL_TEMPLATE_RESULT
10506 (DECL_TI_TEMPLATE (t))),
10507 args, complain, in_decl);
10508 if (argvec == error_mark_node)
10509 RETURN (error_mark_node);
10511 /* Check to see if we already have this specialization. */
10512 hash = hash_tmpl_and_args (gen_tmpl, argvec);
10513 spec = retrieve_specialization (gen_tmpl, argvec, hash);
10515 if (spec)
10517 r = spec;
10518 break;
10521 /* We can see more levels of arguments than parameters if
10522 there was a specialization of a member template, like
10523 this:
10525 template <class T> struct S { template <class U> void f(); }
10526 template <> template <class U> void S<int>::f(U);
10528 Here, we'll be substituting into the specialization,
10529 because that's where we can find the code we actually
10530 want to generate, but we'll have enough arguments for
10531 the most general template.
10533 We also deal with the peculiar case:
10535 template <class T> struct S {
10536 template <class U> friend void f();
10538 template <class U> void f() {}
10539 template S<int>;
10540 template void f<double>();
10542 Here, the ARGS for the instantiation of will be {int,
10543 double}. But, we only need as many ARGS as there are
10544 levels of template parameters in CODE_PATTERN. We are
10545 careful not to get fooled into reducing the ARGS in
10546 situations like:
10548 template <class T> struct S { template <class U> void f(U); }
10549 template <class T> template <> void S<T>::f(int) {}
10551 which we can spot because the pattern will be a
10552 specialization in this case. */
10553 args_depth = TMPL_ARGS_DEPTH (args);
10554 parms_depth =
10555 TMPL_PARMS_DEPTH (DECL_TEMPLATE_PARMS (DECL_TI_TEMPLATE (t)));
10556 if (args_depth > parms_depth
10557 && !DECL_TEMPLATE_SPECIALIZATION (t))
10558 args = get_innermost_template_args (args, parms_depth);
10560 else
10562 /* This special case arises when we have something like this:
10564 template <class T> struct S {
10565 friend void f<int>(int, double);
10568 Here, the DECL_TI_TEMPLATE for the friend declaration
10569 will be an IDENTIFIER_NODE. We are being called from
10570 tsubst_friend_function, and we want only to create a
10571 new decl (R) with appropriate types so that we can call
10572 determine_specialization. */
10573 gen_tmpl = NULL_TREE;
10576 if (DECL_CLASS_SCOPE_P (t))
10578 if (DECL_NAME (t) == constructor_name (DECL_CONTEXT (t)))
10579 member = 2;
10580 else
10581 member = 1;
10582 ctx = tsubst_aggr_type (DECL_CONTEXT (t), args,
10583 complain, t, /*entering_scope=*/1);
10585 else
10587 member = 0;
10588 ctx = DECL_CONTEXT (t);
10590 type = tsubst (TREE_TYPE (t), args, complain, in_decl);
10591 if (type == error_mark_node)
10592 RETURN (error_mark_node);
10594 /* If we hit excessive deduction depth, the type is bogus even if
10595 it isn't error_mark_node, so don't build a decl. */
10596 if (excessive_deduction_depth)
10597 RETURN (error_mark_node);
10599 /* We do NOT check for matching decls pushed separately at this
10600 point, as they may not represent instantiations of this
10601 template, and in any case are considered separate under the
10602 discrete model. */
10603 r = copy_decl (t);
10604 DECL_USE_TEMPLATE (r) = 0;
10605 TREE_TYPE (r) = type;
10606 /* Clear out the mangled name and RTL for the instantiation. */
10607 SET_DECL_ASSEMBLER_NAME (r, NULL_TREE);
10608 SET_DECL_RTL (r, NULL);
10609 /* Leave DECL_INITIAL set on deleted instantiations. */
10610 if (!DECL_DELETED_FN (r))
10611 DECL_INITIAL (r) = NULL_TREE;
10612 DECL_CONTEXT (r) = ctx;
10614 /* OpenMP UDRs have the only argument a reference to the declared
10615 type. We want to diagnose if the declared type is a reference,
10616 which is invalid, but as references to references are usually
10617 quietly merged, diagnose it here. */
10618 if (DECL_OMP_DECLARE_REDUCTION_P (t))
10620 tree argtype
10621 = TREE_TYPE (TREE_VALUE (TYPE_ARG_TYPES (TREE_TYPE (t))));
10622 argtype = tsubst (argtype, args, complain, in_decl);
10623 if (TREE_CODE (argtype) == REFERENCE_TYPE)
10624 error_at (DECL_SOURCE_LOCATION (t),
10625 "reference type %qT in "
10626 "%<#pragma omp declare reduction%>", argtype);
10627 if (strchr (IDENTIFIER_POINTER (DECL_NAME (t)), '~') == NULL)
10628 DECL_NAME (r) = omp_reduction_id (ERROR_MARK, DECL_NAME (t),
10629 argtype);
10632 if (member && DECL_CONV_FN_P (r))
10633 /* Type-conversion operator. Reconstruct the name, in
10634 case it's the name of one of the template's parameters. */
10635 DECL_NAME (r) = mangle_conv_op_name_for_type (TREE_TYPE (type));
10637 DECL_ARGUMENTS (r) = tsubst (DECL_ARGUMENTS (t), args,
10638 complain, t);
10639 DECL_RESULT (r) = NULL_TREE;
10641 TREE_STATIC (r) = 0;
10642 TREE_PUBLIC (r) = TREE_PUBLIC (t);
10643 DECL_EXTERNAL (r) = 1;
10644 /* If this is an instantiation of a function with internal
10645 linkage, we already know what object file linkage will be
10646 assigned to the instantiation. */
10647 DECL_INTERFACE_KNOWN (r) = !TREE_PUBLIC (r);
10648 DECL_DEFER_OUTPUT (r) = 0;
10649 DECL_CHAIN (r) = NULL_TREE;
10650 DECL_PENDING_INLINE_INFO (r) = 0;
10651 DECL_PENDING_INLINE_P (r) = 0;
10652 DECL_SAVED_TREE (r) = NULL_TREE;
10653 DECL_STRUCT_FUNCTION (r) = NULL;
10654 TREE_USED (r) = 0;
10655 /* We'll re-clone as appropriate in instantiate_template. */
10656 DECL_CLONED_FUNCTION (r) = NULL_TREE;
10658 /* If we aren't complaining now, return on error before we register
10659 the specialization so that we'll complain eventually. */
10660 if ((complain & tf_error) == 0
10661 && IDENTIFIER_OPNAME_P (DECL_NAME (r))
10662 && !grok_op_properties (r, /*complain=*/false))
10663 RETURN (error_mark_node);
10665 /* Set up the DECL_TEMPLATE_INFO for R. There's no need to do
10666 this in the special friend case mentioned above where
10667 GEN_TMPL is NULL. */
10668 if (gen_tmpl)
10670 DECL_TEMPLATE_INFO (r)
10671 = build_template_info (gen_tmpl, argvec);
10672 SET_DECL_IMPLICIT_INSTANTIATION (r);
10674 tree new_r
10675 = register_specialization (r, gen_tmpl, argvec, false, hash);
10676 if (new_r != r)
10677 /* We instantiated this while substituting into
10678 the type earlier (template/friend54.C). */
10679 RETURN (new_r);
10681 /* We're not supposed to instantiate default arguments
10682 until they are called, for a template. But, for a
10683 declaration like:
10685 template <class T> void f ()
10686 { extern void g(int i = T()); }
10688 we should do the substitution when the template is
10689 instantiated. We handle the member function case in
10690 instantiate_class_template since the default arguments
10691 might refer to other members of the class. */
10692 if (!member
10693 && !PRIMARY_TEMPLATE_P (gen_tmpl)
10694 && !uses_template_parms (argvec))
10695 tsubst_default_arguments (r, complain);
10697 else
10698 DECL_TEMPLATE_INFO (r) = NULL_TREE;
10700 /* Copy the list of befriending classes. */
10701 for (friends = &DECL_BEFRIENDING_CLASSES (r);
10702 *friends;
10703 friends = &TREE_CHAIN (*friends))
10705 *friends = copy_node (*friends);
10706 TREE_VALUE (*friends) = tsubst (TREE_VALUE (*friends),
10707 args, complain,
10708 in_decl);
10711 if (DECL_CONSTRUCTOR_P (r) || DECL_DESTRUCTOR_P (r))
10713 maybe_retrofit_in_chrg (r);
10714 if (DECL_CONSTRUCTOR_P (r))
10715 grok_ctor_properties (ctx, r);
10716 if (DECL_INHERITED_CTOR_BASE (r))
10717 deduce_inheriting_ctor (r);
10718 /* If this is an instantiation of a member template, clone it.
10719 If it isn't, that'll be handled by
10720 clone_constructors_and_destructors. */
10721 if (PRIMARY_TEMPLATE_P (gen_tmpl))
10722 clone_function_decl (r, /*update_method_vec_p=*/0);
10724 else if ((complain & tf_error) != 0
10725 && IDENTIFIER_OPNAME_P (DECL_NAME (r))
10726 && !grok_op_properties (r, /*complain=*/true))
10727 RETURN (error_mark_node);
10729 if (DECL_FRIEND_P (t) && DECL_FRIEND_CONTEXT (t))
10730 SET_DECL_FRIEND_CONTEXT (r,
10731 tsubst (DECL_FRIEND_CONTEXT (t),
10732 args, complain, in_decl));
10734 /* Possibly limit visibility based on template args. */
10735 DECL_VISIBILITY (r) = VISIBILITY_DEFAULT;
10736 if (DECL_VISIBILITY_SPECIFIED (t))
10738 DECL_VISIBILITY_SPECIFIED (r) = 0;
10739 DECL_ATTRIBUTES (r)
10740 = remove_attribute ("visibility", DECL_ATTRIBUTES (r));
10742 determine_visibility (r);
10743 if (DECL_DEFAULTED_OUTSIDE_CLASS_P (r)
10744 && !processing_template_decl)
10745 defaulted_late_check (r);
10747 apply_late_template_attributes (&r, DECL_ATTRIBUTES (r), 0,
10748 args, complain, in_decl);
10750 break;
10752 case PARM_DECL:
10754 tree type = NULL_TREE;
10755 int i, len = 1;
10756 tree expanded_types = NULL_TREE;
10757 tree prev_r = NULL_TREE;
10758 tree first_r = NULL_TREE;
10760 if (DECL_PACK_P (t))
10762 /* If there is a local specialization that isn't a
10763 parameter pack, it means that we're doing a "simple"
10764 substitution from inside tsubst_pack_expansion. Just
10765 return the local specialization (which will be a single
10766 parm). */
10767 tree spec = retrieve_local_specialization (t);
10768 if (spec
10769 && TREE_CODE (spec) == PARM_DECL
10770 && TREE_CODE (TREE_TYPE (spec)) != TYPE_PACK_EXPANSION)
10771 RETURN (spec);
10773 /* Expand the TYPE_PACK_EXPANSION that provides the types for
10774 the parameters in this function parameter pack. */
10775 expanded_types = tsubst_pack_expansion (TREE_TYPE (t), args,
10776 complain, in_decl);
10777 if (TREE_CODE (expanded_types) == TREE_VEC)
10779 len = TREE_VEC_LENGTH (expanded_types);
10781 /* Zero-length parameter packs are boring. Just substitute
10782 into the chain. */
10783 if (len == 0)
10784 RETURN (tsubst (TREE_CHAIN (t), args, complain,
10785 TREE_CHAIN (t)));
10787 else
10789 /* All we did was update the type. Make a note of that. */
10790 type = expanded_types;
10791 expanded_types = NULL_TREE;
10795 /* Loop through all of the parameters we'll build. When T is
10796 a function parameter pack, LEN is the number of expanded
10797 types in EXPANDED_TYPES; otherwise, LEN is 1. */
10798 r = NULL_TREE;
10799 for (i = 0; i < len; ++i)
10801 prev_r = r;
10802 r = copy_node (t);
10803 if (DECL_TEMPLATE_PARM_P (t))
10804 SET_DECL_TEMPLATE_PARM_P (r);
10806 if (expanded_types)
10807 /* We're on the Ith parameter of the function parameter
10808 pack. */
10810 /* Get the Ith type. */
10811 type = TREE_VEC_ELT (expanded_types, i);
10813 /* Rename the parameter to include the index. */
10814 DECL_NAME (r)
10815 = make_ith_pack_parameter_name (DECL_NAME (r), i);
10817 else if (!type)
10818 /* We're dealing with a normal parameter. */
10819 type = tsubst (TREE_TYPE (t), args, complain, in_decl);
10821 type = type_decays_to (type);
10822 TREE_TYPE (r) = type;
10823 cp_apply_type_quals_to_decl (cp_type_quals (type), r);
10825 if (DECL_INITIAL (r))
10827 if (TREE_CODE (DECL_INITIAL (r)) != TEMPLATE_PARM_INDEX)
10828 DECL_INITIAL (r) = TREE_TYPE (r);
10829 else
10830 DECL_INITIAL (r) = tsubst (DECL_INITIAL (r), args,
10831 complain, in_decl);
10834 DECL_CONTEXT (r) = NULL_TREE;
10836 if (!DECL_TEMPLATE_PARM_P (r))
10837 DECL_ARG_TYPE (r) = type_passed_as (type);
10839 apply_late_template_attributes (&r, DECL_ATTRIBUTES (r), 0,
10840 args, complain, in_decl);
10842 /* Keep track of the first new parameter we
10843 generate. That's what will be returned to the
10844 caller. */
10845 if (!first_r)
10846 first_r = r;
10848 /* Build a proper chain of parameters when substituting
10849 into a function parameter pack. */
10850 if (prev_r)
10851 DECL_CHAIN (prev_r) = r;
10854 /* If cp_unevaluated_operand is set, we're just looking for a
10855 single dummy parameter, so don't keep going. */
10856 if (DECL_CHAIN (t) && !cp_unevaluated_operand)
10857 DECL_CHAIN (r) = tsubst (DECL_CHAIN (t), args,
10858 complain, DECL_CHAIN (t));
10860 /* FIRST_R contains the start of the chain we've built. */
10861 r = first_r;
10863 break;
10865 case FIELD_DECL:
10867 tree type = NULL_TREE;
10868 tree vec = NULL_TREE;
10869 tree expanded_types = NULL_TREE;
10870 int len = 1;
10872 if (PACK_EXPANSION_P (TREE_TYPE (t)))
10874 /* This field is a lambda capture pack. Return a TREE_VEC of
10875 the expanded fields to instantiate_class_template_1 and
10876 store them in the specializations hash table as a
10877 NONTYPE_ARGUMENT_PACK so that tsubst_copy can find them. */
10878 expanded_types = tsubst_pack_expansion (TREE_TYPE (t), args,
10879 complain, in_decl);
10880 if (TREE_CODE (expanded_types) == TREE_VEC)
10882 len = TREE_VEC_LENGTH (expanded_types);
10883 vec = make_tree_vec (len);
10885 else
10887 /* All we did was update the type. Make a note of that. */
10888 type = expanded_types;
10889 expanded_types = NULL_TREE;
10893 for (int i = 0; i < len; ++i)
10895 r = copy_decl (t);
10896 if (expanded_types)
10898 type = TREE_VEC_ELT (expanded_types, i);
10899 DECL_NAME (r)
10900 = make_ith_pack_parameter_name (DECL_NAME (r), i);
10902 else if (!type)
10903 type = tsubst (TREE_TYPE (t), args, complain, in_decl);
10905 if (type == error_mark_node)
10906 RETURN (error_mark_node);
10907 TREE_TYPE (r) = type;
10908 cp_apply_type_quals_to_decl (cp_type_quals (type), r);
10910 if (DECL_C_BIT_FIELD (r))
10911 /* For bit-fields, DECL_INITIAL gives the number of bits. For
10912 non-bit-fields DECL_INITIAL is a non-static data member
10913 initializer, which gets deferred instantiation. */
10914 DECL_INITIAL (r)
10915 = tsubst_expr (DECL_INITIAL (t), args,
10916 complain, in_decl,
10917 /*integral_constant_expression_p=*/true);
10918 else if (DECL_INITIAL (t))
10920 /* Set up DECL_TEMPLATE_INFO so that we can get at the
10921 NSDMI in perform_member_init. Still set DECL_INITIAL
10922 so that we know there is one. */
10923 DECL_INITIAL (r) = void_node;
10924 gcc_assert (DECL_LANG_SPECIFIC (r) == NULL);
10925 retrofit_lang_decl (r);
10926 DECL_TEMPLATE_INFO (r) = build_template_info (t, args);
10928 /* We don't have to set DECL_CONTEXT here; it is set by
10929 finish_member_declaration. */
10930 DECL_CHAIN (r) = NULL_TREE;
10932 apply_late_template_attributes (&r, DECL_ATTRIBUTES (r), 0,
10933 args, complain, in_decl);
10935 if (vec)
10936 TREE_VEC_ELT (vec, i) = r;
10939 if (vec)
10941 r = vec;
10942 tree pack = make_node (NONTYPE_ARGUMENT_PACK);
10943 tree tpack = cxx_make_type (TYPE_ARGUMENT_PACK);
10944 SET_ARGUMENT_PACK_ARGS (pack, vec);
10945 SET_ARGUMENT_PACK_ARGS (tpack, expanded_types);
10946 TREE_TYPE (pack) = tpack;
10947 register_specialization (pack, t, args, false, 0);
10950 break;
10952 case USING_DECL:
10953 /* We reach here only for member using decls. We also need to check
10954 uses_template_parms because DECL_DEPENDENT_P is not set for a
10955 using-declaration that designates a member of the current
10956 instantiation (c++/53549). */
10957 if (DECL_DEPENDENT_P (t)
10958 || uses_template_parms (USING_DECL_SCOPE (t)))
10960 tree inst_scope = tsubst_copy (USING_DECL_SCOPE (t), args,
10961 complain, in_decl);
10962 tree name = tsubst_copy (DECL_NAME (t), args, complain, in_decl);
10963 r = do_class_using_decl (inst_scope, name);
10964 if (!r)
10965 r = error_mark_node;
10966 else
10968 TREE_PROTECTED (r) = TREE_PROTECTED (t);
10969 TREE_PRIVATE (r) = TREE_PRIVATE (t);
10972 else
10974 r = copy_node (t);
10975 DECL_CHAIN (r) = NULL_TREE;
10977 break;
10979 case TYPE_DECL:
10980 case VAR_DECL:
10982 tree argvec = NULL_TREE;
10983 tree gen_tmpl = NULL_TREE;
10984 tree spec;
10985 tree tmpl = NULL_TREE;
10986 tree ctx;
10987 tree type = NULL_TREE;
10988 bool local_p;
10990 if (TREE_TYPE (t) == error_mark_node)
10991 RETURN (error_mark_node);
10993 if (TREE_CODE (t) == TYPE_DECL
10994 && t == TYPE_MAIN_DECL (TREE_TYPE (t)))
10996 /* If this is the canonical decl, we don't have to
10997 mess with instantiations, and often we can't (for
10998 typename, template type parms and such). Note that
10999 TYPE_NAME is not correct for the above test if
11000 we've copied the type for a typedef. */
11001 type = tsubst (TREE_TYPE (t), args, complain, in_decl);
11002 if (type == error_mark_node)
11003 RETURN (error_mark_node);
11004 r = TYPE_NAME (type);
11005 break;
11008 /* Check to see if we already have the specialization we
11009 need. */
11010 spec = NULL_TREE;
11011 if (DECL_CLASS_SCOPE_P (t) || DECL_NAMESPACE_SCOPE_P (t))
11013 /* T is a static data member or namespace-scope entity.
11014 We have to substitute into namespace-scope variables
11015 (even though such entities are never templates) because
11016 of cases like:
11018 template <class T> void f() { extern T t; }
11020 where the entity referenced is not known until
11021 instantiation time. */
11022 local_p = false;
11023 ctx = DECL_CONTEXT (t);
11024 if (DECL_CLASS_SCOPE_P (t))
11026 ctx = tsubst_aggr_type (ctx, args,
11027 complain,
11028 in_decl, /*entering_scope=*/1);
11029 /* If CTX is unchanged, then T is in fact the
11030 specialization we want. That situation occurs when
11031 referencing a static data member within in its own
11032 class. We can use pointer equality, rather than
11033 same_type_p, because DECL_CONTEXT is always
11034 canonical... */
11035 if (ctx == DECL_CONTEXT (t)
11036 && (TREE_CODE (t) != TYPE_DECL
11037 /* ... unless T is a member template; in which
11038 case our caller can be willing to create a
11039 specialization of that template represented
11040 by T. */
11041 || !(DECL_TI_TEMPLATE (t)
11042 && DECL_MEMBER_TEMPLATE_P (DECL_TI_TEMPLATE (t)))))
11043 spec = t;
11046 if (!spec)
11048 tmpl = DECL_TI_TEMPLATE (t);
11049 gen_tmpl = most_general_template (tmpl);
11050 argvec = tsubst (DECL_TI_ARGS (t), args, complain, in_decl);
11051 if (argvec == error_mark_node)
11052 RETURN (error_mark_node);
11053 hash = hash_tmpl_and_args (gen_tmpl, argvec);
11054 spec = retrieve_specialization (gen_tmpl, argvec, hash);
11057 else
11059 /* A local variable. */
11060 local_p = true;
11061 /* Subsequent calls to pushdecl will fill this in. */
11062 ctx = NULL_TREE;
11063 spec = retrieve_local_specialization (t);
11065 /* If we already have the specialization we need, there is
11066 nothing more to do. */
11067 if (spec)
11069 r = spec;
11070 break;
11073 /* Create a new node for the specialization we need. */
11074 r = copy_decl (t);
11075 if (type == NULL_TREE)
11077 if (is_typedef_decl (t))
11078 type = DECL_ORIGINAL_TYPE (t);
11079 else
11080 type = TREE_TYPE (t);
11081 if (VAR_P (t)
11082 && VAR_HAD_UNKNOWN_BOUND (t)
11083 && type != error_mark_node)
11084 type = strip_array_domain (type);
11085 type = tsubst (type, args, complain, in_decl);
11087 if (VAR_P (r))
11089 /* Even if the original location is out of scope, the
11090 newly substituted one is not. */
11091 DECL_DEAD_FOR_LOCAL (r) = 0;
11092 DECL_INITIALIZED_P (r) = 0;
11093 DECL_TEMPLATE_INSTANTIATED (r) = 0;
11094 if (type == error_mark_node)
11095 RETURN (error_mark_node);
11096 if (TREE_CODE (type) == FUNCTION_TYPE)
11098 /* It may seem that this case cannot occur, since:
11100 typedef void f();
11101 void g() { f x; }
11103 declares a function, not a variable. However:
11105 typedef void f();
11106 template <typename T> void g() { T t; }
11107 template void g<f>();
11109 is an attempt to declare a variable with function
11110 type. */
11111 error ("variable %qD has function type",
11112 /* R is not yet sufficiently initialized, so we
11113 just use its name. */
11114 DECL_NAME (r));
11115 RETURN (error_mark_node);
11117 type = complete_type (type);
11118 /* Wait until cp_finish_decl to set this again, to handle
11119 circular dependency (template/instantiate6.C). */
11120 DECL_INITIALIZED_BY_CONSTANT_EXPRESSION_P (r) = 0;
11121 type = check_var_type (DECL_NAME (r), type);
11123 if (DECL_HAS_VALUE_EXPR_P (t))
11125 tree ve = DECL_VALUE_EXPR (t);
11126 ve = tsubst_expr (ve, args, complain, in_decl,
11127 /*constant_expression_p=*/false);
11128 if (REFERENCE_REF_P (ve))
11130 gcc_assert (TREE_CODE (type) == REFERENCE_TYPE);
11131 ve = TREE_OPERAND (ve, 0);
11133 SET_DECL_VALUE_EXPR (r, ve);
11136 else if (DECL_SELF_REFERENCE_P (t))
11137 SET_DECL_SELF_REFERENCE_P (r);
11138 TREE_TYPE (r) = type;
11139 cp_apply_type_quals_to_decl (cp_type_quals (type), r);
11140 DECL_CONTEXT (r) = ctx;
11141 /* Clear out the mangled name and RTL for the instantiation. */
11142 SET_DECL_ASSEMBLER_NAME (r, NULL_TREE);
11143 if (CODE_CONTAINS_STRUCT (TREE_CODE (t), TS_DECL_WRTL))
11144 SET_DECL_RTL (r, NULL);
11145 /* The initializer must not be expanded until it is required;
11146 see [temp.inst]. */
11147 DECL_INITIAL (r) = NULL_TREE;
11148 if (CODE_CONTAINS_STRUCT (TREE_CODE (t), TS_DECL_WRTL))
11149 SET_DECL_RTL (r, NULL);
11150 DECL_SIZE (r) = DECL_SIZE_UNIT (r) = 0;
11151 if (VAR_P (r))
11153 /* Possibly limit visibility based on template args. */
11154 DECL_VISIBILITY (r) = VISIBILITY_DEFAULT;
11155 if (DECL_VISIBILITY_SPECIFIED (t))
11157 DECL_VISIBILITY_SPECIFIED (r) = 0;
11158 DECL_ATTRIBUTES (r)
11159 = remove_attribute ("visibility", DECL_ATTRIBUTES (r));
11161 determine_visibility (r);
11164 if (!local_p)
11166 /* A static data member declaration is always marked
11167 external when it is declared in-class, even if an
11168 initializer is present. We mimic the non-template
11169 processing here. */
11170 DECL_EXTERNAL (r) = 1;
11172 register_specialization (r, gen_tmpl, argvec, false, hash);
11173 DECL_TEMPLATE_INFO (r) = build_template_info (tmpl, argvec);
11174 SET_DECL_IMPLICIT_INSTANTIATION (r);
11176 else if (!cp_unevaluated_operand)
11177 register_local_specialization (r, t);
11179 DECL_CHAIN (r) = NULL_TREE;
11181 apply_late_template_attributes (&r, DECL_ATTRIBUTES (r),
11182 /*flags=*/0,
11183 args, complain, in_decl);
11185 /* Preserve a typedef that names a type. */
11186 if (is_typedef_decl (r))
11188 DECL_ORIGINAL_TYPE (r) = NULL_TREE;
11189 set_underlying_type (r);
11192 layout_decl (r, 0);
11194 break;
11196 default:
11197 gcc_unreachable ();
11199 #undef RETURN
11201 out:
11202 /* Restore the file and line information. */
11203 input_location = saved_loc;
11205 return r;
11208 /* Substitute into the ARG_TYPES of a function type.
11209 If END is a TREE_CHAIN, leave it and any following types
11210 un-substituted. */
11212 static tree
11213 tsubst_arg_types (tree arg_types,
11214 tree args,
11215 tree end,
11216 tsubst_flags_t complain,
11217 tree in_decl)
11219 tree remaining_arg_types;
11220 tree type = NULL_TREE;
11221 int i = 1;
11222 tree expanded_args = NULL_TREE;
11223 tree default_arg;
11225 if (!arg_types || arg_types == void_list_node || arg_types == end)
11226 return arg_types;
11228 remaining_arg_types = tsubst_arg_types (TREE_CHAIN (arg_types),
11229 args, end, complain, in_decl);
11230 if (remaining_arg_types == error_mark_node)
11231 return error_mark_node;
11233 if (PACK_EXPANSION_P (TREE_VALUE (arg_types)))
11235 /* For a pack expansion, perform substitution on the
11236 entire expression. Later on, we'll handle the arguments
11237 one-by-one. */
11238 expanded_args = tsubst_pack_expansion (TREE_VALUE (arg_types),
11239 args, complain, in_decl);
11241 if (TREE_CODE (expanded_args) == TREE_VEC)
11242 /* So that we'll spin through the parameters, one by one. */
11243 i = TREE_VEC_LENGTH (expanded_args);
11244 else
11246 /* We only partially substituted into the parameter
11247 pack. Our type is TYPE_PACK_EXPANSION. */
11248 type = expanded_args;
11249 expanded_args = NULL_TREE;
11253 while (i > 0) {
11254 --i;
11256 if (expanded_args)
11257 type = TREE_VEC_ELT (expanded_args, i);
11258 else if (!type)
11259 type = tsubst (TREE_VALUE (arg_types), args, complain, in_decl);
11261 if (type == error_mark_node)
11262 return error_mark_node;
11263 if (VOID_TYPE_P (type))
11265 if (complain & tf_error)
11267 error ("invalid parameter type %qT", type);
11268 if (in_decl)
11269 error ("in declaration %q+D", in_decl);
11271 return error_mark_node;
11273 /* DR 657. */
11274 if (abstract_virtuals_error_sfinae (ACU_PARM, type, complain))
11275 return error_mark_node;
11277 /* Do array-to-pointer, function-to-pointer conversion, and ignore
11278 top-level qualifiers as required. */
11279 type = cv_unqualified (type_decays_to (type));
11281 /* We do not substitute into default arguments here. The standard
11282 mandates that they be instantiated only when needed, which is
11283 done in build_over_call. */
11284 default_arg = TREE_PURPOSE (arg_types);
11286 if (default_arg && TREE_CODE (default_arg) == DEFAULT_ARG)
11288 /* We've instantiated a template before its default arguments
11289 have been parsed. This can happen for a nested template
11290 class, and is not an error unless we require the default
11291 argument in a call of this function. */
11292 remaining_arg_types =
11293 tree_cons (default_arg, type, remaining_arg_types);
11294 vec_safe_push (DEFARG_INSTANTIATIONS(default_arg), remaining_arg_types);
11296 else
11297 remaining_arg_types =
11298 hash_tree_cons (default_arg, type, remaining_arg_types);
11301 return remaining_arg_types;
11304 /* Substitute into a FUNCTION_TYPE or METHOD_TYPE. This routine does
11305 *not* handle the exception-specification for FNTYPE, because the
11306 initial substitution of explicitly provided template parameters
11307 during argument deduction forbids substitution into the
11308 exception-specification:
11310 [temp.deduct]
11312 All references in the function type of the function template to the
11313 corresponding template parameters are replaced by the specified tem-
11314 plate argument values. If a substitution in a template parameter or
11315 in the function type of the function template results in an invalid
11316 type, type deduction fails. [Note: The equivalent substitution in
11317 exception specifications is done only when the function is instanti-
11318 ated, at which point a program is ill-formed if the substitution
11319 results in an invalid type.] */
11321 static tree
11322 tsubst_function_type (tree t,
11323 tree args,
11324 tsubst_flags_t complain,
11325 tree in_decl)
11327 tree return_type;
11328 tree arg_types = NULL_TREE;
11329 tree fntype;
11331 /* The TYPE_CONTEXT is not used for function/method types. */
11332 gcc_assert (TYPE_CONTEXT (t) == NULL_TREE);
11334 /* DR 1227: Mixing immediate and non-immediate contexts in deduction
11335 failure. */
11336 bool late_return_type_p = TYPE_HAS_LATE_RETURN_TYPE (t);
11338 if (late_return_type_p)
11340 /* Substitute the argument types. */
11341 arg_types = tsubst_arg_types (TYPE_ARG_TYPES (t), args, NULL_TREE,
11342 complain, in_decl);
11343 if (arg_types == error_mark_node)
11344 return error_mark_node;
11346 tree save_ccp = current_class_ptr;
11347 tree save_ccr = current_class_ref;
11348 tree this_type = (TREE_CODE (t) == METHOD_TYPE
11349 ? TREE_TYPE (TREE_VALUE (arg_types)) : NULL_TREE);
11350 bool do_inject = this_type && CLASS_TYPE_P (this_type);
11351 if (do_inject)
11353 /* DR 1207: 'this' is in scope in the trailing return type. */
11354 inject_this_parameter (this_type, cp_type_quals (this_type));
11357 /* Substitute the return type. */
11358 return_type = tsubst (TREE_TYPE (t), args, complain, in_decl);
11360 if (do_inject)
11362 current_class_ptr = save_ccp;
11363 current_class_ref = save_ccr;
11366 else
11367 /* Substitute the return type. */
11368 return_type = tsubst (TREE_TYPE (t), args, complain, in_decl);
11370 if (return_type == error_mark_node)
11371 return error_mark_node;
11372 /* DR 486 clarifies that creation of a function type with an
11373 invalid return type is a deduction failure. */
11374 if (TREE_CODE (return_type) == ARRAY_TYPE
11375 || TREE_CODE (return_type) == FUNCTION_TYPE)
11377 if (complain & tf_error)
11379 if (TREE_CODE (return_type) == ARRAY_TYPE)
11380 error ("function returning an array");
11381 else
11382 error ("function returning a function");
11384 return error_mark_node;
11386 /* And DR 657. */
11387 if (abstract_virtuals_error_sfinae (ACU_RETURN, return_type, complain))
11388 return error_mark_node;
11390 if (!late_return_type_p)
11392 /* Substitute the argument types. */
11393 arg_types = tsubst_arg_types (TYPE_ARG_TYPES (t), args, NULL_TREE,
11394 complain, in_decl);
11395 if (arg_types == error_mark_node)
11396 return error_mark_node;
11399 /* Construct a new type node and return it. */
11400 if (TREE_CODE (t) == FUNCTION_TYPE)
11402 fntype = build_function_type (return_type, arg_types);
11403 fntype = apply_memfn_quals (fntype,
11404 type_memfn_quals (t),
11405 type_memfn_rqual (t));
11407 else
11409 tree r = TREE_TYPE (TREE_VALUE (arg_types));
11410 /* Don't pick up extra function qualifiers from the basetype. */
11411 r = cp_build_qualified_type_real (r, type_memfn_quals (t), complain);
11412 if (! MAYBE_CLASS_TYPE_P (r))
11414 /* [temp.deduct]
11416 Type deduction may fail for any of the following
11417 reasons:
11419 -- Attempting to create "pointer to member of T" when T
11420 is not a class type. */
11421 if (complain & tf_error)
11422 error ("creating pointer to member function of non-class type %qT",
11424 return error_mark_node;
11427 fntype = build_method_type_directly (r, return_type,
11428 TREE_CHAIN (arg_types));
11429 fntype = build_ref_qualified_type (fntype, type_memfn_rqual (t));
11431 fntype = cp_build_type_attribute_variant (fntype, TYPE_ATTRIBUTES (t));
11433 if (late_return_type_p)
11434 TYPE_HAS_LATE_RETURN_TYPE (fntype) = 1;
11436 return fntype;
11439 /* FNTYPE is a FUNCTION_TYPE or METHOD_TYPE. Substitute the template
11440 ARGS into that specification, and return the substituted
11441 specification. If there is no specification, return NULL_TREE. */
11443 static tree
11444 tsubst_exception_specification (tree fntype,
11445 tree args,
11446 tsubst_flags_t complain,
11447 tree in_decl,
11448 bool defer_ok)
11450 tree specs;
11451 tree new_specs;
11453 specs = TYPE_RAISES_EXCEPTIONS (fntype);
11454 new_specs = NULL_TREE;
11455 if (specs && TREE_PURPOSE (specs))
11457 /* A noexcept-specifier. */
11458 tree expr = TREE_PURPOSE (specs);
11459 if (TREE_CODE (expr) == INTEGER_CST)
11460 new_specs = expr;
11461 else if (defer_ok)
11463 /* Defer instantiation of noexcept-specifiers to avoid
11464 excessive instantiations (c++/49107). */
11465 new_specs = make_node (DEFERRED_NOEXCEPT);
11466 if (DEFERRED_NOEXCEPT_SPEC_P (specs))
11468 /* We already partially instantiated this member template,
11469 so combine the new args with the old. */
11470 DEFERRED_NOEXCEPT_PATTERN (new_specs)
11471 = DEFERRED_NOEXCEPT_PATTERN (expr);
11472 DEFERRED_NOEXCEPT_ARGS (new_specs)
11473 = add_to_template_args (DEFERRED_NOEXCEPT_ARGS (expr), args);
11475 else
11477 DEFERRED_NOEXCEPT_PATTERN (new_specs) = expr;
11478 DEFERRED_NOEXCEPT_ARGS (new_specs) = args;
11481 else
11482 new_specs = tsubst_copy_and_build
11483 (expr, args, complain, in_decl, /*function_p=*/false,
11484 /*integral_constant_expression_p=*/true);
11485 new_specs = build_noexcept_spec (new_specs, complain);
11487 else if (specs)
11489 if (! TREE_VALUE (specs))
11490 new_specs = specs;
11491 else
11492 while (specs)
11494 tree spec;
11495 int i, len = 1;
11496 tree expanded_specs = NULL_TREE;
11498 if (PACK_EXPANSION_P (TREE_VALUE (specs)))
11500 /* Expand the pack expansion type. */
11501 expanded_specs = tsubst_pack_expansion (TREE_VALUE (specs),
11502 args, complain,
11503 in_decl);
11505 if (expanded_specs == error_mark_node)
11506 return error_mark_node;
11507 else if (TREE_CODE (expanded_specs) == TREE_VEC)
11508 len = TREE_VEC_LENGTH (expanded_specs);
11509 else
11511 /* We're substituting into a member template, so
11512 we got a TYPE_PACK_EXPANSION back. Add that
11513 expansion and move on. */
11514 gcc_assert (TREE_CODE (expanded_specs)
11515 == TYPE_PACK_EXPANSION);
11516 new_specs = add_exception_specifier (new_specs,
11517 expanded_specs,
11518 complain);
11519 specs = TREE_CHAIN (specs);
11520 continue;
11524 for (i = 0; i < len; ++i)
11526 if (expanded_specs)
11527 spec = TREE_VEC_ELT (expanded_specs, i);
11528 else
11529 spec = tsubst (TREE_VALUE (specs), args, complain, in_decl);
11530 if (spec == error_mark_node)
11531 return spec;
11532 new_specs = add_exception_specifier (new_specs, spec,
11533 complain);
11536 specs = TREE_CHAIN (specs);
11539 return new_specs;
11542 /* Take the tree structure T and replace template parameters used
11543 therein with the argument vector ARGS. IN_DECL is an associated
11544 decl for diagnostics. If an error occurs, returns ERROR_MARK_NODE.
11545 Issue error and warning messages under control of COMPLAIN. Note
11546 that we must be relatively non-tolerant of extensions here, in
11547 order to preserve conformance; if we allow substitutions that
11548 should not be allowed, we may allow argument deductions that should
11549 not succeed, and therefore report ambiguous overload situations
11550 where there are none. In theory, we could allow the substitution,
11551 but indicate that it should have failed, and allow our caller to
11552 make sure that the right thing happens, but we don't try to do this
11553 yet.
11555 This function is used for dealing with types, decls and the like;
11556 for expressions, use tsubst_expr or tsubst_copy. */
11558 tree
11559 tsubst (tree t, tree args, tsubst_flags_t complain, tree in_decl)
11561 enum tree_code code;
11562 tree type, r = NULL_TREE;
11564 if (t == NULL_TREE || t == error_mark_node
11565 || t == integer_type_node
11566 || t == void_type_node
11567 || t == char_type_node
11568 || t == unknown_type_node
11569 || TREE_CODE (t) == NAMESPACE_DECL
11570 || TREE_CODE (t) == TRANSLATION_UNIT_DECL)
11571 return t;
11573 if (DECL_P (t))
11574 return tsubst_decl (t, args, complain);
11576 if (args == NULL_TREE)
11577 return t;
11579 code = TREE_CODE (t);
11581 if (code == IDENTIFIER_NODE)
11582 type = IDENTIFIER_TYPE_VALUE (t);
11583 else
11584 type = TREE_TYPE (t);
11586 gcc_assert (type != unknown_type_node);
11588 /* Reuse typedefs. We need to do this to handle dependent attributes,
11589 such as attribute aligned. */
11590 if (TYPE_P (t)
11591 && typedef_variant_p (t))
11593 tree decl = TYPE_NAME (t);
11595 if (alias_template_specialization_p (t))
11597 /* DECL represents an alias template and we want to
11598 instantiate it. */
11599 tree tmpl = most_general_template (DECL_TI_TEMPLATE (decl));
11600 tree gen_args = tsubst (DECL_TI_ARGS (decl), args, complain, in_decl);
11601 r = instantiate_alias_template (tmpl, gen_args, complain);
11603 else if (DECL_CLASS_SCOPE_P (decl)
11604 && CLASSTYPE_TEMPLATE_INFO (DECL_CONTEXT (decl))
11605 && uses_template_parms (DECL_CONTEXT (decl)))
11607 tree tmpl = most_general_template (DECL_TI_TEMPLATE (decl));
11608 tree gen_args = tsubst (DECL_TI_ARGS (decl), args, complain, in_decl);
11609 r = retrieve_specialization (tmpl, gen_args, 0);
11611 else if (DECL_FUNCTION_SCOPE_P (decl)
11612 && DECL_TEMPLATE_INFO (DECL_CONTEXT (decl))
11613 && uses_template_parms (DECL_TI_ARGS (DECL_CONTEXT (decl))))
11614 r = retrieve_local_specialization (decl);
11615 else
11616 /* The typedef is from a non-template context. */
11617 return t;
11619 if (r)
11621 r = TREE_TYPE (r);
11622 r = cp_build_qualified_type_real
11623 (r, cp_type_quals (t) | cp_type_quals (r),
11624 complain | tf_ignore_bad_quals);
11625 return r;
11627 else
11629 /* We don't have an instantiation yet, so drop the typedef. */
11630 int quals = cp_type_quals (t);
11631 t = DECL_ORIGINAL_TYPE (decl);
11632 t = cp_build_qualified_type_real (t, quals,
11633 complain | tf_ignore_bad_quals);
11637 if (type
11638 && code != TYPENAME_TYPE
11639 && code != TEMPLATE_TYPE_PARM
11640 && code != IDENTIFIER_NODE
11641 && code != FUNCTION_TYPE
11642 && code != METHOD_TYPE)
11643 type = tsubst (type, args, complain, in_decl);
11644 if (type == error_mark_node)
11645 return error_mark_node;
11647 switch (code)
11649 case RECORD_TYPE:
11650 case UNION_TYPE:
11651 case ENUMERAL_TYPE:
11652 return tsubst_aggr_type (t, args, complain, in_decl,
11653 /*entering_scope=*/0);
11655 case ERROR_MARK:
11656 case IDENTIFIER_NODE:
11657 case VOID_TYPE:
11658 case REAL_TYPE:
11659 case COMPLEX_TYPE:
11660 case VECTOR_TYPE:
11661 case BOOLEAN_TYPE:
11662 case NULLPTR_TYPE:
11663 case LANG_TYPE:
11664 return t;
11666 case INTEGER_TYPE:
11667 if (t == integer_type_node)
11668 return t;
11670 if (TREE_CODE (TYPE_MIN_VALUE (t)) == INTEGER_CST
11671 && TREE_CODE (TYPE_MAX_VALUE (t)) == INTEGER_CST)
11672 return t;
11675 tree max, omax = TREE_OPERAND (TYPE_MAX_VALUE (t), 0);
11677 max = tsubst_expr (omax, args, complain, in_decl,
11678 /*integral_constant_expression_p=*/false);
11680 /* Fix up type of the magic NOP_EXPR with TREE_SIDE_EFFECTS if
11681 needed. */
11682 if (TREE_CODE (max) == NOP_EXPR
11683 && TREE_SIDE_EFFECTS (omax)
11684 && !TREE_TYPE (max))
11685 TREE_TYPE (max) = TREE_TYPE (TREE_OPERAND (max, 0));
11687 /* If we're in a partial instantiation, preserve the magic NOP_EXPR
11688 with TREE_SIDE_EFFECTS that indicates this is not an integral
11689 constant expression. */
11690 if (processing_template_decl
11691 && TREE_SIDE_EFFECTS (omax) && TREE_CODE (omax) == NOP_EXPR)
11693 gcc_assert (TREE_CODE (max) == NOP_EXPR);
11694 TREE_SIDE_EFFECTS (max) = 1;
11697 return compute_array_index_type (NULL_TREE, max, complain);
11700 case TEMPLATE_TYPE_PARM:
11701 case TEMPLATE_TEMPLATE_PARM:
11702 case BOUND_TEMPLATE_TEMPLATE_PARM:
11703 case TEMPLATE_PARM_INDEX:
11705 int idx;
11706 int level;
11707 int levels;
11708 tree arg = NULL_TREE;
11710 r = NULL_TREE;
11712 gcc_assert (TREE_VEC_LENGTH (args) > 0);
11713 template_parm_level_and_index (t, &level, &idx);
11715 levels = TMPL_ARGS_DEPTH (args);
11716 if (level <= levels)
11718 arg = TMPL_ARG (args, level, idx);
11720 if (arg && TREE_CODE (arg) == ARGUMENT_PACK_SELECT)
11722 /* See through ARGUMENT_PACK_SELECT arguments. */
11723 arg = ARGUMENT_PACK_SELECT_ARG (arg);
11724 /* If the selected argument is an expansion E, that most
11725 likely means we were called from
11726 gen_elem_of_pack_expansion_instantiation during the
11727 substituting of pack an argument pack (which Ith
11728 element is a pack expansion, where I is
11729 ARGUMENT_PACK_SELECT_INDEX) into a pack expansion.
11730 In this case, the Ith element resulting from this
11731 substituting is going to be a pack expansion, which
11732 pattern is the pattern of E. Let's return the
11733 pattern of E, and
11734 gen_elem_of_pack_expansion_instantiation will
11735 build the resulting pack expansion from it. */
11736 if (PACK_EXPANSION_P (arg))
11737 arg = PACK_EXPANSION_PATTERN (arg);
11741 if (arg == error_mark_node)
11742 return error_mark_node;
11743 else if (arg != NULL_TREE)
11745 if (ARGUMENT_PACK_P (arg))
11746 /* If ARG is an argument pack, we don't actually want to
11747 perform a substitution here, because substitutions
11748 for argument packs are only done
11749 element-by-element. We can get to this point when
11750 substituting the type of a non-type template
11751 parameter pack, when that type actually contains
11752 template parameter packs from an outer template, e.g.,
11754 template<typename... Types> struct A {
11755 template<Types... Values> struct B { };
11756 }; */
11757 return t;
11759 if (code == TEMPLATE_TYPE_PARM)
11761 int quals;
11762 gcc_assert (TYPE_P (arg));
11764 quals = cp_type_quals (arg) | cp_type_quals (t);
11766 return cp_build_qualified_type_real
11767 (arg, quals, complain | tf_ignore_bad_quals);
11769 else if (code == BOUND_TEMPLATE_TEMPLATE_PARM)
11771 /* We are processing a type constructed from a
11772 template template parameter. */
11773 tree argvec = tsubst (TYPE_TI_ARGS (t),
11774 args, complain, in_decl);
11775 if (argvec == error_mark_node)
11776 return error_mark_node;
11778 gcc_assert (TREE_CODE (arg) == TEMPLATE_TEMPLATE_PARM
11779 || TREE_CODE (arg) == TEMPLATE_DECL
11780 || TREE_CODE (arg) == UNBOUND_CLASS_TEMPLATE);
11782 if (TREE_CODE (arg) == UNBOUND_CLASS_TEMPLATE)
11783 /* Consider this code:
11785 template <template <class> class Template>
11786 struct Internal {
11787 template <class Arg> using Bind = Template<Arg>;
11790 template <template <class> class Template, class Arg>
11791 using Instantiate = Template<Arg>; //#0
11793 template <template <class> class Template,
11794 class Argument>
11795 using Bind =
11796 Instantiate<Internal<Template>::template Bind,
11797 Argument>; //#1
11799 When #1 is parsed, the
11800 BOUND_TEMPLATE_TEMPLATE_PARM representing the
11801 parameter `Template' in #0 matches the
11802 UNBOUND_CLASS_TEMPLATE representing the argument
11803 `Internal<Template>::template Bind'; We then want
11804 to assemble the type `Bind<Argument>' that can't
11805 be fully created right now, because
11806 `Internal<Template>' not being complete, the Bind
11807 template cannot be looked up in that context. So
11808 we need to "store" `Bind<Argument>' for later
11809 when the context of Bind becomes complete. Let's
11810 store that in a TYPENAME_TYPE. */
11811 return make_typename_type (TYPE_CONTEXT (arg),
11812 build_nt (TEMPLATE_ID_EXPR,
11813 TYPE_IDENTIFIER (arg),
11814 argvec),
11815 typename_type,
11816 complain);
11818 /* We can get a TEMPLATE_TEMPLATE_PARM here when we
11819 are resolving nested-types in the signature of a
11820 member function templates. Otherwise ARG is a
11821 TEMPLATE_DECL and is the real template to be
11822 instantiated. */
11823 if (TREE_CODE (arg) == TEMPLATE_TEMPLATE_PARM)
11824 arg = TYPE_NAME (arg);
11826 r = lookup_template_class (arg,
11827 argvec, in_decl,
11828 DECL_CONTEXT (arg),
11829 /*entering_scope=*/0,
11830 complain);
11831 return cp_build_qualified_type_real
11832 (r, cp_type_quals (t) | cp_type_quals (r), complain);
11834 else
11835 /* TEMPLATE_TEMPLATE_PARM or TEMPLATE_PARM_INDEX. */
11836 return convert_from_reference (unshare_expr (arg));
11839 if (level == 1)
11840 /* This can happen during the attempted tsubst'ing in
11841 unify. This means that we don't yet have any information
11842 about the template parameter in question. */
11843 return t;
11845 /* Early in template argument deduction substitution, we don't
11846 want to reduce the level of 'auto', or it will be confused
11847 with a normal template parm in subsequent deduction. */
11848 if (is_auto (t) && (complain & tf_partial))
11849 return t;
11851 /* If we get here, we must have been looking at a parm for a
11852 more deeply nested template. Make a new version of this
11853 template parameter, but with a lower level. */
11854 switch (code)
11856 case TEMPLATE_TYPE_PARM:
11857 case TEMPLATE_TEMPLATE_PARM:
11858 case BOUND_TEMPLATE_TEMPLATE_PARM:
11859 if (cp_type_quals (t))
11861 r = tsubst (TYPE_MAIN_VARIANT (t), args, complain, in_decl);
11862 r = cp_build_qualified_type_real
11863 (r, cp_type_quals (t),
11864 complain | (code == TEMPLATE_TYPE_PARM
11865 ? tf_ignore_bad_quals : 0));
11867 else
11869 r = copy_type (t);
11870 TEMPLATE_TYPE_PARM_INDEX (r)
11871 = reduce_template_parm_level (TEMPLATE_TYPE_PARM_INDEX (t),
11872 r, levels, args, complain);
11873 TYPE_STUB_DECL (r) = TYPE_NAME (r) = TEMPLATE_TYPE_DECL (r);
11874 TYPE_MAIN_VARIANT (r) = r;
11875 TYPE_POINTER_TO (r) = NULL_TREE;
11876 TYPE_REFERENCE_TO (r) = NULL_TREE;
11878 if (TREE_CODE (r) == TEMPLATE_TEMPLATE_PARM)
11879 /* We have reduced the level of the template
11880 template parameter, but not the levels of its
11881 template parameters, so canonical_type_parameter
11882 will not be able to find the canonical template
11883 template parameter for this level. Thus, we
11884 require structural equality checking to compare
11885 TEMPLATE_TEMPLATE_PARMs. */
11886 SET_TYPE_STRUCTURAL_EQUALITY (r);
11887 else if (TYPE_STRUCTURAL_EQUALITY_P (t))
11888 SET_TYPE_STRUCTURAL_EQUALITY (r);
11889 else
11890 TYPE_CANONICAL (r) = canonical_type_parameter (r);
11892 if (code == BOUND_TEMPLATE_TEMPLATE_PARM)
11894 tree argvec = tsubst (TYPE_TI_ARGS (t), args,
11895 complain, in_decl);
11896 if (argvec == error_mark_node)
11897 return error_mark_node;
11899 TEMPLATE_TEMPLATE_PARM_TEMPLATE_INFO (r)
11900 = build_template_info (TYPE_TI_TEMPLATE (t), argvec);
11903 break;
11905 case TEMPLATE_PARM_INDEX:
11906 r = reduce_template_parm_level (t, type, levels, args, complain);
11907 break;
11909 default:
11910 gcc_unreachable ();
11913 return r;
11916 case TREE_LIST:
11918 tree purpose, value, chain;
11920 if (t == void_list_node)
11921 return t;
11923 purpose = TREE_PURPOSE (t);
11924 if (purpose)
11926 purpose = tsubst (purpose, args, complain, in_decl);
11927 if (purpose == error_mark_node)
11928 return error_mark_node;
11930 value = TREE_VALUE (t);
11931 if (value)
11933 value = tsubst (value, args, complain, in_decl);
11934 if (value == error_mark_node)
11935 return error_mark_node;
11937 chain = TREE_CHAIN (t);
11938 if (chain && chain != void_type_node)
11940 chain = tsubst (chain, args, complain, in_decl);
11941 if (chain == error_mark_node)
11942 return error_mark_node;
11944 if (purpose == TREE_PURPOSE (t)
11945 && value == TREE_VALUE (t)
11946 && chain == TREE_CHAIN (t))
11947 return t;
11948 return hash_tree_cons (purpose, value, chain);
11951 case TREE_BINFO:
11952 /* We should never be tsubsting a binfo. */
11953 gcc_unreachable ();
11955 case TREE_VEC:
11956 /* A vector of template arguments. */
11957 gcc_assert (!type);
11958 return tsubst_template_args (t, args, complain, in_decl);
11960 case POINTER_TYPE:
11961 case REFERENCE_TYPE:
11963 if (type == TREE_TYPE (t) && TREE_CODE (type) != METHOD_TYPE)
11964 return t;
11966 /* [temp.deduct]
11968 Type deduction may fail for any of the following
11969 reasons:
11971 -- Attempting to create a pointer to reference type.
11972 -- Attempting to create a reference to a reference type or
11973 a reference to void.
11975 Core issue 106 says that creating a reference to a reference
11976 during instantiation is no longer a cause for failure. We
11977 only enforce this check in strict C++98 mode. */
11978 if ((TREE_CODE (type) == REFERENCE_TYPE
11979 && (((cxx_dialect == cxx98) && flag_iso) || code != REFERENCE_TYPE))
11980 || (code == REFERENCE_TYPE && VOID_TYPE_P (type)))
11982 static location_t last_loc;
11984 /* We keep track of the last time we issued this error
11985 message to avoid spewing a ton of messages during a
11986 single bad template instantiation. */
11987 if (complain & tf_error
11988 && last_loc != input_location)
11990 if (VOID_TYPE_P (type))
11991 error ("forming reference to void");
11992 else if (code == POINTER_TYPE)
11993 error ("forming pointer to reference type %qT", type);
11994 else
11995 error ("forming reference to reference type %qT", type);
11996 last_loc = input_location;
11999 return error_mark_node;
12001 else if (TREE_CODE (type) == FUNCTION_TYPE
12002 && (type_memfn_quals (type) != TYPE_UNQUALIFIED
12003 || type_memfn_rqual (type) != REF_QUAL_NONE))
12005 if (complain & tf_error)
12007 if (code == POINTER_TYPE)
12008 error ("forming pointer to qualified function type %qT",
12009 type);
12010 else
12011 error ("forming reference to qualified function type %qT",
12012 type);
12014 return error_mark_node;
12016 else if (code == POINTER_TYPE)
12018 r = build_pointer_type (type);
12019 if (TREE_CODE (type) == METHOD_TYPE)
12020 r = build_ptrmemfunc_type (r);
12022 else if (TREE_CODE (type) == REFERENCE_TYPE)
12023 /* In C++0x, during template argument substitution, when there is an
12024 attempt to create a reference to a reference type, reference
12025 collapsing is applied as described in [14.3.1/4 temp.arg.type]:
12027 "If a template-argument for a template-parameter T names a type
12028 that is a reference to a type A, an attempt to create the type
12029 'lvalue reference to cv T' creates the type 'lvalue reference to
12030 A,' while an attempt to create the type type rvalue reference to
12031 cv T' creates the type T"
12033 r = cp_build_reference_type
12034 (TREE_TYPE (type),
12035 TYPE_REF_IS_RVALUE (t) && TYPE_REF_IS_RVALUE (type));
12036 else
12037 r = cp_build_reference_type (type, TYPE_REF_IS_RVALUE (t));
12038 r = cp_build_qualified_type_real (r, cp_type_quals (t), complain);
12040 if (cxx_dialect >= cxx1y
12041 && !(TREE_CODE (t) == REFERENCE_TYPE && REFERENCE_VLA_OK (t))
12042 && array_of_runtime_bound_p (type)
12043 && (flag_iso || warn_vla > 0))
12045 if (complain & tf_warning_or_error)
12046 pedwarn
12047 (input_location, OPT_Wvla,
12048 code == REFERENCE_TYPE
12049 ? G_("cannot declare reference to array of runtime bound")
12050 : G_("cannot declare pointer to array of runtime bound"));
12051 else
12052 r = error_mark_node;
12055 if (r != error_mark_node)
12056 /* Will this ever be needed for TYPE_..._TO values? */
12057 layout_type (r);
12059 return r;
12061 case OFFSET_TYPE:
12063 r = tsubst (TYPE_OFFSET_BASETYPE (t), args, complain, in_decl);
12064 if (r == error_mark_node || !MAYBE_CLASS_TYPE_P (r))
12066 /* [temp.deduct]
12068 Type deduction may fail for any of the following
12069 reasons:
12071 -- Attempting to create "pointer to member of T" when T
12072 is not a class type. */
12073 if (complain & tf_error)
12074 error ("creating pointer to member of non-class type %qT", r);
12075 return error_mark_node;
12077 if (TREE_CODE (type) == REFERENCE_TYPE)
12079 if (complain & tf_error)
12080 error ("creating pointer to member reference type %qT", type);
12081 return error_mark_node;
12083 if (VOID_TYPE_P (type))
12085 if (complain & tf_error)
12086 error ("creating pointer to member of type void");
12087 return error_mark_node;
12089 gcc_assert (TREE_CODE (type) != METHOD_TYPE);
12090 if (TREE_CODE (type) == FUNCTION_TYPE)
12092 /* The type of the implicit object parameter gets its
12093 cv-qualifiers from the FUNCTION_TYPE. */
12094 tree memptr;
12095 tree method_type
12096 = build_memfn_type (type, r, type_memfn_quals (type),
12097 type_memfn_rqual (type));
12098 memptr = build_ptrmemfunc_type (build_pointer_type (method_type));
12099 return cp_build_qualified_type_real (memptr, cp_type_quals (t),
12100 complain);
12102 else
12103 return cp_build_qualified_type_real (build_ptrmem_type (r, type),
12104 cp_type_quals (t),
12105 complain);
12107 case FUNCTION_TYPE:
12108 case METHOD_TYPE:
12110 tree fntype;
12111 tree specs;
12112 fntype = tsubst_function_type (t, args, complain, in_decl);
12113 if (fntype == error_mark_node)
12114 return error_mark_node;
12116 /* Substitute the exception specification. */
12117 specs = tsubst_exception_specification (t, args, complain,
12118 in_decl, /*defer_ok*/true);
12119 if (specs == error_mark_node)
12120 return error_mark_node;
12121 if (specs)
12122 fntype = build_exception_variant (fntype, specs);
12123 return fntype;
12125 case ARRAY_TYPE:
12127 tree domain = tsubst (TYPE_DOMAIN (t), args, complain, in_decl);
12128 if (domain == error_mark_node)
12129 return error_mark_node;
12131 /* As an optimization, we avoid regenerating the array type if
12132 it will obviously be the same as T. */
12133 if (type == TREE_TYPE (t) && domain == TYPE_DOMAIN (t))
12134 return t;
12136 /* These checks should match the ones in create_array_type_for_decl.
12138 [temp.deduct]
12140 The deduction may fail for any of the following reasons:
12142 -- Attempting to create an array with an element type that
12143 is void, a function type, or a reference type, or [DR337]
12144 an abstract class type. */
12145 if (VOID_TYPE_P (type)
12146 || TREE_CODE (type) == FUNCTION_TYPE
12147 || (TREE_CODE (type) == ARRAY_TYPE
12148 && TYPE_DOMAIN (type) == NULL_TREE)
12149 || TREE_CODE (type) == REFERENCE_TYPE)
12151 if (complain & tf_error)
12152 error ("creating array of %qT", type);
12153 return error_mark_node;
12156 if (abstract_virtuals_error_sfinae (ACU_ARRAY, type, complain))
12157 return error_mark_node;
12159 r = build_cplus_array_type (type, domain);
12161 if (TYPE_USER_ALIGN (t))
12163 TYPE_ALIGN (r) = TYPE_ALIGN (t);
12164 TYPE_USER_ALIGN (r) = 1;
12167 return r;
12170 case TYPENAME_TYPE:
12172 tree ctx = tsubst_aggr_type (TYPE_CONTEXT (t), args, complain,
12173 in_decl, /*entering_scope=*/1);
12174 tree f = tsubst_copy (TYPENAME_TYPE_FULLNAME (t), args,
12175 complain, in_decl);
12177 if (ctx == error_mark_node || f == error_mark_node)
12178 return error_mark_node;
12180 if (!MAYBE_CLASS_TYPE_P (ctx))
12182 if (complain & tf_error)
12183 error ("%qT is not a class, struct, or union type", ctx);
12184 return error_mark_node;
12186 else if (!uses_template_parms (ctx) && !TYPE_BEING_DEFINED (ctx))
12188 /* Normally, make_typename_type does not require that the CTX
12189 have complete type in order to allow things like:
12191 template <class T> struct S { typename S<T>::X Y; };
12193 But, such constructs have already been resolved by this
12194 point, so here CTX really should have complete type, unless
12195 it's a partial instantiation. */
12196 ctx = complete_type (ctx);
12197 if (!COMPLETE_TYPE_P (ctx))
12199 if (complain & tf_error)
12200 cxx_incomplete_type_error (NULL_TREE, ctx);
12201 return error_mark_node;
12205 f = make_typename_type (ctx, f, typename_type,
12206 complain | tf_keep_type_decl);
12207 if (f == error_mark_node)
12208 return f;
12209 if (TREE_CODE (f) == TYPE_DECL)
12211 complain |= tf_ignore_bad_quals;
12212 f = TREE_TYPE (f);
12215 if (TREE_CODE (f) != TYPENAME_TYPE)
12217 if (TYPENAME_IS_ENUM_P (t) && TREE_CODE (f) != ENUMERAL_TYPE)
12219 if (complain & tf_error)
12220 error ("%qT resolves to %qT, which is not an enumeration type",
12221 t, f);
12222 else
12223 return error_mark_node;
12225 else if (TYPENAME_IS_CLASS_P (t) && !CLASS_TYPE_P (f))
12227 if (complain & tf_error)
12228 error ("%qT resolves to %qT, which is is not a class type",
12229 t, f);
12230 else
12231 return error_mark_node;
12235 return cp_build_qualified_type_real
12236 (f, cp_type_quals (f) | cp_type_quals (t), complain);
12239 case UNBOUND_CLASS_TEMPLATE:
12241 tree ctx = tsubst_aggr_type (TYPE_CONTEXT (t), args, complain,
12242 in_decl, /*entering_scope=*/1);
12243 tree name = TYPE_IDENTIFIER (t);
12244 tree parm_list = DECL_TEMPLATE_PARMS (TYPE_NAME (t));
12246 if (ctx == error_mark_node || name == error_mark_node)
12247 return error_mark_node;
12249 if (parm_list)
12250 parm_list = tsubst_template_parms (parm_list, args, complain);
12251 return make_unbound_class_template (ctx, name, parm_list, complain);
12254 case TYPEOF_TYPE:
12256 tree type;
12258 ++cp_unevaluated_operand;
12259 ++c_inhibit_evaluation_warnings;
12261 type = tsubst_expr (TYPEOF_TYPE_EXPR (t), args,
12262 complain, in_decl,
12263 /*integral_constant_expression_p=*/false);
12265 --cp_unevaluated_operand;
12266 --c_inhibit_evaluation_warnings;
12268 type = finish_typeof (type);
12269 return cp_build_qualified_type_real (type,
12270 cp_type_quals (t)
12271 | cp_type_quals (type),
12272 complain);
12275 case DECLTYPE_TYPE:
12277 tree type;
12279 ++cp_unevaluated_operand;
12280 ++c_inhibit_evaluation_warnings;
12282 type = tsubst_copy_and_build (DECLTYPE_TYPE_EXPR (t), args,
12283 complain|tf_decltype, in_decl,
12284 /*function_p*/false,
12285 /*integral_constant_expression*/false);
12287 --cp_unevaluated_operand;
12288 --c_inhibit_evaluation_warnings;
12290 if (DECLTYPE_FOR_LAMBDA_CAPTURE (t))
12291 type = lambda_capture_field_type (type,
12292 DECLTYPE_FOR_INIT_CAPTURE (t));
12293 else if (DECLTYPE_FOR_LAMBDA_PROXY (t))
12294 type = lambda_proxy_type (type);
12295 else
12297 bool id = DECLTYPE_TYPE_ID_EXPR_OR_MEMBER_ACCESS_P (t);
12298 if (id && TREE_CODE (DECLTYPE_TYPE_EXPR (t)) == BIT_NOT_EXPR
12299 && EXPR_P (type))
12300 /* In a template ~id could be either a complement expression
12301 or an unqualified-id naming a destructor; if instantiating
12302 it produces an expression, it's not an id-expression or
12303 member access. */
12304 id = false;
12305 type = finish_decltype_type (type, id, complain);
12307 return cp_build_qualified_type_real (type,
12308 cp_type_quals (t)
12309 | cp_type_quals (type),
12310 complain);
12313 case UNDERLYING_TYPE:
12315 tree type = tsubst (UNDERLYING_TYPE_TYPE (t), args,
12316 complain, in_decl);
12317 return finish_underlying_type (type);
12320 case TYPE_ARGUMENT_PACK:
12321 case NONTYPE_ARGUMENT_PACK:
12323 tree r = TYPE_P (t) ? cxx_make_type (code) : make_node (code);
12324 tree packed_out =
12325 tsubst_template_args (ARGUMENT_PACK_ARGS (t),
12326 args,
12327 complain,
12328 in_decl);
12329 SET_ARGUMENT_PACK_ARGS (r, packed_out);
12331 /* For template nontype argument packs, also substitute into
12332 the type. */
12333 if (code == NONTYPE_ARGUMENT_PACK)
12334 TREE_TYPE (r) = tsubst (TREE_TYPE (t), args, complain, in_decl);
12336 return r;
12338 break;
12340 case VOID_CST:
12341 case INTEGER_CST:
12342 case REAL_CST:
12343 case STRING_CST:
12344 case PLUS_EXPR:
12345 case MINUS_EXPR:
12346 case NEGATE_EXPR:
12347 case NOP_EXPR:
12348 case INDIRECT_REF:
12349 case ADDR_EXPR:
12350 case CALL_EXPR:
12351 case ARRAY_REF:
12352 case SCOPE_REF:
12353 /* We should use one of the expression tsubsts for these codes. */
12354 gcc_unreachable ();
12356 default:
12357 sorry ("use of %qs in template", get_tree_code_name (code));
12358 return error_mark_node;
12362 /* Like tsubst_expr for a BASELINK. OBJECT_TYPE, if non-NULL, is the
12363 type of the expression on the left-hand side of the "." or "->"
12364 operator. */
12366 static tree
12367 tsubst_baselink (tree baselink, tree object_type,
12368 tree args, tsubst_flags_t complain, tree in_decl)
12370 tree name;
12371 tree qualifying_scope;
12372 tree fns;
12373 tree optype;
12374 tree template_args = 0;
12375 bool template_id_p = false;
12376 bool qualified = BASELINK_QUALIFIED_P (baselink);
12378 /* A baselink indicates a function from a base class. Both the
12379 BASELINK_ACCESS_BINFO and the base class referenced may
12380 indicate bases of the template class, rather than the
12381 instantiated class. In addition, lookups that were not
12382 ambiguous before may be ambiguous now. Therefore, we perform
12383 the lookup again. */
12384 qualifying_scope = BINFO_TYPE (BASELINK_ACCESS_BINFO (baselink));
12385 qualifying_scope = tsubst (qualifying_scope, args,
12386 complain, in_decl);
12387 fns = BASELINK_FUNCTIONS (baselink);
12388 optype = tsubst (BASELINK_OPTYPE (baselink), args, complain, in_decl);
12389 if (TREE_CODE (fns) == TEMPLATE_ID_EXPR)
12391 template_id_p = true;
12392 template_args = TREE_OPERAND (fns, 1);
12393 fns = TREE_OPERAND (fns, 0);
12394 if (template_args)
12395 template_args = tsubst_template_args (template_args, args,
12396 complain, in_decl);
12398 name = DECL_NAME (get_first_fn (fns));
12399 if (IDENTIFIER_TYPENAME_P (name))
12400 name = mangle_conv_op_name_for_type (optype);
12401 baselink = lookup_fnfields (qualifying_scope, name, /*protect=*/1);
12402 if (!baselink)
12403 return error_mark_node;
12405 /* If lookup found a single function, mark it as used at this
12406 point. (If it lookup found multiple functions the one selected
12407 later by overload resolution will be marked as used at that
12408 point.) */
12409 if (BASELINK_P (baselink))
12410 fns = BASELINK_FUNCTIONS (baselink);
12411 if (!template_id_p && !really_overloaded_fn (fns))
12412 mark_used (OVL_CURRENT (fns));
12414 /* Add back the template arguments, if present. */
12415 if (BASELINK_P (baselink) && template_id_p)
12416 BASELINK_FUNCTIONS (baselink)
12417 = build_nt (TEMPLATE_ID_EXPR,
12418 BASELINK_FUNCTIONS (baselink),
12419 template_args);
12420 /* Update the conversion operator type. */
12421 BASELINK_OPTYPE (baselink) = optype;
12423 if (!object_type)
12424 object_type = current_class_type;
12426 if (qualified)
12427 baselink = adjust_result_of_qualified_name_lookup (baselink,
12428 qualifying_scope,
12429 object_type);
12430 return baselink;
12433 /* Like tsubst_expr for a SCOPE_REF, given by QUALIFIED_ID. DONE is
12434 true if the qualified-id will be a postfix-expression in-and-of
12435 itself; false if more of the postfix-expression follows the
12436 QUALIFIED_ID. ADDRESS_P is true if the qualified-id is the operand
12437 of "&". */
12439 static tree
12440 tsubst_qualified_id (tree qualified_id, tree args,
12441 tsubst_flags_t complain, tree in_decl,
12442 bool done, bool address_p)
12444 tree expr;
12445 tree scope;
12446 tree name;
12447 bool is_template;
12448 tree template_args;
12449 location_t loc = UNKNOWN_LOCATION;
12451 gcc_assert (TREE_CODE (qualified_id) == SCOPE_REF);
12453 /* Figure out what name to look up. */
12454 name = TREE_OPERAND (qualified_id, 1);
12455 if (TREE_CODE (name) == TEMPLATE_ID_EXPR)
12457 is_template = true;
12458 loc = EXPR_LOCATION (name);
12459 template_args = TREE_OPERAND (name, 1);
12460 if (template_args)
12461 template_args = tsubst_template_args (template_args, args,
12462 complain, in_decl);
12463 name = TREE_OPERAND (name, 0);
12465 else
12467 is_template = false;
12468 template_args = NULL_TREE;
12471 /* Substitute into the qualifying scope. When there are no ARGS, we
12472 are just trying to simplify a non-dependent expression. In that
12473 case the qualifying scope may be dependent, and, in any case,
12474 substituting will not help. */
12475 scope = TREE_OPERAND (qualified_id, 0);
12476 if (args)
12478 scope = tsubst (scope, args, complain, in_decl);
12479 expr = tsubst_copy (name, args, complain, in_decl);
12481 else
12482 expr = name;
12484 if (dependent_scope_p (scope))
12486 if (is_template)
12487 expr = build_min_nt_loc (loc, TEMPLATE_ID_EXPR, expr, template_args);
12488 return build_qualified_name (NULL_TREE, scope, expr,
12489 QUALIFIED_NAME_IS_TEMPLATE (qualified_id));
12492 if (!BASELINK_P (name) && !DECL_P (expr))
12494 if (TREE_CODE (expr) == BIT_NOT_EXPR)
12496 /* A BIT_NOT_EXPR is used to represent a destructor. */
12497 if (!check_dtor_name (scope, TREE_OPERAND (expr, 0)))
12499 error ("qualifying type %qT does not match destructor name ~%qT",
12500 scope, TREE_OPERAND (expr, 0));
12501 expr = error_mark_node;
12503 else
12504 expr = lookup_qualified_name (scope, complete_dtor_identifier,
12505 /*is_type_p=*/0, false);
12507 else
12508 expr = lookup_qualified_name (scope, expr, /*is_type_p=*/0, false);
12509 if (TREE_CODE (TREE_CODE (expr) == TEMPLATE_DECL
12510 ? DECL_TEMPLATE_RESULT (expr) : expr) == TYPE_DECL)
12512 if (complain & tf_error)
12514 error ("dependent-name %qE is parsed as a non-type, but "
12515 "instantiation yields a type", qualified_id);
12516 inform (input_location, "say %<typename %E%> if a type is meant", qualified_id);
12518 return error_mark_node;
12522 if (DECL_P (expr))
12524 check_accessibility_of_qualified_id (expr, /*object_type=*/NULL_TREE,
12525 scope);
12526 /* Remember that there was a reference to this entity. */
12527 mark_used (expr);
12530 if (expr == error_mark_node || TREE_CODE (expr) == TREE_LIST)
12532 if (complain & tf_error)
12533 qualified_name_lookup_error (scope,
12534 TREE_OPERAND (qualified_id, 1),
12535 expr, input_location);
12536 return error_mark_node;
12539 if (is_template)
12540 expr = lookup_template_function (expr, template_args);
12542 if (expr == error_mark_node && complain & tf_error)
12543 qualified_name_lookup_error (scope, TREE_OPERAND (qualified_id, 1),
12544 expr, input_location);
12545 else if (TYPE_P (scope))
12547 expr = (adjust_result_of_qualified_name_lookup
12548 (expr, scope, current_nonlambda_class_type ()));
12549 expr = (finish_qualified_id_expr
12550 (scope, expr, done, address_p && PTRMEM_OK_P (qualified_id),
12551 QUALIFIED_NAME_IS_TEMPLATE (qualified_id),
12552 /*template_arg_p=*/false, complain));
12555 /* Expressions do not generally have reference type. */
12556 if (TREE_CODE (expr) != SCOPE_REF
12557 /* However, if we're about to form a pointer-to-member, we just
12558 want the referenced member referenced. */
12559 && TREE_CODE (expr) != OFFSET_REF)
12560 expr = convert_from_reference (expr);
12562 return expr;
12565 /* tsubst the initializer for a VAR_DECL. INIT is the unsubstituted
12566 initializer, DECL is the substituted VAR_DECL. Other arguments are as
12567 for tsubst. */
12569 static tree
12570 tsubst_init (tree init, tree decl, tree args,
12571 tsubst_flags_t complain, tree in_decl)
12573 if (!init)
12574 return NULL_TREE;
12576 init = tsubst_expr (init, args, complain, in_decl, false);
12578 if (!init)
12580 /* If we had an initializer but it
12581 instantiated to nothing,
12582 value-initialize the object. This will
12583 only occur when the initializer was a
12584 pack expansion where the parameter packs
12585 used in that expansion were of length
12586 zero. */
12587 init = build_value_init (TREE_TYPE (decl),
12588 complain);
12589 if (TREE_CODE (init) == AGGR_INIT_EXPR)
12590 init = get_target_expr_sfinae (init, complain);
12593 return init;
12596 /* Like tsubst, but deals with expressions. This function just replaces
12597 template parms; to finish processing the resultant expression, use
12598 tsubst_copy_and_build or tsubst_expr. */
12600 static tree
12601 tsubst_copy (tree t, tree args, tsubst_flags_t complain, tree in_decl)
12603 enum tree_code code;
12604 tree r;
12606 if (t == NULL_TREE || t == error_mark_node || args == NULL_TREE)
12607 return t;
12609 code = TREE_CODE (t);
12611 switch (code)
12613 case PARM_DECL:
12614 r = retrieve_local_specialization (t);
12616 if (r == NULL_TREE)
12618 /* We get here for a use of 'this' in an NSDMI. */
12619 if (DECL_NAME (t) == this_identifier
12620 && current_function_decl
12621 && DECL_CONSTRUCTOR_P (current_function_decl))
12622 return current_class_ptr;
12624 /* This can happen for a parameter name used later in a function
12625 declaration (such as in a late-specified return type). Just
12626 make a dummy decl, since it's only used for its type. */
12627 gcc_assert (cp_unevaluated_operand != 0);
12628 r = tsubst_decl (t, args, complain);
12629 /* Give it the template pattern as its context; its true context
12630 hasn't been instantiated yet and this is good enough for
12631 mangling. */
12632 DECL_CONTEXT (r) = DECL_CONTEXT (t);
12635 if (TREE_CODE (r) == ARGUMENT_PACK_SELECT)
12636 r = ARGUMENT_PACK_SELECT_ARG (r);
12637 mark_used (r);
12638 return r;
12640 case CONST_DECL:
12642 tree enum_type;
12643 tree v;
12645 if (DECL_TEMPLATE_PARM_P (t))
12646 return tsubst_copy (DECL_INITIAL (t), args, complain, in_decl);
12647 /* There is no need to substitute into namespace-scope
12648 enumerators. */
12649 if (DECL_NAMESPACE_SCOPE_P (t))
12650 return t;
12651 /* If ARGS is NULL, then T is known to be non-dependent. */
12652 if (args == NULL_TREE)
12653 return integral_constant_value (t);
12655 /* Unfortunately, we cannot just call lookup_name here.
12656 Consider:
12658 template <int I> int f() {
12659 enum E { a = I };
12660 struct S { void g() { E e = a; } };
12663 When we instantiate f<7>::S::g(), say, lookup_name is not
12664 clever enough to find f<7>::a. */
12665 enum_type
12666 = tsubst_aggr_type (DECL_CONTEXT (t), args, complain, in_decl,
12667 /*entering_scope=*/0);
12669 for (v = TYPE_VALUES (enum_type);
12670 v != NULL_TREE;
12671 v = TREE_CHAIN (v))
12672 if (TREE_PURPOSE (v) == DECL_NAME (t))
12673 return TREE_VALUE (v);
12675 /* We didn't find the name. That should never happen; if
12676 name-lookup found it during preliminary parsing, we
12677 should find it again here during instantiation. */
12678 gcc_unreachable ();
12680 return t;
12682 case FIELD_DECL:
12683 if (PACK_EXPANSION_P (TREE_TYPE (t)))
12685 /* Check for a local specialization set up by
12686 tsubst_pack_expansion. */
12687 if (tree r = retrieve_local_specialization (t))
12689 if (TREE_CODE (r) == ARGUMENT_PACK_SELECT)
12690 r = ARGUMENT_PACK_SELECT_ARG (r);
12691 return r;
12694 /* When retrieving a capture pack from a generic lambda, remove the
12695 lambda call op's own template argument list from ARGS. Only the
12696 template arguments active for the closure type should be used to
12697 retrieve the pack specialization. */
12698 if (LAMBDA_FUNCTION_P (current_function_decl)
12699 && (template_class_depth (DECL_CONTEXT (t))
12700 != TMPL_ARGS_DEPTH (args)))
12701 args = strip_innermost_template_args (args, 1);
12703 /* Otherwise return the full NONTYPE_ARGUMENT_PACK that
12704 tsubst_decl put in the hash table. */
12705 return retrieve_specialization (t, args, 0);
12708 if (DECL_CONTEXT (t))
12710 tree ctx;
12712 ctx = tsubst_aggr_type (DECL_CONTEXT (t), args, complain, in_decl,
12713 /*entering_scope=*/1);
12714 if (ctx != DECL_CONTEXT (t))
12716 tree r = lookup_field (ctx, DECL_NAME (t), 0, false);
12717 if (!r)
12719 if (complain & tf_error)
12720 error ("using invalid field %qD", t);
12721 return error_mark_node;
12723 return r;
12727 return t;
12729 case VAR_DECL:
12730 case FUNCTION_DECL:
12731 if (DECL_LANG_SPECIFIC (t) && DECL_TEMPLATE_INFO (t))
12732 r = tsubst (t, args, complain, in_decl);
12733 else if (local_variable_p (t))
12735 r = retrieve_local_specialization (t);
12736 if (r == NULL_TREE)
12738 /* First try name lookup to find the instantiation. */
12739 r = lookup_name (DECL_NAME (t));
12740 if (r)
12742 /* Make sure that the one we found is the one we want. */
12743 tree ctx = tsubst (DECL_CONTEXT (t), args,
12744 complain, in_decl);
12745 if (ctx != DECL_CONTEXT (r))
12746 r = NULL_TREE;
12749 if (r)
12750 /* OK */;
12751 else
12753 /* This can happen for a variable used in a
12754 late-specified return type of a local lambda, or for a
12755 local static or constant. Building a new VAR_DECL
12756 should be OK in all those cases. */
12757 r = tsubst_decl (t, args, complain);
12758 if (decl_maybe_constant_var_p (r))
12760 /* We can't call cp_finish_decl, so handle the
12761 initializer by hand. */
12762 tree init = tsubst_init (DECL_INITIAL (t), r, args,
12763 complain, in_decl);
12764 if (!processing_template_decl)
12765 init = maybe_constant_init (init);
12766 if (processing_template_decl
12767 ? potential_constant_expression (init)
12768 : reduced_constant_expression_p (init))
12769 DECL_INITIALIZED_BY_CONSTANT_EXPRESSION_P (r)
12770 = TREE_CONSTANT (r) = true;
12771 DECL_INITIAL (r) = init;
12773 gcc_assert (cp_unevaluated_operand || TREE_STATIC (r)
12774 || decl_constant_var_p (r)
12775 || errorcount || sorrycount);
12776 if (!processing_template_decl)
12778 if (TREE_STATIC (r))
12779 rest_of_decl_compilation (r, toplevel_bindings_p (),
12780 at_eof);
12781 else if (decl_constant_var_p (r))
12782 /* A use of a local constant decays to its value.
12783 FIXME update for core DR 696. */
12784 r = integral_constant_value (r);
12787 /* Remember this for subsequent uses. */
12788 if (local_specializations)
12789 register_local_specialization (r, t);
12792 else
12793 r = t;
12794 mark_used (r);
12795 return r;
12797 case NAMESPACE_DECL:
12798 return t;
12800 case OVERLOAD:
12801 /* An OVERLOAD will always be a non-dependent overload set; an
12802 overload set from function scope will just be represented with an
12803 IDENTIFIER_NODE, and from class scope with a BASELINK. */
12804 gcc_assert (!uses_template_parms (t));
12805 return t;
12807 case BASELINK:
12808 return tsubst_baselink (t, current_nonlambda_class_type (),
12809 args, complain, in_decl);
12811 case TEMPLATE_DECL:
12812 if (DECL_TEMPLATE_TEMPLATE_PARM_P (t))
12813 return tsubst (TREE_TYPE (DECL_TEMPLATE_RESULT (t)),
12814 args, complain, in_decl);
12815 else if (DECL_FUNCTION_TEMPLATE_P (t) && DECL_MEMBER_TEMPLATE_P (t))
12816 return tsubst (t, args, complain, in_decl);
12817 else if (DECL_CLASS_SCOPE_P (t)
12818 && uses_template_parms (DECL_CONTEXT (t)))
12820 /* Template template argument like the following example need
12821 special treatment:
12823 template <template <class> class TT> struct C {};
12824 template <class T> struct D {
12825 template <class U> struct E {};
12826 C<E> c; // #1
12828 D<int> d; // #2
12830 We are processing the template argument `E' in #1 for
12831 the template instantiation #2. Originally, `E' is a
12832 TEMPLATE_DECL with `D<T>' as its DECL_CONTEXT. Now we
12833 have to substitute this with one having context `D<int>'. */
12835 tree context = tsubst (DECL_CONTEXT (t), args, complain, in_decl);
12836 return lookup_field (context, DECL_NAME(t), 0, false);
12838 else
12839 /* Ordinary template template argument. */
12840 return t;
12842 case CAST_EXPR:
12843 case REINTERPRET_CAST_EXPR:
12844 case CONST_CAST_EXPR:
12845 case STATIC_CAST_EXPR:
12846 case DYNAMIC_CAST_EXPR:
12847 case IMPLICIT_CONV_EXPR:
12848 case CONVERT_EXPR:
12849 case NOP_EXPR:
12851 tree type = tsubst (TREE_TYPE (t), args, complain, in_decl);
12852 tree op0 = tsubst_copy (TREE_OPERAND (t, 0), args, complain, in_decl);
12853 return build1 (code, type, op0);
12856 case SIZEOF_EXPR:
12857 if (PACK_EXPANSION_P (TREE_OPERAND (t, 0)))
12860 tree expanded, op = TREE_OPERAND (t, 0);
12861 int len = 0;
12863 if (SIZEOF_EXPR_TYPE_P (t))
12864 op = TREE_TYPE (op);
12866 ++cp_unevaluated_operand;
12867 ++c_inhibit_evaluation_warnings;
12868 /* We only want to compute the number of arguments. */
12869 expanded = tsubst_pack_expansion (op, args, complain, in_decl);
12870 --cp_unevaluated_operand;
12871 --c_inhibit_evaluation_warnings;
12873 if (TREE_CODE (expanded) == TREE_VEC)
12874 len = TREE_VEC_LENGTH (expanded);
12876 if (expanded == error_mark_node)
12877 return error_mark_node;
12878 else if (PACK_EXPANSION_P (expanded)
12879 || (TREE_CODE (expanded) == TREE_VEC
12880 && len > 0
12881 && PACK_EXPANSION_P (TREE_VEC_ELT (expanded, len-1))))
12883 if (TREE_CODE (expanded) == TREE_VEC)
12884 expanded = TREE_VEC_ELT (expanded, len - 1);
12886 if (TYPE_P (expanded))
12887 return cxx_sizeof_or_alignof_type (expanded, SIZEOF_EXPR,
12888 complain & tf_error);
12889 else
12890 return cxx_sizeof_or_alignof_expr (expanded, SIZEOF_EXPR,
12891 complain & tf_error);
12893 else
12894 return build_int_cst (size_type_node, len);
12896 if (SIZEOF_EXPR_TYPE_P (t))
12898 r = tsubst (TREE_TYPE (TREE_OPERAND (t, 0)),
12899 args, complain, in_decl);
12900 r = build1 (NOP_EXPR, r, error_mark_node);
12901 r = build1 (SIZEOF_EXPR,
12902 tsubst (TREE_TYPE (t), args, complain, in_decl), r);
12903 SIZEOF_EXPR_TYPE_P (r) = 1;
12904 return r;
12906 /* Fall through */
12908 case INDIRECT_REF:
12909 case NEGATE_EXPR:
12910 case TRUTH_NOT_EXPR:
12911 case BIT_NOT_EXPR:
12912 case ADDR_EXPR:
12913 case UNARY_PLUS_EXPR: /* Unary + */
12914 case ALIGNOF_EXPR:
12915 case AT_ENCODE_EXPR:
12916 case ARROW_EXPR:
12917 case THROW_EXPR:
12918 case TYPEID_EXPR:
12919 case REALPART_EXPR:
12920 case IMAGPART_EXPR:
12921 case PAREN_EXPR:
12923 tree type = tsubst (TREE_TYPE (t), args, complain, in_decl);
12924 tree op0 = tsubst_copy (TREE_OPERAND (t, 0), args, complain, in_decl);
12925 return build1 (code, type, op0);
12928 case COMPONENT_REF:
12930 tree object;
12931 tree name;
12933 object = tsubst_copy (TREE_OPERAND (t, 0), args, complain, in_decl);
12934 name = TREE_OPERAND (t, 1);
12935 if (TREE_CODE (name) == BIT_NOT_EXPR)
12937 name = tsubst_copy (TREE_OPERAND (name, 0), args,
12938 complain, in_decl);
12939 name = build1 (BIT_NOT_EXPR, NULL_TREE, name);
12941 else if (TREE_CODE (name) == SCOPE_REF
12942 && TREE_CODE (TREE_OPERAND (name, 1)) == BIT_NOT_EXPR)
12944 tree base = tsubst_copy (TREE_OPERAND (name, 0), args,
12945 complain, in_decl);
12946 name = TREE_OPERAND (name, 1);
12947 name = tsubst_copy (TREE_OPERAND (name, 0), args,
12948 complain, in_decl);
12949 name = build1 (BIT_NOT_EXPR, NULL_TREE, name);
12950 name = build_qualified_name (/*type=*/NULL_TREE,
12951 base, name,
12952 /*template_p=*/false);
12954 else if (BASELINK_P (name))
12955 name = tsubst_baselink (name,
12956 non_reference (TREE_TYPE (object)),
12957 args, complain,
12958 in_decl);
12959 else
12960 name = tsubst_copy (name, args, complain, in_decl);
12961 return build_nt (COMPONENT_REF, object, name, NULL_TREE);
12964 case PLUS_EXPR:
12965 case MINUS_EXPR:
12966 case MULT_EXPR:
12967 case TRUNC_DIV_EXPR:
12968 case CEIL_DIV_EXPR:
12969 case FLOOR_DIV_EXPR:
12970 case ROUND_DIV_EXPR:
12971 case EXACT_DIV_EXPR:
12972 case BIT_AND_EXPR:
12973 case BIT_IOR_EXPR:
12974 case BIT_XOR_EXPR:
12975 case TRUNC_MOD_EXPR:
12976 case FLOOR_MOD_EXPR:
12977 case TRUTH_ANDIF_EXPR:
12978 case TRUTH_ORIF_EXPR:
12979 case TRUTH_AND_EXPR:
12980 case TRUTH_OR_EXPR:
12981 case RSHIFT_EXPR:
12982 case LSHIFT_EXPR:
12983 case RROTATE_EXPR:
12984 case LROTATE_EXPR:
12985 case EQ_EXPR:
12986 case NE_EXPR:
12987 case MAX_EXPR:
12988 case MIN_EXPR:
12989 case LE_EXPR:
12990 case GE_EXPR:
12991 case LT_EXPR:
12992 case GT_EXPR:
12993 case COMPOUND_EXPR:
12994 case DOTSTAR_EXPR:
12995 case MEMBER_REF:
12996 case PREDECREMENT_EXPR:
12997 case PREINCREMENT_EXPR:
12998 case POSTDECREMENT_EXPR:
12999 case POSTINCREMENT_EXPR:
13001 tree op0 = tsubst_copy (TREE_OPERAND (t, 0), args, complain, in_decl);
13002 tree op1 = tsubst_copy (TREE_OPERAND (t, 1), args, complain, in_decl);
13003 return build_nt (code, op0, op1);
13006 case SCOPE_REF:
13008 tree op0 = tsubst_copy (TREE_OPERAND (t, 0), args, complain, in_decl);
13009 tree op1 = tsubst_copy (TREE_OPERAND (t, 1), args, complain, in_decl);
13010 return build_qualified_name (/*type=*/NULL_TREE, op0, op1,
13011 QUALIFIED_NAME_IS_TEMPLATE (t));
13014 case ARRAY_REF:
13016 tree op0 = tsubst_copy (TREE_OPERAND (t, 0), args, complain, in_decl);
13017 tree op1 = tsubst_copy (TREE_OPERAND (t, 1), args, complain, in_decl);
13018 return build_nt (ARRAY_REF, op0, op1, NULL_TREE, NULL_TREE);
13021 case CALL_EXPR:
13023 int n = VL_EXP_OPERAND_LENGTH (t);
13024 tree result = build_vl_exp (CALL_EXPR, n);
13025 int i;
13026 for (i = 0; i < n; i++)
13027 TREE_OPERAND (t, i) = tsubst_copy (TREE_OPERAND (t, i), args,
13028 complain, in_decl);
13029 return result;
13032 case COND_EXPR:
13033 case MODOP_EXPR:
13034 case PSEUDO_DTOR_EXPR:
13035 case VEC_PERM_EXPR:
13037 tree op0 = tsubst_copy (TREE_OPERAND (t, 0), args, complain, in_decl);
13038 tree op1 = tsubst_copy (TREE_OPERAND (t, 1), args, complain, in_decl);
13039 tree op2 = tsubst_copy (TREE_OPERAND (t, 2), args, complain, in_decl);
13040 r = build_nt (code, op0, op1, op2);
13041 TREE_NO_WARNING (r) = TREE_NO_WARNING (t);
13042 return r;
13045 case NEW_EXPR:
13047 tree op0 = tsubst_copy (TREE_OPERAND (t, 0), args, complain, in_decl);
13048 tree op1 = tsubst_copy (TREE_OPERAND (t, 1), args, complain, in_decl);
13049 tree op2 = tsubst_copy (TREE_OPERAND (t, 2), args, complain, in_decl);
13050 r = build_nt (code, op0, op1, op2);
13051 NEW_EXPR_USE_GLOBAL (r) = NEW_EXPR_USE_GLOBAL (t);
13052 return r;
13055 case DELETE_EXPR:
13057 tree op0 = tsubst_copy (TREE_OPERAND (t, 0), args, complain, in_decl);
13058 tree op1 = tsubst_copy (TREE_OPERAND (t, 1), args, complain, in_decl);
13059 r = build_nt (code, op0, op1);
13060 DELETE_EXPR_USE_GLOBAL (r) = DELETE_EXPR_USE_GLOBAL (t);
13061 DELETE_EXPR_USE_VEC (r) = DELETE_EXPR_USE_VEC (t);
13062 return r;
13065 case TEMPLATE_ID_EXPR:
13067 /* Substituted template arguments */
13068 tree fn = TREE_OPERAND (t, 0);
13069 tree targs = TREE_OPERAND (t, 1);
13071 fn = tsubst_copy (fn, args, complain, in_decl);
13072 if (targs)
13073 targs = tsubst_template_args (targs, args, complain, in_decl);
13075 return lookup_template_function (fn, targs);
13078 case TREE_LIST:
13080 tree purpose, value, chain;
13082 if (t == void_list_node)
13083 return t;
13085 purpose = TREE_PURPOSE (t);
13086 if (purpose)
13087 purpose = tsubst_copy (purpose, args, complain, in_decl);
13088 value = TREE_VALUE (t);
13089 if (value)
13090 value = tsubst_copy (value, args, complain, in_decl);
13091 chain = TREE_CHAIN (t);
13092 if (chain && chain != void_type_node)
13093 chain = tsubst_copy (chain, args, complain, in_decl);
13094 if (purpose == TREE_PURPOSE (t)
13095 && value == TREE_VALUE (t)
13096 && chain == TREE_CHAIN (t))
13097 return t;
13098 return tree_cons (purpose, value, chain);
13101 case RECORD_TYPE:
13102 case UNION_TYPE:
13103 case ENUMERAL_TYPE:
13104 case INTEGER_TYPE:
13105 case TEMPLATE_TYPE_PARM:
13106 case TEMPLATE_TEMPLATE_PARM:
13107 case BOUND_TEMPLATE_TEMPLATE_PARM:
13108 case TEMPLATE_PARM_INDEX:
13109 case POINTER_TYPE:
13110 case REFERENCE_TYPE:
13111 case OFFSET_TYPE:
13112 case FUNCTION_TYPE:
13113 case METHOD_TYPE:
13114 case ARRAY_TYPE:
13115 case TYPENAME_TYPE:
13116 case UNBOUND_CLASS_TEMPLATE:
13117 case TYPEOF_TYPE:
13118 case DECLTYPE_TYPE:
13119 case TYPE_DECL:
13120 return tsubst (t, args, complain, in_decl);
13122 case USING_DECL:
13123 t = DECL_NAME (t);
13124 /* Fall through. */
13125 case IDENTIFIER_NODE:
13126 if (IDENTIFIER_TYPENAME_P (t))
13128 tree new_type = tsubst (TREE_TYPE (t), args, complain, in_decl);
13129 return mangle_conv_op_name_for_type (new_type);
13131 else
13132 return t;
13134 case CONSTRUCTOR:
13135 /* This is handled by tsubst_copy_and_build. */
13136 gcc_unreachable ();
13138 case VA_ARG_EXPR:
13140 tree op0 = tsubst_copy (TREE_OPERAND (t, 0), args, complain, in_decl);
13141 tree type = tsubst (TREE_TYPE (t), args, complain, in_decl);
13142 return build_x_va_arg (EXPR_LOCATION (t), op0, type);
13145 case CLEANUP_POINT_EXPR:
13146 /* We shouldn't have built any of these during initial template
13147 generation. Instead, they should be built during instantiation
13148 in response to the saved STMT_IS_FULL_EXPR_P setting. */
13149 gcc_unreachable ();
13151 case OFFSET_REF:
13153 tree type = tsubst (TREE_TYPE (t), args, complain, in_decl);
13154 tree op0 = tsubst_copy (TREE_OPERAND (t, 0), args, complain, in_decl);
13155 tree op1 = tsubst_copy (TREE_OPERAND (t, 1), args, complain, in_decl);
13156 r = build2 (code, type, op0, op1);
13157 PTRMEM_OK_P (r) = PTRMEM_OK_P (t);
13158 mark_used (TREE_OPERAND (r, 1));
13159 return r;
13162 case EXPR_PACK_EXPANSION:
13163 error ("invalid use of pack expansion expression");
13164 return error_mark_node;
13166 case NONTYPE_ARGUMENT_PACK:
13167 error ("use %<...%> to expand argument pack");
13168 return error_mark_node;
13170 case VOID_CST:
13171 gcc_checking_assert (t == void_node && VOID_TYPE_P (TREE_TYPE (t)));
13172 return t;
13174 case INTEGER_CST:
13175 case REAL_CST:
13176 case STRING_CST:
13177 case COMPLEX_CST:
13179 /* Instantiate any typedefs in the type. */
13180 tree type = tsubst (TREE_TYPE (t), args, complain, in_decl);
13181 r = fold_convert (type, t);
13182 gcc_assert (TREE_CODE (r) == code);
13183 return r;
13186 case PTRMEM_CST:
13187 /* These can sometimes show up in a partial instantiation, but never
13188 involve template parms. */
13189 gcc_assert (!uses_template_parms (t));
13190 return t;
13192 default:
13193 /* We shouldn't get here, but keep going if !ENABLE_CHECKING. */
13194 gcc_checking_assert (false);
13195 return t;
13199 /* Like tsubst_copy, but specifically for OpenMP clauses. */
13201 static tree
13202 tsubst_omp_clauses (tree clauses, bool declare_simd,
13203 tree args, tsubst_flags_t complain, tree in_decl)
13205 tree new_clauses = NULL, nc, oc;
13207 for (oc = clauses; oc ; oc = OMP_CLAUSE_CHAIN (oc))
13209 nc = copy_node (oc);
13210 OMP_CLAUSE_CHAIN (nc) = new_clauses;
13211 new_clauses = nc;
13213 switch (OMP_CLAUSE_CODE (nc))
13215 case OMP_CLAUSE_LASTPRIVATE:
13216 if (OMP_CLAUSE_LASTPRIVATE_STMT (oc))
13218 OMP_CLAUSE_LASTPRIVATE_STMT (nc) = push_stmt_list ();
13219 tsubst_expr (OMP_CLAUSE_LASTPRIVATE_STMT (oc), args, complain,
13220 in_decl, /*integral_constant_expression_p=*/false);
13221 OMP_CLAUSE_LASTPRIVATE_STMT (nc)
13222 = pop_stmt_list (OMP_CLAUSE_LASTPRIVATE_STMT (nc));
13224 /* FALLTHRU */
13225 case OMP_CLAUSE_PRIVATE:
13226 case OMP_CLAUSE_SHARED:
13227 case OMP_CLAUSE_FIRSTPRIVATE:
13228 case OMP_CLAUSE_COPYIN:
13229 case OMP_CLAUSE_COPYPRIVATE:
13230 case OMP_CLAUSE_IF:
13231 case OMP_CLAUSE_NUM_THREADS:
13232 case OMP_CLAUSE_SCHEDULE:
13233 case OMP_CLAUSE_COLLAPSE:
13234 case OMP_CLAUSE_FINAL:
13235 case OMP_CLAUSE_DEPEND:
13236 case OMP_CLAUSE_FROM:
13237 case OMP_CLAUSE_TO:
13238 case OMP_CLAUSE_UNIFORM:
13239 case OMP_CLAUSE_MAP:
13240 case OMP_CLAUSE_DEVICE:
13241 case OMP_CLAUSE_DIST_SCHEDULE:
13242 case OMP_CLAUSE_NUM_TEAMS:
13243 case OMP_CLAUSE_THREAD_LIMIT:
13244 case OMP_CLAUSE_SAFELEN:
13245 case OMP_CLAUSE_SIMDLEN:
13246 OMP_CLAUSE_OPERAND (nc, 0)
13247 = tsubst_expr (OMP_CLAUSE_OPERAND (oc, 0), args, complain,
13248 in_decl, /*integral_constant_expression_p=*/false);
13249 break;
13250 case OMP_CLAUSE_REDUCTION:
13251 if (OMP_CLAUSE_REDUCTION_PLACEHOLDER (oc))
13253 tree placeholder = OMP_CLAUSE_REDUCTION_PLACEHOLDER (oc);
13254 if (TREE_CODE (placeholder) == SCOPE_REF)
13256 tree scope = tsubst (TREE_OPERAND (placeholder, 0), args,
13257 complain, in_decl);
13258 OMP_CLAUSE_REDUCTION_PLACEHOLDER (nc)
13259 = build_qualified_name (NULL_TREE, scope,
13260 TREE_OPERAND (placeholder, 1),
13261 false);
13263 else
13264 gcc_assert (identifier_p (placeholder));
13266 OMP_CLAUSE_OPERAND (nc, 0)
13267 = tsubst_expr (OMP_CLAUSE_OPERAND (oc, 0), args, complain,
13268 in_decl, /*integral_constant_expression_p=*/false);
13269 break;
13270 case OMP_CLAUSE_LINEAR:
13271 case OMP_CLAUSE_ALIGNED:
13272 OMP_CLAUSE_OPERAND (nc, 0)
13273 = tsubst_expr (OMP_CLAUSE_OPERAND (oc, 0), args, complain,
13274 in_decl, /*integral_constant_expression_p=*/false);
13275 OMP_CLAUSE_OPERAND (nc, 1)
13276 = tsubst_expr (OMP_CLAUSE_OPERAND (oc, 1), args, complain,
13277 in_decl, /*integral_constant_expression_p=*/false);
13278 break;
13280 case OMP_CLAUSE_NOWAIT:
13281 case OMP_CLAUSE_ORDERED:
13282 case OMP_CLAUSE_DEFAULT:
13283 case OMP_CLAUSE_UNTIED:
13284 case OMP_CLAUSE_MERGEABLE:
13285 case OMP_CLAUSE_INBRANCH:
13286 case OMP_CLAUSE_NOTINBRANCH:
13287 case OMP_CLAUSE_PROC_BIND:
13288 case OMP_CLAUSE_FOR:
13289 case OMP_CLAUSE_PARALLEL:
13290 case OMP_CLAUSE_SECTIONS:
13291 case OMP_CLAUSE_TASKGROUP:
13292 break;
13293 default:
13294 gcc_unreachable ();
13298 new_clauses = nreverse (new_clauses);
13299 if (!declare_simd)
13300 new_clauses = finish_omp_clauses (new_clauses);
13301 return new_clauses;
13304 /* Like tsubst_copy_and_build, but unshare TREE_LIST nodes. */
13306 static tree
13307 tsubst_copy_asm_operands (tree t, tree args, tsubst_flags_t complain,
13308 tree in_decl)
13310 #define RECUR(t) tsubst_copy_asm_operands (t, args, complain, in_decl)
13312 tree purpose, value, chain;
13314 if (t == NULL)
13315 return t;
13317 if (TREE_CODE (t) != TREE_LIST)
13318 return tsubst_copy_and_build (t, args, complain, in_decl,
13319 /*function_p=*/false,
13320 /*integral_constant_expression_p=*/false);
13322 if (t == void_list_node)
13323 return t;
13325 purpose = TREE_PURPOSE (t);
13326 if (purpose)
13327 purpose = RECUR (purpose);
13328 value = TREE_VALUE (t);
13329 if (value)
13331 if (TREE_CODE (value) != LABEL_DECL)
13332 value = RECUR (value);
13333 else
13335 value = lookup_label (DECL_NAME (value));
13336 gcc_assert (TREE_CODE (value) == LABEL_DECL);
13337 TREE_USED (value) = 1;
13340 chain = TREE_CHAIN (t);
13341 if (chain && chain != void_type_node)
13342 chain = RECUR (chain);
13343 return tree_cons (purpose, value, chain);
13344 #undef RECUR
13347 /* Substitute one OMP_FOR iterator. */
13349 static void
13350 tsubst_omp_for_iterator (tree t, int i, tree declv, tree initv,
13351 tree condv, tree incrv, tree *clauses,
13352 tree args, tsubst_flags_t complain, tree in_decl,
13353 bool integral_constant_expression_p)
13355 #define RECUR(NODE) \
13356 tsubst_expr ((NODE), args, complain, in_decl, \
13357 integral_constant_expression_p)
13358 tree decl, init, cond, incr;
13360 init = TREE_VEC_ELT (OMP_FOR_INIT (t), i);
13361 gcc_assert (TREE_CODE (init) == MODIFY_EXPR);
13362 decl = TREE_OPERAND (init, 0);
13363 init = TREE_OPERAND (init, 1);
13364 tree decl_expr = NULL_TREE;
13365 if (init && TREE_CODE (init) == DECL_EXPR)
13367 /* We need to jump through some hoops to handle declarations in the
13368 for-init-statement, since we might need to handle auto deduction,
13369 but we need to keep control of initialization. */
13370 decl_expr = init;
13371 init = DECL_INITIAL (DECL_EXPR_DECL (init));
13372 decl = tsubst_decl (decl, args, complain);
13374 else
13375 decl = RECUR (decl);
13376 init = RECUR (init);
13378 tree auto_node = type_uses_auto (TREE_TYPE (decl));
13379 if (auto_node && init)
13380 TREE_TYPE (decl)
13381 = do_auto_deduction (TREE_TYPE (decl), init, auto_node);
13383 gcc_assert (!type_dependent_expression_p (decl));
13385 if (!CLASS_TYPE_P (TREE_TYPE (decl)))
13387 if (decl_expr)
13389 /* Declare the variable, but don't let that initialize it. */
13390 tree init_sav = DECL_INITIAL (DECL_EXPR_DECL (decl_expr));
13391 DECL_INITIAL (DECL_EXPR_DECL (decl_expr)) = NULL_TREE;
13392 RECUR (decl_expr);
13393 DECL_INITIAL (DECL_EXPR_DECL (decl_expr)) = init_sav;
13396 cond = RECUR (TREE_VEC_ELT (OMP_FOR_COND (t), i));
13397 incr = TREE_VEC_ELT (OMP_FOR_INCR (t), i);
13398 if (TREE_CODE (incr) == MODIFY_EXPR)
13400 tree lhs = RECUR (TREE_OPERAND (incr, 0));
13401 tree rhs = RECUR (TREE_OPERAND (incr, 1));
13402 incr = build_x_modify_expr (EXPR_LOCATION (incr), lhs,
13403 NOP_EXPR, rhs, complain);
13405 else
13406 incr = RECUR (incr);
13407 TREE_VEC_ELT (declv, i) = decl;
13408 TREE_VEC_ELT (initv, i) = init;
13409 TREE_VEC_ELT (condv, i) = cond;
13410 TREE_VEC_ELT (incrv, i) = incr;
13411 return;
13414 if (decl_expr)
13416 /* Declare and initialize the variable. */
13417 RECUR (decl_expr);
13418 init = NULL_TREE;
13420 else if (init)
13422 tree c;
13423 for (c = *clauses; c ; c = OMP_CLAUSE_CHAIN (c))
13425 if ((OMP_CLAUSE_CODE (c) == OMP_CLAUSE_PRIVATE
13426 || OMP_CLAUSE_CODE (c) == OMP_CLAUSE_LASTPRIVATE)
13427 && OMP_CLAUSE_DECL (c) == decl)
13428 break;
13429 else if (OMP_CLAUSE_CODE (c) == OMP_CLAUSE_FIRSTPRIVATE
13430 && OMP_CLAUSE_DECL (c) == decl)
13431 error ("iteration variable %qD should not be firstprivate", decl);
13432 else if (OMP_CLAUSE_CODE (c) == OMP_CLAUSE_REDUCTION
13433 && OMP_CLAUSE_DECL (c) == decl)
13434 error ("iteration variable %qD should not be reduction", decl);
13436 if (c == NULL)
13438 c = build_omp_clause (input_location, OMP_CLAUSE_PRIVATE);
13439 OMP_CLAUSE_DECL (c) = decl;
13440 c = finish_omp_clauses (c);
13441 if (c)
13443 OMP_CLAUSE_CHAIN (c) = *clauses;
13444 *clauses = c;
13448 cond = TREE_VEC_ELT (OMP_FOR_COND (t), i);
13449 if (COMPARISON_CLASS_P (cond))
13451 tree op0 = RECUR (TREE_OPERAND (cond, 0));
13452 tree op1 = RECUR (TREE_OPERAND (cond, 1));
13453 cond = build2 (TREE_CODE (cond), boolean_type_node, op0, op1);
13455 else
13456 cond = RECUR (cond);
13457 incr = TREE_VEC_ELT (OMP_FOR_INCR (t), i);
13458 switch (TREE_CODE (incr))
13460 case PREINCREMENT_EXPR:
13461 case PREDECREMENT_EXPR:
13462 case POSTINCREMENT_EXPR:
13463 case POSTDECREMENT_EXPR:
13464 incr = build2 (TREE_CODE (incr), TREE_TYPE (decl),
13465 RECUR (TREE_OPERAND (incr, 0)), NULL_TREE);
13466 break;
13467 case MODIFY_EXPR:
13468 if (TREE_CODE (TREE_OPERAND (incr, 1)) == PLUS_EXPR
13469 || TREE_CODE (TREE_OPERAND (incr, 1)) == MINUS_EXPR)
13471 tree rhs = TREE_OPERAND (incr, 1);
13472 tree lhs = RECUR (TREE_OPERAND (incr, 0));
13473 tree rhs0 = RECUR (TREE_OPERAND (rhs, 0));
13474 tree rhs1 = RECUR (TREE_OPERAND (rhs, 1));
13475 incr = build2 (MODIFY_EXPR, TREE_TYPE (decl), lhs,
13476 build2 (TREE_CODE (rhs), TREE_TYPE (decl),
13477 rhs0, rhs1));
13479 else
13480 incr = RECUR (incr);
13481 break;
13482 case MODOP_EXPR:
13483 if (TREE_CODE (TREE_OPERAND (incr, 1)) == PLUS_EXPR
13484 || TREE_CODE (TREE_OPERAND (incr, 1)) == MINUS_EXPR)
13486 tree lhs = RECUR (TREE_OPERAND (incr, 0));
13487 incr = build2 (MODIFY_EXPR, TREE_TYPE (decl), lhs,
13488 build2 (TREE_CODE (TREE_OPERAND (incr, 1)),
13489 TREE_TYPE (decl), lhs,
13490 RECUR (TREE_OPERAND (incr, 2))));
13492 else if (TREE_CODE (TREE_OPERAND (incr, 1)) == NOP_EXPR
13493 && (TREE_CODE (TREE_OPERAND (incr, 2)) == PLUS_EXPR
13494 || (TREE_CODE (TREE_OPERAND (incr, 2)) == MINUS_EXPR)))
13496 tree rhs = TREE_OPERAND (incr, 2);
13497 tree lhs = RECUR (TREE_OPERAND (incr, 0));
13498 tree rhs0 = RECUR (TREE_OPERAND (rhs, 0));
13499 tree rhs1 = RECUR (TREE_OPERAND (rhs, 1));
13500 incr = build2 (MODIFY_EXPR, TREE_TYPE (decl), lhs,
13501 build2 (TREE_CODE (rhs), TREE_TYPE (decl),
13502 rhs0, rhs1));
13504 else
13505 incr = RECUR (incr);
13506 break;
13507 default:
13508 incr = RECUR (incr);
13509 break;
13512 TREE_VEC_ELT (declv, i) = decl;
13513 TREE_VEC_ELT (initv, i) = init;
13514 TREE_VEC_ELT (condv, i) = cond;
13515 TREE_VEC_ELT (incrv, i) = incr;
13516 #undef RECUR
13519 /* Like tsubst_copy for expressions, etc. but also does semantic
13520 processing. */
13522 static tree
13523 tsubst_expr (tree t, tree args, tsubst_flags_t complain, tree in_decl,
13524 bool integral_constant_expression_p)
13526 #define RETURN(EXP) do { r = (EXP); goto out; } while(0)
13527 #define RECUR(NODE) \
13528 tsubst_expr ((NODE), args, complain, in_decl, \
13529 integral_constant_expression_p)
13531 tree stmt, tmp;
13532 tree r;
13533 location_t loc;
13535 if (t == NULL_TREE || t == error_mark_node)
13536 return t;
13538 loc = input_location;
13539 if (EXPR_HAS_LOCATION (t))
13540 input_location = EXPR_LOCATION (t);
13541 if (STATEMENT_CODE_P (TREE_CODE (t)))
13542 current_stmt_tree ()->stmts_are_full_exprs_p = STMT_IS_FULL_EXPR_P (t);
13544 switch (TREE_CODE (t))
13546 case STATEMENT_LIST:
13548 tree_stmt_iterator i;
13549 for (i = tsi_start (t); !tsi_end_p (i); tsi_next (&i))
13550 RECUR (tsi_stmt (i));
13551 break;
13554 case CTOR_INITIALIZER:
13555 finish_mem_initializers (tsubst_initializer_list
13556 (TREE_OPERAND (t, 0), args));
13557 break;
13559 case RETURN_EXPR:
13560 finish_return_stmt (RECUR (TREE_OPERAND (t, 0)));
13561 break;
13563 case EXPR_STMT:
13564 tmp = RECUR (EXPR_STMT_EXPR (t));
13565 if (EXPR_STMT_STMT_EXPR_RESULT (t))
13566 finish_stmt_expr_expr (tmp, cur_stmt_expr);
13567 else
13568 finish_expr_stmt (tmp);
13569 break;
13571 case USING_STMT:
13572 do_using_directive (USING_STMT_NAMESPACE (t));
13573 break;
13575 case DECL_EXPR:
13577 tree decl, pattern_decl;
13578 tree init;
13580 pattern_decl = decl = DECL_EXPR_DECL (t);
13581 if (TREE_CODE (decl) == LABEL_DECL)
13582 finish_label_decl (DECL_NAME (decl));
13583 else if (TREE_CODE (decl) == USING_DECL)
13585 tree scope = USING_DECL_SCOPE (decl);
13586 tree name = DECL_NAME (decl);
13587 tree decl;
13589 scope = tsubst (scope, args, complain, in_decl);
13590 decl = lookup_qualified_name (scope, name,
13591 /*is_type_p=*/false,
13592 /*complain=*/false);
13593 if (decl == error_mark_node || TREE_CODE (decl) == TREE_LIST)
13594 qualified_name_lookup_error (scope, name, decl, input_location);
13595 else
13596 do_local_using_decl (decl, scope, name);
13598 else if (DECL_PACK_P (decl))
13600 /* Don't build up decls for a variadic capture proxy, we'll
13601 instantiate the elements directly as needed. */
13602 break;
13604 else
13606 init = DECL_INITIAL (decl);
13607 decl = tsubst (decl, args, complain, in_decl);
13608 if (decl != error_mark_node)
13610 /* By marking the declaration as instantiated, we avoid
13611 trying to instantiate it. Since instantiate_decl can't
13612 handle local variables, and since we've already done
13613 all that needs to be done, that's the right thing to
13614 do. */
13615 if (VAR_P (decl))
13616 DECL_TEMPLATE_INSTANTIATED (decl) = 1;
13617 if (VAR_P (decl)
13618 && ANON_AGGR_TYPE_P (TREE_TYPE (decl)))
13619 /* Anonymous aggregates are a special case. */
13620 finish_anon_union (decl);
13621 else if (is_capture_proxy (DECL_EXPR_DECL (t)))
13623 DECL_CONTEXT (decl) = current_function_decl;
13624 if (DECL_NAME (decl) == this_identifier)
13626 tree lam = DECL_CONTEXT (current_function_decl);
13627 lam = CLASSTYPE_LAMBDA_EXPR (lam);
13628 LAMBDA_EXPR_THIS_CAPTURE (lam) = decl;
13630 insert_capture_proxy (decl);
13632 else if (DECL_IMPLICIT_TYPEDEF_P (t))
13633 /* We already did a pushtag. */;
13634 else if (TREE_CODE (decl) == FUNCTION_DECL
13635 && DECL_OMP_DECLARE_REDUCTION_P (decl)
13636 && DECL_FUNCTION_SCOPE_P (pattern_decl))
13638 DECL_CONTEXT (decl) = NULL_TREE;
13639 pushdecl (decl);
13640 DECL_CONTEXT (decl) = current_function_decl;
13641 cp_check_omp_declare_reduction (decl);
13643 else
13645 int const_init = false;
13646 maybe_push_decl (decl);
13647 if (VAR_P (decl)
13648 && DECL_PRETTY_FUNCTION_P (decl))
13650 /* For __PRETTY_FUNCTION__ we have to adjust the
13651 initializer. */
13652 const char *const name
13653 = cxx_printable_name (current_function_decl, 2);
13654 init = cp_fname_init (name, &TREE_TYPE (decl));
13656 else
13657 init = tsubst_init (init, decl, args, complain, in_decl);
13659 if (VAR_P (decl))
13660 const_init = (DECL_INITIALIZED_BY_CONSTANT_EXPRESSION_P
13661 (pattern_decl));
13662 cp_finish_decl (decl, init, const_init, NULL_TREE, 0);
13667 break;
13670 case FOR_STMT:
13671 stmt = begin_for_stmt (NULL_TREE, NULL_TREE);
13672 RECUR (FOR_INIT_STMT (t));
13673 finish_for_init_stmt (stmt);
13674 tmp = RECUR (FOR_COND (t));
13675 finish_for_cond (tmp, stmt, false);
13676 tmp = RECUR (FOR_EXPR (t));
13677 finish_for_expr (tmp, stmt);
13678 RECUR (FOR_BODY (t));
13679 finish_for_stmt (stmt);
13680 break;
13682 case RANGE_FOR_STMT:
13684 tree decl, expr;
13685 stmt = begin_for_stmt (NULL_TREE, NULL_TREE);
13686 decl = RANGE_FOR_DECL (t);
13687 decl = tsubst (decl, args, complain, in_decl);
13688 maybe_push_decl (decl);
13689 expr = RECUR (RANGE_FOR_EXPR (t));
13690 stmt = cp_convert_range_for (stmt, decl, expr, RANGE_FOR_IVDEP (t));
13691 RECUR (RANGE_FOR_BODY (t));
13692 finish_for_stmt (stmt);
13694 break;
13696 case WHILE_STMT:
13697 stmt = begin_while_stmt ();
13698 tmp = RECUR (WHILE_COND (t));
13699 finish_while_stmt_cond (tmp, stmt, false);
13700 RECUR (WHILE_BODY (t));
13701 finish_while_stmt (stmt);
13702 break;
13704 case DO_STMT:
13705 stmt = begin_do_stmt ();
13706 RECUR (DO_BODY (t));
13707 finish_do_body (stmt);
13708 tmp = RECUR (DO_COND (t));
13709 finish_do_stmt (tmp, stmt, false);
13710 break;
13712 case IF_STMT:
13713 stmt = begin_if_stmt ();
13714 tmp = RECUR (IF_COND (t));
13715 finish_if_stmt_cond (tmp, stmt);
13716 RECUR (THEN_CLAUSE (t));
13717 finish_then_clause (stmt);
13719 if (ELSE_CLAUSE (t))
13721 begin_else_clause (stmt);
13722 RECUR (ELSE_CLAUSE (t));
13723 finish_else_clause (stmt);
13726 finish_if_stmt (stmt);
13727 break;
13729 case BIND_EXPR:
13730 if (BIND_EXPR_BODY_BLOCK (t))
13731 stmt = begin_function_body ();
13732 else
13733 stmt = begin_compound_stmt (BIND_EXPR_TRY_BLOCK (t)
13734 ? BCS_TRY_BLOCK : 0);
13736 RECUR (BIND_EXPR_BODY (t));
13738 if (BIND_EXPR_BODY_BLOCK (t))
13739 finish_function_body (stmt);
13740 else
13741 finish_compound_stmt (stmt);
13742 break;
13744 case BREAK_STMT:
13745 finish_break_stmt ();
13746 break;
13748 case CONTINUE_STMT:
13749 finish_continue_stmt ();
13750 break;
13752 case SWITCH_STMT:
13753 stmt = begin_switch_stmt ();
13754 tmp = RECUR (SWITCH_STMT_COND (t));
13755 finish_switch_cond (tmp, stmt);
13756 RECUR (SWITCH_STMT_BODY (t));
13757 finish_switch_stmt (stmt);
13758 break;
13760 case CASE_LABEL_EXPR:
13762 tree low = RECUR (CASE_LOW (t));
13763 tree high = RECUR (CASE_HIGH (t));
13764 finish_case_label (EXPR_LOCATION (t), low, high);
13766 break;
13768 case LABEL_EXPR:
13770 tree decl = LABEL_EXPR_LABEL (t);
13771 tree label;
13773 label = finish_label_stmt (DECL_NAME (decl));
13774 if (DECL_ATTRIBUTES (decl) != NULL_TREE)
13775 cplus_decl_attributes (&label, DECL_ATTRIBUTES (decl), 0);
13777 break;
13779 case GOTO_EXPR:
13780 tmp = GOTO_DESTINATION (t);
13781 if (TREE_CODE (tmp) != LABEL_DECL)
13782 /* Computed goto's must be tsubst'd into. On the other hand,
13783 non-computed gotos must not be; the identifier in question
13784 will have no binding. */
13785 tmp = RECUR (tmp);
13786 else
13787 tmp = DECL_NAME (tmp);
13788 finish_goto_stmt (tmp);
13789 break;
13791 case ASM_EXPR:
13793 tree string = RECUR (ASM_STRING (t));
13794 tree outputs = tsubst_copy_asm_operands (ASM_OUTPUTS (t), args,
13795 complain, in_decl);
13796 tree inputs = tsubst_copy_asm_operands (ASM_INPUTS (t), args,
13797 complain, in_decl);
13798 tree clobbers = tsubst_copy_asm_operands (ASM_CLOBBERS (t), args,
13799 complain, in_decl);
13800 tree labels = tsubst_copy_asm_operands (ASM_LABELS (t), args,
13801 complain, in_decl);
13802 tmp = finish_asm_stmt (ASM_VOLATILE_P (t), string, outputs, inputs,
13803 clobbers, labels);
13804 tree asm_expr = tmp;
13805 if (TREE_CODE (asm_expr) == CLEANUP_POINT_EXPR)
13806 asm_expr = TREE_OPERAND (asm_expr, 0);
13807 ASM_INPUT_P (asm_expr) = ASM_INPUT_P (t);
13809 break;
13811 case TRY_BLOCK:
13812 if (CLEANUP_P (t))
13814 stmt = begin_try_block ();
13815 RECUR (TRY_STMTS (t));
13816 finish_cleanup_try_block (stmt);
13817 finish_cleanup (RECUR (TRY_HANDLERS (t)), stmt);
13819 else
13821 tree compound_stmt = NULL_TREE;
13823 if (FN_TRY_BLOCK_P (t))
13824 stmt = begin_function_try_block (&compound_stmt);
13825 else
13826 stmt = begin_try_block ();
13828 RECUR (TRY_STMTS (t));
13830 if (FN_TRY_BLOCK_P (t))
13831 finish_function_try_block (stmt);
13832 else
13833 finish_try_block (stmt);
13835 RECUR (TRY_HANDLERS (t));
13836 if (FN_TRY_BLOCK_P (t))
13837 finish_function_handler_sequence (stmt, compound_stmt);
13838 else
13839 finish_handler_sequence (stmt);
13841 break;
13843 case HANDLER:
13845 tree decl = HANDLER_PARMS (t);
13847 if (decl)
13849 decl = tsubst (decl, args, complain, in_decl);
13850 /* Prevent instantiate_decl from trying to instantiate
13851 this variable. We've already done all that needs to be
13852 done. */
13853 if (decl != error_mark_node)
13854 DECL_TEMPLATE_INSTANTIATED (decl) = 1;
13856 stmt = begin_handler ();
13857 finish_handler_parms (decl, stmt);
13858 RECUR (HANDLER_BODY (t));
13859 finish_handler (stmt);
13861 break;
13863 case TAG_DEFN:
13864 tmp = tsubst (TREE_TYPE (t), args, complain, NULL_TREE);
13865 if (CLASS_TYPE_P (tmp))
13867 /* Local classes are not independent templates; they are
13868 instantiated along with their containing function. And this
13869 way we don't have to deal with pushing out of one local class
13870 to instantiate a member of another local class. */
13871 tree fn;
13872 /* Closures are handled by the LAMBDA_EXPR. */
13873 gcc_assert (!LAMBDA_TYPE_P (TREE_TYPE (t)));
13874 complete_type (tmp);
13875 for (fn = TYPE_METHODS (tmp); fn; fn = DECL_CHAIN (fn))
13876 if (!DECL_ARTIFICIAL (fn))
13877 instantiate_decl (fn, /*defer_ok*/0, /*expl_inst_class*/false);
13879 break;
13881 case STATIC_ASSERT:
13883 tree condition;
13885 ++c_inhibit_evaluation_warnings;
13886 condition =
13887 tsubst_expr (STATIC_ASSERT_CONDITION (t),
13888 args,
13889 complain, in_decl,
13890 /*integral_constant_expression_p=*/true);
13891 --c_inhibit_evaluation_warnings;
13893 finish_static_assert (condition,
13894 STATIC_ASSERT_MESSAGE (t),
13895 STATIC_ASSERT_SOURCE_LOCATION (t),
13896 /*member_p=*/false);
13898 break;
13900 case OMP_PARALLEL:
13901 tmp = tsubst_omp_clauses (OMP_PARALLEL_CLAUSES (t), false,
13902 args, complain, in_decl);
13903 stmt = begin_omp_parallel ();
13904 RECUR (OMP_PARALLEL_BODY (t));
13905 OMP_PARALLEL_COMBINED (finish_omp_parallel (tmp, stmt))
13906 = OMP_PARALLEL_COMBINED (t);
13907 break;
13909 case OMP_TASK:
13910 tmp = tsubst_omp_clauses (OMP_TASK_CLAUSES (t), false,
13911 args, complain, in_decl);
13912 stmt = begin_omp_task ();
13913 RECUR (OMP_TASK_BODY (t));
13914 finish_omp_task (tmp, stmt);
13915 break;
13917 case OMP_FOR:
13918 case OMP_SIMD:
13919 case CILK_SIMD:
13920 case OMP_DISTRIBUTE:
13922 tree clauses, body, pre_body;
13923 tree declv = NULL_TREE, initv = NULL_TREE, condv = NULL_TREE;
13924 tree incrv = NULL_TREE;
13925 int i;
13927 clauses = tsubst_omp_clauses (OMP_FOR_CLAUSES (t), false,
13928 args, complain, in_decl);
13929 if (OMP_FOR_INIT (t) != NULL_TREE)
13931 declv = make_tree_vec (TREE_VEC_LENGTH (OMP_FOR_INIT (t)));
13932 initv = make_tree_vec (TREE_VEC_LENGTH (OMP_FOR_INIT (t)));
13933 condv = make_tree_vec (TREE_VEC_LENGTH (OMP_FOR_INIT (t)));
13934 incrv = make_tree_vec (TREE_VEC_LENGTH (OMP_FOR_INIT (t)));
13937 stmt = begin_omp_structured_block ();
13939 pre_body = push_stmt_list ();
13940 RECUR (OMP_FOR_PRE_BODY (t));
13941 pre_body = pop_stmt_list (pre_body);
13943 if (OMP_FOR_INIT (t) != NULL_TREE)
13944 for (i = 0; i < TREE_VEC_LENGTH (OMP_FOR_INIT (t)); i++)
13945 tsubst_omp_for_iterator (t, i, declv, initv, condv, incrv,
13946 &clauses, args, complain, in_decl,
13947 integral_constant_expression_p);
13949 body = push_stmt_list ();
13950 RECUR (OMP_FOR_BODY (t));
13951 body = pop_stmt_list (body);
13953 if (OMP_FOR_INIT (t) != NULL_TREE)
13954 t = finish_omp_for (EXPR_LOCATION (t), TREE_CODE (t), declv, initv,
13955 condv, incrv, body, pre_body, clauses);
13956 else
13958 t = make_node (TREE_CODE (t));
13959 TREE_TYPE (t) = void_type_node;
13960 OMP_FOR_BODY (t) = body;
13961 OMP_FOR_PRE_BODY (t) = pre_body;
13962 OMP_FOR_CLAUSES (t) = clauses;
13963 SET_EXPR_LOCATION (t, EXPR_LOCATION (t));
13964 add_stmt (t);
13967 add_stmt (finish_omp_structured_block (stmt));
13969 break;
13971 case OMP_SECTIONS:
13972 case OMP_SINGLE:
13973 case OMP_TEAMS:
13974 case OMP_TARGET_DATA:
13975 case OMP_TARGET:
13976 tmp = tsubst_omp_clauses (OMP_CLAUSES (t), false,
13977 args, complain, in_decl);
13978 stmt = push_stmt_list ();
13979 RECUR (OMP_BODY (t));
13980 stmt = pop_stmt_list (stmt);
13982 t = copy_node (t);
13983 OMP_BODY (t) = stmt;
13984 OMP_CLAUSES (t) = tmp;
13985 add_stmt (t);
13986 break;
13988 case OMP_TARGET_UPDATE:
13989 tmp = tsubst_omp_clauses (OMP_TARGET_UPDATE_CLAUSES (t), false,
13990 args, complain, in_decl);
13991 t = copy_node (t);
13992 OMP_CLAUSES (t) = tmp;
13993 add_stmt (t);
13994 break;
13996 case OMP_SECTION:
13997 case OMP_CRITICAL:
13998 case OMP_MASTER:
13999 case OMP_TASKGROUP:
14000 case OMP_ORDERED:
14001 stmt = push_stmt_list ();
14002 RECUR (OMP_BODY (t));
14003 stmt = pop_stmt_list (stmt);
14005 t = copy_node (t);
14006 OMP_BODY (t) = stmt;
14007 add_stmt (t);
14008 break;
14010 case OMP_ATOMIC:
14011 gcc_assert (OMP_ATOMIC_DEPENDENT_P (t));
14012 if (TREE_CODE (TREE_OPERAND (t, 1)) != MODIFY_EXPR)
14014 tree op1 = TREE_OPERAND (t, 1);
14015 tree rhs1 = NULL_TREE;
14016 tree lhs, rhs;
14017 if (TREE_CODE (op1) == COMPOUND_EXPR)
14019 rhs1 = RECUR (TREE_OPERAND (op1, 0));
14020 op1 = TREE_OPERAND (op1, 1);
14022 lhs = RECUR (TREE_OPERAND (op1, 0));
14023 rhs = RECUR (TREE_OPERAND (op1, 1));
14024 finish_omp_atomic (OMP_ATOMIC, TREE_CODE (op1), lhs, rhs,
14025 NULL_TREE, NULL_TREE, rhs1,
14026 OMP_ATOMIC_SEQ_CST (t));
14028 else
14030 tree op1 = TREE_OPERAND (t, 1);
14031 tree v = NULL_TREE, lhs, rhs = NULL_TREE, lhs1 = NULL_TREE;
14032 tree rhs1 = NULL_TREE;
14033 enum tree_code code = TREE_CODE (TREE_OPERAND (op1, 1));
14034 enum tree_code opcode = NOP_EXPR;
14035 if (code == OMP_ATOMIC_READ)
14037 v = RECUR (TREE_OPERAND (op1, 0));
14038 lhs = RECUR (TREE_OPERAND (TREE_OPERAND (op1, 1), 0));
14040 else if (code == OMP_ATOMIC_CAPTURE_OLD
14041 || code == OMP_ATOMIC_CAPTURE_NEW)
14043 tree op11 = TREE_OPERAND (TREE_OPERAND (op1, 1), 1);
14044 v = RECUR (TREE_OPERAND (op1, 0));
14045 lhs1 = RECUR (TREE_OPERAND (TREE_OPERAND (op1, 1), 0));
14046 if (TREE_CODE (op11) == COMPOUND_EXPR)
14048 rhs1 = RECUR (TREE_OPERAND (op11, 0));
14049 op11 = TREE_OPERAND (op11, 1);
14051 lhs = RECUR (TREE_OPERAND (op11, 0));
14052 rhs = RECUR (TREE_OPERAND (op11, 1));
14053 opcode = TREE_CODE (op11);
14054 if (opcode == MODIFY_EXPR)
14055 opcode = NOP_EXPR;
14057 else
14059 code = OMP_ATOMIC;
14060 lhs = RECUR (TREE_OPERAND (op1, 0));
14061 rhs = RECUR (TREE_OPERAND (op1, 1));
14063 finish_omp_atomic (code, opcode, lhs, rhs, v, lhs1, rhs1,
14064 OMP_ATOMIC_SEQ_CST (t));
14066 break;
14068 case TRANSACTION_EXPR:
14070 int flags = 0;
14071 flags |= (TRANSACTION_EXPR_OUTER (t) ? TM_STMT_ATTR_OUTER : 0);
14072 flags |= (TRANSACTION_EXPR_RELAXED (t) ? TM_STMT_ATTR_RELAXED : 0);
14074 if (TRANSACTION_EXPR_IS_STMT (t))
14076 tree body = TRANSACTION_EXPR_BODY (t);
14077 tree noex = NULL_TREE;
14078 if (TREE_CODE (body) == MUST_NOT_THROW_EXPR)
14080 noex = MUST_NOT_THROW_COND (body);
14081 if (noex == NULL_TREE)
14082 noex = boolean_true_node;
14083 body = TREE_OPERAND (body, 0);
14085 stmt = begin_transaction_stmt (input_location, NULL, flags);
14086 RECUR (body);
14087 finish_transaction_stmt (stmt, NULL, flags, RECUR (noex));
14089 else
14091 stmt = build_transaction_expr (EXPR_LOCATION (t),
14092 RECUR (TRANSACTION_EXPR_BODY (t)),
14093 flags, NULL_TREE);
14094 RETURN (stmt);
14097 break;
14099 case MUST_NOT_THROW_EXPR:
14101 tree op0 = RECUR (TREE_OPERAND (t, 0));
14102 tree cond = RECUR (MUST_NOT_THROW_COND (t));
14103 RETURN (build_must_not_throw_expr (op0, cond));
14106 case EXPR_PACK_EXPANSION:
14107 error ("invalid use of pack expansion expression");
14108 RETURN (error_mark_node);
14110 case NONTYPE_ARGUMENT_PACK:
14111 error ("use %<...%> to expand argument pack");
14112 RETURN (error_mark_node);
14114 case CILK_SPAWN_STMT:
14115 cfun->calls_cilk_spawn = 1;
14116 RETURN (build_cilk_spawn (EXPR_LOCATION (t), RECUR (CILK_SPAWN_FN (t))));
14118 case CILK_SYNC_STMT:
14119 RETURN (build_cilk_sync ());
14121 case COMPOUND_EXPR:
14122 tmp = RECUR (TREE_OPERAND (t, 0));
14123 if (tmp == NULL_TREE)
14124 /* If the first operand was a statement, we're done with it. */
14125 RETURN (RECUR (TREE_OPERAND (t, 1)));
14126 RETURN (build_x_compound_expr (EXPR_LOCATION (t), tmp,
14127 RECUR (TREE_OPERAND (t, 1)),
14128 complain));
14130 case ANNOTATE_EXPR:
14131 tmp = RECUR (TREE_OPERAND (t, 0));
14132 RETURN (build2_loc (EXPR_LOCATION (t), ANNOTATE_EXPR,
14133 TREE_TYPE (tmp), tmp, RECUR (TREE_OPERAND (t, 1))));
14135 default:
14136 gcc_assert (!STATEMENT_CODE_P (TREE_CODE (t)));
14138 RETURN (tsubst_copy_and_build (t, args, complain, in_decl,
14139 /*function_p=*/false,
14140 integral_constant_expression_p));
14143 RETURN (NULL_TREE);
14144 out:
14145 input_location = loc;
14146 return r;
14147 #undef RECUR
14148 #undef RETURN
14151 /* Instantiate the special body of the artificial DECL_OMP_DECLARE_REDUCTION
14152 function. For description of the body see comment above
14153 cp_parser_omp_declare_reduction_exprs. */
14155 static void
14156 tsubst_omp_udr (tree t, tree args, tsubst_flags_t complain, tree in_decl)
14158 if (t == NULL_TREE || t == error_mark_node)
14159 return;
14161 gcc_assert (TREE_CODE (t) == STATEMENT_LIST);
14163 tree_stmt_iterator tsi;
14164 int i;
14165 tree stmts[7];
14166 memset (stmts, 0, sizeof stmts);
14167 for (i = 0, tsi = tsi_start (t);
14168 i < 7 && !tsi_end_p (tsi);
14169 i++, tsi_next (&tsi))
14170 stmts[i] = tsi_stmt (tsi);
14171 gcc_assert (tsi_end_p (tsi));
14173 if (i >= 3)
14175 gcc_assert (TREE_CODE (stmts[0]) == DECL_EXPR
14176 && TREE_CODE (stmts[1]) == DECL_EXPR);
14177 tree omp_out = tsubst (DECL_EXPR_DECL (stmts[0]),
14178 args, complain, in_decl);
14179 tree omp_in = tsubst (DECL_EXPR_DECL (stmts[1]),
14180 args, complain, in_decl);
14181 DECL_CONTEXT (omp_out) = current_function_decl;
14182 DECL_CONTEXT (omp_in) = current_function_decl;
14183 keep_next_level (true);
14184 tree block = begin_omp_structured_block ();
14185 tsubst_expr (stmts[2], args, complain, in_decl, false);
14186 block = finish_omp_structured_block (block);
14187 block = maybe_cleanup_point_expr_void (block);
14188 add_decl_expr (omp_out);
14189 if (TREE_NO_WARNING (DECL_EXPR_DECL (stmts[0])))
14190 TREE_NO_WARNING (omp_out) = 1;
14191 add_decl_expr (omp_in);
14192 finish_expr_stmt (block);
14194 if (i >= 6)
14196 gcc_assert (TREE_CODE (stmts[3]) == DECL_EXPR
14197 && TREE_CODE (stmts[4]) == DECL_EXPR);
14198 tree omp_priv = tsubst (DECL_EXPR_DECL (stmts[3]),
14199 args, complain, in_decl);
14200 tree omp_orig = tsubst (DECL_EXPR_DECL (stmts[4]),
14201 args, complain, in_decl);
14202 DECL_CONTEXT (omp_priv) = current_function_decl;
14203 DECL_CONTEXT (omp_orig) = current_function_decl;
14204 keep_next_level (true);
14205 tree block = begin_omp_structured_block ();
14206 tsubst_expr (stmts[5], args, complain, in_decl, false);
14207 block = finish_omp_structured_block (block);
14208 block = maybe_cleanup_point_expr_void (block);
14209 cp_walk_tree (&block, cp_remove_omp_priv_cleanup_stmt, omp_priv, NULL);
14210 add_decl_expr (omp_priv);
14211 add_decl_expr (omp_orig);
14212 finish_expr_stmt (block);
14213 if (i == 7)
14214 add_decl_expr (omp_orig);
14218 /* T is a postfix-expression that is not being used in a function
14219 call. Return the substituted version of T. */
14221 static tree
14222 tsubst_non_call_postfix_expression (tree t, tree args,
14223 tsubst_flags_t complain,
14224 tree in_decl)
14226 if (TREE_CODE (t) == SCOPE_REF)
14227 t = tsubst_qualified_id (t, args, complain, in_decl,
14228 /*done=*/false, /*address_p=*/false);
14229 else
14230 t = tsubst_copy_and_build (t, args, complain, in_decl,
14231 /*function_p=*/false,
14232 /*integral_constant_expression_p=*/false);
14234 return t;
14237 /* Sentinel to disable certain warnings during template substitution. */
14239 struct warning_sentinel {
14240 int &flag;
14241 int val;
14242 warning_sentinel(int& flag, bool suppress=true)
14243 : flag(flag), val(flag) { if (suppress) flag = 0; }
14244 ~warning_sentinel() { flag = val; }
14247 /* Like tsubst but deals with expressions and performs semantic
14248 analysis. FUNCTION_P is true if T is the "F" in "F (ARGS)". */
14250 tree
14251 tsubst_copy_and_build (tree t,
14252 tree args,
14253 tsubst_flags_t complain,
14254 tree in_decl,
14255 bool function_p,
14256 bool integral_constant_expression_p)
14258 #define RETURN(EXP) do { retval = (EXP); goto out; } while(0)
14259 #define RECUR(NODE) \
14260 tsubst_copy_and_build (NODE, args, complain, in_decl, \
14261 /*function_p=*/false, \
14262 integral_constant_expression_p)
14264 tree retval, op1;
14265 location_t loc;
14267 if (t == NULL_TREE || t == error_mark_node)
14268 return t;
14270 loc = input_location;
14271 if (EXPR_HAS_LOCATION (t))
14272 input_location = EXPR_LOCATION (t);
14274 /* N3276 decltype magic only applies to calls at the top level or on the
14275 right side of a comma. */
14276 tsubst_flags_t decltype_flag = (complain & tf_decltype);
14277 complain &= ~tf_decltype;
14279 switch (TREE_CODE (t))
14281 case USING_DECL:
14282 t = DECL_NAME (t);
14283 /* Fall through. */
14284 case IDENTIFIER_NODE:
14286 tree decl;
14287 cp_id_kind idk;
14288 bool non_integral_constant_expression_p;
14289 const char *error_msg;
14291 if (IDENTIFIER_TYPENAME_P (t))
14293 tree new_type = tsubst (TREE_TYPE (t), args, complain, in_decl);
14294 t = mangle_conv_op_name_for_type (new_type);
14297 /* Look up the name. */
14298 decl = lookup_name (t);
14300 /* By convention, expressions use ERROR_MARK_NODE to indicate
14301 failure, not NULL_TREE. */
14302 if (decl == NULL_TREE)
14303 decl = error_mark_node;
14305 decl = finish_id_expression (t, decl, NULL_TREE,
14306 &idk,
14307 integral_constant_expression_p,
14308 /*allow_non_integral_constant_expression_p=*/(cxx_dialect >= cxx11),
14309 &non_integral_constant_expression_p,
14310 /*template_p=*/false,
14311 /*done=*/true,
14312 /*address_p=*/false,
14313 /*template_arg_p=*/false,
14314 &error_msg,
14315 input_location);
14316 if (error_msg)
14317 error (error_msg);
14318 if (!function_p && identifier_p (decl))
14320 if (complain & tf_error)
14321 unqualified_name_lookup_error (decl);
14322 decl = error_mark_node;
14324 RETURN (decl);
14327 case TEMPLATE_ID_EXPR:
14329 tree object;
14330 tree templ = RECUR (TREE_OPERAND (t, 0));
14331 tree targs = TREE_OPERAND (t, 1);
14333 if (targs)
14334 targs = tsubst_template_args (targs, args, complain, in_decl);
14336 if (TREE_CODE (templ) == COMPONENT_REF)
14338 object = TREE_OPERAND (templ, 0);
14339 templ = TREE_OPERAND (templ, 1);
14341 else
14342 object = NULL_TREE;
14343 templ = lookup_template_function (templ, targs);
14345 if (object)
14346 RETURN (build3 (COMPONENT_REF, TREE_TYPE (templ),
14347 object, templ, NULL_TREE));
14348 else
14349 RETURN (baselink_for_fns (templ));
14352 case INDIRECT_REF:
14354 tree r = RECUR (TREE_OPERAND (t, 0));
14356 if (REFERENCE_REF_P (t))
14358 /* A type conversion to reference type will be enclosed in
14359 such an indirect ref, but the substitution of the cast
14360 will have also added such an indirect ref. */
14361 if (TREE_CODE (TREE_TYPE (r)) == REFERENCE_TYPE)
14362 r = convert_from_reference (r);
14364 else
14365 r = build_x_indirect_ref (input_location, r, RO_UNARY_STAR,
14366 complain|decltype_flag);
14367 RETURN (r);
14370 case NOP_EXPR:
14372 tree type = tsubst (TREE_TYPE (t), args, complain, in_decl);
14373 tree op0 = RECUR (TREE_OPERAND (t, 0));
14374 RETURN (build_nop (type, op0));
14377 case IMPLICIT_CONV_EXPR:
14379 tree type = tsubst (TREE_TYPE (t), args, complain, in_decl);
14380 tree expr = RECUR (TREE_OPERAND (t, 0));
14381 int flags = LOOKUP_IMPLICIT;
14382 if (IMPLICIT_CONV_EXPR_DIRECT_INIT (t))
14383 flags = LOOKUP_NORMAL;
14384 RETURN (perform_implicit_conversion_flags (type, expr, complain,
14385 flags));
14388 case CONVERT_EXPR:
14390 tree type = tsubst (TREE_TYPE (t), args, complain, in_decl);
14391 tree op0 = RECUR (TREE_OPERAND (t, 0));
14392 RETURN (build1 (CONVERT_EXPR, type, op0));
14395 case CAST_EXPR:
14396 case REINTERPRET_CAST_EXPR:
14397 case CONST_CAST_EXPR:
14398 case DYNAMIC_CAST_EXPR:
14399 case STATIC_CAST_EXPR:
14401 tree type;
14402 tree op, r = NULL_TREE;
14404 type = tsubst (TREE_TYPE (t), args, complain, in_decl);
14405 if (integral_constant_expression_p
14406 && !cast_valid_in_integral_constant_expression_p (type))
14408 if (complain & tf_error)
14409 error ("a cast to a type other than an integral or "
14410 "enumeration type cannot appear in a constant-expression");
14411 RETURN (error_mark_node);
14414 op = RECUR (TREE_OPERAND (t, 0));
14416 warning_sentinel s(warn_useless_cast);
14417 switch (TREE_CODE (t))
14419 case CAST_EXPR:
14420 r = build_functional_cast (type, op, complain);
14421 break;
14422 case REINTERPRET_CAST_EXPR:
14423 r = build_reinterpret_cast (type, op, complain);
14424 break;
14425 case CONST_CAST_EXPR:
14426 r = build_const_cast (type, op, complain);
14427 break;
14428 case DYNAMIC_CAST_EXPR:
14429 r = build_dynamic_cast (type, op, complain);
14430 break;
14431 case STATIC_CAST_EXPR:
14432 r = build_static_cast (type, op, complain);
14433 break;
14434 default:
14435 gcc_unreachable ();
14438 RETURN (r);
14441 case POSTDECREMENT_EXPR:
14442 case POSTINCREMENT_EXPR:
14443 op1 = tsubst_non_call_postfix_expression (TREE_OPERAND (t, 0),
14444 args, complain, in_decl);
14445 RETURN (build_x_unary_op (input_location, TREE_CODE (t), op1,
14446 complain|decltype_flag));
14448 case PREDECREMENT_EXPR:
14449 case PREINCREMENT_EXPR:
14450 case NEGATE_EXPR:
14451 case BIT_NOT_EXPR:
14452 case ABS_EXPR:
14453 case TRUTH_NOT_EXPR:
14454 case UNARY_PLUS_EXPR: /* Unary + */
14455 case REALPART_EXPR:
14456 case IMAGPART_EXPR:
14457 RETURN (build_x_unary_op (input_location, TREE_CODE (t),
14458 RECUR (TREE_OPERAND (t, 0)),
14459 complain|decltype_flag));
14461 case FIX_TRUNC_EXPR:
14462 RETURN (cp_build_unary_op (FIX_TRUNC_EXPR, RECUR (TREE_OPERAND (t, 0)),
14463 0, complain));
14465 case ADDR_EXPR:
14466 op1 = TREE_OPERAND (t, 0);
14467 if (TREE_CODE (op1) == LABEL_DECL)
14468 RETURN (finish_label_address_expr (DECL_NAME (op1),
14469 EXPR_LOCATION (op1)));
14470 if (TREE_CODE (op1) == SCOPE_REF)
14471 op1 = tsubst_qualified_id (op1, args, complain, in_decl,
14472 /*done=*/true, /*address_p=*/true);
14473 else
14474 op1 = tsubst_non_call_postfix_expression (op1, args, complain,
14475 in_decl);
14476 RETURN (build_x_unary_op (input_location, ADDR_EXPR, op1,
14477 complain|decltype_flag));
14479 case PLUS_EXPR:
14480 case MINUS_EXPR:
14481 case MULT_EXPR:
14482 case TRUNC_DIV_EXPR:
14483 case CEIL_DIV_EXPR:
14484 case FLOOR_DIV_EXPR:
14485 case ROUND_DIV_EXPR:
14486 case EXACT_DIV_EXPR:
14487 case BIT_AND_EXPR:
14488 case BIT_IOR_EXPR:
14489 case BIT_XOR_EXPR:
14490 case TRUNC_MOD_EXPR:
14491 case FLOOR_MOD_EXPR:
14492 case TRUTH_ANDIF_EXPR:
14493 case TRUTH_ORIF_EXPR:
14494 case TRUTH_AND_EXPR:
14495 case TRUTH_OR_EXPR:
14496 case RSHIFT_EXPR:
14497 case LSHIFT_EXPR:
14498 case RROTATE_EXPR:
14499 case LROTATE_EXPR:
14500 case EQ_EXPR:
14501 case NE_EXPR:
14502 case MAX_EXPR:
14503 case MIN_EXPR:
14504 case LE_EXPR:
14505 case GE_EXPR:
14506 case LT_EXPR:
14507 case GT_EXPR:
14508 case MEMBER_REF:
14509 case DOTSTAR_EXPR:
14511 warning_sentinel s1(warn_type_limits);
14512 warning_sentinel s2(warn_div_by_zero);
14513 tree op0 = RECUR (TREE_OPERAND (t, 0));
14514 tree op1 = RECUR (TREE_OPERAND (t, 1));
14515 tree r = build_x_binary_op
14516 (input_location, TREE_CODE (t),
14517 op0,
14518 (TREE_NO_WARNING (TREE_OPERAND (t, 0))
14519 ? ERROR_MARK
14520 : TREE_CODE (TREE_OPERAND (t, 0))),
14521 op1,
14522 (TREE_NO_WARNING (TREE_OPERAND (t, 1))
14523 ? ERROR_MARK
14524 : TREE_CODE (TREE_OPERAND (t, 1))),
14525 /*overload=*/NULL,
14526 complain|decltype_flag);
14527 if (EXPR_P (r) && TREE_NO_WARNING (t))
14528 TREE_NO_WARNING (r) = TREE_NO_WARNING (t);
14530 RETURN (r);
14533 case POINTER_PLUS_EXPR:
14535 tree op0 = RECUR (TREE_OPERAND (t, 0));
14536 tree op1 = RECUR (TREE_OPERAND (t, 1));
14537 return fold_build_pointer_plus (op0, op1);
14540 case SCOPE_REF:
14541 RETURN (tsubst_qualified_id (t, args, complain, in_decl, /*done=*/true,
14542 /*address_p=*/false));
14543 case ARRAY_REF:
14544 op1 = tsubst_non_call_postfix_expression (TREE_OPERAND (t, 0),
14545 args, complain, in_decl);
14546 RETURN (build_x_array_ref (EXPR_LOCATION (t), op1,
14547 RECUR (TREE_OPERAND (t, 1)),
14548 complain|decltype_flag));
14550 case ARRAY_NOTATION_REF:
14552 tree start_index, length, stride;
14553 op1 = tsubst_non_call_postfix_expression (ARRAY_NOTATION_ARRAY (t),
14554 args, complain, in_decl);
14555 start_index = RECUR (ARRAY_NOTATION_START (t));
14556 length = RECUR (ARRAY_NOTATION_LENGTH (t));
14557 stride = RECUR (ARRAY_NOTATION_STRIDE (t));
14558 RETURN (build_array_notation_ref (EXPR_LOCATION (t), op1, start_index,
14559 length, stride, TREE_TYPE (op1)));
14561 case SIZEOF_EXPR:
14562 if (PACK_EXPANSION_P (TREE_OPERAND (t, 0)))
14563 RETURN (tsubst_copy (t, args, complain, in_decl));
14564 /* Fall through */
14566 case ALIGNOF_EXPR:
14568 tree r;
14570 op1 = TREE_OPERAND (t, 0);
14571 if (TREE_CODE (t) == SIZEOF_EXPR && SIZEOF_EXPR_TYPE_P (t))
14572 op1 = TREE_TYPE (op1);
14573 if (!args)
14575 /* When there are no ARGS, we are trying to evaluate a
14576 non-dependent expression from the parser. Trying to do
14577 the substitutions may not work. */
14578 if (!TYPE_P (op1))
14579 op1 = TREE_TYPE (op1);
14581 else
14583 ++cp_unevaluated_operand;
14584 ++c_inhibit_evaluation_warnings;
14585 if (TYPE_P (op1))
14586 op1 = tsubst (op1, args, complain, in_decl);
14587 else
14588 op1 = tsubst_copy_and_build (op1, args, complain, in_decl,
14589 /*function_p=*/false,
14590 /*integral_constant_expression_p=*/
14591 false);
14592 --cp_unevaluated_operand;
14593 --c_inhibit_evaluation_warnings;
14595 if (TYPE_P (op1))
14596 r = cxx_sizeof_or_alignof_type (op1, TREE_CODE (t),
14597 complain & tf_error);
14598 else
14599 r = cxx_sizeof_or_alignof_expr (op1, TREE_CODE (t),
14600 complain & tf_error);
14601 if (TREE_CODE (t) == SIZEOF_EXPR && r != error_mark_node)
14603 if (TREE_CODE (r) != SIZEOF_EXPR || TYPE_P (op1))
14605 if (!processing_template_decl && TYPE_P (op1))
14607 r = build_min (SIZEOF_EXPR, size_type_node,
14608 build1 (NOP_EXPR, op1, error_mark_node));
14609 SIZEOF_EXPR_TYPE_P (r) = 1;
14611 else
14612 r = build_min (SIZEOF_EXPR, size_type_node, op1);
14613 TREE_SIDE_EFFECTS (r) = 0;
14614 TREE_READONLY (r) = 1;
14616 SET_EXPR_LOCATION (r, EXPR_LOCATION (t));
14618 RETURN (r);
14621 case AT_ENCODE_EXPR:
14623 op1 = TREE_OPERAND (t, 0);
14624 ++cp_unevaluated_operand;
14625 ++c_inhibit_evaluation_warnings;
14626 op1 = tsubst_copy_and_build (op1, args, complain, in_decl,
14627 /*function_p=*/false,
14628 /*integral_constant_expression_p=*/false);
14629 --cp_unevaluated_operand;
14630 --c_inhibit_evaluation_warnings;
14631 RETURN (objc_build_encode_expr (op1));
14634 case NOEXCEPT_EXPR:
14635 op1 = TREE_OPERAND (t, 0);
14636 ++cp_unevaluated_operand;
14637 ++c_inhibit_evaluation_warnings;
14638 op1 = tsubst_copy_and_build (op1, args, complain, in_decl,
14639 /*function_p=*/false,
14640 /*integral_constant_expression_p=*/false);
14641 --cp_unevaluated_operand;
14642 --c_inhibit_evaluation_warnings;
14643 RETURN (finish_noexcept_expr (op1, complain));
14645 case MODOP_EXPR:
14647 warning_sentinel s(warn_div_by_zero);
14648 tree lhs = RECUR (TREE_OPERAND (t, 0));
14649 tree rhs = RECUR (TREE_OPERAND (t, 2));
14650 tree r = build_x_modify_expr
14651 (EXPR_LOCATION (t), lhs, TREE_CODE (TREE_OPERAND (t, 1)), rhs,
14652 complain|decltype_flag);
14653 /* TREE_NO_WARNING must be set if either the expression was
14654 parenthesized or it uses an operator such as >>= rather
14655 than plain assignment. In the former case, it was already
14656 set and must be copied. In the latter case,
14657 build_x_modify_expr sets it and it must not be reset
14658 here. */
14659 if (TREE_NO_WARNING (t))
14660 TREE_NO_WARNING (r) = TREE_NO_WARNING (t);
14662 RETURN (r);
14665 case ARROW_EXPR:
14666 op1 = tsubst_non_call_postfix_expression (TREE_OPERAND (t, 0),
14667 args, complain, in_decl);
14668 /* Remember that there was a reference to this entity. */
14669 if (DECL_P (op1))
14670 mark_used (op1);
14671 RETURN (build_x_arrow (input_location, op1, complain));
14673 case NEW_EXPR:
14675 tree placement = RECUR (TREE_OPERAND (t, 0));
14676 tree init = RECUR (TREE_OPERAND (t, 3));
14677 vec<tree, va_gc> *placement_vec;
14678 vec<tree, va_gc> *init_vec;
14679 tree ret;
14681 if (placement == NULL_TREE)
14682 placement_vec = NULL;
14683 else
14685 placement_vec = make_tree_vector ();
14686 for (; placement != NULL_TREE; placement = TREE_CHAIN (placement))
14687 vec_safe_push (placement_vec, TREE_VALUE (placement));
14690 /* If there was an initializer in the original tree, but it
14691 instantiated to an empty list, then we should pass a
14692 non-NULL empty vector to tell build_new that it was an
14693 empty initializer() rather than no initializer. This can
14694 only happen when the initializer is a pack expansion whose
14695 parameter packs are of length zero. */
14696 if (init == NULL_TREE && TREE_OPERAND (t, 3) == NULL_TREE)
14697 init_vec = NULL;
14698 else
14700 init_vec = make_tree_vector ();
14701 if (init == void_node)
14702 gcc_assert (init_vec != NULL);
14703 else
14705 for (; init != NULL_TREE; init = TREE_CHAIN (init))
14706 vec_safe_push (init_vec, TREE_VALUE (init));
14710 tree op1 = tsubst (TREE_OPERAND (t, 1), args, complain, in_decl);
14711 tree op2 = RECUR (TREE_OPERAND (t, 2));
14712 ret = build_new (&placement_vec, op1, op2, &init_vec,
14713 NEW_EXPR_USE_GLOBAL (t),
14714 complain);
14716 if (placement_vec != NULL)
14717 release_tree_vector (placement_vec);
14718 if (init_vec != NULL)
14719 release_tree_vector (init_vec);
14721 RETURN (ret);
14724 case DELETE_EXPR:
14726 tree op0 = RECUR (TREE_OPERAND (t, 0));
14727 tree op1 = RECUR (TREE_OPERAND (t, 1));
14728 RETURN (delete_sanity (op0, op1,
14729 DELETE_EXPR_USE_VEC (t),
14730 DELETE_EXPR_USE_GLOBAL (t),
14731 complain));
14734 case COMPOUND_EXPR:
14736 tree op0 = tsubst_copy_and_build (TREE_OPERAND (t, 0), args,
14737 complain & ~tf_decltype, in_decl,
14738 /*function_p=*/false,
14739 integral_constant_expression_p);
14740 RETURN (build_x_compound_expr (EXPR_LOCATION (t),
14741 op0,
14742 RECUR (TREE_OPERAND (t, 1)),
14743 complain|decltype_flag));
14746 case CALL_EXPR:
14748 tree function;
14749 vec<tree, va_gc> *call_args;
14750 unsigned int nargs, i;
14751 bool qualified_p;
14752 bool koenig_p;
14753 tree ret;
14755 function = CALL_EXPR_FN (t);
14756 /* When we parsed the expression, we determined whether or
14757 not Koenig lookup should be performed. */
14758 koenig_p = KOENIG_LOOKUP_P (t);
14759 if (TREE_CODE (function) == SCOPE_REF)
14761 qualified_p = true;
14762 function = tsubst_qualified_id (function, args, complain, in_decl,
14763 /*done=*/false,
14764 /*address_p=*/false);
14766 else if (koenig_p && identifier_p (function))
14768 /* Do nothing; calling tsubst_copy_and_build on an identifier
14769 would incorrectly perform unqualified lookup again.
14771 Note that we can also have an IDENTIFIER_NODE if the earlier
14772 unqualified lookup found a member function; in that case
14773 koenig_p will be false and we do want to do the lookup
14774 again to find the instantiated member function.
14776 FIXME but doing that causes c++/15272, so we need to stop
14777 using IDENTIFIER_NODE in that situation. */
14778 qualified_p = false;
14780 else
14782 if (TREE_CODE (function) == COMPONENT_REF)
14784 tree op = TREE_OPERAND (function, 1);
14786 qualified_p = (TREE_CODE (op) == SCOPE_REF
14787 || (BASELINK_P (op)
14788 && BASELINK_QUALIFIED_P (op)));
14790 else
14791 qualified_p = false;
14793 if (TREE_CODE (function) == ADDR_EXPR
14794 && TREE_CODE (TREE_OPERAND (function, 0)) == FUNCTION_DECL)
14795 /* Avoid error about taking the address of a constructor. */
14796 function = TREE_OPERAND (function, 0);
14798 function = tsubst_copy_and_build (function, args, complain,
14799 in_decl,
14800 !qualified_p,
14801 integral_constant_expression_p);
14803 if (BASELINK_P (function))
14804 qualified_p = true;
14807 nargs = call_expr_nargs (t);
14808 call_args = make_tree_vector ();
14809 for (i = 0; i < nargs; ++i)
14811 tree arg = CALL_EXPR_ARG (t, i);
14813 if (!PACK_EXPANSION_P (arg))
14814 vec_safe_push (call_args, RECUR (CALL_EXPR_ARG (t, i)));
14815 else
14817 /* Expand the pack expansion and push each entry onto
14818 CALL_ARGS. */
14819 arg = tsubst_pack_expansion (arg, args, complain, in_decl);
14820 if (TREE_CODE (arg) == TREE_VEC)
14822 unsigned int len, j;
14824 len = TREE_VEC_LENGTH (arg);
14825 for (j = 0; j < len; ++j)
14827 tree value = TREE_VEC_ELT (arg, j);
14828 if (value != NULL_TREE)
14829 value = convert_from_reference (value);
14830 vec_safe_push (call_args, value);
14833 else
14835 /* A partial substitution. Add one entry. */
14836 vec_safe_push (call_args, arg);
14841 /* We do not perform argument-dependent lookup if normal
14842 lookup finds a non-function, in accordance with the
14843 expected resolution of DR 218. */
14844 if (koenig_p
14845 && ((is_overloaded_fn (function)
14846 /* If lookup found a member function, the Koenig lookup is
14847 not appropriate, even if an unqualified-name was used
14848 to denote the function. */
14849 && !DECL_FUNCTION_MEMBER_P (get_first_fn (function)))
14850 || identifier_p (function))
14851 /* Only do this when substitution turns a dependent call
14852 into a non-dependent call. */
14853 && type_dependent_expression_p_push (t)
14854 && !any_type_dependent_arguments_p (call_args))
14855 function = perform_koenig_lookup (function, call_args, tf_none);
14857 if (identifier_p (function)
14858 && !any_type_dependent_arguments_p (call_args))
14860 if (koenig_p && (complain & tf_warning_or_error))
14862 /* For backwards compatibility and good diagnostics, try
14863 the unqualified lookup again if we aren't in SFINAE
14864 context. */
14865 tree unq = (tsubst_copy_and_build
14866 (function, args, complain, in_decl, true,
14867 integral_constant_expression_p));
14868 if (unq == error_mark_node)
14869 RETURN (error_mark_node);
14871 if (unq != function)
14873 tree fn = unq;
14874 if (INDIRECT_REF_P (fn))
14875 fn = TREE_OPERAND (fn, 0);
14876 if (TREE_CODE (fn) == COMPONENT_REF)
14877 fn = TREE_OPERAND (fn, 1);
14878 if (is_overloaded_fn (fn))
14879 fn = get_first_fn (fn);
14880 if (permerror (EXPR_LOC_OR_LOC (t, input_location),
14881 "%qD was not declared in this scope, "
14882 "and no declarations were found by "
14883 "argument-dependent lookup at the point "
14884 "of instantiation", function))
14886 if (!DECL_P (fn))
14887 /* Can't say anything more. */;
14888 else if (DECL_CLASS_SCOPE_P (fn))
14890 location_t loc = EXPR_LOC_OR_LOC (t,
14891 input_location);
14892 inform (loc,
14893 "declarations in dependent base %qT are "
14894 "not found by unqualified lookup",
14895 DECL_CLASS_CONTEXT (fn));
14896 if (current_class_ptr)
14897 inform (loc,
14898 "use %<this->%D%> instead", function);
14899 else
14900 inform (loc,
14901 "use %<%T::%D%> instead",
14902 current_class_name, function);
14904 else
14905 inform (0, "%q+D declared here, later in the "
14906 "translation unit", fn);
14908 function = unq;
14911 if (identifier_p (function))
14913 if (complain & tf_error)
14914 unqualified_name_lookup_error (function);
14915 release_tree_vector (call_args);
14916 RETURN (error_mark_node);
14920 /* Remember that there was a reference to this entity. */
14921 if (DECL_P (function))
14922 mark_used (function);
14924 /* Put back tf_decltype for the actual call. */
14925 complain |= decltype_flag;
14927 if (TREE_CODE (function) == OFFSET_REF)
14928 ret = build_offset_ref_call_from_tree (function, &call_args,
14929 complain);
14930 else if (TREE_CODE (function) == COMPONENT_REF)
14932 tree instance = TREE_OPERAND (function, 0);
14933 tree fn = TREE_OPERAND (function, 1);
14935 if (processing_template_decl
14936 && (type_dependent_expression_p (instance)
14937 || (!BASELINK_P (fn)
14938 && TREE_CODE (fn) != FIELD_DECL)
14939 || type_dependent_expression_p (fn)
14940 || any_type_dependent_arguments_p (call_args)))
14941 ret = build_nt_call_vec (function, call_args);
14942 else if (!BASELINK_P (fn))
14943 ret = finish_call_expr (function, &call_args,
14944 /*disallow_virtual=*/false,
14945 /*koenig_p=*/false,
14946 complain);
14947 else
14948 ret = (build_new_method_call
14949 (instance, fn,
14950 &call_args, NULL_TREE,
14951 qualified_p ? LOOKUP_NONVIRTUAL : LOOKUP_NORMAL,
14952 /*fn_p=*/NULL,
14953 complain));
14955 else
14956 ret = finish_call_expr (function, &call_args,
14957 /*disallow_virtual=*/qualified_p,
14958 koenig_p,
14959 complain);
14961 release_tree_vector (call_args);
14963 RETURN (ret);
14966 case COND_EXPR:
14968 tree cond = RECUR (TREE_OPERAND (t, 0));
14969 tree exp1, exp2;
14971 if (TREE_CODE (cond) == INTEGER_CST)
14973 if (integer_zerop (cond))
14975 ++c_inhibit_evaluation_warnings;
14976 exp1 = RECUR (TREE_OPERAND (t, 1));
14977 --c_inhibit_evaluation_warnings;
14978 exp2 = RECUR (TREE_OPERAND (t, 2));
14980 else
14982 exp1 = RECUR (TREE_OPERAND (t, 1));
14983 ++c_inhibit_evaluation_warnings;
14984 exp2 = RECUR (TREE_OPERAND (t, 2));
14985 --c_inhibit_evaluation_warnings;
14988 else
14990 exp1 = RECUR (TREE_OPERAND (t, 1));
14991 exp2 = RECUR (TREE_OPERAND (t, 2));
14994 RETURN (build_x_conditional_expr (EXPR_LOCATION (t),
14995 cond, exp1, exp2, complain));
14998 case PSEUDO_DTOR_EXPR:
15000 tree op0 = RECUR (TREE_OPERAND (t, 0));
15001 tree op1 = RECUR (TREE_OPERAND (t, 1));
15002 tree op2 = tsubst (TREE_OPERAND (t, 2), args, complain, in_decl);
15003 RETURN (finish_pseudo_destructor_expr (op0, op1, op2,
15004 input_location));
15007 case TREE_LIST:
15009 tree purpose, value, chain;
15011 if (t == void_list_node)
15012 RETURN (t);
15014 if ((TREE_PURPOSE (t) && PACK_EXPANSION_P (TREE_PURPOSE (t)))
15015 || (TREE_VALUE (t) && PACK_EXPANSION_P (TREE_VALUE (t))))
15017 /* We have pack expansions, so expand those and
15018 create a new list out of it. */
15019 tree purposevec = NULL_TREE;
15020 tree valuevec = NULL_TREE;
15021 tree chain;
15022 int i, len = -1;
15024 /* Expand the argument expressions. */
15025 if (TREE_PURPOSE (t))
15026 purposevec = tsubst_pack_expansion (TREE_PURPOSE (t), args,
15027 complain, in_decl);
15028 if (TREE_VALUE (t))
15029 valuevec = tsubst_pack_expansion (TREE_VALUE (t), args,
15030 complain, in_decl);
15032 /* Build the rest of the list. */
15033 chain = TREE_CHAIN (t);
15034 if (chain && chain != void_type_node)
15035 chain = RECUR (chain);
15037 /* Determine the number of arguments. */
15038 if (purposevec && TREE_CODE (purposevec) == TREE_VEC)
15040 len = TREE_VEC_LENGTH (purposevec);
15041 gcc_assert (!valuevec || len == TREE_VEC_LENGTH (valuevec));
15043 else if (TREE_CODE (valuevec) == TREE_VEC)
15044 len = TREE_VEC_LENGTH (valuevec);
15045 else
15047 /* Since we only performed a partial substitution into
15048 the argument pack, we only RETURN (a single list
15049 node. */
15050 if (purposevec == TREE_PURPOSE (t)
15051 && valuevec == TREE_VALUE (t)
15052 && chain == TREE_CHAIN (t))
15053 RETURN (t);
15055 RETURN (tree_cons (purposevec, valuevec, chain));
15058 /* Convert the argument vectors into a TREE_LIST */
15059 i = len;
15060 while (i > 0)
15062 /* Grab the Ith values. */
15063 i--;
15064 purpose = purposevec ? TREE_VEC_ELT (purposevec, i)
15065 : NULL_TREE;
15066 value
15067 = valuevec ? convert_from_reference (TREE_VEC_ELT (valuevec, i))
15068 : NULL_TREE;
15070 /* Build the list (backwards). */
15071 chain = tree_cons (purpose, value, chain);
15074 RETURN (chain);
15077 purpose = TREE_PURPOSE (t);
15078 if (purpose)
15079 purpose = RECUR (purpose);
15080 value = TREE_VALUE (t);
15081 if (value)
15082 value = RECUR (value);
15083 chain = TREE_CHAIN (t);
15084 if (chain && chain != void_type_node)
15085 chain = RECUR (chain);
15086 if (purpose == TREE_PURPOSE (t)
15087 && value == TREE_VALUE (t)
15088 && chain == TREE_CHAIN (t))
15089 RETURN (t);
15090 RETURN (tree_cons (purpose, value, chain));
15093 case COMPONENT_REF:
15095 tree object;
15096 tree object_type;
15097 tree member;
15098 tree r;
15100 object = tsubst_non_call_postfix_expression (TREE_OPERAND (t, 0),
15101 args, complain, in_decl);
15102 /* Remember that there was a reference to this entity. */
15103 if (DECL_P (object))
15104 mark_used (object);
15105 object_type = TREE_TYPE (object);
15107 member = TREE_OPERAND (t, 1);
15108 if (BASELINK_P (member))
15109 member = tsubst_baselink (member,
15110 non_reference (TREE_TYPE (object)),
15111 args, complain, in_decl);
15112 else
15113 member = tsubst_copy (member, args, complain, in_decl);
15114 if (member == error_mark_node)
15115 RETURN (error_mark_node);
15117 if (type_dependent_expression_p (object))
15118 /* We can't do much here. */;
15119 else if (!CLASS_TYPE_P (object_type))
15121 if (scalarish_type_p (object_type))
15123 tree s = NULL_TREE;
15124 tree dtor = member;
15126 if (TREE_CODE (dtor) == SCOPE_REF)
15128 s = TREE_OPERAND (dtor, 0);
15129 dtor = TREE_OPERAND (dtor, 1);
15131 if (TREE_CODE (dtor) == BIT_NOT_EXPR)
15133 dtor = TREE_OPERAND (dtor, 0);
15134 if (TYPE_P (dtor))
15135 RETURN (finish_pseudo_destructor_expr
15136 (object, s, dtor, input_location));
15140 else if (TREE_CODE (member) == SCOPE_REF
15141 && TREE_CODE (TREE_OPERAND (member, 1)) == TEMPLATE_ID_EXPR)
15143 /* Lookup the template functions now that we know what the
15144 scope is. */
15145 tree scope = TREE_OPERAND (member, 0);
15146 tree tmpl = TREE_OPERAND (TREE_OPERAND (member, 1), 0);
15147 tree args = TREE_OPERAND (TREE_OPERAND (member, 1), 1);
15148 member = lookup_qualified_name (scope, tmpl,
15149 /*is_type_p=*/false,
15150 /*complain=*/false);
15151 if (BASELINK_P (member))
15153 BASELINK_FUNCTIONS (member)
15154 = build_nt (TEMPLATE_ID_EXPR, BASELINK_FUNCTIONS (member),
15155 args);
15156 member = (adjust_result_of_qualified_name_lookup
15157 (member, BINFO_TYPE (BASELINK_BINFO (member)),
15158 object_type));
15160 else
15162 qualified_name_lookup_error (scope, tmpl, member,
15163 input_location);
15164 RETURN (error_mark_node);
15167 else if (TREE_CODE (member) == SCOPE_REF
15168 && !CLASS_TYPE_P (TREE_OPERAND (member, 0))
15169 && TREE_CODE (TREE_OPERAND (member, 0)) != NAMESPACE_DECL)
15171 if (complain & tf_error)
15173 if (TYPE_P (TREE_OPERAND (member, 0)))
15174 error ("%qT is not a class or namespace",
15175 TREE_OPERAND (member, 0));
15176 else
15177 error ("%qD is not a class or namespace",
15178 TREE_OPERAND (member, 0));
15180 RETURN (error_mark_node);
15182 else if (TREE_CODE (member) == FIELD_DECL)
15184 r = finish_non_static_data_member (member, object, NULL_TREE);
15185 if (TREE_CODE (r) == COMPONENT_REF)
15186 REF_PARENTHESIZED_P (r) = REF_PARENTHESIZED_P (t);
15187 RETURN (r);
15190 r = finish_class_member_access_expr (object, member,
15191 /*template_p=*/false,
15192 complain);
15193 if (TREE_CODE (r) == COMPONENT_REF)
15194 REF_PARENTHESIZED_P (r) = REF_PARENTHESIZED_P (t);
15195 RETURN (r);
15198 case THROW_EXPR:
15199 RETURN (build_throw
15200 (RECUR (TREE_OPERAND (t, 0))));
15202 case CONSTRUCTOR:
15204 vec<constructor_elt, va_gc> *n;
15205 constructor_elt *ce;
15206 unsigned HOST_WIDE_INT idx;
15207 tree type = tsubst (TREE_TYPE (t), args, complain, in_decl);
15208 bool process_index_p;
15209 int newlen;
15210 bool need_copy_p = false;
15211 tree r;
15213 if (type == error_mark_node)
15214 RETURN (error_mark_node);
15216 /* digest_init will do the wrong thing if we let it. */
15217 if (type && TYPE_PTRMEMFUNC_P (type))
15218 RETURN (t);
15220 /* We do not want to process the index of aggregate
15221 initializers as they are identifier nodes which will be
15222 looked up by digest_init. */
15223 process_index_p = !(type && MAYBE_CLASS_TYPE_P (type));
15225 n = vec_safe_copy (CONSTRUCTOR_ELTS (t));
15226 newlen = vec_safe_length (n);
15227 FOR_EACH_VEC_SAFE_ELT (n, idx, ce)
15229 if (ce->index && process_index_p
15230 /* An identifier index is looked up in the type
15231 being initialized, not the current scope. */
15232 && TREE_CODE (ce->index) != IDENTIFIER_NODE)
15233 ce->index = RECUR (ce->index);
15235 if (PACK_EXPANSION_P (ce->value))
15237 /* Substitute into the pack expansion. */
15238 ce->value = tsubst_pack_expansion (ce->value, args, complain,
15239 in_decl);
15241 if (ce->value == error_mark_node
15242 || PACK_EXPANSION_P (ce->value))
15244 else if (TREE_VEC_LENGTH (ce->value) == 1)
15245 /* Just move the argument into place. */
15246 ce->value = TREE_VEC_ELT (ce->value, 0);
15247 else
15249 /* Update the length of the final CONSTRUCTOR
15250 arguments vector, and note that we will need to
15251 copy.*/
15252 newlen = newlen + TREE_VEC_LENGTH (ce->value) - 1;
15253 need_copy_p = true;
15256 else
15257 ce->value = RECUR (ce->value);
15260 if (need_copy_p)
15262 vec<constructor_elt, va_gc> *old_n = n;
15264 vec_alloc (n, newlen);
15265 FOR_EACH_VEC_ELT (*old_n, idx, ce)
15267 if (TREE_CODE (ce->value) == TREE_VEC)
15269 int i, len = TREE_VEC_LENGTH (ce->value);
15270 for (i = 0; i < len; ++i)
15271 CONSTRUCTOR_APPEND_ELT (n, 0,
15272 TREE_VEC_ELT (ce->value, i));
15274 else
15275 CONSTRUCTOR_APPEND_ELT (n, 0, ce->value);
15279 r = build_constructor (init_list_type_node, n);
15280 CONSTRUCTOR_IS_DIRECT_INIT (r) = CONSTRUCTOR_IS_DIRECT_INIT (t);
15282 if (TREE_HAS_CONSTRUCTOR (t))
15283 RETURN (finish_compound_literal (type, r, complain));
15285 TREE_TYPE (r) = type;
15286 RETURN (r);
15289 case TYPEID_EXPR:
15291 tree operand_0 = TREE_OPERAND (t, 0);
15292 if (TYPE_P (operand_0))
15294 operand_0 = tsubst (operand_0, args, complain, in_decl);
15295 RETURN (get_typeid (operand_0, complain));
15297 else
15299 operand_0 = RECUR (operand_0);
15300 RETURN (build_typeid (operand_0, complain));
15304 case VAR_DECL:
15305 if (!args)
15306 RETURN (t);
15307 else if (DECL_PACK_P (t))
15309 /* We don't build decls for an instantiation of a
15310 variadic capture proxy, we instantiate the elements
15311 when needed. */
15312 gcc_assert (DECL_HAS_VALUE_EXPR_P (t));
15313 return RECUR (DECL_VALUE_EXPR (t));
15315 /* Fall through */
15317 case PARM_DECL:
15319 tree r = tsubst_copy (t, args, complain, in_decl);
15321 if (TREE_CODE (TREE_TYPE (t)) != REFERENCE_TYPE)
15322 /* If the original type was a reference, we'll be wrapped in
15323 the appropriate INDIRECT_REF. */
15324 r = convert_from_reference (r);
15325 RETURN (r);
15328 case VA_ARG_EXPR:
15330 tree op0 = RECUR (TREE_OPERAND (t, 0));
15331 tree type = tsubst (TREE_TYPE (t), args, complain, in_decl);
15332 RETURN (build_x_va_arg (EXPR_LOCATION (t), op0, type));
15335 case OFFSETOF_EXPR:
15336 RETURN (finish_offsetof (RECUR (TREE_OPERAND (t, 0))));
15338 case TRAIT_EXPR:
15340 tree type1 = tsubst (TRAIT_EXPR_TYPE1 (t), args,
15341 complain, in_decl);
15343 tree type2 = TRAIT_EXPR_TYPE2 (t);
15344 if (type2)
15345 type2 = tsubst (type2, args, complain, in_decl);
15347 RETURN (finish_trait_expr (TRAIT_EXPR_KIND (t), type1, type2));
15350 case STMT_EXPR:
15352 tree old_stmt_expr = cur_stmt_expr;
15353 tree stmt_expr = begin_stmt_expr ();
15355 cur_stmt_expr = stmt_expr;
15356 tsubst_expr (STMT_EXPR_STMT (t), args, complain, in_decl,
15357 integral_constant_expression_p);
15358 stmt_expr = finish_stmt_expr (stmt_expr, false);
15359 cur_stmt_expr = old_stmt_expr;
15361 /* If the resulting list of expression statement is empty,
15362 fold it further into void_node. */
15363 if (empty_expr_stmt_p (stmt_expr))
15364 stmt_expr = void_node;
15366 RETURN (stmt_expr);
15369 case LAMBDA_EXPR:
15371 tree r = build_lambda_expr ();
15373 tree type = tsubst (LAMBDA_EXPR_CLOSURE (t), args, complain, NULL_TREE);
15374 LAMBDA_EXPR_CLOSURE (r) = type;
15375 CLASSTYPE_LAMBDA_EXPR (type) = r;
15377 LAMBDA_EXPR_LOCATION (r)
15378 = LAMBDA_EXPR_LOCATION (t);
15379 LAMBDA_EXPR_DEFAULT_CAPTURE_MODE (r)
15380 = LAMBDA_EXPR_DEFAULT_CAPTURE_MODE (t);
15381 LAMBDA_EXPR_MUTABLE_P (r) = LAMBDA_EXPR_MUTABLE_P (t);
15382 LAMBDA_EXPR_DISCRIMINATOR (r)
15383 = (LAMBDA_EXPR_DISCRIMINATOR (t));
15384 /* For a function scope, we want to use tsubst so that we don't
15385 complain about referring to an auto function before its return
15386 type has been deduced. Otherwise, we want to use tsubst_copy so
15387 that we look up the existing field/parameter/variable rather
15388 than build a new one. */
15389 tree scope = LAMBDA_EXPR_EXTRA_SCOPE (t);
15390 if (scope && TREE_CODE (scope) == FUNCTION_DECL)
15391 scope = tsubst (scope, args, complain, in_decl);
15392 else if (scope && TREE_CODE (scope) == PARM_DECL)
15394 /* Look up the parameter we want directly, as tsubst_copy
15395 doesn't do what we need. */
15396 tree fn = tsubst (DECL_CONTEXT (scope), args, complain, in_decl);
15397 tree parm = FUNCTION_FIRST_USER_PARM (fn);
15398 while (DECL_PARM_INDEX (parm) != DECL_PARM_INDEX (scope))
15399 parm = DECL_CHAIN (parm);
15400 scope = parm;
15401 /* FIXME Work around the parm not having DECL_CONTEXT set. */
15402 if (DECL_CONTEXT (scope) == NULL_TREE)
15403 DECL_CONTEXT (scope) = fn;
15405 else
15406 scope = RECUR (scope);
15407 LAMBDA_EXPR_EXTRA_SCOPE (r) = scope;
15408 LAMBDA_EXPR_RETURN_TYPE (r)
15409 = tsubst (LAMBDA_EXPR_RETURN_TYPE (t), args, complain, in_decl);
15411 gcc_assert (LAMBDA_EXPR_THIS_CAPTURE (t) == NULL_TREE
15412 && LAMBDA_EXPR_PENDING_PROXIES (t) == NULL);
15414 /* Do this again now that LAMBDA_EXPR_EXTRA_SCOPE is set. */
15415 determine_visibility (TYPE_NAME (type));
15416 /* Now that we know visibility, instantiate the type so we have a
15417 declaration of the op() for later calls to lambda_function. */
15418 complete_type (type);
15420 LAMBDA_EXPR_THIS_CAPTURE (r) = NULL_TREE;
15422 RETURN (build_lambda_object (r));
15425 case TARGET_EXPR:
15426 /* We can get here for a constant initializer of non-dependent type.
15427 FIXME stop folding in cp_parser_initializer_clause. */
15429 tree r = get_target_expr_sfinae (RECUR (TARGET_EXPR_INITIAL (t)),
15430 complain);
15431 RETURN (r);
15434 case TRANSACTION_EXPR:
15435 RETURN (tsubst_expr(t, args, complain, in_decl,
15436 integral_constant_expression_p));
15438 case PAREN_EXPR:
15439 RETURN (finish_parenthesized_expr (RECUR (TREE_OPERAND (t, 0))));
15441 case VEC_PERM_EXPR:
15443 tree op0 = RECUR (TREE_OPERAND (t, 0));
15444 tree op1 = RECUR (TREE_OPERAND (t, 1));
15445 tree op2 = RECUR (TREE_OPERAND (t, 2));
15446 RETURN (build_x_vec_perm_expr (input_location, op0, op1, op2,
15447 complain));
15450 default:
15451 /* Handle Objective-C++ constructs, if appropriate. */
15453 tree subst
15454 = objcp_tsubst_copy_and_build (t, args, complain,
15455 in_decl, /*function_p=*/false);
15456 if (subst)
15457 RETURN (subst);
15459 RETURN (tsubst_copy (t, args, complain, in_decl));
15462 #undef RECUR
15463 #undef RETURN
15464 out:
15465 input_location = loc;
15466 return retval;
15469 /* Verify that the instantiated ARGS are valid. For type arguments,
15470 make sure that the type's linkage is ok. For non-type arguments,
15471 make sure they are constants if they are integral or enumerations.
15472 Emit an error under control of COMPLAIN, and return TRUE on error. */
15474 static bool
15475 check_instantiated_arg (tree tmpl, tree t, tsubst_flags_t complain)
15477 if (dependent_template_arg_p (t))
15478 return false;
15479 if (ARGUMENT_PACK_P (t))
15481 tree vec = ARGUMENT_PACK_ARGS (t);
15482 int len = TREE_VEC_LENGTH (vec);
15483 bool result = false;
15484 int i;
15486 for (i = 0; i < len; ++i)
15487 if (check_instantiated_arg (tmpl, TREE_VEC_ELT (vec, i), complain))
15488 result = true;
15489 return result;
15491 else if (TYPE_P (t))
15493 /* [basic.link]: A name with no linkage (notably, the name
15494 of a class or enumeration declared in a local scope)
15495 shall not be used to declare an entity with linkage.
15496 This implies that names with no linkage cannot be used as
15497 template arguments
15499 DR 757 relaxes this restriction for C++0x. */
15500 tree nt = (cxx_dialect > cxx98 ? NULL_TREE
15501 : no_linkage_check (t, /*relaxed_p=*/false));
15503 if (nt)
15505 /* DR 488 makes use of a type with no linkage cause
15506 type deduction to fail. */
15507 if (complain & tf_error)
15509 if (TYPE_ANONYMOUS_P (nt))
15510 error ("%qT is/uses anonymous type", t);
15511 else
15512 error ("template argument for %qD uses local type %qT",
15513 tmpl, t);
15515 return true;
15517 /* In order to avoid all sorts of complications, we do not
15518 allow variably-modified types as template arguments. */
15519 else if (variably_modified_type_p (t, NULL_TREE))
15521 if (complain & tf_error)
15522 error ("%qT is a variably modified type", t);
15523 return true;
15526 /* Class template and alias template arguments should be OK. */
15527 else if (DECL_TYPE_TEMPLATE_P (t))
15529 /* A non-type argument of integral or enumerated type must be a
15530 constant. */
15531 else if (TREE_TYPE (t)
15532 && INTEGRAL_OR_ENUMERATION_TYPE_P (TREE_TYPE (t))
15533 && !TREE_CONSTANT (t))
15535 if (complain & tf_error)
15536 error ("integral expression %qE is not constant", t);
15537 return true;
15539 return false;
15542 static bool
15543 check_instantiated_args (tree tmpl, tree args, tsubst_flags_t complain)
15545 int ix, len = DECL_NTPARMS (tmpl);
15546 bool result = false;
15548 for (ix = 0; ix != len; ix++)
15550 if (check_instantiated_arg (tmpl, TREE_VEC_ELT (args, ix), complain))
15551 result = true;
15553 if (result && (complain & tf_error))
15554 error (" trying to instantiate %qD", tmpl);
15555 return result;
15558 /* We're out of SFINAE context now, so generate diagnostics for the access
15559 errors we saw earlier when instantiating D from TMPL and ARGS. */
15561 static void
15562 recheck_decl_substitution (tree d, tree tmpl, tree args)
15564 tree pattern = DECL_TEMPLATE_RESULT (tmpl);
15565 tree type = TREE_TYPE (pattern);
15566 location_t loc = input_location;
15568 push_access_scope (d);
15569 push_deferring_access_checks (dk_no_deferred);
15570 input_location = DECL_SOURCE_LOCATION (pattern);
15571 tsubst (type, args, tf_warning_or_error, d);
15572 input_location = loc;
15573 pop_deferring_access_checks ();
15574 pop_access_scope (d);
15577 /* Instantiate the indicated variable, function, or alias template TMPL with
15578 the template arguments in TARG_PTR. */
15580 static tree
15581 instantiate_template_1 (tree tmpl, tree orig_args, tsubst_flags_t complain)
15583 tree targ_ptr = orig_args;
15584 tree fndecl;
15585 tree gen_tmpl;
15586 tree spec;
15587 bool access_ok = true;
15589 if (tmpl == error_mark_node)
15590 return error_mark_node;
15592 gcc_assert (TREE_CODE (tmpl) == TEMPLATE_DECL);
15594 /* If this function is a clone, handle it specially. */
15595 if (DECL_CLONED_FUNCTION_P (tmpl))
15597 tree spec;
15598 tree clone;
15600 /* Use DECL_ABSTRACT_ORIGIN because only FUNCTION_DECLs have
15601 DECL_CLONED_FUNCTION. */
15602 spec = instantiate_template (DECL_ABSTRACT_ORIGIN (tmpl),
15603 targ_ptr, complain);
15604 if (spec == error_mark_node)
15605 return error_mark_node;
15607 /* Look for the clone. */
15608 FOR_EACH_CLONE (clone, spec)
15609 if (DECL_NAME (clone) == DECL_NAME (tmpl))
15610 return clone;
15611 /* We should always have found the clone by now. */
15612 gcc_unreachable ();
15613 return NULL_TREE;
15616 if (targ_ptr == error_mark_node)
15617 return error_mark_node;
15619 /* Check to see if we already have this specialization. */
15620 gen_tmpl = most_general_template (tmpl);
15621 if (tmpl != gen_tmpl)
15622 /* The TMPL is a partial instantiation. To get a full set of
15623 arguments we must add the arguments used to perform the
15624 partial instantiation. */
15625 targ_ptr = add_outermost_template_args (DECL_TI_ARGS (tmpl),
15626 targ_ptr);
15628 /* It would be nice to avoid hashing here and then again in tsubst_decl,
15629 but it doesn't seem to be on the hot path. */
15630 spec = retrieve_specialization (gen_tmpl, targ_ptr, 0);
15632 gcc_assert (tmpl == gen_tmpl
15633 || ((fndecl = retrieve_specialization (tmpl, orig_args, 0))
15634 == spec)
15635 || fndecl == NULL_TREE);
15637 if (spec != NULL_TREE)
15639 if (FNDECL_HAS_ACCESS_ERRORS (spec))
15641 if (complain & tf_error)
15642 recheck_decl_substitution (spec, gen_tmpl, targ_ptr);
15643 return error_mark_node;
15645 return spec;
15648 if (check_instantiated_args (gen_tmpl, INNERMOST_TEMPLATE_ARGS (targ_ptr),
15649 complain))
15650 return error_mark_node;
15652 /* We are building a FUNCTION_DECL, during which the access of its
15653 parameters and return types have to be checked. However this
15654 FUNCTION_DECL which is the desired context for access checking
15655 is not built yet. We solve this chicken-and-egg problem by
15656 deferring all checks until we have the FUNCTION_DECL. */
15657 push_deferring_access_checks (dk_deferred);
15659 /* Instantiation of the function happens in the context of the function
15660 template, not the context of the overload resolution we're doing. */
15661 push_to_top_level ();
15662 /* If there are dependent arguments, e.g. because we're doing partial
15663 ordering, make sure processing_template_decl stays set. */
15664 if (uses_template_parms (targ_ptr))
15665 ++processing_template_decl;
15666 if (DECL_CLASS_SCOPE_P (gen_tmpl))
15668 tree ctx = tsubst (DECL_CONTEXT (gen_tmpl), targ_ptr,
15669 complain, gen_tmpl);
15670 push_nested_class (ctx);
15672 /* Substitute template parameters to obtain the specialization. */
15673 fndecl = tsubst (DECL_TEMPLATE_RESULT (gen_tmpl),
15674 targ_ptr, complain, gen_tmpl);
15675 if (DECL_CLASS_SCOPE_P (gen_tmpl))
15676 pop_nested_class ();
15677 pop_from_top_level ();
15679 if (fndecl == error_mark_node)
15681 pop_deferring_access_checks ();
15682 return error_mark_node;
15685 /* The DECL_TI_TEMPLATE should always be the immediate parent
15686 template, not the most general template. */
15687 DECL_TI_TEMPLATE (fndecl) = tmpl;
15689 /* Now we know the specialization, compute access previously
15690 deferred. */
15691 push_access_scope (fndecl);
15692 if (!perform_deferred_access_checks (complain))
15693 access_ok = false;
15694 pop_access_scope (fndecl);
15695 pop_deferring_access_checks ();
15697 /* If we've just instantiated the main entry point for a function,
15698 instantiate all the alternate entry points as well. We do this
15699 by cloning the instantiation of the main entry point, not by
15700 instantiating the template clones. */
15701 if (DECL_CHAIN (gen_tmpl) && DECL_CLONED_FUNCTION_P (DECL_CHAIN (gen_tmpl)))
15702 clone_function_decl (fndecl, /*update_method_vec_p=*/0);
15704 if (!access_ok)
15706 if (!(complain & tf_error))
15708 /* Remember to reinstantiate when we're out of SFINAE so the user
15709 can see the errors. */
15710 FNDECL_HAS_ACCESS_ERRORS (fndecl) = true;
15712 return error_mark_node;
15714 return fndecl;
15717 /* Wrapper for instantiate_template_1. */
15719 tree
15720 instantiate_template (tree tmpl, tree orig_args, tsubst_flags_t complain)
15722 tree ret;
15723 timevar_push (TV_TEMPLATE_INST);
15724 ret = instantiate_template_1 (tmpl, orig_args, complain);
15725 timevar_pop (TV_TEMPLATE_INST);
15726 return ret;
15729 /* Instantiate the alias template TMPL with ARGS. Also push a template
15730 instantiation level, which instantiate_template doesn't do because
15731 functions and variables have sufficient context established by the
15732 callers. */
15734 static tree
15735 instantiate_alias_template (tree tmpl, tree args, tsubst_flags_t complain)
15737 struct pending_template *old_last_pend = last_pending_template;
15738 struct tinst_level *old_error_tinst = last_error_tinst_level;
15739 if (tmpl == error_mark_node || args == error_mark_node)
15740 return error_mark_node;
15741 tree tinst = build_tree_list (tmpl, args);
15742 if (!push_tinst_level (tinst))
15744 ggc_free (tinst);
15745 return error_mark_node;
15748 args =
15749 coerce_innermost_template_parms (DECL_TEMPLATE_PARMS (tmpl),
15750 args, tmpl, complain,
15751 /*require_all_args=*/true,
15752 /*use_default_args=*/true);
15754 tree r = instantiate_template (tmpl, args, complain);
15755 pop_tinst_level ();
15756 /* We can't free this if a pending_template entry or last_error_tinst_level
15757 is pointing at it. */
15758 if (last_pending_template == old_last_pend
15759 && last_error_tinst_level == old_error_tinst)
15760 ggc_free (tinst);
15762 return r;
15765 /* PARM is a template parameter pack for FN. Returns true iff
15766 PARM is used in a deducible way in the argument list of FN. */
15768 static bool
15769 pack_deducible_p (tree parm, tree fn)
15771 tree t = FUNCTION_FIRST_USER_PARMTYPE (fn);
15772 for (; t; t = TREE_CHAIN (t))
15774 tree type = TREE_VALUE (t);
15775 tree packs;
15776 if (!PACK_EXPANSION_P (type))
15777 continue;
15778 for (packs = PACK_EXPANSION_PARAMETER_PACKS (type);
15779 packs; packs = TREE_CHAIN (packs))
15780 if (template_args_equal (TREE_VALUE (packs), parm))
15782 /* The template parameter pack is used in a function parameter
15783 pack. If this is the end of the parameter list, the
15784 template parameter pack is deducible. */
15785 if (TREE_CHAIN (t) == void_list_node)
15786 return true;
15787 else
15788 /* Otherwise, not. Well, it could be deduced from
15789 a non-pack parameter, but doing so would end up with
15790 a deduction mismatch, so don't bother. */
15791 return false;
15794 /* The template parameter pack isn't used in any function parameter
15795 packs, but it might be used deeper, e.g. tuple<Args...>. */
15796 return true;
15799 /* The FN is a TEMPLATE_DECL for a function. ARGS is an array with
15800 NARGS elements of the arguments that are being used when calling
15801 it. TARGS is a vector into which the deduced template arguments
15802 are placed.
15804 Returns either a FUNCTION_DECL for the matching specialization of FN or
15805 NULL_TREE if no suitable specialization can be found. If EXPLAIN_P is
15806 true, diagnostics will be printed to explain why it failed.
15808 If FN is a conversion operator, or we are trying to produce a specific
15809 specialization, RETURN_TYPE is the return type desired.
15811 The EXPLICIT_TARGS are explicit template arguments provided via a
15812 template-id.
15814 The parameter STRICT is one of:
15816 DEDUCE_CALL:
15817 We are deducing arguments for a function call, as in
15818 [temp.deduct.call].
15820 DEDUCE_CONV:
15821 We are deducing arguments for a conversion function, as in
15822 [temp.deduct.conv].
15824 DEDUCE_EXACT:
15825 We are deducing arguments when doing an explicit instantiation
15826 as in [temp.explicit], when determining an explicit specialization
15827 as in [temp.expl.spec], or when taking the address of a function
15828 template, as in [temp.deduct.funcaddr]. */
15830 tree
15831 fn_type_unification (tree fn,
15832 tree explicit_targs,
15833 tree targs,
15834 const tree *args,
15835 unsigned int nargs,
15836 tree return_type,
15837 unification_kind_t strict,
15838 int flags,
15839 bool explain_p,
15840 bool decltype_p)
15842 tree parms;
15843 tree fntype;
15844 tree decl = NULL_TREE;
15845 tsubst_flags_t complain = (explain_p ? tf_warning_or_error : tf_none);
15846 bool ok;
15847 static int deduction_depth;
15848 struct pending_template *old_last_pend = last_pending_template;
15849 struct tinst_level *old_error_tinst = last_error_tinst_level;
15850 tree tparms = DECL_INNERMOST_TEMPLATE_PARMS (fn);
15851 tree tinst;
15852 tree r = error_mark_node;
15854 if (decltype_p)
15855 complain |= tf_decltype;
15857 /* In C++0x, it's possible to have a function template whose type depends
15858 on itself recursively. This is most obvious with decltype, but can also
15859 occur with enumeration scope (c++/48969). So we need to catch infinite
15860 recursion and reject the substitution at deduction time; this function
15861 will return error_mark_node for any repeated substitution.
15863 This also catches excessive recursion such as when f<N> depends on
15864 f<N-1> across all integers, and returns error_mark_node for all the
15865 substitutions back up to the initial one.
15867 This is, of course, not reentrant. */
15868 if (excessive_deduction_depth)
15869 return error_mark_node;
15870 tinst = build_tree_list (fn, NULL_TREE);
15871 ++deduction_depth;
15873 gcc_assert (TREE_CODE (fn) == TEMPLATE_DECL);
15875 fntype = TREE_TYPE (fn);
15876 if (explicit_targs)
15878 /* [temp.deduct]
15880 The specified template arguments must match the template
15881 parameters in kind (i.e., type, nontype, template), and there
15882 must not be more arguments than there are parameters;
15883 otherwise type deduction fails.
15885 Nontype arguments must match the types of the corresponding
15886 nontype template parameters, or must be convertible to the
15887 types of the corresponding nontype parameters as specified in
15888 _temp.arg.nontype_, otherwise type deduction fails.
15890 All references in the function type of the function template
15891 to the corresponding template parameters are replaced by the
15892 specified template argument values. If a substitution in a
15893 template parameter or in the function type of the function
15894 template results in an invalid type, type deduction fails. */
15895 int i, len = TREE_VEC_LENGTH (tparms);
15896 location_t loc = input_location;
15897 bool incomplete = false;
15899 /* Adjust any explicit template arguments before entering the
15900 substitution context. */
15901 explicit_targs
15902 = (coerce_template_parms (tparms, explicit_targs, NULL_TREE,
15903 complain,
15904 /*require_all_args=*/false,
15905 /*use_default_args=*/false));
15906 if (explicit_targs == error_mark_node)
15907 goto fail;
15909 /* Substitute the explicit args into the function type. This is
15910 necessary so that, for instance, explicitly declared function
15911 arguments can match null pointed constants. If we were given
15912 an incomplete set of explicit args, we must not do semantic
15913 processing during substitution as we could create partial
15914 instantiations. */
15915 for (i = 0; i < len; i++)
15917 tree parm = TREE_VALUE (TREE_VEC_ELT (tparms, i));
15918 bool parameter_pack = false;
15919 tree targ = TREE_VEC_ELT (explicit_targs, i);
15921 /* Dig out the actual parm. */
15922 if (TREE_CODE (parm) == TYPE_DECL
15923 || TREE_CODE (parm) == TEMPLATE_DECL)
15925 parm = TREE_TYPE (parm);
15926 parameter_pack = TEMPLATE_TYPE_PARAMETER_PACK (parm);
15928 else if (TREE_CODE (parm) == PARM_DECL)
15930 parm = DECL_INITIAL (parm);
15931 parameter_pack = TEMPLATE_PARM_PARAMETER_PACK (parm);
15934 if (!parameter_pack && targ == NULL_TREE)
15935 /* No explicit argument for this template parameter. */
15936 incomplete = true;
15938 if (parameter_pack && pack_deducible_p (parm, fn))
15940 /* Mark the argument pack as "incomplete". We could
15941 still deduce more arguments during unification.
15942 We remove this mark in type_unification_real. */
15943 if (targ)
15945 ARGUMENT_PACK_INCOMPLETE_P(targ) = 1;
15946 ARGUMENT_PACK_EXPLICIT_ARGS (targ)
15947 = ARGUMENT_PACK_ARGS (targ);
15950 /* We have some incomplete argument packs. */
15951 incomplete = true;
15955 TREE_VALUE (tinst) = explicit_targs;
15956 if (!push_tinst_level (tinst))
15958 excessive_deduction_depth = true;
15959 goto fail;
15961 processing_template_decl += incomplete;
15962 input_location = DECL_SOURCE_LOCATION (fn);
15963 /* Ignore any access checks; we'll see them again in
15964 instantiate_template and they might have the wrong
15965 access path at this point. */
15966 push_deferring_access_checks (dk_deferred);
15967 fntype = tsubst (TREE_TYPE (fn), explicit_targs,
15968 complain | tf_partial, NULL_TREE);
15969 pop_deferring_access_checks ();
15970 input_location = loc;
15971 processing_template_decl -= incomplete;
15972 pop_tinst_level ();
15974 if (fntype == error_mark_node)
15975 goto fail;
15977 /* Place the explicitly specified arguments in TARGS. */
15978 for (i = NUM_TMPL_ARGS (explicit_targs); i--;)
15979 TREE_VEC_ELT (targs, i) = TREE_VEC_ELT (explicit_targs, i);
15982 /* Never do unification on the 'this' parameter. */
15983 parms = skip_artificial_parms_for (fn, TYPE_ARG_TYPES (fntype));
15985 if (return_type)
15987 tree *new_args;
15989 parms = tree_cons (NULL_TREE, TREE_TYPE (fntype), parms);
15990 new_args = XALLOCAVEC (tree, nargs + 1);
15991 new_args[0] = return_type;
15992 memcpy (new_args + 1, args, nargs * sizeof (tree));
15993 args = new_args;
15994 ++nargs;
15997 /* We allow incomplete unification without an error message here
15998 because the standard doesn't seem to explicitly prohibit it. Our
15999 callers must be ready to deal with unification failures in any
16000 event. */
16002 TREE_VALUE (tinst) = targs;
16003 /* If we aren't explaining yet, push tinst context so we can see where
16004 any errors (e.g. from class instantiations triggered by instantiation
16005 of default template arguments) come from. If we are explaining, this
16006 context is redundant. */
16007 if (!explain_p && !push_tinst_level (tinst))
16009 excessive_deduction_depth = true;
16010 goto fail;
16013 /* type_unification_real will pass back any access checks from default
16014 template argument substitution. */
16015 vec<deferred_access_check, va_gc> *checks;
16016 checks = NULL;
16018 ok = !type_unification_real (DECL_INNERMOST_TEMPLATE_PARMS (fn),
16019 targs, parms, args, nargs, /*subr=*/0,
16020 strict, flags, &checks, explain_p);
16021 if (!explain_p)
16022 pop_tinst_level ();
16023 if (!ok)
16024 goto fail;
16026 /* Now that we have bindings for all of the template arguments,
16027 ensure that the arguments deduced for the template template
16028 parameters have compatible template parameter lists. We cannot
16029 check this property before we have deduced all template
16030 arguments, because the template parameter types of a template
16031 template parameter might depend on prior template parameters
16032 deduced after the template template parameter. The following
16033 ill-formed example illustrates this issue:
16035 template<typename T, template<T> class C> void f(C<5>, T);
16037 template<int N> struct X {};
16039 void g() {
16040 f(X<5>(), 5l); // error: template argument deduction fails
16043 The template parameter list of 'C' depends on the template type
16044 parameter 'T', but 'C' is deduced to 'X' before 'T' is deduced to
16045 'long'. Thus, we can't check that 'C' cannot bind to 'X' at the
16046 time that we deduce 'C'. */
16047 if (!template_template_parm_bindings_ok_p
16048 (DECL_INNERMOST_TEMPLATE_PARMS (fn), targs))
16050 unify_inconsistent_template_template_parameters (explain_p);
16051 goto fail;
16054 /* All is well so far. Now, check:
16056 [temp.deduct]
16058 When all template arguments have been deduced, all uses of
16059 template parameters in nondeduced contexts are replaced with
16060 the corresponding deduced argument values. If the
16061 substitution results in an invalid type, as described above,
16062 type deduction fails. */
16063 TREE_VALUE (tinst) = targs;
16064 if (!push_tinst_level (tinst))
16066 excessive_deduction_depth = true;
16067 goto fail;
16070 /* Also collect access checks from the instantiation. */
16071 reopen_deferring_access_checks (checks);
16073 decl = instantiate_template (fn, targs, complain);
16075 checks = get_deferred_access_checks ();
16076 pop_deferring_access_checks ();
16078 pop_tinst_level ();
16080 if (decl == error_mark_node)
16081 goto fail;
16083 /* Now perform any access checks encountered during substitution. */
16084 push_access_scope (decl);
16085 ok = perform_access_checks (checks, complain);
16086 pop_access_scope (decl);
16087 if (!ok)
16088 goto fail;
16090 /* If we're looking for an exact match, check that what we got
16091 is indeed an exact match. It might not be if some template
16092 parameters are used in non-deduced contexts. But don't check
16093 for an exact match if we have dependent template arguments;
16094 in that case we're doing partial ordering, and we already know
16095 that we have two candidates that will provide the actual type. */
16096 if (strict == DEDUCE_EXACT && !any_dependent_template_arguments_p (targs))
16098 tree substed = TREE_TYPE (decl);
16099 unsigned int i;
16101 tree sarg
16102 = skip_artificial_parms_for (decl, TYPE_ARG_TYPES (substed));
16103 if (return_type)
16104 sarg = tree_cons (NULL_TREE, TREE_TYPE (substed), sarg);
16105 for (i = 0; i < nargs && sarg; ++i, sarg = TREE_CHAIN (sarg))
16106 if (!same_type_p (args[i], TREE_VALUE (sarg)))
16108 unify_type_mismatch (explain_p, args[i],
16109 TREE_VALUE (sarg));
16110 goto fail;
16114 r = decl;
16116 fail:
16117 --deduction_depth;
16118 if (excessive_deduction_depth)
16120 if (deduction_depth == 0)
16121 /* Reset once we're all the way out. */
16122 excessive_deduction_depth = false;
16125 /* We can't free this if a pending_template entry or last_error_tinst_level
16126 is pointing at it. */
16127 if (last_pending_template == old_last_pend
16128 && last_error_tinst_level == old_error_tinst)
16129 ggc_free (tinst);
16131 return r;
16134 /* Adjust types before performing type deduction, as described in
16135 [temp.deduct.call] and [temp.deduct.conv]. The rules in these two
16136 sections are symmetric. PARM is the type of a function parameter
16137 or the return type of the conversion function. ARG is the type of
16138 the argument passed to the call, or the type of the value
16139 initialized with the result of the conversion function.
16140 ARG_EXPR is the original argument expression, which may be null. */
16142 static int
16143 maybe_adjust_types_for_deduction (unification_kind_t strict,
16144 tree* parm,
16145 tree* arg,
16146 tree arg_expr)
16148 int result = 0;
16150 switch (strict)
16152 case DEDUCE_CALL:
16153 break;
16155 case DEDUCE_CONV:
16157 /* Swap PARM and ARG throughout the remainder of this
16158 function; the handling is precisely symmetric since PARM
16159 will initialize ARG rather than vice versa. */
16160 tree* temp = parm;
16161 parm = arg;
16162 arg = temp;
16163 break;
16166 case DEDUCE_EXACT:
16167 /* Core issue #873: Do the DR606 thing (see below) for these cases,
16168 too, but here handle it by stripping the reference from PARM
16169 rather than by adding it to ARG. */
16170 if (TREE_CODE (*parm) == REFERENCE_TYPE
16171 && TYPE_REF_IS_RVALUE (*parm)
16172 && TREE_CODE (TREE_TYPE (*parm)) == TEMPLATE_TYPE_PARM
16173 && cp_type_quals (TREE_TYPE (*parm)) == TYPE_UNQUALIFIED
16174 && TREE_CODE (*arg) == REFERENCE_TYPE
16175 && !TYPE_REF_IS_RVALUE (*arg))
16176 *parm = TREE_TYPE (*parm);
16177 /* Nothing else to do in this case. */
16178 return 0;
16180 default:
16181 gcc_unreachable ();
16184 if (TREE_CODE (*parm) != REFERENCE_TYPE)
16186 /* [temp.deduct.call]
16188 If P is not a reference type:
16190 --If A is an array type, the pointer type produced by the
16191 array-to-pointer standard conversion (_conv.array_) is
16192 used in place of A for type deduction; otherwise,
16194 --If A is a function type, the pointer type produced by
16195 the function-to-pointer standard conversion
16196 (_conv.func_) is used in place of A for type deduction;
16197 otherwise,
16199 --If A is a cv-qualified type, the top level
16200 cv-qualifiers of A's type are ignored for type
16201 deduction. */
16202 if (TREE_CODE (*arg) == ARRAY_TYPE)
16203 *arg = build_pointer_type (TREE_TYPE (*arg));
16204 else if (TREE_CODE (*arg) == FUNCTION_TYPE)
16205 *arg = build_pointer_type (*arg);
16206 else
16207 *arg = TYPE_MAIN_VARIANT (*arg);
16210 /* From C++0x [14.8.2.1/3 temp.deduct.call] (after DR606), "If P is
16211 of the form T&&, where T is a template parameter, and the argument
16212 is an lvalue, T is deduced as A& */
16213 if (TREE_CODE (*parm) == REFERENCE_TYPE
16214 && TYPE_REF_IS_RVALUE (*parm)
16215 && TREE_CODE (TREE_TYPE (*parm)) == TEMPLATE_TYPE_PARM
16216 && cp_type_quals (TREE_TYPE (*parm)) == TYPE_UNQUALIFIED
16217 && (arg_expr ? real_lvalue_p (arg_expr)
16218 /* try_one_overload doesn't provide an arg_expr, but
16219 functions are always lvalues. */
16220 : TREE_CODE (*arg) == FUNCTION_TYPE))
16221 *arg = build_reference_type (*arg);
16223 /* [temp.deduct.call]
16225 If P is a cv-qualified type, the top level cv-qualifiers
16226 of P's type are ignored for type deduction. If P is a
16227 reference type, the type referred to by P is used for
16228 type deduction. */
16229 *parm = TYPE_MAIN_VARIANT (*parm);
16230 if (TREE_CODE (*parm) == REFERENCE_TYPE)
16232 *parm = TREE_TYPE (*parm);
16233 result |= UNIFY_ALLOW_OUTER_MORE_CV_QUAL;
16236 /* DR 322. For conversion deduction, remove a reference type on parm
16237 too (which has been swapped into ARG). */
16238 if (strict == DEDUCE_CONV && TREE_CODE (*arg) == REFERENCE_TYPE)
16239 *arg = TREE_TYPE (*arg);
16241 return result;
16244 /* Subroutine of unify_one_argument. PARM is a function parameter of a
16245 template which does contain any deducible template parameters; check if
16246 ARG is a suitable match for it. STRICT, FLAGS and EXPLAIN_P are as in
16247 unify_one_argument. */
16249 static int
16250 check_non_deducible_conversion (tree parm, tree arg, int strict,
16251 int flags, bool explain_p)
16253 tree type;
16255 if (!TYPE_P (arg))
16256 type = TREE_TYPE (arg);
16257 else
16258 type = arg;
16260 if (same_type_p (parm, type))
16261 return unify_success (explain_p);
16263 if (strict == DEDUCE_CONV)
16265 if (can_convert_arg (type, parm, NULL_TREE, flags,
16266 explain_p ? tf_warning_or_error : tf_none))
16267 return unify_success (explain_p);
16269 else if (strict != DEDUCE_EXACT)
16271 if (can_convert_arg (parm, type,
16272 TYPE_P (arg) ? NULL_TREE : arg,
16273 flags, explain_p ? tf_warning_or_error : tf_none))
16274 return unify_success (explain_p);
16277 if (strict == DEDUCE_EXACT)
16278 return unify_type_mismatch (explain_p, parm, arg);
16279 else
16280 return unify_arg_conversion (explain_p, parm, type, arg);
16283 static bool uses_deducible_template_parms (tree type);
16285 /* Returns true iff the expression EXPR is one from which a template
16286 argument can be deduced. In other words, if it's an undecorated
16287 use of a template non-type parameter. */
16289 static bool
16290 deducible_expression (tree expr)
16292 return (TREE_CODE (expr) == TEMPLATE_PARM_INDEX);
16295 /* Returns true iff the array domain DOMAIN uses a template parameter in a
16296 deducible way; that is, if it has a max value of <PARM> - 1. */
16298 static bool
16299 deducible_array_bound (tree domain)
16301 if (domain == NULL_TREE)
16302 return false;
16304 tree max = TYPE_MAX_VALUE (domain);
16305 if (TREE_CODE (max) != MINUS_EXPR)
16306 return false;
16308 return deducible_expression (TREE_OPERAND (max, 0));
16311 /* Returns true iff the template arguments ARGS use a template parameter
16312 in a deducible way. */
16314 static bool
16315 deducible_template_args (tree args)
16317 for (int i = 0; i < TREE_VEC_LENGTH (args); ++i)
16319 bool deducible;
16320 tree elt = TREE_VEC_ELT (args, i);
16321 if (ARGUMENT_PACK_P (elt))
16322 deducible = deducible_template_args (ARGUMENT_PACK_ARGS (elt));
16323 else
16325 if (PACK_EXPANSION_P (elt))
16326 elt = PACK_EXPANSION_PATTERN (elt);
16327 if (TREE_CODE (elt) == TEMPLATE_TEMPLATE_PARM)
16328 deducible = true;
16329 else if (TYPE_P (elt))
16330 deducible = uses_deducible_template_parms (elt);
16331 else
16332 deducible = deducible_expression (elt);
16334 if (deducible)
16335 return true;
16337 return false;
16340 /* Returns true iff TYPE contains any deducible references to template
16341 parameters, as per 14.8.2.5. */
16343 static bool
16344 uses_deducible_template_parms (tree type)
16346 if (PACK_EXPANSION_P (type))
16347 type = PACK_EXPANSION_PATTERN (type);
16349 /* T
16350 cv-list T
16351 TT<T>
16352 TT<i>
16353 TT<> */
16354 if (TREE_CODE (type) == TEMPLATE_TYPE_PARM
16355 || TREE_CODE (type) == BOUND_TEMPLATE_TEMPLATE_PARM)
16356 return true;
16358 /* T*
16360 T&& */
16361 if (POINTER_TYPE_P (type))
16362 return uses_deducible_template_parms (TREE_TYPE (type));
16364 /* T[integer-constant ]
16365 type [i] */
16366 if (TREE_CODE (type) == ARRAY_TYPE)
16367 return (uses_deducible_template_parms (TREE_TYPE (type))
16368 || deducible_array_bound (TYPE_DOMAIN (type)));
16370 /* T type ::*
16371 type T::*
16372 T T::*
16373 T (type ::*)()
16374 type (T::*)()
16375 type (type ::*)(T)
16376 type (T::*)(T)
16377 T (type ::*)(T)
16378 T (T::*)()
16379 T (T::*)(T) */
16380 if (TYPE_PTRMEM_P (type))
16381 return (uses_deducible_template_parms (TYPE_PTRMEM_CLASS_TYPE (type))
16382 || (uses_deducible_template_parms
16383 (TYPE_PTRMEM_POINTED_TO_TYPE (type))));
16385 /* template-name <T> (where template-name refers to a class template)
16386 template-name <i> (where template-name refers to a class template) */
16387 if (CLASS_TYPE_P (type)
16388 && CLASSTYPE_TEMPLATE_INFO (type)
16389 && PRIMARY_TEMPLATE_P (CLASSTYPE_TI_TEMPLATE (type)))
16390 return deducible_template_args (INNERMOST_TEMPLATE_ARGS
16391 (CLASSTYPE_TI_ARGS (type)));
16393 /* type (T)
16395 T(T) */
16396 if (TREE_CODE (type) == FUNCTION_TYPE
16397 || TREE_CODE (type) == METHOD_TYPE)
16399 if (uses_deducible_template_parms (TREE_TYPE (type)))
16400 return true;
16401 tree parm = TYPE_ARG_TYPES (type);
16402 if (TREE_CODE (type) == METHOD_TYPE)
16403 parm = TREE_CHAIN (parm);
16404 for (; parm; parm = TREE_CHAIN (parm))
16405 if (uses_deducible_template_parms (TREE_VALUE (parm)))
16406 return true;
16409 return false;
16412 /* Subroutine of type_unification_real and unify_pack_expansion to
16413 handle unification of a single P/A pair. Parameters are as
16414 for those functions. */
16416 static int
16417 unify_one_argument (tree tparms, tree targs, tree parm, tree arg,
16418 int subr, unification_kind_t strict, int flags,
16419 bool explain_p)
16421 tree arg_expr = NULL_TREE;
16422 int arg_strict;
16424 if (arg == error_mark_node || parm == error_mark_node)
16425 return unify_invalid (explain_p);
16426 if (arg == unknown_type_node)
16427 /* We can't deduce anything from this, but we might get all the
16428 template args from other function args. */
16429 return unify_success (explain_p);
16431 /* Implicit conversions (Clause 4) will be performed on a function
16432 argument to convert it to the type of the corresponding function
16433 parameter if the parameter type contains no template-parameters that
16434 participate in template argument deduction. */
16435 if (TYPE_P (parm) && !uses_template_parms (parm))
16436 /* For function parameters that contain no template-parameters at all,
16437 we have historically checked for convertibility in order to shortcut
16438 consideration of this candidate. */
16439 return check_non_deducible_conversion (parm, arg, strict, flags,
16440 explain_p);
16441 else if (strict == DEDUCE_CALL
16442 && TYPE_P (parm) && !uses_deducible_template_parms (parm))
16443 /* For function parameters with only non-deducible template parameters,
16444 just return. */
16445 return unify_success (explain_p);
16447 switch (strict)
16449 case DEDUCE_CALL:
16450 arg_strict = (UNIFY_ALLOW_OUTER_LEVEL
16451 | UNIFY_ALLOW_MORE_CV_QUAL
16452 | UNIFY_ALLOW_DERIVED);
16453 break;
16455 case DEDUCE_CONV:
16456 arg_strict = UNIFY_ALLOW_LESS_CV_QUAL;
16457 break;
16459 case DEDUCE_EXACT:
16460 arg_strict = UNIFY_ALLOW_NONE;
16461 break;
16463 default:
16464 gcc_unreachable ();
16467 /* We only do these transformations if this is the top-level
16468 parameter_type_list in a call or declaration matching; in other
16469 situations (nested function declarators, template argument lists) we
16470 won't be comparing a type to an expression, and we don't do any type
16471 adjustments. */
16472 if (!subr)
16474 if (!TYPE_P (arg))
16476 gcc_assert (TREE_TYPE (arg) != NULL_TREE);
16477 if (type_unknown_p (arg))
16479 /* [temp.deduct.type] A template-argument can be
16480 deduced from a pointer to function or pointer
16481 to member function argument if the set of
16482 overloaded functions does not contain function
16483 templates and at most one of a set of
16484 overloaded functions provides a unique
16485 match. */
16487 if (resolve_overloaded_unification
16488 (tparms, targs, parm, arg, strict,
16489 arg_strict, explain_p))
16490 return unify_success (explain_p);
16491 return unify_overload_resolution_failure (explain_p, arg);
16494 arg_expr = arg;
16495 arg = unlowered_expr_type (arg);
16496 if (arg == error_mark_node)
16497 return unify_invalid (explain_p);
16500 arg_strict |=
16501 maybe_adjust_types_for_deduction (strict, &parm, &arg, arg_expr);
16503 else
16504 gcc_assert ((TYPE_P (parm) || TREE_CODE (parm) == TEMPLATE_DECL)
16505 == (TYPE_P (arg) || TREE_CODE (arg) == TEMPLATE_DECL));
16507 /* For deduction from an init-list we need the actual list. */
16508 if (arg_expr && BRACE_ENCLOSED_INITIALIZER_P (arg_expr))
16509 arg = arg_expr;
16510 return unify (tparms, targs, parm, arg, arg_strict, explain_p);
16513 /* Most parms like fn_type_unification.
16515 If SUBR is 1, we're being called recursively (to unify the
16516 arguments of a function or method parameter of a function
16517 template).
16519 CHECKS is a pointer to a vector of access checks encountered while
16520 substituting default template arguments. */
16522 static int
16523 type_unification_real (tree tparms,
16524 tree targs,
16525 tree xparms,
16526 const tree *xargs,
16527 unsigned int xnargs,
16528 int subr,
16529 unification_kind_t strict,
16530 int flags,
16531 vec<deferred_access_check, va_gc> **checks,
16532 bool explain_p)
16534 tree parm, arg;
16535 int i;
16536 int ntparms = TREE_VEC_LENGTH (tparms);
16537 int saw_undeduced = 0;
16538 tree parms;
16539 const tree *args;
16540 unsigned int nargs;
16541 unsigned int ia;
16543 gcc_assert (TREE_CODE (tparms) == TREE_VEC);
16544 gcc_assert (xparms == NULL_TREE || TREE_CODE (xparms) == TREE_LIST);
16545 gcc_assert (ntparms > 0);
16547 /* Reset the number of non-defaulted template arguments contained
16548 in TARGS. */
16549 NON_DEFAULT_TEMPLATE_ARGS_COUNT (targs) = NULL_TREE;
16551 again:
16552 parms = xparms;
16553 args = xargs;
16554 nargs = xnargs;
16556 ia = 0;
16557 while (parms && parms != void_list_node
16558 && ia < nargs)
16560 parm = TREE_VALUE (parms);
16562 if (TREE_CODE (parm) == TYPE_PACK_EXPANSION
16563 && (!TREE_CHAIN (parms) || TREE_CHAIN (parms) == void_list_node))
16564 /* For a function parameter pack that occurs at the end of the
16565 parameter-declaration-list, the type A of each remaining
16566 argument of the call is compared with the type P of the
16567 declarator-id of the function parameter pack. */
16568 break;
16570 parms = TREE_CHAIN (parms);
16572 if (TREE_CODE (parm) == TYPE_PACK_EXPANSION)
16573 /* For a function parameter pack that does not occur at the
16574 end of the parameter-declaration-list, the type of the
16575 parameter pack is a non-deduced context. */
16576 continue;
16578 arg = args[ia];
16579 ++ia;
16581 if (unify_one_argument (tparms, targs, parm, arg, subr, strict,
16582 flags, explain_p))
16583 return 1;
16586 if (parms
16587 && parms != void_list_node
16588 && TREE_CODE (TREE_VALUE (parms)) == TYPE_PACK_EXPANSION)
16590 /* Unify the remaining arguments with the pack expansion type. */
16591 tree argvec;
16592 tree parmvec = make_tree_vec (1);
16594 /* Allocate a TREE_VEC and copy in all of the arguments */
16595 argvec = make_tree_vec (nargs - ia);
16596 for (i = 0; ia < nargs; ++ia, ++i)
16597 TREE_VEC_ELT (argvec, i) = args[ia];
16599 /* Copy the parameter into parmvec. */
16600 TREE_VEC_ELT (parmvec, 0) = TREE_VALUE (parms);
16601 if (unify_pack_expansion (tparms, targs, parmvec, argvec, strict,
16602 /*subr=*/subr, explain_p))
16603 return 1;
16605 /* Advance to the end of the list of parameters. */
16606 parms = TREE_CHAIN (parms);
16609 /* Fail if we've reached the end of the parm list, and more args
16610 are present, and the parm list isn't variadic. */
16611 if (ia < nargs && parms == void_list_node)
16612 return unify_too_many_arguments (explain_p, nargs, ia);
16613 /* Fail if parms are left and they don't have default values. */
16614 if (parms && parms != void_list_node
16615 && TREE_PURPOSE (parms) == NULL_TREE)
16617 unsigned int count = nargs;
16618 tree p = parms;
16619 while (p && p != void_list_node)
16621 count++;
16622 p = TREE_CHAIN (p);
16624 return unify_too_few_arguments (explain_p, ia, count);
16627 if (!subr)
16629 tsubst_flags_t complain = (explain_p
16630 ? tf_warning_or_error
16631 : tf_none);
16633 for (i = 0; i < ntparms; i++)
16635 tree targ = TREE_VEC_ELT (targs, i);
16636 tree tparm = TREE_VEC_ELT (tparms, i);
16638 /* Clear the "incomplete" flags on all argument packs now so that
16639 substituting them into later default arguments works. */
16640 if (targ && ARGUMENT_PACK_P (targ))
16642 ARGUMENT_PACK_INCOMPLETE_P (targ) = 0;
16643 ARGUMENT_PACK_EXPLICIT_ARGS (targ) = NULL_TREE;
16646 if (targ || tparm == error_mark_node)
16647 continue;
16648 tparm = TREE_VALUE (tparm);
16650 /* If this is an undeduced nontype parameter that depends on
16651 a type parameter, try another pass; its type may have been
16652 deduced from a later argument than the one from which
16653 this parameter can be deduced. */
16654 if (TREE_CODE (tparm) == PARM_DECL
16655 && uses_template_parms (TREE_TYPE (tparm))
16656 && !saw_undeduced++)
16657 goto again;
16659 /* Core issue #226 (C++0x) [temp.deduct]:
16661 If a template argument has not been deduced, its
16662 default template argument, if any, is used.
16664 When we are in C++98 mode, TREE_PURPOSE will either
16665 be NULL_TREE or ERROR_MARK_NODE, so we do not need
16666 to explicitly check cxx_dialect here. */
16667 if (TREE_PURPOSE (TREE_VEC_ELT (tparms, i)))
16669 tree parm = TREE_VALUE (TREE_VEC_ELT (tparms, i));
16670 tree arg = TREE_PURPOSE (TREE_VEC_ELT (tparms, i));
16671 reopen_deferring_access_checks (*checks);
16672 location_t save_loc = input_location;
16673 if (DECL_P (parm))
16674 input_location = DECL_SOURCE_LOCATION (parm);
16675 arg = tsubst_template_arg (arg, targs, complain, NULL_TREE);
16676 arg = convert_template_argument (parm, arg, targs, complain,
16677 i, NULL_TREE);
16678 input_location = save_loc;
16679 *checks = get_deferred_access_checks ();
16680 pop_deferring_access_checks ();
16681 if (arg == error_mark_node)
16682 return 1;
16683 else
16685 TREE_VEC_ELT (targs, i) = arg;
16686 /* The position of the first default template argument,
16687 is also the number of non-defaulted arguments in TARGS.
16688 Record that. */
16689 if (!NON_DEFAULT_TEMPLATE_ARGS_COUNT (targs))
16690 SET_NON_DEFAULT_TEMPLATE_ARGS_COUNT (targs, i);
16691 continue;
16695 /* If the type parameter is a parameter pack, then it will
16696 be deduced to an empty parameter pack. */
16697 if (template_parameter_pack_p (tparm))
16699 tree arg;
16701 if (TREE_CODE (tparm) == TEMPLATE_PARM_INDEX)
16703 arg = make_node (NONTYPE_ARGUMENT_PACK);
16704 TREE_TYPE (arg) = TREE_TYPE (TEMPLATE_PARM_DECL (tparm));
16705 TREE_CONSTANT (arg) = 1;
16707 else
16708 arg = cxx_make_type (TYPE_ARGUMENT_PACK);
16710 SET_ARGUMENT_PACK_ARGS (arg, make_tree_vec (0));
16712 TREE_VEC_ELT (targs, i) = arg;
16713 continue;
16716 return unify_parameter_deduction_failure (explain_p, tparm);
16719 #ifdef ENABLE_CHECKING
16720 if (!NON_DEFAULT_TEMPLATE_ARGS_COUNT (targs))
16721 SET_NON_DEFAULT_TEMPLATE_ARGS_COUNT (targs, TREE_VEC_LENGTH (targs));
16722 #endif
16724 return unify_success (explain_p);
16727 /* Subroutine of type_unification_real. Args are like the variables
16728 at the call site. ARG is an overloaded function (or template-id);
16729 we try deducing template args from each of the overloads, and if
16730 only one succeeds, we go with that. Modifies TARGS and returns
16731 true on success. */
16733 static bool
16734 resolve_overloaded_unification (tree tparms,
16735 tree targs,
16736 tree parm,
16737 tree arg,
16738 unification_kind_t strict,
16739 int sub_strict,
16740 bool explain_p)
16742 tree tempargs = copy_node (targs);
16743 int good = 0;
16744 tree goodfn = NULL_TREE;
16745 bool addr_p;
16747 if (TREE_CODE (arg) == ADDR_EXPR)
16749 arg = TREE_OPERAND (arg, 0);
16750 addr_p = true;
16752 else
16753 addr_p = false;
16755 if (TREE_CODE (arg) == COMPONENT_REF)
16756 /* Handle `&x' where `x' is some static or non-static member
16757 function name. */
16758 arg = TREE_OPERAND (arg, 1);
16760 if (TREE_CODE (arg) == OFFSET_REF)
16761 arg = TREE_OPERAND (arg, 1);
16763 /* Strip baselink information. */
16764 if (BASELINK_P (arg))
16765 arg = BASELINK_FUNCTIONS (arg);
16767 if (TREE_CODE (arg) == TEMPLATE_ID_EXPR)
16769 /* If we got some explicit template args, we need to plug them into
16770 the affected templates before we try to unify, in case the
16771 explicit args will completely resolve the templates in question. */
16773 int ok = 0;
16774 tree expl_subargs = TREE_OPERAND (arg, 1);
16775 arg = TREE_OPERAND (arg, 0);
16777 for (; arg; arg = OVL_NEXT (arg))
16779 tree fn = OVL_CURRENT (arg);
16780 tree subargs, elem;
16782 if (TREE_CODE (fn) != TEMPLATE_DECL)
16783 continue;
16785 subargs = coerce_template_parms (DECL_INNERMOST_TEMPLATE_PARMS (fn),
16786 expl_subargs, NULL_TREE, tf_none,
16787 /*require_all_args=*/true,
16788 /*use_default_args=*/true);
16789 if (subargs != error_mark_node
16790 && !any_dependent_template_arguments_p (subargs))
16792 elem = TREE_TYPE (instantiate_template (fn, subargs, tf_none));
16793 if (try_one_overload (tparms, targs, tempargs, parm,
16794 elem, strict, sub_strict, addr_p, explain_p)
16795 && (!goodfn || !same_type_p (goodfn, elem)))
16797 goodfn = elem;
16798 ++good;
16801 else if (subargs)
16802 ++ok;
16804 /* If no templates (or more than one) are fully resolved by the
16805 explicit arguments, this template-id is a non-deduced context; it
16806 could still be OK if we deduce all template arguments for the
16807 enclosing call through other arguments. */
16808 if (good != 1)
16809 good = ok;
16811 else if (TREE_CODE (arg) != OVERLOAD
16812 && TREE_CODE (arg) != FUNCTION_DECL)
16813 /* If ARG is, for example, "(0, &f)" then its type will be unknown
16814 -- but the deduction does not succeed because the expression is
16815 not just the function on its own. */
16816 return false;
16817 else
16818 for (; arg; arg = OVL_NEXT (arg))
16819 if (try_one_overload (tparms, targs, tempargs, parm,
16820 TREE_TYPE (OVL_CURRENT (arg)),
16821 strict, sub_strict, addr_p, explain_p)
16822 && (!goodfn || !decls_match (goodfn, OVL_CURRENT (arg))))
16824 goodfn = OVL_CURRENT (arg);
16825 ++good;
16828 /* [temp.deduct.type] A template-argument can be deduced from a pointer
16829 to function or pointer to member function argument if the set of
16830 overloaded functions does not contain function templates and at most
16831 one of a set of overloaded functions provides a unique match.
16833 So if we found multiple possibilities, we return success but don't
16834 deduce anything. */
16836 if (good == 1)
16838 int i = TREE_VEC_LENGTH (targs);
16839 for (; i--; )
16840 if (TREE_VEC_ELT (tempargs, i))
16841 TREE_VEC_ELT (targs, i) = TREE_VEC_ELT (tempargs, i);
16843 if (good)
16844 return true;
16846 return false;
16849 /* Core DR 115: In contexts where deduction is done and fails, or in
16850 contexts where deduction is not done, if a template argument list is
16851 specified and it, along with any default template arguments, identifies
16852 a single function template specialization, then the template-id is an
16853 lvalue for the function template specialization. */
16855 tree
16856 resolve_nondeduced_context (tree orig_expr)
16858 tree expr, offset, baselink;
16859 bool addr;
16861 if (!type_unknown_p (orig_expr))
16862 return orig_expr;
16864 expr = orig_expr;
16865 addr = false;
16866 offset = NULL_TREE;
16867 baselink = NULL_TREE;
16869 if (TREE_CODE (expr) == ADDR_EXPR)
16871 expr = TREE_OPERAND (expr, 0);
16872 addr = true;
16874 if (TREE_CODE (expr) == OFFSET_REF)
16876 offset = expr;
16877 expr = TREE_OPERAND (expr, 1);
16879 if (BASELINK_P (expr))
16881 baselink = expr;
16882 expr = BASELINK_FUNCTIONS (expr);
16885 if (TREE_CODE (expr) == TEMPLATE_ID_EXPR)
16887 int good = 0;
16888 tree goodfn = NULL_TREE;
16890 /* If we got some explicit template args, we need to plug them into
16891 the affected templates before we try to unify, in case the
16892 explicit args will completely resolve the templates in question. */
16894 tree expl_subargs = TREE_OPERAND (expr, 1);
16895 tree arg = TREE_OPERAND (expr, 0);
16896 tree badfn = NULL_TREE;
16897 tree badargs = NULL_TREE;
16899 for (; arg; arg = OVL_NEXT (arg))
16901 tree fn = OVL_CURRENT (arg);
16902 tree subargs, elem;
16904 if (TREE_CODE (fn) != TEMPLATE_DECL)
16905 continue;
16907 subargs = coerce_template_parms (DECL_INNERMOST_TEMPLATE_PARMS (fn),
16908 expl_subargs, NULL_TREE, tf_none,
16909 /*require_all_args=*/true,
16910 /*use_default_args=*/true);
16911 if (subargs != error_mark_node
16912 && !any_dependent_template_arguments_p (subargs))
16914 elem = instantiate_template (fn, subargs, tf_none);
16915 if (elem == error_mark_node)
16917 badfn = fn;
16918 badargs = subargs;
16920 else if (elem && (!goodfn || !decls_match (goodfn, elem)))
16922 goodfn = elem;
16923 ++good;
16927 if (good == 1)
16929 mark_used (goodfn);
16930 expr = goodfn;
16931 if (baselink)
16932 expr = build_baselink (BASELINK_BINFO (baselink),
16933 BASELINK_ACCESS_BINFO (baselink),
16934 expr, BASELINK_OPTYPE (baselink));
16935 if (offset)
16937 tree base
16938 = TYPE_MAIN_VARIANT (TREE_TYPE (TREE_OPERAND (offset, 0)));
16939 expr = build_offset_ref (base, expr, addr, tf_warning_or_error);
16941 if (addr)
16942 expr = cp_build_addr_expr (expr, tf_warning_or_error);
16943 return expr;
16945 else if (good == 0 && badargs)
16946 /* There were no good options and at least one bad one, so let the
16947 user know what the problem is. */
16948 instantiate_template (badfn, badargs, tf_warning_or_error);
16950 return orig_expr;
16953 /* Subroutine of resolve_overloaded_unification; does deduction for a single
16954 overload. Fills TARGS with any deduced arguments, or error_mark_node if
16955 different overloads deduce different arguments for a given parm.
16956 ADDR_P is true if the expression for which deduction is being
16957 performed was of the form "& fn" rather than simply "fn".
16959 Returns 1 on success. */
16961 static int
16962 try_one_overload (tree tparms,
16963 tree orig_targs,
16964 tree targs,
16965 tree parm,
16966 tree arg,
16967 unification_kind_t strict,
16968 int sub_strict,
16969 bool addr_p,
16970 bool explain_p)
16972 int nargs;
16973 tree tempargs;
16974 int i;
16976 if (arg == error_mark_node)
16977 return 0;
16979 /* [temp.deduct.type] A template-argument can be deduced from a pointer
16980 to function or pointer to member function argument if the set of
16981 overloaded functions does not contain function templates and at most
16982 one of a set of overloaded functions provides a unique match.
16984 So if this is a template, just return success. */
16986 if (uses_template_parms (arg))
16987 return 1;
16989 if (TREE_CODE (arg) == METHOD_TYPE)
16990 arg = build_ptrmemfunc_type (build_pointer_type (arg));
16991 else if (addr_p)
16992 arg = build_pointer_type (arg);
16994 sub_strict |= maybe_adjust_types_for_deduction (strict, &parm, &arg, NULL);
16996 /* We don't copy orig_targs for this because if we have already deduced
16997 some template args from previous args, unify would complain when we
16998 try to deduce a template parameter for the same argument, even though
16999 there isn't really a conflict. */
17000 nargs = TREE_VEC_LENGTH (targs);
17001 tempargs = make_tree_vec (nargs);
17003 if (unify (tparms, tempargs, parm, arg, sub_strict, explain_p))
17004 return 0;
17006 /* First make sure we didn't deduce anything that conflicts with
17007 explicitly specified args. */
17008 for (i = nargs; i--; )
17010 tree elt = TREE_VEC_ELT (tempargs, i);
17011 tree oldelt = TREE_VEC_ELT (orig_targs, i);
17013 if (!elt)
17014 /*NOP*/;
17015 else if (uses_template_parms (elt))
17016 /* Since we're unifying against ourselves, we will fill in
17017 template args used in the function parm list with our own
17018 template parms. Discard them. */
17019 TREE_VEC_ELT (tempargs, i) = NULL_TREE;
17020 else if (oldelt && !template_args_equal (oldelt, elt))
17021 return 0;
17024 for (i = nargs; i--; )
17026 tree elt = TREE_VEC_ELT (tempargs, i);
17028 if (elt)
17029 TREE_VEC_ELT (targs, i) = elt;
17032 return 1;
17035 /* PARM is a template class (perhaps with unbound template
17036 parameters). ARG is a fully instantiated type. If ARG can be
17037 bound to PARM, return ARG, otherwise return NULL_TREE. TPARMS and
17038 TARGS are as for unify. */
17040 static tree
17041 try_class_unification (tree tparms, tree targs, tree parm, tree arg,
17042 bool explain_p)
17044 tree copy_of_targs;
17046 if (!CLASSTYPE_TEMPLATE_INFO (arg)
17047 || (most_general_template (CLASSTYPE_TI_TEMPLATE (arg))
17048 != most_general_template (CLASSTYPE_TI_TEMPLATE (parm))))
17049 return NULL_TREE;
17051 /* We need to make a new template argument vector for the call to
17052 unify. If we used TARGS, we'd clutter it up with the result of
17053 the attempted unification, even if this class didn't work out.
17054 We also don't want to commit ourselves to all the unifications
17055 we've already done, since unification is supposed to be done on
17056 an argument-by-argument basis. In other words, consider the
17057 following pathological case:
17059 template <int I, int J, int K>
17060 struct S {};
17062 template <int I, int J>
17063 struct S<I, J, 2> : public S<I, I, I>, S<J, J, J> {};
17065 template <int I, int J, int K>
17066 void f(S<I, J, K>, S<I, I, I>);
17068 void g() {
17069 S<0, 0, 0> s0;
17070 S<0, 1, 2> s2;
17072 f(s0, s2);
17075 Now, by the time we consider the unification involving `s2', we
17076 already know that we must have `f<0, 0, 0>'. But, even though
17077 `S<0, 1, 2>' is derived from `S<0, 0, 0>', the code is invalid
17078 because there are two ways to unify base classes of S<0, 1, 2>
17079 with S<I, I, I>. If we kept the already deduced knowledge, we
17080 would reject the possibility I=1. */
17081 copy_of_targs = make_tree_vec (TREE_VEC_LENGTH (targs));
17083 /* If unification failed, we're done. */
17084 if (unify (tparms, copy_of_targs, CLASSTYPE_TI_ARGS (parm),
17085 CLASSTYPE_TI_ARGS (arg), UNIFY_ALLOW_NONE, explain_p))
17086 return NULL_TREE;
17088 return arg;
17091 /* Given a template type PARM and a class type ARG, find the unique
17092 base type in ARG that is an instance of PARM. We do not examine
17093 ARG itself; only its base-classes. If there is not exactly one
17094 appropriate base class, return NULL_TREE. PARM may be the type of
17095 a partial specialization, as well as a plain template type. Used
17096 by unify. */
17098 static enum template_base_result
17099 get_template_base (tree tparms, tree targs, tree parm, tree arg,
17100 bool explain_p, tree *result)
17102 tree rval = NULL_TREE;
17103 tree binfo;
17105 gcc_assert (RECORD_OR_UNION_CODE_P (TREE_CODE (arg)));
17107 binfo = TYPE_BINFO (complete_type (arg));
17108 if (!binfo)
17110 /* The type could not be completed. */
17111 *result = NULL_TREE;
17112 return tbr_incomplete_type;
17115 /* Walk in inheritance graph order. The search order is not
17116 important, and this avoids multiple walks of virtual bases. */
17117 for (binfo = TREE_CHAIN (binfo); binfo; binfo = TREE_CHAIN (binfo))
17119 tree r = try_class_unification (tparms, targs, parm,
17120 BINFO_TYPE (binfo), explain_p);
17122 if (r)
17124 /* If there is more than one satisfactory baseclass, then:
17126 [temp.deduct.call]
17128 If they yield more than one possible deduced A, the type
17129 deduction fails.
17131 applies. */
17132 if (rval && !same_type_p (r, rval))
17134 *result = NULL_TREE;
17135 return tbr_ambiguous_baseclass;
17138 rval = r;
17142 *result = rval;
17143 return tbr_success;
17146 /* Returns the level of DECL, which declares a template parameter. */
17148 static int
17149 template_decl_level (tree decl)
17151 switch (TREE_CODE (decl))
17153 case TYPE_DECL:
17154 case TEMPLATE_DECL:
17155 return TEMPLATE_TYPE_LEVEL (TREE_TYPE (decl));
17157 case PARM_DECL:
17158 return TEMPLATE_PARM_LEVEL (DECL_INITIAL (decl));
17160 default:
17161 gcc_unreachable ();
17163 return 0;
17166 /* Decide whether ARG can be unified with PARM, considering only the
17167 cv-qualifiers of each type, given STRICT as documented for unify.
17168 Returns nonzero iff the unification is OK on that basis. */
17170 static int
17171 check_cv_quals_for_unify (int strict, tree arg, tree parm)
17173 int arg_quals = cp_type_quals (arg);
17174 int parm_quals = cp_type_quals (parm);
17176 if (TREE_CODE (parm) == TEMPLATE_TYPE_PARM
17177 && !(strict & UNIFY_ALLOW_OUTER_MORE_CV_QUAL))
17179 /* Although a CVR qualifier is ignored when being applied to a
17180 substituted template parameter ([8.3.2]/1 for example), that
17181 does not allow us to unify "const T" with "int&" because both
17182 types are not of the form "cv-list T" [14.8.2.5 temp.deduct.type].
17183 It is ok when we're allowing additional CV qualifiers
17184 at the outer level [14.8.2.1]/3,1st bullet. */
17185 if ((TREE_CODE (arg) == REFERENCE_TYPE
17186 || TREE_CODE (arg) == FUNCTION_TYPE
17187 || TREE_CODE (arg) == METHOD_TYPE)
17188 && (parm_quals & (TYPE_QUAL_CONST | TYPE_QUAL_VOLATILE)))
17189 return 0;
17191 if ((!POINTER_TYPE_P (arg) && TREE_CODE (arg) != TEMPLATE_TYPE_PARM)
17192 && (parm_quals & TYPE_QUAL_RESTRICT))
17193 return 0;
17196 if (!(strict & (UNIFY_ALLOW_MORE_CV_QUAL | UNIFY_ALLOW_OUTER_MORE_CV_QUAL))
17197 && (arg_quals & parm_quals) != parm_quals)
17198 return 0;
17200 if (!(strict & (UNIFY_ALLOW_LESS_CV_QUAL | UNIFY_ALLOW_OUTER_LESS_CV_QUAL))
17201 && (parm_quals & arg_quals) != arg_quals)
17202 return 0;
17204 return 1;
17207 /* Determines the LEVEL and INDEX for the template parameter PARM. */
17208 void
17209 template_parm_level_and_index (tree parm, int* level, int* index)
17211 if (TREE_CODE (parm) == TEMPLATE_TYPE_PARM
17212 || TREE_CODE (parm) == TEMPLATE_TEMPLATE_PARM
17213 || TREE_CODE (parm) == BOUND_TEMPLATE_TEMPLATE_PARM)
17215 *index = TEMPLATE_TYPE_IDX (parm);
17216 *level = TEMPLATE_TYPE_LEVEL (parm);
17218 else
17220 *index = TEMPLATE_PARM_IDX (parm);
17221 *level = TEMPLATE_PARM_LEVEL (parm);
17225 #define RECUR_AND_CHECK_FAILURE(TP, TA, P, A, S, EP) \
17226 do { \
17227 if (unify (TP, TA, P, A, S, EP)) \
17228 return 1; \
17229 } while (0);
17231 /* Unifies the remaining arguments in PACKED_ARGS with the pack
17232 expansion at the end of PACKED_PARMS. Returns 0 if the type
17233 deduction succeeds, 1 otherwise. STRICT is the same as in
17234 unify. CALL_ARGS_P is true iff PACKED_ARGS is actually a function
17235 call argument list. We'll need to adjust the arguments to make them
17236 types. SUBR tells us if this is from a recursive call to
17237 type_unification_real, or for comparing two template argument
17238 lists. */
17240 static int
17241 unify_pack_expansion (tree tparms, tree targs, tree packed_parms,
17242 tree packed_args, unification_kind_t strict,
17243 bool subr, bool explain_p)
17245 tree parm
17246 = TREE_VEC_ELT (packed_parms, TREE_VEC_LENGTH (packed_parms) - 1);
17247 tree pattern = PACK_EXPANSION_PATTERN (parm);
17248 tree pack, packs = NULL_TREE;
17249 int i, start = TREE_VEC_LENGTH (packed_parms) - 1;
17251 packed_args = expand_template_argument_pack (packed_args);
17253 int len = TREE_VEC_LENGTH (packed_args);
17255 /* Determine the parameter packs we will be deducing from the
17256 pattern, and record their current deductions. */
17257 for (pack = PACK_EXPANSION_PARAMETER_PACKS (parm);
17258 pack; pack = TREE_CHAIN (pack))
17260 tree parm_pack = TREE_VALUE (pack);
17261 int idx, level;
17263 /* Determine the index and level of this parameter pack. */
17264 template_parm_level_and_index (parm_pack, &level, &idx);
17266 /* Keep track of the parameter packs and their corresponding
17267 argument packs. */
17268 packs = tree_cons (parm_pack, TMPL_ARG (targs, level, idx), packs);
17269 TREE_TYPE (packs) = make_tree_vec (len - start);
17272 /* Loop through all of the arguments that have not yet been
17273 unified and unify each with the pattern. */
17274 for (i = start; i < len; i++)
17276 tree parm;
17277 bool any_explicit = false;
17278 tree arg = TREE_VEC_ELT (packed_args, i);
17280 /* For each parameter pack, set its TMPL_ARG to either NULL_TREE
17281 or the element of its argument pack at the current index if
17282 this argument was explicitly specified. */
17283 for (pack = packs; pack; pack = TREE_CHAIN (pack))
17285 int idx, level;
17286 tree arg, pargs;
17287 template_parm_level_and_index (TREE_PURPOSE (pack), &level, &idx);
17289 arg = NULL_TREE;
17290 if (TREE_VALUE (pack)
17291 && (pargs = ARGUMENT_PACK_EXPLICIT_ARGS (TREE_VALUE (pack)))
17292 && (i - start < TREE_VEC_LENGTH (pargs)))
17294 any_explicit = true;
17295 arg = TREE_VEC_ELT (pargs, i - start);
17297 TMPL_ARG (targs, level, idx) = arg;
17300 /* If we had explicit template arguments, substitute them into the
17301 pattern before deduction. */
17302 if (any_explicit)
17304 /* Some arguments might still be unspecified or dependent. */
17305 bool dependent;
17306 ++processing_template_decl;
17307 dependent = any_dependent_template_arguments_p (targs);
17308 if (!dependent)
17309 --processing_template_decl;
17310 parm = tsubst (pattern, targs,
17311 explain_p ? tf_warning_or_error : tf_none,
17312 NULL_TREE);
17313 if (dependent)
17314 --processing_template_decl;
17315 if (parm == error_mark_node)
17316 return 1;
17318 else
17319 parm = pattern;
17321 /* Unify the pattern with the current argument. */
17322 if (unify_one_argument (tparms, targs, parm, arg, subr, strict,
17323 LOOKUP_IMPLICIT, explain_p))
17324 return 1;
17326 /* For each parameter pack, collect the deduced value. */
17327 for (pack = packs; pack; pack = TREE_CHAIN (pack))
17329 int idx, level;
17330 template_parm_level_and_index (TREE_PURPOSE (pack), &level, &idx);
17332 TREE_VEC_ELT (TREE_TYPE (pack), i - start) =
17333 TMPL_ARG (targs, level, idx);
17337 /* Verify that the results of unification with the parameter packs
17338 produce results consistent with what we've seen before, and make
17339 the deduced argument packs available. */
17340 for (pack = packs; pack; pack = TREE_CHAIN (pack))
17342 tree old_pack = TREE_VALUE (pack);
17343 tree new_args = TREE_TYPE (pack);
17344 int i, len = TREE_VEC_LENGTH (new_args);
17345 int idx, level;
17346 bool nondeduced_p = false;
17348 /* By default keep the original deduced argument pack.
17349 If necessary, more specific code is going to update the
17350 resulting deduced argument later down in this function. */
17351 template_parm_level_and_index (TREE_PURPOSE (pack), &level, &idx);
17352 TMPL_ARG (targs, level, idx) = old_pack;
17354 /* If NEW_ARGS contains any NULL_TREE entries, we didn't
17355 actually deduce anything. */
17356 for (i = 0; i < len && !nondeduced_p; ++i)
17357 if (TREE_VEC_ELT (new_args, i) == NULL_TREE)
17358 nondeduced_p = true;
17359 if (nondeduced_p)
17360 continue;
17362 if (old_pack && ARGUMENT_PACK_INCOMPLETE_P (old_pack))
17364 /* If we had fewer function args than explicit template args,
17365 just use the explicits. */
17366 tree explicit_args = ARGUMENT_PACK_EXPLICIT_ARGS (old_pack);
17367 int explicit_len = TREE_VEC_LENGTH (explicit_args);
17368 if (len < explicit_len)
17369 new_args = explicit_args;
17372 if (!old_pack)
17374 tree result;
17375 /* Build the deduced *_ARGUMENT_PACK. */
17376 if (TREE_CODE (TREE_PURPOSE (pack)) == TEMPLATE_PARM_INDEX)
17378 result = make_node (NONTYPE_ARGUMENT_PACK);
17379 TREE_TYPE (result) =
17380 TREE_TYPE (TEMPLATE_PARM_DECL (TREE_PURPOSE (pack)));
17381 TREE_CONSTANT (result) = 1;
17383 else
17384 result = cxx_make_type (TYPE_ARGUMENT_PACK);
17386 SET_ARGUMENT_PACK_ARGS (result, new_args);
17388 /* Note the deduced argument packs for this parameter
17389 pack. */
17390 TMPL_ARG (targs, level, idx) = result;
17392 else if (ARGUMENT_PACK_INCOMPLETE_P (old_pack)
17393 && (ARGUMENT_PACK_ARGS (old_pack)
17394 == ARGUMENT_PACK_EXPLICIT_ARGS (old_pack)))
17396 /* We only had the explicitly-provided arguments before, but
17397 now we have a complete set of arguments. */
17398 tree explicit_args = ARGUMENT_PACK_EXPLICIT_ARGS (old_pack);
17400 SET_ARGUMENT_PACK_ARGS (old_pack, new_args);
17401 ARGUMENT_PACK_INCOMPLETE_P (old_pack) = 1;
17402 ARGUMENT_PACK_EXPLICIT_ARGS (old_pack) = explicit_args;
17404 else
17406 tree bad_old_arg = NULL_TREE, bad_new_arg = NULL_TREE;
17407 tree old_args = ARGUMENT_PACK_ARGS (old_pack);
17409 if (!comp_template_args_with_info (old_args, new_args,
17410 &bad_old_arg, &bad_new_arg))
17411 /* Inconsistent unification of this parameter pack. */
17412 return unify_parameter_pack_inconsistent (explain_p,
17413 bad_old_arg,
17414 bad_new_arg);
17418 return unify_success (explain_p);
17421 /* Handle unification of the domain of an array. PARM_DOM and ARG_DOM are
17422 INTEGER_TYPEs representing the TYPE_DOMAIN of ARRAY_TYPEs. The other
17423 parameters and return value are as for unify. */
17425 static int
17426 unify_array_domain (tree tparms, tree targs,
17427 tree parm_dom, tree arg_dom,
17428 bool explain_p)
17430 tree parm_max;
17431 tree arg_max;
17432 bool parm_cst;
17433 bool arg_cst;
17435 /* Our representation of array types uses "N - 1" as the
17436 TYPE_MAX_VALUE for an array with "N" elements, if "N" is
17437 not an integer constant. We cannot unify arbitrarily
17438 complex expressions, so we eliminate the MINUS_EXPRs
17439 here. */
17440 parm_max = TYPE_MAX_VALUE (parm_dom);
17441 parm_cst = TREE_CODE (parm_max) == INTEGER_CST;
17442 if (!parm_cst)
17444 gcc_assert (TREE_CODE (parm_max) == MINUS_EXPR);
17445 parm_max = TREE_OPERAND (parm_max, 0);
17447 arg_max = TYPE_MAX_VALUE (arg_dom);
17448 arg_cst = TREE_CODE (arg_max) == INTEGER_CST;
17449 if (!arg_cst)
17451 /* The ARG_MAX may not be a simple MINUS_EXPR, if we are
17452 trying to unify the type of a variable with the type
17453 of a template parameter. For example:
17455 template <unsigned int N>
17456 void f (char (&) [N]);
17457 int g();
17458 void h(int i) {
17459 char a[g(i)];
17460 f(a);
17463 Here, the type of the ARG will be "int [g(i)]", and
17464 may be a SAVE_EXPR, etc. */
17465 if (TREE_CODE (arg_max) != MINUS_EXPR)
17466 return unify_vla_arg (explain_p, arg_dom);
17467 arg_max = TREE_OPERAND (arg_max, 0);
17470 /* If only one of the bounds used a MINUS_EXPR, compensate
17471 by adding one to the other bound. */
17472 if (parm_cst && !arg_cst)
17473 parm_max = fold_build2_loc (input_location, PLUS_EXPR,
17474 integer_type_node,
17475 parm_max,
17476 integer_one_node);
17477 else if (arg_cst && !parm_cst)
17478 arg_max = fold_build2_loc (input_location, PLUS_EXPR,
17479 integer_type_node,
17480 arg_max,
17481 integer_one_node);
17483 return unify (tparms, targs, parm_max, arg_max,
17484 UNIFY_ALLOW_INTEGER, explain_p);
17487 /* Deduce the value of template parameters. TPARMS is the (innermost)
17488 set of template parameters to a template. TARGS is the bindings
17489 for those template parameters, as determined thus far; TARGS may
17490 include template arguments for outer levels of template parameters
17491 as well. PARM is a parameter to a template function, or a
17492 subcomponent of that parameter; ARG is the corresponding argument.
17493 This function attempts to match PARM with ARG in a manner
17494 consistent with the existing assignments in TARGS. If more values
17495 are deduced, then TARGS is updated.
17497 Returns 0 if the type deduction succeeds, 1 otherwise. The
17498 parameter STRICT is a bitwise or of the following flags:
17500 UNIFY_ALLOW_NONE:
17501 Require an exact match between PARM and ARG.
17502 UNIFY_ALLOW_MORE_CV_QUAL:
17503 Allow the deduced ARG to be more cv-qualified (by qualification
17504 conversion) than ARG.
17505 UNIFY_ALLOW_LESS_CV_QUAL:
17506 Allow the deduced ARG to be less cv-qualified than ARG.
17507 UNIFY_ALLOW_DERIVED:
17508 Allow the deduced ARG to be a template base class of ARG,
17509 or a pointer to a template base class of the type pointed to by
17510 ARG.
17511 UNIFY_ALLOW_INTEGER:
17512 Allow any integral type to be deduced. See the TEMPLATE_PARM_INDEX
17513 case for more information.
17514 UNIFY_ALLOW_OUTER_LEVEL:
17515 This is the outermost level of a deduction. Used to determine validity
17516 of qualification conversions. A valid qualification conversion must
17517 have const qualified pointers leading up to the inner type which
17518 requires additional CV quals, except at the outer level, where const
17519 is not required [conv.qual]. It would be normal to set this flag in
17520 addition to setting UNIFY_ALLOW_MORE_CV_QUAL.
17521 UNIFY_ALLOW_OUTER_MORE_CV_QUAL:
17522 This is the outermost level of a deduction, and PARM can be more CV
17523 qualified at this point.
17524 UNIFY_ALLOW_OUTER_LESS_CV_QUAL:
17525 This is the outermost level of a deduction, and PARM can be less CV
17526 qualified at this point. */
17528 static int
17529 unify (tree tparms, tree targs, tree parm, tree arg, int strict,
17530 bool explain_p)
17532 int idx;
17533 tree targ;
17534 tree tparm;
17535 int strict_in = strict;
17537 /* I don't think this will do the right thing with respect to types.
17538 But the only case I've seen it in so far has been array bounds, where
17539 signedness is the only information lost, and I think that will be
17540 okay. */
17541 while (TREE_CODE (parm) == NOP_EXPR)
17542 parm = TREE_OPERAND (parm, 0);
17544 if (arg == error_mark_node)
17545 return unify_invalid (explain_p);
17546 if (arg == unknown_type_node
17547 || arg == init_list_type_node)
17548 /* We can't deduce anything from this, but we might get all the
17549 template args from other function args. */
17550 return unify_success (explain_p);
17552 /* If PARM uses template parameters, then we can't bail out here,
17553 even if ARG == PARM, since we won't record unifications for the
17554 template parameters. We might need them if we're trying to
17555 figure out which of two things is more specialized. */
17556 if (arg == parm && !uses_template_parms (parm))
17557 return unify_success (explain_p);
17559 /* Handle init lists early, so the rest of the function can assume
17560 we're dealing with a type. */
17561 if (BRACE_ENCLOSED_INITIALIZER_P (arg))
17563 tree elt, elttype;
17564 unsigned i;
17565 tree orig_parm = parm;
17567 /* Replace T with std::initializer_list<T> for deduction. */
17568 if (TREE_CODE (parm) == TEMPLATE_TYPE_PARM
17569 && flag_deduce_init_list)
17570 parm = listify (parm);
17572 if (!is_std_init_list (parm)
17573 && TREE_CODE (parm) != ARRAY_TYPE)
17574 /* We can only deduce from an initializer list argument if the
17575 parameter is std::initializer_list or an array; otherwise this
17576 is a non-deduced context. */
17577 return unify_success (explain_p);
17579 if (TREE_CODE (parm) == ARRAY_TYPE)
17580 elttype = TREE_TYPE (parm);
17581 else
17582 elttype = TREE_VEC_ELT (CLASSTYPE_TI_ARGS (parm), 0);
17584 FOR_EACH_CONSTRUCTOR_VALUE (CONSTRUCTOR_ELTS (arg), i, elt)
17586 int elt_strict = strict;
17588 if (elt == error_mark_node)
17589 return unify_invalid (explain_p);
17591 if (!BRACE_ENCLOSED_INITIALIZER_P (elt))
17593 tree type = TREE_TYPE (elt);
17594 /* It should only be possible to get here for a call. */
17595 gcc_assert (elt_strict & UNIFY_ALLOW_OUTER_LEVEL);
17596 elt_strict |= maybe_adjust_types_for_deduction
17597 (DEDUCE_CALL, &elttype, &type, elt);
17598 elt = type;
17601 RECUR_AND_CHECK_FAILURE (tparms, targs, elttype, elt, elt_strict,
17602 explain_p);
17605 if (TREE_CODE (parm) == ARRAY_TYPE
17606 && deducible_array_bound (TYPE_DOMAIN (parm)))
17608 /* Also deduce from the length of the initializer list. */
17609 tree max = size_int (CONSTRUCTOR_NELTS (arg));
17610 tree idx = compute_array_index_type (NULL_TREE, max, tf_none);
17611 if (idx == error_mark_node)
17612 return unify_invalid (explain_p);
17613 return unify_array_domain (tparms, targs, TYPE_DOMAIN (parm),
17614 idx, explain_p);
17617 /* If the std::initializer_list<T> deduction worked, replace the
17618 deduced A with std::initializer_list<A>. */
17619 if (orig_parm != parm)
17621 idx = TEMPLATE_TYPE_IDX (orig_parm);
17622 targ = TREE_VEC_ELT (INNERMOST_TEMPLATE_ARGS (targs), idx);
17623 targ = listify (targ);
17624 TREE_VEC_ELT (INNERMOST_TEMPLATE_ARGS (targs), idx) = targ;
17626 return unify_success (explain_p);
17629 /* Immediately reject some pairs that won't unify because of
17630 cv-qualification mismatches. */
17631 if (TREE_CODE (arg) == TREE_CODE (parm)
17632 && TYPE_P (arg)
17633 /* It is the elements of the array which hold the cv quals of an array
17634 type, and the elements might be template type parms. We'll check
17635 when we recurse. */
17636 && TREE_CODE (arg) != ARRAY_TYPE
17637 /* We check the cv-qualifiers when unifying with template type
17638 parameters below. We want to allow ARG `const T' to unify with
17639 PARM `T' for example, when computing which of two templates
17640 is more specialized, for example. */
17641 && TREE_CODE (arg) != TEMPLATE_TYPE_PARM
17642 && !check_cv_quals_for_unify (strict_in, arg, parm))
17643 return unify_cv_qual_mismatch (explain_p, parm, arg);
17645 if (!(strict & UNIFY_ALLOW_OUTER_LEVEL)
17646 && TYPE_P (parm) && !CP_TYPE_CONST_P (parm))
17647 strict &= ~UNIFY_ALLOW_MORE_CV_QUAL;
17648 strict &= ~UNIFY_ALLOW_OUTER_LEVEL;
17649 strict &= ~UNIFY_ALLOW_DERIVED;
17650 strict &= ~UNIFY_ALLOW_OUTER_MORE_CV_QUAL;
17651 strict &= ~UNIFY_ALLOW_OUTER_LESS_CV_QUAL;
17653 switch (TREE_CODE (parm))
17655 case TYPENAME_TYPE:
17656 case SCOPE_REF:
17657 case UNBOUND_CLASS_TEMPLATE:
17658 /* In a type which contains a nested-name-specifier, template
17659 argument values cannot be deduced for template parameters used
17660 within the nested-name-specifier. */
17661 return unify_success (explain_p);
17663 case TEMPLATE_TYPE_PARM:
17664 case TEMPLATE_TEMPLATE_PARM:
17665 case BOUND_TEMPLATE_TEMPLATE_PARM:
17666 tparm = TREE_VALUE (TREE_VEC_ELT (tparms, 0));
17667 if (error_operand_p (tparm))
17668 return unify_invalid (explain_p);
17670 if (TEMPLATE_TYPE_LEVEL (parm)
17671 != template_decl_level (tparm))
17672 /* The PARM is not one we're trying to unify. Just check
17673 to see if it matches ARG. */
17675 if (TREE_CODE (arg) == TREE_CODE (parm)
17676 && (is_auto (parm) ? is_auto (arg)
17677 : same_type_p (parm, arg)))
17678 return unify_success (explain_p);
17679 else
17680 return unify_type_mismatch (explain_p, parm, arg);
17682 idx = TEMPLATE_TYPE_IDX (parm);
17683 targ = TREE_VEC_ELT (INNERMOST_TEMPLATE_ARGS (targs), idx);
17684 tparm = TREE_VALUE (TREE_VEC_ELT (tparms, idx));
17685 if (error_operand_p (tparm))
17686 return unify_invalid (explain_p);
17688 /* Check for mixed types and values. */
17689 if ((TREE_CODE (parm) == TEMPLATE_TYPE_PARM
17690 && TREE_CODE (tparm) != TYPE_DECL)
17691 || (TREE_CODE (parm) == TEMPLATE_TEMPLATE_PARM
17692 && TREE_CODE (tparm) != TEMPLATE_DECL))
17693 gcc_unreachable ();
17695 if (TREE_CODE (parm) == BOUND_TEMPLATE_TEMPLATE_PARM)
17697 /* ARG must be constructed from a template class or a template
17698 template parameter. */
17699 if (TREE_CODE (arg) != BOUND_TEMPLATE_TEMPLATE_PARM
17700 && !CLASSTYPE_SPECIALIZATION_OF_PRIMARY_TEMPLATE_P (arg))
17701 return unify_template_deduction_failure (explain_p, parm, arg);
17703 tree parmvec = TYPE_TI_ARGS (parm);
17704 /* An alias template name is never deduced. */
17705 if (TYPE_ALIAS_P (arg))
17706 arg = strip_typedefs (arg);
17707 tree argvec = INNERMOST_TEMPLATE_ARGS (TYPE_TI_ARGS (arg));
17708 tree full_argvec = add_to_template_args (targs, argvec);
17709 tree parm_parms
17710 = DECL_INNERMOST_TEMPLATE_PARMS
17711 (TEMPLATE_TEMPLATE_PARM_TEMPLATE_DECL (parm));
17712 int i, len;
17713 int parm_variadic_p = 0;
17715 /* The resolution to DR150 makes clear that default
17716 arguments for an N-argument may not be used to bind T
17717 to a template template parameter with fewer than N
17718 parameters. It is not safe to permit the binding of
17719 default arguments as an extension, as that may change
17720 the meaning of a conforming program. Consider:
17722 struct Dense { static const unsigned int dim = 1; };
17724 template <template <typename> class View,
17725 typename Block>
17726 void operator+(float, View<Block> const&);
17728 template <typename Block,
17729 unsigned int Dim = Block::dim>
17730 struct Lvalue_proxy { operator float() const; };
17732 void
17733 test_1d (void) {
17734 Lvalue_proxy<Dense> p;
17735 float b;
17736 b + p;
17739 Here, if Lvalue_proxy is permitted to bind to View, then
17740 the global operator+ will be used; if they are not, the
17741 Lvalue_proxy will be converted to float. */
17742 if (coerce_template_parms (parm_parms,
17743 full_argvec,
17744 TYPE_TI_TEMPLATE (parm),
17745 (explain_p
17746 ? tf_warning_or_error
17747 : tf_none),
17748 /*require_all_args=*/true,
17749 /*use_default_args=*/false)
17750 == error_mark_node)
17751 return 1;
17753 /* Deduce arguments T, i from TT<T> or TT<i>.
17754 We check each element of PARMVEC and ARGVEC individually
17755 rather than the whole TREE_VEC since they can have
17756 different number of elements. */
17758 parmvec = expand_template_argument_pack (parmvec);
17759 argvec = expand_template_argument_pack (argvec);
17761 len = TREE_VEC_LENGTH (parmvec);
17763 /* Check if the parameters end in a pack, making them
17764 variadic. */
17765 if (len > 0
17766 && PACK_EXPANSION_P (TREE_VEC_ELT (parmvec, len - 1)))
17767 parm_variadic_p = 1;
17769 for (i = 0; i < len - parm_variadic_p; ++i)
17770 /* If the template argument list of P contains a pack
17771 expansion that is not the last template argument, the
17772 entire template argument list is a non-deduced
17773 context. */
17774 if (PACK_EXPANSION_P (TREE_VEC_ELT (parmvec, i)))
17775 return unify_success (explain_p);
17777 if (TREE_VEC_LENGTH (argvec) < len - parm_variadic_p)
17778 return unify_too_few_arguments (explain_p,
17779 TREE_VEC_LENGTH (argvec), len);
17781 for (i = 0; i < len - parm_variadic_p; ++i)
17783 RECUR_AND_CHECK_FAILURE (tparms, targs,
17784 TREE_VEC_ELT (parmvec, i),
17785 TREE_VEC_ELT (argvec, i),
17786 UNIFY_ALLOW_NONE, explain_p);
17789 if (parm_variadic_p
17790 && unify_pack_expansion (tparms, targs,
17791 parmvec, argvec,
17792 DEDUCE_EXACT,
17793 /*subr=*/true, explain_p))
17794 return 1;
17796 arg = TYPE_TI_TEMPLATE (arg);
17798 /* Fall through to deduce template name. */
17801 if (TREE_CODE (parm) == TEMPLATE_TEMPLATE_PARM
17802 || TREE_CODE (parm) == BOUND_TEMPLATE_TEMPLATE_PARM)
17804 /* Deduce template name TT from TT, TT<>, TT<T> and TT<i>. */
17806 /* Simple cases: Value already set, does match or doesn't. */
17807 if (targ != NULL_TREE && template_args_equal (targ, arg))
17808 return unify_success (explain_p);
17809 else if (targ)
17810 return unify_inconsistency (explain_p, parm, targ, arg);
17812 else
17814 /* If PARM is `const T' and ARG is only `int', we don't have
17815 a match unless we are allowing additional qualification.
17816 If ARG is `const int' and PARM is just `T' that's OK;
17817 that binds `const int' to `T'. */
17818 if (!check_cv_quals_for_unify (strict_in | UNIFY_ALLOW_LESS_CV_QUAL,
17819 arg, parm))
17820 return unify_cv_qual_mismatch (explain_p, parm, arg);
17822 /* Consider the case where ARG is `const volatile int' and
17823 PARM is `const T'. Then, T should be `volatile int'. */
17824 arg = cp_build_qualified_type_real
17825 (arg, cp_type_quals (arg) & ~cp_type_quals (parm), tf_none);
17826 if (arg == error_mark_node)
17827 return unify_invalid (explain_p);
17829 /* Simple cases: Value already set, does match or doesn't. */
17830 if (targ != NULL_TREE && same_type_p (targ, arg))
17831 return unify_success (explain_p);
17832 else if (targ)
17833 return unify_inconsistency (explain_p, parm, targ, arg);
17835 /* Make sure that ARG is not a variable-sized array. (Note
17836 that were talking about variable-sized arrays (like
17837 `int[n]'), rather than arrays of unknown size (like
17838 `int[]').) We'll get very confused by such a type since
17839 the bound of the array is not constant, and therefore
17840 not mangleable. Besides, such types are not allowed in
17841 ISO C++, so we can do as we please here. We do allow
17842 them for 'auto' deduction, since that isn't ABI-exposed. */
17843 if (!is_auto (parm) && variably_modified_type_p (arg, NULL_TREE))
17844 return unify_vla_arg (explain_p, arg);
17846 /* Strip typedefs as in convert_template_argument. */
17847 arg = canonicalize_type_argument (arg, tf_none);
17850 /* If ARG is a parameter pack or an expansion, we cannot unify
17851 against it unless PARM is also a parameter pack. */
17852 if ((template_parameter_pack_p (arg) || PACK_EXPANSION_P (arg))
17853 && !template_parameter_pack_p (parm))
17854 return unify_parameter_pack_mismatch (explain_p, parm, arg);
17856 /* If the argument deduction results is a METHOD_TYPE,
17857 then there is a problem.
17858 METHOD_TYPE doesn't map to any real C++ type the result of
17859 the deduction can not be of that type. */
17860 if (TREE_CODE (arg) == METHOD_TYPE)
17861 return unify_method_type_error (explain_p, arg);
17863 TREE_VEC_ELT (INNERMOST_TEMPLATE_ARGS (targs), idx) = arg;
17864 return unify_success (explain_p);
17866 case TEMPLATE_PARM_INDEX:
17867 tparm = TREE_VALUE (TREE_VEC_ELT (tparms, 0));
17868 if (error_operand_p (tparm))
17869 return unify_invalid (explain_p);
17871 if (TEMPLATE_PARM_LEVEL (parm)
17872 != template_decl_level (tparm))
17874 /* The PARM is not one we're trying to unify. Just check
17875 to see if it matches ARG. */
17876 int result = !(TREE_CODE (arg) == TREE_CODE (parm)
17877 && cp_tree_equal (parm, arg));
17878 if (result)
17879 unify_expression_unequal (explain_p, parm, arg);
17880 return result;
17883 idx = TEMPLATE_PARM_IDX (parm);
17884 targ = TREE_VEC_ELT (INNERMOST_TEMPLATE_ARGS (targs), idx);
17886 if (targ)
17888 int x = !cp_tree_equal (targ, arg);
17889 if (x)
17890 unify_inconsistency (explain_p, parm, targ, arg);
17891 return x;
17894 /* [temp.deduct.type] If, in the declaration of a function template
17895 with a non-type template-parameter, the non-type
17896 template-parameter is used in an expression in the function
17897 parameter-list and, if the corresponding template-argument is
17898 deduced, the template-argument type shall match the type of the
17899 template-parameter exactly, except that a template-argument
17900 deduced from an array bound may be of any integral type.
17901 The non-type parameter might use already deduced type parameters. */
17902 tparm = tsubst (TREE_TYPE (parm), targs, 0, NULL_TREE);
17903 if (!TREE_TYPE (arg))
17904 /* Template-parameter dependent expression. Just accept it for now.
17905 It will later be processed in convert_template_argument. */
17907 else if (same_type_p (TREE_TYPE (arg), tparm))
17908 /* OK */;
17909 else if ((strict & UNIFY_ALLOW_INTEGER)
17910 && CP_INTEGRAL_TYPE_P (tparm))
17911 /* Convert the ARG to the type of PARM; the deduced non-type
17912 template argument must exactly match the types of the
17913 corresponding parameter. */
17914 arg = fold (build_nop (tparm, arg));
17915 else if (uses_template_parms (tparm))
17916 /* We haven't deduced the type of this parameter yet. Try again
17917 later. */
17918 return unify_success (explain_p);
17919 else
17920 return unify_type_mismatch (explain_p, tparm, TREE_TYPE (arg));
17922 /* If ARG is a parameter pack or an expansion, we cannot unify
17923 against it unless PARM is also a parameter pack. */
17924 if ((template_parameter_pack_p (arg) || PACK_EXPANSION_P (arg))
17925 && !TEMPLATE_PARM_PARAMETER_PACK (parm))
17926 return unify_parameter_pack_mismatch (explain_p, parm, arg);
17928 arg = strip_typedefs_expr (arg);
17929 TREE_VEC_ELT (INNERMOST_TEMPLATE_ARGS (targs), idx) = arg;
17930 return unify_success (explain_p);
17932 case PTRMEM_CST:
17934 /* A pointer-to-member constant can be unified only with
17935 another constant. */
17936 if (TREE_CODE (arg) != PTRMEM_CST)
17937 return unify_ptrmem_cst_mismatch (explain_p, parm, arg);
17939 /* Just unify the class member. It would be useless (and possibly
17940 wrong, depending on the strict flags) to unify also
17941 PTRMEM_CST_CLASS, because we want to be sure that both parm and
17942 arg refer to the same variable, even if through different
17943 classes. For instance:
17945 struct A { int x; };
17946 struct B : A { };
17948 Unification of &A::x and &B::x must succeed. */
17949 return unify (tparms, targs, PTRMEM_CST_MEMBER (parm),
17950 PTRMEM_CST_MEMBER (arg), strict, explain_p);
17953 case POINTER_TYPE:
17955 if (!TYPE_PTR_P (arg))
17956 return unify_type_mismatch (explain_p, parm, arg);
17958 /* [temp.deduct.call]
17960 A can be another pointer or pointer to member type that can
17961 be converted to the deduced A via a qualification
17962 conversion (_conv.qual_).
17964 We pass down STRICT here rather than UNIFY_ALLOW_NONE.
17965 This will allow for additional cv-qualification of the
17966 pointed-to types if appropriate. */
17968 if (TREE_CODE (TREE_TYPE (arg)) == RECORD_TYPE)
17969 /* The derived-to-base conversion only persists through one
17970 level of pointers. */
17971 strict |= (strict_in & UNIFY_ALLOW_DERIVED);
17973 return unify (tparms, targs, TREE_TYPE (parm),
17974 TREE_TYPE (arg), strict, explain_p);
17977 case REFERENCE_TYPE:
17978 if (TREE_CODE (arg) != REFERENCE_TYPE)
17979 return unify_type_mismatch (explain_p, parm, arg);
17980 return unify (tparms, targs, TREE_TYPE (parm), TREE_TYPE (arg),
17981 strict & UNIFY_ALLOW_MORE_CV_QUAL, explain_p);
17983 case ARRAY_TYPE:
17984 if (TREE_CODE (arg) != ARRAY_TYPE)
17985 return unify_type_mismatch (explain_p, parm, arg);
17986 if ((TYPE_DOMAIN (parm) == NULL_TREE)
17987 != (TYPE_DOMAIN (arg) == NULL_TREE))
17988 return unify_type_mismatch (explain_p, parm, arg);
17989 RECUR_AND_CHECK_FAILURE (tparms, targs, TREE_TYPE (parm), TREE_TYPE (arg),
17990 strict & UNIFY_ALLOW_MORE_CV_QUAL, explain_p);
17991 if (TYPE_DOMAIN (parm) != NULL_TREE)
17992 return unify_array_domain (tparms, targs, TYPE_DOMAIN (parm),
17993 TYPE_DOMAIN (arg), explain_p);
17994 return unify_success (explain_p);
17996 case REAL_TYPE:
17997 case COMPLEX_TYPE:
17998 case VECTOR_TYPE:
17999 case INTEGER_TYPE:
18000 case BOOLEAN_TYPE:
18001 case ENUMERAL_TYPE:
18002 case VOID_TYPE:
18003 case NULLPTR_TYPE:
18004 if (TREE_CODE (arg) != TREE_CODE (parm))
18005 return unify_type_mismatch (explain_p, parm, arg);
18007 /* We have already checked cv-qualification at the top of the
18008 function. */
18009 if (!same_type_ignoring_top_level_qualifiers_p (arg, parm))
18010 return unify_type_mismatch (explain_p, parm, arg);
18012 /* As far as unification is concerned, this wins. Later checks
18013 will invalidate it if necessary. */
18014 return unify_success (explain_p);
18016 /* Types INTEGER_CST and MINUS_EXPR can come from array bounds. */
18017 /* Type INTEGER_CST can come from ordinary constant template args. */
18018 case INTEGER_CST:
18019 while (TREE_CODE (arg) == NOP_EXPR)
18020 arg = TREE_OPERAND (arg, 0);
18022 if (TREE_CODE (arg) != INTEGER_CST)
18023 return unify_template_argument_mismatch (explain_p, parm, arg);
18024 return (tree_int_cst_equal (parm, arg)
18025 ? unify_success (explain_p)
18026 : unify_template_argument_mismatch (explain_p, parm, arg));
18028 case TREE_VEC:
18030 int i, len, argslen;
18031 int parm_variadic_p = 0;
18033 if (TREE_CODE (arg) != TREE_VEC)
18034 return unify_template_argument_mismatch (explain_p, parm, arg);
18036 len = TREE_VEC_LENGTH (parm);
18037 argslen = TREE_VEC_LENGTH (arg);
18039 /* Check for pack expansions in the parameters. */
18040 for (i = 0; i < len; ++i)
18042 if (PACK_EXPANSION_P (TREE_VEC_ELT (parm, i)))
18044 if (i == len - 1)
18045 /* We can unify against something with a trailing
18046 parameter pack. */
18047 parm_variadic_p = 1;
18048 else
18049 /* [temp.deduct.type]/9: If the template argument list of
18050 P contains a pack expansion that is not the last
18051 template argument, the entire template argument list
18052 is a non-deduced context. */
18053 return unify_success (explain_p);
18057 /* If we don't have enough arguments to satisfy the parameters
18058 (not counting the pack expression at the end), or we have
18059 too many arguments for a parameter list that doesn't end in
18060 a pack expression, we can't unify. */
18061 if (parm_variadic_p
18062 ? argslen < len - parm_variadic_p
18063 : argslen != len)
18064 return unify_arity (explain_p, TREE_VEC_LENGTH (arg), len);
18066 /* Unify all of the parameters that precede the (optional)
18067 pack expression. */
18068 for (i = 0; i < len - parm_variadic_p; ++i)
18070 RECUR_AND_CHECK_FAILURE (tparms, targs,
18071 TREE_VEC_ELT (parm, i),
18072 TREE_VEC_ELT (arg, i),
18073 UNIFY_ALLOW_NONE, explain_p);
18075 if (parm_variadic_p)
18076 return unify_pack_expansion (tparms, targs, parm, arg,
18077 DEDUCE_EXACT,
18078 /*subr=*/true, explain_p);
18079 return unify_success (explain_p);
18082 case RECORD_TYPE:
18083 case UNION_TYPE:
18084 if (TREE_CODE (arg) != TREE_CODE (parm))
18085 return unify_type_mismatch (explain_p, parm, arg);
18087 if (TYPE_PTRMEMFUNC_P (parm))
18089 if (!TYPE_PTRMEMFUNC_P (arg))
18090 return unify_type_mismatch (explain_p, parm, arg);
18092 return unify (tparms, targs,
18093 TYPE_PTRMEMFUNC_FN_TYPE (parm),
18094 TYPE_PTRMEMFUNC_FN_TYPE (arg),
18095 strict, explain_p);
18098 if (CLASSTYPE_TEMPLATE_INFO (parm))
18100 tree t = NULL_TREE;
18102 if (strict_in & UNIFY_ALLOW_DERIVED)
18104 /* First, we try to unify the PARM and ARG directly. */
18105 t = try_class_unification (tparms, targs,
18106 parm, arg, explain_p);
18108 if (!t)
18110 /* Fallback to the special case allowed in
18111 [temp.deduct.call]:
18113 If P is a class, and P has the form
18114 template-id, then A can be a derived class of
18115 the deduced A. Likewise, if P is a pointer to
18116 a class of the form template-id, A can be a
18117 pointer to a derived class pointed to by the
18118 deduced A. */
18119 enum template_base_result r;
18120 r = get_template_base (tparms, targs, parm, arg,
18121 explain_p, &t);
18123 if (!t)
18124 return unify_no_common_base (explain_p, r, parm, arg);
18127 else if (CLASSTYPE_TEMPLATE_INFO (arg)
18128 && (CLASSTYPE_TI_TEMPLATE (parm)
18129 == CLASSTYPE_TI_TEMPLATE (arg)))
18130 /* Perhaps PARM is something like S<U> and ARG is S<int>.
18131 Then, we should unify `int' and `U'. */
18132 t = arg;
18133 else
18134 /* There's no chance of unification succeeding. */
18135 return unify_type_mismatch (explain_p, parm, arg);
18137 return unify (tparms, targs, CLASSTYPE_TI_ARGS (parm),
18138 CLASSTYPE_TI_ARGS (t), UNIFY_ALLOW_NONE, explain_p);
18140 else if (!same_type_ignoring_top_level_qualifiers_p (parm, arg))
18141 return unify_type_mismatch (explain_p, parm, arg);
18142 return unify_success (explain_p);
18144 case METHOD_TYPE:
18145 case FUNCTION_TYPE:
18147 unsigned int nargs;
18148 tree *args;
18149 tree a;
18150 unsigned int i;
18152 if (TREE_CODE (arg) != TREE_CODE (parm))
18153 return unify_type_mismatch (explain_p, parm, arg);
18155 /* CV qualifications for methods can never be deduced, they must
18156 match exactly. We need to check them explicitly here,
18157 because type_unification_real treats them as any other
18158 cv-qualified parameter. */
18159 if (TREE_CODE (parm) == METHOD_TYPE
18160 && (!check_cv_quals_for_unify
18161 (UNIFY_ALLOW_NONE,
18162 class_of_this_parm (arg),
18163 class_of_this_parm (parm))))
18164 return unify_cv_qual_mismatch (explain_p, parm, arg);
18166 RECUR_AND_CHECK_FAILURE (tparms, targs, TREE_TYPE (parm),
18167 TREE_TYPE (arg), UNIFY_ALLOW_NONE, explain_p);
18169 nargs = list_length (TYPE_ARG_TYPES (arg));
18170 args = XALLOCAVEC (tree, nargs);
18171 for (a = TYPE_ARG_TYPES (arg), i = 0;
18172 a != NULL_TREE && a != void_list_node;
18173 a = TREE_CHAIN (a), ++i)
18174 args[i] = TREE_VALUE (a);
18175 nargs = i;
18177 return type_unification_real (tparms, targs, TYPE_ARG_TYPES (parm),
18178 args, nargs, 1, DEDUCE_EXACT,
18179 LOOKUP_NORMAL, NULL, explain_p);
18182 case OFFSET_TYPE:
18183 /* Unify a pointer to member with a pointer to member function, which
18184 deduces the type of the member as a function type. */
18185 if (TYPE_PTRMEMFUNC_P (arg))
18187 /* Check top-level cv qualifiers */
18188 if (!check_cv_quals_for_unify (UNIFY_ALLOW_NONE, arg, parm))
18189 return unify_cv_qual_mismatch (explain_p, parm, arg);
18191 RECUR_AND_CHECK_FAILURE (tparms, targs, TYPE_OFFSET_BASETYPE (parm),
18192 TYPE_PTRMEMFUNC_OBJECT_TYPE (arg),
18193 UNIFY_ALLOW_NONE, explain_p);
18195 /* Determine the type of the function we are unifying against. */
18196 tree fntype = static_fn_type (arg);
18198 return unify (tparms, targs, TREE_TYPE (parm), fntype, strict, explain_p);
18201 if (TREE_CODE (arg) != OFFSET_TYPE)
18202 return unify_type_mismatch (explain_p, parm, arg);
18203 RECUR_AND_CHECK_FAILURE (tparms, targs, TYPE_OFFSET_BASETYPE (parm),
18204 TYPE_OFFSET_BASETYPE (arg),
18205 UNIFY_ALLOW_NONE, explain_p);
18206 return unify (tparms, targs, TREE_TYPE (parm), TREE_TYPE (arg),
18207 strict, explain_p);
18209 case CONST_DECL:
18210 if (DECL_TEMPLATE_PARM_P (parm))
18211 return unify (tparms, targs, DECL_INITIAL (parm), arg, strict, explain_p);
18212 if (arg != integral_constant_value (parm))
18213 return unify_template_argument_mismatch (explain_p, parm, arg);
18214 return unify_success (explain_p);
18216 case FIELD_DECL:
18217 case TEMPLATE_DECL:
18218 /* Matched cases are handled by the ARG == PARM test above. */
18219 return unify_template_argument_mismatch (explain_p, parm, arg);
18221 case VAR_DECL:
18222 /* A non-type template parameter that is a variable should be a
18223 an integral constant, in which case, it whould have been
18224 folded into its (constant) value. So we should not be getting
18225 a variable here. */
18226 gcc_unreachable ();
18228 case TYPE_ARGUMENT_PACK:
18229 case NONTYPE_ARGUMENT_PACK:
18230 return unify (tparms, targs, ARGUMENT_PACK_ARGS (parm),
18231 ARGUMENT_PACK_ARGS (arg), strict, explain_p);
18233 case TYPEOF_TYPE:
18234 case DECLTYPE_TYPE:
18235 case UNDERLYING_TYPE:
18236 /* Cannot deduce anything from TYPEOF_TYPE, DECLTYPE_TYPE,
18237 or UNDERLYING_TYPE nodes. */
18238 return unify_success (explain_p);
18240 case ERROR_MARK:
18241 /* Unification fails if we hit an error node. */
18242 return unify_invalid (explain_p);
18244 case INDIRECT_REF:
18245 if (REFERENCE_REF_P (parm))
18246 return unify (tparms, targs, TREE_OPERAND (parm, 0), arg,
18247 strict, explain_p);
18248 /* FALLTHRU */
18250 default:
18251 /* An unresolved overload is a nondeduced context. */
18252 if (is_overloaded_fn (parm) || type_unknown_p (parm))
18253 return unify_success (explain_p);
18254 gcc_assert (EXPR_P (parm));
18256 /* We must be looking at an expression. This can happen with
18257 something like:
18259 template <int I>
18260 void foo(S<I>, S<I + 2>);
18262 This is a "nondeduced context":
18264 [deduct.type]
18266 The nondeduced contexts are:
18268 --A type that is a template-id in which one or more of
18269 the template-arguments is an expression that references
18270 a template-parameter.
18272 In these cases, we assume deduction succeeded, but don't
18273 actually infer any unifications. */
18275 if (!uses_template_parms (parm)
18276 && !template_args_equal (parm, arg))
18277 return unify_expression_unequal (explain_p, parm, arg);
18278 else
18279 return unify_success (explain_p);
18282 #undef RECUR_AND_CHECK_FAILURE
18284 /* Note that DECL can be defined in this translation unit, if
18285 required. */
18287 static void
18288 mark_definable (tree decl)
18290 tree clone;
18291 DECL_NOT_REALLY_EXTERN (decl) = 1;
18292 FOR_EACH_CLONE (clone, decl)
18293 DECL_NOT_REALLY_EXTERN (clone) = 1;
18296 /* Called if RESULT is explicitly instantiated, or is a member of an
18297 explicitly instantiated class. */
18299 void
18300 mark_decl_instantiated (tree result, int extern_p)
18302 SET_DECL_EXPLICIT_INSTANTIATION (result);
18304 /* If this entity has already been written out, it's too late to
18305 make any modifications. */
18306 if (TREE_ASM_WRITTEN (result))
18307 return;
18309 /* For anonymous namespace we don't need to do anything. */
18310 if (decl_anon_ns_mem_p (result))
18312 gcc_assert (!TREE_PUBLIC (result));
18313 return;
18316 if (TREE_CODE (result) != FUNCTION_DECL)
18317 /* The TREE_PUBLIC flag for function declarations will have been
18318 set correctly by tsubst. */
18319 TREE_PUBLIC (result) = 1;
18321 /* This might have been set by an earlier implicit instantiation. */
18322 DECL_COMDAT (result) = 0;
18324 if (extern_p)
18325 DECL_NOT_REALLY_EXTERN (result) = 0;
18326 else
18328 mark_definable (result);
18329 mark_needed (result);
18330 /* Always make artificials weak. */
18331 if (DECL_ARTIFICIAL (result) && flag_weak)
18332 comdat_linkage (result);
18333 /* For WIN32 we also want to put explicit instantiations in
18334 linkonce sections. */
18335 else if (TREE_PUBLIC (result))
18336 maybe_make_one_only (result);
18339 /* If EXTERN_P, then this function will not be emitted -- unless
18340 followed by an explicit instantiation, at which point its linkage
18341 will be adjusted. If !EXTERN_P, then this function will be
18342 emitted here. In neither circumstance do we want
18343 import_export_decl to adjust the linkage. */
18344 DECL_INTERFACE_KNOWN (result) = 1;
18347 /* Subroutine of more_specialized_fn: check whether TARGS is missing any
18348 important template arguments. If any are missing, we check whether
18349 they're important by using error_mark_node for substituting into any
18350 args that were used for partial ordering (the ones between ARGS and END)
18351 and seeing if it bubbles up. */
18353 static bool
18354 check_undeduced_parms (tree targs, tree args, tree end)
18356 bool found = false;
18357 int i;
18358 for (i = TREE_VEC_LENGTH (targs) - 1; i >= 0; --i)
18359 if (TREE_VEC_ELT (targs, i) == NULL_TREE)
18361 found = true;
18362 TREE_VEC_ELT (targs, i) = error_mark_node;
18364 if (found)
18366 tree substed = tsubst_arg_types (args, targs, end, tf_none, NULL_TREE);
18367 if (substed == error_mark_node)
18368 return true;
18370 return false;
18373 /* Given two function templates PAT1 and PAT2, return:
18375 1 if PAT1 is more specialized than PAT2 as described in [temp.func.order].
18376 -1 if PAT2 is more specialized than PAT1.
18377 0 if neither is more specialized.
18379 LEN indicates the number of parameters we should consider
18380 (defaulted parameters should not be considered).
18382 The 1998 std underspecified function template partial ordering, and
18383 DR214 addresses the issue. We take pairs of arguments, one from
18384 each of the templates, and deduce them against each other. One of
18385 the templates will be more specialized if all the *other*
18386 template's arguments deduce against its arguments and at least one
18387 of its arguments *does* *not* deduce against the other template's
18388 corresponding argument. Deduction is done as for class templates.
18389 The arguments used in deduction have reference and top level cv
18390 qualifiers removed. Iff both arguments were originally reference
18391 types *and* deduction succeeds in both directions, an lvalue reference
18392 wins against an rvalue reference and otherwise the template
18393 with the more cv-qualified argument wins for that pairing (if
18394 neither is more cv-qualified, they both are equal). Unlike regular
18395 deduction, after all the arguments have been deduced in this way,
18396 we do *not* verify the deduced template argument values can be
18397 substituted into non-deduced contexts.
18399 The logic can be a bit confusing here, because we look at deduce1 and
18400 targs1 to see if pat2 is at least as specialized, and vice versa; if we
18401 can find template arguments for pat1 to make arg1 look like arg2, that
18402 means that arg2 is at least as specialized as arg1. */
18405 more_specialized_fn (tree pat1, tree pat2, int len)
18407 tree decl1 = DECL_TEMPLATE_RESULT (pat1);
18408 tree decl2 = DECL_TEMPLATE_RESULT (pat2);
18409 tree targs1 = make_tree_vec (DECL_NTPARMS (pat1));
18410 tree targs2 = make_tree_vec (DECL_NTPARMS (pat2));
18411 tree tparms1 = DECL_INNERMOST_TEMPLATE_PARMS (pat1);
18412 tree tparms2 = DECL_INNERMOST_TEMPLATE_PARMS (pat2);
18413 tree args1 = TYPE_ARG_TYPES (TREE_TYPE (decl1));
18414 tree args2 = TYPE_ARG_TYPES (TREE_TYPE (decl2));
18415 tree origs1, origs2;
18416 bool lose1 = false;
18417 bool lose2 = false;
18419 /* Remove the this parameter from non-static member functions. If
18420 one is a non-static member function and the other is not a static
18421 member function, remove the first parameter from that function
18422 also. This situation occurs for operator functions where we
18423 locate both a member function (with this pointer) and non-member
18424 operator (with explicit first operand). */
18425 if (DECL_NONSTATIC_MEMBER_FUNCTION_P (decl1))
18427 len--; /* LEN is the number of significant arguments for DECL1 */
18428 args1 = TREE_CHAIN (args1);
18429 if (!DECL_STATIC_FUNCTION_P (decl2))
18430 args2 = TREE_CHAIN (args2);
18432 else if (DECL_NONSTATIC_MEMBER_FUNCTION_P (decl2))
18434 args2 = TREE_CHAIN (args2);
18435 if (!DECL_STATIC_FUNCTION_P (decl1))
18437 len--;
18438 args1 = TREE_CHAIN (args1);
18442 /* If only one is a conversion operator, they are unordered. */
18443 if (DECL_CONV_FN_P (decl1) != DECL_CONV_FN_P (decl2))
18444 return 0;
18446 /* Consider the return type for a conversion function */
18447 if (DECL_CONV_FN_P (decl1))
18449 args1 = tree_cons (NULL_TREE, TREE_TYPE (TREE_TYPE (decl1)), args1);
18450 args2 = tree_cons (NULL_TREE, TREE_TYPE (TREE_TYPE (decl2)), args2);
18451 len++;
18454 processing_template_decl++;
18456 origs1 = args1;
18457 origs2 = args2;
18459 while (len--
18460 /* Stop when an ellipsis is seen. */
18461 && args1 != NULL_TREE && args2 != NULL_TREE)
18463 tree arg1 = TREE_VALUE (args1);
18464 tree arg2 = TREE_VALUE (args2);
18465 int deduce1, deduce2;
18466 int quals1 = -1;
18467 int quals2 = -1;
18468 int ref1 = 0;
18469 int ref2 = 0;
18471 if (TREE_CODE (arg1) == TYPE_PACK_EXPANSION
18472 && TREE_CODE (arg2) == TYPE_PACK_EXPANSION)
18474 /* When both arguments are pack expansions, we need only
18475 unify the patterns themselves. */
18476 arg1 = PACK_EXPANSION_PATTERN (arg1);
18477 arg2 = PACK_EXPANSION_PATTERN (arg2);
18479 /* This is the last comparison we need to do. */
18480 len = 0;
18483 if (TREE_CODE (arg1) == REFERENCE_TYPE)
18485 ref1 = TYPE_REF_IS_RVALUE (arg1) + 1;
18486 arg1 = TREE_TYPE (arg1);
18487 quals1 = cp_type_quals (arg1);
18490 if (TREE_CODE (arg2) == REFERENCE_TYPE)
18492 ref2 = TYPE_REF_IS_RVALUE (arg2) + 1;
18493 arg2 = TREE_TYPE (arg2);
18494 quals2 = cp_type_quals (arg2);
18497 arg1 = TYPE_MAIN_VARIANT (arg1);
18498 arg2 = TYPE_MAIN_VARIANT (arg2);
18500 if (TREE_CODE (arg1) == TYPE_PACK_EXPANSION)
18502 int i, len2 = list_length (args2);
18503 tree parmvec = make_tree_vec (1);
18504 tree argvec = make_tree_vec (len2);
18505 tree ta = args2;
18507 /* Setup the parameter vector, which contains only ARG1. */
18508 TREE_VEC_ELT (parmvec, 0) = arg1;
18510 /* Setup the argument vector, which contains the remaining
18511 arguments. */
18512 for (i = 0; i < len2; i++, ta = TREE_CHAIN (ta))
18513 TREE_VEC_ELT (argvec, i) = TREE_VALUE (ta);
18515 deduce1 = (unify_pack_expansion (tparms1, targs1, parmvec,
18516 argvec, DEDUCE_EXACT,
18517 /*subr=*/true, /*explain_p=*/false)
18518 == 0);
18520 /* We cannot deduce in the other direction, because ARG1 is
18521 a pack expansion but ARG2 is not. */
18522 deduce2 = 0;
18524 else if (TREE_CODE (arg2) == TYPE_PACK_EXPANSION)
18526 int i, len1 = list_length (args1);
18527 tree parmvec = make_tree_vec (1);
18528 tree argvec = make_tree_vec (len1);
18529 tree ta = args1;
18531 /* Setup the parameter vector, which contains only ARG1. */
18532 TREE_VEC_ELT (parmvec, 0) = arg2;
18534 /* Setup the argument vector, which contains the remaining
18535 arguments. */
18536 for (i = 0; i < len1; i++, ta = TREE_CHAIN (ta))
18537 TREE_VEC_ELT (argvec, i) = TREE_VALUE (ta);
18539 deduce2 = (unify_pack_expansion (tparms2, targs2, parmvec,
18540 argvec, DEDUCE_EXACT,
18541 /*subr=*/true, /*explain_p=*/false)
18542 == 0);
18544 /* We cannot deduce in the other direction, because ARG2 is
18545 a pack expansion but ARG1 is not.*/
18546 deduce1 = 0;
18549 else
18551 /* The normal case, where neither argument is a pack
18552 expansion. */
18553 deduce1 = (unify (tparms1, targs1, arg1, arg2,
18554 UNIFY_ALLOW_NONE, /*explain_p=*/false)
18555 == 0);
18556 deduce2 = (unify (tparms2, targs2, arg2, arg1,
18557 UNIFY_ALLOW_NONE, /*explain_p=*/false)
18558 == 0);
18561 /* If we couldn't deduce arguments for tparms1 to make arg1 match
18562 arg2, then arg2 is not as specialized as arg1. */
18563 if (!deduce1)
18564 lose2 = true;
18565 if (!deduce2)
18566 lose1 = true;
18568 /* "If, for a given type, deduction succeeds in both directions
18569 (i.e., the types are identical after the transformations above)
18570 and both P and A were reference types (before being replaced with
18571 the type referred to above):
18572 - if the type from the argument template was an lvalue reference and
18573 the type from the parameter template was not, the argument type is
18574 considered to be more specialized than the other; otherwise,
18575 - if the type from the argument template is more cv-qualified
18576 than the type from the parameter template (as described above),
18577 the argument type is considered to be more specialized than the other;
18578 otherwise,
18579 - neither type is more specialized than the other." */
18581 if (deduce1 && deduce2)
18583 if (ref1 && ref2 && ref1 != ref2)
18585 if (ref1 > ref2)
18586 lose1 = true;
18587 else
18588 lose2 = true;
18590 else if (quals1 != quals2 && quals1 >= 0 && quals2 >= 0)
18592 if ((quals1 & quals2) == quals2)
18593 lose2 = true;
18594 if ((quals1 & quals2) == quals1)
18595 lose1 = true;
18599 if (lose1 && lose2)
18600 /* We've failed to deduce something in either direction.
18601 These must be unordered. */
18602 break;
18604 if (TREE_CODE (arg1) == TYPE_PACK_EXPANSION
18605 || TREE_CODE (arg2) == TYPE_PACK_EXPANSION)
18606 /* We have already processed all of the arguments in our
18607 handing of the pack expansion type. */
18608 len = 0;
18610 args1 = TREE_CHAIN (args1);
18611 args2 = TREE_CHAIN (args2);
18614 /* "In most cases, all template parameters must have values in order for
18615 deduction to succeed, but for partial ordering purposes a template
18616 parameter may remain without a value provided it is not used in the
18617 types being used for partial ordering."
18619 Thus, if we are missing any of the targs1 we need to substitute into
18620 origs1, then pat2 is not as specialized as pat1. This can happen when
18621 there is a nondeduced context. */
18622 if (!lose2 && check_undeduced_parms (targs1, origs1, args1))
18623 lose2 = true;
18624 if (!lose1 && check_undeduced_parms (targs2, origs2, args2))
18625 lose1 = true;
18627 processing_template_decl--;
18629 /* All things being equal, if the next argument is a pack expansion
18630 for one function but not for the other, prefer the
18631 non-variadic function. FIXME this is bogus; see c++/41958. */
18632 if (lose1 == lose2
18633 && args1 && TREE_VALUE (args1)
18634 && args2 && TREE_VALUE (args2))
18636 lose1 = TREE_CODE (TREE_VALUE (args1)) == TYPE_PACK_EXPANSION;
18637 lose2 = TREE_CODE (TREE_VALUE (args2)) == TYPE_PACK_EXPANSION;
18640 if (lose1 == lose2)
18641 return 0;
18642 else if (!lose1)
18643 return 1;
18644 else
18645 return -1;
18648 /* Determine which of two partial specializations of TMPL is more
18649 specialized.
18651 PAT1 is a TREE_LIST whose TREE_TYPE is the _TYPE node corresponding
18652 to the first partial specialization. The TREE_VALUE is the
18653 innermost set of template parameters for the partial
18654 specialization. PAT2 is similar, but for the second template.
18656 Return 1 if the first partial specialization is more specialized;
18657 -1 if the second is more specialized; 0 if neither is more
18658 specialized.
18660 See [temp.class.order] for information about determining which of
18661 two templates is more specialized. */
18663 static int
18664 more_specialized_class (tree tmpl, tree pat1, tree pat2)
18666 tree targs;
18667 tree tmpl1, tmpl2;
18668 int winner = 0;
18669 bool any_deductions = false;
18671 tmpl1 = TREE_TYPE (pat1);
18672 tmpl2 = TREE_TYPE (pat2);
18674 /* Just like what happens for functions, if we are ordering between
18675 different class template specializations, we may encounter dependent
18676 types in the arguments, and we need our dependency check functions
18677 to behave correctly. */
18678 ++processing_template_decl;
18679 targs = get_class_bindings (tmpl, TREE_VALUE (pat1),
18680 CLASSTYPE_TI_ARGS (tmpl1),
18681 CLASSTYPE_TI_ARGS (tmpl2));
18682 if (targs)
18684 --winner;
18685 any_deductions = true;
18688 targs = get_class_bindings (tmpl, TREE_VALUE (pat2),
18689 CLASSTYPE_TI_ARGS (tmpl2),
18690 CLASSTYPE_TI_ARGS (tmpl1));
18691 if (targs)
18693 ++winner;
18694 any_deductions = true;
18696 --processing_template_decl;
18698 /* In the case of a tie where at least one of the class templates
18699 has a parameter pack at the end, the template with the most
18700 non-packed parameters wins. */
18701 if (winner == 0
18702 && any_deductions
18703 && (template_args_variadic_p (TREE_PURPOSE (pat1))
18704 || template_args_variadic_p (TREE_PURPOSE (pat2))))
18706 tree args1 = INNERMOST_TEMPLATE_ARGS (TREE_PURPOSE (pat1));
18707 tree args2 = INNERMOST_TEMPLATE_ARGS (TREE_PURPOSE (pat2));
18708 int len1 = TREE_VEC_LENGTH (args1);
18709 int len2 = TREE_VEC_LENGTH (args2);
18711 /* We don't count the pack expansion at the end. */
18712 if (template_args_variadic_p (TREE_PURPOSE (pat1)))
18713 --len1;
18714 if (template_args_variadic_p (TREE_PURPOSE (pat2)))
18715 --len2;
18717 if (len1 > len2)
18718 return 1;
18719 else if (len1 < len2)
18720 return -1;
18723 return winner;
18726 /* Return the template arguments that will produce the function signature
18727 DECL from the function template FN, with the explicit template
18728 arguments EXPLICIT_ARGS. If CHECK_RETTYPE is true, the return type must
18729 also match. Return NULL_TREE if no satisfactory arguments could be
18730 found. */
18732 static tree
18733 get_bindings (tree fn, tree decl, tree explicit_args, bool check_rettype)
18735 int ntparms = DECL_NTPARMS (fn);
18736 tree targs = make_tree_vec (ntparms);
18737 tree decl_type = TREE_TYPE (decl);
18738 tree decl_arg_types;
18739 tree *args;
18740 unsigned int nargs, ix;
18741 tree arg;
18743 gcc_assert (decl != DECL_TEMPLATE_RESULT (fn));
18745 /* Never do unification on the 'this' parameter. */
18746 decl_arg_types = skip_artificial_parms_for (decl,
18747 TYPE_ARG_TYPES (decl_type));
18749 nargs = list_length (decl_arg_types);
18750 args = XALLOCAVEC (tree, nargs);
18751 for (arg = decl_arg_types, ix = 0;
18752 arg != NULL_TREE && arg != void_list_node;
18753 arg = TREE_CHAIN (arg), ++ix)
18754 args[ix] = TREE_VALUE (arg);
18756 if (fn_type_unification (fn, explicit_args, targs,
18757 args, ix,
18758 (check_rettype || DECL_CONV_FN_P (fn)
18759 ? TREE_TYPE (decl_type) : NULL_TREE),
18760 DEDUCE_EXACT, LOOKUP_NORMAL, /*explain_p=*/false,
18761 /*decltype*/false)
18762 == error_mark_node)
18763 return NULL_TREE;
18765 return targs;
18768 /* Return the innermost template arguments that, when applied to a partial
18769 specialization of TMPL whose innermost template parameters are
18770 TPARMS, and whose specialization arguments are SPEC_ARGS, yield the
18771 ARGS.
18773 For example, suppose we have:
18775 template <class T, class U> struct S {};
18776 template <class T> struct S<T*, int> {};
18778 Then, suppose we want to get `S<double*, int>'. The TPARMS will be
18779 {T}, the SPEC_ARGS will be {T*, int} and the ARGS will be {double*,
18780 int}. The resulting vector will be {double}, indicating that `T'
18781 is bound to `double'. */
18783 static tree
18784 get_class_bindings (tree tmpl, tree tparms, tree spec_args, tree args)
18786 int i, ntparms = TREE_VEC_LENGTH (tparms);
18787 tree deduced_args;
18788 tree innermost_deduced_args;
18790 innermost_deduced_args = make_tree_vec (ntparms);
18791 if (TMPL_ARGS_HAVE_MULTIPLE_LEVELS (args))
18793 deduced_args = copy_node (args);
18794 SET_TMPL_ARGS_LEVEL (deduced_args,
18795 TMPL_ARGS_DEPTH (deduced_args),
18796 innermost_deduced_args);
18798 else
18799 deduced_args = innermost_deduced_args;
18801 if (unify (tparms, deduced_args,
18802 INNERMOST_TEMPLATE_ARGS (spec_args),
18803 INNERMOST_TEMPLATE_ARGS (args),
18804 UNIFY_ALLOW_NONE, /*explain_p=*/false))
18805 return NULL_TREE;
18807 for (i = 0; i < ntparms; ++i)
18808 if (! TREE_VEC_ELT (innermost_deduced_args, i))
18809 return NULL_TREE;
18811 /* Verify that nondeduced template arguments agree with the type
18812 obtained from argument deduction.
18814 For example:
18816 struct A { typedef int X; };
18817 template <class T, class U> struct C {};
18818 template <class T> struct C<T, typename T::X> {};
18820 Then with the instantiation `C<A, int>', we can deduce that
18821 `T' is `A' but unify () does not check whether `typename T::X'
18822 is `int'. */
18823 spec_args = tsubst (spec_args, deduced_args, tf_none, NULL_TREE);
18824 spec_args = coerce_template_parms (DECL_INNERMOST_TEMPLATE_PARMS (tmpl),
18825 spec_args, tmpl,
18826 tf_none, false, false);
18827 if (spec_args == error_mark_node
18828 /* We only need to check the innermost arguments; the other
18829 arguments will always agree. */
18830 || !comp_template_args (INNERMOST_TEMPLATE_ARGS (spec_args),
18831 INNERMOST_TEMPLATE_ARGS (args)))
18832 return NULL_TREE;
18834 /* Now that we have bindings for all of the template arguments,
18835 ensure that the arguments deduced for the template template
18836 parameters have compatible template parameter lists. See the use
18837 of template_template_parm_bindings_ok_p in fn_type_unification
18838 for more information. */
18839 if (!template_template_parm_bindings_ok_p (tparms, deduced_args))
18840 return NULL_TREE;
18842 return deduced_args;
18845 /* TEMPLATES is a TREE_LIST. Each TREE_VALUE is a TEMPLATE_DECL.
18846 Return the TREE_LIST node with the most specialized template, if
18847 any. If there is no most specialized template, the error_mark_node
18848 is returned.
18850 Note that this function does not look at, or modify, the
18851 TREE_PURPOSE or TREE_TYPE of any of the nodes. Since the node
18852 returned is one of the elements of INSTANTIATIONS, callers may
18853 store information in the TREE_PURPOSE or TREE_TYPE of the nodes,
18854 and retrieve it from the value returned. */
18856 tree
18857 most_specialized_instantiation (tree templates)
18859 tree fn, champ;
18861 ++processing_template_decl;
18863 champ = templates;
18864 for (fn = TREE_CHAIN (templates); fn; fn = TREE_CHAIN (fn))
18866 int fate = 0;
18868 if (get_bindings (TREE_VALUE (champ),
18869 DECL_TEMPLATE_RESULT (TREE_VALUE (fn)),
18870 NULL_TREE, /*check_ret=*/true))
18871 fate--;
18873 if (get_bindings (TREE_VALUE (fn),
18874 DECL_TEMPLATE_RESULT (TREE_VALUE (champ)),
18875 NULL_TREE, /*check_ret=*/true))
18876 fate++;
18878 if (fate == -1)
18879 champ = fn;
18880 else if (!fate)
18882 /* Equally specialized, move to next function. If there
18883 is no next function, nothing's most specialized. */
18884 fn = TREE_CHAIN (fn);
18885 champ = fn;
18886 if (!fn)
18887 break;
18891 if (champ)
18892 /* Now verify that champ is better than everything earlier in the
18893 instantiation list. */
18894 for (fn = templates; fn != champ; fn = TREE_CHAIN (fn))
18895 if (get_bindings (TREE_VALUE (champ),
18896 DECL_TEMPLATE_RESULT (TREE_VALUE (fn)),
18897 NULL_TREE, /*check_ret=*/true)
18898 || !get_bindings (TREE_VALUE (fn),
18899 DECL_TEMPLATE_RESULT (TREE_VALUE (champ)),
18900 NULL_TREE, /*check_ret=*/true))
18902 champ = NULL_TREE;
18903 break;
18906 processing_template_decl--;
18908 if (!champ)
18909 return error_mark_node;
18911 return champ;
18914 /* If DECL is a specialization of some template, return the most
18915 general such template. Otherwise, returns NULL_TREE.
18917 For example, given:
18919 template <class T> struct S { template <class U> void f(U); };
18921 if TMPL is `template <class U> void S<int>::f(U)' this will return
18922 the full template. This function will not trace past partial
18923 specializations, however. For example, given in addition:
18925 template <class T> struct S<T*> { template <class U> void f(U); };
18927 if TMPL is `template <class U> void S<int*>::f(U)' this will return
18928 `template <class T> template <class U> S<T*>::f(U)'. */
18930 tree
18931 most_general_template (tree decl)
18933 if (TREE_CODE (decl) != TEMPLATE_DECL)
18935 if (tree tinfo = get_template_info (decl))
18936 decl = TI_TEMPLATE (tinfo);
18937 /* The TI_TEMPLATE can be an IDENTIFIER_NODE for a
18938 template friend, or a FIELD_DECL for a capture pack. */
18939 if (TREE_CODE (decl) != TEMPLATE_DECL)
18940 return NULL_TREE;
18943 /* Look for more and more general templates. */
18944 while (DECL_LANG_SPECIFIC (decl) && DECL_TEMPLATE_INFO (decl))
18946 /* The DECL_TI_TEMPLATE can be an IDENTIFIER_NODE in some cases.
18947 (See cp-tree.h for details.) */
18948 if (TREE_CODE (DECL_TI_TEMPLATE (decl)) != TEMPLATE_DECL)
18949 break;
18951 if (CLASS_TYPE_P (TREE_TYPE (decl))
18952 && CLASSTYPE_TEMPLATE_SPECIALIZATION (TREE_TYPE (decl)))
18953 break;
18955 /* Stop if we run into an explicitly specialized class template. */
18956 if (!DECL_NAMESPACE_SCOPE_P (decl)
18957 && DECL_CONTEXT (decl)
18958 && CLASSTYPE_TEMPLATE_SPECIALIZATION (DECL_CONTEXT (decl)))
18959 break;
18961 decl = DECL_TI_TEMPLATE (decl);
18964 return decl;
18967 /* Return the most specialized of the class template partial
18968 specializations which can produce TYPE, a specialization of some class
18969 template. The value returned is actually a TREE_LIST; the TREE_TYPE is
18970 a _TYPE node corresponding to the partial specialization, while the
18971 TREE_PURPOSE is the set of template arguments that must be
18972 substituted into the TREE_TYPE in order to generate TYPE.
18974 If the choice of partial specialization is ambiguous, a diagnostic
18975 is issued, and the error_mark_node is returned. If there are no
18976 partial specializations matching TYPE, then NULL_TREE is
18977 returned, indicating that the primary template should be used. */
18979 static tree
18980 most_specialized_class (tree type, tsubst_flags_t complain)
18982 tree list = NULL_TREE;
18983 tree t;
18984 tree champ;
18985 int fate;
18986 bool ambiguous_p;
18987 tree outer_args = NULL_TREE;
18989 tree tmpl = CLASSTYPE_TI_TEMPLATE (type);
18990 tree main_tmpl = most_general_template (tmpl);
18991 tree args = CLASSTYPE_TI_ARGS (type);
18993 /* For determining which partial specialization to use, only the
18994 innermost args are interesting. */
18995 if (TMPL_ARGS_HAVE_MULTIPLE_LEVELS (args))
18997 outer_args = strip_innermost_template_args (args, 1);
18998 args = INNERMOST_TEMPLATE_ARGS (args);
19001 for (t = DECL_TEMPLATE_SPECIALIZATIONS (main_tmpl); t; t = TREE_CHAIN (t))
19003 tree partial_spec_args;
19004 tree spec_args;
19005 tree spec_tmpl = TREE_VALUE (t);
19006 tree orig_parms = DECL_INNERMOST_TEMPLATE_PARMS (spec_tmpl);
19008 partial_spec_args = CLASSTYPE_TI_ARGS (TREE_TYPE (t));
19010 ++processing_template_decl;
19012 if (outer_args)
19014 /* Discard the outer levels of args, and then substitute in the
19015 template args from the enclosing class. */
19016 partial_spec_args = INNERMOST_TEMPLATE_ARGS (partial_spec_args);
19017 partial_spec_args = tsubst_template_args
19018 (partial_spec_args, outer_args, tf_none, NULL_TREE);
19020 /* And the same for the partial specialization TEMPLATE_DECL. */
19021 spec_tmpl = tsubst (spec_tmpl, outer_args, tf_none, NULL_TREE);
19024 partial_spec_args =
19025 coerce_template_parms (DECL_INNERMOST_TEMPLATE_PARMS (tmpl),
19026 partial_spec_args,
19027 tmpl, tf_none,
19028 /*require_all_args=*/true,
19029 /*use_default_args=*/true);
19031 --processing_template_decl;
19033 if (partial_spec_args == error_mark_node)
19034 return error_mark_node;
19035 if (spec_tmpl == error_mark_node)
19036 return error_mark_node;
19038 tree parms = DECL_INNERMOST_TEMPLATE_PARMS (spec_tmpl);
19039 spec_args = get_class_bindings (tmpl, parms,
19040 partial_spec_args,
19041 args);
19042 if (spec_args)
19044 if (outer_args)
19045 spec_args = add_to_template_args (outer_args, spec_args);
19046 list = tree_cons (spec_args, orig_parms, list);
19047 TREE_TYPE (list) = TREE_TYPE (t);
19051 if (! list)
19052 return NULL_TREE;
19054 ambiguous_p = false;
19055 t = list;
19056 champ = t;
19057 t = TREE_CHAIN (t);
19058 for (; t; t = TREE_CHAIN (t))
19060 fate = more_specialized_class (tmpl, champ, t);
19061 if (fate == 1)
19063 else
19065 if (fate == 0)
19067 t = TREE_CHAIN (t);
19068 if (! t)
19070 ambiguous_p = true;
19071 break;
19074 champ = t;
19078 if (!ambiguous_p)
19079 for (t = list; t && t != champ; t = TREE_CHAIN (t))
19081 fate = more_specialized_class (tmpl, champ, t);
19082 if (fate != 1)
19084 ambiguous_p = true;
19085 break;
19089 if (ambiguous_p)
19091 const char *str;
19092 char *spaces = NULL;
19093 if (!(complain & tf_error))
19094 return error_mark_node;
19095 error ("ambiguous class template instantiation for %q#T", type);
19096 str = ngettext ("candidate is:", "candidates are:", list_length (list));
19097 for (t = list; t; t = TREE_CHAIN (t))
19099 error ("%s %+#T", spaces ? spaces : str, TREE_TYPE (t));
19100 spaces = spaces ? spaces : get_spaces (str);
19102 free (spaces);
19103 return error_mark_node;
19106 return champ;
19109 /* Explicitly instantiate DECL. */
19111 void
19112 do_decl_instantiation (tree decl, tree storage)
19114 tree result = NULL_TREE;
19115 int extern_p = 0;
19117 if (!decl || decl == error_mark_node)
19118 /* An error occurred, for which grokdeclarator has already issued
19119 an appropriate message. */
19120 return;
19121 else if (! DECL_LANG_SPECIFIC (decl))
19123 error ("explicit instantiation of non-template %q#D", decl);
19124 return;
19126 else if (VAR_P (decl))
19128 /* There is an asymmetry here in the way VAR_DECLs and
19129 FUNCTION_DECLs are handled by grokdeclarator. In the case of
19130 the latter, the DECL we get back will be marked as a
19131 template instantiation, and the appropriate
19132 DECL_TEMPLATE_INFO will be set up. This does not happen for
19133 VAR_DECLs so we do the lookup here. Probably, grokdeclarator
19134 should handle VAR_DECLs as it currently handles
19135 FUNCTION_DECLs. */
19136 if (!DECL_CLASS_SCOPE_P (decl))
19138 error ("%qD is not a static data member of a class template", decl);
19139 return;
19141 result = lookup_field (DECL_CONTEXT (decl), DECL_NAME (decl), 0, false);
19142 if (!result || !VAR_P (result))
19144 error ("no matching template for %qD found", decl);
19145 return;
19147 if (!same_type_p (TREE_TYPE (result), TREE_TYPE (decl)))
19149 error ("type %qT for explicit instantiation %qD does not match "
19150 "declared type %qT", TREE_TYPE (result), decl,
19151 TREE_TYPE (decl));
19152 return;
19155 else if (TREE_CODE (decl) != FUNCTION_DECL)
19157 error ("explicit instantiation of %q#D", decl);
19158 return;
19160 else
19161 result = decl;
19163 /* Check for various error cases. Note that if the explicit
19164 instantiation is valid the RESULT will currently be marked as an
19165 *implicit* instantiation; DECL_EXPLICIT_INSTANTIATION is not set
19166 until we get here. */
19168 if (DECL_TEMPLATE_SPECIALIZATION (result))
19170 /* DR 259 [temp.spec].
19172 Both an explicit instantiation and a declaration of an explicit
19173 specialization shall not appear in a program unless the explicit
19174 instantiation follows a declaration of the explicit specialization.
19176 For a given set of template parameters, if an explicit
19177 instantiation of a template appears after a declaration of an
19178 explicit specialization for that template, the explicit
19179 instantiation has no effect. */
19180 return;
19182 else if (DECL_EXPLICIT_INSTANTIATION (result))
19184 /* [temp.spec]
19186 No program shall explicitly instantiate any template more
19187 than once.
19189 We check DECL_NOT_REALLY_EXTERN so as not to complain when
19190 the first instantiation was `extern' and the second is not,
19191 and EXTERN_P for the opposite case. */
19192 if (DECL_NOT_REALLY_EXTERN (result) && !extern_p)
19193 permerror (input_location, "duplicate explicit instantiation of %q#D", result);
19194 /* If an "extern" explicit instantiation follows an ordinary
19195 explicit instantiation, the template is instantiated. */
19196 if (extern_p)
19197 return;
19199 else if (!DECL_IMPLICIT_INSTANTIATION (result))
19201 error ("no matching template for %qD found", result);
19202 return;
19204 else if (!DECL_TEMPLATE_INFO (result))
19206 permerror (input_location, "explicit instantiation of non-template %q#D", result);
19207 return;
19210 if (storage == NULL_TREE)
19212 else if (storage == ridpointers[(int) RID_EXTERN])
19214 if (!in_system_header_at (input_location) && (cxx_dialect == cxx98))
19215 pedwarn (input_location, OPT_Wpedantic,
19216 "ISO C++ 1998 forbids the use of %<extern%> on explicit "
19217 "instantiations");
19218 extern_p = 1;
19220 else
19221 error ("storage class %qD applied to template instantiation", storage);
19223 check_explicit_instantiation_namespace (result);
19224 mark_decl_instantiated (result, extern_p);
19225 if (! extern_p)
19226 instantiate_decl (result, /*defer_ok=*/1,
19227 /*expl_inst_class_mem_p=*/false);
19230 static void
19231 mark_class_instantiated (tree t, int extern_p)
19233 SET_CLASSTYPE_EXPLICIT_INSTANTIATION (t);
19234 SET_CLASSTYPE_INTERFACE_KNOWN (t);
19235 CLASSTYPE_INTERFACE_ONLY (t) = extern_p;
19236 TYPE_DECL_SUPPRESS_DEBUG (TYPE_NAME (t)) = extern_p;
19237 if (! extern_p)
19239 CLASSTYPE_DEBUG_REQUESTED (t) = 1;
19240 rest_of_type_compilation (t, 1);
19244 /* Called from do_type_instantiation through binding_table_foreach to
19245 do recursive instantiation for the type bound in ENTRY. */
19246 static void
19247 bt_instantiate_type_proc (binding_entry entry, void *data)
19249 tree storage = *(tree *) data;
19251 if (MAYBE_CLASS_TYPE_P (entry->type)
19252 && !uses_template_parms (CLASSTYPE_TI_ARGS (entry->type)))
19253 do_type_instantiation (TYPE_MAIN_DECL (entry->type), storage, 0);
19256 /* Called from do_type_instantiation to instantiate a member
19257 (a member function or a static member variable) of an
19258 explicitly instantiated class template. */
19259 static void
19260 instantiate_class_member (tree decl, int extern_p)
19262 mark_decl_instantiated (decl, extern_p);
19263 if (! extern_p)
19264 instantiate_decl (decl, /*defer_ok=*/1,
19265 /*expl_inst_class_mem_p=*/true);
19268 /* Perform an explicit instantiation of template class T. STORAGE, if
19269 non-null, is the RID for extern, inline or static. COMPLAIN is
19270 nonzero if this is called from the parser, zero if called recursively,
19271 since the standard is unclear (as detailed below). */
19273 void
19274 do_type_instantiation (tree t, tree storage, tsubst_flags_t complain)
19276 int extern_p = 0;
19277 int nomem_p = 0;
19278 int static_p = 0;
19279 int previous_instantiation_extern_p = 0;
19281 if (TREE_CODE (t) == TYPE_DECL)
19282 t = TREE_TYPE (t);
19284 if (! CLASS_TYPE_P (t) || ! CLASSTYPE_TEMPLATE_INFO (t))
19286 tree tmpl =
19287 (TYPE_TEMPLATE_INFO (t)) ? TYPE_TI_TEMPLATE (t) : NULL;
19288 if (tmpl)
19289 error ("explicit instantiation of non-class template %qD", tmpl);
19290 else
19291 error ("explicit instantiation of non-template type %qT", t);
19292 return;
19295 complete_type (t);
19297 if (!COMPLETE_TYPE_P (t))
19299 if (complain & tf_error)
19300 error ("explicit instantiation of %q#T before definition of template",
19302 return;
19305 if (storage != NULL_TREE)
19307 if (!in_system_header_at (input_location))
19309 if (storage == ridpointers[(int) RID_EXTERN])
19311 if (cxx_dialect == cxx98)
19312 pedwarn (input_location, OPT_Wpedantic,
19313 "ISO C++ 1998 forbids the use of %<extern%> on "
19314 "explicit instantiations");
19316 else
19317 pedwarn (input_location, OPT_Wpedantic,
19318 "ISO C++ forbids the use of %qE"
19319 " on explicit instantiations", storage);
19322 if (storage == ridpointers[(int) RID_INLINE])
19323 nomem_p = 1;
19324 else if (storage == ridpointers[(int) RID_EXTERN])
19325 extern_p = 1;
19326 else if (storage == ridpointers[(int) RID_STATIC])
19327 static_p = 1;
19328 else
19330 error ("storage class %qD applied to template instantiation",
19331 storage);
19332 extern_p = 0;
19336 if (CLASSTYPE_TEMPLATE_SPECIALIZATION (t))
19338 /* DR 259 [temp.spec].
19340 Both an explicit instantiation and a declaration of an explicit
19341 specialization shall not appear in a program unless the explicit
19342 instantiation follows a declaration of the explicit specialization.
19344 For a given set of template parameters, if an explicit
19345 instantiation of a template appears after a declaration of an
19346 explicit specialization for that template, the explicit
19347 instantiation has no effect. */
19348 return;
19350 else if (CLASSTYPE_EXPLICIT_INSTANTIATION (t))
19352 /* [temp.spec]
19354 No program shall explicitly instantiate any template more
19355 than once.
19357 If PREVIOUS_INSTANTIATION_EXTERN_P, then the first explicit
19358 instantiation was `extern'. If EXTERN_P then the second is.
19359 These cases are OK. */
19360 previous_instantiation_extern_p = CLASSTYPE_INTERFACE_ONLY (t);
19362 if (!previous_instantiation_extern_p && !extern_p
19363 && (complain & tf_error))
19364 permerror (input_location, "duplicate explicit instantiation of %q#T", t);
19366 /* If we've already instantiated the template, just return now. */
19367 if (!CLASSTYPE_INTERFACE_ONLY (t))
19368 return;
19371 check_explicit_instantiation_namespace (TYPE_NAME (t));
19372 mark_class_instantiated (t, extern_p);
19374 if (nomem_p)
19375 return;
19378 tree tmp;
19380 /* In contrast to implicit instantiation, where only the
19381 declarations, and not the definitions, of members are
19382 instantiated, we have here:
19384 [temp.explicit]
19386 The explicit instantiation of a class template specialization
19387 implies the instantiation of all of its members not
19388 previously explicitly specialized in the translation unit
19389 containing the explicit instantiation.
19391 Of course, we can't instantiate member template classes, since
19392 we don't have any arguments for them. Note that the standard
19393 is unclear on whether the instantiation of the members are
19394 *explicit* instantiations or not. However, the most natural
19395 interpretation is that it should be an explicit instantiation. */
19397 if (! static_p)
19398 for (tmp = TYPE_METHODS (t); tmp; tmp = DECL_CHAIN (tmp))
19399 if (TREE_CODE (tmp) == FUNCTION_DECL
19400 && DECL_TEMPLATE_INSTANTIATION (tmp))
19401 instantiate_class_member (tmp, extern_p);
19403 for (tmp = TYPE_FIELDS (t); tmp; tmp = DECL_CHAIN (tmp))
19404 if (VAR_P (tmp) && DECL_TEMPLATE_INSTANTIATION (tmp))
19405 instantiate_class_member (tmp, extern_p);
19407 if (CLASSTYPE_NESTED_UTDS (t))
19408 binding_table_foreach (CLASSTYPE_NESTED_UTDS (t),
19409 bt_instantiate_type_proc, &storage);
19413 /* Given a function DECL, which is a specialization of TMPL, modify
19414 DECL to be a re-instantiation of TMPL with the same template
19415 arguments. TMPL should be the template into which tsubst'ing
19416 should occur for DECL, not the most general template.
19418 One reason for doing this is a scenario like this:
19420 template <class T>
19421 void f(const T&, int i);
19423 void g() { f(3, 7); }
19425 template <class T>
19426 void f(const T& t, const int i) { }
19428 Note that when the template is first instantiated, with
19429 instantiate_template, the resulting DECL will have no name for the
19430 first parameter, and the wrong type for the second. So, when we go
19431 to instantiate the DECL, we regenerate it. */
19433 static void
19434 regenerate_decl_from_template (tree decl, tree tmpl)
19436 /* The arguments used to instantiate DECL, from the most general
19437 template. */
19438 tree args;
19439 tree code_pattern;
19441 args = DECL_TI_ARGS (decl);
19442 code_pattern = DECL_TEMPLATE_RESULT (tmpl);
19444 /* Make sure that we can see identifiers, and compute access
19445 correctly. */
19446 push_access_scope (decl);
19448 if (TREE_CODE (decl) == FUNCTION_DECL)
19450 tree decl_parm;
19451 tree pattern_parm;
19452 tree specs;
19453 int args_depth;
19454 int parms_depth;
19456 args_depth = TMPL_ARGS_DEPTH (args);
19457 parms_depth = TMPL_PARMS_DEPTH (DECL_TEMPLATE_PARMS (tmpl));
19458 if (args_depth > parms_depth)
19459 args = get_innermost_template_args (args, parms_depth);
19461 specs = tsubst_exception_specification (TREE_TYPE (code_pattern),
19462 args, tf_error, NULL_TREE,
19463 /*defer_ok*/false);
19464 if (specs && specs != error_mark_node)
19465 TREE_TYPE (decl) = build_exception_variant (TREE_TYPE (decl),
19466 specs);
19468 /* Merge parameter declarations. */
19469 decl_parm = skip_artificial_parms_for (decl,
19470 DECL_ARGUMENTS (decl));
19471 pattern_parm
19472 = skip_artificial_parms_for (code_pattern,
19473 DECL_ARGUMENTS (code_pattern));
19474 while (decl_parm && !DECL_PACK_P (pattern_parm))
19476 tree parm_type;
19477 tree attributes;
19479 if (DECL_NAME (decl_parm) != DECL_NAME (pattern_parm))
19480 DECL_NAME (decl_parm) = DECL_NAME (pattern_parm);
19481 parm_type = tsubst (TREE_TYPE (pattern_parm), args, tf_error,
19482 NULL_TREE);
19483 parm_type = type_decays_to (parm_type);
19484 if (!same_type_p (TREE_TYPE (decl_parm), parm_type))
19485 TREE_TYPE (decl_parm) = parm_type;
19486 attributes = DECL_ATTRIBUTES (pattern_parm);
19487 if (DECL_ATTRIBUTES (decl_parm) != attributes)
19489 DECL_ATTRIBUTES (decl_parm) = attributes;
19490 cplus_decl_attributes (&decl_parm, attributes, /*flags=*/0);
19492 decl_parm = DECL_CHAIN (decl_parm);
19493 pattern_parm = DECL_CHAIN (pattern_parm);
19495 /* Merge any parameters that match with the function parameter
19496 pack. */
19497 if (pattern_parm && DECL_PACK_P (pattern_parm))
19499 int i, len;
19500 tree expanded_types;
19501 /* Expand the TYPE_PACK_EXPANSION that provides the types for
19502 the parameters in this function parameter pack. */
19503 expanded_types = tsubst_pack_expansion (TREE_TYPE (pattern_parm),
19504 args, tf_error, NULL_TREE);
19505 len = TREE_VEC_LENGTH (expanded_types);
19506 for (i = 0; i < len; i++)
19508 tree parm_type;
19509 tree attributes;
19511 if (DECL_NAME (decl_parm) != DECL_NAME (pattern_parm))
19512 /* Rename the parameter to include the index. */
19513 DECL_NAME (decl_parm) =
19514 make_ith_pack_parameter_name (DECL_NAME (pattern_parm), i);
19515 parm_type = TREE_VEC_ELT (expanded_types, i);
19516 parm_type = type_decays_to (parm_type);
19517 if (!same_type_p (TREE_TYPE (decl_parm), parm_type))
19518 TREE_TYPE (decl_parm) = parm_type;
19519 attributes = DECL_ATTRIBUTES (pattern_parm);
19520 if (DECL_ATTRIBUTES (decl_parm) != attributes)
19522 DECL_ATTRIBUTES (decl_parm) = attributes;
19523 cplus_decl_attributes (&decl_parm, attributes, /*flags=*/0);
19525 decl_parm = DECL_CHAIN (decl_parm);
19528 /* Merge additional specifiers from the CODE_PATTERN. */
19529 if (DECL_DECLARED_INLINE_P (code_pattern)
19530 && !DECL_DECLARED_INLINE_P (decl))
19531 DECL_DECLARED_INLINE_P (decl) = 1;
19533 else if (VAR_P (decl))
19535 DECL_INITIAL (decl) =
19536 tsubst_expr (DECL_INITIAL (code_pattern), args,
19537 tf_error, DECL_TI_TEMPLATE (decl),
19538 /*integral_constant_expression_p=*/false);
19539 if (VAR_HAD_UNKNOWN_BOUND (decl))
19540 TREE_TYPE (decl) = tsubst (TREE_TYPE (code_pattern), args,
19541 tf_error, DECL_TI_TEMPLATE (decl));
19543 else
19544 gcc_unreachable ();
19546 pop_access_scope (decl);
19549 /* Return the TEMPLATE_DECL into which DECL_TI_ARGS(DECL) should be
19550 substituted to get DECL. */
19552 tree
19553 template_for_substitution (tree decl)
19555 tree tmpl = DECL_TI_TEMPLATE (decl);
19557 /* Set TMPL to the template whose DECL_TEMPLATE_RESULT is the pattern
19558 for the instantiation. This is not always the most general
19559 template. Consider, for example:
19561 template <class T>
19562 struct S { template <class U> void f();
19563 template <> void f<int>(); };
19565 and an instantiation of S<double>::f<int>. We want TD to be the
19566 specialization S<T>::f<int>, not the more general S<T>::f<U>. */
19567 while (/* An instantiation cannot have a definition, so we need a
19568 more general template. */
19569 DECL_TEMPLATE_INSTANTIATION (tmpl)
19570 /* We must also deal with friend templates. Given:
19572 template <class T> struct S {
19573 template <class U> friend void f() {};
19576 S<int>::f<U> say, is not an instantiation of S<T>::f<U>,
19577 so far as the language is concerned, but that's still
19578 where we get the pattern for the instantiation from. On
19579 other hand, if the definition comes outside the class, say:
19581 template <class T> struct S {
19582 template <class U> friend void f();
19584 template <class U> friend void f() {}
19586 we don't need to look any further. That's what the check for
19587 DECL_INITIAL is for. */
19588 || (TREE_CODE (decl) == FUNCTION_DECL
19589 && DECL_FRIEND_PSEUDO_TEMPLATE_INSTANTIATION (tmpl)
19590 && !DECL_INITIAL (DECL_TEMPLATE_RESULT (tmpl))))
19592 /* The present template, TD, should not be a definition. If it
19593 were a definition, we should be using it! Note that we
19594 cannot restructure the loop to just keep going until we find
19595 a template with a definition, since that might go too far if
19596 a specialization was declared, but not defined. */
19597 gcc_assert (!VAR_P (decl)
19598 || DECL_IN_AGGR_P (DECL_TEMPLATE_RESULT (tmpl)));
19600 /* Fetch the more general template. */
19601 tmpl = DECL_TI_TEMPLATE (tmpl);
19604 return tmpl;
19607 /* Returns true if we need to instantiate this template instance even if we
19608 know we aren't going to emit it.. */
19610 bool
19611 always_instantiate_p (tree decl)
19613 /* We always instantiate inline functions so that we can inline them. An
19614 explicit instantiation declaration prohibits implicit instantiation of
19615 non-inline functions. With high levels of optimization, we would
19616 normally inline non-inline functions -- but we're not allowed to do
19617 that for "extern template" functions. Therefore, we check
19618 DECL_DECLARED_INLINE_P, rather than possibly_inlined_p. */
19619 return ((TREE_CODE (decl) == FUNCTION_DECL
19620 && (DECL_DECLARED_INLINE_P (decl)
19621 || type_uses_auto (TREE_TYPE (TREE_TYPE (decl)))))
19622 /* And we need to instantiate static data members so that
19623 their initializers are available in integral constant
19624 expressions. */
19625 || (VAR_P (decl)
19626 && decl_maybe_constant_var_p (decl)));
19629 /* If FN has a noexcept-specifier that hasn't been instantiated yet,
19630 instantiate it now, modifying TREE_TYPE (fn). */
19632 void
19633 maybe_instantiate_noexcept (tree fn)
19635 tree fntype, spec, noex, clone;
19637 /* Don't instantiate a noexcept-specification from template context. */
19638 if (processing_template_decl)
19639 return;
19641 if (DECL_CLONED_FUNCTION_P (fn))
19642 fn = DECL_CLONED_FUNCTION (fn);
19643 fntype = TREE_TYPE (fn);
19644 spec = TYPE_RAISES_EXCEPTIONS (fntype);
19646 if (!spec || !TREE_PURPOSE (spec))
19647 return;
19649 noex = TREE_PURPOSE (spec);
19651 if (TREE_CODE (noex) == DEFERRED_NOEXCEPT)
19653 if (DEFERRED_NOEXCEPT_PATTERN (noex) == NULL_TREE)
19654 spec = get_defaulted_eh_spec (fn);
19655 else if (push_tinst_level (fn))
19657 push_access_scope (fn);
19658 push_deferring_access_checks (dk_no_deferred);
19659 input_location = DECL_SOURCE_LOCATION (fn);
19660 noex = tsubst_copy_and_build (DEFERRED_NOEXCEPT_PATTERN (noex),
19661 DEFERRED_NOEXCEPT_ARGS (noex),
19662 tf_warning_or_error, fn,
19663 /*function_p=*/false,
19664 /*integral_constant_expression_p=*/true);
19665 pop_deferring_access_checks ();
19666 pop_access_scope (fn);
19667 pop_tinst_level ();
19668 spec = build_noexcept_spec (noex, tf_warning_or_error);
19669 if (spec == error_mark_node)
19670 spec = noexcept_false_spec;
19672 else
19673 spec = noexcept_false_spec;
19675 TREE_TYPE (fn) = build_exception_variant (fntype, spec);
19678 FOR_EACH_CLONE (clone, fn)
19680 if (TREE_TYPE (clone) == fntype)
19681 TREE_TYPE (clone) = TREE_TYPE (fn);
19682 else
19683 TREE_TYPE (clone) = build_exception_variant (TREE_TYPE (clone), spec);
19687 /* Produce the definition of D, a _DECL generated from a template. If
19688 DEFER_OK is nonzero, then we don't have to actually do the
19689 instantiation now; we just have to do it sometime. Normally it is
19690 an error if this is an explicit instantiation but D is undefined.
19691 EXPL_INST_CLASS_MEM_P is true iff D is a member of an
19692 explicitly instantiated class template. */
19694 tree
19695 instantiate_decl (tree d, int defer_ok,
19696 bool expl_inst_class_mem_p)
19698 tree tmpl = DECL_TI_TEMPLATE (d);
19699 tree gen_args;
19700 tree args;
19701 tree td;
19702 tree code_pattern;
19703 tree spec;
19704 tree gen_tmpl;
19705 bool pattern_defined;
19706 location_t saved_loc = input_location;
19707 int saved_unevaluated_operand = cp_unevaluated_operand;
19708 int saved_inhibit_evaluation_warnings = c_inhibit_evaluation_warnings;
19709 bool external_p;
19710 bool deleted_p;
19711 tree fn_context;
19712 bool nested;
19714 /* This function should only be used to instantiate templates for
19715 functions and static member variables. */
19716 gcc_assert (VAR_OR_FUNCTION_DECL_P (d));
19718 /* Variables are never deferred; if instantiation is required, they
19719 are instantiated right away. That allows for better code in the
19720 case that an expression refers to the value of the variable --
19721 if the variable has a constant value the referring expression can
19722 take advantage of that fact. */
19723 if (VAR_P (d)
19724 || DECL_DECLARED_CONSTEXPR_P (d))
19725 defer_ok = 0;
19727 /* Don't instantiate cloned functions. Instead, instantiate the
19728 functions they cloned. */
19729 if (TREE_CODE (d) == FUNCTION_DECL && DECL_CLONED_FUNCTION_P (d))
19730 d = DECL_CLONED_FUNCTION (d);
19732 if (DECL_TEMPLATE_INSTANTIATED (d)
19733 || (TREE_CODE (d) == FUNCTION_DECL
19734 && DECL_DEFAULTED_FN (d) && DECL_INITIAL (d))
19735 || DECL_TEMPLATE_SPECIALIZATION (d))
19736 /* D has already been instantiated or explicitly specialized, so
19737 there's nothing for us to do here.
19739 It might seem reasonable to check whether or not D is an explicit
19740 instantiation, and, if so, stop here. But when an explicit
19741 instantiation is deferred until the end of the compilation,
19742 DECL_EXPLICIT_INSTANTIATION is set, even though we still need to do
19743 the instantiation. */
19744 return d;
19746 /* Check to see whether we know that this template will be
19747 instantiated in some other file, as with "extern template"
19748 extension. */
19749 external_p = (DECL_INTERFACE_KNOWN (d) && DECL_REALLY_EXTERN (d));
19751 /* In general, we do not instantiate such templates. */
19752 if (external_p && !always_instantiate_p (d))
19753 return d;
19755 /* Any local class members should be instantiated from the TAG_DEFN
19756 with defer_ok == 0. */
19757 gcc_checking_assert (!defer_ok || !decl_function_context (d)
19758 || LAMBDA_TYPE_P (DECL_CONTEXT (d)));
19760 gen_tmpl = most_general_template (tmpl);
19761 gen_args = DECL_TI_ARGS (d);
19763 if (tmpl != gen_tmpl)
19764 /* We should already have the extra args. */
19765 gcc_assert (TMPL_PARMS_DEPTH (DECL_TEMPLATE_PARMS (gen_tmpl))
19766 == TMPL_ARGS_DEPTH (gen_args));
19767 /* And what's in the hash table should match D. */
19768 gcc_assert ((spec = retrieve_specialization (gen_tmpl, gen_args, 0)) == d
19769 || spec == NULL_TREE);
19771 /* This needs to happen before any tsubsting. */
19772 if (! push_tinst_level (d))
19773 return d;
19775 timevar_push (TV_TEMPLATE_INST);
19777 /* Set TD to the template whose DECL_TEMPLATE_RESULT is the pattern
19778 for the instantiation. */
19779 td = template_for_substitution (d);
19780 code_pattern = DECL_TEMPLATE_RESULT (td);
19782 /* We should never be trying to instantiate a member of a class
19783 template or partial specialization. */
19784 gcc_assert (d != code_pattern);
19786 if ((DECL_NAMESPACE_SCOPE_P (d) && !DECL_INITIALIZED_IN_CLASS_P (d))
19787 || DECL_TEMPLATE_SPECIALIZATION (td))
19788 /* In the case of a friend template whose definition is provided
19789 outside the class, we may have too many arguments. Drop the
19790 ones we don't need. The same is true for specializations. */
19791 args = get_innermost_template_args
19792 (gen_args, TMPL_PARMS_DEPTH (DECL_TEMPLATE_PARMS (td)));
19793 else
19794 args = gen_args;
19796 if (TREE_CODE (d) == FUNCTION_DECL)
19798 deleted_p = DECL_DELETED_FN (code_pattern);
19799 pattern_defined = (DECL_SAVED_TREE (code_pattern) != NULL_TREE
19800 || DECL_DEFAULTED_OUTSIDE_CLASS_P (code_pattern)
19801 || deleted_p);
19803 else
19805 deleted_p = false;
19806 pattern_defined = ! DECL_IN_AGGR_P (code_pattern);
19809 /* We may be in the middle of deferred access check. Disable it now. */
19810 push_deferring_access_checks (dk_no_deferred);
19812 /* Unless an explicit instantiation directive has already determined
19813 the linkage of D, remember that a definition is available for
19814 this entity. */
19815 if (pattern_defined
19816 && !DECL_INTERFACE_KNOWN (d)
19817 && !DECL_NOT_REALLY_EXTERN (d))
19818 mark_definable (d);
19820 DECL_SOURCE_LOCATION (td) = DECL_SOURCE_LOCATION (code_pattern);
19821 DECL_SOURCE_LOCATION (d) = DECL_SOURCE_LOCATION (code_pattern);
19822 input_location = DECL_SOURCE_LOCATION (d);
19824 /* If D is a member of an explicitly instantiated class template,
19825 and no definition is available, treat it like an implicit
19826 instantiation. */
19827 if (!pattern_defined && expl_inst_class_mem_p
19828 && DECL_EXPLICIT_INSTANTIATION (d))
19830 /* Leave linkage flags alone on instantiations with anonymous
19831 visibility. */
19832 if (TREE_PUBLIC (d))
19834 DECL_NOT_REALLY_EXTERN (d) = 0;
19835 DECL_INTERFACE_KNOWN (d) = 0;
19837 SET_DECL_IMPLICIT_INSTANTIATION (d);
19840 /* Defer all other templates, unless we have been explicitly
19841 forbidden from doing so. */
19842 if (/* If there is no definition, we cannot instantiate the
19843 template. */
19844 ! pattern_defined
19845 /* If it's OK to postpone instantiation, do so. */
19846 || defer_ok
19847 /* If this is a static data member that will be defined
19848 elsewhere, we don't want to instantiate the entire data
19849 member, but we do want to instantiate the initializer so that
19850 we can substitute that elsewhere. */
19851 || (external_p && VAR_P (d))
19852 /* Handle here a deleted function too, avoid generating
19853 its body (c++/61080). */
19854 || deleted_p)
19856 /* The definition of the static data member is now required so
19857 we must substitute the initializer. */
19858 if (VAR_P (d)
19859 && !DECL_INITIAL (d)
19860 && DECL_INITIAL (code_pattern))
19862 tree ns;
19863 tree init;
19864 bool const_init = false;
19866 ns = decl_namespace_context (d);
19867 push_nested_namespace (ns);
19868 push_nested_class (DECL_CONTEXT (d));
19869 init = tsubst_expr (DECL_INITIAL (code_pattern),
19870 args,
19871 tf_warning_or_error, NULL_TREE,
19872 /*integral_constant_expression_p=*/false);
19873 /* Make sure the initializer is still constant, in case of
19874 circular dependency (template/instantiate6.C). */
19875 const_init
19876 = DECL_INITIALIZED_BY_CONSTANT_EXPRESSION_P (code_pattern);
19877 cp_finish_decl (d, init, /*init_const_expr_p=*/const_init,
19878 /*asmspec_tree=*/NULL_TREE,
19879 LOOKUP_ONLYCONVERTING);
19880 pop_nested_class ();
19881 pop_nested_namespace (ns);
19884 /* We restore the source position here because it's used by
19885 add_pending_template. */
19886 input_location = saved_loc;
19888 if (at_eof && !pattern_defined
19889 && DECL_EXPLICIT_INSTANTIATION (d)
19890 && DECL_NOT_REALLY_EXTERN (d))
19891 /* [temp.explicit]
19893 The definition of a non-exported function template, a
19894 non-exported member function template, or a non-exported
19895 member function or static data member of a class template
19896 shall be present in every translation unit in which it is
19897 explicitly instantiated. */
19898 permerror (input_location, "explicit instantiation of %qD "
19899 "but no definition available", d);
19901 /* If we're in unevaluated context, we just wanted to get the
19902 constant value; this isn't an odr use, so don't queue
19903 a full instantiation. */
19904 if (cp_unevaluated_operand != 0)
19905 goto out;
19906 /* ??? Historically, we have instantiated inline functions, even
19907 when marked as "extern template". */
19908 if (!(external_p && VAR_P (d)))
19909 add_pending_template (d);
19910 goto out;
19912 /* Tell the repository that D is available in this translation unit
19913 -- and see if it is supposed to be instantiated here. */
19914 if (TREE_PUBLIC (d) && !DECL_REALLY_EXTERN (d) && !repo_emit_p (d))
19916 /* In a PCH file, despite the fact that the repository hasn't
19917 requested instantiation in the PCH it is still possible that
19918 an instantiation will be required in a file that includes the
19919 PCH. */
19920 if (pch_file)
19921 add_pending_template (d);
19922 /* Instantiate inline functions so that the inliner can do its
19923 job, even though we'll not be emitting a copy of this
19924 function. */
19925 if (!(TREE_CODE (d) == FUNCTION_DECL && possibly_inlined_p (d)))
19926 goto out;
19929 fn_context = decl_function_context (d);
19930 nested = (current_function_decl != NULL_TREE);
19931 if (!fn_context)
19932 push_to_top_level ();
19933 else
19935 if (nested)
19936 push_function_context ();
19937 cp_unevaluated_operand = 0;
19938 c_inhibit_evaluation_warnings = 0;
19941 /* Mark D as instantiated so that recursive calls to
19942 instantiate_decl do not try to instantiate it again. */
19943 DECL_TEMPLATE_INSTANTIATED (d) = 1;
19945 /* Regenerate the declaration in case the template has been modified
19946 by a subsequent redeclaration. */
19947 regenerate_decl_from_template (d, td);
19949 /* We already set the file and line above. Reset them now in case
19950 they changed as a result of calling regenerate_decl_from_template. */
19951 input_location = DECL_SOURCE_LOCATION (d);
19953 if (VAR_P (d))
19955 tree init;
19956 bool const_init = false;
19958 /* Clear out DECL_RTL; whatever was there before may not be right
19959 since we've reset the type of the declaration. */
19960 SET_DECL_RTL (d, NULL);
19961 DECL_IN_AGGR_P (d) = 0;
19963 /* The initializer is placed in DECL_INITIAL by
19964 regenerate_decl_from_template so we don't need to
19965 push/pop_access_scope again here. Pull it out so that
19966 cp_finish_decl can process it. */
19967 init = DECL_INITIAL (d);
19968 DECL_INITIAL (d) = NULL_TREE;
19969 DECL_INITIALIZED_P (d) = 0;
19971 /* Clear DECL_EXTERNAL so that cp_finish_decl will process the
19972 initializer. That function will defer actual emission until
19973 we have a chance to determine linkage. */
19974 DECL_EXTERNAL (d) = 0;
19976 /* Enter the scope of D so that access-checking works correctly. */
19977 push_nested_class (DECL_CONTEXT (d));
19978 const_init = DECL_INITIALIZED_BY_CONSTANT_EXPRESSION_P (code_pattern);
19979 cp_finish_decl (d, init, const_init, NULL_TREE, 0);
19980 pop_nested_class ();
19982 else if (TREE_CODE (d) == FUNCTION_DECL && DECL_DEFAULTED_FN (code_pattern))
19983 synthesize_method (d);
19984 else if (TREE_CODE (d) == FUNCTION_DECL)
19986 struct pointer_map_t *saved_local_specializations;
19987 tree subst_decl;
19988 tree tmpl_parm;
19989 tree spec_parm;
19990 tree block = NULL_TREE;
19992 /* Save away the current list, in case we are instantiating one
19993 template from within the body of another. */
19994 saved_local_specializations = local_specializations;
19996 /* Set up the list of local specializations. */
19997 local_specializations = pointer_map_create ();
19999 /* Set up context. */
20000 if (DECL_OMP_DECLARE_REDUCTION_P (code_pattern)
20001 && TREE_CODE (DECL_CONTEXT (code_pattern)) == FUNCTION_DECL)
20002 block = push_stmt_list ();
20003 else
20004 start_preparsed_function (d, NULL_TREE, SF_PRE_PARSED);
20006 /* Some typedefs referenced from within the template code need to be
20007 access checked at template instantiation time, i.e now. These
20008 types were added to the template at parsing time. Let's get those
20009 and perform the access checks then. */
20010 perform_typedefs_access_check (DECL_TEMPLATE_RESULT (gen_tmpl),
20011 gen_args);
20013 /* Create substitution entries for the parameters. */
20014 subst_decl = DECL_TEMPLATE_RESULT (template_for_substitution (d));
20015 tmpl_parm = DECL_ARGUMENTS (subst_decl);
20016 spec_parm = DECL_ARGUMENTS (d);
20017 if (DECL_NONSTATIC_MEMBER_FUNCTION_P (d))
20019 register_local_specialization (spec_parm, tmpl_parm);
20020 spec_parm = skip_artificial_parms_for (d, spec_parm);
20021 tmpl_parm = skip_artificial_parms_for (subst_decl, tmpl_parm);
20023 for (; tmpl_parm; tmpl_parm = DECL_CHAIN (tmpl_parm))
20025 if (!DECL_PACK_P (tmpl_parm))
20027 register_local_specialization (spec_parm, tmpl_parm);
20028 spec_parm = DECL_CHAIN (spec_parm);
20030 else
20032 /* Register the (value) argument pack as a specialization of
20033 TMPL_PARM, then move on. */
20034 tree argpack = extract_fnparm_pack (tmpl_parm, &spec_parm);
20035 register_local_specialization (argpack, tmpl_parm);
20038 gcc_assert (!spec_parm);
20040 /* Substitute into the body of the function. */
20041 if (DECL_OMP_DECLARE_REDUCTION_P (code_pattern))
20042 tsubst_omp_udr (DECL_SAVED_TREE (code_pattern), args,
20043 tf_warning_or_error, tmpl);
20044 else
20046 tsubst_expr (DECL_SAVED_TREE (code_pattern), args,
20047 tf_warning_or_error, tmpl,
20048 /*integral_constant_expression_p=*/false);
20050 /* Set the current input_location to the end of the function
20051 so that finish_function knows where we are. */
20052 input_location
20053 = DECL_STRUCT_FUNCTION (code_pattern)->function_end_locus;
20055 /* Remember if we saw an infinite loop in the template. */
20056 current_function_infinite_loop
20057 = DECL_STRUCT_FUNCTION (code_pattern)->language->infinite_loop;
20060 /* We don't need the local specializations any more. */
20061 pointer_map_destroy (local_specializations);
20062 local_specializations = saved_local_specializations;
20064 /* Finish the function. */
20065 if (DECL_OMP_DECLARE_REDUCTION_P (code_pattern)
20066 && TREE_CODE (DECL_CONTEXT (code_pattern)) == FUNCTION_DECL)
20067 DECL_SAVED_TREE (d) = pop_stmt_list (block);
20068 else
20070 d = finish_function (0);
20071 expand_or_defer_fn (d);
20074 if (DECL_OMP_DECLARE_REDUCTION_P (code_pattern))
20075 cp_check_omp_declare_reduction (d);
20078 /* We're not deferring instantiation any more. */
20079 TI_PENDING_TEMPLATE_FLAG (DECL_TEMPLATE_INFO (d)) = 0;
20081 if (!fn_context)
20082 pop_from_top_level ();
20083 else if (nested)
20084 pop_function_context ();
20086 out:
20087 input_location = saved_loc;
20088 cp_unevaluated_operand = saved_unevaluated_operand;
20089 c_inhibit_evaluation_warnings = saved_inhibit_evaluation_warnings;
20090 pop_deferring_access_checks ();
20091 pop_tinst_level ();
20093 timevar_pop (TV_TEMPLATE_INST);
20095 return d;
20098 /* Run through the list of templates that we wish we could
20099 instantiate, and instantiate any we can. RETRIES is the
20100 number of times we retry pending template instantiation. */
20102 void
20103 instantiate_pending_templates (int retries)
20105 int reconsider;
20106 location_t saved_loc = input_location;
20108 /* Instantiating templates may trigger vtable generation. This in turn
20109 may require further template instantiations. We place a limit here
20110 to avoid infinite loop. */
20111 if (pending_templates && retries >= max_tinst_depth)
20113 tree decl = pending_templates->tinst->decl;
20115 error ("template instantiation depth exceeds maximum of %d"
20116 " instantiating %q+D, possibly from virtual table generation"
20117 " (use -ftemplate-depth= to increase the maximum)",
20118 max_tinst_depth, decl);
20119 if (TREE_CODE (decl) == FUNCTION_DECL)
20120 /* Pretend that we defined it. */
20121 DECL_INITIAL (decl) = error_mark_node;
20122 return;
20127 struct pending_template **t = &pending_templates;
20128 struct pending_template *last = NULL;
20129 reconsider = 0;
20130 while (*t)
20132 tree instantiation = reopen_tinst_level ((*t)->tinst);
20133 bool complete = false;
20135 if (TYPE_P (instantiation))
20137 tree fn;
20139 if (!COMPLETE_TYPE_P (instantiation))
20141 instantiate_class_template (instantiation);
20142 if (CLASSTYPE_TEMPLATE_INSTANTIATION (instantiation))
20143 for (fn = TYPE_METHODS (instantiation);
20145 fn = TREE_CHAIN (fn))
20146 if (! DECL_ARTIFICIAL (fn))
20147 instantiate_decl (fn,
20148 /*defer_ok=*/0,
20149 /*expl_inst_class_mem_p=*/false);
20150 if (COMPLETE_TYPE_P (instantiation))
20151 reconsider = 1;
20154 complete = COMPLETE_TYPE_P (instantiation);
20156 else
20158 if (!DECL_TEMPLATE_SPECIALIZATION (instantiation)
20159 && !DECL_TEMPLATE_INSTANTIATED (instantiation))
20161 instantiation
20162 = instantiate_decl (instantiation,
20163 /*defer_ok=*/0,
20164 /*expl_inst_class_mem_p=*/false);
20165 if (DECL_TEMPLATE_INSTANTIATED (instantiation))
20166 reconsider = 1;
20169 complete = (DECL_TEMPLATE_SPECIALIZATION (instantiation)
20170 || DECL_TEMPLATE_INSTANTIATED (instantiation));
20173 if (complete)
20174 /* If INSTANTIATION has been instantiated, then we don't
20175 need to consider it again in the future. */
20176 *t = (*t)->next;
20177 else
20179 last = *t;
20180 t = &(*t)->next;
20182 tinst_depth = 0;
20183 current_tinst_level = NULL;
20185 last_pending_template = last;
20187 while (reconsider);
20189 input_location = saved_loc;
20192 /* Substitute ARGVEC into T, which is a list of initializers for
20193 either base class or a non-static data member. The TREE_PURPOSEs
20194 are DECLs, and the TREE_VALUEs are the initializer values. Used by
20195 instantiate_decl. */
20197 static tree
20198 tsubst_initializer_list (tree t, tree argvec)
20200 tree inits = NULL_TREE;
20202 for (; t; t = TREE_CHAIN (t))
20204 tree decl;
20205 tree init;
20206 tree expanded_bases = NULL_TREE;
20207 tree expanded_arguments = NULL_TREE;
20208 int i, len = 1;
20210 if (TREE_CODE (TREE_PURPOSE (t)) == TYPE_PACK_EXPANSION)
20212 tree expr;
20213 tree arg;
20215 /* Expand the base class expansion type into separate base
20216 classes. */
20217 expanded_bases = tsubst_pack_expansion (TREE_PURPOSE (t), argvec,
20218 tf_warning_or_error,
20219 NULL_TREE);
20220 if (expanded_bases == error_mark_node)
20221 continue;
20223 /* We'll be building separate TREE_LISTs of arguments for
20224 each base. */
20225 len = TREE_VEC_LENGTH (expanded_bases);
20226 expanded_arguments = make_tree_vec (len);
20227 for (i = 0; i < len; i++)
20228 TREE_VEC_ELT (expanded_arguments, i) = NULL_TREE;
20230 /* Build a dummy EXPR_PACK_EXPANSION that will be used to
20231 expand each argument in the TREE_VALUE of t. */
20232 expr = make_node (EXPR_PACK_EXPANSION);
20233 PACK_EXPANSION_LOCAL_P (expr) = true;
20234 PACK_EXPANSION_PARAMETER_PACKS (expr) =
20235 PACK_EXPANSION_PARAMETER_PACKS (TREE_PURPOSE (t));
20237 if (TREE_VALUE (t) == void_type_node)
20238 /* VOID_TYPE_NODE is used to indicate
20239 value-initialization. */
20241 for (i = 0; i < len; i++)
20242 TREE_VEC_ELT (expanded_arguments, i) = void_type_node;
20244 else
20246 /* Substitute parameter packs into each argument in the
20247 TREE_LIST. */
20248 in_base_initializer = 1;
20249 for (arg = TREE_VALUE (t); arg; arg = TREE_CHAIN (arg))
20251 tree expanded_exprs;
20253 /* Expand the argument. */
20254 SET_PACK_EXPANSION_PATTERN (expr, TREE_VALUE (arg));
20255 expanded_exprs
20256 = tsubst_pack_expansion (expr, argvec,
20257 tf_warning_or_error,
20258 NULL_TREE);
20259 if (expanded_exprs == error_mark_node)
20260 continue;
20262 /* Prepend each of the expanded expressions to the
20263 corresponding TREE_LIST in EXPANDED_ARGUMENTS. */
20264 for (i = 0; i < len; i++)
20266 TREE_VEC_ELT (expanded_arguments, i) =
20267 tree_cons (NULL_TREE,
20268 TREE_VEC_ELT (expanded_exprs, i),
20269 TREE_VEC_ELT (expanded_arguments, i));
20272 in_base_initializer = 0;
20274 /* Reverse all of the TREE_LISTs in EXPANDED_ARGUMENTS,
20275 since we built them backwards. */
20276 for (i = 0; i < len; i++)
20278 TREE_VEC_ELT (expanded_arguments, i) =
20279 nreverse (TREE_VEC_ELT (expanded_arguments, i));
20284 for (i = 0; i < len; ++i)
20286 if (expanded_bases)
20288 decl = TREE_VEC_ELT (expanded_bases, i);
20289 decl = expand_member_init (decl);
20290 init = TREE_VEC_ELT (expanded_arguments, i);
20292 else
20294 tree tmp;
20295 decl = tsubst_copy (TREE_PURPOSE (t), argvec,
20296 tf_warning_or_error, NULL_TREE);
20298 decl = expand_member_init (decl);
20299 if (decl && !DECL_P (decl))
20300 in_base_initializer = 1;
20302 init = TREE_VALUE (t);
20303 tmp = init;
20304 if (init != void_type_node)
20305 init = tsubst_expr (init, argvec,
20306 tf_warning_or_error, NULL_TREE,
20307 /*integral_constant_expression_p=*/false);
20308 if (init == NULL_TREE && tmp != NULL_TREE)
20309 /* If we had an initializer but it instantiated to nothing,
20310 value-initialize the object. This will only occur when
20311 the initializer was a pack expansion where the parameter
20312 packs used in that expansion were of length zero. */
20313 init = void_type_node;
20314 in_base_initializer = 0;
20317 if (decl)
20319 init = build_tree_list (decl, init);
20320 TREE_CHAIN (init) = inits;
20321 inits = init;
20325 return inits;
20328 /* Set CURRENT_ACCESS_SPECIFIER based on the protection of DECL. */
20330 static void
20331 set_current_access_from_decl (tree decl)
20333 if (TREE_PRIVATE (decl))
20334 current_access_specifier = access_private_node;
20335 else if (TREE_PROTECTED (decl))
20336 current_access_specifier = access_protected_node;
20337 else
20338 current_access_specifier = access_public_node;
20341 /* Instantiate an enumerated type. TAG is the template type, NEWTAG
20342 is the instantiation (which should have been created with
20343 start_enum) and ARGS are the template arguments to use. */
20345 static void
20346 tsubst_enum (tree tag, tree newtag, tree args)
20348 tree e;
20350 if (SCOPED_ENUM_P (newtag))
20351 begin_scope (sk_scoped_enum, newtag);
20353 for (e = TYPE_VALUES (tag); e; e = TREE_CHAIN (e))
20355 tree value;
20356 tree decl;
20358 decl = TREE_VALUE (e);
20359 /* Note that in a template enum, the TREE_VALUE is the
20360 CONST_DECL, not the corresponding INTEGER_CST. */
20361 value = tsubst_expr (DECL_INITIAL (decl),
20362 args, tf_warning_or_error, NULL_TREE,
20363 /*integral_constant_expression_p=*/true);
20365 /* Give this enumeration constant the correct access. */
20366 set_current_access_from_decl (decl);
20368 /* Actually build the enumerator itself. */
20369 build_enumerator
20370 (DECL_NAME (decl), value, newtag, DECL_SOURCE_LOCATION (decl));
20373 if (SCOPED_ENUM_P (newtag))
20374 finish_scope ();
20376 finish_enum_value_list (newtag);
20377 finish_enum (newtag);
20379 DECL_SOURCE_LOCATION (TYPE_NAME (newtag))
20380 = DECL_SOURCE_LOCATION (TYPE_NAME (tag));
20383 /* DECL is a FUNCTION_DECL that is a template specialization. Return
20384 its type -- but without substituting the innermost set of template
20385 arguments. So, innermost set of template parameters will appear in
20386 the type. */
20388 tree
20389 get_mostly_instantiated_function_type (tree decl)
20391 tree fn_type;
20392 tree tmpl;
20393 tree targs;
20394 tree tparms;
20395 int parm_depth;
20397 tmpl = most_general_template (DECL_TI_TEMPLATE (decl));
20398 targs = DECL_TI_ARGS (decl);
20399 tparms = DECL_TEMPLATE_PARMS (tmpl);
20400 parm_depth = TMPL_PARMS_DEPTH (tparms);
20402 /* There should be as many levels of arguments as there are levels
20403 of parameters. */
20404 gcc_assert (parm_depth == TMPL_ARGS_DEPTH (targs));
20406 fn_type = TREE_TYPE (tmpl);
20408 if (parm_depth == 1)
20409 /* No substitution is necessary. */
20411 else
20413 int i;
20414 tree partial_args;
20416 /* Replace the innermost level of the TARGS with NULL_TREEs to
20417 let tsubst know not to substitute for those parameters. */
20418 partial_args = make_tree_vec (TREE_VEC_LENGTH (targs));
20419 for (i = 1; i < TMPL_ARGS_DEPTH (targs); ++i)
20420 SET_TMPL_ARGS_LEVEL (partial_args, i,
20421 TMPL_ARGS_LEVEL (targs, i));
20422 SET_TMPL_ARGS_LEVEL (partial_args,
20423 TMPL_ARGS_DEPTH (targs),
20424 make_tree_vec (DECL_NTPARMS (tmpl)));
20426 /* Make sure that we can see identifiers, and compute access
20427 correctly. */
20428 push_access_scope (decl);
20430 ++processing_template_decl;
20431 /* Now, do the (partial) substitution to figure out the
20432 appropriate function type. */
20433 fn_type = tsubst (fn_type, partial_args, tf_error, NULL_TREE);
20434 --processing_template_decl;
20436 /* Substitute into the template parameters to obtain the real
20437 innermost set of parameters. This step is important if the
20438 innermost set of template parameters contains value
20439 parameters whose types depend on outer template parameters. */
20440 TREE_VEC_LENGTH (partial_args)--;
20441 tparms = tsubst_template_parms (tparms, partial_args, tf_error);
20443 pop_access_scope (decl);
20446 return fn_type;
20449 /* Return truthvalue if we're processing a template different from
20450 the last one involved in diagnostics. */
20452 problematic_instantiation_changed (void)
20454 return current_tinst_level != last_error_tinst_level;
20457 /* Remember current template involved in diagnostics. */
20458 void
20459 record_last_problematic_instantiation (void)
20461 last_error_tinst_level = current_tinst_level;
20464 struct tinst_level *
20465 current_instantiation (void)
20467 return current_tinst_level;
20470 /* [temp.param] Check that template non-type parm TYPE is of an allowable
20471 type. Return zero for ok, nonzero for disallowed. Issue error and
20472 warning messages under control of COMPLAIN. */
20474 static int
20475 invalid_nontype_parm_type_p (tree type, tsubst_flags_t complain)
20477 if (INTEGRAL_OR_ENUMERATION_TYPE_P (type))
20478 return 0;
20479 else if (POINTER_TYPE_P (type))
20480 return 0;
20481 else if (TYPE_PTRMEM_P (type))
20482 return 0;
20483 else if (TREE_CODE (type) == TEMPLATE_TYPE_PARM)
20484 return 0;
20485 else if (TREE_CODE (type) == TYPENAME_TYPE)
20486 return 0;
20487 else if (TREE_CODE (type) == DECLTYPE_TYPE)
20488 return 0;
20489 else if (TREE_CODE (type) == NULLPTR_TYPE)
20490 return 0;
20492 if (complain & tf_error)
20494 if (type == error_mark_node)
20495 inform (input_location, "invalid template non-type parameter");
20496 else
20497 error ("%q#T is not a valid type for a template non-type parameter",
20498 type);
20500 return 1;
20503 /* Returns TRUE if TYPE is dependent, in the sense of [temp.dep.type].
20504 Assumes that TYPE really is a type, and not the ERROR_MARK_NODE.*/
20506 static bool
20507 dependent_type_p_r (tree type)
20509 tree scope;
20511 /* [temp.dep.type]
20513 A type is dependent if it is:
20515 -- a template parameter. Template template parameters are types
20516 for us (since TYPE_P holds true for them) so we handle
20517 them here. */
20518 if (TREE_CODE (type) == TEMPLATE_TYPE_PARM
20519 || TREE_CODE (type) == TEMPLATE_TEMPLATE_PARM)
20520 return true;
20521 /* -- a qualified-id with a nested-name-specifier which contains a
20522 class-name that names a dependent type or whose unqualified-id
20523 names a dependent type. */
20524 if (TREE_CODE (type) == TYPENAME_TYPE)
20525 return true;
20526 /* -- a cv-qualified type where the cv-unqualified type is
20527 dependent. */
20528 type = TYPE_MAIN_VARIANT (type);
20529 /* -- a compound type constructed from any dependent type. */
20530 if (TYPE_PTRMEM_P (type))
20531 return (dependent_type_p (TYPE_PTRMEM_CLASS_TYPE (type))
20532 || dependent_type_p (TYPE_PTRMEM_POINTED_TO_TYPE
20533 (type)));
20534 else if (TYPE_PTR_P (type)
20535 || TREE_CODE (type) == REFERENCE_TYPE)
20536 return dependent_type_p (TREE_TYPE (type));
20537 else if (TREE_CODE (type) == FUNCTION_TYPE
20538 || TREE_CODE (type) == METHOD_TYPE)
20540 tree arg_type;
20542 if (dependent_type_p (TREE_TYPE (type)))
20543 return true;
20544 for (arg_type = TYPE_ARG_TYPES (type);
20545 arg_type;
20546 arg_type = TREE_CHAIN (arg_type))
20547 if (dependent_type_p (TREE_VALUE (arg_type)))
20548 return true;
20549 return false;
20551 /* -- an array type constructed from any dependent type or whose
20552 size is specified by a constant expression that is
20553 value-dependent.
20555 We checked for type- and value-dependence of the bounds in
20556 compute_array_index_type, so TYPE_DEPENDENT_P is already set. */
20557 if (TREE_CODE (type) == ARRAY_TYPE)
20559 if (TYPE_DOMAIN (type)
20560 && dependent_type_p (TYPE_DOMAIN (type)))
20561 return true;
20562 return dependent_type_p (TREE_TYPE (type));
20565 /* -- a template-id in which either the template name is a template
20566 parameter ... */
20567 if (TREE_CODE (type) == BOUND_TEMPLATE_TEMPLATE_PARM)
20568 return true;
20569 /* ... or any of the template arguments is a dependent type or
20570 an expression that is type-dependent or value-dependent. */
20571 else if (CLASS_TYPE_P (type) && CLASSTYPE_TEMPLATE_INFO (type)
20572 && (any_dependent_template_arguments_p
20573 (INNERMOST_TEMPLATE_ARGS (CLASSTYPE_TI_ARGS (type)))))
20574 return true;
20576 /* All TYPEOF_TYPEs, DECLTYPE_TYPEs, and UNDERLYING_TYPEs are
20577 dependent; if the argument of the `typeof' expression is not
20578 type-dependent, then it should already been have resolved. */
20579 if (TREE_CODE (type) == TYPEOF_TYPE
20580 || TREE_CODE (type) == DECLTYPE_TYPE
20581 || TREE_CODE (type) == UNDERLYING_TYPE)
20582 return true;
20584 /* A template argument pack is dependent if any of its packed
20585 arguments are. */
20586 if (TREE_CODE (type) == TYPE_ARGUMENT_PACK)
20588 tree args = ARGUMENT_PACK_ARGS (type);
20589 int i, len = TREE_VEC_LENGTH (args);
20590 for (i = 0; i < len; ++i)
20591 if (dependent_template_arg_p (TREE_VEC_ELT (args, i)))
20592 return true;
20595 /* All TYPE_PACK_EXPANSIONs are dependent, because parameter packs must
20596 be template parameters. */
20597 if (TREE_CODE (type) == TYPE_PACK_EXPANSION)
20598 return true;
20600 /* The standard does not specifically mention types that are local
20601 to template functions or local classes, but they should be
20602 considered dependent too. For example:
20604 template <int I> void f() {
20605 enum E { a = I };
20606 S<sizeof (E)> s;
20609 The size of `E' cannot be known until the value of `I' has been
20610 determined. Therefore, `E' must be considered dependent. */
20611 scope = TYPE_CONTEXT (type);
20612 if (scope && TYPE_P (scope))
20613 return dependent_type_p (scope);
20614 /* Don't use type_dependent_expression_p here, as it can lead
20615 to infinite recursion trying to determine whether a lambda
20616 nested in a lambda is dependent (c++/47687). */
20617 else if (scope && TREE_CODE (scope) == FUNCTION_DECL
20618 && DECL_LANG_SPECIFIC (scope)
20619 && DECL_TEMPLATE_INFO (scope)
20620 && (any_dependent_template_arguments_p
20621 (INNERMOST_TEMPLATE_ARGS (DECL_TI_ARGS (scope)))))
20622 return true;
20624 /* Other types are non-dependent. */
20625 return false;
20628 /* Returns TRUE if TYPE is dependent, in the sense of
20629 [temp.dep.type]. Note that a NULL type is considered dependent. */
20631 bool
20632 dependent_type_p (tree type)
20634 /* If there are no template parameters in scope, then there can't be
20635 any dependent types. */
20636 if (!processing_template_decl)
20638 /* If we are not processing a template, then nobody should be
20639 providing us with a dependent type. */
20640 gcc_assert (type);
20641 gcc_assert (TREE_CODE (type) != TEMPLATE_TYPE_PARM || is_auto (type));
20642 return false;
20645 /* If the type is NULL, we have not computed a type for the entity
20646 in question; in that case, the type is dependent. */
20647 if (!type)
20648 return true;
20650 /* Erroneous types can be considered non-dependent. */
20651 if (type == error_mark_node)
20652 return false;
20654 /* If we have not already computed the appropriate value for TYPE,
20655 do so now. */
20656 if (!TYPE_DEPENDENT_P_VALID (type))
20658 TYPE_DEPENDENT_P (type) = dependent_type_p_r (type);
20659 TYPE_DEPENDENT_P_VALID (type) = 1;
20662 return TYPE_DEPENDENT_P (type);
20665 /* Returns TRUE if SCOPE is a dependent scope, in which we can't do any
20666 lookup. In other words, a dependent type that is not the current
20667 instantiation. */
20669 bool
20670 dependent_scope_p (tree scope)
20672 return (scope && TYPE_P (scope) && dependent_type_p (scope)
20673 && !currently_open_class (scope));
20676 /* T is a SCOPE_REF; return whether we need to consider it
20677 instantiation-dependent so that we can check access at instantiation
20678 time even though we know which member it resolves to. */
20680 static bool
20681 instantiation_dependent_scope_ref_p (tree t)
20683 if (DECL_P (TREE_OPERAND (t, 1))
20684 && CLASS_TYPE_P (TREE_OPERAND (t, 0))
20685 && accessible_in_template_p (TREE_OPERAND (t, 0),
20686 TREE_OPERAND (t, 1)))
20687 return false;
20688 else
20689 return true;
20692 /* Returns TRUE if the EXPRESSION is value-dependent, in the sense of
20693 [temp.dep.constexpr]. EXPRESSION is already known to be a constant
20694 expression. */
20696 /* Note that this predicate is not appropriate for general expressions;
20697 only constant expressions (that satisfy potential_constant_expression)
20698 can be tested for value dependence. */
20700 bool
20701 value_dependent_expression_p (tree expression)
20703 if (!processing_template_decl)
20704 return false;
20706 /* A name declared with a dependent type. */
20707 if (DECL_P (expression) && type_dependent_expression_p (expression))
20708 return true;
20710 switch (TREE_CODE (expression))
20712 case IDENTIFIER_NODE:
20713 /* A name that has not been looked up -- must be dependent. */
20714 return true;
20716 case TEMPLATE_PARM_INDEX:
20717 /* A non-type template parm. */
20718 return true;
20720 case CONST_DECL:
20721 /* A non-type template parm. */
20722 if (DECL_TEMPLATE_PARM_P (expression))
20723 return true;
20724 return value_dependent_expression_p (DECL_INITIAL (expression));
20726 case VAR_DECL:
20727 /* A constant with literal type and is initialized
20728 with an expression that is value-dependent.
20730 Note that a non-dependent parenthesized initializer will have
20731 already been replaced with its constant value, so if we see
20732 a TREE_LIST it must be dependent. */
20733 if (DECL_INITIAL (expression)
20734 && decl_constant_var_p (expression)
20735 && (TREE_CODE (DECL_INITIAL (expression)) == TREE_LIST
20736 || value_dependent_expression_p (DECL_INITIAL (expression))))
20737 return true;
20738 return false;
20740 case DYNAMIC_CAST_EXPR:
20741 case STATIC_CAST_EXPR:
20742 case CONST_CAST_EXPR:
20743 case REINTERPRET_CAST_EXPR:
20744 case CAST_EXPR:
20745 /* These expressions are value-dependent if the type to which
20746 the cast occurs is dependent or the expression being casted
20747 is value-dependent. */
20749 tree type = TREE_TYPE (expression);
20751 if (dependent_type_p (type))
20752 return true;
20754 /* A functional cast has a list of operands. */
20755 expression = TREE_OPERAND (expression, 0);
20756 if (!expression)
20758 /* If there are no operands, it must be an expression such
20759 as "int()". This should not happen for aggregate types
20760 because it would form non-constant expressions. */
20761 gcc_assert (cxx_dialect >= cxx11
20762 || INTEGRAL_OR_ENUMERATION_TYPE_P (type));
20764 return false;
20767 if (TREE_CODE (expression) == TREE_LIST)
20768 return any_value_dependent_elements_p (expression);
20770 return value_dependent_expression_p (expression);
20773 case SIZEOF_EXPR:
20774 if (SIZEOF_EXPR_TYPE_P (expression))
20775 return dependent_type_p (TREE_TYPE (TREE_OPERAND (expression, 0)));
20776 /* FALLTHRU */
20777 case ALIGNOF_EXPR:
20778 case TYPEID_EXPR:
20779 /* A `sizeof' expression is value-dependent if the operand is
20780 type-dependent or is a pack expansion. */
20781 expression = TREE_OPERAND (expression, 0);
20782 if (PACK_EXPANSION_P (expression))
20783 return true;
20784 else if (TYPE_P (expression))
20785 return dependent_type_p (expression);
20786 return instantiation_dependent_expression_p (expression);
20788 case AT_ENCODE_EXPR:
20789 /* An 'encode' expression is value-dependent if the operand is
20790 type-dependent. */
20791 expression = TREE_OPERAND (expression, 0);
20792 return dependent_type_p (expression);
20794 case NOEXCEPT_EXPR:
20795 expression = TREE_OPERAND (expression, 0);
20796 return instantiation_dependent_expression_p (expression);
20798 case SCOPE_REF:
20799 /* All instantiation-dependent expressions should also be considered
20800 value-dependent. */
20801 return instantiation_dependent_scope_ref_p (expression);
20803 case COMPONENT_REF:
20804 return (value_dependent_expression_p (TREE_OPERAND (expression, 0))
20805 || value_dependent_expression_p (TREE_OPERAND (expression, 1)));
20807 case NONTYPE_ARGUMENT_PACK:
20808 /* A NONTYPE_ARGUMENT_PACK is value-dependent if any packed argument
20809 is value-dependent. */
20811 tree values = ARGUMENT_PACK_ARGS (expression);
20812 int i, len = TREE_VEC_LENGTH (values);
20814 for (i = 0; i < len; ++i)
20815 if (value_dependent_expression_p (TREE_VEC_ELT (values, i)))
20816 return true;
20818 return false;
20821 case TRAIT_EXPR:
20823 tree type2 = TRAIT_EXPR_TYPE2 (expression);
20824 return (dependent_type_p (TRAIT_EXPR_TYPE1 (expression))
20825 || (type2 ? dependent_type_p (type2) : false));
20828 case MODOP_EXPR:
20829 return ((value_dependent_expression_p (TREE_OPERAND (expression, 0)))
20830 || (value_dependent_expression_p (TREE_OPERAND (expression, 2))));
20832 case ARRAY_REF:
20833 return ((value_dependent_expression_p (TREE_OPERAND (expression, 0)))
20834 || (value_dependent_expression_p (TREE_OPERAND (expression, 1))));
20836 case ADDR_EXPR:
20838 tree op = TREE_OPERAND (expression, 0);
20839 return (value_dependent_expression_p (op)
20840 || has_value_dependent_address (op));
20843 case CALL_EXPR:
20845 tree fn = get_callee_fndecl (expression);
20846 int i, nargs;
20847 if (!fn && value_dependent_expression_p (CALL_EXPR_FN (expression)))
20848 return true;
20849 nargs = call_expr_nargs (expression);
20850 for (i = 0; i < nargs; ++i)
20852 tree op = CALL_EXPR_ARG (expression, i);
20853 /* In a call to a constexpr member function, look through the
20854 implicit ADDR_EXPR on the object argument so that it doesn't
20855 cause the call to be considered value-dependent. We also
20856 look through it in potential_constant_expression. */
20857 if (i == 0 && fn && DECL_DECLARED_CONSTEXPR_P (fn)
20858 && DECL_NONSTATIC_MEMBER_FUNCTION_P (fn)
20859 && TREE_CODE (op) == ADDR_EXPR)
20860 op = TREE_OPERAND (op, 0);
20861 if (value_dependent_expression_p (op))
20862 return true;
20864 return false;
20867 case TEMPLATE_ID_EXPR:
20868 /* If a TEMPLATE_ID_EXPR involves a dependent name, it will be
20869 type-dependent. */
20870 return type_dependent_expression_p (expression);
20872 case CONSTRUCTOR:
20874 unsigned ix;
20875 tree val;
20876 FOR_EACH_CONSTRUCTOR_VALUE (CONSTRUCTOR_ELTS (expression), ix, val)
20877 if (value_dependent_expression_p (val))
20878 return true;
20879 return false;
20882 case STMT_EXPR:
20883 /* Treat a GNU statement expression as dependent to avoid crashing
20884 under fold_non_dependent_expr; it can't be constant. */
20885 return true;
20887 default:
20888 /* A constant expression is value-dependent if any subexpression is
20889 value-dependent. */
20890 switch (TREE_CODE_CLASS (TREE_CODE (expression)))
20892 case tcc_reference:
20893 case tcc_unary:
20894 case tcc_comparison:
20895 case tcc_binary:
20896 case tcc_expression:
20897 case tcc_vl_exp:
20899 int i, len = cp_tree_operand_length (expression);
20901 for (i = 0; i < len; i++)
20903 tree t = TREE_OPERAND (expression, i);
20905 /* In some cases, some of the operands may be missing.l
20906 (For example, in the case of PREDECREMENT_EXPR, the
20907 amount to increment by may be missing.) That doesn't
20908 make the expression dependent. */
20909 if (t && value_dependent_expression_p (t))
20910 return true;
20913 break;
20914 default:
20915 break;
20917 break;
20920 /* The expression is not value-dependent. */
20921 return false;
20924 /* Returns TRUE if the EXPRESSION is type-dependent, in the sense of
20925 [temp.dep.expr]. Note that an expression with no type is
20926 considered dependent. Other parts of the compiler arrange for an
20927 expression with type-dependent subexpressions to have no type, so
20928 this function doesn't have to be fully recursive. */
20930 bool
20931 type_dependent_expression_p (tree expression)
20933 if (!processing_template_decl)
20934 return false;
20936 if (expression == NULL_TREE || expression == error_mark_node)
20937 return false;
20939 /* An unresolved name is always dependent. */
20940 if (identifier_p (expression) || TREE_CODE (expression) == USING_DECL)
20941 return true;
20943 /* Some expression forms are never type-dependent. */
20944 if (TREE_CODE (expression) == PSEUDO_DTOR_EXPR
20945 || TREE_CODE (expression) == SIZEOF_EXPR
20946 || TREE_CODE (expression) == ALIGNOF_EXPR
20947 || TREE_CODE (expression) == AT_ENCODE_EXPR
20948 || TREE_CODE (expression) == NOEXCEPT_EXPR
20949 || TREE_CODE (expression) == TRAIT_EXPR
20950 || TREE_CODE (expression) == TYPEID_EXPR
20951 || TREE_CODE (expression) == DELETE_EXPR
20952 || TREE_CODE (expression) == VEC_DELETE_EXPR
20953 || TREE_CODE (expression) == THROW_EXPR)
20954 return false;
20956 /* The types of these expressions depends only on the type to which
20957 the cast occurs. */
20958 if (TREE_CODE (expression) == DYNAMIC_CAST_EXPR
20959 || TREE_CODE (expression) == STATIC_CAST_EXPR
20960 || TREE_CODE (expression) == CONST_CAST_EXPR
20961 || TREE_CODE (expression) == REINTERPRET_CAST_EXPR
20962 || TREE_CODE (expression) == IMPLICIT_CONV_EXPR
20963 || TREE_CODE (expression) == CAST_EXPR)
20964 return dependent_type_p (TREE_TYPE (expression));
20966 /* The types of these expressions depends only on the type created
20967 by the expression. */
20968 if (TREE_CODE (expression) == NEW_EXPR
20969 || TREE_CODE (expression) == VEC_NEW_EXPR)
20971 /* For NEW_EXPR tree nodes created inside a template, either
20972 the object type itself or a TREE_LIST may appear as the
20973 operand 1. */
20974 tree type = TREE_OPERAND (expression, 1);
20975 if (TREE_CODE (type) == TREE_LIST)
20976 /* This is an array type. We need to check array dimensions
20977 as well. */
20978 return dependent_type_p (TREE_VALUE (TREE_PURPOSE (type)))
20979 || value_dependent_expression_p
20980 (TREE_OPERAND (TREE_VALUE (type), 1));
20981 else
20982 return dependent_type_p (type);
20985 if (TREE_CODE (expression) == SCOPE_REF)
20987 tree scope = TREE_OPERAND (expression, 0);
20988 tree name = TREE_OPERAND (expression, 1);
20990 /* 14.6.2.2 [temp.dep.expr]: An id-expression is type-dependent if it
20991 contains an identifier associated by name lookup with one or more
20992 declarations declared with a dependent type, or...a
20993 nested-name-specifier or qualified-id that names a member of an
20994 unknown specialization. */
20995 return (type_dependent_expression_p (name)
20996 || dependent_scope_p (scope));
20999 if (TREE_CODE (expression) == FUNCTION_DECL
21000 && DECL_LANG_SPECIFIC (expression)
21001 && DECL_TEMPLATE_INFO (expression)
21002 && (any_dependent_template_arguments_p
21003 (INNERMOST_TEMPLATE_ARGS (DECL_TI_ARGS (expression)))))
21004 return true;
21006 if (TREE_CODE (expression) == TEMPLATE_DECL
21007 && !DECL_TEMPLATE_TEMPLATE_PARM_P (expression))
21008 return false;
21010 if (TREE_CODE (expression) == STMT_EXPR)
21011 expression = stmt_expr_value_expr (expression);
21013 if (BRACE_ENCLOSED_INITIALIZER_P (expression))
21015 tree elt;
21016 unsigned i;
21018 FOR_EACH_CONSTRUCTOR_VALUE (CONSTRUCTOR_ELTS (expression), i, elt)
21020 if (type_dependent_expression_p (elt))
21021 return true;
21023 return false;
21026 /* A static data member of the current instantiation with incomplete
21027 array type is type-dependent, as the definition and specializations
21028 can have different bounds. */
21029 if (VAR_P (expression)
21030 && DECL_CLASS_SCOPE_P (expression)
21031 && dependent_type_p (DECL_CONTEXT (expression))
21032 && VAR_HAD_UNKNOWN_BOUND (expression))
21033 return true;
21035 /* An array of unknown bound depending on a variadic parameter, eg:
21037 template<typename... Args>
21038 void foo (Args... args)
21040 int arr[] = { args... };
21043 template<int... vals>
21044 void bar ()
21046 int arr[] = { vals... };
21049 If the array has no length and has an initializer, it must be that
21050 we couldn't determine its length in cp_complete_array_type because
21051 it is dependent. */
21052 if (VAR_P (expression)
21053 && TREE_CODE (TREE_TYPE (expression)) == ARRAY_TYPE
21054 && !TYPE_DOMAIN (TREE_TYPE (expression))
21055 && DECL_INITIAL (expression))
21056 return true;
21058 if (TREE_TYPE (expression) == unknown_type_node)
21060 if (TREE_CODE (expression) == ADDR_EXPR)
21061 return type_dependent_expression_p (TREE_OPERAND (expression, 0));
21062 if (TREE_CODE (expression) == COMPONENT_REF
21063 || TREE_CODE (expression) == OFFSET_REF)
21065 if (type_dependent_expression_p (TREE_OPERAND (expression, 0)))
21066 return true;
21067 expression = TREE_OPERAND (expression, 1);
21068 if (identifier_p (expression))
21069 return false;
21071 /* SCOPE_REF with non-null TREE_TYPE is always non-dependent. */
21072 if (TREE_CODE (expression) == SCOPE_REF)
21073 return false;
21075 /* Always dependent, on the number of arguments if nothing else. */
21076 if (TREE_CODE (expression) == EXPR_PACK_EXPANSION)
21077 return true;
21079 if (BASELINK_P (expression))
21080 expression = BASELINK_FUNCTIONS (expression);
21082 if (TREE_CODE (expression) == TEMPLATE_ID_EXPR)
21084 if (any_dependent_template_arguments_p
21085 (TREE_OPERAND (expression, 1)))
21086 return true;
21087 expression = TREE_OPERAND (expression, 0);
21089 gcc_assert (TREE_CODE (expression) == OVERLOAD
21090 || TREE_CODE (expression) == FUNCTION_DECL);
21092 while (expression)
21094 if (type_dependent_expression_p (OVL_CURRENT (expression)))
21095 return true;
21096 expression = OVL_NEXT (expression);
21098 return false;
21101 gcc_assert (TREE_CODE (expression) != TYPE_DECL);
21103 return (dependent_type_p (TREE_TYPE (expression)));
21106 /* walk_tree callback function for instantiation_dependent_expression_p,
21107 below. Returns non-zero if a dependent subexpression is found. */
21109 static tree
21110 instantiation_dependent_r (tree *tp, int *walk_subtrees,
21111 void * /*data*/)
21113 if (TYPE_P (*tp))
21115 /* We don't have to worry about decltype currently because decltype
21116 of an instantiation-dependent expr is a dependent type. This
21117 might change depending on the resolution of DR 1172. */
21118 *walk_subtrees = false;
21119 return NULL_TREE;
21121 enum tree_code code = TREE_CODE (*tp);
21122 switch (code)
21124 /* Don't treat an argument list as dependent just because it has no
21125 TREE_TYPE. */
21126 case TREE_LIST:
21127 case TREE_VEC:
21128 return NULL_TREE;
21130 case VAR_DECL:
21131 case CONST_DECL:
21132 /* A constant with a dependent initializer is dependent. */
21133 if (value_dependent_expression_p (*tp))
21134 return *tp;
21135 break;
21137 case TEMPLATE_PARM_INDEX:
21138 return *tp;
21140 /* Handle expressions with type operands. */
21141 case SIZEOF_EXPR:
21142 case ALIGNOF_EXPR:
21143 case TYPEID_EXPR:
21144 case AT_ENCODE_EXPR:
21146 tree op = TREE_OPERAND (*tp, 0);
21147 if (code == SIZEOF_EXPR && SIZEOF_EXPR_TYPE_P (*tp))
21148 op = TREE_TYPE (op);
21149 if (TYPE_P (op))
21151 if (dependent_type_p (op))
21152 return *tp;
21153 else
21155 *walk_subtrees = false;
21156 return NULL_TREE;
21159 break;
21162 case TRAIT_EXPR:
21163 if (dependent_type_p (TRAIT_EXPR_TYPE1 (*tp))
21164 || (TRAIT_EXPR_TYPE2 (*tp)
21165 && dependent_type_p (TRAIT_EXPR_TYPE2 (*tp))))
21166 return *tp;
21167 *walk_subtrees = false;
21168 return NULL_TREE;
21170 case COMPONENT_REF:
21171 if (identifier_p (TREE_OPERAND (*tp, 1)))
21172 /* In a template, finish_class_member_access_expr creates a
21173 COMPONENT_REF with an IDENTIFIER_NODE for op1 even if it isn't
21174 type-dependent, so that we can check access control at
21175 instantiation time (PR 42277). See also Core issue 1273. */
21176 return *tp;
21177 break;
21179 case SCOPE_REF:
21180 if (instantiation_dependent_scope_ref_p (*tp))
21181 return *tp;
21182 else
21183 break;
21185 /* Treat statement-expressions as dependent. */
21186 case BIND_EXPR:
21187 return *tp;
21189 default:
21190 break;
21193 if (type_dependent_expression_p (*tp))
21194 return *tp;
21195 else
21196 return NULL_TREE;
21199 /* Returns TRUE if the EXPRESSION is instantiation-dependent, in the
21200 sense defined by the ABI:
21202 "An expression is instantiation-dependent if it is type-dependent
21203 or value-dependent, or it has a subexpression that is type-dependent
21204 or value-dependent." */
21206 bool
21207 instantiation_dependent_expression_p (tree expression)
21209 tree result;
21211 if (!processing_template_decl)
21212 return false;
21214 if (expression == error_mark_node)
21215 return false;
21217 result = cp_walk_tree_without_duplicates (&expression,
21218 instantiation_dependent_r, NULL);
21219 return result != NULL_TREE;
21222 /* Like type_dependent_expression_p, but it also works while not processing
21223 a template definition, i.e. during substitution or mangling. */
21225 bool
21226 type_dependent_expression_p_push (tree expr)
21228 bool b;
21229 ++processing_template_decl;
21230 b = type_dependent_expression_p (expr);
21231 --processing_template_decl;
21232 return b;
21235 /* Returns TRUE if ARGS contains a type-dependent expression. */
21237 bool
21238 any_type_dependent_arguments_p (const vec<tree, va_gc> *args)
21240 unsigned int i;
21241 tree arg;
21243 FOR_EACH_VEC_SAFE_ELT (args, i, arg)
21245 if (type_dependent_expression_p (arg))
21246 return true;
21248 return false;
21251 /* Returns TRUE if LIST (a TREE_LIST whose TREE_VALUEs are
21252 expressions) contains any type-dependent expressions. */
21254 bool
21255 any_type_dependent_elements_p (const_tree list)
21257 for (; list; list = TREE_CHAIN (list))
21258 if (type_dependent_expression_p (TREE_VALUE (list)))
21259 return true;
21261 return false;
21264 /* Returns TRUE if LIST (a TREE_LIST whose TREE_VALUEs are
21265 expressions) contains any value-dependent expressions. */
21267 bool
21268 any_value_dependent_elements_p (const_tree list)
21270 for (; list; list = TREE_CHAIN (list))
21271 if (value_dependent_expression_p (TREE_VALUE (list)))
21272 return true;
21274 return false;
21277 /* Returns TRUE if the ARG (a template argument) is dependent. */
21279 bool
21280 dependent_template_arg_p (tree arg)
21282 if (!processing_template_decl)
21283 return false;
21285 /* Assume a template argument that was wrongly written by the user
21286 is dependent. This is consistent with what
21287 any_dependent_template_arguments_p [that calls this function]
21288 does. */
21289 if (!arg || arg == error_mark_node)
21290 return true;
21292 if (TREE_CODE (arg) == ARGUMENT_PACK_SELECT)
21293 arg = ARGUMENT_PACK_SELECT_ARG (arg);
21295 if (TREE_CODE (arg) == TEMPLATE_DECL
21296 || TREE_CODE (arg) == TEMPLATE_TEMPLATE_PARM)
21297 return dependent_template_p (arg);
21298 else if (ARGUMENT_PACK_P (arg))
21300 tree args = ARGUMENT_PACK_ARGS (arg);
21301 int i, len = TREE_VEC_LENGTH (args);
21302 for (i = 0; i < len; ++i)
21304 if (dependent_template_arg_p (TREE_VEC_ELT (args, i)))
21305 return true;
21308 return false;
21310 else if (TYPE_P (arg))
21311 return dependent_type_p (arg);
21312 else
21313 return (type_dependent_expression_p (arg)
21314 || value_dependent_expression_p (arg));
21317 /* Returns true if ARGS (a collection of template arguments) contains
21318 any types that require structural equality testing. */
21320 bool
21321 any_template_arguments_need_structural_equality_p (tree args)
21323 int i;
21324 int j;
21326 if (!args)
21327 return false;
21328 if (args == error_mark_node)
21329 return true;
21331 for (i = 0; i < TMPL_ARGS_DEPTH (args); ++i)
21333 tree level = TMPL_ARGS_LEVEL (args, i + 1);
21334 for (j = 0; j < TREE_VEC_LENGTH (level); ++j)
21336 tree arg = TREE_VEC_ELT (level, j);
21337 tree packed_args = NULL_TREE;
21338 int k, len = 1;
21340 if (ARGUMENT_PACK_P (arg))
21342 /* Look inside the argument pack. */
21343 packed_args = ARGUMENT_PACK_ARGS (arg);
21344 len = TREE_VEC_LENGTH (packed_args);
21347 for (k = 0; k < len; ++k)
21349 if (packed_args)
21350 arg = TREE_VEC_ELT (packed_args, k);
21352 if (error_operand_p (arg))
21353 return true;
21354 else if (TREE_CODE (arg) == TEMPLATE_DECL)
21355 continue;
21356 else if (TYPE_P (arg) && TYPE_STRUCTURAL_EQUALITY_P (arg))
21357 return true;
21358 else if (!TYPE_P (arg) && TREE_TYPE (arg)
21359 && TYPE_STRUCTURAL_EQUALITY_P (TREE_TYPE (arg)))
21360 return true;
21365 return false;
21368 /* Returns true if ARGS (a collection of template arguments) contains
21369 any dependent arguments. */
21371 bool
21372 any_dependent_template_arguments_p (const_tree args)
21374 int i;
21375 int j;
21377 if (!args)
21378 return false;
21379 if (args == error_mark_node)
21380 return true;
21382 for (i = 0; i < TMPL_ARGS_DEPTH (args); ++i)
21384 const_tree level = TMPL_ARGS_LEVEL (args, i + 1);
21385 for (j = 0; j < TREE_VEC_LENGTH (level); ++j)
21386 if (dependent_template_arg_p (TREE_VEC_ELT (level, j)))
21387 return true;
21390 return false;
21393 /* Returns TRUE if the template TMPL is dependent. */
21395 bool
21396 dependent_template_p (tree tmpl)
21398 if (TREE_CODE (tmpl) == OVERLOAD)
21400 while (tmpl)
21402 if (dependent_template_p (OVL_CURRENT (tmpl)))
21403 return true;
21404 tmpl = OVL_NEXT (tmpl);
21406 return false;
21409 /* Template template parameters are dependent. */
21410 if (DECL_TEMPLATE_TEMPLATE_PARM_P (tmpl)
21411 || TREE_CODE (tmpl) == TEMPLATE_TEMPLATE_PARM)
21412 return true;
21413 /* So are names that have not been looked up. */
21414 if (TREE_CODE (tmpl) == SCOPE_REF || identifier_p (tmpl))
21415 return true;
21416 /* So are member templates of dependent classes. */
21417 if (TYPE_P (CP_DECL_CONTEXT (tmpl)))
21418 return dependent_type_p (DECL_CONTEXT (tmpl));
21419 return false;
21422 /* Returns TRUE if the specialization TMPL<ARGS> is dependent. */
21424 bool
21425 dependent_template_id_p (tree tmpl, tree args)
21427 return (dependent_template_p (tmpl)
21428 || any_dependent_template_arguments_p (args));
21431 /* Returns TRUE if OMP_FOR with DECLV, INITV, CONDV and INCRV vectors
21432 is dependent. */
21434 bool
21435 dependent_omp_for_p (tree declv, tree initv, tree condv, tree incrv)
21437 int i;
21439 if (!processing_template_decl)
21440 return false;
21442 for (i = 0; i < TREE_VEC_LENGTH (declv); i++)
21444 tree decl = TREE_VEC_ELT (declv, i);
21445 tree init = TREE_VEC_ELT (initv, i);
21446 tree cond = TREE_VEC_ELT (condv, i);
21447 tree incr = TREE_VEC_ELT (incrv, i);
21449 if (type_dependent_expression_p (decl))
21450 return true;
21452 if (init && type_dependent_expression_p (init))
21453 return true;
21455 if (type_dependent_expression_p (cond))
21456 return true;
21458 if (COMPARISON_CLASS_P (cond)
21459 && (type_dependent_expression_p (TREE_OPERAND (cond, 0))
21460 || type_dependent_expression_p (TREE_OPERAND (cond, 1))))
21461 return true;
21463 if (TREE_CODE (incr) == MODOP_EXPR)
21465 if (type_dependent_expression_p (TREE_OPERAND (incr, 0))
21466 || type_dependent_expression_p (TREE_OPERAND (incr, 2)))
21467 return true;
21469 else if (type_dependent_expression_p (incr))
21470 return true;
21471 else if (TREE_CODE (incr) == MODIFY_EXPR)
21473 if (type_dependent_expression_p (TREE_OPERAND (incr, 0)))
21474 return true;
21475 else if (BINARY_CLASS_P (TREE_OPERAND (incr, 1)))
21477 tree t = TREE_OPERAND (incr, 1);
21478 if (type_dependent_expression_p (TREE_OPERAND (t, 0))
21479 || type_dependent_expression_p (TREE_OPERAND (t, 1)))
21480 return true;
21485 return false;
21488 /* TYPE is a TYPENAME_TYPE. Returns the ordinary TYPE to which the
21489 TYPENAME_TYPE corresponds. Returns the original TYPENAME_TYPE if
21490 no such TYPE can be found. Note that this function peers inside
21491 uninstantiated templates and therefore should be used only in
21492 extremely limited situations. ONLY_CURRENT_P restricts this
21493 peering to the currently open classes hierarchy (which is required
21494 when comparing types). */
21496 tree
21497 resolve_typename_type (tree type, bool only_current_p)
21499 tree scope;
21500 tree name;
21501 tree decl;
21502 int quals;
21503 tree pushed_scope;
21504 tree result;
21506 gcc_assert (TREE_CODE (type) == TYPENAME_TYPE);
21508 scope = TYPE_CONTEXT (type);
21509 /* Usually the non-qualified identifier of a TYPENAME_TYPE is
21510 TYPE_IDENTIFIER (type). But when 'type' is a typedef variant of
21511 a TYPENAME_TYPE node, then TYPE_NAME (type) is set to the TYPE_DECL representing
21512 the typedef. In that case TYPE_IDENTIFIER (type) is not the non-qualified
21513 identifier of the TYPENAME_TYPE anymore.
21514 So by getting the TYPE_IDENTIFIER of the _main declaration_ of the
21515 TYPENAME_TYPE instead, we avoid messing up with a possible
21516 typedef variant case. */
21517 name = TYPE_IDENTIFIER (TYPE_MAIN_VARIANT (type));
21519 /* If the SCOPE is itself a TYPENAME_TYPE, then we need to resolve
21520 it first before we can figure out what NAME refers to. */
21521 if (TREE_CODE (scope) == TYPENAME_TYPE)
21523 if (TYPENAME_IS_RESOLVING_P (scope))
21524 /* Given a class template A with a dependent base with nested type C,
21525 typedef typename A::C::C C will land us here, as trying to resolve
21526 the initial A::C leads to the local C typedef, which leads back to
21527 A::C::C. So we break the recursion now. */
21528 return type;
21529 else
21530 scope = resolve_typename_type (scope, only_current_p);
21532 /* If we don't know what SCOPE refers to, then we cannot resolve the
21533 TYPENAME_TYPE. */
21534 if (TREE_CODE (scope) == TYPENAME_TYPE)
21535 return type;
21536 /* If the SCOPE is a template type parameter, we have no way of
21537 resolving the name. */
21538 if (TREE_CODE (scope) == TEMPLATE_TYPE_PARM)
21539 return type;
21540 /* If the SCOPE is not the current instantiation, there's no reason
21541 to look inside it. */
21542 if (only_current_p && !currently_open_class (scope))
21543 return type;
21544 /* If this is a typedef, we don't want to look inside (c++/11987). */
21545 if (typedef_variant_p (type))
21546 return type;
21547 /* If SCOPE isn't the template itself, it will not have a valid
21548 TYPE_FIELDS list. */
21549 if (same_type_p (scope, CLASSTYPE_PRIMARY_TEMPLATE_TYPE (scope)))
21550 /* scope is either the template itself or a compatible instantiation
21551 like X<T>, so look up the name in the original template. */
21552 scope = CLASSTYPE_PRIMARY_TEMPLATE_TYPE (scope);
21553 else
21554 /* scope is a partial instantiation, so we can't do the lookup or we
21555 will lose the template arguments. */
21556 return type;
21557 /* Enter the SCOPE so that name lookup will be resolved as if we
21558 were in the class definition. In particular, SCOPE will no
21559 longer be considered a dependent type. */
21560 pushed_scope = push_scope (scope);
21561 /* Look up the declaration. */
21562 decl = lookup_member (scope, name, /*protect=*/0, /*want_type=*/true,
21563 tf_warning_or_error);
21565 result = NULL_TREE;
21567 /* For a TYPENAME_TYPE like "typename X::template Y<T>", we want to
21568 find a TEMPLATE_DECL. Otherwise, we want to find a TYPE_DECL. */
21569 if (!decl)
21570 /*nop*/;
21571 else if (identifier_p (TYPENAME_TYPE_FULLNAME (type))
21572 && TREE_CODE (decl) == TYPE_DECL)
21574 result = TREE_TYPE (decl);
21575 if (result == error_mark_node)
21576 result = NULL_TREE;
21578 else if (TREE_CODE (TYPENAME_TYPE_FULLNAME (type)) == TEMPLATE_ID_EXPR
21579 && DECL_CLASS_TEMPLATE_P (decl))
21581 tree tmpl;
21582 tree args;
21583 /* Obtain the template and the arguments. */
21584 tmpl = TREE_OPERAND (TYPENAME_TYPE_FULLNAME (type), 0);
21585 args = TREE_OPERAND (TYPENAME_TYPE_FULLNAME (type), 1);
21586 /* Instantiate the template. */
21587 result = lookup_template_class (tmpl, args, NULL_TREE, NULL_TREE,
21588 /*entering_scope=*/0,
21589 tf_error | tf_user);
21590 if (result == error_mark_node)
21591 result = NULL_TREE;
21594 /* Leave the SCOPE. */
21595 if (pushed_scope)
21596 pop_scope (pushed_scope);
21598 /* If we failed to resolve it, return the original typename. */
21599 if (!result)
21600 return type;
21602 /* If lookup found a typename type, resolve that too. */
21603 if (TREE_CODE (result) == TYPENAME_TYPE && !TYPENAME_IS_RESOLVING_P (result))
21605 /* Ill-formed programs can cause infinite recursion here, so we
21606 must catch that. */
21607 TYPENAME_IS_RESOLVING_P (type) = 1;
21608 result = resolve_typename_type (result, only_current_p);
21609 TYPENAME_IS_RESOLVING_P (type) = 0;
21612 /* Qualify the resulting type. */
21613 quals = cp_type_quals (type);
21614 if (quals)
21615 result = cp_build_qualified_type (result, cp_type_quals (result) | quals);
21617 return result;
21620 /* EXPR is an expression which is not type-dependent. Return a proxy
21621 for EXPR that can be used to compute the types of larger
21622 expressions containing EXPR. */
21624 tree
21625 build_non_dependent_expr (tree expr)
21627 tree inner_expr;
21629 #ifdef ENABLE_CHECKING
21630 /* Try to get a constant value for all non-dependent expressions in
21631 order to expose bugs in *_dependent_expression_p and constexpr. */
21632 if (cxx_dialect >= cxx11)
21633 maybe_constant_value (fold_non_dependent_expr_sfinae (expr, tf_none));
21634 #endif
21636 /* Preserve OVERLOADs; the functions must be available to resolve
21637 types. */
21638 inner_expr = expr;
21639 if (TREE_CODE (inner_expr) == STMT_EXPR)
21640 inner_expr = stmt_expr_value_expr (inner_expr);
21641 if (TREE_CODE (inner_expr) == ADDR_EXPR)
21642 inner_expr = TREE_OPERAND (inner_expr, 0);
21643 if (TREE_CODE (inner_expr) == COMPONENT_REF)
21644 inner_expr = TREE_OPERAND (inner_expr, 1);
21645 if (is_overloaded_fn (inner_expr)
21646 || TREE_CODE (inner_expr) == OFFSET_REF)
21647 return expr;
21648 /* There is no need to return a proxy for a variable. */
21649 if (VAR_P (expr))
21650 return expr;
21651 /* Preserve string constants; conversions from string constants to
21652 "char *" are allowed, even though normally a "const char *"
21653 cannot be used to initialize a "char *". */
21654 if (TREE_CODE (expr) == STRING_CST)
21655 return expr;
21656 /* Preserve void and arithmetic constants, as an optimization -- there is no
21657 reason to create a new node. */
21658 if (TREE_CODE (expr) == VOID_CST
21659 || TREE_CODE (expr) == INTEGER_CST
21660 || TREE_CODE (expr) == REAL_CST)
21661 return expr;
21662 /* Preserve THROW_EXPRs -- all throw-expressions have type "void".
21663 There is at least one place where we want to know that a
21664 particular expression is a throw-expression: when checking a ?:
21665 expression, there are special rules if the second or third
21666 argument is a throw-expression. */
21667 if (TREE_CODE (expr) == THROW_EXPR)
21668 return expr;
21670 /* Don't wrap an initializer list, we need to be able to look inside. */
21671 if (BRACE_ENCLOSED_INITIALIZER_P (expr))
21672 return expr;
21674 /* Don't wrap a dummy object, we need to be able to test for it. */
21675 if (is_dummy_object (expr))
21676 return expr;
21678 if (TREE_CODE (expr) == COND_EXPR)
21679 return build3 (COND_EXPR,
21680 TREE_TYPE (expr),
21681 TREE_OPERAND (expr, 0),
21682 (TREE_OPERAND (expr, 1)
21683 ? build_non_dependent_expr (TREE_OPERAND (expr, 1))
21684 : build_non_dependent_expr (TREE_OPERAND (expr, 0))),
21685 build_non_dependent_expr (TREE_OPERAND (expr, 2)));
21686 if (TREE_CODE (expr) == COMPOUND_EXPR
21687 && !COMPOUND_EXPR_OVERLOADED (expr))
21688 return build2 (COMPOUND_EXPR,
21689 TREE_TYPE (expr),
21690 TREE_OPERAND (expr, 0),
21691 build_non_dependent_expr (TREE_OPERAND (expr, 1)));
21693 /* If the type is unknown, it can't really be non-dependent */
21694 gcc_assert (TREE_TYPE (expr) != unknown_type_node);
21696 /* Otherwise, build a NON_DEPENDENT_EXPR. */
21697 return build1 (NON_DEPENDENT_EXPR, TREE_TYPE (expr), expr);
21700 /* ARGS is a vector of expressions as arguments to a function call.
21701 Replace the arguments with equivalent non-dependent expressions.
21702 This modifies ARGS in place. */
21704 void
21705 make_args_non_dependent (vec<tree, va_gc> *args)
21707 unsigned int ix;
21708 tree arg;
21710 FOR_EACH_VEC_SAFE_ELT (args, ix, arg)
21712 tree newarg = build_non_dependent_expr (arg);
21713 if (newarg != arg)
21714 (*args)[ix] = newarg;
21718 /* Returns a type which represents 'auto' or 'decltype(auto)'. We use a
21719 TEMPLATE_TYPE_PARM with a level one deeper than the actual template
21720 parms. */
21722 static tree
21723 make_auto_1 (tree name)
21725 tree au = cxx_make_type (TEMPLATE_TYPE_PARM);
21726 TYPE_NAME (au) = build_decl (input_location,
21727 TYPE_DECL, name, au);
21728 TYPE_STUB_DECL (au) = TYPE_NAME (au);
21729 TEMPLATE_TYPE_PARM_INDEX (au) = build_template_parm_index
21730 (0, processing_template_decl + 1, processing_template_decl + 1,
21731 TYPE_NAME (au), NULL_TREE);
21732 TYPE_CANONICAL (au) = canonical_type_parameter (au);
21733 DECL_ARTIFICIAL (TYPE_NAME (au)) = 1;
21734 SET_DECL_TEMPLATE_PARM_P (TYPE_NAME (au));
21736 return au;
21739 tree
21740 make_decltype_auto (void)
21742 return make_auto_1 (get_identifier ("decltype(auto)"));
21745 tree
21746 make_auto (void)
21748 return make_auto_1 (get_identifier ("auto"));
21751 /* Given type ARG, return std::initializer_list<ARG>. */
21753 static tree
21754 listify (tree arg)
21756 tree std_init_list = namespace_binding
21757 (get_identifier ("initializer_list"), std_node);
21758 tree argvec;
21759 if (!std_init_list || !DECL_CLASS_TEMPLATE_P (std_init_list))
21761 error ("deducing from brace-enclosed initializer list requires "
21762 "#include <initializer_list>");
21763 return error_mark_node;
21765 argvec = make_tree_vec (1);
21766 TREE_VEC_ELT (argvec, 0) = arg;
21767 return lookup_template_class (std_init_list, argvec, NULL_TREE,
21768 NULL_TREE, 0, tf_warning_or_error);
21771 /* Replace auto in TYPE with std::initializer_list<auto>. */
21773 static tree
21774 listify_autos (tree type, tree auto_node)
21776 tree init_auto = listify (auto_node);
21777 tree argvec = make_tree_vec (1);
21778 TREE_VEC_ELT (argvec, 0) = init_auto;
21779 if (processing_template_decl)
21780 argvec = add_to_template_args (current_template_args (), argvec);
21781 return tsubst (type, argvec, tf_warning_or_error, NULL_TREE);
21784 /* Replace occurrences of 'auto' in TYPE with the appropriate type deduced
21785 from INIT. AUTO_NODE is the TEMPLATE_TYPE_PARM used for 'auto' in TYPE. */
21787 tree
21788 do_auto_deduction (tree type, tree init, tree auto_node)
21790 tree targs;
21792 if (init == error_mark_node)
21793 return error_mark_node;
21795 if (type_dependent_expression_p (init))
21796 /* Defining a subset of type-dependent expressions that we can deduce
21797 from ahead of time isn't worth the trouble. */
21798 return type;
21800 /* [dcl.spec.auto]: Obtain P from T by replacing the occurrences of auto
21801 with either a new invented type template parameter U or, if the
21802 initializer is a braced-init-list (8.5.4), with
21803 std::initializer_list<U>. */
21804 if (BRACE_ENCLOSED_INITIALIZER_P (init))
21805 type = listify_autos (type, auto_node);
21807 init = resolve_nondeduced_context (init);
21809 targs = make_tree_vec (1);
21810 if (AUTO_IS_DECLTYPE (auto_node))
21812 bool id = (DECL_P (init) || (TREE_CODE (init) == COMPONENT_REF
21813 && !REF_PARENTHESIZED_P (init)));
21814 TREE_VEC_ELT (targs, 0)
21815 = finish_decltype_type (init, id, tf_warning_or_error);
21816 if (type != auto_node)
21818 error ("%qT as type rather than plain %<decltype(auto)%>", type);
21819 return error_mark_node;
21822 else
21824 tree parms = build_tree_list (NULL_TREE, type);
21825 tree tparms = make_tree_vec (1);
21826 int val;
21828 TREE_VEC_ELT (tparms, 0)
21829 = build_tree_list (NULL_TREE, TYPE_NAME (auto_node));
21830 val = type_unification_real (tparms, targs, parms, &init, 1, 0,
21831 DEDUCE_CALL, LOOKUP_NORMAL,
21832 NULL, /*explain_p=*/false);
21833 if (val > 0)
21835 if (processing_template_decl)
21836 /* Try again at instantiation time. */
21837 return type;
21838 if (type && type != error_mark_node)
21839 /* If type is error_mark_node a diagnostic must have been
21840 emitted by now. Also, having a mention to '<type error>'
21841 in the diagnostic is not really useful to the user. */
21843 if (cfun && auto_node == current_function_auto_return_pattern
21844 && LAMBDA_FUNCTION_P (current_function_decl))
21845 error ("unable to deduce lambda return type from %qE", init);
21846 else
21847 error ("unable to deduce %qT from %qE", type, init);
21849 return error_mark_node;
21853 /* If the list of declarators contains more than one declarator, the type
21854 of each declared variable is determined as described above. If the
21855 type deduced for the template parameter U is not the same in each
21856 deduction, the program is ill-formed. */
21857 if (TREE_TYPE (auto_node)
21858 && !same_type_p (TREE_TYPE (auto_node), TREE_VEC_ELT (targs, 0)))
21860 if (cfun && auto_node == current_function_auto_return_pattern
21861 && LAMBDA_FUNCTION_P (current_function_decl))
21862 error ("inconsistent types %qT and %qT deduced for "
21863 "lambda return type", TREE_TYPE (auto_node),
21864 TREE_VEC_ELT (targs, 0));
21865 else
21866 error ("inconsistent deduction for %qT: %qT and then %qT",
21867 auto_node, TREE_TYPE (auto_node), TREE_VEC_ELT (targs, 0));
21868 return error_mark_node;
21870 TREE_TYPE (auto_node) = TREE_VEC_ELT (targs, 0);
21872 if (processing_template_decl)
21873 targs = add_to_template_args (current_template_args (), targs);
21874 return tsubst (type, targs, tf_warning_or_error, NULL_TREE);
21877 /* Substitutes LATE_RETURN_TYPE for 'auto' in TYPE and returns the
21878 result. */
21880 tree
21881 splice_late_return_type (tree type, tree late_return_type)
21883 tree argvec;
21885 if (late_return_type == NULL_TREE)
21886 return type;
21887 argvec = make_tree_vec (1);
21888 TREE_VEC_ELT (argvec, 0) = late_return_type;
21889 if (processing_template_parmlist)
21890 /* For a late-specified return type in a template type-parameter, we
21891 need to add a dummy argument level for its parmlist. */
21892 argvec = add_to_template_args
21893 (make_tree_vec (processing_template_parmlist), argvec);
21894 if (current_template_parms)
21895 argvec = add_to_template_args (current_template_args (), argvec);
21896 return tsubst (type, argvec, tf_warning_or_error, NULL_TREE);
21899 /* Returns true iff TYPE is a TEMPLATE_TYPE_PARM representing 'auto' or
21900 'decltype(auto)'. */
21902 bool
21903 is_auto (const_tree type)
21905 if (TREE_CODE (type) == TEMPLATE_TYPE_PARM
21906 && (TYPE_IDENTIFIER (type) == get_identifier ("auto")
21907 || TYPE_IDENTIFIER (type) == get_identifier ("decltype(auto)")))
21908 return true;
21909 else
21910 return false;
21913 /* Returns the TEMPLATE_TYPE_PARM in TYPE representing `auto' iff TYPE contains
21914 a use of `auto'. Returns NULL_TREE otherwise. */
21916 tree
21917 type_uses_auto (tree type)
21919 return find_type_usage (type, is_auto);
21922 /* Returns true iff TYPE is a TEMPLATE_TYPE_PARM representing 'auto',
21923 'decltype(auto)' or a concept. */
21925 bool
21926 is_auto_or_concept (const_tree type)
21928 return is_auto (type); // or concept
21931 /* Returns the TEMPLATE_TYPE_PARM in TYPE representing a generic type (`auto' or
21932 a concept identifier) iff TYPE contains a use of a generic type. Returns
21933 NULL_TREE otherwise. */
21935 tree
21936 type_uses_auto_or_concept (tree type)
21938 return find_type_usage (type, is_auto_or_concept);
21942 /* For a given template T, return the vector of typedefs referenced
21943 in T for which access check is needed at T instantiation time.
21944 T is either a FUNCTION_DECL or a RECORD_TYPE.
21945 Those typedefs were added to T by the function
21946 append_type_to_template_for_access_check. */
21948 vec<qualified_typedef_usage_t, va_gc> *
21949 get_types_needing_access_check (tree t)
21951 tree ti;
21952 vec<qualified_typedef_usage_t, va_gc> *result = NULL;
21954 if (!t || t == error_mark_node)
21955 return NULL;
21957 if (!(ti = get_template_info (t)))
21958 return NULL;
21960 if (CLASS_TYPE_P (t)
21961 || TREE_CODE (t) == FUNCTION_DECL)
21963 if (!TI_TEMPLATE (ti))
21964 return NULL;
21966 result = TI_TYPEDEFS_NEEDING_ACCESS_CHECKING (ti);
21969 return result;
21972 /* Append the typedef TYPE_DECL used in template T to a list of typedefs
21973 tied to T. That list of typedefs will be access checked at
21974 T instantiation time.
21975 T is either a FUNCTION_DECL or a RECORD_TYPE.
21976 TYPE_DECL is a TYPE_DECL node representing a typedef.
21977 SCOPE is the scope through which TYPE_DECL is accessed.
21978 LOCATION is the location of the usage point of TYPE_DECL.
21980 This function is a subroutine of
21981 append_type_to_template_for_access_check. */
21983 static void
21984 append_type_to_template_for_access_check_1 (tree t,
21985 tree type_decl,
21986 tree scope,
21987 location_t location)
21989 qualified_typedef_usage_t typedef_usage;
21990 tree ti;
21992 if (!t || t == error_mark_node)
21993 return;
21995 gcc_assert ((TREE_CODE (t) == FUNCTION_DECL
21996 || CLASS_TYPE_P (t))
21997 && type_decl
21998 && TREE_CODE (type_decl) == TYPE_DECL
21999 && scope);
22001 if (!(ti = get_template_info (t)))
22002 return;
22004 gcc_assert (TI_TEMPLATE (ti));
22006 typedef_usage.typedef_decl = type_decl;
22007 typedef_usage.context = scope;
22008 typedef_usage.locus = location;
22010 vec_safe_push (TI_TYPEDEFS_NEEDING_ACCESS_CHECKING (ti), typedef_usage);
22013 /* Append TYPE_DECL to the template TEMPL.
22014 TEMPL is either a class type, a FUNCTION_DECL or a a TEMPLATE_DECL.
22015 At TEMPL instanciation time, TYPE_DECL will be checked to see
22016 if it can be accessed through SCOPE.
22017 LOCATION is the location of the usage point of TYPE_DECL.
22019 e.g. consider the following code snippet:
22021 class C
22023 typedef int myint;
22026 template<class U> struct S
22028 C::myint mi; // <-- usage point of the typedef C::myint
22031 S<char> s;
22033 At S<char> instantiation time, we need to check the access of C::myint
22034 In other words, we need to check the access of the myint typedef through
22035 the C scope. For that purpose, this function will add the myint typedef
22036 and the scope C through which its being accessed to a list of typedefs
22037 tied to the template S. That list will be walked at template instantiation
22038 time and access check performed on each typedefs it contains.
22039 Note that this particular code snippet should yield an error because
22040 myint is private to C. */
22042 void
22043 append_type_to_template_for_access_check (tree templ,
22044 tree type_decl,
22045 tree scope,
22046 location_t location)
22048 qualified_typedef_usage_t *iter;
22049 unsigned i;
22051 gcc_assert (type_decl && (TREE_CODE (type_decl) == TYPE_DECL));
22053 /* Make sure we don't append the type to the template twice. */
22054 FOR_EACH_VEC_SAFE_ELT (get_types_needing_access_check (templ), i, iter)
22055 if (iter->typedef_decl == type_decl && scope == iter->context)
22056 return;
22058 append_type_to_template_for_access_check_1 (templ, type_decl,
22059 scope, location);
22062 /* Convert the generic type parameters in PARM that match the types given in the
22063 range [START_IDX, END_IDX) from the current_template_parms into generic type
22064 packs. */
22066 tree
22067 convert_generic_types_to_packs (tree parm, int start_idx, int end_idx)
22069 tree current = current_template_parms;
22070 int depth = TMPL_PARMS_DEPTH (current);
22071 current = INNERMOST_TEMPLATE_PARMS (current);
22072 tree replacement = make_tree_vec (TREE_VEC_LENGTH (current));
22074 for (int i = 0; i < start_idx; ++i)
22075 TREE_VEC_ELT (replacement, i)
22076 = TREE_TYPE (TREE_VALUE (TREE_VEC_ELT (current, i)));
22078 for (int i = start_idx; i < end_idx; ++i)
22080 /* Create a distinct parameter pack type from the current parm and add it
22081 to the replacement args to tsubst below into the generic function
22082 parameter. */
22084 tree o = TREE_TYPE (TREE_VALUE
22085 (TREE_VEC_ELT (current, i)));
22086 tree t = copy_type (o);
22087 TEMPLATE_TYPE_PARM_INDEX (t)
22088 = reduce_template_parm_level (TEMPLATE_TYPE_PARM_INDEX (o),
22089 o, 0, 0, tf_none);
22090 TREE_TYPE (TEMPLATE_TYPE_DECL (t)) = t;
22091 TYPE_STUB_DECL (t) = TYPE_NAME (t) = TEMPLATE_TYPE_DECL (t);
22092 TYPE_MAIN_VARIANT (t) = t;
22093 TEMPLATE_TYPE_PARAMETER_PACK (t) = true;
22094 TYPE_CANONICAL (t) = canonical_type_parameter (t);
22095 TREE_VEC_ELT (replacement, i) = t;
22096 TREE_VALUE (TREE_VEC_ELT (current, i)) = TREE_CHAIN (t);
22099 for (int i = end_idx, e = TREE_VEC_LENGTH (current); i < e; ++i)
22100 TREE_VEC_ELT (replacement, i)
22101 = TREE_TYPE (TREE_VALUE (TREE_VEC_ELT (current, i)));
22103 /* If there are more levels then build up the replacement with the outer
22104 template parms. */
22105 if (depth > 1)
22106 replacement = add_to_template_args (template_parms_to_args
22107 (TREE_CHAIN (current_template_parms)),
22108 replacement);
22110 return tsubst (parm, replacement, tf_none, NULL_TREE);
22114 /* Set up the hash tables for template instantiations. */
22116 void
22117 init_template_processing (void)
22119 decl_specializations = htab_create_ggc (37,
22120 hash_specialization,
22121 eq_specializations,
22122 ggc_free);
22123 type_specializations = htab_create_ggc (37,
22124 hash_specialization,
22125 eq_specializations,
22126 ggc_free);
22129 /* Print stats about the template hash tables for -fstats. */
22131 void
22132 print_template_statistics (void)
22134 fprintf (stderr, "decl_specializations: size %ld, %ld elements, "
22135 "%f collisions\n", (long) htab_size (decl_specializations),
22136 (long) htab_elements (decl_specializations),
22137 htab_collisions (decl_specializations));
22138 fprintf (stderr, "type_specializations: size %ld, %ld elements, "
22139 "%f collisions\n", (long) htab_size (type_specializations),
22140 (long) htab_elements (type_specializations),
22141 htab_collisions (type_specializations));
22144 #include "gt-cp-pt.h"