Merge from branches/gcc-4_8-branch up to rev 207411.
[official-gcc.git] / gcc-4_8-branch / gcc / cp / pt.c
blob2ac1e66a5c74b5b62d8623c3ea03b91d9b5e3259
1 /* Handle parameterized types (templates) for GNU C++.
2 Copyright (C) 1992-2013 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 "intl.h"
33 #include "pointer-set.h"
34 #include "flags.h"
35 #include "cp-tree.h"
36 #include "c-family/c-common.h"
37 #include "c-family/c-objc.h"
38 #include "cp-objcp-common.h"
39 #include "tree-inline.h"
40 #include "decl.h"
41 #include "toplev.h"
42 #include "timevar.h"
43 #include "tree-iterator.h"
45 /* The type of functions taking a tree, and some additional data, and
46 returning an int. */
47 typedef int (*tree_fn_t) (tree, void*);
49 /* The PENDING_TEMPLATES is a TREE_LIST of templates whose
50 instantiations have been deferred, either because their definitions
51 were not yet available, or because we were putting off doing the work. */
52 struct GTY ((chain_next ("%h.next"))) pending_template {
53 struct pending_template *next;
54 struct tinst_level *tinst;
57 static GTY(()) struct pending_template *pending_templates;
58 static GTY(()) struct pending_template *last_pending_template;
60 int processing_template_parmlist;
61 static int template_header_count;
63 static GTY(()) tree saved_trees;
64 static vec<int> inline_parm_levels;
66 static GTY(()) struct tinst_level *current_tinst_level;
68 static GTY(()) tree saved_access_scope;
70 /* Live only within one (recursive) call to tsubst_expr. We use
71 this to pass the statement expression node from the STMT_EXPR
72 to the EXPR_STMT that is its result. */
73 static tree cur_stmt_expr;
75 /* A map from local variable declarations in the body of the template
76 presently being instantiated to the corresponding instantiated
77 local variables. */
78 static struct pointer_map_t *local_specializations;
80 /* True if we've recursed into fn_type_unification too many times. */
81 static bool excessive_deduction_depth;
83 typedef struct GTY(()) spec_entry
85 tree tmpl;
86 tree args;
87 tree spec;
88 } spec_entry;
90 static GTY ((param_is (spec_entry)))
91 htab_t decl_specializations;
93 static GTY ((param_is (spec_entry)))
94 htab_t type_specializations;
96 /* Contains canonical template parameter types. The vector is indexed by
97 the TEMPLATE_TYPE_IDX of the template parameter. Each element is a
98 TREE_LIST, whose TREE_VALUEs contain the canonical template
99 parameters of various types and levels. */
100 static GTY(()) vec<tree, va_gc> *canonical_template_parms;
102 #define UNIFY_ALLOW_NONE 0
103 #define UNIFY_ALLOW_MORE_CV_QUAL 1
104 #define UNIFY_ALLOW_LESS_CV_QUAL 2
105 #define UNIFY_ALLOW_DERIVED 4
106 #define UNIFY_ALLOW_INTEGER 8
107 #define UNIFY_ALLOW_OUTER_LEVEL 16
108 #define UNIFY_ALLOW_OUTER_MORE_CV_QUAL 32
109 #define UNIFY_ALLOW_OUTER_LESS_CV_QUAL 64
111 enum template_base_result {
112 tbr_incomplete_type,
113 tbr_ambiguous_baseclass,
114 tbr_success
117 static void push_access_scope (tree);
118 static void pop_access_scope (tree);
119 static bool resolve_overloaded_unification (tree, tree, tree, tree,
120 unification_kind_t, int,
121 bool);
122 static int try_one_overload (tree, tree, tree, tree, tree,
123 unification_kind_t, int, bool, bool);
124 static int unify (tree, tree, tree, tree, int, bool);
125 static void add_pending_template (tree);
126 static tree reopen_tinst_level (struct tinst_level *);
127 static tree tsubst_initializer_list (tree, tree);
128 static tree get_class_bindings (tree, tree, tree, tree);
129 static tree coerce_template_parms (tree, tree, tree, tsubst_flags_t,
130 bool, bool);
131 static tree coerce_innermost_template_parms (tree, tree, tree, tsubst_flags_t,
132 bool, bool);
133 static void tsubst_enum (tree, tree, tree);
134 static tree add_to_template_args (tree, tree);
135 static tree add_outermost_template_args (tree, tree);
136 static bool check_instantiated_args (tree, tree, tsubst_flags_t);
137 static int maybe_adjust_types_for_deduction (unification_kind_t, tree*, tree*,
138 tree);
139 static int type_unification_real (tree, tree, tree, const tree *,
140 unsigned int, int, unification_kind_t, int,
141 vec<deferred_access_check, va_gc> **,
142 bool);
143 static void note_template_header (int);
144 static tree convert_nontype_argument_function (tree, tree);
145 static tree convert_nontype_argument (tree, tree, tsubst_flags_t);
146 static tree convert_template_argument (tree, tree, tree,
147 tsubst_flags_t, int, tree);
148 static int for_each_template_parm (tree, tree_fn_t, void*,
149 struct pointer_set_t*, bool);
150 static tree expand_template_argument_pack (tree);
151 static tree build_template_parm_index (int, int, int, tree, tree);
152 static bool inline_needs_template_parms (tree);
153 static void push_inline_template_parms_recursive (tree, int);
154 static tree retrieve_local_specialization (tree);
155 static void register_local_specialization (tree, tree);
156 static hashval_t hash_specialization (const void *p);
157 static tree reduce_template_parm_level (tree, tree, int, tree, tsubst_flags_t);
158 static int mark_template_parm (tree, void *);
159 static int template_parm_this_level_p (tree, void *);
160 static tree tsubst_friend_function (tree, tree);
161 static tree tsubst_friend_class (tree, tree);
162 static int can_complete_type_without_circularity (tree);
163 static tree get_bindings (tree, tree, tree, bool);
164 static int template_decl_level (tree);
165 static int check_cv_quals_for_unify (int, tree, tree);
166 static void template_parm_level_and_index (tree, int*, int*);
167 static int unify_pack_expansion (tree, tree, tree,
168 tree, unification_kind_t, bool, bool);
169 static tree tsubst_template_arg (tree, tree, tsubst_flags_t, tree);
170 static tree tsubst_template_args (tree, tree, tsubst_flags_t, tree);
171 static tree tsubst_template_parms (tree, tree, tsubst_flags_t);
172 static void regenerate_decl_from_template (tree, tree);
173 static tree most_specialized_class (tree, tsubst_flags_t);
174 static tree tsubst_aggr_type (tree, tree, tsubst_flags_t, tree, int);
175 static tree tsubst_arg_types (tree, tree, tree, tsubst_flags_t, tree);
176 static tree tsubst_function_type (tree, tree, tsubst_flags_t, tree);
177 static bool check_specialization_scope (void);
178 static tree process_partial_specialization (tree);
179 static void set_current_access_from_decl (tree);
180 static enum template_base_result get_template_base (tree, tree, tree, tree,
181 bool , tree *);
182 static tree try_class_unification (tree, tree, tree, tree, bool);
183 static int coerce_template_template_parms (tree, tree, tsubst_flags_t,
184 tree, tree);
185 static bool template_template_parm_bindings_ok_p (tree, tree);
186 static int template_args_equal (tree, tree);
187 static void tsubst_default_arguments (tree, tsubst_flags_t);
188 static tree for_each_template_parm_r (tree *, int *, void *);
189 static tree copy_default_args_to_explicit_spec_1 (tree, tree);
190 static void copy_default_args_to_explicit_spec (tree);
191 static int invalid_nontype_parm_type_p (tree, tsubst_flags_t);
192 static bool dependent_template_arg_p (tree);
193 static bool any_template_arguments_need_structural_equality_p (tree);
194 static bool dependent_type_p_r (tree);
195 static tree tsubst_expr (tree, tree, tsubst_flags_t, tree, bool);
196 static tree tsubst_copy (tree, tree, tsubst_flags_t, tree);
197 static tree tsubst_pack_expansion (tree, tree, tsubst_flags_t, tree);
198 static tree tsubst_decl (tree, tree, tsubst_flags_t);
199 static void perform_typedefs_access_check (tree tmpl, tree targs);
200 static void append_type_to_template_for_access_check_1 (tree, tree, tree,
201 location_t);
202 static tree listify (tree);
203 static tree listify_autos (tree, tree);
204 static tree template_parm_to_arg (tree t);
205 static tree current_template_args (void);
206 static tree tsubst_template_parm (tree, tree, tsubst_flags_t);
207 static tree instantiate_alias_template (tree, tree, tsubst_flags_t);
209 /* Make the current scope suitable for access checking when we are
210 processing T. T can be FUNCTION_DECL for instantiated function
211 template, VAR_DECL for static member variable, or TYPE_DECL for
212 alias template (needed by instantiate_decl). */
214 static void
215 push_access_scope (tree t)
217 gcc_assert (TREE_CODE (t) == FUNCTION_DECL
218 || TREE_CODE (t) == TYPE_DECL
219 || TREE_CODE (t) == VAR_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 (DECL_P (t) && DECL_LANG_SPECIFIC (t))
324 tinfo = DECL_TEMPLATE_INFO (t);
326 if (!tinfo && DECL_IMPLICIT_TYPEDEF_P (t))
327 t = TREE_TYPE (t);
329 if (TAGGED_TYPE_P (t))
330 tinfo = TYPE_TEMPLATE_INFO (t);
331 else if (TREE_CODE (t) == BOUND_TEMPLATE_TEMPLATE_PARM)
332 tinfo = TEMPLATE_TEMPLATE_PARM_TEMPLATE_INFO (t);
334 return tinfo;
337 /* Returns the template nesting level of the indicated class TYPE.
339 For example, in:
340 template <class T>
341 struct A
343 template <class U>
344 struct B {};
347 A<T>::B<U> has depth two, while A<T> has depth one.
348 Both A<T>::B<int> and A<int>::B<U> have depth one, if
349 they are instantiations, not specializations.
351 This function is guaranteed to return 0 if passed NULL_TREE so
352 that, for example, `template_class_depth (current_class_type)' is
353 always safe. */
356 template_class_depth (tree type)
358 int depth;
360 for (depth = 0;
361 type && TREE_CODE (type) != NAMESPACE_DECL;
362 type = (TREE_CODE (type) == FUNCTION_DECL)
363 ? CP_DECL_CONTEXT (type) : CP_TYPE_CONTEXT (type))
365 tree tinfo = get_template_info (type);
367 if (tinfo && PRIMARY_TEMPLATE_P (TI_TEMPLATE (tinfo))
368 && uses_template_parms (INNERMOST_TEMPLATE_ARGS (TI_ARGS (tinfo))))
369 ++depth;
372 return depth;
375 /* Subroutine of maybe_begin_member_template_processing.
376 Returns true if processing DECL needs us to push template parms. */
378 static bool
379 inline_needs_template_parms (tree decl)
381 if (! DECL_TEMPLATE_INFO (decl))
382 return false;
384 return (TMPL_PARMS_DEPTH (DECL_TEMPLATE_PARMS (most_general_template (decl)))
385 > (processing_template_decl + DECL_TEMPLATE_SPECIALIZATION (decl)));
388 /* Subroutine of maybe_begin_member_template_processing.
389 Push the template parms in PARMS, starting from LEVELS steps into the
390 chain, and ending at the beginning, since template parms are listed
391 innermost first. */
393 static void
394 push_inline_template_parms_recursive (tree parmlist, int levels)
396 tree parms = TREE_VALUE (parmlist);
397 int i;
399 if (levels > 1)
400 push_inline_template_parms_recursive (TREE_CHAIN (parmlist), levels - 1);
402 ++processing_template_decl;
403 current_template_parms
404 = tree_cons (size_int (processing_template_decl),
405 parms, current_template_parms);
406 TEMPLATE_PARMS_FOR_INLINE (current_template_parms) = 1;
408 begin_scope (TREE_VEC_LENGTH (parms) ? sk_template_parms : sk_template_spec,
409 NULL);
410 for (i = 0; i < TREE_VEC_LENGTH (parms); ++i)
412 tree parm = TREE_VALUE (TREE_VEC_ELT (parms, i));
414 if (parm == error_mark_node)
415 continue;
417 gcc_assert (DECL_P (parm));
419 switch (TREE_CODE (parm))
421 case TYPE_DECL:
422 case TEMPLATE_DECL:
423 pushdecl (parm);
424 break;
426 case PARM_DECL:
428 /* Make a CONST_DECL as is done in process_template_parm.
429 It is ugly that we recreate this here; the original
430 version built in process_template_parm is no longer
431 available. */
432 tree decl = build_decl (DECL_SOURCE_LOCATION (parm),
433 CONST_DECL, DECL_NAME (parm),
434 TREE_TYPE (parm));
435 DECL_ARTIFICIAL (decl) = 1;
436 TREE_CONSTANT (decl) = 1;
437 TREE_READONLY (decl) = 1;
438 DECL_INITIAL (decl) = DECL_INITIAL (parm);
439 SET_DECL_TEMPLATE_PARM_P (decl);
440 pushdecl (decl);
442 break;
444 default:
445 gcc_unreachable ();
450 /* Restore the template parameter context for a member template or
451 a friend template defined in a class definition. */
453 void
454 maybe_begin_member_template_processing (tree decl)
456 tree parms;
457 int levels = 0;
459 if (inline_needs_template_parms (decl))
461 parms = DECL_TEMPLATE_PARMS (most_general_template (decl));
462 levels = TMPL_PARMS_DEPTH (parms) - processing_template_decl;
464 if (DECL_TEMPLATE_SPECIALIZATION (decl))
466 --levels;
467 parms = TREE_CHAIN (parms);
470 push_inline_template_parms_recursive (parms, levels);
473 /* Remember how many levels of template parameters we pushed so that
474 we can pop them later. */
475 inline_parm_levels.safe_push (levels);
478 /* Undo the effects of maybe_begin_member_template_processing. */
480 void
481 maybe_end_member_template_processing (void)
483 int i;
484 int last;
486 if (inline_parm_levels.length () == 0)
487 return;
489 last = inline_parm_levels.pop ();
490 for (i = 0; i < last; ++i)
492 --processing_template_decl;
493 current_template_parms = TREE_CHAIN (current_template_parms);
494 poplevel (0, 0, 0);
498 /* Return a new template argument vector which contains all of ARGS,
499 but has as its innermost set of arguments the EXTRA_ARGS. */
501 static tree
502 add_to_template_args (tree args, tree extra_args)
504 tree new_args;
505 int extra_depth;
506 int i;
507 int j;
509 if (args == NULL_TREE || extra_args == error_mark_node)
510 return extra_args;
512 extra_depth = TMPL_ARGS_DEPTH (extra_args);
513 new_args = make_tree_vec (TMPL_ARGS_DEPTH (args) + extra_depth);
515 for (i = 1; i <= TMPL_ARGS_DEPTH (args); ++i)
516 SET_TMPL_ARGS_LEVEL (new_args, i, TMPL_ARGS_LEVEL (args, i));
518 for (j = 1; j <= extra_depth; ++j, ++i)
519 SET_TMPL_ARGS_LEVEL (new_args, i, TMPL_ARGS_LEVEL (extra_args, j));
521 return new_args;
524 /* Like add_to_template_args, but only the outermost ARGS are added to
525 the EXTRA_ARGS. In particular, all but TMPL_ARGS_DEPTH
526 (EXTRA_ARGS) levels are added. This function is used to combine
527 the template arguments from a partial instantiation with the
528 template arguments used to attain the full instantiation from the
529 partial instantiation. */
531 static tree
532 add_outermost_template_args (tree args, tree extra_args)
534 tree new_args;
536 /* If there are more levels of EXTRA_ARGS than there are ARGS,
537 something very fishy is going on. */
538 gcc_assert (TMPL_ARGS_DEPTH (args) >= TMPL_ARGS_DEPTH (extra_args));
540 /* If *all* the new arguments will be the EXTRA_ARGS, just return
541 them. */
542 if (TMPL_ARGS_DEPTH (args) == TMPL_ARGS_DEPTH (extra_args))
543 return extra_args;
545 /* For the moment, we make ARGS look like it contains fewer levels. */
546 TREE_VEC_LENGTH (args) -= TMPL_ARGS_DEPTH (extra_args);
548 new_args = add_to_template_args (args, extra_args);
550 /* Now, we restore ARGS to its full dimensions. */
551 TREE_VEC_LENGTH (args) += TMPL_ARGS_DEPTH (extra_args);
553 return new_args;
556 /* Return the N levels of innermost template arguments from the ARGS. */
558 tree
559 get_innermost_template_args (tree args, int n)
561 tree new_args;
562 int extra_levels;
563 int i;
565 gcc_assert (n >= 0);
567 /* If N is 1, just return the innermost set of template arguments. */
568 if (n == 1)
569 return TMPL_ARGS_LEVEL (args, TMPL_ARGS_DEPTH (args));
571 /* If we're not removing anything, just return the arguments we were
572 given. */
573 extra_levels = TMPL_ARGS_DEPTH (args) - n;
574 gcc_assert (extra_levels >= 0);
575 if (extra_levels == 0)
576 return args;
578 /* Make a new set of arguments, not containing the outer arguments. */
579 new_args = make_tree_vec (n);
580 for (i = 1; i <= n; ++i)
581 SET_TMPL_ARGS_LEVEL (new_args, i,
582 TMPL_ARGS_LEVEL (args, i + extra_levels));
584 return new_args;
587 /* The inverse of get_innermost_template_args: Return all but the innermost
588 EXTRA_LEVELS levels of template arguments from the ARGS. */
590 static tree
591 strip_innermost_template_args (tree args, int extra_levels)
593 tree new_args;
594 int n = TMPL_ARGS_DEPTH (args) - extra_levels;
595 int i;
597 gcc_assert (n >= 0);
599 /* If N is 1, just return the outermost set of template arguments. */
600 if (n == 1)
601 return TMPL_ARGS_LEVEL (args, 1);
603 /* If we're not removing anything, just return the arguments we were
604 given. */
605 gcc_assert (extra_levels >= 0);
606 if (extra_levels == 0)
607 return args;
609 /* Make a new set of arguments, not containing the inner arguments. */
610 new_args = make_tree_vec (n);
611 for (i = 1; i <= n; ++i)
612 SET_TMPL_ARGS_LEVEL (new_args, i,
613 TMPL_ARGS_LEVEL (args, i));
615 return new_args;
618 /* We've got a template header coming up; push to a new level for storing
619 the parms. */
621 void
622 begin_template_parm_list (void)
624 /* We use a non-tag-transparent scope here, which causes pushtag to
625 put tags in this scope, rather than in the enclosing class or
626 namespace scope. This is the right thing, since we want
627 TEMPLATE_DECLS, and not TYPE_DECLS for template classes. For a
628 global template class, push_template_decl handles putting the
629 TEMPLATE_DECL into top-level scope. For a nested template class,
630 e.g.:
632 template <class T> struct S1 {
633 template <class T> struct S2 {};
636 pushtag contains special code to call pushdecl_with_scope on the
637 TEMPLATE_DECL for S2. */
638 begin_scope (sk_template_parms, NULL);
639 ++processing_template_decl;
640 ++processing_template_parmlist;
641 note_template_header (0);
644 /* This routine is called when a specialization is declared. If it is
645 invalid to declare a specialization here, an error is reported and
646 false is returned, otherwise this routine will return true. */
648 static bool
649 check_specialization_scope (void)
651 tree scope = current_scope ();
653 /* [temp.expl.spec]
655 An explicit specialization shall be declared in the namespace of
656 which the template is a member, or, for member templates, in the
657 namespace of which the enclosing class or enclosing class
658 template is a member. An explicit specialization of a member
659 function, member class or static data member of a class template
660 shall be declared in the namespace of which the class template
661 is a member. */
662 if (scope && TREE_CODE (scope) != NAMESPACE_DECL)
664 error ("explicit specialization in non-namespace scope %qD", scope);
665 return false;
668 /* [temp.expl.spec]
670 In an explicit specialization declaration for a member of a class
671 template or a member template that appears in namespace scope,
672 the member template and some of its enclosing class templates may
673 remain unspecialized, except that the declaration shall not
674 explicitly specialize a class member template if its enclosing
675 class templates are not explicitly specialized as well. */
676 if (current_template_parms)
678 error ("enclosing class templates are not explicitly specialized");
679 return false;
682 return true;
685 /* We've just seen template <>. */
687 bool
688 begin_specialization (void)
690 begin_scope (sk_template_spec, NULL);
691 note_template_header (1);
692 return check_specialization_scope ();
695 /* Called at then end of processing a declaration preceded by
696 template<>. */
698 void
699 end_specialization (void)
701 finish_scope ();
702 reset_specialization ();
705 /* Any template <>'s that we have seen thus far are not referring to a
706 function specialization. */
708 void
709 reset_specialization (void)
711 processing_specialization = 0;
712 template_header_count = 0;
715 /* We've just seen a template header. If SPECIALIZATION is nonzero,
716 it was of the form template <>. */
718 static void
719 note_template_header (int specialization)
721 processing_specialization = specialization;
722 template_header_count++;
725 /* We're beginning an explicit instantiation. */
727 void
728 begin_explicit_instantiation (void)
730 gcc_assert (!processing_explicit_instantiation);
731 processing_explicit_instantiation = true;
735 void
736 end_explicit_instantiation (void)
738 gcc_assert (processing_explicit_instantiation);
739 processing_explicit_instantiation = false;
742 /* An explicit specialization or partial specialization of TMPL is being
743 declared. Check that the namespace in which the specialization is
744 occurring is permissible. Returns false iff it is invalid to
745 specialize TMPL in the current namespace. */
747 static bool
748 check_specialization_namespace (tree tmpl)
750 tree tpl_ns = decl_namespace_context (tmpl);
752 /* [tmpl.expl.spec]
754 An explicit specialization shall be declared in the namespace of
755 which the template is a member, or, for member templates, in the
756 namespace of which the enclosing class or enclosing class
757 template is a member. An explicit specialization of a member
758 function, member class or static data member of a class template
759 shall be declared in the namespace of which the class template is
760 a member. */
761 if (current_scope() != DECL_CONTEXT (tmpl)
762 && !at_namespace_scope_p ())
764 error ("specialization of %qD must appear at namespace scope", tmpl);
765 return false;
767 if (is_associated_namespace (current_namespace, tpl_ns))
768 /* Same or super-using namespace. */
769 return true;
770 else
772 permerror (input_location, "specialization of %qD in different namespace", tmpl);
773 permerror (input_location, " from definition of %q+#D", tmpl);
774 return false;
778 /* SPEC is an explicit instantiation. Check that it is valid to
779 perform this explicit instantiation in the current namespace. */
781 static void
782 check_explicit_instantiation_namespace (tree spec)
784 tree ns;
786 /* DR 275: An explicit instantiation shall appear in an enclosing
787 namespace of its template. */
788 ns = decl_namespace_context (spec);
789 if (!is_ancestor (current_namespace, ns))
790 permerror (input_location, "explicit instantiation of %qD in namespace %qD "
791 "(which does not enclose namespace %qD)",
792 spec, current_namespace, ns);
795 /* The TYPE is being declared. If it is a template type, that means it
796 is a partial specialization. Do appropriate error-checking. */
798 tree
799 maybe_process_partial_specialization (tree type)
801 tree context;
803 if (type == error_mark_node)
804 return error_mark_node;
806 /* A lambda that appears in specialization context is not itself a
807 specialization. */
808 if (CLASS_TYPE_P (type) && CLASSTYPE_LAMBDA_EXPR (type))
809 return type;
811 if (TREE_CODE (type) == BOUND_TEMPLATE_TEMPLATE_PARM)
813 error ("name of class shadows template template parameter %qD",
814 TYPE_NAME (type));
815 return error_mark_node;
818 context = TYPE_CONTEXT (type);
820 if (TYPE_ALIAS_P (type))
822 if (TYPE_TEMPLATE_INFO (type)
823 && DECL_ALIAS_TEMPLATE_P (TYPE_TI_TEMPLATE (type)))
824 error ("specialization of alias template %qD",
825 TYPE_TI_TEMPLATE (type));
826 else
827 error ("explicit specialization of non-template %qT", type);
828 return error_mark_node;
830 else if (CLASS_TYPE_P (type) && CLASSTYPE_USE_TEMPLATE (type))
832 /* This is for ordinary explicit specialization and partial
833 specialization of a template class such as:
835 template <> class C<int>;
839 template <class T> class C<T*>;
841 Make sure that `C<int>' and `C<T*>' are implicit instantiations. */
843 if (CLASSTYPE_IMPLICIT_INSTANTIATION (type)
844 && !COMPLETE_TYPE_P (type))
846 check_specialization_namespace (CLASSTYPE_TI_TEMPLATE (type));
847 SET_CLASSTYPE_TEMPLATE_SPECIALIZATION (type);
848 DECL_SOURCE_LOCATION (TYPE_MAIN_DECL (type)) = input_location;
849 if (processing_template_decl)
851 if (push_template_decl (TYPE_MAIN_DECL (type))
852 == error_mark_node)
853 return error_mark_node;
856 else if (CLASSTYPE_TEMPLATE_INSTANTIATION (type))
857 error ("specialization of %qT after instantiation", type);
858 else if (errorcount && !processing_specialization
859 && CLASSTYPE_TEMPLATE_SPECIALIZATION (type)
860 && !uses_template_parms (CLASSTYPE_TI_ARGS (type)))
861 /* Trying to define a specialization either without a template<> header
862 or in an inappropriate place. We've already given an error, so just
863 bail now so we don't actually define the specialization. */
864 return error_mark_node;
866 else if (CLASS_TYPE_P (type)
867 && !CLASSTYPE_USE_TEMPLATE (type)
868 && CLASSTYPE_TEMPLATE_INFO (type)
869 && context && CLASS_TYPE_P (context)
870 && CLASSTYPE_TEMPLATE_INFO (context))
872 /* This is for an explicit specialization of member class
873 template according to [temp.expl.spec/18]:
875 template <> template <class U> class C<int>::D;
877 The context `C<int>' must be an implicit instantiation.
878 Otherwise this is just a member class template declared
879 earlier like:
881 template <> class C<int> { template <class U> class D; };
882 template <> template <class U> class C<int>::D;
884 In the first case, `C<int>::D' is a specialization of `C<T>::D'
885 while in the second case, `C<int>::D' is a primary template
886 and `C<T>::D' may not exist. */
888 if (CLASSTYPE_IMPLICIT_INSTANTIATION (context)
889 && !COMPLETE_TYPE_P (type))
891 tree t;
892 tree tmpl = CLASSTYPE_TI_TEMPLATE (type);
894 if (current_namespace
895 != decl_namespace_context (tmpl))
897 permerror (input_location, "specializing %q#T in different namespace", type);
898 permerror (input_location, " from definition of %q+#D", tmpl);
901 /* Check for invalid specialization after instantiation:
903 template <> template <> class C<int>::D<int>;
904 template <> template <class U> class C<int>::D; */
906 for (t = DECL_TEMPLATE_INSTANTIATIONS (tmpl);
907 t; t = TREE_CHAIN (t))
909 tree inst = TREE_VALUE (t);
910 if (CLASSTYPE_TEMPLATE_SPECIALIZATION (inst))
912 /* We already have a full specialization of this partial
913 instantiation. Reassign it to the new member
914 specialization template. */
915 spec_entry elt;
916 spec_entry *entry;
917 void **slot;
919 elt.tmpl = most_general_template (tmpl);
920 elt.args = CLASSTYPE_TI_ARGS (inst);
921 elt.spec = inst;
923 htab_remove_elt (type_specializations, &elt);
925 elt.tmpl = tmpl;
926 elt.args = INNERMOST_TEMPLATE_ARGS (elt.args);
928 slot = htab_find_slot (type_specializations, &elt, INSERT);
929 entry = ggc_alloc_spec_entry ();
930 *entry = elt;
931 *slot = entry;
933 else if (COMPLETE_OR_OPEN_TYPE_P (inst))
934 /* But if we've had an implicit instantiation, that's a
935 problem ([temp.expl.spec]/6). */
936 error ("specialization %qT after instantiation %qT",
937 type, inst);
940 /* Mark TYPE as a specialization. And as a result, we only
941 have one level of template argument for the innermost
942 class template. */
943 SET_CLASSTYPE_TEMPLATE_SPECIALIZATION (type);
944 DECL_SOURCE_LOCATION (TYPE_MAIN_DECL (type)) = input_location;
945 CLASSTYPE_TI_ARGS (type)
946 = INNERMOST_TEMPLATE_ARGS (CLASSTYPE_TI_ARGS (type));
949 else if (processing_specialization)
951 /* Someday C++0x may allow for enum template specialization. */
952 if (cxx_dialect > cxx98 && TREE_CODE (type) == ENUMERAL_TYPE
953 && CLASS_TYPE_P (context) && CLASSTYPE_USE_TEMPLATE (context))
954 pedwarn (input_location, OPT_Wpedantic, "template specialization "
955 "of %qD not allowed by ISO C++", type);
956 else
958 error ("explicit specialization of non-template %qT", type);
959 return error_mark_node;
963 return type;
966 /* Returns nonzero if we can optimize the retrieval of specializations
967 for TMPL, a TEMPLATE_DECL. In particular, for such a template, we
968 do not use DECL_TEMPLATE_SPECIALIZATIONS at all. */
970 static inline bool
971 optimize_specialization_lookup_p (tree tmpl)
973 return (DECL_FUNCTION_TEMPLATE_P (tmpl)
974 && DECL_CLASS_SCOPE_P (tmpl)
975 /* DECL_CLASS_SCOPE_P holds of T::f even if T is a template
976 parameter. */
977 && CLASS_TYPE_P (DECL_CONTEXT (tmpl))
978 /* The optimized lookup depends on the fact that the
979 template arguments for the member function template apply
980 purely to the containing class, which is not true if the
981 containing class is an explicit or partial
982 specialization. */
983 && !CLASSTYPE_TEMPLATE_SPECIALIZATION (DECL_CONTEXT (tmpl))
984 && !DECL_MEMBER_TEMPLATE_P (tmpl)
985 && !DECL_CONV_FN_P (tmpl)
986 /* It is possible to have a template that is not a member
987 template and is not a member of a template class:
989 template <typename T>
990 struct S { friend A::f(); };
992 Here, the friend function is a template, but the context does
993 not have template information. The optimized lookup relies
994 on having ARGS be the template arguments for both the class
995 and the function template. */
996 && !DECL_FRIEND_P (DECL_TEMPLATE_RESULT (tmpl)));
999 /* Retrieve the specialization (in the sense of [temp.spec] - a
1000 specialization is either an instantiation or an explicit
1001 specialization) of TMPL for the given template ARGS. If there is
1002 no such specialization, return NULL_TREE. The ARGS are a vector of
1003 arguments, or a vector of vectors of arguments, in the case of
1004 templates with more than one level of parameters.
1006 If TMPL is a type template and CLASS_SPECIALIZATIONS_P is true,
1007 then we search for a partial specialization matching ARGS. This
1008 parameter is ignored if TMPL is not a class template. */
1010 static tree
1011 retrieve_specialization (tree tmpl, tree args, hashval_t hash)
1013 if (args == error_mark_node)
1014 return NULL_TREE;
1016 gcc_assert (TREE_CODE (tmpl) == TEMPLATE_DECL);
1018 /* There should be as many levels of arguments as there are
1019 levels of parameters. */
1020 gcc_assert (TMPL_ARGS_DEPTH (args)
1021 == TMPL_PARMS_DEPTH (DECL_TEMPLATE_PARMS (tmpl)));
1023 if (optimize_specialization_lookup_p (tmpl))
1025 tree class_template;
1026 tree class_specialization;
1027 vec<tree, va_gc> *methods;
1028 tree fns;
1029 int idx;
1031 /* The template arguments actually apply to the containing
1032 class. Find the class specialization with those
1033 arguments. */
1034 class_template = CLASSTYPE_TI_TEMPLATE (DECL_CONTEXT (tmpl));
1035 class_specialization
1036 = retrieve_specialization (class_template, args, 0);
1037 if (!class_specialization)
1038 return NULL_TREE;
1039 /* Now, find the appropriate entry in the CLASSTYPE_METHOD_VEC
1040 for the specialization. */
1041 idx = class_method_index_for_fn (class_specialization, tmpl);
1042 if (idx == -1)
1043 return NULL_TREE;
1044 /* Iterate through the methods with the indicated name, looking
1045 for the one that has an instance of TMPL. */
1046 methods = CLASSTYPE_METHOD_VEC (class_specialization);
1047 for (fns = (*methods)[idx]; fns; fns = OVL_NEXT (fns))
1049 tree fn = OVL_CURRENT (fns);
1050 if (DECL_TEMPLATE_INFO (fn) && DECL_TI_TEMPLATE (fn) == tmpl
1051 /* using-declarations can add base methods to the method vec,
1052 and we don't want those here. */
1053 && DECL_CONTEXT (fn) == class_specialization)
1054 return fn;
1056 return NULL_TREE;
1058 else
1060 spec_entry *found;
1061 spec_entry elt;
1062 htab_t specializations;
1064 elt.tmpl = tmpl;
1065 elt.args = args;
1066 elt.spec = NULL_TREE;
1068 if (DECL_CLASS_TEMPLATE_P (tmpl))
1069 specializations = type_specializations;
1070 else
1071 specializations = decl_specializations;
1073 if (hash == 0)
1074 hash = hash_specialization (&elt);
1075 found = (spec_entry *) htab_find_with_hash (specializations, &elt, hash);
1076 if (found)
1077 return found->spec;
1080 return NULL_TREE;
1083 /* Like retrieve_specialization, but for local declarations. */
1085 static tree
1086 retrieve_local_specialization (tree tmpl)
1088 void **slot;
1090 if (local_specializations == NULL)
1091 return NULL_TREE;
1093 slot = pointer_map_contains (local_specializations, tmpl);
1094 return slot ? (tree) *slot : NULL_TREE;
1097 /* Returns nonzero iff DECL is a specialization of TMPL. */
1100 is_specialization_of (tree decl, tree tmpl)
1102 tree t;
1104 if (TREE_CODE (decl) == FUNCTION_DECL)
1106 for (t = decl;
1107 t != NULL_TREE;
1108 t = DECL_TEMPLATE_INFO (t) ? DECL_TI_TEMPLATE (t) : NULL_TREE)
1109 if (t == tmpl)
1110 return 1;
1112 else
1114 gcc_assert (TREE_CODE (decl) == TYPE_DECL);
1116 for (t = TREE_TYPE (decl);
1117 t != NULL_TREE;
1118 t = CLASSTYPE_USE_TEMPLATE (t)
1119 ? TREE_TYPE (CLASSTYPE_TI_TEMPLATE (t)) : NULL_TREE)
1120 if (same_type_ignoring_top_level_qualifiers_p (t, TREE_TYPE (tmpl)))
1121 return 1;
1124 return 0;
1127 /* Returns nonzero iff DECL is a specialization of friend declaration
1128 FRIEND_DECL according to [temp.friend]. */
1130 bool
1131 is_specialization_of_friend (tree decl, tree friend_decl)
1133 bool need_template = true;
1134 int template_depth;
1136 gcc_assert (TREE_CODE (decl) == FUNCTION_DECL
1137 || TREE_CODE (decl) == TYPE_DECL);
1139 /* For [temp.friend/6] when FRIEND_DECL is an ordinary member function
1140 of a template class, we want to check if DECL is a specialization
1141 if this. */
1142 if (TREE_CODE (friend_decl) == FUNCTION_DECL
1143 && DECL_TEMPLATE_INFO (friend_decl)
1144 && !DECL_USE_TEMPLATE (friend_decl))
1146 /* We want a TEMPLATE_DECL for `is_specialization_of'. */
1147 friend_decl = DECL_TI_TEMPLATE (friend_decl);
1148 need_template = false;
1150 else if (TREE_CODE (friend_decl) == TEMPLATE_DECL
1151 && !PRIMARY_TEMPLATE_P (friend_decl))
1152 need_template = false;
1154 /* There is nothing to do if this is not a template friend. */
1155 if (TREE_CODE (friend_decl) != TEMPLATE_DECL)
1156 return false;
1158 if (is_specialization_of (decl, friend_decl))
1159 return true;
1161 /* [temp.friend/6]
1162 A member of a class template may be declared to be a friend of a
1163 non-template class. In this case, the corresponding member of
1164 every specialization of the class template is a friend of the
1165 class granting friendship.
1167 For example, given a template friend declaration
1169 template <class T> friend void A<T>::f();
1171 the member function below is considered a friend
1173 template <> struct A<int> {
1174 void f();
1177 For this type of template friend, TEMPLATE_DEPTH below will be
1178 nonzero. To determine if DECL is a friend of FRIEND, we first
1179 check if the enclosing class is a specialization of another. */
1181 template_depth = template_class_depth (CP_DECL_CONTEXT (friend_decl));
1182 if (template_depth
1183 && DECL_CLASS_SCOPE_P (decl)
1184 && is_specialization_of (TYPE_NAME (DECL_CONTEXT (decl)),
1185 CLASSTYPE_TI_TEMPLATE (DECL_CONTEXT (friend_decl))))
1187 /* Next, we check the members themselves. In order to handle
1188 a few tricky cases, such as when FRIEND_DECL's are
1190 template <class T> friend void A<T>::g(T t);
1191 template <class T> template <T t> friend void A<T>::h();
1193 and DECL's are
1195 void A<int>::g(int);
1196 template <int> void A<int>::h();
1198 we need to figure out ARGS, the template arguments from
1199 the context of DECL. This is required for template substitution
1200 of `T' in the function parameter of `g' and template parameter
1201 of `h' in the above examples. Here ARGS corresponds to `int'. */
1203 tree context = DECL_CONTEXT (decl);
1204 tree args = NULL_TREE;
1205 int current_depth = 0;
1207 while (current_depth < template_depth)
1209 if (CLASSTYPE_TEMPLATE_INFO (context))
1211 if (current_depth == 0)
1212 args = TYPE_TI_ARGS (context);
1213 else
1214 args = add_to_template_args (TYPE_TI_ARGS (context), args);
1215 current_depth++;
1217 context = TYPE_CONTEXT (context);
1220 if (TREE_CODE (decl) == FUNCTION_DECL)
1222 bool is_template;
1223 tree friend_type;
1224 tree decl_type;
1225 tree friend_args_type;
1226 tree decl_args_type;
1228 /* Make sure that both DECL and FRIEND_DECL are templates or
1229 non-templates. */
1230 is_template = DECL_TEMPLATE_INFO (decl)
1231 && PRIMARY_TEMPLATE_P (DECL_TI_TEMPLATE (decl));
1232 if (need_template ^ is_template)
1233 return false;
1234 else if (is_template)
1236 /* If both are templates, check template parameter list. */
1237 tree friend_parms
1238 = tsubst_template_parms (DECL_TEMPLATE_PARMS (friend_decl),
1239 args, tf_none);
1240 if (!comp_template_parms
1241 (DECL_TEMPLATE_PARMS (DECL_TI_TEMPLATE (decl)),
1242 friend_parms))
1243 return false;
1245 decl_type = TREE_TYPE (DECL_TI_TEMPLATE (decl));
1247 else
1248 decl_type = TREE_TYPE (decl);
1250 friend_type = tsubst_function_type (TREE_TYPE (friend_decl), args,
1251 tf_none, NULL_TREE);
1252 if (friend_type == error_mark_node)
1253 return false;
1255 /* Check if return types match. */
1256 if (!same_type_p (TREE_TYPE (decl_type), TREE_TYPE (friend_type)))
1257 return false;
1259 /* Check if function parameter types match, ignoring the
1260 `this' parameter. */
1261 friend_args_type = TYPE_ARG_TYPES (friend_type);
1262 decl_args_type = TYPE_ARG_TYPES (decl_type);
1263 if (DECL_NONSTATIC_MEMBER_FUNCTION_P (friend_decl))
1264 friend_args_type = TREE_CHAIN (friend_args_type);
1265 if (DECL_NONSTATIC_MEMBER_FUNCTION_P (decl))
1266 decl_args_type = TREE_CHAIN (decl_args_type);
1268 return compparms (decl_args_type, friend_args_type);
1270 else
1272 /* DECL is a TYPE_DECL */
1273 bool is_template;
1274 tree decl_type = TREE_TYPE (decl);
1276 /* Make sure that both DECL and FRIEND_DECL are templates or
1277 non-templates. */
1278 is_template
1279 = CLASSTYPE_TEMPLATE_INFO (decl_type)
1280 && PRIMARY_TEMPLATE_P (CLASSTYPE_TI_TEMPLATE (decl_type));
1282 if (need_template ^ is_template)
1283 return false;
1284 else if (is_template)
1286 tree friend_parms;
1287 /* If both are templates, check the name of the two
1288 TEMPLATE_DECL's first because is_friend didn't. */
1289 if (DECL_NAME (CLASSTYPE_TI_TEMPLATE (decl_type))
1290 != DECL_NAME (friend_decl))
1291 return false;
1293 /* Now check template parameter list. */
1294 friend_parms
1295 = tsubst_template_parms (DECL_TEMPLATE_PARMS (friend_decl),
1296 args, tf_none);
1297 return comp_template_parms
1298 (DECL_TEMPLATE_PARMS (CLASSTYPE_TI_TEMPLATE (decl_type)),
1299 friend_parms);
1301 else
1302 return (DECL_NAME (decl)
1303 == DECL_NAME (friend_decl));
1306 return false;
1309 /* Register the specialization SPEC as a specialization of TMPL with
1310 the indicated ARGS. IS_FRIEND indicates whether the specialization
1311 is actually just a friend declaration. Returns SPEC, or an
1312 equivalent prior declaration, if available. */
1314 static tree
1315 register_specialization (tree spec, tree tmpl, tree args, bool is_friend,
1316 hashval_t hash)
1318 tree fn;
1319 void **slot = NULL;
1320 spec_entry elt;
1322 gcc_assert (TREE_CODE (tmpl) == TEMPLATE_DECL && DECL_P (spec));
1324 if (TREE_CODE (spec) == FUNCTION_DECL
1325 && uses_template_parms (DECL_TI_ARGS (spec)))
1326 /* This is the FUNCTION_DECL for a partial instantiation. Don't
1327 register it; we want the corresponding TEMPLATE_DECL instead.
1328 We use `uses_template_parms (DECL_TI_ARGS (spec))' rather than
1329 the more obvious `uses_template_parms (spec)' to avoid problems
1330 with default function arguments. In particular, given
1331 something like this:
1333 template <class T> void f(T t1, T t = T())
1335 the default argument expression is not substituted for in an
1336 instantiation unless and until it is actually needed. */
1337 return spec;
1339 if (optimize_specialization_lookup_p (tmpl))
1340 /* We don't put these specializations in the hash table, but we might
1341 want to give an error about a mismatch. */
1342 fn = retrieve_specialization (tmpl, args, 0);
1343 else
1345 elt.tmpl = tmpl;
1346 elt.args = args;
1347 elt.spec = spec;
1349 if (hash == 0)
1350 hash = hash_specialization (&elt);
1352 slot =
1353 htab_find_slot_with_hash (decl_specializations, &elt, hash, INSERT);
1354 if (*slot)
1355 fn = ((spec_entry *) *slot)->spec;
1356 else
1357 fn = NULL_TREE;
1360 /* We can sometimes try to re-register a specialization that we've
1361 already got. In particular, regenerate_decl_from_template calls
1362 duplicate_decls which will update the specialization list. But,
1363 we'll still get called again here anyhow. It's more convenient
1364 to simply allow this than to try to prevent it. */
1365 if (fn == spec)
1366 return spec;
1367 else if (fn && DECL_TEMPLATE_SPECIALIZATION (spec))
1369 if (DECL_TEMPLATE_INSTANTIATION (fn))
1371 if (DECL_ODR_USED (fn)
1372 || DECL_EXPLICIT_INSTANTIATION (fn))
1374 error ("specialization of %qD after instantiation",
1375 fn);
1376 return error_mark_node;
1378 else
1380 tree clone;
1381 /* This situation should occur only if the first
1382 specialization is an implicit instantiation, the
1383 second is an explicit specialization, and the
1384 implicit instantiation has not yet been used. That
1385 situation can occur if we have implicitly
1386 instantiated a member function and then specialized
1387 it later.
1389 We can also wind up here if a friend declaration that
1390 looked like an instantiation turns out to be a
1391 specialization:
1393 template <class T> void foo(T);
1394 class S { friend void foo<>(int) };
1395 template <> void foo(int);
1397 We transform the existing DECL in place so that any
1398 pointers to it become pointers to the updated
1399 declaration.
1401 If there was a definition for the template, but not
1402 for the specialization, we want this to look as if
1403 there were no definition, and vice versa. */
1404 DECL_INITIAL (fn) = NULL_TREE;
1405 duplicate_decls (spec, fn, is_friend);
1406 /* The call to duplicate_decls will have applied
1407 [temp.expl.spec]:
1409 An explicit specialization of a function template
1410 is inline only if it is explicitly declared to be,
1411 and independently of whether its function template
1414 to the primary function; now copy the inline bits to
1415 the various clones. */
1416 FOR_EACH_CLONE (clone, fn)
1418 DECL_DECLARED_INLINE_P (clone)
1419 = DECL_DECLARED_INLINE_P (fn);
1420 DECL_SOURCE_LOCATION (clone)
1421 = DECL_SOURCE_LOCATION (fn);
1423 check_specialization_namespace (tmpl);
1425 return fn;
1428 else if (DECL_TEMPLATE_SPECIALIZATION (fn))
1430 if (!duplicate_decls (spec, fn, is_friend) && DECL_INITIAL (spec))
1431 /* Dup decl failed, but this is a new definition. Set the
1432 line number so any errors match this new
1433 definition. */
1434 DECL_SOURCE_LOCATION (fn) = DECL_SOURCE_LOCATION (spec);
1436 return fn;
1439 else if (fn)
1440 return duplicate_decls (spec, fn, is_friend);
1442 /* A specialization must be declared in the same namespace as the
1443 template it is specializing. */
1444 if (DECL_TEMPLATE_SPECIALIZATION (spec)
1445 && !check_specialization_namespace (tmpl))
1446 DECL_CONTEXT (spec) = DECL_CONTEXT (tmpl);
1448 if (slot != NULL /* !optimize_specialization_lookup_p (tmpl) */)
1450 spec_entry *entry = ggc_alloc_spec_entry ();
1451 gcc_assert (tmpl && args && spec);
1452 *entry = elt;
1453 *slot = entry;
1454 if (TREE_CODE (spec) == FUNCTION_DECL && DECL_NAMESPACE_SCOPE_P (spec)
1455 && PRIMARY_TEMPLATE_P (tmpl)
1456 && DECL_SAVED_TREE (DECL_TEMPLATE_RESULT (tmpl)) == NULL_TREE)
1457 /* TMPL is a forward declaration of a template function; keep a list
1458 of all specializations in case we need to reassign them to a friend
1459 template later in tsubst_friend_function. */
1460 DECL_TEMPLATE_INSTANTIATIONS (tmpl)
1461 = tree_cons (args, spec, DECL_TEMPLATE_INSTANTIATIONS (tmpl));
1464 return spec;
1467 /* Returns true iff two spec_entry nodes are equivalent. Only compares the
1468 TMPL and ARGS members, ignores SPEC. */
1470 int comparing_specializations;
1472 static int
1473 eq_specializations (const void *p1, const void *p2)
1475 const spec_entry *e1 = (const spec_entry *)p1;
1476 const spec_entry *e2 = (const spec_entry *)p2;
1477 int equal;
1479 ++comparing_specializations;
1480 equal = (e1->tmpl == e2->tmpl
1481 && comp_template_args (e1->args, e2->args));
1482 --comparing_specializations;
1484 return equal;
1487 /* Returns a hash for a template TMPL and template arguments ARGS. */
1489 static hashval_t
1490 hash_tmpl_and_args (tree tmpl, tree args)
1492 hashval_t val = DECL_UID (tmpl);
1493 return iterative_hash_template_arg (args, val);
1496 /* Returns a hash for a spec_entry node based on the TMPL and ARGS members,
1497 ignoring SPEC. */
1499 static hashval_t
1500 hash_specialization (const void *p)
1502 const spec_entry *e = (const spec_entry *)p;
1503 return hash_tmpl_and_args (e->tmpl, e->args);
1506 /* Recursively calculate a hash value for a template argument ARG, for use
1507 in the hash tables of template specializations. */
1509 hashval_t
1510 iterative_hash_template_arg (tree arg, hashval_t val)
1512 unsigned HOST_WIDE_INT i;
1513 enum tree_code code;
1514 char tclass;
1516 if (arg == NULL_TREE)
1517 return iterative_hash_object (arg, val);
1519 if (!TYPE_P (arg))
1520 STRIP_NOPS (arg);
1522 if (TREE_CODE (arg) == ARGUMENT_PACK_SELECT)
1523 /* We can get one of these when re-hashing a previous entry in the middle
1524 of substituting into a pack expansion. Just look through it. */
1525 arg = ARGUMENT_PACK_SELECT_FROM_PACK (arg);
1527 code = TREE_CODE (arg);
1528 tclass = TREE_CODE_CLASS (code);
1530 val = iterative_hash_object (code, val);
1532 switch (code)
1534 case ERROR_MARK:
1535 return val;
1537 case IDENTIFIER_NODE:
1538 return iterative_hash_object (IDENTIFIER_HASH_VALUE (arg), val);
1540 case TREE_VEC:
1542 int i, len = TREE_VEC_LENGTH (arg);
1543 for (i = 0; i < len; ++i)
1544 val = iterative_hash_template_arg (TREE_VEC_ELT (arg, i), val);
1545 return val;
1548 case TYPE_PACK_EXPANSION:
1549 case EXPR_PACK_EXPANSION:
1550 val = iterative_hash_template_arg (PACK_EXPANSION_PATTERN (arg), val);
1551 return iterative_hash_template_arg (PACK_EXPANSION_EXTRA_ARGS (arg), val);
1553 case TYPE_ARGUMENT_PACK:
1554 case NONTYPE_ARGUMENT_PACK:
1555 return iterative_hash_template_arg (ARGUMENT_PACK_ARGS (arg), val);
1557 case TREE_LIST:
1558 for (; arg; arg = TREE_CHAIN (arg))
1559 val = iterative_hash_template_arg (TREE_VALUE (arg), val);
1560 return val;
1562 case OVERLOAD:
1563 for (; arg; arg = OVL_NEXT (arg))
1564 val = iterative_hash_template_arg (OVL_CURRENT (arg), val);
1565 return val;
1567 case CONSTRUCTOR:
1569 tree field, value;
1570 FOR_EACH_CONSTRUCTOR_ELT (CONSTRUCTOR_ELTS (arg), i, field, value)
1572 val = iterative_hash_template_arg (field, val);
1573 val = iterative_hash_template_arg (value, val);
1575 return val;
1578 case PARM_DECL:
1579 if (!DECL_ARTIFICIAL (arg))
1581 val = iterative_hash_object (DECL_PARM_INDEX (arg), val);
1582 val = iterative_hash_object (DECL_PARM_LEVEL (arg), val);
1584 return iterative_hash_template_arg (TREE_TYPE (arg), val);
1586 case TARGET_EXPR:
1587 return iterative_hash_template_arg (TARGET_EXPR_INITIAL (arg), val);
1589 case PTRMEM_CST:
1590 val = iterative_hash_template_arg (PTRMEM_CST_CLASS (arg), val);
1591 return iterative_hash_template_arg (PTRMEM_CST_MEMBER (arg), val);
1593 case TEMPLATE_PARM_INDEX:
1594 val = iterative_hash_template_arg
1595 (TREE_TYPE (TEMPLATE_PARM_DECL (arg)), val);
1596 val = iterative_hash_object (TEMPLATE_PARM_LEVEL (arg), val);
1597 return iterative_hash_object (TEMPLATE_PARM_IDX (arg), val);
1599 case TRAIT_EXPR:
1600 val = iterative_hash_object (TRAIT_EXPR_KIND (arg), val);
1601 val = iterative_hash_template_arg (TRAIT_EXPR_TYPE1 (arg), val);
1602 return iterative_hash_template_arg (TRAIT_EXPR_TYPE2 (arg), val);
1604 case BASELINK:
1605 val = iterative_hash_template_arg (BINFO_TYPE (BASELINK_BINFO (arg)),
1606 val);
1607 return iterative_hash_template_arg (DECL_NAME (get_first_fn (arg)),
1608 val);
1610 case MODOP_EXPR:
1611 val = iterative_hash_template_arg (TREE_OPERAND (arg, 0), val);
1612 code = TREE_CODE (TREE_OPERAND (arg, 1));
1613 val = iterative_hash_object (code, val);
1614 return iterative_hash_template_arg (TREE_OPERAND (arg, 2), val);
1616 case LAMBDA_EXPR:
1617 /* A lambda can't appear in a template arg, but don't crash on
1618 erroneous input. */
1619 gcc_assert (seen_error ());
1620 return val;
1622 case CAST_EXPR:
1623 case IMPLICIT_CONV_EXPR:
1624 case STATIC_CAST_EXPR:
1625 case REINTERPRET_CAST_EXPR:
1626 case CONST_CAST_EXPR:
1627 case DYNAMIC_CAST_EXPR:
1628 case NEW_EXPR:
1629 val = iterative_hash_template_arg (TREE_TYPE (arg), val);
1630 /* Now hash operands as usual. */
1631 break;
1633 default:
1634 break;
1637 switch (tclass)
1639 case tcc_type:
1640 if (TYPE_CANONICAL (arg))
1641 return iterative_hash_object (TYPE_HASH (TYPE_CANONICAL (arg)),
1642 val);
1643 else if (TREE_CODE (arg) == DECLTYPE_TYPE)
1644 return iterative_hash_template_arg (DECLTYPE_TYPE_EXPR (arg), val);
1645 /* Otherwise just compare the types during lookup. */
1646 return val;
1648 case tcc_declaration:
1649 case tcc_constant:
1650 return iterative_hash_expr (arg, val);
1652 default:
1653 gcc_assert (IS_EXPR_CODE_CLASS (tclass));
1655 unsigned n = cp_tree_operand_length (arg);
1656 for (i = 0; i < n; ++i)
1657 val = iterative_hash_template_arg (TREE_OPERAND (arg, i), val);
1658 return val;
1661 gcc_unreachable ();
1662 return 0;
1665 /* Unregister the specialization SPEC as a specialization of TMPL.
1666 Replace it with NEW_SPEC, if NEW_SPEC is non-NULL. Returns true
1667 if the SPEC was listed as a specialization of TMPL.
1669 Note that SPEC has been ggc_freed, so we can't look inside it. */
1671 bool
1672 reregister_specialization (tree spec, tree tinfo, tree new_spec)
1674 spec_entry *entry;
1675 spec_entry elt;
1677 elt.tmpl = most_general_template (TI_TEMPLATE (tinfo));
1678 elt.args = TI_ARGS (tinfo);
1679 elt.spec = NULL_TREE;
1681 entry = (spec_entry *) htab_find (decl_specializations, &elt);
1682 if (entry != NULL)
1684 gcc_assert (entry->spec == spec || entry->spec == new_spec);
1685 gcc_assert (new_spec != NULL_TREE);
1686 entry->spec = new_spec;
1687 return 1;
1690 return 0;
1693 /* Like register_specialization, but for local declarations. We are
1694 registering SPEC, an instantiation of TMPL. */
1696 static void
1697 register_local_specialization (tree spec, tree tmpl)
1699 void **slot;
1701 slot = pointer_map_insert (local_specializations, tmpl);
1702 *slot = spec;
1705 /* TYPE is a class type. Returns true if TYPE is an explicitly
1706 specialized class. */
1708 bool
1709 explicit_class_specialization_p (tree type)
1711 if (!CLASSTYPE_TEMPLATE_SPECIALIZATION (type))
1712 return false;
1713 return !uses_template_parms (CLASSTYPE_TI_ARGS (type));
1716 /* Print the list of functions at FNS, going through all the overloads
1717 for each element of the list. Alternatively, FNS can not be a
1718 TREE_LIST, in which case it will be printed together with all the
1719 overloads.
1721 MORE and *STR should respectively be FALSE and NULL when the function
1722 is called from the outside. They are used internally on recursive
1723 calls. print_candidates manages the two parameters and leaves NULL
1724 in *STR when it ends. */
1726 static void
1727 print_candidates_1 (tree fns, bool more, const char **str)
1729 tree fn, fn2;
1730 char *spaces = NULL;
1732 for (fn = fns; fn; fn = OVL_NEXT (fn))
1733 if (TREE_CODE (fn) == TREE_LIST)
1735 for (fn2 = fn; fn2 != NULL_TREE; fn2 = TREE_CHAIN (fn2))
1736 print_candidates_1 (TREE_VALUE (fn2),
1737 TREE_CHAIN (fn2) || more, str);
1739 else
1741 tree cand = OVL_CURRENT (fn);
1742 if (!*str)
1744 /* Pick the prefix string. */
1745 if (!more && !OVL_NEXT (fns))
1747 inform (DECL_SOURCE_LOCATION (cand),
1748 "candidate is: %#D", cand);
1749 continue;
1752 *str = _("candidates are:");
1753 spaces = get_spaces (*str);
1755 inform (DECL_SOURCE_LOCATION (cand), "%s %#D", *str, cand);
1756 *str = spaces ? spaces : *str;
1759 if (!more)
1761 free (spaces);
1762 *str = NULL;
1766 /* Print the list of candidate FNS in an error message. FNS can also
1767 be a TREE_LIST of non-functions in the case of an ambiguous lookup. */
1769 void
1770 print_candidates (tree fns)
1772 const char *str = NULL;
1773 print_candidates_1 (fns, false, &str);
1774 gcc_assert (str == NULL);
1777 /* Returns the template (one of the functions given by TEMPLATE_ID)
1778 which can be specialized to match the indicated DECL with the
1779 explicit template args given in TEMPLATE_ID. The DECL may be
1780 NULL_TREE if none is available. In that case, the functions in
1781 TEMPLATE_ID are non-members.
1783 If NEED_MEMBER_TEMPLATE is nonzero the function is known to be a
1784 specialization of a member template.
1786 The TEMPLATE_COUNT is the number of references to qualifying
1787 template classes that appeared in the name of the function. See
1788 check_explicit_specialization for a more accurate description.
1790 TSK indicates what kind of template declaration (if any) is being
1791 declared. TSK_TEMPLATE indicates that the declaration given by
1792 DECL, though a FUNCTION_DECL, has template parameters, and is
1793 therefore a template function.
1795 The template args (those explicitly specified and those deduced)
1796 are output in a newly created vector *TARGS_OUT.
1798 If it is impossible to determine the result, an error message is
1799 issued. The error_mark_node is returned to indicate failure. */
1801 static tree
1802 determine_specialization (tree template_id,
1803 tree decl,
1804 tree* targs_out,
1805 int need_member_template,
1806 int template_count,
1807 tmpl_spec_kind tsk)
1809 tree fns;
1810 tree targs;
1811 tree explicit_targs;
1812 tree candidates = NULL_TREE;
1813 /* A TREE_LIST of templates of which DECL may be a specialization.
1814 The TREE_VALUE of each node is a TEMPLATE_DECL. The
1815 corresponding TREE_PURPOSE is the set of template arguments that,
1816 when used to instantiate the template, would produce a function
1817 with the signature of DECL. */
1818 tree templates = NULL_TREE;
1819 int header_count;
1820 cp_binding_level *b;
1822 *targs_out = NULL_TREE;
1824 if (template_id == error_mark_node || decl == error_mark_node)
1825 return error_mark_node;
1827 /* We shouldn't be specializing a member template of an
1828 unspecialized class template; we already gave an error in
1829 check_specialization_scope, now avoid crashing. */
1830 if (template_count && DECL_CLASS_SCOPE_P (decl)
1831 && template_class_depth (DECL_CONTEXT (decl)) > 0)
1833 gcc_assert (errorcount);
1834 return error_mark_node;
1837 fns = TREE_OPERAND (template_id, 0);
1838 explicit_targs = TREE_OPERAND (template_id, 1);
1840 if (fns == error_mark_node)
1841 return error_mark_node;
1843 /* Check for baselinks. */
1844 if (BASELINK_P (fns))
1845 fns = BASELINK_FUNCTIONS (fns);
1847 if (!is_overloaded_fn (fns))
1849 error ("%qD is not a function template", fns);
1850 return error_mark_node;
1853 /* Count the number of template headers specified for this
1854 specialization. */
1855 header_count = 0;
1856 for (b = current_binding_level;
1857 b->kind == sk_template_parms;
1858 b = b->level_chain)
1859 ++header_count;
1861 for (; fns; fns = OVL_NEXT (fns))
1863 tree fn = OVL_CURRENT (fns);
1865 if (TREE_CODE (fn) == TEMPLATE_DECL)
1867 tree decl_arg_types;
1868 tree fn_arg_types;
1869 tree insttype;
1871 /* In case of explicit specialization, we need to check if
1872 the number of template headers appearing in the specialization
1873 is correct. This is usually done in check_explicit_specialization,
1874 but the check done there cannot be exhaustive when specializing
1875 member functions. Consider the following code:
1877 template <> void A<int>::f(int);
1878 template <> template <> void A<int>::f(int);
1880 Assuming that A<int> is not itself an explicit specialization
1881 already, the first line specializes "f" which is a non-template
1882 member function, whilst the second line specializes "f" which
1883 is a template member function. So both lines are syntactically
1884 correct, and check_explicit_specialization does not reject
1885 them.
1887 Here, we can do better, as we are matching the specialization
1888 against the declarations. We count the number of template
1889 headers, and we check if they match TEMPLATE_COUNT + 1
1890 (TEMPLATE_COUNT is the number of qualifying template classes,
1891 plus there must be another header for the member template
1892 itself).
1894 Notice that if header_count is zero, this is not a
1895 specialization but rather a template instantiation, so there
1896 is no check we can perform here. */
1897 if (header_count && header_count != template_count + 1)
1898 continue;
1900 /* Check that the number of template arguments at the
1901 innermost level for DECL is the same as for FN. */
1902 if (current_binding_level->kind == sk_template_parms
1903 && !current_binding_level->explicit_spec_p
1904 && (TREE_VEC_LENGTH (DECL_INNERMOST_TEMPLATE_PARMS (fn))
1905 != TREE_VEC_LENGTH (INNERMOST_TEMPLATE_PARMS
1906 (current_template_parms))))
1907 continue;
1909 /* DECL might be a specialization of FN. */
1910 decl_arg_types = TYPE_ARG_TYPES (TREE_TYPE (decl));
1911 fn_arg_types = TYPE_ARG_TYPES (TREE_TYPE (fn));
1913 /* For a non-static member function, we need to make sure
1914 that the const qualification is the same. Since
1915 get_bindings does not try to merge the "this" parameter,
1916 we must do the comparison explicitly. */
1917 if (DECL_NONSTATIC_MEMBER_FUNCTION_P (fn)
1918 && !same_type_p (TREE_VALUE (fn_arg_types),
1919 TREE_VALUE (decl_arg_types)))
1920 continue;
1922 /* Skip the "this" parameter and, for constructors of
1923 classes with virtual bases, the VTT parameter. A
1924 full specialization of a constructor will have a VTT
1925 parameter, but a template never will. */
1926 decl_arg_types
1927 = skip_artificial_parms_for (decl, decl_arg_types);
1928 fn_arg_types
1929 = skip_artificial_parms_for (fn, fn_arg_types);
1931 /* Function templates cannot be specializations; there are
1932 no partial specializations of functions. Therefore, if
1933 the type of DECL does not match FN, there is no
1934 match. */
1935 if (tsk == tsk_template)
1937 if (compparms (fn_arg_types, decl_arg_types))
1938 candidates = tree_cons (NULL_TREE, fn, candidates);
1939 continue;
1942 /* See whether this function might be a specialization of this
1943 template. Suppress access control because we might be trying
1944 to make this specialization a friend, and we have already done
1945 access control for the declaration of the specialization. */
1946 push_deferring_access_checks (dk_no_check);
1947 targs = get_bindings (fn, decl, explicit_targs, /*check_ret=*/true);
1948 pop_deferring_access_checks ();
1950 if (!targs)
1951 /* We cannot deduce template arguments that when used to
1952 specialize TMPL will produce DECL. */
1953 continue;
1955 /* Make sure that the deduced arguments actually work. */
1956 insttype = tsubst (TREE_TYPE (fn), targs, tf_none, NULL_TREE);
1957 if (insttype == error_mark_node)
1958 continue;
1959 fn_arg_types
1960 = skip_artificial_parms_for (fn, TYPE_ARG_TYPES (insttype));
1961 if (!compparms (fn_arg_types, decl_arg_types))
1962 continue;
1964 /* Save this template, and the arguments deduced. */
1965 templates = tree_cons (targs, fn, templates);
1967 else if (need_member_template)
1968 /* FN is an ordinary member function, and we need a
1969 specialization of a member template. */
1971 else if (TREE_CODE (fn) != FUNCTION_DECL)
1972 /* We can get IDENTIFIER_NODEs here in certain erroneous
1973 cases. */
1975 else if (!DECL_FUNCTION_MEMBER_P (fn))
1976 /* This is just an ordinary non-member function. Nothing can
1977 be a specialization of that. */
1979 else if (DECL_ARTIFICIAL (fn))
1980 /* Cannot specialize functions that are created implicitly. */
1982 else
1984 tree decl_arg_types;
1986 /* This is an ordinary member function. However, since
1987 we're here, we can assume it's enclosing class is a
1988 template class. For example,
1990 template <typename T> struct S { void f(); };
1991 template <> void S<int>::f() {}
1993 Here, S<int>::f is a non-template, but S<int> is a
1994 template class. If FN has the same type as DECL, we
1995 might be in business. */
1997 if (!DECL_TEMPLATE_INFO (fn))
1998 /* Its enclosing class is an explicit specialization
1999 of a template class. This is not a candidate. */
2000 continue;
2002 if (!same_type_p (TREE_TYPE (TREE_TYPE (decl)),
2003 TREE_TYPE (TREE_TYPE (fn))))
2004 /* The return types differ. */
2005 continue;
2007 /* Adjust the type of DECL in case FN is a static member. */
2008 decl_arg_types = TYPE_ARG_TYPES (TREE_TYPE (decl));
2009 if (DECL_STATIC_FUNCTION_P (fn)
2010 && DECL_NONSTATIC_MEMBER_FUNCTION_P (decl))
2011 decl_arg_types = TREE_CHAIN (decl_arg_types);
2013 if (compparms (TYPE_ARG_TYPES (TREE_TYPE (fn)),
2014 decl_arg_types))
2015 /* They match! */
2016 candidates = tree_cons (NULL_TREE, fn, candidates);
2020 if (templates && TREE_CHAIN (templates))
2022 /* We have:
2024 [temp.expl.spec]
2026 It is possible for a specialization with a given function
2027 signature to be instantiated from more than one function
2028 template. In such cases, explicit specification of the
2029 template arguments must be used to uniquely identify the
2030 function template specialization being specialized.
2032 Note that here, there's no suggestion that we're supposed to
2033 determine which of the candidate templates is most
2034 specialized. However, we, also have:
2036 [temp.func.order]
2038 Partial ordering of overloaded function template
2039 declarations is used in the following contexts to select
2040 the function template to which a function template
2041 specialization refers:
2043 -- when an explicit specialization refers to a function
2044 template.
2046 So, we do use the partial ordering rules, at least for now.
2047 This extension can only serve to make invalid programs valid,
2048 so it's safe. And, there is strong anecdotal evidence that
2049 the committee intended the partial ordering rules to apply;
2050 the EDG front end has that behavior, and John Spicer claims
2051 that the committee simply forgot to delete the wording in
2052 [temp.expl.spec]. */
2053 tree tmpl = most_specialized_instantiation (templates);
2054 if (tmpl != error_mark_node)
2056 templates = tmpl;
2057 TREE_CHAIN (templates) = NULL_TREE;
2061 if (templates == NULL_TREE && candidates == NULL_TREE)
2063 error ("template-id %qD for %q+D does not match any template "
2064 "declaration", template_id, decl);
2065 if (header_count && header_count != template_count + 1)
2066 inform (input_location, "saw %d %<template<>%>, need %d for "
2067 "specializing a member function template",
2068 header_count, template_count + 1);
2069 return error_mark_node;
2071 else if ((templates && TREE_CHAIN (templates))
2072 || (candidates && TREE_CHAIN (candidates))
2073 || (templates && candidates))
2075 error ("ambiguous template specialization %qD for %q+D",
2076 template_id, decl);
2077 candidates = chainon (candidates, templates);
2078 print_candidates (candidates);
2079 return error_mark_node;
2082 /* We have one, and exactly one, match. */
2083 if (candidates)
2085 tree fn = TREE_VALUE (candidates);
2086 *targs_out = copy_node (DECL_TI_ARGS (fn));
2087 /* DECL is a re-declaration or partial instantiation of a template
2088 function. */
2089 if (TREE_CODE (fn) == TEMPLATE_DECL)
2090 return fn;
2091 /* It was a specialization of an ordinary member function in a
2092 template class. */
2093 return DECL_TI_TEMPLATE (fn);
2096 /* It was a specialization of a template. */
2097 targs = DECL_TI_ARGS (DECL_TEMPLATE_RESULT (TREE_VALUE (templates)));
2098 if (TMPL_ARGS_HAVE_MULTIPLE_LEVELS (targs))
2100 *targs_out = copy_node (targs);
2101 SET_TMPL_ARGS_LEVEL (*targs_out,
2102 TMPL_ARGS_DEPTH (*targs_out),
2103 TREE_PURPOSE (templates));
2105 else
2106 *targs_out = TREE_PURPOSE (templates);
2107 return TREE_VALUE (templates);
2110 /* Returns a chain of parameter types, exactly like the SPEC_TYPES,
2111 but with the default argument values filled in from those in the
2112 TMPL_TYPES. */
2114 static tree
2115 copy_default_args_to_explicit_spec_1 (tree spec_types,
2116 tree tmpl_types)
2118 tree new_spec_types;
2120 if (!spec_types)
2121 return NULL_TREE;
2123 if (spec_types == void_list_node)
2124 return void_list_node;
2126 /* Substitute into the rest of the list. */
2127 new_spec_types =
2128 copy_default_args_to_explicit_spec_1 (TREE_CHAIN (spec_types),
2129 TREE_CHAIN (tmpl_types));
2131 /* Add the default argument for this parameter. */
2132 return hash_tree_cons (TREE_PURPOSE (tmpl_types),
2133 TREE_VALUE (spec_types),
2134 new_spec_types);
2137 /* DECL is an explicit specialization. Replicate default arguments
2138 from the template it specializes. (That way, code like:
2140 template <class T> void f(T = 3);
2141 template <> void f(double);
2142 void g () { f (); }
2144 works, as required.) An alternative approach would be to look up
2145 the correct default arguments at the call-site, but this approach
2146 is consistent with how implicit instantiations are handled. */
2148 static void
2149 copy_default_args_to_explicit_spec (tree decl)
2151 tree tmpl;
2152 tree spec_types;
2153 tree tmpl_types;
2154 tree new_spec_types;
2155 tree old_type;
2156 tree new_type;
2157 tree t;
2158 tree object_type = NULL_TREE;
2159 tree in_charge = NULL_TREE;
2160 tree vtt = NULL_TREE;
2162 /* See if there's anything we need to do. */
2163 tmpl = DECL_TI_TEMPLATE (decl);
2164 tmpl_types = TYPE_ARG_TYPES (TREE_TYPE (DECL_TEMPLATE_RESULT (tmpl)));
2165 for (t = tmpl_types; t; t = TREE_CHAIN (t))
2166 if (TREE_PURPOSE (t))
2167 break;
2168 if (!t)
2169 return;
2171 old_type = TREE_TYPE (decl);
2172 spec_types = TYPE_ARG_TYPES (old_type);
2174 if (DECL_NONSTATIC_MEMBER_FUNCTION_P (decl))
2176 /* Remove the this pointer, but remember the object's type for
2177 CV quals. */
2178 object_type = TREE_TYPE (TREE_VALUE (spec_types));
2179 spec_types = TREE_CHAIN (spec_types);
2180 tmpl_types = TREE_CHAIN (tmpl_types);
2182 if (DECL_HAS_IN_CHARGE_PARM_P (decl))
2184 /* DECL may contain more parameters than TMPL due to the extra
2185 in-charge parameter in constructors and destructors. */
2186 in_charge = spec_types;
2187 spec_types = TREE_CHAIN (spec_types);
2189 if (DECL_HAS_VTT_PARM_P (decl))
2191 vtt = spec_types;
2192 spec_types = TREE_CHAIN (spec_types);
2196 /* Compute the merged default arguments. */
2197 new_spec_types =
2198 copy_default_args_to_explicit_spec_1 (spec_types, tmpl_types);
2200 /* Compute the new FUNCTION_TYPE. */
2201 if (object_type)
2203 if (vtt)
2204 new_spec_types = hash_tree_cons (TREE_PURPOSE (vtt),
2205 TREE_VALUE (vtt),
2206 new_spec_types);
2208 if (in_charge)
2209 /* Put the in-charge parameter back. */
2210 new_spec_types = hash_tree_cons (TREE_PURPOSE (in_charge),
2211 TREE_VALUE (in_charge),
2212 new_spec_types);
2214 new_type = build_method_type_directly (object_type,
2215 TREE_TYPE (old_type),
2216 new_spec_types);
2218 else
2219 new_type = build_function_type (TREE_TYPE (old_type),
2220 new_spec_types);
2221 new_type = cp_build_type_attribute_variant (new_type,
2222 TYPE_ATTRIBUTES (old_type));
2223 new_type = build_exception_variant (new_type,
2224 TYPE_RAISES_EXCEPTIONS (old_type));
2225 TREE_TYPE (decl) = new_type;
2228 /* Return the number of template headers we expect to see for a definition
2229 or specialization of CTYPE or one of its non-template members. */
2232 num_template_headers_for_class (tree ctype)
2234 int num_templates = 0;
2236 while (ctype && CLASS_TYPE_P (ctype))
2238 /* You're supposed to have one `template <...>' for every
2239 template class, but you don't need one for a full
2240 specialization. For example:
2242 template <class T> struct S{};
2243 template <> struct S<int> { void f(); };
2244 void S<int>::f () {}
2246 is correct; there shouldn't be a `template <>' for the
2247 definition of `S<int>::f'. */
2248 if (!CLASSTYPE_TEMPLATE_INFO (ctype))
2249 /* If CTYPE does not have template information of any
2250 kind, then it is not a template, nor is it nested
2251 within a template. */
2252 break;
2253 if (explicit_class_specialization_p (ctype))
2254 break;
2255 if (PRIMARY_TEMPLATE_P (CLASSTYPE_TI_TEMPLATE (ctype)))
2256 ++num_templates;
2258 ctype = TYPE_CONTEXT (ctype);
2261 return num_templates;
2264 /* Do a simple sanity check on the template headers that precede the
2265 variable declaration DECL. */
2267 void
2268 check_template_variable (tree decl)
2270 tree ctx = CP_DECL_CONTEXT (decl);
2271 int wanted = num_template_headers_for_class (ctx);
2272 if (!TYPE_P (ctx) || !CLASSTYPE_TEMPLATE_INFO (ctx))
2273 permerror (DECL_SOURCE_LOCATION (decl),
2274 "%qD is not a static data member of a class template", decl);
2275 else if (template_header_count > wanted)
2277 pedwarn (DECL_SOURCE_LOCATION (decl), 0,
2278 "too many template headers for %D (should be %d)",
2279 decl, wanted);
2280 if (CLASSTYPE_TEMPLATE_SPECIALIZATION (ctx))
2281 inform (DECL_SOURCE_LOCATION (decl),
2282 "members of an explicitly specialized class are defined "
2283 "without a template header");
2287 /* Check to see if the function just declared, as indicated in
2288 DECLARATOR, and in DECL, is a specialization of a function
2289 template. We may also discover that the declaration is an explicit
2290 instantiation at this point.
2292 Returns DECL, or an equivalent declaration that should be used
2293 instead if all goes well. Issues an error message if something is
2294 amiss. Returns error_mark_node if the error is not easily
2295 recoverable.
2297 FLAGS is a bitmask consisting of the following flags:
2299 2: The function has a definition.
2300 4: The function is a friend.
2302 The TEMPLATE_COUNT is the number of references to qualifying
2303 template classes that appeared in the name of the function. For
2304 example, in
2306 template <class T> struct S { void f(); };
2307 void S<int>::f();
2309 the TEMPLATE_COUNT would be 1. However, explicitly specialized
2310 classes are not counted in the TEMPLATE_COUNT, so that in
2312 template <class T> struct S {};
2313 template <> struct S<int> { void f(); }
2314 template <> void S<int>::f();
2316 the TEMPLATE_COUNT would be 0. (Note that this declaration is
2317 invalid; there should be no template <>.)
2319 If the function is a specialization, it is marked as such via
2320 DECL_TEMPLATE_SPECIALIZATION. Furthermore, its DECL_TEMPLATE_INFO
2321 is set up correctly, and it is added to the list of specializations
2322 for that template. */
2324 tree
2325 check_explicit_specialization (tree declarator,
2326 tree decl,
2327 int template_count,
2328 int flags)
2330 int have_def = flags & 2;
2331 int is_friend = flags & 4;
2332 int specialization = 0;
2333 int explicit_instantiation = 0;
2334 int member_specialization = 0;
2335 tree ctype = DECL_CLASS_CONTEXT (decl);
2336 tree dname = DECL_NAME (decl);
2337 tmpl_spec_kind tsk;
2339 if (is_friend)
2341 if (!processing_specialization)
2342 tsk = tsk_none;
2343 else
2344 tsk = tsk_excessive_parms;
2346 else
2347 tsk = current_tmpl_spec_kind (template_count);
2349 switch (tsk)
2351 case tsk_none:
2352 if (processing_specialization)
2354 specialization = 1;
2355 SET_DECL_TEMPLATE_SPECIALIZATION (decl);
2357 else if (TREE_CODE (declarator) == TEMPLATE_ID_EXPR)
2359 if (is_friend)
2360 /* This could be something like:
2362 template <class T> void f(T);
2363 class S { friend void f<>(int); } */
2364 specialization = 1;
2365 else
2367 /* This case handles bogus declarations like template <>
2368 template <class T> void f<int>(); */
2370 error ("template-id %qD in declaration of primary template",
2371 declarator);
2372 return decl;
2375 break;
2377 case tsk_invalid_member_spec:
2378 /* The error has already been reported in
2379 check_specialization_scope. */
2380 return error_mark_node;
2382 case tsk_invalid_expl_inst:
2383 error ("template parameter list used in explicit instantiation");
2385 /* Fall through. */
2387 case tsk_expl_inst:
2388 if (have_def)
2389 error ("definition provided for explicit instantiation");
2391 explicit_instantiation = 1;
2392 break;
2394 case tsk_excessive_parms:
2395 case tsk_insufficient_parms:
2396 if (tsk == tsk_excessive_parms)
2397 error ("too many template parameter lists in declaration of %qD",
2398 decl);
2399 else if (template_header_count)
2400 error("too few template parameter lists in declaration of %qD", decl);
2401 else
2402 error("explicit specialization of %qD must be introduced by "
2403 "%<template <>%>", decl);
2405 /* Fall through. */
2406 case tsk_expl_spec:
2407 SET_DECL_TEMPLATE_SPECIALIZATION (decl);
2408 if (ctype)
2409 member_specialization = 1;
2410 else
2411 specialization = 1;
2412 break;
2414 case tsk_template:
2415 if (TREE_CODE (declarator) == TEMPLATE_ID_EXPR)
2417 /* This case handles bogus declarations like template <>
2418 template <class T> void f<int>(); */
2420 if (uses_template_parms (declarator))
2421 error ("function template partial specialization %qD "
2422 "is not allowed", declarator);
2423 else
2424 error ("template-id %qD in declaration of primary template",
2425 declarator);
2426 return decl;
2429 if (ctype && CLASSTYPE_TEMPLATE_INSTANTIATION (ctype))
2430 /* This is a specialization of a member template, without
2431 specialization the containing class. Something like:
2433 template <class T> struct S {
2434 template <class U> void f (U);
2436 template <> template <class U> void S<int>::f(U) {}
2438 That's a specialization -- but of the entire template. */
2439 specialization = 1;
2440 break;
2442 default:
2443 gcc_unreachable ();
2446 if (specialization || member_specialization)
2448 tree t = TYPE_ARG_TYPES (TREE_TYPE (decl));
2449 for (; t; t = TREE_CHAIN (t))
2450 if (TREE_PURPOSE (t))
2452 permerror (input_location,
2453 "default argument specified in explicit specialization");
2454 break;
2458 if (specialization || member_specialization || explicit_instantiation)
2460 tree tmpl = NULL_TREE;
2461 tree targs = NULL_TREE;
2463 /* Make sure that the declarator is a TEMPLATE_ID_EXPR. */
2464 if (TREE_CODE (declarator) != TEMPLATE_ID_EXPR)
2466 tree fns;
2468 gcc_assert (TREE_CODE (declarator) == IDENTIFIER_NODE);
2469 if (ctype)
2470 fns = dname;
2471 else
2473 /* If there is no class context, the explicit instantiation
2474 must be at namespace scope. */
2475 gcc_assert (DECL_NAMESPACE_SCOPE_P (decl));
2477 /* Find the namespace binding, using the declaration
2478 context. */
2479 fns = lookup_qualified_name (CP_DECL_CONTEXT (decl), dname,
2480 false, true);
2481 if (fns == error_mark_node || !is_overloaded_fn (fns))
2483 error ("%qD is not a template function", dname);
2484 fns = error_mark_node;
2486 else
2488 tree fn = OVL_CURRENT (fns);
2489 if (!is_associated_namespace (CP_DECL_CONTEXT (decl),
2490 CP_DECL_CONTEXT (fn)))
2491 error ("%qD is not declared in %qD",
2492 decl, current_namespace);
2496 declarator = lookup_template_function (fns, NULL_TREE);
2499 if (declarator == error_mark_node)
2500 return error_mark_node;
2502 if (ctype != NULL_TREE && TYPE_BEING_DEFINED (ctype))
2504 if (!explicit_instantiation)
2505 /* A specialization in class scope. This is invalid,
2506 but the error will already have been flagged by
2507 check_specialization_scope. */
2508 return error_mark_node;
2509 else
2511 /* It's not valid to write an explicit instantiation in
2512 class scope, e.g.:
2514 class C { template void f(); }
2516 This case is caught by the parser. However, on
2517 something like:
2519 template class C { void f(); };
2521 (which is invalid) we can get here. The error will be
2522 issued later. */
2526 return decl;
2528 else if (ctype != NULL_TREE
2529 && (TREE_CODE (TREE_OPERAND (declarator, 0)) ==
2530 IDENTIFIER_NODE))
2532 /* Find the list of functions in ctype that have the same
2533 name as the declared function. */
2534 tree name = TREE_OPERAND (declarator, 0);
2535 tree fns = NULL_TREE;
2536 int idx;
2538 if (constructor_name_p (name, ctype))
2540 int is_constructor = DECL_CONSTRUCTOR_P (decl);
2542 if (is_constructor ? !TYPE_HAS_USER_CONSTRUCTOR (ctype)
2543 : !CLASSTYPE_DESTRUCTORS (ctype))
2545 /* From [temp.expl.spec]:
2547 If such an explicit specialization for the member
2548 of a class template names an implicitly-declared
2549 special member function (clause _special_), the
2550 program is ill-formed.
2552 Similar language is found in [temp.explicit]. */
2553 error ("specialization of implicitly-declared special member function");
2554 return error_mark_node;
2557 name = is_constructor ? ctor_identifier : dtor_identifier;
2560 if (!DECL_CONV_FN_P (decl))
2562 idx = lookup_fnfields_1 (ctype, name);
2563 if (idx >= 0)
2564 fns = (*CLASSTYPE_METHOD_VEC (ctype))[idx];
2566 else
2568 vec<tree, va_gc> *methods;
2569 tree ovl;
2571 /* For a type-conversion operator, we cannot do a
2572 name-based lookup. We might be looking for `operator
2573 int' which will be a specialization of `operator T'.
2574 So, we find *all* the conversion operators, and then
2575 select from them. */
2576 fns = NULL_TREE;
2578 methods = CLASSTYPE_METHOD_VEC (ctype);
2579 if (methods)
2580 for (idx = CLASSTYPE_FIRST_CONVERSION_SLOT;
2581 methods->iterate (idx, &ovl);
2582 ++idx)
2584 if (!DECL_CONV_FN_P (OVL_CURRENT (ovl)))
2585 /* There are no more conversion functions. */
2586 break;
2588 /* Glue all these conversion functions together
2589 with those we already have. */
2590 for (; ovl; ovl = OVL_NEXT (ovl))
2591 fns = ovl_cons (OVL_CURRENT (ovl), fns);
2595 if (fns == NULL_TREE)
2597 error ("no member function %qD declared in %qT", name, ctype);
2598 return error_mark_node;
2600 else
2601 TREE_OPERAND (declarator, 0) = fns;
2604 /* Figure out what exactly is being specialized at this point.
2605 Note that for an explicit instantiation, even one for a
2606 member function, we cannot tell apriori whether the
2607 instantiation is for a member template, or just a member
2608 function of a template class. Even if a member template is
2609 being instantiated, the member template arguments may be
2610 elided if they can be deduced from the rest of the
2611 declaration. */
2612 tmpl = determine_specialization (declarator, decl,
2613 &targs,
2614 member_specialization,
2615 template_count,
2616 tsk);
2618 if (!tmpl || tmpl == error_mark_node)
2619 /* We couldn't figure out what this declaration was
2620 specializing. */
2621 return error_mark_node;
2622 else
2624 tree gen_tmpl = most_general_template (tmpl);
2626 if (explicit_instantiation)
2628 /* We don't set DECL_EXPLICIT_INSTANTIATION here; that
2629 is done by do_decl_instantiation later. */
2631 int arg_depth = TMPL_ARGS_DEPTH (targs);
2632 int parm_depth = TMPL_PARMS_DEPTH (DECL_TEMPLATE_PARMS (tmpl));
2634 if (arg_depth > parm_depth)
2636 /* If TMPL is not the most general template (for
2637 example, if TMPL is a friend template that is
2638 injected into namespace scope), then there will
2639 be too many levels of TARGS. Remove some of them
2640 here. */
2641 int i;
2642 tree new_targs;
2644 new_targs = make_tree_vec (parm_depth);
2645 for (i = arg_depth - parm_depth; i < arg_depth; ++i)
2646 TREE_VEC_ELT (new_targs, i - (arg_depth - parm_depth))
2647 = TREE_VEC_ELT (targs, i);
2648 targs = new_targs;
2651 return instantiate_template (tmpl, targs, tf_error);
2654 /* If we thought that the DECL was a member function, but it
2655 turns out to be specializing a static member function,
2656 make DECL a static member function as well. */
2657 if (DECL_STATIC_FUNCTION_P (tmpl)
2658 && DECL_NONSTATIC_MEMBER_FUNCTION_P (decl))
2659 revert_static_member_fn (decl);
2661 /* If this is a specialization of a member template of a
2662 template class, we want to return the TEMPLATE_DECL, not
2663 the specialization of it. */
2664 if (tsk == tsk_template)
2666 tree result = DECL_TEMPLATE_RESULT (tmpl);
2667 SET_DECL_TEMPLATE_SPECIALIZATION (tmpl);
2668 DECL_INITIAL (result) = NULL_TREE;
2669 if (have_def)
2671 tree parm;
2672 DECL_SOURCE_LOCATION (tmpl) = DECL_SOURCE_LOCATION (decl);
2673 DECL_SOURCE_LOCATION (result)
2674 = DECL_SOURCE_LOCATION (decl);
2675 /* We want to use the argument list specified in the
2676 definition, not in the original declaration. */
2677 DECL_ARGUMENTS (result) = DECL_ARGUMENTS (decl);
2678 for (parm = DECL_ARGUMENTS (result); parm;
2679 parm = DECL_CHAIN (parm))
2680 DECL_CONTEXT (parm) = result;
2682 return register_specialization (tmpl, gen_tmpl, targs,
2683 is_friend, 0);
2686 /* Set up the DECL_TEMPLATE_INFO for DECL. */
2687 DECL_TEMPLATE_INFO (decl) = build_template_info (tmpl, targs);
2689 /* Inherit default function arguments from the template
2690 DECL is specializing. */
2691 copy_default_args_to_explicit_spec (decl);
2693 /* This specialization has the same protection as the
2694 template it specializes. */
2695 TREE_PRIVATE (decl) = TREE_PRIVATE (gen_tmpl);
2696 TREE_PROTECTED (decl) = TREE_PROTECTED (gen_tmpl);
2698 /* 7.1.1-1 [dcl.stc]
2700 A storage-class-specifier shall not be specified in an
2701 explicit specialization...
2703 The parser rejects these, so unless action is taken here,
2704 explicit function specializations will always appear with
2705 global linkage.
2707 The action recommended by the C++ CWG in response to C++
2708 defect report 605 is to make the storage class and linkage
2709 of the explicit specialization match the templated function:
2711 http://www.open-std.org/jtc1/sc22/wg21/docs/cwg_active.html#605
2713 if (tsk == tsk_expl_spec && DECL_FUNCTION_TEMPLATE_P (gen_tmpl))
2715 tree tmpl_func = DECL_TEMPLATE_RESULT (gen_tmpl);
2716 gcc_assert (TREE_CODE (tmpl_func) == FUNCTION_DECL);
2718 /* This specialization has the same linkage and visibility as
2719 the function template it specializes. */
2720 TREE_PUBLIC (decl) = TREE_PUBLIC (tmpl_func);
2721 if (! TREE_PUBLIC (decl))
2723 DECL_INTERFACE_KNOWN (decl) = 1;
2724 DECL_NOT_REALLY_EXTERN (decl) = 1;
2726 DECL_THIS_STATIC (decl) = DECL_THIS_STATIC (tmpl_func);
2727 if (DECL_VISIBILITY_SPECIFIED (tmpl_func))
2729 DECL_VISIBILITY_SPECIFIED (decl) = 1;
2730 DECL_VISIBILITY (decl) = DECL_VISIBILITY (tmpl_func);
2734 /* If DECL is a friend declaration, declared using an
2735 unqualified name, the namespace associated with DECL may
2736 have been set incorrectly. For example, in:
2738 template <typename T> void f(T);
2739 namespace N {
2740 struct S { friend void f<int>(int); }
2743 we will have set the DECL_CONTEXT for the friend
2744 declaration to N, rather than to the global namespace. */
2745 if (DECL_NAMESPACE_SCOPE_P (decl))
2746 DECL_CONTEXT (decl) = DECL_CONTEXT (tmpl);
2748 if (is_friend && !have_def)
2749 /* This is not really a declaration of a specialization.
2750 It's just the name of an instantiation. But, it's not
2751 a request for an instantiation, either. */
2752 SET_DECL_IMPLICIT_INSTANTIATION (decl);
2753 else if (DECL_CONSTRUCTOR_P (decl) || DECL_DESTRUCTOR_P (decl))
2754 /* This is indeed a specialization. In case of constructors
2755 and destructors, we need in-charge and not-in-charge
2756 versions in V3 ABI. */
2757 clone_function_decl (decl, /*update_method_vec_p=*/0);
2759 /* Register this specialization so that we can find it
2760 again. */
2761 decl = register_specialization (decl, gen_tmpl, targs, is_friend, 0);
2765 return decl;
2768 /* Returns 1 iff PARMS1 and PARMS2 are identical sets of template
2769 parameters. These are represented in the same format used for
2770 DECL_TEMPLATE_PARMS. */
2773 comp_template_parms (const_tree parms1, const_tree parms2)
2775 const_tree p1;
2776 const_tree p2;
2778 if (parms1 == parms2)
2779 return 1;
2781 for (p1 = parms1, p2 = parms2;
2782 p1 != NULL_TREE && p2 != NULL_TREE;
2783 p1 = TREE_CHAIN (p1), p2 = TREE_CHAIN (p2))
2785 tree t1 = TREE_VALUE (p1);
2786 tree t2 = TREE_VALUE (p2);
2787 int i;
2789 gcc_assert (TREE_CODE (t1) == TREE_VEC);
2790 gcc_assert (TREE_CODE (t2) == TREE_VEC);
2792 if (TREE_VEC_LENGTH (t1) != TREE_VEC_LENGTH (t2))
2793 return 0;
2795 for (i = 0; i < TREE_VEC_LENGTH (t2); ++i)
2797 tree parm1 = TREE_VALUE (TREE_VEC_ELT (t1, i));
2798 tree parm2 = TREE_VALUE (TREE_VEC_ELT (t2, i));
2800 /* If either of the template parameters are invalid, assume
2801 they match for the sake of error recovery. */
2802 if (parm1 == error_mark_node || parm2 == error_mark_node)
2803 return 1;
2805 if (TREE_CODE (parm1) != TREE_CODE (parm2))
2806 return 0;
2808 if (TREE_CODE (parm1) == TEMPLATE_TYPE_PARM
2809 && (TEMPLATE_TYPE_PARAMETER_PACK (parm1)
2810 == TEMPLATE_TYPE_PARAMETER_PACK (parm2)))
2811 continue;
2812 else if (!same_type_p (TREE_TYPE (parm1), TREE_TYPE (parm2)))
2813 return 0;
2817 if ((p1 != NULL_TREE) != (p2 != NULL_TREE))
2818 /* One set of parameters has more parameters lists than the
2819 other. */
2820 return 0;
2822 return 1;
2825 /* Determine whether PARM is a parameter pack. */
2827 bool
2828 template_parameter_pack_p (const_tree parm)
2830 /* Determine if we have a non-type template parameter pack. */
2831 if (TREE_CODE (parm) == PARM_DECL)
2832 return (DECL_TEMPLATE_PARM_P (parm)
2833 && TEMPLATE_PARM_PARAMETER_PACK (DECL_INITIAL (parm)));
2834 if (TREE_CODE (parm) == TEMPLATE_PARM_INDEX)
2835 return TEMPLATE_PARM_PARAMETER_PACK (parm);
2837 /* If this is a list of template parameters, we could get a
2838 TYPE_DECL or a TEMPLATE_DECL. */
2839 if (TREE_CODE (parm) == TYPE_DECL || TREE_CODE (parm) == TEMPLATE_DECL)
2840 parm = TREE_TYPE (parm);
2842 /* Otherwise it must be a type template parameter. */
2843 return ((TREE_CODE (parm) == TEMPLATE_TYPE_PARM
2844 || TREE_CODE (parm) == TEMPLATE_TEMPLATE_PARM)
2845 && TEMPLATE_TYPE_PARAMETER_PACK (parm));
2848 /* Determine if T is a function parameter pack. */
2850 bool
2851 function_parameter_pack_p (const_tree t)
2853 if (t && TREE_CODE (t) == PARM_DECL)
2854 return FUNCTION_PARAMETER_PACK_P (t);
2855 return false;
2858 /* Return the function template declaration of PRIMARY_FUNC_TMPL_INST.
2859 PRIMARY_FUNC_TMPL_INST is a primary function template instantiation. */
2861 tree
2862 get_function_template_decl (const_tree primary_func_tmpl_inst)
2864 if (! primary_func_tmpl_inst
2865 || TREE_CODE (primary_func_tmpl_inst) != FUNCTION_DECL
2866 || ! primary_template_instantiation_p (primary_func_tmpl_inst))
2867 return NULL;
2869 return DECL_TEMPLATE_RESULT (DECL_TI_TEMPLATE (primary_func_tmpl_inst));
2872 /* Return true iff the function parameter PARAM_DECL was expanded
2873 from the function parameter pack PACK. */
2875 bool
2876 function_parameter_expanded_from_pack_p (tree param_decl, tree pack)
2878 if (DECL_ARTIFICIAL (param_decl)
2879 || !function_parameter_pack_p (pack))
2880 return false;
2882 /* The parameter pack and its pack arguments have the same
2883 DECL_PARM_INDEX. */
2884 return DECL_PARM_INDEX (pack) == DECL_PARM_INDEX (param_decl);
2887 /* Determine whether ARGS describes a variadic template args list,
2888 i.e., one that is terminated by a template argument pack. */
2890 static bool
2891 template_args_variadic_p (tree args)
2893 int nargs;
2894 tree last_parm;
2896 if (args == NULL_TREE)
2897 return false;
2899 args = INNERMOST_TEMPLATE_ARGS (args);
2900 nargs = TREE_VEC_LENGTH (args);
2902 if (nargs == 0)
2903 return false;
2905 last_parm = TREE_VEC_ELT (args, nargs - 1);
2907 return ARGUMENT_PACK_P (last_parm);
2910 /* Generate a new name for the parameter pack name NAME (an
2911 IDENTIFIER_NODE) that incorporates its */
2913 static tree
2914 make_ith_pack_parameter_name (tree name, int i)
2916 /* Munge the name to include the parameter index. */
2917 #define NUMBUF_LEN 128
2918 char numbuf[NUMBUF_LEN];
2919 char* newname;
2920 int newname_len;
2922 if (name == NULL_TREE)
2923 return name;
2924 snprintf (numbuf, NUMBUF_LEN, "%i", i);
2925 newname_len = IDENTIFIER_LENGTH (name)
2926 + strlen (numbuf) + 2;
2927 newname = (char*)alloca (newname_len);
2928 snprintf (newname, newname_len,
2929 "%s#%i", IDENTIFIER_POINTER (name), i);
2930 return get_identifier (newname);
2933 /* Return true if T is a primary function, class or alias template
2934 instantiation. */
2936 bool
2937 primary_template_instantiation_p (const_tree t)
2939 if (!t)
2940 return false;
2942 if (TREE_CODE (t) == FUNCTION_DECL)
2943 return DECL_LANG_SPECIFIC (t)
2944 && DECL_TEMPLATE_INSTANTIATION (t)
2945 && PRIMARY_TEMPLATE_P (DECL_TI_TEMPLATE (t));
2946 else if (CLASS_TYPE_P (t) && !TYPE_DECL_ALIAS_P (TYPE_NAME (t)))
2947 return CLASSTYPE_TEMPLATE_INSTANTIATION (t)
2948 && PRIMARY_TEMPLATE_P (CLASSTYPE_TI_TEMPLATE (t));
2949 else if (alias_template_specialization_p (t))
2950 return true;
2951 return false;
2954 /* Return true if PARM is a template template parameter. */
2956 bool
2957 template_template_parameter_p (const_tree parm)
2959 return DECL_TEMPLATE_TEMPLATE_PARM_P (parm);
2962 /* Return true iff PARM is a DECL representing a type template
2963 parameter. */
2965 bool
2966 template_type_parameter_p (const_tree parm)
2968 return (parm
2969 && (TREE_CODE (parm) == TYPE_DECL
2970 || TREE_CODE (parm) == TEMPLATE_DECL)
2971 && DECL_TEMPLATE_PARM_P (parm));
2974 /* Return the template parameters of T if T is a
2975 primary template instantiation, NULL otherwise. */
2977 tree
2978 get_primary_template_innermost_parameters (const_tree t)
2980 tree parms = NULL, template_info = NULL;
2982 if ((template_info = get_template_info (t))
2983 && primary_template_instantiation_p (t))
2984 parms = INNERMOST_TEMPLATE_PARMS
2985 (DECL_TEMPLATE_PARMS (TI_TEMPLATE (template_info)));
2987 return parms;
2990 /* Return the template parameters of the LEVELth level from the full list
2991 of template parameters PARMS. */
2993 tree
2994 get_template_parms_at_level (tree parms, int level)
2996 tree p;
2997 if (!parms
2998 || TREE_CODE (parms) != TREE_LIST
2999 || level > TMPL_PARMS_DEPTH (parms))
3000 return NULL_TREE;
3002 for (p = parms; p; p = TREE_CHAIN (p))
3003 if (TMPL_PARMS_DEPTH (p) == level)
3004 return p;
3006 return NULL_TREE;
3009 /* Returns the template arguments of T if T is a template instantiation,
3010 NULL otherwise. */
3012 tree
3013 get_template_innermost_arguments (const_tree t)
3015 tree args = NULL, template_info = NULL;
3017 if ((template_info = get_template_info (t))
3018 && TI_ARGS (template_info))
3019 args = INNERMOST_TEMPLATE_ARGS (TI_ARGS (template_info));
3021 return args;
3024 /* Return the argument pack elements of T if T is a template argument pack,
3025 NULL otherwise. */
3027 tree
3028 get_template_argument_pack_elems (const_tree t)
3030 if (TREE_CODE (t) != TYPE_ARGUMENT_PACK
3031 && TREE_CODE (t) != NONTYPE_ARGUMENT_PACK)
3032 return NULL;
3034 return ARGUMENT_PACK_ARGS (t);
3037 /* Structure used to track the progress of find_parameter_packs_r. */
3038 struct find_parameter_pack_data
3040 /* TREE_LIST that will contain all of the parameter packs found by
3041 the traversal. */
3042 tree* parameter_packs;
3044 /* Set of AST nodes that have been visited by the traversal. */
3045 struct pointer_set_t *visited;
3048 /* Identifies all of the argument packs that occur in a template
3049 argument and appends them to the TREE_LIST inside DATA, which is a
3050 find_parameter_pack_data structure. This is a subroutine of
3051 make_pack_expansion and uses_parameter_packs. */
3052 static tree
3053 find_parameter_packs_r (tree *tp, int *walk_subtrees, void* data)
3055 tree t = *tp;
3056 struct find_parameter_pack_data* ppd =
3057 (struct find_parameter_pack_data*)data;
3058 bool parameter_pack_p = false;
3060 /* Handle type aliases/typedefs. */
3061 if (TYPE_P (t)
3062 && TYPE_NAME (t)
3063 && TREE_CODE (TYPE_NAME (t)) == TYPE_DECL
3064 && TYPE_DECL_ALIAS_P (TYPE_NAME (t)))
3066 if (TYPE_TEMPLATE_INFO (t))
3067 cp_walk_tree (&TYPE_TI_ARGS (t),
3068 &find_parameter_packs_r,
3069 ppd, ppd->visited);
3070 *walk_subtrees = 0;
3071 return NULL_TREE;
3074 /* Identify whether this is a parameter pack or not. */
3075 switch (TREE_CODE (t))
3077 case TEMPLATE_PARM_INDEX:
3078 if (TEMPLATE_PARM_PARAMETER_PACK (t))
3079 parameter_pack_p = true;
3080 break;
3082 case TEMPLATE_TYPE_PARM:
3083 t = TYPE_MAIN_VARIANT (t);
3084 case TEMPLATE_TEMPLATE_PARM:
3085 if (TEMPLATE_TYPE_PARAMETER_PACK (t))
3086 parameter_pack_p = true;
3087 break;
3089 case PARM_DECL:
3090 if (FUNCTION_PARAMETER_PACK_P (t))
3092 /* We don't want to walk into the type of a PARM_DECL,
3093 because we don't want to see the type parameter pack. */
3094 *walk_subtrees = 0;
3095 parameter_pack_p = true;
3097 break;
3099 case BASES:
3100 parameter_pack_p = true;
3101 break;
3102 default:
3103 /* Not a parameter pack. */
3104 break;
3107 if (parameter_pack_p)
3109 /* Add this parameter pack to the list. */
3110 *ppd->parameter_packs = tree_cons (NULL_TREE, t, *ppd->parameter_packs);
3113 if (TYPE_P (t))
3114 cp_walk_tree (&TYPE_CONTEXT (t),
3115 &find_parameter_packs_r, ppd, ppd->visited);
3117 /* This switch statement will return immediately if we don't find a
3118 parameter pack. */
3119 switch (TREE_CODE (t))
3121 case TEMPLATE_PARM_INDEX:
3122 return NULL_TREE;
3124 case BOUND_TEMPLATE_TEMPLATE_PARM:
3125 /* Check the template itself. */
3126 cp_walk_tree (&TREE_TYPE (TYPE_TI_TEMPLATE (t)),
3127 &find_parameter_packs_r, ppd, ppd->visited);
3128 /* Check the template arguments. */
3129 cp_walk_tree (&TYPE_TI_ARGS (t), &find_parameter_packs_r, ppd,
3130 ppd->visited);
3131 *walk_subtrees = 0;
3132 return NULL_TREE;
3134 case TEMPLATE_TYPE_PARM:
3135 case TEMPLATE_TEMPLATE_PARM:
3136 return NULL_TREE;
3138 case PARM_DECL:
3139 return NULL_TREE;
3141 case RECORD_TYPE:
3142 if (TYPE_PTRMEMFUNC_P (t))
3143 return NULL_TREE;
3144 /* Fall through. */
3146 case UNION_TYPE:
3147 case ENUMERAL_TYPE:
3148 if (TYPE_TEMPLATE_INFO (t))
3149 cp_walk_tree (&TI_ARGS (TYPE_TEMPLATE_INFO (t)),
3150 &find_parameter_packs_r, ppd, ppd->visited);
3152 *walk_subtrees = 0;
3153 return NULL_TREE;
3155 case CONSTRUCTOR:
3156 case TEMPLATE_DECL:
3157 cp_walk_tree (&TREE_TYPE (t),
3158 &find_parameter_packs_r, ppd, ppd->visited);
3159 return NULL_TREE;
3161 case TYPENAME_TYPE:
3162 cp_walk_tree (&TYPENAME_TYPE_FULLNAME (t), &find_parameter_packs_r,
3163 ppd, ppd->visited);
3164 *walk_subtrees = 0;
3165 return NULL_TREE;
3167 case TYPE_PACK_EXPANSION:
3168 case EXPR_PACK_EXPANSION:
3169 *walk_subtrees = 0;
3170 return NULL_TREE;
3172 case INTEGER_TYPE:
3173 cp_walk_tree (&TYPE_MAX_VALUE (t), &find_parameter_packs_r,
3174 ppd, ppd->visited);
3175 *walk_subtrees = 0;
3176 return NULL_TREE;
3178 case IDENTIFIER_NODE:
3179 cp_walk_tree (&TREE_TYPE (t), &find_parameter_packs_r, ppd,
3180 ppd->visited);
3181 *walk_subtrees = 0;
3182 return NULL_TREE;
3184 default:
3185 return NULL_TREE;
3188 return NULL_TREE;
3191 /* Determines if the expression or type T uses any parameter packs. */
3192 bool
3193 uses_parameter_packs (tree t)
3195 tree parameter_packs = NULL_TREE;
3196 struct find_parameter_pack_data ppd;
3197 ppd.parameter_packs = &parameter_packs;
3198 ppd.visited = pointer_set_create ();
3199 cp_walk_tree (&t, &find_parameter_packs_r, &ppd, ppd.visited);
3200 pointer_set_destroy (ppd.visited);
3201 return parameter_packs != NULL_TREE;
3204 /* Turn ARG, which may be an expression, type, or a TREE_LIST
3205 representation a base-class initializer into a parameter pack
3206 expansion. If all goes well, the resulting node will be an
3207 EXPR_PACK_EXPANSION, TYPE_PACK_EXPANSION, or TREE_LIST,
3208 respectively. */
3209 tree
3210 make_pack_expansion (tree arg)
3212 tree result;
3213 tree parameter_packs = NULL_TREE;
3214 bool for_types = false;
3215 struct find_parameter_pack_data ppd;
3217 if (!arg || arg == error_mark_node)
3218 return arg;
3220 if (TREE_CODE (arg) == TREE_LIST)
3222 /* The only time we will see a TREE_LIST here is for a base
3223 class initializer. In this case, the TREE_PURPOSE will be a
3224 _TYPE node (representing the base class expansion we're
3225 initializing) and the TREE_VALUE will be a TREE_LIST
3226 containing the initialization arguments.
3228 The resulting expansion looks somewhat different from most
3229 expansions. Rather than returning just one _EXPANSION, we
3230 return a TREE_LIST whose TREE_PURPOSE is a
3231 TYPE_PACK_EXPANSION containing the bases that will be
3232 initialized. The TREE_VALUE will be identical to the
3233 original TREE_VALUE, which is a list of arguments that will
3234 be passed to each base. We do not introduce any new pack
3235 expansion nodes into the TREE_VALUE (although it is possible
3236 that some already exist), because the TREE_PURPOSE and
3237 TREE_VALUE all need to be expanded together with the same
3238 _EXPANSION node. Note that the TYPE_PACK_EXPANSION in the
3239 resulting TREE_PURPOSE will mention the parameter packs in
3240 both the bases and the arguments to the bases. */
3241 tree purpose;
3242 tree value;
3243 tree parameter_packs = NULL_TREE;
3245 /* Determine which parameter packs will be used by the base
3246 class expansion. */
3247 ppd.visited = pointer_set_create ();
3248 ppd.parameter_packs = &parameter_packs;
3249 cp_walk_tree (&TREE_PURPOSE (arg), &find_parameter_packs_r,
3250 &ppd, ppd.visited);
3252 if (parameter_packs == NULL_TREE)
3254 error ("base initializer expansion %<%T%> contains no parameter packs", arg);
3255 pointer_set_destroy (ppd.visited);
3256 return error_mark_node;
3259 if (TREE_VALUE (arg) != void_type_node)
3261 /* Collect the sets of parameter packs used in each of the
3262 initialization arguments. */
3263 for (value = TREE_VALUE (arg); value; value = TREE_CHAIN (value))
3265 /* Determine which parameter packs will be expanded in this
3266 argument. */
3267 cp_walk_tree (&TREE_VALUE (value), &find_parameter_packs_r,
3268 &ppd, ppd.visited);
3272 pointer_set_destroy (ppd.visited);
3274 /* Create the pack expansion type for the base type. */
3275 purpose = cxx_make_type (TYPE_PACK_EXPANSION);
3276 SET_PACK_EXPANSION_PATTERN (purpose, TREE_PURPOSE (arg));
3277 PACK_EXPANSION_PARAMETER_PACKS (purpose) = parameter_packs;
3279 /* Just use structural equality for these TYPE_PACK_EXPANSIONS;
3280 they will rarely be compared to anything. */
3281 SET_TYPE_STRUCTURAL_EQUALITY (purpose);
3283 return tree_cons (purpose, TREE_VALUE (arg), NULL_TREE);
3286 if (TYPE_P (arg) || TREE_CODE (arg) == TEMPLATE_DECL)
3287 for_types = true;
3289 /* Build the PACK_EXPANSION_* node. */
3290 result = for_types
3291 ? cxx_make_type (TYPE_PACK_EXPANSION)
3292 : make_node (EXPR_PACK_EXPANSION);
3293 SET_PACK_EXPANSION_PATTERN (result, arg);
3294 if (TREE_CODE (result) == EXPR_PACK_EXPANSION)
3296 /* Propagate type and const-expression information. */
3297 TREE_TYPE (result) = TREE_TYPE (arg);
3298 TREE_CONSTANT (result) = TREE_CONSTANT (arg);
3300 else
3301 /* Just use structural equality for these TYPE_PACK_EXPANSIONS;
3302 they will rarely be compared to anything. */
3303 SET_TYPE_STRUCTURAL_EQUALITY (result);
3305 /* Determine which parameter packs will be expanded. */
3306 ppd.parameter_packs = &parameter_packs;
3307 ppd.visited = pointer_set_create ();
3308 cp_walk_tree (&arg, &find_parameter_packs_r, &ppd, ppd.visited);
3309 pointer_set_destroy (ppd.visited);
3311 /* Make sure we found some parameter packs. */
3312 if (parameter_packs == NULL_TREE)
3314 if (TYPE_P (arg))
3315 error ("expansion pattern %<%T%> contains no argument packs", arg);
3316 else
3317 error ("expansion pattern %<%E%> contains no argument packs", arg);
3318 return error_mark_node;
3320 PACK_EXPANSION_PARAMETER_PACKS (result) = parameter_packs;
3322 PACK_EXPANSION_LOCAL_P (result) = at_function_scope_p ();
3324 return result;
3327 /* Checks T for any "bare" parameter packs, which have not yet been
3328 expanded, and issues an error if any are found. This operation can
3329 only be done on full expressions or types (e.g., an expression
3330 statement, "if" condition, etc.), because we could have expressions like:
3332 foo(f(g(h(args)))...)
3334 where "args" is a parameter pack. check_for_bare_parameter_packs
3335 should not be called for the subexpressions args, h(args),
3336 g(h(args)), or f(g(h(args))), because we would produce erroneous
3337 error messages.
3339 Returns TRUE and emits an error if there were bare parameter packs,
3340 returns FALSE otherwise. */
3341 bool
3342 check_for_bare_parameter_packs (tree t)
3344 tree parameter_packs = NULL_TREE;
3345 struct find_parameter_pack_data ppd;
3347 if (!processing_template_decl || !t || t == error_mark_node)
3348 return false;
3350 if (TREE_CODE (t) == TYPE_DECL)
3351 t = TREE_TYPE (t);
3353 ppd.parameter_packs = &parameter_packs;
3354 ppd.visited = pointer_set_create ();
3355 cp_walk_tree (&t, &find_parameter_packs_r, &ppd, ppd.visited);
3356 pointer_set_destroy (ppd.visited);
3358 if (parameter_packs)
3360 error ("parameter packs not expanded with %<...%>:");
3361 while (parameter_packs)
3363 tree pack = TREE_VALUE (parameter_packs);
3364 tree name = NULL_TREE;
3366 if (TREE_CODE (pack) == TEMPLATE_TYPE_PARM
3367 || TREE_CODE (pack) == TEMPLATE_TEMPLATE_PARM)
3368 name = TYPE_NAME (pack);
3369 else if (TREE_CODE (pack) == TEMPLATE_PARM_INDEX)
3370 name = DECL_NAME (TEMPLATE_PARM_DECL (pack));
3371 else
3372 name = DECL_NAME (pack);
3374 if (name)
3375 inform (input_location, " %qD", name);
3376 else
3377 inform (input_location, " <anonymous>");
3379 parameter_packs = TREE_CHAIN (parameter_packs);
3382 return true;
3385 return false;
3388 /* Expand any parameter packs that occur in the template arguments in
3389 ARGS. */
3390 tree
3391 expand_template_argument_pack (tree args)
3393 tree result_args = NULL_TREE;
3394 int in_arg, out_arg = 0, nargs = args ? TREE_VEC_LENGTH (args) : 0;
3395 int num_result_args = -1;
3396 int non_default_args_count = -1;
3398 /* First, determine if we need to expand anything, and the number of
3399 slots we'll need. */
3400 for (in_arg = 0; in_arg < nargs; ++in_arg)
3402 tree arg = TREE_VEC_ELT (args, in_arg);
3403 if (arg == NULL_TREE)
3404 return args;
3405 if (ARGUMENT_PACK_P (arg))
3407 int num_packed = TREE_VEC_LENGTH (ARGUMENT_PACK_ARGS (arg));
3408 if (num_result_args < 0)
3409 num_result_args = in_arg + num_packed;
3410 else
3411 num_result_args += num_packed;
3413 else
3415 if (num_result_args >= 0)
3416 num_result_args++;
3420 /* If no expansion is necessary, we're done. */
3421 if (num_result_args < 0)
3422 return args;
3424 /* Expand arguments. */
3425 result_args = make_tree_vec (num_result_args);
3426 if (NON_DEFAULT_TEMPLATE_ARGS_COUNT (args))
3427 non_default_args_count =
3428 GET_NON_DEFAULT_TEMPLATE_ARGS_COUNT (args);
3429 for (in_arg = 0; in_arg < nargs; ++in_arg)
3431 tree arg = TREE_VEC_ELT (args, in_arg);
3432 if (ARGUMENT_PACK_P (arg))
3434 tree packed = ARGUMENT_PACK_ARGS (arg);
3435 int i, num_packed = TREE_VEC_LENGTH (packed);
3436 for (i = 0; i < num_packed; ++i, ++out_arg)
3437 TREE_VEC_ELT (result_args, out_arg) = TREE_VEC_ELT(packed, i);
3438 if (non_default_args_count > 0)
3439 non_default_args_count += num_packed - 1;
3441 else
3443 TREE_VEC_ELT (result_args, out_arg) = arg;
3444 ++out_arg;
3447 if (non_default_args_count >= 0)
3448 SET_NON_DEFAULT_TEMPLATE_ARGS_COUNT (result_args, non_default_args_count);
3449 return result_args;
3452 /* Checks if DECL shadows a template parameter.
3454 [temp.local]: A template-parameter shall not be redeclared within its
3455 scope (including nested scopes).
3457 Emits an error and returns TRUE if the DECL shadows a parameter,
3458 returns FALSE otherwise. */
3460 bool
3461 check_template_shadow (tree decl)
3463 tree olddecl;
3465 /* If we're not in a template, we can't possibly shadow a template
3466 parameter. */
3467 if (!current_template_parms)
3468 return true;
3470 /* Figure out what we're shadowing. */
3471 if (TREE_CODE (decl) == OVERLOAD)
3472 decl = OVL_CURRENT (decl);
3473 olddecl = innermost_non_namespace_value (DECL_NAME (decl));
3475 /* If there's no previous binding for this name, we're not shadowing
3476 anything, let alone a template parameter. */
3477 if (!olddecl)
3478 return true;
3480 /* If we're not shadowing a template parameter, we're done. Note
3481 that OLDDECL might be an OVERLOAD (or perhaps even an
3482 ERROR_MARK), so we can't just blithely assume it to be a _DECL
3483 node. */
3484 if (!DECL_P (olddecl) || !DECL_TEMPLATE_PARM_P (olddecl))
3485 return true;
3487 /* We check for decl != olddecl to avoid bogus errors for using a
3488 name inside a class. We check TPFI to avoid duplicate errors for
3489 inline member templates. */
3490 if (decl == olddecl
3491 || TEMPLATE_PARMS_FOR_INLINE (current_template_parms))
3492 return true;
3494 /* Don't complain about the injected class name, as we've already
3495 complained about the class itself. */
3496 if (DECL_SELF_REFERENCE_P (decl))
3497 return false;
3499 error ("declaration of %q+#D", decl);
3500 error (" shadows template parm %q+#D", olddecl);
3501 return false;
3504 /* Return a new TEMPLATE_PARM_INDEX with the indicated INDEX, LEVEL,
3505 ORIG_LEVEL, DECL, and TYPE. */
3507 static tree
3508 build_template_parm_index (int index,
3509 int level,
3510 int orig_level,
3511 tree decl,
3512 tree type)
3514 tree t = make_node (TEMPLATE_PARM_INDEX);
3515 TEMPLATE_PARM_IDX (t) = index;
3516 TEMPLATE_PARM_LEVEL (t) = level;
3517 TEMPLATE_PARM_ORIG_LEVEL (t) = orig_level;
3518 TEMPLATE_PARM_DECL (t) = decl;
3519 TREE_TYPE (t) = type;
3520 TREE_CONSTANT (t) = TREE_CONSTANT (decl);
3521 TREE_READONLY (t) = TREE_READONLY (decl);
3523 return t;
3526 /* Find the canonical type parameter for the given template type
3527 parameter. Returns the canonical type parameter, which may be TYPE
3528 if no such parameter existed. */
3530 static tree
3531 canonical_type_parameter (tree type)
3533 tree list;
3534 int idx = TEMPLATE_TYPE_IDX (type);
3535 if (!canonical_template_parms)
3536 vec_alloc (canonical_template_parms, idx+1);
3538 while (canonical_template_parms->length () <= (unsigned)idx)
3539 vec_safe_push (canonical_template_parms, NULL_TREE);
3541 list = (*canonical_template_parms)[idx];
3542 while (list && !comptypes (type, TREE_VALUE (list), COMPARE_STRUCTURAL))
3543 list = TREE_CHAIN (list);
3545 if (list)
3546 return TREE_VALUE (list);
3547 else
3549 (*canonical_template_parms)[idx]
3550 = tree_cons (NULL_TREE, type,
3551 (*canonical_template_parms)[idx]);
3552 return type;
3556 /* Return a TEMPLATE_PARM_INDEX, similar to INDEX, but whose
3557 TEMPLATE_PARM_LEVEL has been decreased by LEVELS. If such a
3558 TEMPLATE_PARM_INDEX already exists, it is returned; otherwise, a
3559 new one is created. */
3561 static tree
3562 reduce_template_parm_level (tree index, tree type, int levels, tree args,
3563 tsubst_flags_t complain)
3565 if (TEMPLATE_PARM_DESCENDANTS (index) == NULL_TREE
3566 || (TEMPLATE_PARM_LEVEL (TEMPLATE_PARM_DESCENDANTS (index))
3567 != TEMPLATE_PARM_LEVEL (index) - levels)
3568 || !same_type_p (type, TREE_TYPE (TEMPLATE_PARM_DESCENDANTS (index))))
3570 tree orig_decl = TEMPLATE_PARM_DECL (index);
3571 tree decl, t;
3573 decl = build_decl (DECL_SOURCE_LOCATION (orig_decl),
3574 TREE_CODE (orig_decl), DECL_NAME (orig_decl), type);
3575 TREE_CONSTANT (decl) = TREE_CONSTANT (orig_decl);
3576 TREE_READONLY (decl) = TREE_READONLY (orig_decl);
3577 DECL_ARTIFICIAL (decl) = 1;
3578 SET_DECL_TEMPLATE_PARM_P (decl);
3580 t = build_template_parm_index (TEMPLATE_PARM_IDX (index),
3581 TEMPLATE_PARM_LEVEL (index) - levels,
3582 TEMPLATE_PARM_ORIG_LEVEL (index),
3583 decl, type);
3584 TEMPLATE_PARM_DESCENDANTS (index) = t;
3585 TEMPLATE_PARM_PARAMETER_PACK (t)
3586 = TEMPLATE_PARM_PARAMETER_PACK (index);
3588 /* Template template parameters need this. */
3589 if (TREE_CODE (decl) == TEMPLATE_DECL)
3590 DECL_TEMPLATE_PARMS (decl) = tsubst_template_parms
3591 (DECL_TEMPLATE_PARMS (TEMPLATE_PARM_DECL (index)),
3592 args, complain);
3595 return TEMPLATE_PARM_DESCENDANTS (index);
3598 /* Process information from new template parameter PARM and append it
3599 to the LIST being built. This new parameter is a non-type
3600 parameter iff IS_NON_TYPE is true. This new parameter is a
3601 parameter pack iff IS_PARAMETER_PACK is true. The location of PARM
3602 is in PARM_LOC. NUM_TEMPLATE_PARMS is the size of the template
3603 parameter list PARM belongs to. This is used used to create a
3604 proper canonical type for the type of PARM that is to be created,
3605 iff PARM is a type. If the size is not known, this parameter shall
3606 be set to 0. */
3608 tree
3609 process_template_parm (tree list, location_t parm_loc, tree parm,
3610 bool is_non_type, bool is_parameter_pack)
3612 tree decl = 0;
3613 tree defval;
3614 tree err_parm_list;
3615 int idx = 0;
3617 gcc_assert (TREE_CODE (parm) == TREE_LIST);
3618 defval = TREE_PURPOSE (parm);
3620 if (list)
3622 tree p = tree_last (list);
3624 if (p && TREE_VALUE (p) != error_mark_node)
3626 p = TREE_VALUE (p);
3627 if (TREE_CODE (p) == TYPE_DECL || TREE_CODE (p) == TEMPLATE_DECL)
3628 idx = TEMPLATE_TYPE_IDX (TREE_TYPE (p));
3629 else
3630 idx = TEMPLATE_PARM_IDX (DECL_INITIAL (p));
3633 ++idx;
3635 else
3636 idx = 0;
3638 if (is_non_type)
3640 parm = TREE_VALUE (parm);
3642 SET_DECL_TEMPLATE_PARM_P (parm);
3644 if (TREE_TYPE (parm) == error_mark_node)
3646 err_parm_list = build_tree_list (defval, parm);
3647 TREE_VALUE (err_parm_list) = error_mark_node;
3648 return chainon (list, err_parm_list);
3650 else
3652 /* [temp.param]
3654 The top-level cv-qualifiers on the template-parameter are
3655 ignored when determining its type. */
3656 TREE_TYPE (parm) = TYPE_MAIN_VARIANT (TREE_TYPE (parm));
3657 if (invalid_nontype_parm_type_p (TREE_TYPE (parm), 1))
3659 err_parm_list = build_tree_list (defval, parm);
3660 TREE_VALUE (err_parm_list) = error_mark_node;
3661 return chainon (list, err_parm_list);
3664 if (uses_parameter_packs (TREE_TYPE (parm)) && !is_parameter_pack)
3666 /* This template parameter is not a parameter pack, but it
3667 should be. Complain about "bare" parameter packs. */
3668 check_for_bare_parameter_packs (TREE_TYPE (parm));
3670 /* Recover by calling this a parameter pack. */
3671 is_parameter_pack = true;
3675 /* A template parameter is not modifiable. */
3676 TREE_CONSTANT (parm) = 1;
3677 TREE_READONLY (parm) = 1;
3678 decl = build_decl (parm_loc,
3679 CONST_DECL, DECL_NAME (parm), TREE_TYPE (parm));
3680 TREE_CONSTANT (decl) = 1;
3681 TREE_READONLY (decl) = 1;
3682 DECL_INITIAL (parm) = DECL_INITIAL (decl)
3683 = build_template_parm_index (idx, processing_template_decl,
3684 processing_template_decl,
3685 decl, TREE_TYPE (parm));
3687 TEMPLATE_PARM_PARAMETER_PACK (DECL_INITIAL (parm))
3688 = is_parameter_pack;
3690 else
3692 tree t;
3693 parm = TREE_VALUE (TREE_VALUE (parm));
3695 if (parm && TREE_CODE (parm) == TEMPLATE_DECL)
3697 t = cxx_make_type (TEMPLATE_TEMPLATE_PARM);
3698 /* This is for distinguishing between real templates and template
3699 template parameters */
3700 TREE_TYPE (parm) = t;
3701 TREE_TYPE (DECL_TEMPLATE_RESULT (parm)) = t;
3702 decl = parm;
3704 else
3706 t = cxx_make_type (TEMPLATE_TYPE_PARM);
3707 /* parm is either IDENTIFIER_NODE or NULL_TREE. */
3708 decl = build_decl (parm_loc,
3709 TYPE_DECL, parm, t);
3712 TYPE_NAME (t) = decl;
3713 TYPE_STUB_DECL (t) = decl;
3714 parm = decl;
3715 TEMPLATE_TYPE_PARM_INDEX (t)
3716 = build_template_parm_index (idx, processing_template_decl,
3717 processing_template_decl,
3718 decl, TREE_TYPE (parm));
3719 TEMPLATE_TYPE_PARAMETER_PACK (t) = is_parameter_pack;
3720 TYPE_CANONICAL (t) = canonical_type_parameter (t);
3722 DECL_ARTIFICIAL (decl) = 1;
3723 SET_DECL_TEMPLATE_PARM_P (decl);
3724 pushdecl (decl);
3725 parm = build_tree_list (defval, parm);
3726 return chainon (list, parm);
3729 /* The end of a template parameter list has been reached. Process the
3730 tree list into a parameter vector, converting each parameter into a more
3731 useful form. Type parameters are saved as IDENTIFIER_NODEs, and others
3732 as PARM_DECLs. */
3734 tree
3735 end_template_parm_list (tree parms)
3737 int nparms;
3738 tree parm, next;
3739 tree saved_parmlist = make_tree_vec (list_length (parms));
3741 current_template_parms
3742 = tree_cons (size_int (processing_template_decl),
3743 saved_parmlist, current_template_parms);
3745 for (parm = parms, nparms = 0; parm; parm = next, nparms++)
3747 next = TREE_CHAIN (parm);
3748 TREE_VEC_ELT (saved_parmlist, nparms) = parm;
3749 TREE_CHAIN (parm) = NULL_TREE;
3752 --processing_template_parmlist;
3754 return saved_parmlist;
3757 /* end_template_decl is called after a template declaration is seen. */
3759 void
3760 end_template_decl (void)
3762 reset_specialization ();
3764 if (! processing_template_decl)
3765 return;
3767 /* This matches the pushlevel in begin_template_parm_list. */
3768 finish_scope ();
3770 --processing_template_decl;
3771 current_template_parms = TREE_CHAIN (current_template_parms);
3774 /* Takes a TREE_LIST representing a template parameter and convert it
3775 into an argument suitable to be passed to the type substitution
3776 functions. Note that If the TREE_LIST contains an error_mark
3777 node, the returned argument is error_mark_node. */
3779 static tree
3780 template_parm_to_arg (tree t)
3783 if (t == NULL_TREE
3784 || TREE_CODE (t) != TREE_LIST)
3785 return t;
3787 if (error_operand_p (TREE_VALUE (t)))
3788 return error_mark_node;
3790 t = TREE_VALUE (t);
3792 if (TREE_CODE (t) == TYPE_DECL
3793 || TREE_CODE (t) == TEMPLATE_DECL)
3795 t = TREE_TYPE (t);
3797 if (TEMPLATE_TYPE_PARAMETER_PACK (t))
3799 /* Turn this argument into a TYPE_ARGUMENT_PACK
3800 with a single element, which expands T. */
3801 tree vec = make_tree_vec (1);
3802 #ifdef ENABLE_CHECKING
3803 SET_NON_DEFAULT_TEMPLATE_ARGS_COUNT
3804 (vec, TREE_VEC_LENGTH (vec));
3805 #endif
3806 TREE_VEC_ELT (vec, 0) = make_pack_expansion (t);
3808 t = cxx_make_type (TYPE_ARGUMENT_PACK);
3809 SET_ARGUMENT_PACK_ARGS (t, vec);
3812 else
3814 t = DECL_INITIAL (t);
3816 if (TEMPLATE_PARM_PARAMETER_PACK (t))
3818 /* Turn this argument into a NONTYPE_ARGUMENT_PACK
3819 with a single element, which expands T. */
3820 tree vec = make_tree_vec (1);
3821 tree type = TREE_TYPE (TEMPLATE_PARM_DECL (t));
3822 #ifdef ENABLE_CHECKING
3823 SET_NON_DEFAULT_TEMPLATE_ARGS_COUNT
3824 (vec, TREE_VEC_LENGTH (vec));
3825 #endif
3826 t = convert_from_reference (t);
3827 TREE_VEC_ELT (vec, 0) = make_pack_expansion (t);
3829 t = make_node (NONTYPE_ARGUMENT_PACK);
3830 SET_ARGUMENT_PACK_ARGS (t, vec);
3831 TREE_TYPE (t) = type;
3834 return t;
3837 /* Given a set of template parameters, return them as a set of template
3838 arguments. The template parameters are represented as a TREE_VEC, in
3839 the form documented in cp-tree.h for template arguments. */
3841 static tree
3842 template_parms_to_args (tree parms)
3844 tree header;
3845 tree args = NULL_TREE;
3846 int length = TMPL_PARMS_DEPTH (parms);
3847 int l = length;
3849 /* If there is only one level of template parameters, we do not
3850 create a TREE_VEC of TREE_VECs. Instead, we return a single
3851 TREE_VEC containing the arguments. */
3852 if (length > 1)
3853 args = make_tree_vec (length);
3855 for (header = parms; header; header = TREE_CHAIN (header))
3857 tree a = copy_node (TREE_VALUE (header));
3858 int i;
3860 TREE_TYPE (a) = NULL_TREE;
3861 for (i = TREE_VEC_LENGTH (a) - 1; i >= 0; --i)
3862 TREE_VEC_ELT (a, i) = template_parm_to_arg (TREE_VEC_ELT (a, i));
3864 #ifdef ENABLE_CHECKING
3865 SET_NON_DEFAULT_TEMPLATE_ARGS_COUNT (a, TREE_VEC_LENGTH (a));
3866 #endif
3868 if (length > 1)
3869 TREE_VEC_ELT (args, --l) = a;
3870 else
3871 args = a;
3874 if (length > 1 && TREE_VEC_ELT (args, 0) == NULL_TREE)
3875 /* This can happen for template parms of a template template
3876 parameter, e.g:
3878 template<template<class T, class U> class TT> struct S;
3880 Consider the level of the parms of TT; T and U both have
3881 level 2; TT has no template parm of level 1. So in this case
3882 the first element of full_template_args is NULL_TREE. If we
3883 leave it like this TMPL_ARG_DEPTH on args returns 1 instead
3884 of 2. This will make tsubst wrongly consider that T and U
3885 have level 1. Instead, let's create a dummy vector as the
3886 first element of full_template_args so that TMPL_ARG_DEPTH
3887 returns the correct depth for args. */
3888 TREE_VEC_ELT (args, 0) = make_tree_vec (1);
3889 return args;
3892 /* Within the declaration of a template, return the currently active
3893 template parameters as an argument TREE_VEC. */
3895 static tree
3896 current_template_args (void)
3898 return template_parms_to_args (current_template_parms);
3901 /* Update the declared TYPE by doing any lookups which were thought to be
3902 dependent, but are not now that we know the SCOPE of the declarator. */
3904 tree
3905 maybe_update_decl_type (tree orig_type, tree scope)
3907 tree type = orig_type;
3909 if (type == NULL_TREE)
3910 return type;
3912 if (TREE_CODE (orig_type) == TYPE_DECL)
3913 type = TREE_TYPE (type);
3915 if (scope && TYPE_P (scope) && dependent_type_p (scope)
3916 && dependent_type_p (type)
3917 /* Don't bother building up the args in this case. */
3918 && TREE_CODE (type) != TEMPLATE_TYPE_PARM)
3920 /* tsubst in the args corresponding to the template parameters,
3921 including auto if present. Most things will be unchanged, but
3922 make_typename_type and tsubst_qualified_id will resolve
3923 TYPENAME_TYPEs and SCOPE_REFs that were previously dependent. */
3924 tree args = current_template_args ();
3925 tree auto_node = type_uses_auto (type);
3926 tree pushed;
3927 if (auto_node)
3929 tree auto_vec = make_tree_vec (1);
3930 TREE_VEC_ELT (auto_vec, 0) = auto_node;
3931 args = add_to_template_args (args, auto_vec);
3933 pushed = push_scope (scope);
3934 type = tsubst (type, args, tf_warning_or_error, NULL_TREE);
3935 if (pushed)
3936 pop_scope (scope);
3939 if (type == error_mark_node)
3940 return orig_type;
3942 if (TREE_CODE (orig_type) == TYPE_DECL)
3944 if (same_type_p (type, TREE_TYPE (orig_type)))
3945 type = orig_type;
3946 else
3947 type = TYPE_NAME (type);
3949 return type;
3952 /* Return a TEMPLATE_DECL corresponding to DECL, using the indicated
3953 template PARMS. If MEMBER_TEMPLATE_P is true, the new template is
3954 a member template. Used by push_template_decl below. */
3956 static tree
3957 build_template_decl (tree decl, tree parms, bool member_template_p)
3959 tree tmpl = build_lang_decl (TEMPLATE_DECL, DECL_NAME (decl), NULL_TREE);
3960 DECL_TEMPLATE_PARMS (tmpl) = parms;
3961 DECL_CONTEXT (tmpl) = DECL_CONTEXT (decl);
3962 DECL_SOURCE_LOCATION (tmpl) = DECL_SOURCE_LOCATION (decl);
3963 DECL_MEMBER_TEMPLATE_P (tmpl) = member_template_p;
3965 return tmpl;
3968 struct template_parm_data
3970 /* The level of the template parameters we are currently
3971 processing. */
3972 int level;
3974 /* The index of the specialization argument we are currently
3975 processing. */
3976 int current_arg;
3978 /* An array whose size is the number of template parameters. The
3979 elements are nonzero if the parameter has been used in any one
3980 of the arguments processed so far. */
3981 int* parms;
3983 /* An array whose size is the number of template arguments. The
3984 elements are nonzero if the argument makes use of template
3985 parameters of this level. */
3986 int* arg_uses_template_parms;
3989 /* Subroutine of push_template_decl used to see if each template
3990 parameter in a partial specialization is used in the explicit
3991 argument list. If T is of the LEVEL given in DATA (which is
3992 treated as a template_parm_data*), then DATA->PARMS is marked
3993 appropriately. */
3995 static int
3996 mark_template_parm (tree t, void* data)
3998 int level;
3999 int idx;
4000 struct template_parm_data* tpd = (struct template_parm_data*) data;
4002 if (TREE_CODE (t) == TEMPLATE_PARM_INDEX)
4004 level = TEMPLATE_PARM_LEVEL (t);
4005 idx = TEMPLATE_PARM_IDX (t);
4007 else
4009 level = TEMPLATE_TYPE_LEVEL (t);
4010 idx = TEMPLATE_TYPE_IDX (t);
4013 if (level == tpd->level)
4015 tpd->parms[idx] = 1;
4016 tpd->arg_uses_template_parms[tpd->current_arg] = 1;
4019 /* Return zero so that for_each_template_parm will continue the
4020 traversal of the tree; we want to mark *every* template parm. */
4021 return 0;
4024 /* Process the partial specialization DECL. */
4026 static tree
4027 process_partial_specialization (tree decl)
4029 tree type = TREE_TYPE (decl);
4030 tree maintmpl = CLASSTYPE_TI_TEMPLATE (type);
4031 tree specargs = CLASSTYPE_TI_ARGS (type);
4032 tree inner_args = INNERMOST_TEMPLATE_ARGS (specargs);
4033 tree main_inner_parms = DECL_INNERMOST_TEMPLATE_PARMS (maintmpl);
4034 tree inner_parms;
4035 tree inst;
4036 int nargs = TREE_VEC_LENGTH (inner_args);
4037 int ntparms;
4038 int i;
4039 bool did_error_intro = false;
4040 struct template_parm_data tpd;
4041 struct template_parm_data tpd2;
4043 gcc_assert (current_template_parms);
4045 inner_parms = INNERMOST_TEMPLATE_PARMS (current_template_parms);
4046 ntparms = TREE_VEC_LENGTH (inner_parms);
4048 /* We check that each of the template parameters given in the
4049 partial specialization is used in the argument list to the
4050 specialization. For example:
4052 template <class T> struct S;
4053 template <class T> struct S<T*>;
4055 The second declaration is OK because `T*' uses the template
4056 parameter T, whereas
4058 template <class T> struct S<int>;
4060 is no good. Even trickier is:
4062 template <class T>
4063 struct S1
4065 template <class U>
4066 struct S2;
4067 template <class U>
4068 struct S2<T>;
4071 The S2<T> declaration is actually invalid; it is a
4072 full-specialization. Of course,
4074 template <class U>
4075 struct S2<T (*)(U)>;
4077 or some such would have been OK. */
4078 tpd.level = TMPL_PARMS_DEPTH (current_template_parms);
4079 tpd.parms = XALLOCAVEC (int, ntparms);
4080 memset (tpd.parms, 0, sizeof (int) * ntparms);
4082 tpd.arg_uses_template_parms = XALLOCAVEC (int, nargs);
4083 memset (tpd.arg_uses_template_parms, 0, sizeof (int) * nargs);
4084 for (i = 0; i < nargs; ++i)
4086 tpd.current_arg = i;
4087 for_each_template_parm (TREE_VEC_ELT (inner_args, i),
4088 &mark_template_parm,
4089 &tpd,
4090 NULL,
4091 /*include_nondeduced_p=*/false);
4093 for (i = 0; i < ntparms; ++i)
4094 if (tpd.parms[i] == 0)
4096 /* One of the template parms was not used in the
4097 specialization. */
4098 if (!did_error_intro)
4100 error ("template parameters not used in partial specialization:");
4101 did_error_intro = true;
4104 error (" %qD", TREE_VALUE (TREE_VEC_ELT (inner_parms, i)));
4107 if (did_error_intro)
4108 return error_mark_node;
4110 /* [temp.class.spec]
4112 The argument list of the specialization shall not be identical to
4113 the implicit argument list of the primary template. */
4114 if (comp_template_args
4115 (inner_args,
4116 INNERMOST_TEMPLATE_ARGS (CLASSTYPE_TI_ARGS (TREE_TYPE
4117 (maintmpl)))))
4118 error ("partial specialization %qT does not specialize any template arguments", type);
4120 /* A partial specialization that replaces multiple parameters of the
4121 primary template with a pack expansion is less specialized for those
4122 parameters. */
4123 if (nargs < DECL_NTPARMS (maintmpl))
4125 error ("partial specialization is not more specialized than the "
4126 "primary template because it replaces multiple parameters "
4127 "with a pack expansion");
4128 inform (DECL_SOURCE_LOCATION (maintmpl), "primary template here");
4129 return decl;
4132 /* [temp.class.spec]
4134 A partially specialized non-type argument expression shall not
4135 involve template parameters of the partial specialization except
4136 when the argument expression is a simple identifier.
4138 The type of a template parameter corresponding to a specialized
4139 non-type argument shall not be dependent on a parameter of the
4140 specialization.
4142 Also, we verify that pack expansions only occur at the
4143 end of the argument list. */
4144 gcc_assert (nargs == DECL_NTPARMS (maintmpl));
4145 tpd2.parms = 0;
4146 for (i = 0; i < nargs; ++i)
4148 tree parm = TREE_VALUE (TREE_VEC_ELT (main_inner_parms, i));
4149 tree arg = TREE_VEC_ELT (inner_args, i);
4150 tree packed_args = NULL_TREE;
4151 int j, len = 1;
4153 if (ARGUMENT_PACK_P (arg))
4155 /* Extract the arguments from the argument pack. We'll be
4156 iterating over these in the following loop. */
4157 packed_args = ARGUMENT_PACK_ARGS (arg);
4158 len = TREE_VEC_LENGTH (packed_args);
4161 for (j = 0; j < len; j++)
4163 if (packed_args)
4164 /* Get the Jth argument in the parameter pack. */
4165 arg = TREE_VEC_ELT (packed_args, j);
4167 if (PACK_EXPANSION_P (arg))
4169 /* Pack expansions must come at the end of the
4170 argument list. */
4171 if ((packed_args && j < len - 1)
4172 || (!packed_args && i < nargs - 1))
4174 if (TREE_CODE (arg) == EXPR_PACK_EXPANSION)
4175 error ("parameter pack argument %qE must be at the "
4176 "end of the template argument list", arg);
4177 else
4178 error ("parameter pack argument %qT must be at the "
4179 "end of the template argument list", arg);
4183 if (TREE_CODE (arg) == EXPR_PACK_EXPANSION)
4184 /* We only care about the pattern. */
4185 arg = PACK_EXPANSION_PATTERN (arg);
4187 if (/* These first two lines are the `non-type' bit. */
4188 !TYPE_P (arg)
4189 && TREE_CODE (arg) != TEMPLATE_DECL
4190 /* This next line is the `argument expression is not just a
4191 simple identifier' condition and also the `specialized
4192 non-type argument' bit. */
4193 && TREE_CODE (arg) != TEMPLATE_PARM_INDEX)
4195 if ((!packed_args && tpd.arg_uses_template_parms[i])
4196 || (packed_args && uses_template_parms (arg)))
4197 error ("template argument %qE involves template parameter(s)",
4198 arg);
4199 else
4201 /* Look at the corresponding template parameter,
4202 marking which template parameters its type depends
4203 upon. */
4204 tree type = TREE_TYPE (parm);
4206 if (!tpd2.parms)
4208 /* We haven't yet initialized TPD2. Do so now. */
4209 tpd2.arg_uses_template_parms = XALLOCAVEC (int, nargs);
4210 /* The number of parameters here is the number in the
4211 main template, which, as checked in the assertion
4212 above, is NARGS. */
4213 tpd2.parms = XALLOCAVEC (int, nargs);
4214 tpd2.level =
4215 TMPL_PARMS_DEPTH (DECL_TEMPLATE_PARMS (maintmpl));
4218 /* Mark the template parameters. But this time, we're
4219 looking for the template parameters of the main
4220 template, not in the specialization. */
4221 tpd2.current_arg = i;
4222 tpd2.arg_uses_template_parms[i] = 0;
4223 memset (tpd2.parms, 0, sizeof (int) * nargs);
4224 for_each_template_parm (type,
4225 &mark_template_parm,
4226 &tpd2,
4227 NULL,
4228 /*include_nondeduced_p=*/false);
4230 if (tpd2.arg_uses_template_parms [i])
4232 /* The type depended on some template parameters.
4233 If they are fully specialized in the
4234 specialization, that's OK. */
4235 int j;
4236 int count = 0;
4237 for (j = 0; j < nargs; ++j)
4238 if (tpd2.parms[j] != 0
4239 && tpd.arg_uses_template_parms [j])
4240 ++count;
4241 if (count != 0)
4242 error_n (input_location, count,
4243 "type %qT of template argument %qE depends "
4244 "on a template parameter",
4245 "type %qT of template argument %qE depends "
4246 "on template parameters",
4247 type,
4248 arg);
4255 /* We should only get here once. */
4256 gcc_assert (!COMPLETE_TYPE_P (type));
4258 DECL_TEMPLATE_SPECIALIZATIONS (maintmpl)
4259 = tree_cons (specargs, inner_parms,
4260 DECL_TEMPLATE_SPECIALIZATIONS (maintmpl));
4261 TREE_TYPE (DECL_TEMPLATE_SPECIALIZATIONS (maintmpl)) = type;
4263 for (inst = DECL_TEMPLATE_INSTANTIATIONS (maintmpl); inst;
4264 inst = TREE_CHAIN (inst))
4266 tree inst_type = TREE_VALUE (inst);
4267 if (COMPLETE_TYPE_P (inst_type)
4268 && CLASSTYPE_IMPLICIT_INSTANTIATION (inst_type))
4270 tree spec = most_specialized_class (inst_type, tf_none);
4271 if (spec && TREE_TYPE (spec) == type)
4272 permerror (input_location,
4273 "partial specialization of %qT after instantiation "
4274 "of %qT", type, inst_type);
4278 return decl;
4281 /* Check that a template declaration's use of default arguments and
4282 parameter packs is not invalid. Here, PARMS are the template
4283 parameters. IS_PRIMARY is true if DECL is the thing declared by
4284 a primary template. IS_PARTIAL is true if DECL is a partial
4285 specialization.
4287 IS_FRIEND_DECL is nonzero if DECL is a friend function template
4288 declaration (but not a definition); 1 indicates a declaration, 2
4289 indicates a redeclaration. When IS_FRIEND_DECL=2, no errors are
4290 emitted for extraneous default arguments.
4292 Returns TRUE if there were no errors found, FALSE otherwise. */
4294 bool
4295 check_default_tmpl_args (tree decl, tree parms, bool is_primary,
4296 bool is_partial, int is_friend_decl)
4298 const char *msg;
4299 int last_level_to_check;
4300 tree parm_level;
4301 bool no_errors = true;
4303 /* [temp.param]
4305 A default template-argument shall not be specified in a
4306 function template declaration or a function template definition, nor
4307 in the template-parameter-list of the definition of a member of a
4308 class template. */
4310 if (TREE_CODE (CP_DECL_CONTEXT (decl)) == FUNCTION_DECL)
4311 /* You can't have a function template declaration in a local
4312 scope, nor you can you define a member of a class template in a
4313 local scope. */
4314 return true;
4316 if (TREE_CODE (decl) == TYPE_DECL
4317 && TREE_TYPE (decl)
4318 && LAMBDA_TYPE_P (TREE_TYPE (decl)))
4319 /* A lambda doesn't have an explicit declaration; don't complain
4320 about the parms of the enclosing class. */
4321 return true;
4323 if (current_class_type
4324 && !TYPE_BEING_DEFINED (current_class_type)
4325 && DECL_LANG_SPECIFIC (decl)
4326 && DECL_DECLARES_FUNCTION_P (decl)
4327 /* If this is either a friend defined in the scope of the class
4328 or a member function. */
4329 && (DECL_FUNCTION_MEMBER_P (decl)
4330 ? same_type_p (DECL_CONTEXT (decl), current_class_type)
4331 : DECL_FRIEND_CONTEXT (decl)
4332 ? same_type_p (DECL_FRIEND_CONTEXT (decl), current_class_type)
4333 : false)
4334 /* And, if it was a member function, it really was defined in
4335 the scope of the class. */
4336 && (!DECL_FUNCTION_MEMBER_P (decl)
4337 || DECL_INITIALIZED_IN_CLASS_P (decl)))
4338 /* We already checked these parameters when the template was
4339 declared, so there's no need to do it again now. This function
4340 was defined in class scope, but we're processing it's body now
4341 that the class is complete. */
4342 return true;
4344 /* Core issue 226 (C++0x only): the following only applies to class
4345 templates. */
4346 if (is_primary
4347 && ((cxx_dialect == cxx98) || TREE_CODE (decl) != FUNCTION_DECL))
4349 /* [temp.param]
4351 If a template-parameter has a default template-argument, all
4352 subsequent template-parameters shall have a default
4353 template-argument supplied. */
4354 for (parm_level = parms; parm_level; parm_level = TREE_CHAIN (parm_level))
4356 tree inner_parms = TREE_VALUE (parm_level);
4357 int ntparms = TREE_VEC_LENGTH (inner_parms);
4358 int seen_def_arg_p = 0;
4359 int i;
4361 for (i = 0; i < ntparms; ++i)
4363 tree parm = TREE_VEC_ELT (inner_parms, i);
4365 if (parm == error_mark_node)
4366 continue;
4368 if (TREE_PURPOSE (parm))
4369 seen_def_arg_p = 1;
4370 else if (seen_def_arg_p
4371 && !template_parameter_pack_p (TREE_VALUE (parm)))
4373 error ("no default argument for %qD", TREE_VALUE (parm));
4374 /* For better subsequent error-recovery, we indicate that
4375 there should have been a default argument. */
4376 TREE_PURPOSE (parm) = error_mark_node;
4377 no_errors = false;
4379 else if (!is_partial
4380 && !is_friend_decl
4381 /* Don't complain about an enclosing partial
4382 specialization. */
4383 && parm_level == parms
4384 && TREE_CODE (decl) == TYPE_DECL
4385 && i < ntparms - 1
4386 && template_parameter_pack_p (TREE_VALUE (parm)))
4388 /* A primary class template can only have one
4389 parameter pack, at the end of the template
4390 parameter list. */
4392 if (TREE_CODE (TREE_VALUE (parm)) == PARM_DECL)
4393 error ("parameter pack %qE must be at the end of the"
4394 " template parameter list", TREE_VALUE (parm));
4395 else
4396 error ("parameter pack %qT must be at the end of the"
4397 " template parameter list",
4398 TREE_TYPE (TREE_VALUE (parm)));
4400 TREE_VALUE (TREE_VEC_ELT (inner_parms, i))
4401 = error_mark_node;
4402 no_errors = false;
4408 if (((cxx_dialect == cxx98) && TREE_CODE (decl) != TYPE_DECL)
4409 || is_partial
4410 || !is_primary
4411 || is_friend_decl)
4412 /* For an ordinary class template, default template arguments are
4413 allowed at the innermost level, e.g.:
4414 template <class T = int>
4415 struct S {};
4416 but, in a partial specialization, they're not allowed even
4417 there, as we have in [temp.class.spec]:
4419 The template parameter list of a specialization shall not
4420 contain default template argument values.
4422 So, for a partial specialization, or for a function template
4423 (in C++98/C++03), we look at all of them. */
4425 else
4426 /* But, for a primary class template that is not a partial
4427 specialization we look at all template parameters except the
4428 innermost ones. */
4429 parms = TREE_CHAIN (parms);
4431 /* Figure out what error message to issue. */
4432 if (is_friend_decl == 2)
4433 msg = G_("default template arguments may not be used in function template "
4434 "friend re-declaration");
4435 else if (is_friend_decl)
4436 msg = G_("default template arguments may not be used in function template "
4437 "friend declarations");
4438 else if (TREE_CODE (decl) == FUNCTION_DECL && (cxx_dialect == cxx98))
4439 msg = G_("default template arguments may not be used in function templates "
4440 "without -std=c++11 or -std=gnu++11");
4441 else if (is_partial)
4442 msg = G_("default template arguments may not be used in "
4443 "partial specializations");
4444 else
4445 msg = G_("default argument for template parameter for class enclosing %qD");
4447 if (current_class_type && TYPE_BEING_DEFINED (current_class_type))
4448 /* If we're inside a class definition, there's no need to
4449 examine the parameters to the class itself. On the one
4450 hand, they will be checked when the class is defined, and,
4451 on the other, default arguments are valid in things like:
4452 template <class T = double>
4453 struct S { template <class U> void f(U); };
4454 Here the default argument for `S' has no bearing on the
4455 declaration of `f'. */
4456 last_level_to_check = template_class_depth (current_class_type) + 1;
4457 else
4458 /* Check everything. */
4459 last_level_to_check = 0;
4461 for (parm_level = parms;
4462 parm_level && TMPL_PARMS_DEPTH (parm_level) >= last_level_to_check;
4463 parm_level = TREE_CHAIN (parm_level))
4465 tree inner_parms = TREE_VALUE (parm_level);
4466 int i;
4467 int ntparms;
4469 ntparms = TREE_VEC_LENGTH (inner_parms);
4470 for (i = 0; i < ntparms; ++i)
4472 if (TREE_VEC_ELT (inner_parms, i) == error_mark_node)
4473 continue;
4475 if (TREE_PURPOSE (TREE_VEC_ELT (inner_parms, i)))
4477 if (msg)
4479 no_errors = false;
4480 if (is_friend_decl == 2)
4481 return no_errors;
4483 error (msg, decl);
4484 msg = 0;
4487 /* Clear out the default argument so that we are not
4488 confused later. */
4489 TREE_PURPOSE (TREE_VEC_ELT (inner_parms, i)) = NULL_TREE;
4493 /* At this point, if we're still interested in issuing messages,
4494 they must apply to classes surrounding the object declared. */
4495 if (msg)
4496 msg = G_("default argument for template parameter for class "
4497 "enclosing %qD");
4500 return no_errors;
4503 /* Worker for push_template_decl_real, called via
4504 for_each_template_parm. DATA is really an int, indicating the
4505 level of the parameters we are interested in. If T is a template
4506 parameter of that level, return nonzero. */
4508 static int
4509 template_parm_this_level_p (tree t, void* data)
4511 int this_level = *(int *)data;
4512 int level;
4514 if (TREE_CODE (t) == TEMPLATE_PARM_INDEX)
4515 level = TEMPLATE_PARM_LEVEL (t);
4516 else
4517 level = TEMPLATE_TYPE_LEVEL (t);
4518 return level == this_level;
4521 /* Creates a TEMPLATE_DECL for the indicated DECL using the template
4522 parameters given by current_template_args, or reuses a
4523 previously existing one, if appropriate. Returns the DECL, or an
4524 equivalent one, if it is replaced via a call to duplicate_decls.
4526 If IS_FRIEND is true, DECL is a friend declaration. */
4528 tree
4529 push_template_decl_real (tree decl, bool is_friend)
4531 tree tmpl;
4532 tree args;
4533 tree info;
4534 tree ctx;
4535 bool is_primary;
4536 bool is_partial;
4537 int new_template_p = 0;
4538 /* True if the template is a member template, in the sense of
4539 [temp.mem]. */
4540 bool member_template_p = false;
4542 if (decl == error_mark_node || !current_template_parms)
4543 return error_mark_node;
4545 /* See if this is a partial specialization. */
4546 is_partial = (DECL_IMPLICIT_TYPEDEF_P (decl)
4547 && TREE_CODE (TREE_TYPE (decl)) != ENUMERAL_TYPE
4548 && CLASSTYPE_TEMPLATE_SPECIALIZATION (TREE_TYPE (decl)));
4550 if (TREE_CODE (decl) == FUNCTION_DECL && DECL_FRIEND_P (decl))
4551 is_friend = true;
4553 if (is_friend)
4554 /* For a friend, we want the context of the friend function, not
4555 the type of which it is a friend. */
4556 ctx = CP_DECL_CONTEXT (decl);
4557 else if (CP_DECL_CONTEXT (decl)
4558 && TREE_CODE (CP_DECL_CONTEXT (decl)) != NAMESPACE_DECL)
4559 /* In the case of a virtual function, we want the class in which
4560 it is defined. */
4561 ctx = CP_DECL_CONTEXT (decl);
4562 else
4563 /* Otherwise, if we're currently defining some class, the DECL
4564 is assumed to be a member of the class. */
4565 ctx = current_scope ();
4567 if (ctx && TREE_CODE (ctx) == NAMESPACE_DECL)
4568 ctx = NULL_TREE;
4570 if (!DECL_CONTEXT (decl))
4571 DECL_CONTEXT (decl) = FROB_CONTEXT (current_namespace);
4573 /* See if this is a primary template. */
4574 if (is_friend && ctx)
4575 /* A friend template that specifies a class context, i.e.
4576 template <typename T> friend void A<T>::f();
4577 is not primary. */
4578 is_primary = false;
4579 else
4580 is_primary = template_parm_scope_p ();
4582 if (is_primary)
4584 if (DECL_CLASS_SCOPE_P (decl))
4585 member_template_p = true;
4586 if (TREE_CODE (decl) == TYPE_DECL
4587 && ANON_AGGRNAME_P (DECL_NAME (decl)))
4589 error ("template class without a name");
4590 return error_mark_node;
4592 else if (TREE_CODE (decl) == FUNCTION_DECL)
4594 if (DECL_DESTRUCTOR_P (decl))
4596 /* [temp.mem]
4598 A destructor shall not be a member template. */
4599 error ("destructor %qD declared as member template", decl);
4600 return error_mark_node;
4602 if (NEW_DELETE_OPNAME_P (DECL_NAME (decl))
4603 && (!prototype_p (TREE_TYPE (decl))
4604 || TYPE_ARG_TYPES (TREE_TYPE (decl)) == void_list_node
4605 || !TREE_CHAIN (TYPE_ARG_TYPES (TREE_TYPE (decl)))
4606 || (TREE_CHAIN (TYPE_ARG_TYPES ((TREE_TYPE (decl))))
4607 == void_list_node)))
4609 /* [basic.stc.dynamic.allocation]
4611 An allocation function can be a function
4612 template. ... Template allocation functions shall
4613 have two or more parameters. */
4614 error ("invalid template declaration of %qD", decl);
4615 return error_mark_node;
4618 else if (DECL_IMPLICIT_TYPEDEF_P (decl)
4619 && CLASS_TYPE_P (TREE_TYPE (decl)))
4620 /* OK */;
4621 else if (TREE_CODE (decl) == TYPE_DECL
4622 && TYPE_DECL_ALIAS_P (decl))
4623 /* alias-declaration */
4624 gcc_assert (!DECL_ARTIFICIAL (decl));
4625 else
4627 error ("template declaration of %q#D", decl);
4628 return error_mark_node;
4632 /* Check to see that the rules regarding the use of default
4633 arguments are not being violated. */
4634 check_default_tmpl_args (decl, current_template_parms,
4635 is_primary, is_partial, /*is_friend_decl=*/0);
4637 /* Ensure that there are no parameter packs in the type of this
4638 declaration that have not been expanded. */
4639 if (TREE_CODE (decl) == FUNCTION_DECL)
4641 /* Check each of the arguments individually to see if there are
4642 any bare parameter packs. */
4643 tree type = TREE_TYPE (decl);
4644 tree arg = DECL_ARGUMENTS (decl);
4645 tree argtype = TYPE_ARG_TYPES (type);
4647 while (arg && argtype)
4649 if (!FUNCTION_PARAMETER_PACK_P (arg)
4650 && check_for_bare_parameter_packs (TREE_TYPE (arg)))
4652 /* This is a PARM_DECL that contains unexpanded parameter
4653 packs. We have already complained about this in the
4654 check_for_bare_parameter_packs call, so just replace
4655 these types with ERROR_MARK_NODE. */
4656 TREE_TYPE (arg) = error_mark_node;
4657 TREE_VALUE (argtype) = error_mark_node;
4660 arg = DECL_CHAIN (arg);
4661 argtype = TREE_CHAIN (argtype);
4664 /* Check for bare parameter packs in the return type and the
4665 exception specifiers. */
4666 if (check_for_bare_parameter_packs (TREE_TYPE (type)))
4667 /* Errors were already issued, set return type to int
4668 as the frontend doesn't expect error_mark_node as
4669 the return type. */
4670 TREE_TYPE (type) = integer_type_node;
4671 if (check_for_bare_parameter_packs (TYPE_RAISES_EXCEPTIONS (type)))
4672 TYPE_RAISES_EXCEPTIONS (type) = NULL_TREE;
4674 else if (check_for_bare_parameter_packs ((TREE_CODE (decl) == TYPE_DECL
4675 && TYPE_DECL_ALIAS_P (decl))
4676 ? DECL_ORIGINAL_TYPE (decl)
4677 : TREE_TYPE (decl)))
4679 TREE_TYPE (decl) = error_mark_node;
4680 return error_mark_node;
4683 if (is_partial)
4684 return process_partial_specialization (decl);
4686 args = current_template_args ();
4688 if (!ctx
4689 || TREE_CODE (ctx) == FUNCTION_DECL
4690 || (CLASS_TYPE_P (ctx) && TYPE_BEING_DEFINED (ctx))
4691 || (TREE_CODE (decl) == TYPE_DECL
4692 && LAMBDA_TYPE_P (TREE_TYPE (decl)))
4693 || (is_friend && !DECL_TEMPLATE_INFO (decl)))
4695 if (DECL_LANG_SPECIFIC (decl)
4696 && DECL_TEMPLATE_INFO (decl)
4697 && DECL_TI_TEMPLATE (decl))
4698 tmpl = DECL_TI_TEMPLATE (decl);
4699 /* If DECL is a TYPE_DECL for a class-template, then there won't
4700 be DECL_LANG_SPECIFIC. The information equivalent to
4701 DECL_TEMPLATE_INFO is found in TYPE_TEMPLATE_INFO instead. */
4702 else if (DECL_IMPLICIT_TYPEDEF_P (decl)
4703 && TYPE_TEMPLATE_INFO (TREE_TYPE (decl))
4704 && TYPE_TI_TEMPLATE (TREE_TYPE (decl)))
4706 /* Since a template declaration already existed for this
4707 class-type, we must be redeclaring it here. Make sure
4708 that the redeclaration is valid. */
4709 redeclare_class_template (TREE_TYPE (decl),
4710 current_template_parms);
4711 /* We don't need to create a new TEMPLATE_DECL; just use the
4712 one we already had. */
4713 tmpl = TYPE_TI_TEMPLATE (TREE_TYPE (decl));
4715 else
4717 tmpl = build_template_decl (decl, current_template_parms,
4718 member_template_p);
4719 new_template_p = 1;
4721 if (DECL_LANG_SPECIFIC (decl)
4722 && DECL_TEMPLATE_SPECIALIZATION (decl))
4724 /* A specialization of a member template of a template
4725 class. */
4726 SET_DECL_TEMPLATE_SPECIALIZATION (tmpl);
4727 DECL_TEMPLATE_INFO (tmpl) = DECL_TEMPLATE_INFO (decl);
4728 DECL_TEMPLATE_INFO (decl) = NULL_TREE;
4732 else
4734 tree a, t, current, parms;
4735 int i;
4736 tree tinfo = get_template_info (decl);
4738 if (!tinfo)
4740 error ("template definition of non-template %q#D", decl);
4741 return error_mark_node;
4744 tmpl = TI_TEMPLATE (tinfo);
4746 if (DECL_FUNCTION_TEMPLATE_P (tmpl)
4747 && DECL_TEMPLATE_INFO (decl) && DECL_TI_ARGS (decl)
4748 && DECL_TEMPLATE_SPECIALIZATION (decl)
4749 && DECL_MEMBER_TEMPLATE_P (tmpl))
4751 tree new_tmpl;
4753 /* The declaration is a specialization of a member
4754 template, declared outside the class. Therefore, the
4755 innermost template arguments will be NULL, so we
4756 replace them with the arguments determined by the
4757 earlier call to check_explicit_specialization. */
4758 args = DECL_TI_ARGS (decl);
4760 new_tmpl
4761 = build_template_decl (decl, current_template_parms,
4762 member_template_p);
4763 DECL_TEMPLATE_RESULT (new_tmpl) = decl;
4764 TREE_TYPE (new_tmpl) = TREE_TYPE (decl);
4765 DECL_TI_TEMPLATE (decl) = new_tmpl;
4766 SET_DECL_TEMPLATE_SPECIALIZATION (new_tmpl);
4767 DECL_TEMPLATE_INFO (new_tmpl)
4768 = build_template_info (tmpl, args);
4770 register_specialization (new_tmpl,
4771 most_general_template (tmpl),
4772 args,
4773 is_friend, 0);
4774 return decl;
4777 /* Make sure the template headers we got make sense. */
4779 parms = DECL_TEMPLATE_PARMS (tmpl);
4780 i = TMPL_PARMS_DEPTH (parms);
4781 if (TMPL_ARGS_DEPTH (args) != i)
4783 error ("expected %d levels of template parms for %q#D, got %d",
4784 i, decl, TMPL_ARGS_DEPTH (args));
4786 else
4787 for (current = decl; i > 0; --i, parms = TREE_CHAIN (parms))
4789 a = TMPL_ARGS_LEVEL (args, i);
4790 t = INNERMOST_TEMPLATE_PARMS (parms);
4792 if (TREE_VEC_LENGTH (t) != TREE_VEC_LENGTH (a))
4794 if (current == decl)
4795 error ("got %d template parameters for %q#D",
4796 TREE_VEC_LENGTH (a), decl);
4797 else
4798 error ("got %d template parameters for %q#T",
4799 TREE_VEC_LENGTH (a), current);
4800 error (" but %d required", TREE_VEC_LENGTH (t));
4801 /* Avoid crash in import_export_decl. */
4802 DECL_INTERFACE_KNOWN (decl) = 1;
4803 return error_mark_node;
4806 if (current == decl)
4807 current = ctx;
4808 else if (current == NULL_TREE)
4809 /* Can happen in erroneous input. */
4810 break;
4811 else
4812 current = (TYPE_P (current)
4813 ? TYPE_CONTEXT (current)
4814 : DECL_CONTEXT (current));
4817 /* Check that the parms are used in the appropriate qualifying scopes
4818 in the declarator. */
4819 if (!comp_template_args
4820 (TI_ARGS (tinfo),
4821 TI_ARGS (get_template_info (DECL_TEMPLATE_RESULT (tmpl)))))
4823 error ("\
4824 template arguments to %qD do not match original template %qD",
4825 decl, DECL_TEMPLATE_RESULT (tmpl));
4826 if (!uses_template_parms (TI_ARGS (tinfo)))
4827 inform (input_location, "use template<> for an explicit specialization");
4828 /* Avoid crash in import_export_decl. */
4829 DECL_INTERFACE_KNOWN (decl) = 1;
4830 return error_mark_node;
4834 DECL_TEMPLATE_RESULT (tmpl) = decl;
4835 TREE_TYPE (tmpl) = TREE_TYPE (decl);
4837 /* Push template declarations for global functions and types. Note
4838 that we do not try to push a global template friend declared in a
4839 template class; such a thing may well depend on the template
4840 parameters of the class. */
4841 if (new_template_p && !ctx
4842 && !(is_friend && template_class_depth (current_class_type) > 0))
4844 tmpl = pushdecl_namespace_level (tmpl, is_friend);
4845 if (tmpl == error_mark_node)
4846 return error_mark_node;
4848 /* Hide template friend classes that haven't been declared yet. */
4849 if (is_friend && TREE_CODE (decl) == TYPE_DECL)
4851 DECL_ANTICIPATED (tmpl) = 1;
4852 DECL_FRIEND_P (tmpl) = 1;
4856 if (is_primary)
4858 tree parms = DECL_TEMPLATE_PARMS (tmpl);
4859 int i;
4861 DECL_PRIMARY_TEMPLATE (tmpl) = tmpl;
4862 if (DECL_CONV_FN_P (tmpl))
4864 int depth = TMPL_PARMS_DEPTH (parms);
4866 /* It is a conversion operator. See if the type converted to
4867 depends on innermost template operands. */
4869 if (uses_template_parms_level (TREE_TYPE (TREE_TYPE (tmpl)),
4870 depth))
4871 DECL_TEMPLATE_CONV_FN_P (tmpl) = 1;
4874 /* Give template template parms a DECL_CONTEXT of the template
4875 for which they are a parameter. */
4876 parms = INNERMOST_TEMPLATE_PARMS (parms);
4877 for (i = TREE_VEC_LENGTH (parms) - 1; i >= 0; --i)
4879 tree parm = TREE_VALUE (TREE_VEC_ELT (parms, i));
4880 if (TREE_CODE (parm) == TEMPLATE_DECL)
4881 DECL_CONTEXT (parm) = tmpl;
4885 /* The DECL_TI_ARGS of DECL contains full set of arguments referring
4886 back to its most general template. If TMPL is a specialization,
4887 ARGS may only have the innermost set of arguments. Add the missing
4888 argument levels if necessary. */
4889 if (DECL_TEMPLATE_INFO (tmpl))
4890 args = add_outermost_template_args (DECL_TI_ARGS (tmpl), args);
4892 info = build_template_info (tmpl, args);
4894 if (DECL_IMPLICIT_TYPEDEF_P (decl))
4895 SET_TYPE_TEMPLATE_INFO (TREE_TYPE (tmpl), info);
4896 else
4898 if (is_primary && !DECL_LANG_SPECIFIC (decl))
4899 retrofit_lang_decl (decl);
4900 if (DECL_LANG_SPECIFIC (decl))
4901 DECL_TEMPLATE_INFO (decl) = info;
4904 return DECL_TEMPLATE_RESULT (tmpl);
4907 tree
4908 push_template_decl (tree decl)
4910 return push_template_decl_real (decl, false);
4913 /* FN is an inheriting constructor that inherits from the constructor
4914 template INHERITED; turn FN into a constructor template with a matching
4915 template header. */
4917 tree
4918 add_inherited_template_parms (tree fn, tree inherited)
4920 tree inner_parms
4921 = INNERMOST_TEMPLATE_PARMS (DECL_TEMPLATE_PARMS (inherited));
4922 inner_parms = copy_node (inner_parms);
4923 tree parms
4924 = tree_cons (size_int (processing_template_decl + 1),
4925 inner_parms, current_template_parms);
4926 tree tmpl = build_template_decl (fn, parms, /*member*/true);
4927 tree args = template_parms_to_args (parms);
4928 DECL_TEMPLATE_INFO (fn) = build_template_info (tmpl, args);
4929 TREE_TYPE (tmpl) = TREE_TYPE (fn);
4930 DECL_TEMPLATE_RESULT (tmpl) = fn;
4931 DECL_ARTIFICIAL (tmpl) = true;
4932 DECL_PRIMARY_TEMPLATE (tmpl) = tmpl;
4933 return tmpl;
4936 /* Called when a class template TYPE is redeclared with the indicated
4937 template PARMS, e.g.:
4939 template <class T> struct S;
4940 template <class T> struct S {}; */
4942 bool
4943 redeclare_class_template (tree type, tree parms)
4945 tree tmpl;
4946 tree tmpl_parms;
4947 int i;
4949 if (!TYPE_TEMPLATE_INFO (type))
4951 error ("%qT is not a template type", type);
4952 return false;
4955 tmpl = TYPE_TI_TEMPLATE (type);
4956 if (!PRIMARY_TEMPLATE_P (tmpl))
4957 /* The type is nested in some template class. Nothing to worry
4958 about here; there are no new template parameters for the nested
4959 type. */
4960 return true;
4962 if (!parms)
4964 error ("template specifiers not specified in declaration of %qD",
4965 tmpl);
4966 return false;
4969 parms = INNERMOST_TEMPLATE_PARMS (parms);
4970 tmpl_parms = DECL_INNERMOST_TEMPLATE_PARMS (tmpl);
4972 if (TREE_VEC_LENGTH (parms) != TREE_VEC_LENGTH (tmpl_parms))
4974 error_n (input_location, TREE_VEC_LENGTH (parms),
4975 "redeclared with %d template parameter",
4976 "redeclared with %d template parameters",
4977 TREE_VEC_LENGTH (parms));
4978 inform_n (input_location, TREE_VEC_LENGTH (tmpl_parms),
4979 "previous declaration %q+D used %d template parameter",
4980 "previous declaration %q+D used %d template parameters",
4981 tmpl, TREE_VEC_LENGTH (tmpl_parms));
4982 return false;
4985 for (i = 0; i < TREE_VEC_LENGTH (tmpl_parms); ++i)
4987 tree tmpl_parm;
4988 tree parm;
4989 tree tmpl_default;
4990 tree parm_default;
4992 if (TREE_VEC_ELT (tmpl_parms, i) == error_mark_node
4993 || TREE_VEC_ELT (parms, i) == error_mark_node)
4994 continue;
4996 tmpl_parm = TREE_VALUE (TREE_VEC_ELT (tmpl_parms, i));
4997 if (tmpl_parm == error_mark_node)
4998 return false;
5000 parm = TREE_VALUE (TREE_VEC_ELT (parms, i));
5001 tmpl_default = TREE_PURPOSE (TREE_VEC_ELT (tmpl_parms, i));
5002 parm_default = TREE_PURPOSE (TREE_VEC_ELT (parms, i));
5004 /* TMPL_PARM and PARM can be either TYPE_DECL, PARM_DECL, or
5005 TEMPLATE_DECL. */
5006 if (TREE_CODE (tmpl_parm) != TREE_CODE (parm)
5007 || (TREE_CODE (tmpl_parm) != TYPE_DECL
5008 && !same_type_p (TREE_TYPE (tmpl_parm), TREE_TYPE (parm)))
5009 || (TREE_CODE (tmpl_parm) != PARM_DECL
5010 && (TEMPLATE_TYPE_PARAMETER_PACK (TREE_TYPE (tmpl_parm))
5011 != TEMPLATE_TYPE_PARAMETER_PACK (TREE_TYPE (parm))))
5012 || (TREE_CODE (tmpl_parm) == PARM_DECL
5013 && (TEMPLATE_PARM_PARAMETER_PACK (DECL_INITIAL (tmpl_parm))
5014 != TEMPLATE_PARM_PARAMETER_PACK (DECL_INITIAL (parm)))))
5016 error ("template parameter %q+#D", tmpl_parm);
5017 error ("redeclared here as %q#D", parm);
5018 return false;
5021 if (tmpl_default != NULL_TREE && parm_default != NULL_TREE)
5023 /* We have in [temp.param]:
5025 A template-parameter may not be given default arguments
5026 by two different declarations in the same scope. */
5027 error_at (input_location, "redefinition of default argument for %q#D", parm);
5028 inform (DECL_SOURCE_LOCATION (tmpl_parm),
5029 "original definition appeared here");
5030 return false;
5033 if (parm_default != NULL_TREE)
5034 /* Update the previous template parameters (which are the ones
5035 that will really count) with the new default value. */
5036 TREE_PURPOSE (TREE_VEC_ELT (tmpl_parms, i)) = parm_default;
5037 else if (tmpl_default != NULL_TREE)
5038 /* Update the new parameters, too; they'll be used as the
5039 parameters for any members. */
5040 TREE_PURPOSE (TREE_VEC_ELT (parms, i)) = tmpl_default;
5043 return true;
5046 /* Simplify EXPR if it is a non-dependent expression. Returns the
5047 (possibly simplified) expression. */
5049 tree
5050 fold_non_dependent_expr_sfinae (tree expr, tsubst_flags_t complain)
5052 if (expr == NULL_TREE)
5053 return NULL_TREE;
5055 /* If we're in a template, but EXPR isn't value dependent, simplify
5056 it. We're supposed to treat:
5058 template <typename T> void f(T[1 + 1]);
5059 template <typename T> void f(T[2]);
5061 as two declarations of the same function, for example. */
5062 if (processing_template_decl
5063 && !type_dependent_expression_p (expr)
5064 && potential_constant_expression (expr)
5065 && !value_dependent_expression_p (expr))
5067 HOST_WIDE_INT saved_processing_template_decl;
5069 saved_processing_template_decl = processing_template_decl;
5070 processing_template_decl = 0;
5071 expr = tsubst_copy_and_build (expr,
5072 /*args=*/NULL_TREE,
5073 complain,
5074 /*in_decl=*/NULL_TREE,
5075 /*function_p=*/false,
5076 /*integral_constant_expression_p=*/true);
5077 processing_template_decl = saved_processing_template_decl;
5079 return expr;
5082 tree
5083 fold_non_dependent_expr (tree expr)
5085 return fold_non_dependent_expr_sfinae (expr, tf_error);
5088 /* Return TRUE iff T is a type alias, a TEMPLATE_DECL for an alias
5089 template declaration, or a TYPE_DECL for an alias declaration. */
5091 bool
5092 alias_type_or_template_p (tree t)
5094 if (t == NULL_TREE)
5095 return false;
5096 return ((TREE_CODE (t) == TYPE_DECL && TYPE_DECL_ALIAS_P (t))
5097 || (TYPE_P (t)
5098 && TYPE_NAME (t)
5099 && TYPE_DECL_ALIAS_P (TYPE_NAME (t)))
5100 || DECL_ALIAS_TEMPLATE_P (t));
5103 /* Return TRUE iff is a specialization of an alias template. */
5105 bool
5106 alias_template_specialization_p (const_tree t)
5108 if (t == NULL_TREE)
5109 return false;
5111 return (TYPE_P (t)
5112 && TYPE_TEMPLATE_INFO (t)
5113 && PRIMARY_TEMPLATE_P (TYPE_TI_TEMPLATE (t))
5114 && DECL_ALIAS_TEMPLATE_P (TYPE_TI_TEMPLATE (t)));
5117 /* Subroutine of convert_nontype_argument. Converts EXPR to TYPE, which
5118 must be a function or a pointer-to-function type, as specified
5119 in [temp.arg.nontype]: disambiguate EXPR if it is an overload set,
5120 and check that the resulting function has external linkage. */
5122 static tree
5123 convert_nontype_argument_function (tree type, tree expr)
5125 tree fns = expr;
5126 tree fn, fn_no_ptr;
5127 linkage_kind linkage;
5129 fn = instantiate_type (type, fns, tf_none);
5130 if (fn == error_mark_node)
5131 return error_mark_node;
5133 fn_no_ptr = fn;
5134 if (TREE_CODE (fn_no_ptr) == ADDR_EXPR)
5135 fn_no_ptr = TREE_OPERAND (fn_no_ptr, 0);
5136 if (BASELINK_P (fn_no_ptr))
5137 fn_no_ptr = BASELINK_FUNCTIONS (fn_no_ptr);
5139 /* [temp.arg.nontype]/1
5141 A template-argument for a non-type, non-template template-parameter
5142 shall be one of:
5143 [...]
5144 -- the address of an object or function with external [C++11: or
5145 internal] linkage. */
5147 if (TREE_CODE (fn_no_ptr) != FUNCTION_DECL)
5149 error ("%qE is not a valid template argument for type %qT", expr, type);
5150 if (TREE_CODE (type) == POINTER_TYPE)
5151 error ("it must be the address of a function with external linkage");
5152 else
5153 error ("it must be the name of a function with external linkage");
5154 return NULL_TREE;
5157 linkage = decl_linkage (fn_no_ptr);
5158 if (cxx_dialect >= cxx0x ? linkage == lk_none : linkage != lk_external)
5160 if (cxx_dialect >= cxx0x)
5161 error ("%qE is not a valid template argument for type %qT "
5162 "because %qD has no linkage",
5163 expr, type, fn_no_ptr);
5164 else
5165 error ("%qE is not a valid template argument for type %qT "
5166 "because %qD does not have external linkage",
5167 expr, type, fn_no_ptr);
5168 return NULL_TREE;
5171 return fn;
5174 /* Subroutine of convert_nontype_argument.
5175 Check if EXPR of type TYPE is a valid pointer-to-member constant.
5176 Emit an error otherwise. */
5178 static bool
5179 check_valid_ptrmem_cst_expr (tree type, tree expr,
5180 tsubst_flags_t complain)
5182 STRIP_NOPS (expr);
5183 if (expr && (null_ptr_cst_p (expr) || TREE_CODE (expr) == PTRMEM_CST))
5184 return true;
5185 if (cxx_dialect >= cxx0x && null_member_pointer_value_p (expr))
5186 return true;
5187 if (complain & tf_error)
5189 error ("%qE is not a valid template argument for type %qT",
5190 expr, type);
5191 error ("it must be a pointer-to-member of the form %<&X::Y%>");
5193 return false;
5196 /* Returns TRUE iff the address of OP is value-dependent.
5198 14.6.2.4 [temp.dep.temp]:
5199 A non-integral non-type template-argument is dependent if its type is
5200 dependent or it has either of the following forms
5201 qualified-id
5202 & qualified-id
5203 and contains a nested-name-specifier which specifies a class-name that
5204 names a dependent type.
5206 We generalize this to just say that the address of a member of a
5207 dependent class is value-dependent; the above doesn't cover the
5208 address of a static data member named with an unqualified-id. */
5210 static bool
5211 has_value_dependent_address (tree op)
5213 /* We could use get_inner_reference here, but there's no need;
5214 this is only relevant for template non-type arguments, which
5215 can only be expressed as &id-expression. */
5216 if (DECL_P (op))
5218 tree ctx = CP_DECL_CONTEXT (op);
5219 if (TYPE_P (ctx) && dependent_type_p (ctx))
5220 return true;
5223 return false;
5226 /* The next set of functions are used for providing helpful explanatory
5227 diagnostics for failed overload resolution. Their messages should be
5228 indented by two spaces for consistency with the messages in
5229 call.c */
5231 static int
5232 unify_success (bool /*explain_p*/)
5234 return 0;
5237 static int
5238 unify_parameter_deduction_failure (bool explain_p, tree parm)
5240 if (explain_p)
5241 inform (input_location,
5242 " couldn't deduce template parameter %qD", parm);
5243 return 1;
5246 static int
5247 unify_invalid (bool /*explain_p*/)
5249 return 1;
5252 static int
5253 unify_cv_qual_mismatch (bool explain_p, tree parm, tree arg)
5255 if (explain_p)
5256 inform (input_location,
5257 " types %qT and %qT have incompatible cv-qualifiers",
5258 parm, arg);
5259 return 1;
5262 static int
5263 unify_type_mismatch (bool explain_p, tree parm, tree arg)
5265 if (explain_p)
5266 inform (input_location, " mismatched types %qT and %qT", parm, arg);
5267 return 1;
5270 static int
5271 unify_parameter_pack_mismatch (bool explain_p, tree parm, tree arg)
5273 if (explain_p)
5274 inform (input_location,
5275 " template parameter %qD is not a parameter pack, but "
5276 "argument %qD is",
5277 parm, arg);
5278 return 1;
5281 static int
5282 unify_ptrmem_cst_mismatch (bool explain_p, tree parm, tree arg)
5284 if (explain_p)
5285 inform (input_location,
5286 " template argument %qE does not match "
5287 "pointer-to-member constant %qE",
5288 arg, parm);
5289 return 1;
5292 static int
5293 unify_expression_unequal (bool explain_p, tree parm, tree arg)
5295 if (explain_p)
5296 inform (input_location, " %qE is not equivalent to %qE", parm, arg);
5297 return 1;
5300 static int
5301 unify_parameter_pack_inconsistent (bool explain_p, tree old_arg, tree new_arg)
5303 if (explain_p)
5304 inform (input_location,
5305 " inconsistent parameter pack deduction with %qT and %qT",
5306 old_arg, new_arg);
5307 return 1;
5310 static int
5311 unify_inconsistency (bool explain_p, tree parm, tree first, tree second)
5313 if (explain_p)
5315 if (TYPE_P (parm))
5316 inform (input_location,
5317 " deduced conflicting types for parameter %qT (%qT and %qT)",
5318 parm, first, second);
5319 else
5320 inform (input_location,
5321 " deduced conflicting values for non-type parameter "
5322 "%qE (%qE and %qE)", parm, first, second);
5324 return 1;
5327 static int
5328 unify_vla_arg (bool explain_p, tree arg)
5330 if (explain_p)
5331 inform (input_location,
5332 " variable-sized array type %qT is not "
5333 "a valid template argument",
5334 arg);
5335 return 1;
5338 static int
5339 unify_method_type_error (bool explain_p, tree arg)
5341 if (explain_p)
5342 inform (input_location,
5343 " member function type %qT is not a valid template argument",
5344 arg);
5345 return 1;
5348 static int
5349 unify_arity (bool explain_p, int have, int wanted)
5351 if (explain_p)
5352 inform_n (input_location, wanted,
5353 " candidate expects %d argument, %d provided",
5354 " candidate expects %d arguments, %d provided",
5355 wanted, have);
5356 return 1;
5359 static int
5360 unify_too_many_arguments (bool explain_p, int have, int wanted)
5362 return unify_arity (explain_p, have, wanted);
5365 static int
5366 unify_too_few_arguments (bool explain_p, int have, int wanted)
5368 return unify_arity (explain_p, have, wanted);
5371 static int
5372 unify_arg_conversion (bool explain_p, tree to_type,
5373 tree from_type, tree arg)
5375 if (explain_p)
5376 inform (input_location, " cannot convert %qE (type %qT) to type %qT",
5377 arg, from_type, to_type);
5378 return 1;
5381 static int
5382 unify_no_common_base (bool explain_p, enum template_base_result r,
5383 tree parm, tree arg)
5385 if (explain_p)
5386 switch (r)
5388 case tbr_ambiguous_baseclass:
5389 inform (input_location, " %qT is an ambiguous base class of %qT",
5390 arg, parm);
5391 break;
5392 default:
5393 inform (input_location, " %qT is not derived from %qT", arg, parm);
5394 break;
5396 return 1;
5399 static int
5400 unify_inconsistent_template_template_parameters (bool explain_p)
5402 if (explain_p)
5403 inform (input_location,
5404 " template parameters of a template template argument are "
5405 "inconsistent with other deduced template arguments");
5406 return 1;
5409 static int
5410 unify_template_deduction_failure (bool explain_p, tree parm, tree arg)
5412 if (explain_p)
5413 inform (input_location,
5414 " can't deduce a template for %qT from non-template type %qT",
5415 parm, arg);
5416 return 1;
5419 static int
5420 unify_template_argument_mismatch (bool explain_p, tree parm, tree arg)
5422 if (explain_p)
5423 inform (input_location,
5424 " template argument %qE does not match %qD", arg, parm);
5425 return 1;
5428 static int
5429 unify_overload_resolution_failure (bool explain_p, tree arg)
5431 if (explain_p)
5432 inform (input_location,
5433 " could not resolve address from overloaded function %qE",
5434 arg);
5435 return 1;
5438 /* Attempt to convert the non-type template parameter EXPR to the
5439 indicated TYPE. If the conversion is successful, return the
5440 converted value. If the conversion is unsuccessful, return
5441 NULL_TREE if we issued an error message, or error_mark_node if we
5442 did not. We issue error messages for out-and-out bad template
5443 parameters, but not simply because the conversion failed, since we
5444 might be just trying to do argument deduction. Both TYPE and EXPR
5445 must be non-dependent.
5447 The conversion follows the special rules described in
5448 [temp.arg.nontype], and it is much more strict than an implicit
5449 conversion.
5451 This function is called twice for each template argument (see
5452 lookup_template_class for a more accurate description of this
5453 problem). This means that we need to handle expressions which
5454 are not valid in a C++ source, but can be created from the
5455 first call (for instance, casts to perform conversions). These
5456 hacks can go away after we fix the double coercion problem. */
5458 static tree
5459 convert_nontype_argument (tree type, tree expr, tsubst_flags_t complain)
5461 tree expr_type;
5463 /* Detect immediately string literals as invalid non-type argument.
5464 This special-case is not needed for correctness (we would easily
5465 catch this later), but only to provide better diagnostic for this
5466 common user mistake. As suggested by DR 100, we do not mention
5467 linkage issues in the diagnostic as this is not the point. */
5468 /* FIXME we're making this OK. */
5469 if (TREE_CODE (expr) == STRING_CST)
5471 if (complain & tf_error)
5472 error ("%qE is not a valid template argument for type %qT "
5473 "because string literals can never be used in this context",
5474 expr, type);
5475 return NULL_TREE;
5478 /* Add the ADDR_EXPR now for the benefit of
5479 value_dependent_expression_p. */
5480 if (TYPE_PTROBV_P (type)
5481 && TREE_CODE (TREE_TYPE (expr)) == ARRAY_TYPE)
5483 expr = decay_conversion (expr, complain);
5484 if (expr == error_mark_node)
5485 return error_mark_node;
5488 /* If we are in a template, EXPR may be non-dependent, but still
5489 have a syntactic, rather than semantic, form. For example, EXPR
5490 might be a SCOPE_REF, rather than the VAR_DECL to which the
5491 SCOPE_REF refers. Preserving the qualifying scope is necessary
5492 so that access checking can be performed when the template is
5493 instantiated -- but here we need the resolved form so that we can
5494 convert the argument. */
5495 if (TYPE_REF_OBJ_P (type)
5496 && has_value_dependent_address (expr))
5497 /* If we want the address and it's value-dependent, don't fold. */;
5498 else if (!type_unknown_p (expr))
5499 expr = fold_non_dependent_expr_sfinae (expr, complain);
5500 if (error_operand_p (expr))
5501 return error_mark_node;
5502 expr_type = TREE_TYPE (expr);
5503 if (TREE_CODE (type) == REFERENCE_TYPE)
5504 expr = mark_lvalue_use (expr);
5505 else
5506 expr = mark_rvalue_use (expr);
5508 /* 14.3.2/5: The null pointer{,-to-member} conversion is applied
5509 to a non-type argument of "nullptr". */
5510 if (expr == nullptr_node && TYPE_PTR_OR_PTRMEM_P (type))
5511 expr = convert (type, expr);
5513 /* In C++11, integral or enumeration non-type template arguments can be
5514 arbitrary constant expressions. Pointer and pointer to
5515 member arguments can be general constant expressions that evaluate
5516 to a null value, but otherwise still need to be of a specific form. */
5517 if (cxx_dialect >= cxx0x)
5519 if (TREE_CODE (expr) == PTRMEM_CST)
5520 /* A PTRMEM_CST is already constant, and a valid template
5521 argument for a parameter of pointer to member type, we just want
5522 to leave it in that form rather than lower it to a
5523 CONSTRUCTOR. */;
5524 else if (INTEGRAL_OR_ENUMERATION_TYPE_P (type))
5525 expr = maybe_constant_value (expr);
5526 else if (TYPE_PTR_OR_PTRMEM_P (type))
5528 tree folded = maybe_constant_value (expr);
5529 if (TYPE_PTR_P (type) ? integer_zerop (folded)
5530 : null_member_pointer_value_p (folded))
5531 expr = folded;
5535 /* HACK: Due to double coercion, we can get a
5536 NOP_EXPR<REFERENCE_TYPE>(ADDR_EXPR<POINTER_TYPE> (arg)) here,
5537 which is the tree that we built on the first call (see
5538 below when coercing to reference to object or to reference to
5539 function). We just strip everything and get to the arg.
5540 See g++.old-deja/g++.oliva/template4.C and g++.dg/template/nontype9.C
5541 for examples. */
5542 if (TYPE_REF_OBJ_P (type) || TYPE_REFFN_P (type))
5544 tree probe_type, probe = expr;
5545 if (REFERENCE_REF_P (probe))
5546 probe = TREE_OPERAND (probe, 0);
5547 probe_type = TREE_TYPE (probe);
5548 if (TREE_CODE (probe) == NOP_EXPR)
5550 /* ??? Maybe we could use convert_from_reference here, but we
5551 would need to relax its constraints because the NOP_EXPR
5552 could actually change the type to something more cv-qualified,
5553 and this is not folded by convert_from_reference. */
5554 tree addr = TREE_OPERAND (probe, 0);
5555 if (TREE_CODE (probe_type) == REFERENCE_TYPE
5556 && TREE_CODE (addr) == ADDR_EXPR
5557 && TREE_CODE (TREE_TYPE (addr)) == POINTER_TYPE
5558 && (same_type_ignoring_top_level_qualifiers_p
5559 (TREE_TYPE (probe_type),
5560 TREE_TYPE (TREE_TYPE (addr)))))
5562 expr = TREE_OPERAND (addr, 0);
5563 expr_type = TREE_TYPE (expr);
5568 /* We could also generate a NOP_EXPR(ADDR_EXPR()) when the
5569 parameter is a pointer to object, through decay and
5570 qualification conversion. Let's strip everything. */
5571 else if (TREE_CODE (expr) == NOP_EXPR && TYPE_PTROBV_P (type))
5573 STRIP_NOPS (expr);
5574 gcc_assert (TREE_CODE (expr) == ADDR_EXPR);
5575 gcc_assert (TREE_CODE (TREE_TYPE (expr)) == POINTER_TYPE);
5576 /* Skip the ADDR_EXPR only if it is part of the decay for
5577 an array. Otherwise, it is part of the original argument
5578 in the source code. */
5579 if (TREE_CODE (TREE_TYPE (TREE_OPERAND (expr, 0))) == ARRAY_TYPE)
5580 expr = TREE_OPERAND (expr, 0);
5581 expr_type = TREE_TYPE (expr);
5584 /* [temp.arg.nontype]/5, bullet 1
5586 For a non-type template-parameter of integral or enumeration type,
5587 integral promotions (_conv.prom_) and integral conversions
5588 (_conv.integral_) are applied. */
5589 if (INTEGRAL_OR_ENUMERATION_TYPE_P (type))
5591 tree t = build_integral_nontype_arg_conv (type, expr, complain);
5592 t = maybe_constant_value (t);
5593 if (t != error_mark_node)
5594 expr = t;
5596 if (!same_type_ignoring_top_level_qualifiers_p (type, TREE_TYPE (expr)))
5597 return error_mark_node;
5599 /* Notice that there are constant expressions like '4 % 0' which
5600 do not fold into integer constants. */
5601 if (TREE_CODE (expr) != INTEGER_CST)
5603 if (complain & tf_error)
5605 int errs = errorcount, warns = warningcount;
5606 if (processing_template_decl
5607 && !require_potential_constant_expression (expr))
5608 return NULL_TREE;
5609 expr = cxx_constant_value (expr);
5610 if (errorcount > errs || warningcount > warns)
5611 inform (EXPR_LOC_OR_HERE (expr),
5612 "in template argument for type %qT ", type);
5613 if (expr == error_mark_node)
5614 return NULL_TREE;
5615 /* else cxx_constant_value complained but gave us
5616 a real constant, so go ahead. */
5617 gcc_assert (TREE_CODE (expr) == INTEGER_CST);
5619 else
5620 return NULL_TREE;
5623 /* Avoid typedef problems. */
5624 if (TREE_TYPE (expr) != type)
5625 expr = fold_convert (type, expr);
5627 /* [temp.arg.nontype]/5, bullet 2
5629 For a non-type template-parameter of type pointer to object,
5630 qualification conversions (_conv.qual_) and the array-to-pointer
5631 conversion (_conv.array_) are applied. */
5632 else if (TYPE_PTROBV_P (type))
5634 /* [temp.arg.nontype]/1 (TC1 version, DR 49):
5636 A template-argument for a non-type, non-template template-parameter
5637 shall be one of: [...]
5639 -- the name of a non-type template-parameter;
5640 -- the address of an object or function with external linkage, [...]
5641 expressed as "& id-expression" where the & is optional if the name
5642 refers to a function or array, or if the corresponding
5643 template-parameter is a reference.
5645 Here, we do not care about functions, as they are invalid anyway
5646 for a parameter of type pointer-to-object. */
5648 if (DECL_P (expr) && DECL_TEMPLATE_PARM_P (expr))
5649 /* Non-type template parameters are OK. */
5651 else if (cxx_dialect >= cxx0x && integer_zerop (expr))
5652 /* Null pointer values are OK in C++11. */;
5653 else if (TREE_CODE (expr) != ADDR_EXPR
5654 && TREE_CODE (expr_type) != ARRAY_TYPE)
5656 if (TREE_CODE (expr) == VAR_DECL)
5658 error ("%qD is not a valid template argument "
5659 "because %qD is a variable, not the address of "
5660 "a variable",
5661 expr, expr);
5662 return NULL_TREE;
5664 /* Other values, like integer constants, might be valid
5665 non-type arguments of some other type. */
5666 return error_mark_node;
5668 else
5670 tree decl;
5672 decl = ((TREE_CODE (expr) == ADDR_EXPR)
5673 ? TREE_OPERAND (expr, 0) : expr);
5674 if (TREE_CODE (decl) != VAR_DECL)
5676 error ("%qE is not a valid template argument of type %qT "
5677 "because %qE is not a variable",
5678 expr, type, decl);
5679 return NULL_TREE;
5681 else if (cxx_dialect < cxx0x && !DECL_EXTERNAL_LINKAGE_P (decl))
5683 error ("%qE is not a valid template argument of type %qT "
5684 "because %qD does not have external linkage",
5685 expr, type, decl);
5686 return NULL_TREE;
5688 else if (cxx_dialect >= cxx0x && decl_linkage (decl) == lk_none)
5690 error ("%qE is not a valid template argument of type %qT "
5691 "because %qD has no linkage",
5692 expr, type, decl);
5693 return NULL_TREE;
5697 expr = decay_conversion (expr, complain);
5698 if (expr == error_mark_node)
5699 return error_mark_node;
5701 expr = perform_qualification_conversions (type, expr);
5702 if (expr == error_mark_node)
5703 return error_mark_node;
5705 /* [temp.arg.nontype]/5, bullet 3
5707 For a non-type template-parameter of type reference to object, no
5708 conversions apply. The type referred to by the reference may be more
5709 cv-qualified than the (otherwise identical) type of the
5710 template-argument. The template-parameter is bound directly to the
5711 template-argument, which must be an lvalue. */
5712 else if (TYPE_REF_OBJ_P (type))
5714 if (!same_type_ignoring_top_level_qualifiers_p (TREE_TYPE (type),
5715 expr_type))
5716 return error_mark_node;
5718 if (!at_least_as_qualified_p (TREE_TYPE (type), expr_type))
5720 error ("%qE is not a valid template argument for type %qT "
5721 "because of conflicts in cv-qualification", expr, type);
5722 return NULL_TREE;
5725 if (!real_lvalue_p (expr))
5727 error ("%qE is not a valid template argument for type %qT "
5728 "because it is not an lvalue", expr, type);
5729 return NULL_TREE;
5732 /* [temp.arg.nontype]/1
5734 A template-argument for a non-type, non-template template-parameter
5735 shall be one of: [...]
5737 -- the address of an object or function with external linkage. */
5738 if (TREE_CODE (expr) == INDIRECT_REF
5739 && TYPE_REF_OBJ_P (TREE_TYPE (TREE_OPERAND (expr, 0))))
5741 expr = TREE_OPERAND (expr, 0);
5742 if (DECL_P (expr))
5744 error ("%q#D is not a valid template argument for type %qT "
5745 "because a reference variable does not have a constant "
5746 "address", expr, type);
5747 return NULL_TREE;
5751 if (!DECL_P (expr))
5753 error ("%qE is not a valid template argument for type %qT "
5754 "because it is not an object with external linkage",
5755 expr, type);
5756 return NULL_TREE;
5759 if (!DECL_EXTERNAL_LINKAGE_P (expr))
5761 error ("%qE is not a valid template argument for type %qT "
5762 "because object %qD has not external linkage",
5763 expr, type, expr);
5764 return NULL_TREE;
5767 expr = build_nop (type, build_address (expr));
5769 /* [temp.arg.nontype]/5, bullet 4
5771 For a non-type template-parameter of type pointer to function, only
5772 the function-to-pointer conversion (_conv.func_) is applied. If the
5773 template-argument represents a set of overloaded functions (or a
5774 pointer to such), the matching function is selected from the set
5775 (_over.over_). */
5776 else if (TYPE_PTRFN_P (type))
5778 /* If the argument is a template-id, we might not have enough
5779 context information to decay the pointer. */
5780 if (!type_unknown_p (expr_type))
5782 expr = decay_conversion (expr, complain);
5783 if (expr == error_mark_node)
5784 return error_mark_node;
5787 if (cxx_dialect >= cxx0x && integer_zerop (expr))
5788 /* Null pointer values are OK in C++11. */
5789 return perform_qualification_conversions (type, expr);
5791 expr = convert_nontype_argument_function (type, expr);
5792 if (!expr || expr == error_mark_node)
5793 return expr;
5795 /* [temp.arg.nontype]/5, bullet 5
5797 For a non-type template-parameter of type reference to function, no
5798 conversions apply. If the template-argument represents a set of
5799 overloaded functions, the matching function is selected from the set
5800 (_over.over_). */
5801 else if (TYPE_REFFN_P (type))
5803 if (TREE_CODE (expr) == ADDR_EXPR)
5805 error ("%qE is not a valid template argument for type %qT "
5806 "because it is a pointer", expr, type);
5807 inform (input_location, "try using %qE instead", TREE_OPERAND (expr, 0));
5808 return NULL_TREE;
5811 expr = convert_nontype_argument_function (TREE_TYPE (type), expr);
5812 if (!expr || expr == error_mark_node)
5813 return expr;
5815 expr = build_nop (type, build_address (expr));
5817 /* [temp.arg.nontype]/5, bullet 6
5819 For a non-type template-parameter of type pointer to member function,
5820 no conversions apply. If the template-argument represents a set of
5821 overloaded member functions, the matching member function is selected
5822 from the set (_over.over_). */
5823 else if (TYPE_PTRMEMFUNC_P (type))
5825 expr = instantiate_type (type, expr, tf_none);
5826 if (expr == error_mark_node)
5827 return error_mark_node;
5829 /* [temp.arg.nontype] bullet 1 says the pointer to member
5830 expression must be a pointer-to-member constant. */
5831 if (!check_valid_ptrmem_cst_expr (type, expr, complain))
5832 return error_mark_node;
5834 /* There is no way to disable standard conversions in
5835 resolve_address_of_overloaded_function (called by
5836 instantiate_type). It is possible that the call succeeded by
5837 converting &B::I to &D::I (where B is a base of D), so we need
5838 to reject this conversion here.
5840 Actually, even if there was a way to disable standard conversions,
5841 it would still be better to reject them here so that we can
5842 provide a superior diagnostic. */
5843 if (!same_type_p (TREE_TYPE (expr), type))
5845 error ("%qE is not a valid template argument for type %qT "
5846 "because it is of type %qT", expr, type,
5847 TREE_TYPE (expr));
5848 /* If we are just one standard conversion off, explain. */
5849 if (can_convert (type, TREE_TYPE (expr), complain))
5850 inform (input_location,
5851 "standard conversions are not allowed in this context");
5852 return NULL_TREE;
5855 /* [temp.arg.nontype]/5, bullet 7
5857 For a non-type template-parameter of type pointer to data member,
5858 qualification conversions (_conv.qual_) are applied. */
5859 else if (TYPE_PTRDATAMEM_P (type))
5861 /* [temp.arg.nontype] bullet 1 says the pointer to member
5862 expression must be a pointer-to-member constant. */
5863 if (!check_valid_ptrmem_cst_expr (type, expr, complain))
5864 return error_mark_node;
5866 expr = perform_qualification_conversions (type, expr);
5867 if (expr == error_mark_node)
5868 return expr;
5870 else if (NULLPTR_TYPE_P (type))
5872 if (expr != nullptr_node)
5874 error ("%qE is not a valid template argument for type %qT "
5875 "because it is of type %qT", expr, type, TREE_TYPE (expr));
5876 return NULL_TREE;
5878 return expr;
5880 /* A template non-type parameter must be one of the above. */
5881 else
5882 gcc_unreachable ();
5884 /* Sanity check: did we actually convert the argument to the
5885 right type? */
5886 gcc_assert (same_type_ignoring_top_level_qualifiers_p
5887 (type, TREE_TYPE (expr)));
5888 return expr;
5891 /* Subroutine of coerce_template_template_parms, which returns 1 if
5892 PARM_PARM and ARG_PARM match using the rule for the template
5893 parameters of template template parameters. Both PARM and ARG are
5894 template parameters; the rest of the arguments are the same as for
5895 coerce_template_template_parms.
5897 static int
5898 coerce_template_template_parm (tree parm,
5899 tree arg,
5900 tsubst_flags_t complain,
5901 tree in_decl,
5902 tree outer_args)
5904 if (arg == NULL_TREE || arg == error_mark_node
5905 || parm == NULL_TREE || parm == error_mark_node)
5906 return 0;
5908 if (TREE_CODE (arg) != TREE_CODE (parm))
5909 return 0;
5911 switch (TREE_CODE (parm))
5913 case TEMPLATE_DECL:
5914 /* We encounter instantiations of templates like
5915 template <template <template <class> class> class TT>
5916 class C; */
5918 tree parmparm = DECL_INNERMOST_TEMPLATE_PARMS (parm);
5919 tree argparm = DECL_INNERMOST_TEMPLATE_PARMS (arg);
5921 if (!coerce_template_template_parms
5922 (parmparm, argparm, complain, in_decl, outer_args))
5923 return 0;
5925 /* Fall through. */
5927 case TYPE_DECL:
5928 if (TEMPLATE_TYPE_PARAMETER_PACK (TREE_TYPE (arg))
5929 && !TEMPLATE_TYPE_PARAMETER_PACK (TREE_TYPE (parm)))
5930 /* Argument is a parameter pack but parameter is not. */
5931 return 0;
5932 break;
5934 case PARM_DECL:
5935 /* The tsubst call is used to handle cases such as
5937 template <int> class C {};
5938 template <class T, template <T> class TT> class D {};
5939 D<int, C> d;
5941 i.e. the parameter list of TT depends on earlier parameters. */
5942 if (!uses_template_parms (TREE_TYPE (arg))
5943 && !same_type_p
5944 (tsubst (TREE_TYPE (parm), outer_args, complain, in_decl),
5945 TREE_TYPE (arg)))
5946 return 0;
5948 if (TEMPLATE_PARM_PARAMETER_PACK (DECL_INITIAL (arg))
5949 && !TEMPLATE_PARM_PARAMETER_PACK (DECL_INITIAL (parm)))
5950 /* Argument is a parameter pack but parameter is not. */
5951 return 0;
5953 break;
5955 default:
5956 gcc_unreachable ();
5959 return 1;
5963 /* Return 1 if PARM_PARMS and ARG_PARMS matches using rule for
5964 template template parameters. Both PARM_PARMS and ARG_PARMS are
5965 vectors of TREE_LIST nodes containing TYPE_DECL, TEMPLATE_DECL
5966 or PARM_DECL.
5968 Consider the example:
5969 template <class T> class A;
5970 template<template <class U> class TT> class B;
5972 For B<A>, PARM_PARMS are the parameters to TT, while ARG_PARMS are
5973 the parameters to A, and OUTER_ARGS contains A. */
5975 static int
5976 coerce_template_template_parms (tree parm_parms,
5977 tree arg_parms,
5978 tsubst_flags_t complain,
5979 tree in_decl,
5980 tree outer_args)
5982 int nparms, nargs, i;
5983 tree parm, arg;
5984 int variadic_p = 0;
5986 gcc_assert (TREE_CODE (parm_parms) == TREE_VEC);
5987 gcc_assert (TREE_CODE (arg_parms) == TREE_VEC);
5989 nparms = TREE_VEC_LENGTH (parm_parms);
5990 nargs = TREE_VEC_LENGTH (arg_parms);
5992 /* Determine whether we have a parameter pack at the end of the
5993 template template parameter's template parameter list. */
5994 if (TREE_VEC_ELT (parm_parms, nparms - 1) != error_mark_node)
5996 parm = TREE_VALUE (TREE_VEC_ELT (parm_parms, nparms - 1));
5998 if (parm == error_mark_node)
5999 return 0;
6001 switch (TREE_CODE (parm))
6003 case TEMPLATE_DECL:
6004 case TYPE_DECL:
6005 if (TEMPLATE_TYPE_PARAMETER_PACK (TREE_TYPE (parm)))
6006 variadic_p = 1;
6007 break;
6009 case PARM_DECL:
6010 if (TEMPLATE_PARM_PARAMETER_PACK (DECL_INITIAL (parm)))
6011 variadic_p = 1;
6012 break;
6014 default:
6015 gcc_unreachable ();
6019 if (nargs != nparms
6020 && !(variadic_p && nargs >= nparms - 1))
6021 return 0;
6023 /* Check all of the template parameters except the parameter pack at
6024 the end (if any). */
6025 for (i = 0; i < nparms - variadic_p; ++i)
6027 if (TREE_VEC_ELT (parm_parms, i) == error_mark_node
6028 || TREE_VEC_ELT (arg_parms, i) == error_mark_node)
6029 continue;
6031 parm = TREE_VALUE (TREE_VEC_ELT (parm_parms, i));
6032 arg = TREE_VALUE (TREE_VEC_ELT (arg_parms, i));
6034 if (!coerce_template_template_parm (parm, arg, complain, in_decl,
6035 outer_args))
6036 return 0;
6040 if (variadic_p)
6042 /* Check each of the template parameters in the template
6043 argument against the template parameter pack at the end of
6044 the template template parameter. */
6045 if (TREE_VEC_ELT (parm_parms, i) == error_mark_node)
6046 return 0;
6048 parm = TREE_VALUE (TREE_VEC_ELT (parm_parms, i));
6050 for (; i < nargs; ++i)
6052 if (TREE_VEC_ELT (arg_parms, i) == error_mark_node)
6053 continue;
6055 arg = TREE_VALUE (TREE_VEC_ELT (arg_parms, i));
6057 if (!coerce_template_template_parm (parm, arg, complain, in_decl,
6058 outer_args))
6059 return 0;
6063 return 1;
6066 /* Verifies that the deduced template arguments (in TARGS) for the
6067 template template parameters (in TPARMS) represent valid bindings,
6068 by comparing the template parameter list of each template argument
6069 to the template parameter list of its corresponding template
6070 template parameter, in accordance with DR150. This
6071 routine can only be called after all template arguments have been
6072 deduced. It will return TRUE if all of the template template
6073 parameter bindings are okay, FALSE otherwise. */
6074 bool
6075 template_template_parm_bindings_ok_p (tree tparms, tree targs)
6077 int i, ntparms = TREE_VEC_LENGTH (tparms);
6078 bool ret = true;
6080 /* We're dealing with template parms in this process. */
6081 ++processing_template_decl;
6083 targs = INNERMOST_TEMPLATE_ARGS (targs);
6085 for (i = 0; i < ntparms; ++i)
6087 tree tparm = TREE_VALUE (TREE_VEC_ELT (tparms, i));
6088 tree targ = TREE_VEC_ELT (targs, i);
6090 if (TREE_CODE (tparm) == TEMPLATE_DECL && targ)
6092 tree packed_args = NULL_TREE;
6093 int idx, len = 1;
6095 if (ARGUMENT_PACK_P (targ))
6097 /* Look inside the argument pack. */
6098 packed_args = ARGUMENT_PACK_ARGS (targ);
6099 len = TREE_VEC_LENGTH (packed_args);
6102 for (idx = 0; idx < len; ++idx)
6104 tree targ_parms = NULL_TREE;
6106 if (packed_args)
6107 /* Extract the next argument from the argument
6108 pack. */
6109 targ = TREE_VEC_ELT (packed_args, idx);
6111 if (PACK_EXPANSION_P (targ))
6112 /* Look at the pattern of the pack expansion. */
6113 targ = PACK_EXPANSION_PATTERN (targ);
6115 /* Extract the template parameters from the template
6116 argument. */
6117 if (TREE_CODE (targ) == TEMPLATE_DECL)
6118 targ_parms = DECL_INNERMOST_TEMPLATE_PARMS (targ);
6119 else if (TREE_CODE (targ) == TEMPLATE_TEMPLATE_PARM)
6120 targ_parms = DECL_INNERMOST_TEMPLATE_PARMS (TYPE_NAME (targ));
6122 /* Verify that we can coerce the template template
6123 parameters from the template argument to the template
6124 parameter. This requires an exact match. */
6125 if (targ_parms
6126 && !coerce_template_template_parms
6127 (DECL_INNERMOST_TEMPLATE_PARMS (tparm),
6128 targ_parms,
6129 tf_none,
6130 tparm,
6131 targs))
6133 ret = false;
6134 goto out;
6140 out:
6142 --processing_template_decl;
6143 return ret;
6146 /* Since type attributes aren't mangled, we need to strip them from
6147 template type arguments. */
6149 static tree
6150 canonicalize_type_argument (tree arg, tsubst_flags_t complain)
6152 tree mv;
6153 if (!arg || arg == error_mark_node || arg == TYPE_CANONICAL (arg))
6154 return arg;
6155 mv = TYPE_MAIN_VARIANT (arg);
6156 arg = strip_typedefs (arg);
6157 if (TYPE_ALIGN (arg) != TYPE_ALIGN (mv)
6158 || TYPE_ATTRIBUTES (arg) != TYPE_ATTRIBUTES (mv))
6160 if (complain & tf_warning)
6161 warning (0, "ignoring attributes on template argument %qT", arg);
6162 arg = build_aligned_type (arg, TYPE_ALIGN (mv));
6163 arg = cp_build_type_attribute_variant (arg, TYPE_ATTRIBUTES (mv));
6165 return arg;
6168 /* Convert the indicated template ARG as necessary to match the
6169 indicated template PARM. Returns the converted ARG, or
6170 error_mark_node if the conversion was unsuccessful. Error and
6171 warning messages are issued under control of COMPLAIN. This
6172 conversion is for the Ith parameter in the parameter list. ARGS is
6173 the full set of template arguments deduced so far. */
6175 static tree
6176 convert_template_argument (tree parm,
6177 tree arg,
6178 tree args,
6179 tsubst_flags_t complain,
6180 int i,
6181 tree in_decl)
6183 tree orig_arg;
6184 tree val;
6185 int is_type, requires_type, is_tmpl_type, requires_tmpl_type;
6187 if (TREE_CODE (arg) == TREE_LIST
6188 && TREE_CODE (TREE_VALUE (arg)) == OFFSET_REF)
6190 /* The template argument was the name of some
6191 member function. That's usually
6192 invalid, but static members are OK. In any
6193 case, grab the underlying fields/functions
6194 and issue an error later if required. */
6195 orig_arg = TREE_VALUE (arg);
6196 TREE_TYPE (arg) = unknown_type_node;
6199 orig_arg = arg;
6201 requires_tmpl_type = TREE_CODE (parm) == TEMPLATE_DECL;
6202 requires_type = (TREE_CODE (parm) == TYPE_DECL
6203 || requires_tmpl_type);
6205 /* When determining whether an argument pack expansion is a template,
6206 look at the pattern. */
6207 if (TREE_CODE (arg) == TYPE_PACK_EXPANSION)
6208 arg = PACK_EXPANSION_PATTERN (arg);
6210 /* Deal with an injected-class-name used as a template template arg. */
6211 if (requires_tmpl_type && CLASS_TYPE_P (arg))
6213 tree t = maybe_get_template_decl_from_type_decl (TYPE_NAME (arg));
6214 if (TREE_CODE (t) == TEMPLATE_DECL)
6216 if (cxx_dialect >= cxx0x)
6217 /* OK under DR 1004. */;
6218 else if (complain & tf_warning_or_error)
6219 pedwarn (input_location, OPT_Wpedantic, "injected-class-name %qD"
6220 " used as template template argument", TYPE_NAME (arg));
6221 else if (flag_pedantic_errors)
6222 t = arg;
6224 arg = t;
6228 is_tmpl_type =
6229 ((TREE_CODE (arg) == TEMPLATE_DECL
6230 && TREE_CODE (DECL_TEMPLATE_RESULT (arg)) == TYPE_DECL)
6231 || (requires_tmpl_type && TREE_CODE (arg) == TYPE_ARGUMENT_PACK)
6232 || TREE_CODE (arg) == TEMPLATE_TEMPLATE_PARM
6233 || TREE_CODE (arg) == UNBOUND_CLASS_TEMPLATE);
6235 if (is_tmpl_type
6236 && (TREE_CODE (arg) == TEMPLATE_TEMPLATE_PARM
6237 || TREE_CODE (arg) == UNBOUND_CLASS_TEMPLATE))
6238 arg = TYPE_STUB_DECL (arg);
6240 is_type = TYPE_P (arg) || is_tmpl_type;
6242 if (requires_type && ! is_type && TREE_CODE (arg) == SCOPE_REF
6243 && TREE_CODE (TREE_OPERAND (arg, 0)) == TEMPLATE_TYPE_PARM)
6245 if (TREE_CODE (TREE_OPERAND (arg, 1)) == BIT_NOT_EXPR)
6247 if (complain & tf_error)
6248 error ("invalid use of destructor %qE as a type", orig_arg);
6249 return error_mark_node;
6252 permerror (input_location,
6253 "to refer to a type member of a template parameter, "
6254 "use %<typename %E%>", orig_arg);
6256 orig_arg = make_typename_type (TREE_OPERAND (arg, 0),
6257 TREE_OPERAND (arg, 1),
6258 typename_type,
6259 complain);
6260 arg = orig_arg;
6261 is_type = 1;
6263 if (is_type != requires_type)
6265 if (in_decl)
6267 if (complain & tf_error)
6269 error ("type/value mismatch at argument %d in template "
6270 "parameter list for %qD",
6271 i + 1, in_decl);
6272 if (is_type)
6273 error (" expected a constant of type %qT, got %qT",
6274 TREE_TYPE (parm),
6275 (DECL_P (arg) ? DECL_NAME (arg) : orig_arg));
6276 else if (requires_tmpl_type)
6277 error (" expected a class template, got %qE", orig_arg);
6278 else
6279 error (" expected a type, got %qE", orig_arg);
6282 return error_mark_node;
6284 if (is_tmpl_type ^ requires_tmpl_type)
6286 if (in_decl && (complain & tf_error))
6288 error ("type/value mismatch at argument %d in template "
6289 "parameter list for %qD",
6290 i + 1, in_decl);
6291 if (is_tmpl_type)
6292 error (" expected a type, got %qT", DECL_NAME (arg));
6293 else
6294 error (" expected a class template, got %qT", orig_arg);
6296 return error_mark_node;
6299 if (is_type)
6301 if (requires_tmpl_type)
6303 if (template_parameter_pack_p (parm) && ARGUMENT_PACK_P (orig_arg))
6304 val = orig_arg;
6305 else if (TREE_CODE (TREE_TYPE (arg)) == UNBOUND_CLASS_TEMPLATE)
6306 /* The number of argument required is not known yet.
6307 Just accept it for now. */
6308 val = TREE_TYPE (arg);
6309 else
6311 tree parmparm = DECL_INNERMOST_TEMPLATE_PARMS (parm);
6312 tree argparm;
6314 argparm = DECL_INNERMOST_TEMPLATE_PARMS (arg);
6316 if (coerce_template_template_parms (parmparm, argparm,
6317 complain, in_decl,
6318 args))
6320 val = arg;
6322 /* TEMPLATE_TEMPLATE_PARM node is preferred over
6323 TEMPLATE_DECL. */
6324 if (val != error_mark_node)
6326 if (DECL_TEMPLATE_TEMPLATE_PARM_P (val))
6327 val = TREE_TYPE (val);
6328 if (TREE_CODE (orig_arg) == TYPE_PACK_EXPANSION)
6329 val = make_pack_expansion (val);
6332 else
6334 if (in_decl && (complain & tf_error))
6336 error ("type/value mismatch at argument %d in "
6337 "template parameter list for %qD",
6338 i + 1, in_decl);
6339 error (" expected a template of type %qD, got %qT",
6340 parm, orig_arg);
6343 val = error_mark_node;
6347 else
6348 val = orig_arg;
6349 /* We only form one instance of each template specialization.
6350 Therefore, if we use a non-canonical variant (i.e., a
6351 typedef), any future messages referring to the type will use
6352 the typedef, which is confusing if those future uses do not
6353 themselves also use the typedef. */
6354 if (TYPE_P (val))
6355 val = canonicalize_type_argument (val, complain);
6357 else
6359 tree t = tsubst (TREE_TYPE (parm), args, complain, in_decl);
6361 if (invalid_nontype_parm_type_p (t, complain))
6362 return error_mark_node;
6364 if (template_parameter_pack_p (parm) && ARGUMENT_PACK_P (orig_arg))
6366 if (same_type_p (t, TREE_TYPE (orig_arg)))
6367 val = orig_arg;
6368 else
6370 /* Not sure if this is reachable, but it doesn't hurt
6371 to be robust. */
6372 error ("type mismatch in nontype parameter pack");
6373 val = error_mark_node;
6376 else if (!dependent_template_arg_p (orig_arg)
6377 && !uses_template_parms (t))
6378 /* We used to call digest_init here. However, digest_init
6379 will report errors, which we don't want when complain
6380 is zero. More importantly, digest_init will try too
6381 hard to convert things: for example, `0' should not be
6382 converted to pointer type at this point according to
6383 the standard. Accepting this is not merely an
6384 extension, since deciding whether or not these
6385 conversions can occur is part of determining which
6386 function template to call, or whether a given explicit
6387 argument specification is valid. */
6388 val = convert_nontype_argument (t, orig_arg, complain);
6389 else
6390 val = strip_typedefs_expr (orig_arg);
6392 if (val == NULL_TREE)
6393 val = error_mark_node;
6394 else if (val == error_mark_node && (complain & tf_error))
6395 error ("could not convert template argument %qE to %qT", orig_arg, t);
6397 if (TREE_CODE (val) == SCOPE_REF)
6399 /* Strip typedefs from the SCOPE_REF. */
6400 tree type = canonicalize_type_argument (TREE_TYPE (val), complain);
6401 tree scope = canonicalize_type_argument (TREE_OPERAND (val, 0),
6402 complain);
6403 val = build_qualified_name (type, scope, TREE_OPERAND (val, 1),
6404 QUALIFIED_NAME_IS_TEMPLATE (val));
6408 return val;
6411 /* Coerces the remaining template arguments in INNER_ARGS (from
6412 ARG_IDX to the end) into the parameter pack at PARM_IDX in PARMS.
6413 Returns the coerced argument pack. PARM_IDX is the position of this
6414 parameter in the template parameter list. ARGS is the original
6415 template argument list. */
6416 static tree
6417 coerce_template_parameter_pack (tree parms,
6418 int parm_idx,
6419 tree args,
6420 tree inner_args,
6421 int arg_idx,
6422 tree new_args,
6423 int* lost,
6424 tree in_decl,
6425 tsubst_flags_t complain)
6427 tree parm = TREE_VEC_ELT (parms, parm_idx);
6428 int nargs = inner_args ? NUM_TMPL_ARGS (inner_args) : 0;
6429 tree packed_args;
6430 tree argument_pack;
6431 tree packed_types = NULL_TREE;
6433 if (arg_idx > nargs)
6434 arg_idx = nargs;
6436 packed_args = make_tree_vec (nargs - arg_idx);
6438 if (TREE_CODE (TREE_VALUE (parm)) == PARM_DECL
6439 && uses_parameter_packs (TREE_TYPE (TREE_VALUE (parm))))
6441 /* When the template parameter is a non-type template
6442 parameter pack whose type uses parameter packs, we need
6443 to look at each of the template arguments
6444 separately. Build a vector of the types for these
6445 non-type template parameters in PACKED_TYPES. */
6446 tree expansion
6447 = make_pack_expansion (TREE_TYPE (TREE_VALUE (parm)));
6448 packed_types = tsubst_pack_expansion (expansion, args,
6449 complain, in_decl);
6451 if (packed_types == error_mark_node)
6452 return error_mark_node;
6454 /* Check that we have the right number of arguments. */
6455 if (arg_idx < nargs
6456 && !PACK_EXPANSION_P (TREE_VEC_ELT (inner_args, arg_idx))
6457 && nargs - arg_idx != TREE_VEC_LENGTH (packed_types))
6459 int needed_parms
6460 = TREE_VEC_LENGTH (parms) - 1 + TREE_VEC_LENGTH (packed_types);
6461 error ("wrong number of template arguments (%d, should be %d)",
6462 nargs, needed_parms);
6463 return error_mark_node;
6466 /* If we aren't able to check the actual arguments now
6467 (because they haven't been expanded yet), we can at least
6468 verify that all of the types used for the non-type
6469 template parameter pack are, in fact, valid for non-type
6470 template parameters. */
6471 if (arg_idx < nargs
6472 && PACK_EXPANSION_P (TREE_VEC_ELT (inner_args, arg_idx)))
6474 int j, len = TREE_VEC_LENGTH (packed_types);
6475 for (j = 0; j < len; ++j)
6477 tree t = TREE_VEC_ELT (packed_types, j);
6478 if (invalid_nontype_parm_type_p (t, complain))
6479 return error_mark_node;
6484 /* Convert the remaining arguments, which will be a part of the
6485 parameter pack "parm". */
6486 for (; arg_idx < nargs; ++arg_idx)
6488 tree arg = TREE_VEC_ELT (inner_args, arg_idx);
6489 tree actual_parm = TREE_VALUE (parm);
6491 if (packed_types && !PACK_EXPANSION_P (arg))
6493 /* When we have a vector of types (corresponding to the
6494 non-type template parameter pack that uses parameter
6495 packs in its type, as mention above), and the
6496 argument is not an expansion (which expands to a
6497 currently unknown number of arguments), clone the
6498 parm and give it the next type in PACKED_TYPES. */
6499 actual_parm = copy_node (actual_parm);
6500 TREE_TYPE (actual_parm) =
6501 TREE_VEC_ELT (packed_types, arg_idx - parm_idx);
6504 if (arg == error_mark_node)
6506 if (complain & tf_error)
6507 error ("template argument %d is invalid", arg_idx + 1);
6509 else
6510 arg = convert_template_argument (actual_parm,
6511 arg, new_args, complain, parm_idx,
6512 in_decl);
6513 if (arg == error_mark_node)
6514 (*lost)++;
6515 TREE_VEC_ELT (packed_args, arg_idx - parm_idx) = arg;
6518 if (TREE_CODE (TREE_VALUE (parm)) == TYPE_DECL
6519 || TREE_CODE (TREE_VALUE (parm)) == TEMPLATE_DECL)
6520 argument_pack = cxx_make_type (TYPE_ARGUMENT_PACK);
6521 else
6523 argument_pack = make_node (NONTYPE_ARGUMENT_PACK);
6524 TREE_TYPE (argument_pack)
6525 = tsubst (TREE_TYPE (TREE_VALUE (parm)), new_args, complain, in_decl);
6526 TREE_CONSTANT (argument_pack) = 1;
6529 SET_ARGUMENT_PACK_ARGS (argument_pack, packed_args);
6530 #ifdef ENABLE_CHECKING
6531 SET_NON_DEFAULT_TEMPLATE_ARGS_COUNT (packed_args,
6532 TREE_VEC_LENGTH (packed_args));
6533 #endif
6534 return argument_pack;
6537 /* Returns true if the template argument vector ARGS contains
6538 any pack expansions, false otherwise. */
6540 static bool
6541 any_pack_expanson_args_p (tree args)
6543 int i;
6544 if (args)
6545 for (i = 0; i < TREE_VEC_LENGTH (args); ++i)
6546 if (PACK_EXPANSION_P (TREE_VEC_ELT (args, i)))
6547 return true;
6548 return false;
6551 /* Convert all template arguments to their appropriate types, and
6552 return a vector containing the innermost resulting template
6553 arguments. If any error occurs, return error_mark_node. Error and
6554 warning messages are issued under control of COMPLAIN.
6556 If REQUIRE_ALL_ARGS is false, argument deduction will be performed
6557 for arguments not specified in ARGS. Otherwise, if
6558 USE_DEFAULT_ARGS is true, default arguments will be used to fill in
6559 unspecified arguments. If REQUIRE_ALL_ARGS is true, but
6560 USE_DEFAULT_ARGS is false, then all arguments must be specified in
6561 ARGS. */
6563 static tree
6564 coerce_template_parms (tree parms,
6565 tree args,
6566 tree in_decl,
6567 tsubst_flags_t complain,
6568 bool require_all_args,
6569 bool use_default_args)
6571 int nparms, nargs, parm_idx, arg_idx, lost = 0;
6572 tree inner_args;
6573 tree new_args;
6574 tree new_inner_args;
6575 int saved_unevaluated_operand;
6576 int saved_inhibit_evaluation_warnings;
6578 /* When used as a boolean value, indicates whether this is a
6579 variadic template parameter list. Since it's an int, we can also
6580 subtract it from nparms to get the number of non-variadic
6581 parameters. */
6582 int variadic_p = 0;
6583 int post_variadic_parms = 0;
6585 if (args == error_mark_node)
6586 return error_mark_node;
6588 nparms = TREE_VEC_LENGTH (parms);
6590 /* Determine if there are any parameter packs. */
6591 for (parm_idx = 0; parm_idx < nparms; ++parm_idx)
6593 tree tparm = TREE_VALUE (TREE_VEC_ELT (parms, parm_idx));
6594 if (variadic_p)
6595 ++post_variadic_parms;
6596 if (template_parameter_pack_p (tparm))
6597 ++variadic_p;
6600 inner_args = INNERMOST_TEMPLATE_ARGS (args);
6601 /* If there are no parameters that follow a parameter pack, we need to
6602 expand any argument packs so that we can deduce a parameter pack from
6603 some non-packed args followed by an argument pack, as in variadic85.C.
6604 If there are such parameters, we need to leave argument packs intact
6605 so the arguments are assigned properly. This can happen when dealing
6606 with a nested class inside a partial specialization of a class
6607 template, as in variadic92.C, or when deducing a template parameter pack
6608 from a sub-declarator, as in variadic114.C. */
6609 if (!post_variadic_parms)
6610 inner_args = expand_template_argument_pack (inner_args);
6612 nargs = inner_args ? NUM_TMPL_ARGS (inner_args) : 0;
6613 if ((nargs > nparms && !variadic_p)
6614 || (nargs < nparms - variadic_p
6615 && require_all_args
6616 && !any_pack_expanson_args_p (inner_args)
6617 && (!use_default_args
6618 || (TREE_VEC_ELT (parms, nargs) != error_mark_node
6619 && !TREE_PURPOSE (TREE_VEC_ELT (parms, nargs))))))
6621 if (complain & tf_error)
6623 if (variadic_p)
6625 nparms -= variadic_p;
6626 error ("wrong number of template arguments "
6627 "(%d, should be %d or more)", nargs, nparms);
6629 else
6630 error ("wrong number of template arguments "
6631 "(%d, should be %d)", nargs, nparms);
6633 if (in_decl)
6634 error ("provided for %q+D", in_decl);
6637 return error_mark_node;
6640 /* We need to evaluate the template arguments, even though this
6641 template-id may be nested within a "sizeof". */
6642 saved_unevaluated_operand = cp_unevaluated_operand;
6643 cp_unevaluated_operand = 0;
6644 saved_inhibit_evaluation_warnings = c_inhibit_evaluation_warnings;
6645 c_inhibit_evaluation_warnings = 0;
6646 new_inner_args = make_tree_vec (nparms);
6647 new_args = add_outermost_template_args (args, new_inner_args);
6648 for (parm_idx = 0, arg_idx = 0; parm_idx < nparms; parm_idx++, arg_idx++)
6650 tree arg;
6651 tree parm;
6653 /* Get the Ith template parameter. */
6654 parm = TREE_VEC_ELT (parms, parm_idx);
6656 if (parm == error_mark_node)
6658 TREE_VEC_ELT (new_inner_args, arg_idx) = error_mark_node;
6659 continue;
6662 /* Calculate the next argument. */
6663 if (arg_idx < nargs)
6664 arg = TREE_VEC_ELT (inner_args, arg_idx);
6665 else
6666 arg = NULL_TREE;
6668 if (template_parameter_pack_p (TREE_VALUE (parm))
6669 && !(arg && ARGUMENT_PACK_P (arg)))
6671 /* All remaining arguments will be placed in the
6672 template parameter pack PARM. */
6673 arg = coerce_template_parameter_pack (parms, parm_idx, args,
6674 inner_args, arg_idx,
6675 new_args, &lost,
6676 in_decl, complain);
6678 /* Store this argument. */
6679 if (arg == error_mark_node)
6680 lost++;
6681 TREE_VEC_ELT (new_inner_args, parm_idx) = arg;
6683 /* We are done with all of the arguments. */
6684 arg_idx = nargs;
6686 continue;
6688 else if (arg)
6690 if (PACK_EXPANSION_P (arg))
6692 /* We don't know how many args we have yet, just
6693 use the unconverted ones for now. */
6694 new_inner_args = inner_args;
6695 break;
6698 else if (require_all_args)
6700 /* There must be a default arg in this case. */
6701 arg = tsubst_template_arg (TREE_PURPOSE (parm), new_args,
6702 complain, in_decl);
6703 /* The position of the first default template argument,
6704 is also the number of non-defaulted arguments in NEW_INNER_ARGS.
6705 Record that. */
6706 if (!NON_DEFAULT_TEMPLATE_ARGS_COUNT (new_inner_args))
6707 SET_NON_DEFAULT_TEMPLATE_ARGS_COUNT (new_inner_args, arg_idx);
6709 else
6710 break;
6712 if (arg == error_mark_node)
6714 if (complain & tf_error)
6715 error ("template argument %d is invalid", arg_idx + 1);
6717 else if (!arg)
6718 /* This only occurs if there was an error in the template
6719 parameter list itself (which we would already have
6720 reported) that we are trying to recover from, e.g., a class
6721 template with a parameter list such as
6722 template<typename..., typename>. */
6723 ++lost;
6724 else
6725 arg = convert_template_argument (TREE_VALUE (parm),
6726 arg, new_args, complain,
6727 parm_idx, in_decl);
6729 if (arg == error_mark_node)
6730 lost++;
6731 TREE_VEC_ELT (new_inner_args, arg_idx) = arg;
6733 cp_unevaluated_operand = saved_unevaluated_operand;
6734 c_inhibit_evaluation_warnings = saved_inhibit_evaluation_warnings;
6736 if (lost)
6737 return error_mark_node;
6739 #ifdef ENABLE_CHECKING
6740 if (!NON_DEFAULT_TEMPLATE_ARGS_COUNT (new_inner_args))
6741 SET_NON_DEFAULT_TEMPLATE_ARGS_COUNT (new_inner_args,
6742 TREE_VEC_LENGTH (new_inner_args));
6743 #endif
6745 return new_inner_args;
6748 /* Like coerce_template_parms. If PARMS represents all template
6749 parameters levels, this function returns a vector of vectors
6750 representing all the resulting argument levels. Note that in this
6751 case, only the innermost arguments are coerced because the
6752 outermost ones are supposed to have been coerced already.
6754 Otherwise, if PARMS represents only (the innermost) vector of
6755 parameters, this function returns a vector containing just the
6756 innermost resulting arguments. */
6758 static tree
6759 coerce_innermost_template_parms (tree parms,
6760 tree args,
6761 tree in_decl,
6762 tsubst_flags_t complain,
6763 bool require_all_args,
6764 bool use_default_args)
6766 int parms_depth = TMPL_PARMS_DEPTH (parms);
6767 int args_depth = TMPL_ARGS_DEPTH (args);
6768 tree coerced_args;
6770 if (parms_depth > 1)
6772 coerced_args = make_tree_vec (parms_depth);
6773 tree level;
6774 int cur_depth;
6776 for (level = parms, cur_depth = parms_depth;
6777 parms_depth > 0 && level != NULL_TREE;
6778 level = TREE_CHAIN (level), --cur_depth)
6780 tree l;
6781 if (cur_depth == args_depth)
6782 l = coerce_template_parms (TREE_VALUE (level),
6783 args, in_decl, complain,
6784 require_all_args,
6785 use_default_args);
6786 else
6787 l = TMPL_ARGS_LEVEL (args, cur_depth);
6789 if (l == error_mark_node)
6790 return error_mark_node;
6792 SET_TMPL_ARGS_LEVEL (coerced_args, cur_depth, l);
6795 else
6796 coerced_args = coerce_template_parms (INNERMOST_TEMPLATE_PARMS (parms),
6797 args, in_decl, complain,
6798 require_all_args,
6799 use_default_args);
6800 return coerced_args;
6803 /* Returns 1 if template args OT and NT are equivalent. */
6805 static int
6806 template_args_equal (tree ot, tree nt)
6808 if (nt == ot)
6809 return 1;
6810 if (nt == NULL_TREE || ot == NULL_TREE)
6811 return false;
6813 if (TREE_CODE (nt) == TREE_VEC)
6814 /* For member templates */
6815 return TREE_CODE (ot) == TREE_VEC && comp_template_args (ot, nt);
6816 else if (PACK_EXPANSION_P (ot))
6817 return (PACK_EXPANSION_P (nt)
6818 && template_args_equal (PACK_EXPANSION_PATTERN (ot),
6819 PACK_EXPANSION_PATTERN (nt))
6820 && template_args_equal (PACK_EXPANSION_EXTRA_ARGS (ot),
6821 PACK_EXPANSION_EXTRA_ARGS (nt)));
6822 else if (ARGUMENT_PACK_P (ot))
6824 int i, len;
6825 tree opack, npack;
6827 if (!ARGUMENT_PACK_P (nt))
6828 return 0;
6830 opack = ARGUMENT_PACK_ARGS (ot);
6831 npack = ARGUMENT_PACK_ARGS (nt);
6832 len = TREE_VEC_LENGTH (opack);
6833 if (TREE_VEC_LENGTH (npack) != len)
6834 return 0;
6835 for (i = 0; i < len; ++i)
6836 if (!template_args_equal (TREE_VEC_ELT (opack, i),
6837 TREE_VEC_ELT (npack, i)))
6838 return 0;
6839 return 1;
6841 else if (ot && TREE_CODE (ot) == ARGUMENT_PACK_SELECT)
6843 /* We get here probably because we are in the middle of substituting
6844 into the pattern of a pack expansion. In that case the
6845 ARGUMENT_PACK_SELECT temporarily replaces the pack argument we are
6846 interested in. So we want to use the initial pack argument for
6847 the comparison. */
6848 ot = ARGUMENT_PACK_SELECT_FROM_PACK (ot);
6849 if (nt && TREE_CODE (nt) == ARGUMENT_PACK_SELECT)
6850 nt = ARGUMENT_PACK_SELECT_FROM_PACK (nt);
6851 return template_args_equal (ot, nt);
6853 else if (TYPE_P (nt))
6854 return TYPE_P (ot) && same_type_p (ot, nt);
6855 else if (TREE_CODE (ot) == TREE_VEC || TYPE_P (ot))
6856 return 0;
6857 else
6858 return cp_tree_equal (ot, nt);
6861 /* Returns 1 iff the OLDARGS and NEWARGS are in fact identical sets of
6862 template arguments. Returns 0 otherwise, and updates OLDARG_PTR and
6863 NEWARG_PTR with the offending arguments if they are non-NULL. */
6865 static int
6866 comp_template_args_with_info (tree oldargs, tree newargs,
6867 tree *oldarg_ptr, tree *newarg_ptr)
6869 int i;
6871 if (oldargs == newargs)
6872 return 1;
6874 if (!oldargs || !newargs)
6875 return 0;
6877 if (TREE_VEC_LENGTH (oldargs) != TREE_VEC_LENGTH (newargs))
6878 return 0;
6880 for (i = 0; i < TREE_VEC_LENGTH (oldargs); ++i)
6882 tree nt = TREE_VEC_ELT (newargs, i);
6883 tree ot = TREE_VEC_ELT (oldargs, i);
6885 if (! template_args_equal (ot, nt))
6887 if (oldarg_ptr != NULL)
6888 *oldarg_ptr = ot;
6889 if (newarg_ptr != NULL)
6890 *newarg_ptr = nt;
6891 return 0;
6894 return 1;
6897 /* Returns 1 iff the OLDARGS and NEWARGS are in fact identical sets
6898 of template arguments. Returns 0 otherwise. */
6901 comp_template_args (tree oldargs, tree newargs)
6903 return comp_template_args_with_info (oldargs, newargs, NULL, NULL);
6906 static void
6907 add_pending_template (tree d)
6909 tree ti = (TYPE_P (d)
6910 ? CLASSTYPE_TEMPLATE_INFO (d)
6911 : DECL_TEMPLATE_INFO (d));
6912 struct pending_template *pt;
6913 int level;
6915 if (TI_PENDING_TEMPLATE_FLAG (ti))
6916 return;
6918 /* We are called both from instantiate_decl, where we've already had a
6919 tinst_level pushed, and instantiate_template, where we haven't.
6920 Compensate. */
6921 level = !current_tinst_level || current_tinst_level->decl != d;
6923 if (level)
6924 push_tinst_level (d);
6926 pt = ggc_alloc_pending_template ();
6927 pt->next = NULL;
6928 pt->tinst = current_tinst_level;
6929 if (last_pending_template)
6930 last_pending_template->next = pt;
6931 else
6932 pending_templates = pt;
6934 last_pending_template = pt;
6936 TI_PENDING_TEMPLATE_FLAG (ti) = 1;
6938 if (level)
6939 pop_tinst_level ();
6943 /* Return a TEMPLATE_ID_EXPR corresponding to the indicated FNS and
6944 ARGLIST. Valid choices for FNS are given in the cp-tree.def
6945 documentation for TEMPLATE_ID_EXPR. */
6947 tree
6948 lookup_template_function (tree fns, tree arglist)
6950 tree type;
6952 if (fns == error_mark_node || arglist == error_mark_node)
6953 return error_mark_node;
6955 gcc_assert (!arglist || TREE_CODE (arglist) == TREE_VEC);
6957 if (!is_overloaded_fn (fns) && TREE_CODE (fns) != IDENTIFIER_NODE)
6959 error ("%q#D is not a function template", fns);
6960 return error_mark_node;
6963 if (BASELINK_P (fns))
6965 BASELINK_FUNCTIONS (fns) = build2 (TEMPLATE_ID_EXPR,
6966 unknown_type_node,
6967 BASELINK_FUNCTIONS (fns),
6968 arglist);
6969 return fns;
6972 type = TREE_TYPE (fns);
6973 if (TREE_CODE (fns) == OVERLOAD || !type)
6974 type = unknown_type_node;
6976 return build2 (TEMPLATE_ID_EXPR, type, fns, arglist);
6979 /* Within the scope of a template class S<T>, the name S gets bound
6980 (in build_self_reference) to a TYPE_DECL for the class, not a
6981 TEMPLATE_DECL. If DECL is a TYPE_DECL for current_class_type,
6982 or one of its enclosing classes, and that type is a template,
6983 return the associated TEMPLATE_DECL. Otherwise, the original
6984 DECL is returned.
6986 Also handle the case when DECL is a TREE_LIST of ambiguous
6987 injected-class-names from different bases. */
6989 tree
6990 maybe_get_template_decl_from_type_decl (tree decl)
6992 if (decl == NULL_TREE)
6993 return decl;
6995 /* DR 176: A lookup that finds an injected-class-name (10.2
6996 [class.member.lookup]) can result in an ambiguity in certain cases
6997 (for example, if it is found in more than one base class). If all of
6998 the injected-class-names that are found refer to specializations of
6999 the same class template, and if the name is followed by a
7000 template-argument-list, the reference refers to the class template
7001 itself and not a specialization thereof, and is not ambiguous. */
7002 if (TREE_CODE (decl) == TREE_LIST)
7004 tree t, tmpl = NULL_TREE;
7005 for (t = decl; t; t = TREE_CHAIN (t))
7007 tree elt = maybe_get_template_decl_from_type_decl (TREE_VALUE (t));
7008 if (!tmpl)
7009 tmpl = elt;
7010 else if (tmpl != elt)
7011 break;
7013 if (tmpl && t == NULL_TREE)
7014 return tmpl;
7015 else
7016 return decl;
7019 return (decl != NULL_TREE
7020 && DECL_SELF_REFERENCE_P (decl)
7021 && CLASSTYPE_TEMPLATE_INFO (TREE_TYPE (decl)))
7022 ? CLASSTYPE_TI_TEMPLATE (TREE_TYPE (decl)) : decl;
7025 /* Given an IDENTIFIER_NODE (or type TEMPLATE_DECL) and a chain of
7026 parameters, find the desired type.
7028 D1 is the PTYPENAME terminal, and ARGLIST is the list of arguments.
7030 IN_DECL, if non-NULL, is the template declaration we are trying to
7031 instantiate.
7033 If ENTERING_SCOPE is nonzero, we are about to enter the scope of
7034 the class we are looking up.
7036 Issue error and warning messages under control of COMPLAIN.
7038 If the template class is really a local class in a template
7039 function, then the FUNCTION_CONTEXT is the function in which it is
7040 being instantiated.
7042 ??? Note that this function is currently called *twice* for each
7043 template-id: the first time from the parser, while creating the
7044 incomplete type (finish_template_type), and the second type during the
7045 real instantiation (instantiate_template_class). This is surely something
7046 that we want to avoid. It also causes some problems with argument
7047 coercion (see convert_nontype_argument for more information on this). */
7049 static tree
7050 lookup_template_class_1 (tree d1, tree arglist, tree in_decl, tree context,
7051 int entering_scope, tsubst_flags_t complain)
7053 tree templ = NULL_TREE, parmlist;
7054 tree t;
7055 void **slot;
7056 spec_entry *entry;
7057 spec_entry elt;
7058 hashval_t hash;
7060 if (TREE_CODE (d1) == IDENTIFIER_NODE)
7062 tree value = innermost_non_namespace_value (d1);
7063 if (value && DECL_TEMPLATE_TEMPLATE_PARM_P (value))
7064 templ = value;
7065 else
7067 if (context)
7068 push_decl_namespace (context);
7069 templ = lookup_name (d1);
7070 templ = maybe_get_template_decl_from_type_decl (templ);
7071 if (context)
7072 pop_decl_namespace ();
7074 if (templ)
7075 context = DECL_CONTEXT (templ);
7077 else if (TREE_CODE (d1) == TYPE_DECL && MAYBE_CLASS_TYPE_P (TREE_TYPE (d1)))
7079 tree type = TREE_TYPE (d1);
7081 /* If we are declaring a constructor, say A<T>::A<T>, we will get
7082 an implicit typename for the second A. Deal with it. */
7083 if (TREE_CODE (type) == TYPENAME_TYPE && TREE_TYPE (type))
7084 type = TREE_TYPE (type);
7086 if (CLASSTYPE_TEMPLATE_INFO (type))
7088 templ = CLASSTYPE_TI_TEMPLATE (type);
7089 d1 = DECL_NAME (templ);
7092 else if (TREE_CODE (d1) == ENUMERAL_TYPE
7093 || (TYPE_P (d1) && MAYBE_CLASS_TYPE_P (d1)))
7095 templ = TYPE_TI_TEMPLATE (d1);
7096 d1 = DECL_NAME (templ);
7098 else if (TREE_CODE (d1) == TEMPLATE_DECL
7099 && DECL_TEMPLATE_RESULT (d1)
7100 && TREE_CODE (DECL_TEMPLATE_RESULT (d1)) == TYPE_DECL)
7102 templ = d1;
7103 d1 = DECL_NAME (templ);
7104 context = DECL_CONTEXT (templ);
7106 else if (DECL_TEMPLATE_TEMPLATE_PARM_P (d1))
7108 templ = d1;
7109 d1 = DECL_NAME (templ);
7112 /* Issue an error message if we didn't find a template. */
7113 if (! templ)
7115 if (complain & tf_error)
7116 error ("%qT is not a template", d1);
7117 return error_mark_node;
7120 if (TREE_CODE (templ) != TEMPLATE_DECL
7121 /* Make sure it's a user visible template, if it was named by
7122 the user. */
7123 || ((complain & tf_user) && !DECL_TEMPLATE_PARM_P (templ)
7124 && !PRIMARY_TEMPLATE_P (templ)))
7126 if (complain & tf_error)
7128 error ("non-template type %qT used as a template", d1);
7129 if (in_decl)
7130 error ("for template declaration %q+D", in_decl);
7132 return error_mark_node;
7135 complain &= ~tf_user;
7137 if (DECL_TEMPLATE_TEMPLATE_PARM_P (templ))
7139 /* Create a new TEMPLATE_DECL and TEMPLATE_TEMPLATE_PARM node to store
7140 template arguments */
7142 tree parm;
7143 tree arglist2;
7144 tree outer;
7146 parmlist = DECL_INNERMOST_TEMPLATE_PARMS (templ);
7148 /* Consider an example where a template template parameter declared as
7150 template <class T, class U = std::allocator<T> > class TT
7152 The template parameter level of T and U are one level larger than
7153 of TT. To proper process the default argument of U, say when an
7154 instantiation `TT<int>' is seen, we need to build the full
7155 arguments containing {int} as the innermost level. Outer levels,
7156 available when not appearing as default template argument, can be
7157 obtained from the arguments of the enclosing template.
7159 Suppose that TT is later substituted with std::vector. The above
7160 instantiation is `TT<int, std::allocator<T> >' with TT at
7161 level 1, and T at level 2, while the template arguments at level 1
7162 becomes {std::vector} and the inner level 2 is {int}. */
7164 outer = DECL_CONTEXT (templ);
7165 if (outer)
7166 outer = TI_ARGS (get_template_info (DECL_TEMPLATE_RESULT (outer)));
7167 else if (current_template_parms)
7168 /* This is an argument of the current template, so we haven't set
7169 DECL_CONTEXT yet. */
7170 outer = current_template_args ();
7172 if (outer)
7173 arglist = add_to_template_args (outer, arglist);
7175 arglist2 = coerce_template_parms (parmlist, arglist, templ,
7176 complain,
7177 /*require_all_args=*/true,
7178 /*use_default_args=*/true);
7179 if (arglist2 == error_mark_node
7180 || (!uses_template_parms (arglist2)
7181 && check_instantiated_args (templ, arglist2, complain)))
7182 return error_mark_node;
7184 parm = bind_template_template_parm (TREE_TYPE (templ), arglist2);
7185 return parm;
7187 else
7189 tree template_type = TREE_TYPE (templ);
7190 tree gen_tmpl;
7191 tree type_decl;
7192 tree found = NULL_TREE;
7193 int arg_depth;
7194 int parm_depth;
7195 int is_dependent_type;
7196 int use_partial_inst_tmpl = false;
7198 if (template_type == error_mark_node)
7199 /* An error occured while building the template TEMPL, and a
7200 diagnostic has most certainly been emitted for that
7201 already. Let's propagate that error. */
7202 return error_mark_node;
7204 gen_tmpl = most_general_template (templ);
7205 parmlist = DECL_TEMPLATE_PARMS (gen_tmpl);
7206 parm_depth = TMPL_PARMS_DEPTH (parmlist);
7207 arg_depth = TMPL_ARGS_DEPTH (arglist);
7209 if (arg_depth == 1 && parm_depth > 1)
7211 /* We've been given an incomplete set of template arguments.
7212 For example, given:
7214 template <class T> struct S1 {
7215 template <class U> struct S2 {};
7216 template <class U> struct S2<U*> {};
7219 we will be called with an ARGLIST of `U*', but the
7220 TEMPLATE will be `template <class T> template
7221 <class U> struct S1<T>::S2'. We must fill in the missing
7222 arguments. */
7223 arglist
7224 = add_outermost_template_args (TYPE_TI_ARGS (TREE_TYPE (templ)),
7225 arglist);
7226 arg_depth = TMPL_ARGS_DEPTH (arglist);
7229 /* Now we should have enough arguments. */
7230 gcc_assert (parm_depth == arg_depth);
7232 /* From here on, we're only interested in the most general
7233 template. */
7235 /* Calculate the BOUND_ARGS. These will be the args that are
7236 actually tsubst'd into the definition to create the
7237 instantiation. */
7238 if (parm_depth > 1)
7240 /* We have multiple levels of arguments to coerce, at once. */
7241 int i;
7242 int saved_depth = TMPL_ARGS_DEPTH (arglist);
7244 tree bound_args = make_tree_vec (parm_depth);
7246 for (i = saved_depth,
7247 t = DECL_TEMPLATE_PARMS (gen_tmpl);
7248 i > 0 && t != NULL_TREE;
7249 --i, t = TREE_CHAIN (t))
7251 tree a;
7252 if (i == saved_depth)
7253 a = coerce_template_parms (TREE_VALUE (t),
7254 arglist, gen_tmpl,
7255 complain,
7256 /*require_all_args=*/true,
7257 /*use_default_args=*/true);
7258 else
7259 /* Outer levels should have already been coerced. */
7260 a = TMPL_ARGS_LEVEL (arglist, i);
7262 /* Don't process further if one of the levels fails. */
7263 if (a == error_mark_node)
7265 /* Restore the ARGLIST to its full size. */
7266 TREE_VEC_LENGTH (arglist) = saved_depth;
7267 return error_mark_node;
7270 SET_TMPL_ARGS_LEVEL (bound_args, i, a);
7272 /* We temporarily reduce the length of the ARGLIST so
7273 that coerce_template_parms will see only the arguments
7274 corresponding to the template parameters it is
7275 examining. */
7276 TREE_VEC_LENGTH (arglist)--;
7279 /* Restore the ARGLIST to its full size. */
7280 TREE_VEC_LENGTH (arglist) = saved_depth;
7282 arglist = bound_args;
7284 else
7285 arglist
7286 = coerce_template_parms (INNERMOST_TEMPLATE_PARMS (parmlist),
7287 INNERMOST_TEMPLATE_ARGS (arglist),
7288 gen_tmpl,
7289 complain,
7290 /*require_all_args=*/true,
7291 /*use_default_args=*/true);
7293 if (arglist == error_mark_node)
7294 /* We were unable to bind the arguments. */
7295 return error_mark_node;
7297 /* In the scope of a template class, explicit references to the
7298 template class refer to the type of the template, not any
7299 instantiation of it. For example, in:
7301 template <class T> class C { void f(C<T>); }
7303 the `C<T>' is just the same as `C'. Outside of the
7304 class, however, such a reference is an instantiation. */
7305 if ((entering_scope
7306 || !PRIMARY_TEMPLATE_P (gen_tmpl)
7307 || currently_open_class (template_type))
7308 /* comp_template_args is expensive, check it last. */
7309 && comp_template_args (TYPE_TI_ARGS (template_type),
7310 arglist))
7311 return template_type;
7313 /* If we already have this specialization, return it. */
7314 elt.tmpl = gen_tmpl;
7315 elt.args = arglist;
7316 hash = hash_specialization (&elt);
7317 entry = (spec_entry *) htab_find_with_hash (type_specializations,
7318 &elt, hash);
7320 if (entry)
7321 return entry->spec;
7323 is_dependent_type = uses_template_parms (arglist);
7325 /* If the deduced arguments are invalid, then the binding
7326 failed. */
7327 if (!is_dependent_type
7328 && check_instantiated_args (gen_tmpl,
7329 INNERMOST_TEMPLATE_ARGS (arglist),
7330 complain))
7331 return error_mark_node;
7333 if (!is_dependent_type
7334 && !PRIMARY_TEMPLATE_P (gen_tmpl)
7335 && !LAMBDA_TYPE_P (TREE_TYPE (gen_tmpl))
7336 && TREE_CODE (CP_DECL_CONTEXT (gen_tmpl)) == NAMESPACE_DECL)
7338 found = xref_tag_from_type (TREE_TYPE (gen_tmpl),
7339 DECL_NAME (gen_tmpl),
7340 /*tag_scope=*/ts_global);
7341 return found;
7344 context = tsubst (DECL_CONTEXT (gen_tmpl), arglist,
7345 complain, in_decl);
7346 if (context == error_mark_node)
7347 return error_mark_node;
7349 if (!context)
7350 context = global_namespace;
7352 /* Create the type. */
7353 if (TREE_CODE (template_type) == ENUMERAL_TYPE)
7355 if (!is_dependent_type)
7357 set_current_access_from_decl (TYPE_NAME (template_type));
7358 t = start_enum (TYPE_IDENTIFIER (template_type), NULL_TREE,
7359 tsubst (ENUM_UNDERLYING_TYPE (template_type),
7360 arglist, complain, in_decl),
7361 SCOPED_ENUM_P (template_type), NULL);
7363 else
7365 /* We don't want to call start_enum for this type, since
7366 the values for the enumeration constants may involve
7367 template parameters. And, no one should be interested
7368 in the enumeration constants for such a type. */
7369 t = cxx_make_type (ENUMERAL_TYPE);
7370 SET_SCOPED_ENUM_P (t, SCOPED_ENUM_P (template_type));
7372 SET_OPAQUE_ENUM_P (t, OPAQUE_ENUM_P (template_type));
7373 ENUM_FIXED_UNDERLYING_TYPE_P (t)
7374 = ENUM_FIXED_UNDERLYING_TYPE_P (template_type);
7376 else if (DECL_ALIAS_TEMPLATE_P (gen_tmpl))
7378 /* The user referred to a specialization of an alias
7379 template represented by GEN_TMPL.
7381 [temp.alias]/2 says:
7383 When a template-id refers to the specialization of an
7384 alias template, it is equivalent to the associated
7385 type obtained by substitution of its
7386 template-arguments for the template-parameters in the
7387 type-id of the alias template. */
7389 t = tsubst (TREE_TYPE (gen_tmpl), arglist, complain, in_decl);
7390 /* Note that the call above (by indirectly calling
7391 register_specialization in tsubst_decl) registers the
7392 TYPE_DECL representing the specialization of the alias
7393 template. So next time someone substitutes ARGLIST for
7394 the template parms into the alias template (GEN_TMPL),
7395 she'll get that TYPE_DECL back. */
7397 if (t == error_mark_node)
7398 return t;
7400 else if (CLASS_TYPE_P (template_type))
7402 t = make_class_type (TREE_CODE (template_type));
7403 CLASSTYPE_DECLARED_CLASS (t)
7404 = CLASSTYPE_DECLARED_CLASS (template_type);
7405 SET_CLASSTYPE_IMPLICIT_INSTANTIATION (t);
7406 TYPE_FOR_JAVA (t) = TYPE_FOR_JAVA (template_type);
7408 /* A local class. Make sure the decl gets registered properly. */
7409 if (context == current_function_decl)
7410 pushtag (DECL_NAME (gen_tmpl), t, /*tag_scope=*/ts_current);
7412 if (comp_template_args (CLASSTYPE_TI_ARGS (template_type), arglist))
7413 /* This instantiation is another name for the primary
7414 template type. Set the TYPE_CANONICAL field
7415 appropriately. */
7416 TYPE_CANONICAL (t) = template_type;
7417 else if (any_template_arguments_need_structural_equality_p (arglist))
7418 /* Some of the template arguments require structural
7419 equality testing, so this template class requires
7420 structural equality testing. */
7421 SET_TYPE_STRUCTURAL_EQUALITY (t);
7423 else
7424 gcc_unreachable ();
7426 /* If we called start_enum or pushtag above, this information
7427 will already be set up. */
7428 if (!TYPE_NAME (t))
7430 TYPE_CONTEXT (t) = FROB_CONTEXT (context);
7432 type_decl = create_implicit_typedef (DECL_NAME (gen_tmpl), t);
7433 DECL_CONTEXT (type_decl) = TYPE_CONTEXT (t);
7434 DECL_SOURCE_LOCATION (type_decl)
7435 = DECL_SOURCE_LOCATION (TYPE_STUB_DECL (template_type));
7437 else
7438 type_decl = TYPE_NAME (t);
7440 if (CLASS_TYPE_P (template_type))
7442 TREE_PRIVATE (type_decl)
7443 = TREE_PRIVATE (TYPE_MAIN_DECL (template_type));
7444 TREE_PROTECTED (type_decl)
7445 = TREE_PROTECTED (TYPE_MAIN_DECL (template_type));
7446 if (CLASSTYPE_VISIBILITY_SPECIFIED (template_type))
7448 DECL_VISIBILITY_SPECIFIED (type_decl) = 1;
7449 DECL_VISIBILITY (type_decl) = CLASSTYPE_VISIBILITY (template_type);
7453 /* Let's consider the explicit specialization of a member
7454 of a class template specialization that is implicitely instantiated,
7455 e.g.:
7456 template<class T>
7457 struct S
7459 template<class U> struct M {}; //#0
7462 template<>
7463 template<>
7464 struct S<int>::M<char> //#1
7466 int i;
7468 [temp.expl.spec]/4 says this is valid.
7470 In this case, when we write:
7471 S<int>::M<char> m;
7473 M is instantiated from the CLASSTYPE_TI_TEMPLATE of #1, not from
7474 the one of #0.
7476 When we encounter #1, we want to store the partial instantiation
7477 of M (template<class T> S<int>::M<T>) in it's CLASSTYPE_TI_TEMPLATE.
7479 For all cases other than this "explicit specialization of member of a
7480 class template", we just want to store the most general template into
7481 the CLASSTYPE_TI_TEMPLATE of M.
7483 This case of "explicit specialization of member of a class template"
7484 only happens when:
7485 1/ the enclosing class is an instantiation of, and therefore not
7486 the same as, the context of the most general template, and
7487 2/ we aren't looking at the partial instantiation itself, i.e.
7488 the innermost arguments are not the same as the innermost parms of
7489 the most general template.
7491 So it's only when 1/ and 2/ happens that we want to use the partial
7492 instantiation of the member template in lieu of its most general
7493 template. */
7495 if (PRIMARY_TEMPLATE_P (gen_tmpl)
7496 && TMPL_ARGS_HAVE_MULTIPLE_LEVELS (arglist)
7497 /* the enclosing class must be an instantiation... */
7498 && CLASS_TYPE_P (context)
7499 && !same_type_p (context, DECL_CONTEXT (gen_tmpl)))
7501 tree partial_inst_args;
7502 TREE_VEC_LENGTH (arglist)--;
7503 ++processing_template_decl;
7504 partial_inst_args =
7505 tsubst (INNERMOST_TEMPLATE_ARGS
7506 (TYPE_TI_ARGS (TREE_TYPE (gen_tmpl))),
7507 arglist, complain, NULL_TREE);
7508 --processing_template_decl;
7509 TREE_VEC_LENGTH (arglist)++;
7510 use_partial_inst_tmpl =
7511 /*...and we must not be looking at the partial instantiation
7512 itself. */
7513 !comp_template_args (INNERMOST_TEMPLATE_ARGS (arglist),
7514 partial_inst_args);
7517 if (!use_partial_inst_tmpl)
7518 /* This case is easy; there are no member templates involved. */
7519 found = gen_tmpl;
7520 else
7522 /* This is a full instantiation of a member template. Find
7523 the partial instantiation of which this is an instance. */
7525 /* Temporarily reduce by one the number of levels in the ARGLIST
7526 so as to avoid comparing the last set of arguments. */
7527 TREE_VEC_LENGTH (arglist)--;
7528 found = tsubst (gen_tmpl, arglist, complain, NULL_TREE);
7529 TREE_VEC_LENGTH (arglist)++;
7530 /* FOUND is either a proper class type, or an alias
7531 template specialization. In the later case, it's a
7532 TYPE_DECL, resulting from the substituting of arguments
7533 for parameters in the TYPE_DECL of the alias template
7534 done earlier. So be careful while getting the template
7535 of FOUND. */
7536 found = TREE_CODE (found) == TYPE_DECL
7537 ? TYPE_TI_TEMPLATE (TREE_TYPE (found))
7538 : CLASSTYPE_TI_TEMPLATE (found);
7541 SET_TYPE_TEMPLATE_INFO (t, build_template_info (found, arglist));
7543 elt.spec = t;
7544 slot = htab_find_slot_with_hash (type_specializations,
7545 &elt, hash, INSERT);
7546 entry = ggc_alloc_spec_entry ();
7547 *entry = elt;
7548 *slot = entry;
7550 /* Note this use of the partial instantiation so we can check it
7551 later in maybe_process_partial_specialization. */
7552 DECL_TEMPLATE_INSTANTIATIONS (templ)
7553 = tree_cons (arglist, t,
7554 DECL_TEMPLATE_INSTANTIATIONS (templ));
7556 if (TREE_CODE (template_type) == ENUMERAL_TYPE && !is_dependent_type)
7557 /* Now that the type has been registered on the instantiations
7558 list, we set up the enumerators. Because the enumeration
7559 constants may involve the enumeration type itself, we make
7560 sure to register the type first, and then create the
7561 constants. That way, doing tsubst_expr for the enumeration
7562 constants won't result in recursive calls here; we'll find
7563 the instantiation and exit above. */
7564 tsubst_enum (template_type, t, arglist);
7566 if (CLASS_TYPE_P (template_type) && is_dependent_type)
7567 /* If the type makes use of template parameters, the
7568 code that generates debugging information will crash. */
7569 DECL_IGNORED_P (TYPE_STUB_DECL (t)) = 1;
7571 /* Possibly limit visibility based on template args. */
7572 TREE_PUBLIC (type_decl) = 1;
7573 determine_visibility (type_decl);
7575 return t;
7579 /* Wrapper for lookup_template_class_1. */
7581 tree
7582 lookup_template_class (tree d1, tree arglist, tree in_decl, tree context,
7583 int entering_scope, tsubst_flags_t complain)
7585 tree ret;
7586 timevar_push (TV_TEMPLATE_INST);
7587 ret = lookup_template_class_1 (d1, arglist, in_decl, context,
7588 entering_scope, complain);
7589 timevar_pop (TV_TEMPLATE_INST);
7590 return ret;
7593 struct pair_fn_data
7595 tree_fn_t fn;
7596 void *data;
7597 /* True when we should also visit template parameters that occur in
7598 non-deduced contexts. */
7599 bool include_nondeduced_p;
7600 struct pointer_set_t *visited;
7603 /* Called from for_each_template_parm via walk_tree. */
7605 static tree
7606 for_each_template_parm_r (tree *tp, int *walk_subtrees, void *d)
7608 tree t = *tp;
7609 struct pair_fn_data *pfd = (struct pair_fn_data *) d;
7610 tree_fn_t fn = pfd->fn;
7611 void *data = pfd->data;
7613 if (TYPE_P (t)
7614 && (pfd->include_nondeduced_p || TREE_CODE (t) != TYPENAME_TYPE)
7615 && for_each_template_parm (TYPE_CONTEXT (t), fn, data, pfd->visited,
7616 pfd->include_nondeduced_p))
7617 return error_mark_node;
7619 switch (TREE_CODE (t))
7621 case RECORD_TYPE:
7622 if (TYPE_PTRMEMFUNC_P (t))
7623 break;
7624 /* Fall through. */
7626 case UNION_TYPE:
7627 case ENUMERAL_TYPE:
7628 if (!TYPE_TEMPLATE_INFO (t))
7629 *walk_subtrees = 0;
7630 else if (for_each_template_parm (TI_ARGS (TYPE_TEMPLATE_INFO (t)),
7631 fn, data, pfd->visited,
7632 pfd->include_nondeduced_p))
7633 return error_mark_node;
7634 break;
7636 case INTEGER_TYPE:
7637 if (for_each_template_parm (TYPE_MIN_VALUE (t),
7638 fn, data, pfd->visited,
7639 pfd->include_nondeduced_p)
7640 || for_each_template_parm (TYPE_MAX_VALUE (t),
7641 fn, data, pfd->visited,
7642 pfd->include_nondeduced_p))
7643 return error_mark_node;
7644 break;
7646 case METHOD_TYPE:
7647 /* Since we're not going to walk subtrees, we have to do this
7648 explicitly here. */
7649 if (for_each_template_parm (TYPE_METHOD_BASETYPE (t), fn, data,
7650 pfd->visited, pfd->include_nondeduced_p))
7651 return error_mark_node;
7652 /* Fall through. */
7654 case FUNCTION_TYPE:
7655 /* Check the return type. */
7656 if (for_each_template_parm (TREE_TYPE (t), fn, data, pfd->visited,
7657 pfd->include_nondeduced_p))
7658 return error_mark_node;
7660 /* Check the parameter types. Since default arguments are not
7661 instantiated until they are needed, the TYPE_ARG_TYPES may
7662 contain expressions that involve template parameters. But,
7663 no-one should be looking at them yet. And, once they're
7664 instantiated, they don't contain template parameters, so
7665 there's no point in looking at them then, either. */
7667 tree parm;
7669 for (parm = TYPE_ARG_TYPES (t); parm; parm = TREE_CHAIN (parm))
7670 if (for_each_template_parm (TREE_VALUE (parm), fn, data,
7671 pfd->visited, pfd->include_nondeduced_p))
7672 return error_mark_node;
7674 /* Since we've already handled the TYPE_ARG_TYPES, we don't
7675 want walk_tree walking into them itself. */
7676 *walk_subtrees = 0;
7678 break;
7680 case TYPEOF_TYPE:
7681 case UNDERLYING_TYPE:
7682 if (pfd->include_nondeduced_p
7683 && for_each_template_parm (TYPE_FIELDS (t), fn, data,
7684 pfd->visited,
7685 pfd->include_nondeduced_p))
7686 return error_mark_node;
7687 break;
7689 case FUNCTION_DECL:
7690 case VAR_DECL:
7691 if (DECL_LANG_SPECIFIC (t) && DECL_TEMPLATE_INFO (t)
7692 && for_each_template_parm (DECL_TI_ARGS (t), fn, data,
7693 pfd->visited, pfd->include_nondeduced_p))
7694 return error_mark_node;
7695 /* Fall through. */
7697 case PARM_DECL:
7698 case CONST_DECL:
7699 if (TREE_CODE (t) == CONST_DECL && DECL_TEMPLATE_PARM_P (t)
7700 && for_each_template_parm (DECL_INITIAL (t), fn, data,
7701 pfd->visited, pfd->include_nondeduced_p))
7702 return error_mark_node;
7703 if (DECL_CONTEXT (t)
7704 && pfd->include_nondeduced_p
7705 && for_each_template_parm (DECL_CONTEXT (t), fn, data,
7706 pfd->visited, pfd->include_nondeduced_p))
7707 return error_mark_node;
7708 break;
7710 case BOUND_TEMPLATE_TEMPLATE_PARM:
7711 /* Record template parameters such as `T' inside `TT<T>'. */
7712 if (for_each_template_parm (TYPE_TI_ARGS (t), fn, data, pfd->visited,
7713 pfd->include_nondeduced_p))
7714 return error_mark_node;
7715 /* Fall through. */
7717 case TEMPLATE_TEMPLATE_PARM:
7718 case TEMPLATE_TYPE_PARM:
7719 case TEMPLATE_PARM_INDEX:
7720 if (fn && (*fn)(t, data))
7721 return error_mark_node;
7722 else if (!fn)
7723 return error_mark_node;
7724 break;
7726 case TEMPLATE_DECL:
7727 /* A template template parameter is encountered. */
7728 if (DECL_TEMPLATE_TEMPLATE_PARM_P (t)
7729 && for_each_template_parm (TREE_TYPE (t), fn, data, pfd->visited,
7730 pfd->include_nondeduced_p))
7731 return error_mark_node;
7733 /* Already substituted template template parameter */
7734 *walk_subtrees = 0;
7735 break;
7737 case TYPENAME_TYPE:
7738 if (!fn
7739 || for_each_template_parm (TYPENAME_TYPE_FULLNAME (t), fn,
7740 data, pfd->visited,
7741 pfd->include_nondeduced_p))
7742 return error_mark_node;
7743 break;
7745 case CONSTRUCTOR:
7746 if (TREE_TYPE (t) && TYPE_PTRMEMFUNC_P (TREE_TYPE (t))
7747 && pfd->include_nondeduced_p
7748 && for_each_template_parm (TYPE_PTRMEMFUNC_FN_TYPE
7749 (TREE_TYPE (t)), fn, data,
7750 pfd->visited, pfd->include_nondeduced_p))
7751 return error_mark_node;
7752 break;
7754 case INDIRECT_REF:
7755 case COMPONENT_REF:
7756 /* If there's no type, then this thing must be some expression
7757 involving template parameters. */
7758 if (!fn && !TREE_TYPE (t))
7759 return error_mark_node;
7760 break;
7762 case MODOP_EXPR:
7763 case CAST_EXPR:
7764 case IMPLICIT_CONV_EXPR:
7765 case REINTERPRET_CAST_EXPR:
7766 case CONST_CAST_EXPR:
7767 case STATIC_CAST_EXPR:
7768 case DYNAMIC_CAST_EXPR:
7769 case ARROW_EXPR:
7770 case DOTSTAR_EXPR:
7771 case TYPEID_EXPR:
7772 case PSEUDO_DTOR_EXPR:
7773 if (!fn)
7774 return error_mark_node;
7775 break;
7777 default:
7778 break;
7781 /* We didn't find any template parameters we liked. */
7782 return NULL_TREE;
7785 /* For each TEMPLATE_TYPE_PARM, TEMPLATE_TEMPLATE_PARM,
7786 BOUND_TEMPLATE_TEMPLATE_PARM or TEMPLATE_PARM_INDEX in T,
7787 call FN with the parameter and the DATA.
7788 If FN returns nonzero, the iteration is terminated, and
7789 for_each_template_parm returns 1. Otherwise, the iteration
7790 continues. If FN never returns a nonzero value, the value
7791 returned by for_each_template_parm is 0. If FN is NULL, it is
7792 considered to be the function which always returns 1.
7794 If INCLUDE_NONDEDUCED_P, then this routine will also visit template
7795 parameters that occur in non-deduced contexts. When false, only
7796 visits those template parameters that can be deduced. */
7798 static int
7799 for_each_template_parm (tree t, tree_fn_t fn, void* data,
7800 struct pointer_set_t *visited,
7801 bool include_nondeduced_p)
7803 struct pair_fn_data pfd;
7804 int result;
7806 /* Set up. */
7807 pfd.fn = fn;
7808 pfd.data = data;
7809 pfd.include_nondeduced_p = include_nondeduced_p;
7811 /* Walk the tree. (Conceptually, we would like to walk without
7812 duplicates, but for_each_template_parm_r recursively calls
7813 for_each_template_parm, so we would need to reorganize a fair
7814 bit to use walk_tree_without_duplicates, so we keep our own
7815 visited list.) */
7816 if (visited)
7817 pfd.visited = visited;
7818 else
7819 pfd.visited = pointer_set_create ();
7820 result = cp_walk_tree (&t,
7821 for_each_template_parm_r,
7822 &pfd,
7823 pfd.visited) != NULL_TREE;
7825 /* Clean up. */
7826 if (!visited)
7828 pointer_set_destroy (pfd.visited);
7829 pfd.visited = 0;
7832 return result;
7835 /* Returns true if T depends on any template parameter. */
7838 uses_template_parms (tree t)
7840 bool dependent_p;
7841 int saved_processing_template_decl;
7843 saved_processing_template_decl = processing_template_decl;
7844 if (!saved_processing_template_decl)
7845 processing_template_decl = 1;
7846 if (TYPE_P (t))
7847 dependent_p = dependent_type_p (t);
7848 else if (TREE_CODE (t) == TREE_VEC)
7849 dependent_p = any_dependent_template_arguments_p (t);
7850 else if (TREE_CODE (t) == TREE_LIST)
7851 dependent_p = (uses_template_parms (TREE_VALUE (t))
7852 || uses_template_parms (TREE_CHAIN (t)));
7853 else if (TREE_CODE (t) == TYPE_DECL)
7854 dependent_p = dependent_type_p (TREE_TYPE (t));
7855 else if (DECL_P (t)
7856 || EXPR_P (t)
7857 || TREE_CODE (t) == TEMPLATE_PARM_INDEX
7858 || TREE_CODE (t) == OVERLOAD
7859 || BASELINK_P (t)
7860 || TREE_CODE (t) == IDENTIFIER_NODE
7861 || TREE_CODE (t) == TRAIT_EXPR
7862 || TREE_CODE (t) == CONSTRUCTOR
7863 || CONSTANT_CLASS_P (t))
7864 dependent_p = (type_dependent_expression_p (t)
7865 || value_dependent_expression_p (t));
7866 else
7868 gcc_assert (t == error_mark_node);
7869 dependent_p = false;
7872 processing_template_decl = saved_processing_template_decl;
7874 return dependent_p;
7877 /* Returns true iff current_function_decl is an incompletely instantiated
7878 template. Useful instead of processing_template_decl because the latter
7879 is set to 0 during fold_non_dependent_expr. */
7881 bool
7882 in_template_function (void)
7884 tree fn = current_function_decl;
7885 bool ret;
7886 ++processing_template_decl;
7887 ret = (fn && DECL_LANG_SPECIFIC (fn)
7888 && DECL_TEMPLATE_INFO (fn)
7889 && any_dependent_template_arguments_p (DECL_TI_ARGS (fn)));
7890 --processing_template_decl;
7891 return ret;
7894 /* Returns true if T depends on any template parameter with level LEVEL. */
7897 uses_template_parms_level (tree t, int level)
7899 return for_each_template_parm (t, template_parm_this_level_p, &level, NULL,
7900 /*include_nondeduced_p=*/true);
7903 /* Returns TRUE iff INST is an instantiation we don't need to do in an
7904 ill-formed translation unit, i.e. a variable or function that isn't
7905 usable in a constant expression. */
7907 static inline bool
7908 neglectable_inst_p (tree d)
7910 return (DECL_P (d)
7911 && !(TREE_CODE (d) == FUNCTION_DECL ? DECL_DECLARED_CONSTEXPR_P (d)
7912 : decl_maybe_constant_var_p (d)));
7915 /* Returns TRUE iff we should refuse to instantiate DECL because it's
7916 neglectable and instantiated from within an erroneous instantiation. */
7918 static bool
7919 limit_bad_template_recursion (tree decl)
7921 struct tinst_level *lev = current_tinst_level;
7922 int errs = errorcount + sorrycount;
7923 if (lev == NULL || errs == 0 || !neglectable_inst_p (decl))
7924 return false;
7926 for (; lev; lev = lev->next)
7927 if (neglectable_inst_p (lev->decl))
7928 break;
7930 return (lev && errs > lev->errors);
7933 static int tinst_depth;
7934 extern int max_tinst_depth;
7935 int depth_reached;
7937 static GTY(()) struct tinst_level *last_error_tinst_level;
7939 /* We're starting to instantiate D; record the template instantiation context
7940 for diagnostics and to restore it later. */
7943 push_tinst_level (tree d)
7945 struct tinst_level *new_level;
7947 if (tinst_depth >= max_tinst_depth)
7949 last_error_tinst_level = current_tinst_level;
7950 if (TREE_CODE (d) == TREE_LIST)
7951 error ("template instantiation depth exceeds maximum of %d (use "
7952 "-ftemplate-depth= to increase the maximum) substituting %qS",
7953 max_tinst_depth, d);
7954 else
7955 error ("template instantiation depth exceeds maximum of %d (use "
7956 "-ftemplate-depth= to increase the maximum) instantiating %qD",
7957 max_tinst_depth, d);
7959 print_instantiation_context ();
7961 return 0;
7964 /* If the current instantiation caused problems, don't let it instantiate
7965 anything else. Do allow deduction substitution and decls usable in
7966 constant expressions. */
7967 if (limit_bad_template_recursion (d))
7968 return 0;
7970 new_level = ggc_alloc_tinst_level ();
7971 new_level->decl = d;
7972 new_level->locus = input_location;
7973 new_level->errors = errorcount+sorrycount;
7974 new_level->in_system_header_p = in_system_header;
7975 new_level->next = current_tinst_level;
7976 current_tinst_level = new_level;
7978 ++tinst_depth;
7979 if (GATHER_STATISTICS && (tinst_depth > depth_reached))
7980 depth_reached = tinst_depth;
7982 return 1;
7985 /* We're done instantiating this template; return to the instantiation
7986 context. */
7988 void
7989 pop_tinst_level (void)
7991 /* Restore the filename and line number stashed away when we started
7992 this instantiation. */
7993 input_location = current_tinst_level->locus;
7994 current_tinst_level = current_tinst_level->next;
7995 --tinst_depth;
7998 /* We're instantiating a deferred template; restore the template
7999 instantiation context in which the instantiation was requested, which
8000 is one step out from LEVEL. Return the corresponding DECL or TYPE. */
8002 static tree
8003 reopen_tinst_level (struct tinst_level *level)
8005 struct tinst_level *t;
8007 tinst_depth = 0;
8008 for (t = level; t; t = t->next)
8009 ++tinst_depth;
8011 current_tinst_level = level;
8012 pop_tinst_level ();
8013 if (current_tinst_level)
8014 current_tinst_level->errors = errorcount+sorrycount;
8015 return level->decl;
8018 /* Returns the TINST_LEVEL which gives the original instantiation
8019 context. */
8021 struct tinst_level *
8022 outermost_tinst_level (void)
8024 struct tinst_level *level = current_tinst_level;
8025 if (level)
8026 while (level->next)
8027 level = level->next;
8028 return level;
8031 /* DECL is a friend FUNCTION_DECL or TEMPLATE_DECL. ARGS is the
8032 vector of template arguments, as for tsubst.
8034 Returns an appropriate tsubst'd friend declaration. */
8036 static tree
8037 tsubst_friend_function (tree decl, tree args)
8039 tree new_friend;
8041 if (TREE_CODE (decl) == FUNCTION_DECL
8042 && DECL_TEMPLATE_INSTANTIATION (decl)
8043 && TREE_CODE (DECL_TI_TEMPLATE (decl)) != TEMPLATE_DECL)
8044 /* This was a friend declared with an explicit template
8045 argument list, e.g.:
8047 friend void f<>(T);
8049 to indicate that f was a template instantiation, not a new
8050 function declaration. Now, we have to figure out what
8051 instantiation of what template. */
8053 tree template_id, arglist, fns;
8054 tree new_args;
8055 tree tmpl;
8056 tree ns = decl_namespace_context (TYPE_MAIN_DECL (current_class_type));
8058 /* Friend functions are looked up in the containing namespace scope.
8059 We must enter that scope, to avoid finding member functions of the
8060 current class with same name. */
8061 push_nested_namespace (ns);
8062 fns = tsubst_expr (DECL_TI_TEMPLATE (decl), args,
8063 tf_warning_or_error, NULL_TREE,
8064 /*integral_constant_expression_p=*/false);
8065 pop_nested_namespace (ns);
8066 arglist = tsubst (DECL_TI_ARGS (decl), args,
8067 tf_warning_or_error, NULL_TREE);
8068 template_id = lookup_template_function (fns, arglist);
8070 new_friend = tsubst (decl, args, tf_warning_or_error, NULL_TREE);
8071 tmpl = determine_specialization (template_id, new_friend,
8072 &new_args,
8073 /*need_member_template=*/0,
8074 TREE_VEC_LENGTH (args),
8075 tsk_none);
8076 return instantiate_template (tmpl, new_args, tf_error);
8079 new_friend = tsubst (decl, args, tf_warning_or_error, NULL_TREE);
8081 /* The NEW_FRIEND will look like an instantiation, to the
8082 compiler, but is not an instantiation from the point of view of
8083 the language. For example, we might have had:
8085 template <class T> struct S {
8086 template <class U> friend void f(T, U);
8089 Then, in S<int>, template <class U> void f(int, U) is not an
8090 instantiation of anything. */
8091 if (new_friend == error_mark_node)
8092 return error_mark_node;
8094 DECL_USE_TEMPLATE (new_friend) = 0;
8095 if (TREE_CODE (decl) == TEMPLATE_DECL)
8097 DECL_USE_TEMPLATE (DECL_TEMPLATE_RESULT (new_friend)) = 0;
8098 DECL_SAVED_TREE (DECL_TEMPLATE_RESULT (new_friend))
8099 = DECL_SAVED_TREE (DECL_TEMPLATE_RESULT (decl));
8102 /* The mangled name for the NEW_FRIEND is incorrect. The function
8103 is not a template instantiation and should not be mangled like
8104 one. Therefore, we forget the mangling here; we'll recompute it
8105 later if we need it. */
8106 if (TREE_CODE (new_friend) != TEMPLATE_DECL)
8108 SET_DECL_RTL (new_friend, NULL);
8109 SET_DECL_ASSEMBLER_NAME (new_friend, NULL_TREE);
8112 if (DECL_NAMESPACE_SCOPE_P (new_friend))
8114 tree old_decl;
8115 tree new_friend_template_info;
8116 tree new_friend_result_template_info;
8117 tree ns;
8118 int new_friend_is_defn;
8120 /* We must save some information from NEW_FRIEND before calling
8121 duplicate decls since that function will free NEW_FRIEND if
8122 possible. */
8123 new_friend_template_info = DECL_TEMPLATE_INFO (new_friend);
8124 new_friend_is_defn =
8125 (DECL_INITIAL (DECL_TEMPLATE_RESULT
8126 (template_for_substitution (new_friend)))
8127 != NULL_TREE);
8128 if (TREE_CODE (new_friend) == TEMPLATE_DECL)
8130 /* This declaration is a `primary' template. */
8131 DECL_PRIMARY_TEMPLATE (new_friend) = new_friend;
8133 new_friend_result_template_info
8134 = DECL_TEMPLATE_INFO (DECL_TEMPLATE_RESULT (new_friend));
8136 else
8137 new_friend_result_template_info = NULL_TREE;
8139 /* Make the init_value nonzero so pushdecl knows this is a defn. */
8140 if (new_friend_is_defn)
8141 DECL_INITIAL (new_friend) = error_mark_node;
8143 /* Inside pushdecl_namespace_level, we will push into the
8144 current namespace. However, the friend function should go
8145 into the namespace of the template. */
8146 ns = decl_namespace_context (new_friend);
8147 push_nested_namespace (ns);
8148 old_decl = pushdecl_namespace_level (new_friend, /*is_friend=*/true);
8149 pop_nested_namespace (ns);
8151 if (old_decl == error_mark_node)
8152 return error_mark_node;
8154 if (old_decl != new_friend)
8156 /* This new friend declaration matched an existing
8157 declaration. For example, given:
8159 template <class T> void f(T);
8160 template <class U> class C {
8161 template <class T> friend void f(T) {}
8164 the friend declaration actually provides the definition
8165 of `f', once C has been instantiated for some type. So,
8166 old_decl will be the out-of-class template declaration,
8167 while new_friend is the in-class definition.
8169 But, if `f' was called before this point, the
8170 instantiation of `f' will have DECL_TI_ARGS corresponding
8171 to `T' but not to `U', references to which might appear
8172 in the definition of `f'. Previously, the most general
8173 template for an instantiation of `f' was the out-of-class
8174 version; now it is the in-class version. Therefore, we
8175 run through all specialization of `f', adding to their
8176 DECL_TI_ARGS appropriately. In particular, they need a
8177 new set of outer arguments, corresponding to the
8178 arguments for this class instantiation.
8180 The same situation can arise with something like this:
8182 friend void f(int);
8183 template <class T> class C {
8184 friend void f(T) {}
8187 when `C<int>' is instantiated. Now, `f(int)' is defined
8188 in the class. */
8190 if (!new_friend_is_defn)
8191 /* On the other hand, if the in-class declaration does
8192 *not* provide a definition, then we don't want to alter
8193 existing definitions. We can just leave everything
8194 alone. */
8196 else
8198 tree new_template = TI_TEMPLATE (new_friend_template_info);
8199 tree new_args = TI_ARGS (new_friend_template_info);
8201 /* Overwrite whatever template info was there before, if
8202 any, with the new template information pertaining to
8203 the declaration. */
8204 DECL_TEMPLATE_INFO (old_decl) = new_friend_template_info;
8206 if (TREE_CODE (old_decl) != TEMPLATE_DECL)
8208 /* We should have called reregister_specialization in
8209 duplicate_decls. */
8210 gcc_assert (retrieve_specialization (new_template,
8211 new_args, 0)
8212 == old_decl);
8214 /* Instantiate it if the global has already been used. */
8215 if (DECL_ODR_USED (old_decl))
8216 instantiate_decl (old_decl, /*defer_ok=*/true,
8217 /*expl_inst_class_mem_p=*/false);
8219 else
8221 tree t;
8223 /* Indicate that the old function template is a partial
8224 instantiation. */
8225 DECL_TEMPLATE_INFO (DECL_TEMPLATE_RESULT (old_decl))
8226 = new_friend_result_template_info;
8228 gcc_assert (new_template
8229 == most_general_template (new_template));
8230 gcc_assert (new_template != old_decl);
8232 /* Reassign any specializations already in the hash table
8233 to the new more general template, and add the
8234 additional template args. */
8235 for (t = DECL_TEMPLATE_INSTANTIATIONS (old_decl);
8236 t != NULL_TREE;
8237 t = TREE_CHAIN (t))
8239 tree spec = TREE_VALUE (t);
8240 spec_entry elt;
8242 elt.tmpl = old_decl;
8243 elt.args = DECL_TI_ARGS (spec);
8244 elt.spec = NULL_TREE;
8246 htab_remove_elt (decl_specializations, &elt);
8248 DECL_TI_ARGS (spec)
8249 = add_outermost_template_args (new_args,
8250 DECL_TI_ARGS (spec));
8252 register_specialization
8253 (spec, new_template, DECL_TI_ARGS (spec), true, 0);
8256 DECL_TEMPLATE_INSTANTIATIONS (old_decl) = NULL_TREE;
8260 /* The information from NEW_FRIEND has been merged into OLD_DECL
8261 by duplicate_decls. */
8262 new_friend = old_decl;
8265 else
8267 tree context = DECL_CONTEXT (new_friend);
8268 bool dependent_p;
8270 /* In the code
8271 template <class T> class C {
8272 template <class U> friend void C1<U>::f (); // case 1
8273 friend void C2<T>::f (); // case 2
8275 we only need to make sure CONTEXT is a complete type for
8276 case 2. To distinguish between the two cases, we note that
8277 CONTEXT of case 1 remains dependent type after tsubst while
8278 this isn't true for case 2. */
8279 ++processing_template_decl;
8280 dependent_p = dependent_type_p (context);
8281 --processing_template_decl;
8283 if (!dependent_p
8284 && !complete_type_or_else (context, NULL_TREE))
8285 return error_mark_node;
8287 if (COMPLETE_TYPE_P (context))
8289 /* Check to see that the declaration is really present, and,
8290 possibly obtain an improved declaration. */
8291 tree fn = check_classfn (context,
8292 new_friend, NULL_TREE);
8294 if (fn)
8295 new_friend = fn;
8299 return new_friend;
8302 /* FRIEND_TMPL is a friend TEMPLATE_DECL. ARGS is the vector of
8303 template arguments, as for tsubst.
8305 Returns an appropriate tsubst'd friend type or error_mark_node on
8306 failure. */
8308 static tree
8309 tsubst_friend_class (tree friend_tmpl, tree args)
8311 tree friend_type;
8312 tree tmpl;
8313 tree context;
8315 if (DECL_TEMPLATE_TEMPLATE_PARM_P (friend_tmpl))
8317 tree t = tsubst (TREE_TYPE (friend_tmpl), args, tf_none, NULL_TREE);
8318 return TREE_TYPE (t);
8321 context = CP_DECL_CONTEXT (friend_tmpl);
8323 if (context != global_namespace)
8325 if (TREE_CODE (context) == NAMESPACE_DECL)
8326 push_nested_namespace (context);
8327 else
8328 push_nested_class (tsubst (context, args, tf_none, NULL_TREE));
8331 /* Look for a class template declaration. We look for hidden names
8332 because two friend declarations of the same template are the
8333 same. For example, in:
8335 struct A {
8336 template <typename> friend class F;
8338 template <typename> struct B {
8339 template <typename> friend class F;
8342 both F templates are the same. */
8343 tmpl = lookup_name_real (DECL_NAME (friend_tmpl), 0, 0,
8344 /*block_p=*/true, 0, LOOKUP_HIDDEN);
8346 /* But, if we don't find one, it might be because we're in a
8347 situation like this:
8349 template <class T>
8350 struct S {
8351 template <class U>
8352 friend struct S;
8355 Here, in the scope of (say) S<int>, `S' is bound to a TYPE_DECL
8356 for `S<int>', not the TEMPLATE_DECL. */
8357 if (!tmpl || !DECL_CLASS_TEMPLATE_P (tmpl))
8359 tmpl = lookup_name_prefer_type (DECL_NAME (friend_tmpl), 1);
8360 tmpl = maybe_get_template_decl_from_type_decl (tmpl);
8363 if (tmpl && DECL_CLASS_TEMPLATE_P (tmpl))
8365 /* The friend template has already been declared. Just
8366 check to see that the declarations match, and install any new
8367 default parameters. We must tsubst the default parameters,
8368 of course. We only need the innermost template parameters
8369 because that is all that redeclare_class_template will look
8370 at. */
8371 if (TMPL_PARMS_DEPTH (DECL_TEMPLATE_PARMS (friend_tmpl))
8372 > TMPL_ARGS_DEPTH (args))
8374 tree parms;
8375 location_t saved_input_location;
8376 parms = tsubst_template_parms (DECL_TEMPLATE_PARMS (friend_tmpl),
8377 args, tf_warning_or_error);
8379 saved_input_location = input_location;
8380 input_location = DECL_SOURCE_LOCATION (friend_tmpl);
8381 redeclare_class_template (TREE_TYPE (tmpl), parms);
8382 input_location = saved_input_location;
8386 friend_type = TREE_TYPE (tmpl);
8388 else
8390 /* The friend template has not already been declared. In this
8391 case, the instantiation of the template class will cause the
8392 injection of this template into the global scope. */
8393 tmpl = tsubst (friend_tmpl, args, tf_warning_or_error, NULL_TREE);
8394 if (tmpl == error_mark_node)
8395 return error_mark_node;
8397 /* The new TMPL is not an instantiation of anything, so we
8398 forget its origins. We don't reset CLASSTYPE_TI_TEMPLATE for
8399 the new type because that is supposed to be the corresponding
8400 template decl, i.e., TMPL. */
8401 DECL_USE_TEMPLATE (tmpl) = 0;
8402 DECL_TEMPLATE_INFO (tmpl) = NULL_TREE;
8403 CLASSTYPE_USE_TEMPLATE (TREE_TYPE (tmpl)) = 0;
8404 CLASSTYPE_TI_ARGS (TREE_TYPE (tmpl))
8405 = INNERMOST_TEMPLATE_ARGS (CLASSTYPE_TI_ARGS (TREE_TYPE (tmpl)));
8407 /* Inject this template into the global scope. */
8408 friend_type = TREE_TYPE (pushdecl_top_level_maybe_friend (tmpl, true));
8411 if (context != global_namespace)
8413 if (TREE_CODE (context) == NAMESPACE_DECL)
8414 pop_nested_namespace (context);
8415 else
8416 pop_nested_class ();
8419 return friend_type;
8422 /* Returns zero if TYPE cannot be completed later due to circularity.
8423 Otherwise returns one. */
8425 static int
8426 can_complete_type_without_circularity (tree type)
8428 if (type == NULL_TREE || type == error_mark_node)
8429 return 0;
8430 else if (COMPLETE_TYPE_P (type))
8431 return 1;
8432 else if (TREE_CODE (type) == ARRAY_TYPE && TYPE_DOMAIN (type))
8433 return can_complete_type_without_circularity (TREE_TYPE (type));
8434 else if (CLASS_TYPE_P (type)
8435 && TYPE_BEING_DEFINED (TYPE_MAIN_VARIANT (type)))
8436 return 0;
8437 else
8438 return 1;
8441 /* Apply any attributes which had to be deferred until instantiation
8442 time. DECL_P, ATTRIBUTES and ATTR_FLAGS are as cplus_decl_attributes;
8443 ARGS, COMPLAIN, IN_DECL are as tsubst. */
8445 static void
8446 apply_late_template_attributes (tree *decl_p, tree attributes, int attr_flags,
8447 tree args, tsubst_flags_t complain, tree in_decl)
8449 tree last_dep = NULL_TREE;
8450 tree t;
8451 tree *p;
8453 for (t = attributes; t; t = TREE_CHAIN (t))
8454 if (ATTR_IS_DEPENDENT (t))
8456 last_dep = t;
8457 attributes = copy_list (attributes);
8458 break;
8461 if (DECL_P (*decl_p))
8463 if (TREE_TYPE (*decl_p) == error_mark_node)
8464 return;
8465 p = &DECL_ATTRIBUTES (*decl_p);
8467 else
8468 p = &TYPE_ATTRIBUTES (*decl_p);
8470 if (last_dep)
8472 tree late_attrs = NULL_TREE;
8473 tree *q = &late_attrs;
8475 for (*p = attributes; *p; )
8477 t = *p;
8478 if (ATTR_IS_DEPENDENT (t))
8480 *p = TREE_CHAIN (t);
8481 TREE_CHAIN (t) = NULL_TREE;
8482 /* If the first attribute argument is an identifier, don't
8483 pass it through tsubst. Attributes like mode, format,
8484 cleanup and several target specific attributes expect it
8485 unmodified. */
8486 if (TREE_VALUE (t)
8487 && TREE_CODE (TREE_VALUE (t)) == TREE_LIST
8488 && TREE_VALUE (TREE_VALUE (t))
8489 && (TREE_CODE (TREE_VALUE (TREE_VALUE (t)))
8490 == IDENTIFIER_NODE))
8492 tree chain
8493 = tsubst_expr (TREE_CHAIN (TREE_VALUE (t)), args, complain,
8494 in_decl,
8495 /*integral_constant_expression_p=*/false);
8496 if (chain != TREE_CHAIN (TREE_VALUE (t)))
8497 TREE_VALUE (t)
8498 = tree_cons (NULL_TREE, TREE_VALUE (TREE_VALUE (t)),
8499 chain);
8501 else
8502 TREE_VALUE (t)
8503 = tsubst_expr (TREE_VALUE (t), args, complain, in_decl,
8504 /*integral_constant_expression_p=*/false);
8505 *q = t;
8506 q = &TREE_CHAIN (t);
8508 else
8509 p = &TREE_CHAIN (t);
8512 cplus_decl_attributes (decl_p, late_attrs, attr_flags);
8516 /* Perform (or defer) access check for typedefs that were referenced
8517 from within the template TMPL code.
8518 This is a subroutine of instantiate_decl and instantiate_class_template.
8519 TMPL is the template to consider and TARGS is the list of arguments of
8520 that template. */
8522 static void
8523 perform_typedefs_access_check (tree tmpl, tree targs)
8525 location_t saved_location;
8526 unsigned i;
8527 qualified_typedef_usage_t *iter;
8529 if (!tmpl
8530 || (!CLASS_TYPE_P (tmpl)
8531 && TREE_CODE (tmpl) != FUNCTION_DECL))
8532 return;
8534 saved_location = input_location;
8535 FOR_EACH_VEC_SAFE_ELT (get_types_needing_access_check (tmpl), i, iter)
8537 tree type_decl = iter->typedef_decl;
8538 tree type_scope = iter->context;
8540 if (!type_decl || !type_scope || !CLASS_TYPE_P (type_scope))
8541 continue;
8543 if (uses_template_parms (type_decl))
8544 type_decl = tsubst (type_decl, targs, tf_error, NULL_TREE);
8545 if (uses_template_parms (type_scope))
8546 type_scope = tsubst (type_scope, targs, tf_error, NULL_TREE);
8548 /* Make access check error messages point to the location
8549 of the use of the typedef. */
8550 input_location = iter->locus;
8551 perform_or_defer_access_check (TYPE_BINFO (type_scope),
8552 type_decl, type_decl,
8553 tf_warning_or_error);
8555 input_location = saved_location;
8558 static tree
8559 instantiate_class_template_1 (tree type)
8561 tree templ, args, pattern, t, member;
8562 tree typedecl;
8563 tree pbinfo;
8564 tree base_list;
8565 unsigned int saved_maximum_field_alignment;
8566 tree fn_context;
8568 if (type == error_mark_node)
8569 return error_mark_node;
8571 if (COMPLETE_OR_OPEN_TYPE_P (type)
8572 || uses_template_parms (type))
8573 return type;
8575 /* Figure out which template is being instantiated. */
8576 templ = most_general_template (CLASSTYPE_TI_TEMPLATE (type));
8577 gcc_assert (TREE_CODE (templ) == TEMPLATE_DECL);
8579 /* Determine what specialization of the original template to
8580 instantiate. */
8581 t = most_specialized_class (type, tf_warning_or_error);
8582 if (t == error_mark_node)
8584 TYPE_BEING_DEFINED (type) = 1;
8585 return error_mark_node;
8587 else if (t)
8589 /* This TYPE is actually an instantiation of a partial
8590 specialization. We replace the innermost set of ARGS with
8591 the arguments appropriate for substitution. For example,
8592 given:
8594 template <class T> struct S {};
8595 template <class T> struct S<T*> {};
8597 and supposing that we are instantiating S<int*>, ARGS will
8598 presently be {int*} -- but we need {int}. */
8599 pattern = TREE_TYPE (t);
8600 args = TREE_PURPOSE (t);
8602 else
8604 pattern = TREE_TYPE (templ);
8605 args = CLASSTYPE_TI_ARGS (type);
8608 /* If the template we're instantiating is incomplete, then clearly
8609 there's nothing we can do. */
8610 if (!COMPLETE_TYPE_P (pattern))
8611 return type;
8613 /* If we've recursively instantiated too many templates, stop. */
8614 if (! push_tinst_level (type))
8615 return type;
8617 /* Now we're really doing the instantiation. Mark the type as in
8618 the process of being defined. */
8619 TYPE_BEING_DEFINED (type) = 1;
8621 /* We may be in the middle of deferred access check. Disable
8622 it now. */
8623 push_deferring_access_checks (dk_no_deferred);
8625 fn_context = decl_function_context (TYPE_MAIN_DECL (type));
8626 if (!fn_context)
8627 push_to_top_level ();
8628 /* Use #pragma pack from the template context. */
8629 saved_maximum_field_alignment = maximum_field_alignment;
8630 maximum_field_alignment = TYPE_PRECISION (pattern);
8632 SET_CLASSTYPE_INTERFACE_UNKNOWN (type);
8634 /* Set the input location to the most specialized template definition.
8635 This is needed if tsubsting causes an error. */
8636 typedecl = TYPE_MAIN_DECL (pattern);
8637 input_location = DECL_SOURCE_LOCATION (TYPE_NAME (type)) =
8638 DECL_SOURCE_LOCATION (typedecl);
8640 TYPE_PACKED (type) = TYPE_PACKED (pattern);
8641 TYPE_ALIGN (type) = TYPE_ALIGN (pattern);
8642 TYPE_USER_ALIGN (type) = TYPE_USER_ALIGN (pattern);
8643 TYPE_FOR_JAVA (type) = TYPE_FOR_JAVA (pattern); /* For libjava's JArray<T> */
8644 if (ANON_AGGR_TYPE_P (pattern))
8645 SET_ANON_AGGR_TYPE_P (type);
8646 if (CLASSTYPE_VISIBILITY_SPECIFIED (pattern))
8648 CLASSTYPE_VISIBILITY_SPECIFIED (type) = 1;
8649 CLASSTYPE_VISIBILITY (type) = CLASSTYPE_VISIBILITY (pattern);
8650 /* Adjust visibility for template arguments. */
8651 determine_visibility (TYPE_MAIN_DECL (type));
8653 CLASSTYPE_FINAL (type) = CLASSTYPE_FINAL (pattern);
8655 pbinfo = TYPE_BINFO (pattern);
8657 /* We should never instantiate a nested class before its enclosing
8658 class; we need to look up the nested class by name before we can
8659 instantiate it, and that lookup should instantiate the enclosing
8660 class. */
8661 gcc_assert (!DECL_CLASS_SCOPE_P (TYPE_MAIN_DECL (pattern))
8662 || COMPLETE_OR_OPEN_TYPE_P (TYPE_CONTEXT (type)));
8664 base_list = NULL_TREE;
8665 if (BINFO_N_BASE_BINFOS (pbinfo))
8667 tree pbase_binfo;
8668 tree pushed_scope;
8669 int i;
8671 /* We must enter the scope containing the type, as that is where
8672 the accessibility of types named in dependent bases are
8673 looked up from. */
8674 pushed_scope = push_scope (CP_TYPE_CONTEXT (type));
8676 /* Substitute into each of the bases to determine the actual
8677 basetypes. */
8678 for (i = 0; BINFO_BASE_ITERATE (pbinfo, i, pbase_binfo); i++)
8680 tree base;
8681 tree access = BINFO_BASE_ACCESS (pbinfo, i);
8682 tree expanded_bases = NULL_TREE;
8683 int idx, len = 1;
8685 if (PACK_EXPANSION_P (BINFO_TYPE (pbase_binfo)))
8687 expanded_bases =
8688 tsubst_pack_expansion (BINFO_TYPE (pbase_binfo),
8689 args, tf_error, NULL_TREE);
8690 if (expanded_bases == error_mark_node)
8691 continue;
8693 len = TREE_VEC_LENGTH (expanded_bases);
8696 for (idx = 0; idx < len; idx++)
8698 if (expanded_bases)
8699 /* Extract the already-expanded base class. */
8700 base = TREE_VEC_ELT (expanded_bases, idx);
8701 else
8702 /* Substitute to figure out the base class. */
8703 base = tsubst (BINFO_TYPE (pbase_binfo), args, tf_error,
8704 NULL_TREE);
8706 if (base == error_mark_node)
8707 continue;
8709 base_list = tree_cons (access, base, base_list);
8710 if (BINFO_VIRTUAL_P (pbase_binfo))
8711 TREE_TYPE (base_list) = integer_type_node;
8715 /* The list is now in reverse order; correct that. */
8716 base_list = nreverse (base_list);
8718 if (pushed_scope)
8719 pop_scope (pushed_scope);
8721 /* Now call xref_basetypes to set up all the base-class
8722 information. */
8723 xref_basetypes (type, base_list);
8725 apply_late_template_attributes (&type, TYPE_ATTRIBUTES (pattern),
8726 (int) ATTR_FLAG_TYPE_IN_PLACE,
8727 args, tf_error, NULL_TREE);
8728 fixup_attribute_variants (type);
8730 /* Now that our base classes are set up, enter the scope of the
8731 class, so that name lookups into base classes, etc. will work
8732 correctly. This is precisely analogous to what we do in
8733 begin_class_definition when defining an ordinary non-template
8734 class, except we also need to push the enclosing classes. */
8735 push_nested_class (type);
8737 /* Now members are processed in the order of declaration. */
8738 for (member = CLASSTYPE_DECL_LIST (pattern);
8739 member; member = TREE_CHAIN (member))
8741 tree t = TREE_VALUE (member);
8743 if (TREE_PURPOSE (member))
8745 if (TYPE_P (t))
8747 /* Build new CLASSTYPE_NESTED_UTDS. */
8749 tree newtag;
8750 bool class_template_p;
8752 class_template_p = (TREE_CODE (t) != ENUMERAL_TYPE
8753 && TYPE_LANG_SPECIFIC (t)
8754 && CLASSTYPE_IS_TEMPLATE (t));
8755 /* If the member is a class template, then -- even after
8756 substitution -- there may be dependent types in the
8757 template argument list for the class. We increment
8758 PROCESSING_TEMPLATE_DECL so that dependent_type_p, as
8759 that function will assume that no types are dependent
8760 when outside of a template. */
8761 if (class_template_p)
8762 ++processing_template_decl;
8763 newtag = tsubst (t, args, tf_error, NULL_TREE);
8764 if (class_template_p)
8765 --processing_template_decl;
8766 if (newtag == error_mark_node)
8767 continue;
8769 if (TREE_CODE (newtag) != ENUMERAL_TYPE)
8771 tree name = TYPE_IDENTIFIER (t);
8773 if (class_template_p)
8774 /* Unfortunately, lookup_template_class sets
8775 CLASSTYPE_IMPLICIT_INSTANTIATION for a partial
8776 instantiation (i.e., for the type of a member
8777 template class nested within a template class.)
8778 This behavior is required for
8779 maybe_process_partial_specialization to work
8780 correctly, but is not accurate in this case;
8781 the TAG is not an instantiation of anything.
8782 (The corresponding TEMPLATE_DECL is an
8783 instantiation, but the TYPE is not.) */
8784 CLASSTYPE_USE_TEMPLATE (newtag) = 0;
8786 /* Now, we call pushtag to put this NEWTAG into the scope of
8787 TYPE. We first set up the IDENTIFIER_TYPE_VALUE to avoid
8788 pushtag calling push_template_decl. We don't have to do
8789 this for enums because it will already have been done in
8790 tsubst_enum. */
8791 if (name)
8792 SET_IDENTIFIER_TYPE_VALUE (name, newtag);
8793 pushtag (name, newtag, /*tag_scope=*/ts_current);
8796 else if (TREE_CODE (t) == FUNCTION_DECL
8797 || DECL_FUNCTION_TEMPLATE_P (t))
8799 /* Build new TYPE_METHODS. */
8800 tree r;
8802 if (TREE_CODE (t) == TEMPLATE_DECL)
8803 ++processing_template_decl;
8804 r = tsubst (t, args, tf_error, NULL_TREE);
8805 if (TREE_CODE (t) == TEMPLATE_DECL)
8806 --processing_template_decl;
8807 set_current_access_from_decl (r);
8808 finish_member_declaration (r);
8809 /* Instantiate members marked with attribute used. */
8810 if (r != error_mark_node && DECL_PRESERVE_P (r))
8811 mark_used (r);
8813 else
8815 /* Build new TYPE_FIELDS. */
8816 if (TREE_CODE (t) == STATIC_ASSERT)
8818 tree condition;
8820 ++c_inhibit_evaluation_warnings;
8821 condition =
8822 tsubst_expr (STATIC_ASSERT_CONDITION (t), args,
8823 tf_warning_or_error, NULL_TREE,
8824 /*integral_constant_expression_p=*/true);
8825 --c_inhibit_evaluation_warnings;
8827 finish_static_assert (condition,
8828 STATIC_ASSERT_MESSAGE (t),
8829 STATIC_ASSERT_SOURCE_LOCATION (t),
8830 /*member_p=*/true);
8832 else if (TREE_CODE (t) != CONST_DECL)
8834 tree r;
8836 /* The file and line for this declaration, to
8837 assist in error message reporting. Since we
8838 called push_tinst_level above, we don't need to
8839 restore these. */
8840 input_location = DECL_SOURCE_LOCATION (t);
8842 if (TREE_CODE (t) == TEMPLATE_DECL)
8843 ++processing_template_decl;
8844 r = tsubst (t, args, tf_warning_or_error, NULL_TREE);
8845 if (TREE_CODE (t) == TEMPLATE_DECL)
8846 --processing_template_decl;
8847 if (TREE_CODE (r) == VAR_DECL)
8849 /* In [temp.inst]:
8851 [t]he initialization (and any associated
8852 side-effects) of a static data member does
8853 not occur unless the static data member is
8854 itself used in a way that requires the
8855 definition of the static data member to
8856 exist.
8858 Therefore, we do not substitute into the
8859 initialized for the static data member here. */
8860 finish_static_data_member_decl
8862 /*init=*/NULL_TREE,
8863 /*init_const_expr_p=*/false,
8864 /*asmspec_tree=*/NULL_TREE,
8865 /*flags=*/0);
8866 /* Instantiate members marked with attribute used. */
8867 if (r != error_mark_node && DECL_PRESERVE_P (r))
8868 mark_used (r);
8870 else if (TREE_CODE (r) == FIELD_DECL)
8872 /* Determine whether R has a valid type and can be
8873 completed later. If R is invalid, then it is
8874 replaced by error_mark_node so that it will not be
8875 added to TYPE_FIELDS. */
8876 tree rtype = TREE_TYPE (r);
8877 if (can_complete_type_without_circularity (rtype))
8878 complete_type (rtype);
8880 if (!COMPLETE_TYPE_P (rtype))
8882 cxx_incomplete_type_error (r, rtype);
8883 r = error_mark_node;
8887 /* If it is a TYPE_DECL for a class-scoped ENUMERAL_TYPE,
8888 such a thing will already have been added to the field
8889 list by tsubst_enum in finish_member_declaration in the
8890 CLASSTYPE_NESTED_UTDS case above. */
8891 if (!(TREE_CODE (r) == TYPE_DECL
8892 && TREE_CODE (TREE_TYPE (r)) == ENUMERAL_TYPE
8893 && DECL_ARTIFICIAL (r)))
8895 set_current_access_from_decl (r);
8896 finish_member_declaration (r);
8901 else
8903 if (TYPE_P (t) || DECL_CLASS_TEMPLATE_P (t)
8904 || DECL_TEMPLATE_TEMPLATE_PARM_P (t))
8906 /* Build new CLASSTYPE_FRIEND_CLASSES. */
8908 tree friend_type = t;
8909 bool adjust_processing_template_decl = false;
8911 if (TREE_CODE (friend_type) == TEMPLATE_DECL)
8913 /* template <class T> friend class C; */
8914 friend_type = tsubst_friend_class (friend_type, args);
8915 adjust_processing_template_decl = true;
8917 else if (TREE_CODE (friend_type) == UNBOUND_CLASS_TEMPLATE)
8919 /* template <class T> friend class C::D; */
8920 friend_type = tsubst (friend_type, args,
8921 tf_warning_or_error, NULL_TREE);
8922 if (TREE_CODE (friend_type) == TEMPLATE_DECL)
8923 friend_type = TREE_TYPE (friend_type);
8924 adjust_processing_template_decl = true;
8926 else if (TREE_CODE (friend_type) == TYPENAME_TYPE
8927 || TREE_CODE (friend_type) == TEMPLATE_TYPE_PARM)
8929 /* This could be either
8931 friend class T::C;
8933 when dependent_type_p is false or
8935 template <class U> friend class T::C;
8937 otherwise. */
8938 friend_type = tsubst (friend_type, args,
8939 tf_warning_or_error, NULL_TREE);
8940 /* Bump processing_template_decl for correct
8941 dependent_type_p calculation. */
8942 ++processing_template_decl;
8943 if (dependent_type_p (friend_type))
8944 adjust_processing_template_decl = true;
8945 --processing_template_decl;
8947 else if (!CLASSTYPE_USE_TEMPLATE (friend_type)
8948 && hidden_name_p (TYPE_NAME (friend_type)))
8950 /* friend class C;
8952 where C hasn't been declared yet. Let's lookup name
8953 from namespace scope directly, bypassing any name that
8954 come from dependent base class. */
8955 tree ns = decl_namespace_context (TYPE_MAIN_DECL (friend_type));
8957 /* The call to xref_tag_from_type does injection for friend
8958 classes. */
8959 push_nested_namespace (ns);
8960 friend_type =
8961 xref_tag_from_type (friend_type, NULL_TREE,
8962 /*tag_scope=*/ts_current);
8963 pop_nested_namespace (ns);
8965 else if (uses_template_parms (friend_type))
8966 /* friend class C<T>; */
8967 friend_type = tsubst (friend_type, args,
8968 tf_warning_or_error, NULL_TREE);
8969 /* Otherwise it's
8971 friend class C;
8973 where C is already declared or
8975 friend class C<int>;
8977 We don't have to do anything in these cases. */
8979 if (adjust_processing_template_decl)
8980 /* Trick make_friend_class into realizing that the friend
8981 we're adding is a template, not an ordinary class. It's
8982 important that we use make_friend_class since it will
8983 perform some error-checking and output cross-reference
8984 information. */
8985 ++processing_template_decl;
8987 if (friend_type != error_mark_node)
8988 make_friend_class (type, friend_type, /*complain=*/false);
8990 if (adjust_processing_template_decl)
8991 --processing_template_decl;
8993 else
8995 /* Build new DECL_FRIENDLIST. */
8996 tree r;
8998 /* The file and line for this declaration, to
8999 assist in error message reporting. Since we
9000 called push_tinst_level above, we don't need to
9001 restore these. */
9002 input_location = DECL_SOURCE_LOCATION (t);
9004 if (TREE_CODE (t) == TEMPLATE_DECL)
9006 ++processing_template_decl;
9007 push_deferring_access_checks (dk_no_check);
9010 r = tsubst_friend_function (t, args);
9011 add_friend (type, r, /*complain=*/false);
9012 if (TREE_CODE (t) == TEMPLATE_DECL)
9014 pop_deferring_access_checks ();
9015 --processing_template_decl;
9021 if (tree expr = CLASSTYPE_LAMBDA_EXPR (type))
9023 tree decl = lambda_function (type);
9024 if (decl)
9026 instantiate_decl (decl, false, false);
9028 /* We need to instantiate the capture list from the template
9029 after we've instantiated the closure members, but before we
9030 consider adding the conversion op. Also keep any captures
9031 that may have been added during instantiation of the op(). */
9032 tree tmpl_expr = CLASSTYPE_LAMBDA_EXPR (pattern);
9033 tree tmpl_cap
9034 = tsubst_copy_and_build (LAMBDA_EXPR_CAPTURE_LIST (tmpl_expr),
9035 args, tf_warning_or_error, NULL_TREE,
9036 false, false);
9038 LAMBDA_EXPR_CAPTURE_LIST (expr)
9039 = chainon (tmpl_cap, nreverse (LAMBDA_EXPR_CAPTURE_LIST (expr)));
9041 maybe_add_lambda_conv_op (type);
9043 else
9044 gcc_assert (errorcount);
9047 /* Set the file and line number information to whatever is given for
9048 the class itself. This puts error messages involving generated
9049 implicit functions at a predictable point, and the same point
9050 that would be used for non-template classes. */
9051 input_location = DECL_SOURCE_LOCATION (typedecl);
9053 unreverse_member_declarations (type);
9054 finish_struct_1 (type);
9055 TYPE_BEING_DEFINED (type) = 0;
9057 /* We don't instantiate default arguments for member functions. 14.7.1:
9059 The implicit instantiation of a class template specialization causes
9060 the implicit instantiation of the declarations, but not of the
9061 definitions or default arguments, of the class member functions,
9062 member classes, static data members and member templates.... */
9064 /* Some typedefs referenced from within the template code need to be access
9065 checked at template instantiation time, i.e now. These types were
9066 added to the template at parsing time. Let's get those and perform
9067 the access checks then. */
9068 perform_typedefs_access_check (pattern, args);
9069 perform_deferred_access_checks (tf_warning_or_error);
9070 pop_nested_class ();
9071 maximum_field_alignment = saved_maximum_field_alignment;
9072 if (!fn_context)
9073 pop_from_top_level ();
9074 pop_deferring_access_checks ();
9075 pop_tinst_level ();
9077 /* The vtable for a template class can be emitted in any translation
9078 unit in which the class is instantiated. When there is no key
9079 method, however, finish_struct_1 will already have added TYPE to
9080 the keyed_classes list. */
9081 if (TYPE_CONTAINS_VPTR_P (type) && CLASSTYPE_KEY_METHOD (type))
9082 keyed_classes = tree_cons (NULL_TREE, type, keyed_classes);
9084 return type;
9087 /* Wrapper for instantiate_class_template_1. */
9089 tree
9090 instantiate_class_template (tree type)
9092 tree ret;
9093 timevar_push (TV_TEMPLATE_INST);
9094 ret = instantiate_class_template_1 (type);
9095 timevar_pop (TV_TEMPLATE_INST);
9096 return ret;
9099 static tree
9100 tsubst_template_arg (tree t, tree args, tsubst_flags_t complain, tree in_decl)
9102 tree r;
9104 if (!t)
9105 r = t;
9106 else if (TYPE_P (t))
9107 r = tsubst (t, args, complain, in_decl);
9108 else
9110 if (!(complain & tf_warning))
9111 ++c_inhibit_evaluation_warnings;
9112 r = tsubst_expr (t, args, complain, in_decl,
9113 /*integral_constant_expression_p=*/true);
9114 if (!(complain & tf_warning))
9115 --c_inhibit_evaluation_warnings;
9117 return r;
9120 /* Given a function parameter pack TMPL_PARM and some function parameters
9121 instantiated from it at *SPEC_P, return a NONTYPE_ARGUMENT_PACK of them
9122 and set *SPEC_P to point at the next point in the list. */
9124 static tree
9125 extract_fnparm_pack (tree tmpl_parm, tree *spec_p)
9127 /* Collect all of the extra "packed" parameters into an
9128 argument pack. */
9129 tree parmvec;
9130 tree parmtypevec;
9131 tree argpack = make_node (NONTYPE_ARGUMENT_PACK);
9132 tree argtypepack = cxx_make_type (TYPE_ARGUMENT_PACK);
9133 tree spec_parm = *spec_p;
9134 int i, len;
9136 for (len = 0; spec_parm; ++len, spec_parm = TREE_CHAIN (spec_parm))
9137 if (tmpl_parm
9138 && !function_parameter_expanded_from_pack_p (spec_parm, tmpl_parm))
9139 break;
9141 /* Fill in PARMVEC and PARMTYPEVEC with all of the parameters. */
9142 parmvec = make_tree_vec (len);
9143 parmtypevec = make_tree_vec (len);
9144 spec_parm = *spec_p;
9145 for (i = 0; i < len; i++, spec_parm = DECL_CHAIN (spec_parm))
9147 TREE_VEC_ELT (parmvec, i) = spec_parm;
9148 TREE_VEC_ELT (parmtypevec, i) = TREE_TYPE (spec_parm);
9151 /* Build the argument packs. */
9152 SET_ARGUMENT_PACK_ARGS (argpack, parmvec);
9153 SET_ARGUMENT_PACK_ARGS (argtypepack, parmtypevec);
9154 TREE_TYPE (argpack) = argtypepack;
9155 *spec_p = spec_parm;
9157 return argpack;
9160 /* Give a chain SPEC_PARM of PARM_DECLs, pack them into a
9161 NONTYPE_ARGUMENT_PACK. */
9163 static tree
9164 make_fnparm_pack (tree spec_parm)
9166 return extract_fnparm_pack (NULL_TREE, &spec_parm);
9169 /* Return true iff the Ith element of the argument pack ARG_PACK is a
9170 pack expansion. */
9172 static bool
9173 argument_pack_element_is_expansion_p (tree arg_pack, int i)
9175 tree vec = ARGUMENT_PACK_ARGS (arg_pack);
9176 if (i >= TREE_VEC_LENGTH (vec))
9177 return false;
9178 return PACK_EXPANSION_P (TREE_VEC_ELT (vec, i));
9182 /* Creates and return an ARGUMENT_PACK_SELECT tree node. */
9184 static tree
9185 make_argument_pack_select (tree arg_pack, unsigned index)
9187 tree aps = make_node (ARGUMENT_PACK_SELECT);
9189 ARGUMENT_PACK_SELECT_FROM_PACK (aps) = arg_pack;
9190 ARGUMENT_PACK_SELECT_INDEX (aps) = index;
9192 return aps;
9195 /* This is a subroutine of tsubst_pack_expansion.
9197 It returns TRUE if we need to use the PACK_EXPANSION_EXTRA_ARGS
9198 mechanism to store the (non complete list of) arguments of the
9199 substitution and return a non substituted pack expansion, in order
9200 to wait for when we have enough arguments to really perform the
9201 substitution. */
9203 static bool
9204 use_pack_expansion_extra_args_p (tree parm_packs,
9205 int arg_pack_len,
9206 bool has_empty_arg)
9208 /* If one pack has an expansion and another pack has a normal
9209 argument or if one pack has an empty argument and an another
9210 one hasn't then tsubst_pack_expansion cannot perform the
9211 substitution and need to fall back on the
9212 PACK_EXPANSION_EXTRA mechanism. */
9213 if (parm_packs == NULL_TREE)
9214 return false;
9215 else if (has_empty_arg)
9216 return true;
9218 bool has_expansion_arg = false;
9219 for (int i = 0 ; i < arg_pack_len; ++i)
9221 bool has_non_expansion_arg = false;
9222 for (tree parm_pack = parm_packs;
9223 parm_pack;
9224 parm_pack = TREE_CHAIN (parm_pack))
9226 tree arg = TREE_VALUE (parm_pack);
9228 if (argument_pack_element_is_expansion_p (arg, i))
9229 has_expansion_arg = true;
9230 else
9231 has_non_expansion_arg = true;
9234 if (has_expansion_arg && has_non_expansion_arg)
9235 return true;
9237 return false;
9240 /* [temp.variadic]/6 says that:
9242 The instantiation of a pack expansion [...]
9243 produces a list E1,E2, ..., En, where N is the number of elements
9244 in the pack expansion parameters.
9246 This subroutine of tsubst_pack_expansion produces one of these Ei.
9248 PATTERN is the pattern of the pack expansion. PARM_PACKS is a
9249 TREE_LIST in which each TREE_PURPOSE is a parameter pack of
9250 PATTERN, and each TREE_VALUE is its corresponding argument pack.
9251 INDEX is the index 'i' of the element Ei to produce. ARGS,
9252 COMPLAIN, and IN_DECL are the same parameters as for the
9253 tsubst_pack_expansion function.
9255 The function returns the resulting Ei upon successful completion,
9256 or error_mark_node.
9258 Note that this function possibly modifies the ARGS parameter, so
9259 it's the responsibility of the caller to restore it. */
9261 static tree
9262 gen_elem_of_pack_expansion_instantiation (tree pattern,
9263 tree parm_packs,
9264 unsigned index,
9265 tree args /* This parm gets
9266 modified. */,
9267 tsubst_flags_t complain,
9268 tree in_decl)
9270 tree t;
9271 bool ith_elem_is_expansion = false;
9273 /* For each parameter pack, change the substitution of the parameter
9274 pack to the ith argument in its argument pack, then expand the
9275 pattern. */
9276 for (tree pack = parm_packs; pack; pack = TREE_CHAIN (pack))
9278 tree parm = TREE_PURPOSE (pack);
9279 tree arg_pack = TREE_VALUE (pack);
9280 tree aps; /* instance of ARGUMENT_PACK_SELECT. */
9282 ith_elem_is_expansion |=
9283 argument_pack_element_is_expansion_p (arg_pack, index);
9285 /* Select the Ith argument from the pack. */
9286 if (TREE_CODE (parm) == PARM_DECL)
9288 if (index == 0)
9290 aps = make_argument_pack_select (arg_pack, index);
9291 mark_used (parm);
9292 register_local_specialization (aps, parm);
9294 else
9295 aps = retrieve_local_specialization (parm);
9297 else
9299 int idx, level;
9300 template_parm_level_and_index (parm, &level, &idx);
9302 if (index == 0)
9304 aps = make_argument_pack_select (arg_pack, index);
9305 /* Update the corresponding argument. */
9306 TMPL_ARG (args, level, idx) = aps;
9308 else
9309 /* Re-use the ARGUMENT_PACK_SELECT. */
9310 aps = TMPL_ARG (args, level, idx);
9312 ARGUMENT_PACK_SELECT_INDEX (aps) = index;
9315 /* Substitute into the PATTERN with the (possibly altered)
9316 arguments. */
9317 if (!TYPE_P (pattern))
9318 t = tsubst_expr (pattern, args, complain, in_decl,
9319 /*integral_constant_expression_p=*/false);
9320 else
9321 t = tsubst (pattern, args, complain, in_decl);
9323 /* If the Ith argument pack element is a pack expansion, then
9324 the Ith element resulting from the substituting is going to
9325 be a pack expansion as well. */
9326 if (ith_elem_is_expansion)
9327 t = make_pack_expansion (t);
9329 return t;
9332 /* Substitute ARGS into T, which is an pack expansion
9333 (i.e. TYPE_PACK_EXPANSION or EXPR_PACK_EXPANSION). Returns a
9334 TREE_VEC with the substituted arguments, a PACK_EXPANSION_* node
9335 (if only a partial substitution could be performed) or
9336 ERROR_MARK_NODE if there was an error. */
9337 tree
9338 tsubst_pack_expansion (tree t, tree args, tsubst_flags_t complain,
9339 tree in_decl)
9341 tree pattern;
9342 tree pack, packs = NULL_TREE;
9343 bool unsubstituted_packs = false;
9344 int i, len = -1;
9345 tree result;
9346 struct pointer_map_t *saved_local_specializations = NULL;
9347 bool need_local_specializations = false;
9348 int levels;
9350 gcc_assert (PACK_EXPANSION_P (t));
9351 pattern = PACK_EXPANSION_PATTERN (t);
9353 /* Add in any args remembered from an earlier partial instantiation. */
9354 args = add_to_template_args (PACK_EXPANSION_EXTRA_ARGS (t), args);
9356 levels = TMPL_ARGS_DEPTH (args);
9358 /* Determine the argument packs that will instantiate the parameter
9359 packs used in the expansion expression. While we're at it,
9360 compute the number of arguments to be expanded and make sure it
9361 is consistent. */
9362 for (pack = PACK_EXPANSION_PARAMETER_PACKS (t); pack;
9363 pack = TREE_CHAIN (pack))
9365 tree parm_pack = TREE_VALUE (pack);
9366 tree arg_pack = NULL_TREE;
9367 tree orig_arg = NULL_TREE;
9368 int level = 0;
9370 if (TREE_CODE (parm_pack) == BASES)
9372 if (BASES_DIRECT (parm_pack))
9373 return calculate_direct_bases (tsubst_expr (BASES_TYPE (parm_pack),
9374 args, complain, in_decl, false));
9375 else
9376 return calculate_bases (tsubst_expr (BASES_TYPE (parm_pack),
9377 args, complain, in_decl, false));
9379 if (TREE_CODE (parm_pack) == PARM_DECL)
9381 if (PACK_EXPANSION_LOCAL_P (t))
9382 arg_pack = retrieve_local_specialization (parm_pack);
9383 else
9385 /* We can't rely on local_specializations for a parameter
9386 name used later in a function declaration (such as in a
9387 late-specified return type). Even if it exists, it might
9388 have the wrong value for a recursive call. Just make a
9389 dummy decl, since it's only used for its type. */
9390 arg_pack = tsubst_decl (parm_pack, args, complain);
9391 if (arg_pack && FUNCTION_PARAMETER_PACK_P (arg_pack))
9392 /* Partial instantiation of the parm_pack, we can't build
9393 up an argument pack yet. */
9394 arg_pack = NULL_TREE;
9395 else
9396 arg_pack = make_fnparm_pack (arg_pack);
9397 need_local_specializations = true;
9400 else
9402 int idx;
9403 template_parm_level_and_index (parm_pack, &level, &idx);
9405 if (level <= levels)
9406 arg_pack = TMPL_ARG (args, level, idx);
9409 orig_arg = arg_pack;
9410 if (arg_pack && TREE_CODE (arg_pack) == ARGUMENT_PACK_SELECT)
9411 arg_pack = ARGUMENT_PACK_SELECT_FROM_PACK (arg_pack);
9413 if (arg_pack && !ARGUMENT_PACK_P (arg_pack))
9414 /* This can only happen if we forget to expand an argument
9415 pack somewhere else. Just return an error, silently. */
9417 result = make_tree_vec (1);
9418 TREE_VEC_ELT (result, 0) = error_mark_node;
9419 return result;
9422 if (arg_pack)
9424 int my_len =
9425 TREE_VEC_LENGTH (ARGUMENT_PACK_ARGS (arg_pack));
9427 /* Don't bother trying to do a partial substitution with
9428 incomplete packs; we'll try again after deduction. */
9429 if (ARGUMENT_PACK_INCOMPLETE_P (arg_pack))
9430 return t;
9432 if (len < 0)
9433 len = my_len;
9434 else if (len != my_len)
9436 if (!(complain & tf_error))
9437 /* Fail quietly. */;
9438 else if (TREE_CODE (t) == TYPE_PACK_EXPANSION)
9439 error ("mismatched argument pack lengths while expanding "
9440 "%<%T%>",
9441 pattern);
9442 else
9443 error ("mismatched argument pack lengths while expanding "
9444 "%<%E%>",
9445 pattern);
9446 return error_mark_node;
9449 /* Keep track of the parameter packs and their corresponding
9450 argument packs. */
9451 packs = tree_cons (parm_pack, arg_pack, packs);
9452 TREE_TYPE (packs) = orig_arg;
9454 else
9456 /* We can't substitute for this parameter pack. We use a flag as
9457 well as the missing_level counter because function parameter
9458 packs don't have a level. */
9459 unsubstituted_packs = true;
9463 /* We cannot expand this expansion expression, because we don't have
9464 all of the argument packs we need. */
9465 if (use_pack_expansion_extra_args_p (packs, len, unsubstituted_packs))
9467 /* We got some full packs, but we can't substitute them in until we
9468 have values for all the packs. So remember these until then. */
9470 t = make_pack_expansion (pattern);
9471 PACK_EXPANSION_EXTRA_ARGS (t) = args;
9472 return t;
9474 else if (unsubstituted_packs)
9476 /* There were no real arguments, we're just replacing a parameter
9477 pack with another version of itself. Substitute into the
9478 pattern and return a PACK_EXPANSION_*. The caller will need to
9479 deal with that. */
9480 if (TREE_CODE (t) == EXPR_PACK_EXPANSION)
9481 t = tsubst_expr (pattern, args, complain, in_decl,
9482 /*integral_constant_expression_p=*/false);
9483 else
9484 t = tsubst (pattern, args, complain, in_decl);
9485 t = make_pack_expansion (t);
9486 return t;
9489 gcc_assert (len >= 0);
9491 if (need_local_specializations)
9493 /* We're in a late-specified return type, so create our own local
9494 specializations map; the current map is either NULL or (in the
9495 case of recursive unification) might have bindings that we don't
9496 want to use or alter. */
9497 saved_local_specializations = local_specializations;
9498 local_specializations = pointer_map_create ();
9501 /* For each argument in each argument pack, substitute into the
9502 pattern. */
9503 result = make_tree_vec (len);
9504 for (i = 0; i < len; ++i)
9506 t = gen_elem_of_pack_expansion_instantiation (pattern, packs,
9508 args, complain,
9509 in_decl);
9510 TREE_VEC_ELT (result, i) = t;
9511 if (t == error_mark_node)
9513 result = error_mark_node;
9514 break;
9518 /* Update ARGS to restore the substitution from parameter packs to
9519 their argument packs. */
9520 for (pack = packs; pack; pack = TREE_CHAIN (pack))
9522 tree parm = TREE_PURPOSE (pack);
9524 if (TREE_CODE (parm) == PARM_DECL)
9525 register_local_specialization (TREE_TYPE (pack), parm);
9526 else
9528 int idx, level;
9530 if (TREE_VALUE (pack) == NULL_TREE)
9531 continue;
9533 template_parm_level_and_index (parm, &level, &idx);
9535 /* Update the corresponding argument. */
9536 if (TMPL_ARGS_HAVE_MULTIPLE_LEVELS (args))
9537 TREE_VEC_ELT (TREE_VEC_ELT (args, level -1 ), idx) =
9538 TREE_TYPE (pack);
9539 else
9540 TREE_VEC_ELT (args, idx) = TREE_TYPE (pack);
9544 if (need_local_specializations)
9546 pointer_map_destroy (local_specializations);
9547 local_specializations = saved_local_specializations;
9550 return result;
9553 /* Given PARM_DECL PARM, find the corresponding PARM_DECL in the template
9554 TMPL. We do this using DECL_PARM_INDEX, which should work even with
9555 parameter packs; all parms generated from a function parameter pack will
9556 have the same DECL_PARM_INDEX. */
9558 tree
9559 get_pattern_parm (tree parm, tree tmpl)
9561 tree pattern = DECL_TEMPLATE_RESULT (tmpl);
9562 tree patparm;
9564 if (DECL_ARTIFICIAL (parm))
9566 for (patparm = DECL_ARGUMENTS (pattern);
9567 patparm; patparm = DECL_CHAIN (patparm))
9568 if (DECL_ARTIFICIAL (patparm)
9569 && DECL_NAME (parm) == DECL_NAME (patparm))
9570 break;
9572 else
9574 patparm = FUNCTION_FIRST_USER_PARM (DECL_TEMPLATE_RESULT (tmpl));
9575 patparm = chain_index (DECL_PARM_INDEX (parm)-1, patparm);
9576 gcc_assert (DECL_PARM_INDEX (patparm)
9577 == DECL_PARM_INDEX (parm));
9580 return patparm;
9583 /* Substitute ARGS into the vector or list of template arguments T. */
9585 static tree
9586 tsubst_template_args (tree t, tree args, tsubst_flags_t complain, tree in_decl)
9588 tree orig_t = t;
9589 int len, need_new = 0, i, expanded_len_adjust = 0, out;
9590 tree *elts;
9592 if (t == error_mark_node)
9593 return error_mark_node;
9595 len = TREE_VEC_LENGTH (t);
9596 elts = XALLOCAVEC (tree, len);
9598 for (i = 0; i < len; i++)
9600 tree orig_arg = TREE_VEC_ELT (t, i);
9601 tree new_arg;
9603 if (TREE_CODE (orig_arg) == TREE_VEC)
9604 new_arg = tsubst_template_args (orig_arg, args, complain, in_decl);
9605 else if (PACK_EXPANSION_P (orig_arg))
9607 /* Substitute into an expansion expression. */
9608 new_arg = tsubst_pack_expansion (orig_arg, args, complain, in_decl);
9610 if (TREE_CODE (new_arg) == TREE_VEC)
9611 /* Add to the expanded length adjustment the number of
9612 expanded arguments. We subtract one from this
9613 measurement, because the argument pack expression
9614 itself is already counted as 1 in
9615 LEN. EXPANDED_LEN_ADJUST can actually be negative, if
9616 the argument pack is empty. */
9617 expanded_len_adjust += TREE_VEC_LENGTH (new_arg) - 1;
9619 else if (ARGUMENT_PACK_P (orig_arg))
9621 /* Substitute into each of the arguments. */
9622 new_arg = TYPE_P (orig_arg)
9623 ? cxx_make_type (TREE_CODE (orig_arg))
9624 : make_node (TREE_CODE (orig_arg));
9626 SET_ARGUMENT_PACK_ARGS (
9627 new_arg,
9628 tsubst_template_args (ARGUMENT_PACK_ARGS (orig_arg),
9629 args, complain, in_decl));
9631 if (ARGUMENT_PACK_ARGS (new_arg) == error_mark_node)
9632 new_arg = error_mark_node;
9634 if (TREE_CODE (new_arg) == NONTYPE_ARGUMENT_PACK) {
9635 TREE_TYPE (new_arg) = tsubst (TREE_TYPE (orig_arg), args,
9636 complain, in_decl);
9637 TREE_CONSTANT (new_arg) = TREE_CONSTANT (orig_arg);
9639 if (TREE_TYPE (new_arg) == error_mark_node)
9640 new_arg = error_mark_node;
9643 else
9644 new_arg = tsubst_template_arg (orig_arg, args, complain, in_decl);
9646 if (new_arg == error_mark_node)
9647 return error_mark_node;
9649 elts[i] = new_arg;
9650 if (new_arg != orig_arg)
9651 need_new = 1;
9654 if (!need_new)
9655 return t;
9657 /* Make space for the expanded arguments coming from template
9658 argument packs. */
9659 t = make_tree_vec (len + expanded_len_adjust);
9660 /* ORIG_T can contain TREE_VECs. That happens if ORIG_T contains the
9661 arguments for a member template.
9662 In that case each TREE_VEC in ORIG_T represents a level of template
9663 arguments, and ORIG_T won't carry any non defaulted argument count.
9664 It will rather be the nested TREE_VECs that will carry one.
9665 In other words, ORIG_T carries a non defaulted argument count only
9666 if it doesn't contain any nested TREE_VEC. */
9667 if (NON_DEFAULT_TEMPLATE_ARGS_COUNT (orig_t))
9669 int count = GET_NON_DEFAULT_TEMPLATE_ARGS_COUNT (orig_t);
9670 count += expanded_len_adjust;
9671 SET_NON_DEFAULT_TEMPLATE_ARGS_COUNT (t, count);
9673 for (i = 0, out = 0; i < len; i++)
9675 if ((PACK_EXPANSION_P (TREE_VEC_ELT (orig_t, i))
9676 || ARGUMENT_PACK_P (TREE_VEC_ELT (orig_t, i)))
9677 && TREE_CODE (elts[i]) == TREE_VEC)
9679 int idx;
9681 /* Now expand the template argument pack "in place". */
9682 for (idx = 0; idx < TREE_VEC_LENGTH (elts[i]); idx++, out++)
9683 TREE_VEC_ELT (t, out) = TREE_VEC_ELT (elts[i], idx);
9685 else
9687 TREE_VEC_ELT (t, out) = elts[i];
9688 out++;
9692 return t;
9695 /* Return the result of substituting ARGS into the template parameters
9696 given by PARMS. If there are m levels of ARGS and m + n levels of
9697 PARMS, then the result will contain n levels of PARMS. For
9698 example, if PARMS is `template <class T> template <class U>
9699 template <T*, U, class V>' and ARGS is {{int}, {double}} then the
9700 result will be `template <int*, double, class V>'. */
9702 static tree
9703 tsubst_template_parms (tree parms, tree args, tsubst_flags_t complain)
9705 tree r = NULL_TREE;
9706 tree* new_parms;
9708 /* When substituting into a template, we must set
9709 PROCESSING_TEMPLATE_DECL as the template parameters may be
9710 dependent if they are based on one-another, and the dependency
9711 predicates are short-circuit outside of templates. */
9712 ++processing_template_decl;
9714 for (new_parms = &r;
9715 parms && TMPL_PARMS_DEPTH (parms) > TMPL_ARGS_DEPTH (args);
9716 new_parms = &(TREE_CHAIN (*new_parms)),
9717 parms = TREE_CHAIN (parms))
9719 tree new_vec =
9720 make_tree_vec (TREE_VEC_LENGTH (TREE_VALUE (parms)));
9721 int i;
9723 for (i = 0; i < TREE_VEC_LENGTH (new_vec); ++i)
9725 tree tuple;
9727 if (parms == error_mark_node)
9728 continue;
9730 tuple = TREE_VEC_ELT (TREE_VALUE (parms), i);
9732 if (tuple == error_mark_node)
9733 continue;
9735 TREE_VEC_ELT (new_vec, i) =
9736 tsubst_template_parm (tuple, args, complain);
9739 *new_parms =
9740 tree_cons (size_int (TMPL_PARMS_DEPTH (parms)
9741 - TMPL_ARGS_DEPTH (args)),
9742 new_vec, NULL_TREE);
9745 --processing_template_decl;
9747 return r;
9750 /* Return the result of substituting ARGS into one template parameter
9751 given by T. T Must be a TREE_LIST which TREE_VALUE is the template
9752 parameter and which TREE_PURPOSE is the default argument of the
9753 template parameter. */
9755 static tree
9756 tsubst_template_parm (tree t, tree args, tsubst_flags_t complain)
9758 tree default_value, parm_decl;
9760 if (args == NULL_TREE
9761 || t == NULL_TREE
9762 || t == error_mark_node)
9763 return t;
9765 gcc_assert (TREE_CODE (t) == TREE_LIST);
9767 default_value = TREE_PURPOSE (t);
9768 parm_decl = TREE_VALUE (t);
9770 parm_decl = tsubst (parm_decl, args, complain, NULL_TREE);
9771 if (TREE_CODE (parm_decl) == PARM_DECL
9772 && invalid_nontype_parm_type_p (TREE_TYPE (parm_decl), complain))
9773 parm_decl = error_mark_node;
9774 default_value = tsubst_template_arg (default_value, args,
9775 complain, NULL_TREE);
9777 return build_tree_list (default_value, parm_decl);
9780 /* Substitute the ARGS into the indicated aggregate (or enumeration)
9781 type T. If T is not an aggregate or enumeration type, it is
9782 handled as if by tsubst. IN_DECL is as for tsubst. If
9783 ENTERING_SCOPE is nonzero, T is the context for a template which
9784 we are presently tsubst'ing. Return the substituted value. */
9786 static tree
9787 tsubst_aggr_type (tree t,
9788 tree args,
9789 tsubst_flags_t complain,
9790 tree in_decl,
9791 int entering_scope)
9793 if (t == NULL_TREE)
9794 return NULL_TREE;
9796 switch (TREE_CODE (t))
9798 case RECORD_TYPE:
9799 if (TYPE_PTRMEMFUNC_P (t))
9800 return tsubst (TYPE_PTRMEMFUNC_FN_TYPE (t), args, complain, in_decl);
9802 /* Else fall through. */
9803 case ENUMERAL_TYPE:
9804 case UNION_TYPE:
9805 if (TYPE_TEMPLATE_INFO (t) && uses_template_parms (t))
9807 tree argvec;
9808 tree context;
9809 tree r;
9810 int saved_unevaluated_operand;
9811 int saved_inhibit_evaluation_warnings;
9813 /* In "sizeof(X<I>)" we need to evaluate "I". */
9814 saved_unevaluated_operand = cp_unevaluated_operand;
9815 cp_unevaluated_operand = 0;
9816 saved_inhibit_evaluation_warnings = c_inhibit_evaluation_warnings;
9817 c_inhibit_evaluation_warnings = 0;
9819 /* First, determine the context for the type we are looking
9820 up. */
9821 context = TYPE_CONTEXT (t);
9822 if (context && TYPE_P (context))
9824 context = tsubst_aggr_type (context, args, complain,
9825 in_decl, /*entering_scope=*/1);
9826 /* If context is a nested class inside a class template,
9827 it may still need to be instantiated (c++/33959). */
9828 context = complete_type (context);
9831 /* Then, figure out what arguments are appropriate for the
9832 type we are trying to find. For example, given:
9834 template <class T> struct S;
9835 template <class T, class U> void f(T, U) { S<U> su; }
9837 and supposing that we are instantiating f<int, double>,
9838 then our ARGS will be {int, double}, but, when looking up
9839 S we only want {double}. */
9840 argvec = tsubst_template_args (TYPE_TI_ARGS (t), args,
9841 complain, in_decl);
9842 if (argvec == error_mark_node)
9843 r = error_mark_node;
9844 else
9846 r = lookup_template_class (t, argvec, in_decl, context,
9847 entering_scope, complain);
9848 r = cp_build_qualified_type_real (r, cp_type_quals (t), complain);
9851 cp_unevaluated_operand = saved_unevaluated_operand;
9852 c_inhibit_evaluation_warnings = saved_inhibit_evaluation_warnings;
9854 return r;
9856 else
9857 /* This is not a template type, so there's nothing to do. */
9858 return t;
9860 default:
9861 return tsubst (t, args, complain, in_decl);
9865 /* Substitute into the default argument ARG (a default argument for
9866 FN), which has the indicated TYPE. */
9868 tree
9869 tsubst_default_argument (tree fn, tree type, tree arg, tsubst_flags_t complain)
9871 tree saved_class_ptr = NULL_TREE;
9872 tree saved_class_ref = NULL_TREE;
9873 int errs = errorcount + sorrycount;
9875 /* This can happen in invalid code. */
9876 if (TREE_CODE (arg) == DEFAULT_ARG)
9877 return arg;
9879 /* This default argument came from a template. Instantiate the
9880 default argument here, not in tsubst. In the case of
9881 something like:
9883 template <class T>
9884 struct S {
9885 static T t();
9886 void f(T = t());
9889 we must be careful to do name lookup in the scope of S<T>,
9890 rather than in the current class. */
9891 push_access_scope (fn);
9892 /* The "this" pointer is not valid in a default argument. */
9893 if (cfun)
9895 saved_class_ptr = current_class_ptr;
9896 cp_function_chain->x_current_class_ptr = NULL_TREE;
9897 saved_class_ref = current_class_ref;
9898 cp_function_chain->x_current_class_ref = NULL_TREE;
9901 push_deferring_access_checks(dk_no_deferred);
9902 /* The default argument expression may cause implicitly defined
9903 member functions to be synthesized, which will result in garbage
9904 collection. We must treat this situation as if we were within
9905 the body of function so as to avoid collecting live data on the
9906 stack. */
9907 ++function_depth;
9908 arg = tsubst_expr (arg, DECL_TI_ARGS (fn),
9909 complain, NULL_TREE,
9910 /*integral_constant_expression_p=*/false);
9911 --function_depth;
9912 pop_deferring_access_checks();
9914 /* Restore the "this" pointer. */
9915 if (cfun)
9917 cp_function_chain->x_current_class_ptr = saved_class_ptr;
9918 cp_function_chain->x_current_class_ref = saved_class_ref;
9921 if (errorcount+sorrycount > errs
9922 && (complain & tf_warning_or_error))
9923 inform (input_location,
9924 " when instantiating default argument for call to %D", fn);
9926 /* Make sure the default argument is reasonable. */
9927 arg = check_default_argument (type, arg, complain);
9929 pop_access_scope (fn);
9931 return arg;
9934 /* Substitute into all the default arguments for FN. */
9936 static void
9937 tsubst_default_arguments (tree fn, tsubst_flags_t complain)
9939 tree arg;
9940 tree tmpl_args;
9942 tmpl_args = DECL_TI_ARGS (fn);
9944 /* If this function is not yet instantiated, we certainly don't need
9945 its default arguments. */
9946 if (uses_template_parms (tmpl_args))
9947 return;
9948 /* Don't do this again for clones. */
9949 if (DECL_CLONED_FUNCTION_P (fn))
9950 return;
9952 for (arg = TYPE_ARG_TYPES (TREE_TYPE (fn));
9953 arg;
9954 arg = TREE_CHAIN (arg))
9955 if (TREE_PURPOSE (arg))
9956 TREE_PURPOSE (arg) = tsubst_default_argument (fn,
9957 TREE_VALUE (arg),
9958 TREE_PURPOSE (arg),
9959 complain);
9962 /* Substitute the ARGS into the T, which is a _DECL. Return the
9963 result of the substitution. Issue error and warning messages under
9964 control of COMPLAIN. */
9966 static tree
9967 tsubst_decl (tree t, tree args, tsubst_flags_t complain)
9969 #define RETURN(EXP) do { r = (EXP); goto out; } while(0)
9970 location_t saved_loc;
9971 tree r = NULL_TREE;
9972 tree in_decl = t;
9973 hashval_t hash = 0;
9975 /* Set the filename and linenumber to improve error-reporting. */
9976 saved_loc = input_location;
9977 input_location = DECL_SOURCE_LOCATION (t);
9979 switch (TREE_CODE (t))
9981 case TEMPLATE_DECL:
9983 /* We can get here when processing a member function template,
9984 member class template, or template template parameter. */
9985 tree decl = DECL_TEMPLATE_RESULT (t);
9986 tree spec;
9987 tree tmpl_args;
9988 tree full_args;
9990 if (DECL_TEMPLATE_TEMPLATE_PARM_P (t))
9992 /* Template template parameter is treated here. */
9993 tree new_type = tsubst (TREE_TYPE (t), args, complain, in_decl);
9994 if (new_type == error_mark_node)
9995 RETURN (error_mark_node);
9996 /* If we get a real template back, return it. This can happen in
9997 the context of most_specialized_class. */
9998 if (TREE_CODE (new_type) == TEMPLATE_DECL)
9999 return new_type;
10001 r = copy_decl (t);
10002 DECL_CHAIN (r) = NULL_TREE;
10003 TREE_TYPE (r) = new_type;
10004 DECL_TEMPLATE_RESULT (r)
10005 = build_decl (DECL_SOURCE_LOCATION (decl),
10006 TYPE_DECL, DECL_NAME (decl), new_type);
10007 DECL_TEMPLATE_PARMS (r)
10008 = tsubst_template_parms (DECL_TEMPLATE_PARMS (t), args,
10009 complain);
10010 TYPE_NAME (new_type) = r;
10011 break;
10014 /* We might already have an instance of this template.
10015 The ARGS are for the surrounding class type, so the
10016 full args contain the tsubst'd args for the context,
10017 plus the innermost args from the template decl. */
10018 tmpl_args = DECL_CLASS_TEMPLATE_P (t)
10019 ? CLASSTYPE_TI_ARGS (TREE_TYPE (t))
10020 : DECL_TI_ARGS (DECL_TEMPLATE_RESULT (t));
10021 /* Because this is a template, the arguments will still be
10022 dependent, even after substitution. If
10023 PROCESSING_TEMPLATE_DECL is not set, the dependency
10024 predicates will short-circuit. */
10025 ++processing_template_decl;
10026 full_args = tsubst_template_args (tmpl_args, args,
10027 complain, in_decl);
10028 --processing_template_decl;
10029 if (full_args == error_mark_node)
10030 RETURN (error_mark_node);
10032 /* If this is a default template template argument,
10033 tsubst might not have changed anything. */
10034 if (full_args == tmpl_args)
10035 RETURN (t);
10037 hash = hash_tmpl_and_args (t, full_args);
10038 spec = retrieve_specialization (t, full_args, hash);
10039 if (spec != NULL_TREE)
10041 r = spec;
10042 break;
10045 /* Make a new template decl. It will be similar to the
10046 original, but will record the current template arguments.
10047 We also create a new function declaration, which is just
10048 like the old one, but points to this new template, rather
10049 than the old one. */
10050 r = copy_decl (t);
10051 gcc_assert (DECL_LANG_SPECIFIC (r) != 0);
10052 DECL_CHAIN (r) = NULL_TREE;
10054 DECL_TEMPLATE_INFO (r) = build_template_info (t, args);
10056 if (TREE_CODE (decl) == TYPE_DECL
10057 && !TYPE_DECL_ALIAS_P (decl))
10059 tree new_type;
10060 ++processing_template_decl;
10061 new_type = tsubst (TREE_TYPE (t), args, complain, in_decl);
10062 --processing_template_decl;
10063 if (new_type == error_mark_node)
10064 RETURN (error_mark_node);
10066 TREE_TYPE (r) = new_type;
10067 CLASSTYPE_TI_TEMPLATE (new_type) = r;
10068 DECL_TEMPLATE_RESULT (r) = TYPE_MAIN_DECL (new_type);
10069 DECL_TI_ARGS (r) = CLASSTYPE_TI_ARGS (new_type);
10070 DECL_CONTEXT (r) = TYPE_CONTEXT (new_type);
10072 else
10074 tree new_decl;
10075 ++processing_template_decl;
10076 new_decl = tsubst (decl, args, complain, in_decl);
10077 --processing_template_decl;
10078 if (new_decl == error_mark_node)
10079 RETURN (error_mark_node);
10081 DECL_TEMPLATE_RESULT (r) = new_decl;
10082 DECL_TI_TEMPLATE (new_decl) = r;
10083 TREE_TYPE (r) = TREE_TYPE (new_decl);
10084 DECL_TI_ARGS (r) = DECL_TI_ARGS (new_decl);
10085 DECL_CONTEXT (r) = DECL_CONTEXT (new_decl);
10088 SET_DECL_IMPLICIT_INSTANTIATION (r);
10089 DECL_TEMPLATE_INSTANTIATIONS (r) = NULL_TREE;
10090 DECL_TEMPLATE_SPECIALIZATIONS (r) = NULL_TREE;
10092 /* The template parameters for this new template are all the
10093 template parameters for the old template, except the
10094 outermost level of parameters. */
10095 DECL_TEMPLATE_PARMS (r)
10096 = tsubst_template_parms (DECL_TEMPLATE_PARMS (t), args,
10097 complain);
10099 if (PRIMARY_TEMPLATE_P (t))
10100 DECL_PRIMARY_TEMPLATE (r) = r;
10102 if (TREE_CODE (decl) != TYPE_DECL)
10103 /* Record this non-type partial instantiation. */
10104 register_specialization (r, t,
10105 DECL_TI_ARGS (DECL_TEMPLATE_RESULT (r)),
10106 false, hash);
10108 break;
10110 case FUNCTION_DECL:
10112 tree ctx;
10113 tree argvec = NULL_TREE;
10114 tree *friends;
10115 tree gen_tmpl;
10116 tree type;
10117 int member;
10118 int args_depth;
10119 int parms_depth;
10121 /* Nobody should be tsubst'ing into non-template functions. */
10122 gcc_assert (DECL_TEMPLATE_INFO (t) != NULL_TREE);
10124 if (TREE_CODE (DECL_TI_TEMPLATE (t)) == TEMPLATE_DECL)
10126 tree spec;
10127 bool dependent_p;
10129 /* If T is not dependent, just return it. We have to
10130 increment PROCESSING_TEMPLATE_DECL because
10131 value_dependent_expression_p assumes that nothing is
10132 dependent when PROCESSING_TEMPLATE_DECL is zero. */
10133 ++processing_template_decl;
10134 dependent_p = value_dependent_expression_p (t);
10135 --processing_template_decl;
10136 if (!dependent_p)
10137 RETURN (t);
10139 /* Calculate the most general template of which R is a
10140 specialization, and the complete set of arguments used to
10141 specialize R. */
10142 gen_tmpl = most_general_template (DECL_TI_TEMPLATE (t));
10143 argvec = tsubst_template_args (DECL_TI_ARGS
10144 (DECL_TEMPLATE_RESULT
10145 (DECL_TI_TEMPLATE (t))),
10146 args, complain, in_decl);
10147 if (argvec == error_mark_node)
10148 RETURN (error_mark_node);
10150 /* Check to see if we already have this specialization. */
10151 hash = hash_tmpl_and_args (gen_tmpl, argvec);
10152 spec = retrieve_specialization (gen_tmpl, argvec, hash);
10154 if (spec)
10156 r = spec;
10157 break;
10160 /* We can see more levels of arguments than parameters if
10161 there was a specialization of a member template, like
10162 this:
10164 template <class T> struct S { template <class U> void f(); }
10165 template <> template <class U> void S<int>::f(U);
10167 Here, we'll be substituting into the specialization,
10168 because that's where we can find the code we actually
10169 want to generate, but we'll have enough arguments for
10170 the most general template.
10172 We also deal with the peculiar case:
10174 template <class T> struct S {
10175 template <class U> friend void f();
10177 template <class U> void f() {}
10178 template S<int>;
10179 template void f<double>();
10181 Here, the ARGS for the instantiation of will be {int,
10182 double}. But, we only need as many ARGS as there are
10183 levels of template parameters in CODE_PATTERN. We are
10184 careful not to get fooled into reducing the ARGS in
10185 situations like:
10187 template <class T> struct S { template <class U> void f(U); }
10188 template <class T> template <> void S<T>::f(int) {}
10190 which we can spot because the pattern will be a
10191 specialization in this case. */
10192 args_depth = TMPL_ARGS_DEPTH (args);
10193 parms_depth =
10194 TMPL_PARMS_DEPTH (DECL_TEMPLATE_PARMS (DECL_TI_TEMPLATE (t)));
10195 if (args_depth > parms_depth
10196 && !DECL_TEMPLATE_SPECIALIZATION (t))
10197 args = get_innermost_template_args (args, parms_depth);
10199 else
10201 /* This special case arises when we have something like this:
10203 template <class T> struct S {
10204 friend void f<int>(int, double);
10207 Here, the DECL_TI_TEMPLATE for the friend declaration
10208 will be an IDENTIFIER_NODE. We are being called from
10209 tsubst_friend_function, and we want only to create a
10210 new decl (R) with appropriate types so that we can call
10211 determine_specialization. */
10212 gen_tmpl = NULL_TREE;
10215 if (DECL_CLASS_SCOPE_P (t))
10217 if (DECL_NAME (t) == constructor_name (DECL_CONTEXT (t)))
10218 member = 2;
10219 else
10220 member = 1;
10221 ctx = tsubst_aggr_type (DECL_CONTEXT (t), args,
10222 complain, t, /*entering_scope=*/1);
10224 else
10226 member = 0;
10227 ctx = DECL_CONTEXT (t);
10229 type = tsubst (TREE_TYPE (t), args, complain, in_decl);
10230 if (type == error_mark_node)
10231 RETURN (error_mark_node);
10233 /* If we hit excessive deduction depth, the type is bogus even if
10234 it isn't error_mark_node, so don't build a decl. */
10235 if (excessive_deduction_depth)
10236 RETURN (error_mark_node);
10238 /* We do NOT check for matching decls pushed separately at this
10239 point, as they may not represent instantiations of this
10240 template, and in any case are considered separate under the
10241 discrete model. */
10242 r = copy_decl (t);
10243 DECL_USE_TEMPLATE (r) = 0;
10244 TREE_TYPE (r) = type;
10245 /* Clear out the mangled name and RTL for the instantiation. */
10246 SET_DECL_ASSEMBLER_NAME (r, NULL_TREE);
10247 SET_DECL_RTL (r, NULL);
10248 /* Leave DECL_INITIAL set on deleted instantiations. */
10249 if (!DECL_DELETED_FN (r))
10250 DECL_INITIAL (r) = NULL_TREE;
10251 DECL_CONTEXT (r) = ctx;
10253 if (member && DECL_CONV_FN_P (r))
10254 /* Type-conversion operator. Reconstruct the name, in
10255 case it's the name of one of the template's parameters. */
10256 DECL_NAME (r) = mangle_conv_op_name_for_type (TREE_TYPE (type));
10258 DECL_ARGUMENTS (r) = tsubst (DECL_ARGUMENTS (t), args,
10259 complain, t);
10260 DECL_RESULT (r) = NULL_TREE;
10262 TREE_STATIC (r) = 0;
10263 TREE_PUBLIC (r) = TREE_PUBLIC (t);
10264 DECL_EXTERNAL (r) = 1;
10265 /* If this is an instantiation of a function with internal
10266 linkage, we already know what object file linkage will be
10267 assigned to the instantiation. */
10268 DECL_INTERFACE_KNOWN (r) = !TREE_PUBLIC (r);
10269 DECL_DEFER_OUTPUT (r) = 0;
10270 DECL_CHAIN (r) = NULL_TREE;
10271 DECL_PENDING_INLINE_INFO (r) = 0;
10272 DECL_PENDING_INLINE_P (r) = 0;
10273 DECL_SAVED_TREE (r) = NULL_TREE;
10274 DECL_STRUCT_FUNCTION (r) = NULL;
10275 TREE_USED (r) = 0;
10276 /* We'll re-clone as appropriate in instantiate_template. */
10277 DECL_CLONED_FUNCTION (r) = NULL_TREE;
10279 /* If we aren't complaining now, return on error before we register
10280 the specialization so that we'll complain eventually. */
10281 if ((complain & tf_error) == 0
10282 && IDENTIFIER_OPNAME_P (DECL_NAME (r))
10283 && !grok_op_properties (r, /*complain=*/false))
10284 RETURN (error_mark_node);
10286 /* Set up the DECL_TEMPLATE_INFO for R. There's no need to do
10287 this in the special friend case mentioned above where
10288 GEN_TMPL is NULL. */
10289 if (gen_tmpl)
10291 DECL_TEMPLATE_INFO (r)
10292 = build_template_info (gen_tmpl, argvec);
10293 SET_DECL_IMPLICIT_INSTANTIATION (r);
10294 register_specialization (r, gen_tmpl, argvec, false, hash);
10296 /* We're not supposed to instantiate default arguments
10297 until they are called, for a template. But, for a
10298 declaration like:
10300 template <class T> void f ()
10301 { extern void g(int i = T()); }
10303 we should do the substitution when the template is
10304 instantiated. We handle the member function case in
10305 instantiate_class_template since the default arguments
10306 might refer to other members of the class. */
10307 if (!member
10308 && !PRIMARY_TEMPLATE_P (gen_tmpl)
10309 && !uses_template_parms (argvec))
10310 tsubst_default_arguments (r, complain);
10312 else
10313 DECL_TEMPLATE_INFO (r) = NULL_TREE;
10315 /* Copy the list of befriending classes. */
10316 for (friends = &DECL_BEFRIENDING_CLASSES (r);
10317 *friends;
10318 friends = &TREE_CHAIN (*friends))
10320 *friends = copy_node (*friends);
10321 TREE_VALUE (*friends) = tsubst (TREE_VALUE (*friends),
10322 args, complain,
10323 in_decl);
10326 if (DECL_CONSTRUCTOR_P (r) || DECL_DESTRUCTOR_P (r))
10328 maybe_retrofit_in_chrg (r);
10329 if (DECL_CONSTRUCTOR_P (r))
10330 grok_ctor_properties (ctx, r);
10331 if (DECL_INHERITED_CTOR_BASE (r))
10332 deduce_inheriting_ctor (r);
10333 /* If this is an instantiation of a member template, clone it.
10334 If it isn't, that'll be handled by
10335 clone_constructors_and_destructors. */
10336 if (PRIMARY_TEMPLATE_P (gen_tmpl))
10337 clone_function_decl (r, /*update_method_vec_p=*/0);
10339 else if ((complain & tf_error) != 0
10340 && IDENTIFIER_OPNAME_P (DECL_NAME (r))
10341 && !grok_op_properties (r, /*complain=*/true))
10342 RETURN (error_mark_node);
10344 if (DECL_FRIEND_P (t) && DECL_FRIEND_CONTEXT (t))
10345 SET_DECL_FRIEND_CONTEXT (r,
10346 tsubst (DECL_FRIEND_CONTEXT (t),
10347 args, complain, in_decl));
10349 /* Possibly limit visibility based on template args. */
10350 DECL_VISIBILITY (r) = VISIBILITY_DEFAULT;
10351 if (DECL_VISIBILITY_SPECIFIED (t))
10353 DECL_VISIBILITY_SPECIFIED (r) = 0;
10354 DECL_ATTRIBUTES (r)
10355 = remove_attribute ("visibility", DECL_ATTRIBUTES (r));
10357 determine_visibility (r);
10358 if (DECL_DEFAULTED_OUTSIDE_CLASS_P (r)
10359 && !processing_template_decl)
10360 defaulted_late_check (r);
10362 apply_late_template_attributes (&r, DECL_ATTRIBUTES (r), 0,
10363 args, complain, in_decl);
10365 break;
10367 case PARM_DECL:
10369 tree type = NULL_TREE;
10370 int i, len = 1;
10371 tree expanded_types = NULL_TREE;
10372 tree prev_r = NULL_TREE;
10373 tree first_r = NULL_TREE;
10375 if (FUNCTION_PARAMETER_PACK_P (t))
10377 /* If there is a local specialization that isn't a
10378 parameter pack, it means that we're doing a "simple"
10379 substitution from inside tsubst_pack_expansion. Just
10380 return the local specialization (which will be a single
10381 parm). */
10382 tree spec = retrieve_local_specialization (t);
10383 if (spec
10384 && TREE_CODE (spec) == PARM_DECL
10385 && TREE_CODE (TREE_TYPE (spec)) != TYPE_PACK_EXPANSION)
10386 RETURN (spec);
10388 /* Expand the TYPE_PACK_EXPANSION that provides the types for
10389 the parameters in this function parameter pack. */
10390 expanded_types = tsubst_pack_expansion (TREE_TYPE (t), args,
10391 complain, in_decl);
10392 if (TREE_CODE (expanded_types) == TREE_VEC)
10394 len = TREE_VEC_LENGTH (expanded_types);
10396 /* Zero-length parameter packs are boring. Just substitute
10397 into the chain. */
10398 if (len == 0)
10399 RETURN (tsubst (TREE_CHAIN (t), args, complain,
10400 TREE_CHAIN (t)));
10402 else
10404 /* All we did was update the type. Make a note of that. */
10405 type = expanded_types;
10406 expanded_types = NULL_TREE;
10410 /* Loop through all of the parameter's we'll build. When T is
10411 a function parameter pack, LEN is the number of expanded
10412 types in EXPANDED_TYPES; otherwise, LEN is 1. */
10413 r = NULL_TREE;
10414 for (i = 0; i < len; ++i)
10416 prev_r = r;
10417 r = copy_node (t);
10418 if (DECL_TEMPLATE_PARM_P (t))
10419 SET_DECL_TEMPLATE_PARM_P (r);
10421 if (expanded_types)
10422 /* We're on the Ith parameter of the function parameter
10423 pack. */
10425 /* An argument of a function parameter pack is not a parameter
10426 pack. */
10427 FUNCTION_PARAMETER_PACK_P (r) = false;
10429 /* Get the Ith type. */
10430 type = TREE_VEC_ELT (expanded_types, i);
10432 /* Rename the parameter to include the index. */
10433 DECL_NAME (r)
10434 = make_ith_pack_parameter_name (DECL_NAME (r), i);
10436 else if (!type)
10437 /* We're dealing with a normal parameter. */
10438 type = tsubst (TREE_TYPE (t), args, complain, in_decl);
10440 type = type_decays_to (type);
10441 TREE_TYPE (r) = type;
10442 cp_apply_type_quals_to_decl (cp_type_quals (type), r);
10444 if (DECL_INITIAL (r))
10446 if (TREE_CODE (DECL_INITIAL (r)) != TEMPLATE_PARM_INDEX)
10447 DECL_INITIAL (r) = TREE_TYPE (r);
10448 else
10449 DECL_INITIAL (r) = tsubst (DECL_INITIAL (r), args,
10450 complain, in_decl);
10453 DECL_CONTEXT (r) = NULL_TREE;
10455 if (!DECL_TEMPLATE_PARM_P (r))
10456 DECL_ARG_TYPE (r) = type_passed_as (type);
10458 apply_late_template_attributes (&r, DECL_ATTRIBUTES (r), 0,
10459 args, complain, in_decl);
10461 /* Keep track of the first new parameter we
10462 generate. That's what will be returned to the
10463 caller. */
10464 if (!first_r)
10465 first_r = r;
10467 /* Build a proper chain of parameters when substituting
10468 into a function parameter pack. */
10469 if (prev_r)
10470 DECL_CHAIN (prev_r) = r;
10473 /* If cp_unevaluated_operand is set, we're just looking for a
10474 single dummy parameter, so don't keep going. */
10475 if (DECL_CHAIN (t) && !cp_unevaluated_operand)
10476 DECL_CHAIN (r) = tsubst (DECL_CHAIN (t), args,
10477 complain, DECL_CHAIN (t));
10479 /* FIRST_R contains the start of the chain we've built. */
10480 r = first_r;
10482 break;
10484 case FIELD_DECL:
10486 tree type;
10488 r = copy_decl (t);
10489 type = tsubst (TREE_TYPE (t), args, complain, in_decl);
10490 if (type == error_mark_node)
10491 RETURN (error_mark_node);
10492 TREE_TYPE (r) = type;
10493 cp_apply_type_quals_to_decl (cp_type_quals (type), r);
10495 if (DECL_C_BIT_FIELD (r))
10496 /* For bit-fields, DECL_INITIAL gives the number of bits. For
10497 non-bit-fields DECL_INITIAL is a non-static data member
10498 initializer, which gets deferred instantiation. */
10499 DECL_INITIAL (r)
10500 = tsubst_expr (DECL_INITIAL (t), args,
10501 complain, in_decl,
10502 /*integral_constant_expression_p=*/true);
10503 else if (DECL_INITIAL (t))
10505 /* Set up DECL_TEMPLATE_INFO so that we can get at the
10506 NSDMI in perform_member_init. Still set DECL_INITIAL
10507 so that we know there is one. */
10508 DECL_INITIAL (r) = void_zero_node;
10509 gcc_assert (DECL_LANG_SPECIFIC (r) == NULL);
10510 retrofit_lang_decl (r);
10511 DECL_TEMPLATE_INFO (r) = build_template_info (t, args);
10513 /* We don't have to set DECL_CONTEXT here; it is set by
10514 finish_member_declaration. */
10515 DECL_CHAIN (r) = NULL_TREE;
10516 if (VOID_TYPE_P (type))
10517 error ("instantiation of %q+D as type %qT", r, type);
10519 apply_late_template_attributes (&r, DECL_ATTRIBUTES (r), 0,
10520 args, complain, in_decl);
10522 break;
10524 case USING_DECL:
10525 /* We reach here only for member using decls. We also need to check
10526 uses_template_parms because DECL_DEPENDENT_P is not set for a
10527 using-declaration that designates a member of the current
10528 instantiation (c++/53549). */
10529 if (DECL_DEPENDENT_P (t)
10530 || uses_template_parms (USING_DECL_SCOPE (t)))
10532 tree inst_scope = tsubst_copy (USING_DECL_SCOPE (t), args,
10533 complain, in_decl);
10534 tree name = tsubst_copy (DECL_NAME (t), args, complain, in_decl);
10535 r = do_class_using_decl (inst_scope, name);
10536 if (!r)
10537 r = error_mark_node;
10538 else
10540 TREE_PROTECTED (r) = TREE_PROTECTED (t);
10541 TREE_PRIVATE (r) = TREE_PRIVATE (t);
10544 else
10546 r = copy_node (t);
10547 DECL_CHAIN (r) = NULL_TREE;
10549 break;
10551 case TYPE_DECL:
10552 case VAR_DECL:
10554 tree argvec = NULL_TREE;
10555 tree gen_tmpl = NULL_TREE;
10556 tree spec;
10557 tree tmpl = NULL_TREE;
10558 tree ctx;
10559 tree type = NULL_TREE;
10560 bool local_p;
10562 if (TREE_CODE (t) == TYPE_DECL
10563 && t == TYPE_MAIN_DECL (TREE_TYPE (t)))
10565 /* If this is the canonical decl, we don't have to
10566 mess with instantiations, and often we can't (for
10567 typename, template type parms and such). Note that
10568 TYPE_NAME is not correct for the above test if
10569 we've copied the type for a typedef. */
10570 type = tsubst (TREE_TYPE (t), args, complain, in_decl);
10571 if (type == error_mark_node)
10572 RETURN (error_mark_node);
10573 r = TYPE_NAME (type);
10574 break;
10577 /* Check to see if we already have the specialization we
10578 need. */
10579 spec = NULL_TREE;
10580 if (DECL_CLASS_SCOPE_P (t) || DECL_NAMESPACE_SCOPE_P (t))
10582 /* T is a static data member or namespace-scope entity.
10583 We have to substitute into namespace-scope variables
10584 (even though such entities are never templates) because
10585 of cases like:
10587 template <class T> void f() { extern T t; }
10589 where the entity referenced is not known until
10590 instantiation time. */
10591 local_p = false;
10592 ctx = DECL_CONTEXT (t);
10593 if (DECL_CLASS_SCOPE_P (t))
10595 ctx = tsubst_aggr_type (ctx, args,
10596 complain,
10597 in_decl, /*entering_scope=*/1);
10598 /* If CTX is unchanged, then T is in fact the
10599 specialization we want. That situation occurs when
10600 referencing a static data member within in its own
10601 class. We can use pointer equality, rather than
10602 same_type_p, because DECL_CONTEXT is always
10603 canonical... */
10604 if (ctx == DECL_CONTEXT (t)
10605 && (TREE_CODE (t) != TYPE_DECL
10606 /* ... unless T is a member template; in which
10607 case our caller can be willing to create a
10608 specialization of that template represented
10609 by T. */
10610 || !(DECL_TI_TEMPLATE (t)
10611 && DECL_MEMBER_TEMPLATE_P (DECL_TI_TEMPLATE (t)))))
10612 spec = t;
10615 if (!spec)
10617 tmpl = DECL_TI_TEMPLATE (t);
10618 gen_tmpl = most_general_template (tmpl);
10619 argvec = tsubst (DECL_TI_ARGS (t), args, complain, in_decl);
10620 if (argvec == error_mark_node)
10621 RETURN (error_mark_node);
10622 hash = hash_tmpl_and_args (gen_tmpl, argvec);
10623 spec = retrieve_specialization (gen_tmpl, argvec, hash);
10626 else
10628 /* A local variable. */
10629 local_p = true;
10630 /* Subsequent calls to pushdecl will fill this in. */
10631 ctx = NULL_TREE;
10632 spec = retrieve_local_specialization (t);
10634 /* If we already have the specialization we need, there is
10635 nothing more to do. */
10636 if (spec)
10638 r = spec;
10639 break;
10642 if (TREE_CODE (t) == VAR_DECL && DECL_ANON_UNION_VAR_P (t))
10644 /* Just use name lookup to find a member alias for an anonymous
10645 union, but then add it to the hash table. */
10646 r = lookup_name (DECL_NAME (t));
10647 gcc_assert (DECL_ANON_UNION_VAR_P (r));
10648 register_local_specialization (r, t);
10649 break;
10652 /* Create a new node for the specialization we need. */
10653 r = copy_decl (t);
10654 if (type == NULL_TREE)
10656 if (is_typedef_decl (t))
10657 type = DECL_ORIGINAL_TYPE (t);
10658 else
10659 type = TREE_TYPE (t);
10660 if (TREE_CODE (t) == VAR_DECL
10661 && VAR_HAD_UNKNOWN_BOUND (t)
10662 && type != error_mark_node)
10663 type = strip_array_domain (type);
10664 type = tsubst (type, args, complain, in_decl);
10666 if (TREE_CODE (r) == VAR_DECL)
10668 /* Even if the original location is out of scope, the
10669 newly substituted one is not. */
10670 DECL_DEAD_FOR_LOCAL (r) = 0;
10671 DECL_INITIALIZED_P (r) = 0;
10672 DECL_TEMPLATE_INSTANTIATED (r) = 0;
10673 if (type == error_mark_node)
10674 RETURN (error_mark_node);
10675 if (TREE_CODE (type) == FUNCTION_TYPE)
10677 /* It may seem that this case cannot occur, since:
10679 typedef void f();
10680 void g() { f x; }
10682 declares a function, not a variable. However:
10684 typedef void f();
10685 template <typename T> void g() { T t; }
10686 template void g<f>();
10688 is an attempt to declare a variable with function
10689 type. */
10690 error ("variable %qD has function type",
10691 /* R is not yet sufficiently initialized, so we
10692 just use its name. */
10693 DECL_NAME (r));
10694 RETURN (error_mark_node);
10696 type = complete_type (type);
10697 /* Wait until cp_finish_decl to set this again, to handle
10698 circular dependency (template/instantiate6.C). */
10699 DECL_INITIALIZED_BY_CONSTANT_EXPRESSION_P (r) = 0;
10700 type = check_var_type (DECL_NAME (r), type);
10702 if (DECL_HAS_VALUE_EXPR_P (t))
10704 tree ve = DECL_VALUE_EXPR (t);
10705 ve = tsubst_expr (ve, args, complain, in_decl,
10706 /*constant_expression_p=*/false);
10707 if (REFERENCE_REF_P (ve))
10709 gcc_assert (TREE_CODE (type) == REFERENCE_TYPE);
10710 ve = TREE_OPERAND (ve, 0);
10712 SET_DECL_VALUE_EXPR (r, ve);
10715 else if (DECL_SELF_REFERENCE_P (t))
10716 SET_DECL_SELF_REFERENCE_P (r);
10717 TREE_TYPE (r) = type;
10718 cp_apply_type_quals_to_decl (cp_type_quals (type), r);
10719 DECL_CONTEXT (r) = ctx;
10720 /* Clear out the mangled name and RTL for the instantiation. */
10721 SET_DECL_ASSEMBLER_NAME (r, NULL_TREE);
10722 if (CODE_CONTAINS_STRUCT (TREE_CODE (t), TS_DECL_WRTL))
10723 SET_DECL_RTL (r, NULL);
10724 /* The initializer must not be expanded until it is required;
10725 see [temp.inst]. */
10726 DECL_INITIAL (r) = NULL_TREE;
10727 if (CODE_CONTAINS_STRUCT (TREE_CODE (t), TS_DECL_WRTL))
10728 SET_DECL_RTL (r, NULL);
10729 DECL_SIZE (r) = DECL_SIZE_UNIT (r) = 0;
10730 if (TREE_CODE (r) == VAR_DECL)
10732 /* Possibly limit visibility based on template args. */
10733 DECL_VISIBILITY (r) = VISIBILITY_DEFAULT;
10734 if (DECL_VISIBILITY_SPECIFIED (t))
10736 DECL_VISIBILITY_SPECIFIED (r) = 0;
10737 DECL_ATTRIBUTES (r)
10738 = remove_attribute ("visibility", DECL_ATTRIBUTES (r));
10740 determine_visibility (r);
10743 if (!local_p)
10745 /* A static data member declaration is always marked
10746 external when it is declared in-class, even if an
10747 initializer is present. We mimic the non-template
10748 processing here. */
10749 DECL_EXTERNAL (r) = 1;
10751 register_specialization (r, gen_tmpl, argvec, false, hash);
10752 DECL_TEMPLATE_INFO (r) = build_template_info (tmpl, argvec);
10753 SET_DECL_IMPLICIT_INSTANTIATION (r);
10755 else if (cp_unevaluated_operand)
10757 /* We're substituting this var in a decltype outside of its
10758 scope, such as for a lambda return type. Don't add it to
10759 local_specializations, do perform auto deduction. */
10760 tree auto_node = type_uses_auto (type);
10761 if (auto_node)
10763 tree init
10764 = tsubst_expr (DECL_INITIAL (t), args, complain, in_decl,
10765 /*constant_expression_p=*/false);
10766 init = resolve_nondeduced_context (init);
10767 TREE_TYPE (r) = type
10768 = do_auto_deduction (type, init, auto_node);
10771 else
10772 register_local_specialization (r, t);
10774 DECL_CHAIN (r) = NULL_TREE;
10776 apply_late_template_attributes (&r, DECL_ATTRIBUTES (r),
10777 /*flags=*/0,
10778 args, complain, in_decl);
10780 /* Preserve a typedef that names a type. */
10781 if (is_typedef_decl (r))
10783 DECL_ORIGINAL_TYPE (r) = NULL_TREE;
10784 set_underlying_type (r);
10787 layout_decl (r, 0);
10789 break;
10791 default:
10792 gcc_unreachable ();
10794 #undef RETURN
10796 out:
10797 /* Restore the file and line information. */
10798 input_location = saved_loc;
10800 return r;
10803 /* Substitute into the ARG_TYPES of a function type.
10804 If END is a TREE_CHAIN, leave it and any following types
10805 un-substituted. */
10807 static tree
10808 tsubst_arg_types (tree arg_types,
10809 tree args,
10810 tree end,
10811 tsubst_flags_t complain,
10812 tree in_decl)
10814 tree remaining_arg_types;
10815 tree type = NULL_TREE;
10816 int i = 1;
10817 tree expanded_args = NULL_TREE;
10818 tree default_arg;
10820 if (!arg_types || arg_types == void_list_node || arg_types == end)
10821 return arg_types;
10823 remaining_arg_types = tsubst_arg_types (TREE_CHAIN (arg_types),
10824 args, end, complain, in_decl);
10825 if (remaining_arg_types == error_mark_node)
10826 return error_mark_node;
10828 if (PACK_EXPANSION_P (TREE_VALUE (arg_types)))
10830 /* For a pack expansion, perform substitution on the
10831 entire expression. Later on, we'll handle the arguments
10832 one-by-one. */
10833 expanded_args = tsubst_pack_expansion (TREE_VALUE (arg_types),
10834 args, complain, in_decl);
10836 if (TREE_CODE (expanded_args) == TREE_VEC)
10837 /* So that we'll spin through the parameters, one by one. */
10838 i = TREE_VEC_LENGTH (expanded_args);
10839 else
10841 /* We only partially substituted into the parameter
10842 pack. Our type is TYPE_PACK_EXPANSION. */
10843 type = expanded_args;
10844 expanded_args = NULL_TREE;
10848 while (i > 0) {
10849 --i;
10851 if (expanded_args)
10852 type = TREE_VEC_ELT (expanded_args, i);
10853 else if (!type)
10854 type = tsubst (TREE_VALUE (arg_types), args, complain, in_decl);
10856 if (type == error_mark_node)
10857 return error_mark_node;
10858 if (VOID_TYPE_P (type))
10860 if (complain & tf_error)
10862 error ("invalid parameter type %qT", type);
10863 if (in_decl)
10864 error ("in declaration %q+D", in_decl);
10866 return error_mark_node;
10868 /* DR 657. */
10869 if (abstract_virtuals_error_sfinae (NULL_TREE, type, complain))
10870 return error_mark_node;
10872 /* Do array-to-pointer, function-to-pointer conversion, and ignore
10873 top-level qualifiers as required. */
10874 type = cv_unqualified (type_decays_to (type));
10876 /* We do not substitute into default arguments here. The standard
10877 mandates that they be instantiated only when needed, which is
10878 done in build_over_call. */
10879 default_arg = TREE_PURPOSE (arg_types);
10881 if (default_arg && TREE_CODE (default_arg) == DEFAULT_ARG)
10883 /* We've instantiated a template before its default arguments
10884 have been parsed. This can happen for a nested template
10885 class, and is not an error unless we require the default
10886 argument in a call of this function. */
10887 remaining_arg_types =
10888 tree_cons (default_arg, type, remaining_arg_types);
10889 vec_safe_push (DEFARG_INSTANTIATIONS(default_arg), remaining_arg_types);
10891 else
10892 remaining_arg_types =
10893 hash_tree_cons (default_arg, type, remaining_arg_types);
10896 return remaining_arg_types;
10899 /* Substitute into a FUNCTION_TYPE or METHOD_TYPE. This routine does
10900 *not* handle the exception-specification for FNTYPE, because the
10901 initial substitution of explicitly provided template parameters
10902 during argument deduction forbids substitution into the
10903 exception-specification:
10905 [temp.deduct]
10907 All references in the function type of the function template to the
10908 corresponding template parameters are replaced by the specified tem-
10909 plate argument values. If a substitution in a template parameter or
10910 in the function type of the function template results in an invalid
10911 type, type deduction fails. [Note: The equivalent substitution in
10912 exception specifications is done only when the function is instanti-
10913 ated, at which point a program is ill-formed if the substitution
10914 results in an invalid type.] */
10916 static tree
10917 tsubst_function_type (tree t,
10918 tree args,
10919 tsubst_flags_t complain,
10920 tree in_decl)
10922 tree return_type;
10923 tree arg_types;
10924 tree fntype;
10926 /* The TYPE_CONTEXT is not used for function/method types. */
10927 gcc_assert (TYPE_CONTEXT (t) == NULL_TREE);
10929 /* Substitute the return type. */
10930 return_type = tsubst (TREE_TYPE (t), args, complain, in_decl);
10931 if (return_type == error_mark_node)
10932 return error_mark_node;
10933 /* DR 486 clarifies that creation of a function type with an
10934 invalid return type is a deduction failure. */
10935 if (TREE_CODE (return_type) == ARRAY_TYPE
10936 || TREE_CODE (return_type) == FUNCTION_TYPE)
10938 if (complain & tf_error)
10940 if (TREE_CODE (return_type) == ARRAY_TYPE)
10941 error ("function returning an array");
10942 else
10943 error ("function returning a function");
10945 return error_mark_node;
10947 /* And DR 657. */
10948 if (abstract_virtuals_error_sfinae (NULL_TREE, return_type, complain))
10949 return error_mark_node;
10951 /* Substitute the argument types. */
10952 arg_types = tsubst_arg_types (TYPE_ARG_TYPES (t), args, NULL_TREE,
10953 complain, in_decl);
10954 if (arg_types == error_mark_node)
10955 return error_mark_node;
10957 /* Construct a new type node and return it. */
10958 if (TREE_CODE (t) == FUNCTION_TYPE)
10960 fntype = build_function_type (return_type, arg_types);
10961 fntype = apply_memfn_quals (fntype,
10962 type_memfn_quals (t),
10963 type_memfn_rqual (t));
10965 else
10967 tree r = TREE_TYPE (TREE_VALUE (arg_types));
10968 if (! MAYBE_CLASS_TYPE_P (r))
10970 /* [temp.deduct]
10972 Type deduction may fail for any of the following
10973 reasons:
10975 -- Attempting to create "pointer to member of T" when T
10976 is not a class type. */
10977 if (complain & tf_error)
10978 error ("creating pointer to member function of non-class type %qT",
10980 return error_mark_node;
10983 fntype = build_method_type_directly (r, return_type,
10984 TREE_CHAIN (arg_types));
10985 fntype = build_ref_qualified_type (fntype, type_memfn_rqual (t));
10987 fntype = cp_build_type_attribute_variant (fntype, TYPE_ATTRIBUTES (t));
10989 return fntype;
10992 /* FNTYPE is a FUNCTION_TYPE or METHOD_TYPE. Substitute the template
10993 ARGS into that specification, and return the substituted
10994 specification. If there is no specification, return NULL_TREE. */
10996 static tree
10997 tsubst_exception_specification (tree fntype,
10998 tree args,
10999 tsubst_flags_t complain,
11000 tree in_decl,
11001 bool defer_ok)
11003 tree specs;
11004 tree new_specs;
11006 specs = TYPE_RAISES_EXCEPTIONS (fntype);
11007 new_specs = NULL_TREE;
11008 if (specs && TREE_PURPOSE (specs))
11010 /* A noexcept-specifier. */
11011 tree expr = TREE_PURPOSE (specs);
11012 if (TREE_CODE (expr) == INTEGER_CST)
11013 new_specs = expr;
11014 else if (defer_ok)
11016 /* Defer instantiation of noexcept-specifiers to avoid
11017 excessive instantiations (c++/49107). */
11018 new_specs = make_node (DEFERRED_NOEXCEPT);
11019 if (DEFERRED_NOEXCEPT_SPEC_P (specs))
11021 /* We already partially instantiated this member template,
11022 so combine the new args with the old. */
11023 DEFERRED_NOEXCEPT_PATTERN (new_specs)
11024 = DEFERRED_NOEXCEPT_PATTERN (expr);
11025 DEFERRED_NOEXCEPT_ARGS (new_specs)
11026 = add_to_template_args (DEFERRED_NOEXCEPT_ARGS (expr), args);
11028 else
11030 DEFERRED_NOEXCEPT_PATTERN (new_specs) = expr;
11031 DEFERRED_NOEXCEPT_ARGS (new_specs) = args;
11034 else
11035 new_specs = tsubst_copy_and_build
11036 (expr, args, complain, in_decl, /*function_p=*/false,
11037 /*integral_constant_expression_p=*/true);
11038 new_specs = build_noexcept_spec (new_specs, complain);
11040 else if (specs)
11042 if (! TREE_VALUE (specs))
11043 new_specs = specs;
11044 else
11045 while (specs)
11047 tree spec;
11048 int i, len = 1;
11049 tree expanded_specs = NULL_TREE;
11051 if (PACK_EXPANSION_P (TREE_VALUE (specs)))
11053 /* Expand the pack expansion type. */
11054 expanded_specs = tsubst_pack_expansion (TREE_VALUE (specs),
11055 args, complain,
11056 in_decl);
11058 if (expanded_specs == error_mark_node)
11059 return error_mark_node;
11060 else if (TREE_CODE (expanded_specs) == TREE_VEC)
11061 len = TREE_VEC_LENGTH (expanded_specs);
11062 else
11064 /* We're substituting into a member template, so
11065 we got a TYPE_PACK_EXPANSION back. Add that
11066 expansion and move on. */
11067 gcc_assert (TREE_CODE (expanded_specs)
11068 == TYPE_PACK_EXPANSION);
11069 new_specs = add_exception_specifier (new_specs,
11070 expanded_specs,
11071 complain);
11072 specs = TREE_CHAIN (specs);
11073 continue;
11077 for (i = 0; i < len; ++i)
11079 if (expanded_specs)
11080 spec = TREE_VEC_ELT (expanded_specs, i);
11081 else
11082 spec = tsubst (TREE_VALUE (specs), args, complain, in_decl);
11083 if (spec == error_mark_node)
11084 return spec;
11085 new_specs = add_exception_specifier (new_specs, spec,
11086 complain);
11089 specs = TREE_CHAIN (specs);
11092 return new_specs;
11095 /* Take the tree structure T and replace template parameters used
11096 therein with the argument vector ARGS. IN_DECL is an associated
11097 decl for diagnostics. If an error occurs, returns ERROR_MARK_NODE.
11098 Issue error and warning messages under control of COMPLAIN. Note
11099 that we must be relatively non-tolerant of extensions here, in
11100 order to preserve conformance; if we allow substitutions that
11101 should not be allowed, we may allow argument deductions that should
11102 not succeed, and therefore report ambiguous overload situations
11103 where there are none. In theory, we could allow the substitution,
11104 but indicate that it should have failed, and allow our caller to
11105 make sure that the right thing happens, but we don't try to do this
11106 yet.
11108 This function is used for dealing with types, decls and the like;
11109 for expressions, use tsubst_expr or tsubst_copy. */
11111 tree
11112 tsubst (tree t, tree args, tsubst_flags_t complain, tree in_decl)
11114 enum tree_code code;
11115 tree type, r = NULL_TREE;
11117 if (t == NULL_TREE || t == error_mark_node
11118 || t == integer_type_node
11119 || t == void_type_node
11120 || t == char_type_node
11121 || t == unknown_type_node
11122 || TREE_CODE (t) == NAMESPACE_DECL
11123 || TREE_CODE (t) == TRANSLATION_UNIT_DECL)
11124 return t;
11126 if (DECL_P (t))
11127 return tsubst_decl (t, args, complain);
11129 if (args == NULL_TREE)
11130 return t;
11132 code = TREE_CODE (t);
11134 if (code == IDENTIFIER_NODE)
11135 type = IDENTIFIER_TYPE_VALUE (t);
11136 else
11137 type = TREE_TYPE (t);
11139 gcc_assert (type != unknown_type_node);
11141 /* Reuse typedefs. We need to do this to handle dependent attributes,
11142 such as attribute aligned. */
11143 if (TYPE_P (t)
11144 && typedef_variant_p (t))
11146 tree decl = TYPE_NAME (t);
11148 if (alias_template_specialization_p (t))
11150 /* DECL represents an alias template and we want to
11151 instantiate it. */
11152 tree tmpl = most_general_template (DECL_TI_TEMPLATE (decl));
11153 tree gen_args = tsubst (DECL_TI_ARGS (decl), args, complain, in_decl);
11154 r = instantiate_alias_template (tmpl, gen_args, complain);
11156 else if (DECL_CLASS_SCOPE_P (decl)
11157 && CLASSTYPE_TEMPLATE_INFO (DECL_CONTEXT (decl))
11158 && uses_template_parms (DECL_CONTEXT (decl)))
11160 tree tmpl = most_general_template (DECL_TI_TEMPLATE (decl));
11161 tree gen_args = tsubst (DECL_TI_ARGS (decl), args, complain, in_decl);
11162 r = retrieve_specialization (tmpl, gen_args, 0);
11164 else if (DECL_FUNCTION_SCOPE_P (decl)
11165 && DECL_TEMPLATE_INFO (DECL_CONTEXT (decl))
11166 && uses_template_parms (DECL_TI_ARGS (DECL_CONTEXT (decl))))
11167 r = retrieve_local_specialization (decl);
11168 else
11169 /* The typedef is from a non-template context. */
11170 return t;
11172 if (r)
11174 r = TREE_TYPE (r);
11175 r = cp_build_qualified_type_real
11176 (r, cp_type_quals (t) | cp_type_quals (r),
11177 complain | tf_ignore_bad_quals);
11178 return r;
11180 else
11182 /* We don't have an instantiation yet, so drop the typedef. */
11183 int quals = cp_type_quals (t);
11184 t = DECL_ORIGINAL_TYPE (decl);
11185 t = cp_build_qualified_type_real (t, quals,
11186 complain | tf_ignore_bad_quals);
11190 if (type
11191 && code != TYPENAME_TYPE
11192 && code != TEMPLATE_TYPE_PARM
11193 && code != IDENTIFIER_NODE
11194 && code != FUNCTION_TYPE
11195 && code != METHOD_TYPE)
11196 type = tsubst (type, args, complain, in_decl);
11197 if (type == error_mark_node)
11198 return error_mark_node;
11200 switch (code)
11202 case RECORD_TYPE:
11203 case UNION_TYPE:
11204 case ENUMERAL_TYPE:
11205 return tsubst_aggr_type (t, args, complain, in_decl,
11206 /*entering_scope=*/0);
11208 case ERROR_MARK:
11209 case IDENTIFIER_NODE:
11210 case VOID_TYPE:
11211 case REAL_TYPE:
11212 case COMPLEX_TYPE:
11213 case VECTOR_TYPE:
11214 case BOOLEAN_TYPE:
11215 case NULLPTR_TYPE:
11216 case LANG_TYPE:
11217 return t;
11219 case INTEGER_TYPE:
11220 if (t == integer_type_node)
11221 return t;
11223 if (TREE_CODE (TYPE_MIN_VALUE (t)) == INTEGER_CST
11224 && TREE_CODE (TYPE_MAX_VALUE (t)) == INTEGER_CST)
11225 return t;
11228 tree max, omax = TREE_OPERAND (TYPE_MAX_VALUE (t), 0);
11230 max = tsubst_expr (omax, args, complain, in_decl,
11231 /*integral_constant_expression_p=*/false);
11233 /* Fix up type of the magic NOP_EXPR with TREE_SIDE_EFFECTS if
11234 needed. */
11235 if (TREE_CODE (max) == NOP_EXPR
11236 && TREE_SIDE_EFFECTS (omax)
11237 && !TREE_TYPE (max))
11238 TREE_TYPE (max) = TREE_TYPE (TREE_OPERAND (max, 0));
11240 /* If we're in a partial instantiation, preserve the magic NOP_EXPR
11241 with TREE_SIDE_EFFECTS that indicates this is not an integral
11242 constant expression. */
11243 if (processing_template_decl
11244 && TREE_SIDE_EFFECTS (omax) && TREE_CODE (omax) == NOP_EXPR)
11246 gcc_assert (TREE_CODE (max) == NOP_EXPR);
11247 TREE_SIDE_EFFECTS (max) = 1;
11250 return compute_array_index_type (NULL_TREE, max, complain);
11253 case TEMPLATE_TYPE_PARM:
11254 case TEMPLATE_TEMPLATE_PARM:
11255 case BOUND_TEMPLATE_TEMPLATE_PARM:
11256 case TEMPLATE_PARM_INDEX:
11258 int idx;
11259 int level;
11260 int levels;
11261 tree arg = NULL_TREE;
11263 r = NULL_TREE;
11265 gcc_assert (TREE_VEC_LENGTH (args) > 0);
11266 template_parm_level_and_index (t, &level, &idx);
11268 levels = TMPL_ARGS_DEPTH (args);
11269 if (level <= levels)
11271 arg = TMPL_ARG (args, level, idx);
11273 if (arg && TREE_CODE (arg) == ARGUMENT_PACK_SELECT)
11275 /* See through ARGUMENT_PACK_SELECT arguments. */
11276 arg = ARGUMENT_PACK_SELECT_ARG (arg);
11277 /* If the selected argument is an expansion E, that most
11278 likely means we were called from
11279 gen_elem_of_pack_expansion_instantiation during the
11280 substituting of pack an argument pack (which Ith
11281 element is a pack expansion, where I is
11282 ARGUMENT_PACK_SELECT_INDEX) into a pack expansion.
11283 In this case, the Ith element resulting from this
11284 substituting is going to be a pack expansion, which
11285 pattern is the pattern of E. Let's return the
11286 pattern of E, and
11287 gen_elem_of_pack_expansion_instantiation will
11288 build the resulting pack expansion from it. */
11289 if (PACK_EXPANSION_P (arg))
11290 arg = PACK_EXPANSION_PATTERN (arg);
11294 if (arg == error_mark_node)
11295 return error_mark_node;
11296 else if (arg != NULL_TREE)
11298 if (ARGUMENT_PACK_P (arg))
11299 /* If ARG is an argument pack, we don't actually want to
11300 perform a substitution here, because substitutions
11301 for argument packs are only done
11302 element-by-element. We can get to this point when
11303 substituting the type of a non-type template
11304 parameter pack, when that type actually contains
11305 template parameter packs from an outer template, e.g.,
11307 template<typename... Types> struct A {
11308 template<Types... Values> struct B { };
11309 }; */
11310 return t;
11312 if (code == TEMPLATE_TYPE_PARM)
11314 int quals;
11315 gcc_assert (TYPE_P (arg));
11317 quals = cp_type_quals (arg) | cp_type_quals (t);
11319 return cp_build_qualified_type_real
11320 (arg, quals, complain | tf_ignore_bad_quals);
11322 else if (code == BOUND_TEMPLATE_TEMPLATE_PARM)
11324 /* We are processing a type constructed from a
11325 template template parameter. */
11326 tree argvec = tsubst (TYPE_TI_ARGS (t),
11327 args, complain, in_decl);
11328 if (argvec == error_mark_node)
11329 return error_mark_node;
11331 gcc_assert (TREE_CODE (arg) == TEMPLATE_TEMPLATE_PARM
11332 || TREE_CODE (arg) == TEMPLATE_DECL
11333 || TREE_CODE (arg) == UNBOUND_CLASS_TEMPLATE);
11335 if (TREE_CODE (arg) == UNBOUND_CLASS_TEMPLATE)
11336 /* Consider this code:
11338 template <template <class> class Template>
11339 struct Internal {
11340 template <class Arg> using Bind = Template<Arg>;
11343 template <template <class> class Template, class Arg>
11344 using Instantiate = Template<Arg>; //#0
11346 template <template <class> class Template,
11347 class Argument>
11348 using Bind =
11349 Instantiate<Internal<Template>::template Bind,
11350 Argument>; //#1
11352 When #1 is parsed, the
11353 BOUND_TEMPLATE_TEMPLATE_PARM representing the
11354 parameter `Template' in #0 matches the
11355 UNBOUND_CLASS_TEMPLATE representing the argument
11356 `Internal<Template>::template Bind'; We then want
11357 to assemble the type `Bind<Argument>' that can't
11358 be fully created right now, because
11359 `Internal<Template>' not being complete, the Bind
11360 template cannot be looked up in that context. So
11361 we need to "store" `Bind<Argument>' for later
11362 when the context of Bind becomes complete. Let's
11363 store that in a TYPENAME_TYPE. */
11364 return make_typename_type (TYPE_CONTEXT (arg),
11365 build_nt (TEMPLATE_ID_EXPR,
11366 TYPE_IDENTIFIER (arg),
11367 argvec),
11368 typename_type,
11369 complain);
11371 /* We can get a TEMPLATE_TEMPLATE_PARM here when we
11372 are resolving nested-types in the signature of a
11373 member function templates. Otherwise ARG is a
11374 TEMPLATE_DECL and is the real template to be
11375 instantiated. */
11376 if (TREE_CODE (arg) == TEMPLATE_TEMPLATE_PARM)
11377 arg = TYPE_NAME (arg);
11379 r = lookup_template_class (arg,
11380 argvec, in_decl,
11381 DECL_CONTEXT (arg),
11382 /*entering_scope=*/0,
11383 complain);
11384 return cp_build_qualified_type_real
11385 (r, cp_type_quals (t), complain);
11387 else
11388 /* TEMPLATE_TEMPLATE_PARM or TEMPLATE_PARM_INDEX. */
11389 return convert_from_reference (unshare_expr (arg));
11392 if (level == 1)
11393 /* This can happen during the attempted tsubst'ing in
11394 unify. This means that we don't yet have any information
11395 about the template parameter in question. */
11396 return t;
11398 /* Early in template argument deduction substitution, we don't
11399 want to reduce the level of 'auto', or it will be confused
11400 with a normal template parm in subsequent deduction. */
11401 if (is_auto (t) && (complain & tf_partial))
11402 return t;
11404 /* If we get here, we must have been looking at a parm for a
11405 more deeply nested template. Make a new version of this
11406 template parameter, but with a lower level. */
11407 switch (code)
11409 case TEMPLATE_TYPE_PARM:
11410 case TEMPLATE_TEMPLATE_PARM:
11411 case BOUND_TEMPLATE_TEMPLATE_PARM:
11412 if (cp_type_quals (t))
11414 r = tsubst (TYPE_MAIN_VARIANT (t), args, complain, in_decl);
11415 r = cp_build_qualified_type_real
11416 (r, cp_type_quals (t),
11417 complain | (code == TEMPLATE_TYPE_PARM
11418 ? tf_ignore_bad_quals : 0));
11420 else
11422 r = copy_type (t);
11423 TEMPLATE_TYPE_PARM_INDEX (r)
11424 = reduce_template_parm_level (TEMPLATE_TYPE_PARM_INDEX (t),
11425 r, levels, args, complain);
11426 TYPE_STUB_DECL (r) = TYPE_NAME (r) = TEMPLATE_TYPE_DECL (r);
11427 TYPE_MAIN_VARIANT (r) = r;
11428 TYPE_POINTER_TO (r) = NULL_TREE;
11429 TYPE_REFERENCE_TO (r) = NULL_TREE;
11431 if (TREE_CODE (r) == TEMPLATE_TEMPLATE_PARM)
11432 /* We have reduced the level of the template
11433 template parameter, but not the levels of its
11434 template parameters, so canonical_type_parameter
11435 will not be able to find the canonical template
11436 template parameter for this level. Thus, we
11437 require structural equality checking to compare
11438 TEMPLATE_TEMPLATE_PARMs. */
11439 SET_TYPE_STRUCTURAL_EQUALITY (r);
11440 else if (TYPE_STRUCTURAL_EQUALITY_P (t))
11441 SET_TYPE_STRUCTURAL_EQUALITY (r);
11442 else
11443 TYPE_CANONICAL (r) = canonical_type_parameter (r);
11445 if (code == BOUND_TEMPLATE_TEMPLATE_PARM)
11447 tree argvec = tsubst (TYPE_TI_ARGS (t), args,
11448 complain, in_decl);
11449 if (argvec == error_mark_node)
11450 return error_mark_node;
11452 TEMPLATE_TEMPLATE_PARM_TEMPLATE_INFO (r)
11453 = build_template_info (TYPE_TI_TEMPLATE (t), argvec);
11456 break;
11458 case TEMPLATE_PARM_INDEX:
11459 r = reduce_template_parm_level (t, type, levels, args, complain);
11460 break;
11462 default:
11463 gcc_unreachable ();
11466 return r;
11469 case TREE_LIST:
11471 tree purpose, value, chain;
11473 if (t == void_list_node)
11474 return t;
11476 purpose = TREE_PURPOSE (t);
11477 if (purpose)
11479 purpose = tsubst (purpose, args, complain, in_decl);
11480 if (purpose == error_mark_node)
11481 return error_mark_node;
11483 value = TREE_VALUE (t);
11484 if (value)
11486 value = tsubst (value, args, complain, in_decl);
11487 if (value == error_mark_node)
11488 return error_mark_node;
11490 chain = TREE_CHAIN (t);
11491 if (chain && chain != void_type_node)
11493 chain = tsubst (chain, args, complain, in_decl);
11494 if (chain == error_mark_node)
11495 return error_mark_node;
11497 if (purpose == TREE_PURPOSE (t)
11498 && value == TREE_VALUE (t)
11499 && chain == TREE_CHAIN (t))
11500 return t;
11501 return hash_tree_cons (purpose, value, chain);
11504 case TREE_BINFO:
11505 /* We should never be tsubsting a binfo. */
11506 gcc_unreachable ();
11508 case TREE_VEC:
11509 /* A vector of template arguments. */
11510 gcc_assert (!type);
11511 return tsubst_template_args (t, args, complain, in_decl);
11513 case POINTER_TYPE:
11514 case REFERENCE_TYPE:
11516 if (type == TREE_TYPE (t) && TREE_CODE (type) != METHOD_TYPE)
11517 return t;
11519 /* [temp.deduct]
11521 Type deduction may fail for any of the following
11522 reasons:
11524 -- Attempting to create a pointer to reference type.
11525 -- Attempting to create a reference to a reference type or
11526 a reference to void.
11528 Core issue 106 says that creating a reference to a reference
11529 during instantiation is no longer a cause for failure. We
11530 only enforce this check in strict C++98 mode. */
11531 if ((TREE_CODE (type) == REFERENCE_TYPE
11532 && (((cxx_dialect == cxx98) && flag_iso) || code != REFERENCE_TYPE))
11533 || (code == REFERENCE_TYPE && TREE_CODE (type) == VOID_TYPE))
11535 static location_t last_loc;
11537 /* We keep track of the last time we issued this error
11538 message to avoid spewing a ton of messages during a
11539 single bad template instantiation. */
11540 if (complain & tf_error
11541 && last_loc != input_location)
11543 if (TREE_CODE (type) == VOID_TYPE)
11544 error ("forming reference to void");
11545 else if (code == POINTER_TYPE)
11546 error ("forming pointer to reference type %qT", type);
11547 else
11548 error ("forming reference to reference type %qT", type);
11549 last_loc = input_location;
11552 return error_mark_node;
11554 else if (code == POINTER_TYPE)
11556 r = build_pointer_type (type);
11557 if (TREE_CODE (type) == METHOD_TYPE)
11558 r = build_ptrmemfunc_type (r);
11560 else if (TREE_CODE (type) == REFERENCE_TYPE)
11561 /* In C++0x, during template argument substitution, when there is an
11562 attempt to create a reference to a reference type, reference
11563 collapsing is applied as described in [14.3.1/4 temp.arg.type]:
11565 "If a template-argument for a template-parameter T names a type
11566 that is a reference to a type A, an attempt to create the type
11567 'lvalue reference to cv T' creates the type 'lvalue reference to
11568 A,' while an attempt to create the type type rvalue reference to
11569 cv T' creates the type T"
11571 r = cp_build_reference_type
11572 (TREE_TYPE (type),
11573 TYPE_REF_IS_RVALUE (t) && TYPE_REF_IS_RVALUE (type));
11574 else
11575 r = cp_build_reference_type (type, TYPE_REF_IS_RVALUE (t));
11576 r = cp_build_qualified_type_real (r, cp_type_quals (t), complain);
11578 if (r != error_mark_node)
11579 /* Will this ever be needed for TYPE_..._TO values? */
11580 layout_type (r);
11582 return r;
11584 case OFFSET_TYPE:
11586 r = tsubst (TYPE_OFFSET_BASETYPE (t), args, complain, in_decl);
11587 if (r == error_mark_node || !MAYBE_CLASS_TYPE_P (r))
11589 /* [temp.deduct]
11591 Type deduction may fail for any of the following
11592 reasons:
11594 -- Attempting to create "pointer to member of T" when T
11595 is not a class type. */
11596 if (complain & tf_error)
11597 error ("creating pointer to member of non-class type %qT", r);
11598 return error_mark_node;
11600 if (TREE_CODE (type) == REFERENCE_TYPE)
11602 if (complain & tf_error)
11603 error ("creating pointer to member reference type %qT", type);
11604 return error_mark_node;
11606 if (TREE_CODE (type) == VOID_TYPE)
11608 if (complain & tf_error)
11609 error ("creating pointer to member of type void");
11610 return error_mark_node;
11612 gcc_assert (TREE_CODE (type) != METHOD_TYPE);
11613 if (TREE_CODE (type) == FUNCTION_TYPE)
11615 /* The type of the implicit object parameter gets its
11616 cv-qualifiers from the FUNCTION_TYPE. */
11617 tree memptr;
11618 tree method_type
11619 = build_memfn_type (type, r, type_memfn_quals (type),
11620 type_memfn_rqual (type));
11621 memptr = build_ptrmemfunc_type (build_pointer_type (method_type));
11622 return cp_build_qualified_type_real (memptr, cp_type_quals (t),
11623 complain);
11625 else
11626 return cp_build_qualified_type_real (build_ptrmem_type (r, type),
11627 cp_type_quals (t),
11628 complain);
11630 case FUNCTION_TYPE:
11631 case METHOD_TYPE:
11633 tree fntype;
11634 tree specs;
11635 fntype = tsubst_function_type (t, args, complain, in_decl);
11636 if (fntype == error_mark_node)
11637 return error_mark_node;
11639 /* Substitute the exception specification. */
11640 specs = tsubst_exception_specification (t, args, complain,
11641 in_decl, /*defer_ok*/true);
11642 if (specs == error_mark_node)
11643 return error_mark_node;
11644 if (specs)
11645 fntype = build_exception_variant (fntype, specs);
11646 return fntype;
11648 case ARRAY_TYPE:
11650 tree domain = tsubst (TYPE_DOMAIN (t), args, complain, in_decl);
11651 if (domain == error_mark_node)
11652 return error_mark_node;
11654 /* As an optimization, we avoid regenerating the array type if
11655 it will obviously be the same as T. */
11656 if (type == TREE_TYPE (t) && domain == TYPE_DOMAIN (t))
11657 return t;
11659 /* These checks should match the ones in grokdeclarator.
11661 [temp.deduct]
11663 The deduction may fail for any of the following reasons:
11665 -- Attempting to create an array with an element type that
11666 is void, a function type, or a reference type, or [DR337]
11667 an abstract class type. */
11668 if (TREE_CODE (type) == VOID_TYPE
11669 || TREE_CODE (type) == FUNCTION_TYPE
11670 || TREE_CODE (type) == REFERENCE_TYPE)
11672 if (complain & tf_error)
11673 error ("creating array of %qT", type);
11674 return error_mark_node;
11676 if (ABSTRACT_CLASS_TYPE_P (type))
11678 if (complain & tf_error)
11679 error ("creating array of %qT, which is an abstract class type",
11680 type);
11681 return error_mark_node;
11684 r = build_cplus_array_type (type, domain);
11686 if (TYPE_USER_ALIGN (t))
11688 TYPE_ALIGN (r) = TYPE_ALIGN (t);
11689 TYPE_USER_ALIGN (r) = 1;
11692 return r;
11695 case TYPENAME_TYPE:
11697 tree ctx = tsubst_aggr_type (TYPE_CONTEXT (t), args, complain,
11698 in_decl, /*entering_scope=*/1);
11699 tree f = tsubst_copy (TYPENAME_TYPE_FULLNAME (t), args,
11700 complain, in_decl);
11702 if (ctx == error_mark_node || f == error_mark_node)
11703 return error_mark_node;
11705 if (!MAYBE_CLASS_TYPE_P (ctx))
11707 if (complain & tf_error)
11708 error ("%qT is not a class, struct, or union type", ctx);
11709 return error_mark_node;
11711 else if (!uses_template_parms (ctx) && !TYPE_BEING_DEFINED (ctx))
11713 /* Normally, make_typename_type does not require that the CTX
11714 have complete type in order to allow things like:
11716 template <class T> struct S { typename S<T>::X Y; };
11718 But, such constructs have already been resolved by this
11719 point, so here CTX really should have complete type, unless
11720 it's a partial instantiation. */
11721 ctx = complete_type (ctx);
11722 if (!COMPLETE_TYPE_P (ctx))
11724 if (complain & tf_error)
11725 cxx_incomplete_type_error (NULL_TREE, ctx);
11726 return error_mark_node;
11730 f = make_typename_type (ctx, f, typename_type,
11731 complain | tf_keep_type_decl);
11732 if (f == error_mark_node)
11733 return f;
11734 if (TREE_CODE (f) == TYPE_DECL)
11736 complain |= tf_ignore_bad_quals;
11737 f = TREE_TYPE (f);
11740 if (TREE_CODE (f) != TYPENAME_TYPE)
11742 if (TYPENAME_IS_ENUM_P (t) && TREE_CODE (f) != ENUMERAL_TYPE)
11744 if (complain & tf_error)
11745 error ("%qT resolves to %qT, which is not an enumeration type",
11746 t, f);
11747 else
11748 return error_mark_node;
11750 else if (TYPENAME_IS_CLASS_P (t) && !CLASS_TYPE_P (f))
11752 if (complain & tf_error)
11753 error ("%qT resolves to %qT, which is is not a class type",
11754 t, f);
11755 else
11756 return error_mark_node;
11760 return cp_build_qualified_type_real
11761 (f, cp_type_quals (f) | cp_type_quals (t), complain);
11764 case UNBOUND_CLASS_TEMPLATE:
11766 tree ctx = tsubst_aggr_type (TYPE_CONTEXT (t), args, complain,
11767 in_decl, /*entering_scope=*/1);
11768 tree name = TYPE_IDENTIFIER (t);
11769 tree parm_list = DECL_TEMPLATE_PARMS (TYPE_NAME (t));
11771 if (ctx == error_mark_node || name == error_mark_node)
11772 return error_mark_node;
11774 if (parm_list)
11775 parm_list = tsubst_template_parms (parm_list, args, complain);
11776 return make_unbound_class_template (ctx, name, parm_list, complain);
11779 case TYPEOF_TYPE:
11781 tree type;
11783 ++cp_unevaluated_operand;
11784 ++c_inhibit_evaluation_warnings;
11786 type = tsubst_expr (TYPEOF_TYPE_EXPR (t), args,
11787 complain, in_decl,
11788 /*integral_constant_expression_p=*/false);
11790 --cp_unevaluated_operand;
11791 --c_inhibit_evaluation_warnings;
11793 type = finish_typeof (type);
11794 return cp_build_qualified_type_real (type,
11795 cp_type_quals (t)
11796 | cp_type_quals (type),
11797 complain);
11800 case DECLTYPE_TYPE:
11802 tree type;
11804 ++cp_unevaluated_operand;
11805 ++c_inhibit_evaluation_warnings;
11807 type = tsubst_expr (DECLTYPE_TYPE_EXPR (t), args,
11808 complain|tf_decltype, in_decl,
11809 /*integral_constant_expression_p=*/false);
11811 --cp_unevaluated_operand;
11812 --c_inhibit_evaluation_warnings;
11814 if (DECLTYPE_FOR_LAMBDA_CAPTURE (t))
11815 type = lambda_capture_field_type (type);
11816 else if (DECLTYPE_FOR_LAMBDA_PROXY (t))
11817 type = lambda_proxy_type (type);
11818 else
11820 bool id = DECLTYPE_TYPE_ID_EXPR_OR_MEMBER_ACCESS_P (t);
11821 if (id && TREE_CODE (DECLTYPE_TYPE_EXPR (t)) == BIT_NOT_EXPR
11822 && EXPR_P (type))
11823 /* In a template ~id could be either a complement expression
11824 or an unqualified-id naming a destructor; if instantiating
11825 it produces an expression, it's not an id-expression or
11826 member access. */
11827 id = false;
11828 type = finish_decltype_type (type, id, complain);
11830 return cp_build_qualified_type_real (type,
11831 cp_type_quals (t)
11832 | cp_type_quals (type),
11833 complain);
11836 case UNDERLYING_TYPE:
11838 tree type = tsubst (UNDERLYING_TYPE_TYPE (t), args,
11839 complain, in_decl);
11840 return finish_underlying_type (type);
11843 case TYPE_ARGUMENT_PACK:
11844 case NONTYPE_ARGUMENT_PACK:
11846 tree r = TYPE_P (t) ? cxx_make_type (code) : make_node (code);
11847 tree packed_out =
11848 tsubst_template_args (ARGUMENT_PACK_ARGS (t),
11849 args,
11850 complain,
11851 in_decl);
11852 SET_ARGUMENT_PACK_ARGS (r, packed_out);
11854 /* For template nontype argument packs, also substitute into
11855 the type. */
11856 if (code == NONTYPE_ARGUMENT_PACK)
11857 TREE_TYPE (r) = tsubst (TREE_TYPE (t), args, complain, in_decl);
11859 return r;
11861 break;
11863 case INTEGER_CST:
11864 case REAL_CST:
11865 case STRING_CST:
11866 case PLUS_EXPR:
11867 case MINUS_EXPR:
11868 case NEGATE_EXPR:
11869 case NOP_EXPR:
11870 case INDIRECT_REF:
11871 case ADDR_EXPR:
11872 case CALL_EXPR:
11873 case ARRAY_REF:
11874 case SCOPE_REF:
11875 /* We should use one of the expression tsubsts for these codes. */
11876 gcc_unreachable ();
11878 default:
11879 sorry ("use of %qs in template", tree_code_name [(int) code]);
11880 return error_mark_node;
11884 /* Like tsubst_expr for a BASELINK. OBJECT_TYPE, if non-NULL, is the
11885 type of the expression on the left-hand side of the "." or "->"
11886 operator. */
11888 static tree
11889 tsubst_baselink (tree baselink, tree object_type,
11890 tree args, tsubst_flags_t complain, tree in_decl)
11892 tree name;
11893 tree qualifying_scope;
11894 tree fns;
11895 tree optype;
11896 tree template_args = 0;
11897 bool template_id_p = false;
11898 bool qualified = BASELINK_QUALIFIED_P (baselink);
11900 /* A baselink indicates a function from a base class. Both the
11901 BASELINK_ACCESS_BINFO and the base class referenced may
11902 indicate bases of the template class, rather than the
11903 instantiated class. In addition, lookups that were not
11904 ambiguous before may be ambiguous now. Therefore, we perform
11905 the lookup again. */
11906 qualifying_scope = BINFO_TYPE (BASELINK_ACCESS_BINFO (baselink));
11907 qualifying_scope = tsubst (qualifying_scope, args,
11908 complain, in_decl);
11909 fns = BASELINK_FUNCTIONS (baselink);
11910 optype = tsubst (BASELINK_OPTYPE (baselink), args, complain, in_decl);
11911 if (TREE_CODE (fns) == TEMPLATE_ID_EXPR)
11913 template_id_p = true;
11914 template_args = TREE_OPERAND (fns, 1);
11915 fns = TREE_OPERAND (fns, 0);
11916 if (template_args)
11917 template_args = tsubst_template_args (template_args, args,
11918 complain, in_decl);
11920 name = DECL_NAME (get_first_fn (fns));
11921 if (IDENTIFIER_TYPENAME_P (name))
11922 name = mangle_conv_op_name_for_type (optype);
11923 baselink = lookup_fnfields (qualifying_scope, name, /*protect=*/1);
11924 if (!baselink)
11925 return error_mark_node;
11927 /* If lookup found a single function, mark it as used at this
11928 point. (If it lookup found multiple functions the one selected
11929 later by overload resolution will be marked as used at that
11930 point.) */
11931 if (BASELINK_P (baselink))
11932 fns = BASELINK_FUNCTIONS (baselink);
11933 if (!template_id_p && !really_overloaded_fn (fns))
11934 mark_used (OVL_CURRENT (fns));
11936 /* Add back the template arguments, if present. */
11937 if (BASELINK_P (baselink) && template_id_p)
11938 BASELINK_FUNCTIONS (baselink)
11939 = build_nt (TEMPLATE_ID_EXPR,
11940 BASELINK_FUNCTIONS (baselink),
11941 template_args);
11942 /* Update the conversion operator type. */
11943 BASELINK_OPTYPE (baselink) = optype;
11945 if (!object_type)
11946 object_type = current_class_type;
11948 if (qualified)
11949 baselink = adjust_result_of_qualified_name_lookup (baselink,
11950 qualifying_scope,
11951 object_type);
11952 return baselink;
11955 /* Like tsubst_expr for a SCOPE_REF, given by QUALIFIED_ID. DONE is
11956 true if the qualified-id will be a postfix-expression in-and-of
11957 itself; false if more of the postfix-expression follows the
11958 QUALIFIED_ID. ADDRESS_P is true if the qualified-id is the operand
11959 of "&". */
11961 static tree
11962 tsubst_qualified_id (tree qualified_id, tree args,
11963 tsubst_flags_t complain, tree in_decl,
11964 bool done, bool address_p)
11966 tree expr;
11967 tree scope;
11968 tree name;
11969 bool is_template;
11970 tree template_args;
11971 location_t loc = UNKNOWN_LOCATION;
11973 gcc_assert (TREE_CODE (qualified_id) == SCOPE_REF);
11975 /* Figure out what name to look up. */
11976 name = TREE_OPERAND (qualified_id, 1);
11977 if (TREE_CODE (name) == TEMPLATE_ID_EXPR)
11979 is_template = true;
11980 loc = EXPR_LOCATION (name);
11981 template_args = TREE_OPERAND (name, 1);
11982 if (template_args)
11983 template_args = tsubst_template_args (template_args, args,
11984 complain, in_decl);
11985 name = TREE_OPERAND (name, 0);
11987 else
11989 is_template = false;
11990 template_args = NULL_TREE;
11993 /* Substitute into the qualifying scope. When there are no ARGS, we
11994 are just trying to simplify a non-dependent expression. In that
11995 case the qualifying scope may be dependent, and, in any case,
11996 substituting will not help. */
11997 scope = TREE_OPERAND (qualified_id, 0);
11998 if (args)
12000 scope = tsubst (scope, args, complain, in_decl);
12001 expr = tsubst_copy (name, args, complain, in_decl);
12003 else
12004 expr = name;
12006 if (dependent_scope_p (scope))
12008 if (is_template)
12009 expr = build_min_nt_loc (loc, TEMPLATE_ID_EXPR, expr, template_args);
12010 return build_qualified_name (NULL_TREE, scope, expr,
12011 QUALIFIED_NAME_IS_TEMPLATE (qualified_id));
12014 if (!BASELINK_P (name) && !DECL_P (expr))
12016 if (TREE_CODE (expr) == BIT_NOT_EXPR)
12018 /* A BIT_NOT_EXPR is used to represent a destructor. */
12019 if (!check_dtor_name (scope, TREE_OPERAND (expr, 0)))
12021 error ("qualifying type %qT does not match destructor name ~%qT",
12022 scope, TREE_OPERAND (expr, 0));
12023 expr = error_mark_node;
12025 else
12026 expr = lookup_qualified_name (scope, complete_dtor_identifier,
12027 /*is_type_p=*/0, false);
12029 else
12030 expr = lookup_qualified_name (scope, expr, /*is_type_p=*/0, false);
12031 if (TREE_CODE (TREE_CODE (expr) == TEMPLATE_DECL
12032 ? DECL_TEMPLATE_RESULT (expr) : expr) == TYPE_DECL)
12034 if (complain & tf_error)
12036 error ("dependent-name %qE is parsed as a non-type, but "
12037 "instantiation yields a type", qualified_id);
12038 inform (input_location, "say %<typename %E%> if a type is meant", qualified_id);
12040 return error_mark_node;
12044 if (DECL_P (expr))
12046 check_accessibility_of_qualified_id (expr, /*object_type=*/NULL_TREE,
12047 scope);
12048 /* Remember that there was a reference to this entity. */
12049 mark_used (expr);
12052 if (expr == error_mark_node || TREE_CODE (expr) == TREE_LIST)
12054 if (complain & tf_error)
12055 qualified_name_lookup_error (scope,
12056 TREE_OPERAND (qualified_id, 1),
12057 expr, input_location);
12058 return error_mark_node;
12061 if (is_template)
12062 expr = lookup_template_function (expr, template_args);
12064 if (expr == error_mark_node && complain & tf_error)
12065 qualified_name_lookup_error (scope, TREE_OPERAND (qualified_id, 1),
12066 expr, input_location);
12067 else if (TYPE_P (scope))
12069 expr = (adjust_result_of_qualified_name_lookup
12070 (expr, scope, current_nonlambda_class_type ()));
12071 expr = (finish_qualified_id_expr
12072 (scope, expr, done, address_p && PTRMEM_OK_P (qualified_id),
12073 QUALIFIED_NAME_IS_TEMPLATE (qualified_id),
12074 /*template_arg_p=*/false, complain));
12077 /* Expressions do not generally have reference type. */
12078 if (TREE_CODE (expr) != SCOPE_REF
12079 /* However, if we're about to form a pointer-to-member, we just
12080 want the referenced member referenced. */
12081 && TREE_CODE (expr) != OFFSET_REF)
12082 expr = convert_from_reference (expr);
12084 return expr;
12087 /* Like tsubst, but deals with expressions. This function just replaces
12088 template parms; to finish processing the resultant expression, use
12089 tsubst_copy_and_build or tsubst_expr. */
12091 static tree
12092 tsubst_copy (tree t, tree args, tsubst_flags_t complain, tree in_decl)
12094 enum tree_code code;
12095 tree r;
12097 if (t == NULL_TREE || t == error_mark_node || args == NULL_TREE)
12098 return t;
12100 code = TREE_CODE (t);
12102 switch (code)
12104 case PARM_DECL:
12105 r = retrieve_local_specialization (t);
12107 if (r == NULL_TREE)
12109 /* We get here for a use of 'this' in an NSDMI. */
12110 if (DECL_NAME (t) == this_identifier
12111 && at_function_scope_p ()
12112 && DECL_CONSTRUCTOR_P (current_function_decl))
12113 return current_class_ptr;
12115 /* This can happen for a parameter name used later in a function
12116 declaration (such as in a late-specified return type). Just
12117 make a dummy decl, since it's only used for its type. */
12118 gcc_assert (cp_unevaluated_operand != 0);
12119 r = tsubst_decl (t, args, complain);
12120 /* Give it the template pattern as its context; its true context
12121 hasn't been instantiated yet and this is good enough for
12122 mangling. */
12123 DECL_CONTEXT (r) = DECL_CONTEXT (t);
12126 if (TREE_CODE (r) == ARGUMENT_PACK_SELECT)
12127 r = ARGUMENT_PACK_SELECT_ARG (r);
12128 mark_used (r);
12129 return r;
12131 case CONST_DECL:
12133 tree enum_type;
12134 tree v;
12136 if (DECL_TEMPLATE_PARM_P (t))
12137 return tsubst_copy (DECL_INITIAL (t), args, complain, in_decl);
12138 /* There is no need to substitute into namespace-scope
12139 enumerators. */
12140 if (DECL_NAMESPACE_SCOPE_P (t))
12141 return t;
12142 /* If ARGS is NULL, then T is known to be non-dependent. */
12143 if (args == NULL_TREE)
12144 return integral_constant_value (t);
12146 /* Unfortunately, we cannot just call lookup_name here.
12147 Consider:
12149 template <int I> int f() {
12150 enum E { a = I };
12151 struct S { void g() { E e = a; } };
12154 When we instantiate f<7>::S::g(), say, lookup_name is not
12155 clever enough to find f<7>::a. */
12156 enum_type
12157 = tsubst_aggr_type (DECL_CONTEXT (t), args, complain, in_decl,
12158 /*entering_scope=*/0);
12160 for (v = TYPE_VALUES (enum_type);
12161 v != NULL_TREE;
12162 v = TREE_CHAIN (v))
12163 if (TREE_PURPOSE (v) == DECL_NAME (t))
12164 return TREE_VALUE (v);
12166 /* We didn't find the name. That should never happen; if
12167 name-lookup found it during preliminary parsing, we
12168 should find it again here during instantiation. */
12169 gcc_unreachable ();
12171 return t;
12173 case FIELD_DECL:
12174 if (DECL_CONTEXT (t))
12176 tree ctx;
12178 ctx = tsubst_aggr_type (DECL_CONTEXT (t), args, complain, in_decl,
12179 /*entering_scope=*/1);
12180 if (ctx != DECL_CONTEXT (t))
12182 tree r = lookup_field (ctx, DECL_NAME (t), 0, false);
12183 if (!r)
12185 if (complain & tf_error)
12186 error ("using invalid field %qD", t);
12187 return error_mark_node;
12189 return r;
12193 return t;
12195 case VAR_DECL:
12196 case FUNCTION_DECL:
12197 if ((DECL_LANG_SPECIFIC (t) && DECL_TEMPLATE_INFO (t))
12198 || local_variable_p (t))
12199 t = tsubst (t, args, complain, in_decl);
12200 mark_used (t);
12201 return t;
12203 case NAMESPACE_DECL:
12204 return t;
12206 case OVERLOAD:
12207 /* An OVERLOAD will always be a non-dependent overload set; an
12208 overload set from function scope will just be represented with an
12209 IDENTIFIER_NODE, and from class scope with a BASELINK. */
12210 gcc_assert (!uses_template_parms (t));
12211 return t;
12213 case BASELINK:
12214 return tsubst_baselink (t, current_class_type, args, complain, in_decl);
12216 case TEMPLATE_DECL:
12217 if (DECL_TEMPLATE_TEMPLATE_PARM_P (t))
12218 return tsubst (TREE_TYPE (DECL_TEMPLATE_RESULT (t)),
12219 args, complain, in_decl);
12220 else if (DECL_FUNCTION_TEMPLATE_P (t) && DECL_MEMBER_TEMPLATE_P (t))
12221 return tsubst (t, args, complain, in_decl);
12222 else if (DECL_CLASS_SCOPE_P (t)
12223 && uses_template_parms (DECL_CONTEXT (t)))
12225 /* Template template argument like the following example need
12226 special treatment:
12228 template <template <class> class TT> struct C {};
12229 template <class T> struct D {
12230 template <class U> struct E {};
12231 C<E> c; // #1
12233 D<int> d; // #2
12235 We are processing the template argument `E' in #1 for
12236 the template instantiation #2. Originally, `E' is a
12237 TEMPLATE_DECL with `D<T>' as its DECL_CONTEXT. Now we
12238 have to substitute this with one having context `D<int>'. */
12240 tree context = tsubst (DECL_CONTEXT (t), args, complain, in_decl);
12241 return lookup_field (context, DECL_NAME(t), 0, false);
12243 else
12244 /* Ordinary template template argument. */
12245 return t;
12247 case CAST_EXPR:
12248 case REINTERPRET_CAST_EXPR:
12249 case CONST_CAST_EXPR:
12250 case STATIC_CAST_EXPR:
12251 case DYNAMIC_CAST_EXPR:
12252 case IMPLICIT_CONV_EXPR:
12253 case CONVERT_EXPR:
12254 case NOP_EXPR:
12255 return build1
12256 (code, tsubst (TREE_TYPE (t), args, complain, in_decl),
12257 tsubst_copy (TREE_OPERAND (t, 0), args, complain, in_decl));
12259 case SIZEOF_EXPR:
12260 if (PACK_EXPANSION_P (TREE_OPERAND (t, 0)))
12263 tree expanded, op = TREE_OPERAND (t, 0);
12264 int len = 0;
12266 if (SIZEOF_EXPR_TYPE_P (t))
12267 op = TREE_TYPE (op);
12269 ++cp_unevaluated_operand;
12270 ++c_inhibit_evaluation_warnings;
12271 /* We only want to compute the number of arguments. */
12272 expanded = tsubst_pack_expansion (op, args, complain, in_decl);
12273 --cp_unevaluated_operand;
12274 --c_inhibit_evaluation_warnings;
12276 if (TREE_CODE (expanded) == TREE_VEC)
12277 len = TREE_VEC_LENGTH (expanded);
12279 if (expanded == error_mark_node)
12280 return error_mark_node;
12281 else if (PACK_EXPANSION_P (expanded)
12282 || (TREE_CODE (expanded) == TREE_VEC
12283 && len > 0
12284 && PACK_EXPANSION_P (TREE_VEC_ELT (expanded, len-1))))
12286 if (TREE_CODE (expanded) == TREE_VEC)
12287 expanded = TREE_VEC_ELT (expanded, len - 1);
12289 if (TYPE_P (expanded))
12290 return cxx_sizeof_or_alignof_type (expanded, SIZEOF_EXPR,
12291 complain & tf_error);
12292 else
12293 return cxx_sizeof_or_alignof_expr (expanded, SIZEOF_EXPR,
12294 complain & tf_error);
12296 else
12297 return build_int_cst (size_type_node, len);
12299 if (SIZEOF_EXPR_TYPE_P (t))
12301 r = tsubst (TREE_TYPE (TREE_OPERAND (t, 0)),
12302 args, complain, in_decl);
12303 r = build1 (NOP_EXPR, r, error_mark_node);
12304 r = build1 (SIZEOF_EXPR,
12305 tsubst (TREE_TYPE (t), args, complain, in_decl), r);
12306 SIZEOF_EXPR_TYPE_P (r) = 1;
12307 return r;
12309 /* Fall through */
12311 case INDIRECT_REF:
12312 case NEGATE_EXPR:
12313 case TRUTH_NOT_EXPR:
12314 case BIT_NOT_EXPR:
12315 case ADDR_EXPR:
12316 case UNARY_PLUS_EXPR: /* Unary + */
12317 case ALIGNOF_EXPR:
12318 case AT_ENCODE_EXPR:
12319 case ARROW_EXPR:
12320 case THROW_EXPR:
12321 case TYPEID_EXPR:
12322 case REALPART_EXPR:
12323 case IMAGPART_EXPR:
12324 return build1
12325 (code, tsubst (TREE_TYPE (t), args, complain, in_decl),
12326 tsubst_copy (TREE_OPERAND (t, 0), args, complain, in_decl));
12328 case COMPONENT_REF:
12330 tree object;
12331 tree name;
12333 object = tsubst_copy (TREE_OPERAND (t, 0), args, complain, in_decl);
12334 name = TREE_OPERAND (t, 1);
12335 if (TREE_CODE (name) == BIT_NOT_EXPR)
12337 name = tsubst_copy (TREE_OPERAND (name, 0), args,
12338 complain, in_decl);
12339 name = build1 (BIT_NOT_EXPR, NULL_TREE, name);
12341 else if (TREE_CODE (name) == SCOPE_REF
12342 && TREE_CODE (TREE_OPERAND (name, 1)) == BIT_NOT_EXPR)
12344 tree base = tsubst_copy (TREE_OPERAND (name, 0), args,
12345 complain, in_decl);
12346 name = TREE_OPERAND (name, 1);
12347 name = tsubst_copy (TREE_OPERAND (name, 0), args,
12348 complain, in_decl);
12349 name = build1 (BIT_NOT_EXPR, NULL_TREE, name);
12350 name = build_qualified_name (/*type=*/NULL_TREE,
12351 base, name,
12352 /*template_p=*/false);
12354 else if (BASELINK_P (name))
12355 name = tsubst_baselink (name,
12356 non_reference (TREE_TYPE (object)),
12357 args, complain,
12358 in_decl);
12359 else
12360 name = tsubst_copy (name, args, complain, in_decl);
12361 return build_nt (COMPONENT_REF, object, name, NULL_TREE);
12364 case PLUS_EXPR:
12365 case MINUS_EXPR:
12366 case MULT_EXPR:
12367 case TRUNC_DIV_EXPR:
12368 case CEIL_DIV_EXPR:
12369 case FLOOR_DIV_EXPR:
12370 case ROUND_DIV_EXPR:
12371 case EXACT_DIV_EXPR:
12372 case BIT_AND_EXPR:
12373 case BIT_IOR_EXPR:
12374 case BIT_XOR_EXPR:
12375 case TRUNC_MOD_EXPR:
12376 case FLOOR_MOD_EXPR:
12377 case TRUTH_ANDIF_EXPR:
12378 case TRUTH_ORIF_EXPR:
12379 case TRUTH_AND_EXPR:
12380 case TRUTH_OR_EXPR:
12381 case RSHIFT_EXPR:
12382 case LSHIFT_EXPR:
12383 case RROTATE_EXPR:
12384 case LROTATE_EXPR:
12385 case EQ_EXPR:
12386 case NE_EXPR:
12387 case MAX_EXPR:
12388 case MIN_EXPR:
12389 case LE_EXPR:
12390 case GE_EXPR:
12391 case LT_EXPR:
12392 case GT_EXPR:
12393 case COMPOUND_EXPR:
12394 case DOTSTAR_EXPR:
12395 case MEMBER_REF:
12396 case PREDECREMENT_EXPR:
12397 case PREINCREMENT_EXPR:
12398 case POSTDECREMENT_EXPR:
12399 case POSTINCREMENT_EXPR:
12400 return build_nt
12401 (code, tsubst_copy (TREE_OPERAND (t, 0), args, complain, in_decl),
12402 tsubst_copy (TREE_OPERAND (t, 1), args, complain, in_decl));
12404 case SCOPE_REF:
12405 return build_qualified_name (/*type=*/NULL_TREE,
12406 tsubst_copy (TREE_OPERAND (t, 0),
12407 args, complain, in_decl),
12408 tsubst_copy (TREE_OPERAND (t, 1),
12409 args, complain, in_decl),
12410 QUALIFIED_NAME_IS_TEMPLATE (t));
12412 case ARRAY_REF:
12413 return build_nt
12414 (ARRAY_REF,
12415 tsubst_copy (TREE_OPERAND (t, 0), args, complain, in_decl),
12416 tsubst_copy (TREE_OPERAND (t, 1), args, complain, in_decl),
12417 NULL_TREE, NULL_TREE);
12419 case CALL_EXPR:
12421 int n = VL_EXP_OPERAND_LENGTH (t);
12422 tree result = build_vl_exp (CALL_EXPR, n);
12423 int i;
12424 for (i = 0; i < n; i++)
12425 TREE_OPERAND (t, i) = tsubst_copy (TREE_OPERAND (t, i), args,
12426 complain, in_decl);
12427 return result;
12430 case COND_EXPR:
12431 case MODOP_EXPR:
12432 case PSEUDO_DTOR_EXPR:
12434 r = build_nt
12435 (code, tsubst_copy (TREE_OPERAND (t, 0), args, complain, in_decl),
12436 tsubst_copy (TREE_OPERAND (t, 1), args, complain, in_decl),
12437 tsubst_copy (TREE_OPERAND (t, 2), args, complain, in_decl));
12438 TREE_NO_WARNING (r) = TREE_NO_WARNING (t);
12439 return r;
12442 case NEW_EXPR:
12444 r = build_nt
12445 (code, tsubst_copy (TREE_OPERAND (t, 0), args, complain, in_decl),
12446 tsubst_copy (TREE_OPERAND (t, 1), args, complain, in_decl),
12447 tsubst_copy (TREE_OPERAND (t, 2), args, complain, in_decl));
12448 NEW_EXPR_USE_GLOBAL (r) = NEW_EXPR_USE_GLOBAL (t);
12449 return r;
12452 case DELETE_EXPR:
12454 r = build_nt
12455 (code, tsubst_copy (TREE_OPERAND (t, 0), args, complain, in_decl),
12456 tsubst_copy (TREE_OPERAND (t, 1), args, complain, in_decl));
12457 DELETE_EXPR_USE_GLOBAL (r) = DELETE_EXPR_USE_GLOBAL (t);
12458 DELETE_EXPR_USE_VEC (r) = DELETE_EXPR_USE_VEC (t);
12459 return r;
12462 case TEMPLATE_ID_EXPR:
12464 /* Substituted template arguments */
12465 tree fn = TREE_OPERAND (t, 0);
12466 tree targs = TREE_OPERAND (t, 1);
12468 fn = tsubst_copy (fn, args, complain, in_decl);
12469 if (targs)
12470 targs = tsubst_template_args (targs, args, complain, in_decl);
12472 return lookup_template_function (fn, targs);
12475 case TREE_LIST:
12477 tree purpose, value, chain;
12479 if (t == void_list_node)
12480 return t;
12482 purpose = TREE_PURPOSE (t);
12483 if (purpose)
12484 purpose = tsubst_copy (purpose, args, complain, in_decl);
12485 value = TREE_VALUE (t);
12486 if (value)
12487 value = tsubst_copy (value, args, complain, in_decl);
12488 chain = TREE_CHAIN (t);
12489 if (chain && chain != void_type_node)
12490 chain = tsubst_copy (chain, args, complain, in_decl);
12491 if (purpose == TREE_PURPOSE (t)
12492 && value == TREE_VALUE (t)
12493 && chain == TREE_CHAIN (t))
12494 return t;
12495 return tree_cons (purpose, value, chain);
12498 case RECORD_TYPE:
12499 case UNION_TYPE:
12500 case ENUMERAL_TYPE:
12501 case INTEGER_TYPE:
12502 case TEMPLATE_TYPE_PARM:
12503 case TEMPLATE_TEMPLATE_PARM:
12504 case BOUND_TEMPLATE_TEMPLATE_PARM:
12505 case TEMPLATE_PARM_INDEX:
12506 case POINTER_TYPE:
12507 case REFERENCE_TYPE:
12508 case OFFSET_TYPE:
12509 case FUNCTION_TYPE:
12510 case METHOD_TYPE:
12511 case ARRAY_TYPE:
12512 case TYPENAME_TYPE:
12513 case UNBOUND_CLASS_TEMPLATE:
12514 case TYPEOF_TYPE:
12515 case DECLTYPE_TYPE:
12516 case TYPE_DECL:
12517 return tsubst (t, args, complain, in_decl);
12519 case USING_DECL:
12520 t = DECL_NAME (t);
12521 /* Fall through. */
12522 case IDENTIFIER_NODE:
12523 if (IDENTIFIER_TYPENAME_P (t))
12525 tree new_type = tsubst (TREE_TYPE (t), args, complain, in_decl);
12526 return mangle_conv_op_name_for_type (new_type);
12528 else
12529 return t;
12531 case CONSTRUCTOR:
12532 /* This is handled by tsubst_copy_and_build. */
12533 gcc_unreachable ();
12535 case VA_ARG_EXPR:
12536 return build_x_va_arg (EXPR_LOCATION (t),
12537 tsubst_copy (TREE_OPERAND (t, 0), args, complain,
12538 in_decl),
12539 tsubst (TREE_TYPE (t), args, complain, in_decl));
12541 case CLEANUP_POINT_EXPR:
12542 /* We shouldn't have built any of these during initial template
12543 generation. Instead, they should be built during instantiation
12544 in response to the saved STMT_IS_FULL_EXPR_P setting. */
12545 gcc_unreachable ();
12547 case OFFSET_REF:
12548 r = build2
12549 (code, tsubst (TREE_TYPE (t), args, complain, in_decl),
12550 tsubst_copy (TREE_OPERAND (t, 0), args, complain, in_decl),
12551 tsubst_copy (TREE_OPERAND (t, 1), args, complain, in_decl));
12552 PTRMEM_OK_P (r) = PTRMEM_OK_P (t);
12553 mark_used (TREE_OPERAND (r, 1));
12554 return r;
12556 case EXPR_PACK_EXPANSION:
12557 error ("invalid use of pack expansion expression");
12558 return error_mark_node;
12560 case NONTYPE_ARGUMENT_PACK:
12561 error ("use %<...%> to expand argument pack");
12562 return error_mark_node;
12564 case INTEGER_CST:
12565 case REAL_CST:
12566 case STRING_CST:
12567 case COMPLEX_CST:
12569 /* Instantiate any typedefs in the type. */
12570 tree type = tsubst (TREE_TYPE (t), args, complain, in_decl);
12571 r = fold_convert (type, t);
12572 gcc_assert (TREE_CODE (r) == code);
12573 return r;
12576 case PTRMEM_CST:
12577 /* These can sometimes show up in a partial instantiation, but never
12578 involve template parms. */
12579 gcc_assert (!uses_template_parms (t));
12580 return t;
12582 default:
12583 /* We shouldn't get here, but keep going if !ENABLE_CHECKING. */
12584 gcc_checking_assert (false);
12585 return t;
12589 /* Like tsubst_copy, but specifically for OpenMP clauses. */
12591 static tree
12592 tsubst_omp_clauses (tree clauses, tree args, tsubst_flags_t complain,
12593 tree in_decl)
12595 tree new_clauses = NULL, nc, oc;
12597 for (oc = clauses; oc ; oc = OMP_CLAUSE_CHAIN (oc))
12599 nc = copy_node (oc);
12600 OMP_CLAUSE_CHAIN (nc) = new_clauses;
12601 new_clauses = nc;
12603 switch (OMP_CLAUSE_CODE (nc))
12605 case OMP_CLAUSE_LASTPRIVATE:
12606 if (OMP_CLAUSE_LASTPRIVATE_STMT (oc))
12608 OMP_CLAUSE_LASTPRIVATE_STMT (nc) = push_stmt_list ();
12609 tsubst_expr (OMP_CLAUSE_LASTPRIVATE_STMT (oc), args, complain,
12610 in_decl, /*integral_constant_expression_p=*/false);
12611 OMP_CLAUSE_LASTPRIVATE_STMT (nc)
12612 = pop_stmt_list (OMP_CLAUSE_LASTPRIVATE_STMT (nc));
12614 /* FALLTHRU */
12615 case OMP_CLAUSE_PRIVATE:
12616 case OMP_CLAUSE_SHARED:
12617 case OMP_CLAUSE_FIRSTPRIVATE:
12618 case OMP_CLAUSE_REDUCTION:
12619 case OMP_CLAUSE_COPYIN:
12620 case OMP_CLAUSE_COPYPRIVATE:
12621 case OMP_CLAUSE_IF:
12622 case OMP_CLAUSE_NUM_THREADS:
12623 case OMP_CLAUSE_SCHEDULE:
12624 case OMP_CLAUSE_COLLAPSE:
12625 case OMP_CLAUSE_FINAL:
12626 OMP_CLAUSE_OPERAND (nc, 0)
12627 = tsubst_expr (OMP_CLAUSE_OPERAND (oc, 0), args, complain,
12628 in_decl, /*integral_constant_expression_p=*/false);
12629 break;
12630 case OMP_CLAUSE_NOWAIT:
12631 case OMP_CLAUSE_ORDERED:
12632 case OMP_CLAUSE_DEFAULT:
12633 case OMP_CLAUSE_UNTIED:
12634 case OMP_CLAUSE_MERGEABLE:
12635 break;
12636 default:
12637 gcc_unreachable ();
12641 return finish_omp_clauses (nreverse (new_clauses));
12644 /* Like tsubst_copy_and_build, but unshare TREE_LIST nodes. */
12646 static tree
12647 tsubst_copy_asm_operands (tree t, tree args, tsubst_flags_t complain,
12648 tree in_decl)
12650 #define RECUR(t) tsubst_copy_asm_operands (t, args, complain, in_decl)
12652 tree purpose, value, chain;
12654 if (t == NULL)
12655 return t;
12657 if (TREE_CODE (t) != TREE_LIST)
12658 return tsubst_copy_and_build (t, args, complain, in_decl,
12659 /*function_p=*/false,
12660 /*integral_constant_expression_p=*/false);
12662 if (t == void_list_node)
12663 return t;
12665 purpose = TREE_PURPOSE (t);
12666 if (purpose)
12667 purpose = RECUR (purpose);
12668 value = TREE_VALUE (t);
12669 if (value)
12671 if (TREE_CODE (value) != LABEL_DECL)
12672 value = RECUR (value);
12673 else
12675 value = lookup_label (DECL_NAME (value));
12676 gcc_assert (TREE_CODE (value) == LABEL_DECL);
12677 TREE_USED (value) = 1;
12680 chain = TREE_CHAIN (t);
12681 if (chain && chain != void_type_node)
12682 chain = RECUR (chain);
12683 return tree_cons (purpose, value, chain);
12684 #undef RECUR
12687 /* Substitute one OMP_FOR iterator. */
12689 static void
12690 tsubst_omp_for_iterator (tree t, int i, tree declv, tree initv,
12691 tree condv, tree incrv, tree *clauses,
12692 tree args, tsubst_flags_t complain, tree in_decl,
12693 bool integral_constant_expression_p)
12695 #define RECUR(NODE) \
12696 tsubst_expr ((NODE), args, complain, in_decl, \
12697 integral_constant_expression_p)
12698 tree decl, init, cond, incr;
12699 bool init_decl;
12701 init = TREE_VEC_ELT (OMP_FOR_INIT (t), i);
12702 gcc_assert (TREE_CODE (init) == MODIFY_EXPR);
12703 decl = TREE_OPERAND (init, 0);
12704 init = TREE_OPERAND (init, 1);
12705 /* Do this before substituting into decl to handle 'auto'. */
12706 init_decl = (init && TREE_CODE (init) == DECL_EXPR);
12707 init = RECUR (init);
12708 decl = RECUR (decl);
12709 if (init_decl)
12711 gcc_assert (!processing_template_decl);
12712 init = DECL_INITIAL (decl);
12713 DECL_INITIAL (decl) = NULL_TREE;
12716 gcc_assert (!type_dependent_expression_p (decl));
12718 if (!CLASS_TYPE_P (TREE_TYPE (decl)))
12720 cond = RECUR (TREE_VEC_ELT (OMP_FOR_COND (t), i));
12721 incr = TREE_VEC_ELT (OMP_FOR_INCR (t), i);
12722 if (TREE_CODE (incr) == MODIFY_EXPR)
12723 incr = build_x_modify_expr (EXPR_LOCATION (incr),
12724 RECUR (TREE_OPERAND (incr, 0)), NOP_EXPR,
12725 RECUR (TREE_OPERAND (incr, 1)),
12726 complain);
12727 else
12728 incr = RECUR (incr);
12729 TREE_VEC_ELT (declv, i) = decl;
12730 TREE_VEC_ELT (initv, i) = init;
12731 TREE_VEC_ELT (condv, i) = cond;
12732 TREE_VEC_ELT (incrv, i) = incr;
12733 return;
12736 if (init && !init_decl)
12738 tree c;
12739 for (c = *clauses; c ; c = OMP_CLAUSE_CHAIN (c))
12741 if ((OMP_CLAUSE_CODE (c) == OMP_CLAUSE_PRIVATE
12742 || OMP_CLAUSE_CODE (c) == OMP_CLAUSE_LASTPRIVATE)
12743 && OMP_CLAUSE_DECL (c) == decl)
12744 break;
12745 else if (OMP_CLAUSE_CODE (c) == OMP_CLAUSE_FIRSTPRIVATE
12746 && OMP_CLAUSE_DECL (c) == decl)
12747 error ("iteration variable %qD should not be firstprivate", decl);
12748 else if (OMP_CLAUSE_CODE (c) == OMP_CLAUSE_REDUCTION
12749 && OMP_CLAUSE_DECL (c) == decl)
12750 error ("iteration variable %qD should not be reduction", decl);
12752 if (c == NULL)
12754 c = build_omp_clause (input_location, OMP_CLAUSE_PRIVATE);
12755 OMP_CLAUSE_DECL (c) = decl;
12756 c = finish_omp_clauses (c);
12757 if (c)
12759 OMP_CLAUSE_CHAIN (c) = *clauses;
12760 *clauses = c;
12764 cond = TREE_VEC_ELT (OMP_FOR_COND (t), i);
12765 if (COMPARISON_CLASS_P (cond))
12766 cond = build2 (TREE_CODE (cond), boolean_type_node,
12767 RECUR (TREE_OPERAND (cond, 0)),
12768 RECUR (TREE_OPERAND (cond, 1)));
12769 else
12770 cond = RECUR (cond);
12771 incr = TREE_VEC_ELT (OMP_FOR_INCR (t), i);
12772 switch (TREE_CODE (incr))
12774 case PREINCREMENT_EXPR:
12775 case PREDECREMENT_EXPR:
12776 case POSTINCREMENT_EXPR:
12777 case POSTDECREMENT_EXPR:
12778 incr = build2 (TREE_CODE (incr), TREE_TYPE (decl),
12779 RECUR (TREE_OPERAND (incr, 0)), NULL_TREE);
12780 break;
12781 case MODIFY_EXPR:
12782 if (TREE_CODE (TREE_OPERAND (incr, 1)) == PLUS_EXPR
12783 || TREE_CODE (TREE_OPERAND (incr, 1)) == MINUS_EXPR)
12785 tree rhs = TREE_OPERAND (incr, 1);
12786 incr = build2 (MODIFY_EXPR, TREE_TYPE (decl),
12787 RECUR (TREE_OPERAND (incr, 0)),
12788 build2 (TREE_CODE (rhs), TREE_TYPE (decl),
12789 RECUR (TREE_OPERAND (rhs, 0)),
12790 RECUR (TREE_OPERAND (rhs, 1))));
12792 else
12793 incr = RECUR (incr);
12794 break;
12795 case MODOP_EXPR:
12796 if (TREE_CODE (TREE_OPERAND (incr, 1)) == PLUS_EXPR
12797 || TREE_CODE (TREE_OPERAND (incr, 1)) == MINUS_EXPR)
12799 tree lhs = RECUR (TREE_OPERAND (incr, 0));
12800 incr = build2 (MODIFY_EXPR, TREE_TYPE (decl), lhs,
12801 build2 (TREE_CODE (TREE_OPERAND (incr, 1)),
12802 TREE_TYPE (decl), lhs,
12803 RECUR (TREE_OPERAND (incr, 2))));
12805 else if (TREE_CODE (TREE_OPERAND (incr, 1)) == NOP_EXPR
12806 && (TREE_CODE (TREE_OPERAND (incr, 2)) == PLUS_EXPR
12807 || (TREE_CODE (TREE_OPERAND (incr, 2)) == MINUS_EXPR)))
12809 tree rhs = TREE_OPERAND (incr, 2);
12810 incr = build2 (MODIFY_EXPR, TREE_TYPE (decl),
12811 RECUR (TREE_OPERAND (incr, 0)),
12812 build2 (TREE_CODE (rhs), TREE_TYPE (decl),
12813 RECUR (TREE_OPERAND (rhs, 0)),
12814 RECUR (TREE_OPERAND (rhs, 1))));
12816 else
12817 incr = RECUR (incr);
12818 break;
12819 default:
12820 incr = RECUR (incr);
12821 break;
12824 TREE_VEC_ELT (declv, i) = decl;
12825 TREE_VEC_ELT (initv, i) = init;
12826 TREE_VEC_ELT (condv, i) = cond;
12827 TREE_VEC_ELT (incrv, i) = incr;
12828 #undef RECUR
12831 /* Like tsubst_copy for expressions, etc. but also does semantic
12832 processing. */
12834 static tree
12835 tsubst_expr (tree t, tree args, tsubst_flags_t complain, tree in_decl,
12836 bool integral_constant_expression_p)
12838 #define RETURN(EXP) do { r = (EXP); goto out; } while(0)
12839 #define RECUR(NODE) \
12840 tsubst_expr ((NODE), args, complain, in_decl, \
12841 integral_constant_expression_p)
12843 tree stmt, tmp;
12844 tree r;
12845 location_t loc;
12847 if (t == NULL_TREE || t == error_mark_node)
12848 return t;
12850 loc = input_location;
12851 if (EXPR_HAS_LOCATION (t))
12852 input_location = EXPR_LOCATION (t);
12853 if (STATEMENT_CODE_P (TREE_CODE (t)))
12854 current_stmt_tree ()->stmts_are_full_exprs_p = STMT_IS_FULL_EXPR_P (t);
12856 switch (TREE_CODE (t))
12858 case STATEMENT_LIST:
12860 tree_stmt_iterator i;
12861 for (i = tsi_start (t); !tsi_end_p (i); tsi_next (&i))
12862 RECUR (tsi_stmt (i));
12863 break;
12866 case CTOR_INITIALIZER:
12867 finish_mem_initializers (tsubst_initializer_list
12868 (TREE_OPERAND (t, 0), args));
12869 break;
12871 case RETURN_EXPR:
12872 finish_return_stmt (RECUR (TREE_OPERAND (t, 0)));
12873 break;
12875 case EXPR_STMT:
12876 tmp = RECUR (EXPR_STMT_EXPR (t));
12877 if (EXPR_STMT_STMT_EXPR_RESULT (t))
12878 finish_stmt_expr_expr (tmp, cur_stmt_expr);
12879 else
12880 finish_expr_stmt (tmp);
12881 break;
12883 case USING_STMT:
12884 do_using_directive (USING_STMT_NAMESPACE (t));
12885 break;
12887 case DECL_EXPR:
12889 tree decl, pattern_decl;
12890 tree init;
12892 pattern_decl = decl = DECL_EXPR_DECL (t);
12893 if (TREE_CODE (decl) == LABEL_DECL)
12894 finish_label_decl (DECL_NAME (decl));
12895 else if (TREE_CODE (decl) == USING_DECL)
12897 tree scope = USING_DECL_SCOPE (decl);
12898 tree name = DECL_NAME (decl);
12899 tree decl;
12901 scope = tsubst (scope, args, complain, in_decl);
12902 decl = lookup_qualified_name (scope, name,
12903 /*is_type_p=*/false,
12904 /*complain=*/false);
12905 if (decl == error_mark_node || TREE_CODE (decl) == TREE_LIST)
12906 qualified_name_lookup_error (scope, name, decl, input_location);
12907 else
12908 do_local_using_decl (decl, scope, name);
12910 else
12912 init = DECL_INITIAL (decl);
12913 decl = tsubst (decl, args, complain, in_decl);
12914 if (decl != error_mark_node)
12916 /* By marking the declaration as instantiated, we avoid
12917 trying to instantiate it. Since instantiate_decl can't
12918 handle local variables, and since we've already done
12919 all that needs to be done, that's the right thing to
12920 do. */
12921 if (TREE_CODE (decl) == VAR_DECL)
12922 DECL_TEMPLATE_INSTANTIATED (decl) = 1;
12923 if (TREE_CODE (decl) == VAR_DECL
12924 && ANON_AGGR_TYPE_P (TREE_TYPE (decl)))
12925 /* Anonymous aggregates are a special case. */
12926 finish_anon_union (decl);
12927 else if (is_capture_proxy (DECL_EXPR_DECL (t)))
12929 DECL_CONTEXT (decl) = current_function_decl;
12930 if (DECL_NAME (decl) == this_identifier)
12932 tree lam = DECL_CONTEXT (current_function_decl);
12933 lam = CLASSTYPE_LAMBDA_EXPR (lam);
12934 LAMBDA_EXPR_THIS_CAPTURE (lam) = decl;
12936 insert_capture_proxy (decl);
12938 else if (DECL_IMPLICIT_TYPEDEF_P (t))
12939 /* We already did a pushtag. */;
12940 else
12942 int const_init = false;
12943 maybe_push_decl (decl);
12944 if (TREE_CODE (decl) == VAR_DECL
12945 && DECL_PRETTY_FUNCTION_P (decl))
12947 /* For __PRETTY_FUNCTION__ we have to adjust the
12948 initializer. */
12949 const char *const name
12950 = cxx_printable_name (current_function_decl, 2);
12951 init = cp_fname_init (name, &TREE_TYPE (decl));
12953 else
12955 tree t = RECUR (init);
12957 if (init && !t)
12959 /* If we had an initializer but it
12960 instantiated to nothing,
12961 value-initialize the object. This will
12962 only occur when the initializer was a
12963 pack expansion where the parameter packs
12964 used in that expansion were of length
12965 zero. */
12966 init = build_value_init (TREE_TYPE (decl),
12967 complain);
12968 if (TREE_CODE (init) == AGGR_INIT_EXPR)
12969 init = get_target_expr_sfinae (init, complain);
12971 else
12972 init = t;
12975 if (TREE_CODE (decl) == VAR_DECL)
12976 const_init = (DECL_INITIALIZED_BY_CONSTANT_EXPRESSION_P
12977 (pattern_decl));
12978 cp_finish_decl (decl, init, const_init, NULL_TREE, 0);
12983 break;
12986 case FOR_STMT:
12987 stmt = begin_for_stmt (NULL_TREE, NULL_TREE);
12988 RECUR (FOR_INIT_STMT (t));
12989 finish_for_init_stmt (stmt);
12990 tmp = RECUR (FOR_COND (t));
12991 finish_for_cond (tmp, stmt);
12992 tmp = RECUR (FOR_EXPR (t));
12993 finish_for_expr (tmp, stmt);
12994 RECUR (FOR_BODY (t));
12995 finish_for_stmt (stmt);
12996 break;
12998 case RANGE_FOR_STMT:
13000 tree decl, expr;
13001 stmt = begin_for_stmt (NULL_TREE, NULL_TREE);
13002 decl = RANGE_FOR_DECL (t);
13003 decl = tsubst (decl, args, complain, in_decl);
13004 maybe_push_decl (decl);
13005 expr = RECUR (RANGE_FOR_EXPR (t));
13006 stmt = cp_convert_range_for (stmt, decl, expr);
13007 RECUR (RANGE_FOR_BODY (t));
13008 finish_for_stmt (stmt);
13010 break;
13012 case WHILE_STMT:
13013 stmt = begin_while_stmt ();
13014 tmp = RECUR (WHILE_COND (t));
13015 finish_while_stmt_cond (tmp, stmt);
13016 RECUR (WHILE_BODY (t));
13017 finish_while_stmt (stmt);
13018 break;
13020 case DO_STMT:
13021 stmt = begin_do_stmt ();
13022 RECUR (DO_BODY (t));
13023 finish_do_body (stmt);
13024 tmp = RECUR (DO_COND (t));
13025 finish_do_stmt (tmp, stmt);
13026 break;
13028 case IF_STMT:
13029 stmt = begin_if_stmt ();
13030 tmp = RECUR (IF_COND (t));
13031 finish_if_stmt_cond (tmp, stmt);
13032 RECUR (THEN_CLAUSE (t));
13033 finish_then_clause (stmt);
13035 if (ELSE_CLAUSE (t))
13037 begin_else_clause (stmt);
13038 RECUR (ELSE_CLAUSE (t));
13039 finish_else_clause (stmt);
13042 finish_if_stmt (stmt);
13043 break;
13045 case BIND_EXPR:
13046 if (BIND_EXPR_BODY_BLOCK (t))
13047 stmt = begin_function_body ();
13048 else
13049 stmt = begin_compound_stmt (BIND_EXPR_TRY_BLOCK (t)
13050 ? BCS_TRY_BLOCK : 0);
13052 RECUR (BIND_EXPR_BODY (t));
13054 if (BIND_EXPR_BODY_BLOCK (t))
13055 finish_function_body (stmt);
13056 else
13057 finish_compound_stmt (stmt);
13058 break;
13060 case BREAK_STMT:
13061 finish_break_stmt ();
13062 break;
13064 case CONTINUE_STMT:
13065 finish_continue_stmt ();
13066 break;
13068 case SWITCH_STMT:
13069 stmt = begin_switch_stmt ();
13070 tmp = RECUR (SWITCH_STMT_COND (t));
13071 finish_switch_cond (tmp, stmt);
13072 RECUR (SWITCH_STMT_BODY (t));
13073 finish_switch_stmt (stmt);
13074 break;
13076 case CASE_LABEL_EXPR:
13077 finish_case_label (EXPR_LOCATION (t),
13078 RECUR (CASE_LOW (t)),
13079 RECUR (CASE_HIGH (t)));
13080 break;
13082 case LABEL_EXPR:
13084 tree decl = LABEL_EXPR_LABEL (t);
13085 tree label;
13087 label = finish_label_stmt (DECL_NAME (decl));
13088 if (DECL_ATTRIBUTES (decl) != NULL_TREE)
13089 cplus_decl_attributes (&label, DECL_ATTRIBUTES (decl), 0);
13091 break;
13093 case GOTO_EXPR:
13094 tmp = GOTO_DESTINATION (t);
13095 if (TREE_CODE (tmp) != LABEL_DECL)
13096 /* Computed goto's must be tsubst'd into. On the other hand,
13097 non-computed gotos must not be; the identifier in question
13098 will have no binding. */
13099 tmp = RECUR (tmp);
13100 else
13101 tmp = DECL_NAME (tmp);
13102 finish_goto_stmt (tmp);
13103 break;
13105 case ASM_EXPR:
13106 tmp = finish_asm_stmt
13107 (ASM_VOLATILE_P (t),
13108 RECUR (ASM_STRING (t)),
13109 tsubst_copy_asm_operands (ASM_OUTPUTS (t), args, complain, in_decl),
13110 tsubst_copy_asm_operands (ASM_INPUTS (t), args, complain, in_decl),
13111 tsubst_copy_asm_operands (ASM_CLOBBERS (t), args, complain, in_decl),
13112 tsubst_copy_asm_operands (ASM_LABELS (t), args, complain, in_decl));
13114 tree asm_expr = tmp;
13115 if (TREE_CODE (asm_expr) == CLEANUP_POINT_EXPR)
13116 asm_expr = TREE_OPERAND (asm_expr, 0);
13117 ASM_INPUT_P (asm_expr) = ASM_INPUT_P (t);
13119 break;
13121 case TRY_BLOCK:
13122 if (CLEANUP_P (t))
13124 stmt = begin_try_block ();
13125 RECUR (TRY_STMTS (t));
13126 finish_cleanup_try_block (stmt);
13127 finish_cleanup (RECUR (TRY_HANDLERS (t)), stmt);
13129 else
13131 tree compound_stmt = NULL_TREE;
13133 if (FN_TRY_BLOCK_P (t))
13134 stmt = begin_function_try_block (&compound_stmt);
13135 else
13136 stmt = begin_try_block ();
13138 RECUR (TRY_STMTS (t));
13140 if (FN_TRY_BLOCK_P (t))
13141 finish_function_try_block (stmt);
13142 else
13143 finish_try_block (stmt);
13145 RECUR (TRY_HANDLERS (t));
13146 if (FN_TRY_BLOCK_P (t))
13147 finish_function_handler_sequence (stmt, compound_stmt);
13148 else
13149 finish_handler_sequence (stmt);
13151 break;
13153 case HANDLER:
13155 tree decl = HANDLER_PARMS (t);
13157 if (decl)
13159 decl = tsubst (decl, args, complain, in_decl);
13160 /* Prevent instantiate_decl from trying to instantiate
13161 this variable. We've already done all that needs to be
13162 done. */
13163 if (decl != error_mark_node)
13164 DECL_TEMPLATE_INSTANTIATED (decl) = 1;
13166 stmt = begin_handler ();
13167 finish_handler_parms (decl, stmt);
13168 RECUR (HANDLER_BODY (t));
13169 finish_handler (stmt);
13171 break;
13173 case TAG_DEFN:
13174 tmp = tsubst (TREE_TYPE (t), args, complain, NULL_TREE);
13175 if (CLASS_TYPE_P (tmp))
13177 /* Local classes are not independent templates; they are
13178 instantiated along with their containing function. And this
13179 way we don't have to deal with pushing out of one local class
13180 to instantiate a member of another local class. */
13181 tree fn;
13182 /* Closures are handled by the LAMBDA_EXPR. */
13183 gcc_assert (!LAMBDA_TYPE_P (TREE_TYPE (t)));
13184 complete_type (tmp);
13185 for (fn = TYPE_METHODS (tmp); fn; fn = DECL_CHAIN (fn))
13186 if (!DECL_ARTIFICIAL (fn))
13187 instantiate_decl (fn, /*defer_ok*/0, /*expl_inst_class*/false);
13189 break;
13191 case STATIC_ASSERT:
13193 tree condition;
13195 ++c_inhibit_evaluation_warnings;
13196 condition =
13197 tsubst_expr (STATIC_ASSERT_CONDITION (t),
13198 args,
13199 complain, in_decl,
13200 /*integral_constant_expression_p=*/true);
13201 --c_inhibit_evaluation_warnings;
13203 finish_static_assert (condition,
13204 STATIC_ASSERT_MESSAGE (t),
13205 STATIC_ASSERT_SOURCE_LOCATION (t),
13206 /*member_p=*/false);
13208 break;
13210 case OMP_PARALLEL:
13211 tmp = tsubst_omp_clauses (OMP_PARALLEL_CLAUSES (t),
13212 args, complain, in_decl);
13213 stmt = begin_omp_parallel ();
13214 RECUR (OMP_PARALLEL_BODY (t));
13215 OMP_PARALLEL_COMBINED (finish_omp_parallel (tmp, stmt))
13216 = OMP_PARALLEL_COMBINED (t);
13217 break;
13219 case OMP_TASK:
13220 tmp = tsubst_omp_clauses (OMP_TASK_CLAUSES (t),
13221 args, complain, in_decl);
13222 stmt = begin_omp_task ();
13223 RECUR (OMP_TASK_BODY (t));
13224 finish_omp_task (tmp, stmt);
13225 break;
13227 case OMP_FOR:
13229 tree clauses, body, pre_body;
13230 tree declv, initv, condv, incrv;
13231 int i;
13233 clauses = tsubst_omp_clauses (OMP_FOR_CLAUSES (t),
13234 args, complain, in_decl);
13235 declv = make_tree_vec (TREE_VEC_LENGTH (OMP_FOR_INIT (t)));
13236 initv = make_tree_vec (TREE_VEC_LENGTH (OMP_FOR_INIT (t)));
13237 condv = make_tree_vec (TREE_VEC_LENGTH (OMP_FOR_INIT (t)));
13238 incrv = make_tree_vec (TREE_VEC_LENGTH (OMP_FOR_INIT (t)));
13240 stmt = begin_omp_structured_block ();
13242 for (i = 0; i < TREE_VEC_LENGTH (OMP_FOR_INIT (t)); i++)
13243 tsubst_omp_for_iterator (t, i, declv, initv, condv, incrv,
13244 &clauses, args, complain, in_decl,
13245 integral_constant_expression_p);
13247 pre_body = push_stmt_list ();
13248 RECUR (OMP_FOR_PRE_BODY (t));
13249 pre_body = pop_stmt_list (pre_body);
13251 body = push_stmt_list ();
13252 RECUR (OMP_FOR_BODY (t));
13253 body = pop_stmt_list (body);
13255 t = finish_omp_for (EXPR_LOCATION (t), declv, initv, condv, incrv,
13256 body, pre_body, clauses);
13258 add_stmt (finish_omp_structured_block (stmt));
13260 break;
13262 case OMP_SECTIONS:
13263 case OMP_SINGLE:
13264 tmp = tsubst_omp_clauses (OMP_CLAUSES (t), args, complain, in_decl);
13265 stmt = push_stmt_list ();
13266 RECUR (OMP_BODY (t));
13267 stmt = pop_stmt_list (stmt);
13269 t = copy_node (t);
13270 OMP_BODY (t) = stmt;
13271 OMP_CLAUSES (t) = tmp;
13272 add_stmt (t);
13273 break;
13275 case OMP_SECTION:
13276 case OMP_CRITICAL:
13277 case OMP_MASTER:
13278 case OMP_ORDERED:
13279 stmt = push_stmt_list ();
13280 RECUR (OMP_BODY (t));
13281 stmt = pop_stmt_list (stmt);
13283 t = copy_node (t);
13284 OMP_BODY (t) = stmt;
13285 add_stmt (t);
13286 break;
13288 case OMP_ATOMIC:
13289 gcc_assert (OMP_ATOMIC_DEPENDENT_P (t));
13290 if (TREE_CODE (TREE_OPERAND (t, 1)) != MODIFY_EXPR)
13292 tree op1 = TREE_OPERAND (t, 1);
13293 tree rhs1 = NULL_TREE;
13294 tree lhs, rhs;
13295 if (TREE_CODE (op1) == COMPOUND_EXPR)
13297 rhs1 = RECUR (TREE_OPERAND (op1, 0));
13298 op1 = TREE_OPERAND (op1, 1);
13300 lhs = RECUR (TREE_OPERAND (op1, 0));
13301 rhs = RECUR (TREE_OPERAND (op1, 1));
13302 finish_omp_atomic (OMP_ATOMIC, TREE_CODE (op1), lhs, rhs,
13303 NULL_TREE, NULL_TREE, rhs1);
13305 else
13307 tree op1 = TREE_OPERAND (t, 1);
13308 tree v = NULL_TREE, lhs, rhs = NULL_TREE, lhs1 = NULL_TREE;
13309 tree rhs1 = NULL_TREE;
13310 enum tree_code code = TREE_CODE (TREE_OPERAND (op1, 1));
13311 enum tree_code opcode = NOP_EXPR;
13312 if (code == OMP_ATOMIC_READ)
13314 v = RECUR (TREE_OPERAND (op1, 0));
13315 lhs = RECUR (TREE_OPERAND (TREE_OPERAND (op1, 1), 0));
13317 else if (code == OMP_ATOMIC_CAPTURE_OLD
13318 || code == OMP_ATOMIC_CAPTURE_NEW)
13320 tree op11 = TREE_OPERAND (TREE_OPERAND (op1, 1), 1);
13321 v = RECUR (TREE_OPERAND (op1, 0));
13322 lhs1 = RECUR (TREE_OPERAND (TREE_OPERAND (op1, 1), 0));
13323 if (TREE_CODE (op11) == COMPOUND_EXPR)
13325 rhs1 = RECUR (TREE_OPERAND (op11, 0));
13326 op11 = TREE_OPERAND (op11, 1);
13328 lhs = RECUR (TREE_OPERAND (op11, 0));
13329 rhs = RECUR (TREE_OPERAND (op11, 1));
13330 opcode = TREE_CODE (op11);
13332 else
13334 code = OMP_ATOMIC;
13335 lhs = RECUR (TREE_OPERAND (op1, 0));
13336 rhs = RECUR (TREE_OPERAND (op1, 1));
13338 finish_omp_atomic (code, opcode, lhs, rhs, v, lhs1, rhs1);
13340 break;
13342 case TRANSACTION_EXPR:
13344 int flags = 0;
13345 flags |= (TRANSACTION_EXPR_OUTER (t) ? TM_STMT_ATTR_OUTER : 0);
13346 flags |= (TRANSACTION_EXPR_RELAXED (t) ? TM_STMT_ATTR_RELAXED : 0);
13348 if (TRANSACTION_EXPR_IS_STMT (t))
13350 tree body = TRANSACTION_EXPR_BODY (t);
13351 tree noex = NULL_TREE;
13352 if (TREE_CODE (body) == MUST_NOT_THROW_EXPR)
13354 noex = MUST_NOT_THROW_COND (body);
13355 if (noex == NULL_TREE)
13356 noex = boolean_true_node;
13357 body = TREE_OPERAND (body, 0);
13359 stmt = begin_transaction_stmt (input_location, NULL, flags);
13360 RECUR (body);
13361 finish_transaction_stmt (stmt, NULL, flags, RECUR (noex));
13363 else
13365 stmt = build_transaction_expr (EXPR_LOCATION (t),
13366 RECUR (TRANSACTION_EXPR_BODY (t)),
13367 flags, NULL_TREE);
13368 RETURN (stmt);
13371 break;
13373 case MUST_NOT_THROW_EXPR:
13374 RETURN (build_must_not_throw_expr (RECUR (TREE_OPERAND (t, 0)),
13375 RECUR (MUST_NOT_THROW_COND (t))));
13377 case EXPR_PACK_EXPANSION:
13378 error ("invalid use of pack expansion expression");
13379 RETURN (error_mark_node);
13381 case NONTYPE_ARGUMENT_PACK:
13382 error ("use %<...%> to expand argument pack");
13383 RETURN (error_mark_node);
13385 case COMPOUND_EXPR:
13386 tmp = RECUR (TREE_OPERAND (t, 0));
13387 if (tmp == NULL_TREE)
13388 /* If the first operand was a statement, we're done with it. */
13389 RETURN (RECUR (TREE_OPERAND (t, 1)));
13390 RETURN (build_x_compound_expr (EXPR_LOCATION (t), tmp,
13391 RECUR (TREE_OPERAND (t, 1)),
13392 complain));
13394 default:
13395 gcc_assert (!STATEMENT_CODE_P (TREE_CODE (t)));
13397 RETURN (tsubst_copy_and_build (t, args, complain, in_decl,
13398 /*function_p=*/false,
13399 integral_constant_expression_p));
13402 RETURN (NULL_TREE);
13403 out:
13404 input_location = loc;
13405 return r;
13406 #undef RECUR
13407 #undef RETURN
13410 /* T is a postfix-expression that is not being used in a function
13411 call. Return the substituted version of T. */
13413 static tree
13414 tsubst_non_call_postfix_expression (tree t, tree args,
13415 tsubst_flags_t complain,
13416 tree in_decl)
13418 if (TREE_CODE (t) == SCOPE_REF)
13419 t = tsubst_qualified_id (t, args, complain, in_decl,
13420 /*done=*/false, /*address_p=*/false);
13421 else
13422 t = tsubst_copy_and_build (t, args, complain, in_decl,
13423 /*function_p=*/false,
13424 /*integral_constant_expression_p=*/false);
13426 return t;
13429 /* Like tsubst but deals with expressions and performs semantic
13430 analysis. FUNCTION_P is true if T is the "F" in "F (ARGS)". */
13432 tree
13433 tsubst_copy_and_build (tree t,
13434 tree args,
13435 tsubst_flags_t complain,
13436 tree in_decl,
13437 bool function_p,
13438 bool integral_constant_expression_p)
13440 #define RETURN(EXP) do { retval = (EXP); goto out; } while(0)
13441 #define RECUR(NODE) \
13442 tsubst_copy_and_build (NODE, args, complain, in_decl, \
13443 /*function_p=*/false, \
13444 integral_constant_expression_p)
13446 tree retval, op1;
13447 location_t loc;
13449 if (t == NULL_TREE || t == error_mark_node)
13450 return t;
13452 loc = input_location;
13453 if (EXPR_HAS_LOCATION (t))
13454 input_location = EXPR_LOCATION (t);
13456 /* N3276 decltype magic only applies to calls at the top level or on the
13457 right side of a comma. */
13458 tsubst_flags_t decltype_flag = (complain & tf_decltype);
13459 complain &= ~tf_decltype;
13461 switch (TREE_CODE (t))
13463 case USING_DECL:
13464 t = DECL_NAME (t);
13465 /* Fall through. */
13466 case IDENTIFIER_NODE:
13468 tree decl;
13469 cp_id_kind idk;
13470 bool non_integral_constant_expression_p;
13471 const char *error_msg;
13473 if (IDENTIFIER_TYPENAME_P (t))
13475 tree new_type = tsubst (TREE_TYPE (t), args, complain, in_decl);
13476 t = mangle_conv_op_name_for_type (new_type);
13479 /* Look up the name. */
13480 decl = lookup_name (t);
13482 /* By convention, expressions use ERROR_MARK_NODE to indicate
13483 failure, not NULL_TREE. */
13484 if (decl == NULL_TREE)
13485 decl = error_mark_node;
13487 decl = finish_id_expression (t, decl, NULL_TREE,
13488 &idk,
13489 integral_constant_expression_p,
13490 /*allow_non_integral_constant_expression_p=*/(cxx_dialect >= cxx0x),
13491 &non_integral_constant_expression_p,
13492 /*template_p=*/false,
13493 /*done=*/true,
13494 /*address_p=*/false,
13495 /*template_arg_p=*/false,
13496 &error_msg,
13497 input_location);
13498 if (error_msg)
13499 error (error_msg);
13500 if (!function_p && TREE_CODE (decl) == IDENTIFIER_NODE)
13502 if (complain & tf_error)
13503 unqualified_name_lookup_error (decl);
13504 decl = error_mark_node;
13506 RETURN (decl);
13509 case TEMPLATE_ID_EXPR:
13511 tree object;
13512 tree templ = RECUR (TREE_OPERAND (t, 0));
13513 tree targs = TREE_OPERAND (t, 1);
13515 if (targs)
13516 targs = tsubst_template_args (targs, args, complain, in_decl);
13518 if (TREE_CODE (templ) == COMPONENT_REF)
13520 object = TREE_OPERAND (templ, 0);
13521 templ = TREE_OPERAND (templ, 1);
13523 else
13524 object = NULL_TREE;
13525 templ = lookup_template_function (templ, targs);
13527 if (object)
13528 RETURN (build3 (COMPONENT_REF, TREE_TYPE (templ),
13529 object, templ, NULL_TREE));
13530 else
13531 RETURN (baselink_for_fns (templ));
13534 case INDIRECT_REF:
13536 tree r = RECUR (TREE_OPERAND (t, 0));
13538 if (REFERENCE_REF_P (t))
13540 /* A type conversion to reference type will be enclosed in
13541 such an indirect ref, but the substitution of the cast
13542 will have also added such an indirect ref. */
13543 if (TREE_CODE (TREE_TYPE (r)) == REFERENCE_TYPE)
13544 r = convert_from_reference (r);
13546 else
13547 r = build_x_indirect_ref (input_location, r, RO_UNARY_STAR,
13548 complain|decltype_flag);
13549 RETURN (r);
13552 case NOP_EXPR:
13553 RETURN (build_nop
13554 (tsubst (TREE_TYPE (t), args, complain, in_decl),
13555 RECUR (TREE_OPERAND (t, 0))));
13557 case IMPLICIT_CONV_EXPR:
13559 tree type = tsubst (TREE_TYPE (t), args, complain, in_decl);
13560 tree expr = RECUR (TREE_OPERAND (t, 0));
13561 int flags = LOOKUP_IMPLICIT;
13562 if (IMPLICIT_CONV_EXPR_DIRECT_INIT (t))
13563 flags = LOOKUP_NORMAL;
13564 RETURN (perform_implicit_conversion_flags (type, expr, complain,
13565 flags));
13568 case CONVERT_EXPR:
13569 RETURN (build1
13570 (CONVERT_EXPR,
13571 tsubst (TREE_TYPE (t), args, complain, in_decl),
13572 RECUR (TREE_OPERAND (t, 0))));
13574 case CAST_EXPR:
13575 case REINTERPRET_CAST_EXPR:
13576 case CONST_CAST_EXPR:
13577 case DYNAMIC_CAST_EXPR:
13578 case STATIC_CAST_EXPR:
13580 tree type;
13581 tree op, r = NULL_TREE;
13583 type = tsubst (TREE_TYPE (t), args, complain, in_decl);
13584 if (integral_constant_expression_p
13585 && !cast_valid_in_integral_constant_expression_p (type))
13587 if (complain & tf_error)
13588 error ("a cast to a type other than an integral or "
13589 "enumeration type cannot appear in a constant-expression");
13590 RETURN (error_mark_node);
13593 op = RECUR (TREE_OPERAND (t, 0));
13595 ++c_inhibit_evaluation_warnings;
13596 switch (TREE_CODE (t))
13598 case CAST_EXPR:
13599 r = build_functional_cast (type, op, complain);
13600 break;
13601 case REINTERPRET_CAST_EXPR:
13602 r = build_reinterpret_cast (type, op, complain);
13603 break;
13604 case CONST_CAST_EXPR:
13605 r = build_const_cast (type, op, complain);
13606 break;
13607 case DYNAMIC_CAST_EXPR:
13608 r = build_dynamic_cast (type, op, complain);
13609 break;
13610 case STATIC_CAST_EXPR:
13611 r = build_static_cast (type, op, complain);
13612 break;
13613 default:
13614 gcc_unreachable ();
13616 --c_inhibit_evaluation_warnings;
13618 RETURN (r);
13621 case POSTDECREMENT_EXPR:
13622 case POSTINCREMENT_EXPR:
13623 op1 = tsubst_non_call_postfix_expression (TREE_OPERAND (t, 0),
13624 args, complain, in_decl);
13625 RETURN (build_x_unary_op (input_location, TREE_CODE (t), op1,
13626 complain|decltype_flag));
13628 case PREDECREMENT_EXPR:
13629 case PREINCREMENT_EXPR:
13630 case NEGATE_EXPR:
13631 case BIT_NOT_EXPR:
13632 case ABS_EXPR:
13633 case TRUTH_NOT_EXPR:
13634 case UNARY_PLUS_EXPR: /* Unary + */
13635 case REALPART_EXPR:
13636 case IMAGPART_EXPR:
13637 RETURN (build_x_unary_op (input_location, TREE_CODE (t),
13638 RECUR (TREE_OPERAND (t, 0)),
13639 complain|decltype_flag));
13641 case FIX_TRUNC_EXPR:
13642 RETURN (cp_build_unary_op (FIX_TRUNC_EXPR, RECUR (TREE_OPERAND (t, 0)),
13643 0, complain));
13645 case ADDR_EXPR:
13646 op1 = TREE_OPERAND (t, 0);
13647 if (TREE_CODE (op1) == LABEL_DECL)
13648 RETURN (finish_label_address_expr (DECL_NAME (op1),
13649 EXPR_LOCATION (op1)));
13650 if (TREE_CODE (op1) == SCOPE_REF)
13651 op1 = tsubst_qualified_id (op1, args, complain, in_decl,
13652 /*done=*/true, /*address_p=*/true);
13653 else
13654 op1 = tsubst_non_call_postfix_expression (op1, args, complain,
13655 in_decl);
13656 RETURN (build_x_unary_op (input_location, ADDR_EXPR, op1,
13657 complain|decltype_flag));
13659 case PLUS_EXPR:
13660 case MINUS_EXPR:
13661 case MULT_EXPR:
13662 case TRUNC_DIV_EXPR:
13663 case CEIL_DIV_EXPR:
13664 case FLOOR_DIV_EXPR:
13665 case ROUND_DIV_EXPR:
13666 case EXACT_DIV_EXPR:
13667 case BIT_AND_EXPR:
13668 case BIT_IOR_EXPR:
13669 case BIT_XOR_EXPR:
13670 case TRUNC_MOD_EXPR:
13671 case FLOOR_MOD_EXPR:
13672 case TRUTH_ANDIF_EXPR:
13673 case TRUTH_ORIF_EXPR:
13674 case TRUTH_AND_EXPR:
13675 case TRUTH_OR_EXPR:
13676 case RSHIFT_EXPR:
13677 case LSHIFT_EXPR:
13678 case RROTATE_EXPR:
13679 case LROTATE_EXPR:
13680 case EQ_EXPR:
13681 case NE_EXPR:
13682 case MAX_EXPR:
13683 case MIN_EXPR:
13684 case LE_EXPR:
13685 case GE_EXPR:
13686 case LT_EXPR:
13687 case GT_EXPR:
13688 case MEMBER_REF:
13689 case DOTSTAR_EXPR:
13691 tree r;
13693 ++c_inhibit_evaluation_warnings;
13695 r = build_x_binary_op
13696 (input_location, TREE_CODE (t),
13697 RECUR (TREE_OPERAND (t, 0)),
13698 (TREE_NO_WARNING (TREE_OPERAND (t, 0))
13699 ? ERROR_MARK
13700 : TREE_CODE (TREE_OPERAND (t, 0))),
13701 RECUR (TREE_OPERAND (t, 1)),
13702 (TREE_NO_WARNING (TREE_OPERAND (t, 1))
13703 ? ERROR_MARK
13704 : TREE_CODE (TREE_OPERAND (t, 1))),
13705 /*overload=*/NULL,
13706 complain|decltype_flag);
13707 if (EXPR_P (r) && TREE_NO_WARNING (t))
13708 TREE_NO_WARNING (r) = TREE_NO_WARNING (t);
13710 --c_inhibit_evaluation_warnings;
13712 RETURN (r);
13715 case POINTER_PLUS_EXPR:
13716 return fold_build_pointer_plus (RECUR (TREE_OPERAND (t, 0)),
13717 RECUR (TREE_OPERAND (t, 1)));
13719 case SCOPE_REF:
13720 RETURN (tsubst_qualified_id (t, args, complain, in_decl, /*done=*/true,
13721 /*address_p=*/false));
13722 case ARRAY_REF:
13723 op1 = tsubst_non_call_postfix_expression (TREE_OPERAND (t, 0),
13724 args, complain, in_decl);
13725 RETURN (build_x_array_ref (EXPR_LOCATION (t), op1,
13726 RECUR (TREE_OPERAND (t, 1)),
13727 complain|decltype_flag));
13729 case SIZEOF_EXPR:
13730 if (PACK_EXPANSION_P (TREE_OPERAND (t, 0)))
13731 RETURN (tsubst_copy (t, args, complain, in_decl));
13732 /* Fall through */
13734 case ALIGNOF_EXPR:
13736 tree r;
13738 op1 = TREE_OPERAND (t, 0);
13739 if (TREE_CODE (t) == SIZEOF_EXPR && SIZEOF_EXPR_TYPE_P (t))
13740 op1 = TREE_TYPE (op1);
13741 if (!args)
13743 /* When there are no ARGS, we are trying to evaluate a
13744 non-dependent expression from the parser. Trying to do
13745 the substitutions may not work. */
13746 if (!TYPE_P (op1))
13747 op1 = TREE_TYPE (op1);
13749 else
13751 ++cp_unevaluated_operand;
13752 ++c_inhibit_evaluation_warnings;
13753 if (TYPE_P (op1))
13754 op1 = tsubst (op1, args, complain, in_decl);
13755 else
13756 op1 = tsubst_copy_and_build (op1, args, complain, in_decl,
13757 /*function_p=*/false,
13758 /*integral_constant_expression_p=*/
13759 false);
13760 --cp_unevaluated_operand;
13761 --c_inhibit_evaluation_warnings;
13763 if (TYPE_P (op1))
13764 r = cxx_sizeof_or_alignof_type (op1, TREE_CODE (t),
13765 complain & tf_error);
13766 else
13767 r = cxx_sizeof_or_alignof_expr (op1, TREE_CODE (t),
13768 complain & tf_error);
13769 if (TREE_CODE (t) == SIZEOF_EXPR && r != error_mark_node)
13771 if (TREE_CODE (r) != SIZEOF_EXPR || TYPE_P (op1))
13773 if (!processing_template_decl && TYPE_P (op1))
13775 r = build_min (SIZEOF_EXPR, size_type_node,
13776 build1 (NOP_EXPR, op1, error_mark_node));
13777 SIZEOF_EXPR_TYPE_P (r) = 1;
13779 else
13780 r = build_min (SIZEOF_EXPR, size_type_node, op1);
13781 TREE_SIDE_EFFECTS (r) = 0;
13782 TREE_READONLY (r) = 1;
13784 SET_EXPR_LOCATION (r, EXPR_LOCATION (t));
13786 RETURN (r);
13789 case AT_ENCODE_EXPR:
13791 op1 = TREE_OPERAND (t, 0);
13792 ++cp_unevaluated_operand;
13793 ++c_inhibit_evaluation_warnings;
13794 op1 = tsubst_copy_and_build (op1, args, complain, in_decl,
13795 /*function_p=*/false,
13796 /*integral_constant_expression_p=*/false);
13797 --cp_unevaluated_operand;
13798 --c_inhibit_evaluation_warnings;
13799 RETURN (objc_build_encode_expr (op1));
13802 case NOEXCEPT_EXPR:
13803 op1 = TREE_OPERAND (t, 0);
13804 ++cp_unevaluated_operand;
13805 ++c_inhibit_evaluation_warnings;
13806 op1 = tsubst_copy_and_build (op1, args, complain, in_decl,
13807 /*function_p=*/false,
13808 /*integral_constant_expression_p=*/false);
13809 --cp_unevaluated_operand;
13810 --c_inhibit_evaluation_warnings;
13811 RETURN (finish_noexcept_expr (op1, complain));
13813 case MODOP_EXPR:
13815 tree r = build_x_modify_expr
13816 (EXPR_LOCATION (t),
13817 RECUR (TREE_OPERAND (t, 0)),
13818 TREE_CODE (TREE_OPERAND (t, 1)),
13819 RECUR (TREE_OPERAND (t, 2)),
13820 complain|decltype_flag);
13821 /* TREE_NO_WARNING must be set if either the expression was
13822 parenthesized or it uses an operator such as >>= rather
13823 than plain assignment. In the former case, it was already
13824 set and must be copied. In the latter case,
13825 build_x_modify_expr sets it and it must not be reset
13826 here. */
13827 if (TREE_NO_WARNING (t))
13828 TREE_NO_WARNING (r) = TREE_NO_WARNING (t);
13829 RETURN (r);
13832 case ARROW_EXPR:
13833 op1 = tsubst_non_call_postfix_expression (TREE_OPERAND (t, 0),
13834 args, complain, in_decl);
13835 /* Remember that there was a reference to this entity. */
13836 if (DECL_P (op1))
13837 mark_used (op1);
13838 RETURN (build_x_arrow (input_location, op1, complain));
13840 case NEW_EXPR:
13842 tree placement = RECUR (TREE_OPERAND (t, 0));
13843 tree init = RECUR (TREE_OPERAND (t, 3));
13844 vec<tree, va_gc> *placement_vec;
13845 vec<tree, va_gc> *init_vec;
13846 tree ret;
13848 if (placement == NULL_TREE)
13849 placement_vec = NULL;
13850 else
13852 placement_vec = make_tree_vector ();
13853 for (; placement != NULL_TREE; placement = TREE_CHAIN (placement))
13854 vec_safe_push (placement_vec, TREE_VALUE (placement));
13857 /* If there was an initializer in the original tree, but it
13858 instantiated to an empty list, then we should pass a
13859 non-NULL empty vector to tell build_new that it was an
13860 empty initializer() rather than no initializer. This can
13861 only happen when the initializer is a pack expansion whose
13862 parameter packs are of length zero. */
13863 if (init == NULL_TREE && TREE_OPERAND (t, 3) == NULL_TREE)
13864 init_vec = NULL;
13865 else
13867 init_vec = make_tree_vector ();
13868 if (init == void_zero_node)
13869 gcc_assert (init_vec != NULL);
13870 else
13872 for (; init != NULL_TREE; init = TREE_CHAIN (init))
13873 vec_safe_push (init_vec, TREE_VALUE (init));
13877 ret = build_new (&placement_vec,
13878 tsubst (TREE_OPERAND (t, 1), args, complain, in_decl),
13879 RECUR (TREE_OPERAND (t, 2)),
13880 &init_vec,
13881 NEW_EXPR_USE_GLOBAL (t),
13882 complain);
13884 if (placement_vec != NULL)
13885 release_tree_vector (placement_vec);
13886 if (init_vec != NULL)
13887 release_tree_vector (init_vec);
13889 RETURN (ret);
13892 case DELETE_EXPR:
13893 RETURN (delete_sanity
13894 (RECUR (TREE_OPERAND (t, 0)),
13895 RECUR (TREE_OPERAND (t, 1)),
13896 DELETE_EXPR_USE_VEC (t),
13897 DELETE_EXPR_USE_GLOBAL (t),
13898 complain));
13900 case COMPOUND_EXPR:
13902 tree op0 = tsubst_copy_and_build (TREE_OPERAND (t, 0), args,
13903 complain & ~tf_decltype, in_decl,
13904 /*function_p=*/false,
13905 integral_constant_expression_p);
13906 RETURN (build_x_compound_expr (EXPR_LOCATION (t),
13907 op0,
13908 RECUR (TREE_OPERAND (t, 1)),
13909 complain|decltype_flag));
13912 case CALL_EXPR:
13914 tree function;
13915 vec<tree, va_gc> *call_args;
13916 unsigned int nargs, i;
13917 bool qualified_p;
13918 bool koenig_p;
13919 tree ret;
13921 function = CALL_EXPR_FN (t);
13922 /* When we parsed the expression, we determined whether or
13923 not Koenig lookup should be performed. */
13924 koenig_p = KOENIG_LOOKUP_P (t);
13925 if (TREE_CODE (function) == SCOPE_REF)
13927 qualified_p = true;
13928 function = tsubst_qualified_id (function, args, complain, in_decl,
13929 /*done=*/false,
13930 /*address_p=*/false);
13932 else if (koenig_p && TREE_CODE (function) == IDENTIFIER_NODE)
13934 /* Do nothing; calling tsubst_copy_and_build on an identifier
13935 would incorrectly perform unqualified lookup again.
13937 Note that we can also have an IDENTIFIER_NODE if the earlier
13938 unqualified lookup found a member function; in that case
13939 koenig_p will be false and we do want to do the lookup
13940 again to find the instantiated member function.
13942 FIXME but doing that causes c++/15272, so we need to stop
13943 using IDENTIFIER_NODE in that situation. */
13944 qualified_p = false;
13946 else
13948 if (TREE_CODE (function) == COMPONENT_REF)
13950 tree op = TREE_OPERAND (function, 1);
13952 qualified_p = (TREE_CODE (op) == SCOPE_REF
13953 || (BASELINK_P (op)
13954 && BASELINK_QUALIFIED_P (op)));
13956 else
13957 qualified_p = false;
13959 if (TREE_CODE (function) == ADDR_EXPR
13960 && TREE_CODE (TREE_OPERAND (function, 0)) == FUNCTION_DECL)
13961 /* Avoid error about taking the address of a constructor. */
13962 function = TREE_OPERAND (function, 0);
13964 function = tsubst_copy_and_build (function, args, complain,
13965 in_decl,
13966 !qualified_p,
13967 integral_constant_expression_p);
13969 if (BASELINK_P (function))
13970 qualified_p = true;
13973 nargs = call_expr_nargs (t);
13974 call_args = make_tree_vector ();
13975 for (i = 0; i < nargs; ++i)
13977 tree arg = CALL_EXPR_ARG (t, i);
13979 if (!PACK_EXPANSION_P (arg))
13980 vec_safe_push (call_args, RECUR (CALL_EXPR_ARG (t, i)));
13981 else
13983 /* Expand the pack expansion and push each entry onto
13984 CALL_ARGS. */
13985 arg = tsubst_pack_expansion (arg, args, complain, in_decl);
13986 if (TREE_CODE (arg) == TREE_VEC)
13988 unsigned int len, j;
13990 len = TREE_VEC_LENGTH (arg);
13991 for (j = 0; j < len; ++j)
13993 tree value = TREE_VEC_ELT (arg, j);
13994 if (value != NULL_TREE)
13995 value = convert_from_reference (value);
13996 vec_safe_push (call_args, value);
13999 else
14001 /* A partial substitution. Add one entry. */
14002 vec_safe_push (call_args, arg);
14007 /* We do not perform argument-dependent lookup if normal
14008 lookup finds a non-function, in accordance with the
14009 expected resolution of DR 218. */
14010 if (koenig_p
14011 && ((is_overloaded_fn (function)
14012 /* If lookup found a member function, the Koenig lookup is
14013 not appropriate, even if an unqualified-name was used
14014 to denote the function. */
14015 && !DECL_FUNCTION_MEMBER_P (get_first_fn (function)))
14016 || TREE_CODE (function) == IDENTIFIER_NODE)
14017 /* Only do this when substitution turns a dependent call
14018 into a non-dependent call. */
14019 && type_dependent_expression_p_push (t)
14020 && !any_type_dependent_arguments_p (call_args))
14021 function = perform_koenig_lookup (function, call_args, false,
14022 tf_none);
14024 if (TREE_CODE (function) == IDENTIFIER_NODE
14025 && !any_type_dependent_arguments_p (call_args))
14027 if (koenig_p && (complain & tf_warning_or_error))
14029 /* For backwards compatibility and good diagnostics, try
14030 the unqualified lookup again if we aren't in SFINAE
14031 context. */
14032 tree unq = (tsubst_copy_and_build
14033 (function, args, complain, in_decl, true,
14034 integral_constant_expression_p));
14035 if (unq == error_mark_node)
14036 RETURN (error_mark_node);
14038 if (unq != function)
14040 tree fn = unq;
14041 if (TREE_CODE (fn) == INDIRECT_REF)
14042 fn = TREE_OPERAND (fn, 0);
14043 if (TREE_CODE (fn) == COMPONENT_REF)
14044 fn = TREE_OPERAND (fn, 1);
14045 if (is_overloaded_fn (fn))
14046 fn = get_first_fn (fn);
14047 permerror (EXPR_LOC_OR_HERE (t),
14048 "%qD was not declared in this scope, "
14049 "and no declarations were found by "
14050 "argument-dependent lookup at the point "
14051 "of instantiation", function);
14052 if (!DECL_P (fn))
14053 /* Can't say anything more. */;
14054 else if (DECL_CLASS_SCOPE_P (fn))
14056 inform (EXPR_LOC_OR_HERE (t),
14057 "declarations in dependent base %qT are "
14058 "not found by unqualified lookup",
14059 DECL_CLASS_CONTEXT (fn));
14060 if (current_class_ptr)
14061 inform (EXPR_LOC_OR_HERE (t),
14062 "use %<this->%D%> instead", function);
14063 else
14064 inform (EXPR_LOC_OR_HERE (t),
14065 "use %<%T::%D%> instead",
14066 current_class_name, function);
14068 else
14069 inform (0, "%q+D declared here, later in the "
14070 "translation unit", fn);
14071 function = unq;
14074 if (TREE_CODE (function) == IDENTIFIER_NODE)
14076 if (complain & tf_error)
14077 unqualified_name_lookup_error (function);
14078 release_tree_vector (call_args);
14079 RETURN (error_mark_node);
14083 /* Remember that there was a reference to this entity. */
14084 if (DECL_P (function))
14085 mark_used (function);
14087 /* Put back tf_decltype for the actual call. */
14088 complain |= decltype_flag;
14090 if (TREE_CODE (function) == OFFSET_REF)
14091 ret = build_offset_ref_call_from_tree (function, &call_args,
14092 complain);
14093 else if (TREE_CODE (function) == COMPONENT_REF)
14095 tree instance = TREE_OPERAND (function, 0);
14096 tree fn = TREE_OPERAND (function, 1);
14098 if (processing_template_decl
14099 && (type_dependent_expression_p (instance)
14100 || (!BASELINK_P (fn)
14101 && TREE_CODE (fn) != FIELD_DECL)
14102 || type_dependent_expression_p (fn)
14103 || any_type_dependent_arguments_p (call_args)))
14104 ret = build_nt_call_vec (function, call_args);
14105 else if (!BASELINK_P (fn))
14106 ret = finish_call_expr (function, &call_args,
14107 /*disallow_virtual=*/false,
14108 /*koenig_p=*/false,
14109 complain);
14110 else
14111 ret = (build_new_method_call
14112 (instance, fn,
14113 &call_args, NULL_TREE,
14114 qualified_p ? LOOKUP_NONVIRTUAL : LOOKUP_NORMAL,
14115 /*fn_p=*/NULL,
14116 complain));
14118 else
14119 ret = finish_call_expr (function, &call_args,
14120 /*disallow_virtual=*/qualified_p,
14121 koenig_p,
14122 complain);
14124 release_tree_vector (call_args);
14126 RETURN (ret);
14129 case COND_EXPR:
14131 tree cond = RECUR (TREE_OPERAND (t, 0));
14132 tree exp1, exp2;
14134 if (TREE_CODE (cond) == INTEGER_CST)
14136 if (integer_zerop (cond))
14138 ++c_inhibit_evaluation_warnings;
14139 exp1 = RECUR (TREE_OPERAND (t, 1));
14140 --c_inhibit_evaluation_warnings;
14141 exp2 = RECUR (TREE_OPERAND (t, 2));
14143 else
14145 exp1 = RECUR (TREE_OPERAND (t, 1));
14146 ++c_inhibit_evaluation_warnings;
14147 exp2 = RECUR (TREE_OPERAND (t, 2));
14148 --c_inhibit_evaluation_warnings;
14151 else
14153 exp1 = RECUR (TREE_OPERAND (t, 1));
14154 exp2 = RECUR (TREE_OPERAND (t, 2));
14157 RETURN (build_x_conditional_expr (EXPR_LOCATION (t),
14158 cond, exp1, exp2, complain));
14161 case PSEUDO_DTOR_EXPR:
14162 RETURN (finish_pseudo_destructor_expr
14163 (RECUR (TREE_OPERAND (t, 0)),
14164 RECUR (TREE_OPERAND (t, 1)),
14165 tsubst (TREE_OPERAND (t, 2), args, complain, in_decl)));
14167 case TREE_LIST:
14169 tree purpose, value, chain;
14171 if (t == void_list_node)
14172 RETURN (t);
14174 if ((TREE_PURPOSE (t) && PACK_EXPANSION_P (TREE_PURPOSE (t)))
14175 || (TREE_VALUE (t) && PACK_EXPANSION_P (TREE_VALUE (t))))
14177 /* We have pack expansions, so expand those and
14178 create a new list out of it. */
14179 tree purposevec = NULL_TREE;
14180 tree valuevec = NULL_TREE;
14181 tree chain;
14182 int i, len = -1;
14184 /* Expand the argument expressions. */
14185 if (TREE_PURPOSE (t))
14186 purposevec = tsubst_pack_expansion (TREE_PURPOSE (t), args,
14187 complain, in_decl);
14188 if (TREE_VALUE (t))
14189 valuevec = tsubst_pack_expansion (TREE_VALUE (t), args,
14190 complain, in_decl);
14192 /* Build the rest of the list. */
14193 chain = TREE_CHAIN (t);
14194 if (chain && chain != void_type_node)
14195 chain = RECUR (chain);
14197 /* Determine the number of arguments. */
14198 if (purposevec && TREE_CODE (purposevec) == TREE_VEC)
14200 len = TREE_VEC_LENGTH (purposevec);
14201 gcc_assert (!valuevec || len == TREE_VEC_LENGTH (valuevec));
14203 else if (TREE_CODE (valuevec) == TREE_VEC)
14204 len = TREE_VEC_LENGTH (valuevec);
14205 else
14207 /* Since we only performed a partial substitution into
14208 the argument pack, we only RETURN (a single list
14209 node. */
14210 if (purposevec == TREE_PURPOSE (t)
14211 && valuevec == TREE_VALUE (t)
14212 && chain == TREE_CHAIN (t))
14213 RETURN (t);
14215 RETURN (tree_cons (purposevec, valuevec, chain));
14218 /* Convert the argument vectors into a TREE_LIST */
14219 i = len;
14220 while (i > 0)
14222 /* Grab the Ith values. */
14223 i--;
14224 purpose = purposevec ? TREE_VEC_ELT (purposevec, i)
14225 : NULL_TREE;
14226 value
14227 = valuevec ? convert_from_reference (TREE_VEC_ELT (valuevec, i))
14228 : NULL_TREE;
14230 /* Build the list (backwards). */
14231 chain = tree_cons (purpose, value, chain);
14234 RETURN (chain);
14237 purpose = TREE_PURPOSE (t);
14238 if (purpose)
14239 purpose = RECUR (purpose);
14240 value = TREE_VALUE (t);
14241 if (value)
14242 value = RECUR (value);
14243 chain = TREE_CHAIN (t);
14244 if (chain && chain != void_type_node)
14245 chain = RECUR (chain);
14246 if (purpose == TREE_PURPOSE (t)
14247 && value == TREE_VALUE (t)
14248 && chain == TREE_CHAIN (t))
14249 RETURN (t);
14250 RETURN (tree_cons (purpose, value, chain));
14253 case COMPONENT_REF:
14255 tree object;
14256 tree object_type;
14257 tree member;
14259 object = tsubst_non_call_postfix_expression (TREE_OPERAND (t, 0),
14260 args, complain, in_decl);
14261 /* Remember that there was a reference to this entity. */
14262 if (DECL_P (object))
14263 mark_used (object);
14264 object_type = TREE_TYPE (object);
14266 member = TREE_OPERAND (t, 1);
14267 if (BASELINK_P (member))
14268 member = tsubst_baselink (member,
14269 non_reference (TREE_TYPE (object)),
14270 args, complain, in_decl);
14271 else
14272 member = tsubst_copy (member, args, complain, in_decl);
14273 if (member == error_mark_node)
14274 RETURN (error_mark_node);
14276 if (type_dependent_expression_p (object))
14277 /* We can't do much here. */;
14278 else if (!CLASS_TYPE_P (object_type))
14280 if (scalarish_type_p (object_type))
14282 tree s = NULL_TREE;
14283 tree dtor = member;
14285 if (TREE_CODE (dtor) == SCOPE_REF)
14287 s = TREE_OPERAND (dtor, 0);
14288 dtor = TREE_OPERAND (dtor, 1);
14290 if (TREE_CODE (dtor) == BIT_NOT_EXPR)
14292 dtor = TREE_OPERAND (dtor, 0);
14293 if (TYPE_P (dtor))
14294 RETURN (finish_pseudo_destructor_expr (object, s, dtor));
14298 else if (TREE_CODE (member) == SCOPE_REF
14299 && TREE_CODE (TREE_OPERAND (member, 1)) == TEMPLATE_ID_EXPR)
14301 /* Lookup the template functions now that we know what the
14302 scope is. */
14303 tree scope = TREE_OPERAND (member, 0);
14304 tree tmpl = TREE_OPERAND (TREE_OPERAND (member, 1), 0);
14305 tree args = TREE_OPERAND (TREE_OPERAND (member, 1), 1);
14306 member = lookup_qualified_name (scope, tmpl,
14307 /*is_type_p=*/false,
14308 /*complain=*/false);
14309 if (BASELINK_P (member))
14311 BASELINK_FUNCTIONS (member)
14312 = build_nt (TEMPLATE_ID_EXPR, BASELINK_FUNCTIONS (member),
14313 args);
14314 member = (adjust_result_of_qualified_name_lookup
14315 (member, BINFO_TYPE (BASELINK_BINFO (member)),
14316 object_type));
14318 else
14320 qualified_name_lookup_error (scope, tmpl, member,
14321 input_location);
14322 RETURN (error_mark_node);
14325 else if (TREE_CODE (member) == SCOPE_REF
14326 && !CLASS_TYPE_P (TREE_OPERAND (member, 0))
14327 && TREE_CODE (TREE_OPERAND (member, 0)) != NAMESPACE_DECL)
14329 if (complain & tf_error)
14331 if (TYPE_P (TREE_OPERAND (member, 0)))
14332 error ("%qT is not a class or namespace",
14333 TREE_OPERAND (member, 0));
14334 else
14335 error ("%qD is not a class or namespace",
14336 TREE_OPERAND (member, 0));
14338 RETURN (error_mark_node);
14340 else if (TREE_CODE (member) == FIELD_DECL)
14341 RETURN (finish_non_static_data_member (member, object, NULL_TREE));
14343 RETURN (finish_class_member_access_expr (object, member,
14344 /*template_p=*/false,
14345 complain));
14348 case THROW_EXPR:
14349 RETURN (build_throw
14350 (RECUR (TREE_OPERAND (t, 0))));
14352 case CONSTRUCTOR:
14354 vec<constructor_elt, va_gc> *n;
14355 constructor_elt *ce;
14356 unsigned HOST_WIDE_INT idx;
14357 tree type = tsubst (TREE_TYPE (t), args, complain, in_decl);
14358 bool process_index_p;
14359 int newlen;
14360 bool need_copy_p = false;
14361 tree r;
14363 if (type == error_mark_node)
14364 RETURN (error_mark_node);
14366 /* digest_init will do the wrong thing if we let it. */
14367 if (type && TYPE_PTRMEMFUNC_P (type))
14368 RETURN (t);
14370 /* We do not want to process the index of aggregate
14371 initializers as they are identifier nodes which will be
14372 looked up by digest_init. */
14373 process_index_p = !(type && MAYBE_CLASS_TYPE_P (type));
14375 n = vec_safe_copy (CONSTRUCTOR_ELTS (t));
14376 newlen = vec_safe_length (n);
14377 FOR_EACH_VEC_SAFE_ELT (n, idx, ce)
14379 if (ce->index && process_index_p
14380 /* An identifier index is looked up in the type
14381 being initialized, not the current scope. */
14382 && TREE_CODE (ce->index) != IDENTIFIER_NODE)
14383 ce->index = RECUR (ce->index);
14385 if (PACK_EXPANSION_P (ce->value))
14387 /* Substitute into the pack expansion. */
14388 ce->value = tsubst_pack_expansion (ce->value, args, complain,
14389 in_decl);
14391 if (ce->value == error_mark_node
14392 || PACK_EXPANSION_P (ce->value))
14394 else if (TREE_VEC_LENGTH (ce->value) == 1)
14395 /* Just move the argument into place. */
14396 ce->value = TREE_VEC_ELT (ce->value, 0);
14397 else
14399 /* Update the length of the final CONSTRUCTOR
14400 arguments vector, and note that we will need to
14401 copy.*/
14402 newlen = newlen + TREE_VEC_LENGTH (ce->value) - 1;
14403 need_copy_p = true;
14406 else
14407 ce->value = RECUR (ce->value);
14410 if (need_copy_p)
14412 vec<constructor_elt, va_gc> *old_n = n;
14414 vec_alloc (n, newlen);
14415 FOR_EACH_VEC_ELT (*old_n, idx, ce)
14417 if (TREE_CODE (ce->value) == TREE_VEC)
14419 int i, len = TREE_VEC_LENGTH (ce->value);
14420 for (i = 0; i < len; ++i)
14421 CONSTRUCTOR_APPEND_ELT (n, 0,
14422 TREE_VEC_ELT (ce->value, i));
14424 else
14425 CONSTRUCTOR_APPEND_ELT (n, 0, ce->value);
14429 r = build_constructor (init_list_type_node, n);
14430 CONSTRUCTOR_IS_DIRECT_INIT (r) = CONSTRUCTOR_IS_DIRECT_INIT (t);
14432 if (TREE_HAS_CONSTRUCTOR (t))
14433 RETURN (finish_compound_literal (type, r, complain));
14435 TREE_TYPE (r) = type;
14436 RETURN (r);
14439 case TYPEID_EXPR:
14441 tree operand_0 = TREE_OPERAND (t, 0);
14442 if (TYPE_P (operand_0))
14444 operand_0 = tsubst (operand_0, args, complain, in_decl);
14445 RETURN (get_typeid (operand_0, complain));
14447 else
14449 operand_0 = RECUR (operand_0);
14450 RETURN (build_typeid (operand_0, complain));
14454 case VAR_DECL:
14455 if (!args)
14456 RETURN (t);
14457 /* Fall through */
14459 case PARM_DECL:
14461 tree r = tsubst_copy (t, args, complain, in_decl);
14463 if (TREE_CODE (TREE_TYPE (t)) != REFERENCE_TYPE)
14464 /* If the original type was a reference, we'll be wrapped in
14465 the appropriate INDIRECT_REF. */
14466 r = convert_from_reference (r);
14467 RETURN (r);
14470 case VA_ARG_EXPR:
14471 RETURN (build_x_va_arg (EXPR_LOCATION (t),
14472 RECUR (TREE_OPERAND (t, 0)),
14473 tsubst (TREE_TYPE (t), args, complain, in_decl)));
14475 case OFFSETOF_EXPR:
14476 RETURN (finish_offsetof (RECUR (TREE_OPERAND (t, 0))));
14478 case TRAIT_EXPR:
14480 tree type1 = tsubst (TRAIT_EXPR_TYPE1 (t), args,
14481 complain, in_decl);
14483 tree type2 = TRAIT_EXPR_TYPE2 (t);
14484 if (type2)
14485 type2 = tsubst (type2, args, complain, in_decl);
14487 RETURN (finish_trait_expr (TRAIT_EXPR_KIND (t), type1, type2));
14490 case STMT_EXPR:
14492 tree old_stmt_expr = cur_stmt_expr;
14493 tree stmt_expr = begin_stmt_expr ();
14495 cur_stmt_expr = stmt_expr;
14496 tsubst_expr (STMT_EXPR_STMT (t), args, complain, in_decl,
14497 integral_constant_expression_p);
14498 stmt_expr = finish_stmt_expr (stmt_expr, false);
14499 cur_stmt_expr = old_stmt_expr;
14501 /* If the resulting list of expression statement is empty,
14502 fold it further into void_zero_node. */
14503 if (empty_expr_stmt_p (stmt_expr))
14504 stmt_expr = void_zero_node;
14506 RETURN (stmt_expr);
14509 case LAMBDA_EXPR:
14511 tree r = build_lambda_expr ();
14513 tree type = tsubst (LAMBDA_EXPR_CLOSURE (t), args, complain, NULL_TREE);
14514 LAMBDA_EXPR_CLOSURE (r) = type;
14515 CLASSTYPE_LAMBDA_EXPR (type) = r;
14517 LAMBDA_EXPR_LOCATION (r)
14518 = LAMBDA_EXPR_LOCATION (t);
14519 LAMBDA_EXPR_DEFAULT_CAPTURE_MODE (r)
14520 = LAMBDA_EXPR_DEFAULT_CAPTURE_MODE (t);
14521 LAMBDA_EXPR_MUTABLE_P (r) = LAMBDA_EXPR_MUTABLE_P (t);
14522 LAMBDA_EXPR_DISCRIMINATOR (r)
14523 = (LAMBDA_EXPR_DISCRIMINATOR (t));
14524 /* For a function scope, we want to use tsubst so that we don't
14525 complain about referring to an auto function before its return
14526 type has been deduced. Otherwise, we want to use tsubst_copy so
14527 that we look up the existing field/parameter/variable rather
14528 than build a new one. */
14529 tree scope = LAMBDA_EXPR_EXTRA_SCOPE (t);
14530 if (scope && TREE_CODE (scope) == FUNCTION_DECL)
14531 scope = tsubst (scope, args, complain, in_decl);
14532 else if (scope && TREE_CODE (scope) == PARM_DECL)
14534 /* Look up the parameter we want directly, as tsubst_copy
14535 doesn't do what we need. */
14536 tree fn = tsubst (DECL_CONTEXT (scope), args, complain, in_decl);
14537 tree parm = FUNCTION_FIRST_USER_PARM (fn);
14538 while (DECL_PARM_INDEX (parm) != DECL_PARM_INDEX (scope))
14539 parm = DECL_CHAIN (parm);
14540 scope = parm;
14541 /* FIXME Work around the parm not having DECL_CONTEXT set. */
14542 if (DECL_CONTEXT (scope) == NULL_TREE)
14543 DECL_CONTEXT (scope) = fn;
14545 else
14546 scope = RECUR (scope);
14547 LAMBDA_EXPR_EXTRA_SCOPE (r) = scope;
14548 LAMBDA_EXPR_RETURN_TYPE (r)
14549 = tsubst (LAMBDA_EXPR_RETURN_TYPE (t), args, complain, in_decl);
14551 gcc_assert (LAMBDA_EXPR_THIS_CAPTURE (t) == NULL_TREE
14552 && LAMBDA_EXPR_PENDING_PROXIES (t) == NULL);
14554 /* Do this again now that LAMBDA_EXPR_EXTRA_SCOPE is set. */
14555 determine_visibility (TYPE_NAME (type));
14556 /* Now that we know visibility, instantiate the type so we have a
14557 declaration of the op() for later calls to lambda_function. */
14558 complete_type (type);
14560 LAMBDA_EXPR_THIS_CAPTURE (r) = NULL_TREE;
14562 RETURN (build_lambda_object (r));
14565 case TARGET_EXPR:
14566 /* We can get here for a constant initializer of non-dependent type.
14567 FIXME stop folding in cp_parser_initializer_clause. */
14569 tree r = get_target_expr_sfinae (RECUR (TARGET_EXPR_INITIAL (t)),
14570 complain);
14571 RETURN (r);
14574 case TRANSACTION_EXPR:
14575 RETURN (tsubst_expr(t, args, complain, in_decl,
14576 integral_constant_expression_p));
14578 default:
14579 /* Handle Objective-C++ constructs, if appropriate. */
14581 tree subst
14582 = objcp_tsubst_copy_and_build (t, args, complain,
14583 in_decl, /*function_p=*/false);
14584 if (subst)
14585 RETURN (subst);
14587 RETURN (tsubst_copy (t, args, complain, in_decl));
14590 #undef RECUR
14591 #undef RETURN
14592 out:
14593 input_location = loc;
14594 return retval;
14597 /* Verify that the instantiated ARGS are valid. For type arguments,
14598 make sure that the type's linkage is ok. For non-type arguments,
14599 make sure they are constants if they are integral or enumerations.
14600 Emit an error under control of COMPLAIN, and return TRUE on error. */
14602 static bool
14603 check_instantiated_arg (tree tmpl, tree t, tsubst_flags_t complain)
14605 if (dependent_template_arg_p (t))
14606 return false;
14607 if (ARGUMENT_PACK_P (t))
14609 tree vec = ARGUMENT_PACK_ARGS (t);
14610 int len = TREE_VEC_LENGTH (vec);
14611 bool result = false;
14612 int i;
14614 for (i = 0; i < len; ++i)
14615 if (check_instantiated_arg (tmpl, TREE_VEC_ELT (vec, i), complain))
14616 result = true;
14617 return result;
14619 else if (TYPE_P (t))
14621 /* [basic.link]: A name with no linkage (notably, the name
14622 of a class or enumeration declared in a local scope)
14623 shall not be used to declare an entity with linkage.
14624 This implies that names with no linkage cannot be used as
14625 template arguments
14627 DR 757 relaxes this restriction for C++0x. */
14628 tree nt = (cxx_dialect > cxx98 ? NULL_TREE
14629 : no_linkage_check (t, /*relaxed_p=*/false));
14631 if (nt)
14633 /* DR 488 makes use of a type with no linkage cause
14634 type deduction to fail. */
14635 if (complain & tf_error)
14637 if (TYPE_ANONYMOUS_P (nt))
14638 error ("%qT is/uses anonymous type", t);
14639 else
14640 error ("template argument for %qD uses local type %qT",
14641 tmpl, t);
14643 return true;
14645 /* In order to avoid all sorts of complications, we do not
14646 allow variably-modified types as template arguments. */
14647 else if (variably_modified_type_p (t, NULL_TREE))
14649 if (complain & tf_error)
14650 error ("%qT is a variably modified type", t);
14651 return true;
14654 /* Class template and alias template arguments should be OK. */
14655 else if (DECL_TYPE_TEMPLATE_P (t))
14657 /* A non-type argument of integral or enumerated type must be a
14658 constant. */
14659 else if (TREE_TYPE (t)
14660 && INTEGRAL_OR_ENUMERATION_TYPE_P (TREE_TYPE (t))
14661 && !TREE_CONSTANT (t))
14663 if (complain & tf_error)
14664 error ("integral expression %qE is not constant", t);
14665 return true;
14667 return false;
14670 static bool
14671 check_instantiated_args (tree tmpl, tree args, tsubst_flags_t complain)
14673 int ix, len = DECL_NTPARMS (tmpl);
14674 bool result = false;
14676 for (ix = 0; ix != len; ix++)
14678 if (check_instantiated_arg (tmpl, TREE_VEC_ELT (args, ix), complain))
14679 result = true;
14681 if (result && (complain & tf_error))
14682 error (" trying to instantiate %qD", tmpl);
14683 return result;
14686 /* We're out of SFINAE context now, so generate diagnostics for the access
14687 errors we saw earlier when instantiating D from TMPL and ARGS. */
14689 static void
14690 recheck_decl_substitution (tree d, tree tmpl, tree args)
14692 tree pattern = DECL_TEMPLATE_RESULT (tmpl);
14693 tree type = TREE_TYPE (pattern);
14694 location_t loc = input_location;
14696 push_access_scope (d);
14697 push_deferring_access_checks (dk_no_deferred);
14698 input_location = DECL_SOURCE_LOCATION (pattern);
14699 tsubst (type, args, tf_warning_or_error, d);
14700 input_location = loc;
14701 pop_deferring_access_checks ();
14702 pop_access_scope (d);
14705 /* Instantiate the indicated variable, function, or alias template TMPL with
14706 the template arguments in TARG_PTR. */
14708 static tree
14709 instantiate_template_1 (tree tmpl, tree orig_args, tsubst_flags_t complain)
14711 tree targ_ptr = orig_args;
14712 tree fndecl;
14713 tree gen_tmpl;
14714 tree spec;
14715 bool access_ok = true;
14717 if (tmpl == error_mark_node)
14718 return error_mark_node;
14720 gcc_assert (TREE_CODE (tmpl) == TEMPLATE_DECL);
14722 /* If this function is a clone, handle it specially. */
14723 if (DECL_CLONED_FUNCTION_P (tmpl))
14725 tree spec;
14726 tree clone;
14728 /* Use DECL_ABSTRACT_ORIGIN because only FUNCTION_DECLs have
14729 DECL_CLONED_FUNCTION. */
14730 spec = instantiate_template (DECL_ABSTRACT_ORIGIN (tmpl),
14731 targ_ptr, complain);
14732 if (spec == error_mark_node)
14733 return error_mark_node;
14735 /* Look for the clone. */
14736 FOR_EACH_CLONE (clone, spec)
14737 if (DECL_NAME (clone) == DECL_NAME (tmpl))
14738 return clone;
14739 /* We should always have found the clone by now. */
14740 gcc_unreachable ();
14741 return NULL_TREE;
14744 /* Check to see if we already have this specialization. */
14745 gen_tmpl = most_general_template (tmpl);
14746 if (tmpl != gen_tmpl)
14747 /* The TMPL is a partial instantiation. To get a full set of
14748 arguments we must add the arguments used to perform the
14749 partial instantiation. */
14750 targ_ptr = add_outermost_template_args (DECL_TI_ARGS (tmpl),
14751 targ_ptr);
14753 /* It would be nice to avoid hashing here and then again in tsubst_decl,
14754 but it doesn't seem to be on the hot path. */
14755 spec = retrieve_specialization (gen_tmpl, targ_ptr, 0);
14757 gcc_assert (tmpl == gen_tmpl
14758 || ((fndecl = retrieve_specialization (tmpl, orig_args, 0))
14759 == spec)
14760 || fndecl == NULL_TREE);
14762 if (spec != NULL_TREE)
14764 if (FNDECL_HAS_ACCESS_ERRORS (spec))
14766 if (complain & tf_error)
14767 recheck_decl_substitution (spec, gen_tmpl, targ_ptr);
14768 return error_mark_node;
14770 return spec;
14773 if (check_instantiated_args (gen_tmpl, INNERMOST_TEMPLATE_ARGS (targ_ptr),
14774 complain))
14775 return error_mark_node;
14777 /* We are building a FUNCTION_DECL, during which the access of its
14778 parameters and return types have to be checked. However this
14779 FUNCTION_DECL which is the desired context for access checking
14780 is not built yet. We solve this chicken-and-egg problem by
14781 deferring all checks until we have the FUNCTION_DECL. */
14782 push_deferring_access_checks (dk_deferred);
14784 /* Instantiation of the function happens in the context of the function
14785 template, not the context of the overload resolution we're doing. */
14786 push_to_top_level ();
14787 struct pointer_map_t *saved_local_specializations = local_specializations;
14788 local_specializations = NULL;
14789 /* If there are dependent arguments, e.g. because we're doing partial
14790 ordering, make sure processing_template_decl stays set. */
14791 if (uses_template_parms (targ_ptr))
14792 ++processing_template_decl;
14793 if (DECL_CLASS_SCOPE_P (gen_tmpl))
14795 tree ctx = tsubst (DECL_CONTEXT (gen_tmpl), targ_ptr,
14796 complain, gen_tmpl);
14797 push_nested_class (ctx);
14799 /* Substitute template parameters to obtain the specialization. */
14800 fndecl = tsubst (DECL_TEMPLATE_RESULT (gen_tmpl),
14801 targ_ptr, complain, gen_tmpl);
14802 if (DECL_CLASS_SCOPE_P (gen_tmpl))
14803 pop_nested_class ();
14804 local_specializations = saved_local_specializations;
14805 pop_from_top_level ();
14807 if (fndecl == error_mark_node)
14809 pop_deferring_access_checks ();
14810 return error_mark_node;
14813 /* The DECL_TI_TEMPLATE should always be the immediate parent
14814 template, not the most general template. */
14815 DECL_TI_TEMPLATE (fndecl) = tmpl;
14817 /* Now we know the specialization, compute access previously
14818 deferred. */
14819 push_access_scope (fndecl);
14820 if (!perform_deferred_access_checks (complain))
14821 access_ok = false;
14822 pop_access_scope (fndecl);
14823 pop_deferring_access_checks ();
14825 /* If we've just instantiated the main entry point for a function,
14826 instantiate all the alternate entry points as well. We do this
14827 by cloning the instantiation of the main entry point, not by
14828 instantiating the template clones. */
14829 if (DECL_CHAIN (gen_tmpl) && DECL_CLONED_FUNCTION_P (DECL_CHAIN (gen_tmpl)))
14830 clone_function_decl (fndecl, /*update_method_vec_p=*/0);
14832 if (!access_ok)
14834 if (!(complain & tf_error))
14836 /* Remember to reinstantiate when we're out of SFINAE so the user
14837 can see the errors. */
14838 FNDECL_HAS_ACCESS_ERRORS (fndecl) = true;
14840 return error_mark_node;
14842 return fndecl;
14845 /* Wrapper for instantiate_template_1. */
14847 tree
14848 instantiate_template (tree tmpl, tree orig_args, tsubst_flags_t complain)
14850 tree ret;
14851 timevar_push (TV_TEMPLATE_INST);
14852 ret = instantiate_template_1 (tmpl, orig_args, complain);
14853 timevar_pop (TV_TEMPLATE_INST);
14854 return ret;
14857 /* Instantiate the alias template TMPL with ARGS. Also push a template
14858 instantiation level, which instantiate_template doesn't do because
14859 functions and variables have sufficient context established by the
14860 callers. */
14862 static tree
14863 instantiate_alias_template (tree tmpl, tree args, tsubst_flags_t complain)
14865 struct pending_template *old_last_pend = last_pending_template;
14866 struct tinst_level *old_error_tinst = last_error_tinst_level;
14867 if (tmpl == error_mark_node || args == error_mark_node)
14868 return error_mark_node;
14869 tree tinst = build_tree_list (tmpl, args);
14870 if (!push_tinst_level (tinst))
14872 ggc_free (tinst);
14873 return error_mark_node;
14876 args =
14877 coerce_innermost_template_parms (DECL_TEMPLATE_PARMS (tmpl),
14878 args, tmpl, complain,
14879 /*require_all_args=*/true,
14880 /*use_default_args=*/true);
14882 tree r = instantiate_template (tmpl, args, complain);
14883 pop_tinst_level ();
14884 /* We can't free this if a pending_template entry or last_error_tinst_level
14885 is pointing at it. */
14886 if (last_pending_template == old_last_pend
14887 && last_error_tinst_level == old_error_tinst)
14888 ggc_free (tinst);
14890 return r;
14893 /* PARM is a template parameter pack for FN. Returns true iff
14894 PARM is used in a deducible way in the argument list of FN. */
14896 static bool
14897 pack_deducible_p (tree parm, tree fn)
14899 tree t = FUNCTION_FIRST_USER_PARMTYPE (fn);
14900 for (; t; t = TREE_CHAIN (t))
14902 tree type = TREE_VALUE (t);
14903 tree packs;
14904 if (!PACK_EXPANSION_P (type))
14905 continue;
14906 for (packs = PACK_EXPANSION_PARAMETER_PACKS (type);
14907 packs; packs = TREE_CHAIN (packs))
14908 if (TREE_VALUE (packs) == parm)
14910 /* The template parameter pack is used in a function parameter
14911 pack. If this is the end of the parameter list, the
14912 template parameter pack is deducible. */
14913 if (TREE_CHAIN (t) == void_list_node)
14914 return true;
14915 else
14916 /* Otherwise, not. Well, it could be deduced from
14917 a non-pack parameter, but doing so would end up with
14918 a deduction mismatch, so don't bother. */
14919 return false;
14922 /* The template parameter pack isn't used in any function parameter
14923 packs, but it might be used deeper, e.g. tuple<Args...>. */
14924 return true;
14927 /* The FN is a TEMPLATE_DECL for a function. ARGS is an array with
14928 NARGS elements of the arguments that are being used when calling
14929 it. TARGS is a vector into which the deduced template arguments
14930 are placed.
14932 Return zero for success, 2 for an incomplete match that doesn't resolve
14933 all the types, and 1 for complete failure. An error message will be
14934 printed only for an incomplete match.
14936 If FN is a conversion operator, or we are trying to produce a specific
14937 specialization, RETURN_TYPE is the return type desired.
14939 The EXPLICIT_TARGS are explicit template arguments provided via a
14940 template-id.
14942 The parameter STRICT is one of:
14944 DEDUCE_CALL:
14945 We are deducing arguments for a function call, as in
14946 [temp.deduct.call].
14948 DEDUCE_CONV:
14949 We are deducing arguments for a conversion function, as in
14950 [temp.deduct.conv].
14952 DEDUCE_EXACT:
14953 We are deducing arguments when doing an explicit instantiation
14954 as in [temp.explicit], when determining an explicit specialization
14955 as in [temp.expl.spec], or when taking the address of a function
14956 template, as in [temp.deduct.funcaddr]. */
14958 tree
14959 fn_type_unification (tree fn,
14960 tree explicit_targs,
14961 tree targs,
14962 const tree *args,
14963 unsigned int nargs,
14964 tree return_type,
14965 unification_kind_t strict,
14966 int flags,
14967 bool explain_p)
14969 tree parms;
14970 tree fntype;
14971 tree decl = NULL_TREE;
14972 tsubst_flags_t complain = (explain_p ? tf_warning_or_error : tf_none);
14973 bool ok;
14974 static int deduction_depth;
14975 struct pending_template *old_last_pend = last_pending_template;
14976 struct tinst_level *old_error_tinst = last_error_tinst_level;
14977 tree tparms = DECL_INNERMOST_TEMPLATE_PARMS (fn);
14978 tree tinst;
14979 tree r = error_mark_node;
14981 /* In C++0x, it's possible to have a function template whose type depends
14982 on itself recursively. This is most obvious with decltype, but can also
14983 occur with enumeration scope (c++/48969). So we need to catch infinite
14984 recursion and reject the substitution at deduction time; this function
14985 will return error_mark_node for any repeated substitution.
14987 This also catches excessive recursion such as when f<N> depends on
14988 f<N-1> across all integers, and returns error_mark_node for all the
14989 substitutions back up to the initial one.
14991 This is, of course, not reentrant. */
14992 if (excessive_deduction_depth)
14993 return error_mark_node;
14994 tinst = build_tree_list (fn, NULL_TREE);
14995 ++deduction_depth;
14997 gcc_assert (TREE_CODE (fn) == TEMPLATE_DECL);
14999 fntype = TREE_TYPE (fn);
15000 if (explicit_targs)
15002 /* [temp.deduct]
15004 The specified template arguments must match the template
15005 parameters in kind (i.e., type, nontype, template), and there
15006 must not be more arguments than there are parameters;
15007 otherwise type deduction fails.
15009 Nontype arguments must match the types of the corresponding
15010 nontype template parameters, or must be convertible to the
15011 types of the corresponding nontype parameters as specified in
15012 _temp.arg.nontype_, otherwise type deduction fails.
15014 All references in the function type of the function template
15015 to the corresponding template parameters are replaced by the
15016 specified template argument values. If a substitution in a
15017 template parameter or in the function type of the function
15018 template results in an invalid type, type deduction fails. */
15019 int i, len = TREE_VEC_LENGTH (tparms);
15020 location_t loc = input_location;
15021 bool incomplete = false;
15023 /* Adjust any explicit template arguments before entering the
15024 substitution context. */
15025 explicit_targs
15026 = (coerce_template_parms (tparms, explicit_targs, NULL_TREE,
15027 complain,
15028 /*require_all_args=*/false,
15029 /*use_default_args=*/false));
15030 if (explicit_targs == error_mark_node)
15031 goto fail;
15033 /* Substitute the explicit args into the function type. This is
15034 necessary so that, for instance, explicitly declared function
15035 arguments can match null pointed constants. If we were given
15036 an incomplete set of explicit args, we must not do semantic
15037 processing during substitution as we could create partial
15038 instantiations. */
15039 for (i = 0; i < len; i++)
15041 tree parm = TREE_VALUE (TREE_VEC_ELT (tparms, i));
15042 bool parameter_pack = false;
15043 tree targ = TREE_VEC_ELT (explicit_targs, i);
15045 /* Dig out the actual parm. */
15046 if (TREE_CODE (parm) == TYPE_DECL
15047 || TREE_CODE (parm) == TEMPLATE_DECL)
15049 parm = TREE_TYPE (parm);
15050 parameter_pack = TEMPLATE_TYPE_PARAMETER_PACK (parm);
15052 else if (TREE_CODE (parm) == PARM_DECL)
15054 parm = DECL_INITIAL (parm);
15055 parameter_pack = TEMPLATE_PARM_PARAMETER_PACK (parm);
15058 if (!parameter_pack && targ == NULL_TREE)
15059 /* No explicit argument for this template parameter. */
15060 incomplete = true;
15062 if (parameter_pack && pack_deducible_p (parm, fn))
15064 /* Mark the argument pack as "incomplete". We could
15065 still deduce more arguments during unification.
15066 We remove this mark in type_unification_real. */
15067 if (targ)
15069 ARGUMENT_PACK_INCOMPLETE_P(targ) = 1;
15070 ARGUMENT_PACK_EXPLICIT_ARGS (targ)
15071 = ARGUMENT_PACK_ARGS (targ);
15074 /* We have some incomplete argument packs. */
15075 incomplete = true;
15079 TREE_VALUE (tinst) = explicit_targs;
15080 if (!push_tinst_level (tinst))
15082 excessive_deduction_depth = true;
15083 goto fail;
15085 processing_template_decl += incomplete;
15086 input_location = DECL_SOURCE_LOCATION (fn);
15087 /* Ignore any access checks; we'll see them again in
15088 instantiate_template and they might have the wrong
15089 access path at this point. */
15090 push_deferring_access_checks (dk_deferred);
15091 fntype = tsubst (TREE_TYPE (fn), explicit_targs,
15092 complain | tf_partial, NULL_TREE);
15093 pop_deferring_access_checks ();
15094 input_location = loc;
15095 processing_template_decl -= incomplete;
15096 pop_tinst_level ();
15098 if (fntype == error_mark_node)
15099 goto fail;
15101 /* Place the explicitly specified arguments in TARGS. */
15102 for (i = NUM_TMPL_ARGS (explicit_targs); i--;)
15103 TREE_VEC_ELT (targs, i) = TREE_VEC_ELT (explicit_targs, i);
15106 /* Never do unification on the 'this' parameter. */
15107 parms = skip_artificial_parms_for (fn, TYPE_ARG_TYPES (fntype));
15109 if (return_type)
15111 tree *new_args;
15113 parms = tree_cons (NULL_TREE, TREE_TYPE (fntype), parms);
15114 new_args = XALLOCAVEC (tree, nargs + 1);
15115 new_args[0] = return_type;
15116 memcpy (new_args + 1, args, nargs * sizeof (tree));
15117 args = new_args;
15118 ++nargs;
15121 /* We allow incomplete unification without an error message here
15122 because the standard doesn't seem to explicitly prohibit it. Our
15123 callers must be ready to deal with unification failures in any
15124 event. */
15126 /* type_unification_real will pass back any access checks from default
15127 template argument substitution. */
15128 vec<deferred_access_check, va_gc> *checks;
15129 checks = NULL;
15131 ok = !type_unification_real (DECL_INNERMOST_TEMPLATE_PARMS (fn),
15132 targs, parms, args, nargs, /*subr=*/0,
15133 strict, flags, &checks, explain_p);
15135 if (!ok)
15136 goto fail;
15138 /* Now that we have bindings for all of the template arguments,
15139 ensure that the arguments deduced for the template template
15140 parameters have compatible template parameter lists. We cannot
15141 check this property before we have deduced all template
15142 arguments, because the template parameter types of a template
15143 template parameter might depend on prior template parameters
15144 deduced after the template template parameter. The following
15145 ill-formed example illustrates this issue:
15147 template<typename T, template<T> class C> void f(C<5>, T);
15149 template<int N> struct X {};
15151 void g() {
15152 f(X<5>(), 5l); // error: template argument deduction fails
15155 The template parameter list of 'C' depends on the template type
15156 parameter 'T', but 'C' is deduced to 'X' before 'T' is deduced to
15157 'long'. Thus, we can't check that 'C' cannot bind to 'X' at the
15158 time that we deduce 'C'. */
15159 if (!template_template_parm_bindings_ok_p
15160 (DECL_INNERMOST_TEMPLATE_PARMS (fn), targs))
15162 unify_inconsistent_template_template_parameters (explain_p);
15163 goto fail;
15166 /* All is well so far. Now, check:
15168 [temp.deduct]
15170 When all template arguments have been deduced, all uses of
15171 template parameters in nondeduced contexts are replaced with
15172 the corresponding deduced argument values. If the
15173 substitution results in an invalid type, as described above,
15174 type deduction fails. */
15175 TREE_VALUE (tinst) = targs;
15176 if (!push_tinst_level (tinst))
15178 excessive_deduction_depth = true;
15179 goto fail;
15182 /* Also collect access checks from the instantiation. */
15183 reopen_deferring_access_checks (checks);
15185 decl = instantiate_template (fn, targs, complain);
15187 checks = get_deferred_access_checks ();
15188 pop_deferring_access_checks ();
15190 pop_tinst_level ();
15192 if (decl == error_mark_node)
15193 goto fail;
15195 /* Now perform any access checks encountered during substitution. */
15196 push_access_scope (decl);
15197 ok = perform_access_checks (checks, complain);
15198 pop_access_scope (decl);
15199 if (!ok)
15200 goto fail;
15202 /* If we're looking for an exact match, check that what we got
15203 is indeed an exact match. It might not be if some template
15204 parameters are used in non-deduced contexts. But don't check
15205 for an exact match if we have dependent template arguments;
15206 in that case we're doing partial ordering, and we already know
15207 that we have two candidates that will provide the actual type. */
15208 if (strict == DEDUCE_EXACT && !any_dependent_template_arguments_p (targs))
15210 tree substed = TREE_TYPE (decl);
15211 unsigned int i;
15213 tree sarg
15214 = skip_artificial_parms_for (decl, TYPE_ARG_TYPES (substed));
15215 if (return_type)
15216 sarg = tree_cons (NULL_TREE, TREE_TYPE (substed), sarg);
15217 for (i = 0; i < nargs && sarg; ++i, sarg = TREE_CHAIN (sarg))
15218 if (!same_type_p (args[i], TREE_VALUE (sarg)))
15220 unify_type_mismatch (explain_p, args[i],
15221 TREE_VALUE (sarg));
15222 goto fail;
15226 r = decl;
15228 fail:
15229 --deduction_depth;
15230 if (excessive_deduction_depth)
15232 if (deduction_depth == 0)
15233 /* Reset once we're all the way out. */
15234 excessive_deduction_depth = false;
15237 /* We can't free this if a pending_template entry or last_error_tinst_level
15238 is pointing at it. */
15239 if (last_pending_template == old_last_pend
15240 && last_error_tinst_level == old_error_tinst)
15241 ggc_free (tinst);
15243 return r;
15246 /* Adjust types before performing type deduction, as described in
15247 [temp.deduct.call] and [temp.deduct.conv]. The rules in these two
15248 sections are symmetric. PARM is the type of a function parameter
15249 or the return type of the conversion function. ARG is the type of
15250 the argument passed to the call, or the type of the value
15251 initialized with the result of the conversion function.
15252 ARG_EXPR is the original argument expression, which may be null. */
15254 static int
15255 maybe_adjust_types_for_deduction (unification_kind_t strict,
15256 tree* parm,
15257 tree* arg,
15258 tree arg_expr)
15260 int result = 0;
15262 switch (strict)
15264 case DEDUCE_CALL:
15265 break;
15267 case DEDUCE_CONV:
15269 /* Swap PARM and ARG throughout the remainder of this
15270 function; the handling is precisely symmetric since PARM
15271 will initialize ARG rather than vice versa. */
15272 tree* temp = parm;
15273 parm = arg;
15274 arg = temp;
15275 break;
15278 case DEDUCE_EXACT:
15279 /* Core issue #873: Do the DR606 thing (see below) for these cases,
15280 too, but here handle it by stripping the reference from PARM
15281 rather than by adding it to ARG. */
15282 if (TREE_CODE (*parm) == REFERENCE_TYPE
15283 && TYPE_REF_IS_RVALUE (*parm)
15284 && TREE_CODE (TREE_TYPE (*parm)) == TEMPLATE_TYPE_PARM
15285 && cp_type_quals (TREE_TYPE (*parm)) == TYPE_UNQUALIFIED
15286 && TREE_CODE (*arg) == REFERENCE_TYPE
15287 && !TYPE_REF_IS_RVALUE (*arg))
15288 *parm = TREE_TYPE (*parm);
15289 /* Nothing else to do in this case. */
15290 return 0;
15292 default:
15293 gcc_unreachable ();
15296 if (TREE_CODE (*parm) != REFERENCE_TYPE)
15298 /* [temp.deduct.call]
15300 If P is not a reference type:
15302 --If A is an array type, the pointer type produced by the
15303 array-to-pointer standard conversion (_conv.array_) is
15304 used in place of A for type deduction; otherwise,
15306 --If A is a function type, the pointer type produced by
15307 the function-to-pointer standard conversion
15308 (_conv.func_) is used in place of A for type deduction;
15309 otherwise,
15311 --If A is a cv-qualified type, the top level
15312 cv-qualifiers of A's type are ignored for type
15313 deduction. */
15314 if (TREE_CODE (*arg) == ARRAY_TYPE)
15315 *arg = build_pointer_type (TREE_TYPE (*arg));
15316 else if (TREE_CODE (*arg) == FUNCTION_TYPE)
15317 *arg = build_pointer_type (*arg);
15318 else
15319 *arg = TYPE_MAIN_VARIANT (*arg);
15322 /* From C++0x [14.8.2.1/3 temp.deduct.call] (after DR606), "If P is
15323 of the form T&&, where T is a template parameter, and the argument
15324 is an lvalue, T is deduced as A& */
15325 if (TREE_CODE (*parm) == REFERENCE_TYPE
15326 && TYPE_REF_IS_RVALUE (*parm)
15327 && TREE_CODE (TREE_TYPE (*parm)) == TEMPLATE_TYPE_PARM
15328 && cp_type_quals (TREE_TYPE (*parm)) == TYPE_UNQUALIFIED
15329 && (arg_expr ? real_lvalue_p (arg_expr)
15330 /* try_one_overload doesn't provide an arg_expr, but
15331 functions are always lvalues. */
15332 : TREE_CODE (*arg) == FUNCTION_TYPE))
15333 *arg = build_reference_type (*arg);
15335 /* [temp.deduct.call]
15337 If P is a cv-qualified type, the top level cv-qualifiers
15338 of P's type are ignored for type deduction. If P is a
15339 reference type, the type referred to by P is used for
15340 type deduction. */
15341 *parm = TYPE_MAIN_VARIANT (*parm);
15342 if (TREE_CODE (*parm) == REFERENCE_TYPE)
15344 *parm = TREE_TYPE (*parm);
15345 result |= UNIFY_ALLOW_OUTER_MORE_CV_QUAL;
15348 /* DR 322. For conversion deduction, remove a reference type on parm
15349 too (which has been swapped into ARG). */
15350 if (strict == DEDUCE_CONV && TREE_CODE (*arg) == REFERENCE_TYPE)
15351 *arg = TREE_TYPE (*arg);
15353 return result;
15356 /* Subroutine of unify_one_argument. PARM is a function parameter of a
15357 template which does contain any deducible template parameters; check if
15358 ARG is a suitable match for it. STRICT, FLAGS and EXPLAIN_P are as in
15359 unify_one_argument. */
15361 static int
15362 check_non_deducible_conversion (tree parm, tree arg, int strict,
15363 int flags, bool explain_p)
15365 tree type;
15367 if (!TYPE_P (arg))
15368 type = TREE_TYPE (arg);
15369 else
15370 type = arg;
15372 if (same_type_p (parm, type))
15373 return unify_success (explain_p);
15375 if (strict == DEDUCE_CONV)
15377 if (can_convert_arg (type, parm, NULL_TREE, flags,
15378 explain_p ? tf_warning_or_error : tf_none))
15379 return unify_success (explain_p);
15381 else if (strict != DEDUCE_EXACT)
15383 if (can_convert_arg (parm, type,
15384 TYPE_P (arg) ? NULL_TREE : arg,
15385 flags, explain_p ? tf_warning_or_error : tf_none))
15386 return unify_success (explain_p);
15389 if (strict == DEDUCE_EXACT)
15390 return unify_type_mismatch (explain_p, parm, arg);
15391 else
15392 return unify_arg_conversion (explain_p, parm, type, arg);
15395 /* Subroutine of type_unification_real and unify_pack_expansion to
15396 handle unification of a single P/A pair. Parameters are as
15397 for those functions. */
15399 static int
15400 unify_one_argument (tree tparms, tree targs, tree parm, tree arg,
15401 int subr, unification_kind_t strict, int flags,
15402 bool explain_p)
15404 tree arg_expr = NULL_TREE;
15405 int arg_strict;
15407 if (arg == error_mark_node || parm == error_mark_node)
15408 return unify_invalid (explain_p);
15409 if (arg == unknown_type_node)
15410 /* We can't deduce anything from this, but we might get all the
15411 template args from other function args. */
15412 return unify_success (explain_p);
15414 /* FIXME uses_deducible_template_parms */
15415 if (TYPE_P (parm) && !uses_template_parms (parm))
15416 return check_non_deducible_conversion (parm, arg, strict, flags,
15417 explain_p);
15419 switch (strict)
15421 case DEDUCE_CALL:
15422 arg_strict = (UNIFY_ALLOW_OUTER_LEVEL
15423 | UNIFY_ALLOW_MORE_CV_QUAL
15424 | UNIFY_ALLOW_DERIVED);
15425 break;
15427 case DEDUCE_CONV:
15428 arg_strict = UNIFY_ALLOW_LESS_CV_QUAL;
15429 break;
15431 case DEDUCE_EXACT:
15432 arg_strict = UNIFY_ALLOW_NONE;
15433 break;
15435 default:
15436 gcc_unreachable ();
15439 /* We only do these transformations if this is the top-level
15440 parameter_type_list in a call or declaration matching; in other
15441 situations (nested function declarators, template argument lists) we
15442 won't be comparing a type to an expression, and we don't do any type
15443 adjustments. */
15444 if (!subr)
15446 if (!TYPE_P (arg))
15448 gcc_assert (TREE_TYPE (arg) != NULL_TREE);
15449 if (type_unknown_p (arg))
15451 /* [temp.deduct.type] A template-argument can be
15452 deduced from a pointer to function or pointer
15453 to member function argument if the set of
15454 overloaded functions does not contain function
15455 templates and at most one of a set of
15456 overloaded functions provides a unique
15457 match. */
15459 if (resolve_overloaded_unification
15460 (tparms, targs, parm, arg, strict,
15461 arg_strict, explain_p))
15462 return unify_success (explain_p);
15463 return unify_overload_resolution_failure (explain_p, arg);
15466 arg_expr = arg;
15467 arg = unlowered_expr_type (arg);
15468 if (arg == error_mark_node)
15469 return unify_invalid (explain_p);
15472 arg_strict |=
15473 maybe_adjust_types_for_deduction (strict, &parm, &arg, arg_expr);
15475 else
15476 gcc_assert ((TYPE_P (parm) || TREE_CODE (parm) == TEMPLATE_DECL)
15477 == (TYPE_P (arg) || TREE_CODE (arg) == TEMPLATE_DECL));
15479 /* For deduction from an init-list we need the actual list. */
15480 if (arg_expr && BRACE_ENCLOSED_INITIALIZER_P (arg_expr))
15481 arg = arg_expr;
15482 return unify (tparms, targs, parm, arg, arg_strict, explain_p);
15485 /* Most parms like fn_type_unification.
15487 If SUBR is 1, we're being called recursively (to unify the
15488 arguments of a function or method parameter of a function
15489 template).
15491 CHECKS is a pointer to a vector of access checks encountered while
15492 substituting default template arguments. */
15494 static int
15495 type_unification_real (tree tparms,
15496 tree targs,
15497 tree xparms,
15498 const tree *xargs,
15499 unsigned int xnargs,
15500 int subr,
15501 unification_kind_t strict,
15502 int flags,
15503 vec<deferred_access_check, va_gc> **checks,
15504 bool explain_p)
15506 tree parm, arg;
15507 int i;
15508 int ntparms = TREE_VEC_LENGTH (tparms);
15509 int saw_undeduced = 0;
15510 tree parms;
15511 const tree *args;
15512 unsigned int nargs;
15513 unsigned int ia;
15515 gcc_assert (TREE_CODE (tparms) == TREE_VEC);
15516 gcc_assert (xparms == NULL_TREE || TREE_CODE (xparms) == TREE_LIST);
15517 gcc_assert (ntparms > 0);
15519 /* Reset the number of non-defaulted template arguments contained
15520 in TARGS. */
15521 NON_DEFAULT_TEMPLATE_ARGS_COUNT (targs) = NULL_TREE;
15523 again:
15524 parms = xparms;
15525 args = xargs;
15526 nargs = xnargs;
15528 ia = 0;
15529 while (parms && parms != void_list_node
15530 && ia < nargs)
15532 parm = TREE_VALUE (parms);
15534 if (TREE_CODE (parm) == TYPE_PACK_EXPANSION
15535 && (!TREE_CHAIN (parms) || TREE_CHAIN (parms) == void_list_node))
15536 /* For a function parameter pack that occurs at the end of the
15537 parameter-declaration-list, the type A of each remaining
15538 argument of the call is compared with the type P of the
15539 declarator-id of the function parameter pack. */
15540 break;
15542 parms = TREE_CHAIN (parms);
15544 if (TREE_CODE (parm) == TYPE_PACK_EXPANSION)
15545 /* For a function parameter pack that does not occur at the
15546 end of the parameter-declaration-list, the type of the
15547 parameter pack is a non-deduced context. */
15548 continue;
15550 arg = args[ia];
15551 ++ia;
15553 if (unify_one_argument (tparms, targs, parm, arg, subr, strict,
15554 flags, explain_p))
15555 return 1;
15558 if (parms
15559 && parms != void_list_node
15560 && TREE_CODE (TREE_VALUE (parms)) == TYPE_PACK_EXPANSION)
15562 /* Unify the remaining arguments with the pack expansion type. */
15563 tree argvec;
15564 tree parmvec = make_tree_vec (1);
15566 /* Allocate a TREE_VEC and copy in all of the arguments */
15567 argvec = make_tree_vec (nargs - ia);
15568 for (i = 0; ia < nargs; ++ia, ++i)
15569 TREE_VEC_ELT (argvec, i) = args[ia];
15571 /* Copy the parameter into parmvec. */
15572 TREE_VEC_ELT (parmvec, 0) = TREE_VALUE (parms);
15573 if (unify_pack_expansion (tparms, targs, parmvec, argvec, strict,
15574 /*subr=*/subr, explain_p))
15575 return 1;
15577 /* Advance to the end of the list of parameters. */
15578 parms = TREE_CHAIN (parms);
15581 /* Fail if we've reached the end of the parm list, and more args
15582 are present, and the parm list isn't variadic. */
15583 if (ia < nargs && parms == void_list_node)
15584 return unify_too_many_arguments (explain_p, nargs, ia);
15585 /* Fail if parms are left and they don't have default values. */
15586 if (parms && parms != void_list_node
15587 && TREE_PURPOSE (parms) == NULL_TREE)
15589 unsigned int count = nargs;
15590 tree p = parms;
15591 while (p && p != void_list_node)
15593 count++;
15594 p = TREE_CHAIN (p);
15596 return unify_too_few_arguments (explain_p, ia, count);
15599 if (!subr)
15601 tsubst_flags_t complain = (explain_p
15602 ? tf_warning_or_error
15603 : tf_none);
15605 for (i = 0; i < ntparms; i++)
15607 tree targ = TREE_VEC_ELT (targs, i);
15608 tree tparm = TREE_VEC_ELT (tparms, i);
15610 /* Clear the "incomplete" flags on all argument packs now so that
15611 substituting them into later default arguments works. */
15612 if (targ && ARGUMENT_PACK_P (targ))
15614 ARGUMENT_PACK_INCOMPLETE_P (targ) = 0;
15615 ARGUMENT_PACK_EXPLICIT_ARGS (targ) = NULL_TREE;
15618 if (targ || tparm == error_mark_node)
15619 continue;
15620 tparm = TREE_VALUE (tparm);
15622 /* If this is an undeduced nontype parameter that depends on
15623 a type parameter, try another pass; its type may have been
15624 deduced from a later argument than the one from which
15625 this parameter can be deduced. */
15626 if (TREE_CODE (tparm) == PARM_DECL
15627 && uses_template_parms (TREE_TYPE (tparm))
15628 && !saw_undeduced++)
15629 goto again;
15631 /* Core issue #226 (C++0x) [temp.deduct]:
15633 If a template argument has not been deduced, its
15634 default template argument, if any, is used.
15636 When we are in C++98 mode, TREE_PURPOSE will either
15637 be NULL_TREE or ERROR_MARK_NODE, so we do not need
15638 to explicitly check cxx_dialect here. */
15639 if (TREE_PURPOSE (TREE_VEC_ELT (tparms, i)))
15641 tree parm = TREE_VALUE (TREE_VEC_ELT (tparms, i));
15642 tree arg = TREE_PURPOSE (TREE_VEC_ELT (tparms, i));
15643 reopen_deferring_access_checks (*checks);
15644 location_t save_loc = input_location;
15645 if (DECL_P (parm))
15646 input_location = DECL_SOURCE_LOCATION (parm);
15647 arg = tsubst_template_arg (arg, targs, complain, NULL_TREE);
15648 arg = convert_template_argument (parm, arg, targs, complain,
15649 i, NULL_TREE);
15650 input_location = save_loc;
15651 *checks = get_deferred_access_checks ();
15652 pop_deferring_access_checks ();
15653 if (arg == error_mark_node)
15654 return 1;
15655 else
15657 TREE_VEC_ELT (targs, i) = arg;
15658 /* The position of the first default template argument,
15659 is also the number of non-defaulted arguments in TARGS.
15660 Record that. */
15661 if (!NON_DEFAULT_TEMPLATE_ARGS_COUNT (targs))
15662 SET_NON_DEFAULT_TEMPLATE_ARGS_COUNT (targs, i);
15663 continue;
15667 /* If the type parameter is a parameter pack, then it will
15668 be deduced to an empty parameter pack. */
15669 if (template_parameter_pack_p (tparm))
15671 tree arg;
15673 if (TREE_CODE (tparm) == TEMPLATE_PARM_INDEX)
15675 arg = make_node (NONTYPE_ARGUMENT_PACK);
15676 TREE_TYPE (arg) = TREE_TYPE (TEMPLATE_PARM_DECL (tparm));
15677 TREE_CONSTANT (arg) = 1;
15679 else
15680 arg = cxx_make_type (TYPE_ARGUMENT_PACK);
15682 SET_ARGUMENT_PACK_ARGS (arg, make_tree_vec (0));
15684 TREE_VEC_ELT (targs, i) = arg;
15685 continue;
15688 return unify_parameter_deduction_failure (explain_p, tparm);
15691 #ifdef ENABLE_CHECKING
15692 if (!NON_DEFAULT_TEMPLATE_ARGS_COUNT (targs))
15693 SET_NON_DEFAULT_TEMPLATE_ARGS_COUNT (targs, TREE_VEC_LENGTH (targs));
15694 #endif
15696 return unify_success (explain_p);
15699 /* Subroutine of type_unification_real. Args are like the variables
15700 at the call site. ARG is an overloaded function (or template-id);
15701 we try deducing template args from each of the overloads, and if
15702 only one succeeds, we go with that. Modifies TARGS and returns
15703 true on success. */
15705 static bool
15706 resolve_overloaded_unification (tree tparms,
15707 tree targs,
15708 tree parm,
15709 tree arg,
15710 unification_kind_t strict,
15711 int sub_strict,
15712 bool explain_p)
15714 tree tempargs = copy_node (targs);
15715 int good = 0;
15716 tree goodfn = NULL_TREE;
15717 bool addr_p;
15719 if (TREE_CODE (arg) == ADDR_EXPR)
15721 arg = TREE_OPERAND (arg, 0);
15722 addr_p = true;
15724 else
15725 addr_p = false;
15727 if (TREE_CODE (arg) == COMPONENT_REF)
15728 /* Handle `&x' where `x' is some static or non-static member
15729 function name. */
15730 arg = TREE_OPERAND (arg, 1);
15732 if (TREE_CODE (arg) == OFFSET_REF)
15733 arg = TREE_OPERAND (arg, 1);
15735 /* Strip baselink information. */
15736 if (BASELINK_P (arg))
15737 arg = BASELINK_FUNCTIONS (arg);
15739 if (TREE_CODE (arg) == TEMPLATE_ID_EXPR)
15741 /* If we got some explicit template args, we need to plug them into
15742 the affected templates before we try to unify, in case the
15743 explicit args will completely resolve the templates in question. */
15745 int ok = 0;
15746 tree expl_subargs = TREE_OPERAND (arg, 1);
15747 arg = TREE_OPERAND (arg, 0);
15749 for (; arg; arg = OVL_NEXT (arg))
15751 tree fn = OVL_CURRENT (arg);
15752 tree subargs, elem;
15754 if (TREE_CODE (fn) != TEMPLATE_DECL)
15755 continue;
15757 subargs = coerce_template_parms (DECL_INNERMOST_TEMPLATE_PARMS (fn),
15758 expl_subargs, NULL_TREE, tf_none,
15759 /*require_all_args=*/true,
15760 /*use_default_args=*/true);
15761 if (subargs != error_mark_node
15762 && !any_dependent_template_arguments_p (subargs))
15764 elem = TREE_TYPE (instantiate_template (fn, subargs, tf_none));
15765 if (try_one_overload (tparms, targs, tempargs, parm,
15766 elem, strict, sub_strict, addr_p, explain_p)
15767 && (!goodfn || !same_type_p (goodfn, elem)))
15769 goodfn = elem;
15770 ++good;
15773 else if (subargs)
15774 ++ok;
15776 /* If no templates (or more than one) are fully resolved by the
15777 explicit arguments, this template-id is a non-deduced context; it
15778 could still be OK if we deduce all template arguments for the
15779 enclosing call through other arguments. */
15780 if (good != 1)
15781 good = ok;
15783 else if (TREE_CODE (arg) != OVERLOAD
15784 && TREE_CODE (arg) != FUNCTION_DECL)
15785 /* If ARG is, for example, "(0, &f)" then its type will be unknown
15786 -- but the deduction does not succeed because the expression is
15787 not just the function on its own. */
15788 return false;
15789 else
15790 for (; arg; arg = OVL_NEXT (arg))
15791 if (try_one_overload (tparms, targs, tempargs, parm,
15792 TREE_TYPE (OVL_CURRENT (arg)),
15793 strict, sub_strict, addr_p, explain_p)
15794 && (!goodfn || !decls_match (goodfn, OVL_CURRENT (arg))))
15796 goodfn = OVL_CURRENT (arg);
15797 ++good;
15800 /* [temp.deduct.type] A template-argument can be deduced from a pointer
15801 to function or pointer to member function argument if the set of
15802 overloaded functions does not contain function templates and at most
15803 one of a set of overloaded functions provides a unique match.
15805 So if we found multiple possibilities, we return success but don't
15806 deduce anything. */
15808 if (good == 1)
15810 int i = TREE_VEC_LENGTH (targs);
15811 for (; i--; )
15812 if (TREE_VEC_ELT (tempargs, i))
15813 TREE_VEC_ELT (targs, i) = TREE_VEC_ELT (tempargs, i);
15815 if (good)
15816 return true;
15818 return false;
15821 /* Core DR 115: In contexts where deduction is done and fails, or in
15822 contexts where deduction is not done, if a template argument list is
15823 specified and it, along with any default template arguments, identifies
15824 a single function template specialization, then the template-id is an
15825 lvalue for the function template specialization. */
15827 tree
15828 resolve_nondeduced_context (tree orig_expr)
15830 tree expr, offset, baselink;
15831 bool addr;
15833 if (!type_unknown_p (orig_expr))
15834 return orig_expr;
15836 expr = orig_expr;
15837 addr = false;
15838 offset = NULL_TREE;
15839 baselink = NULL_TREE;
15841 if (TREE_CODE (expr) == ADDR_EXPR)
15843 expr = TREE_OPERAND (expr, 0);
15844 addr = true;
15846 if (TREE_CODE (expr) == OFFSET_REF)
15848 offset = expr;
15849 expr = TREE_OPERAND (expr, 1);
15851 if (BASELINK_P (expr))
15853 baselink = expr;
15854 expr = BASELINK_FUNCTIONS (expr);
15857 if (TREE_CODE (expr) == TEMPLATE_ID_EXPR)
15859 int good = 0;
15860 tree goodfn = NULL_TREE;
15862 /* If we got some explicit template args, we need to plug them into
15863 the affected templates before we try to unify, in case the
15864 explicit args will completely resolve the templates in question. */
15866 tree expl_subargs = TREE_OPERAND (expr, 1);
15867 tree arg = TREE_OPERAND (expr, 0);
15868 tree badfn = NULL_TREE;
15869 tree badargs = NULL_TREE;
15871 for (; arg; arg = OVL_NEXT (arg))
15873 tree fn = OVL_CURRENT (arg);
15874 tree subargs, elem;
15876 if (TREE_CODE (fn) != TEMPLATE_DECL)
15877 continue;
15879 subargs = coerce_template_parms (DECL_INNERMOST_TEMPLATE_PARMS (fn),
15880 expl_subargs, NULL_TREE, tf_none,
15881 /*require_all_args=*/true,
15882 /*use_default_args=*/true);
15883 if (subargs != error_mark_node
15884 && !any_dependent_template_arguments_p (subargs))
15886 elem = instantiate_template (fn, subargs, tf_none);
15887 if (elem == error_mark_node)
15889 badfn = fn;
15890 badargs = subargs;
15892 else if (elem && (!goodfn || !decls_match (goodfn, elem)))
15894 goodfn = elem;
15895 ++good;
15899 if (good == 1)
15901 mark_used (goodfn);
15902 expr = goodfn;
15903 if (baselink)
15904 expr = build_baselink (BASELINK_BINFO (baselink),
15905 BASELINK_ACCESS_BINFO (baselink),
15906 expr, BASELINK_OPTYPE (baselink));
15907 if (offset)
15909 tree base
15910 = TYPE_MAIN_VARIANT (TREE_TYPE (TREE_OPERAND (offset, 0)));
15911 expr = build_offset_ref (base, expr, addr, tf_warning_or_error);
15913 if (addr)
15914 expr = cp_build_addr_expr (expr, tf_warning_or_error);
15915 return expr;
15917 else if (good == 0 && badargs)
15918 /* There were no good options and at least one bad one, so let the
15919 user know what the problem is. */
15920 instantiate_template (badfn, badargs, tf_warning_or_error);
15922 return orig_expr;
15925 /* Subroutine of resolve_overloaded_unification; does deduction for a single
15926 overload. Fills TARGS with any deduced arguments, or error_mark_node if
15927 different overloads deduce different arguments for a given parm.
15928 ADDR_P is true if the expression for which deduction is being
15929 performed was of the form "& fn" rather than simply "fn".
15931 Returns 1 on success. */
15933 static int
15934 try_one_overload (tree tparms,
15935 tree orig_targs,
15936 tree targs,
15937 tree parm,
15938 tree arg,
15939 unification_kind_t strict,
15940 int sub_strict,
15941 bool addr_p,
15942 bool explain_p)
15944 int nargs;
15945 tree tempargs;
15946 int i;
15948 if (arg == error_mark_node)
15949 return 0;
15951 /* [temp.deduct.type] A template-argument can be deduced from a pointer
15952 to function or pointer to member function argument if the set of
15953 overloaded functions does not contain function templates and at most
15954 one of a set of overloaded functions provides a unique match.
15956 So if this is a template, just return success. */
15958 if (uses_template_parms (arg))
15959 return 1;
15961 if (TREE_CODE (arg) == METHOD_TYPE)
15962 arg = build_ptrmemfunc_type (build_pointer_type (arg));
15963 else if (addr_p)
15964 arg = build_pointer_type (arg);
15966 sub_strict |= maybe_adjust_types_for_deduction (strict, &parm, &arg, NULL);
15968 /* We don't copy orig_targs for this because if we have already deduced
15969 some template args from previous args, unify would complain when we
15970 try to deduce a template parameter for the same argument, even though
15971 there isn't really a conflict. */
15972 nargs = TREE_VEC_LENGTH (targs);
15973 tempargs = make_tree_vec (nargs);
15975 if (unify (tparms, tempargs, parm, arg, sub_strict, explain_p))
15976 return 0;
15978 /* First make sure we didn't deduce anything that conflicts with
15979 explicitly specified args. */
15980 for (i = nargs; i--; )
15982 tree elt = TREE_VEC_ELT (tempargs, i);
15983 tree oldelt = TREE_VEC_ELT (orig_targs, i);
15985 if (!elt)
15986 /*NOP*/;
15987 else if (uses_template_parms (elt))
15988 /* Since we're unifying against ourselves, we will fill in
15989 template args used in the function parm list with our own
15990 template parms. Discard them. */
15991 TREE_VEC_ELT (tempargs, i) = NULL_TREE;
15992 else if (oldelt && !template_args_equal (oldelt, elt))
15993 return 0;
15996 for (i = nargs; i--; )
15998 tree elt = TREE_VEC_ELT (tempargs, i);
16000 if (elt)
16001 TREE_VEC_ELT (targs, i) = elt;
16004 return 1;
16007 /* PARM is a template class (perhaps with unbound template
16008 parameters). ARG is a fully instantiated type. If ARG can be
16009 bound to PARM, return ARG, otherwise return NULL_TREE. TPARMS and
16010 TARGS are as for unify. */
16012 static tree
16013 try_class_unification (tree tparms, tree targs, tree parm, tree arg,
16014 bool explain_p)
16016 tree copy_of_targs;
16018 if (!CLASSTYPE_TEMPLATE_INFO (arg)
16019 || (most_general_template (CLASSTYPE_TI_TEMPLATE (arg))
16020 != most_general_template (CLASSTYPE_TI_TEMPLATE (parm))))
16021 return NULL_TREE;
16023 /* We need to make a new template argument vector for the call to
16024 unify. If we used TARGS, we'd clutter it up with the result of
16025 the attempted unification, even if this class didn't work out.
16026 We also don't want to commit ourselves to all the unifications
16027 we've already done, since unification is supposed to be done on
16028 an argument-by-argument basis. In other words, consider the
16029 following pathological case:
16031 template <int I, int J, int K>
16032 struct S {};
16034 template <int I, int J>
16035 struct S<I, J, 2> : public S<I, I, I>, S<J, J, J> {};
16037 template <int I, int J, int K>
16038 void f(S<I, J, K>, S<I, I, I>);
16040 void g() {
16041 S<0, 0, 0> s0;
16042 S<0, 1, 2> s2;
16044 f(s0, s2);
16047 Now, by the time we consider the unification involving `s2', we
16048 already know that we must have `f<0, 0, 0>'. But, even though
16049 `S<0, 1, 2>' is derived from `S<0, 0, 0>', the code is invalid
16050 because there are two ways to unify base classes of S<0, 1, 2>
16051 with S<I, I, I>. If we kept the already deduced knowledge, we
16052 would reject the possibility I=1. */
16053 copy_of_targs = make_tree_vec (TREE_VEC_LENGTH (targs));
16055 /* If unification failed, we're done. */
16056 if (unify (tparms, copy_of_targs, CLASSTYPE_TI_ARGS (parm),
16057 CLASSTYPE_TI_ARGS (arg), UNIFY_ALLOW_NONE, explain_p))
16058 return NULL_TREE;
16060 return arg;
16063 /* Given a template type PARM and a class type ARG, find the unique
16064 base type in ARG that is an instance of PARM. We do not examine
16065 ARG itself; only its base-classes. If there is not exactly one
16066 appropriate base class, return NULL_TREE. PARM may be the type of
16067 a partial specialization, as well as a plain template type. Used
16068 by unify. */
16070 static enum template_base_result
16071 get_template_base (tree tparms, tree targs, tree parm, tree arg,
16072 bool explain_p, tree *result)
16074 tree rval = NULL_TREE;
16075 tree binfo;
16077 gcc_assert (RECORD_OR_UNION_CODE_P (TREE_CODE (arg)));
16079 binfo = TYPE_BINFO (complete_type (arg));
16080 if (!binfo)
16082 /* The type could not be completed. */
16083 *result = NULL_TREE;
16084 return tbr_incomplete_type;
16087 /* Walk in inheritance graph order. The search order is not
16088 important, and this avoids multiple walks of virtual bases. */
16089 for (binfo = TREE_CHAIN (binfo); binfo; binfo = TREE_CHAIN (binfo))
16091 tree r = try_class_unification (tparms, targs, parm,
16092 BINFO_TYPE (binfo), explain_p);
16094 if (r)
16096 /* If there is more than one satisfactory baseclass, then:
16098 [temp.deduct.call]
16100 If they yield more than one possible deduced A, the type
16101 deduction fails.
16103 applies. */
16104 if (rval && !same_type_p (r, rval))
16106 *result = NULL_TREE;
16107 return tbr_ambiguous_baseclass;
16110 rval = r;
16114 *result = rval;
16115 return tbr_success;
16118 /* Returns the level of DECL, which declares a template parameter. */
16120 static int
16121 template_decl_level (tree decl)
16123 switch (TREE_CODE (decl))
16125 case TYPE_DECL:
16126 case TEMPLATE_DECL:
16127 return TEMPLATE_TYPE_LEVEL (TREE_TYPE (decl));
16129 case PARM_DECL:
16130 return TEMPLATE_PARM_LEVEL (DECL_INITIAL (decl));
16132 default:
16133 gcc_unreachable ();
16135 return 0;
16138 /* Decide whether ARG can be unified with PARM, considering only the
16139 cv-qualifiers of each type, given STRICT as documented for unify.
16140 Returns nonzero iff the unification is OK on that basis. */
16142 static int
16143 check_cv_quals_for_unify (int strict, tree arg, tree parm)
16145 int arg_quals = cp_type_quals (arg);
16146 int parm_quals = cp_type_quals (parm);
16148 if (TREE_CODE (parm) == TEMPLATE_TYPE_PARM
16149 && !(strict & UNIFY_ALLOW_OUTER_MORE_CV_QUAL))
16151 /* Although a CVR qualifier is ignored when being applied to a
16152 substituted template parameter ([8.3.2]/1 for example), that
16153 does not allow us to unify "const T" with "int&" because both
16154 types are not of the form "cv-list T" [14.8.2.5 temp.deduct.type].
16155 It is ok when we're allowing additional CV qualifiers
16156 at the outer level [14.8.2.1]/3,1st bullet. */
16157 if ((TREE_CODE (arg) == REFERENCE_TYPE
16158 || TREE_CODE (arg) == FUNCTION_TYPE
16159 || TREE_CODE (arg) == METHOD_TYPE)
16160 && (parm_quals & (TYPE_QUAL_CONST | TYPE_QUAL_VOLATILE)))
16161 return 0;
16163 if ((!POINTER_TYPE_P (arg) && TREE_CODE (arg) != TEMPLATE_TYPE_PARM)
16164 && (parm_quals & TYPE_QUAL_RESTRICT))
16165 return 0;
16168 if (!(strict & (UNIFY_ALLOW_MORE_CV_QUAL | UNIFY_ALLOW_OUTER_MORE_CV_QUAL))
16169 && (arg_quals & parm_quals) != parm_quals)
16170 return 0;
16172 if (!(strict & (UNIFY_ALLOW_LESS_CV_QUAL | UNIFY_ALLOW_OUTER_LESS_CV_QUAL))
16173 && (parm_quals & arg_quals) != arg_quals)
16174 return 0;
16176 return 1;
16179 /* Determines the LEVEL and INDEX for the template parameter PARM. */
16180 void
16181 template_parm_level_and_index (tree parm, int* level, int* index)
16183 if (TREE_CODE (parm) == TEMPLATE_TYPE_PARM
16184 || TREE_CODE (parm) == TEMPLATE_TEMPLATE_PARM
16185 || TREE_CODE (parm) == BOUND_TEMPLATE_TEMPLATE_PARM)
16187 *index = TEMPLATE_TYPE_IDX (parm);
16188 *level = TEMPLATE_TYPE_LEVEL (parm);
16190 else
16192 *index = TEMPLATE_PARM_IDX (parm);
16193 *level = TEMPLATE_PARM_LEVEL (parm);
16197 #define RECUR_AND_CHECK_FAILURE(TP, TA, P, A, S, EP) \
16198 do { \
16199 if (unify (TP, TA, P, A, S, EP)) \
16200 return 1; \
16201 } while (0);
16203 /* Unifies the remaining arguments in PACKED_ARGS with the pack
16204 expansion at the end of PACKED_PARMS. Returns 0 if the type
16205 deduction succeeds, 1 otherwise. STRICT is the same as in
16206 unify. CALL_ARGS_P is true iff PACKED_ARGS is actually a function
16207 call argument list. We'll need to adjust the arguments to make them
16208 types. SUBR tells us if this is from a recursive call to
16209 type_unification_real, or for comparing two template argument
16210 lists. */
16212 static int
16213 unify_pack_expansion (tree tparms, tree targs, tree packed_parms,
16214 tree packed_args, unification_kind_t strict,
16215 bool subr, bool explain_p)
16217 tree parm
16218 = TREE_VEC_ELT (packed_parms, TREE_VEC_LENGTH (packed_parms) - 1);
16219 tree pattern = PACK_EXPANSION_PATTERN (parm);
16220 tree pack, packs = NULL_TREE;
16221 int i, start = TREE_VEC_LENGTH (packed_parms) - 1;
16223 packed_args = expand_template_argument_pack (packed_args);
16225 int len = TREE_VEC_LENGTH (packed_args);
16227 /* Determine the parameter packs we will be deducing from the
16228 pattern, and record their current deductions. */
16229 for (pack = PACK_EXPANSION_PARAMETER_PACKS (parm);
16230 pack; pack = TREE_CHAIN (pack))
16232 tree parm_pack = TREE_VALUE (pack);
16233 int idx, level;
16235 /* Determine the index and level of this parameter pack. */
16236 template_parm_level_and_index (parm_pack, &level, &idx);
16238 /* Keep track of the parameter packs and their corresponding
16239 argument packs. */
16240 packs = tree_cons (parm_pack, TMPL_ARG (targs, level, idx), packs);
16241 TREE_TYPE (packs) = make_tree_vec (len - start);
16244 /* Loop through all of the arguments that have not yet been
16245 unified and unify each with the pattern. */
16246 for (i = start; i < len; i++)
16248 tree parm;
16249 bool any_explicit = false;
16250 tree arg = TREE_VEC_ELT (packed_args, i);
16252 /* For each parameter pack, set its TMPL_ARG to either NULL_TREE
16253 or the element of its argument pack at the current index if
16254 this argument was explicitly specified. */
16255 for (pack = packs; pack; pack = TREE_CHAIN (pack))
16257 int idx, level;
16258 tree arg, pargs;
16259 template_parm_level_and_index (TREE_PURPOSE (pack), &level, &idx);
16261 arg = NULL_TREE;
16262 if (TREE_VALUE (pack)
16263 && (pargs = ARGUMENT_PACK_EXPLICIT_ARGS (TREE_VALUE (pack)))
16264 && (i - start < TREE_VEC_LENGTH (pargs)))
16266 any_explicit = true;
16267 arg = TREE_VEC_ELT (pargs, i - start);
16269 TMPL_ARG (targs, level, idx) = arg;
16272 /* If we had explicit template arguments, substitute them into the
16273 pattern before deduction. */
16274 if (any_explicit)
16276 /* Some arguments might still be unspecified or dependent. */
16277 bool dependent;
16278 ++processing_template_decl;
16279 dependent = any_dependent_template_arguments_p (targs);
16280 if (!dependent)
16281 --processing_template_decl;
16282 parm = tsubst (pattern, targs,
16283 explain_p ? tf_warning_or_error : tf_none,
16284 NULL_TREE);
16285 if (dependent)
16286 --processing_template_decl;
16287 if (parm == error_mark_node)
16288 return 1;
16290 else
16291 parm = pattern;
16293 /* Unify the pattern with the current argument. */
16294 if (unify_one_argument (tparms, targs, parm, arg, subr, strict,
16295 LOOKUP_IMPLICIT, explain_p))
16296 return 1;
16298 /* For each parameter pack, collect the deduced value. */
16299 for (pack = packs; pack; pack = TREE_CHAIN (pack))
16301 int idx, level;
16302 template_parm_level_and_index (TREE_PURPOSE (pack), &level, &idx);
16304 TREE_VEC_ELT (TREE_TYPE (pack), i - start) =
16305 TMPL_ARG (targs, level, idx);
16309 /* Verify that the results of unification with the parameter packs
16310 produce results consistent with what we've seen before, and make
16311 the deduced argument packs available. */
16312 for (pack = packs; pack; pack = TREE_CHAIN (pack))
16314 tree old_pack = TREE_VALUE (pack);
16315 tree new_args = TREE_TYPE (pack);
16316 int i, len = TREE_VEC_LENGTH (new_args);
16317 int idx, level;
16318 bool nondeduced_p = false;
16320 /* By default keep the original deduced argument pack.
16321 If necessary, more specific code is going to update the
16322 resulting deduced argument later down in this function. */
16323 template_parm_level_and_index (TREE_PURPOSE (pack), &level, &idx);
16324 TMPL_ARG (targs, level, idx) = old_pack;
16326 /* If NEW_ARGS contains any NULL_TREE entries, we didn't
16327 actually deduce anything. */
16328 for (i = 0; i < len && !nondeduced_p; ++i)
16329 if (TREE_VEC_ELT (new_args, i) == NULL_TREE)
16330 nondeduced_p = true;
16331 if (nondeduced_p)
16332 continue;
16334 if (old_pack && ARGUMENT_PACK_INCOMPLETE_P (old_pack))
16336 /* If we had fewer function args than explicit template args,
16337 just use the explicits. */
16338 tree explicit_args = ARGUMENT_PACK_EXPLICIT_ARGS (old_pack);
16339 int explicit_len = TREE_VEC_LENGTH (explicit_args);
16340 if (len < explicit_len)
16341 new_args = explicit_args;
16344 if (!old_pack)
16346 tree result;
16347 /* Build the deduced *_ARGUMENT_PACK. */
16348 if (TREE_CODE (TREE_PURPOSE (pack)) == TEMPLATE_PARM_INDEX)
16350 result = make_node (NONTYPE_ARGUMENT_PACK);
16351 TREE_TYPE (result) =
16352 TREE_TYPE (TEMPLATE_PARM_DECL (TREE_PURPOSE (pack)));
16353 TREE_CONSTANT (result) = 1;
16355 else
16356 result = cxx_make_type (TYPE_ARGUMENT_PACK);
16358 SET_ARGUMENT_PACK_ARGS (result, new_args);
16360 /* Note the deduced argument packs for this parameter
16361 pack. */
16362 TMPL_ARG (targs, level, idx) = result;
16364 else if (ARGUMENT_PACK_INCOMPLETE_P (old_pack)
16365 && (ARGUMENT_PACK_ARGS (old_pack)
16366 == ARGUMENT_PACK_EXPLICIT_ARGS (old_pack)))
16368 /* We only had the explicitly-provided arguments before, but
16369 now we have a complete set of arguments. */
16370 tree explicit_args = ARGUMENT_PACK_EXPLICIT_ARGS (old_pack);
16372 SET_ARGUMENT_PACK_ARGS (old_pack, new_args);
16373 ARGUMENT_PACK_INCOMPLETE_P (old_pack) = 1;
16374 ARGUMENT_PACK_EXPLICIT_ARGS (old_pack) = explicit_args;
16376 else
16378 tree bad_old_arg = NULL_TREE, bad_new_arg = NULL_TREE;
16379 tree old_args = ARGUMENT_PACK_ARGS (old_pack);
16381 if (!comp_template_args_with_info (old_args, new_args,
16382 &bad_old_arg, &bad_new_arg))
16383 /* Inconsistent unification of this parameter pack. */
16384 return unify_parameter_pack_inconsistent (explain_p,
16385 bad_old_arg,
16386 bad_new_arg);
16390 return unify_success (explain_p);
16393 /* Deduce the value of template parameters. TPARMS is the (innermost)
16394 set of template parameters to a template. TARGS is the bindings
16395 for those template parameters, as determined thus far; TARGS may
16396 include template arguments for outer levels of template parameters
16397 as well. PARM is a parameter to a template function, or a
16398 subcomponent of that parameter; ARG is the corresponding argument.
16399 This function attempts to match PARM with ARG in a manner
16400 consistent with the existing assignments in TARGS. If more values
16401 are deduced, then TARGS is updated.
16403 Returns 0 if the type deduction succeeds, 1 otherwise. The
16404 parameter STRICT is a bitwise or of the following flags:
16406 UNIFY_ALLOW_NONE:
16407 Require an exact match between PARM and ARG.
16408 UNIFY_ALLOW_MORE_CV_QUAL:
16409 Allow the deduced ARG to be more cv-qualified (by qualification
16410 conversion) than ARG.
16411 UNIFY_ALLOW_LESS_CV_QUAL:
16412 Allow the deduced ARG to be less cv-qualified than ARG.
16413 UNIFY_ALLOW_DERIVED:
16414 Allow the deduced ARG to be a template base class of ARG,
16415 or a pointer to a template base class of the type pointed to by
16416 ARG.
16417 UNIFY_ALLOW_INTEGER:
16418 Allow any integral type to be deduced. See the TEMPLATE_PARM_INDEX
16419 case for more information.
16420 UNIFY_ALLOW_OUTER_LEVEL:
16421 This is the outermost level of a deduction. Used to determine validity
16422 of qualification conversions. A valid qualification conversion must
16423 have const qualified pointers leading up to the inner type which
16424 requires additional CV quals, except at the outer level, where const
16425 is not required [conv.qual]. It would be normal to set this flag in
16426 addition to setting UNIFY_ALLOW_MORE_CV_QUAL.
16427 UNIFY_ALLOW_OUTER_MORE_CV_QUAL:
16428 This is the outermost level of a deduction, and PARM can be more CV
16429 qualified at this point.
16430 UNIFY_ALLOW_OUTER_LESS_CV_QUAL:
16431 This is the outermost level of a deduction, and PARM can be less CV
16432 qualified at this point. */
16434 static int
16435 unify (tree tparms, tree targs, tree parm, tree arg, int strict,
16436 bool explain_p)
16438 int idx;
16439 tree targ;
16440 tree tparm;
16441 int strict_in = strict;
16443 /* I don't think this will do the right thing with respect to types.
16444 But the only case I've seen it in so far has been array bounds, where
16445 signedness is the only information lost, and I think that will be
16446 okay. */
16447 while (TREE_CODE (parm) == NOP_EXPR)
16448 parm = TREE_OPERAND (parm, 0);
16450 if (arg == error_mark_node)
16451 return unify_invalid (explain_p);
16452 if (arg == unknown_type_node
16453 || arg == init_list_type_node)
16454 /* We can't deduce anything from this, but we might get all the
16455 template args from other function args. */
16456 return unify_success (explain_p);
16458 /* If PARM uses template parameters, then we can't bail out here,
16459 even if ARG == PARM, since we won't record unifications for the
16460 template parameters. We might need them if we're trying to
16461 figure out which of two things is more specialized. */
16462 if (arg == parm && !uses_template_parms (parm))
16463 return unify_success (explain_p);
16465 /* Handle init lists early, so the rest of the function can assume
16466 we're dealing with a type. */
16467 if (BRACE_ENCLOSED_INITIALIZER_P (arg))
16469 tree elt, elttype;
16470 unsigned i;
16471 tree orig_parm = parm;
16473 /* Replace T with std::initializer_list<T> for deduction. */
16474 if (TREE_CODE (parm) == TEMPLATE_TYPE_PARM
16475 && flag_deduce_init_list)
16476 parm = listify (parm);
16478 if (!is_std_init_list (parm))
16479 /* We can only deduce from an initializer list argument if the
16480 parameter is std::initializer_list; otherwise this is a
16481 non-deduced context. */
16482 return unify_success (explain_p);
16484 elttype = TREE_VEC_ELT (CLASSTYPE_TI_ARGS (parm), 0);
16486 FOR_EACH_CONSTRUCTOR_VALUE (CONSTRUCTOR_ELTS (arg), i, elt)
16488 int elt_strict = strict;
16490 if (elt == error_mark_node)
16491 return unify_invalid (explain_p);
16493 if (!BRACE_ENCLOSED_INITIALIZER_P (elt))
16495 tree type = TREE_TYPE (elt);
16496 /* It should only be possible to get here for a call. */
16497 gcc_assert (elt_strict & UNIFY_ALLOW_OUTER_LEVEL);
16498 elt_strict |= maybe_adjust_types_for_deduction
16499 (DEDUCE_CALL, &elttype, &type, elt);
16500 elt = type;
16503 RECUR_AND_CHECK_FAILURE (tparms, targs, elttype, elt, elt_strict,
16504 explain_p);
16507 /* If the std::initializer_list<T> deduction worked, replace the
16508 deduced A with std::initializer_list<A>. */
16509 if (orig_parm != parm)
16511 idx = TEMPLATE_TYPE_IDX (orig_parm);
16512 targ = TREE_VEC_ELT (INNERMOST_TEMPLATE_ARGS (targs), idx);
16513 targ = listify (targ);
16514 TREE_VEC_ELT (INNERMOST_TEMPLATE_ARGS (targs), idx) = targ;
16516 return unify_success (explain_p);
16519 /* Immediately reject some pairs that won't unify because of
16520 cv-qualification mismatches. */
16521 if (TREE_CODE (arg) == TREE_CODE (parm)
16522 && TYPE_P (arg)
16523 /* It is the elements of the array which hold the cv quals of an array
16524 type, and the elements might be template type parms. We'll check
16525 when we recurse. */
16526 && TREE_CODE (arg) != ARRAY_TYPE
16527 /* We check the cv-qualifiers when unifying with template type
16528 parameters below. We want to allow ARG `const T' to unify with
16529 PARM `T' for example, when computing which of two templates
16530 is more specialized, for example. */
16531 && TREE_CODE (arg) != TEMPLATE_TYPE_PARM
16532 && !check_cv_quals_for_unify (strict_in, arg, parm))
16533 return unify_cv_qual_mismatch (explain_p, parm, arg);
16535 if (!(strict & UNIFY_ALLOW_OUTER_LEVEL)
16536 && TYPE_P (parm) && !CP_TYPE_CONST_P (parm))
16537 strict &= ~UNIFY_ALLOW_MORE_CV_QUAL;
16538 strict &= ~UNIFY_ALLOW_OUTER_LEVEL;
16539 strict &= ~UNIFY_ALLOW_DERIVED;
16540 strict &= ~UNIFY_ALLOW_OUTER_MORE_CV_QUAL;
16541 strict &= ~UNIFY_ALLOW_OUTER_LESS_CV_QUAL;
16543 switch (TREE_CODE (parm))
16545 case TYPENAME_TYPE:
16546 case SCOPE_REF:
16547 case UNBOUND_CLASS_TEMPLATE:
16548 /* In a type which contains a nested-name-specifier, template
16549 argument values cannot be deduced for template parameters used
16550 within the nested-name-specifier. */
16551 return unify_success (explain_p);
16553 case TEMPLATE_TYPE_PARM:
16554 case TEMPLATE_TEMPLATE_PARM:
16555 case BOUND_TEMPLATE_TEMPLATE_PARM:
16556 tparm = TREE_VALUE (TREE_VEC_ELT (tparms, 0));
16557 if (tparm == error_mark_node)
16558 return unify_invalid (explain_p);
16560 if (TEMPLATE_TYPE_LEVEL (parm)
16561 != template_decl_level (tparm))
16562 /* The PARM is not one we're trying to unify. Just check
16563 to see if it matches ARG. */
16565 if (TREE_CODE (arg) == TREE_CODE (parm)
16566 && (is_auto (parm) ? is_auto (arg)
16567 : same_type_p (parm, arg)))
16568 return unify_success (explain_p);
16569 else
16570 return unify_type_mismatch (explain_p, parm, arg);
16572 idx = TEMPLATE_TYPE_IDX (parm);
16573 targ = TREE_VEC_ELT (INNERMOST_TEMPLATE_ARGS (targs), idx);
16574 tparm = TREE_VALUE (TREE_VEC_ELT (tparms, idx));
16575 if (tparm == error_mark_node)
16576 return unify_invalid (explain_p);
16578 /* Check for mixed types and values. */
16579 if ((TREE_CODE (parm) == TEMPLATE_TYPE_PARM
16580 && TREE_CODE (tparm) != TYPE_DECL)
16581 || (TREE_CODE (parm) == TEMPLATE_TEMPLATE_PARM
16582 && TREE_CODE (tparm) != TEMPLATE_DECL))
16583 gcc_unreachable ();
16585 if (TREE_CODE (parm) == BOUND_TEMPLATE_TEMPLATE_PARM)
16587 /* ARG must be constructed from a template class or a template
16588 template parameter. */
16589 if (TREE_CODE (arg) != BOUND_TEMPLATE_TEMPLATE_PARM
16590 && !CLASSTYPE_SPECIALIZATION_OF_PRIMARY_TEMPLATE_P (arg))
16591 return unify_template_deduction_failure (explain_p, parm, arg);
16594 tree parmvec = TYPE_TI_ARGS (parm);
16595 tree argvec = INNERMOST_TEMPLATE_ARGS (TYPE_TI_ARGS (arg));
16596 tree full_argvec = add_to_template_args (targs, argvec);
16597 tree parm_parms
16598 = DECL_INNERMOST_TEMPLATE_PARMS
16599 (TEMPLATE_TEMPLATE_PARM_TEMPLATE_DECL (parm));
16600 int i, len;
16601 int parm_variadic_p = 0;
16603 /* The resolution to DR150 makes clear that default
16604 arguments for an N-argument may not be used to bind T
16605 to a template template parameter with fewer than N
16606 parameters. It is not safe to permit the binding of
16607 default arguments as an extension, as that may change
16608 the meaning of a conforming program. Consider:
16610 struct Dense { static const unsigned int dim = 1; };
16612 template <template <typename> class View,
16613 typename Block>
16614 void operator+(float, View<Block> const&);
16616 template <typename Block,
16617 unsigned int Dim = Block::dim>
16618 struct Lvalue_proxy { operator float() const; };
16620 void
16621 test_1d (void) {
16622 Lvalue_proxy<Dense> p;
16623 float b;
16624 b + p;
16627 Here, if Lvalue_proxy is permitted to bind to View, then
16628 the global operator+ will be used; if they are not, the
16629 Lvalue_proxy will be converted to float. */
16630 if (coerce_template_parms (parm_parms,
16631 full_argvec,
16632 TYPE_TI_TEMPLATE (parm),
16633 (explain_p
16634 ? tf_warning_or_error
16635 : tf_none),
16636 /*require_all_args=*/true,
16637 /*use_default_args=*/false)
16638 == error_mark_node)
16639 return 1;
16641 /* Deduce arguments T, i from TT<T> or TT<i>.
16642 We check each element of PARMVEC and ARGVEC individually
16643 rather than the whole TREE_VEC since they can have
16644 different number of elements. */
16646 parmvec = expand_template_argument_pack (parmvec);
16647 argvec = expand_template_argument_pack (argvec);
16649 len = TREE_VEC_LENGTH (parmvec);
16651 /* Check if the parameters end in a pack, making them
16652 variadic. */
16653 if (len > 0
16654 && PACK_EXPANSION_P (TREE_VEC_ELT (parmvec, len - 1)))
16655 parm_variadic_p = 1;
16657 for (i = 0; i < len - parm_variadic_p; ++i)
16658 /* If the template argument list of P contains a pack
16659 expansion that is not the last template argument, the
16660 entire template argument list is a non-deduced
16661 context. */
16662 if (PACK_EXPANSION_P (TREE_VEC_ELT (parmvec, i)))
16663 return unify_success (explain_p);
16665 if (TREE_VEC_LENGTH (argvec) < len - parm_variadic_p)
16666 return unify_too_few_arguments (explain_p,
16667 TREE_VEC_LENGTH (argvec), len);
16669 for (i = 0; i < len - parm_variadic_p; ++i)
16671 RECUR_AND_CHECK_FAILURE (tparms, targs,
16672 TREE_VEC_ELT (parmvec, i),
16673 TREE_VEC_ELT (argvec, i),
16674 UNIFY_ALLOW_NONE, explain_p);
16677 if (parm_variadic_p
16678 && unify_pack_expansion (tparms, targs,
16679 parmvec, argvec,
16680 DEDUCE_EXACT,
16681 /*subr=*/true, explain_p))
16682 return 1;
16684 arg = TYPE_TI_TEMPLATE (arg);
16686 /* Fall through to deduce template name. */
16689 if (TREE_CODE (parm) == TEMPLATE_TEMPLATE_PARM
16690 || TREE_CODE (parm) == BOUND_TEMPLATE_TEMPLATE_PARM)
16692 /* Deduce template name TT from TT, TT<>, TT<T> and TT<i>. */
16694 /* Simple cases: Value already set, does match or doesn't. */
16695 if (targ != NULL_TREE && template_args_equal (targ, arg))
16696 return unify_success (explain_p);
16697 else if (targ)
16698 return unify_inconsistency (explain_p, parm, targ, arg);
16700 else
16702 /* If PARM is `const T' and ARG is only `int', we don't have
16703 a match unless we are allowing additional qualification.
16704 If ARG is `const int' and PARM is just `T' that's OK;
16705 that binds `const int' to `T'. */
16706 if (!check_cv_quals_for_unify (strict_in | UNIFY_ALLOW_LESS_CV_QUAL,
16707 arg, parm))
16708 return unify_cv_qual_mismatch (explain_p, parm, arg);
16710 /* Consider the case where ARG is `const volatile int' and
16711 PARM is `const T'. Then, T should be `volatile int'. */
16712 arg = cp_build_qualified_type_real
16713 (arg, cp_type_quals (arg) & ~cp_type_quals (parm), tf_none);
16714 if (arg == error_mark_node)
16715 return unify_invalid (explain_p);
16717 /* Simple cases: Value already set, does match or doesn't. */
16718 if (targ != NULL_TREE && same_type_p (targ, arg))
16719 return unify_success (explain_p);
16720 else if (targ)
16721 return unify_inconsistency (explain_p, parm, targ, arg);
16723 /* Make sure that ARG is not a variable-sized array. (Note
16724 that were talking about variable-sized arrays (like
16725 `int[n]'), rather than arrays of unknown size (like
16726 `int[]').) We'll get very confused by such a type since
16727 the bound of the array is not constant, and therefore
16728 not mangleable. Besides, such types are not allowed in
16729 ISO C++, so we can do as we please here. We do allow
16730 them for 'auto' deduction, since that isn't ABI-exposed. */
16731 if (!is_auto (parm) && variably_modified_type_p (arg, NULL_TREE))
16732 return unify_vla_arg (explain_p, arg);
16734 /* Strip typedefs as in convert_template_argument. */
16735 arg = canonicalize_type_argument (arg, tf_none);
16738 /* If ARG is a parameter pack or an expansion, we cannot unify
16739 against it unless PARM is also a parameter pack. */
16740 if ((template_parameter_pack_p (arg) || PACK_EXPANSION_P (arg))
16741 && !template_parameter_pack_p (parm))
16742 return unify_parameter_pack_mismatch (explain_p, parm, arg);
16744 /* If the argument deduction results is a METHOD_TYPE,
16745 then there is a problem.
16746 METHOD_TYPE doesn't map to any real C++ type the result of
16747 the deduction can not be of that type. */
16748 if (TREE_CODE (arg) == METHOD_TYPE)
16749 return unify_method_type_error (explain_p, arg);
16751 TREE_VEC_ELT (INNERMOST_TEMPLATE_ARGS (targs), idx) = arg;
16752 return unify_success (explain_p);
16754 case TEMPLATE_PARM_INDEX:
16755 tparm = TREE_VALUE (TREE_VEC_ELT (tparms, 0));
16756 if (tparm == error_mark_node)
16757 return unify_invalid (explain_p);
16759 if (TEMPLATE_PARM_LEVEL (parm)
16760 != template_decl_level (tparm))
16762 /* The PARM is not one we're trying to unify. Just check
16763 to see if it matches ARG. */
16764 int result = !(TREE_CODE (arg) == TREE_CODE (parm)
16765 && cp_tree_equal (parm, arg));
16766 if (result)
16767 unify_expression_unequal (explain_p, parm, arg);
16768 return result;
16771 idx = TEMPLATE_PARM_IDX (parm);
16772 targ = TREE_VEC_ELT (INNERMOST_TEMPLATE_ARGS (targs), idx);
16774 if (targ)
16776 int x = !cp_tree_equal (targ, arg);
16777 if (x)
16778 unify_inconsistency (explain_p, parm, targ, arg);
16779 return x;
16782 /* [temp.deduct.type] If, in the declaration of a function template
16783 with a non-type template-parameter, the non-type
16784 template-parameter is used in an expression in the function
16785 parameter-list and, if the corresponding template-argument is
16786 deduced, the template-argument type shall match the type of the
16787 template-parameter exactly, except that a template-argument
16788 deduced from an array bound may be of any integral type.
16789 The non-type parameter might use already deduced type parameters. */
16790 tparm = tsubst (TREE_TYPE (parm), targs, 0, NULL_TREE);
16791 if (!TREE_TYPE (arg))
16792 /* Template-parameter dependent expression. Just accept it for now.
16793 It will later be processed in convert_template_argument. */
16795 else if (same_type_p (TREE_TYPE (arg), tparm))
16796 /* OK */;
16797 else if ((strict & UNIFY_ALLOW_INTEGER)
16798 && (TREE_CODE (tparm) == INTEGER_TYPE
16799 || TREE_CODE (tparm) == BOOLEAN_TYPE))
16800 /* Convert the ARG to the type of PARM; the deduced non-type
16801 template argument must exactly match the types of the
16802 corresponding parameter. */
16803 arg = fold (build_nop (tparm, arg));
16804 else if (uses_template_parms (tparm))
16805 /* We haven't deduced the type of this parameter yet. Try again
16806 later. */
16807 return unify_success (explain_p);
16808 else
16809 return unify_type_mismatch (explain_p, tparm, arg);
16811 /* If ARG is a parameter pack or an expansion, we cannot unify
16812 against it unless PARM is also a parameter pack. */
16813 if ((template_parameter_pack_p (arg) || PACK_EXPANSION_P (arg))
16814 && !TEMPLATE_PARM_PARAMETER_PACK (parm))
16815 return unify_parameter_pack_mismatch (explain_p, parm, arg);
16817 arg = strip_typedefs_expr (arg);
16818 TREE_VEC_ELT (INNERMOST_TEMPLATE_ARGS (targs), idx) = arg;
16819 return unify_success (explain_p);
16821 case PTRMEM_CST:
16823 /* A pointer-to-member constant can be unified only with
16824 another constant. */
16825 if (TREE_CODE (arg) != PTRMEM_CST)
16826 return unify_ptrmem_cst_mismatch (explain_p, parm, arg);
16828 /* Just unify the class member. It would be useless (and possibly
16829 wrong, depending on the strict flags) to unify also
16830 PTRMEM_CST_CLASS, because we want to be sure that both parm and
16831 arg refer to the same variable, even if through different
16832 classes. For instance:
16834 struct A { int x; };
16835 struct B : A { };
16837 Unification of &A::x and &B::x must succeed. */
16838 return unify (tparms, targs, PTRMEM_CST_MEMBER (parm),
16839 PTRMEM_CST_MEMBER (arg), strict, explain_p);
16842 case POINTER_TYPE:
16844 if (TREE_CODE (arg) != POINTER_TYPE)
16845 return unify_type_mismatch (explain_p, parm, arg);
16847 /* [temp.deduct.call]
16849 A can be another pointer or pointer to member type that can
16850 be converted to the deduced A via a qualification
16851 conversion (_conv.qual_).
16853 We pass down STRICT here rather than UNIFY_ALLOW_NONE.
16854 This will allow for additional cv-qualification of the
16855 pointed-to types if appropriate. */
16857 if (TREE_CODE (TREE_TYPE (arg)) == RECORD_TYPE)
16858 /* The derived-to-base conversion only persists through one
16859 level of pointers. */
16860 strict |= (strict_in & UNIFY_ALLOW_DERIVED);
16862 return unify (tparms, targs, TREE_TYPE (parm),
16863 TREE_TYPE (arg), strict, explain_p);
16866 case REFERENCE_TYPE:
16867 if (TREE_CODE (arg) != REFERENCE_TYPE)
16868 return unify_type_mismatch (explain_p, parm, arg);
16869 return unify (tparms, targs, TREE_TYPE (parm), TREE_TYPE (arg),
16870 strict & UNIFY_ALLOW_MORE_CV_QUAL, explain_p);
16872 case ARRAY_TYPE:
16873 if (TREE_CODE (arg) != ARRAY_TYPE)
16874 return unify_type_mismatch (explain_p, parm, arg);
16875 if ((TYPE_DOMAIN (parm) == NULL_TREE)
16876 != (TYPE_DOMAIN (arg) == NULL_TREE))
16877 return unify_type_mismatch (explain_p, parm, arg);
16878 RECUR_AND_CHECK_FAILURE (tparms, targs, TREE_TYPE (parm), TREE_TYPE (arg),
16879 strict & UNIFY_ALLOW_MORE_CV_QUAL, explain_p);
16880 if (TYPE_DOMAIN (parm) != NULL_TREE)
16882 tree parm_max;
16883 tree arg_max;
16884 bool parm_cst;
16885 bool arg_cst;
16887 /* Our representation of array types uses "N - 1" as the
16888 TYPE_MAX_VALUE for an array with "N" elements, if "N" is
16889 not an integer constant. We cannot unify arbitrarily
16890 complex expressions, so we eliminate the MINUS_EXPRs
16891 here. */
16892 parm_max = TYPE_MAX_VALUE (TYPE_DOMAIN (parm));
16893 parm_cst = TREE_CODE (parm_max) == INTEGER_CST;
16894 if (!parm_cst)
16896 gcc_assert (TREE_CODE (parm_max) == MINUS_EXPR);
16897 parm_max = TREE_OPERAND (parm_max, 0);
16899 arg_max = TYPE_MAX_VALUE (TYPE_DOMAIN (arg));
16900 arg_cst = TREE_CODE (arg_max) == INTEGER_CST;
16901 if (!arg_cst)
16903 /* The ARG_MAX may not be a simple MINUS_EXPR, if we are
16904 trying to unify the type of a variable with the type
16905 of a template parameter. For example:
16907 template <unsigned int N>
16908 void f (char (&) [N]);
16909 int g();
16910 void h(int i) {
16911 char a[g(i)];
16912 f(a);
16915 Here, the type of the ARG will be "int [g(i)]", and
16916 may be a SAVE_EXPR, etc. */
16917 if (TREE_CODE (arg_max) != MINUS_EXPR)
16918 return unify_vla_arg (explain_p, arg);
16919 arg_max = TREE_OPERAND (arg_max, 0);
16922 /* If only one of the bounds used a MINUS_EXPR, compensate
16923 by adding one to the other bound. */
16924 if (parm_cst && !arg_cst)
16925 parm_max = fold_build2_loc (input_location, PLUS_EXPR,
16926 integer_type_node,
16927 parm_max,
16928 integer_one_node);
16929 else if (arg_cst && !parm_cst)
16930 arg_max = fold_build2_loc (input_location, PLUS_EXPR,
16931 integer_type_node,
16932 arg_max,
16933 integer_one_node);
16935 RECUR_AND_CHECK_FAILURE (tparms, targs, parm_max, arg_max,
16936 UNIFY_ALLOW_INTEGER, explain_p);
16938 return unify_success (explain_p);
16940 case REAL_TYPE:
16941 case COMPLEX_TYPE:
16942 case VECTOR_TYPE:
16943 case INTEGER_TYPE:
16944 case BOOLEAN_TYPE:
16945 case ENUMERAL_TYPE:
16946 case VOID_TYPE:
16947 case NULLPTR_TYPE:
16948 if (TREE_CODE (arg) != TREE_CODE (parm))
16949 return unify_type_mismatch (explain_p, parm, arg);
16951 /* We have already checked cv-qualification at the top of the
16952 function. */
16953 if (!same_type_ignoring_top_level_qualifiers_p (arg, parm))
16954 return unify_type_mismatch (explain_p, parm, arg);
16956 /* As far as unification is concerned, this wins. Later checks
16957 will invalidate it if necessary. */
16958 return unify_success (explain_p);
16960 /* Types INTEGER_CST and MINUS_EXPR can come from array bounds. */
16961 /* Type INTEGER_CST can come from ordinary constant template args. */
16962 case INTEGER_CST:
16963 while (TREE_CODE (arg) == NOP_EXPR)
16964 arg = TREE_OPERAND (arg, 0);
16966 if (TREE_CODE (arg) != INTEGER_CST)
16967 return unify_template_argument_mismatch (explain_p, parm, arg);
16968 return (tree_int_cst_equal (parm, arg)
16969 ? unify_success (explain_p)
16970 : unify_template_argument_mismatch (explain_p, parm, arg));
16972 case TREE_VEC:
16974 int i, len, argslen;
16975 int parm_variadic_p = 0;
16977 if (TREE_CODE (arg) != TREE_VEC)
16978 return unify_template_argument_mismatch (explain_p, parm, arg);
16980 len = TREE_VEC_LENGTH (parm);
16981 argslen = TREE_VEC_LENGTH (arg);
16983 /* Check for pack expansions in the parameters. */
16984 for (i = 0; i < len; ++i)
16986 if (PACK_EXPANSION_P (TREE_VEC_ELT (parm, i)))
16988 if (i == len - 1)
16989 /* We can unify against something with a trailing
16990 parameter pack. */
16991 parm_variadic_p = 1;
16992 else
16993 /* [temp.deduct.type]/9: If the template argument list of
16994 P contains a pack expansion that is not the last
16995 template argument, the entire template argument list
16996 is a non-deduced context. */
16997 return unify_success (explain_p);
17001 /* If we don't have enough arguments to satisfy the parameters
17002 (not counting the pack expression at the end), or we have
17003 too many arguments for a parameter list that doesn't end in
17004 a pack expression, we can't unify. */
17005 if (parm_variadic_p
17006 ? argslen < len - parm_variadic_p
17007 : argslen != len)
17008 return unify_arity (explain_p, TREE_VEC_LENGTH (arg), len);
17010 /* Unify all of the parameters that precede the (optional)
17011 pack expression. */
17012 for (i = 0; i < len - parm_variadic_p; ++i)
17014 RECUR_AND_CHECK_FAILURE (tparms, targs,
17015 TREE_VEC_ELT (parm, i),
17016 TREE_VEC_ELT (arg, i),
17017 UNIFY_ALLOW_NONE, explain_p);
17019 if (parm_variadic_p)
17020 return unify_pack_expansion (tparms, targs, parm, arg,
17021 DEDUCE_EXACT,
17022 /*subr=*/true, explain_p);
17023 return unify_success (explain_p);
17026 case RECORD_TYPE:
17027 case UNION_TYPE:
17028 if (TREE_CODE (arg) != TREE_CODE (parm))
17029 return unify_type_mismatch (explain_p, parm, arg);
17031 if (TYPE_PTRMEMFUNC_P (parm))
17033 if (!TYPE_PTRMEMFUNC_P (arg))
17034 return unify_type_mismatch (explain_p, parm, arg);
17036 return unify (tparms, targs,
17037 TYPE_PTRMEMFUNC_FN_TYPE (parm),
17038 TYPE_PTRMEMFUNC_FN_TYPE (arg),
17039 strict, explain_p);
17042 if (CLASSTYPE_TEMPLATE_INFO (parm))
17044 tree t = NULL_TREE;
17046 if (strict_in & UNIFY_ALLOW_DERIVED)
17048 /* First, we try to unify the PARM and ARG directly. */
17049 t = try_class_unification (tparms, targs,
17050 parm, arg, explain_p);
17052 if (!t)
17054 /* Fallback to the special case allowed in
17055 [temp.deduct.call]:
17057 If P is a class, and P has the form
17058 template-id, then A can be a derived class of
17059 the deduced A. Likewise, if P is a pointer to
17060 a class of the form template-id, A can be a
17061 pointer to a derived class pointed to by the
17062 deduced A. */
17063 enum template_base_result r;
17064 r = get_template_base (tparms, targs, parm, arg,
17065 explain_p, &t);
17067 if (!t)
17068 return unify_no_common_base (explain_p, r, parm, arg);
17071 else if (CLASSTYPE_TEMPLATE_INFO (arg)
17072 && (CLASSTYPE_TI_TEMPLATE (parm)
17073 == CLASSTYPE_TI_TEMPLATE (arg)))
17074 /* Perhaps PARM is something like S<U> and ARG is S<int>.
17075 Then, we should unify `int' and `U'. */
17076 t = arg;
17077 else
17078 /* There's no chance of unification succeeding. */
17079 return unify_type_mismatch (explain_p, parm, arg);
17081 return unify (tparms, targs, CLASSTYPE_TI_ARGS (parm),
17082 CLASSTYPE_TI_ARGS (t), UNIFY_ALLOW_NONE, explain_p);
17084 else if (!same_type_ignoring_top_level_qualifiers_p (parm, arg))
17085 return unify_type_mismatch (explain_p, parm, arg);
17086 return unify_success (explain_p);
17088 case METHOD_TYPE:
17089 case FUNCTION_TYPE:
17091 unsigned int nargs;
17092 tree *args;
17093 tree a;
17094 unsigned int i;
17096 if (TREE_CODE (arg) != TREE_CODE (parm))
17097 return unify_type_mismatch (explain_p, parm, arg);
17099 /* CV qualifications for methods can never be deduced, they must
17100 match exactly. We need to check them explicitly here,
17101 because type_unification_real treats them as any other
17102 cv-qualified parameter. */
17103 if (TREE_CODE (parm) == METHOD_TYPE
17104 && (!check_cv_quals_for_unify
17105 (UNIFY_ALLOW_NONE,
17106 class_of_this_parm (arg),
17107 class_of_this_parm (parm))))
17108 return unify_cv_qual_mismatch (explain_p, parm, arg);
17110 RECUR_AND_CHECK_FAILURE (tparms, targs, TREE_TYPE (parm),
17111 TREE_TYPE (arg), UNIFY_ALLOW_NONE, explain_p);
17113 nargs = list_length (TYPE_ARG_TYPES (arg));
17114 args = XALLOCAVEC (tree, nargs);
17115 for (a = TYPE_ARG_TYPES (arg), i = 0;
17116 a != NULL_TREE && a != void_list_node;
17117 a = TREE_CHAIN (a), ++i)
17118 args[i] = TREE_VALUE (a);
17119 nargs = i;
17121 return type_unification_real (tparms, targs, TYPE_ARG_TYPES (parm),
17122 args, nargs, 1, DEDUCE_EXACT,
17123 LOOKUP_NORMAL, NULL, explain_p);
17126 case OFFSET_TYPE:
17127 /* Unify a pointer to member with a pointer to member function, which
17128 deduces the type of the member as a function type. */
17129 if (TYPE_PTRMEMFUNC_P (arg))
17131 tree method_type;
17132 tree fntype;
17134 /* Check top-level cv qualifiers */
17135 if (!check_cv_quals_for_unify (UNIFY_ALLOW_NONE, arg, parm))
17136 return unify_cv_qual_mismatch (explain_p, parm, arg);
17138 RECUR_AND_CHECK_FAILURE (tparms, targs, TYPE_OFFSET_BASETYPE (parm),
17139 TYPE_PTRMEMFUNC_OBJECT_TYPE (arg),
17140 UNIFY_ALLOW_NONE, explain_p);
17142 /* Determine the type of the function we are unifying against. */
17143 method_type = TREE_TYPE (TYPE_PTRMEMFUNC_FN_TYPE (arg));
17144 fntype =
17145 build_function_type (TREE_TYPE (method_type),
17146 TREE_CHAIN (TYPE_ARG_TYPES (method_type)));
17148 /* Extract the cv-qualifiers and ref-qualifier of the member
17149 function from the implicit object parameter and place them
17150 on the function type to be restored later. */
17151 fntype = apply_memfn_quals (fntype,
17152 type_memfn_quals (method_type),
17153 type_memfn_rqual (method_type));
17154 return unify (tparms, targs, TREE_TYPE (parm), fntype, strict, explain_p);
17157 if (TREE_CODE (arg) != OFFSET_TYPE)
17158 return unify_type_mismatch (explain_p, parm, arg);
17159 RECUR_AND_CHECK_FAILURE (tparms, targs, TYPE_OFFSET_BASETYPE (parm),
17160 TYPE_OFFSET_BASETYPE (arg),
17161 UNIFY_ALLOW_NONE, explain_p);
17162 return unify (tparms, targs, TREE_TYPE (parm), TREE_TYPE (arg),
17163 strict, explain_p);
17165 case CONST_DECL:
17166 if (DECL_TEMPLATE_PARM_P (parm))
17167 return unify (tparms, targs, DECL_INITIAL (parm), arg, strict, explain_p);
17168 if (arg != integral_constant_value (parm))
17169 return unify_template_argument_mismatch (explain_p, parm, arg);
17170 return unify_success (explain_p);
17172 case FIELD_DECL:
17173 case TEMPLATE_DECL:
17174 /* Matched cases are handled by the ARG == PARM test above. */
17175 return unify_template_argument_mismatch (explain_p, parm, arg);
17177 case VAR_DECL:
17178 /* A non-type template parameter that is a variable should be a
17179 an integral constant, in which case, it whould have been
17180 folded into its (constant) value. So we should not be getting
17181 a variable here. */
17182 gcc_unreachable ();
17184 case TYPE_ARGUMENT_PACK:
17185 case NONTYPE_ARGUMENT_PACK:
17186 return unify (tparms, targs, ARGUMENT_PACK_ARGS (parm),
17187 ARGUMENT_PACK_ARGS (arg), strict, explain_p);
17189 case TYPEOF_TYPE:
17190 case DECLTYPE_TYPE:
17191 case UNDERLYING_TYPE:
17192 /* Cannot deduce anything from TYPEOF_TYPE, DECLTYPE_TYPE,
17193 or UNDERLYING_TYPE nodes. */
17194 return unify_success (explain_p);
17196 case ERROR_MARK:
17197 /* Unification fails if we hit an error node. */
17198 return unify_invalid (explain_p);
17200 default:
17201 /* An unresolved overload is a nondeduced context. */
17202 if (is_overloaded_fn (parm) || type_unknown_p (parm))
17203 return unify_success (explain_p);
17204 gcc_assert (EXPR_P (parm));
17206 /* We must be looking at an expression. This can happen with
17207 something like:
17209 template <int I>
17210 void foo(S<I>, S<I + 2>);
17212 This is a "nondeduced context":
17214 [deduct.type]
17216 The nondeduced contexts are:
17218 --A type that is a template-id in which one or more of
17219 the template-arguments is an expression that references
17220 a template-parameter.
17222 In these cases, we assume deduction succeeded, but don't
17223 actually infer any unifications. */
17225 if (!uses_template_parms (parm)
17226 && !template_args_equal (parm, arg))
17227 return unify_expression_unequal (explain_p, parm, arg);
17228 else
17229 return unify_success (explain_p);
17232 #undef RECUR_AND_CHECK_FAILURE
17234 /* Note that DECL can be defined in this translation unit, if
17235 required. */
17237 static void
17238 mark_definable (tree decl)
17240 tree clone;
17241 DECL_NOT_REALLY_EXTERN (decl) = 1;
17242 FOR_EACH_CLONE (clone, decl)
17243 DECL_NOT_REALLY_EXTERN (clone) = 1;
17246 /* Called if RESULT is explicitly instantiated, or is a member of an
17247 explicitly instantiated class. */
17249 void
17250 mark_decl_instantiated (tree result, int extern_p)
17252 SET_DECL_EXPLICIT_INSTANTIATION (result);
17254 /* If this entity has already been written out, it's too late to
17255 make any modifications. */
17256 if (TREE_ASM_WRITTEN (result))
17257 return;
17259 if (TREE_CODE (result) != FUNCTION_DECL)
17260 /* The TREE_PUBLIC flag for function declarations will have been
17261 set correctly by tsubst. */
17262 TREE_PUBLIC (result) = 1;
17264 /* This might have been set by an earlier implicit instantiation. */
17265 DECL_COMDAT (result) = 0;
17267 if (extern_p)
17268 DECL_NOT_REALLY_EXTERN (result) = 0;
17269 else
17271 mark_definable (result);
17272 /* Always make artificials weak. */
17273 if (DECL_ARTIFICIAL (result) && flag_weak)
17274 comdat_linkage (result);
17275 /* For WIN32 we also want to put explicit instantiations in
17276 linkonce sections. */
17277 else if (TREE_PUBLIC (result))
17278 maybe_make_one_only (result);
17281 /* If EXTERN_P, then this function will not be emitted -- unless
17282 followed by an explicit instantiation, at which point its linkage
17283 will be adjusted. If !EXTERN_P, then this function will be
17284 emitted here. In neither circumstance do we want
17285 import_export_decl to adjust the linkage. */
17286 DECL_INTERFACE_KNOWN (result) = 1;
17289 /* Subroutine of more_specialized_fn: check whether TARGS is missing any
17290 important template arguments. If any are missing, we check whether
17291 they're important by using error_mark_node for substituting into any
17292 args that were used for partial ordering (the ones between ARGS and END)
17293 and seeing if it bubbles up. */
17295 static bool
17296 check_undeduced_parms (tree targs, tree args, tree end)
17298 bool found = false;
17299 int i;
17300 for (i = TREE_VEC_LENGTH (targs) - 1; i >= 0; --i)
17301 if (TREE_VEC_ELT (targs, i) == NULL_TREE)
17303 found = true;
17304 TREE_VEC_ELT (targs, i) = error_mark_node;
17306 if (found)
17308 tree substed = tsubst_arg_types (args, targs, end, tf_none, NULL_TREE);
17309 if (substed == error_mark_node)
17310 return true;
17312 return false;
17315 /* Given two function templates PAT1 and PAT2, return:
17317 1 if PAT1 is more specialized than PAT2 as described in [temp.func.order].
17318 -1 if PAT2 is more specialized than PAT1.
17319 0 if neither is more specialized.
17321 LEN indicates the number of parameters we should consider
17322 (defaulted parameters should not be considered).
17324 The 1998 std underspecified function template partial ordering, and
17325 DR214 addresses the issue. We take pairs of arguments, one from
17326 each of the templates, and deduce them against each other. One of
17327 the templates will be more specialized if all the *other*
17328 template's arguments deduce against its arguments and at least one
17329 of its arguments *does* *not* deduce against the other template's
17330 corresponding argument. Deduction is done as for class templates.
17331 The arguments used in deduction have reference and top level cv
17332 qualifiers removed. Iff both arguments were originally reference
17333 types *and* deduction succeeds in both directions, the template
17334 with the more cv-qualified argument wins for that pairing (if
17335 neither is more cv-qualified, they both are equal). Unlike regular
17336 deduction, after all the arguments have been deduced in this way,
17337 we do *not* verify the deduced template argument values can be
17338 substituted into non-deduced contexts.
17340 The logic can be a bit confusing here, because we look at deduce1 and
17341 targs1 to see if pat2 is at least as specialized, and vice versa; if we
17342 can find template arguments for pat1 to make arg1 look like arg2, that
17343 means that arg2 is at least as specialized as arg1. */
17346 more_specialized_fn (tree pat1, tree pat2, int len)
17348 tree decl1 = DECL_TEMPLATE_RESULT (pat1);
17349 tree decl2 = DECL_TEMPLATE_RESULT (pat2);
17350 tree targs1 = make_tree_vec (DECL_NTPARMS (pat1));
17351 tree targs2 = make_tree_vec (DECL_NTPARMS (pat2));
17352 tree tparms1 = DECL_INNERMOST_TEMPLATE_PARMS (pat1);
17353 tree tparms2 = DECL_INNERMOST_TEMPLATE_PARMS (pat2);
17354 tree args1 = TYPE_ARG_TYPES (TREE_TYPE (decl1));
17355 tree args2 = TYPE_ARG_TYPES (TREE_TYPE (decl2));
17356 tree origs1, origs2;
17357 bool lose1 = false;
17358 bool lose2 = false;
17360 /* Remove the this parameter from non-static member functions. If
17361 one is a non-static member function and the other is not a static
17362 member function, remove the first parameter from that function
17363 also. This situation occurs for operator functions where we
17364 locate both a member function (with this pointer) and non-member
17365 operator (with explicit first operand). */
17366 if (DECL_NONSTATIC_MEMBER_FUNCTION_P (decl1))
17368 len--; /* LEN is the number of significant arguments for DECL1 */
17369 args1 = TREE_CHAIN (args1);
17370 if (!DECL_STATIC_FUNCTION_P (decl2))
17371 args2 = TREE_CHAIN (args2);
17373 else if (DECL_NONSTATIC_MEMBER_FUNCTION_P (decl2))
17375 args2 = TREE_CHAIN (args2);
17376 if (!DECL_STATIC_FUNCTION_P (decl1))
17378 len--;
17379 args1 = TREE_CHAIN (args1);
17383 /* If only one is a conversion operator, they are unordered. */
17384 if (DECL_CONV_FN_P (decl1) != DECL_CONV_FN_P (decl2))
17385 return 0;
17387 /* Consider the return type for a conversion function */
17388 if (DECL_CONV_FN_P (decl1))
17390 args1 = tree_cons (NULL_TREE, TREE_TYPE (TREE_TYPE (decl1)), args1);
17391 args2 = tree_cons (NULL_TREE, TREE_TYPE (TREE_TYPE (decl2)), args2);
17392 len++;
17395 processing_template_decl++;
17397 origs1 = args1;
17398 origs2 = args2;
17400 while (len--
17401 /* Stop when an ellipsis is seen. */
17402 && args1 != NULL_TREE && args2 != NULL_TREE)
17404 tree arg1 = TREE_VALUE (args1);
17405 tree arg2 = TREE_VALUE (args2);
17406 int deduce1, deduce2;
17407 int quals1 = -1;
17408 int quals2 = -1;
17410 if (TREE_CODE (arg1) == TYPE_PACK_EXPANSION
17411 && TREE_CODE (arg2) == TYPE_PACK_EXPANSION)
17413 /* When both arguments are pack expansions, we need only
17414 unify the patterns themselves. */
17415 arg1 = PACK_EXPANSION_PATTERN (arg1);
17416 arg2 = PACK_EXPANSION_PATTERN (arg2);
17418 /* This is the last comparison we need to do. */
17419 len = 0;
17422 if (TREE_CODE (arg1) == REFERENCE_TYPE)
17424 arg1 = TREE_TYPE (arg1);
17425 quals1 = cp_type_quals (arg1);
17428 if (TREE_CODE (arg2) == REFERENCE_TYPE)
17430 arg2 = TREE_TYPE (arg2);
17431 quals2 = cp_type_quals (arg2);
17434 arg1 = TYPE_MAIN_VARIANT (arg1);
17435 arg2 = TYPE_MAIN_VARIANT (arg2);
17437 if (TREE_CODE (arg1) == TYPE_PACK_EXPANSION)
17439 int i, len2 = list_length (args2);
17440 tree parmvec = make_tree_vec (1);
17441 tree argvec = make_tree_vec (len2);
17442 tree ta = args2;
17444 /* Setup the parameter vector, which contains only ARG1. */
17445 TREE_VEC_ELT (parmvec, 0) = arg1;
17447 /* Setup the argument vector, which contains the remaining
17448 arguments. */
17449 for (i = 0; i < len2; i++, ta = TREE_CHAIN (ta))
17450 TREE_VEC_ELT (argvec, i) = TREE_VALUE (ta);
17452 deduce1 = (unify_pack_expansion (tparms1, targs1, parmvec,
17453 argvec, DEDUCE_EXACT,
17454 /*subr=*/true, /*explain_p=*/false)
17455 == 0);
17457 /* We cannot deduce in the other direction, because ARG1 is
17458 a pack expansion but ARG2 is not. */
17459 deduce2 = 0;
17461 else if (TREE_CODE (arg2) == TYPE_PACK_EXPANSION)
17463 int i, len1 = list_length (args1);
17464 tree parmvec = make_tree_vec (1);
17465 tree argvec = make_tree_vec (len1);
17466 tree ta = args1;
17468 /* Setup the parameter vector, which contains only ARG1. */
17469 TREE_VEC_ELT (parmvec, 0) = arg2;
17471 /* Setup the argument vector, which contains the remaining
17472 arguments. */
17473 for (i = 0; i < len1; i++, ta = TREE_CHAIN (ta))
17474 TREE_VEC_ELT (argvec, i) = TREE_VALUE (ta);
17476 deduce2 = (unify_pack_expansion (tparms2, targs2, parmvec,
17477 argvec, DEDUCE_EXACT,
17478 /*subr=*/true, /*explain_p=*/false)
17479 == 0);
17481 /* We cannot deduce in the other direction, because ARG2 is
17482 a pack expansion but ARG1 is not.*/
17483 deduce1 = 0;
17486 else
17488 /* The normal case, where neither argument is a pack
17489 expansion. */
17490 deduce1 = (unify (tparms1, targs1, arg1, arg2,
17491 UNIFY_ALLOW_NONE, /*explain_p=*/false)
17492 == 0);
17493 deduce2 = (unify (tparms2, targs2, arg2, arg1,
17494 UNIFY_ALLOW_NONE, /*explain_p=*/false)
17495 == 0);
17498 /* If we couldn't deduce arguments for tparms1 to make arg1 match
17499 arg2, then arg2 is not as specialized as arg1. */
17500 if (!deduce1)
17501 lose2 = true;
17502 if (!deduce2)
17503 lose1 = true;
17505 /* "If, for a given type, deduction succeeds in both directions
17506 (i.e., the types are identical after the transformations above)
17507 and if the type from the argument template is more cv-qualified
17508 than the type from the parameter template (as described above)
17509 that type is considered to be more specialized than the other. If
17510 neither type is more cv-qualified than the other then neither type
17511 is more specialized than the other." */
17513 if (deduce1 && deduce2
17514 && quals1 != quals2 && quals1 >= 0 && quals2 >= 0)
17516 if ((quals1 & quals2) == quals2)
17517 lose2 = true;
17518 if ((quals1 & quals2) == quals1)
17519 lose1 = true;
17522 if (lose1 && lose2)
17523 /* We've failed to deduce something in either direction.
17524 These must be unordered. */
17525 break;
17527 if (TREE_CODE (arg1) == TYPE_PACK_EXPANSION
17528 || TREE_CODE (arg2) == TYPE_PACK_EXPANSION)
17529 /* We have already processed all of the arguments in our
17530 handing of the pack expansion type. */
17531 len = 0;
17533 args1 = TREE_CHAIN (args1);
17534 args2 = TREE_CHAIN (args2);
17537 /* "In most cases, all template parameters must have values in order for
17538 deduction to succeed, but for partial ordering purposes a template
17539 parameter may remain without a value provided it is not used in the
17540 types being used for partial ordering."
17542 Thus, if we are missing any of the targs1 we need to substitute into
17543 origs1, then pat2 is not as specialized as pat1. This can happen when
17544 there is a nondeduced context. */
17545 if (!lose2 && check_undeduced_parms (targs1, origs1, args1))
17546 lose2 = true;
17547 if (!lose1 && check_undeduced_parms (targs2, origs2, args2))
17548 lose1 = true;
17550 processing_template_decl--;
17552 /* All things being equal, if the next argument is a pack expansion
17553 for one function but not for the other, prefer the
17554 non-variadic function. FIXME this is bogus; see c++/41958. */
17555 if (lose1 == lose2
17556 && args1 && TREE_VALUE (args1)
17557 && args2 && TREE_VALUE (args2))
17559 lose1 = TREE_CODE (TREE_VALUE (args1)) == TYPE_PACK_EXPANSION;
17560 lose2 = TREE_CODE (TREE_VALUE (args2)) == TYPE_PACK_EXPANSION;
17563 if (lose1 == lose2)
17564 return 0;
17565 else if (!lose1)
17566 return 1;
17567 else
17568 return -1;
17571 /* Determine which of two partial specializations of TMPL is more
17572 specialized.
17574 PAT1 is a TREE_LIST whose TREE_TYPE is the _TYPE node corresponding
17575 to the first partial specialization. The TREE_VALUE is the
17576 innermost set of template parameters for the partial
17577 specialization. PAT2 is similar, but for the second template.
17579 Return 1 if the first partial specialization is more specialized;
17580 -1 if the second is more specialized; 0 if neither is more
17581 specialized.
17583 See [temp.class.order] for information about determining which of
17584 two templates is more specialized. */
17586 static int
17587 more_specialized_class (tree tmpl, tree pat1, tree pat2)
17589 tree targs;
17590 tree tmpl1, tmpl2;
17591 int winner = 0;
17592 bool any_deductions = false;
17594 tmpl1 = TREE_TYPE (pat1);
17595 tmpl2 = TREE_TYPE (pat2);
17597 /* Just like what happens for functions, if we are ordering between
17598 different class template specializations, we may encounter dependent
17599 types in the arguments, and we need our dependency check functions
17600 to behave correctly. */
17601 ++processing_template_decl;
17602 targs = get_class_bindings (tmpl, TREE_VALUE (pat1),
17603 CLASSTYPE_TI_ARGS (tmpl1),
17604 CLASSTYPE_TI_ARGS (tmpl2));
17605 if (targs)
17607 --winner;
17608 any_deductions = true;
17611 targs = get_class_bindings (tmpl, TREE_VALUE (pat2),
17612 CLASSTYPE_TI_ARGS (tmpl2),
17613 CLASSTYPE_TI_ARGS (tmpl1));
17614 if (targs)
17616 ++winner;
17617 any_deductions = true;
17619 --processing_template_decl;
17621 /* In the case of a tie where at least one of the class templates
17622 has a parameter pack at the end, the template with the most
17623 non-packed parameters wins. */
17624 if (winner == 0
17625 && any_deductions
17626 && (template_args_variadic_p (TREE_PURPOSE (pat1))
17627 || template_args_variadic_p (TREE_PURPOSE (pat2))))
17629 tree args1 = INNERMOST_TEMPLATE_ARGS (TREE_PURPOSE (pat1));
17630 tree args2 = INNERMOST_TEMPLATE_ARGS (TREE_PURPOSE (pat2));
17631 int len1 = TREE_VEC_LENGTH (args1);
17632 int len2 = TREE_VEC_LENGTH (args2);
17634 /* We don't count the pack expansion at the end. */
17635 if (template_args_variadic_p (TREE_PURPOSE (pat1)))
17636 --len1;
17637 if (template_args_variadic_p (TREE_PURPOSE (pat2)))
17638 --len2;
17640 if (len1 > len2)
17641 return 1;
17642 else if (len1 < len2)
17643 return -1;
17646 return winner;
17649 /* Return the template arguments that will produce the function signature
17650 DECL from the function template FN, with the explicit template
17651 arguments EXPLICIT_ARGS. If CHECK_RETTYPE is true, the return type must
17652 also match. Return NULL_TREE if no satisfactory arguments could be
17653 found. */
17655 static tree
17656 get_bindings (tree fn, tree decl, tree explicit_args, bool check_rettype)
17658 int ntparms = DECL_NTPARMS (fn);
17659 tree targs = make_tree_vec (ntparms);
17660 tree decl_type = TREE_TYPE (decl);
17661 tree decl_arg_types;
17662 tree *args;
17663 unsigned int nargs, ix;
17664 tree arg;
17666 gcc_assert (decl != DECL_TEMPLATE_RESULT (fn));
17668 /* Never do unification on the 'this' parameter. */
17669 decl_arg_types = skip_artificial_parms_for (decl,
17670 TYPE_ARG_TYPES (decl_type));
17672 nargs = list_length (decl_arg_types);
17673 args = XALLOCAVEC (tree, nargs);
17674 for (arg = decl_arg_types, ix = 0;
17675 arg != NULL_TREE && arg != void_list_node;
17676 arg = TREE_CHAIN (arg), ++ix)
17677 args[ix] = TREE_VALUE (arg);
17679 if (fn_type_unification (fn, explicit_args, targs,
17680 args, ix,
17681 (check_rettype || DECL_CONV_FN_P (fn)
17682 ? TREE_TYPE (decl_type) : NULL_TREE),
17683 DEDUCE_EXACT, LOOKUP_NORMAL, /*explain_p=*/false)
17684 == error_mark_node)
17685 return NULL_TREE;
17687 return targs;
17690 /* Return the innermost template arguments that, when applied to a partial
17691 specialization of TMPL whose innermost template parameters are
17692 TPARMS, and whose specialization arguments are SPEC_ARGS, yield the
17693 ARGS.
17695 For example, suppose we have:
17697 template <class T, class U> struct S {};
17698 template <class T> struct S<T*, int> {};
17700 Then, suppose we want to get `S<double*, int>'. The TPARMS will be
17701 {T}, the SPEC_ARGS will be {T*, int} and the ARGS will be {double*,
17702 int}. The resulting vector will be {double}, indicating that `T'
17703 is bound to `double'. */
17705 static tree
17706 get_class_bindings (tree tmpl, tree tparms, tree spec_args, tree args)
17708 int i, ntparms = TREE_VEC_LENGTH (tparms);
17709 tree deduced_args;
17710 tree innermost_deduced_args;
17712 innermost_deduced_args = make_tree_vec (ntparms);
17713 if (TMPL_ARGS_HAVE_MULTIPLE_LEVELS (args))
17715 deduced_args = copy_node (args);
17716 SET_TMPL_ARGS_LEVEL (deduced_args,
17717 TMPL_ARGS_DEPTH (deduced_args),
17718 innermost_deduced_args);
17720 else
17721 deduced_args = innermost_deduced_args;
17723 if (unify (tparms, deduced_args,
17724 INNERMOST_TEMPLATE_ARGS (spec_args),
17725 INNERMOST_TEMPLATE_ARGS (args),
17726 UNIFY_ALLOW_NONE, /*explain_p=*/false))
17727 return NULL_TREE;
17729 for (i = 0; i < ntparms; ++i)
17730 if (! TREE_VEC_ELT (innermost_deduced_args, i))
17731 return NULL_TREE;
17733 /* Verify that nondeduced template arguments agree with the type
17734 obtained from argument deduction.
17736 For example:
17738 struct A { typedef int X; };
17739 template <class T, class U> struct C {};
17740 template <class T> struct C<T, typename T::X> {};
17742 Then with the instantiation `C<A, int>', we can deduce that
17743 `T' is `A' but unify () does not check whether `typename T::X'
17744 is `int'. */
17745 spec_args = tsubst (spec_args, deduced_args, tf_none, NULL_TREE);
17746 spec_args = coerce_template_parms (DECL_INNERMOST_TEMPLATE_PARMS (tmpl),
17747 spec_args, tmpl,
17748 tf_none, false, false);
17749 if (spec_args == error_mark_node
17750 /* We only need to check the innermost arguments; the other
17751 arguments will always agree. */
17752 || !comp_template_args (INNERMOST_TEMPLATE_ARGS (spec_args),
17753 INNERMOST_TEMPLATE_ARGS (args)))
17754 return NULL_TREE;
17756 /* Now that we have bindings for all of the template arguments,
17757 ensure that the arguments deduced for the template template
17758 parameters have compatible template parameter lists. See the use
17759 of template_template_parm_bindings_ok_p in fn_type_unification
17760 for more information. */
17761 if (!template_template_parm_bindings_ok_p (tparms, deduced_args))
17762 return NULL_TREE;
17764 return deduced_args;
17767 /* TEMPLATES is a TREE_LIST. Each TREE_VALUE is a TEMPLATE_DECL.
17768 Return the TREE_LIST node with the most specialized template, if
17769 any. If there is no most specialized template, the error_mark_node
17770 is returned.
17772 Note that this function does not look at, or modify, the
17773 TREE_PURPOSE or TREE_TYPE of any of the nodes. Since the node
17774 returned is one of the elements of INSTANTIATIONS, callers may
17775 store information in the TREE_PURPOSE or TREE_TYPE of the nodes,
17776 and retrieve it from the value returned. */
17778 tree
17779 most_specialized_instantiation (tree templates)
17781 tree fn, champ;
17783 ++processing_template_decl;
17785 champ = templates;
17786 for (fn = TREE_CHAIN (templates); fn; fn = TREE_CHAIN (fn))
17788 int fate = 0;
17790 if (get_bindings (TREE_VALUE (champ),
17791 DECL_TEMPLATE_RESULT (TREE_VALUE (fn)),
17792 NULL_TREE, /*check_ret=*/true))
17793 fate--;
17795 if (get_bindings (TREE_VALUE (fn),
17796 DECL_TEMPLATE_RESULT (TREE_VALUE (champ)),
17797 NULL_TREE, /*check_ret=*/true))
17798 fate++;
17800 if (fate == -1)
17801 champ = fn;
17802 else if (!fate)
17804 /* Equally specialized, move to next function. If there
17805 is no next function, nothing's most specialized. */
17806 fn = TREE_CHAIN (fn);
17807 champ = fn;
17808 if (!fn)
17809 break;
17813 if (champ)
17814 /* Now verify that champ is better than everything earlier in the
17815 instantiation list. */
17816 for (fn = templates; fn != champ; fn = TREE_CHAIN (fn))
17817 if (get_bindings (TREE_VALUE (champ),
17818 DECL_TEMPLATE_RESULT (TREE_VALUE (fn)),
17819 NULL_TREE, /*check_ret=*/true)
17820 || !get_bindings (TREE_VALUE (fn),
17821 DECL_TEMPLATE_RESULT (TREE_VALUE (champ)),
17822 NULL_TREE, /*check_ret=*/true))
17824 champ = NULL_TREE;
17825 break;
17828 processing_template_decl--;
17830 if (!champ)
17831 return error_mark_node;
17833 return champ;
17836 /* If DECL is a specialization of some template, return the most
17837 general such template. Otherwise, returns NULL_TREE.
17839 For example, given:
17841 template <class T> struct S { template <class U> void f(U); };
17843 if TMPL is `template <class U> void S<int>::f(U)' this will return
17844 the full template. This function will not trace past partial
17845 specializations, however. For example, given in addition:
17847 template <class T> struct S<T*> { template <class U> void f(U); };
17849 if TMPL is `template <class U> void S<int*>::f(U)' this will return
17850 `template <class T> template <class U> S<T*>::f(U)'. */
17852 tree
17853 most_general_template (tree decl)
17855 /* If DECL is a FUNCTION_DECL, find the TEMPLATE_DECL of which it is
17856 an immediate specialization. */
17857 if (TREE_CODE (decl) == FUNCTION_DECL)
17859 if (DECL_TEMPLATE_INFO (decl)) {
17860 decl = DECL_TI_TEMPLATE (decl);
17862 /* The DECL_TI_TEMPLATE can be an IDENTIFIER_NODE for a
17863 template friend. */
17864 if (TREE_CODE (decl) != TEMPLATE_DECL)
17865 return NULL_TREE;
17866 } else
17867 return NULL_TREE;
17870 /* Look for more and more general templates. */
17871 while (DECL_TEMPLATE_INFO (decl))
17873 /* The DECL_TI_TEMPLATE can be an IDENTIFIER_NODE in some cases.
17874 (See cp-tree.h for details.) */
17875 if (TREE_CODE (DECL_TI_TEMPLATE (decl)) != TEMPLATE_DECL)
17876 break;
17878 if (CLASS_TYPE_P (TREE_TYPE (decl))
17879 && CLASSTYPE_TEMPLATE_SPECIALIZATION (TREE_TYPE (decl)))
17880 break;
17882 /* Stop if we run into an explicitly specialized class template. */
17883 if (!DECL_NAMESPACE_SCOPE_P (decl)
17884 && DECL_CONTEXT (decl)
17885 && CLASSTYPE_TEMPLATE_SPECIALIZATION (DECL_CONTEXT (decl)))
17886 break;
17888 decl = DECL_TI_TEMPLATE (decl);
17891 return decl;
17894 /* Return the most specialized of the class template partial
17895 specializations which can produce TYPE, a specialization of some class
17896 template. The value returned is actually a TREE_LIST; the TREE_TYPE is
17897 a _TYPE node corresponding to the partial specialization, while the
17898 TREE_PURPOSE is the set of template arguments that must be
17899 substituted into the TREE_TYPE in order to generate TYPE.
17901 If the choice of partial specialization is ambiguous, a diagnostic
17902 is issued, and the error_mark_node is returned. If there are no
17903 partial specializations matching TYPE, then NULL_TREE is
17904 returned, indicating that the primary template should be used. */
17906 static tree
17907 most_specialized_class (tree type, tsubst_flags_t complain)
17909 tree list = NULL_TREE;
17910 tree t;
17911 tree champ;
17912 int fate;
17913 bool ambiguous_p;
17914 tree outer_args = NULL_TREE;
17916 tree tmpl = CLASSTYPE_TI_TEMPLATE (type);
17917 tree main_tmpl = most_general_template (tmpl);
17918 tree args = CLASSTYPE_TI_ARGS (type);
17920 /* For determining which partial specialization to use, only the
17921 innermost args are interesting. */
17922 if (TMPL_ARGS_HAVE_MULTIPLE_LEVELS (args))
17924 outer_args = strip_innermost_template_args (args, 1);
17925 args = INNERMOST_TEMPLATE_ARGS (args);
17928 for (t = DECL_TEMPLATE_SPECIALIZATIONS (main_tmpl); t; t = TREE_CHAIN (t))
17930 tree partial_spec_args;
17931 tree spec_args;
17932 tree parms = TREE_VALUE (t);
17934 partial_spec_args = CLASSTYPE_TI_ARGS (TREE_TYPE (t));
17936 ++processing_template_decl;
17938 if (outer_args)
17940 int i;
17942 /* Discard the outer levels of args, and then substitute in the
17943 template args from the enclosing class. */
17944 partial_spec_args = INNERMOST_TEMPLATE_ARGS (partial_spec_args);
17945 partial_spec_args = tsubst_template_args
17946 (partial_spec_args, outer_args, tf_none, NULL_TREE);
17948 /* PARMS already refers to just the innermost parms, but the
17949 template parms in partial_spec_args had their levels lowered
17950 by tsubst, so we need to do the same for the parm list. We
17951 can't just tsubst the TREE_VEC itself, as tsubst wants to
17952 treat a TREE_VEC as an argument vector. */
17953 parms = copy_node (parms);
17954 for (i = TREE_VEC_LENGTH (parms) - 1; i >= 0; --i)
17955 TREE_VEC_ELT (parms, i) =
17956 tsubst (TREE_VEC_ELT (parms, i), outer_args, tf_none, NULL_TREE);
17960 partial_spec_args =
17961 coerce_template_parms (DECL_INNERMOST_TEMPLATE_PARMS (tmpl),
17962 partial_spec_args,
17963 tmpl, tf_none,
17964 /*require_all_args=*/true,
17965 /*use_default_args=*/true);
17967 --processing_template_decl;
17969 if (partial_spec_args == error_mark_node)
17970 return error_mark_node;
17972 spec_args = get_class_bindings (tmpl, parms,
17973 partial_spec_args,
17974 args);
17975 if (spec_args)
17977 if (outer_args)
17978 spec_args = add_to_template_args (outer_args, spec_args);
17979 list = tree_cons (spec_args, TREE_VALUE (t), list);
17980 TREE_TYPE (list) = TREE_TYPE (t);
17984 if (! list)
17985 return NULL_TREE;
17987 ambiguous_p = false;
17988 t = list;
17989 champ = t;
17990 t = TREE_CHAIN (t);
17991 for (; t; t = TREE_CHAIN (t))
17993 fate = more_specialized_class (tmpl, champ, t);
17994 if (fate == 1)
17996 else
17998 if (fate == 0)
18000 t = TREE_CHAIN (t);
18001 if (! t)
18003 ambiguous_p = true;
18004 break;
18007 champ = t;
18011 if (!ambiguous_p)
18012 for (t = list; t && t != champ; t = TREE_CHAIN (t))
18014 fate = more_specialized_class (tmpl, champ, t);
18015 if (fate != 1)
18017 ambiguous_p = true;
18018 break;
18022 if (ambiguous_p)
18024 const char *str;
18025 char *spaces = NULL;
18026 if (!(complain & tf_error))
18027 return error_mark_node;
18028 error ("ambiguous class template instantiation for %q#T", type);
18029 str = ngettext ("candidate is:", "candidates are:", list_length (list));
18030 for (t = list; t; t = TREE_CHAIN (t))
18032 error ("%s %+#T", spaces ? spaces : str, TREE_TYPE (t));
18033 spaces = spaces ? spaces : get_spaces (str);
18035 free (spaces);
18036 return error_mark_node;
18039 return champ;
18042 /* Explicitly instantiate DECL. */
18044 void
18045 do_decl_instantiation (tree decl, tree storage)
18047 tree result = NULL_TREE;
18048 int extern_p = 0;
18050 if (!decl || decl == error_mark_node)
18051 /* An error occurred, for which grokdeclarator has already issued
18052 an appropriate message. */
18053 return;
18054 else if (! DECL_LANG_SPECIFIC (decl))
18056 error ("explicit instantiation of non-template %q#D", decl);
18057 return;
18059 else if (TREE_CODE (decl) == VAR_DECL)
18061 /* There is an asymmetry here in the way VAR_DECLs and
18062 FUNCTION_DECLs are handled by grokdeclarator. In the case of
18063 the latter, the DECL we get back will be marked as a
18064 template instantiation, and the appropriate
18065 DECL_TEMPLATE_INFO will be set up. This does not happen for
18066 VAR_DECLs so we do the lookup here. Probably, grokdeclarator
18067 should handle VAR_DECLs as it currently handles
18068 FUNCTION_DECLs. */
18069 if (!DECL_CLASS_SCOPE_P (decl))
18071 error ("%qD is not a static data member of a class template", decl);
18072 return;
18074 result = lookup_field (DECL_CONTEXT (decl), DECL_NAME (decl), 0, false);
18075 if (!result || TREE_CODE (result) != VAR_DECL)
18077 error ("no matching template for %qD found", decl);
18078 return;
18080 if (!same_type_p (TREE_TYPE (result), TREE_TYPE (decl)))
18082 error ("type %qT for explicit instantiation %qD does not match "
18083 "declared type %qT", TREE_TYPE (result), decl,
18084 TREE_TYPE (decl));
18085 return;
18088 else if (TREE_CODE (decl) != FUNCTION_DECL)
18090 error ("explicit instantiation of %q#D", decl);
18091 return;
18093 else
18094 result = decl;
18096 /* Check for various error cases. Note that if the explicit
18097 instantiation is valid the RESULT will currently be marked as an
18098 *implicit* instantiation; DECL_EXPLICIT_INSTANTIATION is not set
18099 until we get here. */
18101 if (DECL_TEMPLATE_SPECIALIZATION (result))
18103 /* DR 259 [temp.spec].
18105 Both an explicit instantiation and a declaration of an explicit
18106 specialization shall not appear in a program unless the explicit
18107 instantiation follows a declaration of the explicit specialization.
18109 For a given set of template parameters, if an explicit
18110 instantiation of a template appears after a declaration of an
18111 explicit specialization for that template, the explicit
18112 instantiation has no effect. */
18113 return;
18115 else if (DECL_EXPLICIT_INSTANTIATION (result))
18117 /* [temp.spec]
18119 No program shall explicitly instantiate any template more
18120 than once.
18122 We check DECL_NOT_REALLY_EXTERN so as not to complain when
18123 the first instantiation was `extern' and the second is not,
18124 and EXTERN_P for the opposite case. */
18125 if (DECL_NOT_REALLY_EXTERN (result) && !extern_p)
18126 permerror (input_location, "duplicate explicit instantiation of %q#D", result);
18127 /* If an "extern" explicit instantiation follows an ordinary
18128 explicit instantiation, the template is instantiated. */
18129 if (extern_p)
18130 return;
18132 else if (!DECL_IMPLICIT_INSTANTIATION (result))
18134 error ("no matching template for %qD found", result);
18135 return;
18137 else if (!DECL_TEMPLATE_INFO (result))
18139 permerror (input_location, "explicit instantiation of non-template %q#D", result);
18140 return;
18143 if (storage == NULL_TREE)
18145 else if (storage == ridpointers[(int) RID_EXTERN])
18147 if (!in_system_header && (cxx_dialect == cxx98))
18148 pedwarn (input_location, OPT_Wpedantic,
18149 "ISO C++ 1998 forbids the use of %<extern%> on explicit "
18150 "instantiations");
18151 extern_p = 1;
18153 else
18154 error ("storage class %qD applied to template instantiation", storage);
18156 check_explicit_instantiation_namespace (result);
18157 mark_decl_instantiated (result, extern_p);
18158 if (! extern_p)
18159 instantiate_decl (result, /*defer_ok=*/1,
18160 /*expl_inst_class_mem_p=*/false);
18163 static void
18164 mark_class_instantiated (tree t, int extern_p)
18166 SET_CLASSTYPE_EXPLICIT_INSTANTIATION (t);
18167 SET_CLASSTYPE_INTERFACE_KNOWN (t);
18168 CLASSTYPE_INTERFACE_ONLY (t) = extern_p;
18169 TYPE_DECL_SUPPRESS_DEBUG (TYPE_NAME (t)) = extern_p;
18170 if (! extern_p)
18172 CLASSTYPE_DEBUG_REQUESTED (t) = 1;
18173 rest_of_type_compilation (t, 1);
18177 /* Called from do_type_instantiation through binding_table_foreach to
18178 do recursive instantiation for the type bound in ENTRY. */
18179 static void
18180 bt_instantiate_type_proc (binding_entry entry, void *data)
18182 tree storage = *(tree *) data;
18184 if (MAYBE_CLASS_TYPE_P (entry->type)
18185 && !uses_template_parms (CLASSTYPE_TI_ARGS (entry->type)))
18186 do_type_instantiation (TYPE_MAIN_DECL (entry->type), storage, 0);
18189 /* Called from do_type_instantiation to instantiate a member
18190 (a member function or a static member variable) of an
18191 explicitly instantiated class template. */
18192 static void
18193 instantiate_class_member (tree decl, int extern_p)
18195 mark_decl_instantiated (decl, extern_p);
18196 if (! extern_p)
18197 instantiate_decl (decl, /*defer_ok=*/1,
18198 /*expl_inst_class_mem_p=*/true);
18201 /* Perform an explicit instantiation of template class T. STORAGE, if
18202 non-null, is the RID for extern, inline or static. COMPLAIN is
18203 nonzero if this is called from the parser, zero if called recursively,
18204 since the standard is unclear (as detailed below). */
18206 void
18207 do_type_instantiation (tree t, tree storage, tsubst_flags_t complain)
18209 int extern_p = 0;
18210 int nomem_p = 0;
18211 int static_p = 0;
18212 int previous_instantiation_extern_p = 0;
18214 if (TREE_CODE (t) == TYPE_DECL)
18215 t = TREE_TYPE (t);
18217 if (! CLASS_TYPE_P (t) || ! CLASSTYPE_TEMPLATE_INFO (t))
18219 tree tmpl =
18220 (TYPE_TEMPLATE_INFO (t)) ? TYPE_TI_TEMPLATE (t) : NULL;
18221 if (tmpl)
18222 error ("explicit instantiation of non-class template %qD", tmpl);
18223 else
18224 error ("explicit instantiation of non-template type %qT", t);
18225 return;
18228 complete_type (t);
18230 if (!COMPLETE_TYPE_P (t))
18232 if (complain & tf_error)
18233 error ("explicit instantiation of %q#T before definition of template",
18235 return;
18238 if (storage != NULL_TREE)
18240 if (!in_system_header)
18242 if (storage == ridpointers[(int) RID_EXTERN])
18244 if (cxx_dialect == cxx98)
18245 pedwarn (input_location, OPT_Wpedantic,
18246 "ISO C++ 1998 forbids the use of %<extern%> on "
18247 "explicit instantiations");
18249 else
18250 pedwarn (input_location, OPT_Wpedantic,
18251 "ISO C++ forbids the use of %qE"
18252 " on explicit instantiations", storage);
18255 if (storage == ridpointers[(int) RID_INLINE])
18256 nomem_p = 1;
18257 else if (storage == ridpointers[(int) RID_EXTERN])
18258 extern_p = 1;
18259 else if (storage == ridpointers[(int) RID_STATIC])
18260 static_p = 1;
18261 else
18263 error ("storage class %qD applied to template instantiation",
18264 storage);
18265 extern_p = 0;
18269 if (CLASSTYPE_TEMPLATE_SPECIALIZATION (t))
18271 /* DR 259 [temp.spec].
18273 Both an explicit instantiation and a declaration of an explicit
18274 specialization shall not appear in a program unless the explicit
18275 instantiation follows a declaration of the explicit specialization.
18277 For a given set of template parameters, if an explicit
18278 instantiation of a template appears after a declaration of an
18279 explicit specialization for that template, the explicit
18280 instantiation has no effect. */
18281 return;
18283 else if (CLASSTYPE_EXPLICIT_INSTANTIATION (t))
18285 /* [temp.spec]
18287 No program shall explicitly instantiate any template more
18288 than once.
18290 If PREVIOUS_INSTANTIATION_EXTERN_P, then the first explicit
18291 instantiation was `extern'. If EXTERN_P then the second is.
18292 These cases are OK. */
18293 previous_instantiation_extern_p = CLASSTYPE_INTERFACE_ONLY (t);
18295 if (!previous_instantiation_extern_p && !extern_p
18296 && (complain & tf_error))
18297 permerror (input_location, "duplicate explicit instantiation of %q#T", t);
18299 /* If we've already instantiated the template, just return now. */
18300 if (!CLASSTYPE_INTERFACE_ONLY (t))
18301 return;
18304 check_explicit_instantiation_namespace (TYPE_NAME (t));
18305 mark_class_instantiated (t, extern_p);
18307 if (nomem_p)
18308 return;
18311 tree tmp;
18313 /* In contrast to implicit instantiation, where only the
18314 declarations, and not the definitions, of members are
18315 instantiated, we have here:
18317 [temp.explicit]
18319 The explicit instantiation of a class template specialization
18320 implies the instantiation of all of its members not
18321 previously explicitly specialized in the translation unit
18322 containing the explicit instantiation.
18324 Of course, we can't instantiate member template classes, since
18325 we don't have any arguments for them. Note that the standard
18326 is unclear on whether the instantiation of the members are
18327 *explicit* instantiations or not. However, the most natural
18328 interpretation is that it should be an explicit instantiation. */
18330 if (! static_p)
18331 for (tmp = TYPE_METHODS (t); tmp; tmp = DECL_CHAIN (tmp))
18332 if (TREE_CODE (tmp) == FUNCTION_DECL
18333 && DECL_TEMPLATE_INSTANTIATION (tmp))
18334 instantiate_class_member (tmp, extern_p);
18336 for (tmp = TYPE_FIELDS (t); tmp; tmp = DECL_CHAIN (tmp))
18337 if (TREE_CODE (tmp) == VAR_DECL && DECL_TEMPLATE_INSTANTIATION (tmp))
18338 instantiate_class_member (tmp, extern_p);
18340 if (CLASSTYPE_NESTED_UTDS (t))
18341 binding_table_foreach (CLASSTYPE_NESTED_UTDS (t),
18342 bt_instantiate_type_proc, &storage);
18346 /* Given a function DECL, which is a specialization of TMPL, modify
18347 DECL to be a re-instantiation of TMPL with the same template
18348 arguments. TMPL should be the template into which tsubst'ing
18349 should occur for DECL, not the most general template.
18351 One reason for doing this is a scenario like this:
18353 template <class T>
18354 void f(const T&, int i);
18356 void g() { f(3, 7); }
18358 template <class T>
18359 void f(const T& t, const int i) { }
18361 Note that when the template is first instantiated, with
18362 instantiate_template, the resulting DECL will have no name for the
18363 first parameter, and the wrong type for the second. So, when we go
18364 to instantiate the DECL, we regenerate it. */
18366 static void
18367 regenerate_decl_from_template (tree decl, tree tmpl)
18369 /* The arguments used to instantiate DECL, from the most general
18370 template. */
18371 tree args;
18372 tree code_pattern;
18374 args = DECL_TI_ARGS (decl);
18375 code_pattern = DECL_TEMPLATE_RESULT (tmpl);
18377 /* Make sure that we can see identifiers, and compute access
18378 correctly. */
18379 push_access_scope (decl);
18381 if (TREE_CODE (decl) == FUNCTION_DECL)
18383 tree decl_parm;
18384 tree pattern_parm;
18385 tree specs;
18386 int args_depth;
18387 int parms_depth;
18389 args_depth = TMPL_ARGS_DEPTH (args);
18390 parms_depth = TMPL_PARMS_DEPTH (DECL_TEMPLATE_PARMS (tmpl));
18391 if (args_depth > parms_depth)
18392 args = get_innermost_template_args (args, parms_depth);
18394 specs = tsubst_exception_specification (TREE_TYPE (code_pattern),
18395 args, tf_error, NULL_TREE,
18396 /*defer_ok*/false);
18397 if (specs && specs != error_mark_node)
18398 TREE_TYPE (decl) = build_exception_variant (TREE_TYPE (decl),
18399 specs);
18401 /* Merge parameter declarations. */
18402 decl_parm = skip_artificial_parms_for (decl,
18403 DECL_ARGUMENTS (decl));
18404 pattern_parm
18405 = skip_artificial_parms_for (code_pattern,
18406 DECL_ARGUMENTS (code_pattern));
18407 while (decl_parm && !FUNCTION_PARAMETER_PACK_P (pattern_parm))
18409 tree parm_type;
18410 tree attributes;
18412 if (DECL_NAME (decl_parm) != DECL_NAME (pattern_parm))
18413 DECL_NAME (decl_parm) = DECL_NAME (pattern_parm);
18414 parm_type = tsubst (TREE_TYPE (pattern_parm), args, tf_error,
18415 NULL_TREE);
18416 parm_type = type_decays_to (parm_type);
18417 if (!same_type_p (TREE_TYPE (decl_parm), parm_type))
18418 TREE_TYPE (decl_parm) = parm_type;
18419 attributes = DECL_ATTRIBUTES (pattern_parm);
18420 if (DECL_ATTRIBUTES (decl_parm) != attributes)
18422 DECL_ATTRIBUTES (decl_parm) = attributes;
18423 cplus_decl_attributes (&decl_parm, attributes, /*flags=*/0);
18425 decl_parm = DECL_CHAIN (decl_parm);
18426 pattern_parm = DECL_CHAIN (pattern_parm);
18428 /* Merge any parameters that match with the function parameter
18429 pack. */
18430 if (pattern_parm && FUNCTION_PARAMETER_PACK_P (pattern_parm))
18432 int i, len;
18433 tree expanded_types;
18434 /* Expand the TYPE_PACK_EXPANSION that provides the types for
18435 the parameters in this function parameter pack. */
18436 expanded_types = tsubst_pack_expansion (TREE_TYPE (pattern_parm),
18437 args, tf_error, NULL_TREE);
18438 len = TREE_VEC_LENGTH (expanded_types);
18439 for (i = 0; i < len; i++)
18441 tree parm_type;
18442 tree attributes;
18444 if (DECL_NAME (decl_parm) != DECL_NAME (pattern_parm))
18445 /* Rename the parameter to include the index. */
18446 DECL_NAME (decl_parm) =
18447 make_ith_pack_parameter_name (DECL_NAME (pattern_parm), i);
18448 parm_type = TREE_VEC_ELT (expanded_types, i);
18449 parm_type = type_decays_to (parm_type);
18450 if (!same_type_p (TREE_TYPE (decl_parm), parm_type))
18451 TREE_TYPE (decl_parm) = parm_type;
18452 attributes = DECL_ATTRIBUTES (pattern_parm);
18453 if (DECL_ATTRIBUTES (decl_parm) != attributes)
18455 DECL_ATTRIBUTES (decl_parm) = attributes;
18456 cplus_decl_attributes (&decl_parm, attributes, /*flags=*/0);
18458 decl_parm = DECL_CHAIN (decl_parm);
18461 /* Merge additional specifiers from the CODE_PATTERN. */
18462 if (DECL_DECLARED_INLINE_P (code_pattern)
18463 && !DECL_DECLARED_INLINE_P (decl))
18464 DECL_DECLARED_INLINE_P (decl) = 1;
18466 else if (TREE_CODE (decl) == VAR_DECL)
18468 DECL_INITIAL (decl) =
18469 tsubst_expr (DECL_INITIAL (code_pattern), args,
18470 tf_error, DECL_TI_TEMPLATE (decl),
18471 /*integral_constant_expression_p=*/false);
18472 if (VAR_HAD_UNKNOWN_BOUND (decl))
18473 TREE_TYPE (decl) = tsubst (TREE_TYPE (code_pattern), args,
18474 tf_error, DECL_TI_TEMPLATE (decl));
18476 else
18477 gcc_unreachable ();
18479 pop_access_scope (decl);
18482 /* Return the TEMPLATE_DECL into which DECL_TI_ARGS(DECL) should be
18483 substituted to get DECL. */
18485 tree
18486 template_for_substitution (tree decl)
18488 tree tmpl = DECL_TI_TEMPLATE (decl);
18490 /* Set TMPL to the template whose DECL_TEMPLATE_RESULT is the pattern
18491 for the instantiation. This is not always the most general
18492 template. Consider, for example:
18494 template <class T>
18495 struct S { template <class U> void f();
18496 template <> void f<int>(); };
18498 and an instantiation of S<double>::f<int>. We want TD to be the
18499 specialization S<T>::f<int>, not the more general S<T>::f<U>. */
18500 while (/* An instantiation cannot have a definition, so we need a
18501 more general template. */
18502 DECL_TEMPLATE_INSTANTIATION (tmpl)
18503 /* We must also deal with friend templates. Given:
18505 template <class T> struct S {
18506 template <class U> friend void f() {};
18509 S<int>::f<U> say, is not an instantiation of S<T>::f<U>,
18510 so far as the language is concerned, but that's still
18511 where we get the pattern for the instantiation from. On
18512 other hand, if the definition comes outside the class, say:
18514 template <class T> struct S {
18515 template <class U> friend void f();
18517 template <class U> friend void f() {}
18519 we don't need to look any further. That's what the check for
18520 DECL_INITIAL is for. */
18521 || (TREE_CODE (decl) == FUNCTION_DECL
18522 && DECL_FRIEND_PSEUDO_TEMPLATE_INSTANTIATION (tmpl)
18523 && !DECL_INITIAL (DECL_TEMPLATE_RESULT (tmpl))))
18525 /* The present template, TD, should not be a definition. If it
18526 were a definition, we should be using it! Note that we
18527 cannot restructure the loop to just keep going until we find
18528 a template with a definition, since that might go too far if
18529 a specialization was declared, but not defined. */
18530 gcc_assert (TREE_CODE (decl) != VAR_DECL
18531 || DECL_IN_AGGR_P (DECL_TEMPLATE_RESULT (tmpl)));
18533 /* Fetch the more general template. */
18534 tmpl = DECL_TI_TEMPLATE (tmpl);
18537 return tmpl;
18540 /* Returns true if we need to instantiate this template instance even if we
18541 know we aren't going to emit it.. */
18543 bool
18544 always_instantiate_p (tree decl)
18546 /* We always instantiate inline functions so that we can inline them. An
18547 explicit instantiation declaration prohibits implicit instantiation of
18548 non-inline functions. With high levels of optimization, we would
18549 normally inline non-inline functions -- but we're not allowed to do
18550 that for "extern template" functions. Therefore, we check
18551 DECL_DECLARED_INLINE_P, rather than possibly_inlined_p. */
18552 return ((TREE_CODE (decl) == FUNCTION_DECL
18553 && (DECL_DECLARED_INLINE_P (decl)
18554 || type_uses_auto (TREE_TYPE (TREE_TYPE (decl)))))
18555 /* And we need to instantiate static data members so that
18556 their initializers are available in integral constant
18557 expressions. */
18558 || (TREE_CODE (decl) == VAR_DECL
18559 && decl_maybe_constant_var_p (decl)));
18562 /* If FN has a noexcept-specifier that hasn't been instantiated yet,
18563 instantiate it now, modifying TREE_TYPE (fn). */
18565 void
18566 maybe_instantiate_noexcept (tree fn)
18568 tree fntype, spec, noex, clone;
18570 if (DECL_CLONED_FUNCTION_P (fn))
18571 fn = DECL_CLONED_FUNCTION (fn);
18572 fntype = TREE_TYPE (fn);
18573 spec = TYPE_RAISES_EXCEPTIONS (fntype);
18575 if (!DEFERRED_NOEXCEPT_SPEC_P (spec))
18576 return;
18578 noex = TREE_PURPOSE (spec);
18580 if (TREE_CODE (noex) == DEFERRED_NOEXCEPT)
18582 if (push_tinst_level (fn))
18584 push_access_scope (fn);
18585 push_deferring_access_checks (dk_no_deferred);
18586 input_location = DECL_SOURCE_LOCATION (fn);
18587 noex = tsubst_copy_and_build (DEFERRED_NOEXCEPT_PATTERN (noex),
18588 DEFERRED_NOEXCEPT_ARGS (noex),
18589 tf_warning_or_error, fn,
18590 /*function_p=*/false,
18591 /*integral_constant_expression_p=*/true);
18592 pop_deferring_access_checks ();
18593 pop_access_scope (fn);
18594 pop_tinst_level ();
18595 spec = build_noexcept_spec (noex, tf_warning_or_error);
18596 if (spec == error_mark_node)
18597 spec = noexcept_false_spec;
18599 else
18600 spec = noexcept_false_spec;
18602 else
18604 /* This is an implicitly declared function, so NOEX is a list of
18605 other functions to evaluate and merge. */
18606 tree elt;
18607 spec = noexcept_true_spec;
18608 for (elt = noex; elt; elt = OVL_NEXT (elt))
18610 tree fn = OVL_CURRENT (elt);
18611 tree subspec;
18612 maybe_instantiate_noexcept (fn);
18613 subspec = TYPE_RAISES_EXCEPTIONS (TREE_TYPE (fn));
18614 spec = merge_exception_specifiers (spec, subspec, NULL_TREE);
18618 TREE_TYPE (fn) = build_exception_variant (fntype, spec);
18620 FOR_EACH_CLONE (clone, fn)
18622 if (TREE_TYPE (clone) == fntype)
18623 TREE_TYPE (clone) = TREE_TYPE (fn);
18624 else
18625 TREE_TYPE (clone) = build_exception_variant (TREE_TYPE (clone), spec);
18629 /* Produce the definition of D, a _DECL generated from a template. If
18630 DEFER_OK is nonzero, then we don't have to actually do the
18631 instantiation now; we just have to do it sometime. Normally it is
18632 an error if this is an explicit instantiation but D is undefined.
18633 EXPL_INST_CLASS_MEM_P is true iff D is a member of an
18634 explicitly instantiated class template. */
18636 tree
18637 instantiate_decl (tree d, int defer_ok,
18638 bool expl_inst_class_mem_p)
18640 tree tmpl = DECL_TI_TEMPLATE (d);
18641 tree gen_args;
18642 tree args;
18643 tree td;
18644 tree code_pattern;
18645 tree spec;
18646 tree gen_tmpl;
18647 bool pattern_defined;
18648 location_t saved_loc = input_location;
18649 bool external_p;
18650 tree fn_context;
18651 bool nested;
18653 /* This function should only be used to instantiate templates for
18654 functions and static member variables. */
18655 gcc_assert (TREE_CODE (d) == FUNCTION_DECL
18656 || TREE_CODE (d) == VAR_DECL);
18658 /* Variables are never deferred; if instantiation is required, they
18659 are instantiated right away. That allows for better code in the
18660 case that an expression refers to the value of the variable --
18661 if the variable has a constant value the referring expression can
18662 take advantage of that fact. */
18663 if (TREE_CODE (d) == VAR_DECL
18664 || DECL_DECLARED_CONSTEXPR_P (d))
18665 defer_ok = 0;
18667 /* Don't instantiate cloned functions. Instead, instantiate the
18668 functions they cloned. */
18669 if (TREE_CODE (d) == FUNCTION_DECL && DECL_CLONED_FUNCTION_P (d))
18670 d = DECL_CLONED_FUNCTION (d);
18672 if (DECL_TEMPLATE_INSTANTIATED (d)
18673 || (TREE_CODE (d) == FUNCTION_DECL
18674 && DECL_DEFAULTED_FN (d) && DECL_INITIAL (d))
18675 || DECL_TEMPLATE_SPECIALIZATION (d))
18676 /* D has already been instantiated or explicitly specialized, so
18677 there's nothing for us to do here.
18679 It might seem reasonable to check whether or not D is an explicit
18680 instantiation, and, if so, stop here. But when an explicit
18681 instantiation is deferred until the end of the compilation,
18682 DECL_EXPLICIT_INSTANTIATION is set, even though we still need to do
18683 the instantiation. */
18684 return d;
18686 /* Check to see whether we know that this template will be
18687 instantiated in some other file, as with "extern template"
18688 extension. */
18689 external_p = (DECL_INTERFACE_KNOWN (d) && DECL_REALLY_EXTERN (d));
18691 /* In general, we do not instantiate such templates. */
18692 if (external_p && !always_instantiate_p (d))
18693 return d;
18695 gen_tmpl = most_general_template (tmpl);
18696 gen_args = DECL_TI_ARGS (d);
18698 if (tmpl != gen_tmpl)
18699 /* We should already have the extra args. */
18700 gcc_assert (TMPL_PARMS_DEPTH (DECL_TEMPLATE_PARMS (gen_tmpl))
18701 == TMPL_ARGS_DEPTH (gen_args));
18702 /* And what's in the hash table should match D. */
18703 gcc_assert ((spec = retrieve_specialization (gen_tmpl, gen_args, 0)) == d
18704 || spec == NULL_TREE);
18706 /* This needs to happen before any tsubsting. */
18707 if (! push_tinst_level (d))
18708 return d;
18710 timevar_push (TV_TEMPLATE_INST);
18712 /* Set TD to the template whose DECL_TEMPLATE_RESULT is the pattern
18713 for the instantiation. */
18714 td = template_for_substitution (d);
18715 code_pattern = DECL_TEMPLATE_RESULT (td);
18717 /* We should never be trying to instantiate a member of a class
18718 template or partial specialization. */
18719 gcc_assert (d != code_pattern);
18721 if ((DECL_NAMESPACE_SCOPE_P (d) && !DECL_INITIALIZED_IN_CLASS_P (d))
18722 || DECL_TEMPLATE_SPECIALIZATION (td))
18723 /* In the case of a friend template whose definition is provided
18724 outside the class, we may have too many arguments. Drop the
18725 ones we don't need. The same is true for specializations. */
18726 args = get_innermost_template_args
18727 (gen_args, TMPL_PARMS_DEPTH (DECL_TEMPLATE_PARMS (td)));
18728 else
18729 args = gen_args;
18731 if (TREE_CODE (d) == FUNCTION_DECL)
18732 pattern_defined = (DECL_SAVED_TREE (code_pattern) != NULL_TREE
18733 || DECL_DEFAULTED_OUTSIDE_CLASS_P (code_pattern));
18734 else
18735 pattern_defined = ! DECL_IN_AGGR_P (code_pattern);
18737 /* We may be in the middle of deferred access check. Disable it now. */
18738 push_deferring_access_checks (dk_no_deferred);
18740 /* Unless an explicit instantiation directive has already determined
18741 the linkage of D, remember that a definition is available for
18742 this entity. */
18743 if (pattern_defined
18744 && !DECL_INTERFACE_KNOWN (d)
18745 && !DECL_NOT_REALLY_EXTERN (d))
18746 mark_definable (d);
18748 DECL_SOURCE_LOCATION (td) = DECL_SOURCE_LOCATION (code_pattern);
18749 DECL_SOURCE_LOCATION (d) = DECL_SOURCE_LOCATION (code_pattern);
18750 input_location = DECL_SOURCE_LOCATION (d);
18752 /* If D is a member of an explicitly instantiated class template,
18753 and no definition is available, treat it like an implicit
18754 instantiation. */
18755 if (!pattern_defined && expl_inst_class_mem_p
18756 && DECL_EXPLICIT_INSTANTIATION (d))
18758 /* Leave linkage flags alone on instantiations with anonymous
18759 visibility. */
18760 if (TREE_PUBLIC (d))
18762 DECL_NOT_REALLY_EXTERN (d) = 0;
18763 DECL_INTERFACE_KNOWN (d) = 0;
18765 SET_DECL_IMPLICIT_INSTANTIATION (d);
18768 if (TREE_CODE (d) == FUNCTION_DECL)
18769 maybe_instantiate_noexcept (d);
18771 /* Defer all other templates, unless we have been explicitly
18772 forbidden from doing so. */
18773 if (/* If there is no definition, we cannot instantiate the
18774 template. */
18775 ! pattern_defined
18776 /* If it's OK to postpone instantiation, do so. */
18777 || defer_ok
18778 /* If this is a static data member that will be defined
18779 elsewhere, we don't want to instantiate the entire data
18780 member, but we do want to instantiate the initializer so that
18781 we can substitute that elsewhere. */
18782 || (external_p && TREE_CODE (d) == VAR_DECL))
18784 /* The definition of the static data member is now required so
18785 we must substitute the initializer. */
18786 if (TREE_CODE (d) == VAR_DECL
18787 && !DECL_INITIAL (d)
18788 && DECL_INITIAL (code_pattern))
18790 tree ns;
18791 tree init;
18792 bool const_init = false;
18794 ns = decl_namespace_context (d);
18795 push_nested_namespace (ns);
18796 push_nested_class (DECL_CONTEXT (d));
18797 init = tsubst_expr (DECL_INITIAL (code_pattern),
18798 args,
18799 tf_warning_or_error, NULL_TREE,
18800 /*integral_constant_expression_p=*/false);
18801 /* Make sure the initializer is still constant, in case of
18802 circular dependency (template/instantiate6.C). */
18803 const_init
18804 = DECL_INITIALIZED_BY_CONSTANT_EXPRESSION_P (code_pattern);
18805 cp_finish_decl (d, init, /*init_const_expr_p=*/const_init,
18806 /*asmspec_tree=*/NULL_TREE,
18807 LOOKUP_ONLYCONVERTING);
18808 pop_nested_class ();
18809 pop_nested_namespace (ns);
18812 /* We restore the source position here because it's used by
18813 add_pending_template. */
18814 input_location = saved_loc;
18816 if (at_eof && !pattern_defined
18817 && DECL_EXPLICIT_INSTANTIATION (d)
18818 && DECL_NOT_REALLY_EXTERN (d))
18819 /* [temp.explicit]
18821 The definition of a non-exported function template, a
18822 non-exported member function template, or a non-exported
18823 member function or static data member of a class template
18824 shall be present in every translation unit in which it is
18825 explicitly instantiated. */
18826 permerror (input_location, "explicit instantiation of %qD "
18827 "but no definition available", d);
18829 /* If we're in unevaluated context, we just wanted to get the
18830 constant value; this isn't an odr use, so don't queue
18831 a full instantiation. */
18832 if (cp_unevaluated_operand != 0)
18833 goto out;
18834 /* ??? Historically, we have instantiated inline functions, even
18835 when marked as "extern template". */
18836 if (!(external_p && TREE_CODE (d) == VAR_DECL))
18837 add_pending_template (d);
18838 goto out;
18840 /* Tell the repository that D is available in this translation unit
18841 -- and see if it is supposed to be instantiated here. */
18842 if (TREE_PUBLIC (d) && !DECL_REALLY_EXTERN (d) && !repo_emit_p (d))
18844 /* In a PCH file, despite the fact that the repository hasn't
18845 requested instantiation in the PCH it is still possible that
18846 an instantiation will be required in a file that includes the
18847 PCH. */
18848 if (pch_file)
18849 add_pending_template (d);
18850 /* Instantiate inline functions so that the inliner can do its
18851 job, even though we'll not be emitting a copy of this
18852 function. */
18853 if (!(TREE_CODE (d) == FUNCTION_DECL && possibly_inlined_p (d)))
18854 goto out;
18857 fn_context = decl_function_context (d);
18858 nested = (current_function_decl != NULL_TREE);
18859 if (!fn_context)
18860 push_to_top_level ();
18861 else if (nested)
18862 push_function_context ();
18864 /* Mark D as instantiated so that recursive calls to
18865 instantiate_decl do not try to instantiate it again. */
18866 DECL_TEMPLATE_INSTANTIATED (d) = 1;
18868 /* Regenerate the declaration in case the template has been modified
18869 by a subsequent redeclaration. */
18870 regenerate_decl_from_template (d, td);
18872 /* We already set the file and line above. Reset them now in case
18873 they changed as a result of calling regenerate_decl_from_template. */
18874 input_location = DECL_SOURCE_LOCATION (d);
18876 if (TREE_CODE (d) == VAR_DECL)
18878 tree init;
18879 bool const_init = false;
18881 /* Clear out DECL_RTL; whatever was there before may not be right
18882 since we've reset the type of the declaration. */
18883 SET_DECL_RTL (d, NULL);
18884 DECL_IN_AGGR_P (d) = 0;
18886 /* The initializer is placed in DECL_INITIAL by
18887 regenerate_decl_from_template so we don't need to
18888 push/pop_access_scope again here. Pull it out so that
18889 cp_finish_decl can process it. */
18890 init = DECL_INITIAL (d);
18891 DECL_INITIAL (d) = NULL_TREE;
18892 DECL_INITIALIZED_P (d) = 0;
18894 /* Clear DECL_EXTERNAL so that cp_finish_decl will process the
18895 initializer. That function will defer actual emission until
18896 we have a chance to determine linkage. */
18897 DECL_EXTERNAL (d) = 0;
18899 /* Enter the scope of D so that access-checking works correctly. */
18900 push_nested_class (DECL_CONTEXT (d));
18901 const_init = DECL_INITIALIZED_BY_CONSTANT_EXPRESSION_P (code_pattern);
18902 cp_finish_decl (d, init, const_init, NULL_TREE, 0);
18903 pop_nested_class ();
18905 else if (TREE_CODE (d) == FUNCTION_DECL && DECL_DEFAULTED_FN (code_pattern))
18906 synthesize_method (d);
18907 else if (TREE_CODE (d) == FUNCTION_DECL)
18909 struct pointer_map_t *saved_local_specializations;
18910 tree subst_decl;
18911 tree tmpl_parm;
18912 tree spec_parm;
18914 /* Save away the current list, in case we are instantiating one
18915 template from within the body of another. */
18916 saved_local_specializations = local_specializations;
18918 /* Set up the list of local specializations. */
18919 local_specializations = pointer_map_create ();
18921 /* Set up context. */
18922 start_preparsed_function (d, NULL_TREE, SF_PRE_PARSED);
18924 /* Some typedefs referenced from within the template code need to be
18925 access checked at template instantiation time, i.e now. These
18926 types were added to the template at parsing time. Let's get those
18927 and perform the access checks then. */
18928 perform_typedefs_access_check (DECL_TEMPLATE_RESULT (gen_tmpl),
18929 gen_args);
18931 /* Create substitution entries for the parameters. */
18932 subst_decl = DECL_TEMPLATE_RESULT (template_for_substitution (d));
18933 tmpl_parm = DECL_ARGUMENTS (subst_decl);
18934 spec_parm = DECL_ARGUMENTS (d);
18935 if (DECL_NONSTATIC_MEMBER_FUNCTION_P (d))
18937 register_local_specialization (spec_parm, tmpl_parm);
18938 spec_parm = skip_artificial_parms_for (d, spec_parm);
18939 tmpl_parm = skip_artificial_parms_for (subst_decl, tmpl_parm);
18941 for (; tmpl_parm; tmpl_parm = DECL_CHAIN (tmpl_parm))
18943 if (!FUNCTION_PARAMETER_PACK_P (tmpl_parm))
18945 register_local_specialization (spec_parm, tmpl_parm);
18946 spec_parm = DECL_CHAIN (spec_parm);
18948 else
18950 /* Register the (value) argument pack as a specialization of
18951 TMPL_PARM, then move on. */
18952 tree argpack = extract_fnparm_pack (tmpl_parm, &spec_parm);
18953 register_local_specialization (argpack, tmpl_parm);
18956 gcc_assert (!spec_parm);
18958 /* Substitute into the body of the function. */
18959 tsubst_expr (DECL_SAVED_TREE (code_pattern), args,
18960 tf_warning_or_error, tmpl,
18961 /*integral_constant_expression_p=*/false);
18963 /* Set the current input_location to the end of the function
18964 so that finish_function knows where we are. */
18965 input_location = DECL_STRUCT_FUNCTION (code_pattern)->function_end_locus;
18967 /* We don't need the local specializations any more. */
18968 pointer_map_destroy (local_specializations);
18969 local_specializations = saved_local_specializations;
18971 /* Finish the function. */
18972 d = finish_function (0);
18973 expand_or_defer_fn (d);
18976 /* We're not deferring instantiation any more. */
18977 TI_PENDING_TEMPLATE_FLAG (DECL_TEMPLATE_INFO (d)) = 0;
18979 if (!fn_context)
18980 pop_from_top_level ();
18981 else if (nested)
18982 pop_function_context ();
18984 out:
18985 input_location = saved_loc;
18986 pop_deferring_access_checks ();
18987 pop_tinst_level ();
18989 timevar_pop (TV_TEMPLATE_INST);
18991 return d;
18994 /* Run through the list of templates that we wish we could
18995 instantiate, and instantiate any we can. RETRIES is the
18996 number of times we retry pending template instantiation. */
18998 void
18999 instantiate_pending_templates (int retries)
19001 int reconsider;
19002 location_t saved_loc = input_location;
19004 /* Instantiating templates may trigger vtable generation. This in turn
19005 may require further template instantiations. We place a limit here
19006 to avoid infinite loop. */
19007 if (pending_templates && retries >= max_tinst_depth)
19009 tree decl = pending_templates->tinst->decl;
19011 error ("template instantiation depth exceeds maximum of %d"
19012 " instantiating %q+D, possibly from virtual table generation"
19013 " (use -ftemplate-depth= to increase the maximum)",
19014 max_tinst_depth, decl);
19015 if (TREE_CODE (decl) == FUNCTION_DECL)
19016 /* Pretend that we defined it. */
19017 DECL_INITIAL (decl) = error_mark_node;
19018 return;
19023 struct pending_template **t = &pending_templates;
19024 struct pending_template *last = NULL;
19025 reconsider = 0;
19026 while (*t)
19028 tree instantiation = reopen_tinst_level ((*t)->tinst);
19029 bool complete = false;
19031 if (TYPE_P (instantiation))
19033 tree fn;
19035 if (!COMPLETE_TYPE_P (instantiation))
19037 instantiate_class_template (instantiation);
19038 if (CLASSTYPE_TEMPLATE_INSTANTIATION (instantiation))
19039 for (fn = TYPE_METHODS (instantiation);
19041 fn = TREE_CHAIN (fn))
19042 if (! DECL_ARTIFICIAL (fn))
19043 instantiate_decl (fn,
19044 /*defer_ok=*/0,
19045 /*expl_inst_class_mem_p=*/false);
19046 if (COMPLETE_TYPE_P (instantiation))
19047 reconsider = 1;
19050 complete = COMPLETE_TYPE_P (instantiation);
19052 else
19054 if (!DECL_TEMPLATE_SPECIALIZATION (instantiation)
19055 && !DECL_TEMPLATE_INSTANTIATED (instantiation))
19057 instantiation
19058 = instantiate_decl (instantiation,
19059 /*defer_ok=*/0,
19060 /*expl_inst_class_mem_p=*/false);
19061 if (DECL_TEMPLATE_INSTANTIATED (instantiation))
19062 reconsider = 1;
19065 complete = (DECL_TEMPLATE_SPECIALIZATION (instantiation)
19066 || DECL_TEMPLATE_INSTANTIATED (instantiation));
19069 if (complete)
19070 /* If INSTANTIATION has been instantiated, then we don't
19071 need to consider it again in the future. */
19072 *t = (*t)->next;
19073 else
19075 last = *t;
19076 t = &(*t)->next;
19078 tinst_depth = 0;
19079 current_tinst_level = NULL;
19081 last_pending_template = last;
19083 while (reconsider);
19085 input_location = saved_loc;
19088 /* Substitute ARGVEC into T, which is a list of initializers for
19089 either base class or a non-static data member. The TREE_PURPOSEs
19090 are DECLs, and the TREE_VALUEs are the initializer values. Used by
19091 instantiate_decl. */
19093 static tree
19094 tsubst_initializer_list (tree t, tree argvec)
19096 tree inits = NULL_TREE;
19098 for (; t; t = TREE_CHAIN (t))
19100 tree decl;
19101 tree init;
19102 tree expanded_bases = NULL_TREE;
19103 tree expanded_arguments = NULL_TREE;
19104 int i, len = 1;
19106 if (TREE_CODE (TREE_PURPOSE (t)) == TYPE_PACK_EXPANSION)
19108 tree expr;
19109 tree arg;
19111 /* Expand the base class expansion type into separate base
19112 classes. */
19113 expanded_bases = tsubst_pack_expansion (TREE_PURPOSE (t), argvec,
19114 tf_warning_or_error,
19115 NULL_TREE);
19116 if (expanded_bases == error_mark_node)
19117 continue;
19119 /* We'll be building separate TREE_LISTs of arguments for
19120 each base. */
19121 len = TREE_VEC_LENGTH (expanded_bases);
19122 expanded_arguments = make_tree_vec (len);
19123 for (i = 0; i < len; i++)
19124 TREE_VEC_ELT (expanded_arguments, i) = NULL_TREE;
19126 /* Build a dummy EXPR_PACK_EXPANSION that will be used to
19127 expand each argument in the TREE_VALUE of t. */
19128 expr = make_node (EXPR_PACK_EXPANSION);
19129 PACK_EXPANSION_LOCAL_P (expr) = true;
19130 PACK_EXPANSION_PARAMETER_PACKS (expr) =
19131 PACK_EXPANSION_PARAMETER_PACKS (TREE_PURPOSE (t));
19133 if (TREE_VALUE (t) == void_type_node)
19134 /* VOID_TYPE_NODE is used to indicate
19135 value-initialization. */
19137 for (i = 0; i < len; i++)
19138 TREE_VEC_ELT (expanded_arguments, i) = void_type_node;
19140 else
19142 /* Substitute parameter packs into each argument in the
19143 TREE_LIST. */
19144 in_base_initializer = 1;
19145 for (arg = TREE_VALUE (t); arg; arg = TREE_CHAIN (arg))
19147 tree expanded_exprs;
19149 /* Expand the argument. */
19150 SET_PACK_EXPANSION_PATTERN (expr, TREE_VALUE (arg));
19151 expanded_exprs
19152 = tsubst_pack_expansion (expr, argvec,
19153 tf_warning_or_error,
19154 NULL_TREE);
19155 if (expanded_exprs == error_mark_node)
19156 continue;
19158 /* Prepend each of the expanded expressions to the
19159 corresponding TREE_LIST in EXPANDED_ARGUMENTS. */
19160 for (i = 0; i < len; i++)
19162 TREE_VEC_ELT (expanded_arguments, i) =
19163 tree_cons (NULL_TREE,
19164 TREE_VEC_ELT (expanded_exprs, i),
19165 TREE_VEC_ELT (expanded_arguments, i));
19168 in_base_initializer = 0;
19170 /* Reverse all of the TREE_LISTs in EXPANDED_ARGUMENTS,
19171 since we built them backwards. */
19172 for (i = 0; i < len; i++)
19174 TREE_VEC_ELT (expanded_arguments, i) =
19175 nreverse (TREE_VEC_ELT (expanded_arguments, i));
19180 for (i = 0; i < len; ++i)
19182 if (expanded_bases)
19184 decl = TREE_VEC_ELT (expanded_bases, i);
19185 decl = expand_member_init (decl);
19186 init = TREE_VEC_ELT (expanded_arguments, i);
19188 else
19190 tree tmp;
19191 decl = tsubst_copy (TREE_PURPOSE (t), argvec,
19192 tf_warning_or_error, NULL_TREE);
19194 decl = expand_member_init (decl);
19195 if (decl && !DECL_P (decl))
19196 in_base_initializer = 1;
19198 init = TREE_VALUE (t);
19199 tmp = init;
19200 if (init != void_type_node)
19201 init = tsubst_expr (init, argvec,
19202 tf_warning_or_error, NULL_TREE,
19203 /*integral_constant_expression_p=*/false);
19204 if (init == NULL_TREE && tmp != NULL_TREE)
19205 /* If we had an initializer but it instantiated to nothing,
19206 value-initialize the object. This will only occur when
19207 the initializer was a pack expansion where the parameter
19208 packs used in that expansion were of length zero. */
19209 init = void_type_node;
19210 in_base_initializer = 0;
19213 if (decl)
19215 init = build_tree_list (decl, init);
19216 TREE_CHAIN (init) = inits;
19217 inits = init;
19221 return inits;
19224 /* Set CURRENT_ACCESS_SPECIFIER based on the protection of DECL. */
19226 static void
19227 set_current_access_from_decl (tree decl)
19229 if (TREE_PRIVATE (decl))
19230 current_access_specifier = access_private_node;
19231 else if (TREE_PROTECTED (decl))
19232 current_access_specifier = access_protected_node;
19233 else
19234 current_access_specifier = access_public_node;
19237 /* Instantiate an enumerated type. TAG is the template type, NEWTAG
19238 is the instantiation (which should have been created with
19239 start_enum) and ARGS are the template arguments to use. */
19241 static void
19242 tsubst_enum (tree tag, tree newtag, tree args)
19244 tree e;
19246 if (SCOPED_ENUM_P (newtag))
19247 begin_scope (sk_scoped_enum, newtag);
19249 for (e = TYPE_VALUES (tag); e; e = TREE_CHAIN (e))
19251 tree value;
19252 tree decl;
19254 decl = TREE_VALUE (e);
19255 /* Note that in a template enum, the TREE_VALUE is the
19256 CONST_DECL, not the corresponding INTEGER_CST. */
19257 value = tsubst_expr (DECL_INITIAL (decl),
19258 args, tf_warning_or_error, NULL_TREE,
19259 /*integral_constant_expression_p=*/true);
19261 /* Give this enumeration constant the correct access. */
19262 set_current_access_from_decl (decl);
19264 /* Actually build the enumerator itself. */
19265 build_enumerator
19266 (DECL_NAME (decl), value, newtag, DECL_SOURCE_LOCATION (decl));
19269 if (SCOPED_ENUM_P (newtag))
19270 finish_scope ();
19272 finish_enum_value_list (newtag);
19273 finish_enum (newtag);
19275 DECL_SOURCE_LOCATION (TYPE_NAME (newtag))
19276 = DECL_SOURCE_LOCATION (TYPE_NAME (tag));
19279 /* DECL is a FUNCTION_DECL that is a template specialization. Return
19280 its type -- but without substituting the innermost set of template
19281 arguments. So, innermost set of template parameters will appear in
19282 the type. */
19284 tree
19285 get_mostly_instantiated_function_type (tree decl)
19287 tree fn_type;
19288 tree tmpl;
19289 tree targs;
19290 tree tparms;
19291 int parm_depth;
19293 tmpl = most_general_template (DECL_TI_TEMPLATE (decl));
19294 targs = DECL_TI_ARGS (decl);
19295 tparms = DECL_TEMPLATE_PARMS (tmpl);
19296 parm_depth = TMPL_PARMS_DEPTH (tparms);
19298 /* There should be as many levels of arguments as there are levels
19299 of parameters. */
19300 gcc_assert (parm_depth == TMPL_ARGS_DEPTH (targs));
19302 fn_type = TREE_TYPE (tmpl);
19304 if (parm_depth == 1)
19305 /* No substitution is necessary. */
19307 else
19309 int i;
19310 tree partial_args;
19312 /* Replace the innermost level of the TARGS with NULL_TREEs to
19313 let tsubst know not to substitute for those parameters. */
19314 partial_args = make_tree_vec (TREE_VEC_LENGTH (targs));
19315 for (i = 1; i < TMPL_ARGS_DEPTH (targs); ++i)
19316 SET_TMPL_ARGS_LEVEL (partial_args, i,
19317 TMPL_ARGS_LEVEL (targs, i));
19318 SET_TMPL_ARGS_LEVEL (partial_args,
19319 TMPL_ARGS_DEPTH (targs),
19320 make_tree_vec (DECL_NTPARMS (tmpl)));
19322 /* Make sure that we can see identifiers, and compute access
19323 correctly. */
19324 push_access_scope (decl);
19326 ++processing_template_decl;
19327 /* Now, do the (partial) substitution to figure out the
19328 appropriate function type. */
19329 fn_type = tsubst (fn_type, partial_args, tf_error, NULL_TREE);
19330 --processing_template_decl;
19332 /* Substitute into the template parameters to obtain the real
19333 innermost set of parameters. This step is important if the
19334 innermost set of template parameters contains value
19335 parameters whose types depend on outer template parameters. */
19336 TREE_VEC_LENGTH (partial_args)--;
19337 tparms = tsubst_template_parms (tparms, partial_args, tf_error);
19339 pop_access_scope (decl);
19342 return fn_type;
19345 /* Return truthvalue if we're processing a template different from
19346 the last one involved in diagnostics. */
19348 problematic_instantiation_changed (void)
19350 return current_tinst_level != last_error_tinst_level;
19353 /* Remember current template involved in diagnostics. */
19354 void
19355 record_last_problematic_instantiation (void)
19357 last_error_tinst_level = current_tinst_level;
19360 struct tinst_level *
19361 current_instantiation (void)
19363 return current_tinst_level;
19366 /* [temp.param] Check that template non-type parm TYPE is of an allowable
19367 type. Return zero for ok, nonzero for disallowed. Issue error and
19368 warning messages under control of COMPLAIN. */
19370 static int
19371 invalid_nontype_parm_type_p (tree type, tsubst_flags_t complain)
19373 if (INTEGRAL_OR_ENUMERATION_TYPE_P (type))
19374 return 0;
19375 else if (POINTER_TYPE_P (type))
19376 return 0;
19377 else if (TYPE_PTRMEM_P (type))
19378 return 0;
19379 else if (TREE_CODE (type) == TEMPLATE_TYPE_PARM)
19380 return 0;
19381 else if (TREE_CODE (type) == TYPENAME_TYPE)
19382 return 0;
19383 else if (TREE_CODE (type) == DECLTYPE_TYPE)
19384 return 0;
19385 else if (TREE_CODE (type) == NULLPTR_TYPE)
19386 return 0;
19388 if (complain & tf_error)
19390 if (type == error_mark_node)
19391 inform (input_location, "invalid template non-type parameter");
19392 else
19393 error ("%q#T is not a valid type for a template non-type parameter",
19394 type);
19396 return 1;
19399 /* Returns TRUE if TYPE is dependent, in the sense of [temp.dep.type].
19400 Assumes that TYPE really is a type, and not the ERROR_MARK_NODE.*/
19402 static bool
19403 dependent_type_p_r (tree type)
19405 tree scope;
19407 /* [temp.dep.type]
19409 A type is dependent if it is:
19411 -- a template parameter. Template template parameters are types
19412 for us (since TYPE_P holds true for them) so we handle
19413 them here. */
19414 if (TREE_CODE (type) == TEMPLATE_TYPE_PARM
19415 || TREE_CODE (type) == TEMPLATE_TEMPLATE_PARM)
19416 return true;
19417 /* -- a qualified-id with a nested-name-specifier which contains a
19418 class-name that names a dependent type or whose unqualified-id
19419 names a dependent type. */
19420 if (TREE_CODE (type) == TYPENAME_TYPE)
19421 return true;
19422 /* -- a cv-qualified type where the cv-unqualified type is
19423 dependent. */
19424 type = TYPE_MAIN_VARIANT (type);
19425 /* -- a compound type constructed from any dependent type. */
19426 if (TYPE_PTRMEM_P (type))
19427 return (dependent_type_p (TYPE_PTRMEM_CLASS_TYPE (type))
19428 || dependent_type_p (TYPE_PTRMEM_POINTED_TO_TYPE
19429 (type)));
19430 else if (TREE_CODE (type) == POINTER_TYPE
19431 || TREE_CODE (type) == REFERENCE_TYPE)
19432 return dependent_type_p (TREE_TYPE (type));
19433 else if (TREE_CODE (type) == FUNCTION_TYPE
19434 || TREE_CODE (type) == METHOD_TYPE)
19436 tree arg_type;
19438 if (dependent_type_p (TREE_TYPE (type)))
19439 return true;
19440 for (arg_type = TYPE_ARG_TYPES (type);
19441 arg_type;
19442 arg_type = TREE_CHAIN (arg_type))
19443 if (dependent_type_p (TREE_VALUE (arg_type)))
19444 return true;
19445 return false;
19447 /* -- an array type constructed from any dependent type or whose
19448 size is specified by a constant expression that is
19449 value-dependent.
19451 We checked for type- and value-dependence of the bounds in
19452 compute_array_index_type, so TYPE_DEPENDENT_P is already set. */
19453 if (TREE_CODE (type) == ARRAY_TYPE)
19455 if (TYPE_DOMAIN (type)
19456 && dependent_type_p (TYPE_DOMAIN (type)))
19457 return true;
19458 return dependent_type_p (TREE_TYPE (type));
19461 /* -- a template-id in which either the template name is a template
19462 parameter ... */
19463 if (TREE_CODE (type) == BOUND_TEMPLATE_TEMPLATE_PARM)
19464 return true;
19465 /* ... or any of the template arguments is a dependent type or
19466 an expression that is type-dependent or value-dependent. */
19467 else if (CLASS_TYPE_P (type) && CLASSTYPE_TEMPLATE_INFO (type)
19468 && (any_dependent_template_arguments_p
19469 (INNERMOST_TEMPLATE_ARGS (CLASSTYPE_TI_ARGS (type)))))
19470 return true;
19472 /* All TYPEOF_TYPEs, DECLTYPE_TYPEs, and UNDERLYING_TYPEs are
19473 dependent; if the argument of the `typeof' expression is not
19474 type-dependent, then it should already been have resolved. */
19475 if (TREE_CODE (type) == TYPEOF_TYPE
19476 || TREE_CODE (type) == DECLTYPE_TYPE
19477 || TREE_CODE (type) == UNDERLYING_TYPE)
19478 return true;
19480 /* A template argument pack is dependent if any of its packed
19481 arguments are. */
19482 if (TREE_CODE (type) == TYPE_ARGUMENT_PACK)
19484 tree args = ARGUMENT_PACK_ARGS (type);
19485 int i, len = TREE_VEC_LENGTH (args);
19486 for (i = 0; i < len; ++i)
19487 if (dependent_template_arg_p (TREE_VEC_ELT (args, i)))
19488 return true;
19491 /* All TYPE_PACK_EXPANSIONs are dependent, because parameter packs must
19492 be template parameters. */
19493 if (TREE_CODE (type) == TYPE_PACK_EXPANSION)
19494 return true;
19496 /* The standard does not specifically mention types that are local
19497 to template functions or local classes, but they should be
19498 considered dependent too. For example:
19500 template <int I> void f() {
19501 enum E { a = I };
19502 S<sizeof (E)> s;
19505 The size of `E' cannot be known until the value of `I' has been
19506 determined. Therefore, `E' must be considered dependent. */
19507 scope = TYPE_CONTEXT (type);
19508 if (scope && TYPE_P (scope))
19509 return dependent_type_p (scope);
19510 /* Don't use type_dependent_expression_p here, as it can lead
19511 to infinite recursion trying to determine whether a lambda
19512 nested in a lambda is dependent (c++/47687). */
19513 else if (scope && TREE_CODE (scope) == FUNCTION_DECL
19514 && DECL_LANG_SPECIFIC (scope)
19515 && DECL_TEMPLATE_INFO (scope)
19516 && (any_dependent_template_arguments_p
19517 (INNERMOST_TEMPLATE_ARGS (DECL_TI_ARGS (scope)))))
19518 return true;
19520 /* Other types are non-dependent. */
19521 return false;
19524 /* Returns TRUE if TYPE is dependent, in the sense of
19525 [temp.dep.type]. Note that a NULL type is considered dependent. */
19527 bool
19528 dependent_type_p (tree type)
19530 /* If there are no template parameters in scope, then there can't be
19531 any dependent types. */
19532 if (!processing_template_decl)
19534 /* If we are not processing a template, then nobody should be
19535 providing us with a dependent type. */
19536 gcc_assert (type);
19537 gcc_assert (TREE_CODE (type) != TEMPLATE_TYPE_PARM || is_auto (type));
19538 return false;
19541 /* If the type is NULL, we have not computed a type for the entity
19542 in question; in that case, the type is dependent. */
19543 if (!type)
19544 return true;
19546 /* Erroneous types can be considered non-dependent. */
19547 if (type == error_mark_node)
19548 return false;
19550 /* If we have not already computed the appropriate value for TYPE,
19551 do so now. */
19552 if (!TYPE_DEPENDENT_P_VALID (type))
19554 TYPE_DEPENDENT_P (type) = dependent_type_p_r (type);
19555 TYPE_DEPENDENT_P_VALID (type) = 1;
19558 return TYPE_DEPENDENT_P (type);
19561 /* Returns TRUE if SCOPE is a dependent scope, in which we can't do any
19562 lookup. In other words, a dependent type that is not the current
19563 instantiation. */
19565 bool
19566 dependent_scope_p (tree scope)
19568 return (scope && TYPE_P (scope) && dependent_type_p (scope)
19569 && !currently_open_class (scope));
19572 /* T is a SCOPE_REF; return whether we need to consider it
19573 instantiation-dependent so that we can check access at instantiation
19574 time even though we know which member it resolves to. */
19576 static bool
19577 instantiation_dependent_scope_ref_p (tree t)
19579 if (DECL_P (TREE_OPERAND (t, 1))
19580 && CLASS_TYPE_P (TREE_OPERAND (t, 0))
19581 && accessible_in_template_p (TREE_OPERAND (t, 0),
19582 TREE_OPERAND (t, 1)))
19583 return false;
19584 else
19585 return true;
19588 /* Returns TRUE if the EXPRESSION is value-dependent, in the sense of
19589 [temp.dep.constexpr]. EXPRESSION is already known to be a constant
19590 expression. */
19592 /* Note that this predicate is not appropriate for general expressions;
19593 only constant expressions (that satisfy potential_constant_expression)
19594 can be tested for value dependence. */
19596 bool
19597 value_dependent_expression_p (tree expression)
19599 if (!processing_template_decl)
19600 return false;
19602 /* A name declared with a dependent type. */
19603 if (DECL_P (expression) && type_dependent_expression_p (expression))
19604 return true;
19606 switch (TREE_CODE (expression))
19608 case IDENTIFIER_NODE:
19609 /* A name that has not been looked up -- must be dependent. */
19610 return true;
19612 case TEMPLATE_PARM_INDEX:
19613 /* A non-type template parm. */
19614 return true;
19616 case CONST_DECL:
19617 /* A non-type template parm. */
19618 if (DECL_TEMPLATE_PARM_P (expression))
19619 return true;
19620 return value_dependent_expression_p (DECL_INITIAL (expression));
19622 case VAR_DECL:
19623 /* A constant with literal type and is initialized
19624 with an expression that is value-dependent.
19626 Note that a non-dependent parenthesized initializer will have
19627 already been replaced with its constant value, so if we see
19628 a TREE_LIST it must be dependent. */
19629 if (DECL_INITIAL (expression)
19630 && decl_constant_var_p (expression)
19631 && (TREE_CODE (DECL_INITIAL (expression)) == TREE_LIST
19632 || value_dependent_expression_p (DECL_INITIAL (expression))))
19633 return true;
19634 return false;
19636 case DYNAMIC_CAST_EXPR:
19637 case STATIC_CAST_EXPR:
19638 case CONST_CAST_EXPR:
19639 case REINTERPRET_CAST_EXPR:
19640 case CAST_EXPR:
19641 /* These expressions are value-dependent if the type to which
19642 the cast occurs is dependent or the expression being casted
19643 is value-dependent. */
19645 tree type = TREE_TYPE (expression);
19647 if (dependent_type_p (type))
19648 return true;
19650 /* A functional cast has a list of operands. */
19651 expression = TREE_OPERAND (expression, 0);
19652 if (!expression)
19654 /* If there are no operands, it must be an expression such
19655 as "int()". This should not happen for aggregate types
19656 because it would form non-constant expressions. */
19657 gcc_assert (cxx_dialect >= cxx0x
19658 || INTEGRAL_OR_ENUMERATION_TYPE_P (type));
19660 return false;
19663 if (TREE_CODE (expression) == TREE_LIST)
19664 return any_value_dependent_elements_p (expression);
19666 return value_dependent_expression_p (expression);
19669 case SIZEOF_EXPR:
19670 if (SIZEOF_EXPR_TYPE_P (expression))
19671 return dependent_type_p (TREE_TYPE (TREE_OPERAND (expression, 0)));
19672 /* FALLTHRU */
19673 case ALIGNOF_EXPR:
19674 case TYPEID_EXPR:
19675 /* A `sizeof' expression is value-dependent if the operand is
19676 type-dependent or is a pack expansion. */
19677 expression = TREE_OPERAND (expression, 0);
19678 if (PACK_EXPANSION_P (expression))
19679 return true;
19680 else if (TYPE_P (expression))
19681 return dependent_type_p (expression);
19682 return instantiation_dependent_expression_p (expression);
19684 case AT_ENCODE_EXPR:
19685 /* An 'encode' expression is value-dependent if the operand is
19686 type-dependent. */
19687 expression = TREE_OPERAND (expression, 0);
19688 return dependent_type_p (expression);
19690 case NOEXCEPT_EXPR:
19691 expression = TREE_OPERAND (expression, 0);
19692 return instantiation_dependent_expression_p (expression);
19694 case SCOPE_REF:
19695 /* All instantiation-dependent expressions should also be considered
19696 value-dependent. */
19697 return instantiation_dependent_scope_ref_p (expression);
19699 case COMPONENT_REF:
19700 return (value_dependent_expression_p (TREE_OPERAND (expression, 0))
19701 || value_dependent_expression_p (TREE_OPERAND (expression, 1)));
19703 case NONTYPE_ARGUMENT_PACK:
19704 /* A NONTYPE_ARGUMENT_PACK is value-dependent if any packed argument
19705 is value-dependent. */
19707 tree values = ARGUMENT_PACK_ARGS (expression);
19708 int i, len = TREE_VEC_LENGTH (values);
19710 for (i = 0; i < len; ++i)
19711 if (value_dependent_expression_p (TREE_VEC_ELT (values, i)))
19712 return true;
19714 return false;
19717 case TRAIT_EXPR:
19719 tree type2 = TRAIT_EXPR_TYPE2 (expression);
19720 return (dependent_type_p (TRAIT_EXPR_TYPE1 (expression))
19721 || (type2 ? dependent_type_p (type2) : false));
19724 case MODOP_EXPR:
19725 return ((value_dependent_expression_p (TREE_OPERAND (expression, 0)))
19726 || (value_dependent_expression_p (TREE_OPERAND (expression, 2))));
19728 case ARRAY_REF:
19729 return ((value_dependent_expression_p (TREE_OPERAND (expression, 0)))
19730 || (value_dependent_expression_p (TREE_OPERAND (expression, 1))));
19732 case ADDR_EXPR:
19734 tree op = TREE_OPERAND (expression, 0);
19735 return (value_dependent_expression_p (op)
19736 || has_value_dependent_address (op));
19739 case CALL_EXPR:
19741 tree fn = get_callee_fndecl (expression);
19742 int i, nargs;
19743 if (!fn && value_dependent_expression_p (CALL_EXPR_FN (expression)))
19744 return true;
19745 nargs = call_expr_nargs (expression);
19746 for (i = 0; i < nargs; ++i)
19748 tree op = CALL_EXPR_ARG (expression, i);
19749 /* In a call to a constexpr member function, look through the
19750 implicit ADDR_EXPR on the object argument so that it doesn't
19751 cause the call to be considered value-dependent. We also
19752 look through it in potential_constant_expression. */
19753 if (i == 0 && fn && DECL_DECLARED_CONSTEXPR_P (fn)
19754 && DECL_NONSTATIC_MEMBER_FUNCTION_P (fn)
19755 && TREE_CODE (op) == ADDR_EXPR)
19756 op = TREE_OPERAND (op, 0);
19757 if (value_dependent_expression_p (op))
19758 return true;
19760 return false;
19763 case TEMPLATE_ID_EXPR:
19764 /* If a TEMPLATE_ID_EXPR involves a dependent name, it will be
19765 type-dependent. */
19766 return type_dependent_expression_p (expression);
19768 case CONSTRUCTOR:
19770 unsigned ix;
19771 tree val;
19772 FOR_EACH_CONSTRUCTOR_VALUE (CONSTRUCTOR_ELTS (expression), ix, val)
19773 if (value_dependent_expression_p (val))
19774 return true;
19775 return false;
19778 case STMT_EXPR:
19779 /* Treat a GNU statement expression as dependent to avoid crashing
19780 under fold_non_dependent_expr; it can't be constant. */
19781 return true;
19783 default:
19784 /* A constant expression is value-dependent if any subexpression is
19785 value-dependent. */
19786 switch (TREE_CODE_CLASS (TREE_CODE (expression)))
19788 case tcc_reference:
19789 case tcc_unary:
19790 case tcc_comparison:
19791 case tcc_binary:
19792 case tcc_expression:
19793 case tcc_vl_exp:
19795 int i, len = cp_tree_operand_length (expression);
19797 for (i = 0; i < len; i++)
19799 tree t = TREE_OPERAND (expression, i);
19801 /* In some cases, some of the operands may be missing.l
19802 (For example, in the case of PREDECREMENT_EXPR, the
19803 amount to increment by may be missing.) That doesn't
19804 make the expression dependent. */
19805 if (t && value_dependent_expression_p (t))
19806 return true;
19809 break;
19810 default:
19811 break;
19813 break;
19816 /* The expression is not value-dependent. */
19817 return false;
19820 /* Returns TRUE if the EXPRESSION is type-dependent, in the sense of
19821 [temp.dep.expr]. Note that an expression with no type is
19822 considered dependent. Other parts of the compiler arrange for an
19823 expression with type-dependent subexpressions to have no type, so
19824 this function doesn't have to be fully recursive. */
19826 bool
19827 type_dependent_expression_p (tree expression)
19829 if (!processing_template_decl)
19830 return false;
19832 if (expression == error_mark_node)
19833 return false;
19835 /* An unresolved name is always dependent. */
19836 if (TREE_CODE (expression) == IDENTIFIER_NODE
19837 || TREE_CODE (expression) == USING_DECL)
19838 return true;
19840 /* Some expression forms are never type-dependent. */
19841 if (TREE_CODE (expression) == PSEUDO_DTOR_EXPR
19842 || TREE_CODE (expression) == SIZEOF_EXPR
19843 || TREE_CODE (expression) == ALIGNOF_EXPR
19844 || TREE_CODE (expression) == AT_ENCODE_EXPR
19845 || TREE_CODE (expression) == NOEXCEPT_EXPR
19846 || TREE_CODE (expression) == TRAIT_EXPR
19847 || TREE_CODE (expression) == TYPEID_EXPR
19848 || TREE_CODE (expression) == DELETE_EXPR
19849 || TREE_CODE (expression) == VEC_DELETE_EXPR
19850 || TREE_CODE (expression) == THROW_EXPR)
19851 return false;
19853 /* The types of these expressions depends only on the type to which
19854 the cast occurs. */
19855 if (TREE_CODE (expression) == DYNAMIC_CAST_EXPR
19856 || TREE_CODE (expression) == STATIC_CAST_EXPR
19857 || TREE_CODE (expression) == CONST_CAST_EXPR
19858 || TREE_CODE (expression) == REINTERPRET_CAST_EXPR
19859 || TREE_CODE (expression) == IMPLICIT_CONV_EXPR
19860 || TREE_CODE (expression) == CAST_EXPR)
19861 return dependent_type_p (TREE_TYPE (expression));
19863 /* The types of these expressions depends only on the type created
19864 by the expression. */
19865 if (TREE_CODE (expression) == NEW_EXPR
19866 || TREE_CODE (expression) == VEC_NEW_EXPR)
19868 /* For NEW_EXPR tree nodes created inside a template, either
19869 the object type itself or a TREE_LIST may appear as the
19870 operand 1. */
19871 tree type = TREE_OPERAND (expression, 1);
19872 if (TREE_CODE (type) == TREE_LIST)
19873 /* This is an array type. We need to check array dimensions
19874 as well. */
19875 return dependent_type_p (TREE_VALUE (TREE_PURPOSE (type)))
19876 || value_dependent_expression_p
19877 (TREE_OPERAND (TREE_VALUE (type), 1));
19878 else
19879 return dependent_type_p (type);
19882 if (TREE_CODE (expression) == SCOPE_REF)
19884 tree scope = TREE_OPERAND (expression, 0);
19885 tree name = TREE_OPERAND (expression, 1);
19887 /* 14.6.2.2 [temp.dep.expr]: An id-expression is type-dependent if it
19888 contains an identifier associated by name lookup with one or more
19889 declarations declared with a dependent type, or...a
19890 nested-name-specifier or qualified-id that names a member of an
19891 unknown specialization. */
19892 return (type_dependent_expression_p (name)
19893 || dependent_scope_p (scope));
19896 if (TREE_CODE (expression) == FUNCTION_DECL
19897 && DECL_LANG_SPECIFIC (expression)
19898 && DECL_TEMPLATE_INFO (expression)
19899 && (any_dependent_template_arguments_p
19900 (INNERMOST_TEMPLATE_ARGS (DECL_TI_ARGS (expression)))))
19901 return true;
19903 if (TREE_CODE (expression) == TEMPLATE_DECL
19904 && !DECL_TEMPLATE_TEMPLATE_PARM_P (expression))
19905 return false;
19907 if (TREE_CODE (expression) == STMT_EXPR)
19908 expression = stmt_expr_value_expr (expression);
19910 if (BRACE_ENCLOSED_INITIALIZER_P (expression))
19912 tree elt;
19913 unsigned i;
19915 FOR_EACH_CONSTRUCTOR_VALUE (CONSTRUCTOR_ELTS (expression), i, elt)
19917 if (type_dependent_expression_p (elt))
19918 return true;
19920 return false;
19923 /* A static data member of the current instantiation with incomplete
19924 array type is type-dependent, as the definition and specializations
19925 can have different bounds. */
19926 if (TREE_CODE (expression) == VAR_DECL
19927 && DECL_CLASS_SCOPE_P (expression)
19928 && dependent_type_p (DECL_CONTEXT (expression))
19929 && VAR_HAD_UNKNOWN_BOUND (expression))
19930 return true;
19932 /* An array of unknown bound depending on a variadic parameter, eg:
19934 template<typename... Args>
19935 void foo (Args... args)
19937 int arr[] = { args... };
19940 template<int... vals>
19941 void bar ()
19943 int arr[] = { vals... };
19946 If the array has no length and has an initializer, it must be that
19947 we couldn't determine its length in cp_complete_array_type because
19948 it is dependent. */
19949 if (TREE_CODE (expression) == VAR_DECL
19950 && TREE_CODE (TREE_TYPE (expression)) == ARRAY_TYPE
19951 && !TYPE_DOMAIN (TREE_TYPE (expression))
19952 && DECL_INITIAL (expression))
19953 return true;
19955 if (TREE_TYPE (expression) == unknown_type_node)
19957 if (TREE_CODE (expression) == ADDR_EXPR)
19958 return type_dependent_expression_p (TREE_OPERAND (expression, 0));
19959 if (TREE_CODE (expression) == COMPONENT_REF
19960 || TREE_CODE (expression) == OFFSET_REF)
19962 if (type_dependent_expression_p (TREE_OPERAND (expression, 0)))
19963 return true;
19964 expression = TREE_OPERAND (expression, 1);
19965 if (TREE_CODE (expression) == IDENTIFIER_NODE)
19966 return false;
19968 /* SCOPE_REF with non-null TREE_TYPE is always non-dependent. */
19969 if (TREE_CODE (expression) == SCOPE_REF)
19970 return false;
19972 /* Always dependent, on the number of arguments if nothing else. */
19973 if (TREE_CODE (expression) == EXPR_PACK_EXPANSION)
19974 return true;
19976 if (BASELINK_P (expression))
19977 expression = BASELINK_FUNCTIONS (expression);
19979 if (TREE_CODE (expression) == TEMPLATE_ID_EXPR)
19981 if (any_dependent_template_arguments_p
19982 (TREE_OPERAND (expression, 1)))
19983 return true;
19984 expression = TREE_OPERAND (expression, 0);
19986 gcc_assert (TREE_CODE (expression) == OVERLOAD
19987 || TREE_CODE (expression) == FUNCTION_DECL);
19989 while (expression)
19991 if (type_dependent_expression_p (OVL_CURRENT (expression)))
19992 return true;
19993 expression = OVL_NEXT (expression);
19995 return false;
19998 gcc_assert (TREE_CODE (expression) != TYPE_DECL);
20000 return (dependent_type_p (TREE_TYPE (expression)));
20003 /* walk_tree callback function for instantiation_dependent_expression_p,
20004 below. Returns non-zero if a dependent subexpression is found. */
20006 static tree
20007 instantiation_dependent_r (tree *tp, int *walk_subtrees,
20008 void * /*data*/)
20010 if (TYPE_P (*tp))
20012 /* We don't have to worry about decltype currently because decltype
20013 of an instantiation-dependent expr is a dependent type. This
20014 might change depending on the resolution of DR 1172. */
20015 *walk_subtrees = false;
20016 return NULL_TREE;
20018 enum tree_code code = TREE_CODE (*tp);
20019 switch (code)
20021 /* Don't treat an argument list as dependent just because it has no
20022 TREE_TYPE. */
20023 case TREE_LIST:
20024 case TREE_VEC:
20025 return NULL_TREE;
20027 case TEMPLATE_PARM_INDEX:
20028 return *tp;
20030 /* Handle expressions with type operands. */
20031 case SIZEOF_EXPR:
20032 case ALIGNOF_EXPR:
20033 case TYPEID_EXPR:
20034 case AT_ENCODE_EXPR:
20036 tree op = TREE_OPERAND (*tp, 0);
20037 if (code == SIZEOF_EXPR && SIZEOF_EXPR_TYPE_P (*tp))
20038 op = TREE_TYPE (op);
20039 if (TYPE_P (op))
20041 if (dependent_type_p (op))
20042 return *tp;
20043 else
20045 *walk_subtrees = false;
20046 return NULL_TREE;
20049 break;
20052 case TRAIT_EXPR:
20053 if (dependent_type_p (TRAIT_EXPR_TYPE1 (*tp))
20054 || (TRAIT_EXPR_TYPE2 (*tp)
20055 && dependent_type_p (TRAIT_EXPR_TYPE2 (*tp))))
20056 return *tp;
20057 *walk_subtrees = false;
20058 return NULL_TREE;
20060 case COMPONENT_REF:
20061 if (TREE_CODE (TREE_OPERAND (*tp, 1)) == IDENTIFIER_NODE)
20062 /* In a template, finish_class_member_access_expr creates a
20063 COMPONENT_REF with an IDENTIFIER_NODE for op1 even if it isn't
20064 type-dependent, so that we can check access control at
20065 instantiation time (PR 42277). See also Core issue 1273. */
20066 return *tp;
20067 break;
20069 case SCOPE_REF:
20070 if (instantiation_dependent_scope_ref_p (*tp))
20071 return *tp;
20072 else
20073 break;
20075 /* Treat statement-expressions as dependent. */
20076 case BIND_EXPR:
20077 return *tp;
20079 default:
20080 break;
20083 if (type_dependent_expression_p (*tp))
20084 return *tp;
20085 else
20086 return NULL_TREE;
20089 /* Returns TRUE if the EXPRESSION is instantiation-dependent, in the
20090 sense defined by the ABI:
20092 "An expression is instantiation-dependent if it is type-dependent
20093 or value-dependent, or it has a subexpression that is type-dependent
20094 or value-dependent." */
20096 bool
20097 instantiation_dependent_expression_p (tree expression)
20099 tree result;
20101 if (!processing_template_decl)
20102 return false;
20104 if (expression == error_mark_node)
20105 return false;
20107 result = cp_walk_tree_without_duplicates (&expression,
20108 instantiation_dependent_r, NULL);
20109 return result != NULL_TREE;
20112 /* Like type_dependent_expression_p, but it also works while not processing
20113 a template definition, i.e. during substitution or mangling. */
20115 bool
20116 type_dependent_expression_p_push (tree expr)
20118 bool b;
20119 ++processing_template_decl;
20120 b = type_dependent_expression_p (expr);
20121 --processing_template_decl;
20122 return b;
20125 /* Returns TRUE if ARGS contains a type-dependent expression. */
20127 bool
20128 any_type_dependent_arguments_p (const vec<tree, va_gc> *args)
20130 unsigned int i;
20131 tree arg;
20133 FOR_EACH_VEC_SAFE_ELT (args, i, arg)
20135 if (type_dependent_expression_p (arg))
20136 return true;
20138 return false;
20141 /* Returns TRUE if LIST (a TREE_LIST whose TREE_VALUEs are
20142 expressions) contains any type-dependent expressions. */
20144 bool
20145 any_type_dependent_elements_p (const_tree list)
20147 for (; list; list = TREE_CHAIN (list))
20148 if (type_dependent_expression_p (TREE_VALUE (list)))
20149 return true;
20151 return false;
20154 /* Returns TRUE if LIST (a TREE_LIST whose TREE_VALUEs are
20155 expressions) contains any value-dependent expressions. */
20157 bool
20158 any_value_dependent_elements_p (const_tree list)
20160 for (; list; list = TREE_CHAIN (list))
20161 if (value_dependent_expression_p (TREE_VALUE (list)))
20162 return true;
20164 return false;
20167 /* Returns TRUE if the ARG (a template argument) is dependent. */
20169 bool
20170 dependent_template_arg_p (tree arg)
20172 if (!processing_template_decl)
20173 return false;
20175 /* Assume a template argument that was wrongly written by the user
20176 is dependent. This is consistent with what
20177 any_dependent_template_arguments_p [that calls this function]
20178 does. */
20179 if (!arg || arg == error_mark_node)
20180 return true;
20182 if (TREE_CODE (arg) == ARGUMENT_PACK_SELECT)
20183 arg = ARGUMENT_PACK_SELECT_ARG (arg);
20185 if (TREE_CODE (arg) == TEMPLATE_DECL
20186 || TREE_CODE (arg) == TEMPLATE_TEMPLATE_PARM)
20187 return dependent_template_p (arg);
20188 else if (ARGUMENT_PACK_P (arg))
20190 tree args = ARGUMENT_PACK_ARGS (arg);
20191 int i, len = TREE_VEC_LENGTH (args);
20192 for (i = 0; i < len; ++i)
20194 if (dependent_template_arg_p (TREE_VEC_ELT (args, i)))
20195 return true;
20198 return false;
20200 else if (TYPE_P (arg))
20201 return dependent_type_p (arg);
20202 else
20203 return (type_dependent_expression_p (arg)
20204 || value_dependent_expression_p (arg));
20207 /* Returns true if ARGS (a collection of template arguments) contains
20208 any types that require structural equality testing. */
20210 bool
20211 any_template_arguments_need_structural_equality_p (tree args)
20213 int i;
20214 int j;
20216 if (!args)
20217 return false;
20218 if (args == error_mark_node)
20219 return true;
20221 for (i = 0; i < TMPL_ARGS_DEPTH (args); ++i)
20223 tree level = TMPL_ARGS_LEVEL (args, i + 1);
20224 for (j = 0; j < TREE_VEC_LENGTH (level); ++j)
20226 tree arg = TREE_VEC_ELT (level, j);
20227 tree packed_args = NULL_TREE;
20228 int k, len = 1;
20230 if (ARGUMENT_PACK_P (arg))
20232 /* Look inside the argument pack. */
20233 packed_args = ARGUMENT_PACK_ARGS (arg);
20234 len = TREE_VEC_LENGTH (packed_args);
20237 for (k = 0; k < len; ++k)
20239 if (packed_args)
20240 arg = TREE_VEC_ELT (packed_args, k);
20242 if (error_operand_p (arg))
20243 return true;
20244 else if (TREE_CODE (arg) == TEMPLATE_DECL
20245 || TREE_CODE (arg) == TEMPLATE_TEMPLATE_PARM)
20246 continue;
20247 else if (TYPE_P (arg) && TYPE_STRUCTURAL_EQUALITY_P (arg))
20248 return true;
20249 else if (!TYPE_P (arg) && TREE_TYPE (arg)
20250 && TYPE_STRUCTURAL_EQUALITY_P (TREE_TYPE (arg)))
20251 return true;
20256 return false;
20259 /* Returns true if ARGS (a collection of template arguments) contains
20260 any dependent arguments. */
20262 bool
20263 any_dependent_template_arguments_p (const_tree args)
20265 int i;
20266 int j;
20268 if (!args)
20269 return false;
20270 if (args == error_mark_node)
20271 return true;
20273 for (i = 0; i < TMPL_ARGS_DEPTH (args); ++i)
20275 const_tree level = TMPL_ARGS_LEVEL (args, i + 1);
20276 for (j = 0; j < TREE_VEC_LENGTH (level); ++j)
20277 if (dependent_template_arg_p (TREE_VEC_ELT (level, j)))
20278 return true;
20281 return false;
20284 /* Returns TRUE if the template TMPL is dependent. */
20286 bool
20287 dependent_template_p (tree tmpl)
20289 if (TREE_CODE (tmpl) == OVERLOAD)
20291 while (tmpl)
20293 if (dependent_template_p (OVL_CURRENT (tmpl)))
20294 return true;
20295 tmpl = OVL_NEXT (tmpl);
20297 return false;
20300 /* Template template parameters are dependent. */
20301 if (DECL_TEMPLATE_TEMPLATE_PARM_P (tmpl)
20302 || TREE_CODE (tmpl) == TEMPLATE_TEMPLATE_PARM)
20303 return true;
20304 /* So are names that have not been looked up. */
20305 if (TREE_CODE (tmpl) == SCOPE_REF
20306 || TREE_CODE (tmpl) == IDENTIFIER_NODE)
20307 return true;
20308 /* So are member templates of dependent classes. */
20309 if (TYPE_P (CP_DECL_CONTEXT (tmpl)))
20310 return dependent_type_p (DECL_CONTEXT (tmpl));
20311 return false;
20314 /* Returns TRUE if the specialization TMPL<ARGS> is dependent. */
20316 bool
20317 dependent_template_id_p (tree tmpl, tree args)
20319 return (dependent_template_p (tmpl)
20320 || any_dependent_template_arguments_p (args));
20323 /* Returns TRUE if OMP_FOR with DECLV, INITV, CONDV and INCRV vectors
20324 is dependent. */
20326 bool
20327 dependent_omp_for_p (tree declv, tree initv, tree condv, tree incrv)
20329 int i;
20331 if (!processing_template_decl)
20332 return false;
20334 for (i = 0; i < TREE_VEC_LENGTH (declv); i++)
20336 tree decl = TREE_VEC_ELT (declv, i);
20337 tree init = TREE_VEC_ELT (initv, i);
20338 tree cond = TREE_VEC_ELT (condv, i);
20339 tree incr = TREE_VEC_ELT (incrv, i);
20341 if (type_dependent_expression_p (decl))
20342 return true;
20344 if (init && type_dependent_expression_p (init))
20345 return true;
20347 if (type_dependent_expression_p (cond))
20348 return true;
20350 if (COMPARISON_CLASS_P (cond)
20351 && (type_dependent_expression_p (TREE_OPERAND (cond, 0))
20352 || type_dependent_expression_p (TREE_OPERAND (cond, 1))))
20353 return true;
20355 if (TREE_CODE (incr) == MODOP_EXPR)
20357 if (type_dependent_expression_p (TREE_OPERAND (incr, 0))
20358 || type_dependent_expression_p (TREE_OPERAND (incr, 2)))
20359 return true;
20361 else if (type_dependent_expression_p (incr))
20362 return true;
20363 else if (TREE_CODE (incr) == MODIFY_EXPR)
20365 if (type_dependent_expression_p (TREE_OPERAND (incr, 0)))
20366 return true;
20367 else if (BINARY_CLASS_P (TREE_OPERAND (incr, 1)))
20369 tree t = TREE_OPERAND (incr, 1);
20370 if (type_dependent_expression_p (TREE_OPERAND (t, 0))
20371 || type_dependent_expression_p (TREE_OPERAND (t, 1)))
20372 return true;
20377 return false;
20380 /* TYPE is a TYPENAME_TYPE. Returns the ordinary TYPE to which the
20381 TYPENAME_TYPE corresponds. Returns the original TYPENAME_TYPE if
20382 no such TYPE can be found. Note that this function peers inside
20383 uninstantiated templates and therefore should be used only in
20384 extremely limited situations. ONLY_CURRENT_P restricts this
20385 peering to the currently open classes hierarchy (which is required
20386 when comparing types). */
20388 tree
20389 resolve_typename_type (tree type, bool only_current_p)
20391 tree scope;
20392 tree name;
20393 tree decl;
20394 int quals;
20395 tree pushed_scope;
20396 tree result;
20398 gcc_assert (TREE_CODE (type) == TYPENAME_TYPE);
20400 scope = TYPE_CONTEXT (type);
20401 /* Usually the non-qualified identifier of a TYPENAME_TYPE is
20402 TYPE_IDENTIFIER (type). But when 'type' is a typedef variant of
20403 a TYPENAME_TYPE node, then TYPE_NAME (type) is set to the TYPE_DECL representing
20404 the typedef. In that case TYPE_IDENTIFIER (type) is not the non-qualified
20405 identifier of the TYPENAME_TYPE anymore.
20406 So by getting the TYPE_IDENTIFIER of the _main declaration_ of the
20407 TYPENAME_TYPE instead, we avoid messing up with a possible
20408 typedef variant case. */
20409 name = TYPE_IDENTIFIER (TYPE_MAIN_VARIANT (type));
20411 /* If the SCOPE is itself a TYPENAME_TYPE, then we need to resolve
20412 it first before we can figure out what NAME refers to. */
20413 if (TREE_CODE (scope) == TYPENAME_TYPE)
20415 if (TYPENAME_IS_RESOLVING_P (scope))
20416 /* Given a class template A with a dependent base with nested type C,
20417 typedef typename A::C::C C will land us here, as trying to resolve
20418 the initial A::C leads to the local C typedef, which leads back to
20419 A::C::C. So we break the recursion now. */
20420 return type;
20421 else
20422 scope = resolve_typename_type (scope, only_current_p);
20424 /* If we don't know what SCOPE refers to, then we cannot resolve the
20425 TYPENAME_TYPE. */
20426 if (TREE_CODE (scope) == TYPENAME_TYPE)
20427 return type;
20428 /* If the SCOPE is a template type parameter, we have no way of
20429 resolving the name. */
20430 if (TREE_CODE (scope) == TEMPLATE_TYPE_PARM)
20431 return type;
20432 /* If the SCOPE is not the current instantiation, there's no reason
20433 to look inside it. */
20434 if (only_current_p && !currently_open_class (scope))
20435 return type;
20436 /* If this is a typedef, we don't want to look inside (c++/11987). */
20437 if (typedef_variant_p (type))
20438 return type;
20439 /* If SCOPE isn't the template itself, it will not have a valid
20440 TYPE_FIELDS list. */
20441 if (same_type_p (scope, CLASSTYPE_PRIMARY_TEMPLATE_TYPE (scope)))
20442 /* scope is either the template itself or a compatible instantiation
20443 like X<T>, so look up the name in the original template. */
20444 scope = CLASSTYPE_PRIMARY_TEMPLATE_TYPE (scope);
20445 else
20446 /* scope is a partial instantiation, so we can't do the lookup or we
20447 will lose the template arguments. */
20448 return type;
20449 /* Enter the SCOPE so that name lookup will be resolved as if we
20450 were in the class definition. In particular, SCOPE will no
20451 longer be considered a dependent type. */
20452 pushed_scope = push_scope (scope);
20453 /* Look up the declaration. */
20454 decl = lookup_member (scope, name, /*protect=*/0, /*want_type=*/true,
20455 tf_warning_or_error);
20457 result = NULL_TREE;
20459 /* For a TYPENAME_TYPE like "typename X::template Y<T>", we want to
20460 find a TEMPLATE_DECL. Otherwise, we want to find a TYPE_DECL. */
20461 if (!decl)
20462 /*nop*/;
20463 else if (TREE_CODE (TYPENAME_TYPE_FULLNAME (type)) == IDENTIFIER_NODE
20464 && TREE_CODE (decl) == TYPE_DECL)
20466 result = TREE_TYPE (decl);
20467 if (result == error_mark_node)
20468 result = NULL_TREE;
20470 else if (TREE_CODE (TYPENAME_TYPE_FULLNAME (type)) == TEMPLATE_ID_EXPR
20471 && DECL_CLASS_TEMPLATE_P (decl))
20473 tree tmpl;
20474 tree args;
20475 /* Obtain the template and the arguments. */
20476 tmpl = TREE_OPERAND (TYPENAME_TYPE_FULLNAME (type), 0);
20477 args = TREE_OPERAND (TYPENAME_TYPE_FULLNAME (type), 1);
20478 /* Instantiate the template. */
20479 result = lookup_template_class (tmpl, args, NULL_TREE, NULL_TREE,
20480 /*entering_scope=*/0,
20481 tf_error | tf_user);
20482 if (result == error_mark_node)
20483 result = NULL_TREE;
20486 /* Leave the SCOPE. */
20487 if (pushed_scope)
20488 pop_scope (pushed_scope);
20490 /* If we failed to resolve it, return the original typename. */
20491 if (!result)
20492 return type;
20494 /* If lookup found a typename type, resolve that too. */
20495 if (TREE_CODE (result) == TYPENAME_TYPE && !TYPENAME_IS_RESOLVING_P (result))
20497 /* Ill-formed programs can cause infinite recursion here, so we
20498 must catch that. */
20499 TYPENAME_IS_RESOLVING_P (type) = 1;
20500 result = resolve_typename_type (result, only_current_p);
20501 TYPENAME_IS_RESOLVING_P (type) = 0;
20504 /* Qualify the resulting type. */
20505 quals = cp_type_quals (type);
20506 if (quals)
20507 result = cp_build_qualified_type (result, cp_type_quals (result) | quals);
20509 return result;
20512 /* EXPR is an expression which is not type-dependent. Return a proxy
20513 for EXPR that can be used to compute the types of larger
20514 expressions containing EXPR. */
20516 tree
20517 build_non_dependent_expr (tree expr)
20519 tree inner_expr;
20521 #ifdef ENABLE_CHECKING
20522 /* Try to get a constant value for all non-dependent expressions in
20523 order to expose bugs in *_dependent_expression_p and constexpr. */
20524 if (cxx_dialect >= cxx0x
20525 && !instantiation_dependent_expression_p (expr))
20526 maybe_constant_value (fold_non_dependent_expr_sfinae (expr, tf_none));
20527 #endif
20529 /* Preserve OVERLOADs; the functions must be available to resolve
20530 types. */
20531 inner_expr = expr;
20532 if (TREE_CODE (inner_expr) == STMT_EXPR)
20533 inner_expr = stmt_expr_value_expr (inner_expr);
20534 if (TREE_CODE (inner_expr) == ADDR_EXPR)
20535 inner_expr = TREE_OPERAND (inner_expr, 0);
20536 if (TREE_CODE (inner_expr) == COMPONENT_REF)
20537 inner_expr = TREE_OPERAND (inner_expr, 1);
20538 if (is_overloaded_fn (inner_expr)
20539 || TREE_CODE (inner_expr) == OFFSET_REF)
20540 return expr;
20541 /* There is no need to return a proxy for a variable. */
20542 if (TREE_CODE (expr) == VAR_DECL)
20543 return expr;
20544 /* Preserve string constants; conversions from string constants to
20545 "char *" are allowed, even though normally a "const char *"
20546 cannot be used to initialize a "char *". */
20547 if (TREE_CODE (expr) == STRING_CST)
20548 return expr;
20549 /* Preserve arithmetic constants, as an optimization -- there is no
20550 reason to create a new node. */
20551 if (TREE_CODE (expr) == INTEGER_CST || TREE_CODE (expr) == REAL_CST)
20552 return expr;
20553 /* Preserve THROW_EXPRs -- all throw-expressions have type "void".
20554 There is at least one place where we want to know that a
20555 particular expression is a throw-expression: when checking a ?:
20556 expression, there are special rules if the second or third
20557 argument is a throw-expression. */
20558 if (TREE_CODE (expr) == THROW_EXPR)
20559 return expr;
20561 /* Don't wrap an initializer list, we need to be able to look inside. */
20562 if (BRACE_ENCLOSED_INITIALIZER_P (expr))
20563 return expr;
20565 /* Don't wrap a dummy object, we need to be able to test for it. */
20566 if (is_dummy_object (expr))
20567 return expr;
20569 if (TREE_CODE (expr) == COND_EXPR)
20570 return build3 (COND_EXPR,
20571 TREE_TYPE (expr),
20572 TREE_OPERAND (expr, 0),
20573 (TREE_OPERAND (expr, 1)
20574 ? build_non_dependent_expr (TREE_OPERAND (expr, 1))
20575 : build_non_dependent_expr (TREE_OPERAND (expr, 0))),
20576 build_non_dependent_expr (TREE_OPERAND (expr, 2)));
20577 if (TREE_CODE (expr) == COMPOUND_EXPR
20578 && !COMPOUND_EXPR_OVERLOADED (expr))
20579 return build2 (COMPOUND_EXPR,
20580 TREE_TYPE (expr),
20581 TREE_OPERAND (expr, 0),
20582 build_non_dependent_expr (TREE_OPERAND (expr, 1)));
20584 /* If the type is unknown, it can't really be non-dependent */
20585 gcc_assert (TREE_TYPE (expr) != unknown_type_node);
20587 /* Otherwise, build a NON_DEPENDENT_EXPR. */
20588 return build1 (NON_DEPENDENT_EXPR, TREE_TYPE (expr), expr);
20591 /* ARGS is a vector of expressions as arguments to a function call.
20592 Replace the arguments with equivalent non-dependent expressions.
20593 This modifies ARGS in place. */
20595 void
20596 make_args_non_dependent (vec<tree, va_gc> *args)
20598 unsigned int ix;
20599 tree arg;
20601 FOR_EACH_VEC_SAFE_ELT (args, ix, arg)
20603 tree newarg = build_non_dependent_expr (arg);
20604 if (newarg != arg)
20605 (*args)[ix] = newarg;
20609 /* Returns a type which represents 'auto'. We use a TEMPLATE_TYPE_PARM
20610 with a level one deeper than the actual template parms. */
20612 tree
20613 make_auto (void)
20615 tree au = cxx_make_type (TEMPLATE_TYPE_PARM);
20616 TYPE_NAME (au) = build_decl (BUILTINS_LOCATION,
20617 TYPE_DECL, get_identifier ("auto"), au);
20618 TYPE_STUB_DECL (au) = TYPE_NAME (au);
20619 TEMPLATE_TYPE_PARM_INDEX (au) = build_template_parm_index
20620 (0, processing_template_decl + 1, processing_template_decl + 1,
20621 TYPE_NAME (au), NULL_TREE);
20622 TYPE_CANONICAL (au) = canonical_type_parameter (au);
20623 DECL_ARTIFICIAL (TYPE_NAME (au)) = 1;
20624 SET_DECL_TEMPLATE_PARM_P (TYPE_NAME (au));
20626 return au;
20629 /* Given type ARG, return std::initializer_list<ARG>. */
20631 static tree
20632 listify (tree arg)
20634 tree std_init_list = namespace_binding
20635 (get_identifier ("initializer_list"), std_node);
20636 tree argvec;
20637 if (!std_init_list || !DECL_CLASS_TEMPLATE_P (std_init_list))
20639 error ("deducing from brace-enclosed initializer list requires "
20640 "#include <initializer_list>");
20641 return error_mark_node;
20643 argvec = make_tree_vec (1);
20644 TREE_VEC_ELT (argvec, 0) = arg;
20645 return lookup_template_class (std_init_list, argvec, NULL_TREE,
20646 NULL_TREE, 0, tf_warning_or_error);
20649 /* Replace auto in TYPE with std::initializer_list<auto>. */
20651 static tree
20652 listify_autos (tree type, tree auto_node)
20654 tree init_auto = listify (auto_node);
20655 tree argvec = make_tree_vec (1);
20656 TREE_VEC_ELT (argvec, 0) = init_auto;
20657 if (processing_template_decl)
20658 argvec = add_to_template_args (current_template_args (), argvec);
20659 return tsubst (type, argvec, tf_warning_or_error, NULL_TREE);
20662 /* Replace occurrences of 'auto' in TYPE with the appropriate type deduced
20663 from INIT. AUTO_NODE is the TEMPLATE_TYPE_PARM used for 'auto' in TYPE. */
20665 tree
20666 do_auto_deduction (tree type, tree init, tree auto_node)
20668 tree parms, tparms, targs;
20669 tree args[1];
20670 int val;
20672 if (init == error_mark_node)
20673 return error_mark_node;
20675 if (type_dependent_expression_p (init))
20676 /* Defining a subset of type-dependent expressions that we can deduce
20677 from ahead of time isn't worth the trouble. */
20678 return type;
20680 /* [dcl.spec.auto]: Obtain P from T by replacing the occurrences of auto
20681 with either a new invented type template parameter U or, if the
20682 initializer is a braced-init-list (8.5.4), with
20683 std::initializer_list<U>. */
20684 if (BRACE_ENCLOSED_INITIALIZER_P (init))
20685 type = listify_autos (type, auto_node);
20687 init = resolve_nondeduced_context (init);
20689 parms = build_tree_list (NULL_TREE, type);
20690 args[0] = init;
20691 tparms = make_tree_vec (1);
20692 targs = make_tree_vec (1);
20693 TREE_VEC_ELT (tparms, 0)
20694 = build_tree_list (NULL_TREE, TYPE_NAME (auto_node));
20695 val = type_unification_real (tparms, targs, parms, args, 1, 0,
20696 DEDUCE_CALL, LOOKUP_NORMAL,
20697 NULL, /*explain_p=*/false);
20698 if (val > 0)
20700 if (processing_template_decl)
20701 /* Try again at instantiation time. */
20702 return type;
20703 if (type && type != error_mark_node)
20704 /* If type is error_mark_node a diagnostic must have been
20705 emitted by now. Also, having a mention to '<type error>'
20706 in the diagnostic is not really useful to the user. */
20708 if (cfun && auto_node == current_function_auto_return_pattern
20709 && LAMBDA_FUNCTION_P (current_function_decl))
20710 error ("unable to deduce lambda return type from %qE", init);
20711 else
20712 error ("unable to deduce %qT from %qE", type, init);
20714 return error_mark_node;
20717 /* If the list of declarators contains more than one declarator, the type
20718 of each declared variable is determined as described above. If the
20719 type deduced for the template parameter U is not the same in each
20720 deduction, the program is ill-formed. */
20721 if (TREE_TYPE (auto_node)
20722 && !same_type_p (TREE_TYPE (auto_node), TREE_VEC_ELT (targs, 0)))
20724 if (cfun && auto_node == current_function_auto_return_pattern
20725 && LAMBDA_FUNCTION_P (current_function_decl))
20726 error ("inconsistent types %qT and %qT deduced for "
20727 "lambda return type", TREE_TYPE (auto_node),
20728 TREE_VEC_ELT (targs, 0));
20729 else
20730 error ("inconsistent deduction for %qT: %qT and then %qT",
20731 auto_node, TREE_TYPE (auto_node), TREE_VEC_ELT (targs, 0));
20732 return error_mark_node;
20734 TREE_TYPE (auto_node) = TREE_VEC_ELT (targs, 0);
20736 if (processing_template_decl)
20737 targs = add_to_template_args (current_template_args (), targs);
20738 return tsubst (type, targs, tf_warning_or_error, NULL_TREE);
20741 /* Substitutes LATE_RETURN_TYPE for 'auto' in TYPE and returns the
20742 result. */
20744 tree
20745 splice_late_return_type (tree type, tree late_return_type)
20747 tree argvec;
20749 if (late_return_type == NULL_TREE)
20750 return type;
20751 argvec = make_tree_vec (1);
20752 TREE_VEC_ELT (argvec, 0) = late_return_type;
20753 if (processing_template_parmlist)
20754 /* For a late-specified return type in a template type-parameter, we
20755 need to add a dummy argument level for its parmlist. */
20756 argvec = add_to_template_args
20757 (make_tree_vec (processing_template_parmlist), argvec);
20758 if (current_template_parms)
20759 argvec = add_to_template_args (current_template_args (), argvec);
20760 return tsubst (type, argvec, tf_warning_or_error, NULL_TREE);
20763 /* Returns true iff TYPE is a TEMPLATE_TYPE_PARM representing 'auto'. */
20765 bool
20766 is_auto (const_tree type)
20768 if (TREE_CODE (type) == TEMPLATE_TYPE_PARM
20769 && TYPE_IDENTIFIER (type) == get_identifier ("auto"))
20770 return true;
20771 else
20772 return false;
20775 /* Returns true iff TYPE contains a use of 'auto'. Since auto can only
20776 appear as a type-specifier for the declaration in question, we don't
20777 have to look through the whole type. */
20779 tree
20780 type_uses_auto (tree type)
20782 enum tree_code code;
20783 if (is_auto (type))
20784 return type;
20786 code = TREE_CODE (type);
20788 if (code == POINTER_TYPE || code == REFERENCE_TYPE
20789 || code == OFFSET_TYPE || code == FUNCTION_TYPE
20790 || code == METHOD_TYPE || code == ARRAY_TYPE)
20791 return type_uses_auto (TREE_TYPE (type));
20793 if (TYPE_PTRMEMFUNC_P (type))
20794 return type_uses_auto (TREE_TYPE (TREE_TYPE
20795 (TYPE_PTRMEMFUNC_FN_TYPE (type))));
20797 return NULL_TREE;
20800 /* For a given template T, return the vector of typedefs referenced
20801 in T for which access check is needed at T instantiation time.
20802 T is either a FUNCTION_DECL or a RECORD_TYPE.
20803 Those typedefs were added to T by the function
20804 append_type_to_template_for_access_check. */
20806 vec<qualified_typedef_usage_t, va_gc> *
20807 get_types_needing_access_check (tree t)
20809 tree ti;
20810 vec<qualified_typedef_usage_t, va_gc> *result = NULL;
20812 if (!t || t == error_mark_node)
20813 return NULL;
20815 if (!(ti = get_template_info (t)))
20816 return NULL;
20818 if (CLASS_TYPE_P (t)
20819 || TREE_CODE (t) == FUNCTION_DECL)
20821 if (!TI_TEMPLATE (ti))
20822 return NULL;
20824 result = TI_TYPEDEFS_NEEDING_ACCESS_CHECKING (ti);
20827 return result;
20830 /* Append the typedef TYPE_DECL used in template T to a list of typedefs
20831 tied to T. That list of typedefs will be access checked at
20832 T instantiation time.
20833 T is either a FUNCTION_DECL or a RECORD_TYPE.
20834 TYPE_DECL is a TYPE_DECL node representing a typedef.
20835 SCOPE is the scope through which TYPE_DECL is accessed.
20836 LOCATION is the location of the usage point of TYPE_DECL.
20838 This function is a subroutine of
20839 append_type_to_template_for_access_check. */
20841 static void
20842 append_type_to_template_for_access_check_1 (tree t,
20843 tree type_decl,
20844 tree scope,
20845 location_t location)
20847 qualified_typedef_usage_t typedef_usage;
20848 tree ti;
20850 if (!t || t == error_mark_node)
20851 return;
20853 gcc_assert ((TREE_CODE (t) == FUNCTION_DECL
20854 || CLASS_TYPE_P (t))
20855 && type_decl
20856 && TREE_CODE (type_decl) == TYPE_DECL
20857 && scope);
20859 if (!(ti = get_template_info (t)))
20860 return;
20862 gcc_assert (TI_TEMPLATE (ti));
20864 typedef_usage.typedef_decl = type_decl;
20865 typedef_usage.context = scope;
20866 typedef_usage.locus = location;
20868 vec_safe_push (TI_TYPEDEFS_NEEDING_ACCESS_CHECKING (ti), typedef_usage);
20871 /* Append TYPE_DECL to the template TEMPL.
20872 TEMPL is either a class type, a FUNCTION_DECL or a a TEMPLATE_DECL.
20873 At TEMPL instanciation time, TYPE_DECL will be checked to see
20874 if it can be accessed through SCOPE.
20875 LOCATION is the location of the usage point of TYPE_DECL.
20877 e.g. consider the following code snippet:
20879 class C
20881 typedef int myint;
20884 template<class U> struct S
20886 C::myint mi; // <-- usage point of the typedef C::myint
20889 S<char> s;
20891 At S<char> instantiation time, we need to check the access of C::myint
20892 In other words, we need to check the access of the myint typedef through
20893 the C scope. For that purpose, this function will add the myint typedef
20894 and the scope C through which its being accessed to a list of typedefs
20895 tied to the template S. That list will be walked at template instantiation
20896 time and access check performed on each typedefs it contains.
20897 Note that this particular code snippet should yield an error because
20898 myint is private to C. */
20900 void
20901 append_type_to_template_for_access_check (tree templ,
20902 tree type_decl,
20903 tree scope,
20904 location_t location)
20906 qualified_typedef_usage_t *iter;
20907 unsigned i;
20909 gcc_assert (type_decl && (TREE_CODE (type_decl) == TYPE_DECL));
20911 /* Make sure we don't append the type to the template twice. */
20912 FOR_EACH_VEC_SAFE_ELT (get_types_needing_access_check (templ), i, iter)
20913 if (iter->typedef_decl == type_decl && scope == iter->context)
20914 return;
20916 append_type_to_template_for_access_check_1 (templ, type_decl,
20917 scope, location);
20920 /* Set up the hash tables for template instantiations. */
20922 void
20923 init_template_processing (void)
20925 decl_specializations = htab_create_ggc (37,
20926 hash_specialization,
20927 eq_specializations,
20928 ggc_free);
20929 type_specializations = htab_create_ggc (37,
20930 hash_specialization,
20931 eq_specializations,
20932 ggc_free);
20935 /* Print stats about the template hash tables for -fstats. */
20937 void
20938 print_template_statistics (void)
20940 fprintf (stderr, "decl_specializations: size %ld, %ld elements, "
20941 "%f collisions\n", (long) htab_size (decl_specializations),
20942 (long) htab_elements (decl_specializations),
20943 htab_collisions (decl_specializations));
20944 fprintf (stderr, "type_specializations: size %ld, %ld elements, "
20945 "%f collisions\n", (long) htab_size (type_specializations),
20946 (long) htab_elements (type_specializations),
20947 htab_collisions (type_specializations));
20950 #include "gt-cp-pt.h"