2015-06-23 Paolo Carlini <paolo.carlini@oracle.com>
[official-gcc.git] / gcc / cp / pt.c
blob8800af819ec7ffde1ccc8453effc8b50a7857bec
1 /* Handle parameterized types (templates) for GNU -*- C++ -*-.
2 Copyright (C) 1992-2015 Free Software Foundation, Inc.
3 Written by Ken Raeburn (raeburn@cygnus.com) while at Watchmaker Computing.
4 Rewritten by Jason Merrill (jason@cygnus.com).
6 This file is part of GCC.
8 GCC is free software; you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation; either version 3, or (at your option)
11 any later version.
13 GCC is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with GCC; see the file COPYING3. If not see
20 <http://www.gnu.org/licenses/>. */
22 /* Known bugs or deficiencies include:
24 all methods must be provided in header files; can't use a source
25 file that contains only the method templates and "just win". */
27 #include "config.h"
28 #include "system.h"
29 #include "coretypes.h"
30 #include "tm.h"
31 #include "alias.h"
32 #include "symtab.h"
33 #include "tree.h"
34 #include "stringpool.h"
35 #include "varasm.h"
36 #include "attribs.h"
37 #include "stor-layout.h"
38 #include "intl.h"
39 #include "flags.h"
40 #include "cp-tree.h"
41 #include "c-family/c-common.h"
42 #include "c-family/c-objc.h"
43 #include "cp-objcp-common.h"
44 #include "tree-inline.h"
45 #include "decl.h"
46 #include "toplev.h"
47 #include "timevar.h"
48 #include "tree-iterator.h"
49 #include "type-utils.h"
50 #include "gimplify.h"
52 /* The type of functions taking a tree, and some additional data, and
53 returning an int. */
54 typedef int (*tree_fn_t) (tree, void*);
56 /* The PENDING_TEMPLATES is a TREE_LIST of templates whose
57 instantiations have been deferred, either because their definitions
58 were not yet available, or because we were putting off doing the work. */
59 struct GTY ((chain_next ("%h.next"))) pending_template {
60 struct pending_template *next;
61 struct tinst_level *tinst;
64 static GTY(()) struct pending_template *pending_templates;
65 static GTY(()) struct pending_template *last_pending_template;
67 int processing_template_parmlist;
68 static int template_header_count;
70 static GTY(()) tree saved_trees;
71 static vec<int> inline_parm_levels;
73 static GTY(()) struct tinst_level *current_tinst_level;
75 static GTY(()) tree saved_access_scope;
77 /* Live only within one (recursive) call to tsubst_expr. We use
78 this to pass the statement expression node from the STMT_EXPR
79 to the EXPR_STMT that is its result. */
80 static tree cur_stmt_expr;
82 /* True if we've recursed into fn_type_unification too many times. */
83 static bool excessive_deduction_depth;
85 struct GTY((for_user)) spec_entry
87 tree tmpl;
88 tree args;
89 tree spec;
92 struct spec_hasher : ggc_hasher<spec_entry *>
94 static hashval_t hash (spec_entry *);
95 static bool equal (spec_entry *, spec_entry *);
98 static GTY (()) hash_table<spec_hasher> *decl_specializations;
100 static GTY (()) hash_table<spec_hasher> *type_specializations;
102 /* Contains canonical template parameter types. The vector is indexed by
103 the TEMPLATE_TYPE_IDX of the template parameter. Each element is a
104 TREE_LIST, whose TREE_VALUEs contain the canonical template
105 parameters of various types and levels. */
106 static GTY(()) vec<tree, va_gc> *canonical_template_parms;
108 #define UNIFY_ALLOW_NONE 0
109 #define UNIFY_ALLOW_MORE_CV_QUAL 1
110 #define UNIFY_ALLOW_LESS_CV_QUAL 2
111 #define UNIFY_ALLOW_DERIVED 4
112 #define UNIFY_ALLOW_INTEGER 8
113 #define UNIFY_ALLOW_OUTER_LEVEL 16
114 #define UNIFY_ALLOW_OUTER_MORE_CV_QUAL 32
115 #define UNIFY_ALLOW_OUTER_LESS_CV_QUAL 64
117 enum template_base_result {
118 tbr_incomplete_type,
119 tbr_ambiguous_baseclass,
120 tbr_success
123 static void push_access_scope (tree);
124 static void pop_access_scope (tree);
125 static bool resolve_overloaded_unification (tree, tree, tree, tree,
126 unification_kind_t, int,
127 bool);
128 static int try_one_overload (tree, tree, tree, tree, tree,
129 unification_kind_t, int, bool, bool);
130 static int unify (tree, tree, tree, tree, int, bool);
131 static void add_pending_template (tree);
132 static tree reopen_tinst_level (struct tinst_level *);
133 static tree tsubst_initializer_list (tree, tree);
134 static tree get_partial_spec_bindings (tree, tree, tree, tree);
135 static tree coerce_template_parms (tree, tree, tree, tsubst_flags_t,
136 bool, bool);
137 static tree coerce_innermost_template_parms (tree, tree, tree, tsubst_flags_t,
138 bool, bool);
139 static void tsubst_enum (tree, tree, tree);
140 static tree add_to_template_args (tree, tree);
141 static tree add_outermost_template_args (tree, tree);
142 static bool check_instantiated_args (tree, tree, tsubst_flags_t);
143 static int maybe_adjust_types_for_deduction (unification_kind_t, tree*, tree*,
144 tree);
145 static int type_unification_real (tree, tree, tree, const tree *,
146 unsigned int, int, unification_kind_t, int,
147 vec<deferred_access_check, va_gc> **,
148 bool);
149 static void note_template_header (int);
150 static tree convert_nontype_argument_function (tree, tree, tsubst_flags_t);
151 static tree convert_nontype_argument (tree, tree, tsubst_flags_t);
152 static tree convert_template_argument (tree, tree, tree,
153 tsubst_flags_t, int, tree);
154 static int for_each_template_parm (tree, tree_fn_t, void*,
155 hash_set<tree> *, bool);
156 static tree expand_template_argument_pack (tree);
157 static tree build_template_parm_index (int, int, int, tree, tree);
158 static bool inline_needs_template_parms (tree, bool);
159 static void push_inline_template_parms_recursive (tree, int);
160 static tree retrieve_local_specialization (tree);
161 static void register_local_specialization (tree, tree);
162 static tree reduce_template_parm_level (tree, tree, int, tree, tsubst_flags_t);
163 static int mark_template_parm (tree, void *);
164 static int template_parm_this_level_p (tree, void *);
165 static tree tsubst_friend_function (tree, tree);
166 static tree tsubst_friend_class (tree, tree);
167 static int can_complete_type_without_circularity (tree);
168 static tree get_bindings (tree, tree, tree, bool);
169 static int template_decl_level (tree);
170 static int check_cv_quals_for_unify (int, tree, tree);
171 static void template_parm_level_and_index (tree, int*, int*);
172 static int unify_pack_expansion (tree, tree, tree,
173 tree, unification_kind_t, bool, bool);
174 static tree tsubst_template_arg (tree, tree, tsubst_flags_t, tree);
175 static tree tsubst_template_args (tree, tree, tsubst_flags_t, tree);
176 static tree tsubst_template_parms (tree, tree, tsubst_flags_t);
177 static void regenerate_decl_from_template (tree, tree);
178 static tree most_specialized_partial_spec (tree, tsubst_flags_t);
179 static tree tsubst_aggr_type (tree, tree, tsubst_flags_t, tree, int);
180 static tree tsubst_arg_types (tree, tree, tree, tsubst_flags_t, tree);
181 static tree tsubst_function_type (tree, tree, tsubst_flags_t, tree);
182 static bool check_specialization_scope (void);
183 static tree process_partial_specialization (tree);
184 static void set_current_access_from_decl (tree);
185 static enum template_base_result get_template_base (tree, tree, tree, tree,
186 bool , tree *);
187 static tree try_class_unification (tree, tree, tree, tree, bool);
188 static int coerce_template_template_parms (tree, tree, tsubst_flags_t,
189 tree, tree);
190 static bool template_template_parm_bindings_ok_p (tree, tree);
191 static int template_args_equal (tree, tree);
192 static void tsubst_default_arguments (tree, tsubst_flags_t);
193 static tree for_each_template_parm_r (tree *, int *, void *);
194 static tree copy_default_args_to_explicit_spec_1 (tree, tree);
195 static void copy_default_args_to_explicit_spec (tree);
196 static int invalid_nontype_parm_type_p (tree, tsubst_flags_t);
197 static bool dependent_template_arg_p (tree);
198 static bool any_template_arguments_need_structural_equality_p (tree);
199 static bool dependent_type_p_r (tree);
200 static tree tsubst_expr (tree, tree, tsubst_flags_t, tree, bool);
201 static tree tsubst_copy (tree, tree, tsubst_flags_t, tree);
202 static tree tsubst_pack_expansion (tree, tree, tsubst_flags_t, tree);
203 static tree tsubst_decl (tree, tree, tsubst_flags_t);
204 static void perform_typedefs_access_check (tree tmpl, tree targs);
205 static void append_type_to_template_for_access_check_1 (tree, tree, tree,
206 location_t);
207 static tree listify (tree);
208 static tree listify_autos (tree, tree);
209 static tree template_parm_to_arg (tree t);
210 static tree current_template_args (void);
211 static tree tsubst_template_parm (tree, tree, tsubst_flags_t);
212 static tree instantiate_alias_template (tree, tree, tsubst_flags_t);
213 static bool complex_alias_template_p (const_tree tmpl);
215 /* Make the current scope suitable for access checking when we are
216 processing T. T can be FUNCTION_DECL for instantiated function
217 template, VAR_DECL for static member variable, or TYPE_DECL for
218 alias template (needed by instantiate_decl). */
220 static void
221 push_access_scope (tree t)
223 gcc_assert (VAR_OR_FUNCTION_DECL_P (t)
224 || TREE_CODE (t) == TYPE_DECL);
226 if (DECL_FRIEND_CONTEXT (t))
227 push_nested_class (DECL_FRIEND_CONTEXT (t));
228 else if (DECL_CLASS_SCOPE_P (t))
229 push_nested_class (DECL_CONTEXT (t));
230 else
231 push_to_top_level ();
233 if (TREE_CODE (t) == FUNCTION_DECL)
235 saved_access_scope = tree_cons
236 (NULL_TREE, current_function_decl, saved_access_scope);
237 current_function_decl = t;
241 /* Restore the scope set up by push_access_scope. T is the node we
242 are processing. */
244 static void
245 pop_access_scope (tree t)
247 if (TREE_CODE (t) == FUNCTION_DECL)
249 current_function_decl = TREE_VALUE (saved_access_scope);
250 saved_access_scope = TREE_CHAIN (saved_access_scope);
253 if (DECL_FRIEND_CONTEXT (t) || DECL_CLASS_SCOPE_P (t))
254 pop_nested_class ();
255 else
256 pop_from_top_level ();
259 /* Do any processing required when DECL (a member template
260 declaration) is finished. Returns the TEMPLATE_DECL corresponding
261 to DECL, unless it is a specialization, in which case the DECL
262 itself is returned. */
264 tree
265 finish_member_template_decl (tree decl)
267 if (decl == error_mark_node)
268 return error_mark_node;
270 gcc_assert (DECL_P (decl));
272 if (TREE_CODE (decl) == TYPE_DECL)
274 tree type;
276 type = TREE_TYPE (decl);
277 if (type == error_mark_node)
278 return error_mark_node;
279 if (MAYBE_CLASS_TYPE_P (type)
280 && CLASSTYPE_TEMPLATE_INFO (type)
281 && !CLASSTYPE_TEMPLATE_SPECIALIZATION (type))
283 tree tmpl = CLASSTYPE_TI_TEMPLATE (type);
284 check_member_template (tmpl);
285 return tmpl;
287 return NULL_TREE;
289 else if (TREE_CODE (decl) == FIELD_DECL)
290 error ("data member %qD cannot be a member template", decl);
291 else if (DECL_TEMPLATE_INFO (decl))
293 if (!DECL_TEMPLATE_SPECIALIZATION (decl))
295 check_member_template (DECL_TI_TEMPLATE (decl));
296 return DECL_TI_TEMPLATE (decl);
298 else
299 return decl;
301 else
302 error ("invalid member template declaration %qD", decl);
304 return error_mark_node;
307 /* Create a template info node. */
309 tree
310 build_template_info (tree template_decl, tree template_args)
312 tree result = make_node (TEMPLATE_INFO);
313 TI_TEMPLATE (result) = template_decl;
314 TI_ARGS (result) = template_args;
315 return result;
318 /* Return the template info node corresponding to T, whatever T is. */
320 tree
321 get_template_info (const_tree t)
323 tree tinfo = NULL_TREE;
325 if (!t || t == error_mark_node)
326 return NULL;
328 if (TREE_CODE (t) == NAMESPACE_DECL)
329 return NULL;
331 if (DECL_P (t) && DECL_LANG_SPECIFIC (t))
332 tinfo = DECL_TEMPLATE_INFO (t);
334 if (!tinfo && DECL_IMPLICIT_TYPEDEF_P (t))
335 t = TREE_TYPE (t);
337 if (OVERLOAD_TYPE_P (t))
338 tinfo = TYPE_TEMPLATE_INFO (t);
339 else if (TREE_CODE (t) == BOUND_TEMPLATE_TEMPLATE_PARM)
340 tinfo = TEMPLATE_TEMPLATE_PARM_TEMPLATE_INFO (t);
342 return tinfo;
345 /* Returns the template nesting level of the indicated class TYPE.
347 For example, in:
348 template <class T>
349 struct A
351 template <class U>
352 struct B {};
355 A<T>::B<U> has depth two, while A<T> has depth one.
356 Both A<T>::B<int> and A<int>::B<U> have depth one, if
357 they are instantiations, not specializations.
359 This function is guaranteed to return 0 if passed NULL_TREE so
360 that, for example, `template_class_depth (current_class_type)' is
361 always safe. */
364 template_class_depth (tree type)
366 int depth;
368 for (depth = 0;
369 type && TREE_CODE (type) != NAMESPACE_DECL;
370 type = (TREE_CODE (type) == FUNCTION_DECL)
371 ? CP_DECL_CONTEXT (type) : CP_TYPE_CONTEXT (type))
373 tree tinfo = get_template_info (type);
375 if (tinfo && PRIMARY_TEMPLATE_P (TI_TEMPLATE (tinfo))
376 && uses_template_parms (INNERMOST_TEMPLATE_ARGS (TI_ARGS (tinfo))))
377 ++depth;
380 return depth;
383 /* Subroutine of maybe_begin_member_template_processing.
384 Returns true if processing DECL needs us to push template parms. */
386 static bool
387 inline_needs_template_parms (tree decl, bool nsdmi)
389 if (!decl || (!nsdmi && ! DECL_TEMPLATE_INFO (decl)))
390 return false;
392 return (TMPL_PARMS_DEPTH (DECL_TEMPLATE_PARMS (most_general_template (decl)))
393 > (processing_template_decl + DECL_TEMPLATE_SPECIALIZATION (decl)));
396 /* Subroutine of maybe_begin_member_template_processing.
397 Push the template parms in PARMS, starting from LEVELS steps into the
398 chain, and ending at the beginning, since template parms are listed
399 innermost first. */
401 static void
402 push_inline_template_parms_recursive (tree parmlist, int levels)
404 tree parms = TREE_VALUE (parmlist);
405 int i;
407 if (levels > 1)
408 push_inline_template_parms_recursive (TREE_CHAIN (parmlist), levels - 1);
410 ++processing_template_decl;
411 current_template_parms
412 = tree_cons (size_int (processing_template_decl),
413 parms, current_template_parms);
414 TEMPLATE_PARMS_FOR_INLINE (current_template_parms) = 1;
416 begin_scope (TREE_VEC_LENGTH (parms) ? sk_template_parms : sk_template_spec,
417 NULL);
418 for (i = 0; i < TREE_VEC_LENGTH (parms); ++i)
420 tree parm = TREE_VALUE (TREE_VEC_ELT (parms, i));
422 if (error_operand_p (parm))
423 continue;
425 gcc_assert (DECL_P (parm));
427 switch (TREE_CODE (parm))
429 case TYPE_DECL:
430 case TEMPLATE_DECL:
431 pushdecl (parm);
432 break;
434 case PARM_DECL:
436 /* Make a CONST_DECL as is done in process_template_parm.
437 It is ugly that we recreate this here; the original
438 version built in process_template_parm is no longer
439 available. */
440 tree decl = build_decl (DECL_SOURCE_LOCATION (parm),
441 CONST_DECL, DECL_NAME (parm),
442 TREE_TYPE (parm));
443 DECL_ARTIFICIAL (decl) = 1;
444 TREE_CONSTANT (decl) = 1;
445 TREE_READONLY (decl) = 1;
446 DECL_INITIAL (decl) = DECL_INITIAL (parm);
447 SET_DECL_TEMPLATE_PARM_P (decl);
448 pushdecl (decl);
450 break;
452 default:
453 gcc_unreachable ();
458 /* Restore the template parameter context for a member template, a
459 friend template defined in a class definition, or a non-template
460 member of template class. */
462 void
463 maybe_begin_member_template_processing (tree decl)
465 tree parms;
466 int levels = 0;
467 bool nsdmi = TREE_CODE (decl) == FIELD_DECL;
469 if (nsdmi)
471 tree ctx = DECL_CONTEXT (decl);
472 decl = (CLASSTYPE_TEMPLATE_INFO (ctx)
473 /* Disregard full specializations (c++/60999). */
474 && uses_template_parms (ctx)
475 ? CLASSTYPE_TI_TEMPLATE (ctx) : NULL_TREE);
478 if (inline_needs_template_parms (decl, nsdmi))
480 parms = DECL_TEMPLATE_PARMS (most_general_template (decl));
481 levels = TMPL_PARMS_DEPTH (parms) - processing_template_decl;
483 if (DECL_TEMPLATE_SPECIALIZATION (decl))
485 --levels;
486 parms = TREE_CHAIN (parms);
489 push_inline_template_parms_recursive (parms, levels);
492 /* Remember how many levels of template parameters we pushed so that
493 we can pop them later. */
494 inline_parm_levels.safe_push (levels);
497 /* Undo the effects of maybe_begin_member_template_processing. */
499 void
500 maybe_end_member_template_processing (void)
502 int i;
503 int last;
505 if (inline_parm_levels.length () == 0)
506 return;
508 last = inline_parm_levels.pop ();
509 for (i = 0; i < last; ++i)
511 --processing_template_decl;
512 current_template_parms = TREE_CHAIN (current_template_parms);
513 poplevel (0, 0, 0);
517 /* Return a new template argument vector which contains all of ARGS,
518 but has as its innermost set of arguments the EXTRA_ARGS. */
520 static tree
521 add_to_template_args (tree args, tree extra_args)
523 tree new_args;
524 int extra_depth;
525 int i;
526 int j;
528 if (args == NULL_TREE || extra_args == error_mark_node)
529 return extra_args;
531 extra_depth = TMPL_ARGS_DEPTH (extra_args);
532 new_args = make_tree_vec (TMPL_ARGS_DEPTH (args) + extra_depth);
534 for (i = 1; i <= TMPL_ARGS_DEPTH (args); ++i)
535 SET_TMPL_ARGS_LEVEL (new_args, i, TMPL_ARGS_LEVEL (args, i));
537 for (j = 1; j <= extra_depth; ++j, ++i)
538 SET_TMPL_ARGS_LEVEL (new_args, i, TMPL_ARGS_LEVEL (extra_args, j));
540 return new_args;
543 /* Like add_to_template_args, but only the outermost ARGS are added to
544 the EXTRA_ARGS. In particular, all but TMPL_ARGS_DEPTH
545 (EXTRA_ARGS) levels are added. This function is used to combine
546 the template arguments from a partial instantiation with the
547 template arguments used to attain the full instantiation from the
548 partial instantiation. */
550 static tree
551 add_outermost_template_args (tree args, tree extra_args)
553 tree new_args;
555 /* If there are more levels of EXTRA_ARGS than there are ARGS,
556 something very fishy is going on. */
557 gcc_assert (TMPL_ARGS_DEPTH (args) >= TMPL_ARGS_DEPTH (extra_args));
559 /* If *all* the new arguments will be the EXTRA_ARGS, just return
560 them. */
561 if (TMPL_ARGS_DEPTH (args) == TMPL_ARGS_DEPTH (extra_args))
562 return extra_args;
564 /* For the moment, we make ARGS look like it contains fewer levels. */
565 TREE_VEC_LENGTH (args) -= TMPL_ARGS_DEPTH (extra_args);
567 new_args = add_to_template_args (args, extra_args);
569 /* Now, we restore ARGS to its full dimensions. */
570 TREE_VEC_LENGTH (args) += TMPL_ARGS_DEPTH (extra_args);
572 return new_args;
575 /* Return the N levels of innermost template arguments from the ARGS. */
577 tree
578 get_innermost_template_args (tree args, int n)
580 tree new_args;
581 int extra_levels;
582 int i;
584 gcc_assert (n >= 0);
586 /* If N is 1, just return the innermost set of template arguments. */
587 if (n == 1)
588 return TMPL_ARGS_LEVEL (args, TMPL_ARGS_DEPTH (args));
590 /* If we're not removing anything, just return the arguments we were
591 given. */
592 extra_levels = TMPL_ARGS_DEPTH (args) - n;
593 gcc_assert (extra_levels >= 0);
594 if (extra_levels == 0)
595 return args;
597 /* Make a new set of arguments, not containing the outer arguments. */
598 new_args = make_tree_vec (n);
599 for (i = 1; i <= n; ++i)
600 SET_TMPL_ARGS_LEVEL (new_args, i,
601 TMPL_ARGS_LEVEL (args, i + extra_levels));
603 return new_args;
606 /* The inverse of get_innermost_template_args: Return all but the innermost
607 EXTRA_LEVELS levels of template arguments from the ARGS. */
609 static tree
610 strip_innermost_template_args (tree args, int extra_levels)
612 tree new_args;
613 int n = TMPL_ARGS_DEPTH (args) - extra_levels;
614 int i;
616 gcc_assert (n >= 0);
618 /* If N is 1, just return the outermost set of template arguments. */
619 if (n == 1)
620 return TMPL_ARGS_LEVEL (args, 1);
622 /* If we're not removing anything, just return the arguments we were
623 given. */
624 gcc_assert (extra_levels >= 0);
625 if (extra_levels == 0)
626 return args;
628 /* Make a new set of arguments, not containing the inner arguments. */
629 new_args = make_tree_vec (n);
630 for (i = 1; i <= n; ++i)
631 SET_TMPL_ARGS_LEVEL (new_args, i,
632 TMPL_ARGS_LEVEL (args, i));
634 return new_args;
637 /* We've got a template header coming up; push to a new level for storing
638 the parms. */
640 void
641 begin_template_parm_list (void)
643 /* We use a non-tag-transparent scope here, which causes pushtag to
644 put tags in this scope, rather than in the enclosing class or
645 namespace scope. This is the right thing, since we want
646 TEMPLATE_DECLS, and not TYPE_DECLS for template classes. For a
647 global template class, push_template_decl handles putting the
648 TEMPLATE_DECL into top-level scope. For a nested template class,
649 e.g.:
651 template <class T> struct S1 {
652 template <class T> struct S2 {};
655 pushtag contains special code to call pushdecl_with_scope on the
656 TEMPLATE_DECL for S2. */
657 begin_scope (sk_template_parms, NULL);
658 ++processing_template_decl;
659 ++processing_template_parmlist;
660 note_template_header (0);
663 /* This routine is called when a specialization is declared. If it is
664 invalid to declare a specialization here, an error is reported and
665 false is returned, otherwise this routine will return true. */
667 static bool
668 check_specialization_scope (void)
670 tree scope = current_scope ();
672 /* [temp.expl.spec]
674 An explicit specialization shall be declared in the namespace of
675 which the template is a member, or, for member templates, in the
676 namespace of which the enclosing class or enclosing class
677 template is a member. An explicit specialization of a member
678 function, member class or static data member of a class template
679 shall be declared in the namespace of which the class template
680 is a member. */
681 if (scope && TREE_CODE (scope) != NAMESPACE_DECL)
683 error ("explicit specialization in non-namespace scope %qD", scope);
684 return false;
687 /* [temp.expl.spec]
689 In an explicit specialization declaration for a member of a class
690 template or a member template that appears in namespace scope,
691 the member template and some of its enclosing class templates may
692 remain unspecialized, except that the declaration shall not
693 explicitly specialize a class member template if its enclosing
694 class templates are not explicitly specialized as well. */
695 if (current_template_parms)
697 error ("enclosing class templates are not explicitly specialized");
698 return false;
701 return true;
704 /* We've just seen template <>. */
706 bool
707 begin_specialization (void)
709 begin_scope (sk_template_spec, NULL);
710 note_template_header (1);
711 return check_specialization_scope ();
714 /* Called at then end of processing a declaration preceded by
715 template<>. */
717 void
718 end_specialization (void)
720 finish_scope ();
721 reset_specialization ();
724 /* Any template <>'s that we have seen thus far are not referring to a
725 function specialization. */
727 void
728 reset_specialization (void)
730 processing_specialization = 0;
731 template_header_count = 0;
734 /* We've just seen a template header. If SPECIALIZATION is nonzero,
735 it was of the form template <>. */
737 static void
738 note_template_header (int specialization)
740 processing_specialization = specialization;
741 template_header_count++;
744 /* We're beginning an explicit instantiation. */
746 void
747 begin_explicit_instantiation (void)
749 gcc_assert (!processing_explicit_instantiation);
750 processing_explicit_instantiation = true;
754 void
755 end_explicit_instantiation (void)
757 gcc_assert (processing_explicit_instantiation);
758 processing_explicit_instantiation = false;
761 /* An explicit specialization or partial specialization of TMPL is being
762 declared. Check that the namespace in which the specialization is
763 occurring is permissible. Returns false iff it is invalid to
764 specialize TMPL in the current namespace. */
766 static bool
767 check_specialization_namespace (tree tmpl)
769 tree tpl_ns = decl_namespace_context (tmpl);
771 /* [tmpl.expl.spec]
773 An explicit specialization shall be declared in the namespace of
774 which the template is a member, or, for member templates, in the
775 namespace of which the enclosing class or enclosing class
776 template is a member. An explicit specialization of a member
777 function, member class or static data member of a class template
778 shall be declared in the namespace of which the class template is
779 a member. */
780 if (current_scope() != DECL_CONTEXT (tmpl)
781 && !at_namespace_scope_p ())
783 error ("specialization of %qD must appear at namespace scope", tmpl);
784 return false;
786 if (is_associated_namespace (current_namespace, tpl_ns))
787 /* Same or super-using namespace. */
788 return true;
789 else
791 permerror (input_location, "specialization of %qD in different namespace", tmpl);
792 permerror (input_location, " from definition of %q+#D", tmpl);
793 return false;
797 /* SPEC is an explicit instantiation. Check that it is valid to
798 perform this explicit instantiation in the current namespace. */
800 static void
801 check_explicit_instantiation_namespace (tree spec)
803 tree ns;
805 /* DR 275: An explicit instantiation shall appear in an enclosing
806 namespace of its template. */
807 ns = decl_namespace_context (spec);
808 if (!is_ancestor (current_namespace, ns))
809 permerror (input_location, "explicit instantiation of %qD in namespace %qD "
810 "(which does not enclose namespace %qD)",
811 spec, current_namespace, ns);
814 /* The TYPE is being declared. If it is a template type, that means it
815 is a partial specialization. Do appropriate error-checking. */
817 tree
818 maybe_process_partial_specialization (tree type)
820 tree context;
822 if (type == error_mark_node)
823 return error_mark_node;
825 /* A lambda that appears in specialization context is not itself a
826 specialization. */
827 if (CLASS_TYPE_P (type) && CLASSTYPE_LAMBDA_EXPR (type))
828 return type;
830 if (TREE_CODE (type) == BOUND_TEMPLATE_TEMPLATE_PARM)
832 error ("name of class shadows template template parameter %qD",
833 TYPE_NAME (type));
834 return error_mark_node;
837 context = TYPE_CONTEXT (type);
839 if (TYPE_ALIAS_P (type))
841 if (TYPE_TEMPLATE_INFO (type)
842 && DECL_ALIAS_TEMPLATE_P (TYPE_TI_TEMPLATE (type)))
843 error ("specialization of alias template %qD",
844 TYPE_TI_TEMPLATE (type));
845 else
846 error ("explicit specialization of non-template %qT", type);
847 return error_mark_node;
849 else if (CLASS_TYPE_P (type) && CLASSTYPE_USE_TEMPLATE (type))
851 /* This is for ordinary explicit specialization and partial
852 specialization of a template class such as:
854 template <> class C<int>;
858 template <class T> class C<T*>;
860 Make sure that `C<int>' and `C<T*>' are implicit instantiations. */
862 if (CLASSTYPE_IMPLICIT_INSTANTIATION (type)
863 && !COMPLETE_TYPE_P (type))
865 if (!check_specialization_namespace (CLASSTYPE_TI_TEMPLATE (type))
866 && !at_namespace_scope_p ())
867 return error_mark_node;
868 SET_CLASSTYPE_TEMPLATE_SPECIALIZATION (type);
869 DECL_SOURCE_LOCATION (TYPE_MAIN_DECL (type)) = input_location;
870 if (processing_template_decl)
872 if (push_template_decl (TYPE_MAIN_DECL (type))
873 == error_mark_node)
874 return error_mark_node;
877 else if (CLASSTYPE_TEMPLATE_INSTANTIATION (type))
878 error ("specialization of %qT after instantiation", type);
879 else if (errorcount && !processing_specialization
880 && CLASSTYPE_TEMPLATE_SPECIALIZATION (type)
881 && !uses_template_parms (CLASSTYPE_TI_ARGS (type)))
882 /* Trying to define a specialization either without a template<> header
883 or in an inappropriate place. We've already given an error, so just
884 bail now so we don't actually define the specialization. */
885 return error_mark_node;
887 else if (CLASS_TYPE_P (type)
888 && !CLASSTYPE_USE_TEMPLATE (type)
889 && CLASSTYPE_TEMPLATE_INFO (type)
890 && context && CLASS_TYPE_P (context)
891 && CLASSTYPE_TEMPLATE_INFO (context))
893 /* This is for an explicit specialization of member class
894 template according to [temp.expl.spec/18]:
896 template <> template <class U> class C<int>::D;
898 The context `C<int>' must be an implicit instantiation.
899 Otherwise this is just a member class template declared
900 earlier like:
902 template <> class C<int> { template <class U> class D; };
903 template <> template <class U> class C<int>::D;
905 In the first case, `C<int>::D' is a specialization of `C<T>::D'
906 while in the second case, `C<int>::D' is a primary template
907 and `C<T>::D' may not exist. */
909 if (CLASSTYPE_IMPLICIT_INSTANTIATION (context)
910 && !COMPLETE_TYPE_P (type))
912 tree t;
913 tree tmpl = CLASSTYPE_TI_TEMPLATE (type);
915 if (current_namespace
916 != decl_namespace_context (tmpl))
918 permerror (input_location, "specializing %q#T in different namespace", type);
919 permerror (input_location, " from definition of %q+#D", tmpl);
922 /* Check for invalid specialization after instantiation:
924 template <> template <> class C<int>::D<int>;
925 template <> template <class U> class C<int>::D; */
927 for (t = DECL_TEMPLATE_INSTANTIATIONS (tmpl);
928 t; t = TREE_CHAIN (t))
930 tree inst = TREE_VALUE (t);
931 if (CLASSTYPE_TEMPLATE_SPECIALIZATION (inst)
932 || !COMPLETE_OR_OPEN_TYPE_P (inst))
934 /* We already have a full specialization of this partial
935 instantiation, or a full specialization has been
936 looked up but not instantiated. Reassign it to the
937 new member specialization template. */
938 spec_entry elt;
939 spec_entry *entry;
941 elt.tmpl = most_general_template (tmpl);
942 elt.args = CLASSTYPE_TI_ARGS (inst);
943 elt.spec = inst;
945 type_specializations->remove_elt (&elt);
947 elt.tmpl = tmpl;
948 elt.args = INNERMOST_TEMPLATE_ARGS (elt.args);
950 spec_entry **slot
951 = type_specializations->find_slot (&elt, INSERT);
952 entry = ggc_alloc<spec_entry> ();
953 *entry = elt;
954 *slot = entry;
956 else
957 /* But if we've had an implicit instantiation, that's a
958 problem ([temp.expl.spec]/6). */
959 error ("specialization %qT after instantiation %qT",
960 type, inst);
963 /* Mark TYPE as a specialization. And as a result, we only
964 have one level of template argument for the innermost
965 class template. */
966 SET_CLASSTYPE_TEMPLATE_SPECIALIZATION (type);
967 DECL_SOURCE_LOCATION (TYPE_MAIN_DECL (type)) = input_location;
968 CLASSTYPE_TI_ARGS (type)
969 = INNERMOST_TEMPLATE_ARGS (CLASSTYPE_TI_ARGS (type));
972 else if (processing_specialization)
974 /* Someday C++0x may allow for enum template specialization. */
975 if (cxx_dialect > cxx98 && TREE_CODE (type) == ENUMERAL_TYPE
976 && CLASS_TYPE_P (context) && CLASSTYPE_USE_TEMPLATE (context))
977 pedwarn (input_location, OPT_Wpedantic, "template specialization "
978 "of %qD not allowed by ISO C++", type);
979 else
981 error ("explicit specialization of non-template %qT", type);
982 return error_mark_node;
986 return type;
989 /* Returns nonzero if we can optimize the retrieval of specializations
990 for TMPL, a TEMPLATE_DECL. In particular, for such a template, we
991 do not use DECL_TEMPLATE_SPECIALIZATIONS at all. */
993 static inline bool
994 optimize_specialization_lookup_p (tree tmpl)
996 return (DECL_FUNCTION_TEMPLATE_P (tmpl)
997 && DECL_CLASS_SCOPE_P (tmpl)
998 /* DECL_CLASS_SCOPE_P holds of T::f even if T is a template
999 parameter. */
1000 && CLASS_TYPE_P (DECL_CONTEXT (tmpl))
1001 /* The optimized lookup depends on the fact that the
1002 template arguments for the member function template apply
1003 purely to the containing class, which is not true if the
1004 containing class is an explicit or partial
1005 specialization. */
1006 && !CLASSTYPE_TEMPLATE_SPECIALIZATION (DECL_CONTEXT (tmpl))
1007 && !DECL_MEMBER_TEMPLATE_P (tmpl)
1008 && !DECL_CONV_FN_P (tmpl)
1009 /* It is possible to have a template that is not a member
1010 template and is not a member of a template class:
1012 template <typename T>
1013 struct S { friend A::f(); };
1015 Here, the friend function is a template, but the context does
1016 not have template information. The optimized lookup relies
1017 on having ARGS be the template arguments for both the class
1018 and the function template. */
1019 && !DECL_FRIEND_P (DECL_TEMPLATE_RESULT (tmpl)));
1022 /* Retrieve the specialization (in the sense of [temp.spec] - a
1023 specialization is either an instantiation or an explicit
1024 specialization) of TMPL for the given template ARGS. If there is
1025 no such specialization, return NULL_TREE. The ARGS are a vector of
1026 arguments, or a vector of vectors of arguments, in the case of
1027 templates with more than one level of parameters.
1029 If TMPL is a type template and CLASS_SPECIALIZATIONS_P is true,
1030 then we search for a partial specialization matching ARGS. This
1031 parameter is ignored if TMPL is not a class template.
1033 We can also look up a FIELD_DECL, if it is a lambda capture pack; the
1034 result is a NONTYPE_ARGUMENT_PACK. */
1036 static tree
1037 retrieve_specialization (tree tmpl, tree args, hashval_t hash)
1039 if (tmpl == NULL_TREE)
1040 return NULL_TREE;
1042 if (args == error_mark_node)
1043 return NULL_TREE;
1045 gcc_assert (TREE_CODE (tmpl) == TEMPLATE_DECL
1046 || TREE_CODE (tmpl) == FIELD_DECL);
1048 /* There should be as many levels of arguments as there are
1049 levels of parameters. */
1050 gcc_assert (TMPL_ARGS_DEPTH (args)
1051 == (TREE_CODE (tmpl) == TEMPLATE_DECL
1052 ? TMPL_PARMS_DEPTH (DECL_TEMPLATE_PARMS (tmpl))
1053 : template_class_depth (DECL_CONTEXT (tmpl))));
1055 #ifdef ENABLE_CHECKING
1056 /* We should have gone through coerce_template_parms by now. */
1057 ++processing_template_decl;
1058 if (!any_dependent_template_arguments_p (args))
1059 gcc_assert (strip_typedefs_expr (args, NULL) == args);
1060 --processing_template_decl;
1061 #endif
1063 if (optimize_specialization_lookup_p (tmpl))
1065 tree class_template;
1066 tree class_specialization;
1067 vec<tree, va_gc> *methods;
1068 tree fns;
1069 int idx;
1071 /* The template arguments actually apply to the containing
1072 class. Find the class specialization with those
1073 arguments. */
1074 class_template = CLASSTYPE_TI_TEMPLATE (DECL_CONTEXT (tmpl));
1075 class_specialization
1076 = retrieve_specialization (class_template, args, 0);
1077 if (!class_specialization)
1078 return NULL_TREE;
1079 /* Now, find the appropriate entry in the CLASSTYPE_METHOD_VEC
1080 for the specialization. */
1081 idx = class_method_index_for_fn (class_specialization, tmpl);
1082 if (idx == -1)
1083 return NULL_TREE;
1084 /* Iterate through the methods with the indicated name, looking
1085 for the one that has an instance of TMPL. */
1086 methods = CLASSTYPE_METHOD_VEC (class_specialization);
1087 for (fns = (*methods)[idx]; fns; fns = OVL_NEXT (fns))
1089 tree fn = OVL_CURRENT (fns);
1090 if (DECL_TEMPLATE_INFO (fn) && DECL_TI_TEMPLATE (fn) == tmpl
1091 /* using-declarations can add base methods to the method vec,
1092 and we don't want those here. */
1093 && DECL_CONTEXT (fn) == class_specialization)
1094 return fn;
1096 return NULL_TREE;
1098 else
1100 spec_entry *found;
1101 spec_entry elt;
1102 hash_table<spec_hasher> *specializations;
1104 elt.tmpl = tmpl;
1105 elt.args = args;
1106 elt.spec = NULL_TREE;
1108 if (DECL_CLASS_TEMPLATE_P (tmpl))
1109 specializations = type_specializations;
1110 else
1111 specializations = decl_specializations;
1113 if (hash == 0)
1114 hash = spec_hasher::hash (&elt);
1115 found = specializations->find_with_hash (&elt, hash);
1116 if (found)
1117 return found->spec;
1120 return NULL_TREE;
1123 /* Like retrieve_specialization, but for local declarations. */
1125 static tree
1126 retrieve_local_specialization (tree tmpl)
1128 if (local_specializations == NULL)
1129 return NULL_TREE;
1131 tree *slot = local_specializations->get (tmpl);
1132 return slot ? *slot : NULL_TREE;
1135 /* Returns nonzero iff DECL is a specialization of TMPL. */
1138 is_specialization_of (tree decl, tree tmpl)
1140 tree t;
1142 if (TREE_CODE (decl) == FUNCTION_DECL)
1144 for (t = decl;
1145 t != NULL_TREE;
1146 t = DECL_TEMPLATE_INFO (t) ? DECL_TI_TEMPLATE (t) : NULL_TREE)
1147 if (t == tmpl)
1148 return 1;
1150 else
1152 gcc_assert (TREE_CODE (decl) == TYPE_DECL);
1154 for (t = TREE_TYPE (decl);
1155 t != NULL_TREE;
1156 t = CLASSTYPE_USE_TEMPLATE (t)
1157 ? TREE_TYPE (CLASSTYPE_TI_TEMPLATE (t)) : NULL_TREE)
1158 if (same_type_ignoring_top_level_qualifiers_p (t, TREE_TYPE (tmpl)))
1159 return 1;
1162 return 0;
1165 /* Returns nonzero iff DECL is a specialization of friend declaration
1166 FRIEND_DECL according to [temp.friend]. */
1168 bool
1169 is_specialization_of_friend (tree decl, tree friend_decl)
1171 bool need_template = true;
1172 int template_depth;
1174 gcc_assert (TREE_CODE (decl) == FUNCTION_DECL
1175 || TREE_CODE (decl) == TYPE_DECL);
1177 /* For [temp.friend/6] when FRIEND_DECL is an ordinary member function
1178 of a template class, we want to check if DECL is a specialization
1179 if this. */
1180 if (TREE_CODE (friend_decl) == FUNCTION_DECL
1181 && DECL_TEMPLATE_INFO (friend_decl)
1182 && !DECL_USE_TEMPLATE (friend_decl))
1184 /* We want a TEMPLATE_DECL for `is_specialization_of'. */
1185 friend_decl = DECL_TI_TEMPLATE (friend_decl);
1186 need_template = false;
1188 else if (TREE_CODE (friend_decl) == TEMPLATE_DECL
1189 && !PRIMARY_TEMPLATE_P (friend_decl))
1190 need_template = false;
1192 /* There is nothing to do if this is not a template friend. */
1193 if (TREE_CODE (friend_decl) != TEMPLATE_DECL)
1194 return false;
1196 if (is_specialization_of (decl, friend_decl))
1197 return true;
1199 /* [temp.friend/6]
1200 A member of a class template may be declared to be a friend of a
1201 non-template class. In this case, the corresponding member of
1202 every specialization of the class template is a friend of the
1203 class granting friendship.
1205 For example, given a template friend declaration
1207 template <class T> friend void A<T>::f();
1209 the member function below is considered a friend
1211 template <> struct A<int> {
1212 void f();
1215 For this type of template friend, TEMPLATE_DEPTH below will be
1216 nonzero. To determine if DECL is a friend of FRIEND, we first
1217 check if the enclosing class is a specialization of another. */
1219 template_depth = template_class_depth (CP_DECL_CONTEXT (friend_decl));
1220 if (template_depth
1221 && DECL_CLASS_SCOPE_P (decl)
1222 && is_specialization_of (TYPE_NAME (DECL_CONTEXT (decl)),
1223 CLASSTYPE_TI_TEMPLATE (DECL_CONTEXT (friend_decl))))
1225 /* Next, we check the members themselves. In order to handle
1226 a few tricky cases, such as when FRIEND_DECL's are
1228 template <class T> friend void A<T>::g(T t);
1229 template <class T> template <T t> friend void A<T>::h();
1231 and DECL's are
1233 void A<int>::g(int);
1234 template <int> void A<int>::h();
1236 we need to figure out ARGS, the template arguments from
1237 the context of DECL. This is required for template substitution
1238 of `T' in the function parameter of `g' and template parameter
1239 of `h' in the above examples. Here ARGS corresponds to `int'. */
1241 tree context = DECL_CONTEXT (decl);
1242 tree args = NULL_TREE;
1243 int current_depth = 0;
1245 while (current_depth < template_depth)
1247 if (CLASSTYPE_TEMPLATE_INFO (context))
1249 if (current_depth == 0)
1250 args = TYPE_TI_ARGS (context);
1251 else
1252 args = add_to_template_args (TYPE_TI_ARGS (context), args);
1253 current_depth++;
1255 context = TYPE_CONTEXT (context);
1258 if (TREE_CODE (decl) == FUNCTION_DECL)
1260 bool is_template;
1261 tree friend_type;
1262 tree decl_type;
1263 tree friend_args_type;
1264 tree decl_args_type;
1266 /* Make sure that both DECL and FRIEND_DECL are templates or
1267 non-templates. */
1268 is_template = DECL_TEMPLATE_INFO (decl)
1269 && PRIMARY_TEMPLATE_P (DECL_TI_TEMPLATE (decl));
1270 if (need_template ^ is_template)
1271 return false;
1272 else if (is_template)
1274 /* If both are templates, check template parameter list. */
1275 tree friend_parms
1276 = tsubst_template_parms (DECL_TEMPLATE_PARMS (friend_decl),
1277 args, tf_none);
1278 if (!comp_template_parms
1279 (DECL_TEMPLATE_PARMS (DECL_TI_TEMPLATE (decl)),
1280 friend_parms))
1281 return false;
1283 decl_type = TREE_TYPE (DECL_TI_TEMPLATE (decl));
1285 else
1286 decl_type = TREE_TYPE (decl);
1288 friend_type = tsubst_function_type (TREE_TYPE (friend_decl), args,
1289 tf_none, NULL_TREE);
1290 if (friend_type == error_mark_node)
1291 return false;
1293 /* Check if return types match. */
1294 if (!same_type_p (TREE_TYPE (decl_type), TREE_TYPE (friend_type)))
1295 return false;
1297 /* Check if function parameter types match, ignoring the
1298 `this' parameter. */
1299 friend_args_type = TYPE_ARG_TYPES (friend_type);
1300 decl_args_type = TYPE_ARG_TYPES (decl_type);
1301 if (DECL_NONSTATIC_MEMBER_FUNCTION_P (friend_decl))
1302 friend_args_type = TREE_CHAIN (friend_args_type);
1303 if (DECL_NONSTATIC_MEMBER_FUNCTION_P (decl))
1304 decl_args_type = TREE_CHAIN (decl_args_type);
1306 return compparms (decl_args_type, friend_args_type);
1308 else
1310 /* DECL is a TYPE_DECL */
1311 bool is_template;
1312 tree decl_type = TREE_TYPE (decl);
1314 /* Make sure that both DECL and FRIEND_DECL are templates or
1315 non-templates. */
1316 is_template
1317 = CLASSTYPE_TEMPLATE_INFO (decl_type)
1318 && PRIMARY_TEMPLATE_P (CLASSTYPE_TI_TEMPLATE (decl_type));
1320 if (need_template ^ is_template)
1321 return false;
1322 else if (is_template)
1324 tree friend_parms;
1325 /* If both are templates, check the name of the two
1326 TEMPLATE_DECL's first because is_friend didn't. */
1327 if (DECL_NAME (CLASSTYPE_TI_TEMPLATE (decl_type))
1328 != DECL_NAME (friend_decl))
1329 return false;
1331 /* Now check template parameter list. */
1332 friend_parms
1333 = tsubst_template_parms (DECL_TEMPLATE_PARMS (friend_decl),
1334 args, tf_none);
1335 return comp_template_parms
1336 (DECL_TEMPLATE_PARMS (CLASSTYPE_TI_TEMPLATE (decl_type)),
1337 friend_parms);
1339 else
1340 return (DECL_NAME (decl)
1341 == DECL_NAME (friend_decl));
1344 return false;
1347 /* Register the specialization SPEC as a specialization of TMPL with
1348 the indicated ARGS. IS_FRIEND indicates whether the specialization
1349 is actually just a friend declaration. Returns SPEC, or an
1350 equivalent prior declaration, if available.
1352 We also store instantiations of field packs in the hash table, even
1353 though they are not themselves templates, to make lookup easier. */
1355 static tree
1356 register_specialization (tree spec, tree tmpl, tree args, bool is_friend,
1357 hashval_t hash)
1359 tree fn;
1360 spec_entry **slot = NULL;
1361 spec_entry elt;
1363 gcc_assert ((TREE_CODE (tmpl) == TEMPLATE_DECL && DECL_P (spec))
1364 || (TREE_CODE (tmpl) == FIELD_DECL
1365 && TREE_CODE (spec) == NONTYPE_ARGUMENT_PACK));
1367 if (TREE_CODE (spec) == FUNCTION_DECL
1368 && uses_template_parms (DECL_TI_ARGS (spec)))
1369 /* This is the FUNCTION_DECL for a partial instantiation. Don't
1370 register it; we want the corresponding TEMPLATE_DECL instead.
1371 We use `uses_template_parms (DECL_TI_ARGS (spec))' rather than
1372 the more obvious `uses_template_parms (spec)' to avoid problems
1373 with default function arguments. In particular, given
1374 something like this:
1376 template <class T> void f(T t1, T t = T())
1378 the default argument expression is not substituted for in an
1379 instantiation unless and until it is actually needed. */
1380 return spec;
1382 if (optimize_specialization_lookup_p (tmpl))
1383 /* We don't put these specializations in the hash table, but we might
1384 want to give an error about a mismatch. */
1385 fn = retrieve_specialization (tmpl, args, 0);
1386 else
1388 elt.tmpl = tmpl;
1389 elt.args = args;
1390 elt.spec = spec;
1392 if (hash == 0)
1393 hash = spec_hasher::hash (&elt);
1395 slot =
1396 decl_specializations->find_slot_with_hash (&elt, hash, INSERT);
1397 if (*slot)
1398 fn = ((spec_entry *) *slot)->spec;
1399 else
1400 fn = NULL_TREE;
1403 /* We can sometimes try to re-register a specialization that we've
1404 already got. In particular, regenerate_decl_from_template calls
1405 duplicate_decls which will update the specialization list. But,
1406 we'll still get called again here anyhow. It's more convenient
1407 to simply allow this than to try to prevent it. */
1408 if (fn == spec)
1409 return spec;
1410 else if (fn && DECL_TEMPLATE_SPECIALIZATION (spec))
1412 if (DECL_TEMPLATE_INSTANTIATION (fn))
1414 if (DECL_ODR_USED (fn)
1415 || DECL_EXPLICIT_INSTANTIATION (fn))
1417 error ("specialization of %qD after instantiation",
1418 fn);
1419 return error_mark_node;
1421 else
1423 tree clone;
1424 /* This situation should occur only if the first
1425 specialization is an implicit instantiation, the
1426 second is an explicit specialization, and the
1427 implicit instantiation has not yet been used. That
1428 situation can occur if we have implicitly
1429 instantiated a member function and then specialized
1430 it later.
1432 We can also wind up here if a friend declaration that
1433 looked like an instantiation turns out to be a
1434 specialization:
1436 template <class T> void foo(T);
1437 class S { friend void foo<>(int) };
1438 template <> void foo(int);
1440 We transform the existing DECL in place so that any
1441 pointers to it become pointers to the updated
1442 declaration.
1444 If there was a definition for the template, but not
1445 for the specialization, we want this to look as if
1446 there were no definition, and vice versa. */
1447 DECL_INITIAL (fn) = NULL_TREE;
1448 duplicate_decls (spec, fn, is_friend);
1449 /* The call to duplicate_decls will have applied
1450 [temp.expl.spec]:
1452 An explicit specialization of a function template
1453 is inline only if it is explicitly declared to be,
1454 and independently of whether its function template
1457 to the primary function; now copy the inline bits to
1458 the various clones. */
1459 FOR_EACH_CLONE (clone, fn)
1461 DECL_DECLARED_INLINE_P (clone)
1462 = DECL_DECLARED_INLINE_P (fn);
1463 DECL_SOURCE_LOCATION (clone)
1464 = DECL_SOURCE_LOCATION (fn);
1465 DECL_DELETED_FN (clone)
1466 = DECL_DELETED_FN (fn);
1468 check_specialization_namespace (tmpl);
1470 return fn;
1473 else if (DECL_TEMPLATE_SPECIALIZATION (fn))
1475 if (!duplicate_decls (spec, fn, is_friend) && DECL_INITIAL (spec))
1476 /* Dup decl failed, but this is a new definition. Set the
1477 line number so any errors match this new
1478 definition. */
1479 DECL_SOURCE_LOCATION (fn) = DECL_SOURCE_LOCATION (spec);
1481 return fn;
1484 else if (fn)
1485 return duplicate_decls (spec, fn, is_friend);
1487 /* A specialization must be declared in the same namespace as the
1488 template it is specializing. */
1489 if (DECL_P (spec) && DECL_TEMPLATE_SPECIALIZATION (spec)
1490 && !check_specialization_namespace (tmpl))
1491 DECL_CONTEXT (spec) = DECL_CONTEXT (tmpl);
1493 if (slot != NULL /* !optimize_specialization_lookup_p (tmpl) */)
1495 spec_entry *entry = ggc_alloc<spec_entry> ();
1496 gcc_assert (tmpl && args && spec);
1497 *entry = elt;
1498 *slot = entry;
1499 if ((TREE_CODE (spec) == FUNCTION_DECL && DECL_NAMESPACE_SCOPE_P (spec)
1500 && PRIMARY_TEMPLATE_P (tmpl)
1501 && DECL_SAVED_TREE (DECL_TEMPLATE_RESULT (tmpl)) == NULL_TREE)
1502 || variable_template_p (tmpl))
1503 /* If TMPL is a forward declaration of a template function, keep a list
1504 of all specializations in case we need to reassign them to a friend
1505 template later in tsubst_friend_function.
1507 Also keep a list of all variable template instantiations so that
1508 process_partial_specialization can check whether a later partial
1509 specialization would have used it. */
1510 DECL_TEMPLATE_INSTANTIATIONS (tmpl)
1511 = tree_cons (args, spec, DECL_TEMPLATE_INSTANTIATIONS (tmpl));
1514 return spec;
1517 /* Returns true iff two spec_entry nodes are equivalent. Only compares the
1518 TMPL and ARGS members, ignores SPEC. */
1520 int comparing_specializations;
1522 bool
1523 spec_hasher::equal (spec_entry *e1, spec_entry *e2)
1525 int equal;
1527 ++comparing_specializations;
1528 equal = (e1->tmpl == e2->tmpl
1529 && comp_template_args (e1->args, e2->args));
1530 --comparing_specializations;
1532 return equal;
1535 /* Returns a hash for a template TMPL and template arguments ARGS. */
1537 static hashval_t
1538 hash_tmpl_and_args (tree tmpl, tree args)
1540 hashval_t val = DECL_UID (tmpl);
1541 return iterative_hash_template_arg (args, val);
1544 /* Returns a hash for a spec_entry node based on the TMPL and ARGS members,
1545 ignoring SPEC. */
1547 hashval_t
1548 spec_hasher::hash (spec_entry *e)
1550 return hash_tmpl_and_args (e->tmpl, e->args);
1553 /* Recursively calculate a hash value for a template argument ARG, for use
1554 in the hash tables of template specializations. */
1556 hashval_t
1557 iterative_hash_template_arg (tree arg, hashval_t val)
1559 unsigned HOST_WIDE_INT i;
1560 enum tree_code code;
1561 char tclass;
1563 if (arg == NULL_TREE)
1564 return iterative_hash_object (arg, val);
1566 if (!TYPE_P (arg))
1567 STRIP_NOPS (arg);
1569 if (TREE_CODE (arg) == ARGUMENT_PACK_SELECT)
1570 /* We can get one of these when re-hashing a previous entry in the middle
1571 of substituting into a pack expansion. Just look through it. */
1572 arg = ARGUMENT_PACK_SELECT_FROM_PACK (arg);
1574 code = TREE_CODE (arg);
1575 tclass = TREE_CODE_CLASS (code);
1577 val = iterative_hash_object (code, val);
1579 switch (code)
1581 case ERROR_MARK:
1582 return val;
1584 case IDENTIFIER_NODE:
1585 return iterative_hash_object (IDENTIFIER_HASH_VALUE (arg), val);
1587 case TREE_VEC:
1589 int i, len = TREE_VEC_LENGTH (arg);
1590 for (i = 0; i < len; ++i)
1591 val = iterative_hash_template_arg (TREE_VEC_ELT (arg, i), val);
1592 return val;
1595 case TYPE_PACK_EXPANSION:
1596 case EXPR_PACK_EXPANSION:
1597 val = iterative_hash_template_arg (PACK_EXPANSION_PATTERN (arg), val);
1598 return iterative_hash_template_arg (PACK_EXPANSION_EXTRA_ARGS (arg), val);
1600 case TYPE_ARGUMENT_PACK:
1601 case NONTYPE_ARGUMENT_PACK:
1602 return iterative_hash_template_arg (ARGUMENT_PACK_ARGS (arg), val);
1604 case TREE_LIST:
1605 for (; arg; arg = TREE_CHAIN (arg))
1606 val = iterative_hash_template_arg (TREE_VALUE (arg), val);
1607 return val;
1609 case OVERLOAD:
1610 for (; arg; arg = OVL_NEXT (arg))
1611 val = iterative_hash_template_arg (OVL_CURRENT (arg), val);
1612 return val;
1614 case CONSTRUCTOR:
1616 tree field, value;
1617 iterative_hash_template_arg (TREE_TYPE (arg), val);
1618 FOR_EACH_CONSTRUCTOR_ELT (CONSTRUCTOR_ELTS (arg), i, field, value)
1620 val = iterative_hash_template_arg (field, val);
1621 val = iterative_hash_template_arg (value, val);
1623 return val;
1626 case PARM_DECL:
1627 if (!DECL_ARTIFICIAL (arg))
1629 val = iterative_hash_object (DECL_PARM_INDEX (arg), val);
1630 val = iterative_hash_object (DECL_PARM_LEVEL (arg), val);
1632 return iterative_hash_template_arg (TREE_TYPE (arg), val);
1634 case TARGET_EXPR:
1635 return iterative_hash_template_arg (TARGET_EXPR_INITIAL (arg), val);
1637 case PTRMEM_CST:
1638 val = iterative_hash_template_arg (PTRMEM_CST_CLASS (arg), val);
1639 return iterative_hash_template_arg (PTRMEM_CST_MEMBER (arg), val);
1641 case TEMPLATE_PARM_INDEX:
1642 val = iterative_hash_template_arg
1643 (TREE_TYPE (TEMPLATE_PARM_DECL (arg)), val);
1644 val = iterative_hash_object (TEMPLATE_PARM_LEVEL (arg), val);
1645 return iterative_hash_object (TEMPLATE_PARM_IDX (arg), val);
1647 case TRAIT_EXPR:
1648 val = iterative_hash_object (TRAIT_EXPR_KIND (arg), val);
1649 val = iterative_hash_template_arg (TRAIT_EXPR_TYPE1 (arg), val);
1650 return iterative_hash_template_arg (TRAIT_EXPR_TYPE2 (arg), val);
1652 case BASELINK:
1653 val = iterative_hash_template_arg (BINFO_TYPE (BASELINK_BINFO (arg)),
1654 val);
1655 return iterative_hash_template_arg (DECL_NAME (get_first_fn (arg)),
1656 val);
1658 case MODOP_EXPR:
1659 val = iterative_hash_template_arg (TREE_OPERAND (arg, 0), val);
1660 code = TREE_CODE (TREE_OPERAND (arg, 1));
1661 val = iterative_hash_object (code, val);
1662 return iterative_hash_template_arg (TREE_OPERAND (arg, 2), val);
1664 case LAMBDA_EXPR:
1665 /* A lambda can't appear in a template arg, but don't crash on
1666 erroneous input. */
1667 gcc_assert (seen_error ());
1668 return val;
1670 case CAST_EXPR:
1671 case IMPLICIT_CONV_EXPR:
1672 case STATIC_CAST_EXPR:
1673 case REINTERPRET_CAST_EXPR:
1674 case CONST_CAST_EXPR:
1675 case DYNAMIC_CAST_EXPR:
1676 case NEW_EXPR:
1677 val = iterative_hash_template_arg (TREE_TYPE (arg), val);
1678 /* Now hash operands as usual. */
1679 break;
1681 default:
1682 break;
1685 switch (tclass)
1687 case tcc_type:
1688 if (alias_template_specialization_p (arg))
1690 // We want an alias specialization that survived strip_typedefs
1691 // to hash differently from its TYPE_CANONICAL, to avoid hash
1692 // collisions that compare as different in template_args_equal.
1693 // These could be dependent specializations that strip_typedefs
1694 // left alone, or untouched specializations because
1695 // coerce_template_parms returns the unconverted template
1696 // arguments if it sees incomplete argument packs.
1697 tree ti = TYPE_TEMPLATE_INFO (arg);
1698 return hash_tmpl_and_args (TI_TEMPLATE (ti), TI_ARGS (ti));
1700 if (TYPE_CANONICAL (arg))
1701 return iterative_hash_object (TYPE_HASH (TYPE_CANONICAL (arg)),
1702 val);
1703 else if (TREE_CODE (arg) == DECLTYPE_TYPE)
1704 return iterative_hash_template_arg (DECLTYPE_TYPE_EXPR (arg), val);
1705 /* Otherwise just compare the types during lookup. */
1706 return val;
1708 case tcc_declaration:
1709 case tcc_constant:
1710 return iterative_hash_expr (arg, val);
1712 default:
1713 gcc_assert (IS_EXPR_CODE_CLASS (tclass));
1715 unsigned n = cp_tree_operand_length (arg);
1716 for (i = 0; i < n; ++i)
1717 val = iterative_hash_template_arg (TREE_OPERAND (arg, i), val);
1718 return val;
1721 gcc_unreachable ();
1722 return 0;
1725 /* Unregister the specialization SPEC as a specialization of TMPL.
1726 Replace it with NEW_SPEC, if NEW_SPEC is non-NULL. Returns true
1727 if the SPEC was listed as a specialization of TMPL.
1729 Note that SPEC has been ggc_freed, so we can't look inside it. */
1731 bool
1732 reregister_specialization (tree spec, tree tinfo, tree new_spec)
1734 spec_entry *entry;
1735 spec_entry elt;
1737 elt.tmpl = most_general_template (TI_TEMPLATE (tinfo));
1738 elt.args = TI_ARGS (tinfo);
1739 elt.spec = NULL_TREE;
1741 entry = decl_specializations->find (&elt);
1742 if (entry != NULL)
1744 gcc_assert (entry->spec == spec || entry->spec == new_spec);
1745 gcc_assert (new_spec != NULL_TREE);
1746 entry->spec = new_spec;
1747 return 1;
1750 return 0;
1753 /* Like register_specialization, but for local declarations. We are
1754 registering SPEC, an instantiation of TMPL. */
1756 static void
1757 register_local_specialization (tree spec, tree tmpl)
1759 local_specializations->put (tmpl, spec);
1762 /* TYPE is a class type. Returns true if TYPE is an explicitly
1763 specialized class. */
1765 bool
1766 explicit_class_specialization_p (tree type)
1768 if (!CLASSTYPE_TEMPLATE_SPECIALIZATION (type))
1769 return false;
1770 return !uses_template_parms (CLASSTYPE_TI_ARGS (type));
1773 /* Print the list of functions at FNS, going through all the overloads
1774 for each element of the list. Alternatively, FNS can not be a
1775 TREE_LIST, in which case it will be printed together with all the
1776 overloads.
1778 MORE and *STR should respectively be FALSE and NULL when the function
1779 is called from the outside. They are used internally on recursive
1780 calls. print_candidates manages the two parameters and leaves NULL
1781 in *STR when it ends. */
1783 static void
1784 print_candidates_1 (tree fns, bool more, const char **str)
1786 tree fn, fn2;
1787 char *spaces = NULL;
1789 for (fn = fns; fn; fn = OVL_NEXT (fn))
1790 if (TREE_CODE (fn) == TREE_LIST)
1792 for (fn2 = fn; fn2 != NULL_TREE; fn2 = TREE_CHAIN (fn2))
1793 print_candidates_1 (TREE_VALUE (fn2),
1794 TREE_CHAIN (fn2) || more, str);
1796 else
1798 tree cand = OVL_CURRENT (fn);
1799 if (!*str)
1801 /* Pick the prefix string. */
1802 if (!more && !OVL_NEXT (fns))
1804 inform (DECL_SOURCE_LOCATION (cand),
1805 "candidate is: %#D", cand);
1806 continue;
1809 *str = _("candidates are:");
1810 spaces = get_spaces (*str);
1812 inform (DECL_SOURCE_LOCATION (cand), "%s %#D", *str, cand);
1813 *str = spaces ? spaces : *str;
1816 if (!more)
1818 free (spaces);
1819 *str = NULL;
1823 /* Print the list of candidate FNS in an error message. FNS can also
1824 be a TREE_LIST of non-functions in the case of an ambiguous lookup. */
1826 void
1827 print_candidates (tree fns)
1829 const char *str = NULL;
1830 print_candidates_1 (fns, false, &str);
1831 gcc_assert (str == NULL);
1834 /* Returns the template (one of the functions given by TEMPLATE_ID)
1835 which can be specialized to match the indicated DECL with the
1836 explicit template args given in TEMPLATE_ID. The DECL may be
1837 NULL_TREE if none is available. In that case, the functions in
1838 TEMPLATE_ID are non-members.
1840 If NEED_MEMBER_TEMPLATE is nonzero the function is known to be a
1841 specialization of a member template.
1843 The TEMPLATE_COUNT is the number of references to qualifying
1844 template classes that appeared in the name of the function. See
1845 check_explicit_specialization for a more accurate description.
1847 TSK indicates what kind of template declaration (if any) is being
1848 declared. TSK_TEMPLATE indicates that the declaration given by
1849 DECL, though a FUNCTION_DECL, has template parameters, and is
1850 therefore a template function.
1852 The template args (those explicitly specified and those deduced)
1853 are output in a newly created vector *TARGS_OUT.
1855 If it is impossible to determine the result, an error message is
1856 issued. The error_mark_node is returned to indicate failure. */
1858 static tree
1859 determine_specialization (tree template_id,
1860 tree decl,
1861 tree* targs_out,
1862 int need_member_template,
1863 int template_count,
1864 tmpl_spec_kind tsk)
1866 tree fns;
1867 tree targs;
1868 tree explicit_targs;
1869 tree candidates = NULL_TREE;
1870 /* A TREE_LIST of templates of which DECL may be a specialization.
1871 The TREE_VALUE of each node is a TEMPLATE_DECL. The
1872 corresponding TREE_PURPOSE is the set of template arguments that,
1873 when used to instantiate the template, would produce a function
1874 with the signature of DECL. */
1875 tree templates = NULL_TREE;
1876 int header_count;
1877 cp_binding_level *b;
1879 *targs_out = NULL_TREE;
1881 if (template_id == error_mark_node || decl == error_mark_node)
1882 return error_mark_node;
1884 /* We shouldn't be specializing a member template of an
1885 unspecialized class template; we already gave an error in
1886 check_specialization_scope, now avoid crashing. */
1887 if (template_count && DECL_CLASS_SCOPE_P (decl)
1888 && template_class_depth (DECL_CONTEXT (decl)) > 0)
1890 gcc_assert (errorcount);
1891 return error_mark_node;
1894 fns = TREE_OPERAND (template_id, 0);
1895 explicit_targs = TREE_OPERAND (template_id, 1);
1897 if (fns == error_mark_node)
1898 return error_mark_node;
1900 /* Check for baselinks. */
1901 if (BASELINK_P (fns))
1902 fns = BASELINK_FUNCTIONS (fns);
1904 if (TREE_CODE (decl) == FUNCTION_DECL && !is_overloaded_fn (fns))
1906 error ("%qD is not a function template", fns);
1907 return error_mark_node;
1909 else if (VAR_P (decl) && !variable_template_p (fns))
1911 error ("%qD is not a variable template", fns);
1912 return error_mark_node;
1915 /* Count the number of template headers specified for this
1916 specialization. */
1917 header_count = 0;
1918 for (b = current_binding_level;
1919 b->kind == sk_template_parms;
1920 b = b->level_chain)
1921 ++header_count;
1923 if (variable_template_p (fns))
1925 tree parms = INNERMOST_TEMPLATE_PARMS (DECL_TEMPLATE_PARMS (fns));
1926 targs = coerce_template_parms (parms, explicit_targs, fns,
1927 tf_warning_or_error,
1928 /*req_all*/true, /*use_defarg*/true);
1929 templates = tree_cons (targs, fns, templates);
1931 else for (; fns; fns = OVL_NEXT (fns))
1933 tree fn = OVL_CURRENT (fns);
1935 if (TREE_CODE (fn) == TEMPLATE_DECL)
1937 tree decl_arg_types;
1938 tree fn_arg_types;
1939 tree insttype;
1941 /* In case of explicit specialization, we need to check if
1942 the number of template headers appearing in the specialization
1943 is correct. This is usually done in check_explicit_specialization,
1944 but the check done there cannot be exhaustive when specializing
1945 member functions. Consider the following code:
1947 template <> void A<int>::f(int);
1948 template <> template <> void A<int>::f(int);
1950 Assuming that A<int> is not itself an explicit specialization
1951 already, the first line specializes "f" which is a non-template
1952 member function, whilst the second line specializes "f" which
1953 is a template member function. So both lines are syntactically
1954 correct, and check_explicit_specialization does not reject
1955 them.
1957 Here, we can do better, as we are matching the specialization
1958 against the declarations. We count the number of template
1959 headers, and we check if they match TEMPLATE_COUNT + 1
1960 (TEMPLATE_COUNT is the number of qualifying template classes,
1961 plus there must be another header for the member template
1962 itself).
1964 Notice that if header_count is zero, this is not a
1965 specialization but rather a template instantiation, so there
1966 is no check we can perform here. */
1967 if (header_count && header_count != template_count + 1)
1968 continue;
1970 /* Check that the number of template arguments at the
1971 innermost level for DECL is the same as for FN. */
1972 if (current_binding_level->kind == sk_template_parms
1973 && !current_binding_level->explicit_spec_p
1974 && (TREE_VEC_LENGTH (DECL_INNERMOST_TEMPLATE_PARMS (fn))
1975 != TREE_VEC_LENGTH (INNERMOST_TEMPLATE_PARMS
1976 (current_template_parms))))
1977 continue;
1979 /* DECL might be a specialization of FN. */
1980 decl_arg_types = TYPE_ARG_TYPES (TREE_TYPE (decl));
1981 fn_arg_types = TYPE_ARG_TYPES (TREE_TYPE (fn));
1983 /* For a non-static member function, we need to make sure
1984 that the const qualification is the same. Since
1985 get_bindings does not try to merge the "this" parameter,
1986 we must do the comparison explicitly. */
1987 if (DECL_NONSTATIC_MEMBER_FUNCTION_P (fn)
1988 && !same_type_p (TREE_VALUE (fn_arg_types),
1989 TREE_VALUE (decl_arg_types)))
1990 continue;
1992 /* Skip the "this" parameter and, for constructors of
1993 classes with virtual bases, the VTT parameter. A
1994 full specialization of a constructor will have a VTT
1995 parameter, but a template never will. */
1996 decl_arg_types
1997 = skip_artificial_parms_for (decl, decl_arg_types);
1998 fn_arg_types
1999 = skip_artificial_parms_for (fn, fn_arg_types);
2001 /* Function templates cannot be specializations; there are
2002 no partial specializations of functions. Therefore, if
2003 the type of DECL does not match FN, there is no
2004 match. */
2005 if (tsk == tsk_template)
2007 if (compparms (fn_arg_types, decl_arg_types))
2008 candidates = tree_cons (NULL_TREE, fn, candidates);
2009 continue;
2012 /* See whether this function might be a specialization of this
2013 template. Suppress access control because we might be trying
2014 to make this specialization a friend, and we have already done
2015 access control for the declaration of the specialization. */
2016 push_deferring_access_checks (dk_no_check);
2017 targs = get_bindings (fn, decl, explicit_targs, /*check_ret=*/true);
2018 pop_deferring_access_checks ();
2020 if (!targs)
2021 /* We cannot deduce template arguments that when used to
2022 specialize TMPL will produce DECL. */
2023 continue;
2025 /* Make sure that the deduced arguments actually work. */
2026 insttype = tsubst (TREE_TYPE (fn), targs, tf_none, NULL_TREE);
2027 if (insttype == error_mark_node)
2028 continue;
2029 fn_arg_types
2030 = skip_artificial_parms_for (fn, TYPE_ARG_TYPES (insttype));
2031 if (!compparms (fn_arg_types, decl_arg_types))
2032 continue;
2034 /* Save this template, and the arguments deduced. */
2035 templates = tree_cons (targs, fn, templates);
2037 else if (need_member_template)
2038 /* FN is an ordinary member function, and we need a
2039 specialization of a member template. */
2041 else if (TREE_CODE (fn) != FUNCTION_DECL)
2042 /* We can get IDENTIFIER_NODEs here in certain erroneous
2043 cases. */
2045 else if (!DECL_FUNCTION_MEMBER_P (fn))
2046 /* This is just an ordinary non-member function. Nothing can
2047 be a specialization of that. */
2049 else if (DECL_ARTIFICIAL (fn))
2050 /* Cannot specialize functions that are created implicitly. */
2052 else
2054 tree decl_arg_types;
2056 /* This is an ordinary member function. However, since
2057 we're here, we can assume its enclosing class is a
2058 template class. For example,
2060 template <typename T> struct S { void f(); };
2061 template <> void S<int>::f() {}
2063 Here, S<int>::f is a non-template, but S<int> is a
2064 template class. If FN has the same type as DECL, we
2065 might be in business. */
2067 if (!DECL_TEMPLATE_INFO (fn))
2068 /* Its enclosing class is an explicit specialization
2069 of a template class. This is not a candidate. */
2070 continue;
2072 if (!same_type_p (TREE_TYPE (TREE_TYPE (decl)),
2073 TREE_TYPE (TREE_TYPE (fn))))
2074 /* The return types differ. */
2075 continue;
2077 /* Adjust the type of DECL in case FN is a static member. */
2078 decl_arg_types = TYPE_ARG_TYPES (TREE_TYPE (decl));
2079 if (DECL_STATIC_FUNCTION_P (fn)
2080 && DECL_NONSTATIC_MEMBER_FUNCTION_P (decl))
2081 decl_arg_types = TREE_CHAIN (decl_arg_types);
2083 if (compparms (TYPE_ARG_TYPES (TREE_TYPE (fn)),
2084 decl_arg_types))
2085 /* They match! */
2086 candidates = tree_cons (NULL_TREE, fn, candidates);
2090 if (templates && TREE_CHAIN (templates))
2092 /* We have:
2094 [temp.expl.spec]
2096 It is possible for a specialization with a given function
2097 signature to be instantiated from more than one function
2098 template. In such cases, explicit specification of the
2099 template arguments must be used to uniquely identify the
2100 function template specialization being specialized.
2102 Note that here, there's no suggestion that we're supposed to
2103 determine which of the candidate templates is most
2104 specialized. However, we, also have:
2106 [temp.func.order]
2108 Partial ordering of overloaded function template
2109 declarations is used in the following contexts to select
2110 the function template to which a function template
2111 specialization refers:
2113 -- when an explicit specialization refers to a function
2114 template.
2116 So, we do use the partial ordering rules, at least for now.
2117 This extension can only serve to make invalid programs valid,
2118 so it's safe. And, there is strong anecdotal evidence that
2119 the committee intended the partial ordering rules to apply;
2120 the EDG front end has that behavior, and John Spicer claims
2121 that the committee simply forgot to delete the wording in
2122 [temp.expl.spec]. */
2123 tree tmpl = most_specialized_instantiation (templates);
2124 if (tmpl != error_mark_node)
2126 templates = tmpl;
2127 TREE_CHAIN (templates) = NULL_TREE;
2131 if (templates == NULL_TREE && candidates == NULL_TREE)
2133 error ("template-id %qD for %q+D does not match any template "
2134 "declaration", template_id, decl);
2135 if (header_count && header_count != template_count + 1)
2136 inform (input_location, "saw %d %<template<>%>, need %d for "
2137 "specializing a member function template",
2138 header_count, template_count + 1);
2139 return error_mark_node;
2141 else if ((templates && TREE_CHAIN (templates))
2142 || (candidates && TREE_CHAIN (candidates))
2143 || (templates && candidates))
2145 error ("ambiguous template specialization %qD for %q+D",
2146 template_id, decl);
2147 candidates = chainon (candidates, templates);
2148 print_candidates (candidates);
2149 return error_mark_node;
2152 /* We have one, and exactly one, match. */
2153 if (candidates)
2155 tree fn = TREE_VALUE (candidates);
2156 *targs_out = copy_node (DECL_TI_ARGS (fn));
2157 /* DECL is a re-declaration or partial instantiation of a template
2158 function. */
2159 if (TREE_CODE (fn) == TEMPLATE_DECL)
2160 return fn;
2161 /* It was a specialization of an ordinary member function in a
2162 template class. */
2163 return DECL_TI_TEMPLATE (fn);
2166 /* It was a specialization of a template. */
2167 targs = DECL_TI_ARGS (DECL_TEMPLATE_RESULT (TREE_VALUE (templates)));
2168 if (TMPL_ARGS_HAVE_MULTIPLE_LEVELS (targs))
2170 *targs_out = copy_node (targs);
2171 SET_TMPL_ARGS_LEVEL (*targs_out,
2172 TMPL_ARGS_DEPTH (*targs_out),
2173 TREE_PURPOSE (templates));
2175 else
2176 *targs_out = TREE_PURPOSE (templates);
2177 return TREE_VALUE (templates);
2180 /* Returns a chain of parameter types, exactly like the SPEC_TYPES,
2181 but with the default argument values filled in from those in the
2182 TMPL_TYPES. */
2184 static tree
2185 copy_default_args_to_explicit_spec_1 (tree spec_types,
2186 tree tmpl_types)
2188 tree new_spec_types;
2190 if (!spec_types)
2191 return NULL_TREE;
2193 if (spec_types == void_list_node)
2194 return void_list_node;
2196 /* Substitute into the rest of the list. */
2197 new_spec_types =
2198 copy_default_args_to_explicit_spec_1 (TREE_CHAIN (spec_types),
2199 TREE_CHAIN (tmpl_types));
2201 /* Add the default argument for this parameter. */
2202 return hash_tree_cons (TREE_PURPOSE (tmpl_types),
2203 TREE_VALUE (spec_types),
2204 new_spec_types);
2207 /* DECL is an explicit specialization. Replicate default arguments
2208 from the template it specializes. (That way, code like:
2210 template <class T> void f(T = 3);
2211 template <> void f(double);
2212 void g () { f (); }
2214 works, as required.) An alternative approach would be to look up
2215 the correct default arguments at the call-site, but this approach
2216 is consistent with how implicit instantiations are handled. */
2218 static void
2219 copy_default_args_to_explicit_spec (tree decl)
2221 tree tmpl;
2222 tree spec_types;
2223 tree tmpl_types;
2224 tree new_spec_types;
2225 tree old_type;
2226 tree new_type;
2227 tree t;
2228 tree object_type = NULL_TREE;
2229 tree in_charge = NULL_TREE;
2230 tree vtt = NULL_TREE;
2232 /* See if there's anything we need to do. */
2233 tmpl = DECL_TI_TEMPLATE (decl);
2234 tmpl_types = TYPE_ARG_TYPES (TREE_TYPE (DECL_TEMPLATE_RESULT (tmpl)));
2235 for (t = tmpl_types; t; t = TREE_CHAIN (t))
2236 if (TREE_PURPOSE (t))
2237 break;
2238 if (!t)
2239 return;
2241 old_type = TREE_TYPE (decl);
2242 spec_types = TYPE_ARG_TYPES (old_type);
2244 if (DECL_NONSTATIC_MEMBER_FUNCTION_P (decl))
2246 /* Remove the this pointer, but remember the object's type for
2247 CV quals. */
2248 object_type = TREE_TYPE (TREE_VALUE (spec_types));
2249 spec_types = TREE_CHAIN (spec_types);
2250 tmpl_types = TREE_CHAIN (tmpl_types);
2252 if (DECL_HAS_IN_CHARGE_PARM_P (decl))
2254 /* DECL may contain more parameters than TMPL due to the extra
2255 in-charge parameter in constructors and destructors. */
2256 in_charge = spec_types;
2257 spec_types = TREE_CHAIN (spec_types);
2259 if (DECL_HAS_VTT_PARM_P (decl))
2261 vtt = spec_types;
2262 spec_types = TREE_CHAIN (spec_types);
2266 /* Compute the merged default arguments. */
2267 new_spec_types =
2268 copy_default_args_to_explicit_spec_1 (spec_types, tmpl_types);
2270 /* Compute the new FUNCTION_TYPE. */
2271 if (object_type)
2273 if (vtt)
2274 new_spec_types = hash_tree_cons (TREE_PURPOSE (vtt),
2275 TREE_VALUE (vtt),
2276 new_spec_types);
2278 if (in_charge)
2279 /* Put the in-charge parameter back. */
2280 new_spec_types = hash_tree_cons (TREE_PURPOSE (in_charge),
2281 TREE_VALUE (in_charge),
2282 new_spec_types);
2284 new_type = build_method_type_directly (object_type,
2285 TREE_TYPE (old_type),
2286 new_spec_types);
2288 else
2289 new_type = build_function_type (TREE_TYPE (old_type),
2290 new_spec_types);
2291 new_type = cp_build_type_attribute_variant (new_type,
2292 TYPE_ATTRIBUTES (old_type));
2293 new_type = build_exception_variant (new_type,
2294 TYPE_RAISES_EXCEPTIONS (old_type));
2296 if (TYPE_HAS_LATE_RETURN_TYPE (old_type))
2297 TYPE_HAS_LATE_RETURN_TYPE (new_type) = 1;
2299 TREE_TYPE (decl) = new_type;
2302 /* Return the number of template headers we expect to see for a definition
2303 or specialization of CTYPE or one of its non-template members. */
2306 num_template_headers_for_class (tree ctype)
2308 int num_templates = 0;
2310 while (ctype && CLASS_TYPE_P (ctype))
2312 /* You're supposed to have one `template <...>' for every
2313 template class, but you don't need one for a full
2314 specialization. For example:
2316 template <class T> struct S{};
2317 template <> struct S<int> { void f(); };
2318 void S<int>::f () {}
2320 is correct; there shouldn't be a `template <>' for the
2321 definition of `S<int>::f'. */
2322 if (!CLASSTYPE_TEMPLATE_INFO (ctype))
2323 /* If CTYPE does not have template information of any
2324 kind, then it is not a template, nor is it nested
2325 within a template. */
2326 break;
2327 if (explicit_class_specialization_p (ctype))
2328 break;
2329 if (PRIMARY_TEMPLATE_P (CLASSTYPE_TI_TEMPLATE (ctype)))
2330 ++num_templates;
2332 ctype = TYPE_CONTEXT (ctype);
2335 return num_templates;
2338 /* Do a simple sanity check on the template headers that precede the
2339 variable declaration DECL. */
2341 void
2342 check_template_variable (tree decl)
2344 tree ctx = CP_DECL_CONTEXT (decl);
2345 int wanted = num_template_headers_for_class (ctx);
2346 if (DECL_LANG_SPECIFIC (decl) && DECL_TEMPLATE_INFO (decl)
2347 && PRIMARY_TEMPLATE_P (DECL_TI_TEMPLATE (decl)))
2349 if (cxx_dialect < cxx14)
2350 pedwarn (DECL_SOURCE_LOCATION (decl), 0,
2351 "variable templates only available with "
2352 "-std=c++14 or -std=gnu++14");
2354 // Namespace-scope variable templates should have a template header.
2355 ++wanted;
2357 if (template_header_count > wanted)
2359 bool warned = pedwarn (DECL_SOURCE_LOCATION (decl), 0,
2360 "too many template headers for %D (should be %d)",
2361 decl, wanted);
2362 if (warned && CLASS_TYPE_P (ctx)
2363 && CLASSTYPE_TEMPLATE_SPECIALIZATION (ctx))
2364 inform (DECL_SOURCE_LOCATION (decl),
2365 "members of an explicitly specialized class are defined "
2366 "without a template header");
2370 /* Check to see if the function just declared, as indicated in
2371 DECLARATOR, and in DECL, is a specialization of a function
2372 template. We may also discover that the declaration is an explicit
2373 instantiation at this point.
2375 Returns DECL, or an equivalent declaration that should be used
2376 instead if all goes well. Issues an error message if something is
2377 amiss. Returns error_mark_node if the error is not easily
2378 recoverable.
2380 FLAGS is a bitmask consisting of the following flags:
2382 2: The function has a definition.
2383 4: The function is a friend.
2385 The TEMPLATE_COUNT is the number of references to qualifying
2386 template classes that appeared in the name of the function. For
2387 example, in
2389 template <class T> struct S { void f(); };
2390 void S<int>::f();
2392 the TEMPLATE_COUNT would be 1. However, explicitly specialized
2393 classes are not counted in the TEMPLATE_COUNT, so that in
2395 template <class T> struct S {};
2396 template <> struct S<int> { void f(); }
2397 template <> void S<int>::f();
2399 the TEMPLATE_COUNT would be 0. (Note that this declaration is
2400 invalid; there should be no template <>.)
2402 If the function is a specialization, it is marked as such via
2403 DECL_TEMPLATE_SPECIALIZATION. Furthermore, its DECL_TEMPLATE_INFO
2404 is set up correctly, and it is added to the list of specializations
2405 for that template. */
2407 tree
2408 check_explicit_specialization (tree declarator,
2409 tree decl,
2410 int template_count,
2411 int flags)
2413 int have_def = flags & 2;
2414 int is_friend = flags & 4;
2415 int specialization = 0;
2416 int explicit_instantiation = 0;
2417 int member_specialization = 0;
2418 tree ctype = DECL_CLASS_CONTEXT (decl);
2419 tree dname = DECL_NAME (decl);
2420 tmpl_spec_kind tsk;
2422 if (is_friend)
2424 if (!processing_specialization)
2425 tsk = tsk_none;
2426 else
2427 tsk = tsk_excessive_parms;
2429 else
2430 tsk = current_tmpl_spec_kind (template_count);
2432 switch (tsk)
2434 case tsk_none:
2435 if (processing_specialization && TREE_CODE (decl) != VAR_DECL)
2437 specialization = 1;
2438 SET_DECL_TEMPLATE_SPECIALIZATION (decl);
2440 else if (TREE_CODE (declarator) == TEMPLATE_ID_EXPR)
2442 if (is_friend)
2443 /* This could be something like:
2445 template <class T> void f(T);
2446 class S { friend void f<>(int); } */
2447 specialization = 1;
2448 else
2450 /* This case handles bogus declarations like template <>
2451 template <class T> void f<int>(); */
2453 error ("template-id %qD in declaration of primary template",
2454 declarator);
2455 return decl;
2458 break;
2460 case tsk_invalid_member_spec:
2461 /* The error has already been reported in
2462 check_specialization_scope. */
2463 return error_mark_node;
2465 case tsk_invalid_expl_inst:
2466 error ("template parameter list used in explicit instantiation");
2468 /* Fall through. */
2470 case tsk_expl_inst:
2471 if (have_def)
2472 error ("definition provided for explicit instantiation");
2474 explicit_instantiation = 1;
2475 break;
2477 case tsk_excessive_parms:
2478 case tsk_insufficient_parms:
2479 if (tsk == tsk_excessive_parms)
2480 error ("too many template parameter lists in declaration of %qD",
2481 decl);
2482 else if (template_header_count)
2483 error("too few template parameter lists in declaration of %qD", decl);
2484 else
2485 error("explicit specialization of %qD must be introduced by "
2486 "%<template <>%>", decl);
2488 /* Fall through. */
2489 case tsk_expl_spec:
2490 if (VAR_P (decl) && TREE_CODE (declarator) != TEMPLATE_ID_EXPR)
2491 /* In cases like template<> constexpr bool v = true;
2492 We'll give an error in check_template_variable. */
2493 break;
2495 SET_DECL_TEMPLATE_SPECIALIZATION (decl);
2496 if (ctype)
2497 member_specialization = 1;
2498 else
2499 specialization = 1;
2500 break;
2502 case tsk_template:
2503 if (TREE_CODE (declarator) == TEMPLATE_ID_EXPR)
2505 /* This case handles bogus declarations like template <>
2506 template <class T> void f<int>(); */
2508 if (!uses_template_parms (declarator))
2509 error ("template-id %qD in declaration of primary template",
2510 declarator);
2511 else if (variable_template_p (TREE_OPERAND (declarator, 0)))
2513 /* Partial specialization of variable template. */
2514 SET_DECL_TEMPLATE_SPECIALIZATION (decl);
2515 specialization = 1;
2516 goto ok;
2518 else if (cxx_dialect < cxx14)
2519 error ("non-type partial specialization %qD "
2520 "is not allowed", declarator);
2521 else
2522 error ("non-class, non-variable partial specialization %qD "
2523 "is not allowed", declarator);
2524 return decl;
2525 ok:;
2528 if (ctype && CLASSTYPE_TEMPLATE_INSTANTIATION (ctype))
2529 /* This is a specialization of a member template, without
2530 specialization the containing class. Something like:
2532 template <class T> struct S {
2533 template <class U> void f (U);
2535 template <> template <class U> void S<int>::f(U) {}
2537 That's a specialization -- but of the entire template. */
2538 specialization = 1;
2539 break;
2541 default:
2542 gcc_unreachable ();
2545 if ((specialization || member_specialization)
2546 /* This doesn't apply to variable templates. */
2547 && (TREE_CODE (TREE_TYPE (decl)) == FUNCTION_TYPE
2548 || TREE_CODE (TREE_TYPE (decl)) == METHOD_TYPE))
2550 tree t = TYPE_ARG_TYPES (TREE_TYPE (decl));
2551 for (; t; t = TREE_CHAIN (t))
2552 if (TREE_PURPOSE (t))
2554 permerror (input_location,
2555 "default argument specified in explicit specialization");
2556 break;
2560 if (specialization || member_specialization || explicit_instantiation)
2562 tree tmpl = NULL_TREE;
2563 tree targs = NULL_TREE;
2564 bool was_template_id = (TREE_CODE (declarator) == TEMPLATE_ID_EXPR);
2566 /* Make sure that the declarator is a TEMPLATE_ID_EXPR. */
2567 if (!was_template_id)
2569 tree fns;
2571 gcc_assert (identifier_p (declarator));
2572 if (ctype)
2573 fns = dname;
2574 else
2576 /* If there is no class context, the explicit instantiation
2577 must be at namespace scope. */
2578 gcc_assert (DECL_NAMESPACE_SCOPE_P (decl));
2580 /* Find the namespace binding, using the declaration
2581 context. */
2582 fns = lookup_qualified_name (CP_DECL_CONTEXT (decl), dname,
2583 false, true);
2584 if (fns == error_mark_node || !is_overloaded_fn (fns))
2586 error ("%qD is not a template function", dname);
2587 fns = error_mark_node;
2589 else
2591 tree fn = OVL_CURRENT (fns);
2592 if (!is_associated_namespace (CP_DECL_CONTEXT (decl),
2593 CP_DECL_CONTEXT (fn)))
2594 error ("%qD is not declared in %qD",
2595 decl, current_namespace);
2599 declarator = lookup_template_function (fns, NULL_TREE);
2602 if (declarator == error_mark_node)
2603 return error_mark_node;
2605 if (ctype != NULL_TREE && TYPE_BEING_DEFINED (ctype))
2607 if (!explicit_instantiation)
2608 /* A specialization in class scope. This is invalid,
2609 but the error will already have been flagged by
2610 check_specialization_scope. */
2611 return error_mark_node;
2612 else
2614 /* It's not valid to write an explicit instantiation in
2615 class scope, e.g.:
2617 class C { template void f(); }
2619 This case is caught by the parser. However, on
2620 something like:
2622 template class C { void f(); };
2624 (which is invalid) we can get here. The error will be
2625 issued later. */
2629 return decl;
2631 else if (ctype != NULL_TREE
2632 && (identifier_p (TREE_OPERAND (declarator, 0))))
2634 // We'll match variable templates in start_decl.
2635 if (VAR_P (decl))
2636 return decl;
2638 /* Find the list of functions in ctype that have the same
2639 name as the declared function. */
2640 tree name = TREE_OPERAND (declarator, 0);
2641 tree fns = NULL_TREE;
2642 int idx;
2644 if (constructor_name_p (name, ctype))
2646 int is_constructor = DECL_CONSTRUCTOR_P (decl);
2648 if (is_constructor ? !TYPE_HAS_USER_CONSTRUCTOR (ctype)
2649 : !CLASSTYPE_DESTRUCTORS (ctype))
2651 /* From [temp.expl.spec]:
2653 If such an explicit specialization for the member
2654 of a class template names an implicitly-declared
2655 special member function (clause _special_), the
2656 program is ill-formed.
2658 Similar language is found in [temp.explicit]. */
2659 error ("specialization of implicitly-declared special member function");
2660 return error_mark_node;
2663 name = is_constructor ? ctor_identifier : dtor_identifier;
2666 if (!DECL_CONV_FN_P (decl))
2668 idx = lookup_fnfields_1 (ctype, name);
2669 if (idx >= 0)
2670 fns = (*CLASSTYPE_METHOD_VEC (ctype))[idx];
2672 else
2674 vec<tree, va_gc> *methods;
2675 tree ovl;
2677 /* For a type-conversion operator, we cannot do a
2678 name-based lookup. We might be looking for `operator
2679 int' which will be a specialization of `operator T'.
2680 So, we find *all* the conversion operators, and then
2681 select from them. */
2682 fns = NULL_TREE;
2684 methods = CLASSTYPE_METHOD_VEC (ctype);
2685 if (methods)
2686 for (idx = CLASSTYPE_FIRST_CONVERSION_SLOT;
2687 methods->iterate (idx, &ovl);
2688 ++idx)
2690 if (!DECL_CONV_FN_P (OVL_CURRENT (ovl)))
2691 /* There are no more conversion functions. */
2692 break;
2694 /* Glue all these conversion functions together
2695 with those we already have. */
2696 for (; ovl; ovl = OVL_NEXT (ovl))
2697 fns = ovl_cons (OVL_CURRENT (ovl), fns);
2701 if (fns == NULL_TREE)
2703 error ("no member function %qD declared in %qT", name, ctype);
2704 return error_mark_node;
2706 else
2707 TREE_OPERAND (declarator, 0) = fns;
2710 /* Figure out what exactly is being specialized at this point.
2711 Note that for an explicit instantiation, even one for a
2712 member function, we cannot tell apriori whether the
2713 instantiation is for a member template, or just a member
2714 function of a template class. Even if a member template is
2715 being instantiated, the member template arguments may be
2716 elided if they can be deduced from the rest of the
2717 declaration. */
2718 tmpl = determine_specialization (declarator, decl,
2719 &targs,
2720 member_specialization,
2721 template_count,
2722 tsk);
2724 if (!tmpl || tmpl == error_mark_node)
2725 /* We couldn't figure out what this declaration was
2726 specializing. */
2727 return error_mark_node;
2728 else
2730 tree gen_tmpl = most_general_template (tmpl);
2732 if (explicit_instantiation)
2734 /* We don't set DECL_EXPLICIT_INSTANTIATION here; that
2735 is done by do_decl_instantiation later. */
2737 int arg_depth = TMPL_ARGS_DEPTH (targs);
2738 int parm_depth = TMPL_PARMS_DEPTH (DECL_TEMPLATE_PARMS (tmpl));
2740 if (arg_depth > parm_depth)
2742 /* If TMPL is not the most general template (for
2743 example, if TMPL is a friend template that is
2744 injected into namespace scope), then there will
2745 be too many levels of TARGS. Remove some of them
2746 here. */
2747 int i;
2748 tree new_targs;
2750 new_targs = make_tree_vec (parm_depth);
2751 for (i = arg_depth - parm_depth; i < arg_depth; ++i)
2752 TREE_VEC_ELT (new_targs, i - (arg_depth - parm_depth))
2753 = TREE_VEC_ELT (targs, i);
2754 targs = new_targs;
2757 return instantiate_template (tmpl, targs, tf_error);
2760 /* If we thought that the DECL was a member function, but it
2761 turns out to be specializing a static member function,
2762 make DECL a static member function as well. */
2763 if (DECL_FUNCTION_TEMPLATE_P (tmpl)
2764 && DECL_STATIC_FUNCTION_P (tmpl)
2765 && DECL_NONSTATIC_MEMBER_FUNCTION_P (decl))
2766 revert_static_member_fn (decl);
2768 /* If this is a specialization of a member template of a
2769 template class, we want to return the TEMPLATE_DECL, not
2770 the specialization of it. */
2771 if (tsk == tsk_template && !was_template_id)
2773 tree result = DECL_TEMPLATE_RESULT (tmpl);
2774 SET_DECL_TEMPLATE_SPECIALIZATION (tmpl);
2775 DECL_INITIAL (result) = NULL_TREE;
2776 if (have_def)
2778 tree parm;
2779 DECL_SOURCE_LOCATION (tmpl) = DECL_SOURCE_LOCATION (decl);
2780 DECL_SOURCE_LOCATION (result)
2781 = DECL_SOURCE_LOCATION (decl);
2782 /* We want to use the argument list specified in the
2783 definition, not in the original declaration. */
2784 DECL_ARGUMENTS (result) = DECL_ARGUMENTS (decl);
2785 for (parm = DECL_ARGUMENTS (result); parm;
2786 parm = DECL_CHAIN (parm))
2787 DECL_CONTEXT (parm) = result;
2789 return register_specialization (tmpl, gen_tmpl, targs,
2790 is_friend, 0);
2793 /* Set up the DECL_TEMPLATE_INFO for DECL. */
2794 DECL_TEMPLATE_INFO (decl) = build_template_info (tmpl, targs);
2796 if (was_template_id)
2797 TINFO_USED_TEMPLATE_ID (DECL_TEMPLATE_INFO (decl)) = true;
2799 /* Inherit default function arguments from the template
2800 DECL is specializing. */
2801 if (DECL_FUNCTION_TEMPLATE_P (tmpl))
2802 copy_default_args_to_explicit_spec (decl);
2804 /* This specialization has the same protection as the
2805 template it specializes. */
2806 TREE_PRIVATE (decl) = TREE_PRIVATE (gen_tmpl);
2807 TREE_PROTECTED (decl) = TREE_PROTECTED (gen_tmpl);
2809 /* 7.1.1-1 [dcl.stc]
2811 A storage-class-specifier shall not be specified in an
2812 explicit specialization...
2814 The parser rejects these, so unless action is taken here,
2815 explicit function specializations will always appear with
2816 global linkage.
2818 The action recommended by the C++ CWG in response to C++
2819 defect report 605 is to make the storage class and linkage
2820 of the explicit specialization match the templated function:
2822 http://www.open-std.org/jtc1/sc22/wg21/docs/cwg_active.html#605
2824 if (tsk == tsk_expl_spec && DECL_FUNCTION_TEMPLATE_P (gen_tmpl))
2826 tree tmpl_func = DECL_TEMPLATE_RESULT (gen_tmpl);
2827 gcc_assert (TREE_CODE (tmpl_func) == FUNCTION_DECL);
2829 /* This specialization has the same linkage and visibility as
2830 the function template it specializes. */
2831 TREE_PUBLIC (decl) = TREE_PUBLIC (tmpl_func);
2832 if (! TREE_PUBLIC (decl))
2834 DECL_INTERFACE_KNOWN (decl) = 1;
2835 DECL_NOT_REALLY_EXTERN (decl) = 1;
2837 DECL_THIS_STATIC (decl) = DECL_THIS_STATIC (tmpl_func);
2838 if (DECL_VISIBILITY_SPECIFIED (tmpl_func))
2840 DECL_VISIBILITY_SPECIFIED (decl) = 1;
2841 DECL_VISIBILITY (decl) = DECL_VISIBILITY (tmpl_func);
2845 /* If DECL is a friend declaration, declared using an
2846 unqualified name, the namespace associated with DECL may
2847 have been set incorrectly. For example, in:
2849 template <typename T> void f(T);
2850 namespace N {
2851 struct S { friend void f<int>(int); }
2854 we will have set the DECL_CONTEXT for the friend
2855 declaration to N, rather than to the global namespace. */
2856 if (DECL_NAMESPACE_SCOPE_P (decl))
2857 DECL_CONTEXT (decl) = DECL_CONTEXT (tmpl);
2859 if (is_friend && !have_def)
2860 /* This is not really a declaration of a specialization.
2861 It's just the name of an instantiation. But, it's not
2862 a request for an instantiation, either. */
2863 SET_DECL_IMPLICIT_INSTANTIATION (decl);
2864 else if (TREE_CODE (decl) == FUNCTION_DECL)
2865 /* A specialization is not necessarily COMDAT. */
2866 DECL_COMDAT (decl) = (TREE_PUBLIC (decl)
2867 && DECL_DECLARED_INLINE_P (decl));
2868 else if (TREE_CODE (decl) == VAR_DECL)
2869 DECL_COMDAT (decl) = false;
2871 /* Register this specialization so that we can find it
2872 again. */
2873 decl = register_specialization (decl, gen_tmpl, targs, is_friend, 0);
2875 /* A 'structor should already have clones. */
2876 gcc_assert (decl == error_mark_node
2877 || variable_template_p (tmpl)
2878 || !(DECL_CONSTRUCTOR_P (decl)
2879 || DECL_DESTRUCTOR_P (decl))
2880 || DECL_CLONED_FUNCTION_P (DECL_CHAIN (decl)));
2884 return decl;
2887 /* Returns 1 iff PARMS1 and PARMS2 are identical sets of template
2888 parameters. These are represented in the same format used for
2889 DECL_TEMPLATE_PARMS. */
2892 comp_template_parms (const_tree parms1, const_tree parms2)
2894 const_tree p1;
2895 const_tree p2;
2897 if (parms1 == parms2)
2898 return 1;
2900 for (p1 = parms1, p2 = parms2;
2901 p1 != NULL_TREE && p2 != NULL_TREE;
2902 p1 = TREE_CHAIN (p1), p2 = TREE_CHAIN (p2))
2904 tree t1 = TREE_VALUE (p1);
2905 tree t2 = TREE_VALUE (p2);
2906 int i;
2908 gcc_assert (TREE_CODE (t1) == TREE_VEC);
2909 gcc_assert (TREE_CODE (t2) == TREE_VEC);
2911 if (TREE_VEC_LENGTH (t1) != TREE_VEC_LENGTH (t2))
2912 return 0;
2914 for (i = 0; i < TREE_VEC_LENGTH (t2); ++i)
2916 tree parm1 = TREE_VALUE (TREE_VEC_ELT (t1, i));
2917 tree parm2 = TREE_VALUE (TREE_VEC_ELT (t2, i));
2919 /* If either of the template parameters are invalid, assume
2920 they match for the sake of error recovery. */
2921 if (error_operand_p (parm1) || error_operand_p (parm2))
2922 return 1;
2924 if (TREE_CODE (parm1) != TREE_CODE (parm2))
2925 return 0;
2927 if (TREE_CODE (parm1) == TEMPLATE_TYPE_PARM
2928 && (TEMPLATE_TYPE_PARAMETER_PACK (parm1)
2929 == TEMPLATE_TYPE_PARAMETER_PACK (parm2)))
2930 continue;
2931 else if (!same_type_p (TREE_TYPE (parm1), TREE_TYPE (parm2)))
2932 return 0;
2936 if ((p1 != NULL_TREE) != (p2 != NULL_TREE))
2937 /* One set of parameters has more parameters lists than the
2938 other. */
2939 return 0;
2941 return 1;
2944 /* Determine whether PARM is a parameter pack. */
2946 bool
2947 template_parameter_pack_p (const_tree parm)
2949 /* Determine if we have a non-type template parameter pack. */
2950 if (TREE_CODE (parm) == PARM_DECL)
2951 return (DECL_TEMPLATE_PARM_P (parm)
2952 && TEMPLATE_PARM_PARAMETER_PACK (DECL_INITIAL (parm)));
2953 if (TREE_CODE (parm) == TEMPLATE_PARM_INDEX)
2954 return TEMPLATE_PARM_PARAMETER_PACK (parm);
2956 /* If this is a list of template parameters, we could get a
2957 TYPE_DECL or a TEMPLATE_DECL. */
2958 if (TREE_CODE (parm) == TYPE_DECL || TREE_CODE (parm) == TEMPLATE_DECL)
2959 parm = TREE_TYPE (parm);
2961 /* Otherwise it must be a type template parameter. */
2962 return ((TREE_CODE (parm) == TEMPLATE_TYPE_PARM
2963 || TREE_CODE (parm) == TEMPLATE_TEMPLATE_PARM)
2964 && TEMPLATE_TYPE_PARAMETER_PACK (parm));
2967 /* Determine if T is a function parameter pack. */
2969 bool
2970 function_parameter_pack_p (const_tree t)
2972 if (t && TREE_CODE (t) == PARM_DECL)
2973 return DECL_PACK_P (t);
2974 return false;
2977 /* Return the function template declaration of PRIMARY_FUNC_TMPL_INST.
2978 PRIMARY_FUNC_TMPL_INST is a primary function template instantiation. */
2980 tree
2981 get_function_template_decl (const_tree primary_func_tmpl_inst)
2983 if (! primary_func_tmpl_inst
2984 || TREE_CODE (primary_func_tmpl_inst) != FUNCTION_DECL
2985 || ! primary_template_instantiation_p (primary_func_tmpl_inst))
2986 return NULL;
2988 return DECL_TEMPLATE_RESULT (DECL_TI_TEMPLATE (primary_func_tmpl_inst));
2991 /* Return true iff the function parameter PARAM_DECL was expanded
2992 from the function parameter pack PACK. */
2994 bool
2995 function_parameter_expanded_from_pack_p (tree param_decl, tree pack)
2997 if (DECL_ARTIFICIAL (param_decl)
2998 || !function_parameter_pack_p (pack))
2999 return false;
3001 /* The parameter pack and its pack arguments have the same
3002 DECL_PARM_INDEX. */
3003 return DECL_PARM_INDEX (pack) == DECL_PARM_INDEX (param_decl);
3006 /* Determine whether ARGS describes a variadic template args list,
3007 i.e., one that is terminated by a template argument pack. */
3009 static bool
3010 template_args_variadic_p (tree args)
3012 int nargs;
3013 tree last_parm;
3015 if (args == NULL_TREE)
3016 return false;
3018 args = INNERMOST_TEMPLATE_ARGS (args);
3019 nargs = TREE_VEC_LENGTH (args);
3021 if (nargs == 0)
3022 return false;
3024 last_parm = TREE_VEC_ELT (args, nargs - 1);
3026 return ARGUMENT_PACK_P (last_parm);
3029 /* Generate a new name for the parameter pack name NAME (an
3030 IDENTIFIER_NODE) that incorporates its */
3032 static tree
3033 make_ith_pack_parameter_name (tree name, int i)
3035 /* Munge the name to include the parameter index. */
3036 #define NUMBUF_LEN 128
3037 char numbuf[NUMBUF_LEN];
3038 char* newname;
3039 int newname_len;
3041 if (name == NULL_TREE)
3042 return name;
3043 snprintf (numbuf, NUMBUF_LEN, "%i", i);
3044 newname_len = IDENTIFIER_LENGTH (name)
3045 + strlen (numbuf) + 2;
3046 newname = (char*)alloca (newname_len);
3047 snprintf (newname, newname_len,
3048 "%s#%i", IDENTIFIER_POINTER (name), i);
3049 return get_identifier (newname);
3052 /* Return true if T is a primary function, class or alias template
3053 instantiation. */
3055 bool
3056 primary_template_instantiation_p (const_tree t)
3058 if (!t)
3059 return false;
3061 if (TREE_CODE (t) == FUNCTION_DECL)
3062 return DECL_LANG_SPECIFIC (t)
3063 && DECL_TEMPLATE_INSTANTIATION (t)
3064 && PRIMARY_TEMPLATE_P (DECL_TI_TEMPLATE (t));
3065 else if (CLASS_TYPE_P (t) && !TYPE_DECL_ALIAS_P (TYPE_NAME (t)))
3066 return CLASSTYPE_TEMPLATE_INSTANTIATION (t)
3067 && PRIMARY_TEMPLATE_P (CLASSTYPE_TI_TEMPLATE (t));
3068 else if (alias_template_specialization_p (t))
3069 return true;
3070 return false;
3073 /* Return true if PARM is a template template parameter. */
3075 bool
3076 template_template_parameter_p (const_tree parm)
3078 return DECL_TEMPLATE_TEMPLATE_PARM_P (parm);
3081 /* Return true iff PARM is a DECL representing a type template
3082 parameter. */
3084 bool
3085 template_type_parameter_p (const_tree parm)
3087 return (parm
3088 && (TREE_CODE (parm) == TYPE_DECL
3089 || TREE_CODE (parm) == TEMPLATE_DECL)
3090 && DECL_TEMPLATE_PARM_P (parm));
3093 /* Return the template parameters of T if T is a
3094 primary template instantiation, NULL otherwise. */
3096 tree
3097 get_primary_template_innermost_parameters (const_tree t)
3099 tree parms = NULL, template_info = NULL;
3101 if ((template_info = get_template_info (t))
3102 && primary_template_instantiation_p (t))
3103 parms = INNERMOST_TEMPLATE_PARMS
3104 (DECL_TEMPLATE_PARMS (TI_TEMPLATE (template_info)));
3106 return parms;
3109 /* Return the template parameters of the LEVELth level from the full list
3110 of template parameters PARMS. */
3112 tree
3113 get_template_parms_at_level (tree parms, int level)
3115 tree p;
3116 if (!parms
3117 || TREE_CODE (parms) != TREE_LIST
3118 || level > TMPL_PARMS_DEPTH (parms))
3119 return NULL_TREE;
3121 for (p = parms; p; p = TREE_CHAIN (p))
3122 if (TMPL_PARMS_DEPTH (p) == level)
3123 return p;
3125 return NULL_TREE;
3128 /* Returns the template arguments of T if T is a template instantiation,
3129 NULL otherwise. */
3131 tree
3132 get_template_innermost_arguments (const_tree t)
3134 tree args = NULL, template_info = NULL;
3136 if ((template_info = get_template_info (t))
3137 && TI_ARGS (template_info))
3138 args = INNERMOST_TEMPLATE_ARGS (TI_ARGS (template_info));
3140 return args;
3143 /* Return the argument pack elements of T if T is a template argument pack,
3144 NULL otherwise. */
3146 tree
3147 get_template_argument_pack_elems (const_tree t)
3149 if (TREE_CODE (t) != TYPE_ARGUMENT_PACK
3150 && TREE_CODE (t) != NONTYPE_ARGUMENT_PACK)
3151 return NULL;
3153 return ARGUMENT_PACK_ARGS (t);
3156 /* Structure used to track the progress of find_parameter_packs_r. */
3157 struct find_parameter_pack_data
3159 /* TREE_LIST that will contain all of the parameter packs found by
3160 the traversal. */
3161 tree* parameter_packs;
3163 /* Set of AST nodes that have been visited by the traversal. */
3164 hash_set<tree> *visited;
3167 /* Identifies all of the argument packs that occur in a template
3168 argument and appends them to the TREE_LIST inside DATA, which is a
3169 find_parameter_pack_data structure. This is a subroutine of
3170 make_pack_expansion and uses_parameter_packs. */
3171 static tree
3172 find_parameter_packs_r (tree *tp, int *walk_subtrees, void* data)
3174 tree t = *tp;
3175 struct find_parameter_pack_data* ppd =
3176 (struct find_parameter_pack_data*)data;
3177 bool parameter_pack_p = false;
3179 /* Handle type aliases/typedefs. */
3180 if (TYPE_ALIAS_P (t))
3182 if (TYPE_TEMPLATE_INFO (t))
3183 cp_walk_tree (&TYPE_TI_ARGS (t),
3184 &find_parameter_packs_r,
3185 ppd, ppd->visited);
3186 *walk_subtrees = 0;
3187 return NULL_TREE;
3190 /* Identify whether this is a parameter pack or not. */
3191 switch (TREE_CODE (t))
3193 case TEMPLATE_PARM_INDEX:
3194 if (TEMPLATE_PARM_PARAMETER_PACK (t))
3195 parameter_pack_p = true;
3196 break;
3198 case TEMPLATE_TYPE_PARM:
3199 t = TYPE_MAIN_VARIANT (t);
3200 case TEMPLATE_TEMPLATE_PARM:
3201 if (TEMPLATE_TYPE_PARAMETER_PACK (t))
3202 parameter_pack_p = true;
3203 break;
3205 case FIELD_DECL:
3206 case PARM_DECL:
3207 if (DECL_PACK_P (t))
3209 /* We don't want to walk into the type of a PARM_DECL,
3210 because we don't want to see the type parameter pack. */
3211 *walk_subtrees = 0;
3212 parameter_pack_p = true;
3214 break;
3216 /* Look through a lambda capture proxy to the field pack. */
3217 case VAR_DECL:
3218 if (DECL_HAS_VALUE_EXPR_P (t))
3220 tree v = DECL_VALUE_EXPR (t);
3221 cp_walk_tree (&v,
3222 &find_parameter_packs_r,
3223 ppd, ppd->visited);
3224 *walk_subtrees = 0;
3226 break;
3228 case BASES:
3229 parameter_pack_p = true;
3230 break;
3231 default:
3232 /* Not a parameter pack. */
3233 break;
3236 if (parameter_pack_p)
3238 /* Add this parameter pack to the list. */
3239 *ppd->parameter_packs = tree_cons (NULL_TREE, t, *ppd->parameter_packs);
3242 if (TYPE_P (t))
3243 cp_walk_tree (&TYPE_CONTEXT (t),
3244 &find_parameter_packs_r, ppd, ppd->visited);
3246 /* This switch statement will return immediately if we don't find a
3247 parameter pack. */
3248 switch (TREE_CODE (t))
3250 case TEMPLATE_PARM_INDEX:
3251 return NULL_TREE;
3253 case BOUND_TEMPLATE_TEMPLATE_PARM:
3254 /* Check the template itself. */
3255 cp_walk_tree (&TREE_TYPE (TYPE_TI_TEMPLATE (t)),
3256 &find_parameter_packs_r, ppd, ppd->visited);
3257 /* Check the template arguments. */
3258 cp_walk_tree (&TYPE_TI_ARGS (t), &find_parameter_packs_r, ppd,
3259 ppd->visited);
3260 *walk_subtrees = 0;
3261 return NULL_TREE;
3263 case TEMPLATE_TYPE_PARM:
3264 case TEMPLATE_TEMPLATE_PARM:
3265 return NULL_TREE;
3267 case PARM_DECL:
3268 return NULL_TREE;
3270 case RECORD_TYPE:
3271 if (TYPE_PTRMEMFUNC_P (t))
3272 return NULL_TREE;
3273 /* Fall through. */
3275 case UNION_TYPE:
3276 case ENUMERAL_TYPE:
3277 if (TYPE_TEMPLATE_INFO (t))
3278 cp_walk_tree (&TYPE_TI_ARGS (t),
3279 &find_parameter_packs_r, ppd, ppd->visited);
3281 *walk_subtrees = 0;
3282 return NULL_TREE;
3284 case CONSTRUCTOR:
3285 case TEMPLATE_DECL:
3286 cp_walk_tree (&TREE_TYPE (t),
3287 &find_parameter_packs_r, ppd, ppd->visited);
3288 return NULL_TREE;
3290 case TYPENAME_TYPE:
3291 cp_walk_tree (&TYPENAME_TYPE_FULLNAME (t), &find_parameter_packs_r,
3292 ppd, ppd->visited);
3293 *walk_subtrees = 0;
3294 return NULL_TREE;
3296 case TYPE_PACK_EXPANSION:
3297 case EXPR_PACK_EXPANSION:
3298 *walk_subtrees = 0;
3299 return NULL_TREE;
3301 case INTEGER_TYPE:
3302 cp_walk_tree (&TYPE_MAX_VALUE (t), &find_parameter_packs_r,
3303 ppd, ppd->visited);
3304 *walk_subtrees = 0;
3305 return NULL_TREE;
3307 case IDENTIFIER_NODE:
3308 cp_walk_tree (&TREE_TYPE (t), &find_parameter_packs_r, ppd,
3309 ppd->visited);
3310 *walk_subtrees = 0;
3311 return NULL_TREE;
3313 default:
3314 return NULL_TREE;
3317 return NULL_TREE;
3320 /* Determines if the expression or type T uses any parameter packs. */
3321 bool
3322 uses_parameter_packs (tree t)
3324 tree parameter_packs = NULL_TREE;
3325 struct find_parameter_pack_data ppd;
3326 ppd.parameter_packs = &parameter_packs;
3327 ppd.visited = new hash_set<tree>;
3328 cp_walk_tree (&t, &find_parameter_packs_r, &ppd, ppd.visited);
3329 delete ppd.visited;
3330 return parameter_packs != NULL_TREE;
3333 /* Turn ARG, which may be an expression, type, or a TREE_LIST
3334 representation a base-class initializer into a parameter pack
3335 expansion. If all goes well, the resulting node will be an
3336 EXPR_PACK_EXPANSION, TYPE_PACK_EXPANSION, or TREE_LIST,
3337 respectively. */
3338 tree
3339 make_pack_expansion (tree arg)
3341 tree result;
3342 tree parameter_packs = NULL_TREE;
3343 bool for_types = false;
3344 struct find_parameter_pack_data ppd;
3346 if (!arg || arg == error_mark_node)
3347 return arg;
3349 if (TREE_CODE (arg) == TREE_LIST && TREE_PURPOSE (arg))
3351 /* A TREE_LIST with a non-null TREE_PURPOSE is for a base
3352 class initializer. In this case, the TREE_PURPOSE will be a
3353 _TYPE node (representing the base class expansion we're
3354 initializing) and the TREE_VALUE will be a TREE_LIST
3355 containing the initialization arguments.
3357 The resulting expansion looks somewhat different from most
3358 expansions. Rather than returning just one _EXPANSION, we
3359 return a TREE_LIST whose TREE_PURPOSE is a
3360 TYPE_PACK_EXPANSION containing the bases that will be
3361 initialized. The TREE_VALUE will be identical to the
3362 original TREE_VALUE, which is a list of arguments that will
3363 be passed to each base. We do not introduce any new pack
3364 expansion nodes into the TREE_VALUE (although it is possible
3365 that some already exist), because the TREE_PURPOSE and
3366 TREE_VALUE all need to be expanded together with the same
3367 _EXPANSION node. Note that the TYPE_PACK_EXPANSION in the
3368 resulting TREE_PURPOSE will mention the parameter packs in
3369 both the bases and the arguments to the bases. */
3370 tree purpose;
3371 tree value;
3372 tree parameter_packs = NULL_TREE;
3374 /* Determine which parameter packs will be used by the base
3375 class expansion. */
3376 ppd.visited = new hash_set<tree>;
3377 ppd.parameter_packs = &parameter_packs;
3378 cp_walk_tree (&TREE_PURPOSE (arg), &find_parameter_packs_r,
3379 &ppd, ppd.visited);
3381 if (parameter_packs == NULL_TREE)
3383 error ("base initializer expansion %<%T%> contains no parameter packs", arg);
3384 delete ppd.visited;
3385 return error_mark_node;
3388 if (TREE_VALUE (arg) != void_type_node)
3390 /* Collect the sets of parameter packs used in each of the
3391 initialization arguments. */
3392 for (value = TREE_VALUE (arg); value; value = TREE_CHAIN (value))
3394 /* Determine which parameter packs will be expanded in this
3395 argument. */
3396 cp_walk_tree (&TREE_VALUE (value), &find_parameter_packs_r,
3397 &ppd, ppd.visited);
3401 delete ppd.visited;
3403 /* Create the pack expansion type for the base type. */
3404 purpose = cxx_make_type (TYPE_PACK_EXPANSION);
3405 SET_PACK_EXPANSION_PATTERN (purpose, TREE_PURPOSE (arg));
3406 PACK_EXPANSION_PARAMETER_PACKS (purpose) = parameter_packs;
3408 /* Just use structural equality for these TYPE_PACK_EXPANSIONS;
3409 they will rarely be compared to anything. */
3410 SET_TYPE_STRUCTURAL_EQUALITY (purpose);
3412 return tree_cons (purpose, TREE_VALUE (arg), NULL_TREE);
3415 if (TYPE_P (arg) || TREE_CODE (arg) == TEMPLATE_DECL)
3416 for_types = true;
3418 /* Build the PACK_EXPANSION_* node. */
3419 result = for_types
3420 ? cxx_make_type (TYPE_PACK_EXPANSION)
3421 : make_node (EXPR_PACK_EXPANSION);
3422 SET_PACK_EXPANSION_PATTERN (result, arg);
3423 if (TREE_CODE (result) == EXPR_PACK_EXPANSION)
3425 /* Propagate type and const-expression information. */
3426 TREE_TYPE (result) = TREE_TYPE (arg);
3427 TREE_CONSTANT (result) = TREE_CONSTANT (arg);
3429 else
3430 /* Just use structural equality for these TYPE_PACK_EXPANSIONS;
3431 they will rarely be compared to anything. */
3432 SET_TYPE_STRUCTURAL_EQUALITY (result);
3434 /* Determine which parameter packs will be expanded. */
3435 ppd.parameter_packs = &parameter_packs;
3436 ppd.visited = new hash_set<tree>;
3437 cp_walk_tree (&arg, &find_parameter_packs_r, &ppd, ppd.visited);
3438 delete ppd.visited;
3440 /* Make sure we found some parameter packs. */
3441 if (parameter_packs == NULL_TREE)
3443 if (TYPE_P (arg))
3444 error ("expansion pattern %<%T%> contains no argument packs", arg);
3445 else
3446 error ("expansion pattern %<%E%> contains no argument packs", arg);
3447 return error_mark_node;
3449 PACK_EXPANSION_PARAMETER_PACKS (result) = parameter_packs;
3451 PACK_EXPANSION_LOCAL_P (result) = at_function_scope_p ();
3453 return result;
3456 /* Checks T for any "bare" parameter packs, which have not yet been
3457 expanded, and issues an error if any are found. This operation can
3458 only be done on full expressions or types (e.g., an expression
3459 statement, "if" condition, etc.), because we could have expressions like:
3461 foo(f(g(h(args)))...)
3463 where "args" is a parameter pack. check_for_bare_parameter_packs
3464 should not be called for the subexpressions args, h(args),
3465 g(h(args)), or f(g(h(args))), because we would produce erroneous
3466 error messages.
3468 Returns TRUE and emits an error if there were bare parameter packs,
3469 returns FALSE otherwise. */
3470 bool
3471 check_for_bare_parameter_packs (tree t)
3473 tree parameter_packs = NULL_TREE;
3474 struct find_parameter_pack_data ppd;
3476 if (!processing_template_decl || !t || t == error_mark_node)
3477 return false;
3479 if (TREE_CODE (t) == TYPE_DECL)
3480 t = TREE_TYPE (t);
3482 ppd.parameter_packs = &parameter_packs;
3483 ppd.visited = new hash_set<tree>;
3484 cp_walk_tree (&t, &find_parameter_packs_r, &ppd, ppd.visited);
3485 delete ppd.visited;
3487 if (parameter_packs)
3489 error ("parameter packs not expanded with %<...%>:");
3490 while (parameter_packs)
3492 tree pack = TREE_VALUE (parameter_packs);
3493 tree name = NULL_TREE;
3495 if (TREE_CODE (pack) == TEMPLATE_TYPE_PARM
3496 || TREE_CODE (pack) == TEMPLATE_TEMPLATE_PARM)
3497 name = TYPE_NAME (pack);
3498 else if (TREE_CODE (pack) == TEMPLATE_PARM_INDEX)
3499 name = DECL_NAME (TEMPLATE_PARM_DECL (pack));
3500 else
3501 name = DECL_NAME (pack);
3503 if (name)
3504 inform (input_location, " %qD", name);
3505 else
3506 inform (input_location, " <anonymous>");
3508 parameter_packs = TREE_CHAIN (parameter_packs);
3511 return true;
3514 return false;
3517 /* Expand any parameter packs that occur in the template arguments in
3518 ARGS. */
3519 tree
3520 expand_template_argument_pack (tree args)
3522 tree result_args = NULL_TREE;
3523 int in_arg, out_arg = 0, nargs = args ? TREE_VEC_LENGTH (args) : 0;
3524 int num_result_args = -1;
3525 int non_default_args_count = -1;
3527 /* First, determine if we need to expand anything, and the number of
3528 slots we'll need. */
3529 for (in_arg = 0; in_arg < nargs; ++in_arg)
3531 tree arg = TREE_VEC_ELT (args, in_arg);
3532 if (arg == NULL_TREE)
3533 return args;
3534 if (ARGUMENT_PACK_P (arg))
3536 int num_packed = TREE_VEC_LENGTH (ARGUMENT_PACK_ARGS (arg));
3537 if (num_result_args < 0)
3538 num_result_args = in_arg + num_packed;
3539 else
3540 num_result_args += num_packed;
3542 else
3544 if (num_result_args >= 0)
3545 num_result_args++;
3549 /* If no expansion is necessary, we're done. */
3550 if (num_result_args < 0)
3551 return args;
3553 /* Expand arguments. */
3554 result_args = make_tree_vec (num_result_args);
3555 if (NON_DEFAULT_TEMPLATE_ARGS_COUNT (args))
3556 non_default_args_count =
3557 GET_NON_DEFAULT_TEMPLATE_ARGS_COUNT (args);
3558 for (in_arg = 0; in_arg < nargs; ++in_arg)
3560 tree arg = TREE_VEC_ELT (args, in_arg);
3561 if (ARGUMENT_PACK_P (arg))
3563 tree packed = ARGUMENT_PACK_ARGS (arg);
3564 int i, num_packed = TREE_VEC_LENGTH (packed);
3565 for (i = 0; i < num_packed; ++i, ++out_arg)
3566 TREE_VEC_ELT (result_args, out_arg) = TREE_VEC_ELT(packed, i);
3567 if (non_default_args_count > 0)
3568 non_default_args_count += num_packed - 1;
3570 else
3572 TREE_VEC_ELT (result_args, out_arg) = arg;
3573 ++out_arg;
3576 if (non_default_args_count >= 0)
3577 SET_NON_DEFAULT_TEMPLATE_ARGS_COUNT (result_args, non_default_args_count);
3578 return result_args;
3581 /* Checks if DECL shadows a template parameter.
3583 [temp.local]: A template-parameter shall not be redeclared within its
3584 scope (including nested scopes).
3586 Emits an error and returns TRUE if the DECL shadows a parameter,
3587 returns FALSE otherwise. */
3589 bool
3590 check_template_shadow (tree decl)
3592 tree olddecl;
3594 /* If we're not in a template, we can't possibly shadow a template
3595 parameter. */
3596 if (!current_template_parms)
3597 return true;
3599 /* Figure out what we're shadowing. */
3600 if (TREE_CODE (decl) == OVERLOAD)
3601 decl = OVL_CURRENT (decl);
3602 olddecl = innermost_non_namespace_value (DECL_NAME (decl));
3604 /* If there's no previous binding for this name, we're not shadowing
3605 anything, let alone a template parameter. */
3606 if (!olddecl)
3607 return true;
3609 /* If we're not shadowing a template parameter, we're done. Note
3610 that OLDDECL might be an OVERLOAD (or perhaps even an
3611 ERROR_MARK), so we can't just blithely assume it to be a _DECL
3612 node. */
3613 if (!DECL_P (olddecl) || !DECL_TEMPLATE_PARM_P (olddecl))
3614 return true;
3616 /* We check for decl != olddecl to avoid bogus errors for using a
3617 name inside a class. We check TPFI to avoid duplicate errors for
3618 inline member templates. */
3619 if (decl == olddecl
3620 || (DECL_TEMPLATE_PARM_P (decl)
3621 && TEMPLATE_PARMS_FOR_INLINE (current_template_parms)))
3622 return true;
3624 /* Don't complain about the injected class name, as we've already
3625 complained about the class itself. */
3626 if (DECL_SELF_REFERENCE_P (decl))
3627 return false;
3629 error ("declaration of %q+#D", decl);
3630 error (" shadows template parm %q+#D", olddecl);
3631 return false;
3634 /* Return a new TEMPLATE_PARM_INDEX with the indicated INDEX, LEVEL,
3635 ORIG_LEVEL, DECL, and TYPE. */
3637 static tree
3638 build_template_parm_index (int index,
3639 int level,
3640 int orig_level,
3641 tree decl,
3642 tree type)
3644 tree t = make_node (TEMPLATE_PARM_INDEX);
3645 TEMPLATE_PARM_IDX (t) = index;
3646 TEMPLATE_PARM_LEVEL (t) = level;
3647 TEMPLATE_PARM_ORIG_LEVEL (t) = orig_level;
3648 TEMPLATE_PARM_DECL (t) = decl;
3649 TREE_TYPE (t) = type;
3650 TREE_CONSTANT (t) = TREE_CONSTANT (decl);
3651 TREE_READONLY (t) = TREE_READONLY (decl);
3653 return t;
3656 /* Find the canonical type parameter for the given template type
3657 parameter. Returns the canonical type parameter, which may be TYPE
3658 if no such parameter existed. */
3660 static tree
3661 canonical_type_parameter (tree type)
3663 tree list;
3664 int idx = TEMPLATE_TYPE_IDX (type);
3665 if (!canonical_template_parms)
3666 vec_alloc (canonical_template_parms, idx+1);
3668 while (canonical_template_parms->length () <= (unsigned)idx)
3669 vec_safe_push (canonical_template_parms, NULL_TREE);
3671 list = (*canonical_template_parms)[idx];
3672 while (list && !comptypes (type, TREE_VALUE (list), COMPARE_STRUCTURAL))
3673 list = TREE_CHAIN (list);
3675 if (list)
3676 return TREE_VALUE (list);
3677 else
3679 (*canonical_template_parms)[idx]
3680 = tree_cons (NULL_TREE, type,
3681 (*canonical_template_parms)[idx]);
3682 return type;
3686 /* Return a TEMPLATE_PARM_INDEX, similar to INDEX, but whose
3687 TEMPLATE_PARM_LEVEL has been decreased by LEVELS. If such a
3688 TEMPLATE_PARM_INDEX already exists, it is returned; otherwise, a
3689 new one is created. */
3691 static tree
3692 reduce_template_parm_level (tree index, tree type, int levels, tree args,
3693 tsubst_flags_t complain)
3695 if (TEMPLATE_PARM_DESCENDANTS (index) == NULL_TREE
3696 || (TEMPLATE_PARM_LEVEL (TEMPLATE_PARM_DESCENDANTS (index))
3697 != TEMPLATE_PARM_LEVEL (index) - levels)
3698 || !same_type_p (type, TREE_TYPE (TEMPLATE_PARM_DESCENDANTS (index))))
3700 tree orig_decl = TEMPLATE_PARM_DECL (index);
3701 tree decl, t;
3703 decl = build_decl (DECL_SOURCE_LOCATION (orig_decl),
3704 TREE_CODE (orig_decl), DECL_NAME (orig_decl), type);
3705 TREE_CONSTANT (decl) = TREE_CONSTANT (orig_decl);
3706 TREE_READONLY (decl) = TREE_READONLY (orig_decl);
3707 DECL_ARTIFICIAL (decl) = 1;
3708 SET_DECL_TEMPLATE_PARM_P (decl);
3710 t = build_template_parm_index (TEMPLATE_PARM_IDX (index),
3711 TEMPLATE_PARM_LEVEL (index) - levels,
3712 TEMPLATE_PARM_ORIG_LEVEL (index),
3713 decl, type);
3714 TEMPLATE_PARM_DESCENDANTS (index) = t;
3715 TEMPLATE_PARM_PARAMETER_PACK (t)
3716 = TEMPLATE_PARM_PARAMETER_PACK (index);
3718 /* Template template parameters need this. */
3719 if (TREE_CODE (decl) == TEMPLATE_DECL)
3720 DECL_TEMPLATE_PARMS (decl) = tsubst_template_parms
3721 (DECL_TEMPLATE_PARMS (TEMPLATE_PARM_DECL (index)),
3722 args, complain);
3725 return TEMPLATE_PARM_DESCENDANTS (index);
3728 /* Process information from new template parameter PARM and append it
3729 to the LIST being built. This new parameter is a non-type
3730 parameter iff IS_NON_TYPE is true. This new parameter is a
3731 parameter pack iff IS_PARAMETER_PACK is true. The location of PARM
3732 is in PARM_LOC. */
3734 tree
3735 process_template_parm (tree list, location_t parm_loc, tree parm,
3736 bool is_non_type, bool is_parameter_pack)
3738 tree decl = 0;
3739 tree defval;
3740 int idx = 0;
3742 gcc_assert (TREE_CODE (parm) == TREE_LIST);
3743 defval = TREE_PURPOSE (parm);
3745 if (list)
3747 tree p = tree_last (list);
3749 if (p && TREE_VALUE (p) != error_mark_node)
3751 p = TREE_VALUE (p);
3752 if (TREE_CODE (p) == TYPE_DECL || TREE_CODE (p) == TEMPLATE_DECL)
3753 idx = TEMPLATE_TYPE_IDX (TREE_TYPE (p));
3754 else
3755 idx = TEMPLATE_PARM_IDX (DECL_INITIAL (p));
3758 ++idx;
3761 if (is_non_type)
3763 parm = TREE_VALUE (parm);
3765 SET_DECL_TEMPLATE_PARM_P (parm);
3767 if (TREE_TYPE (parm) != error_mark_node)
3769 /* [temp.param]
3771 The top-level cv-qualifiers on the template-parameter are
3772 ignored when determining its type. */
3773 TREE_TYPE (parm) = TYPE_MAIN_VARIANT (TREE_TYPE (parm));
3774 if (invalid_nontype_parm_type_p (TREE_TYPE (parm), 1))
3775 TREE_TYPE (parm) = error_mark_node;
3776 else if (uses_parameter_packs (TREE_TYPE (parm))
3777 && !is_parameter_pack
3778 /* If we're in a nested template parameter list, the template
3779 template parameter could be a parameter pack. */
3780 && processing_template_parmlist == 1)
3782 /* This template parameter is not a parameter pack, but it
3783 should be. Complain about "bare" parameter packs. */
3784 check_for_bare_parameter_packs (TREE_TYPE (parm));
3786 /* Recover by calling this a parameter pack. */
3787 is_parameter_pack = true;
3791 /* A template parameter is not modifiable. */
3792 TREE_CONSTANT (parm) = 1;
3793 TREE_READONLY (parm) = 1;
3794 decl = build_decl (parm_loc,
3795 CONST_DECL, DECL_NAME (parm), TREE_TYPE (parm));
3796 TREE_CONSTANT (decl) = 1;
3797 TREE_READONLY (decl) = 1;
3798 DECL_INITIAL (parm) = DECL_INITIAL (decl)
3799 = build_template_parm_index (idx, processing_template_decl,
3800 processing_template_decl,
3801 decl, TREE_TYPE (parm));
3803 TEMPLATE_PARM_PARAMETER_PACK (DECL_INITIAL (parm))
3804 = is_parameter_pack;
3806 else
3808 tree t;
3809 parm = TREE_VALUE (TREE_VALUE (parm));
3811 if (parm && TREE_CODE (parm) == TEMPLATE_DECL)
3813 t = cxx_make_type (TEMPLATE_TEMPLATE_PARM);
3814 /* This is for distinguishing between real templates and template
3815 template parameters */
3816 TREE_TYPE (parm) = t;
3817 TREE_TYPE (DECL_TEMPLATE_RESULT (parm)) = t;
3818 decl = parm;
3820 else
3822 t = cxx_make_type (TEMPLATE_TYPE_PARM);
3823 /* parm is either IDENTIFIER_NODE or NULL_TREE. */
3824 decl = build_decl (parm_loc,
3825 TYPE_DECL, parm, t);
3828 TYPE_NAME (t) = decl;
3829 TYPE_STUB_DECL (t) = decl;
3830 parm = decl;
3831 TEMPLATE_TYPE_PARM_INDEX (t)
3832 = build_template_parm_index (idx, processing_template_decl,
3833 processing_template_decl,
3834 decl, TREE_TYPE (parm));
3835 TEMPLATE_TYPE_PARAMETER_PACK (t) = is_parameter_pack;
3836 TYPE_CANONICAL (t) = canonical_type_parameter (t);
3838 DECL_ARTIFICIAL (decl) = 1;
3839 SET_DECL_TEMPLATE_PARM_P (decl);
3840 pushdecl (decl);
3841 parm = build_tree_list (defval, parm);
3842 return chainon (list, parm);
3845 /* The end of a template parameter list has been reached. Process the
3846 tree list into a parameter vector, converting each parameter into a more
3847 useful form. Type parameters are saved as IDENTIFIER_NODEs, and others
3848 as PARM_DECLs. */
3850 tree
3851 end_template_parm_list (tree parms)
3853 int nparms;
3854 tree parm, next;
3855 tree saved_parmlist = make_tree_vec (list_length (parms));
3857 current_template_parms
3858 = tree_cons (size_int (processing_template_decl),
3859 saved_parmlist, current_template_parms);
3861 for (parm = parms, nparms = 0; parm; parm = next, nparms++)
3863 next = TREE_CHAIN (parm);
3864 TREE_VEC_ELT (saved_parmlist, nparms) = parm;
3865 TREE_CHAIN (parm) = NULL_TREE;
3868 --processing_template_parmlist;
3870 return saved_parmlist;
3873 /* end_template_decl is called after a template declaration is seen. */
3875 void
3876 end_template_decl (void)
3878 reset_specialization ();
3880 if (! processing_template_decl)
3881 return;
3883 /* This matches the pushlevel in begin_template_parm_list. */
3884 finish_scope ();
3886 --processing_template_decl;
3887 current_template_parms = TREE_CHAIN (current_template_parms);
3890 /* Takes a TREE_LIST representing a template parameter and convert it
3891 into an argument suitable to be passed to the type substitution
3892 functions. Note that If the TREE_LIST contains an error_mark
3893 node, the returned argument is error_mark_node. */
3895 static tree
3896 template_parm_to_arg (tree t)
3899 if (t == NULL_TREE
3900 || TREE_CODE (t) != TREE_LIST)
3901 return t;
3903 if (error_operand_p (TREE_VALUE (t)))
3904 return error_mark_node;
3906 t = TREE_VALUE (t);
3908 if (TREE_CODE (t) == TYPE_DECL
3909 || TREE_CODE (t) == TEMPLATE_DECL)
3911 t = TREE_TYPE (t);
3913 if (TEMPLATE_TYPE_PARAMETER_PACK (t))
3915 /* Turn this argument into a TYPE_ARGUMENT_PACK
3916 with a single element, which expands T. */
3917 tree vec = make_tree_vec (1);
3918 #ifdef ENABLE_CHECKING
3919 SET_NON_DEFAULT_TEMPLATE_ARGS_COUNT
3920 (vec, TREE_VEC_LENGTH (vec));
3921 #endif
3922 TREE_VEC_ELT (vec, 0) = make_pack_expansion (t);
3924 t = cxx_make_type (TYPE_ARGUMENT_PACK);
3925 SET_ARGUMENT_PACK_ARGS (t, vec);
3928 else
3930 t = DECL_INITIAL (t);
3932 if (TEMPLATE_PARM_PARAMETER_PACK (t))
3934 /* Turn this argument into a NONTYPE_ARGUMENT_PACK
3935 with a single element, which expands T. */
3936 tree vec = make_tree_vec (1);
3937 tree type = TREE_TYPE (TEMPLATE_PARM_DECL (t));
3938 #ifdef ENABLE_CHECKING
3939 SET_NON_DEFAULT_TEMPLATE_ARGS_COUNT
3940 (vec, TREE_VEC_LENGTH (vec));
3941 #endif
3942 t = convert_from_reference (t);
3943 TREE_VEC_ELT (vec, 0) = make_pack_expansion (t);
3945 t = make_node (NONTYPE_ARGUMENT_PACK);
3946 SET_ARGUMENT_PACK_ARGS (t, vec);
3947 TREE_TYPE (t) = type;
3949 else
3950 t = convert_from_reference (t);
3952 return t;
3955 /* Given a set of template parameters, return them as a set of template
3956 arguments. The template parameters are represented as a TREE_VEC, in
3957 the form documented in cp-tree.h for template arguments. */
3959 static tree
3960 template_parms_to_args (tree parms)
3962 tree header;
3963 tree args = NULL_TREE;
3964 int length = TMPL_PARMS_DEPTH (parms);
3965 int l = length;
3967 /* If there is only one level of template parameters, we do not
3968 create a TREE_VEC of TREE_VECs. Instead, we return a single
3969 TREE_VEC containing the arguments. */
3970 if (length > 1)
3971 args = make_tree_vec (length);
3973 for (header = parms; header; header = TREE_CHAIN (header))
3975 tree a = copy_node (TREE_VALUE (header));
3976 int i;
3978 TREE_TYPE (a) = NULL_TREE;
3979 for (i = TREE_VEC_LENGTH (a) - 1; i >= 0; --i)
3980 TREE_VEC_ELT (a, i) = template_parm_to_arg (TREE_VEC_ELT (a, i));
3982 #ifdef ENABLE_CHECKING
3983 SET_NON_DEFAULT_TEMPLATE_ARGS_COUNT (a, TREE_VEC_LENGTH (a));
3984 #endif
3986 if (length > 1)
3987 TREE_VEC_ELT (args, --l) = a;
3988 else
3989 args = a;
3992 if (length > 1 && TREE_VEC_ELT (args, 0) == NULL_TREE)
3993 /* This can happen for template parms of a template template
3994 parameter, e.g:
3996 template<template<class T, class U> class TT> struct S;
3998 Consider the level of the parms of TT; T and U both have
3999 level 2; TT has no template parm of level 1. So in this case
4000 the first element of full_template_args is NULL_TREE. If we
4001 leave it like this TMPL_ARGS_DEPTH on args returns 1 instead
4002 of 2. This will make tsubst wrongly consider that T and U
4003 have level 1. Instead, let's create a dummy vector as the
4004 first element of full_template_args so that TMPL_ARGS_DEPTH
4005 returns the correct depth for args. */
4006 TREE_VEC_ELT (args, 0) = make_tree_vec (1);
4007 return args;
4010 /* Within the declaration of a template, return the currently active
4011 template parameters as an argument TREE_VEC. */
4013 static tree
4014 current_template_args (void)
4016 return template_parms_to_args (current_template_parms);
4019 /* Update the declared TYPE by doing any lookups which were thought to be
4020 dependent, but are not now that we know the SCOPE of the declarator. */
4022 tree
4023 maybe_update_decl_type (tree orig_type, tree scope)
4025 tree type = orig_type;
4027 if (type == NULL_TREE)
4028 return type;
4030 if (TREE_CODE (orig_type) == TYPE_DECL)
4031 type = TREE_TYPE (type);
4033 if (scope && TYPE_P (scope) && dependent_type_p (scope)
4034 && dependent_type_p (type)
4035 /* Don't bother building up the args in this case. */
4036 && TREE_CODE (type) != TEMPLATE_TYPE_PARM)
4038 /* tsubst in the args corresponding to the template parameters,
4039 including auto if present. Most things will be unchanged, but
4040 make_typename_type and tsubst_qualified_id will resolve
4041 TYPENAME_TYPEs and SCOPE_REFs that were previously dependent. */
4042 tree args = current_template_args ();
4043 tree auto_node = type_uses_auto (type);
4044 tree pushed;
4045 if (auto_node)
4047 tree auto_vec = make_tree_vec (1);
4048 TREE_VEC_ELT (auto_vec, 0) = auto_node;
4049 args = add_to_template_args (args, auto_vec);
4051 pushed = push_scope (scope);
4052 type = tsubst (type, args, tf_warning_or_error, NULL_TREE);
4053 if (pushed)
4054 pop_scope (scope);
4057 if (type == error_mark_node)
4058 return orig_type;
4060 if (TREE_CODE (orig_type) == TYPE_DECL)
4062 if (same_type_p (type, TREE_TYPE (orig_type)))
4063 type = orig_type;
4064 else
4065 type = TYPE_NAME (type);
4067 return type;
4070 /* Return a TEMPLATE_DECL corresponding to DECL, using the indicated
4071 template PARMS. If MEMBER_TEMPLATE_P is true, the new template is
4072 a member template. Used by push_template_decl below. */
4074 static tree
4075 build_template_decl (tree decl, tree parms, bool member_template_p)
4077 tree tmpl = build_lang_decl (TEMPLATE_DECL, DECL_NAME (decl), NULL_TREE);
4078 DECL_TEMPLATE_PARMS (tmpl) = parms;
4079 DECL_CONTEXT (tmpl) = DECL_CONTEXT (decl);
4080 DECL_SOURCE_LOCATION (tmpl) = DECL_SOURCE_LOCATION (decl);
4081 DECL_MEMBER_TEMPLATE_P (tmpl) = member_template_p;
4083 return tmpl;
4086 struct template_parm_data
4088 /* The level of the template parameters we are currently
4089 processing. */
4090 int level;
4092 /* The index of the specialization argument we are currently
4093 processing. */
4094 int current_arg;
4096 /* An array whose size is the number of template parameters. The
4097 elements are nonzero if the parameter has been used in any one
4098 of the arguments processed so far. */
4099 int* parms;
4101 /* An array whose size is the number of template arguments. The
4102 elements are nonzero if the argument makes use of template
4103 parameters of this level. */
4104 int* arg_uses_template_parms;
4107 /* Subroutine of push_template_decl used to see if each template
4108 parameter in a partial specialization is used in the explicit
4109 argument list. If T is of the LEVEL given in DATA (which is
4110 treated as a template_parm_data*), then DATA->PARMS is marked
4111 appropriately. */
4113 static int
4114 mark_template_parm (tree t, void* data)
4116 int level;
4117 int idx;
4118 struct template_parm_data* tpd = (struct template_parm_data*) data;
4120 template_parm_level_and_index (t, &level, &idx);
4122 if (level == tpd->level)
4124 tpd->parms[idx] = 1;
4125 tpd->arg_uses_template_parms[tpd->current_arg] = 1;
4128 /* Return zero so that for_each_template_parm will continue the
4129 traversal of the tree; we want to mark *every* template parm. */
4130 return 0;
4133 /* Process the partial specialization DECL. */
4135 static tree
4136 process_partial_specialization (tree decl)
4138 tree type = TREE_TYPE (decl);
4139 tree tinfo = get_template_info (decl);
4140 tree maintmpl = TI_TEMPLATE (tinfo);
4141 tree specargs = TI_ARGS (tinfo);
4142 tree inner_args = INNERMOST_TEMPLATE_ARGS (specargs);
4143 tree main_inner_parms = DECL_INNERMOST_TEMPLATE_PARMS (maintmpl);
4144 tree inner_parms;
4145 tree inst;
4146 int nargs = TREE_VEC_LENGTH (inner_args);
4147 int ntparms;
4148 int i;
4149 bool did_error_intro = false;
4150 struct template_parm_data tpd;
4151 struct template_parm_data tpd2;
4153 gcc_assert (current_template_parms);
4155 inner_parms = INNERMOST_TEMPLATE_PARMS (current_template_parms);
4156 ntparms = TREE_VEC_LENGTH (inner_parms);
4158 /* We check that each of the template parameters given in the
4159 partial specialization is used in the argument list to the
4160 specialization. For example:
4162 template <class T> struct S;
4163 template <class T> struct S<T*>;
4165 The second declaration is OK because `T*' uses the template
4166 parameter T, whereas
4168 template <class T> struct S<int>;
4170 is no good. Even trickier is:
4172 template <class T>
4173 struct S1
4175 template <class U>
4176 struct S2;
4177 template <class U>
4178 struct S2<T>;
4181 The S2<T> declaration is actually invalid; it is a
4182 full-specialization. Of course,
4184 template <class U>
4185 struct S2<T (*)(U)>;
4187 or some such would have been OK. */
4188 tpd.level = TMPL_PARMS_DEPTH (current_template_parms);
4189 tpd.parms = XALLOCAVEC (int, ntparms);
4190 memset (tpd.parms, 0, sizeof (int) * ntparms);
4192 tpd.arg_uses_template_parms = XALLOCAVEC (int, nargs);
4193 memset (tpd.arg_uses_template_parms, 0, sizeof (int) * nargs);
4194 for (i = 0; i < nargs; ++i)
4196 tpd.current_arg = i;
4197 for_each_template_parm (TREE_VEC_ELT (inner_args, i),
4198 &mark_template_parm,
4199 &tpd,
4200 NULL,
4201 /*include_nondeduced_p=*/false);
4203 for (i = 0; i < ntparms; ++i)
4204 if (tpd.parms[i] == 0)
4206 /* One of the template parms was not used in a deduced context in the
4207 specialization. */
4208 if (!did_error_intro)
4210 error ("template parameters not deducible in "
4211 "partial specialization:");
4212 did_error_intro = true;
4215 inform (input_location, " %qD",
4216 TREE_VALUE (TREE_VEC_ELT (inner_parms, i)));
4219 if (did_error_intro)
4220 return error_mark_node;
4222 /* [temp.class.spec]
4224 The argument list of the specialization shall not be identical to
4225 the implicit argument list of the primary template. */
4226 tree main_args
4227 = TI_ARGS (get_template_info (DECL_TEMPLATE_RESULT (maintmpl)));
4228 if (comp_template_args (inner_args, INNERMOST_TEMPLATE_ARGS (main_args)))
4229 error ("partial specialization %qD does not specialize "
4230 "any template arguments", decl);
4232 /* A partial specialization that replaces multiple parameters of the
4233 primary template with a pack expansion is less specialized for those
4234 parameters. */
4235 if (nargs < DECL_NTPARMS (maintmpl))
4237 error ("partial specialization is not more specialized than the "
4238 "primary template because it replaces multiple parameters "
4239 "with a pack expansion");
4240 inform (DECL_SOURCE_LOCATION (maintmpl), "primary template here");
4241 return decl;
4244 /* [temp.class.spec]
4246 A partially specialized non-type argument expression shall not
4247 involve template parameters of the partial specialization except
4248 when the argument expression is a simple identifier.
4250 The type of a template parameter corresponding to a specialized
4251 non-type argument shall not be dependent on a parameter of the
4252 specialization.
4254 Also, we verify that pack expansions only occur at the
4255 end of the argument list. */
4256 gcc_assert (nargs == DECL_NTPARMS (maintmpl));
4257 tpd2.parms = 0;
4258 for (i = 0; i < nargs; ++i)
4260 tree parm = TREE_VALUE (TREE_VEC_ELT (main_inner_parms, i));
4261 tree arg = TREE_VEC_ELT (inner_args, i);
4262 tree packed_args = NULL_TREE;
4263 int j, len = 1;
4265 if (ARGUMENT_PACK_P (arg))
4267 /* Extract the arguments from the argument pack. We'll be
4268 iterating over these in the following loop. */
4269 packed_args = ARGUMENT_PACK_ARGS (arg);
4270 len = TREE_VEC_LENGTH (packed_args);
4273 for (j = 0; j < len; j++)
4275 if (packed_args)
4276 /* Get the Jth argument in the parameter pack. */
4277 arg = TREE_VEC_ELT (packed_args, j);
4279 if (PACK_EXPANSION_P (arg))
4281 /* Pack expansions must come at the end of the
4282 argument list. */
4283 if ((packed_args && j < len - 1)
4284 || (!packed_args && i < nargs - 1))
4286 if (TREE_CODE (arg) == EXPR_PACK_EXPANSION)
4287 error ("parameter pack argument %qE must be at the "
4288 "end of the template argument list", arg);
4289 else
4290 error ("parameter pack argument %qT must be at the "
4291 "end of the template argument list", arg);
4295 if (TREE_CODE (arg) == EXPR_PACK_EXPANSION)
4296 /* We only care about the pattern. */
4297 arg = PACK_EXPANSION_PATTERN (arg);
4299 if (/* These first two lines are the `non-type' bit. */
4300 !TYPE_P (arg)
4301 && TREE_CODE (arg) != TEMPLATE_DECL
4302 /* This next two lines are the `argument expression is not just a
4303 simple identifier' condition and also the `specialized
4304 non-type argument' bit. */
4305 && TREE_CODE (arg) != TEMPLATE_PARM_INDEX
4306 && !(REFERENCE_REF_P (arg)
4307 && TREE_CODE (TREE_OPERAND (arg, 0)) == TEMPLATE_PARM_INDEX))
4309 if ((!packed_args && tpd.arg_uses_template_parms[i])
4310 || (packed_args && uses_template_parms (arg)))
4311 error ("template argument %qE involves template parameter(s)",
4312 arg);
4313 else
4315 /* Look at the corresponding template parameter,
4316 marking which template parameters its type depends
4317 upon. */
4318 tree type = TREE_TYPE (parm);
4320 if (!tpd2.parms)
4322 /* We haven't yet initialized TPD2. Do so now. */
4323 tpd2.arg_uses_template_parms = XALLOCAVEC (int, nargs);
4324 /* The number of parameters here is the number in the
4325 main template, which, as checked in the assertion
4326 above, is NARGS. */
4327 tpd2.parms = XALLOCAVEC (int, nargs);
4328 tpd2.level =
4329 TMPL_PARMS_DEPTH (DECL_TEMPLATE_PARMS (maintmpl));
4332 /* Mark the template parameters. But this time, we're
4333 looking for the template parameters of the main
4334 template, not in the specialization. */
4335 tpd2.current_arg = i;
4336 tpd2.arg_uses_template_parms[i] = 0;
4337 memset (tpd2.parms, 0, sizeof (int) * nargs);
4338 for_each_template_parm (type,
4339 &mark_template_parm,
4340 &tpd2,
4341 NULL,
4342 /*include_nondeduced_p=*/false);
4344 if (tpd2.arg_uses_template_parms [i])
4346 /* The type depended on some template parameters.
4347 If they are fully specialized in the
4348 specialization, that's OK. */
4349 int j;
4350 int count = 0;
4351 for (j = 0; j < nargs; ++j)
4352 if (tpd2.parms[j] != 0
4353 && tpd.arg_uses_template_parms [j])
4354 ++count;
4355 if (count != 0)
4356 error_n (input_location, count,
4357 "type %qT of template argument %qE depends "
4358 "on a template parameter",
4359 "type %qT of template argument %qE depends "
4360 "on template parameters",
4361 type,
4362 arg);
4369 /* We should only get here once. */
4370 if (TREE_CODE (decl) == TYPE_DECL)
4371 gcc_assert (!COMPLETE_TYPE_P (type));
4373 tree tmpl = build_template_decl (decl, current_template_parms,
4374 DECL_MEMBER_TEMPLATE_P (maintmpl));
4375 TREE_TYPE (tmpl) = type;
4376 DECL_TEMPLATE_RESULT (tmpl) = decl;
4377 SET_DECL_TEMPLATE_SPECIALIZATION (tmpl);
4378 DECL_TEMPLATE_INFO (tmpl) = build_template_info (maintmpl, specargs);
4379 DECL_PRIMARY_TEMPLATE (tmpl) = maintmpl;
4381 DECL_TEMPLATE_SPECIALIZATIONS (maintmpl)
4382 = tree_cons (specargs, tmpl,
4383 DECL_TEMPLATE_SPECIALIZATIONS (maintmpl));
4384 TREE_TYPE (DECL_TEMPLATE_SPECIALIZATIONS (maintmpl)) = type;
4386 for (inst = DECL_TEMPLATE_INSTANTIATIONS (maintmpl); inst;
4387 inst = TREE_CHAIN (inst))
4389 tree instance = TREE_VALUE (inst);
4390 if (TYPE_P (instance)
4391 ? (COMPLETE_TYPE_P (instance)
4392 && CLASSTYPE_IMPLICIT_INSTANTIATION (instance))
4393 : DECL_TEMPLATE_INSTANTIATION (instance))
4395 tree spec = most_specialized_partial_spec (instance, tf_none);
4396 if (spec && TREE_VALUE (spec) == tmpl)
4398 tree inst_decl = (DECL_P (instance)
4399 ? instance : TYPE_NAME (instance));
4400 permerror (input_location,
4401 "partial specialization of %qD after instantiation "
4402 "of %qD", decl, inst_decl);
4407 return decl;
4410 /* PARM is a template parameter of some form; return the corresponding
4411 TEMPLATE_PARM_INDEX. */
4413 static tree
4414 get_template_parm_index (tree parm)
4416 if (TREE_CODE (parm) == PARM_DECL
4417 || TREE_CODE (parm) == CONST_DECL)
4418 parm = DECL_INITIAL (parm);
4419 else if (TREE_CODE (parm) == TYPE_DECL
4420 || TREE_CODE (parm) == TEMPLATE_DECL)
4421 parm = TREE_TYPE (parm);
4422 if (TREE_CODE (parm) == TEMPLATE_TYPE_PARM
4423 || TREE_CODE (parm) == BOUND_TEMPLATE_TEMPLATE_PARM
4424 || TREE_CODE (parm) == TEMPLATE_TEMPLATE_PARM)
4425 parm = TEMPLATE_TYPE_PARM_INDEX (parm);
4426 gcc_assert (TREE_CODE (parm) == TEMPLATE_PARM_INDEX);
4427 return parm;
4430 /* Subroutine of fixed_parameter_pack_p below. Look for any template
4431 parameter packs used by the template parameter PARM. */
4433 static void
4434 fixed_parameter_pack_p_1 (tree parm, struct find_parameter_pack_data *ppd)
4436 /* A type parm can't refer to another parm. */
4437 if (TREE_CODE (parm) == TYPE_DECL)
4438 return;
4439 else if (TREE_CODE (parm) == PARM_DECL)
4441 cp_walk_tree (&TREE_TYPE (parm), &find_parameter_packs_r,
4442 ppd, ppd->visited);
4443 return;
4446 gcc_assert (TREE_CODE (parm) == TEMPLATE_DECL);
4448 tree vec = INNERMOST_TEMPLATE_PARMS (DECL_TEMPLATE_PARMS (parm));
4449 for (int i = 0; i < TREE_VEC_LENGTH (vec); ++i)
4450 fixed_parameter_pack_p_1 (TREE_VALUE (TREE_VEC_ELT (vec, i)), ppd);
4453 /* PARM is a template parameter pack. Return any parameter packs used in
4454 its type or the type of any of its template parameters. If there are
4455 any such packs, it will be instantiated into a fixed template parameter
4456 list by partial instantiation rather than be fully deduced. */
4458 tree
4459 fixed_parameter_pack_p (tree parm)
4461 /* This can only be true in a member template. */
4462 if (TEMPLATE_PARM_ORIG_LEVEL (get_template_parm_index (parm)) < 2)
4463 return NULL_TREE;
4464 /* This can only be true for a parameter pack. */
4465 if (!template_parameter_pack_p (parm))
4466 return NULL_TREE;
4467 /* A type parm can't refer to another parm. */
4468 if (TREE_CODE (parm) == TYPE_DECL)
4469 return NULL_TREE;
4471 tree parameter_packs = NULL_TREE;
4472 struct find_parameter_pack_data ppd;
4473 ppd.parameter_packs = &parameter_packs;
4474 ppd.visited = new hash_set<tree>;
4476 fixed_parameter_pack_p_1 (parm, &ppd);
4478 delete ppd.visited;
4479 return parameter_packs;
4482 /* Check that a template declaration's use of default arguments and
4483 parameter packs is not invalid. Here, PARMS are the template
4484 parameters. IS_PRIMARY is true if DECL is the thing declared by
4485 a primary template. IS_PARTIAL is true if DECL is a partial
4486 specialization.
4488 IS_FRIEND_DECL is nonzero if DECL is a friend function template
4489 declaration (but not a definition); 1 indicates a declaration, 2
4490 indicates a redeclaration. When IS_FRIEND_DECL=2, no errors are
4491 emitted for extraneous default arguments.
4493 Returns TRUE if there were no errors found, FALSE otherwise. */
4495 bool
4496 check_default_tmpl_args (tree decl, tree parms, bool is_primary,
4497 bool is_partial, int is_friend_decl)
4499 const char *msg;
4500 int last_level_to_check;
4501 tree parm_level;
4502 bool no_errors = true;
4504 /* [temp.param]
4506 A default template-argument shall not be specified in a
4507 function template declaration or a function template definition, nor
4508 in the template-parameter-list of the definition of a member of a
4509 class template. */
4511 if (TREE_CODE (CP_DECL_CONTEXT (decl)) == FUNCTION_DECL
4512 || (TREE_CODE (decl) == FUNCTION_DECL && DECL_LOCAL_FUNCTION_P (decl)))
4513 /* You can't have a function template declaration in a local
4514 scope, nor you can you define a member of a class template in a
4515 local scope. */
4516 return true;
4518 if ((TREE_CODE (decl) == TYPE_DECL
4519 && TREE_TYPE (decl)
4520 && LAMBDA_TYPE_P (TREE_TYPE (decl)))
4521 || (TREE_CODE (decl) == FUNCTION_DECL
4522 && LAMBDA_FUNCTION_P (decl)))
4523 /* A lambda doesn't have an explicit declaration; don't complain
4524 about the parms of the enclosing class. */
4525 return true;
4527 if (current_class_type
4528 && !TYPE_BEING_DEFINED (current_class_type)
4529 && DECL_LANG_SPECIFIC (decl)
4530 && DECL_DECLARES_FUNCTION_P (decl)
4531 /* If this is either a friend defined in the scope of the class
4532 or a member function. */
4533 && (DECL_FUNCTION_MEMBER_P (decl)
4534 ? same_type_p (DECL_CONTEXT (decl), current_class_type)
4535 : DECL_FRIEND_CONTEXT (decl)
4536 ? same_type_p (DECL_FRIEND_CONTEXT (decl), current_class_type)
4537 : false)
4538 /* And, if it was a member function, it really was defined in
4539 the scope of the class. */
4540 && (!DECL_FUNCTION_MEMBER_P (decl)
4541 || DECL_INITIALIZED_IN_CLASS_P (decl)))
4542 /* We already checked these parameters when the template was
4543 declared, so there's no need to do it again now. This function
4544 was defined in class scope, but we're processing its body now
4545 that the class is complete. */
4546 return true;
4548 /* Core issue 226 (C++0x only): the following only applies to class
4549 templates. */
4550 if (is_primary
4551 && ((cxx_dialect == cxx98) || TREE_CODE (decl) != FUNCTION_DECL))
4553 /* [temp.param]
4555 If a template-parameter has a default template-argument, all
4556 subsequent template-parameters shall have a default
4557 template-argument supplied. */
4558 for (parm_level = parms; parm_level; parm_level = TREE_CHAIN (parm_level))
4560 tree inner_parms = TREE_VALUE (parm_level);
4561 int ntparms = TREE_VEC_LENGTH (inner_parms);
4562 int seen_def_arg_p = 0;
4563 int i;
4565 for (i = 0; i < ntparms; ++i)
4567 tree parm = TREE_VEC_ELT (inner_parms, i);
4569 if (parm == error_mark_node)
4570 continue;
4572 if (TREE_PURPOSE (parm))
4573 seen_def_arg_p = 1;
4574 else if (seen_def_arg_p
4575 && !template_parameter_pack_p (TREE_VALUE (parm)))
4577 error ("no default argument for %qD", TREE_VALUE (parm));
4578 /* For better subsequent error-recovery, we indicate that
4579 there should have been a default argument. */
4580 TREE_PURPOSE (parm) = error_mark_node;
4581 no_errors = false;
4583 else if (!is_partial
4584 && !is_friend_decl
4585 /* Don't complain about an enclosing partial
4586 specialization. */
4587 && parm_level == parms
4588 && TREE_CODE (decl) == TYPE_DECL
4589 && i < ntparms - 1
4590 && template_parameter_pack_p (TREE_VALUE (parm))
4591 /* A fixed parameter pack will be partially
4592 instantiated into a fixed length list. */
4593 && !fixed_parameter_pack_p (TREE_VALUE (parm)))
4595 /* A primary class template can only have one
4596 parameter pack, at the end of the template
4597 parameter list. */
4599 error ("parameter pack %q+D must be at the end of the"
4600 " template parameter list", TREE_VALUE (parm));
4602 TREE_VALUE (TREE_VEC_ELT (inner_parms, i))
4603 = error_mark_node;
4604 no_errors = false;
4610 if (((cxx_dialect == cxx98) && TREE_CODE (decl) != TYPE_DECL)
4611 || is_partial
4612 || !is_primary
4613 || is_friend_decl)
4614 /* For an ordinary class template, default template arguments are
4615 allowed at the innermost level, e.g.:
4616 template <class T = int>
4617 struct S {};
4618 but, in a partial specialization, they're not allowed even
4619 there, as we have in [temp.class.spec]:
4621 The template parameter list of a specialization shall not
4622 contain default template argument values.
4624 So, for a partial specialization, or for a function template
4625 (in C++98/C++03), we look at all of them. */
4627 else
4628 /* But, for a primary class template that is not a partial
4629 specialization we look at all template parameters except the
4630 innermost ones. */
4631 parms = TREE_CHAIN (parms);
4633 /* Figure out what error message to issue. */
4634 if (is_friend_decl == 2)
4635 msg = G_("default template arguments may not be used in function template "
4636 "friend re-declaration");
4637 else if (is_friend_decl)
4638 msg = G_("default template arguments may not be used in function template "
4639 "friend declarations");
4640 else if (TREE_CODE (decl) == FUNCTION_DECL && (cxx_dialect == cxx98))
4641 msg = G_("default template arguments may not be used in function templates "
4642 "without -std=c++11 or -std=gnu++11");
4643 else if (is_partial)
4644 msg = G_("default template arguments may not be used in "
4645 "partial specializations");
4646 else
4647 msg = G_("default argument for template parameter for class enclosing %qD");
4649 if (current_class_type && TYPE_BEING_DEFINED (current_class_type))
4650 /* If we're inside a class definition, there's no need to
4651 examine the parameters to the class itself. On the one
4652 hand, they will be checked when the class is defined, and,
4653 on the other, default arguments are valid in things like:
4654 template <class T = double>
4655 struct S { template <class U> void f(U); };
4656 Here the default argument for `S' has no bearing on the
4657 declaration of `f'. */
4658 last_level_to_check = template_class_depth (current_class_type) + 1;
4659 else
4660 /* Check everything. */
4661 last_level_to_check = 0;
4663 for (parm_level = parms;
4664 parm_level && TMPL_PARMS_DEPTH (parm_level) >= last_level_to_check;
4665 parm_level = TREE_CHAIN (parm_level))
4667 tree inner_parms = TREE_VALUE (parm_level);
4668 int i;
4669 int ntparms;
4671 ntparms = TREE_VEC_LENGTH (inner_parms);
4672 for (i = 0; i < ntparms; ++i)
4674 if (TREE_VEC_ELT (inner_parms, i) == error_mark_node)
4675 continue;
4677 if (TREE_PURPOSE (TREE_VEC_ELT (inner_parms, i)))
4679 if (msg)
4681 no_errors = false;
4682 if (is_friend_decl == 2)
4683 return no_errors;
4685 error (msg, decl);
4686 msg = 0;
4689 /* Clear out the default argument so that we are not
4690 confused later. */
4691 TREE_PURPOSE (TREE_VEC_ELT (inner_parms, i)) = NULL_TREE;
4695 /* At this point, if we're still interested in issuing messages,
4696 they must apply to classes surrounding the object declared. */
4697 if (msg)
4698 msg = G_("default argument for template parameter for class "
4699 "enclosing %qD");
4702 return no_errors;
4705 /* Worker for push_template_decl_real, called via
4706 for_each_template_parm. DATA is really an int, indicating the
4707 level of the parameters we are interested in. If T is a template
4708 parameter of that level, return nonzero. */
4710 static int
4711 template_parm_this_level_p (tree t, void* data)
4713 int this_level = *(int *)data;
4714 int level;
4716 if (TREE_CODE (t) == TEMPLATE_PARM_INDEX)
4717 level = TEMPLATE_PARM_LEVEL (t);
4718 else
4719 level = TEMPLATE_TYPE_LEVEL (t);
4720 return level == this_level;
4723 /* Creates a TEMPLATE_DECL for the indicated DECL using the template
4724 parameters given by current_template_args, or reuses a
4725 previously existing one, if appropriate. Returns the DECL, or an
4726 equivalent one, if it is replaced via a call to duplicate_decls.
4728 If IS_FRIEND is true, DECL is a friend declaration. */
4730 tree
4731 push_template_decl_real (tree decl, bool is_friend)
4733 tree tmpl;
4734 tree args;
4735 tree info;
4736 tree ctx;
4737 bool is_primary;
4738 bool is_partial;
4739 int new_template_p = 0;
4740 /* True if the template is a member template, in the sense of
4741 [temp.mem]. */
4742 bool member_template_p = false;
4744 if (decl == error_mark_node || !current_template_parms)
4745 return error_mark_node;
4747 /* See if this is a partial specialization. */
4748 is_partial = ((DECL_IMPLICIT_TYPEDEF_P (decl)
4749 && TREE_CODE (TREE_TYPE (decl)) != ENUMERAL_TYPE
4750 && CLASSTYPE_TEMPLATE_SPECIALIZATION (TREE_TYPE (decl)))
4751 || (TREE_CODE (decl) == VAR_DECL
4752 && DECL_LANG_SPECIFIC (decl)
4753 && DECL_TEMPLATE_SPECIALIZATION (decl)
4754 && TINFO_USED_TEMPLATE_ID (DECL_TEMPLATE_INFO (decl))));
4756 if (TREE_CODE (decl) == FUNCTION_DECL && DECL_FRIEND_P (decl))
4757 is_friend = true;
4759 if (is_friend)
4760 /* For a friend, we want the context of the friend function, not
4761 the type of which it is a friend. */
4762 ctx = CP_DECL_CONTEXT (decl);
4763 else if (CP_DECL_CONTEXT (decl)
4764 && TREE_CODE (CP_DECL_CONTEXT (decl)) != NAMESPACE_DECL)
4765 /* In the case of a virtual function, we want the class in which
4766 it is defined. */
4767 ctx = CP_DECL_CONTEXT (decl);
4768 else
4769 /* Otherwise, if we're currently defining some class, the DECL
4770 is assumed to be a member of the class. */
4771 ctx = current_scope ();
4773 if (ctx && TREE_CODE (ctx) == NAMESPACE_DECL)
4774 ctx = NULL_TREE;
4776 if (!DECL_CONTEXT (decl))
4777 DECL_CONTEXT (decl) = FROB_CONTEXT (current_namespace);
4779 /* See if this is a primary template. */
4780 if (is_friend && ctx
4781 && uses_template_parms_level (ctx, processing_template_decl))
4782 /* A friend template that specifies a class context, i.e.
4783 template <typename T> friend void A<T>::f();
4784 is not primary. */
4785 is_primary = false;
4786 else if (TREE_CODE (decl) == TYPE_DECL
4787 && LAMBDA_TYPE_P (TREE_TYPE (decl)))
4788 is_primary = false;
4789 else
4790 is_primary = template_parm_scope_p ();
4792 if (is_primary)
4794 if (DECL_CLASS_SCOPE_P (decl))
4795 member_template_p = true;
4796 if (TREE_CODE (decl) == TYPE_DECL
4797 && anon_aggrname_p (DECL_NAME (decl)))
4799 error ("template class without a name");
4800 return error_mark_node;
4802 else if (TREE_CODE (decl) == FUNCTION_DECL)
4804 if (member_template_p)
4806 if (DECL_OVERRIDE_P (decl) || DECL_FINAL_P (decl))
4807 error ("member template %qD may not have virt-specifiers", decl);
4809 if (DECL_DESTRUCTOR_P (decl))
4811 /* [temp.mem]
4813 A destructor shall not be a member template. */
4814 error ("destructor %qD declared as member template", decl);
4815 return error_mark_node;
4817 if (NEW_DELETE_OPNAME_P (DECL_NAME (decl))
4818 && (!prototype_p (TREE_TYPE (decl))
4819 || TYPE_ARG_TYPES (TREE_TYPE (decl)) == void_list_node
4820 || !TREE_CHAIN (TYPE_ARG_TYPES (TREE_TYPE (decl)))
4821 || (TREE_CHAIN (TYPE_ARG_TYPES ((TREE_TYPE (decl))))
4822 == void_list_node)))
4824 /* [basic.stc.dynamic.allocation]
4826 An allocation function can be a function
4827 template. ... Template allocation functions shall
4828 have two or more parameters. */
4829 error ("invalid template declaration of %qD", decl);
4830 return error_mark_node;
4833 else if (DECL_IMPLICIT_TYPEDEF_P (decl)
4834 && CLASS_TYPE_P (TREE_TYPE (decl)))
4835 /* OK */;
4836 else if (TREE_CODE (decl) == TYPE_DECL
4837 && TYPE_DECL_ALIAS_P (decl))
4838 /* alias-declaration */
4839 gcc_assert (!DECL_ARTIFICIAL (decl));
4840 else if (VAR_P (decl))
4841 /* C++14 variable template. */;
4842 else
4844 error ("template declaration of %q#D", decl);
4845 return error_mark_node;
4849 /* Check to see that the rules regarding the use of default
4850 arguments are not being violated. */
4851 check_default_tmpl_args (decl, current_template_parms,
4852 is_primary, is_partial, /*is_friend_decl=*/0);
4854 /* Ensure that there are no parameter packs in the type of this
4855 declaration that have not been expanded. */
4856 if (TREE_CODE (decl) == FUNCTION_DECL)
4858 /* Check each of the arguments individually to see if there are
4859 any bare parameter packs. */
4860 tree type = TREE_TYPE (decl);
4861 tree arg = DECL_ARGUMENTS (decl);
4862 tree argtype = TYPE_ARG_TYPES (type);
4864 while (arg && argtype)
4866 if (!DECL_PACK_P (arg)
4867 && check_for_bare_parameter_packs (TREE_TYPE (arg)))
4869 /* This is a PARM_DECL that contains unexpanded parameter
4870 packs. We have already complained about this in the
4871 check_for_bare_parameter_packs call, so just replace
4872 these types with ERROR_MARK_NODE. */
4873 TREE_TYPE (arg) = error_mark_node;
4874 TREE_VALUE (argtype) = error_mark_node;
4877 arg = DECL_CHAIN (arg);
4878 argtype = TREE_CHAIN (argtype);
4881 /* Check for bare parameter packs in the return type and the
4882 exception specifiers. */
4883 if (check_for_bare_parameter_packs (TREE_TYPE (type)))
4884 /* Errors were already issued, set return type to int
4885 as the frontend doesn't expect error_mark_node as
4886 the return type. */
4887 TREE_TYPE (type) = integer_type_node;
4888 if (check_for_bare_parameter_packs (TYPE_RAISES_EXCEPTIONS (type)))
4889 TYPE_RAISES_EXCEPTIONS (type) = NULL_TREE;
4891 else if (check_for_bare_parameter_packs ((TREE_CODE (decl) == TYPE_DECL
4892 && TYPE_DECL_ALIAS_P (decl))
4893 ? DECL_ORIGINAL_TYPE (decl)
4894 : TREE_TYPE (decl)))
4896 TREE_TYPE (decl) = error_mark_node;
4897 return error_mark_node;
4900 if (is_partial)
4901 return process_partial_specialization (decl);
4903 args = current_template_args ();
4905 if (!ctx
4906 || TREE_CODE (ctx) == FUNCTION_DECL
4907 || (CLASS_TYPE_P (ctx) && TYPE_BEING_DEFINED (ctx))
4908 || (TREE_CODE (decl) == TYPE_DECL
4909 && LAMBDA_TYPE_P (TREE_TYPE (decl)))
4910 || (is_friend && !DECL_TEMPLATE_INFO (decl)))
4912 if (DECL_LANG_SPECIFIC (decl)
4913 && DECL_TEMPLATE_INFO (decl)
4914 && DECL_TI_TEMPLATE (decl))
4915 tmpl = DECL_TI_TEMPLATE (decl);
4916 /* If DECL is a TYPE_DECL for a class-template, then there won't
4917 be DECL_LANG_SPECIFIC. The information equivalent to
4918 DECL_TEMPLATE_INFO is found in TYPE_TEMPLATE_INFO instead. */
4919 else if (DECL_IMPLICIT_TYPEDEF_P (decl)
4920 && TYPE_TEMPLATE_INFO (TREE_TYPE (decl))
4921 && TYPE_TI_TEMPLATE (TREE_TYPE (decl)))
4923 /* Since a template declaration already existed for this
4924 class-type, we must be redeclaring it here. Make sure
4925 that the redeclaration is valid. */
4926 redeclare_class_template (TREE_TYPE (decl),
4927 current_template_parms);
4928 /* We don't need to create a new TEMPLATE_DECL; just use the
4929 one we already had. */
4930 tmpl = TYPE_TI_TEMPLATE (TREE_TYPE (decl));
4932 else
4934 tmpl = build_template_decl (decl, current_template_parms,
4935 member_template_p);
4936 new_template_p = 1;
4938 if (DECL_LANG_SPECIFIC (decl)
4939 && DECL_TEMPLATE_SPECIALIZATION (decl))
4941 /* A specialization of a member template of a template
4942 class. */
4943 SET_DECL_TEMPLATE_SPECIALIZATION (tmpl);
4944 DECL_TEMPLATE_INFO (tmpl) = DECL_TEMPLATE_INFO (decl);
4945 DECL_TEMPLATE_INFO (decl) = NULL_TREE;
4949 else
4951 tree a, t, current, parms;
4952 int i;
4953 tree tinfo = get_template_info (decl);
4955 if (!tinfo)
4957 error ("template definition of non-template %q#D", decl);
4958 return error_mark_node;
4961 tmpl = TI_TEMPLATE (tinfo);
4963 if (DECL_FUNCTION_TEMPLATE_P (tmpl)
4964 && DECL_TEMPLATE_INFO (decl) && DECL_TI_ARGS (decl)
4965 && DECL_TEMPLATE_SPECIALIZATION (decl)
4966 && DECL_MEMBER_TEMPLATE_P (tmpl))
4968 tree new_tmpl;
4970 /* The declaration is a specialization of a member
4971 template, declared outside the class. Therefore, the
4972 innermost template arguments will be NULL, so we
4973 replace them with the arguments determined by the
4974 earlier call to check_explicit_specialization. */
4975 args = DECL_TI_ARGS (decl);
4977 new_tmpl
4978 = build_template_decl (decl, current_template_parms,
4979 member_template_p);
4980 DECL_TEMPLATE_RESULT (new_tmpl) = decl;
4981 TREE_TYPE (new_tmpl) = TREE_TYPE (decl);
4982 DECL_TI_TEMPLATE (decl) = new_tmpl;
4983 SET_DECL_TEMPLATE_SPECIALIZATION (new_tmpl);
4984 DECL_TEMPLATE_INFO (new_tmpl)
4985 = build_template_info (tmpl, args);
4987 register_specialization (new_tmpl,
4988 most_general_template (tmpl),
4989 args,
4990 is_friend, 0);
4991 return decl;
4994 /* Make sure the template headers we got make sense. */
4996 parms = DECL_TEMPLATE_PARMS (tmpl);
4997 i = TMPL_PARMS_DEPTH (parms);
4998 if (TMPL_ARGS_DEPTH (args) != i)
5000 error ("expected %d levels of template parms for %q#D, got %d",
5001 i, decl, TMPL_ARGS_DEPTH (args));
5002 DECL_INTERFACE_KNOWN (decl) = 1;
5003 return error_mark_node;
5005 else
5006 for (current = decl; i > 0; --i, parms = TREE_CHAIN (parms))
5008 a = TMPL_ARGS_LEVEL (args, i);
5009 t = INNERMOST_TEMPLATE_PARMS (parms);
5011 if (TREE_VEC_LENGTH (t) != TREE_VEC_LENGTH (a))
5013 if (current == decl)
5014 error ("got %d template parameters for %q#D",
5015 TREE_VEC_LENGTH (a), decl);
5016 else
5017 error ("got %d template parameters for %q#T",
5018 TREE_VEC_LENGTH (a), current);
5019 error (" but %d required", TREE_VEC_LENGTH (t));
5020 /* Avoid crash in import_export_decl. */
5021 DECL_INTERFACE_KNOWN (decl) = 1;
5022 return error_mark_node;
5025 if (current == decl)
5026 current = ctx;
5027 else if (current == NULL_TREE)
5028 /* Can happen in erroneous input. */
5029 break;
5030 else
5031 current = get_containing_scope (current);
5034 /* Check that the parms are used in the appropriate qualifying scopes
5035 in the declarator. */
5036 if (!comp_template_args
5037 (TI_ARGS (tinfo),
5038 TI_ARGS (get_template_info (DECL_TEMPLATE_RESULT (tmpl)))))
5040 error ("\
5041 template arguments to %qD do not match original template %qD",
5042 decl, DECL_TEMPLATE_RESULT (tmpl));
5043 if (!uses_template_parms (TI_ARGS (tinfo)))
5044 inform (input_location, "use template<> for an explicit specialization");
5045 /* Avoid crash in import_export_decl. */
5046 DECL_INTERFACE_KNOWN (decl) = 1;
5047 return error_mark_node;
5051 DECL_TEMPLATE_RESULT (tmpl) = decl;
5052 TREE_TYPE (tmpl) = TREE_TYPE (decl);
5054 /* Push template declarations for global functions and types. Note
5055 that we do not try to push a global template friend declared in a
5056 template class; such a thing may well depend on the template
5057 parameters of the class. */
5058 if (new_template_p && !ctx
5059 && !(is_friend && template_class_depth (current_class_type) > 0))
5061 tmpl = pushdecl_namespace_level (tmpl, is_friend);
5062 if (tmpl == error_mark_node)
5063 return error_mark_node;
5065 /* Hide template friend classes that haven't been declared yet. */
5066 if (is_friend && TREE_CODE (decl) == TYPE_DECL)
5068 DECL_ANTICIPATED (tmpl) = 1;
5069 DECL_FRIEND_P (tmpl) = 1;
5073 if (is_primary)
5075 tree parms = DECL_TEMPLATE_PARMS (tmpl);
5076 int i;
5078 DECL_PRIMARY_TEMPLATE (tmpl) = tmpl;
5079 if (DECL_CONV_FN_P (tmpl))
5081 int depth = TMPL_PARMS_DEPTH (parms);
5083 /* It is a conversion operator. See if the type converted to
5084 depends on innermost template operands. */
5086 if (uses_template_parms_level (TREE_TYPE (TREE_TYPE (tmpl)),
5087 depth))
5088 DECL_TEMPLATE_CONV_FN_P (tmpl) = 1;
5091 /* Give template template parms a DECL_CONTEXT of the template
5092 for which they are a parameter. */
5093 parms = INNERMOST_TEMPLATE_PARMS (parms);
5094 for (i = TREE_VEC_LENGTH (parms) - 1; i >= 0; --i)
5096 tree parm = TREE_VALUE (TREE_VEC_ELT (parms, i));
5097 if (TREE_CODE (parm) == TEMPLATE_DECL)
5098 DECL_CONTEXT (parm) = tmpl;
5101 if (TREE_CODE (decl) == TYPE_DECL
5102 && TYPE_DECL_ALIAS_P (decl)
5103 && complex_alias_template_p (tmpl))
5104 TEMPLATE_DECL_COMPLEX_ALIAS_P (tmpl) = true;
5107 /* The DECL_TI_ARGS of DECL contains full set of arguments referring
5108 back to its most general template. If TMPL is a specialization,
5109 ARGS may only have the innermost set of arguments. Add the missing
5110 argument levels if necessary. */
5111 if (DECL_TEMPLATE_INFO (tmpl))
5112 args = add_outermost_template_args (DECL_TI_ARGS (tmpl), args);
5114 info = build_template_info (tmpl, args);
5116 if (DECL_IMPLICIT_TYPEDEF_P (decl))
5117 SET_TYPE_TEMPLATE_INFO (TREE_TYPE (tmpl), info);
5118 else
5120 if (is_primary && !DECL_LANG_SPECIFIC (decl))
5121 retrofit_lang_decl (decl);
5122 if (DECL_LANG_SPECIFIC (decl))
5123 DECL_TEMPLATE_INFO (decl) = info;
5126 if (flag_implicit_templates
5127 && !is_friend
5128 && TREE_PUBLIC (decl)
5129 && VAR_OR_FUNCTION_DECL_P (decl))
5130 /* Set DECL_COMDAT on template instantiations; if we force
5131 them to be emitted by explicit instantiation or -frepo,
5132 mark_needed will tell cgraph to do the right thing. */
5133 DECL_COMDAT (decl) = true;
5135 return DECL_TEMPLATE_RESULT (tmpl);
5138 tree
5139 push_template_decl (tree decl)
5141 return push_template_decl_real (decl, false);
5144 /* FN is an inheriting constructor that inherits from the constructor
5145 template INHERITED; turn FN into a constructor template with a matching
5146 template header. */
5148 tree
5149 add_inherited_template_parms (tree fn, tree inherited)
5151 tree inner_parms
5152 = INNERMOST_TEMPLATE_PARMS (DECL_TEMPLATE_PARMS (inherited));
5153 inner_parms = copy_node (inner_parms);
5154 tree parms
5155 = tree_cons (size_int (processing_template_decl + 1),
5156 inner_parms, current_template_parms);
5157 tree tmpl = build_template_decl (fn, parms, /*member*/true);
5158 tree args = template_parms_to_args (parms);
5159 DECL_TEMPLATE_INFO (fn) = build_template_info (tmpl, args);
5160 TREE_TYPE (tmpl) = TREE_TYPE (fn);
5161 DECL_TEMPLATE_RESULT (tmpl) = fn;
5162 DECL_ARTIFICIAL (tmpl) = true;
5163 DECL_PRIMARY_TEMPLATE (tmpl) = tmpl;
5164 return tmpl;
5167 /* Called when a class template TYPE is redeclared with the indicated
5168 template PARMS, e.g.:
5170 template <class T> struct S;
5171 template <class T> struct S {}; */
5173 bool
5174 redeclare_class_template (tree type, tree parms)
5176 tree tmpl;
5177 tree tmpl_parms;
5178 int i;
5180 if (!TYPE_TEMPLATE_INFO (type))
5182 error ("%qT is not a template type", type);
5183 return false;
5186 tmpl = TYPE_TI_TEMPLATE (type);
5187 if (!PRIMARY_TEMPLATE_P (tmpl))
5188 /* The type is nested in some template class. Nothing to worry
5189 about here; there are no new template parameters for the nested
5190 type. */
5191 return true;
5193 if (!parms)
5195 error ("template specifiers not specified in declaration of %qD",
5196 tmpl);
5197 return false;
5200 parms = INNERMOST_TEMPLATE_PARMS (parms);
5201 tmpl_parms = DECL_INNERMOST_TEMPLATE_PARMS (tmpl);
5203 if (TREE_VEC_LENGTH (parms) != TREE_VEC_LENGTH (tmpl_parms))
5205 error_n (input_location, TREE_VEC_LENGTH (parms),
5206 "redeclared with %d template parameter",
5207 "redeclared with %d template parameters",
5208 TREE_VEC_LENGTH (parms));
5209 inform_n (input_location, TREE_VEC_LENGTH (tmpl_parms),
5210 "previous declaration %q+D used %d template parameter",
5211 "previous declaration %q+D used %d template parameters",
5212 tmpl, TREE_VEC_LENGTH (tmpl_parms));
5213 return false;
5216 for (i = 0; i < TREE_VEC_LENGTH (tmpl_parms); ++i)
5218 tree tmpl_parm;
5219 tree parm;
5220 tree tmpl_default;
5221 tree parm_default;
5223 if (TREE_VEC_ELT (tmpl_parms, i) == error_mark_node
5224 || TREE_VEC_ELT (parms, i) == error_mark_node)
5225 continue;
5227 tmpl_parm = TREE_VALUE (TREE_VEC_ELT (tmpl_parms, i));
5228 if (error_operand_p (tmpl_parm))
5229 return false;
5231 parm = TREE_VALUE (TREE_VEC_ELT (parms, i));
5232 tmpl_default = TREE_PURPOSE (TREE_VEC_ELT (tmpl_parms, i));
5233 parm_default = TREE_PURPOSE (TREE_VEC_ELT (parms, i));
5235 /* TMPL_PARM and PARM can be either TYPE_DECL, PARM_DECL, or
5236 TEMPLATE_DECL. */
5237 if (TREE_CODE (tmpl_parm) != TREE_CODE (parm)
5238 || (TREE_CODE (tmpl_parm) != TYPE_DECL
5239 && !same_type_p (TREE_TYPE (tmpl_parm), TREE_TYPE (parm)))
5240 || (TREE_CODE (tmpl_parm) != PARM_DECL
5241 && (TEMPLATE_TYPE_PARAMETER_PACK (TREE_TYPE (tmpl_parm))
5242 != TEMPLATE_TYPE_PARAMETER_PACK (TREE_TYPE (parm))))
5243 || (TREE_CODE (tmpl_parm) == PARM_DECL
5244 && (TEMPLATE_PARM_PARAMETER_PACK (DECL_INITIAL (tmpl_parm))
5245 != TEMPLATE_PARM_PARAMETER_PACK (DECL_INITIAL (parm)))))
5247 error ("template parameter %q+#D", tmpl_parm);
5248 error ("redeclared here as %q#D", parm);
5249 return false;
5252 if (tmpl_default != NULL_TREE && parm_default != NULL_TREE)
5254 /* We have in [temp.param]:
5256 A template-parameter may not be given default arguments
5257 by two different declarations in the same scope. */
5258 error_at (input_location, "redefinition of default argument for %q#D", parm);
5259 inform (DECL_SOURCE_LOCATION (tmpl_parm),
5260 "original definition appeared here");
5261 return false;
5264 if (parm_default != NULL_TREE)
5265 /* Update the previous template parameters (which are the ones
5266 that will really count) with the new default value. */
5267 TREE_PURPOSE (TREE_VEC_ELT (tmpl_parms, i)) = parm_default;
5268 else if (tmpl_default != NULL_TREE)
5269 /* Update the new parameters, too; they'll be used as the
5270 parameters for any members. */
5271 TREE_PURPOSE (TREE_VEC_ELT (parms, i)) = tmpl_default;
5274 return true;
5277 /* The actual substitution part of instantiate_non_dependent_expr_sfinae,
5278 to be used when the caller has already checked
5279 (processing_template_decl
5280 && !instantiation_dependent_expression_p (expr)
5281 && potential_constant_expression (expr))
5282 and cleared processing_template_decl. */
5284 tree
5285 instantiate_non_dependent_expr_internal (tree expr, tsubst_flags_t complain)
5287 return tsubst_copy_and_build (expr,
5288 /*args=*/NULL_TREE,
5289 complain,
5290 /*in_decl=*/NULL_TREE,
5291 /*function_p=*/false,
5292 /*integral_constant_expression_p=*/true);
5295 /* Simplify EXPR if it is a non-dependent expression. Returns the
5296 (possibly simplified) expression. */
5298 tree
5299 instantiate_non_dependent_expr_sfinae (tree expr, tsubst_flags_t complain)
5301 if (expr == NULL_TREE)
5302 return NULL_TREE;
5304 /* If we're in a template, but EXPR isn't value dependent, simplify
5305 it. We're supposed to treat:
5307 template <typename T> void f(T[1 + 1]);
5308 template <typename T> void f(T[2]);
5310 as two declarations of the same function, for example. */
5311 if (processing_template_decl
5312 && !instantiation_dependent_expression_p (expr)
5313 && potential_constant_expression (expr))
5315 processing_template_decl_sentinel s;
5316 expr = instantiate_non_dependent_expr_internal (expr, complain);
5318 return expr;
5321 tree
5322 instantiate_non_dependent_expr (tree expr)
5324 return instantiate_non_dependent_expr_sfinae (expr, tf_error);
5327 /* Return TRUE iff T is a type alias, a TEMPLATE_DECL for an alias
5328 template declaration, or a TYPE_DECL for an alias declaration. */
5330 bool
5331 alias_type_or_template_p (tree t)
5333 if (t == NULL_TREE)
5334 return false;
5335 return ((TREE_CODE (t) == TYPE_DECL && TYPE_DECL_ALIAS_P (t))
5336 || (TYPE_P (t)
5337 && TYPE_NAME (t)
5338 && TYPE_DECL_ALIAS_P (TYPE_NAME (t)))
5339 || DECL_ALIAS_TEMPLATE_P (t));
5342 /* Return TRUE iff T is a specialization of an alias template. */
5344 bool
5345 alias_template_specialization_p (const_tree t)
5347 /* It's an alias template specialization if it's an alias and its
5348 TYPE_NAME is a specialization of a primary template. */
5349 if (TYPE_ALIAS_P (t))
5351 tree name = TYPE_NAME (t);
5352 if (DECL_LANG_SPECIFIC (name))
5353 if (tree ti = DECL_TEMPLATE_INFO (name))
5355 tree tmpl = TI_TEMPLATE (ti);
5356 return PRIMARY_TEMPLATE_P (tmpl);
5359 return false;
5362 /* An alias template is complex from a SFINAE perspective if a template-id
5363 using that alias can be ill-formed when the expansion is not, as with
5364 the void_t template. We determine this by checking whether the
5365 expansion for the alias template uses all its template parameters. */
5367 struct uses_all_template_parms_data
5369 int level;
5370 bool *seen;
5373 static int
5374 uses_all_template_parms_r (tree t, void *data_)
5376 struct uses_all_template_parms_data &data
5377 = *(struct uses_all_template_parms_data*)data_;
5378 tree idx = get_template_parm_index (t);
5380 if (TEMPLATE_PARM_LEVEL (idx) == data.level)
5381 data.seen[TEMPLATE_PARM_IDX (idx)] = true;
5382 return 0;
5385 static bool
5386 complex_alias_template_p (const_tree tmpl)
5388 struct uses_all_template_parms_data data;
5389 tree pat = DECL_ORIGINAL_TYPE (DECL_TEMPLATE_RESULT (tmpl));
5390 tree parms = DECL_TEMPLATE_PARMS (tmpl);
5391 data.level = TMPL_PARMS_DEPTH (parms);
5392 int len = TREE_VEC_LENGTH (INNERMOST_TEMPLATE_PARMS (parms));
5393 data.seen = XALLOCAVEC (bool, len);
5394 for (int i = 0; i < len; ++i)
5395 data.seen[i] = false;
5397 for_each_template_parm (pat, uses_all_template_parms_r, &data, NULL, true);
5398 for (int i = 0; i < len; ++i)
5399 if (!data.seen[i])
5400 return true;
5401 return false;
5404 /* Return TRUE iff T is a specialization of a complex alias template with
5405 dependent template-arguments. */
5407 bool
5408 dependent_alias_template_spec_p (const_tree t)
5410 return (alias_template_specialization_p (t)
5411 && TEMPLATE_DECL_COMPLEX_ALIAS_P (DECL_TI_TEMPLATE (TYPE_NAME (t)))
5412 && (any_dependent_template_arguments_p
5413 (INNERMOST_TEMPLATE_ARGS (TYPE_TI_ARGS (t)))));
5416 /* Return the number of innermost template parameters in TMPL. */
5418 static int
5419 num_innermost_template_parms (tree tmpl)
5421 tree parms = INNERMOST_TEMPLATE_PARMS (DECL_TEMPLATE_PARMS (tmpl));
5422 return TREE_VEC_LENGTH (parms);
5425 /* Return either TMPL or another template that it is equivalent to under DR
5426 1286: An alias that just changes the name of a template is equivalent to
5427 the other template. */
5429 static tree
5430 get_underlying_template (tree tmpl)
5432 gcc_assert (TREE_CODE (tmpl) == TEMPLATE_DECL);
5433 while (DECL_ALIAS_TEMPLATE_P (tmpl))
5435 tree result = DECL_ORIGINAL_TYPE (DECL_TEMPLATE_RESULT (tmpl));
5436 if (TYPE_TEMPLATE_INFO (result))
5438 tree sub = TYPE_TI_TEMPLATE (result);
5439 if (PRIMARY_TEMPLATE_P (sub)
5440 && (num_innermost_template_parms (tmpl)
5441 == num_innermost_template_parms (sub)))
5443 tree alias_args = INNERMOST_TEMPLATE_ARGS
5444 (template_parms_to_args (DECL_TEMPLATE_PARMS (tmpl)));
5445 if (!comp_template_args (TYPE_TI_ARGS (result), alias_args))
5446 break;
5447 /* The alias type is equivalent to the pattern of the
5448 underlying template, so strip the alias. */
5449 tmpl = sub;
5450 continue;
5453 break;
5455 return tmpl;
5458 /* Subroutine of convert_nontype_argument. Converts EXPR to TYPE, which
5459 must be a function or a pointer-to-function type, as specified
5460 in [temp.arg.nontype]: disambiguate EXPR if it is an overload set,
5461 and check that the resulting function has external linkage. */
5463 static tree
5464 convert_nontype_argument_function (tree type, tree expr,
5465 tsubst_flags_t complain)
5467 tree fns = expr;
5468 tree fn, fn_no_ptr;
5469 linkage_kind linkage;
5471 fn = instantiate_type (type, fns, tf_none);
5472 if (fn == error_mark_node)
5473 return error_mark_node;
5475 fn_no_ptr = fn;
5476 if (TREE_CODE (fn_no_ptr) == ADDR_EXPR)
5477 fn_no_ptr = TREE_OPERAND (fn_no_ptr, 0);
5478 if (BASELINK_P (fn_no_ptr))
5479 fn_no_ptr = BASELINK_FUNCTIONS (fn_no_ptr);
5481 /* [temp.arg.nontype]/1
5483 A template-argument for a non-type, non-template template-parameter
5484 shall be one of:
5485 [...]
5486 -- the address of an object or function with external [C++11: or
5487 internal] linkage. */
5489 if (TREE_CODE (fn_no_ptr) != FUNCTION_DECL)
5491 if (complain & tf_error)
5493 error ("%qE is not a valid template argument for type %qT",
5494 expr, type);
5495 if (TYPE_PTR_P (type))
5496 error ("it must be the address of a function with "
5497 "external linkage");
5498 else
5499 error ("it must be the name of a function with "
5500 "external linkage");
5502 return NULL_TREE;
5505 linkage = decl_linkage (fn_no_ptr);
5506 if (cxx_dialect >= cxx11 ? linkage == lk_none : linkage != lk_external)
5508 if (complain & tf_error)
5510 if (cxx_dialect >= cxx11)
5511 error ("%qE is not a valid template argument for type %qT "
5512 "because %qD has no linkage",
5513 expr, type, fn_no_ptr);
5514 else
5515 error ("%qE is not a valid template argument for type %qT "
5516 "because %qD does not have external linkage",
5517 expr, type, fn_no_ptr);
5519 return NULL_TREE;
5522 return fn;
5525 /* Subroutine of convert_nontype_argument.
5526 Check if EXPR of type TYPE is a valid pointer-to-member constant.
5527 Emit an error otherwise. */
5529 static bool
5530 check_valid_ptrmem_cst_expr (tree type, tree expr,
5531 tsubst_flags_t complain)
5533 STRIP_NOPS (expr);
5534 if (expr && (null_ptr_cst_p (expr) || TREE_CODE (expr) == PTRMEM_CST))
5535 return true;
5536 if (cxx_dialect >= cxx11 && null_member_pointer_value_p (expr))
5537 return true;
5538 if (processing_template_decl
5539 && TREE_CODE (expr) == ADDR_EXPR
5540 && TREE_CODE (TREE_OPERAND (expr, 0)) == OFFSET_REF)
5541 return true;
5542 if (complain & tf_error)
5544 error ("%qE is not a valid template argument for type %qT",
5545 expr, type);
5546 error ("it must be a pointer-to-member of the form %<&X::Y%>");
5548 return false;
5551 /* Returns TRUE iff the address of OP is value-dependent.
5553 14.6.2.4 [temp.dep.temp]:
5554 A non-integral non-type template-argument is dependent if its type is
5555 dependent or it has either of the following forms
5556 qualified-id
5557 & qualified-id
5558 and contains a nested-name-specifier which specifies a class-name that
5559 names a dependent type.
5561 We generalize this to just say that the address of a member of a
5562 dependent class is value-dependent; the above doesn't cover the
5563 address of a static data member named with an unqualified-id. */
5565 static bool
5566 has_value_dependent_address (tree op)
5568 /* We could use get_inner_reference here, but there's no need;
5569 this is only relevant for template non-type arguments, which
5570 can only be expressed as &id-expression. */
5571 if (DECL_P (op))
5573 tree ctx = CP_DECL_CONTEXT (op);
5574 if (TYPE_P (ctx) && dependent_type_p (ctx))
5575 return true;
5578 return false;
5581 /* The next set of functions are used for providing helpful explanatory
5582 diagnostics for failed overload resolution. Their messages should be
5583 indented by two spaces for consistency with the messages in
5584 call.c */
5586 static int
5587 unify_success (bool /*explain_p*/)
5589 return 0;
5592 static int
5593 unify_parameter_deduction_failure (bool explain_p, tree parm)
5595 if (explain_p)
5596 inform (input_location,
5597 " couldn't deduce template parameter %qD", parm);
5598 return 1;
5601 static int
5602 unify_invalid (bool /*explain_p*/)
5604 return 1;
5607 static int
5608 unify_cv_qual_mismatch (bool explain_p, tree parm, tree arg)
5610 if (explain_p)
5611 inform (input_location,
5612 " types %qT and %qT have incompatible cv-qualifiers",
5613 parm, arg);
5614 return 1;
5617 static int
5618 unify_type_mismatch (bool explain_p, tree parm, tree arg)
5620 if (explain_p)
5621 inform (input_location, " mismatched types %qT and %qT", parm, arg);
5622 return 1;
5625 static int
5626 unify_parameter_pack_mismatch (bool explain_p, tree parm, tree arg)
5628 if (explain_p)
5629 inform (input_location,
5630 " template parameter %qD is not a parameter pack, but "
5631 "argument %qD is",
5632 parm, arg);
5633 return 1;
5636 static int
5637 unify_ptrmem_cst_mismatch (bool explain_p, tree parm, tree arg)
5639 if (explain_p)
5640 inform (input_location,
5641 " template argument %qE does not match "
5642 "pointer-to-member constant %qE",
5643 arg, parm);
5644 return 1;
5647 static int
5648 unify_expression_unequal (bool explain_p, tree parm, tree arg)
5650 if (explain_p)
5651 inform (input_location, " %qE is not equivalent to %qE", parm, arg);
5652 return 1;
5655 static int
5656 unify_parameter_pack_inconsistent (bool explain_p, tree old_arg, tree new_arg)
5658 if (explain_p)
5659 inform (input_location,
5660 " inconsistent parameter pack deduction with %qT and %qT",
5661 old_arg, new_arg);
5662 return 1;
5665 static int
5666 unify_inconsistency (bool explain_p, tree parm, tree first, tree second)
5668 if (explain_p)
5670 if (TYPE_P (parm))
5671 inform (input_location,
5672 " deduced conflicting types for parameter %qT (%qT and %qT)",
5673 parm, first, second);
5674 else
5675 inform (input_location,
5676 " deduced conflicting values for non-type parameter "
5677 "%qE (%qE and %qE)", parm, first, second);
5679 return 1;
5682 static int
5683 unify_vla_arg (bool explain_p, tree arg)
5685 if (explain_p)
5686 inform (input_location,
5687 " variable-sized array type %qT is not "
5688 "a valid template argument",
5689 arg);
5690 return 1;
5693 static int
5694 unify_method_type_error (bool explain_p, tree arg)
5696 if (explain_p)
5697 inform (input_location,
5698 " member function type %qT is not a valid template argument",
5699 arg);
5700 return 1;
5703 static int
5704 unify_arity (bool explain_p, int have, int wanted, bool least_p = false)
5706 if (explain_p)
5708 if (least_p)
5709 inform_n (input_location, wanted,
5710 " candidate expects at least %d argument, %d provided",
5711 " candidate expects at least %d arguments, %d provided",
5712 wanted, have);
5713 else
5714 inform_n (input_location, wanted,
5715 " candidate expects %d argument, %d provided",
5716 " candidate expects %d arguments, %d provided",
5717 wanted, have);
5719 return 1;
5722 static int
5723 unify_too_many_arguments (bool explain_p, int have, int wanted)
5725 return unify_arity (explain_p, have, wanted);
5728 static int
5729 unify_too_few_arguments (bool explain_p, int have, int wanted,
5730 bool least_p = false)
5732 return unify_arity (explain_p, have, wanted, least_p);
5735 static int
5736 unify_arg_conversion (bool explain_p, tree to_type,
5737 tree from_type, tree arg)
5739 if (explain_p)
5740 inform (EXPR_LOC_OR_LOC (arg, input_location),
5741 " cannot convert %qE (type %qT) to type %qT",
5742 arg, from_type, to_type);
5743 return 1;
5746 static int
5747 unify_no_common_base (bool explain_p, enum template_base_result r,
5748 tree parm, tree arg)
5750 if (explain_p)
5751 switch (r)
5753 case tbr_ambiguous_baseclass:
5754 inform (input_location, " %qT is an ambiguous base class of %qT",
5755 parm, arg);
5756 break;
5757 default:
5758 inform (input_location, " %qT is not derived from %qT", arg, parm);
5759 break;
5761 return 1;
5764 static int
5765 unify_inconsistent_template_template_parameters (bool explain_p)
5767 if (explain_p)
5768 inform (input_location,
5769 " template parameters of a template template argument are "
5770 "inconsistent with other deduced template arguments");
5771 return 1;
5774 static int
5775 unify_template_deduction_failure (bool explain_p, tree parm, tree arg)
5777 if (explain_p)
5778 inform (input_location,
5779 " can't deduce a template for %qT from non-template type %qT",
5780 parm, arg);
5781 return 1;
5784 static int
5785 unify_template_argument_mismatch (bool explain_p, tree parm, tree arg)
5787 if (explain_p)
5788 inform (input_location,
5789 " template argument %qE does not match %qD", arg, parm);
5790 return 1;
5793 static int
5794 unify_overload_resolution_failure (bool explain_p, tree arg)
5796 if (explain_p)
5797 inform (input_location,
5798 " could not resolve address from overloaded function %qE",
5799 arg);
5800 return 1;
5803 /* Attempt to convert the non-type template parameter EXPR to the
5804 indicated TYPE. If the conversion is successful, return the
5805 converted value. If the conversion is unsuccessful, return
5806 NULL_TREE if we issued an error message, or error_mark_node if we
5807 did not. We issue error messages for out-and-out bad template
5808 parameters, but not simply because the conversion failed, since we
5809 might be just trying to do argument deduction. Both TYPE and EXPR
5810 must be non-dependent.
5812 The conversion follows the special rules described in
5813 [temp.arg.nontype], and it is much more strict than an implicit
5814 conversion.
5816 This function is called twice for each template argument (see
5817 lookup_template_class for a more accurate description of this
5818 problem). This means that we need to handle expressions which
5819 are not valid in a C++ source, but can be created from the
5820 first call (for instance, casts to perform conversions). These
5821 hacks can go away after we fix the double coercion problem. */
5823 static tree
5824 convert_nontype_argument (tree type, tree expr, tsubst_flags_t complain)
5826 tree expr_type;
5828 /* Detect immediately string literals as invalid non-type argument.
5829 This special-case is not needed for correctness (we would easily
5830 catch this later), but only to provide better diagnostic for this
5831 common user mistake. As suggested by DR 100, we do not mention
5832 linkage issues in the diagnostic as this is not the point. */
5833 /* FIXME we're making this OK. */
5834 if (TREE_CODE (expr) == STRING_CST)
5836 if (complain & tf_error)
5837 error ("%qE is not a valid template argument for type %qT "
5838 "because string literals can never be used in this context",
5839 expr, type);
5840 return NULL_TREE;
5843 /* Add the ADDR_EXPR now for the benefit of
5844 value_dependent_expression_p. */
5845 if (TYPE_PTROBV_P (type)
5846 && TREE_CODE (TREE_TYPE (expr)) == ARRAY_TYPE)
5848 expr = decay_conversion (expr, complain);
5849 if (expr == error_mark_node)
5850 return error_mark_node;
5853 /* If we are in a template, EXPR may be non-dependent, but still
5854 have a syntactic, rather than semantic, form. For example, EXPR
5855 might be a SCOPE_REF, rather than the VAR_DECL to which the
5856 SCOPE_REF refers. Preserving the qualifying scope is necessary
5857 so that access checking can be performed when the template is
5858 instantiated -- but here we need the resolved form so that we can
5859 convert the argument. */
5860 bool non_dep = false;
5861 if (TYPE_REF_OBJ_P (type)
5862 && has_value_dependent_address (expr))
5863 /* If we want the address and it's value-dependent, don't fold. */;
5864 else if (!type_unknown_p (expr)
5865 && processing_template_decl
5866 && !instantiation_dependent_expression_p (expr)
5867 && potential_constant_expression (expr))
5868 non_dep = true;
5869 if (error_operand_p (expr))
5870 return error_mark_node;
5871 expr_type = TREE_TYPE (expr);
5872 if (TREE_CODE (type) == REFERENCE_TYPE)
5873 expr = mark_lvalue_use (expr);
5874 else
5875 expr = mark_rvalue_use (expr);
5877 /* If the argument is non-dependent, perform any conversions in
5878 non-dependent context as well. */
5879 processing_template_decl_sentinel s (non_dep);
5880 if (non_dep)
5881 expr = instantiate_non_dependent_expr_internal (expr, complain);
5883 /* 14.3.2/5: The null pointer{,-to-member} conversion is applied
5884 to a non-type argument of "nullptr". */
5885 if (expr == nullptr_node && TYPE_PTR_OR_PTRMEM_P (type))
5886 expr = convert (type, expr);
5888 /* In C++11, integral or enumeration non-type template arguments can be
5889 arbitrary constant expressions. Pointer and pointer to
5890 member arguments can be general constant expressions that evaluate
5891 to a null value, but otherwise still need to be of a specific form. */
5892 if (cxx_dialect >= cxx11)
5894 if (TREE_CODE (expr) == PTRMEM_CST)
5895 /* A PTRMEM_CST is already constant, and a valid template
5896 argument for a parameter of pointer to member type, we just want
5897 to leave it in that form rather than lower it to a
5898 CONSTRUCTOR. */;
5899 else if (INTEGRAL_OR_ENUMERATION_TYPE_P (type))
5900 expr = maybe_constant_value (expr);
5901 else if (TYPE_PTR_OR_PTRMEM_P (type))
5903 tree folded = maybe_constant_value (expr);
5904 if (TYPE_PTR_P (type) ? integer_zerop (folded)
5905 : null_member_pointer_value_p (folded))
5906 expr = folded;
5910 /* HACK: Due to double coercion, we can get a
5911 NOP_EXPR<REFERENCE_TYPE>(ADDR_EXPR<POINTER_TYPE> (arg)) here,
5912 which is the tree that we built on the first call (see
5913 below when coercing to reference to object or to reference to
5914 function). We just strip everything and get to the arg.
5915 See g++.old-deja/g++.oliva/template4.C and g++.dg/template/nontype9.C
5916 for examples. */
5917 if (TYPE_REF_OBJ_P (type) || TYPE_REFFN_P (type))
5919 tree probe_type, probe = expr;
5920 if (REFERENCE_REF_P (probe))
5921 probe = TREE_OPERAND (probe, 0);
5922 probe_type = TREE_TYPE (probe);
5923 if (TREE_CODE (probe) == NOP_EXPR)
5925 /* ??? Maybe we could use convert_from_reference here, but we
5926 would need to relax its constraints because the NOP_EXPR
5927 could actually change the type to something more cv-qualified,
5928 and this is not folded by convert_from_reference. */
5929 tree addr = TREE_OPERAND (probe, 0);
5930 if (TREE_CODE (probe_type) == REFERENCE_TYPE
5931 && TREE_CODE (addr) == ADDR_EXPR
5932 && TYPE_PTR_P (TREE_TYPE (addr))
5933 && (same_type_ignoring_top_level_qualifiers_p
5934 (TREE_TYPE (probe_type),
5935 TREE_TYPE (TREE_TYPE (addr)))))
5937 expr = TREE_OPERAND (addr, 0);
5938 expr_type = TREE_TYPE (probe_type);
5943 /* We could also generate a NOP_EXPR(ADDR_EXPR()) when the
5944 parameter is a pointer to object, through decay and
5945 qualification conversion. Let's strip everything. */
5946 else if (TREE_CODE (expr) == NOP_EXPR && TYPE_PTROBV_P (type))
5948 tree probe = expr;
5949 STRIP_NOPS (probe);
5950 if (TREE_CODE (probe) == ADDR_EXPR
5951 && TYPE_PTR_P (TREE_TYPE (probe)))
5953 /* Skip the ADDR_EXPR only if it is part of the decay for
5954 an array. Otherwise, it is part of the original argument
5955 in the source code. */
5956 if (TREE_CODE (TREE_TYPE (TREE_OPERAND (probe, 0))) == ARRAY_TYPE)
5957 probe = TREE_OPERAND (probe, 0);
5958 expr = probe;
5959 expr_type = TREE_TYPE (expr);
5963 /* [temp.arg.nontype]/5, bullet 1
5965 For a non-type template-parameter of integral or enumeration type,
5966 integral promotions (_conv.prom_) and integral conversions
5967 (_conv.integral_) are applied. */
5968 if (INTEGRAL_OR_ENUMERATION_TYPE_P (type))
5970 tree t = build_integral_nontype_arg_conv (type, expr, complain);
5971 t = maybe_constant_value (t);
5972 if (t != error_mark_node)
5973 expr = t;
5975 if (!same_type_ignoring_top_level_qualifiers_p (type, TREE_TYPE (expr)))
5976 return error_mark_node;
5978 /* Notice that there are constant expressions like '4 % 0' which
5979 do not fold into integer constants. */
5980 if (TREE_CODE (expr) != INTEGER_CST)
5982 if (complain & tf_error)
5984 int errs = errorcount, warns = warningcount + werrorcount;
5985 if (processing_template_decl
5986 && !require_potential_constant_expression (expr))
5987 return NULL_TREE;
5988 expr = cxx_constant_value (expr);
5989 if (errorcount > errs || warningcount + werrorcount > warns)
5990 inform (EXPR_LOC_OR_LOC (expr, input_location),
5991 "in template argument for type %qT ", type);
5992 if (expr == error_mark_node)
5993 return NULL_TREE;
5994 /* else cxx_constant_value complained but gave us
5995 a real constant, so go ahead. */
5996 gcc_assert (TREE_CODE (expr) == INTEGER_CST);
5998 else
5999 return NULL_TREE;
6002 /* Avoid typedef problems. */
6003 if (TREE_TYPE (expr) != type)
6004 expr = fold_convert (type, expr);
6006 /* [temp.arg.nontype]/5, bullet 2
6008 For a non-type template-parameter of type pointer to object,
6009 qualification conversions (_conv.qual_) and the array-to-pointer
6010 conversion (_conv.array_) are applied. */
6011 else if (TYPE_PTROBV_P (type))
6013 /* [temp.arg.nontype]/1 (TC1 version, DR 49):
6015 A template-argument for a non-type, non-template template-parameter
6016 shall be one of: [...]
6018 -- the name of a non-type template-parameter;
6019 -- the address of an object or function with external linkage, [...]
6020 expressed as "& id-expression" where the & is optional if the name
6021 refers to a function or array, or if the corresponding
6022 template-parameter is a reference.
6024 Here, we do not care about functions, as they are invalid anyway
6025 for a parameter of type pointer-to-object. */
6027 if (DECL_P (expr) && DECL_TEMPLATE_PARM_P (expr))
6028 /* Non-type template parameters are OK. */
6030 else if (cxx_dialect >= cxx11 && integer_zerop (expr))
6031 /* Null pointer values are OK in C++11. */;
6032 else if (TREE_CODE (expr) != ADDR_EXPR
6033 && TREE_CODE (expr_type) != ARRAY_TYPE)
6035 if (VAR_P (expr))
6037 if (complain & tf_error)
6038 error ("%qD is not a valid template argument "
6039 "because %qD is a variable, not the address of "
6040 "a variable", expr, expr);
6041 return NULL_TREE;
6043 if (POINTER_TYPE_P (expr_type))
6045 if (complain & tf_error)
6046 error ("%qE is not a valid template argument for %qT "
6047 "because it is not the address of a variable",
6048 expr, type);
6049 return NULL_TREE;
6051 /* Other values, like integer constants, might be valid
6052 non-type arguments of some other type. */
6053 return error_mark_node;
6055 else
6057 tree decl;
6059 decl = ((TREE_CODE (expr) == ADDR_EXPR)
6060 ? TREE_OPERAND (expr, 0) : expr);
6061 if (!VAR_P (decl))
6063 if (complain & tf_error)
6064 error ("%qE is not a valid template argument of type %qT "
6065 "because %qE is not a variable", expr, type, decl);
6066 return NULL_TREE;
6068 else if (cxx_dialect < cxx11 && !DECL_EXTERNAL_LINKAGE_P (decl))
6070 if (complain & tf_error)
6071 error ("%qE is not a valid template argument of type %qT "
6072 "because %qD does not have external linkage",
6073 expr, type, decl);
6074 return NULL_TREE;
6076 else if (cxx_dialect >= cxx11 && decl_linkage (decl) == lk_none)
6078 if (complain & tf_error)
6079 error ("%qE is not a valid template argument of type %qT "
6080 "because %qD has no linkage", expr, type, decl);
6081 return NULL_TREE;
6085 expr = decay_conversion (expr, complain);
6086 if (expr == error_mark_node)
6087 return error_mark_node;
6089 expr = perform_qualification_conversions (type, expr);
6090 if (expr == error_mark_node)
6091 return error_mark_node;
6093 /* [temp.arg.nontype]/5, bullet 3
6095 For a non-type template-parameter of type reference to object, no
6096 conversions apply. The type referred to by the reference may be more
6097 cv-qualified than the (otherwise identical) type of the
6098 template-argument. The template-parameter is bound directly to the
6099 template-argument, which must be an lvalue. */
6100 else if (TYPE_REF_OBJ_P (type))
6102 if (!same_type_ignoring_top_level_qualifiers_p (TREE_TYPE (type),
6103 expr_type))
6104 return error_mark_node;
6106 if (!at_least_as_qualified_p (TREE_TYPE (type), expr_type))
6108 if (complain & tf_error)
6109 error ("%qE is not a valid template argument for type %qT "
6110 "because of conflicts in cv-qualification", expr, type);
6111 return NULL_TREE;
6114 if (!real_lvalue_p (expr))
6116 if (complain & tf_error)
6117 error ("%qE is not a valid template argument for type %qT "
6118 "because it is not an lvalue", expr, type);
6119 return NULL_TREE;
6122 /* [temp.arg.nontype]/1
6124 A template-argument for a non-type, non-template template-parameter
6125 shall be one of: [...]
6127 -- the address of an object or function with external linkage. */
6128 if (INDIRECT_REF_P (expr)
6129 && TYPE_REF_OBJ_P (TREE_TYPE (TREE_OPERAND (expr, 0))))
6131 expr = TREE_OPERAND (expr, 0);
6132 if (DECL_P (expr))
6134 if (complain & tf_error)
6135 error ("%q#D is not a valid template argument for type %qT "
6136 "because a reference variable does not have a constant "
6137 "address", expr, type);
6138 return NULL_TREE;
6142 if (!DECL_P (expr))
6144 if (complain & tf_error)
6145 error ("%qE is not a valid template argument for type %qT "
6146 "because it is not an object with external linkage",
6147 expr, type);
6148 return NULL_TREE;
6151 if (!DECL_EXTERNAL_LINKAGE_P (expr))
6153 if (complain & tf_error)
6154 error ("%qE is not a valid template argument for type %qT "
6155 "because object %qD has not external linkage",
6156 expr, type, expr);
6157 return NULL_TREE;
6160 expr = build_nop (type, build_address (expr));
6162 /* [temp.arg.nontype]/5, bullet 4
6164 For a non-type template-parameter of type pointer to function, only
6165 the function-to-pointer conversion (_conv.func_) is applied. If the
6166 template-argument represents a set of overloaded functions (or a
6167 pointer to such), the matching function is selected from the set
6168 (_over.over_). */
6169 else if (TYPE_PTRFN_P (type))
6171 /* If the argument is a template-id, we might not have enough
6172 context information to decay the pointer. */
6173 if (!type_unknown_p (expr_type))
6175 expr = decay_conversion (expr, complain);
6176 if (expr == error_mark_node)
6177 return error_mark_node;
6180 if (cxx_dialect >= cxx11 && integer_zerop (expr))
6181 /* Null pointer values are OK in C++11. */
6182 return perform_qualification_conversions (type, expr);
6184 expr = convert_nontype_argument_function (type, expr, complain);
6185 if (!expr || expr == error_mark_node)
6186 return expr;
6188 /* [temp.arg.nontype]/5, bullet 5
6190 For a non-type template-parameter of type reference to function, no
6191 conversions apply. If the template-argument represents a set of
6192 overloaded functions, the matching function is selected from the set
6193 (_over.over_). */
6194 else if (TYPE_REFFN_P (type))
6196 if (TREE_CODE (expr) == ADDR_EXPR)
6198 if (complain & tf_error)
6200 error ("%qE is not a valid template argument for type %qT "
6201 "because it is a pointer", expr, type);
6202 inform (input_location, "try using %qE instead",
6203 TREE_OPERAND (expr, 0));
6205 return NULL_TREE;
6208 expr = convert_nontype_argument_function (type, expr, complain);
6209 if (!expr || expr == error_mark_node)
6210 return expr;
6212 expr = build_nop (type, build_address (expr));
6214 /* [temp.arg.nontype]/5, bullet 6
6216 For a non-type template-parameter of type pointer to member function,
6217 no conversions apply. If the template-argument represents a set of
6218 overloaded member functions, the matching member function is selected
6219 from the set (_over.over_). */
6220 else if (TYPE_PTRMEMFUNC_P (type))
6222 expr = instantiate_type (type, expr, tf_none);
6223 if (expr == error_mark_node)
6224 return error_mark_node;
6226 /* [temp.arg.nontype] bullet 1 says the pointer to member
6227 expression must be a pointer-to-member constant. */
6228 if (!check_valid_ptrmem_cst_expr (type, expr, complain))
6229 return error_mark_node;
6231 /* There is no way to disable standard conversions in
6232 resolve_address_of_overloaded_function (called by
6233 instantiate_type). It is possible that the call succeeded by
6234 converting &B::I to &D::I (where B is a base of D), so we need
6235 to reject this conversion here.
6237 Actually, even if there was a way to disable standard conversions,
6238 it would still be better to reject them here so that we can
6239 provide a superior diagnostic. */
6240 if (!same_type_p (TREE_TYPE (expr), type))
6242 if (complain & tf_error)
6244 error ("%qE is not a valid template argument for type %qT "
6245 "because it is of type %qT", expr, type,
6246 TREE_TYPE (expr));
6247 /* If we are just one standard conversion off, explain. */
6248 if (can_convert_standard (type, TREE_TYPE (expr), complain))
6249 inform (input_location,
6250 "standard conversions are not allowed in this context");
6252 return NULL_TREE;
6255 /* [temp.arg.nontype]/5, bullet 7
6257 For a non-type template-parameter of type pointer to data member,
6258 qualification conversions (_conv.qual_) are applied. */
6259 else if (TYPE_PTRDATAMEM_P (type))
6261 /* [temp.arg.nontype] bullet 1 says the pointer to member
6262 expression must be a pointer-to-member constant. */
6263 if (!check_valid_ptrmem_cst_expr (type, expr, complain))
6264 return error_mark_node;
6266 expr = perform_qualification_conversions (type, expr);
6267 if (expr == error_mark_node)
6268 return expr;
6270 else if (NULLPTR_TYPE_P (type))
6272 if (expr != nullptr_node)
6274 if (complain & tf_error)
6275 error ("%qE is not a valid template argument for type %qT "
6276 "because it is of type %qT", expr, type, TREE_TYPE (expr));
6277 return NULL_TREE;
6279 return expr;
6281 /* A template non-type parameter must be one of the above. */
6282 else
6283 gcc_unreachable ();
6285 /* Sanity check: did we actually convert the argument to the
6286 right type? */
6287 gcc_assert (same_type_ignoring_top_level_qualifiers_p
6288 (type, TREE_TYPE (expr)));
6289 return convert_from_reference (expr);
6292 /* Subroutine of coerce_template_template_parms, which returns 1 if
6293 PARM_PARM and ARG_PARM match using the rule for the template
6294 parameters of template template parameters. Both PARM and ARG are
6295 template parameters; the rest of the arguments are the same as for
6296 coerce_template_template_parms.
6298 static int
6299 coerce_template_template_parm (tree parm,
6300 tree arg,
6301 tsubst_flags_t complain,
6302 tree in_decl,
6303 tree outer_args)
6305 if (arg == NULL_TREE || error_operand_p (arg)
6306 || parm == NULL_TREE || error_operand_p (parm))
6307 return 0;
6309 if (TREE_CODE (arg) != TREE_CODE (parm))
6310 return 0;
6312 switch (TREE_CODE (parm))
6314 case TEMPLATE_DECL:
6315 /* We encounter instantiations of templates like
6316 template <template <template <class> class> class TT>
6317 class C; */
6319 tree parmparm = DECL_INNERMOST_TEMPLATE_PARMS (parm);
6320 tree argparm = DECL_INNERMOST_TEMPLATE_PARMS (arg);
6322 if (!coerce_template_template_parms
6323 (parmparm, argparm, complain, in_decl, outer_args))
6324 return 0;
6326 /* Fall through. */
6328 case TYPE_DECL:
6329 if (TEMPLATE_TYPE_PARAMETER_PACK (TREE_TYPE (arg))
6330 && !TEMPLATE_TYPE_PARAMETER_PACK (TREE_TYPE (parm)))
6331 /* Argument is a parameter pack but parameter is not. */
6332 return 0;
6333 break;
6335 case PARM_DECL:
6336 /* The tsubst call is used to handle cases such as
6338 template <int> class C {};
6339 template <class T, template <T> class TT> class D {};
6340 D<int, C> d;
6342 i.e. the parameter list of TT depends on earlier parameters. */
6343 if (!uses_template_parms (TREE_TYPE (arg))
6344 && !same_type_p
6345 (tsubst (TREE_TYPE (parm), outer_args, complain, in_decl),
6346 TREE_TYPE (arg)))
6347 return 0;
6349 if (TEMPLATE_PARM_PARAMETER_PACK (DECL_INITIAL (arg))
6350 && !TEMPLATE_PARM_PARAMETER_PACK (DECL_INITIAL (parm)))
6351 /* Argument is a parameter pack but parameter is not. */
6352 return 0;
6354 break;
6356 default:
6357 gcc_unreachable ();
6360 return 1;
6364 /* Return 1 if PARM_PARMS and ARG_PARMS matches using rule for
6365 template template parameters. Both PARM_PARMS and ARG_PARMS are
6366 vectors of TREE_LIST nodes containing TYPE_DECL, TEMPLATE_DECL
6367 or PARM_DECL.
6369 Consider the example:
6370 template <class T> class A;
6371 template<template <class U> class TT> class B;
6373 For B<A>, PARM_PARMS are the parameters to TT, while ARG_PARMS are
6374 the parameters to A, and OUTER_ARGS contains A. */
6376 static int
6377 coerce_template_template_parms (tree parm_parms,
6378 tree arg_parms,
6379 tsubst_flags_t complain,
6380 tree in_decl,
6381 tree outer_args)
6383 int nparms, nargs, i;
6384 tree parm, arg;
6385 int variadic_p = 0;
6387 gcc_assert (TREE_CODE (parm_parms) == TREE_VEC);
6388 gcc_assert (TREE_CODE (arg_parms) == TREE_VEC);
6390 nparms = TREE_VEC_LENGTH (parm_parms);
6391 nargs = TREE_VEC_LENGTH (arg_parms);
6393 /* Determine whether we have a parameter pack at the end of the
6394 template template parameter's template parameter list. */
6395 if (TREE_VEC_ELT (parm_parms, nparms - 1) != error_mark_node)
6397 parm = TREE_VALUE (TREE_VEC_ELT (parm_parms, nparms - 1));
6399 if (error_operand_p (parm))
6400 return 0;
6402 switch (TREE_CODE (parm))
6404 case TEMPLATE_DECL:
6405 case TYPE_DECL:
6406 if (TEMPLATE_TYPE_PARAMETER_PACK (TREE_TYPE (parm)))
6407 variadic_p = 1;
6408 break;
6410 case PARM_DECL:
6411 if (TEMPLATE_PARM_PARAMETER_PACK (DECL_INITIAL (parm)))
6412 variadic_p = 1;
6413 break;
6415 default:
6416 gcc_unreachable ();
6420 if (nargs != nparms
6421 && !(variadic_p && nargs >= nparms - 1))
6422 return 0;
6424 /* Check all of the template parameters except the parameter pack at
6425 the end (if any). */
6426 for (i = 0; i < nparms - variadic_p; ++i)
6428 if (TREE_VEC_ELT (parm_parms, i) == error_mark_node
6429 || TREE_VEC_ELT (arg_parms, i) == error_mark_node)
6430 continue;
6432 parm = TREE_VALUE (TREE_VEC_ELT (parm_parms, i));
6433 arg = TREE_VALUE (TREE_VEC_ELT (arg_parms, i));
6435 if (!coerce_template_template_parm (parm, arg, complain, in_decl,
6436 outer_args))
6437 return 0;
6441 if (variadic_p)
6443 /* Check each of the template parameters in the template
6444 argument against the template parameter pack at the end of
6445 the template template parameter. */
6446 if (TREE_VEC_ELT (parm_parms, i) == error_mark_node)
6447 return 0;
6449 parm = TREE_VALUE (TREE_VEC_ELT (parm_parms, i));
6451 for (; i < nargs; ++i)
6453 if (TREE_VEC_ELT (arg_parms, i) == error_mark_node)
6454 continue;
6456 arg = TREE_VALUE (TREE_VEC_ELT (arg_parms, i));
6458 if (!coerce_template_template_parm (parm, arg, complain, in_decl,
6459 outer_args))
6460 return 0;
6464 return 1;
6467 /* Verifies that the deduced template arguments (in TARGS) for the
6468 template template parameters (in TPARMS) represent valid bindings,
6469 by comparing the template parameter list of each template argument
6470 to the template parameter list of its corresponding template
6471 template parameter, in accordance with DR150. This
6472 routine can only be called after all template arguments have been
6473 deduced. It will return TRUE if all of the template template
6474 parameter bindings are okay, FALSE otherwise. */
6475 bool
6476 template_template_parm_bindings_ok_p (tree tparms, tree targs)
6478 int i, ntparms = TREE_VEC_LENGTH (tparms);
6479 bool ret = true;
6481 /* We're dealing with template parms in this process. */
6482 ++processing_template_decl;
6484 targs = INNERMOST_TEMPLATE_ARGS (targs);
6486 for (i = 0; i < ntparms; ++i)
6488 tree tparm = TREE_VALUE (TREE_VEC_ELT (tparms, i));
6489 tree targ = TREE_VEC_ELT (targs, i);
6491 if (TREE_CODE (tparm) == TEMPLATE_DECL && targ)
6493 tree packed_args = NULL_TREE;
6494 int idx, len = 1;
6496 if (ARGUMENT_PACK_P (targ))
6498 /* Look inside the argument pack. */
6499 packed_args = ARGUMENT_PACK_ARGS (targ);
6500 len = TREE_VEC_LENGTH (packed_args);
6503 for (idx = 0; idx < len; ++idx)
6505 tree targ_parms = NULL_TREE;
6507 if (packed_args)
6508 /* Extract the next argument from the argument
6509 pack. */
6510 targ = TREE_VEC_ELT (packed_args, idx);
6512 if (PACK_EXPANSION_P (targ))
6513 /* Look at the pattern of the pack expansion. */
6514 targ = PACK_EXPANSION_PATTERN (targ);
6516 /* Extract the template parameters from the template
6517 argument. */
6518 if (TREE_CODE (targ) == TEMPLATE_DECL)
6519 targ_parms = DECL_INNERMOST_TEMPLATE_PARMS (targ);
6520 else if (TREE_CODE (targ) == TEMPLATE_TEMPLATE_PARM)
6521 targ_parms = DECL_INNERMOST_TEMPLATE_PARMS (TYPE_NAME (targ));
6523 /* Verify that we can coerce the template template
6524 parameters from the template argument to the template
6525 parameter. This requires an exact match. */
6526 if (targ_parms
6527 && !coerce_template_template_parms
6528 (DECL_INNERMOST_TEMPLATE_PARMS (tparm),
6529 targ_parms,
6530 tf_none,
6531 tparm,
6532 targs))
6534 ret = false;
6535 goto out;
6541 out:
6543 --processing_template_decl;
6544 return ret;
6547 /* Since type attributes aren't mangled, we need to strip them from
6548 template type arguments. */
6550 static tree
6551 canonicalize_type_argument (tree arg, tsubst_flags_t complain)
6553 if (!arg || arg == error_mark_node || arg == TYPE_CANONICAL (arg))
6554 return arg;
6555 bool removed_attributes = false;
6556 tree canon = strip_typedefs (arg, &removed_attributes);
6557 if (removed_attributes
6558 && (complain & tf_warning))
6559 warning (0, "ignoring attributes on template argument %qT", arg);
6560 return canon;
6563 /* Convert the indicated template ARG as necessary to match the
6564 indicated template PARM. Returns the converted ARG, or
6565 error_mark_node if the conversion was unsuccessful. Error and
6566 warning messages are issued under control of COMPLAIN. This
6567 conversion is for the Ith parameter in the parameter list. ARGS is
6568 the full set of template arguments deduced so far. */
6570 static tree
6571 convert_template_argument (tree parm,
6572 tree arg,
6573 tree args,
6574 tsubst_flags_t complain,
6575 int i,
6576 tree in_decl)
6578 tree orig_arg;
6579 tree val;
6580 int is_type, requires_type, is_tmpl_type, requires_tmpl_type;
6582 if (parm == error_mark_node)
6583 return error_mark_node;
6585 if (TREE_CODE (arg) == TREE_LIST
6586 && TREE_CODE (TREE_VALUE (arg)) == OFFSET_REF)
6588 /* The template argument was the name of some
6589 member function. That's usually
6590 invalid, but static members are OK. In any
6591 case, grab the underlying fields/functions
6592 and issue an error later if required. */
6593 orig_arg = TREE_VALUE (arg);
6594 TREE_TYPE (arg) = unknown_type_node;
6597 orig_arg = arg;
6599 requires_tmpl_type = TREE_CODE (parm) == TEMPLATE_DECL;
6600 requires_type = (TREE_CODE (parm) == TYPE_DECL
6601 || requires_tmpl_type);
6603 /* When determining whether an argument pack expansion is a template,
6604 look at the pattern. */
6605 if (TREE_CODE (arg) == TYPE_PACK_EXPANSION)
6606 arg = PACK_EXPANSION_PATTERN (arg);
6608 /* Deal with an injected-class-name used as a template template arg. */
6609 if (requires_tmpl_type && CLASS_TYPE_P (arg))
6611 tree t = maybe_get_template_decl_from_type_decl (TYPE_NAME (arg));
6612 if (TREE_CODE (t) == TEMPLATE_DECL)
6614 if (cxx_dialect >= cxx11)
6615 /* OK under DR 1004. */;
6616 else if (complain & tf_warning_or_error)
6617 pedwarn (input_location, OPT_Wpedantic, "injected-class-name %qD"
6618 " used as template template argument", TYPE_NAME (arg));
6619 else if (flag_pedantic_errors)
6620 t = arg;
6622 arg = t;
6626 is_tmpl_type =
6627 ((TREE_CODE (arg) == TEMPLATE_DECL
6628 && TREE_CODE (DECL_TEMPLATE_RESULT (arg)) == TYPE_DECL)
6629 || (requires_tmpl_type && TREE_CODE (arg) == TYPE_ARGUMENT_PACK)
6630 || TREE_CODE (arg) == TEMPLATE_TEMPLATE_PARM
6631 || TREE_CODE (arg) == UNBOUND_CLASS_TEMPLATE);
6633 if (is_tmpl_type
6634 && (TREE_CODE (arg) == TEMPLATE_TEMPLATE_PARM
6635 || TREE_CODE (arg) == UNBOUND_CLASS_TEMPLATE))
6636 arg = TYPE_STUB_DECL (arg);
6638 is_type = TYPE_P (arg) || is_tmpl_type;
6640 if (requires_type && ! is_type && TREE_CODE (arg) == SCOPE_REF
6641 && TREE_CODE (TREE_OPERAND (arg, 0)) == TEMPLATE_TYPE_PARM)
6643 if (TREE_CODE (TREE_OPERAND (arg, 1)) == BIT_NOT_EXPR)
6645 if (complain & tf_error)
6646 error ("invalid use of destructor %qE as a type", orig_arg);
6647 return error_mark_node;
6650 permerror (input_location,
6651 "to refer to a type member of a template parameter, "
6652 "use %<typename %E%>", orig_arg);
6654 orig_arg = make_typename_type (TREE_OPERAND (arg, 0),
6655 TREE_OPERAND (arg, 1),
6656 typename_type,
6657 complain);
6658 arg = orig_arg;
6659 is_type = 1;
6661 if (is_type != requires_type)
6663 if (in_decl)
6665 if (complain & tf_error)
6667 error ("type/value mismatch at argument %d in template "
6668 "parameter list for %qD",
6669 i + 1, in_decl);
6670 if (is_type)
6671 inform (input_location,
6672 " expected a constant of type %qT, got %qT",
6673 TREE_TYPE (parm),
6674 (DECL_P (arg) ? DECL_NAME (arg) : orig_arg));
6675 else if (requires_tmpl_type)
6676 inform (input_location,
6677 " expected a class template, got %qE", orig_arg);
6678 else
6679 inform (input_location,
6680 " expected a type, got %qE", orig_arg);
6683 return error_mark_node;
6685 if (is_tmpl_type ^ requires_tmpl_type)
6687 if (in_decl && (complain & tf_error))
6689 error ("type/value mismatch at argument %d in template "
6690 "parameter list for %qD",
6691 i + 1, in_decl);
6692 if (is_tmpl_type)
6693 inform (input_location,
6694 " expected a type, got %qT", DECL_NAME (arg));
6695 else
6696 inform (input_location,
6697 " expected a class template, got %qT", orig_arg);
6699 return error_mark_node;
6702 if (is_type)
6704 if (requires_tmpl_type)
6706 if (template_parameter_pack_p (parm) && ARGUMENT_PACK_P (orig_arg))
6707 val = orig_arg;
6708 else if (TREE_CODE (TREE_TYPE (arg)) == UNBOUND_CLASS_TEMPLATE)
6709 /* The number of argument required is not known yet.
6710 Just accept it for now. */
6711 val = TREE_TYPE (arg);
6712 else
6714 tree parmparm = DECL_INNERMOST_TEMPLATE_PARMS (parm);
6715 tree argparm;
6717 /* Strip alias templates that are equivalent to another
6718 template. */
6719 arg = get_underlying_template (arg);
6720 argparm = DECL_INNERMOST_TEMPLATE_PARMS (arg);
6722 if (coerce_template_template_parms (parmparm, argparm,
6723 complain, in_decl,
6724 args))
6726 val = arg;
6728 /* TEMPLATE_TEMPLATE_PARM node is preferred over
6729 TEMPLATE_DECL. */
6730 if (val != error_mark_node)
6732 if (DECL_TEMPLATE_TEMPLATE_PARM_P (val))
6733 val = TREE_TYPE (val);
6734 if (TREE_CODE (orig_arg) == TYPE_PACK_EXPANSION)
6735 val = make_pack_expansion (val);
6738 else
6740 if (in_decl && (complain & tf_error))
6742 error ("type/value mismatch at argument %d in "
6743 "template parameter list for %qD",
6744 i + 1, in_decl);
6745 inform (input_location,
6746 " expected a template of type %qD, got %qT",
6747 parm, orig_arg);
6750 val = error_mark_node;
6754 else
6755 val = orig_arg;
6756 /* We only form one instance of each template specialization.
6757 Therefore, if we use a non-canonical variant (i.e., a
6758 typedef), any future messages referring to the type will use
6759 the typedef, which is confusing if those future uses do not
6760 themselves also use the typedef. */
6761 if (TYPE_P (val))
6762 val = canonicalize_type_argument (val, complain);
6764 else
6766 tree t = tsubst (TREE_TYPE (parm), args, complain, in_decl);
6768 if (invalid_nontype_parm_type_p (t, complain))
6769 return error_mark_node;
6771 if (template_parameter_pack_p (parm) && ARGUMENT_PACK_P (orig_arg))
6773 if (same_type_p (t, TREE_TYPE (orig_arg)))
6774 val = orig_arg;
6775 else
6777 /* Not sure if this is reachable, but it doesn't hurt
6778 to be robust. */
6779 error ("type mismatch in nontype parameter pack");
6780 val = error_mark_node;
6783 else if (!dependent_template_arg_p (orig_arg)
6784 && !uses_template_parms (t))
6785 /* We used to call digest_init here. However, digest_init
6786 will report errors, which we don't want when complain
6787 is zero. More importantly, digest_init will try too
6788 hard to convert things: for example, `0' should not be
6789 converted to pointer type at this point according to
6790 the standard. Accepting this is not merely an
6791 extension, since deciding whether or not these
6792 conversions can occur is part of determining which
6793 function template to call, or whether a given explicit
6794 argument specification is valid. */
6795 val = convert_nontype_argument (t, orig_arg, complain);
6796 else
6798 bool removed_attr = false;
6799 val = strip_typedefs_expr (orig_arg, &removed_attr);
6802 if (val == NULL_TREE)
6803 val = error_mark_node;
6804 else if (val == error_mark_node && (complain & tf_error))
6805 error ("could not convert template argument %qE to %qT", orig_arg, t);
6807 if (TREE_CODE (val) == SCOPE_REF)
6809 /* Strip typedefs from the SCOPE_REF. */
6810 tree type = canonicalize_type_argument (TREE_TYPE (val), complain);
6811 tree scope = canonicalize_type_argument (TREE_OPERAND (val, 0),
6812 complain);
6813 val = build_qualified_name (type, scope, TREE_OPERAND (val, 1),
6814 QUALIFIED_NAME_IS_TEMPLATE (val));
6818 return val;
6821 /* Coerces the remaining template arguments in INNER_ARGS (from
6822 ARG_IDX to the end) into the parameter pack at PARM_IDX in PARMS.
6823 Returns the coerced argument pack. PARM_IDX is the position of this
6824 parameter in the template parameter list. ARGS is the original
6825 template argument list. */
6826 static tree
6827 coerce_template_parameter_pack (tree parms,
6828 int parm_idx,
6829 tree args,
6830 tree inner_args,
6831 int arg_idx,
6832 tree new_args,
6833 int* lost,
6834 tree in_decl,
6835 tsubst_flags_t complain)
6837 tree parm = TREE_VEC_ELT (parms, parm_idx);
6838 int nargs = inner_args ? NUM_TMPL_ARGS (inner_args) : 0;
6839 tree packed_args;
6840 tree argument_pack;
6841 tree packed_parms = NULL_TREE;
6843 if (arg_idx > nargs)
6844 arg_idx = nargs;
6846 if (tree packs = fixed_parameter_pack_p (TREE_VALUE (parm)))
6848 /* When the template parameter is a non-type template parameter pack
6849 or template template parameter pack whose type or template
6850 parameters use parameter packs, we know exactly how many arguments
6851 we are looking for. Build a vector of the instantiated decls for
6852 these template parameters in PACKED_PARMS. */
6853 /* We can't use make_pack_expansion here because it would interpret a
6854 _DECL as a use rather than a declaration. */
6855 tree decl = TREE_VALUE (parm);
6856 tree exp = cxx_make_type (TYPE_PACK_EXPANSION);
6857 SET_PACK_EXPANSION_PATTERN (exp, decl);
6858 PACK_EXPANSION_PARAMETER_PACKS (exp) = packs;
6859 SET_TYPE_STRUCTURAL_EQUALITY (exp);
6861 TREE_VEC_LENGTH (args)--;
6862 packed_parms = tsubst_pack_expansion (exp, args, complain, decl);
6863 TREE_VEC_LENGTH (args)++;
6865 if (packed_parms == error_mark_node)
6866 return error_mark_node;
6868 /* If we're doing a partial instantiation of a member template,
6869 verify that all of the types used for the non-type
6870 template parameter pack are, in fact, valid for non-type
6871 template parameters. */
6872 if (arg_idx < nargs
6873 && PACK_EXPANSION_P (TREE_VEC_ELT (inner_args, arg_idx)))
6875 int j, len = TREE_VEC_LENGTH (packed_parms);
6876 for (j = 0; j < len; ++j)
6878 tree t = TREE_TYPE (TREE_VEC_ELT (packed_parms, j));
6879 if (invalid_nontype_parm_type_p (t, complain))
6880 return error_mark_node;
6882 /* We don't know how many args we have yet, just
6883 use the unconverted ones for now. */
6884 return NULL_TREE;
6887 packed_args = make_tree_vec (TREE_VEC_LENGTH (packed_parms));
6889 else
6890 packed_args = make_tree_vec (nargs - arg_idx);
6892 /* Convert the remaining arguments, which will be a part of the
6893 parameter pack "parm". */
6894 for (; arg_idx < nargs; ++arg_idx)
6896 tree arg = TREE_VEC_ELT (inner_args, arg_idx);
6897 tree actual_parm = TREE_VALUE (parm);
6898 int pack_idx = arg_idx - parm_idx;
6900 if (packed_parms)
6902 /* Once we've packed as many args as we have types, stop. */
6903 if (pack_idx >= TREE_VEC_LENGTH (packed_parms))
6904 break;
6905 else if (PACK_EXPANSION_P (arg))
6906 /* We don't know how many args we have yet, just
6907 use the unconverted ones for now. */
6908 return NULL_TREE;
6909 else
6910 actual_parm = TREE_VEC_ELT (packed_parms, pack_idx);
6913 if (arg == error_mark_node)
6915 if (complain & tf_error)
6916 error ("template argument %d is invalid", arg_idx + 1);
6918 else
6919 arg = convert_template_argument (actual_parm,
6920 arg, new_args, complain, parm_idx,
6921 in_decl);
6922 if (arg == error_mark_node)
6923 (*lost)++;
6924 TREE_VEC_ELT (packed_args, pack_idx) = arg;
6927 if (arg_idx - parm_idx < TREE_VEC_LENGTH (packed_args)
6928 && TREE_VEC_LENGTH (packed_args) > 0)
6930 if (complain & tf_error)
6931 error ("wrong number of template arguments (%d, should be %d)",
6932 arg_idx - parm_idx, TREE_VEC_LENGTH (packed_args));
6933 return error_mark_node;
6936 if (TREE_CODE (TREE_VALUE (parm)) == TYPE_DECL
6937 || TREE_CODE (TREE_VALUE (parm)) == TEMPLATE_DECL)
6938 argument_pack = cxx_make_type (TYPE_ARGUMENT_PACK);
6939 else
6941 argument_pack = make_node (NONTYPE_ARGUMENT_PACK);
6942 TREE_TYPE (argument_pack)
6943 = tsubst (TREE_TYPE (TREE_VALUE (parm)), new_args, complain, in_decl);
6944 TREE_CONSTANT (argument_pack) = 1;
6947 SET_ARGUMENT_PACK_ARGS (argument_pack, packed_args);
6948 #ifdef ENABLE_CHECKING
6949 SET_NON_DEFAULT_TEMPLATE_ARGS_COUNT (packed_args,
6950 TREE_VEC_LENGTH (packed_args));
6951 #endif
6952 return argument_pack;
6955 /* Returns the number of pack expansions in the template argument vector
6956 ARGS. */
6958 static int
6959 pack_expansion_args_count (tree args)
6961 int i;
6962 int count = 0;
6963 if (args)
6964 for (i = 0; i < TREE_VEC_LENGTH (args); ++i)
6966 tree elt = TREE_VEC_ELT (args, i);
6967 if (elt && PACK_EXPANSION_P (elt))
6968 ++count;
6970 return count;
6973 /* Convert all template arguments to their appropriate types, and
6974 return a vector containing the innermost resulting template
6975 arguments. If any error occurs, return error_mark_node. Error and
6976 warning messages are issued under control of COMPLAIN.
6978 If REQUIRE_ALL_ARGS is false, argument deduction will be performed
6979 for arguments not specified in ARGS. Otherwise, if
6980 USE_DEFAULT_ARGS is true, default arguments will be used to fill in
6981 unspecified arguments. If REQUIRE_ALL_ARGS is true, but
6982 USE_DEFAULT_ARGS is false, then all arguments must be specified in
6983 ARGS. */
6985 static tree
6986 coerce_template_parms (tree parms,
6987 tree args,
6988 tree in_decl,
6989 tsubst_flags_t complain,
6990 bool require_all_args,
6991 bool use_default_args)
6993 int nparms, nargs, parm_idx, arg_idx, lost = 0;
6994 tree orig_inner_args;
6995 tree inner_args;
6996 tree new_args;
6997 tree new_inner_args;
6998 int saved_unevaluated_operand;
6999 int saved_inhibit_evaluation_warnings;
7001 /* When used as a boolean value, indicates whether this is a
7002 variadic template parameter list. Since it's an int, we can also
7003 subtract it from nparms to get the number of non-variadic
7004 parameters. */
7005 int variadic_p = 0;
7006 int variadic_args_p = 0;
7007 int post_variadic_parms = 0;
7009 /* Likewise for parameters with default arguments. */
7010 int default_p = 0;
7012 if (args == error_mark_node)
7013 return error_mark_node;
7015 nparms = TREE_VEC_LENGTH (parms);
7017 /* Determine if there are any parameter packs or default arguments. */
7018 for (parm_idx = 0; parm_idx < nparms; ++parm_idx)
7020 tree parm = TREE_VEC_ELT (parms, parm_idx);
7021 if (variadic_p)
7022 ++post_variadic_parms;
7023 if (template_parameter_pack_p (TREE_VALUE (parm)))
7024 ++variadic_p;
7025 if (TREE_PURPOSE (parm))
7026 ++default_p;
7029 inner_args = orig_inner_args = INNERMOST_TEMPLATE_ARGS (args);
7030 /* If there are no parameters that follow a parameter pack, we need to
7031 expand any argument packs so that we can deduce a parameter pack from
7032 some non-packed args followed by an argument pack, as in variadic85.C.
7033 If there are such parameters, we need to leave argument packs intact
7034 so the arguments are assigned properly. This can happen when dealing
7035 with a nested class inside a partial specialization of a class
7036 template, as in variadic92.C, or when deducing a template parameter pack
7037 from a sub-declarator, as in variadic114.C. */
7038 if (!post_variadic_parms)
7039 inner_args = expand_template_argument_pack (inner_args);
7041 /* Count any pack expansion args. */
7042 variadic_args_p = pack_expansion_args_count (inner_args);
7044 nargs = inner_args ? NUM_TMPL_ARGS (inner_args) : 0;
7045 if ((nargs > nparms && !variadic_p)
7046 || (nargs < nparms - variadic_p
7047 && require_all_args
7048 && !variadic_args_p
7049 && (!use_default_args
7050 || (TREE_VEC_ELT (parms, nargs) != error_mark_node
7051 && !TREE_PURPOSE (TREE_VEC_ELT (parms, nargs))))))
7053 if (complain & tf_error)
7055 if (variadic_p || default_p)
7057 nparms -= variadic_p + default_p;
7058 error ("wrong number of template arguments "
7059 "(%d, should be at least %d)", nargs, nparms);
7061 else
7062 error ("wrong number of template arguments "
7063 "(%d, should be %d)", nargs, nparms);
7065 if (in_decl)
7066 inform (input_location, "provided for %q+D", in_decl);
7069 return error_mark_node;
7071 /* We can't pass a pack expansion to a non-pack parameter of an alias
7072 template (DR 1430). */
7073 else if (in_decl && DECL_ALIAS_TEMPLATE_P (in_decl)
7074 && variadic_args_p
7075 && nargs - variadic_args_p < nparms - variadic_p)
7077 if (complain & tf_error)
7079 for (int i = 0; i < TREE_VEC_LENGTH (inner_args); ++i)
7081 tree arg = TREE_VEC_ELT (inner_args, i);
7082 tree parm = TREE_VALUE (TREE_VEC_ELT (parms, i));
7084 if (PACK_EXPANSION_P (arg)
7085 && !template_parameter_pack_p (parm))
7087 error ("pack expansion argument for non-pack parameter "
7088 "%qD of alias template %qD", parm, in_decl);
7089 inform (DECL_SOURCE_LOCATION (parm), "declared here");
7090 goto found;
7093 gcc_unreachable ();
7094 found:;
7096 return error_mark_node;
7099 /* We need to evaluate the template arguments, even though this
7100 template-id may be nested within a "sizeof". */
7101 saved_unevaluated_operand = cp_unevaluated_operand;
7102 cp_unevaluated_operand = 0;
7103 saved_inhibit_evaluation_warnings = c_inhibit_evaluation_warnings;
7104 c_inhibit_evaluation_warnings = 0;
7105 new_inner_args = make_tree_vec (nparms);
7106 new_args = add_outermost_template_args (args, new_inner_args);
7107 int pack_adjust = 0;
7108 for (parm_idx = 0, arg_idx = 0; parm_idx < nparms; parm_idx++, arg_idx++)
7110 tree arg;
7111 tree parm;
7113 /* Get the Ith template parameter. */
7114 parm = TREE_VEC_ELT (parms, parm_idx);
7116 if (parm == error_mark_node)
7118 TREE_VEC_ELT (new_inner_args, arg_idx) = error_mark_node;
7119 continue;
7122 /* Calculate the next argument. */
7123 if (arg_idx < nargs)
7124 arg = TREE_VEC_ELT (inner_args, arg_idx);
7125 else
7126 arg = NULL_TREE;
7128 if (template_parameter_pack_p (TREE_VALUE (parm))
7129 && !(arg && ARGUMENT_PACK_P (arg)))
7131 /* Some arguments will be placed in the
7132 template parameter pack PARM. */
7133 arg = coerce_template_parameter_pack (parms, parm_idx, args,
7134 inner_args, arg_idx,
7135 new_args, &lost,
7136 in_decl, complain);
7138 if (arg == NULL_TREE)
7140 /* We don't know how many args we have yet, just use the
7141 unconverted (and still packed) ones for now. */
7142 new_inner_args = orig_inner_args;
7143 arg_idx = nargs;
7144 break;
7147 TREE_VEC_ELT (new_inner_args, parm_idx) = arg;
7149 /* Store this argument. */
7150 if (arg == error_mark_node)
7152 lost++;
7153 /* We are done with all of the arguments. */
7154 arg_idx = nargs;
7156 else
7158 pack_adjust = TREE_VEC_LENGTH (ARGUMENT_PACK_ARGS (arg)) - 1;
7159 arg_idx += pack_adjust;
7162 continue;
7164 else if (arg)
7166 if (PACK_EXPANSION_P (arg))
7168 /* "If every valid specialization of a variadic template
7169 requires an empty template parameter pack, the template is
7170 ill-formed, no diagnostic required." So check that the
7171 pattern works with this parameter. */
7172 tree pattern = PACK_EXPANSION_PATTERN (arg);
7173 tree conv = convert_template_argument (TREE_VALUE (parm),
7174 pattern, new_args,
7175 complain, parm_idx,
7176 in_decl);
7177 if (conv == error_mark_node)
7179 inform (input_location, "so any instantiation with a "
7180 "non-empty parameter pack would be ill-formed");
7181 ++lost;
7183 else if (TYPE_P (conv) && !TYPE_P (pattern))
7184 /* Recover from missing typename. */
7185 TREE_VEC_ELT (inner_args, arg_idx)
7186 = make_pack_expansion (conv);
7188 /* We don't know how many args we have yet, just
7189 use the unconverted ones for now. */
7190 new_inner_args = inner_args;
7191 arg_idx = nargs;
7192 break;
7195 else if (require_all_args)
7197 /* There must be a default arg in this case. */
7198 arg = tsubst_template_arg (TREE_PURPOSE (parm), new_args,
7199 complain, in_decl);
7200 /* The position of the first default template argument,
7201 is also the number of non-defaulted arguments in NEW_INNER_ARGS.
7202 Record that. */
7203 if (!NON_DEFAULT_TEMPLATE_ARGS_COUNT (new_inner_args))
7204 SET_NON_DEFAULT_TEMPLATE_ARGS_COUNT (new_inner_args,
7205 arg_idx - pack_adjust);
7207 else
7208 break;
7210 if (arg == error_mark_node)
7212 if (complain & tf_error)
7213 error ("template argument %d is invalid", arg_idx + 1);
7215 else if (!arg)
7216 /* This only occurs if there was an error in the template
7217 parameter list itself (which we would already have
7218 reported) that we are trying to recover from, e.g., a class
7219 template with a parameter list such as
7220 template<typename..., typename>. */
7221 ++lost;
7222 else
7223 arg = convert_template_argument (TREE_VALUE (parm),
7224 arg, new_args, complain,
7225 parm_idx, in_decl);
7227 if (arg == error_mark_node)
7228 lost++;
7229 TREE_VEC_ELT (new_inner_args, arg_idx - pack_adjust) = arg;
7231 cp_unevaluated_operand = saved_unevaluated_operand;
7232 c_inhibit_evaluation_warnings = saved_inhibit_evaluation_warnings;
7234 if (variadic_p && arg_idx < nargs)
7236 if (complain & tf_error)
7238 error ("wrong number of template arguments "
7239 "(%d, should be %d)", nargs, arg_idx);
7240 if (in_decl)
7241 error ("provided for %q+D", in_decl);
7243 return error_mark_node;
7246 if (lost)
7247 return error_mark_node;
7249 #ifdef ENABLE_CHECKING
7250 if (!NON_DEFAULT_TEMPLATE_ARGS_COUNT (new_inner_args))
7251 SET_NON_DEFAULT_TEMPLATE_ARGS_COUNT (new_inner_args,
7252 TREE_VEC_LENGTH (new_inner_args));
7253 #endif
7255 return new_inner_args;
7258 /* Like coerce_template_parms. If PARMS represents all template
7259 parameters levels, this function returns a vector of vectors
7260 representing all the resulting argument levels. Note that in this
7261 case, only the innermost arguments are coerced because the
7262 outermost ones are supposed to have been coerced already.
7264 Otherwise, if PARMS represents only (the innermost) vector of
7265 parameters, this function returns a vector containing just the
7266 innermost resulting arguments. */
7268 static tree
7269 coerce_innermost_template_parms (tree parms,
7270 tree args,
7271 tree in_decl,
7272 tsubst_flags_t complain,
7273 bool require_all_args,
7274 bool use_default_args)
7276 int parms_depth = TMPL_PARMS_DEPTH (parms);
7277 int args_depth = TMPL_ARGS_DEPTH (args);
7278 tree coerced_args;
7280 if (parms_depth > 1)
7282 coerced_args = make_tree_vec (parms_depth);
7283 tree level;
7284 int cur_depth;
7286 for (level = parms, cur_depth = parms_depth;
7287 parms_depth > 0 && level != NULL_TREE;
7288 level = TREE_CHAIN (level), --cur_depth)
7290 tree l;
7291 if (cur_depth == args_depth)
7292 l = coerce_template_parms (TREE_VALUE (level),
7293 args, in_decl, complain,
7294 require_all_args,
7295 use_default_args);
7296 else
7297 l = TMPL_ARGS_LEVEL (args, cur_depth);
7299 if (l == error_mark_node)
7300 return error_mark_node;
7302 SET_TMPL_ARGS_LEVEL (coerced_args, cur_depth, l);
7305 else
7306 coerced_args = coerce_template_parms (INNERMOST_TEMPLATE_PARMS (parms),
7307 args, in_decl, complain,
7308 require_all_args,
7309 use_default_args);
7310 return coerced_args;
7313 /* Returns 1 if template args OT and NT are equivalent. */
7315 static int
7316 template_args_equal (tree ot, tree nt)
7318 if (nt == ot)
7319 return 1;
7320 if (nt == NULL_TREE || ot == NULL_TREE)
7321 return false;
7323 if (TREE_CODE (nt) == TREE_VEC)
7324 /* For member templates */
7325 return TREE_CODE (ot) == TREE_VEC && comp_template_args (ot, nt);
7326 else if (PACK_EXPANSION_P (ot))
7327 return (PACK_EXPANSION_P (nt)
7328 && template_args_equal (PACK_EXPANSION_PATTERN (ot),
7329 PACK_EXPANSION_PATTERN (nt))
7330 && template_args_equal (PACK_EXPANSION_EXTRA_ARGS (ot),
7331 PACK_EXPANSION_EXTRA_ARGS (nt)));
7332 else if (ARGUMENT_PACK_P (ot))
7334 int i, len;
7335 tree opack, npack;
7337 if (!ARGUMENT_PACK_P (nt))
7338 return 0;
7340 opack = ARGUMENT_PACK_ARGS (ot);
7341 npack = ARGUMENT_PACK_ARGS (nt);
7342 len = TREE_VEC_LENGTH (opack);
7343 if (TREE_VEC_LENGTH (npack) != len)
7344 return 0;
7345 for (i = 0; i < len; ++i)
7346 if (!template_args_equal (TREE_VEC_ELT (opack, i),
7347 TREE_VEC_ELT (npack, i)))
7348 return 0;
7349 return 1;
7351 else if (ot && TREE_CODE (ot) == ARGUMENT_PACK_SELECT)
7353 /* We get here probably because we are in the middle of substituting
7354 into the pattern of a pack expansion. In that case the
7355 ARGUMENT_PACK_SELECT temporarily replaces the pack argument we are
7356 interested in. So we want to use the initial pack argument for
7357 the comparison. */
7358 ot = ARGUMENT_PACK_SELECT_FROM_PACK (ot);
7359 if (nt && TREE_CODE (nt) == ARGUMENT_PACK_SELECT)
7360 nt = ARGUMENT_PACK_SELECT_FROM_PACK (nt);
7361 return template_args_equal (ot, nt);
7363 else if (TYPE_P (nt))
7365 if (!TYPE_P (ot))
7366 return false;
7367 /* Don't treat an alias template specialization with dependent
7368 arguments as equivalent to its underlying type when used as a
7369 template argument; we need them to be distinct so that we
7370 substitute into the specialization arguments at instantiation
7371 time. And aliases can't be equivalent without being ==, so
7372 we don't need to look any deeper. */
7373 if (TYPE_ALIAS_P (nt) || TYPE_ALIAS_P (ot))
7374 return false;
7375 else
7376 return same_type_p (ot, nt);
7378 else if (TREE_CODE (ot) == TREE_VEC || TYPE_P (ot))
7379 return 0;
7380 else
7382 /* Try to treat a template non-type argument that has been converted
7383 to the parameter type as equivalent to one that hasn't yet. */
7384 for (enum tree_code code1 = TREE_CODE (ot);
7385 CONVERT_EXPR_CODE_P (code1)
7386 || code1 == NON_LVALUE_EXPR;
7387 code1 = TREE_CODE (ot))
7388 ot = TREE_OPERAND (ot, 0);
7389 for (enum tree_code code2 = TREE_CODE (nt);
7390 CONVERT_EXPR_CODE_P (code2)
7391 || code2 == NON_LVALUE_EXPR;
7392 code2 = TREE_CODE (nt))
7393 nt = TREE_OPERAND (nt, 0);
7395 return cp_tree_equal (ot, nt);
7399 /* Returns 1 iff the OLDARGS and NEWARGS are in fact identical sets of
7400 template arguments. Returns 0 otherwise, and updates OLDARG_PTR and
7401 NEWARG_PTR with the offending arguments if they are non-NULL. */
7403 static int
7404 comp_template_args_with_info (tree oldargs, tree newargs,
7405 tree *oldarg_ptr, tree *newarg_ptr)
7407 int i;
7409 if (oldargs == newargs)
7410 return 1;
7412 if (!oldargs || !newargs)
7413 return 0;
7415 if (TREE_VEC_LENGTH (oldargs) != TREE_VEC_LENGTH (newargs))
7416 return 0;
7418 for (i = 0; i < TREE_VEC_LENGTH (oldargs); ++i)
7420 tree nt = TREE_VEC_ELT (newargs, i);
7421 tree ot = TREE_VEC_ELT (oldargs, i);
7423 if (! template_args_equal (ot, nt))
7425 if (oldarg_ptr != NULL)
7426 *oldarg_ptr = ot;
7427 if (newarg_ptr != NULL)
7428 *newarg_ptr = nt;
7429 return 0;
7432 return 1;
7435 /* Returns 1 iff the OLDARGS and NEWARGS are in fact identical sets
7436 of template arguments. Returns 0 otherwise. */
7439 comp_template_args (tree oldargs, tree newargs)
7441 return comp_template_args_with_info (oldargs, newargs, NULL, NULL);
7444 static void
7445 add_pending_template (tree d)
7447 tree ti = (TYPE_P (d)
7448 ? CLASSTYPE_TEMPLATE_INFO (d)
7449 : DECL_TEMPLATE_INFO (d));
7450 struct pending_template *pt;
7451 int level;
7453 if (TI_PENDING_TEMPLATE_FLAG (ti))
7454 return;
7456 /* We are called both from instantiate_decl, where we've already had a
7457 tinst_level pushed, and instantiate_template, where we haven't.
7458 Compensate. */
7459 level = !current_tinst_level || current_tinst_level->decl != d;
7461 if (level)
7462 push_tinst_level (d);
7464 pt = ggc_alloc<pending_template> ();
7465 pt->next = NULL;
7466 pt->tinst = current_tinst_level;
7467 if (last_pending_template)
7468 last_pending_template->next = pt;
7469 else
7470 pending_templates = pt;
7472 last_pending_template = pt;
7474 TI_PENDING_TEMPLATE_FLAG (ti) = 1;
7476 if (level)
7477 pop_tinst_level ();
7481 /* Return a TEMPLATE_ID_EXPR corresponding to the indicated FNS and
7482 ARGLIST. Valid choices for FNS are given in the cp-tree.def
7483 documentation for TEMPLATE_ID_EXPR. */
7485 tree
7486 lookup_template_function (tree fns, tree arglist)
7488 tree type;
7490 if (fns == error_mark_node || arglist == error_mark_node)
7491 return error_mark_node;
7493 gcc_assert (!arglist || TREE_CODE (arglist) == TREE_VEC);
7495 if (!is_overloaded_fn (fns) && !identifier_p (fns))
7497 error ("%q#D is not a function template", fns);
7498 return error_mark_node;
7501 if (BASELINK_P (fns))
7503 BASELINK_FUNCTIONS (fns) = build2 (TEMPLATE_ID_EXPR,
7504 unknown_type_node,
7505 BASELINK_FUNCTIONS (fns),
7506 arglist);
7507 return fns;
7510 type = TREE_TYPE (fns);
7511 if (TREE_CODE (fns) == OVERLOAD || !type)
7512 type = unknown_type_node;
7514 return build2 (TEMPLATE_ID_EXPR, type, fns, arglist);
7517 /* Within the scope of a template class S<T>, the name S gets bound
7518 (in build_self_reference) to a TYPE_DECL for the class, not a
7519 TEMPLATE_DECL. If DECL is a TYPE_DECL for current_class_type,
7520 or one of its enclosing classes, and that type is a template,
7521 return the associated TEMPLATE_DECL. Otherwise, the original
7522 DECL is returned.
7524 Also handle the case when DECL is a TREE_LIST of ambiguous
7525 injected-class-names from different bases. */
7527 tree
7528 maybe_get_template_decl_from_type_decl (tree decl)
7530 if (decl == NULL_TREE)
7531 return decl;
7533 /* DR 176: A lookup that finds an injected-class-name (10.2
7534 [class.member.lookup]) can result in an ambiguity in certain cases
7535 (for example, if it is found in more than one base class). If all of
7536 the injected-class-names that are found refer to specializations of
7537 the same class template, and if the name is followed by a
7538 template-argument-list, the reference refers to the class template
7539 itself and not a specialization thereof, and is not ambiguous. */
7540 if (TREE_CODE (decl) == TREE_LIST)
7542 tree t, tmpl = NULL_TREE;
7543 for (t = decl; t; t = TREE_CHAIN (t))
7545 tree elt = maybe_get_template_decl_from_type_decl (TREE_VALUE (t));
7546 if (!tmpl)
7547 tmpl = elt;
7548 else if (tmpl != elt)
7549 break;
7551 if (tmpl && t == NULL_TREE)
7552 return tmpl;
7553 else
7554 return decl;
7557 return (decl != NULL_TREE
7558 && DECL_SELF_REFERENCE_P (decl)
7559 && CLASSTYPE_TEMPLATE_INFO (TREE_TYPE (decl)))
7560 ? CLASSTYPE_TI_TEMPLATE (TREE_TYPE (decl)) : decl;
7563 /* Given an IDENTIFIER_NODE (or type TEMPLATE_DECL) and a chain of
7564 parameters, find the desired type.
7566 D1 is the PTYPENAME terminal, and ARGLIST is the list of arguments.
7568 IN_DECL, if non-NULL, is the template declaration we are trying to
7569 instantiate.
7571 If ENTERING_SCOPE is nonzero, we are about to enter the scope of
7572 the class we are looking up.
7574 Issue error and warning messages under control of COMPLAIN.
7576 If the template class is really a local class in a template
7577 function, then the FUNCTION_CONTEXT is the function in which it is
7578 being instantiated.
7580 ??? Note that this function is currently called *twice* for each
7581 template-id: the first time from the parser, while creating the
7582 incomplete type (finish_template_type), and the second type during the
7583 real instantiation (instantiate_template_class). This is surely something
7584 that we want to avoid. It also causes some problems with argument
7585 coercion (see convert_nontype_argument for more information on this). */
7587 static tree
7588 lookup_template_class_1 (tree d1, tree arglist, tree in_decl, tree context,
7589 int entering_scope, tsubst_flags_t complain)
7591 tree templ = NULL_TREE, parmlist;
7592 tree t;
7593 spec_entry **slot;
7594 spec_entry *entry;
7595 spec_entry elt;
7596 hashval_t hash;
7598 if (identifier_p (d1))
7600 tree value = innermost_non_namespace_value (d1);
7601 if (value && DECL_TEMPLATE_TEMPLATE_PARM_P (value))
7602 templ = value;
7603 else
7605 if (context)
7606 push_decl_namespace (context);
7607 templ = lookup_name (d1);
7608 templ = maybe_get_template_decl_from_type_decl (templ);
7609 if (context)
7610 pop_decl_namespace ();
7612 if (templ)
7613 context = DECL_CONTEXT (templ);
7615 else if (TREE_CODE (d1) == TYPE_DECL && MAYBE_CLASS_TYPE_P (TREE_TYPE (d1)))
7617 tree type = TREE_TYPE (d1);
7619 /* If we are declaring a constructor, say A<T>::A<T>, we will get
7620 an implicit typename for the second A. Deal with it. */
7621 if (TREE_CODE (type) == TYPENAME_TYPE && TREE_TYPE (type))
7622 type = TREE_TYPE (type);
7624 if (CLASSTYPE_TEMPLATE_INFO (type))
7626 templ = CLASSTYPE_TI_TEMPLATE (type);
7627 d1 = DECL_NAME (templ);
7630 else if (TREE_CODE (d1) == ENUMERAL_TYPE
7631 || (TYPE_P (d1) && MAYBE_CLASS_TYPE_P (d1)))
7633 templ = TYPE_TI_TEMPLATE (d1);
7634 d1 = DECL_NAME (templ);
7636 else if (DECL_TYPE_TEMPLATE_P (d1))
7638 templ = d1;
7639 d1 = DECL_NAME (templ);
7640 context = DECL_CONTEXT (templ);
7642 else if (DECL_TEMPLATE_TEMPLATE_PARM_P (d1))
7644 templ = d1;
7645 d1 = DECL_NAME (templ);
7648 /* Issue an error message if we didn't find a template. */
7649 if (! templ)
7651 if (complain & tf_error)
7652 error ("%qT is not a template", d1);
7653 return error_mark_node;
7656 if (TREE_CODE (templ) != TEMPLATE_DECL
7657 /* Make sure it's a user visible template, if it was named by
7658 the user. */
7659 || ((complain & tf_user) && !DECL_TEMPLATE_PARM_P (templ)
7660 && !PRIMARY_TEMPLATE_P (templ)))
7662 if (complain & tf_error)
7664 error ("non-template type %qT used as a template", d1);
7665 if (in_decl)
7666 error ("for template declaration %q+D", in_decl);
7668 return error_mark_node;
7671 complain &= ~tf_user;
7673 /* An alias that just changes the name of a template is equivalent to the
7674 other template, so if any of the arguments are pack expansions, strip
7675 the alias to avoid problems with a pack expansion passed to a non-pack
7676 alias template parameter (DR 1430). */
7677 if (pack_expansion_args_count (INNERMOST_TEMPLATE_ARGS (arglist)))
7678 templ = get_underlying_template (templ);
7680 if (DECL_TEMPLATE_TEMPLATE_PARM_P (templ))
7682 /* Create a new TEMPLATE_DECL and TEMPLATE_TEMPLATE_PARM node to store
7683 template arguments */
7685 tree parm;
7686 tree arglist2;
7687 tree outer;
7689 parmlist = DECL_INNERMOST_TEMPLATE_PARMS (templ);
7691 /* Consider an example where a template template parameter declared as
7693 template <class T, class U = std::allocator<T> > class TT
7695 The template parameter level of T and U are one level larger than
7696 of TT. To proper process the default argument of U, say when an
7697 instantiation `TT<int>' is seen, we need to build the full
7698 arguments containing {int} as the innermost level. Outer levels,
7699 available when not appearing as default template argument, can be
7700 obtained from the arguments of the enclosing template.
7702 Suppose that TT is later substituted with std::vector. The above
7703 instantiation is `TT<int, std::allocator<T> >' with TT at
7704 level 1, and T at level 2, while the template arguments at level 1
7705 becomes {std::vector} and the inner level 2 is {int}. */
7707 outer = DECL_CONTEXT (templ);
7708 if (outer)
7709 outer = TI_ARGS (get_template_info (DECL_TEMPLATE_RESULT (outer)));
7710 else if (current_template_parms)
7711 /* This is an argument of the current template, so we haven't set
7712 DECL_CONTEXT yet. */
7713 outer = current_template_args ();
7715 if (outer)
7716 arglist = add_to_template_args (outer, arglist);
7718 arglist2 = coerce_template_parms (parmlist, arglist, templ,
7719 complain,
7720 /*require_all_args=*/true,
7721 /*use_default_args=*/true);
7722 if (arglist2 == error_mark_node
7723 || (!uses_template_parms (arglist2)
7724 && check_instantiated_args (templ, arglist2, complain)))
7725 return error_mark_node;
7727 parm = bind_template_template_parm (TREE_TYPE (templ), arglist2);
7728 return parm;
7730 else
7732 tree template_type = TREE_TYPE (templ);
7733 tree gen_tmpl;
7734 tree type_decl;
7735 tree found = NULL_TREE;
7736 int arg_depth;
7737 int parm_depth;
7738 int is_dependent_type;
7739 int use_partial_inst_tmpl = false;
7741 if (template_type == error_mark_node)
7742 /* An error occurred while building the template TEMPL, and a
7743 diagnostic has most certainly been emitted for that
7744 already. Let's propagate that error. */
7745 return error_mark_node;
7747 gen_tmpl = most_general_template (templ);
7748 parmlist = DECL_TEMPLATE_PARMS (gen_tmpl);
7749 parm_depth = TMPL_PARMS_DEPTH (parmlist);
7750 arg_depth = TMPL_ARGS_DEPTH (arglist);
7752 if (arg_depth == 1 && parm_depth > 1)
7754 /* We've been given an incomplete set of template arguments.
7755 For example, given:
7757 template <class T> struct S1 {
7758 template <class U> struct S2 {};
7759 template <class U> struct S2<U*> {};
7762 we will be called with an ARGLIST of `U*', but the
7763 TEMPLATE will be `template <class T> template
7764 <class U> struct S1<T>::S2'. We must fill in the missing
7765 arguments. */
7766 arglist
7767 = add_outermost_template_args (TYPE_TI_ARGS (TREE_TYPE (templ)),
7768 arglist);
7769 arg_depth = TMPL_ARGS_DEPTH (arglist);
7772 /* Now we should have enough arguments. */
7773 gcc_assert (parm_depth == arg_depth);
7775 /* From here on, we're only interested in the most general
7776 template. */
7778 /* Calculate the BOUND_ARGS. These will be the args that are
7779 actually tsubst'd into the definition to create the
7780 instantiation. */
7781 arglist = coerce_innermost_template_parms (parmlist, arglist, gen_tmpl,
7782 complain,
7783 /*require_all_args=*/true,
7784 /*use_default_args=*/true);
7786 if (arglist == error_mark_node)
7787 /* We were unable to bind the arguments. */
7788 return error_mark_node;
7790 /* In the scope of a template class, explicit references to the
7791 template class refer to the type of the template, not any
7792 instantiation of it. For example, in:
7794 template <class T> class C { void f(C<T>); }
7796 the `C<T>' is just the same as `C'. Outside of the
7797 class, however, such a reference is an instantiation. */
7798 if ((entering_scope
7799 || !PRIMARY_TEMPLATE_P (gen_tmpl)
7800 || currently_open_class (template_type))
7801 /* comp_template_args is expensive, check it last. */
7802 && comp_template_args (TYPE_TI_ARGS (template_type),
7803 arglist))
7804 return template_type;
7806 /* If we already have this specialization, return it. */
7807 elt.tmpl = gen_tmpl;
7808 elt.args = arglist;
7809 hash = spec_hasher::hash (&elt);
7810 entry = type_specializations->find_with_hash (&elt, hash);
7812 if (entry)
7813 return entry->spec;
7815 is_dependent_type = uses_template_parms (arglist);
7817 /* If the deduced arguments are invalid, then the binding
7818 failed. */
7819 if (!is_dependent_type
7820 && check_instantiated_args (gen_tmpl,
7821 INNERMOST_TEMPLATE_ARGS (arglist),
7822 complain))
7823 return error_mark_node;
7825 if (!is_dependent_type
7826 && !PRIMARY_TEMPLATE_P (gen_tmpl)
7827 && !LAMBDA_TYPE_P (TREE_TYPE (gen_tmpl))
7828 && TREE_CODE (CP_DECL_CONTEXT (gen_tmpl)) == NAMESPACE_DECL)
7830 found = xref_tag_from_type (TREE_TYPE (gen_tmpl),
7831 DECL_NAME (gen_tmpl),
7832 /*tag_scope=*/ts_global);
7833 return found;
7836 context = tsubst (DECL_CONTEXT (gen_tmpl), arglist,
7837 complain, in_decl);
7838 if (context == error_mark_node)
7839 return error_mark_node;
7841 if (!context)
7842 context = global_namespace;
7844 /* Create the type. */
7845 if (DECL_ALIAS_TEMPLATE_P (gen_tmpl))
7847 /* The user referred to a specialization of an alias
7848 template represented by GEN_TMPL.
7850 [temp.alias]/2 says:
7852 When a template-id refers to the specialization of an
7853 alias template, it is equivalent to the associated
7854 type obtained by substitution of its
7855 template-arguments for the template-parameters in the
7856 type-id of the alias template. */
7858 t = tsubst (TREE_TYPE (gen_tmpl), arglist, complain, in_decl);
7859 /* Note that the call above (by indirectly calling
7860 register_specialization in tsubst_decl) registers the
7861 TYPE_DECL representing the specialization of the alias
7862 template. So next time someone substitutes ARGLIST for
7863 the template parms into the alias template (GEN_TMPL),
7864 she'll get that TYPE_DECL back. */
7866 if (t == error_mark_node)
7867 return t;
7869 else if (TREE_CODE (template_type) == ENUMERAL_TYPE)
7871 if (!is_dependent_type)
7873 set_current_access_from_decl (TYPE_NAME (template_type));
7874 t = start_enum (TYPE_IDENTIFIER (template_type), NULL_TREE,
7875 tsubst (ENUM_UNDERLYING_TYPE (template_type),
7876 arglist, complain, in_decl),
7877 SCOPED_ENUM_P (template_type), NULL);
7879 if (t == error_mark_node)
7880 return t;
7882 else
7884 /* We don't want to call start_enum for this type, since
7885 the values for the enumeration constants may involve
7886 template parameters. And, no one should be interested
7887 in the enumeration constants for such a type. */
7888 t = cxx_make_type (ENUMERAL_TYPE);
7889 SET_SCOPED_ENUM_P (t, SCOPED_ENUM_P (template_type));
7891 SET_OPAQUE_ENUM_P (t, OPAQUE_ENUM_P (template_type));
7892 ENUM_FIXED_UNDERLYING_TYPE_P (t)
7893 = ENUM_FIXED_UNDERLYING_TYPE_P (template_type);
7895 else if (CLASS_TYPE_P (template_type))
7897 t = make_class_type (TREE_CODE (template_type));
7898 CLASSTYPE_DECLARED_CLASS (t)
7899 = CLASSTYPE_DECLARED_CLASS (template_type);
7900 SET_CLASSTYPE_IMPLICIT_INSTANTIATION (t);
7901 TYPE_FOR_JAVA (t) = TYPE_FOR_JAVA (template_type);
7903 /* A local class. Make sure the decl gets registered properly. */
7904 if (context == current_function_decl)
7905 pushtag (DECL_NAME (gen_tmpl), t, /*tag_scope=*/ts_current);
7907 if (comp_template_args (CLASSTYPE_TI_ARGS (template_type), arglist))
7908 /* This instantiation is another name for the primary
7909 template type. Set the TYPE_CANONICAL field
7910 appropriately. */
7911 TYPE_CANONICAL (t) = template_type;
7912 else if (any_template_arguments_need_structural_equality_p (arglist))
7913 /* Some of the template arguments require structural
7914 equality testing, so this template class requires
7915 structural equality testing. */
7916 SET_TYPE_STRUCTURAL_EQUALITY (t);
7918 else
7919 gcc_unreachable ();
7921 /* If we called start_enum or pushtag above, this information
7922 will already be set up. */
7923 if (!TYPE_NAME (t))
7925 TYPE_CONTEXT (t) = FROB_CONTEXT (context);
7927 type_decl = create_implicit_typedef (DECL_NAME (gen_tmpl), t);
7928 DECL_CONTEXT (type_decl) = TYPE_CONTEXT (t);
7929 DECL_SOURCE_LOCATION (type_decl)
7930 = DECL_SOURCE_LOCATION (TYPE_STUB_DECL (template_type));
7932 else
7933 type_decl = TYPE_NAME (t);
7935 if (CLASS_TYPE_P (template_type))
7937 TREE_PRIVATE (type_decl)
7938 = TREE_PRIVATE (TYPE_MAIN_DECL (template_type));
7939 TREE_PROTECTED (type_decl)
7940 = TREE_PROTECTED (TYPE_MAIN_DECL (template_type));
7941 if (CLASSTYPE_VISIBILITY_SPECIFIED (template_type))
7943 DECL_VISIBILITY_SPECIFIED (type_decl) = 1;
7944 DECL_VISIBILITY (type_decl) = CLASSTYPE_VISIBILITY (template_type);
7948 if (OVERLOAD_TYPE_P (t)
7949 && !DECL_ALIAS_TEMPLATE_P (gen_tmpl))
7951 static const char *tags[] = {"abi_tag", "may_alias"};
7953 for (unsigned ix = 0; ix != 2; ix++)
7955 tree attributes
7956 = lookup_attribute (tags[ix], TYPE_ATTRIBUTES (template_type));
7958 if (!attributes)
7960 else if (!TREE_CHAIN (attributes) && !TYPE_ATTRIBUTES (t))
7961 TYPE_ATTRIBUTES (t) = attributes;
7962 else
7963 TYPE_ATTRIBUTES (t)
7964 = tree_cons (TREE_PURPOSE (attributes),
7965 TREE_VALUE (attributes),
7966 TYPE_ATTRIBUTES (t));
7970 /* Let's consider the explicit specialization of a member
7971 of a class template specialization that is implicitly instantiated,
7972 e.g.:
7973 template<class T>
7974 struct S
7976 template<class U> struct M {}; //#0
7979 template<>
7980 template<>
7981 struct S<int>::M<char> //#1
7983 int i;
7985 [temp.expl.spec]/4 says this is valid.
7987 In this case, when we write:
7988 S<int>::M<char> m;
7990 M is instantiated from the CLASSTYPE_TI_TEMPLATE of #1, not from
7991 the one of #0.
7993 When we encounter #1, we want to store the partial instantiation
7994 of M (template<class T> S<int>::M<T>) in its CLASSTYPE_TI_TEMPLATE.
7996 For all cases other than this "explicit specialization of member of a
7997 class template", we just want to store the most general template into
7998 the CLASSTYPE_TI_TEMPLATE of M.
8000 This case of "explicit specialization of member of a class template"
8001 only happens when:
8002 1/ the enclosing class is an instantiation of, and therefore not
8003 the same as, the context of the most general template, and
8004 2/ we aren't looking at the partial instantiation itself, i.e.
8005 the innermost arguments are not the same as the innermost parms of
8006 the most general template.
8008 So it's only when 1/ and 2/ happens that we want to use the partial
8009 instantiation of the member template in lieu of its most general
8010 template. */
8012 if (PRIMARY_TEMPLATE_P (gen_tmpl)
8013 && TMPL_ARGS_HAVE_MULTIPLE_LEVELS (arglist)
8014 /* the enclosing class must be an instantiation... */
8015 && CLASS_TYPE_P (context)
8016 && !same_type_p (context, DECL_CONTEXT (gen_tmpl)))
8018 tree partial_inst_args;
8019 TREE_VEC_LENGTH (arglist)--;
8020 ++processing_template_decl;
8021 partial_inst_args =
8022 tsubst (INNERMOST_TEMPLATE_ARGS
8023 (TYPE_TI_ARGS (TREE_TYPE (gen_tmpl))),
8024 arglist, complain, NULL_TREE);
8025 --processing_template_decl;
8026 TREE_VEC_LENGTH (arglist)++;
8027 use_partial_inst_tmpl =
8028 /*...and we must not be looking at the partial instantiation
8029 itself. */
8030 !comp_template_args (INNERMOST_TEMPLATE_ARGS (arglist),
8031 partial_inst_args);
8034 if (!use_partial_inst_tmpl)
8035 /* This case is easy; there are no member templates involved. */
8036 found = gen_tmpl;
8037 else
8039 /* This is a full instantiation of a member template. Find
8040 the partial instantiation of which this is an instance. */
8042 /* Temporarily reduce by one the number of levels in the ARGLIST
8043 so as to avoid comparing the last set of arguments. */
8044 TREE_VEC_LENGTH (arglist)--;
8045 found = tsubst (gen_tmpl, arglist, complain, NULL_TREE);
8046 TREE_VEC_LENGTH (arglist)++;
8047 /* FOUND is either a proper class type, or an alias
8048 template specialization. In the later case, it's a
8049 TYPE_DECL, resulting from the substituting of arguments
8050 for parameters in the TYPE_DECL of the alias template
8051 done earlier. So be careful while getting the template
8052 of FOUND. */
8053 found = TREE_CODE (found) == TYPE_DECL
8054 ? TYPE_TI_TEMPLATE (TREE_TYPE (found))
8055 : CLASSTYPE_TI_TEMPLATE (found);
8058 SET_TYPE_TEMPLATE_INFO (t, build_template_info (found, arglist));
8060 elt.spec = t;
8061 slot = type_specializations->find_slot_with_hash (&elt, hash, INSERT);
8062 entry = ggc_alloc<spec_entry> ();
8063 *entry = elt;
8064 *slot = entry;
8066 /* Note this use of the partial instantiation so we can check it
8067 later in maybe_process_partial_specialization. */
8068 DECL_TEMPLATE_INSTANTIATIONS (found)
8069 = tree_cons (arglist, t,
8070 DECL_TEMPLATE_INSTANTIATIONS (found));
8072 if (TREE_CODE (template_type) == ENUMERAL_TYPE && !is_dependent_type
8073 && !DECL_ALIAS_TEMPLATE_P (gen_tmpl))
8074 /* Now that the type has been registered on the instantiations
8075 list, we set up the enumerators. Because the enumeration
8076 constants may involve the enumeration type itself, we make
8077 sure to register the type first, and then create the
8078 constants. That way, doing tsubst_expr for the enumeration
8079 constants won't result in recursive calls here; we'll find
8080 the instantiation and exit above. */
8081 tsubst_enum (template_type, t, arglist);
8083 if (CLASS_TYPE_P (template_type) && is_dependent_type)
8084 /* If the type makes use of template parameters, the
8085 code that generates debugging information will crash. */
8086 DECL_IGNORED_P (TYPE_MAIN_DECL (t)) = 1;
8088 /* Possibly limit visibility based on template args. */
8089 TREE_PUBLIC (type_decl) = 1;
8090 determine_visibility (type_decl);
8092 inherit_targ_abi_tags (t);
8094 return t;
8098 /* Wrapper for lookup_template_class_1. */
8100 tree
8101 lookup_template_class (tree d1, tree arglist, tree in_decl, tree context,
8102 int entering_scope, tsubst_flags_t complain)
8104 tree ret;
8105 timevar_push (TV_TEMPLATE_INST);
8106 ret = lookup_template_class_1 (d1, arglist, in_decl, context,
8107 entering_scope, complain);
8108 timevar_pop (TV_TEMPLATE_INST);
8109 return ret;
8112 /* Return a TEMPLATE_ID_EXPR for the given variable template and ARGLIST.
8113 The type of the expression is the unknown_type_node since the
8114 template-id could refer to an explicit or partial specialization. */
8116 tree
8117 lookup_template_variable (tree templ, tree arglist)
8119 tree type = unknown_type_node;
8120 return build2 (TEMPLATE_ID_EXPR, type, templ, arglist);
8123 /* Instantiate a variable declaration from a TEMPLATE_ID_EXPR for use. */
8125 tree
8126 finish_template_variable (tree var)
8128 tree templ = TREE_OPERAND (var, 0);
8130 tree arglist = TREE_OPERAND (var, 1);
8131 tree tmpl_args = DECL_TI_ARGS (DECL_TEMPLATE_RESULT (templ));
8132 arglist = add_outermost_template_args (tmpl_args, arglist);
8134 tree parms = DECL_TEMPLATE_PARMS (templ);
8135 tsubst_flags_t complain = tf_warning_or_error;
8136 arglist = coerce_innermost_template_parms (parms, arglist, templ, complain,
8137 /*req_all*/true,
8138 /*use_default*/true);
8140 return instantiate_template (templ, arglist, complain);
8143 struct pair_fn_data
8145 tree_fn_t fn;
8146 void *data;
8147 /* True when we should also visit template parameters that occur in
8148 non-deduced contexts. */
8149 bool include_nondeduced_p;
8150 hash_set<tree> *visited;
8153 /* Called from for_each_template_parm via walk_tree. */
8155 static tree
8156 for_each_template_parm_r (tree *tp, int *walk_subtrees, void *d)
8158 tree t = *tp;
8159 struct pair_fn_data *pfd = (struct pair_fn_data *) d;
8160 tree_fn_t fn = pfd->fn;
8161 void *data = pfd->data;
8163 if (TYPE_P (t)
8164 && (pfd->include_nondeduced_p || TREE_CODE (t) != TYPENAME_TYPE)
8165 && for_each_template_parm (TYPE_CONTEXT (t), fn, data, pfd->visited,
8166 pfd->include_nondeduced_p))
8167 return error_mark_node;
8169 switch (TREE_CODE (t))
8171 case RECORD_TYPE:
8172 if (TYPE_PTRMEMFUNC_P (t))
8173 break;
8174 /* Fall through. */
8176 case UNION_TYPE:
8177 case ENUMERAL_TYPE:
8178 if (!TYPE_TEMPLATE_INFO (t))
8179 *walk_subtrees = 0;
8180 else if (for_each_template_parm (TYPE_TI_ARGS (t),
8181 fn, data, pfd->visited,
8182 pfd->include_nondeduced_p))
8183 return error_mark_node;
8184 break;
8186 case INTEGER_TYPE:
8187 if (for_each_template_parm (TYPE_MIN_VALUE (t),
8188 fn, data, pfd->visited,
8189 pfd->include_nondeduced_p)
8190 || for_each_template_parm (TYPE_MAX_VALUE (t),
8191 fn, data, pfd->visited,
8192 pfd->include_nondeduced_p))
8193 return error_mark_node;
8194 break;
8196 case METHOD_TYPE:
8197 /* Since we're not going to walk subtrees, we have to do this
8198 explicitly here. */
8199 if (for_each_template_parm (TYPE_METHOD_BASETYPE (t), fn, data,
8200 pfd->visited, pfd->include_nondeduced_p))
8201 return error_mark_node;
8202 /* Fall through. */
8204 case FUNCTION_TYPE:
8205 /* Check the return type. */
8206 if (for_each_template_parm (TREE_TYPE (t), fn, data, pfd->visited,
8207 pfd->include_nondeduced_p))
8208 return error_mark_node;
8210 /* Check the parameter types. Since default arguments are not
8211 instantiated until they are needed, the TYPE_ARG_TYPES may
8212 contain expressions that involve template parameters. But,
8213 no-one should be looking at them yet. And, once they're
8214 instantiated, they don't contain template parameters, so
8215 there's no point in looking at them then, either. */
8217 tree parm;
8219 for (parm = TYPE_ARG_TYPES (t); parm; parm = TREE_CHAIN (parm))
8220 if (for_each_template_parm (TREE_VALUE (parm), fn, data,
8221 pfd->visited, pfd->include_nondeduced_p))
8222 return error_mark_node;
8224 /* Since we've already handled the TYPE_ARG_TYPES, we don't
8225 want walk_tree walking into them itself. */
8226 *walk_subtrees = 0;
8228 break;
8230 case TYPEOF_TYPE:
8231 case UNDERLYING_TYPE:
8232 if (pfd->include_nondeduced_p
8233 && for_each_template_parm (TYPE_FIELDS (t), fn, data,
8234 pfd->visited,
8235 pfd->include_nondeduced_p))
8236 return error_mark_node;
8237 break;
8239 case FUNCTION_DECL:
8240 case VAR_DECL:
8241 if (DECL_LANG_SPECIFIC (t) && DECL_TEMPLATE_INFO (t)
8242 && for_each_template_parm (DECL_TI_ARGS (t), fn, data,
8243 pfd->visited, pfd->include_nondeduced_p))
8244 return error_mark_node;
8245 /* Fall through. */
8247 case PARM_DECL:
8248 case CONST_DECL:
8249 if (TREE_CODE (t) == CONST_DECL && DECL_TEMPLATE_PARM_P (t)
8250 && for_each_template_parm (DECL_INITIAL (t), fn, data,
8251 pfd->visited, pfd->include_nondeduced_p))
8252 return error_mark_node;
8253 if (DECL_CONTEXT (t)
8254 && pfd->include_nondeduced_p
8255 && for_each_template_parm (DECL_CONTEXT (t), fn, data,
8256 pfd->visited, pfd->include_nondeduced_p))
8257 return error_mark_node;
8258 break;
8260 case BOUND_TEMPLATE_TEMPLATE_PARM:
8261 /* Record template parameters such as `T' inside `TT<T>'. */
8262 if (for_each_template_parm (TYPE_TI_ARGS (t), fn, data, pfd->visited,
8263 pfd->include_nondeduced_p))
8264 return error_mark_node;
8265 /* Fall through. */
8267 case TEMPLATE_TEMPLATE_PARM:
8268 case TEMPLATE_TYPE_PARM:
8269 case TEMPLATE_PARM_INDEX:
8270 if (fn && (*fn)(t, data))
8271 return error_mark_node;
8272 else if (!fn)
8273 return error_mark_node;
8274 break;
8276 case TEMPLATE_DECL:
8277 /* A template template parameter is encountered. */
8278 if (DECL_TEMPLATE_TEMPLATE_PARM_P (t)
8279 && for_each_template_parm (TREE_TYPE (t), fn, data, pfd->visited,
8280 pfd->include_nondeduced_p))
8281 return error_mark_node;
8283 /* Already substituted template template parameter */
8284 *walk_subtrees = 0;
8285 break;
8287 case TYPENAME_TYPE:
8288 if (!fn
8289 || for_each_template_parm (TYPENAME_TYPE_FULLNAME (t), fn,
8290 data, pfd->visited,
8291 pfd->include_nondeduced_p))
8292 return error_mark_node;
8293 break;
8295 case CONSTRUCTOR:
8296 if (TREE_TYPE (t) && TYPE_PTRMEMFUNC_P (TREE_TYPE (t))
8297 && pfd->include_nondeduced_p
8298 && for_each_template_parm (TYPE_PTRMEMFUNC_FN_TYPE
8299 (TREE_TYPE (t)), fn, data,
8300 pfd->visited, pfd->include_nondeduced_p))
8301 return error_mark_node;
8302 break;
8304 case INDIRECT_REF:
8305 case COMPONENT_REF:
8306 /* If there's no type, then this thing must be some expression
8307 involving template parameters. */
8308 if (!fn && !TREE_TYPE (t))
8309 return error_mark_node;
8310 break;
8312 case MODOP_EXPR:
8313 case CAST_EXPR:
8314 case IMPLICIT_CONV_EXPR:
8315 case REINTERPRET_CAST_EXPR:
8316 case CONST_CAST_EXPR:
8317 case STATIC_CAST_EXPR:
8318 case DYNAMIC_CAST_EXPR:
8319 case ARROW_EXPR:
8320 case DOTSTAR_EXPR:
8321 case TYPEID_EXPR:
8322 case PSEUDO_DTOR_EXPR:
8323 if (!fn)
8324 return error_mark_node;
8325 break;
8327 default:
8328 break;
8331 /* We didn't find any template parameters we liked. */
8332 return NULL_TREE;
8335 /* For each TEMPLATE_TYPE_PARM, TEMPLATE_TEMPLATE_PARM,
8336 BOUND_TEMPLATE_TEMPLATE_PARM or TEMPLATE_PARM_INDEX in T,
8337 call FN with the parameter and the DATA.
8338 If FN returns nonzero, the iteration is terminated, and
8339 for_each_template_parm returns 1. Otherwise, the iteration
8340 continues. If FN never returns a nonzero value, the value
8341 returned by for_each_template_parm is 0. If FN is NULL, it is
8342 considered to be the function which always returns 1.
8344 If INCLUDE_NONDEDUCED_P, then this routine will also visit template
8345 parameters that occur in non-deduced contexts. When false, only
8346 visits those template parameters that can be deduced. */
8348 static int
8349 for_each_template_parm (tree t, tree_fn_t fn, void* data,
8350 hash_set<tree> *visited,
8351 bool include_nondeduced_p)
8353 struct pair_fn_data pfd;
8354 int result;
8356 /* Set up. */
8357 pfd.fn = fn;
8358 pfd.data = data;
8359 pfd.include_nondeduced_p = include_nondeduced_p;
8361 /* Walk the tree. (Conceptually, we would like to walk without
8362 duplicates, but for_each_template_parm_r recursively calls
8363 for_each_template_parm, so we would need to reorganize a fair
8364 bit to use walk_tree_without_duplicates, so we keep our own
8365 visited list.) */
8366 if (visited)
8367 pfd.visited = visited;
8368 else
8369 pfd.visited = new hash_set<tree>;
8370 result = cp_walk_tree (&t,
8371 for_each_template_parm_r,
8372 &pfd,
8373 pfd.visited) != NULL_TREE;
8375 /* Clean up. */
8376 if (!visited)
8378 delete pfd.visited;
8379 pfd.visited = 0;
8382 return result;
8385 /* Returns true if T depends on any template parameter. */
8388 uses_template_parms (tree t)
8390 if (t == NULL_TREE)
8391 return false;
8393 bool dependent_p;
8394 int saved_processing_template_decl;
8396 saved_processing_template_decl = processing_template_decl;
8397 if (!saved_processing_template_decl)
8398 processing_template_decl = 1;
8399 if (TYPE_P (t))
8400 dependent_p = dependent_type_p (t);
8401 else if (TREE_CODE (t) == TREE_VEC)
8402 dependent_p = any_dependent_template_arguments_p (t);
8403 else if (TREE_CODE (t) == TREE_LIST)
8404 dependent_p = (uses_template_parms (TREE_VALUE (t))
8405 || uses_template_parms (TREE_CHAIN (t)));
8406 else if (TREE_CODE (t) == TYPE_DECL)
8407 dependent_p = dependent_type_p (TREE_TYPE (t));
8408 else if (DECL_P (t)
8409 || EXPR_P (t)
8410 || TREE_CODE (t) == TEMPLATE_PARM_INDEX
8411 || TREE_CODE (t) == OVERLOAD
8412 || BASELINK_P (t)
8413 || identifier_p (t)
8414 || TREE_CODE (t) == TRAIT_EXPR
8415 || TREE_CODE (t) == CONSTRUCTOR
8416 || CONSTANT_CLASS_P (t))
8417 dependent_p = (type_dependent_expression_p (t)
8418 || value_dependent_expression_p (t));
8419 else
8421 gcc_assert (t == error_mark_node);
8422 dependent_p = false;
8425 processing_template_decl = saved_processing_template_decl;
8427 return dependent_p;
8430 /* Returns true iff current_function_decl is an incompletely instantiated
8431 template. Useful instead of processing_template_decl because the latter
8432 is set to 0 during instantiate_non_dependent_expr. */
8434 bool
8435 in_template_function (void)
8437 tree fn = current_function_decl;
8438 bool ret;
8439 ++processing_template_decl;
8440 ret = (fn && DECL_LANG_SPECIFIC (fn)
8441 && DECL_TEMPLATE_INFO (fn)
8442 && any_dependent_template_arguments_p (DECL_TI_ARGS (fn)));
8443 --processing_template_decl;
8444 return ret;
8447 /* Returns true if T depends on any template parameter with level LEVEL. */
8450 uses_template_parms_level (tree t, int level)
8452 return for_each_template_parm (t, template_parm_this_level_p, &level, NULL,
8453 /*include_nondeduced_p=*/true);
8456 /* Returns TRUE iff INST is an instantiation we don't need to do in an
8457 ill-formed translation unit, i.e. a variable or function that isn't
8458 usable in a constant expression. */
8460 static inline bool
8461 neglectable_inst_p (tree d)
8463 return (DECL_P (d)
8464 && !(TREE_CODE (d) == FUNCTION_DECL ? DECL_DECLARED_CONSTEXPR_P (d)
8465 : decl_maybe_constant_var_p (d)));
8468 /* Returns TRUE iff we should refuse to instantiate DECL because it's
8469 neglectable and instantiated from within an erroneous instantiation. */
8471 static bool
8472 limit_bad_template_recursion (tree decl)
8474 struct tinst_level *lev = current_tinst_level;
8475 int errs = errorcount + sorrycount;
8476 if (lev == NULL || errs == 0 || !neglectable_inst_p (decl))
8477 return false;
8479 for (; lev; lev = lev->next)
8480 if (neglectable_inst_p (lev->decl))
8481 break;
8483 return (lev && errs > lev->errors);
8486 static int tinst_depth;
8487 extern int max_tinst_depth;
8488 int depth_reached;
8490 static GTY(()) struct tinst_level *last_error_tinst_level;
8492 /* We're starting to instantiate D; record the template instantiation context
8493 for diagnostics and to restore it later. */
8495 bool
8496 push_tinst_level (tree d)
8498 return push_tinst_level_loc (d, input_location);
8501 /* We're starting to instantiate D; record the template instantiation context
8502 at LOC for diagnostics and to restore it later. */
8504 bool
8505 push_tinst_level_loc (tree d, location_t loc)
8507 struct tinst_level *new_level;
8509 if (tinst_depth >= max_tinst_depth)
8511 fatal_error (input_location,
8512 "template instantiation depth exceeds maximum of %d"
8513 " (use -ftemplate-depth= to increase the maximum)",
8514 max_tinst_depth);
8515 return false;
8518 /* If the current instantiation caused problems, don't let it instantiate
8519 anything else. Do allow deduction substitution and decls usable in
8520 constant expressions. */
8521 if (limit_bad_template_recursion (d))
8522 return false;
8524 new_level = ggc_alloc<tinst_level> ();
8525 new_level->decl = d;
8526 new_level->locus = loc;
8527 new_level->errors = errorcount+sorrycount;
8528 new_level->in_system_header_p = in_system_header_at (input_location);
8529 new_level->next = current_tinst_level;
8530 current_tinst_level = new_level;
8532 ++tinst_depth;
8533 if (GATHER_STATISTICS && (tinst_depth > depth_reached))
8534 depth_reached = tinst_depth;
8536 return true;
8539 /* We're done instantiating this template; return to the instantiation
8540 context. */
8542 void
8543 pop_tinst_level (void)
8545 /* Restore the filename and line number stashed away when we started
8546 this instantiation. */
8547 input_location = current_tinst_level->locus;
8548 current_tinst_level = current_tinst_level->next;
8549 --tinst_depth;
8552 /* We're instantiating a deferred template; restore the template
8553 instantiation context in which the instantiation was requested, which
8554 is one step out from LEVEL. Return the corresponding DECL or TYPE. */
8556 static tree
8557 reopen_tinst_level (struct tinst_level *level)
8559 struct tinst_level *t;
8561 tinst_depth = 0;
8562 for (t = level; t; t = t->next)
8563 ++tinst_depth;
8565 current_tinst_level = level;
8566 pop_tinst_level ();
8567 if (current_tinst_level)
8568 current_tinst_level->errors = errorcount+sorrycount;
8569 return level->decl;
8572 /* Returns the TINST_LEVEL which gives the original instantiation
8573 context. */
8575 struct tinst_level *
8576 outermost_tinst_level (void)
8578 struct tinst_level *level = current_tinst_level;
8579 if (level)
8580 while (level->next)
8581 level = level->next;
8582 return level;
8585 /* DECL is a friend FUNCTION_DECL or TEMPLATE_DECL. ARGS is the
8586 vector of template arguments, as for tsubst.
8588 Returns an appropriate tsubst'd friend declaration. */
8590 static tree
8591 tsubst_friend_function (tree decl, tree args)
8593 tree new_friend;
8595 if (TREE_CODE (decl) == FUNCTION_DECL
8596 && DECL_TEMPLATE_INSTANTIATION (decl)
8597 && TREE_CODE (DECL_TI_TEMPLATE (decl)) != TEMPLATE_DECL)
8598 /* This was a friend declared with an explicit template
8599 argument list, e.g.:
8601 friend void f<>(T);
8603 to indicate that f was a template instantiation, not a new
8604 function declaration. Now, we have to figure out what
8605 instantiation of what template. */
8607 tree template_id, arglist, fns;
8608 tree new_args;
8609 tree tmpl;
8610 tree ns = decl_namespace_context (TYPE_MAIN_DECL (current_class_type));
8612 /* Friend functions are looked up in the containing namespace scope.
8613 We must enter that scope, to avoid finding member functions of the
8614 current class with same name. */
8615 push_nested_namespace (ns);
8616 fns = tsubst_expr (DECL_TI_TEMPLATE (decl), args,
8617 tf_warning_or_error, NULL_TREE,
8618 /*integral_constant_expression_p=*/false);
8619 pop_nested_namespace (ns);
8620 arglist = tsubst (DECL_TI_ARGS (decl), args,
8621 tf_warning_or_error, NULL_TREE);
8622 template_id = lookup_template_function (fns, arglist);
8624 new_friend = tsubst (decl, args, tf_warning_or_error, NULL_TREE);
8625 tmpl = determine_specialization (template_id, new_friend,
8626 &new_args,
8627 /*need_member_template=*/0,
8628 TREE_VEC_LENGTH (args),
8629 tsk_none);
8630 return instantiate_template (tmpl, new_args, tf_error);
8633 new_friend = tsubst (decl, args, tf_warning_or_error, NULL_TREE);
8635 /* The NEW_FRIEND will look like an instantiation, to the
8636 compiler, but is not an instantiation from the point of view of
8637 the language. For example, we might have had:
8639 template <class T> struct S {
8640 template <class U> friend void f(T, U);
8643 Then, in S<int>, template <class U> void f(int, U) is not an
8644 instantiation of anything. */
8645 if (new_friend == error_mark_node)
8646 return error_mark_node;
8648 DECL_USE_TEMPLATE (new_friend) = 0;
8649 if (TREE_CODE (decl) == TEMPLATE_DECL)
8651 DECL_USE_TEMPLATE (DECL_TEMPLATE_RESULT (new_friend)) = 0;
8652 DECL_SAVED_TREE (DECL_TEMPLATE_RESULT (new_friend))
8653 = DECL_SAVED_TREE (DECL_TEMPLATE_RESULT (decl));
8656 /* The mangled name for the NEW_FRIEND is incorrect. The function
8657 is not a template instantiation and should not be mangled like
8658 one. Therefore, we forget the mangling here; we'll recompute it
8659 later if we need it. */
8660 if (TREE_CODE (new_friend) != TEMPLATE_DECL)
8662 SET_DECL_RTL (new_friend, NULL);
8663 SET_DECL_ASSEMBLER_NAME (new_friend, NULL_TREE);
8666 if (DECL_NAMESPACE_SCOPE_P (new_friend))
8668 tree old_decl;
8669 tree new_friend_template_info;
8670 tree new_friend_result_template_info;
8671 tree ns;
8672 int new_friend_is_defn;
8674 /* We must save some information from NEW_FRIEND before calling
8675 duplicate decls since that function will free NEW_FRIEND if
8676 possible. */
8677 new_friend_template_info = DECL_TEMPLATE_INFO (new_friend);
8678 new_friend_is_defn =
8679 (DECL_INITIAL (DECL_TEMPLATE_RESULT
8680 (template_for_substitution (new_friend)))
8681 != NULL_TREE);
8682 if (TREE_CODE (new_friend) == TEMPLATE_DECL)
8684 /* This declaration is a `primary' template. */
8685 DECL_PRIMARY_TEMPLATE (new_friend) = new_friend;
8687 new_friend_result_template_info
8688 = DECL_TEMPLATE_INFO (DECL_TEMPLATE_RESULT (new_friend));
8690 else
8691 new_friend_result_template_info = NULL_TREE;
8693 /* Make the init_value nonzero so pushdecl knows this is a defn. */
8694 if (new_friend_is_defn)
8695 DECL_INITIAL (new_friend) = error_mark_node;
8697 /* Inside pushdecl_namespace_level, we will push into the
8698 current namespace. However, the friend function should go
8699 into the namespace of the template. */
8700 ns = decl_namespace_context (new_friend);
8701 push_nested_namespace (ns);
8702 old_decl = pushdecl_namespace_level (new_friend, /*is_friend=*/true);
8703 pop_nested_namespace (ns);
8705 if (old_decl == error_mark_node)
8706 return error_mark_node;
8708 if (old_decl != new_friend)
8710 /* This new friend declaration matched an existing
8711 declaration. For example, given:
8713 template <class T> void f(T);
8714 template <class U> class C {
8715 template <class T> friend void f(T) {}
8718 the friend declaration actually provides the definition
8719 of `f', once C has been instantiated for some type. So,
8720 old_decl will be the out-of-class template declaration,
8721 while new_friend is the in-class definition.
8723 But, if `f' was called before this point, the
8724 instantiation of `f' will have DECL_TI_ARGS corresponding
8725 to `T' but not to `U', references to which might appear
8726 in the definition of `f'. Previously, the most general
8727 template for an instantiation of `f' was the out-of-class
8728 version; now it is the in-class version. Therefore, we
8729 run through all specialization of `f', adding to their
8730 DECL_TI_ARGS appropriately. In particular, they need a
8731 new set of outer arguments, corresponding to the
8732 arguments for this class instantiation.
8734 The same situation can arise with something like this:
8736 friend void f(int);
8737 template <class T> class C {
8738 friend void f(T) {}
8741 when `C<int>' is instantiated. Now, `f(int)' is defined
8742 in the class. */
8744 if (!new_friend_is_defn)
8745 /* On the other hand, if the in-class declaration does
8746 *not* provide a definition, then we don't want to alter
8747 existing definitions. We can just leave everything
8748 alone. */
8750 else
8752 tree new_template = TI_TEMPLATE (new_friend_template_info);
8753 tree new_args = TI_ARGS (new_friend_template_info);
8755 /* Overwrite whatever template info was there before, if
8756 any, with the new template information pertaining to
8757 the declaration. */
8758 DECL_TEMPLATE_INFO (old_decl) = new_friend_template_info;
8760 if (TREE_CODE (old_decl) != TEMPLATE_DECL)
8762 /* We should have called reregister_specialization in
8763 duplicate_decls. */
8764 gcc_assert (retrieve_specialization (new_template,
8765 new_args, 0)
8766 == old_decl);
8768 /* Instantiate it if the global has already been used. */
8769 if (DECL_ODR_USED (old_decl))
8770 instantiate_decl (old_decl, /*defer_ok=*/true,
8771 /*expl_inst_class_mem_p=*/false);
8773 else
8775 tree t;
8777 /* Indicate that the old function template is a partial
8778 instantiation. */
8779 DECL_TEMPLATE_INFO (DECL_TEMPLATE_RESULT (old_decl))
8780 = new_friend_result_template_info;
8782 gcc_assert (new_template
8783 == most_general_template (new_template));
8784 gcc_assert (new_template != old_decl);
8786 /* Reassign any specializations already in the hash table
8787 to the new more general template, and add the
8788 additional template args. */
8789 for (t = DECL_TEMPLATE_INSTANTIATIONS (old_decl);
8790 t != NULL_TREE;
8791 t = TREE_CHAIN (t))
8793 tree spec = TREE_VALUE (t);
8794 spec_entry elt;
8796 elt.tmpl = old_decl;
8797 elt.args = DECL_TI_ARGS (spec);
8798 elt.spec = NULL_TREE;
8800 decl_specializations->remove_elt (&elt);
8802 DECL_TI_ARGS (spec)
8803 = add_outermost_template_args (new_args,
8804 DECL_TI_ARGS (spec));
8806 register_specialization
8807 (spec, new_template, DECL_TI_ARGS (spec), true, 0);
8810 DECL_TEMPLATE_INSTANTIATIONS (old_decl) = NULL_TREE;
8814 /* The information from NEW_FRIEND has been merged into OLD_DECL
8815 by duplicate_decls. */
8816 new_friend = old_decl;
8819 else
8821 tree context = DECL_CONTEXT (new_friend);
8822 bool dependent_p;
8824 /* In the code
8825 template <class T> class C {
8826 template <class U> friend void C1<U>::f (); // case 1
8827 friend void C2<T>::f (); // case 2
8829 we only need to make sure CONTEXT is a complete type for
8830 case 2. To distinguish between the two cases, we note that
8831 CONTEXT of case 1 remains dependent type after tsubst while
8832 this isn't true for case 2. */
8833 ++processing_template_decl;
8834 dependent_p = dependent_type_p (context);
8835 --processing_template_decl;
8837 if (!dependent_p
8838 && !complete_type_or_else (context, NULL_TREE))
8839 return error_mark_node;
8841 if (COMPLETE_TYPE_P (context))
8843 tree fn = new_friend;
8844 /* do_friend adds the TEMPLATE_DECL for any member friend
8845 template even if it isn't a member template, i.e.
8846 template <class T> friend A<T>::f();
8847 Look through it in that case. */
8848 if (TREE_CODE (fn) == TEMPLATE_DECL
8849 && !PRIMARY_TEMPLATE_P (fn))
8850 fn = DECL_TEMPLATE_RESULT (fn);
8851 /* Check to see that the declaration is really present, and,
8852 possibly obtain an improved declaration. */
8853 fn = check_classfn (context, fn, NULL_TREE);
8855 if (fn)
8856 new_friend = fn;
8860 return new_friend;
8863 /* FRIEND_TMPL is a friend TEMPLATE_DECL. ARGS is the vector of
8864 template arguments, as for tsubst.
8866 Returns an appropriate tsubst'd friend type or error_mark_node on
8867 failure. */
8869 static tree
8870 tsubst_friend_class (tree friend_tmpl, tree args)
8872 tree friend_type;
8873 tree tmpl;
8874 tree context;
8876 if (DECL_TEMPLATE_TEMPLATE_PARM_P (friend_tmpl))
8878 tree t = tsubst (TREE_TYPE (friend_tmpl), args, tf_none, NULL_TREE);
8879 return TREE_TYPE (t);
8882 context = CP_DECL_CONTEXT (friend_tmpl);
8884 if (context != global_namespace)
8886 if (TREE_CODE (context) == NAMESPACE_DECL)
8887 push_nested_namespace (context);
8888 else
8889 push_nested_class (tsubst (context, args, tf_none, NULL_TREE));
8892 /* Look for a class template declaration. We look for hidden names
8893 because two friend declarations of the same template are the
8894 same. For example, in:
8896 struct A {
8897 template <typename> friend class F;
8899 template <typename> struct B {
8900 template <typename> friend class F;
8903 both F templates are the same. */
8904 tmpl = lookup_name_real (DECL_NAME (friend_tmpl), 0, 0,
8905 /*block_p=*/true, 0, LOOKUP_HIDDEN);
8907 /* But, if we don't find one, it might be because we're in a
8908 situation like this:
8910 template <class T>
8911 struct S {
8912 template <class U>
8913 friend struct S;
8916 Here, in the scope of (say) S<int>, `S' is bound to a TYPE_DECL
8917 for `S<int>', not the TEMPLATE_DECL. */
8918 if (!tmpl || !DECL_CLASS_TEMPLATE_P (tmpl))
8920 tmpl = lookup_name_prefer_type (DECL_NAME (friend_tmpl), 1);
8921 tmpl = maybe_get_template_decl_from_type_decl (tmpl);
8924 if (tmpl && DECL_CLASS_TEMPLATE_P (tmpl))
8926 /* The friend template has already been declared. Just
8927 check to see that the declarations match, and install any new
8928 default parameters. We must tsubst the default parameters,
8929 of course. We only need the innermost template parameters
8930 because that is all that redeclare_class_template will look
8931 at. */
8932 if (TMPL_PARMS_DEPTH (DECL_TEMPLATE_PARMS (friend_tmpl))
8933 > TMPL_ARGS_DEPTH (args))
8935 tree parms;
8936 location_t saved_input_location;
8937 parms = tsubst_template_parms (DECL_TEMPLATE_PARMS (friend_tmpl),
8938 args, tf_warning_or_error);
8940 saved_input_location = input_location;
8941 input_location = DECL_SOURCE_LOCATION (friend_tmpl);
8942 redeclare_class_template (TREE_TYPE (tmpl), parms);
8943 input_location = saved_input_location;
8947 friend_type = TREE_TYPE (tmpl);
8949 else
8951 /* The friend template has not already been declared. In this
8952 case, the instantiation of the template class will cause the
8953 injection of this template into the global scope. */
8954 tmpl = tsubst (friend_tmpl, args, tf_warning_or_error, NULL_TREE);
8955 if (tmpl == error_mark_node)
8956 return error_mark_node;
8958 /* The new TMPL is not an instantiation of anything, so we
8959 forget its origins. We don't reset CLASSTYPE_TI_TEMPLATE for
8960 the new type because that is supposed to be the corresponding
8961 template decl, i.e., TMPL. */
8962 DECL_USE_TEMPLATE (tmpl) = 0;
8963 DECL_TEMPLATE_INFO (tmpl) = NULL_TREE;
8964 CLASSTYPE_USE_TEMPLATE (TREE_TYPE (tmpl)) = 0;
8965 CLASSTYPE_TI_ARGS (TREE_TYPE (tmpl))
8966 = INNERMOST_TEMPLATE_ARGS (CLASSTYPE_TI_ARGS (TREE_TYPE (tmpl)));
8968 /* Inject this template into the global scope. */
8969 friend_type = TREE_TYPE (pushdecl_top_level_maybe_friend (tmpl, true));
8972 if (context != global_namespace)
8974 if (TREE_CODE (context) == NAMESPACE_DECL)
8975 pop_nested_namespace (context);
8976 else
8977 pop_nested_class ();
8980 return friend_type;
8983 /* Returns zero if TYPE cannot be completed later due to circularity.
8984 Otherwise returns one. */
8986 static int
8987 can_complete_type_without_circularity (tree type)
8989 if (type == NULL_TREE || type == error_mark_node)
8990 return 0;
8991 else if (COMPLETE_TYPE_P (type))
8992 return 1;
8993 else if (TREE_CODE (type) == ARRAY_TYPE && TYPE_DOMAIN (type))
8994 return can_complete_type_without_circularity (TREE_TYPE (type));
8995 else if (CLASS_TYPE_P (type)
8996 && TYPE_BEING_DEFINED (TYPE_MAIN_VARIANT (type)))
8997 return 0;
8998 else
8999 return 1;
9002 static tree tsubst_omp_clauses (tree, bool, tree, tsubst_flags_t, tree);
9004 /* Apply any attributes which had to be deferred until instantiation
9005 time. DECL_P, ATTRIBUTES and ATTR_FLAGS are as cplus_decl_attributes;
9006 ARGS, COMPLAIN, IN_DECL are as tsubst. */
9008 static void
9009 apply_late_template_attributes (tree *decl_p, tree attributes, int attr_flags,
9010 tree args, tsubst_flags_t complain, tree in_decl)
9012 tree last_dep = NULL_TREE;
9013 tree t;
9014 tree *p;
9016 for (t = attributes; t; t = TREE_CHAIN (t))
9017 if (ATTR_IS_DEPENDENT (t))
9019 last_dep = t;
9020 attributes = copy_list (attributes);
9021 break;
9024 if (DECL_P (*decl_p))
9026 if (TREE_TYPE (*decl_p) == error_mark_node)
9027 return;
9028 p = &DECL_ATTRIBUTES (*decl_p);
9030 else
9031 p = &TYPE_ATTRIBUTES (*decl_p);
9033 if (last_dep)
9035 tree late_attrs = NULL_TREE;
9036 tree *q = &late_attrs;
9038 for (*p = attributes; *p; )
9040 t = *p;
9041 if (ATTR_IS_DEPENDENT (t))
9043 *p = TREE_CHAIN (t);
9044 TREE_CHAIN (t) = NULL_TREE;
9045 if ((flag_openmp || flag_cilkplus)
9046 && is_attribute_p ("omp declare simd",
9047 get_attribute_name (t))
9048 && TREE_VALUE (t))
9050 tree clauses = TREE_VALUE (TREE_VALUE (t));
9051 clauses = tsubst_omp_clauses (clauses, true, args,
9052 complain, in_decl);
9053 c_omp_declare_simd_clauses_to_decls (*decl_p, clauses);
9054 clauses = finish_omp_clauses (clauses);
9055 tree parms = DECL_ARGUMENTS (*decl_p);
9056 clauses
9057 = c_omp_declare_simd_clauses_to_numbers (parms, clauses);
9058 if (clauses)
9059 TREE_VALUE (TREE_VALUE (t)) = clauses;
9060 else
9061 TREE_VALUE (t) = NULL_TREE;
9063 /* If the first attribute argument is an identifier, don't
9064 pass it through tsubst. Attributes like mode, format,
9065 cleanup and several target specific attributes expect it
9066 unmodified. */
9067 else if (attribute_takes_identifier_p (get_attribute_name (t))
9068 && TREE_VALUE (t))
9070 tree chain
9071 = tsubst_expr (TREE_CHAIN (TREE_VALUE (t)), args, complain,
9072 in_decl,
9073 /*integral_constant_expression_p=*/false);
9074 if (chain != TREE_CHAIN (TREE_VALUE (t)))
9075 TREE_VALUE (t)
9076 = tree_cons (NULL_TREE, TREE_VALUE (TREE_VALUE (t)),
9077 chain);
9079 else if (TREE_VALUE (t) && PACK_EXPANSION_P (TREE_VALUE (t)))
9081 /* An attribute pack expansion. */
9082 tree purp = TREE_PURPOSE (t);
9083 tree pack = (tsubst_pack_expansion
9084 (TREE_VALUE (t), args, complain, in_decl));
9085 int len = TREE_VEC_LENGTH (pack);
9086 for (int i = 0; i < len; ++i)
9088 tree elt = TREE_VEC_ELT (pack, i);
9089 *q = build_tree_list (purp, elt);
9090 q = &TREE_CHAIN (*q);
9092 continue;
9094 else
9095 TREE_VALUE (t)
9096 = tsubst_expr (TREE_VALUE (t), args, complain, in_decl,
9097 /*integral_constant_expression_p=*/false);
9098 *q = t;
9099 q = &TREE_CHAIN (t);
9101 else
9102 p = &TREE_CHAIN (t);
9105 cplus_decl_attributes (decl_p, late_attrs, attr_flags);
9109 /* Perform (or defer) access check for typedefs that were referenced
9110 from within the template TMPL code.
9111 This is a subroutine of instantiate_decl and instantiate_class_template.
9112 TMPL is the template to consider and TARGS is the list of arguments of
9113 that template. */
9115 static void
9116 perform_typedefs_access_check (tree tmpl, tree targs)
9118 location_t saved_location;
9119 unsigned i;
9120 qualified_typedef_usage_t *iter;
9122 if (!tmpl
9123 || (!CLASS_TYPE_P (tmpl)
9124 && TREE_CODE (tmpl) != FUNCTION_DECL))
9125 return;
9127 saved_location = input_location;
9128 FOR_EACH_VEC_SAFE_ELT (get_types_needing_access_check (tmpl), i, iter)
9130 tree type_decl = iter->typedef_decl;
9131 tree type_scope = iter->context;
9133 if (!type_decl || !type_scope || !CLASS_TYPE_P (type_scope))
9134 continue;
9136 if (uses_template_parms (type_decl))
9137 type_decl = tsubst (type_decl, targs, tf_error, NULL_TREE);
9138 if (uses_template_parms (type_scope))
9139 type_scope = tsubst (type_scope, targs, tf_error, NULL_TREE);
9141 /* Make access check error messages point to the location
9142 of the use of the typedef. */
9143 input_location = iter->locus;
9144 perform_or_defer_access_check (TYPE_BINFO (type_scope),
9145 type_decl, type_decl,
9146 tf_warning_or_error);
9148 input_location = saved_location;
9151 static tree
9152 instantiate_class_template_1 (tree type)
9154 tree templ, args, pattern, t, member;
9155 tree typedecl;
9156 tree pbinfo;
9157 tree base_list;
9158 unsigned int saved_maximum_field_alignment;
9159 tree fn_context;
9161 if (type == error_mark_node)
9162 return error_mark_node;
9164 if (COMPLETE_OR_OPEN_TYPE_P (type)
9165 || uses_template_parms (type))
9166 return type;
9168 /* Figure out which template is being instantiated. */
9169 templ = most_general_template (CLASSTYPE_TI_TEMPLATE (type));
9170 gcc_assert (TREE_CODE (templ) == TEMPLATE_DECL);
9172 /* Determine what specialization of the original template to
9173 instantiate. */
9174 t = most_specialized_partial_spec (type, tf_warning_or_error);
9175 if (t == error_mark_node)
9177 TYPE_BEING_DEFINED (type) = 1;
9178 return error_mark_node;
9180 else if (t)
9182 /* This TYPE is actually an instantiation of a partial
9183 specialization. We replace the innermost set of ARGS with
9184 the arguments appropriate for substitution. For example,
9185 given:
9187 template <class T> struct S {};
9188 template <class T> struct S<T*> {};
9190 and supposing that we are instantiating S<int*>, ARGS will
9191 presently be {int*} -- but we need {int}. */
9192 pattern = TREE_TYPE (t);
9193 args = TREE_PURPOSE (t);
9195 else
9197 pattern = TREE_TYPE (templ);
9198 args = CLASSTYPE_TI_ARGS (type);
9201 /* If the template we're instantiating is incomplete, then clearly
9202 there's nothing we can do. */
9203 if (!COMPLETE_TYPE_P (pattern))
9204 return type;
9206 /* If we've recursively instantiated too many templates, stop. */
9207 if (! push_tinst_level (type))
9208 return type;
9210 /* Now we're really doing the instantiation. Mark the type as in
9211 the process of being defined. */
9212 TYPE_BEING_DEFINED (type) = 1;
9214 /* We may be in the middle of deferred access check. Disable
9215 it now. */
9216 push_deferring_access_checks (dk_no_deferred);
9218 int saved_unevaluated_operand = cp_unevaluated_operand;
9219 int saved_inhibit_evaluation_warnings = c_inhibit_evaluation_warnings;
9221 fn_context = decl_function_context (TYPE_MAIN_DECL (type));
9222 /* Also avoid push_to_top_level for a lambda in an NSDMI. */
9223 if (!fn_context && LAMBDA_TYPE_P (type) && TYPE_CLASS_SCOPE_P (type))
9224 fn_context = error_mark_node;
9225 if (!fn_context)
9226 push_to_top_level ();
9227 else
9229 cp_unevaluated_operand = 0;
9230 c_inhibit_evaluation_warnings = 0;
9232 /* Use #pragma pack from the template context. */
9233 saved_maximum_field_alignment = maximum_field_alignment;
9234 maximum_field_alignment = TYPE_PRECISION (pattern);
9236 SET_CLASSTYPE_INTERFACE_UNKNOWN (type);
9238 /* Set the input location to the most specialized template definition.
9239 This is needed if tsubsting causes an error. */
9240 typedecl = TYPE_MAIN_DECL (pattern);
9241 input_location = DECL_SOURCE_LOCATION (TYPE_NAME (type)) =
9242 DECL_SOURCE_LOCATION (typedecl);
9244 TYPE_PACKED (type) = TYPE_PACKED (pattern);
9245 TYPE_ALIGN (type) = TYPE_ALIGN (pattern);
9246 TYPE_USER_ALIGN (type) = TYPE_USER_ALIGN (pattern);
9247 TYPE_FOR_JAVA (type) = TYPE_FOR_JAVA (pattern); /* For libjava's JArray<T> */
9248 if (ANON_AGGR_TYPE_P (pattern))
9249 SET_ANON_AGGR_TYPE_P (type);
9250 if (CLASSTYPE_VISIBILITY_SPECIFIED (pattern))
9252 CLASSTYPE_VISIBILITY_SPECIFIED (type) = 1;
9253 CLASSTYPE_VISIBILITY (type) = CLASSTYPE_VISIBILITY (pattern);
9254 /* Adjust visibility for template arguments. */
9255 determine_visibility (TYPE_MAIN_DECL (type));
9257 if (CLASS_TYPE_P (type))
9258 CLASSTYPE_FINAL (type) = CLASSTYPE_FINAL (pattern);
9260 pbinfo = TYPE_BINFO (pattern);
9262 /* We should never instantiate a nested class before its enclosing
9263 class; we need to look up the nested class by name before we can
9264 instantiate it, and that lookup should instantiate the enclosing
9265 class. */
9266 gcc_assert (!DECL_CLASS_SCOPE_P (TYPE_MAIN_DECL (pattern))
9267 || COMPLETE_OR_OPEN_TYPE_P (TYPE_CONTEXT (type)));
9269 base_list = NULL_TREE;
9270 if (BINFO_N_BASE_BINFOS (pbinfo))
9272 tree pbase_binfo;
9273 tree pushed_scope;
9274 int i;
9276 /* We must enter the scope containing the type, as that is where
9277 the accessibility of types named in dependent bases are
9278 looked up from. */
9279 pushed_scope = push_scope (CP_TYPE_CONTEXT (type));
9281 /* Substitute into each of the bases to determine the actual
9282 basetypes. */
9283 for (i = 0; BINFO_BASE_ITERATE (pbinfo, i, pbase_binfo); i++)
9285 tree base;
9286 tree access = BINFO_BASE_ACCESS (pbinfo, i);
9287 tree expanded_bases = NULL_TREE;
9288 int idx, len = 1;
9290 if (PACK_EXPANSION_P (BINFO_TYPE (pbase_binfo)))
9292 expanded_bases =
9293 tsubst_pack_expansion (BINFO_TYPE (pbase_binfo),
9294 args, tf_error, NULL_TREE);
9295 if (expanded_bases == error_mark_node)
9296 continue;
9298 len = TREE_VEC_LENGTH (expanded_bases);
9301 for (idx = 0; idx < len; idx++)
9303 if (expanded_bases)
9304 /* Extract the already-expanded base class. */
9305 base = TREE_VEC_ELT (expanded_bases, idx);
9306 else
9307 /* Substitute to figure out the base class. */
9308 base = tsubst (BINFO_TYPE (pbase_binfo), args, tf_error,
9309 NULL_TREE);
9311 if (base == error_mark_node)
9312 continue;
9314 base_list = tree_cons (access, base, base_list);
9315 if (BINFO_VIRTUAL_P (pbase_binfo))
9316 TREE_TYPE (base_list) = integer_type_node;
9320 /* The list is now in reverse order; correct that. */
9321 base_list = nreverse (base_list);
9323 if (pushed_scope)
9324 pop_scope (pushed_scope);
9326 /* Now call xref_basetypes to set up all the base-class
9327 information. */
9328 xref_basetypes (type, base_list);
9330 apply_late_template_attributes (&type, TYPE_ATTRIBUTES (pattern),
9331 (int) ATTR_FLAG_TYPE_IN_PLACE,
9332 args, tf_error, NULL_TREE);
9333 fixup_attribute_variants (type);
9335 /* Now that our base classes are set up, enter the scope of the
9336 class, so that name lookups into base classes, etc. will work
9337 correctly. This is precisely analogous to what we do in
9338 begin_class_definition when defining an ordinary non-template
9339 class, except we also need to push the enclosing classes. */
9340 push_nested_class (type);
9342 /* Now members are processed in the order of declaration. */
9343 for (member = CLASSTYPE_DECL_LIST (pattern);
9344 member; member = TREE_CHAIN (member))
9346 tree t = TREE_VALUE (member);
9348 if (TREE_PURPOSE (member))
9350 if (TYPE_P (t))
9352 /* Build new CLASSTYPE_NESTED_UTDS. */
9354 tree newtag;
9355 bool class_template_p;
9357 class_template_p = (TREE_CODE (t) != ENUMERAL_TYPE
9358 && TYPE_LANG_SPECIFIC (t)
9359 && CLASSTYPE_IS_TEMPLATE (t));
9360 /* If the member is a class template, then -- even after
9361 substitution -- there may be dependent types in the
9362 template argument list for the class. We increment
9363 PROCESSING_TEMPLATE_DECL so that dependent_type_p, as
9364 that function will assume that no types are dependent
9365 when outside of a template. */
9366 if (class_template_p)
9367 ++processing_template_decl;
9368 newtag = tsubst (t, args, tf_error, NULL_TREE);
9369 if (class_template_p)
9370 --processing_template_decl;
9371 if (newtag == error_mark_node)
9372 continue;
9374 if (TREE_CODE (newtag) != ENUMERAL_TYPE)
9376 tree name = TYPE_IDENTIFIER (t);
9378 if (class_template_p)
9379 /* Unfortunately, lookup_template_class sets
9380 CLASSTYPE_IMPLICIT_INSTANTIATION for a partial
9381 instantiation (i.e., for the type of a member
9382 template class nested within a template class.)
9383 This behavior is required for
9384 maybe_process_partial_specialization to work
9385 correctly, but is not accurate in this case;
9386 the TAG is not an instantiation of anything.
9387 (The corresponding TEMPLATE_DECL is an
9388 instantiation, but the TYPE is not.) */
9389 CLASSTYPE_USE_TEMPLATE (newtag) = 0;
9391 /* Now, we call pushtag to put this NEWTAG into the scope of
9392 TYPE. We first set up the IDENTIFIER_TYPE_VALUE to avoid
9393 pushtag calling push_template_decl. We don't have to do
9394 this for enums because it will already have been done in
9395 tsubst_enum. */
9396 if (name)
9397 SET_IDENTIFIER_TYPE_VALUE (name, newtag);
9398 pushtag (name, newtag, /*tag_scope=*/ts_current);
9401 else if (DECL_DECLARES_FUNCTION_P (t))
9403 /* Build new TYPE_METHODS. */
9404 tree r;
9406 if (TREE_CODE (t) == TEMPLATE_DECL)
9407 ++processing_template_decl;
9408 r = tsubst (t, args, tf_error, NULL_TREE);
9409 if (TREE_CODE (t) == TEMPLATE_DECL)
9410 --processing_template_decl;
9411 set_current_access_from_decl (r);
9412 finish_member_declaration (r);
9413 /* Instantiate members marked with attribute used. */
9414 if (r != error_mark_node && DECL_PRESERVE_P (r))
9415 mark_used (r);
9416 if (TREE_CODE (r) == FUNCTION_DECL
9417 && DECL_OMP_DECLARE_REDUCTION_P (r))
9418 cp_check_omp_declare_reduction (r);
9420 else if (DECL_CLASS_TEMPLATE_P (t)
9421 && LAMBDA_TYPE_P (TREE_TYPE (t)))
9422 /* A closure type for a lambda in a default argument for a
9423 member template. Ignore it; it will be instantiated with
9424 the default argument. */;
9425 else
9427 /* Build new TYPE_FIELDS. */
9428 if (TREE_CODE (t) == STATIC_ASSERT)
9430 tree condition;
9432 ++c_inhibit_evaluation_warnings;
9433 condition =
9434 tsubst_expr (STATIC_ASSERT_CONDITION (t), args,
9435 tf_warning_or_error, NULL_TREE,
9436 /*integral_constant_expression_p=*/true);
9437 --c_inhibit_evaluation_warnings;
9439 finish_static_assert (condition,
9440 STATIC_ASSERT_MESSAGE (t),
9441 STATIC_ASSERT_SOURCE_LOCATION (t),
9442 /*member_p=*/true);
9444 else if (TREE_CODE (t) != CONST_DECL)
9446 tree r;
9447 tree vec = NULL_TREE;
9448 int len = 1;
9450 /* The file and line for this declaration, to
9451 assist in error message reporting. Since we
9452 called push_tinst_level above, we don't need to
9453 restore these. */
9454 input_location = DECL_SOURCE_LOCATION (t);
9456 if (TREE_CODE (t) == TEMPLATE_DECL)
9457 ++processing_template_decl;
9458 r = tsubst (t, args, tf_warning_or_error, NULL_TREE);
9459 if (TREE_CODE (t) == TEMPLATE_DECL)
9460 --processing_template_decl;
9462 if (TREE_CODE (r) == TREE_VEC)
9464 /* A capture pack became multiple fields. */
9465 vec = r;
9466 len = TREE_VEC_LENGTH (vec);
9469 for (int i = 0; i < len; ++i)
9471 if (vec)
9472 r = TREE_VEC_ELT (vec, i);
9473 if (VAR_P (r))
9475 /* In [temp.inst]:
9477 [t]he initialization (and any associated
9478 side-effects) of a static data member does
9479 not occur unless the static data member is
9480 itself used in a way that requires the
9481 definition of the static data member to
9482 exist.
9484 Therefore, we do not substitute into the
9485 initialized for the static data member here. */
9486 finish_static_data_member_decl
9488 /*init=*/NULL_TREE,
9489 /*init_const_expr_p=*/false,
9490 /*asmspec_tree=*/NULL_TREE,
9491 /*flags=*/0);
9492 /* Instantiate members marked with attribute used. */
9493 if (r != error_mark_node && DECL_PRESERVE_P (r))
9494 mark_used (r);
9496 else if (TREE_CODE (r) == FIELD_DECL)
9498 /* Determine whether R has a valid type and can be
9499 completed later. If R is invalid, then its type
9500 is replaced by error_mark_node. */
9501 tree rtype = TREE_TYPE (r);
9502 if (can_complete_type_without_circularity (rtype))
9503 complete_type (rtype);
9505 if (!COMPLETE_TYPE_P (rtype))
9507 cxx_incomplete_type_error (r, rtype);
9508 TREE_TYPE (r) = error_mark_node;
9512 /* If it is a TYPE_DECL for a class-scoped ENUMERAL_TYPE,
9513 such a thing will already have been added to the field
9514 list by tsubst_enum in finish_member_declaration in the
9515 CLASSTYPE_NESTED_UTDS case above. */
9516 if (!(TREE_CODE (r) == TYPE_DECL
9517 && TREE_CODE (TREE_TYPE (r)) == ENUMERAL_TYPE
9518 && DECL_ARTIFICIAL (r)))
9520 set_current_access_from_decl (r);
9521 finish_member_declaration (r);
9527 else
9529 if (TYPE_P (t) || DECL_CLASS_TEMPLATE_P (t)
9530 || DECL_TEMPLATE_TEMPLATE_PARM_P (t))
9532 /* Build new CLASSTYPE_FRIEND_CLASSES. */
9534 tree friend_type = t;
9535 bool adjust_processing_template_decl = false;
9537 if (TREE_CODE (friend_type) == TEMPLATE_DECL)
9539 /* template <class T> friend class C; */
9540 friend_type = tsubst_friend_class (friend_type, args);
9541 adjust_processing_template_decl = true;
9543 else if (TREE_CODE (friend_type) == UNBOUND_CLASS_TEMPLATE)
9545 /* template <class T> friend class C::D; */
9546 friend_type = tsubst (friend_type, args,
9547 tf_warning_or_error, NULL_TREE);
9548 if (TREE_CODE (friend_type) == TEMPLATE_DECL)
9549 friend_type = TREE_TYPE (friend_type);
9550 adjust_processing_template_decl = true;
9552 else if (TREE_CODE (friend_type) == TYPENAME_TYPE
9553 || TREE_CODE (friend_type) == TEMPLATE_TYPE_PARM)
9555 /* This could be either
9557 friend class T::C;
9559 when dependent_type_p is false or
9561 template <class U> friend class T::C;
9563 otherwise. */
9564 friend_type = tsubst (friend_type, args,
9565 tf_warning_or_error, NULL_TREE);
9566 /* Bump processing_template_decl for correct
9567 dependent_type_p calculation. */
9568 ++processing_template_decl;
9569 if (dependent_type_p (friend_type))
9570 adjust_processing_template_decl = true;
9571 --processing_template_decl;
9573 else if (!CLASSTYPE_USE_TEMPLATE (friend_type)
9574 && hidden_name_p (TYPE_NAME (friend_type)))
9576 /* friend class C;
9578 where C hasn't been declared yet. Let's lookup name
9579 from namespace scope directly, bypassing any name that
9580 come from dependent base class. */
9581 tree ns = decl_namespace_context (TYPE_MAIN_DECL (friend_type));
9583 /* The call to xref_tag_from_type does injection for friend
9584 classes. */
9585 push_nested_namespace (ns);
9586 friend_type =
9587 xref_tag_from_type (friend_type, NULL_TREE,
9588 /*tag_scope=*/ts_current);
9589 pop_nested_namespace (ns);
9591 else if (uses_template_parms (friend_type))
9592 /* friend class C<T>; */
9593 friend_type = tsubst (friend_type, args,
9594 tf_warning_or_error, NULL_TREE);
9595 /* Otherwise it's
9597 friend class C;
9599 where C is already declared or
9601 friend class C<int>;
9603 We don't have to do anything in these cases. */
9605 if (adjust_processing_template_decl)
9606 /* Trick make_friend_class into realizing that the friend
9607 we're adding is a template, not an ordinary class. It's
9608 important that we use make_friend_class since it will
9609 perform some error-checking and output cross-reference
9610 information. */
9611 ++processing_template_decl;
9613 if (friend_type != error_mark_node)
9614 make_friend_class (type, friend_type, /*complain=*/false);
9616 if (adjust_processing_template_decl)
9617 --processing_template_decl;
9619 else
9621 /* Build new DECL_FRIENDLIST. */
9622 tree r;
9624 /* The file and line for this declaration, to
9625 assist in error message reporting. Since we
9626 called push_tinst_level above, we don't need to
9627 restore these. */
9628 input_location = DECL_SOURCE_LOCATION (t);
9630 if (TREE_CODE (t) == TEMPLATE_DECL)
9632 ++processing_template_decl;
9633 push_deferring_access_checks (dk_no_check);
9636 r = tsubst_friend_function (t, args);
9637 add_friend (type, r, /*complain=*/false);
9638 if (TREE_CODE (t) == TEMPLATE_DECL)
9640 pop_deferring_access_checks ();
9641 --processing_template_decl;
9647 if (fn_context)
9649 /* Restore these before substituting into the lambda capture
9650 initializers. */
9651 cp_unevaluated_operand = saved_unevaluated_operand;
9652 c_inhibit_evaluation_warnings = saved_inhibit_evaluation_warnings;
9655 if (tree expr = CLASSTYPE_LAMBDA_EXPR (type))
9657 tree decl = lambda_function (type);
9658 if (decl)
9660 if (!DECL_TEMPLATE_INFO (decl)
9661 || DECL_TEMPLATE_RESULT (DECL_TI_TEMPLATE (decl)) != decl)
9662 instantiate_decl (decl, false, false);
9664 /* We need to instantiate the capture list from the template
9665 after we've instantiated the closure members, but before we
9666 consider adding the conversion op. Also keep any captures
9667 that may have been added during instantiation of the op(). */
9668 tree tmpl_expr = CLASSTYPE_LAMBDA_EXPR (pattern);
9669 tree tmpl_cap
9670 = tsubst_copy_and_build (LAMBDA_EXPR_CAPTURE_LIST (tmpl_expr),
9671 args, tf_warning_or_error, NULL_TREE,
9672 false, false);
9674 LAMBDA_EXPR_CAPTURE_LIST (expr)
9675 = chainon (tmpl_cap, nreverse (LAMBDA_EXPR_CAPTURE_LIST (expr)));
9677 maybe_add_lambda_conv_op (type);
9679 else
9680 gcc_assert (errorcount);
9683 /* Set the file and line number information to whatever is given for
9684 the class itself. This puts error messages involving generated
9685 implicit functions at a predictable point, and the same point
9686 that would be used for non-template classes. */
9687 input_location = DECL_SOURCE_LOCATION (typedecl);
9689 unreverse_member_declarations (type);
9690 finish_struct_1 (type);
9691 TYPE_BEING_DEFINED (type) = 0;
9693 /* We don't instantiate default arguments for member functions. 14.7.1:
9695 The implicit instantiation of a class template specialization causes
9696 the implicit instantiation of the declarations, but not of the
9697 definitions or default arguments, of the class member functions,
9698 member classes, static data members and member templates.... */
9700 /* Some typedefs referenced from within the template code need to be access
9701 checked at template instantiation time, i.e now. These types were
9702 added to the template at parsing time. Let's get those and perform
9703 the access checks then. */
9704 perform_typedefs_access_check (pattern, args);
9705 perform_deferred_access_checks (tf_warning_or_error);
9706 pop_nested_class ();
9707 maximum_field_alignment = saved_maximum_field_alignment;
9708 if (!fn_context)
9709 pop_from_top_level ();
9710 pop_deferring_access_checks ();
9711 pop_tinst_level ();
9713 /* The vtable for a template class can be emitted in any translation
9714 unit in which the class is instantiated. When there is no key
9715 method, however, finish_struct_1 will already have added TYPE to
9716 the keyed_classes list. */
9717 if (TYPE_CONTAINS_VPTR_P (type) && CLASSTYPE_KEY_METHOD (type))
9718 keyed_classes = tree_cons (NULL_TREE, type, keyed_classes);
9720 return type;
9723 /* Wrapper for instantiate_class_template_1. */
9725 tree
9726 instantiate_class_template (tree type)
9728 tree ret;
9729 timevar_push (TV_TEMPLATE_INST);
9730 ret = instantiate_class_template_1 (type);
9731 timevar_pop (TV_TEMPLATE_INST);
9732 return ret;
9735 static tree
9736 tsubst_template_arg (tree t, tree args, tsubst_flags_t complain, tree in_decl)
9738 tree r;
9740 if (!t)
9741 r = t;
9742 else if (TYPE_P (t))
9743 r = tsubst (t, args, complain, in_decl);
9744 else
9746 if (!(complain & tf_warning))
9747 ++c_inhibit_evaluation_warnings;
9748 r = tsubst_expr (t, args, complain, in_decl,
9749 /*integral_constant_expression_p=*/true);
9750 if (!(complain & tf_warning))
9751 --c_inhibit_evaluation_warnings;
9753 return r;
9756 /* Given a function parameter pack TMPL_PARM and some function parameters
9757 instantiated from it at *SPEC_P, return a NONTYPE_ARGUMENT_PACK of them
9758 and set *SPEC_P to point at the next point in the list. */
9760 static tree
9761 extract_fnparm_pack (tree tmpl_parm, tree *spec_p)
9763 /* Collect all of the extra "packed" parameters into an
9764 argument pack. */
9765 tree parmvec;
9766 tree parmtypevec;
9767 tree argpack = make_node (NONTYPE_ARGUMENT_PACK);
9768 tree argtypepack = cxx_make_type (TYPE_ARGUMENT_PACK);
9769 tree spec_parm = *spec_p;
9770 int i, len;
9772 for (len = 0; spec_parm; ++len, spec_parm = TREE_CHAIN (spec_parm))
9773 if (tmpl_parm
9774 && !function_parameter_expanded_from_pack_p (spec_parm, tmpl_parm))
9775 break;
9777 /* Fill in PARMVEC and PARMTYPEVEC with all of the parameters. */
9778 parmvec = make_tree_vec (len);
9779 parmtypevec = make_tree_vec (len);
9780 spec_parm = *spec_p;
9781 for (i = 0; i < len; i++, spec_parm = DECL_CHAIN (spec_parm))
9783 TREE_VEC_ELT (parmvec, i) = spec_parm;
9784 TREE_VEC_ELT (parmtypevec, i) = TREE_TYPE (spec_parm);
9787 /* Build the argument packs. */
9788 SET_ARGUMENT_PACK_ARGS (argpack, parmvec);
9789 SET_ARGUMENT_PACK_ARGS (argtypepack, parmtypevec);
9790 TREE_TYPE (argpack) = argtypepack;
9791 *spec_p = spec_parm;
9793 return argpack;
9796 /* Give a chain SPEC_PARM of PARM_DECLs, pack them into a
9797 NONTYPE_ARGUMENT_PACK. */
9799 static tree
9800 make_fnparm_pack (tree spec_parm)
9802 return extract_fnparm_pack (NULL_TREE, &spec_parm);
9805 /* Return 1 if the Ith element of the argument pack ARG_PACK is a
9806 pack expansion with no extra args, 2 if it has extra args, or 0
9807 if it is not a pack expansion. */
9809 static int
9810 argument_pack_element_is_expansion_p (tree arg_pack, int i)
9812 tree vec = ARGUMENT_PACK_ARGS (arg_pack);
9813 if (i >= TREE_VEC_LENGTH (vec))
9814 return 0;
9815 tree elt = TREE_VEC_ELT (vec, i);
9816 if (!PACK_EXPANSION_P (elt))
9817 return 0;
9818 if (PACK_EXPANSION_EXTRA_ARGS (elt))
9819 return 2;
9820 return 1;
9824 /* Creates and return an ARGUMENT_PACK_SELECT tree node. */
9826 static tree
9827 make_argument_pack_select (tree arg_pack, unsigned index)
9829 tree aps = make_node (ARGUMENT_PACK_SELECT);
9831 ARGUMENT_PACK_SELECT_FROM_PACK (aps) = arg_pack;
9832 ARGUMENT_PACK_SELECT_INDEX (aps) = index;
9834 return aps;
9837 /* This is a subroutine of tsubst_pack_expansion.
9839 It returns TRUE if we need to use the PACK_EXPANSION_EXTRA_ARGS
9840 mechanism to store the (non complete list of) arguments of the
9841 substitution and return a non substituted pack expansion, in order
9842 to wait for when we have enough arguments to really perform the
9843 substitution. */
9845 static bool
9846 use_pack_expansion_extra_args_p (tree parm_packs,
9847 int arg_pack_len,
9848 bool has_empty_arg)
9850 /* If one pack has an expansion and another pack has a normal
9851 argument or if one pack has an empty argument and an another
9852 one hasn't then tsubst_pack_expansion cannot perform the
9853 substitution and need to fall back on the
9854 PACK_EXPANSION_EXTRA mechanism. */
9855 if (parm_packs == NULL_TREE)
9856 return false;
9857 else if (has_empty_arg)
9858 return true;
9860 bool has_expansion_arg = false;
9861 for (int i = 0 ; i < arg_pack_len; ++i)
9863 bool has_non_expansion_arg = false;
9864 for (tree parm_pack = parm_packs;
9865 parm_pack;
9866 parm_pack = TREE_CHAIN (parm_pack))
9868 tree arg = TREE_VALUE (parm_pack);
9870 int exp = argument_pack_element_is_expansion_p (arg, i);
9871 if (exp == 2)
9872 /* We can't substitute a pack expansion with extra args into
9873 our pattern. */
9874 return true;
9875 else if (exp)
9876 has_expansion_arg = true;
9877 else
9878 has_non_expansion_arg = true;
9881 if (has_expansion_arg && has_non_expansion_arg)
9882 return true;
9884 return false;
9887 /* [temp.variadic]/6 says that:
9889 The instantiation of a pack expansion [...]
9890 produces a list E1,E2, ..., En, where N is the number of elements
9891 in the pack expansion parameters.
9893 This subroutine of tsubst_pack_expansion produces one of these Ei.
9895 PATTERN is the pattern of the pack expansion. PARM_PACKS is a
9896 TREE_LIST in which each TREE_PURPOSE is a parameter pack of
9897 PATTERN, and each TREE_VALUE is its corresponding argument pack.
9898 INDEX is the index 'i' of the element Ei to produce. ARGS,
9899 COMPLAIN, and IN_DECL are the same parameters as for the
9900 tsubst_pack_expansion function.
9902 The function returns the resulting Ei upon successful completion,
9903 or error_mark_node.
9905 Note that this function possibly modifies the ARGS parameter, so
9906 it's the responsibility of the caller to restore it. */
9908 static tree
9909 gen_elem_of_pack_expansion_instantiation (tree pattern,
9910 tree parm_packs,
9911 unsigned index,
9912 tree args /* This parm gets
9913 modified. */,
9914 tsubst_flags_t complain,
9915 tree in_decl)
9917 tree t;
9918 bool ith_elem_is_expansion = false;
9920 /* For each parameter pack, change the substitution of the parameter
9921 pack to the ith argument in its argument pack, then expand the
9922 pattern. */
9923 for (tree pack = parm_packs; pack; pack = TREE_CHAIN (pack))
9925 tree parm = TREE_PURPOSE (pack);
9926 tree arg_pack = TREE_VALUE (pack);
9927 tree aps; /* instance of ARGUMENT_PACK_SELECT. */
9929 ith_elem_is_expansion |=
9930 argument_pack_element_is_expansion_p (arg_pack, index);
9932 /* Select the Ith argument from the pack. */
9933 if (TREE_CODE (parm) == PARM_DECL
9934 || TREE_CODE (parm) == FIELD_DECL)
9936 if (index == 0)
9938 aps = make_argument_pack_select (arg_pack, index);
9939 if (!mark_used (parm, complain) && !(complain & tf_error))
9940 return error_mark_node;
9941 register_local_specialization (aps, parm);
9943 else
9944 aps = retrieve_local_specialization (parm);
9946 else
9948 int idx, level;
9949 template_parm_level_and_index (parm, &level, &idx);
9951 if (index == 0)
9953 aps = make_argument_pack_select (arg_pack, index);
9954 /* Update the corresponding argument. */
9955 TMPL_ARG (args, level, idx) = aps;
9957 else
9958 /* Re-use the ARGUMENT_PACK_SELECT. */
9959 aps = TMPL_ARG (args, level, idx);
9961 ARGUMENT_PACK_SELECT_INDEX (aps) = index;
9964 /* Substitute into the PATTERN with the (possibly altered)
9965 arguments. */
9966 if (pattern == in_decl)
9967 /* Expanding a fixed parameter pack from
9968 coerce_template_parameter_pack. */
9969 t = tsubst_decl (pattern, args, complain);
9970 else if (!TYPE_P (pattern))
9971 t = tsubst_expr (pattern, args, complain, in_decl,
9972 /*integral_constant_expression_p=*/false);
9973 else
9974 t = tsubst (pattern, args, complain, in_decl);
9976 /* If the Ith argument pack element is a pack expansion, then
9977 the Ith element resulting from the substituting is going to
9978 be a pack expansion as well. */
9979 if (ith_elem_is_expansion)
9980 t = make_pack_expansion (t);
9982 return t;
9985 /* Substitute ARGS into T, which is an pack expansion
9986 (i.e. TYPE_PACK_EXPANSION or EXPR_PACK_EXPANSION). Returns a
9987 TREE_VEC with the substituted arguments, a PACK_EXPANSION_* node
9988 (if only a partial substitution could be performed) or
9989 ERROR_MARK_NODE if there was an error. */
9990 tree
9991 tsubst_pack_expansion (tree t, tree args, tsubst_flags_t complain,
9992 tree in_decl)
9994 tree pattern;
9995 tree pack, packs = NULL_TREE;
9996 bool unsubstituted_packs = false;
9997 int i, len = -1;
9998 tree result;
9999 hash_map<tree, tree> *saved_local_specializations = NULL;
10000 bool need_local_specializations = false;
10001 int levels;
10003 gcc_assert (PACK_EXPANSION_P (t));
10004 pattern = PACK_EXPANSION_PATTERN (t);
10006 /* Add in any args remembered from an earlier partial instantiation. */
10007 args = add_to_template_args (PACK_EXPANSION_EXTRA_ARGS (t), args);
10009 levels = TMPL_ARGS_DEPTH (args);
10011 /* Determine the argument packs that will instantiate the parameter
10012 packs used in the expansion expression. While we're at it,
10013 compute the number of arguments to be expanded and make sure it
10014 is consistent. */
10015 for (pack = PACK_EXPANSION_PARAMETER_PACKS (t); pack;
10016 pack = TREE_CHAIN (pack))
10018 tree parm_pack = TREE_VALUE (pack);
10019 tree arg_pack = NULL_TREE;
10020 tree orig_arg = NULL_TREE;
10021 int level = 0;
10023 if (TREE_CODE (parm_pack) == BASES)
10025 if (BASES_DIRECT (parm_pack))
10026 return calculate_direct_bases (tsubst_expr (BASES_TYPE (parm_pack),
10027 args, complain, in_decl, false));
10028 else
10029 return calculate_bases (tsubst_expr (BASES_TYPE (parm_pack),
10030 args, complain, in_decl, false));
10032 if (TREE_CODE (parm_pack) == PARM_DECL)
10034 if (PACK_EXPANSION_LOCAL_P (t))
10035 arg_pack = retrieve_local_specialization (parm_pack);
10036 else
10038 /* We can't rely on local_specializations for a parameter
10039 name used later in a function declaration (such as in a
10040 late-specified return type). Even if it exists, it might
10041 have the wrong value for a recursive call. Just make a
10042 dummy decl, since it's only used for its type. */
10043 arg_pack = tsubst_decl (parm_pack, args, complain);
10044 if (arg_pack && DECL_PACK_P (arg_pack))
10045 /* Partial instantiation of the parm_pack, we can't build
10046 up an argument pack yet. */
10047 arg_pack = NULL_TREE;
10048 else
10049 arg_pack = make_fnparm_pack (arg_pack);
10050 need_local_specializations = true;
10053 else if (TREE_CODE (parm_pack) == FIELD_DECL)
10054 arg_pack = tsubst_copy (parm_pack, args, complain, in_decl);
10055 else
10057 int idx;
10058 template_parm_level_and_index (parm_pack, &level, &idx);
10060 if (level <= levels)
10061 arg_pack = TMPL_ARG (args, level, idx);
10064 orig_arg = arg_pack;
10065 if (arg_pack && TREE_CODE (arg_pack) == ARGUMENT_PACK_SELECT)
10066 arg_pack = ARGUMENT_PACK_SELECT_FROM_PACK (arg_pack);
10068 if (arg_pack && !ARGUMENT_PACK_P (arg_pack))
10069 /* This can only happen if we forget to expand an argument
10070 pack somewhere else. Just return an error, silently. */
10072 result = make_tree_vec (1);
10073 TREE_VEC_ELT (result, 0) = error_mark_node;
10074 return result;
10077 if (arg_pack)
10079 int my_len =
10080 TREE_VEC_LENGTH (ARGUMENT_PACK_ARGS (arg_pack));
10082 /* Don't bother trying to do a partial substitution with
10083 incomplete packs; we'll try again after deduction. */
10084 if (ARGUMENT_PACK_INCOMPLETE_P (arg_pack))
10085 return t;
10087 if (len < 0)
10088 len = my_len;
10089 else if (len != my_len)
10091 if (!(complain & tf_error))
10092 /* Fail quietly. */;
10093 else if (TREE_CODE (t) == TYPE_PACK_EXPANSION)
10094 error ("mismatched argument pack lengths while expanding "
10095 "%<%T%>",
10096 pattern);
10097 else
10098 error ("mismatched argument pack lengths while expanding "
10099 "%<%E%>",
10100 pattern);
10101 return error_mark_node;
10104 /* Keep track of the parameter packs and their corresponding
10105 argument packs. */
10106 packs = tree_cons (parm_pack, arg_pack, packs);
10107 TREE_TYPE (packs) = orig_arg;
10109 else
10111 /* We can't substitute for this parameter pack. We use a flag as
10112 well as the missing_level counter because function parameter
10113 packs don't have a level. */
10114 unsubstituted_packs = true;
10118 /* If the expansion is just T..., return the matching argument pack. */
10119 if (!unsubstituted_packs
10120 && TREE_PURPOSE (packs) == pattern)
10122 tree args = ARGUMENT_PACK_ARGS (TREE_VALUE (packs));
10123 if (TREE_CODE (t) == TYPE_PACK_EXPANSION
10124 || pack_expansion_args_count (args))
10125 return args;
10126 /* Otherwise use the normal path so we get convert_from_reference. */
10129 /* We cannot expand this expansion expression, because we don't have
10130 all of the argument packs we need. */
10131 if (use_pack_expansion_extra_args_p (packs, len, unsubstituted_packs))
10133 /* We got some full packs, but we can't substitute them in until we
10134 have values for all the packs. So remember these until then. */
10136 t = make_pack_expansion (pattern);
10137 PACK_EXPANSION_EXTRA_ARGS (t) = args;
10138 return t;
10140 else if (unsubstituted_packs)
10142 /* There were no real arguments, we're just replacing a parameter
10143 pack with another version of itself. Substitute into the
10144 pattern and return a PACK_EXPANSION_*. The caller will need to
10145 deal with that. */
10146 if (TREE_CODE (t) == EXPR_PACK_EXPANSION)
10147 t = tsubst_expr (pattern, args, complain, in_decl,
10148 /*integral_constant_expression_p=*/false);
10149 else
10150 t = tsubst (pattern, args, complain, in_decl);
10151 t = make_pack_expansion (t);
10152 return t;
10155 gcc_assert (len >= 0);
10157 if (need_local_specializations)
10159 /* We're in a late-specified return type, so create our own local
10160 specializations map; the current map is either NULL or (in the
10161 case of recursive unification) might have bindings that we don't
10162 want to use or alter. */
10163 saved_local_specializations = local_specializations;
10164 local_specializations = new hash_map<tree, tree>;
10167 /* For each argument in each argument pack, substitute into the
10168 pattern. */
10169 result = make_tree_vec (len);
10170 for (i = 0; i < len; ++i)
10172 t = gen_elem_of_pack_expansion_instantiation (pattern, packs,
10174 args, complain,
10175 in_decl);
10176 TREE_VEC_ELT (result, i) = t;
10177 if (t == error_mark_node)
10179 result = error_mark_node;
10180 break;
10184 /* Update ARGS to restore the substitution from parameter packs to
10185 their argument packs. */
10186 for (pack = packs; pack; pack = TREE_CHAIN (pack))
10188 tree parm = TREE_PURPOSE (pack);
10190 if (TREE_CODE (parm) == PARM_DECL
10191 || TREE_CODE (parm) == FIELD_DECL)
10192 register_local_specialization (TREE_TYPE (pack), parm);
10193 else
10195 int idx, level;
10197 if (TREE_VALUE (pack) == NULL_TREE)
10198 continue;
10200 template_parm_level_and_index (parm, &level, &idx);
10202 /* Update the corresponding argument. */
10203 if (TMPL_ARGS_HAVE_MULTIPLE_LEVELS (args))
10204 TREE_VEC_ELT (TREE_VEC_ELT (args, level -1 ), idx) =
10205 TREE_TYPE (pack);
10206 else
10207 TREE_VEC_ELT (args, idx) = TREE_TYPE (pack);
10211 if (need_local_specializations)
10213 delete local_specializations;
10214 local_specializations = saved_local_specializations;
10217 return result;
10220 /* Given PARM_DECL PARM, find the corresponding PARM_DECL in the template
10221 TMPL. We do this using DECL_PARM_INDEX, which should work even with
10222 parameter packs; all parms generated from a function parameter pack will
10223 have the same DECL_PARM_INDEX. */
10225 tree
10226 get_pattern_parm (tree parm, tree tmpl)
10228 tree pattern = DECL_TEMPLATE_RESULT (tmpl);
10229 tree patparm;
10231 if (DECL_ARTIFICIAL (parm))
10233 for (patparm = DECL_ARGUMENTS (pattern);
10234 patparm; patparm = DECL_CHAIN (patparm))
10235 if (DECL_ARTIFICIAL (patparm)
10236 && DECL_NAME (parm) == DECL_NAME (patparm))
10237 break;
10239 else
10241 patparm = FUNCTION_FIRST_USER_PARM (DECL_TEMPLATE_RESULT (tmpl));
10242 patparm = chain_index (DECL_PARM_INDEX (parm)-1, patparm);
10243 gcc_assert (DECL_PARM_INDEX (patparm)
10244 == DECL_PARM_INDEX (parm));
10247 return patparm;
10250 /* Substitute ARGS into the vector or list of template arguments T. */
10252 static tree
10253 tsubst_template_args (tree t, tree args, tsubst_flags_t complain, tree in_decl)
10255 tree orig_t = t;
10256 int len, need_new = 0, i, expanded_len_adjust = 0, out;
10257 tree *elts;
10259 if (t == error_mark_node)
10260 return error_mark_node;
10262 len = TREE_VEC_LENGTH (t);
10263 elts = XALLOCAVEC (tree, len);
10265 for (i = 0; i < len; i++)
10267 tree orig_arg = TREE_VEC_ELT (t, i);
10268 tree new_arg;
10270 if (TREE_CODE (orig_arg) == TREE_VEC)
10271 new_arg = tsubst_template_args (orig_arg, args, complain, in_decl);
10272 else if (PACK_EXPANSION_P (orig_arg))
10274 /* Substitute into an expansion expression. */
10275 new_arg = tsubst_pack_expansion (orig_arg, args, complain, in_decl);
10277 if (TREE_CODE (new_arg) == TREE_VEC)
10278 /* Add to the expanded length adjustment the number of
10279 expanded arguments. We subtract one from this
10280 measurement, because the argument pack expression
10281 itself is already counted as 1 in
10282 LEN. EXPANDED_LEN_ADJUST can actually be negative, if
10283 the argument pack is empty. */
10284 expanded_len_adjust += TREE_VEC_LENGTH (new_arg) - 1;
10286 else if (ARGUMENT_PACK_P (orig_arg))
10288 /* Substitute into each of the arguments. */
10289 new_arg = TYPE_P (orig_arg)
10290 ? cxx_make_type (TREE_CODE (orig_arg))
10291 : make_node (TREE_CODE (orig_arg));
10293 SET_ARGUMENT_PACK_ARGS (
10294 new_arg,
10295 tsubst_template_args (ARGUMENT_PACK_ARGS (orig_arg),
10296 args, complain, in_decl));
10298 if (ARGUMENT_PACK_ARGS (new_arg) == error_mark_node)
10299 new_arg = error_mark_node;
10301 if (TREE_CODE (new_arg) == NONTYPE_ARGUMENT_PACK) {
10302 TREE_TYPE (new_arg) = tsubst (TREE_TYPE (orig_arg), args,
10303 complain, in_decl);
10304 TREE_CONSTANT (new_arg) = TREE_CONSTANT (orig_arg);
10306 if (TREE_TYPE (new_arg) == error_mark_node)
10307 new_arg = error_mark_node;
10310 else
10311 new_arg = tsubst_template_arg (orig_arg, args, complain, in_decl);
10313 if (new_arg == error_mark_node)
10314 return error_mark_node;
10316 elts[i] = new_arg;
10317 if (new_arg != orig_arg)
10318 need_new = 1;
10321 if (!need_new)
10322 return t;
10324 /* Make space for the expanded arguments coming from template
10325 argument packs. */
10326 t = make_tree_vec (len + expanded_len_adjust);
10327 /* ORIG_T can contain TREE_VECs. That happens if ORIG_T contains the
10328 arguments for a member template.
10329 In that case each TREE_VEC in ORIG_T represents a level of template
10330 arguments, and ORIG_T won't carry any non defaulted argument count.
10331 It will rather be the nested TREE_VECs that will carry one.
10332 In other words, ORIG_T carries a non defaulted argument count only
10333 if it doesn't contain any nested TREE_VEC. */
10334 if (NON_DEFAULT_TEMPLATE_ARGS_COUNT (orig_t))
10336 int count = GET_NON_DEFAULT_TEMPLATE_ARGS_COUNT (orig_t);
10337 count += expanded_len_adjust;
10338 SET_NON_DEFAULT_TEMPLATE_ARGS_COUNT (t, count);
10340 for (i = 0, out = 0; i < len; i++)
10342 if ((PACK_EXPANSION_P (TREE_VEC_ELT (orig_t, i))
10343 || ARGUMENT_PACK_P (TREE_VEC_ELT (orig_t, i)))
10344 && TREE_CODE (elts[i]) == TREE_VEC)
10346 int idx;
10348 /* Now expand the template argument pack "in place". */
10349 for (idx = 0; idx < TREE_VEC_LENGTH (elts[i]); idx++, out++)
10350 TREE_VEC_ELT (t, out) = TREE_VEC_ELT (elts[i], idx);
10352 else
10354 TREE_VEC_ELT (t, out) = elts[i];
10355 out++;
10359 return t;
10362 /* Return the result of substituting ARGS into the template parameters
10363 given by PARMS. If there are m levels of ARGS and m + n levels of
10364 PARMS, then the result will contain n levels of PARMS. For
10365 example, if PARMS is `template <class T> template <class U>
10366 template <T*, U, class V>' and ARGS is {{int}, {double}} then the
10367 result will be `template <int*, double, class V>'. */
10369 static tree
10370 tsubst_template_parms (tree parms, tree args, tsubst_flags_t complain)
10372 tree r = NULL_TREE;
10373 tree* new_parms;
10375 /* When substituting into a template, we must set
10376 PROCESSING_TEMPLATE_DECL as the template parameters may be
10377 dependent if they are based on one-another, and the dependency
10378 predicates are short-circuit outside of templates. */
10379 ++processing_template_decl;
10381 for (new_parms = &r;
10382 parms && TMPL_PARMS_DEPTH (parms) > TMPL_ARGS_DEPTH (args);
10383 new_parms = &(TREE_CHAIN (*new_parms)),
10384 parms = TREE_CHAIN (parms))
10386 tree new_vec =
10387 make_tree_vec (TREE_VEC_LENGTH (TREE_VALUE (parms)));
10388 int i;
10390 for (i = 0; i < TREE_VEC_LENGTH (new_vec); ++i)
10392 tree tuple;
10394 if (parms == error_mark_node)
10395 continue;
10397 tuple = TREE_VEC_ELT (TREE_VALUE (parms), i);
10399 if (tuple == error_mark_node)
10400 continue;
10402 TREE_VEC_ELT (new_vec, i) =
10403 tsubst_template_parm (tuple, args, complain);
10406 *new_parms =
10407 tree_cons (size_int (TMPL_PARMS_DEPTH (parms)
10408 - TMPL_ARGS_DEPTH (args)),
10409 new_vec, NULL_TREE);
10412 --processing_template_decl;
10414 return r;
10417 /* Return the result of substituting ARGS into one template parameter
10418 given by T. T Must be a TREE_LIST which TREE_VALUE is the template
10419 parameter and which TREE_PURPOSE is the default argument of the
10420 template parameter. */
10422 static tree
10423 tsubst_template_parm (tree t, tree args, tsubst_flags_t complain)
10425 tree default_value, parm_decl;
10427 if (args == NULL_TREE
10428 || t == NULL_TREE
10429 || t == error_mark_node)
10430 return t;
10432 gcc_assert (TREE_CODE (t) == TREE_LIST);
10434 default_value = TREE_PURPOSE (t);
10435 parm_decl = TREE_VALUE (t);
10437 parm_decl = tsubst (parm_decl, args, complain, NULL_TREE);
10438 if (TREE_CODE (parm_decl) == PARM_DECL
10439 && invalid_nontype_parm_type_p (TREE_TYPE (parm_decl), complain))
10440 parm_decl = error_mark_node;
10441 default_value = tsubst_template_arg (default_value, args,
10442 complain, NULL_TREE);
10444 return build_tree_list (default_value, parm_decl);
10447 /* Substitute the ARGS into the indicated aggregate (or enumeration)
10448 type T. If T is not an aggregate or enumeration type, it is
10449 handled as if by tsubst. IN_DECL is as for tsubst. If
10450 ENTERING_SCOPE is nonzero, T is the context for a template which
10451 we are presently tsubst'ing. Return the substituted value. */
10453 static tree
10454 tsubst_aggr_type (tree t,
10455 tree args,
10456 tsubst_flags_t complain,
10457 tree in_decl,
10458 int entering_scope)
10460 if (t == NULL_TREE)
10461 return NULL_TREE;
10463 switch (TREE_CODE (t))
10465 case RECORD_TYPE:
10466 if (TYPE_PTRMEMFUNC_P (t))
10467 return tsubst (TYPE_PTRMEMFUNC_FN_TYPE (t), args, complain, in_decl);
10469 /* Else fall through. */
10470 case ENUMERAL_TYPE:
10471 case UNION_TYPE:
10472 if (TYPE_TEMPLATE_INFO (t) && uses_template_parms (t))
10474 tree argvec;
10475 tree context;
10476 tree r;
10477 int saved_unevaluated_operand;
10478 int saved_inhibit_evaluation_warnings;
10480 /* In "sizeof(X<I>)" we need to evaluate "I". */
10481 saved_unevaluated_operand = cp_unevaluated_operand;
10482 cp_unevaluated_operand = 0;
10483 saved_inhibit_evaluation_warnings = c_inhibit_evaluation_warnings;
10484 c_inhibit_evaluation_warnings = 0;
10486 /* First, determine the context for the type we are looking
10487 up. */
10488 context = TYPE_CONTEXT (t);
10489 if (context && TYPE_P (context))
10491 context = tsubst_aggr_type (context, args, complain,
10492 in_decl, /*entering_scope=*/1);
10493 /* If context is a nested class inside a class template,
10494 it may still need to be instantiated (c++/33959). */
10495 context = complete_type (context);
10498 /* Then, figure out what arguments are appropriate for the
10499 type we are trying to find. For example, given:
10501 template <class T> struct S;
10502 template <class T, class U> void f(T, U) { S<U> su; }
10504 and supposing that we are instantiating f<int, double>,
10505 then our ARGS will be {int, double}, but, when looking up
10506 S we only want {double}. */
10507 argvec = tsubst_template_args (TYPE_TI_ARGS (t), args,
10508 complain, in_decl);
10509 if (argvec == error_mark_node)
10510 r = error_mark_node;
10511 else
10513 r = lookup_template_class (t, argvec, in_decl, context,
10514 entering_scope, complain);
10515 r = cp_build_qualified_type_real (r, cp_type_quals (t), complain);
10518 cp_unevaluated_operand = saved_unevaluated_operand;
10519 c_inhibit_evaluation_warnings = saved_inhibit_evaluation_warnings;
10521 return r;
10523 else
10524 /* This is not a template type, so there's nothing to do. */
10525 return t;
10527 default:
10528 return tsubst (t, args, complain, in_decl);
10532 /* Substitute into the default argument ARG (a default argument for
10533 FN), which has the indicated TYPE. */
10535 tree
10536 tsubst_default_argument (tree fn, tree type, tree arg, tsubst_flags_t complain)
10538 tree saved_class_ptr = NULL_TREE;
10539 tree saved_class_ref = NULL_TREE;
10540 int errs = errorcount + sorrycount;
10542 /* This can happen in invalid code. */
10543 if (TREE_CODE (arg) == DEFAULT_ARG)
10544 return arg;
10546 /* This default argument came from a template. Instantiate the
10547 default argument here, not in tsubst. In the case of
10548 something like:
10550 template <class T>
10551 struct S {
10552 static T t();
10553 void f(T = t());
10556 we must be careful to do name lookup in the scope of S<T>,
10557 rather than in the current class. */
10558 push_access_scope (fn);
10559 /* The "this" pointer is not valid in a default argument. */
10560 if (cfun)
10562 saved_class_ptr = current_class_ptr;
10563 cp_function_chain->x_current_class_ptr = NULL_TREE;
10564 saved_class_ref = current_class_ref;
10565 cp_function_chain->x_current_class_ref = NULL_TREE;
10568 push_deferring_access_checks(dk_no_deferred);
10569 /* The default argument expression may cause implicitly defined
10570 member functions to be synthesized, which will result in garbage
10571 collection. We must treat this situation as if we were within
10572 the body of function so as to avoid collecting live data on the
10573 stack. */
10574 ++function_depth;
10575 arg = tsubst_expr (arg, DECL_TI_ARGS (fn),
10576 complain, NULL_TREE,
10577 /*integral_constant_expression_p=*/false);
10578 --function_depth;
10579 pop_deferring_access_checks();
10581 /* Restore the "this" pointer. */
10582 if (cfun)
10584 cp_function_chain->x_current_class_ptr = saved_class_ptr;
10585 cp_function_chain->x_current_class_ref = saved_class_ref;
10588 if (errorcount+sorrycount > errs
10589 && (complain & tf_warning_or_error))
10590 inform (input_location,
10591 " when instantiating default argument for call to %D", fn);
10593 /* Make sure the default argument is reasonable. */
10594 arg = check_default_argument (type, arg, complain);
10596 pop_access_scope (fn);
10598 return arg;
10601 /* Substitute into all the default arguments for FN. */
10603 static void
10604 tsubst_default_arguments (tree fn, tsubst_flags_t complain)
10606 tree arg;
10607 tree tmpl_args;
10609 tmpl_args = DECL_TI_ARGS (fn);
10611 /* If this function is not yet instantiated, we certainly don't need
10612 its default arguments. */
10613 if (uses_template_parms (tmpl_args))
10614 return;
10615 /* Don't do this again for clones. */
10616 if (DECL_CLONED_FUNCTION_P (fn))
10617 return;
10619 for (arg = TYPE_ARG_TYPES (TREE_TYPE (fn));
10620 arg;
10621 arg = TREE_CHAIN (arg))
10622 if (TREE_PURPOSE (arg))
10623 TREE_PURPOSE (arg) = tsubst_default_argument (fn,
10624 TREE_VALUE (arg),
10625 TREE_PURPOSE (arg),
10626 complain);
10629 /* Substitute the ARGS into the T, which is a _DECL. Return the
10630 result of the substitution. Issue error and warning messages under
10631 control of COMPLAIN. */
10633 static tree
10634 tsubst_decl (tree t, tree args, tsubst_flags_t complain)
10636 #define RETURN(EXP) do { r = (EXP); goto out; } while(0)
10637 location_t saved_loc;
10638 tree r = NULL_TREE;
10639 tree in_decl = t;
10640 hashval_t hash = 0;
10642 /* Set the filename and linenumber to improve error-reporting. */
10643 saved_loc = input_location;
10644 input_location = DECL_SOURCE_LOCATION (t);
10646 switch (TREE_CODE (t))
10648 case TEMPLATE_DECL:
10650 /* We can get here when processing a member function template,
10651 member class template, or template template parameter. */
10652 tree decl = DECL_TEMPLATE_RESULT (t);
10653 tree spec;
10654 tree tmpl_args;
10655 tree full_args;
10657 if (DECL_TEMPLATE_TEMPLATE_PARM_P (t))
10659 /* Template template parameter is treated here. */
10660 tree new_type = tsubst (TREE_TYPE (t), args, complain, in_decl);
10661 if (new_type == error_mark_node)
10662 RETURN (error_mark_node);
10663 /* If we get a real template back, return it. This can happen in
10664 the context of most_specialized_partial_spec. */
10665 if (TREE_CODE (new_type) == TEMPLATE_DECL)
10666 return new_type;
10668 r = copy_decl (t);
10669 DECL_CHAIN (r) = NULL_TREE;
10670 TREE_TYPE (r) = new_type;
10671 DECL_TEMPLATE_RESULT (r)
10672 = build_decl (DECL_SOURCE_LOCATION (decl),
10673 TYPE_DECL, DECL_NAME (decl), new_type);
10674 DECL_TEMPLATE_PARMS (r)
10675 = tsubst_template_parms (DECL_TEMPLATE_PARMS (t), args,
10676 complain);
10677 TYPE_NAME (new_type) = r;
10678 break;
10681 /* We might already have an instance of this template.
10682 The ARGS are for the surrounding class type, so the
10683 full args contain the tsubst'd args for the context,
10684 plus the innermost args from the template decl. */
10685 tmpl_args = DECL_CLASS_TEMPLATE_P (t)
10686 ? CLASSTYPE_TI_ARGS (TREE_TYPE (t))
10687 : DECL_TI_ARGS (DECL_TEMPLATE_RESULT (t));
10688 /* Because this is a template, the arguments will still be
10689 dependent, even after substitution. If
10690 PROCESSING_TEMPLATE_DECL is not set, the dependency
10691 predicates will short-circuit. */
10692 ++processing_template_decl;
10693 full_args = tsubst_template_args (tmpl_args, args,
10694 complain, in_decl);
10695 --processing_template_decl;
10696 if (full_args == error_mark_node)
10697 RETURN (error_mark_node);
10699 /* If this is a default template template argument,
10700 tsubst might not have changed anything. */
10701 if (full_args == tmpl_args)
10702 RETURN (t);
10704 hash = hash_tmpl_and_args (t, full_args);
10705 spec = retrieve_specialization (t, full_args, hash);
10706 if (spec != NULL_TREE)
10708 r = spec;
10709 break;
10712 /* Make a new template decl. It will be similar to the
10713 original, but will record the current template arguments.
10714 We also create a new function declaration, which is just
10715 like the old one, but points to this new template, rather
10716 than the old one. */
10717 r = copy_decl (t);
10718 gcc_assert (DECL_LANG_SPECIFIC (r) != 0);
10719 DECL_CHAIN (r) = NULL_TREE;
10721 DECL_TEMPLATE_INFO (r) = build_template_info (t, args);
10723 if (TREE_CODE (decl) == TYPE_DECL
10724 && !TYPE_DECL_ALIAS_P (decl))
10726 tree new_type;
10727 ++processing_template_decl;
10728 new_type = tsubst (TREE_TYPE (t), args, complain, in_decl);
10729 --processing_template_decl;
10730 if (new_type == error_mark_node)
10731 RETURN (error_mark_node);
10733 TREE_TYPE (r) = new_type;
10734 /* For a partial specialization, we need to keep pointing to
10735 the primary template. */
10736 if (!DECL_TEMPLATE_SPECIALIZATION (t))
10737 CLASSTYPE_TI_TEMPLATE (new_type) = r;
10738 DECL_TEMPLATE_RESULT (r) = TYPE_MAIN_DECL (new_type);
10739 DECL_TI_ARGS (r) = CLASSTYPE_TI_ARGS (new_type);
10740 DECL_CONTEXT (r) = TYPE_CONTEXT (new_type);
10742 else
10744 tree new_decl;
10745 ++processing_template_decl;
10746 new_decl = tsubst (decl, args, complain, in_decl);
10747 --processing_template_decl;
10748 if (new_decl == error_mark_node)
10749 RETURN (error_mark_node);
10751 DECL_TEMPLATE_RESULT (r) = new_decl;
10752 DECL_TI_TEMPLATE (new_decl) = r;
10753 TREE_TYPE (r) = TREE_TYPE (new_decl);
10754 DECL_TI_ARGS (r) = DECL_TI_ARGS (new_decl);
10755 DECL_CONTEXT (r) = DECL_CONTEXT (new_decl);
10758 SET_DECL_IMPLICIT_INSTANTIATION (r);
10759 DECL_TEMPLATE_INSTANTIATIONS (r) = NULL_TREE;
10760 DECL_TEMPLATE_SPECIALIZATIONS (r) = NULL_TREE;
10762 /* The template parameters for this new template are all the
10763 template parameters for the old template, except the
10764 outermost level of parameters. */
10765 DECL_TEMPLATE_PARMS (r)
10766 = tsubst_template_parms (DECL_TEMPLATE_PARMS (t), args,
10767 complain);
10769 if (PRIMARY_TEMPLATE_P (t))
10770 DECL_PRIMARY_TEMPLATE (r) = r;
10772 if (TREE_CODE (decl) != TYPE_DECL && TREE_CODE (decl) != VAR_DECL)
10773 /* Record this non-type partial instantiation. */
10774 register_specialization (r, t,
10775 DECL_TI_ARGS (DECL_TEMPLATE_RESULT (r)),
10776 false, hash);
10778 break;
10780 case FUNCTION_DECL:
10782 tree ctx;
10783 tree argvec = NULL_TREE;
10784 tree *friends;
10785 tree gen_tmpl;
10786 tree type;
10787 int member;
10788 int args_depth;
10789 int parms_depth;
10791 /* Nobody should be tsubst'ing into non-template functions. */
10792 gcc_assert (DECL_TEMPLATE_INFO (t) != NULL_TREE);
10794 if (TREE_CODE (DECL_TI_TEMPLATE (t)) == TEMPLATE_DECL)
10796 tree spec;
10797 bool dependent_p;
10799 /* If T is not dependent, just return it. We have to
10800 increment PROCESSING_TEMPLATE_DECL because
10801 value_dependent_expression_p assumes that nothing is
10802 dependent when PROCESSING_TEMPLATE_DECL is zero. */
10803 ++processing_template_decl;
10804 dependent_p = value_dependent_expression_p (t);
10805 --processing_template_decl;
10806 if (!dependent_p)
10807 RETURN (t);
10809 /* Calculate the most general template of which R is a
10810 specialization, and the complete set of arguments used to
10811 specialize R. */
10812 gen_tmpl = most_general_template (DECL_TI_TEMPLATE (t));
10813 argvec = tsubst_template_args (DECL_TI_ARGS
10814 (DECL_TEMPLATE_RESULT
10815 (DECL_TI_TEMPLATE (t))),
10816 args, complain, in_decl);
10817 if (argvec == error_mark_node)
10818 RETURN (error_mark_node);
10820 /* Check to see if we already have this specialization. */
10821 hash = hash_tmpl_and_args (gen_tmpl, argvec);
10822 spec = retrieve_specialization (gen_tmpl, argvec, hash);
10824 if (spec)
10826 r = spec;
10827 break;
10830 /* We can see more levels of arguments than parameters if
10831 there was a specialization of a member template, like
10832 this:
10834 template <class T> struct S { template <class U> void f(); }
10835 template <> template <class U> void S<int>::f(U);
10837 Here, we'll be substituting into the specialization,
10838 because that's where we can find the code we actually
10839 want to generate, but we'll have enough arguments for
10840 the most general template.
10842 We also deal with the peculiar case:
10844 template <class T> struct S {
10845 template <class U> friend void f();
10847 template <class U> void f() {}
10848 template S<int>;
10849 template void f<double>();
10851 Here, the ARGS for the instantiation of will be {int,
10852 double}. But, we only need as many ARGS as there are
10853 levels of template parameters in CODE_PATTERN. We are
10854 careful not to get fooled into reducing the ARGS in
10855 situations like:
10857 template <class T> struct S { template <class U> void f(U); }
10858 template <class T> template <> void S<T>::f(int) {}
10860 which we can spot because the pattern will be a
10861 specialization in this case. */
10862 args_depth = TMPL_ARGS_DEPTH (args);
10863 parms_depth =
10864 TMPL_PARMS_DEPTH (DECL_TEMPLATE_PARMS (DECL_TI_TEMPLATE (t)));
10865 if (args_depth > parms_depth
10866 && !DECL_TEMPLATE_SPECIALIZATION (t))
10867 args = get_innermost_template_args (args, parms_depth);
10869 else
10871 /* This special case arises when we have something like this:
10873 template <class T> struct S {
10874 friend void f<int>(int, double);
10877 Here, the DECL_TI_TEMPLATE for the friend declaration
10878 will be an IDENTIFIER_NODE. We are being called from
10879 tsubst_friend_function, and we want only to create a
10880 new decl (R) with appropriate types so that we can call
10881 determine_specialization. */
10882 gen_tmpl = NULL_TREE;
10885 if (DECL_CLASS_SCOPE_P (t))
10887 if (DECL_NAME (t) == constructor_name (DECL_CONTEXT (t)))
10888 member = 2;
10889 else
10890 member = 1;
10891 ctx = tsubst_aggr_type (DECL_CONTEXT (t), args,
10892 complain, t, /*entering_scope=*/1);
10894 else
10896 member = 0;
10897 ctx = DECL_CONTEXT (t);
10899 type = tsubst (TREE_TYPE (t), args, complain, in_decl);
10900 if (type == error_mark_node)
10901 RETURN (error_mark_node);
10903 /* If we hit excessive deduction depth, the type is bogus even if
10904 it isn't error_mark_node, so don't build a decl. */
10905 if (excessive_deduction_depth)
10906 RETURN (error_mark_node);
10908 /* We do NOT check for matching decls pushed separately at this
10909 point, as they may not represent instantiations of this
10910 template, and in any case are considered separate under the
10911 discrete model. */
10912 r = copy_decl (t);
10913 DECL_USE_TEMPLATE (r) = 0;
10914 TREE_TYPE (r) = type;
10915 /* Clear out the mangled name and RTL for the instantiation. */
10916 SET_DECL_ASSEMBLER_NAME (r, NULL_TREE);
10917 SET_DECL_RTL (r, NULL);
10918 /* Leave DECL_INITIAL set on deleted instantiations. */
10919 if (!DECL_DELETED_FN (r))
10920 DECL_INITIAL (r) = NULL_TREE;
10921 DECL_CONTEXT (r) = ctx;
10923 /* OpenMP UDRs have the only argument a reference to the declared
10924 type. We want to diagnose if the declared type is a reference,
10925 which is invalid, but as references to references are usually
10926 quietly merged, diagnose it here. */
10927 if (DECL_OMP_DECLARE_REDUCTION_P (t))
10929 tree argtype
10930 = TREE_TYPE (TREE_VALUE (TYPE_ARG_TYPES (TREE_TYPE (t))));
10931 argtype = tsubst (argtype, args, complain, in_decl);
10932 if (TREE_CODE (argtype) == REFERENCE_TYPE)
10933 error_at (DECL_SOURCE_LOCATION (t),
10934 "reference type %qT in "
10935 "%<#pragma omp declare reduction%>", argtype);
10936 if (strchr (IDENTIFIER_POINTER (DECL_NAME (t)), '~') == NULL)
10937 DECL_NAME (r) = omp_reduction_id (ERROR_MARK, DECL_NAME (t),
10938 argtype);
10941 if (member && DECL_CONV_FN_P (r))
10942 /* Type-conversion operator. Reconstruct the name, in
10943 case it's the name of one of the template's parameters. */
10944 DECL_NAME (r) = mangle_conv_op_name_for_type (TREE_TYPE (type));
10946 DECL_ARGUMENTS (r) = tsubst (DECL_ARGUMENTS (t), args,
10947 complain, t);
10948 DECL_RESULT (r) = NULL_TREE;
10950 TREE_STATIC (r) = 0;
10951 TREE_PUBLIC (r) = TREE_PUBLIC (t);
10952 DECL_EXTERNAL (r) = 1;
10953 /* If this is an instantiation of a function with internal
10954 linkage, we already know what object file linkage will be
10955 assigned to the instantiation. */
10956 DECL_INTERFACE_KNOWN (r) = !TREE_PUBLIC (r);
10957 DECL_DEFER_OUTPUT (r) = 0;
10958 DECL_CHAIN (r) = NULL_TREE;
10959 DECL_PENDING_INLINE_INFO (r) = 0;
10960 DECL_PENDING_INLINE_P (r) = 0;
10961 DECL_SAVED_TREE (r) = NULL_TREE;
10962 DECL_STRUCT_FUNCTION (r) = NULL;
10963 TREE_USED (r) = 0;
10964 /* We'll re-clone as appropriate in instantiate_template. */
10965 DECL_CLONED_FUNCTION (r) = NULL_TREE;
10967 /* If we aren't complaining now, return on error before we register
10968 the specialization so that we'll complain eventually. */
10969 if ((complain & tf_error) == 0
10970 && IDENTIFIER_OPNAME_P (DECL_NAME (r))
10971 && !grok_op_properties (r, /*complain=*/false))
10972 RETURN (error_mark_node);
10974 /* Set up the DECL_TEMPLATE_INFO for R. There's no need to do
10975 this in the special friend case mentioned above where
10976 GEN_TMPL is NULL. */
10977 if (gen_tmpl)
10979 DECL_TEMPLATE_INFO (r)
10980 = build_template_info (gen_tmpl, argvec);
10981 SET_DECL_IMPLICIT_INSTANTIATION (r);
10983 tree new_r
10984 = register_specialization (r, gen_tmpl, argvec, false, hash);
10985 if (new_r != r)
10986 /* We instantiated this while substituting into
10987 the type earlier (template/friend54.C). */
10988 RETURN (new_r);
10990 /* We're not supposed to instantiate default arguments
10991 until they are called, for a template. But, for a
10992 declaration like:
10994 template <class T> void f ()
10995 { extern void g(int i = T()); }
10997 we should do the substitution when the template is
10998 instantiated. We handle the member function case in
10999 instantiate_class_template since the default arguments
11000 might refer to other members of the class. */
11001 if (!member
11002 && !PRIMARY_TEMPLATE_P (gen_tmpl)
11003 && !uses_template_parms (argvec))
11004 tsubst_default_arguments (r, complain);
11006 else
11007 DECL_TEMPLATE_INFO (r) = NULL_TREE;
11009 /* Copy the list of befriending classes. */
11010 for (friends = &DECL_BEFRIENDING_CLASSES (r);
11011 *friends;
11012 friends = &TREE_CHAIN (*friends))
11014 *friends = copy_node (*friends);
11015 TREE_VALUE (*friends) = tsubst (TREE_VALUE (*friends),
11016 args, complain,
11017 in_decl);
11020 if (DECL_CONSTRUCTOR_P (r) || DECL_DESTRUCTOR_P (r))
11022 maybe_retrofit_in_chrg (r);
11023 if (DECL_CONSTRUCTOR_P (r))
11024 grok_ctor_properties (ctx, r);
11025 if (DECL_INHERITED_CTOR_BASE (r))
11026 deduce_inheriting_ctor (r);
11027 /* If this is an instantiation of a member template, clone it.
11028 If it isn't, that'll be handled by
11029 clone_constructors_and_destructors. */
11030 if (PRIMARY_TEMPLATE_P (gen_tmpl))
11031 clone_function_decl (r, /*update_method_vec_p=*/0);
11033 else if ((complain & tf_error) != 0
11034 && IDENTIFIER_OPNAME_P (DECL_NAME (r))
11035 && !grok_op_properties (r, /*complain=*/true))
11036 RETURN (error_mark_node);
11038 if (DECL_FRIEND_P (t) && DECL_FRIEND_CONTEXT (t))
11039 SET_DECL_FRIEND_CONTEXT (r,
11040 tsubst (DECL_FRIEND_CONTEXT (t),
11041 args, complain, in_decl));
11043 /* Possibly limit visibility based on template args. */
11044 DECL_VISIBILITY (r) = VISIBILITY_DEFAULT;
11045 if (DECL_VISIBILITY_SPECIFIED (t))
11047 DECL_VISIBILITY_SPECIFIED (r) = 0;
11048 DECL_ATTRIBUTES (r)
11049 = remove_attribute ("visibility", DECL_ATTRIBUTES (r));
11051 determine_visibility (r);
11052 if (DECL_DEFAULTED_OUTSIDE_CLASS_P (r)
11053 && !processing_template_decl)
11054 defaulted_late_check (r);
11056 apply_late_template_attributes (&r, DECL_ATTRIBUTES (r), 0,
11057 args, complain, in_decl);
11059 break;
11061 case PARM_DECL:
11063 tree type = NULL_TREE;
11064 int i, len = 1;
11065 tree expanded_types = NULL_TREE;
11066 tree prev_r = NULL_TREE;
11067 tree first_r = NULL_TREE;
11069 if (DECL_PACK_P (t))
11071 /* If there is a local specialization that isn't a
11072 parameter pack, it means that we're doing a "simple"
11073 substitution from inside tsubst_pack_expansion. Just
11074 return the local specialization (which will be a single
11075 parm). */
11076 tree spec = retrieve_local_specialization (t);
11077 if (spec
11078 && TREE_CODE (spec) == PARM_DECL
11079 && TREE_CODE (TREE_TYPE (spec)) != TYPE_PACK_EXPANSION)
11080 RETURN (spec);
11082 /* Expand the TYPE_PACK_EXPANSION that provides the types for
11083 the parameters in this function parameter pack. */
11084 expanded_types = tsubst_pack_expansion (TREE_TYPE (t), args,
11085 complain, in_decl);
11086 if (TREE_CODE (expanded_types) == TREE_VEC)
11088 len = TREE_VEC_LENGTH (expanded_types);
11090 /* Zero-length parameter packs are boring. Just substitute
11091 into the chain. */
11092 if (len == 0)
11093 RETURN (tsubst (TREE_CHAIN (t), args, complain,
11094 TREE_CHAIN (t)));
11096 else
11098 /* All we did was update the type. Make a note of that. */
11099 type = expanded_types;
11100 expanded_types = NULL_TREE;
11104 /* Loop through all of the parameters we'll build. When T is
11105 a function parameter pack, LEN is the number of expanded
11106 types in EXPANDED_TYPES; otherwise, LEN is 1. */
11107 r = NULL_TREE;
11108 for (i = 0; i < len; ++i)
11110 prev_r = r;
11111 r = copy_node (t);
11112 if (DECL_TEMPLATE_PARM_P (t))
11113 SET_DECL_TEMPLATE_PARM_P (r);
11115 if (expanded_types)
11116 /* We're on the Ith parameter of the function parameter
11117 pack. */
11119 /* Get the Ith type. */
11120 type = TREE_VEC_ELT (expanded_types, i);
11122 /* Rename the parameter to include the index. */
11123 DECL_NAME (r)
11124 = make_ith_pack_parameter_name (DECL_NAME (r), i);
11126 else if (!type)
11127 /* We're dealing with a normal parameter. */
11128 type = tsubst (TREE_TYPE (t), args, complain, in_decl);
11130 type = type_decays_to (type);
11131 TREE_TYPE (r) = type;
11132 cp_apply_type_quals_to_decl (cp_type_quals (type), r);
11134 if (DECL_INITIAL (r))
11136 if (TREE_CODE (DECL_INITIAL (r)) != TEMPLATE_PARM_INDEX)
11137 DECL_INITIAL (r) = TREE_TYPE (r);
11138 else
11139 DECL_INITIAL (r) = tsubst (DECL_INITIAL (r), args,
11140 complain, in_decl);
11143 DECL_CONTEXT (r) = NULL_TREE;
11145 if (!DECL_TEMPLATE_PARM_P (r))
11146 DECL_ARG_TYPE (r) = type_passed_as (type);
11148 apply_late_template_attributes (&r, DECL_ATTRIBUTES (r), 0,
11149 args, complain, in_decl);
11151 /* Keep track of the first new parameter we
11152 generate. That's what will be returned to the
11153 caller. */
11154 if (!first_r)
11155 first_r = r;
11157 /* Build a proper chain of parameters when substituting
11158 into a function parameter pack. */
11159 if (prev_r)
11160 DECL_CHAIN (prev_r) = r;
11163 /* If cp_unevaluated_operand is set, we're just looking for a
11164 single dummy parameter, so don't keep going. */
11165 if (DECL_CHAIN (t) && !cp_unevaluated_operand)
11166 DECL_CHAIN (r) = tsubst (DECL_CHAIN (t), args,
11167 complain, DECL_CHAIN (t));
11169 /* FIRST_R contains the start of the chain we've built. */
11170 r = first_r;
11172 break;
11174 case FIELD_DECL:
11176 tree type = NULL_TREE;
11177 tree vec = NULL_TREE;
11178 tree expanded_types = NULL_TREE;
11179 int len = 1;
11181 if (PACK_EXPANSION_P (TREE_TYPE (t)))
11183 /* This field is a lambda capture pack. Return a TREE_VEC of
11184 the expanded fields to instantiate_class_template_1 and
11185 store them in the specializations hash table as a
11186 NONTYPE_ARGUMENT_PACK so that tsubst_copy can find them. */
11187 expanded_types = tsubst_pack_expansion (TREE_TYPE (t), args,
11188 complain, in_decl);
11189 if (TREE_CODE (expanded_types) == TREE_VEC)
11191 len = TREE_VEC_LENGTH (expanded_types);
11192 vec = make_tree_vec (len);
11194 else
11196 /* All we did was update the type. Make a note of that. */
11197 type = expanded_types;
11198 expanded_types = NULL_TREE;
11202 for (int i = 0; i < len; ++i)
11204 r = copy_decl (t);
11205 if (expanded_types)
11207 type = TREE_VEC_ELT (expanded_types, i);
11208 DECL_NAME (r)
11209 = make_ith_pack_parameter_name (DECL_NAME (r), i);
11211 else if (!type)
11212 type = tsubst (TREE_TYPE (t), args, complain, in_decl);
11214 if (type == error_mark_node)
11215 RETURN (error_mark_node);
11216 TREE_TYPE (r) = type;
11217 cp_apply_type_quals_to_decl (cp_type_quals (type), r);
11219 if (DECL_C_BIT_FIELD (r))
11220 /* For bit-fields, DECL_INITIAL gives the number of bits. For
11221 non-bit-fields DECL_INITIAL is a non-static data member
11222 initializer, which gets deferred instantiation. */
11223 DECL_INITIAL (r)
11224 = tsubst_expr (DECL_INITIAL (t), args,
11225 complain, in_decl,
11226 /*integral_constant_expression_p=*/true);
11227 else if (DECL_INITIAL (t))
11229 /* Set up DECL_TEMPLATE_INFO so that we can get at the
11230 NSDMI in perform_member_init. Still set DECL_INITIAL
11231 so that we know there is one. */
11232 DECL_INITIAL (r) = void_node;
11233 gcc_assert (DECL_LANG_SPECIFIC (r) == NULL);
11234 retrofit_lang_decl (r);
11235 DECL_TEMPLATE_INFO (r) = build_template_info (t, args);
11237 /* We don't have to set DECL_CONTEXT here; it is set by
11238 finish_member_declaration. */
11239 DECL_CHAIN (r) = NULL_TREE;
11241 apply_late_template_attributes (&r, DECL_ATTRIBUTES (r), 0,
11242 args, complain, in_decl);
11244 if (vec)
11245 TREE_VEC_ELT (vec, i) = r;
11248 if (vec)
11250 r = vec;
11251 tree pack = make_node (NONTYPE_ARGUMENT_PACK);
11252 tree tpack = cxx_make_type (TYPE_ARGUMENT_PACK);
11253 SET_ARGUMENT_PACK_ARGS (pack, vec);
11254 SET_ARGUMENT_PACK_ARGS (tpack, expanded_types);
11255 TREE_TYPE (pack) = tpack;
11256 register_specialization (pack, t, args, false, 0);
11259 break;
11261 case USING_DECL:
11262 /* We reach here only for member using decls. We also need to check
11263 uses_template_parms because DECL_DEPENDENT_P is not set for a
11264 using-declaration that designates a member of the current
11265 instantiation (c++/53549). */
11266 if (DECL_DEPENDENT_P (t)
11267 || uses_template_parms (USING_DECL_SCOPE (t)))
11269 tree inst_scope = tsubst_copy (USING_DECL_SCOPE (t), args,
11270 complain, in_decl);
11271 tree name = tsubst_copy (DECL_NAME (t), args, complain, in_decl);
11272 r = do_class_using_decl (inst_scope, name);
11273 if (!r)
11274 r = error_mark_node;
11275 else
11277 TREE_PROTECTED (r) = TREE_PROTECTED (t);
11278 TREE_PRIVATE (r) = TREE_PRIVATE (t);
11281 else
11283 r = copy_node (t);
11284 DECL_CHAIN (r) = NULL_TREE;
11286 break;
11288 case TYPE_DECL:
11289 case VAR_DECL:
11291 tree argvec = NULL_TREE;
11292 tree gen_tmpl = NULL_TREE;
11293 tree spec;
11294 tree tmpl = NULL_TREE;
11295 tree ctx;
11296 tree type = NULL_TREE;
11297 bool local_p;
11299 if (TREE_TYPE (t) == error_mark_node)
11300 RETURN (error_mark_node);
11302 if (TREE_CODE (t) == TYPE_DECL
11303 && t == TYPE_MAIN_DECL (TREE_TYPE (t)))
11305 /* If this is the canonical decl, we don't have to
11306 mess with instantiations, and often we can't (for
11307 typename, template type parms and such). Note that
11308 TYPE_NAME is not correct for the above test if
11309 we've copied the type for a typedef. */
11310 type = tsubst (TREE_TYPE (t), args, complain, in_decl);
11311 if (type == error_mark_node)
11312 RETURN (error_mark_node);
11313 r = TYPE_NAME (type);
11314 break;
11317 /* Check to see if we already have the specialization we
11318 need. */
11319 spec = NULL_TREE;
11320 if (DECL_CLASS_SCOPE_P (t) || DECL_NAMESPACE_SCOPE_P (t))
11322 /* T is a static data member or namespace-scope entity.
11323 We have to substitute into namespace-scope variables
11324 (not just variable templates) because of cases like:
11326 template <class T> void f() { extern T t; }
11328 where the entity referenced is not known until
11329 instantiation time. */
11330 local_p = false;
11331 ctx = DECL_CONTEXT (t);
11332 if (DECL_CLASS_SCOPE_P (t))
11334 ctx = tsubst_aggr_type (ctx, args,
11335 complain,
11336 in_decl, /*entering_scope=*/1);
11337 /* If CTX is unchanged, then T is in fact the
11338 specialization we want. That situation occurs when
11339 referencing a static data member within in its own
11340 class. We can use pointer equality, rather than
11341 same_type_p, because DECL_CONTEXT is always
11342 canonical... */
11343 if (ctx == DECL_CONTEXT (t)
11344 /* ... unless T is a member template; in which
11345 case our caller can be willing to create a
11346 specialization of that template represented
11347 by T. */
11348 && !(DECL_TI_TEMPLATE (t)
11349 && DECL_MEMBER_TEMPLATE_P (DECL_TI_TEMPLATE (t))))
11350 spec = t;
11353 if (!spec)
11355 tmpl = DECL_TI_TEMPLATE (t);
11356 gen_tmpl = most_general_template (tmpl);
11357 argvec = tsubst (DECL_TI_ARGS (t), args, complain, in_decl);
11358 if (argvec != error_mark_node)
11359 argvec = (coerce_innermost_template_parms
11360 (DECL_TEMPLATE_PARMS (gen_tmpl),
11361 argvec, t, complain,
11362 /*all*/true, /*defarg*/true));
11363 if (argvec == error_mark_node)
11364 RETURN (error_mark_node);
11365 hash = hash_tmpl_and_args (gen_tmpl, argvec);
11366 spec = retrieve_specialization (gen_tmpl, argvec, hash);
11369 else
11371 /* A local variable. */
11372 local_p = true;
11373 /* Subsequent calls to pushdecl will fill this in. */
11374 ctx = NULL_TREE;
11375 spec = retrieve_local_specialization (t);
11377 /* If we already have the specialization we need, there is
11378 nothing more to do. */
11379 if (spec)
11381 r = spec;
11382 break;
11385 /* Create a new node for the specialization we need. */
11386 r = copy_decl (t);
11387 if (type == NULL_TREE)
11389 if (is_typedef_decl (t))
11390 type = DECL_ORIGINAL_TYPE (t);
11391 else
11392 type = TREE_TYPE (t);
11393 if (VAR_P (t)
11394 && VAR_HAD_UNKNOWN_BOUND (t)
11395 && type != error_mark_node)
11396 type = strip_array_domain (type);
11397 type = tsubst (type, args, complain, in_decl);
11399 if (VAR_P (r))
11401 /* Even if the original location is out of scope, the
11402 newly substituted one is not. */
11403 DECL_DEAD_FOR_LOCAL (r) = 0;
11404 DECL_INITIALIZED_P (r) = 0;
11405 DECL_TEMPLATE_INSTANTIATED (r) = 0;
11406 if (type == error_mark_node)
11407 RETURN (error_mark_node);
11408 if (TREE_CODE (type) == FUNCTION_TYPE)
11410 /* It may seem that this case cannot occur, since:
11412 typedef void f();
11413 void g() { f x; }
11415 declares a function, not a variable. However:
11417 typedef void f();
11418 template <typename T> void g() { T t; }
11419 template void g<f>();
11421 is an attempt to declare a variable with function
11422 type. */
11423 error ("variable %qD has function type",
11424 /* R is not yet sufficiently initialized, so we
11425 just use its name. */
11426 DECL_NAME (r));
11427 RETURN (error_mark_node);
11429 type = complete_type (type);
11430 /* Wait until cp_finish_decl to set this again, to handle
11431 circular dependency (template/instantiate6.C). */
11432 DECL_INITIALIZED_BY_CONSTANT_EXPRESSION_P (r) = 0;
11433 type = check_var_type (DECL_NAME (r), type);
11435 if (DECL_HAS_VALUE_EXPR_P (t))
11437 tree ve = DECL_VALUE_EXPR (t);
11438 ve = tsubst_expr (ve, args, complain, in_decl,
11439 /*constant_expression_p=*/false);
11440 if (REFERENCE_REF_P (ve))
11442 gcc_assert (TREE_CODE (type) == REFERENCE_TYPE);
11443 ve = TREE_OPERAND (ve, 0);
11445 SET_DECL_VALUE_EXPR (r, ve);
11447 if (TREE_STATIC (r) || DECL_EXTERNAL (r))
11448 set_decl_tls_model (r, decl_tls_model (t));
11450 else if (DECL_SELF_REFERENCE_P (t))
11451 SET_DECL_SELF_REFERENCE_P (r);
11452 TREE_TYPE (r) = type;
11453 cp_apply_type_quals_to_decl (cp_type_quals (type), r);
11454 DECL_CONTEXT (r) = ctx;
11455 /* Clear out the mangled name and RTL for the instantiation. */
11456 SET_DECL_ASSEMBLER_NAME (r, NULL_TREE);
11457 if (CODE_CONTAINS_STRUCT (TREE_CODE (t), TS_DECL_WRTL))
11458 SET_DECL_RTL (r, NULL);
11459 /* The initializer must not be expanded until it is required;
11460 see [temp.inst]. */
11461 DECL_INITIAL (r) = NULL_TREE;
11462 if (CODE_CONTAINS_STRUCT (TREE_CODE (t), TS_DECL_WRTL))
11463 SET_DECL_RTL (r, NULL);
11464 DECL_SIZE (r) = DECL_SIZE_UNIT (r) = 0;
11465 if (VAR_P (r))
11467 /* Possibly limit visibility based on template args. */
11468 DECL_VISIBILITY (r) = VISIBILITY_DEFAULT;
11469 if (DECL_VISIBILITY_SPECIFIED (t))
11471 DECL_VISIBILITY_SPECIFIED (r) = 0;
11472 DECL_ATTRIBUTES (r)
11473 = remove_attribute ("visibility", DECL_ATTRIBUTES (r));
11475 determine_visibility (r);
11478 if (!local_p)
11480 /* A static data member declaration is always marked
11481 external when it is declared in-class, even if an
11482 initializer is present. We mimic the non-template
11483 processing here. */
11484 DECL_EXTERNAL (r) = 1;
11485 if (DECL_NAMESPACE_SCOPE_P (t))
11486 DECL_NOT_REALLY_EXTERN (r) = 1;
11488 DECL_TEMPLATE_INFO (r) = build_template_info (tmpl, argvec);
11489 SET_DECL_IMPLICIT_INSTANTIATION (r);
11490 register_specialization (r, gen_tmpl, argvec, false, hash);
11492 else if (!cp_unevaluated_operand)
11493 register_local_specialization (r, t);
11495 DECL_CHAIN (r) = NULL_TREE;
11497 apply_late_template_attributes (&r, DECL_ATTRIBUTES (r),
11498 /*flags=*/0,
11499 args, complain, in_decl);
11501 /* Preserve a typedef that names a type. */
11502 if (is_typedef_decl (r))
11504 DECL_ORIGINAL_TYPE (r) = NULL_TREE;
11505 set_underlying_type (r);
11508 layout_decl (r, 0);
11510 break;
11512 default:
11513 gcc_unreachable ();
11515 #undef RETURN
11517 out:
11518 /* Restore the file and line information. */
11519 input_location = saved_loc;
11521 return r;
11524 /* Substitute into the ARG_TYPES of a function type.
11525 If END is a TREE_CHAIN, leave it and any following types
11526 un-substituted. */
11528 static tree
11529 tsubst_arg_types (tree arg_types,
11530 tree args,
11531 tree end,
11532 tsubst_flags_t complain,
11533 tree in_decl)
11535 tree remaining_arg_types;
11536 tree type = NULL_TREE;
11537 int i = 1;
11538 tree expanded_args = NULL_TREE;
11539 tree default_arg;
11541 if (!arg_types || arg_types == void_list_node || arg_types == end)
11542 return arg_types;
11544 remaining_arg_types = tsubst_arg_types (TREE_CHAIN (arg_types),
11545 args, end, complain, in_decl);
11546 if (remaining_arg_types == error_mark_node)
11547 return error_mark_node;
11549 if (PACK_EXPANSION_P (TREE_VALUE (arg_types)))
11551 /* For a pack expansion, perform substitution on the
11552 entire expression. Later on, we'll handle the arguments
11553 one-by-one. */
11554 expanded_args = tsubst_pack_expansion (TREE_VALUE (arg_types),
11555 args, complain, in_decl);
11557 if (TREE_CODE (expanded_args) == TREE_VEC)
11558 /* So that we'll spin through the parameters, one by one. */
11559 i = TREE_VEC_LENGTH (expanded_args);
11560 else
11562 /* We only partially substituted into the parameter
11563 pack. Our type is TYPE_PACK_EXPANSION. */
11564 type = expanded_args;
11565 expanded_args = NULL_TREE;
11569 while (i > 0) {
11570 --i;
11572 if (expanded_args)
11573 type = TREE_VEC_ELT (expanded_args, i);
11574 else if (!type)
11575 type = tsubst (TREE_VALUE (arg_types), args, complain, in_decl);
11577 if (type == error_mark_node)
11578 return error_mark_node;
11579 if (VOID_TYPE_P (type))
11581 if (complain & tf_error)
11583 error ("invalid parameter type %qT", type);
11584 if (in_decl)
11585 error ("in declaration %q+D", in_decl);
11587 return error_mark_node;
11589 /* DR 657. */
11590 if (abstract_virtuals_error_sfinae (ACU_PARM, type, complain))
11591 return error_mark_node;
11593 /* Do array-to-pointer, function-to-pointer conversion, and ignore
11594 top-level qualifiers as required. */
11595 type = cv_unqualified (type_decays_to (type));
11597 /* We do not substitute into default arguments here. The standard
11598 mandates that they be instantiated only when needed, which is
11599 done in build_over_call. */
11600 default_arg = TREE_PURPOSE (arg_types);
11602 if (default_arg && TREE_CODE (default_arg) == DEFAULT_ARG)
11604 /* We've instantiated a template before its default arguments
11605 have been parsed. This can happen for a nested template
11606 class, and is not an error unless we require the default
11607 argument in a call of this function. */
11608 remaining_arg_types =
11609 tree_cons (default_arg, type, remaining_arg_types);
11610 vec_safe_push (DEFARG_INSTANTIATIONS(default_arg), remaining_arg_types);
11612 else
11613 remaining_arg_types =
11614 hash_tree_cons (default_arg, type, remaining_arg_types);
11617 return remaining_arg_types;
11620 /* Substitute into a FUNCTION_TYPE or METHOD_TYPE. This routine does
11621 *not* handle the exception-specification for FNTYPE, because the
11622 initial substitution of explicitly provided template parameters
11623 during argument deduction forbids substitution into the
11624 exception-specification:
11626 [temp.deduct]
11628 All references in the function type of the function template to the
11629 corresponding template parameters are replaced by the specified tem-
11630 plate argument values. If a substitution in a template parameter or
11631 in the function type of the function template results in an invalid
11632 type, type deduction fails. [Note: The equivalent substitution in
11633 exception specifications is done only when the function is instanti-
11634 ated, at which point a program is ill-formed if the substitution
11635 results in an invalid type.] */
11637 static tree
11638 tsubst_function_type (tree t,
11639 tree args,
11640 tsubst_flags_t complain,
11641 tree in_decl)
11643 tree return_type;
11644 tree arg_types = NULL_TREE;
11645 tree fntype;
11647 /* The TYPE_CONTEXT is not used for function/method types. */
11648 gcc_assert (TYPE_CONTEXT (t) == NULL_TREE);
11650 /* DR 1227: Mixing immediate and non-immediate contexts in deduction
11651 failure. */
11652 bool late_return_type_p = TYPE_HAS_LATE_RETURN_TYPE (t);
11654 if (late_return_type_p)
11656 /* Substitute the argument types. */
11657 arg_types = tsubst_arg_types (TYPE_ARG_TYPES (t), args, NULL_TREE,
11658 complain, in_decl);
11659 if (arg_types == error_mark_node)
11660 return error_mark_node;
11662 tree save_ccp = current_class_ptr;
11663 tree save_ccr = current_class_ref;
11664 tree this_type = (TREE_CODE (t) == METHOD_TYPE
11665 ? TREE_TYPE (TREE_VALUE (arg_types)) : NULL_TREE);
11666 bool do_inject = this_type && CLASS_TYPE_P (this_type);
11667 if (do_inject)
11669 /* DR 1207: 'this' is in scope in the trailing return type. */
11670 inject_this_parameter (this_type, cp_type_quals (this_type));
11673 /* Substitute the return type. */
11674 return_type = tsubst (TREE_TYPE (t), args, complain, in_decl);
11676 if (do_inject)
11678 current_class_ptr = save_ccp;
11679 current_class_ref = save_ccr;
11682 else
11683 /* Substitute the return type. */
11684 return_type = tsubst (TREE_TYPE (t), args, complain, in_decl);
11686 if (return_type == error_mark_node)
11687 return error_mark_node;
11688 /* DR 486 clarifies that creation of a function type with an
11689 invalid return type is a deduction failure. */
11690 if (TREE_CODE (return_type) == ARRAY_TYPE
11691 || TREE_CODE (return_type) == FUNCTION_TYPE)
11693 if (complain & tf_error)
11695 if (TREE_CODE (return_type) == ARRAY_TYPE)
11696 error ("function returning an array");
11697 else
11698 error ("function returning a function");
11700 return error_mark_node;
11702 /* And DR 657. */
11703 if (abstract_virtuals_error_sfinae (ACU_RETURN, return_type, complain))
11704 return error_mark_node;
11706 if (!late_return_type_p)
11708 /* Substitute the argument types. */
11709 arg_types = tsubst_arg_types (TYPE_ARG_TYPES (t), args, NULL_TREE,
11710 complain, in_decl);
11711 if (arg_types == error_mark_node)
11712 return error_mark_node;
11715 /* Construct a new type node and return it. */
11716 if (TREE_CODE (t) == FUNCTION_TYPE)
11718 fntype = build_function_type (return_type, arg_types);
11719 fntype = apply_memfn_quals (fntype,
11720 type_memfn_quals (t),
11721 type_memfn_rqual (t));
11723 else
11725 tree r = TREE_TYPE (TREE_VALUE (arg_types));
11726 /* Don't pick up extra function qualifiers from the basetype. */
11727 r = cp_build_qualified_type_real (r, type_memfn_quals (t), complain);
11728 if (! MAYBE_CLASS_TYPE_P (r))
11730 /* [temp.deduct]
11732 Type deduction may fail for any of the following
11733 reasons:
11735 -- Attempting to create "pointer to member of T" when T
11736 is not a class type. */
11737 if (complain & tf_error)
11738 error ("creating pointer to member function of non-class type %qT",
11740 return error_mark_node;
11743 fntype = build_method_type_directly (r, return_type,
11744 TREE_CHAIN (arg_types));
11745 fntype = build_ref_qualified_type (fntype, type_memfn_rqual (t));
11747 fntype = cp_build_type_attribute_variant (fntype, TYPE_ATTRIBUTES (t));
11749 if (late_return_type_p)
11750 TYPE_HAS_LATE_RETURN_TYPE (fntype) = 1;
11752 return fntype;
11755 /* FNTYPE is a FUNCTION_TYPE or METHOD_TYPE. Substitute the template
11756 ARGS into that specification, and return the substituted
11757 specification. If there is no specification, return NULL_TREE. */
11759 static tree
11760 tsubst_exception_specification (tree fntype,
11761 tree args,
11762 tsubst_flags_t complain,
11763 tree in_decl,
11764 bool defer_ok)
11766 tree specs;
11767 tree new_specs;
11769 specs = TYPE_RAISES_EXCEPTIONS (fntype);
11770 new_specs = NULL_TREE;
11771 if (specs && TREE_PURPOSE (specs))
11773 /* A noexcept-specifier. */
11774 tree expr = TREE_PURPOSE (specs);
11775 if (TREE_CODE (expr) == INTEGER_CST)
11776 new_specs = expr;
11777 else if (defer_ok)
11779 /* Defer instantiation of noexcept-specifiers to avoid
11780 excessive instantiations (c++/49107). */
11781 new_specs = make_node (DEFERRED_NOEXCEPT);
11782 if (DEFERRED_NOEXCEPT_SPEC_P (specs))
11784 /* We already partially instantiated this member template,
11785 so combine the new args with the old. */
11786 DEFERRED_NOEXCEPT_PATTERN (new_specs)
11787 = DEFERRED_NOEXCEPT_PATTERN (expr);
11788 DEFERRED_NOEXCEPT_ARGS (new_specs)
11789 = add_to_template_args (DEFERRED_NOEXCEPT_ARGS (expr), args);
11791 else
11793 DEFERRED_NOEXCEPT_PATTERN (new_specs) = expr;
11794 DEFERRED_NOEXCEPT_ARGS (new_specs) = args;
11797 else
11798 new_specs = tsubst_copy_and_build
11799 (expr, args, complain, in_decl, /*function_p=*/false,
11800 /*integral_constant_expression_p=*/true);
11801 new_specs = build_noexcept_spec (new_specs, complain);
11803 else if (specs)
11805 if (! TREE_VALUE (specs))
11806 new_specs = specs;
11807 else
11808 while (specs)
11810 tree spec;
11811 int i, len = 1;
11812 tree expanded_specs = NULL_TREE;
11814 if (PACK_EXPANSION_P (TREE_VALUE (specs)))
11816 /* Expand the pack expansion type. */
11817 expanded_specs = tsubst_pack_expansion (TREE_VALUE (specs),
11818 args, complain,
11819 in_decl);
11821 if (expanded_specs == error_mark_node)
11822 return error_mark_node;
11823 else if (TREE_CODE (expanded_specs) == TREE_VEC)
11824 len = TREE_VEC_LENGTH (expanded_specs);
11825 else
11827 /* We're substituting into a member template, so
11828 we got a TYPE_PACK_EXPANSION back. Add that
11829 expansion and move on. */
11830 gcc_assert (TREE_CODE (expanded_specs)
11831 == TYPE_PACK_EXPANSION);
11832 new_specs = add_exception_specifier (new_specs,
11833 expanded_specs,
11834 complain);
11835 specs = TREE_CHAIN (specs);
11836 continue;
11840 for (i = 0; i < len; ++i)
11842 if (expanded_specs)
11843 spec = TREE_VEC_ELT (expanded_specs, i);
11844 else
11845 spec = tsubst (TREE_VALUE (specs), args, complain, in_decl);
11846 if (spec == error_mark_node)
11847 return spec;
11848 new_specs = add_exception_specifier (new_specs, spec,
11849 complain);
11852 specs = TREE_CHAIN (specs);
11855 return new_specs;
11858 /* Take the tree structure T and replace template parameters used
11859 therein with the argument vector ARGS. IN_DECL is an associated
11860 decl for diagnostics. If an error occurs, returns ERROR_MARK_NODE.
11861 Issue error and warning messages under control of COMPLAIN. Note
11862 that we must be relatively non-tolerant of extensions here, in
11863 order to preserve conformance; if we allow substitutions that
11864 should not be allowed, we may allow argument deductions that should
11865 not succeed, and therefore report ambiguous overload situations
11866 where there are none. In theory, we could allow the substitution,
11867 but indicate that it should have failed, and allow our caller to
11868 make sure that the right thing happens, but we don't try to do this
11869 yet.
11871 This function is used for dealing with types, decls and the like;
11872 for expressions, use tsubst_expr or tsubst_copy. */
11874 tree
11875 tsubst (tree t, tree args, tsubst_flags_t complain, tree in_decl)
11877 enum tree_code code;
11878 tree type, r = NULL_TREE;
11880 if (t == NULL_TREE || t == error_mark_node
11881 || t == integer_type_node
11882 || t == void_type_node
11883 || t == char_type_node
11884 || t == unknown_type_node
11885 || TREE_CODE (t) == NAMESPACE_DECL
11886 || TREE_CODE (t) == TRANSLATION_UNIT_DECL)
11887 return t;
11889 if (DECL_P (t))
11890 return tsubst_decl (t, args, complain);
11892 if (args == NULL_TREE)
11893 return t;
11895 code = TREE_CODE (t);
11897 if (code == IDENTIFIER_NODE)
11898 type = IDENTIFIER_TYPE_VALUE (t);
11899 else
11900 type = TREE_TYPE (t);
11902 gcc_assert (type != unknown_type_node);
11904 /* Reuse typedefs. We need to do this to handle dependent attributes,
11905 such as attribute aligned. */
11906 if (TYPE_P (t)
11907 && typedef_variant_p (t))
11909 tree decl = TYPE_NAME (t);
11911 if (alias_template_specialization_p (t))
11913 /* DECL represents an alias template and we want to
11914 instantiate it. */
11915 tree tmpl = most_general_template (DECL_TI_TEMPLATE (decl));
11916 tree gen_args = tsubst (DECL_TI_ARGS (decl), args, complain, in_decl);
11917 r = instantiate_alias_template (tmpl, gen_args, complain);
11919 else if (DECL_CLASS_SCOPE_P (decl)
11920 && CLASSTYPE_TEMPLATE_INFO (DECL_CONTEXT (decl))
11921 && uses_template_parms (DECL_CONTEXT (decl)))
11923 tree tmpl = most_general_template (DECL_TI_TEMPLATE (decl));
11924 tree gen_args = tsubst (DECL_TI_ARGS (decl), args, complain, in_decl);
11925 r = retrieve_specialization (tmpl, gen_args, 0);
11927 else if (DECL_FUNCTION_SCOPE_P (decl)
11928 && DECL_TEMPLATE_INFO (DECL_CONTEXT (decl))
11929 && uses_template_parms (DECL_TI_ARGS (DECL_CONTEXT (decl))))
11930 r = retrieve_local_specialization (decl);
11931 else
11932 /* The typedef is from a non-template context. */
11933 return t;
11935 if (r)
11937 r = TREE_TYPE (r);
11938 r = cp_build_qualified_type_real
11939 (r, cp_type_quals (t) | cp_type_quals (r),
11940 complain | tf_ignore_bad_quals);
11941 return r;
11943 else
11945 /* We don't have an instantiation yet, so drop the typedef. */
11946 int quals = cp_type_quals (t);
11947 t = DECL_ORIGINAL_TYPE (decl);
11948 t = cp_build_qualified_type_real (t, quals,
11949 complain | tf_ignore_bad_quals);
11953 if (type
11954 && code != TYPENAME_TYPE
11955 && code != TEMPLATE_TYPE_PARM
11956 && code != IDENTIFIER_NODE
11957 && code != FUNCTION_TYPE
11958 && code != METHOD_TYPE)
11959 type = tsubst (type, args, complain, in_decl);
11960 if (type == error_mark_node)
11961 return error_mark_node;
11963 switch (code)
11965 case RECORD_TYPE:
11966 case UNION_TYPE:
11967 case ENUMERAL_TYPE:
11968 return tsubst_aggr_type (t, args, complain, in_decl,
11969 /*entering_scope=*/0);
11971 case ERROR_MARK:
11972 case IDENTIFIER_NODE:
11973 case VOID_TYPE:
11974 case REAL_TYPE:
11975 case COMPLEX_TYPE:
11976 case VECTOR_TYPE:
11977 case BOOLEAN_TYPE:
11978 case NULLPTR_TYPE:
11979 case LANG_TYPE:
11980 return t;
11982 case INTEGER_TYPE:
11983 if (t == integer_type_node)
11984 return t;
11986 if (TREE_CODE (TYPE_MIN_VALUE (t)) == INTEGER_CST
11987 && TREE_CODE (TYPE_MAX_VALUE (t)) == INTEGER_CST)
11988 return t;
11991 tree max, omax = TREE_OPERAND (TYPE_MAX_VALUE (t), 0);
11993 max = tsubst_expr (omax, args, complain, in_decl,
11994 /*integral_constant_expression_p=*/false);
11996 /* Fix up type of the magic NOP_EXPR with TREE_SIDE_EFFECTS if
11997 needed. */
11998 if (TREE_CODE (max) == NOP_EXPR
11999 && TREE_SIDE_EFFECTS (omax)
12000 && !TREE_TYPE (max))
12001 TREE_TYPE (max) = TREE_TYPE (TREE_OPERAND (max, 0));
12003 /* If we're in a partial instantiation, preserve the magic NOP_EXPR
12004 with TREE_SIDE_EFFECTS that indicates this is not an integral
12005 constant expression. */
12006 if (processing_template_decl
12007 && TREE_SIDE_EFFECTS (omax) && TREE_CODE (omax) == NOP_EXPR)
12009 gcc_assert (TREE_CODE (max) == NOP_EXPR);
12010 TREE_SIDE_EFFECTS (max) = 1;
12013 return compute_array_index_type (NULL_TREE, max, complain);
12016 case TEMPLATE_TYPE_PARM:
12017 case TEMPLATE_TEMPLATE_PARM:
12018 case BOUND_TEMPLATE_TEMPLATE_PARM:
12019 case TEMPLATE_PARM_INDEX:
12021 int idx;
12022 int level;
12023 int levels;
12024 tree arg = NULL_TREE;
12026 r = NULL_TREE;
12028 gcc_assert (TREE_VEC_LENGTH (args) > 0);
12029 template_parm_level_and_index (t, &level, &idx);
12031 levels = TMPL_ARGS_DEPTH (args);
12032 if (level <= levels)
12034 arg = TMPL_ARG (args, level, idx);
12036 if (arg && TREE_CODE (arg) == ARGUMENT_PACK_SELECT)
12038 /* See through ARGUMENT_PACK_SELECT arguments. */
12039 arg = ARGUMENT_PACK_SELECT_ARG (arg);
12040 /* If the selected argument is an expansion E, that most
12041 likely means we were called from
12042 gen_elem_of_pack_expansion_instantiation during the
12043 substituting of pack an argument pack (which Ith
12044 element is a pack expansion, where I is
12045 ARGUMENT_PACK_SELECT_INDEX) into a pack expansion.
12046 In this case, the Ith element resulting from this
12047 substituting is going to be a pack expansion, which
12048 pattern is the pattern of E. Let's return the
12049 pattern of E, and
12050 gen_elem_of_pack_expansion_instantiation will
12051 build the resulting pack expansion from it. */
12052 if (PACK_EXPANSION_P (arg))
12054 /* Make sure we aren't throwing away arg info. */
12055 gcc_assert (!PACK_EXPANSION_EXTRA_ARGS (arg));
12056 arg = PACK_EXPANSION_PATTERN (arg);
12061 if (arg == error_mark_node)
12062 return error_mark_node;
12063 else if (arg != NULL_TREE)
12065 if (ARGUMENT_PACK_P (arg))
12066 /* If ARG is an argument pack, we don't actually want to
12067 perform a substitution here, because substitutions
12068 for argument packs are only done
12069 element-by-element. We can get to this point when
12070 substituting the type of a non-type template
12071 parameter pack, when that type actually contains
12072 template parameter packs from an outer template, e.g.,
12074 template<typename... Types> struct A {
12075 template<Types... Values> struct B { };
12076 }; */
12077 return t;
12079 if (code == TEMPLATE_TYPE_PARM)
12081 int quals;
12082 gcc_assert (TYPE_P (arg));
12084 quals = cp_type_quals (arg) | cp_type_quals (t);
12086 return cp_build_qualified_type_real
12087 (arg, quals, complain | tf_ignore_bad_quals);
12089 else if (code == BOUND_TEMPLATE_TEMPLATE_PARM)
12091 /* We are processing a type constructed from a
12092 template template parameter. */
12093 tree argvec = tsubst (TYPE_TI_ARGS (t),
12094 args, complain, in_decl);
12095 if (argvec == error_mark_node)
12096 return error_mark_node;
12098 gcc_assert (TREE_CODE (arg) == TEMPLATE_TEMPLATE_PARM
12099 || TREE_CODE (arg) == TEMPLATE_DECL
12100 || TREE_CODE (arg) == UNBOUND_CLASS_TEMPLATE);
12102 if (TREE_CODE (arg) == UNBOUND_CLASS_TEMPLATE)
12103 /* Consider this code:
12105 template <template <class> class Template>
12106 struct Internal {
12107 template <class Arg> using Bind = Template<Arg>;
12110 template <template <class> class Template, class Arg>
12111 using Instantiate = Template<Arg>; //#0
12113 template <template <class> class Template,
12114 class Argument>
12115 using Bind =
12116 Instantiate<Internal<Template>::template Bind,
12117 Argument>; //#1
12119 When #1 is parsed, the
12120 BOUND_TEMPLATE_TEMPLATE_PARM representing the
12121 parameter `Template' in #0 matches the
12122 UNBOUND_CLASS_TEMPLATE representing the argument
12123 `Internal<Template>::template Bind'; We then want
12124 to assemble the type `Bind<Argument>' that can't
12125 be fully created right now, because
12126 `Internal<Template>' not being complete, the Bind
12127 template cannot be looked up in that context. So
12128 we need to "store" `Bind<Argument>' for later
12129 when the context of Bind becomes complete. Let's
12130 store that in a TYPENAME_TYPE. */
12131 return make_typename_type (TYPE_CONTEXT (arg),
12132 build_nt (TEMPLATE_ID_EXPR,
12133 TYPE_IDENTIFIER (arg),
12134 argvec),
12135 typename_type,
12136 complain);
12138 /* We can get a TEMPLATE_TEMPLATE_PARM here when we
12139 are resolving nested-types in the signature of a
12140 member function templates. Otherwise ARG is a
12141 TEMPLATE_DECL and is the real template to be
12142 instantiated. */
12143 if (TREE_CODE (arg) == TEMPLATE_TEMPLATE_PARM)
12144 arg = TYPE_NAME (arg);
12146 r = lookup_template_class (arg,
12147 argvec, in_decl,
12148 DECL_CONTEXT (arg),
12149 /*entering_scope=*/0,
12150 complain);
12151 return cp_build_qualified_type_real
12152 (r, cp_type_quals (t) | cp_type_quals (r), complain);
12154 else
12155 /* TEMPLATE_TEMPLATE_PARM or TEMPLATE_PARM_INDEX. */
12156 return convert_from_reference (unshare_expr (arg));
12159 if (level == 1)
12160 /* This can happen during the attempted tsubst'ing in
12161 unify. This means that we don't yet have any information
12162 about the template parameter in question. */
12163 return t;
12165 /* Early in template argument deduction substitution, we don't
12166 want to reduce the level of 'auto', or it will be confused
12167 with a normal template parm in subsequent deduction. */
12168 if (is_auto (t) && (complain & tf_partial))
12169 return t;
12171 /* If we get here, we must have been looking at a parm for a
12172 more deeply nested template. Make a new version of this
12173 template parameter, but with a lower level. */
12174 switch (code)
12176 case TEMPLATE_TYPE_PARM:
12177 case TEMPLATE_TEMPLATE_PARM:
12178 case BOUND_TEMPLATE_TEMPLATE_PARM:
12179 if (cp_type_quals (t))
12181 r = tsubst (TYPE_MAIN_VARIANT (t), args, complain, in_decl);
12182 r = cp_build_qualified_type_real
12183 (r, cp_type_quals (t),
12184 complain | (code == TEMPLATE_TYPE_PARM
12185 ? tf_ignore_bad_quals : 0));
12187 else
12189 r = copy_type (t);
12190 TEMPLATE_TYPE_PARM_INDEX (r)
12191 = reduce_template_parm_level (TEMPLATE_TYPE_PARM_INDEX (t),
12192 r, levels, args, complain);
12193 TYPE_STUB_DECL (r) = TYPE_NAME (r) = TEMPLATE_TYPE_DECL (r);
12194 TYPE_MAIN_VARIANT (r) = r;
12195 TYPE_POINTER_TO (r) = NULL_TREE;
12196 TYPE_REFERENCE_TO (r) = NULL_TREE;
12198 if (TREE_CODE (r) == TEMPLATE_TEMPLATE_PARM)
12199 /* We have reduced the level of the template
12200 template parameter, but not the levels of its
12201 template parameters, so canonical_type_parameter
12202 will not be able to find the canonical template
12203 template parameter for this level. Thus, we
12204 require structural equality checking to compare
12205 TEMPLATE_TEMPLATE_PARMs. */
12206 SET_TYPE_STRUCTURAL_EQUALITY (r);
12207 else if (TYPE_STRUCTURAL_EQUALITY_P (t))
12208 SET_TYPE_STRUCTURAL_EQUALITY (r);
12209 else
12210 TYPE_CANONICAL (r) = canonical_type_parameter (r);
12212 if (code == BOUND_TEMPLATE_TEMPLATE_PARM)
12214 tree argvec = tsubst (TYPE_TI_ARGS (t), args,
12215 complain, in_decl);
12216 if (argvec == error_mark_node)
12217 return error_mark_node;
12219 TEMPLATE_TEMPLATE_PARM_TEMPLATE_INFO (r)
12220 = build_template_info (TYPE_TI_TEMPLATE (t), argvec);
12223 break;
12225 case TEMPLATE_PARM_INDEX:
12226 r = reduce_template_parm_level (t, type, levels, args, complain);
12227 break;
12229 default:
12230 gcc_unreachable ();
12233 return r;
12236 case TREE_LIST:
12238 tree purpose, value, chain;
12240 if (t == void_list_node)
12241 return t;
12243 purpose = TREE_PURPOSE (t);
12244 if (purpose)
12246 purpose = tsubst (purpose, args, complain, in_decl);
12247 if (purpose == error_mark_node)
12248 return error_mark_node;
12250 value = TREE_VALUE (t);
12251 if (value)
12253 value = tsubst (value, args, complain, in_decl);
12254 if (value == error_mark_node)
12255 return error_mark_node;
12257 chain = TREE_CHAIN (t);
12258 if (chain && chain != void_type_node)
12260 chain = tsubst (chain, args, complain, in_decl);
12261 if (chain == error_mark_node)
12262 return error_mark_node;
12264 if (purpose == TREE_PURPOSE (t)
12265 && value == TREE_VALUE (t)
12266 && chain == TREE_CHAIN (t))
12267 return t;
12268 return hash_tree_cons (purpose, value, chain);
12271 case TREE_BINFO:
12272 /* We should never be tsubsting a binfo. */
12273 gcc_unreachable ();
12275 case TREE_VEC:
12276 /* A vector of template arguments. */
12277 gcc_assert (!type);
12278 return tsubst_template_args (t, args, complain, in_decl);
12280 case POINTER_TYPE:
12281 case REFERENCE_TYPE:
12283 if (type == TREE_TYPE (t) && TREE_CODE (type) != METHOD_TYPE)
12284 return t;
12286 /* [temp.deduct]
12288 Type deduction may fail for any of the following
12289 reasons:
12291 -- Attempting to create a pointer to reference type.
12292 -- Attempting to create a reference to a reference type or
12293 a reference to void.
12295 Core issue 106 says that creating a reference to a reference
12296 during instantiation is no longer a cause for failure. We
12297 only enforce this check in strict C++98 mode. */
12298 if ((TREE_CODE (type) == REFERENCE_TYPE
12299 && (((cxx_dialect == cxx98) && flag_iso) || code != REFERENCE_TYPE))
12300 || (code == REFERENCE_TYPE && VOID_TYPE_P (type)))
12302 static location_t last_loc;
12304 /* We keep track of the last time we issued this error
12305 message to avoid spewing a ton of messages during a
12306 single bad template instantiation. */
12307 if (complain & tf_error
12308 && last_loc != input_location)
12310 if (VOID_TYPE_P (type))
12311 error ("forming reference to void");
12312 else if (code == POINTER_TYPE)
12313 error ("forming pointer to reference type %qT", type);
12314 else
12315 error ("forming reference to reference type %qT", type);
12316 last_loc = input_location;
12319 return error_mark_node;
12321 else if (TREE_CODE (type) == FUNCTION_TYPE
12322 && (type_memfn_quals (type) != TYPE_UNQUALIFIED
12323 || type_memfn_rqual (type) != REF_QUAL_NONE))
12325 if (complain & tf_error)
12327 if (code == POINTER_TYPE)
12328 error ("forming pointer to qualified function type %qT",
12329 type);
12330 else
12331 error ("forming reference to qualified function type %qT",
12332 type);
12334 return error_mark_node;
12336 else if (code == POINTER_TYPE)
12338 r = build_pointer_type (type);
12339 if (TREE_CODE (type) == METHOD_TYPE)
12340 r = build_ptrmemfunc_type (r);
12342 else if (TREE_CODE (type) == REFERENCE_TYPE)
12343 /* In C++0x, during template argument substitution, when there is an
12344 attempt to create a reference to a reference type, reference
12345 collapsing is applied as described in [14.3.1/4 temp.arg.type]:
12347 "If a template-argument for a template-parameter T names a type
12348 that is a reference to a type A, an attempt to create the type
12349 'lvalue reference to cv T' creates the type 'lvalue reference to
12350 A,' while an attempt to create the type type rvalue reference to
12351 cv T' creates the type T"
12353 r = cp_build_reference_type
12354 (TREE_TYPE (type),
12355 TYPE_REF_IS_RVALUE (t) && TYPE_REF_IS_RVALUE (type));
12356 else
12357 r = cp_build_reference_type (type, TYPE_REF_IS_RVALUE (t));
12358 r = cp_build_qualified_type_real (r, cp_type_quals (t), complain);
12360 if (r != error_mark_node)
12361 /* Will this ever be needed for TYPE_..._TO values? */
12362 layout_type (r);
12364 return r;
12366 case OFFSET_TYPE:
12368 r = tsubst (TYPE_OFFSET_BASETYPE (t), args, complain, in_decl);
12369 if (r == error_mark_node || !MAYBE_CLASS_TYPE_P (r))
12371 /* [temp.deduct]
12373 Type deduction may fail for any of the following
12374 reasons:
12376 -- Attempting to create "pointer to member of T" when T
12377 is not a class type. */
12378 if (complain & tf_error)
12379 error ("creating pointer to member of non-class type %qT", r);
12380 return error_mark_node;
12382 if (TREE_CODE (type) == REFERENCE_TYPE)
12384 if (complain & tf_error)
12385 error ("creating pointer to member reference type %qT", type);
12386 return error_mark_node;
12388 if (VOID_TYPE_P (type))
12390 if (complain & tf_error)
12391 error ("creating pointer to member of type void");
12392 return error_mark_node;
12394 gcc_assert (TREE_CODE (type) != METHOD_TYPE);
12395 if (TREE_CODE (type) == FUNCTION_TYPE)
12397 /* The type of the implicit object parameter gets its
12398 cv-qualifiers from the FUNCTION_TYPE. */
12399 tree memptr;
12400 tree method_type
12401 = build_memfn_type (type, r, type_memfn_quals (type),
12402 type_memfn_rqual (type));
12403 memptr = build_ptrmemfunc_type (build_pointer_type (method_type));
12404 return cp_build_qualified_type_real (memptr, cp_type_quals (t),
12405 complain);
12407 else
12408 return cp_build_qualified_type_real (build_ptrmem_type (r, type),
12409 cp_type_quals (t),
12410 complain);
12412 case FUNCTION_TYPE:
12413 case METHOD_TYPE:
12415 tree fntype;
12416 tree specs;
12417 fntype = tsubst_function_type (t, args, complain, in_decl);
12418 if (fntype == error_mark_node)
12419 return error_mark_node;
12421 /* Substitute the exception specification. */
12422 specs = tsubst_exception_specification (t, args, complain,
12423 in_decl, /*defer_ok*/true);
12424 if (specs == error_mark_node)
12425 return error_mark_node;
12426 if (specs)
12427 fntype = build_exception_variant (fntype, specs);
12428 return fntype;
12430 case ARRAY_TYPE:
12432 tree domain = tsubst (TYPE_DOMAIN (t), args, complain, in_decl);
12433 if (domain == error_mark_node)
12434 return error_mark_node;
12436 /* As an optimization, we avoid regenerating the array type if
12437 it will obviously be the same as T. */
12438 if (type == TREE_TYPE (t) && domain == TYPE_DOMAIN (t))
12439 return t;
12441 /* These checks should match the ones in create_array_type_for_decl.
12443 [temp.deduct]
12445 The deduction may fail for any of the following reasons:
12447 -- Attempting to create an array with an element type that
12448 is void, a function type, or a reference type, or [DR337]
12449 an abstract class type. */
12450 if (VOID_TYPE_P (type)
12451 || TREE_CODE (type) == FUNCTION_TYPE
12452 || (TREE_CODE (type) == ARRAY_TYPE
12453 && TYPE_DOMAIN (type) == NULL_TREE)
12454 || TREE_CODE (type) == REFERENCE_TYPE)
12456 if (complain & tf_error)
12457 error ("creating array of %qT", type);
12458 return error_mark_node;
12461 if (abstract_virtuals_error_sfinae (ACU_ARRAY, type, complain))
12462 return error_mark_node;
12464 r = build_cplus_array_type (type, domain);
12466 if (TYPE_USER_ALIGN (t))
12468 TYPE_ALIGN (r) = TYPE_ALIGN (t);
12469 TYPE_USER_ALIGN (r) = 1;
12472 return r;
12475 case TYPENAME_TYPE:
12477 tree ctx = tsubst_aggr_type (TYPE_CONTEXT (t), args, complain,
12478 in_decl, /*entering_scope=*/1);
12479 tree f = tsubst_copy (TYPENAME_TYPE_FULLNAME (t), args,
12480 complain, in_decl);
12482 if (ctx == error_mark_node || f == error_mark_node)
12483 return error_mark_node;
12485 if (!MAYBE_CLASS_TYPE_P (ctx))
12487 if (complain & tf_error)
12488 error ("%qT is not a class, struct, or union type", ctx);
12489 return error_mark_node;
12491 else if (!uses_template_parms (ctx) && !TYPE_BEING_DEFINED (ctx))
12493 /* Normally, make_typename_type does not require that the CTX
12494 have complete type in order to allow things like:
12496 template <class T> struct S { typename S<T>::X Y; };
12498 But, such constructs have already been resolved by this
12499 point, so here CTX really should have complete type, unless
12500 it's a partial instantiation. */
12501 ctx = complete_type (ctx);
12502 if (!COMPLETE_TYPE_P (ctx))
12504 if (complain & tf_error)
12505 cxx_incomplete_type_error (NULL_TREE, ctx);
12506 return error_mark_node;
12510 f = make_typename_type (ctx, f, typename_type,
12511 complain | tf_keep_type_decl);
12512 if (f == error_mark_node)
12513 return f;
12514 if (TREE_CODE (f) == TYPE_DECL)
12516 complain |= tf_ignore_bad_quals;
12517 f = TREE_TYPE (f);
12520 if (TREE_CODE (f) != TYPENAME_TYPE)
12522 if (TYPENAME_IS_ENUM_P (t) && TREE_CODE (f) != ENUMERAL_TYPE)
12524 if (complain & tf_error)
12525 error ("%qT resolves to %qT, which is not an enumeration type",
12526 t, f);
12527 else
12528 return error_mark_node;
12530 else if (TYPENAME_IS_CLASS_P (t) && !CLASS_TYPE_P (f))
12532 if (complain & tf_error)
12533 error ("%qT resolves to %qT, which is is not a class type",
12534 t, f);
12535 else
12536 return error_mark_node;
12540 return cp_build_qualified_type_real
12541 (f, cp_type_quals (f) | cp_type_quals (t), complain);
12544 case UNBOUND_CLASS_TEMPLATE:
12546 tree ctx = tsubst_aggr_type (TYPE_CONTEXT (t), args, complain,
12547 in_decl, /*entering_scope=*/1);
12548 tree name = TYPE_IDENTIFIER (t);
12549 tree parm_list = DECL_TEMPLATE_PARMS (TYPE_NAME (t));
12551 if (ctx == error_mark_node || name == error_mark_node)
12552 return error_mark_node;
12554 if (parm_list)
12555 parm_list = tsubst_template_parms (parm_list, args, complain);
12556 return make_unbound_class_template (ctx, name, parm_list, complain);
12559 case TYPEOF_TYPE:
12561 tree type;
12563 ++cp_unevaluated_operand;
12564 ++c_inhibit_evaluation_warnings;
12566 type = tsubst_expr (TYPEOF_TYPE_EXPR (t), args,
12567 complain, in_decl,
12568 /*integral_constant_expression_p=*/false);
12570 --cp_unevaluated_operand;
12571 --c_inhibit_evaluation_warnings;
12573 type = finish_typeof (type);
12574 return cp_build_qualified_type_real (type,
12575 cp_type_quals (t)
12576 | cp_type_quals (type),
12577 complain);
12580 case DECLTYPE_TYPE:
12582 tree type;
12584 ++cp_unevaluated_operand;
12585 ++c_inhibit_evaluation_warnings;
12587 type = tsubst_copy_and_build (DECLTYPE_TYPE_EXPR (t), args,
12588 complain|tf_decltype, in_decl,
12589 /*function_p*/false,
12590 /*integral_constant_expression*/false);
12592 --cp_unevaluated_operand;
12593 --c_inhibit_evaluation_warnings;
12595 if (DECLTYPE_FOR_LAMBDA_CAPTURE (t))
12596 type = lambda_capture_field_type (type,
12597 DECLTYPE_FOR_INIT_CAPTURE (t));
12598 else if (DECLTYPE_FOR_LAMBDA_PROXY (t))
12599 type = lambda_proxy_type (type);
12600 else
12602 bool id = DECLTYPE_TYPE_ID_EXPR_OR_MEMBER_ACCESS_P (t);
12603 if (id && TREE_CODE (DECLTYPE_TYPE_EXPR (t)) == BIT_NOT_EXPR
12604 && EXPR_P (type))
12605 /* In a template ~id could be either a complement expression
12606 or an unqualified-id naming a destructor; if instantiating
12607 it produces an expression, it's not an id-expression or
12608 member access. */
12609 id = false;
12610 type = finish_decltype_type (type, id, complain);
12612 return cp_build_qualified_type_real (type,
12613 cp_type_quals (t)
12614 | cp_type_quals (type),
12615 complain | tf_ignore_bad_quals);
12618 case UNDERLYING_TYPE:
12620 tree type = tsubst (UNDERLYING_TYPE_TYPE (t), args,
12621 complain, in_decl);
12622 return finish_underlying_type (type);
12625 case TYPE_ARGUMENT_PACK:
12626 case NONTYPE_ARGUMENT_PACK:
12628 tree r = TYPE_P (t) ? cxx_make_type (code) : make_node (code);
12629 tree packed_out =
12630 tsubst_template_args (ARGUMENT_PACK_ARGS (t),
12631 args,
12632 complain,
12633 in_decl);
12634 SET_ARGUMENT_PACK_ARGS (r, packed_out);
12636 /* For template nontype argument packs, also substitute into
12637 the type. */
12638 if (code == NONTYPE_ARGUMENT_PACK)
12639 TREE_TYPE (r) = tsubst (TREE_TYPE (t), args, complain, in_decl);
12641 return r;
12643 break;
12645 case VOID_CST:
12646 case INTEGER_CST:
12647 case REAL_CST:
12648 case STRING_CST:
12649 case PLUS_EXPR:
12650 case MINUS_EXPR:
12651 case NEGATE_EXPR:
12652 case NOP_EXPR:
12653 case INDIRECT_REF:
12654 case ADDR_EXPR:
12655 case CALL_EXPR:
12656 case ARRAY_REF:
12657 case SCOPE_REF:
12658 /* We should use one of the expression tsubsts for these codes. */
12659 gcc_unreachable ();
12661 default:
12662 sorry ("use of %qs in template", get_tree_code_name (code));
12663 return error_mark_node;
12667 /* Like tsubst_expr for a BASELINK. OBJECT_TYPE, if non-NULL, is the
12668 type of the expression on the left-hand side of the "." or "->"
12669 operator. */
12671 static tree
12672 tsubst_baselink (tree baselink, tree object_type,
12673 tree args, tsubst_flags_t complain, tree in_decl)
12675 tree name;
12676 tree qualifying_scope;
12677 tree fns;
12678 tree optype;
12679 tree template_args = 0;
12680 bool template_id_p = false;
12681 bool qualified = BASELINK_QUALIFIED_P (baselink);
12683 /* A baselink indicates a function from a base class. Both the
12684 BASELINK_ACCESS_BINFO and the base class referenced may
12685 indicate bases of the template class, rather than the
12686 instantiated class. In addition, lookups that were not
12687 ambiguous before may be ambiguous now. Therefore, we perform
12688 the lookup again. */
12689 qualifying_scope = BINFO_TYPE (BASELINK_ACCESS_BINFO (baselink));
12690 qualifying_scope = tsubst (qualifying_scope, args,
12691 complain, in_decl);
12692 fns = BASELINK_FUNCTIONS (baselink);
12693 optype = tsubst (BASELINK_OPTYPE (baselink), args, complain, in_decl);
12694 if (TREE_CODE (fns) == TEMPLATE_ID_EXPR)
12696 template_id_p = true;
12697 template_args = TREE_OPERAND (fns, 1);
12698 fns = TREE_OPERAND (fns, 0);
12699 if (template_args)
12700 template_args = tsubst_template_args (template_args, args,
12701 complain, in_decl);
12703 name = DECL_NAME (get_first_fn (fns));
12704 if (IDENTIFIER_TYPENAME_P (name))
12705 name = mangle_conv_op_name_for_type (optype);
12706 baselink = lookup_fnfields (qualifying_scope, name, /*protect=*/1);
12707 if (!baselink)
12708 return error_mark_node;
12710 /* If lookup found a single function, mark it as used at this
12711 point. (If it lookup found multiple functions the one selected
12712 later by overload resolution will be marked as used at that
12713 point.) */
12714 if (BASELINK_P (baselink))
12715 fns = BASELINK_FUNCTIONS (baselink);
12716 if (!template_id_p && !really_overloaded_fn (fns)
12717 && !mark_used (OVL_CURRENT (fns), complain) && !(complain & tf_error))
12718 return error_mark_node;
12720 /* Add back the template arguments, if present. */
12721 if (BASELINK_P (baselink) && template_id_p)
12722 BASELINK_FUNCTIONS (baselink)
12723 = build_nt (TEMPLATE_ID_EXPR,
12724 BASELINK_FUNCTIONS (baselink),
12725 template_args);
12726 /* Update the conversion operator type. */
12727 BASELINK_OPTYPE (baselink) = optype;
12729 if (!object_type)
12730 object_type = current_class_type;
12732 if (qualified)
12733 baselink = adjust_result_of_qualified_name_lookup (baselink,
12734 qualifying_scope,
12735 object_type);
12736 return baselink;
12739 /* Like tsubst_expr for a SCOPE_REF, given by QUALIFIED_ID. DONE is
12740 true if the qualified-id will be a postfix-expression in-and-of
12741 itself; false if more of the postfix-expression follows the
12742 QUALIFIED_ID. ADDRESS_P is true if the qualified-id is the operand
12743 of "&". */
12745 static tree
12746 tsubst_qualified_id (tree qualified_id, tree args,
12747 tsubst_flags_t complain, tree in_decl,
12748 bool done, bool address_p)
12750 tree expr;
12751 tree scope;
12752 tree name;
12753 bool is_template;
12754 tree template_args;
12755 location_t loc = UNKNOWN_LOCATION;
12757 gcc_assert (TREE_CODE (qualified_id) == SCOPE_REF);
12759 /* Figure out what name to look up. */
12760 name = TREE_OPERAND (qualified_id, 1);
12761 if (TREE_CODE (name) == TEMPLATE_ID_EXPR)
12763 is_template = true;
12764 loc = EXPR_LOCATION (name);
12765 template_args = TREE_OPERAND (name, 1);
12766 if (template_args)
12767 template_args = tsubst_template_args (template_args, args,
12768 complain, in_decl);
12769 name = TREE_OPERAND (name, 0);
12771 else
12773 is_template = false;
12774 template_args = NULL_TREE;
12777 /* Substitute into the qualifying scope. When there are no ARGS, we
12778 are just trying to simplify a non-dependent expression. In that
12779 case the qualifying scope may be dependent, and, in any case,
12780 substituting will not help. */
12781 scope = TREE_OPERAND (qualified_id, 0);
12782 if (args)
12784 scope = tsubst (scope, args, complain, in_decl);
12785 expr = tsubst_copy (name, args, complain, in_decl);
12787 else
12788 expr = name;
12790 if (dependent_scope_p (scope))
12792 if (is_template)
12793 expr = build_min_nt_loc (loc, TEMPLATE_ID_EXPR, expr, template_args);
12794 return build_qualified_name (NULL_TREE, scope, expr,
12795 QUALIFIED_NAME_IS_TEMPLATE (qualified_id));
12798 if (!BASELINK_P (name) && !DECL_P (expr))
12800 if (TREE_CODE (expr) == BIT_NOT_EXPR)
12802 /* A BIT_NOT_EXPR is used to represent a destructor. */
12803 if (!check_dtor_name (scope, TREE_OPERAND (expr, 0)))
12805 error ("qualifying type %qT does not match destructor name ~%qT",
12806 scope, TREE_OPERAND (expr, 0));
12807 expr = error_mark_node;
12809 else
12810 expr = lookup_qualified_name (scope, complete_dtor_identifier,
12811 /*is_type_p=*/0, false);
12813 else
12814 expr = lookup_qualified_name (scope, expr, /*is_type_p=*/0, false);
12815 if (TREE_CODE (TREE_CODE (expr) == TEMPLATE_DECL
12816 ? DECL_TEMPLATE_RESULT (expr) : expr) == TYPE_DECL)
12818 if (complain & tf_error)
12820 error ("dependent-name %qE is parsed as a non-type, but "
12821 "instantiation yields a type", qualified_id);
12822 inform (input_location, "say %<typename %E%> if a type is meant", qualified_id);
12824 return error_mark_node;
12828 if (DECL_P (expr))
12830 check_accessibility_of_qualified_id (expr, /*object_type=*/NULL_TREE,
12831 scope);
12832 /* Remember that there was a reference to this entity. */
12833 if (!mark_used (expr, complain) && !(complain & tf_error))
12834 return error_mark_node;
12837 if (expr == error_mark_node || TREE_CODE (expr) == TREE_LIST)
12839 if (complain & tf_error)
12840 qualified_name_lookup_error (scope,
12841 TREE_OPERAND (qualified_id, 1),
12842 expr, input_location);
12843 return error_mark_node;
12846 if (is_template)
12847 expr = lookup_template_function (expr, template_args);
12849 if (expr == error_mark_node && complain & tf_error)
12850 qualified_name_lookup_error (scope, TREE_OPERAND (qualified_id, 1),
12851 expr, input_location);
12852 else if (TYPE_P (scope))
12854 expr = (adjust_result_of_qualified_name_lookup
12855 (expr, scope, current_nonlambda_class_type ()));
12856 expr = (finish_qualified_id_expr
12857 (scope, expr, done, address_p && PTRMEM_OK_P (qualified_id),
12858 QUALIFIED_NAME_IS_TEMPLATE (qualified_id),
12859 /*template_arg_p=*/false, complain));
12862 /* Expressions do not generally have reference type. */
12863 if (TREE_CODE (expr) != SCOPE_REF
12864 /* However, if we're about to form a pointer-to-member, we just
12865 want the referenced member referenced. */
12866 && TREE_CODE (expr) != OFFSET_REF)
12867 expr = convert_from_reference (expr);
12869 return expr;
12872 /* tsubst the initializer for a VAR_DECL. INIT is the unsubstituted
12873 initializer, DECL is the substituted VAR_DECL. Other arguments are as
12874 for tsubst. */
12876 static tree
12877 tsubst_init (tree init, tree decl, tree args,
12878 tsubst_flags_t complain, tree in_decl)
12880 if (!init)
12881 return NULL_TREE;
12883 init = tsubst_expr (init, args, complain, in_decl, false);
12885 if (!init)
12887 /* If we had an initializer but it
12888 instantiated to nothing,
12889 value-initialize the object. This will
12890 only occur when the initializer was a
12891 pack expansion where the parameter packs
12892 used in that expansion were of length
12893 zero. */
12894 init = build_value_init (TREE_TYPE (decl),
12895 complain);
12896 if (TREE_CODE (init) == AGGR_INIT_EXPR)
12897 init = get_target_expr_sfinae (init, complain);
12900 return init;
12903 /* Like tsubst, but deals with expressions. This function just replaces
12904 template parms; to finish processing the resultant expression, use
12905 tsubst_copy_and_build or tsubst_expr. */
12907 static tree
12908 tsubst_copy (tree t, tree args, tsubst_flags_t complain, tree in_decl)
12910 enum tree_code code;
12911 tree r;
12913 if (t == NULL_TREE || t == error_mark_node || args == NULL_TREE)
12914 return t;
12916 code = TREE_CODE (t);
12918 switch (code)
12920 case PARM_DECL:
12921 r = retrieve_local_specialization (t);
12923 if (r == NULL_TREE)
12925 /* We get here for a use of 'this' in an NSDMI. */
12926 if (DECL_NAME (t) == this_identifier
12927 && current_function_decl
12928 && DECL_CONSTRUCTOR_P (current_function_decl))
12929 return current_class_ptr;
12931 /* This can happen for a parameter name used later in a function
12932 declaration (such as in a late-specified return type). Just
12933 make a dummy decl, since it's only used for its type. */
12934 gcc_assert (cp_unevaluated_operand != 0);
12935 r = tsubst_decl (t, args, complain);
12936 /* Give it the template pattern as its context; its true context
12937 hasn't been instantiated yet and this is good enough for
12938 mangling. */
12939 DECL_CONTEXT (r) = DECL_CONTEXT (t);
12942 if (TREE_CODE (r) == ARGUMENT_PACK_SELECT)
12943 r = ARGUMENT_PACK_SELECT_ARG (r);
12944 if (!mark_used (r, complain) && !(complain & tf_error))
12945 return error_mark_node;
12946 return r;
12948 case CONST_DECL:
12950 tree enum_type;
12951 tree v;
12953 if (DECL_TEMPLATE_PARM_P (t))
12954 return tsubst_copy (DECL_INITIAL (t), args, complain, in_decl);
12955 /* There is no need to substitute into namespace-scope
12956 enumerators. */
12957 if (DECL_NAMESPACE_SCOPE_P (t))
12958 return t;
12959 /* If ARGS is NULL, then T is known to be non-dependent. */
12960 if (args == NULL_TREE)
12961 return scalar_constant_value (t);
12963 /* Unfortunately, we cannot just call lookup_name here.
12964 Consider:
12966 template <int I> int f() {
12967 enum E { a = I };
12968 struct S { void g() { E e = a; } };
12971 When we instantiate f<7>::S::g(), say, lookup_name is not
12972 clever enough to find f<7>::a. */
12973 enum_type
12974 = tsubst_aggr_type (DECL_CONTEXT (t), args, complain, in_decl,
12975 /*entering_scope=*/0);
12977 for (v = TYPE_VALUES (enum_type);
12978 v != NULL_TREE;
12979 v = TREE_CHAIN (v))
12980 if (TREE_PURPOSE (v) == DECL_NAME (t))
12981 return TREE_VALUE (v);
12983 /* We didn't find the name. That should never happen; if
12984 name-lookup found it during preliminary parsing, we
12985 should find it again here during instantiation. */
12986 gcc_unreachable ();
12988 return t;
12990 case FIELD_DECL:
12991 if (PACK_EXPANSION_P (TREE_TYPE (t)))
12993 /* Check for a local specialization set up by
12994 tsubst_pack_expansion. */
12995 if (tree r = retrieve_local_specialization (t))
12997 if (TREE_CODE (r) == ARGUMENT_PACK_SELECT)
12998 r = ARGUMENT_PACK_SELECT_ARG (r);
12999 return r;
13002 /* When retrieving a capture pack from a generic lambda, remove the
13003 lambda call op's own template argument list from ARGS. Only the
13004 template arguments active for the closure type should be used to
13005 retrieve the pack specialization. */
13006 if (LAMBDA_FUNCTION_P (current_function_decl)
13007 && (template_class_depth (DECL_CONTEXT (t))
13008 != TMPL_ARGS_DEPTH (args)))
13009 args = strip_innermost_template_args (args, 1);
13011 /* Otherwise return the full NONTYPE_ARGUMENT_PACK that
13012 tsubst_decl put in the hash table. */
13013 return retrieve_specialization (t, args, 0);
13016 if (DECL_CONTEXT (t))
13018 tree ctx;
13020 ctx = tsubst_aggr_type (DECL_CONTEXT (t), args, complain, in_decl,
13021 /*entering_scope=*/1);
13022 if (ctx != DECL_CONTEXT (t))
13024 tree r = lookup_field (ctx, DECL_NAME (t), 0, false);
13025 if (!r)
13027 if (complain & tf_error)
13028 error ("using invalid field %qD", t);
13029 return error_mark_node;
13031 return r;
13035 return t;
13037 case VAR_DECL:
13038 case FUNCTION_DECL:
13039 if (DECL_LANG_SPECIFIC (t) && DECL_TEMPLATE_INFO (t))
13040 r = tsubst (t, args, complain, in_decl);
13041 else if (local_variable_p (t))
13043 r = retrieve_local_specialization (t);
13044 if (r == NULL_TREE)
13046 /* First try name lookup to find the instantiation. */
13047 r = lookup_name (DECL_NAME (t));
13048 if (r)
13050 /* Make sure that the one we found is the one we want. */
13051 tree ctx = tsubst (DECL_CONTEXT (t), args,
13052 complain, in_decl);
13053 if (ctx != DECL_CONTEXT (r))
13054 r = NULL_TREE;
13057 if (r)
13058 /* OK */;
13059 else
13061 /* This can happen for a variable used in a
13062 late-specified return type of a local lambda, or for a
13063 local static or constant. Building a new VAR_DECL
13064 should be OK in all those cases. */
13065 r = tsubst_decl (t, args, complain);
13066 if (decl_maybe_constant_var_p (r))
13068 /* We can't call cp_finish_decl, so handle the
13069 initializer by hand. */
13070 tree init = tsubst_init (DECL_INITIAL (t), r, args,
13071 complain, in_decl);
13072 if (!processing_template_decl)
13073 init = maybe_constant_init (init);
13074 if (processing_template_decl
13075 ? potential_constant_expression (init)
13076 : reduced_constant_expression_p (init))
13077 DECL_INITIALIZED_BY_CONSTANT_EXPRESSION_P (r)
13078 = TREE_CONSTANT (r) = true;
13079 DECL_INITIAL (r) = init;
13081 gcc_assert (cp_unevaluated_operand || TREE_STATIC (r)
13082 || decl_constant_var_p (r)
13083 || errorcount || sorrycount);
13084 if (!processing_template_decl)
13086 if (TREE_STATIC (r))
13087 rest_of_decl_compilation (r, toplevel_bindings_p (),
13088 at_eof);
13089 else
13090 r = process_outer_var_ref (r, complain);
13093 /* Remember this for subsequent uses. */
13094 if (local_specializations)
13095 register_local_specialization (r, t);
13098 else
13099 r = t;
13100 if (!mark_used (r, complain) && !(complain & tf_error))
13101 return error_mark_node;
13102 return r;
13104 case NAMESPACE_DECL:
13105 return t;
13107 case OVERLOAD:
13108 /* An OVERLOAD will always be a non-dependent overload set; an
13109 overload set from function scope will just be represented with an
13110 IDENTIFIER_NODE, and from class scope with a BASELINK. */
13111 gcc_assert (!uses_template_parms (t));
13112 return t;
13114 case BASELINK:
13115 return tsubst_baselink (t, current_nonlambda_class_type (),
13116 args, complain, in_decl);
13118 case TEMPLATE_DECL:
13119 if (DECL_TEMPLATE_TEMPLATE_PARM_P (t))
13120 return tsubst (TREE_TYPE (DECL_TEMPLATE_RESULT (t)),
13121 args, complain, in_decl);
13122 else if (DECL_FUNCTION_TEMPLATE_P (t) && DECL_MEMBER_TEMPLATE_P (t))
13123 return tsubst (t, args, complain, in_decl);
13124 else if (DECL_CLASS_SCOPE_P (t)
13125 && uses_template_parms (DECL_CONTEXT (t)))
13127 /* Template template argument like the following example need
13128 special treatment:
13130 template <template <class> class TT> struct C {};
13131 template <class T> struct D {
13132 template <class U> struct E {};
13133 C<E> c; // #1
13135 D<int> d; // #2
13137 We are processing the template argument `E' in #1 for
13138 the template instantiation #2. Originally, `E' is a
13139 TEMPLATE_DECL with `D<T>' as its DECL_CONTEXT. Now we
13140 have to substitute this with one having context `D<int>'. */
13142 tree context = tsubst (DECL_CONTEXT (t), args, complain, in_decl);
13143 return lookup_field (context, DECL_NAME(t), 0, false);
13145 else
13146 /* Ordinary template template argument. */
13147 return t;
13149 case CAST_EXPR:
13150 case REINTERPRET_CAST_EXPR:
13151 case CONST_CAST_EXPR:
13152 case STATIC_CAST_EXPR:
13153 case DYNAMIC_CAST_EXPR:
13154 case IMPLICIT_CONV_EXPR:
13155 case CONVERT_EXPR:
13156 case NOP_EXPR:
13158 tree type = tsubst (TREE_TYPE (t), args, complain, in_decl);
13159 tree op0 = tsubst_copy (TREE_OPERAND (t, 0), args, complain, in_decl);
13160 return build1 (code, type, op0);
13163 case SIZEOF_EXPR:
13164 if (PACK_EXPANSION_P (TREE_OPERAND (t, 0)))
13167 tree expanded, op = TREE_OPERAND (t, 0);
13168 int len = 0;
13170 if (SIZEOF_EXPR_TYPE_P (t))
13171 op = TREE_TYPE (op);
13173 ++cp_unevaluated_operand;
13174 ++c_inhibit_evaluation_warnings;
13175 /* We only want to compute the number of arguments. */
13176 expanded = tsubst_pack_expansion (op, args, complain, in_decl);
13177 --cp_unevaluated_operand;
13178 --c_inhibit_evaluation_warnings;
13180 if (TREE_CODE (expanded) == TREE_VEC)
13181 len = TREE_VEC_LENGTH (expanded);
13183 if (expanded == error_mark_node)
13184 return error_mark_node;
13185 else if (PACK_EXPANSION_P (expanded)
13186 || (TREE_CODE (expanded) == TREE_VEC
13187 && len > 0
13188 && PACK_EXPANSION_P (TREE_VEC_ELT (expanded, len-1))))
13190 if (TREE_CODE (expanded) == TREE_VEC)
13191 expanded = TREE_VEC_ELT (expanded, len - 1);
13193 if (TYPE_P (expanded))
13194 return cxx_sizeof_or_alignof_type (expanded, SIZEOF_EXPR,
13195 complain & tf_error);
13196 else
13197 return cxx_sizeof_or_alignof_expr (expanded, SIZEOF_EXPR,
13198 complain & tf_error);
13200 else
13201 return build_int_cst (size_type_node, len);
13203 if (SIZEOF_EXPR_TYPE_P (t))
13205 r = tsubst (TREE_TYPE (TREE_OPERAND (t, 0)),
13206 args, complain, in_decl);
13207 r = build1 (NOP_EXPR, r, error_mark_node);
13208 r = build1 (SIZEOF_EXPR,
13209 tsubst (TREE_TYPE (t), args, complain, in_decl), r);
13210 SIZEOF_EXPR_TYPE_P (r) = 1;
13211 return r;
13213 /* Fall through */
13215 case INDIRECT_REF:
13216 case NEGATE_EXPR:
13217 case TRUTH_NOT_EXPR:
13218 case BIT_NOT_EXPR:
13219 case ADDR_EXPR:
13220 case UNARY_PLUS_EXPR: /* Unary + */
13221 case ALIGNOF_EXPR:
13222 case AT_ENCODE_EXPR:
13223 case ARROW_EXPR:
13224 case THROW_EXPR:
13225 case TYPEID_EXPR:
13226 case REALPART_EXPR:
13227 case IMAGPART_EXPR:
13228 case PAREN_EXPR:
13230 tree type = tsubst (TREE_TYPE (t), args, complain, in_decl);
13231 tree op0 = tsubst_copy (TREE_OPERAND (t, 0), args, complain, in_decl);
13232 return build1 (code, type, op0);
13235 case COMPONENT_REF:
13237 tree object;
13238 tree name;
13240 object = tsubst_copy (TREE_OPERAND (t, 0), args, complain, in_decl);
13241 name = TREE_OPERAND (t, 1);
13242 if (TREE_CODE (name) == BIT_NOT_EXPR)
13244 name = tsubst_copy (TREE_OPERAND (name, 0), args,
13245 complain, in_decl);
13246 name = build1 (BIT_NOT_EXPR, NULL_TREE, name);
13248 else if (TREE_CODE (name) == SCOPE_REF
13249 && TREE_CODE (TREE_OPERAND (name, 1)) == BIT_NOT_EXPR)
13251 tree base = tsubst_copy (TREE_OPERAND (name, 0), args,
13252 complain, in_decl);
13253 name = TREE_OPERAND (name, 1);
13254 name = tsubst_copy (TREE_OPERAND (name, 0), args,
13255 complain, in_decl);
13256 name = build1 (BIT_NOT_EXPR, NULL_TREE, name);
13257 name = build_qualified_name (/*type=*/NULL_TREE,
13258 base, name,
13259 /*template_p=*/false);
13261 else if (BASELINK_P (name))
13262 name = tsubst_baselink (name,
13263 non_reference (TREE_TYPE (object)),
13264 args, complain,
13265 in_decl);
13266 else
13267 name = tsubst_copy (name, args, complain, in_decl);
13268 return build_nt (COMPONENT_REF, object, name, NULL_TREE);
13271 case PLUS_EXPR:
13272 case MINUS_EXPR:
13273 case MULT_EXPR:
13274 case TRUNC_DIV_EXPR:
13275 case CEIL_DIV_EXPR:
13276 case FLOOR_DIV_EXPR:
13277 case ROUND_DIV_EXPR:
13278 case EXACT_DIV_EXPR:
13279 case BIT_AND_EXPR:
13280 case BIT_IOR_EXPR:
13281 case BIT_XOR_EXPR:
13282 case TRUNC_MOD_EXPR:
13283 case FLOOR_MOD_EXPR:
13284 case TRUTH_ANDIF_EXPR:
13285 case TRUTH_ORIF_EXPR:
13286 case TRUTH_AND_EXPR:
13287 case TRUTH_OR_EXPR:
13288 case RSHIFT_EXPR:
13289 case LSHIFT_EXPR:
13290 case RROTATE_EXPR:
13291 case LROTATE_EXPR:
13292 case EQ_EXPR:
13293 case NE_EXPR:
13294 case MAX_EXPR:
13295 case MIN_EXPR:
13296 case LE_EXPR:
13297 case GE_EXPR:
13298 case LT_EXPR:
13299 case GT_EXPR:
13300 case COMPOUND_EXPR:
13301 case DOTSTAR_EXPR:
13302 case MEMBER_REF:
13303 case PREDECREMENT_EXPR:
13304 case PREINCREMENT_EXPR:
13305 case POSTDECREMENT_EXPR:
13306 case POSTINCREMENT_EXPR:
13308 tree op0 = tsubst_copy (TREE_OPERAND (t, 0), args, complain, in_decl);
13309 tree op1 = tsubst_copy (TREE_OPERAND (t, 1), args, complain, in_decl);
13310 return build_nt (code, op0, op1);
13313 case SCOPE_REF:
13315 tree op0 = tsubst_copy (TREE_OPERAND (t, 0), args, complain, in_decl);
13316 tree op1 = tsubst_copy (TREE_OPERAND (t, 1), args, complain, in_decl);
13317 return build_qualified_name (/*type=*/NULL_TREE, op0, op1,
13318 QUALIFIED_NAME_IS_TEMPLATE (t));
13321 case ARRAY_REF:
13323 tree op0 = tsubst_copy (TREE_OPERAND (t, 0), args, complain, in_decl);
13324 tree op1 = tsubst_copy (TREE_OPERAND (t, 1), args, complain, in_decl);
13325 return build_nt (ARRAY_REF, op0, op1, NULL_TREE, NULL_TREE);
13328 case CALL_EXPR:
13330 int n = VL_EXP_OPERAND_LENGTH (t);
13331 tree result = build_vl_exp (CALL_EXPR, n);
13332 int i;
13333 for (i = 0; i < n; i++)
13334 TREE_OPERAND (t, i) = tsubst_copy (TREE_OPERAND (t, i), args,
13335 complain, in_decl);
13336 return result;
13339 case COND_EXPR:
13340 case MODOP_EXPR:
13341 case PSEUDO_DTOR_EXPR:
13342 case VEC_PERM_EXPR:
13344 tree op0 = tsubst_copy (TREE_OPERAND (t, 0), args, complain, in_decl);
13345 tree op1 = tsubst_copy (TREE_OPERAND (t, 1), args, complain, in_decl);
13346 tree op2 = tsubst_copy (TREE_OPERAND (t, 2), args, complain, in_decl);
13347 r = build_nt (code, op0, op1, op2);
13348 TREE_NO_WARNING (r) = TREE_NO_WARNING (t);
13349 return r;
13352 case NEW_EXPR:
13354 tree op0 = tsubst_copy (TREE_OPERAND (t, 0), args, complain, in_decl);
13355 tree op1 = tsubst_copy (TREE_OPERAND (t, 1), args, complain, in_decl);
13356 tree op2 = tsubst_copy (TREE_OPERAND (t, 2), args, complain, in_decl);
13357 r = build_nt (code, op0, op1, op2);
13358 NEW_EXPR_USE_GLOBAL (r) = NEW_EXPR_USE_GLOBAL (t);
13359 return r;
13362 case DELETE_EXPR:
13364 tree op0 = tsubst_copy (TREE_OPERAND (t, 0), args, complain, in_decl);
13365 tree op1 = tsubst_copy (TREE_OPERAND (t, 1), args, complain, in_decl);
13366 r = build_nt (code, op0, op1);
13367 DELETE_EXPR_USE_GLOBAL (r) = DELETE_EXPR_USE_GLOBAL (t);
13368 DELETE_EXPR_USE_VEC (r) = DELETE_EXPR_USE_VEC (t);
13369 return r;
13372 case TEMPLATE_ID_EXPR:
13374 /* Substituted template arguments */
13375 tree fn = TREE_OPERAND (t, 0);
13376 tree targs = TREE_OPERAND (t, 1);
13378 fn = tsubst_copy (fn, args, complain, in_decl);
13379 if (targs)
13380 targs = tsubst_template_args (targs, args, complain, in_decl);
13382 return lookup_template_function (fn, targs);
13385 case TREE_LIST:
13387 tree purpose, value, chain;
13389 if (t == void_list_node)
13390 return t;
13392 purpose = TREE_PURPOSE (t);
13393 if (purpose)
13394 purpose = tsubst_copy (purpose, args, complain, in_decl);
13395 value = TREE_VALUE (t);
13396 if (value)
13397 value = tsubst_copy (value, args, complain, in_decl);
13398 chain = TREE_CHAIN (t);
13399 if (chain && chain != void_type_node)
13400 chain = tsubst_copy (chain, args, complain, in_decl);
13401 if (purpose == TREE_PURPOSE (t)
13402 && value == TREE_VALUE (t)
13403 && chain == TREE_CHAIN (t))
13404 return t;
13405 return tree_cons (purpose, value, chain);
13408 case RECORD_TYPE:
13409 case UNION_TYPE:
13410 case ENUMERAL_TYPE:
13411 case INTEGER_TYPE:
13412 case TEMPLATE_TYPE_PARM:
13413 case TEMPLATE_TEMPLATE_PARM:
13414 case BOUND_TEMPLATE_TEMPLATE_PARM:
13415 case TEMPLATE_PARM_INDEX:
13416 case POINTER_TYPE:
13417 case REFERENCE_TYPE:
13418 case OFFSET_TYPE:
13419 case FUNCTION_TYPE:
13420 case METHOD_TYPE:
13421 case ARRAY_TYPE:
13422 case TYPENAME_TYPE:
13423 case UNBOUND_CLASS_TEMPLATE:
13424 case TYPEOF_TYPE:
13425 case DECLTYPE_TYPE:
13426 case TYPE_DECL:
13427 return tsubst (t, args, complain, in_decl);
13429 case USING_DECL:
13430 t = DECL_NAME (t);
13431 /* Fall through. */
13432 case IDENTIFIER_NODE:
13433 if (IDENTIFIER_TYPENAME_P (t))
13435 tree new_type = tsubst (TREE_TYPE (t), args, complain, in_decl);
13436 return mangle_conv_op_name_for_type (new_type);
13438 else
13439 return t;
13441 case CONSTRUCTOR:
13442 /* This is handled by tsubst_copy_and_build. */
13443 gcc_unreachable ();
13445 case VA_ARG_EXPR:
13447 tree op0 = tsubst_copy (TREE_OPERAND (t, 0), args, complain, in_decl);
13448 tree type = tsubst (TREE_TYPE (t), args, complain, in_decl);
13449 return build_x_va_arg (EXPR_LOCATION (t), op0, type);
13452 case CLEANUP_POINT_EXPR:
13453 /* We shouldn't have built any of these during initial template
13454 generation. Instead, they should be built during instantiation
13455 in response to the saved STMT_IS_FULL_EXPR_P setting. */
13456 gcc_unreachable ();
13458 case OFFSET_REF:
13460 tree type = tsubst (TREE_TYPE (t), args, complain, in_decl);
13461 tree op0 = tsubst_copy (TREE_OPERAND (t, 0), args, complain, in_decl);
13462 tree op1 = tsubst_copy (TREE_OPERAND (t, 1), args, complain, in_decl);
13463 r = build2 (code, type, op0, op1);
13464 PTRMEM_OK_P (r) = PTRMEM_OK_P (t);
13465 if (!mark_used (TREE_OPERAND (r, 1), complain)
13466 && !(complain & tf_error))
13467 return error_mark_node;
13468 return r;
13471 case EXPR_PACK_EXPANSION:
13472 error ("invalid use of pack expansion expression");
13473 return error_mark_node;
13475 case NONTYPE_ARGUMENT_PACK:
13476 error ("use %<...%> to expand argument pack");
13477 return error_mark_node;
13479 case VOID_CST:
13480 gcc_checking_assert (t == void_node && VOID_TYPE_P (TREE_TYPE (t)));
13481 return t;
13483 case INTEGER_CST:
13484 case REAL_CST:
13485 case STRING_CST:
13486 case COMPLEX_CST:
13488 /* Instantiate any typedefs in the type. */
13489 tree type = tsubst (TREE_TYPE (t), args, complain, in_decl);
13490 r = fold_convert (type, t);
13491 gcc_assert (TREE_CODE (r) == code);
13492 return r;
13495 case PTRMEM_CST:
13496 /* These can sometimes show up in a partial instantiation, but never
13497 involve template parms. */
13498 gcc_assert (!uses_template_parms (t));
13499 return t;
13501 default:
13502 /* We shouldn't get here, but keep going if !ENABLE_CHECKING. */
13503 gcc_checking_assert (false);
13504 return t;
13508 /* Helper function for tsubst_omp_clauses, used for instantiation of
13509 OMP_CLAUSE_DECL of clauses that handles also OpenMP array sections
13510 represented with TREE_LIST. */
13512 static tree
13513 tsubst_omp_clause_decl (tree decl, tree args, tsubst_flags_t complain,
13514 tree in_decl)
13516 if (TREE_CODE (decl) == TREE_LIST)
13518 tree low_bound
13519 = tsubst_expr (TREE_PURPOSE (decl), args, complain, in_decl,
13520 /*integral_constant_expression_p=*/false);
13521 tree length = tsubst_expr (TREE_VALUE (decl), args, complain, in_decl,
13522 /*integral_constant_expression_p=*/false);
13523 tree chain = tsubst_omp_clause_decl (TREE_CHAIN (decl), args, complain,
13524 in_decl);
13525 if (TREE_PURPOSE (decl) == low_bound
13526 && TREE_VALUE (decl) == length
13527 && TREE_CHAIN (decl) == chain)
13528 return decl;
13529 return tree_cons (low_bound, length, chain);
13531 return tsubst_copy (decl, args, complain, in_decl);
13534 /* Like tsubst_copy, but specifically for OpenMP clauses. */
13536 static tree
13537 tsubst_omp_clauses (tree clauses, bool declare_simd,
13538 tree args, tsubst_flags_t complain, tree in_decl)
13540 tree new_clauses = NULL, nc, oc;
13542 for (oc = clauses; oc ; oc = OMP_CLAUSE_CHAIN (oc))
13544 nc = copy_node (oc);
13545 OMP_CLAUSE_CHAIN (nc) = new_clauses;
13546 new_clauses = nc;
13548 switch (OMP_CLAUSE_CODE (nc))
13550 case OMP_CLAUSE_LASTPRIVATE:
13551 if (OMP_CLAUSE_LASTPRIVATE_STMT (oc))
13553 OMP_CLAUSE_LASTPRIVATE_STMT (nc) = push_stmt_list ();
13554 tsubst_expr (OMP_CLAUSE_LASTPRIVATE_STMT (oc), args, complain,
13555 in_decl, /*integral_constant_expression_p=*/false);
13556 OMP_CLAUSE_LASTPRIVATE_STMT (nc)
13557 = pop_stmt_list (OMP_CLAUSE_LASTPRIVATE_STMT (nc));
13559 /* FALLTHRU */
13560 case OMP_CLAUSE_PRIVATE:
13561 case OMP_CLAUSE_SHARED:
13562 case OMP_CLAUSE_FIRSTPRIVATE:
13563 case OMP_CLAUSE_COPYIN:
13564 case OMP_CLAUSE_COPYPRIVATE:
13565 case OMP_CLAUSE_UNIFORM:
13566 OMP_CLAUSE_DECL (nc) = tsubst_copy (OMP_CLAUSE_DECL (oc), args,
13567 complain, in_decl);
13568 break;
13569 case OMP_CLAUSE_DEPEND:
13570 case OMP_CLAUSE_FROM:
13571 case OMP_CLAUSE_TO:
13572 case OMP_CLAUSE_MAP:
13573 OMP_CLAUSE_DECL (nc)
13574 = tsubst_omp_clause_decl (OMP_CLAUSE_DECL (oc), args, complain,
13575 in_decl);
13576 break;
13577 case OMP_CLAUSE_IF:
13578 case OMP_CLAUSE_NUM_THREADS:
13579 case OMP_CLAUSE_SCHEDULE:
13580 case OMP_CLAUSE_COLLAPSE:
13581 case OMP_CLAUSE_FINAL:
13582 case OMP_CLAUSE_DEVICE:
13583 case OMP_CLAUSE_DIST_SCHEDULE:
13584 case OMP_CLAUSE_NUM_TEAMS:
13585 case OMP_CLAUSE_THREAD_LIMIT:
13586 case OMP_CLAUSE_SAFELEN:
13587 case OMP_CLAUSE_SIMDLEN:
13588 OMP_CLAUSE_OPERAND (nc, 0)
13589 = tsubst_expr (OMP_CLAUSE_OPERAND (oc, 0), args, complain,
13590 in_decl, /*integral_constant_expression_p=*/false);
13591 break;
13592 case OMP_CLAUSE_REDUCTION:
13593 if (OMP_CLAUSE_REDUCTION_PLACEHOLDER (oc))
13595 tree placeholder = OMP_CLAUSE_REDUCTION_PLACEHOLDER (oc);
13596 if (TREE_CODE (placeholder) == SCOPE_REF)
13598 tree scope = tsubst (TREE_OPERAND (placeholder, 0), args,
13599 complain, in_decl);
13600 OMP_CLAUSE_REDUCTION_PLACEHOLDER (nc)
13601 = build_qualified_name (NULL_TREE, scope,
13602 TREE_OPERAND (placeholder, 1),
13603 false);
13605 else
13606 gcc_assert (identifier_p (placeholder));
13608 OMP_CLAUSE_DECL (nc) = tsubst_copy (OMP_CLAUSE_DECL (oc), args,
13609 complain, in_decl);
13610 break;
13611 case OMP_CLAUSE_LINEAR:
13612 case OMP_CLAUSE_ALIGNED:
13613 OMP_CLAUSE_DECL (nc) = tsubst_copy (OMP_CLAUSE_DECL (oc), args,
13614 complain, in_decl);
13615 OMP_CLAUSE_OPERAND (nc, 1)
13616 = tsubst_expr (OMP_CLAUSE_OPERAND (oc, 1), args, complain,
13617 in_decl, /*integral_constant_expression_p=*/false);
13618 break;
13619 case OMP_CLAUSE_NOWAIT:
13620 case OMP_CLAUSE_ORDERED:
13621 case OMP_CLAUSE_DEFAULT:
13622 case OMP_CLAUSE_UNTIED:
13623 case OMP_CLAUSE_MERGEABLE:
13624 case OMP_CLAUSE_INBRANCH:
13625 case OMP_CLAUSE_NOTINBRANCH:
13626 case OMP_CLAUSE_PROC_BIND:
13627 case OMP_CLAUSE_FOR:
13628 case OMP_CLAUSE_PARALLEL:
13629 case OMP_CLAUSE_SECTIONS:
13630 case OMP_CLAUSE_TASKGROUP:
13631 break;
13632 default:
13633 gcc_unreachable ();
13637 new_clauses = nreverse (new_clauses);
13638 if (!declare_simd)
13639 new_clauses = finish_omp_clauses (new_clauses);
13640 return new_clauses;
13643 /* Like tsubst_copy_and_build, but unshare TREE_LIST nodes. */
13645 static tree
13646 tsubst_copy_asm_operands (tree t, tree args, tsubst_flags_t complain,
13647 tree in_decl)
13649 #define RECUR(t) tsubst_copy_asm_operands (t, args, complain, in_decl)
13651 tree purpose, value, chain;
13653 if (t == NULL)
13654 return t;
13656 if (TREE_CODE (t) != TREE_LIST)
13657 return tsubst_copy_and_build (t, args, complain, in_decl,
13658 /*function_p=*/false,
13659 /*integral_constant_expression_p=*/false);
13661 if (t == void_list_node)
13662 return t;
13664 purpose = TREE_PURPOSE (t);
13665 if (purpose)
13666 purpose = RECUR (purpose);
13667 value = TREE_VALUE (t);
13668 if (value)
13670 if (TREE_CODE (value) != LABEL_DECL)
13671 value = RECUR (value);
13672 else
13674 value = lookup_label (DECL_NAME (value));
13675 gcc_assert (TREE_CODE (value) == LABEL_DECL);
13676 TREE_USED (value) = 1;
13679 chain = TREE_CHAIN (t);
13680 if (chain && chain != void_type_node)
13681 chain = RECUR (chain);
13682 return tree_cons (purpose, value, chain);
13683 #undef RECUR
13686 /* Substitute one OMP_FOR iterator. */
13688 static void
13689 tsubst_omp_for_iterator (tree t, int i, tree declv, tree initv,
13690 tree condv, tree incrv, tree *clauses,
13691 tree args, tsubst_flags_t complain, tree in_decl,
13692 bool integral_constant_expression_p)
13694 #define RECUR(NODE) \
13695 tsubst_expr ((NODE), args, complain, in_decl, \
13696 integral_constant_expression_p)
13697 tree decl, init, cond, incr;
13699 init = TREE_VEC_ELT (OMP_FOR_INIT (t), i);
13700 gcc_assert (TREE_CODE (init) == MODIFY_EXPR);
13701 decl = TREE_OPERAND (init, 0);
13702 init = TREE_OPERAND (init, 1);
13703 tree decl_expr = NULL_TREE;
13704 if (init && TREE_CODE (init) == DECL_EXPR)
13706 /* We need to jump through some hoops to handle declarations in the
13707 for-init-statement, since we might need to handle auto deduction,
13708 but we need to keep control of initialization. */
13709 decl_expr = init;
13710 init = DECL_INITIAL (DECL_EXPR_DECL (init));
13711 decl = tsubst_decl (decl, args, complain);
13713 else
13714 decl = RECUR (decl);
13715 init = RECUR (init);
13717 tree auto_node = type_uses_auto (TREE_TYPE (decl));
13718 if (auto_node && init)
13719 TREE_TYPE (decl)
13720 = do_auto_deduction (TREE_TYPE (decl), init, auto_node);
13722 gcc_assert (!type_dependent_expression_p (decl));
13724 if (!CLASS_TYPE_P (TREE_TYPE (decl)))
13726 if (decl_expr)
13728 /* Declare the variable, but don't let that initialize it. */
13729 tree init_sav = DECL_INITIAL (DECL_EXPR_DECL (decl_expr));
13730 DECL_INITIAL (DECL_EXPR_DECL (decl_expr)) = NULL_TREE;
13731 RECUR (decl_expr);
13732 DECL_INITIAL (DECL_EXPR_DECL (decl_expr)) = init_sav;
13735 cond = RECUR (TREE_VEC_ELT (OMP_FOR_COND (t), i));
13736 incr = TREE_VEC_ELT (OMP_FOR_INCR (t), i);
13737 if (TREE_CODE (incr) == MODIFY_EXPR)
13739 tree lhs = RECUR (TREE_OPERAND (incr, 0));
13740 tree rhs = RECUR (TREE_OPERAND (incr, 1));
13741 incr = build_x_modify_expr (EXPR_LOCATION (incr), lhs,
13742 NOP_EXPR, rhs, complain);
13744 else
13745 incr = RECUR (incr);
13746 TREE_VEC_ELT (declv, i) = decl;
13747 TREE_VEC_ELT (initv, i) = init;
13748 TREE_VEC_ELT (condv, i) = cond;
13749 TREE_VEC_ELT (incrv, i) = incr;
13750 return;
13753 if (decl_expr)
13755 /* Declare and initialize the variable. */
13756 RECUR (decl_expr);
13757 init = NULL_TREE;
13759 else if (init)
13761 tree c;
13762 for (c = *clauses; c ; c = OMP_CLAUSE_CHAIN (c))
13764 if ((OMP_CLAUSE_CODE (c) == OMP_CLAUSE_PRIVATE
13765 || OMP_CLAUSE_CODE (c) == OMP_CLAUSE_LASTPRIVATE)
13766 && OMP_CLAUSE_DECL (c) == decl)
13767 break;
13768 else if (OMP_CLAUSE_CODE (c) == OMP_CLAUSE_FIRSTPRIVATE
13769 && OMP_CLAUSE_DECL (c) == decl)
13770 error ("iteration variable %qD should not be firstprivate", decl);
13771 else if (OMP_CLAUSE_CODE (c) == OMP_CLAUSE_REDUCTION
13772 && OMP_CLAUSE_DECL (c) == decl)
13773 error ("iteration variable %qD should not be reduction", decl);
13775 if (c == NULL)
13777 c = build_omp_clause (input_location, OMP_CLAUSE_PRIVATE);
13778 OMP_CLAUSE_DECL (c) = decl;
13779 c = finish_omp_clauses (c);
13780 if (c)
13782 OMP_CLAUSE_CHAIN (c) = *clauses;
13783 *clauses = c;
13787 cond = TREE_VEC_ELT (OMP_FOR_COND (t), i);
13788 if (COMPARISON_CLASS_P (cond))
13790 tree op0 = RECUR (TREE_OPERAND (cond, 0));
13791 tree op1 = RECUR (TREE_OPERAND (cond, 1));
13792 cond = build2 (TREE_CODE (cond), boolean_type_node, op0, op1);
13794 else
13795 cond = RECUR (cond);
13796 incr = TREE_VEC_ELT (OMP_FOR_INCR (t), i);
13797 switch (TREE_CODE (incr))
13799 case PREINCREMENT_EXPR:
13800 case PREDECREMENT_EXPR:
13801 case POSTINCREMENT_EXPR:
13802 case POSTDECREMENT_EXPR:
13803 incr = build2 (TREE_CODE (incr), TREE_TYPE (decl),
13804 RECUR (TREE_OPERAND (incr, 0)), NULL_TREE);
13805 break;
13806 case MODIFY_EXPR:
13807 if (TREE_CODE (TREE_OPERAND (incr, 1)) == PLUS_EXPR
13808 || TREE_CODE (TREE_OPERAND (incr, 1)) == MINUS_EXPR)
13810 tree rhs = TREE_OPERAND (incr, 1);
13811 tree lhs = RECUR (TREE_OPERAND (incr, 0));
13812 tree rhs0 = RECUR (TREE_OPERAND (rhs, 0));
13813 tree rhs1 = RECUR (TREE_OPERAND (rhs, 1));
13814 incr = build2 (MODIFY_EXPR, TREE_TYPE (decl), lhs,
13815 build2 (TREE_CODE (rhs), TREE_TYPE (decl),
13816 rhs0, rhs1));
13818 else
13819 incr = RECUR (incr);
13820 break;
13821 case MODOP_EXPR:
13822 if (TREE_CODE (TREE_OPERAND (incr, 1)) == PLUS_EXPR
13823 || TREE_CODE (TREE_OPERAND (incr, 1)) == MINUS_EXPR)
13825 tree lhs = RECUR (TREE_OPERAND (incr, 0));
13826 incr = build2 (MODIFY_EXPR, TREE_TYPE (decl), lhs,
13827 build2 (TREE_CODE (TREE_OPERAND (incr, 1)),
13828 TREE_TYPE (decl), lhs,
13829 RECUR (TREE_OPERAND (incr, 2))));
13831 else if (TREE_CODE (TREE_OPERAND (incr, 1)) == NOP_EXPR
13832 && (TREE_CODE (TREE_OPERAND (incr, 2)) == PLUS_EXPR
13833 || (TREE_CODE (TREE_OPERAND (incr, 2)) == MINUS_EXPR)))
13835 tree rhs = TREE_OPERAND (incr, 2);
13836 tree lhs = RECUR (TREE_OPERAND (incr, 0));
13837 tree rhs0 = RECUR (TREE_OPERAND (rhs, 0));
13838 tree rhs1 = RECUR (TREE_OPERAND (rhs, 1));
13839 incr = build2 (MODIFY_EXPR, TREE_TYPE (decl), lhs,
13840 build2 (TREE_CODE (rhs), TREE_TYPE (decl),
13841 rhs0, rhs1));
13843 else
13844 incr = RECUR (incr);
13845 break;
13846 default:
13847 incr = RECUR (incr);
13848 break;
13851 TREE_VEC_ELT (declv, i) = decl;
13852 TREE_VEC_ELT (initv, i) = init;
13853 TREE_VEC_ELT (condv, i) = cond;
13854 TREE_VEC_ELT (incrv, i) = incr;
13855 #undef RECUR
13858 /* Like tsubst_copy for expressions, etc. but also does semantic
13859 processing. */
13861 static tree
13862 tsubst_expr (tree t, tree args, tsubst_flags_t complain, tree in_decl,
13863 bool integral_constant_expression_p)
13865 #define RETURN(EXP) do { r = (EXP); goto out; } while(0)
13866 #define RECUR(NODE) \
13867 tsubst_expr ((NODE), args, complain, in_decl, \
13868 integral_constant_expression_p)
13870 tree stmt, tmp;
13871 tree r;
13872 location_t loc;
13874 if (t == NULL_TREE || t == error_mark_node)
13875 return t;
13877 loc = input_location;
13878 if (EXPR_HAS_LOCATION (t))
13879 input_location = EXPR_LOCATION (t);
13880 if (STATEMENT_CODE_P (TREE_CODE (t)))
13881 current_stmt_tree ()->stmts_are_full_exprs_p = STMT_IS_FULL_EXPR_P (t);
13883 switch (TREE_CODE (t))
13885 case STATEMENT_LIST:
13887 tree_stmt_iterator i;
13888 for (i = tsi_start (t); !tsi_end_p (i); tsi_next (&i))
13889 RECUR (tsi_stmt (i));
13890 break;
13893 case CTOR_INITIALIZER:
13894 finish_mem_initializers (tsubst_initializer_list
13895 (TREE_OPERAND (t, 0), args));
13896 break;
13898 case RETURN_EXPR:
13899 finish_return_stmt (RECUR (TREE_OPERAND (t, 0)));
13900 break;
13902 case EXPR_STMT:
13903 tmp = RECUR (EXPR_STMT_EXPR (t));
13904 if (EXPR_STMT_STMT_EXPR_RESULT (t))
13905 finish_stmt_expr_expr (tmp, cur_stmt_expr);
13906 else
13907 finish_expr_stmt (tmp);
13908 break;
13910 case USING_STMT:
13911 do_using_directive (USING_STMT_NAMESPACE (t));
13912 break;
13914 case DECL_EXPR:
13916 tree decl, pattern_decl;
13917 tree init;
13919 pattern_decl = decl = DECL_EXPR_DECL (t);
13920 if (TREE_CODE (decl) == LABEL_DECL)
13921 finish_label_decl (DECL_NAME (decl));
13922 else if (TREE_CODE (decl) == USING_DECL)
13924 tree scope = USING_DECL_SCOPE (decl);
13925 tree name = DECL_NAME (decl);
13926 tree decl;
13928 scope = tsubst (scope, args, complain, in_decl);
13929 decl = lookup_qualified_name (scope, name,
13930 /*is_type_p=*/false,
13931 /*complain=*/false);
13932 if (decl == error_mark_node || TREE_CODE (decl) == TREE_LIST)
13933 qualified_name_lookup_error (scope, name, decl, input_location);
13934 else
13935 do_local_using_decl (decl, scope, name);
13937 else if (DECL_PACK_P (decl))
13939 /* Don't build up decls for a variadic capture proxy, we'll
13940 instantiate the elements directly as needed. */
13941 break;
13943 else
13945 init = DECL_INITIAL (decl);
13946 decl = tsubst (decl, args, complain, in_decl);
13947 if (decl != error_mark_node)
13949 /* By marking the declaration as instantiated, we avoid
13950 trying to instantiate it. Since instantiate_decl can't
13951 handle local variables, and since we've already done
13952 all that needs to be done, that's the right thing to
13953 do. */
13954 if (VAR_P (decl))
13955 DECL_TEMPLATE_INSTANTIATED (decl) = 1;
13956 if (VAR_P (decl)
13957 && ANON_AGGR_TYPE_P (TREE_TYPE (decl)))
13958 /* Anonymous aggregates are a special case. */
13959 finish_anon_union (decl);
13960 else if (is_capture_proxy (DECL_EXPR_DECL (t)))
13962 DECL_CONTEXT (decl) = current_function_decl;
13963 if (DECL_NAME (decl) == this_identifier)
13965 tree lam = DECL_CONTEXT (current_function_decl);
13966 lam = CLASSTYPE_LAMBDA_EXPR (lam);
13967 LAMBDA_EXPR_THIS_CAPTURE (lam) = decl;
13969 insert_capture_proxy (decl);
13971 else if (DECL_IMPLICIT_TYPEDEF_P (t))
13972 /* We already did a pushtag. */;
13973 else if (TREE_CODE (decl) == FUNCTION_DECL
13974 && DECL_OMP_DECLARE_REDUCTION_P (decl)
13975 && DECL_FUNCTION_SCOPE_P (pattern_decl))
13977 DECL_CONTEXT (decl) = NULL_TREE;
13978 pushdecl (decl);
13979 DECL_CONTEXT (decl) = current_function_decl;
13980 cp_check_omp_declare_reduction (decl);
13982 else
13984 int const_init = false;
13985 maybe_push_decl (decl);
13986 if (VAR_P (decl)
13987 && DECL_PRETTY_FUNCTION_P (decl))
13989 /* For __PRETTY_FUNCTION__ we have to adjust the
13990 initializer. */
13991 const char *const name
13992 = cxx_printable_name (current_function_decl, 2);
13993 init = cp_fname_init (name, &TREE_TYPE (decl));
13995 else
13996 init = tsubst_init (init, decl, args, complain, in_decl);
13998 if (VAR_P (decl))
13999 const_init = (DECL_INITIALIZED_BY_CONSTANT_EXPRESSION_P
14000 (pattern_decl));
14001 cp_finish_decl (decl, init, const_init, NULL_TREE, 0);
14006 break;
14009 case FOR_STMT:
14010 stmt = begin_for_stmt (NULL_TREE, NULL_TREE);
14011 RECUR (FOR_INIT_STMT (t));
14012 finish_for_init_stmt (stmt);
14013 tmp = RECUR (FOR_COND (t));
14014 finish_for_cond (tmp, stmt, false);
14015 tmp = RECUR (FOR_EXPR (t));
14016 finish_for_expr (tmp, stmt);
14017 RECUR (FOR_BODY (t));
14018 finish_for_stmt (stmt);
14019 break;
14021 case RANGE_FOR_STMT:
14023 tree decl, expr;
14024 stmt = begin_for_stmt (NULL_TREE, NULL_TREE);
14025 decl = RANGE_FOR_DECL (t);
14026 decl = tsubst (decl, args, complain, in_decl);
14027 maybe_push_decl (decl);
14028 expr = RECUR (RANGE_FOR_EXPR (t));
14029 stmt = cp_convert_range_for (stmt, decl, expr, RANGE_FOR_IVDEP (t));
14030 RECUR (RANGE_FOR_BODY (t));
14031 finish_for_stmt (stmt);
14033 break;
14035 case WHILE_STMT:
14036 stmt = begin_while_stmt ();
14037 tmp = RECUR (WHILE_COND (t));
14038 finish_while_stmt_cond (tmp, stmt, false);
14039 RECUR (WHILE_BODY (t));
14040 finish_while_stmt (stmt);
14041 break;
14043 case DO_STMT:
14044 stmt = begin_do_stmt ();
14045 RECUR (DO_BODY (t));
14046 finish_do_body (stmt);
14047 tmp = RECUR (DO_COND (t));
14048 finish_do_stmt (tmp, stmt, false);
14049 break;
14051 case IF_STMT:
14052 stmt = begin_if_stmt ();
14053 tmp = RECUR (IF_COND (t));
14054 finish_if_stmt_cond (tmp, stmt);
14055 RECUR (THEN_CLAUSE (t));
14056 finish_then_clause (stmt);
14058 if (ELSE_CLAUSE (t))
14060 begin_else_clause (stmt);
14061 RECUR (ELSE_CLAUSE (t));
14062 finish_else_clause (stmt);
14065 finish_if_stmt (stmt);
14066 break;
14068 case BIND_EXPR:
14069 if (BIND_EXPR_BODY_BLOCK (t))
14070 stmt = begin_function_body ();
14071 else
14072 stmt = begin_compound_stmt (BIND_EXPR_TRY_BLOCK (t)
14073 ? BCS_TRY_BLOCK : 0);
14075 RECUR (BIND_EXPR_BODY (t));
14077 if (BIND_EXPR_BODY_BLOCK (t))
14078 finish_function_body (stmt);
14079 else
14080 finish_compound_stmt (stmt);
14081 break;
14083 case BREAK_STMT:
14084 finish_break_stmt ();
14085 break;
14087 case CONTINUE_STMT:
14088 finish_continue_stmt ();
14089 break;
14091 case SWITCH_STMT:
14092 stmt = begin_switch_stmt ();
14093 tmp = RECUR (SWITCH_STMT_COND (t));
14094 finish_switch_cond (tmp, stmt);
14095 RECUR (SWITCH_STMT_BODY (t));
14096 finish_switch_stmt (stmt);
14097 break;
14099 case CASE_LABEL_EXPR:
14101 tree low = RECUR (CASE_LOW (t));
14102 tree high = RECUR (CASE_HIGH (t));
14103 finish_case_label (EXPR_LOCATION (t), low, high);
14105 break;
14107 case LABEL_EXPR:
14109 tree decl = LABEL_EXPR_LABEL (t);
14110 tree label;
14112 label = finish_label_stmt (DECL_NAME (decl));
14113 if (DECL_ATTRIBUTES (decl) != NULL_TREE)
14114 cplus_decl_attributes (&label, DECL_ATTRIBUTES (decl), 0);
14116 break;
14118 case GOTO_EXPR:
14119 tmp = GOTO_DESTINATION (t);
14120 if (TREE_CODE (tmp) != LABEL_DECL)
14121 /* Computed goto's must be tsubst'd into. On the other hand,
14122 non-computed gotos must not be; the identifier in question
14123 will have no binding. */
14124 tmp = RECUR (tmp);
14125 else
14126 tmp = DECL_NAME (tmp);
14127 finish_goto_stmt (tmp);
14128 break;
14130 case ASM_EXPR:
14132 tree string = RECUR (ASM_STRING (t));
14133 tree outputs = tsubst_copy_asm_operands (ASM_OUTPUTS (t), args,
14134 complain, in_decl);
14135 tree inputs = tsubst_copy_asm_operands (ASM_INPUTS (t), args,
14136 complain, in_decl);
14137 tree clobbers = tsubst_copy_asm_operands (ASM_CLOBBERS (t), args,
14138 complain, in_decl);
14139 tree labels = tsubst_copy_asm_operands (ASM_LABELS (t), args,
14140 complain, in_decl);
14141 tmp = finish_asm_stmt (ASM_VOLATILE_P (t), string, outputs, inputs,
14142 clobbers, labels);
14143 tree asm_expr = tmp;
14144 if (TREE_CODE (asm_expr) == CLEANUP_POINT_EXPR)
14145 asm_expr = TREE_OPERAND (asm_expr, 0);
14146 ASM_INPUT_P (asm_expr) = ASM_INPUT_P (t);
14148 break;
14150 case TRY_BLOCK:
14151 if (CLEANUP_P (t))
14153 stmt = begin_try_block ();
14154 RECUR (TRY_STMTS (t));
14155 finish_cleanup_try_block (stmt);
14156 finish_cleanup (RECUR (TRY_HANDLERS (t)), stmt);
14158 else
14160 tree compound_stmt = NULL_TREE;
14162 if (FN_TRY_BLOCK_P (t))
14163 stmt = begin_function_try_block (&compound_stmt);
14164 else
14165 stmt = begin_try_block ();
14167 RECUR (TRY_STMTS (t));
14169 if (FN_TRY_BLOCK_P (t))
14170 finish_function_try_block (stmt);
14171 else
14172 finish_try_block (stmt);
14174 RECUR (TRY_HANDLERS (t));
14175 if (FN_TRY_BLOCK_P (t))
14176 finish_function_handler_sequence (stmt, compound_stmt);
14177 else
14178 finish_handler_sequence (stmt);
14180 break;
14182 case HANDLER:
14184 tree decl = HANDLER_PARMS (t);
14186 if (decl)
14188 decl = tsubst (decl, args, complain, in_decl);
14189 /* Prevent instantiate_decl from trying to instantiate
14190 this variable. We've already done all that needs to be
14191 done. */
14192 if (decl != error_mark_node)
14193 DECL_TEMPLATE_INSTANTIATED (decl) = 1;
14195 stmt = begin_handler ();
14196 finish_handler_parms (decl, stmt);
14197 RECUR (HANDLER_BODY (t));
14198 finish_handler (stmt);
14200 break;
14202 case TAG_DEFN:
14203 tmp = tsubst (TREE_TYPE (t), args, complain, NULL_TREE);
14204 if (CLASS_TYPE_P (tmp))
14206 /* Local classes are not independent templates; they are
14207 instantiated along with their containing function. And this
14208 way we don't have to deal with pushing out of one local class
14209 to instantiate a member of another local class. */
14210 tree fn;
14211 /* Closures are handled by the LAMBDA_EXPR. */
14212 gcc_assert (!LAMBDA_TYPE_P (TREE_TYPE (t)));
14213 complete_type (tmp);
14214 for (fn = TYPE_METHODS (tmp); fn; fn = DECL_CHAIN (fn))
14215 if (!DECL_ARTIFICIAL (fn))
14216 instantiate_decl (fn, /*defer_ok*/0, /*expl_inst_class*/false);
14218 break;
14220 case STATIC_ASSERT:
14222 tree condition;
14224 ++c_inhibit_evaluation_warnings;
14225 condition =
14226 tsubst_expr (STATIC_ASSERT_CONDITION (t),
14227 args,
14228 complain, in_decl,
14229 /*integral_constant_expression_p=*/true);
14230 --c_inhibit_evaluation_warnings;
14232 finish_static_assert (condition,
14233 STATIC_ASSERT_MESSAGE (t),
14234 STATIC_ASSERT_SOURCE_LOCATION (t),
14235 /*member_p=*/false);
14237 break;
14239 case OMP_PARALLEL:
14240 tmp = tsubst_omp_clauses (OMP_PARALLEL_CLAUSES (t), false,
14241 args, complain, in_decl);
14242 stmt = begin_omp_parallel ();
14243 RECUR (OMP_PARALLEL_BODY (t));
14244 OMP_PARALLEL_COMBINED (finish_omp_parallel (tmp, stmt))
14245 = OMP_PARALLEL_COMBINED (t);
14246 break;
14248 case OMP_TASK:
14249 tmp = tsubst_omp_clauses (OMP_TASK_CLAUSES (t), false,
14250 args, complain, in_decl);
14251 stmt = begin_omp_task ();
14252 RECUR (OMP_TASK_BODY (t));
14253 finish_omp_task (tmp, stmt);
14254 break;
14256 case OMP_FOR:
14257 case OMP_SIMD:
14258 case CILK_SIMD:
14259 case CILK_FOR:
14260 case OMP_DISTRIBUTE:
14262 tree clauses, body, pre_body;
14263 tree declv = NULL_TREE, initv = NULL_TREE, condv = NULL_TREE;
14264 tree incrv = NULL_TREE;
14265 int i;
14267 clauses = tsubst_omp_clauses (OMP_FOR_CLAUSES (t), false,
14268 args, complain, in_decl);
14269 if (OMP_FOR_INIT (t) != NULL_TREE)
14271 declv = make_tree_vec (TREE_VEC_LENGTH (OMP_FOR_INIT (t)));
14272 initv = make_tree_vec (TREE_VEC_LENGTH (OMP_FOR_INIT (t)));
14273 condv = make_tree_vec (TREE_VEC_LENGTH (OMP_FOR_INIT (t)));
14274 incrv = make_tree_vec (TREE_VEC_LENGTH (OMP_FOR_INIT (t)));
14277 stmt = begin_omp_structured_block ();
14279 pre_body = push_stmt_list ();
14280 RECUR (OMP_FOR_PRE_BODY (t));
14281 pre_body = pop_stmt_list (pre_body);
14283 if (OMP_FOR_INIT (t) != NULL_TREE)
14284 for (i = 0; i < TREE_VEC_LENGTH (OMP_FOR_INIT (t)); i++)
14285 tsubst_omp_for_iterator (t, i, declv, initv, condv, incrv,
14286 &clauses, args, complain, in_decl,
14287 integral_constant_expression_p);
14289 body = push_stmt_list ();
14290 RECUR (OMP_FOR_BODY (t));
14291 body = pop_stmt_list (body);
14293 if (OMP_FOR_INIT (t) != NULL_TREE)
14294 t = finish_omp_for (EXPR_LOCATION (t), TREE_CODE (t), declv, initv,
14295 condv, incrv, body, pre_body, clauses);
14296 else
14298 t = make_node (TREE_CODE (t));
14299 TREE_TYPE (t) = void_type_node;
14300 OMP_FOR_BODY (t) = body;
14301 OMP_FOR_PRE_BODY (t) = pre_body;
14302 OMP_FOR_CLAUSES (t) = clauses;
14303 SET_EXPR_LOCATION (t, EXPR_LOCATION (t));
14304 add_stmt (t);
14307 add_stmt (finish_omp_structured_block (stmt));
14309 break;
14311 case OMP_SECTIONS:
14312 case OMP_SINGLE:
14313 case OMP_TEAMS:
14314 tmp = tsubst_omp_clauses (OMP_CLAUSES (t), false,
14315 args, complain, in_decl);
14316 stmt = push_stmt_list ();
14317 RECUR (OMP_BODY (t));
14318 stmt = pop_stmt_list (stmt);
14320 t = copy_node (t);
14321 OMP_BODY (t) = stmt;
14322 OMP_CLAUSES (t) = tmp;
14323 add_stmt (t);
14324 break;
14326 case OMP_TARGET_DATA:
14327 case OMP_TARGET:
14328 tmp = tsubst_omp_clauses (OMP_CLAUSES (t), false,
14329 args, complain, in_decl);
14330 keep_next_level (true);
14331 stmt = begin_omp_structured_block ();
14333 RECUR (OMP_BODY (t));
14334 stmt = finish_omp_structured_block (stmt);
14336 t = copy_node (t);
14337 OMP_BODY (t) = stmt;
14338 OMP_CLAUSES (t) = tmp;
14339 add_stmt (t);
14340 break;
14342 case OMP_TARGET_UPDATE:
14343 tmp = tsubst_omp_clauses (OMP_TARGET_UPDATE_CLAUSES (t), false,
14344 args, complain, in_decl);
14345 t = copy_node (t);
14346 OMP_TARGET_UPDATE_CLAUSES (t) = tmp;
14347 add_stmt (t);
14348 break;
14350 case OMP_SECTION:
14351 case OMP_CRITICAL:
14352 case OMP_MASTER:
14353 case OMP_TASKGROUP:
14354 case OMP_ORDERED:
14355 stmt = push_stmt_list ();
14356 RECUR (OMP_BODY (t));
14357 stmt = pop_stmt_list (stmt);
14359 t = copy_node (t);
14360 OMP_BODY (t) = stmt;
14361 add_stmt (t);
14362 break;
14364 case OMP_ATOMIC:
14365 gcc_assert (OMP_ATOMIC_DEPENDENT_P (t));
14366 if (TREE_CODE (TREE_OPERAND (t, 1)) != MODIFY_EXPR)
14368 tree op1 = TREE_OPERAND (t, 1);
14369 tree rhs1 = NULL_TREE;
14370 tree lhs, rhs;
14371 if (TREE_CODE (op1) == COMPOUND_EXPR)
14373 rhs1 = RECUR (TREE_OPERAND (op1, 0));
14374 op1 = TREE_OPERAND (op1, 1);
14376 lhs = RECUR (TREE_OPERAND (op1, 0));
14377 rhs = RECUR (TREE_OPERAND (op1, 1));
14378 finish_omp_atomic (OMP_ATOMIC, TREE_CODE (op1), lhs, rhs,
14379 NULL_TREE, NULL_TREE, rhs1,
14380 OMP_ATOMIC_SEQ_CST (t));
14382 else
14384 tree op1 = TREE_OPERAND (t, 1);
14385 tree v = NULL_TREE, lhs, rhs = NULL_TREE, lhs1 = NULL_TREE;
14386 tree rhs1 = NULL_TREE;
14387 enum tree_code code = TREE_CODE (TREE_OPERAND (op1, 1));
14388 enum tree_code opcode = NOP_EXPR;
14389 if (code == OMP_ATOMIC_READ)
14391 v = RECUR (TREE_OPERAND (op1, 0));
14392 lhs = RECUR (TREE_OPERAND (TREE_OPERAND (op1, 1), 0));
14394 else if (code == OMP_ATOMIC_CAPTURE_OLD
14395 || code == OMP_ATOMIC_CAPTURE_NEW)
14397 tree op11 = TREE_OPERAND (TREE_OPERAND (op1, 1), 1);
14398 v = RECUR (TREE_OPERAND (op1, 0));
14399 lhs1 = RECUR (TREE_OPERAND (TREE_OPERAND (op1, 1), 0));
14400 if (TREE_CODE (op11) == COMPOUND_EXPR)
14402 rhs1 = RECUR (TREE_OPERAND (op11, 0));
14403 op11 = TREE_OPERAND (op11, 1);
14405 lhs = RECUR (TREE_OPERAND (op11, 0));
14406 rhs = RECUR (TREE_OPERAND (op11, 1));
14407 opcode = TREE_CODE (op11);
14408 if (opcode == MODIFY_EXPR)
14409 opcode = NOP_EXPR;
14411 else
14413 code = OMP_ATOMIC;
14414 lhs = RECUR (TREE_OPERAND (op1, 0));
14415 rhs = RECUR (TREE_OPERAND (op1, 1));
14417 finish_omp_atomic (code, opcode, lhs, rhs, v, lhs1, rhs1,
14418 OMP_ATOMIC_SEQ_CST (t));
14420 break;
14422 case TRANSACTION_EXPR:
14424 int flags = 0;
14425 flags |= (TRANSACTION_EXPR_OUTER (t) ? TM_STMT_ATTR_OUTER : 0);
14426 flags |= (TRANSACTION_EXPR_RELAXED (t) ? TM_STMT_ATTR_RELAXED : 0);
14428 if (TRANSACTION_EXPR_IS_STMT (t))
14430 tree body = TRANSACTION_EXPR_BODY (t);
14431 tree noex = NULL_TREE;
14432 if (TREE_CODE (body) == MUST_NOT_THROW_EXPR)
14434 noex = MUST_NOT_THROW_COND (body);
14435 if (noex == NULL_TREE)
14436 noex = boolean_true_node;
14437 body = TREE_OPERAND (body, 0);
14439 stmt = begin_transaction_stmt (input_location, NULL, flags);
14440 RECUR (body);
14441 finish_transaction_stmt (stmt, NULL, flags, RECUR (noex));
14443 else
14445 stmt = build_transaction_expr (EXPR_LOCATION (t),
14446 RECUR (TRANSACTION_EXPR_BODY (t)),
14447 flags, NULL_TREE);
14448 RETURN (stmt);
14451 break;
14453 case MUST_NOT_THROW_EXPR:
14455 tree op0 = RECUR (TREE_OPERAND (t, 0));
14456 tree cond = RECUR (MUST_NOT_THROW_COND (t));
14457 RETURN (build_must_not_throw_expr (op0, cond));
14460 case EXPR_PACK_EXPANSION:
14461 error ("invalid use of pack expansion expression");
14462 RETURN (error_mark_node);
14464 case NONTYPE_ARGUMENT_PACK:
14465 error ("use %<...%> to expand argument pack");
14466 RETURN (error_mark_node);
14468 case CILK_SPAWN_STMT:
14469 cfun->calls_cilk_spawn = 1;
14470 RETURN (build_cilk_spawn (EXPR_LOCATION (t), RECUR (CILK_SPAWN_FN (t))));
14472 case CILK_SYNC_STMT:
14473 RETURN (build_cilk_sync ());
14475 case COMPOUND_EXPR:
14476 tmp = RECUR (TREE_OPERAND (t, 0));
14477 if (tmp == NULL_TREE)
14478 /* If the first operand was a statement, we're done with it. */
14479 RETURN (RECUR (TREE_OPERAND (t, 1)));
14480 RETURN (build_x_compound_expr (EXPR_LOCATION (t), tmp,
14481 RECUR (TREE_OPERAND (t, 1)),
14482 complain));
14484 case ANNOTATE_EXPR:
14485 tmp = RECUR (TREE_OPERAND (t, 0));
14486 RETURN (build2_loc (EXPR_LOCATION (t), ANNOTATE_EXPR,
14487 TREE_TYPE (tmp), tmp, RECUR (TREE_OPERAND (t, 1))));
14489 default:
14490 gcc_assert (!STATEMENT_CODE_P (TREE_CODE (t)));
14492 RETURN (tsubst_copy_and_build (t, args, complain, in_decl,
14493 /*function_p=*/false,
14494 integral_constant_expression_p));
14497 RETURN (NULL_TREE);
14498 out:
14499 input_location = loc;
14500 return r;
14501 #undef RECUR
14502 #undef RETURN
14505 /* Instantiate the special body of the artificial DECL_OMP_DECLARE_REDUCTION
14506 function. For description of the body see comment above
14507 cp_parser_omp_declare_reduction_exprs. */
14509 static void
14510 tsubst_omp_udr (tree t, tree args, tsubst_flags_t complain, tree in_decl)
14512 if (t == NULL_TREE || t == error_mark_node)
14513 return;
14515 gcc_assert (TREE_CODE (t) == STATEMENT_LIST);
14517 tree_stmt_iterator tsi;
14518 int i;
14519 tree stmts[7];
14520 memset (stmts, 0, sizeof stmts);
14521 for (i = 0, tsi = tsi_start (t);
14522 i < 7 && !tsi_end_p (tsi);
14523 i++, tsi_next (&tsi))
14524 stmts[i] = tsi_stmt (tsi);
14525 gcc_assert (tsi_end_p (tsi));
14527 if (i >= 3)
14529 gcc_assert (TREE_CODE (stmts[0]) == DECL_EXPR
14530 && TREE_CODE (stmts[1]) == DECL_EXPR);
14531 tree omp_out = tsubst (DECL_EXPR_DECL (stmts[0]),
14532 args, complain, in_decl);
14533 tree omp_in = tsubst (DECL_EXPR_DECL (stmts[1]),
14534 args, complain, in_decl);
14535 DECL_CONTEXT (omp_out) = current_function_decl;
14536 DECL_CONTEXT (omp_in) = current_function_decl;
14537 keep_next_level (true);
14538 tree block = begin_omp_structured_block ();
14539 tsubst_expr (stmts[2], args, complain, in_decl, false);
14540 block = finish_omp_structured_block (block);
14541 block = maybe_cleanup_point_expr_void (block);
14542 add_decl_expr (omp_out);
14543 if (TREE_NO_WARNING (DECL_EXPR_DECL (stmts[0])))
14544 TREE_NO_WARNING (omp_out) = 1;
14545 add_decl_expr (omp_in);
14546 finish_expr_stmt (block);
14548 if (i >= 6)
14550 gcc_assert (TREE_CODE (stmts[3]) == DECL_EXPR
14551 && TREE_CODE (stmts[4]) == DECL_EXPR);
14552 tree omp_priv = tsubst (DECL_EXPR_DECL (stmts[3]),
14553 args, complain, in_decl);
14554 tree omp_orig = tsubst (DECL_EXPR_DECL (stmts[4]),
14555 args, complain, in_decl);
14556 DECL_CONTEXT (omp_priv) = current_function_decl;
14557 DECL_CONTEXT (omp_orig) = current_function_decl;
14558 keep_next_level (true);
14559 tree block = begin_omp_structured_block ();
14560 tsubst_expr (stmts[5], args, complain, in_decl, false);
14561 block = finish_omp_structured_block (block);
14562 block = maybe_cleanup_point_expr_void (block);
14563 cp_walk_tree (&block, cp_remove_omp_priv_cleanup_stmt, omp_priv, NULL);
14564 add_decl_expr (omp_priv);
14565 add_decl_expr (omp_orig);
14566 finish_expr_stmt (block);
14567 if (i == 7)
14568 add_decl_expr (omp_orig);
14572 /* T is a postfix-expression that is not being used in a function
14573 call. Return the substituted version of T. */
14575 static tree
14576 tsubst_non_call_postfix_expression (tree t, tree args,
14577 tsubst_flags_t complain,
14578 tree in_decl)
14580 if (TREE_CODE (t) == SCOPE_REF)
14581 t = tsubst_qualified_id (t, args, complain, in_decl,
14582 /*done=*/false, /*address_p=*/false);
14583 else
14584 t = tsubst_copy_and_build (t, args, complain, in_decl,
14585 /*function_p=*/false,
14586 /*integral_constant_expression_p=*/false);
14588 return t;
14591 /* Like tsubst but deals with expressions and performs semantic
14592 analysis. FUNCTION_P is true if T is the "F" in "F (ARGS)". */
14594 tree
14595 tsubst_copy_and_build (tree t,
14596 tree args,
14597 tsubst_flags_t complain,
14598 tree in_decl,
14599 bool function_p,
14600 bool integral_constant_expression_p)
14602 #define RETURN(EXP) do { retval = (EXP); goto out; } while(0)
14603 #define RECUR(NODE) \
14604 tsubst_copy_and_build (NODE, args, complain, in_decl, \
14605 /*function_p=*/false, \
14606 integral_constant_expression_p)
14608 tree retval, op1;
14609 location_t loc;
14611 if (t == NULL_TREE || t == error_mark_node)
14612 return t;
14614 loc = input_location;
14615 if (EXPR_HAS_LOCATION (t))
14616 input_location = EXPR_LOCATION (t);
14618 /* N3276 decltype magic only applies to calls at the top level or on the
14619 right side of a comma. */
14620 tsubst_flags_t decltype_flag = (complain & tf_decltype);
14621 complain &= ~tf_decltype;
14623 switch (TREE_CODE (t))
14625 case USING_DECL:
14626 t = DECL_NAME (t);
14627 /* Fall through. */
14628 case IDENTIFIER_NODE:
14630 tree decl;
14631 cp_id_kind idk;
14632 bool non_integral_constant_expression_p;
14633 const char *error_msg;
14635 if (IDENTIFIER_TYPENAME_P (t))
14637 tree new_type = tsubst (TREE_TYPE (t), args, complain, in_decl);
14638 t = mangle_conv_op_name_for_type (new_type);
14641 /* Look up the name. */
14642 decl = lookup_name (t);
14644 /* By convention, expressions use ERROR_MARK_NODE to indicate
14645 failure, not NULL_TREE. */
14646 if (decl == NULL_TREE)
14647 decl = error_mark_node;
14649 decl = finish_id_expression (t, decl, NULL_TREE,
14650 &idk,
14651 integral_constant_expression_p,
14652 /*allow_non_integral_constant_expression_p=*/(cxx_dialect >= cxx11),
14653 &non_integral_constant_expression_p,
14654 /*template_p=*/false,
14655 /*done=*/true,
14656 /*address_p=*/false,
14657 /*template_arg_p=*/false,
14658 &error_msg,
14659 input_location);
14660 if (error_msg)
14661 error (error_msg);
14662 if (!function_p && identifier_p (decl))
14664 if (complain & tf_error)
14665 unqualified_name_lookup_error (decl);
14666 decl = error_mark_node;
14668 RETURN (decl);
14671 case TEMPLATE_ID_EXPR:
14673 tree object;
14674 tree templ = RECUR (TREE_OPERAND (t, 0));
14675 tree targs = TREE_OPERAND (t, 1);
14677 if (targs)
14678 targs = tsubst_template_args (targs, args, complain, in_decl);
14680 if (TREE_CODE (templ) == COMPONENT_REF)
14682 object = TREE_OPERAND (templ, 0);
14683 templ = TREE_OPERAND (templ, 1);
14685 else
14686 object = NULL_TREE;
14687 templ = lookup_template_function (templ, targs);
14689 if (object)
14690 RETURN (build3 (COMPONENT_REF, TREE_TYPE (templ),
14691 object, templ, NULL_TREE));
14692 else
14693 RETURN (baselink_for_fns (templ));
14696 case INDIRECT_REF:
14698 tree r = RECUR (TREE_OPERAND (t, 0));
14700 if (REFERENCE_REF_P (t))
14702 /* A type conversion to reference type will be enclosed in
14703 such an indirect ref, but the substitution of the cast
14704 will have also added such an indirect ref. */
14705 if (TREE_CODE (TREE_TYPE (r)) == REFERENCE_TYPE)
14706 r = convert_from_reference (r);
14708 else
14709 r = build_x_indirect_ref (input_location, r, RO_UNARY_STAR,
14710 complain|decltype_flag);
14711 RETURN (r);
14714 case NOP_EXPR:
14716 tree type = tsubst (TREE_TYPE (t), args, complain, in_decl);
14717 tree op0 = RECUR (TREE_OPERAND (t, 0));
14718 RETURN (build_nop (type, op0));
14721 case IMPLICIT_CONV_EXPR:
14723 tree type = tsubst (TREE_TYPE (t), args, complain, in_decl);
14724 tree expr = RECUR (TREE_OPERAND (t, 0));
14725 int flags = LOOKUP_IMPLICIT;
14726 if (IMPLICIT_CONV_EXPR_DIRECT_INIT (t))
14727 flags = LOOKUP_NORMAL;
14728 RETURN (perform_implicit_conversion_flags (type, expr, complain,
14729 flags));
14732 case CONVERT_EXPR:
14734 tree type = tsubst (TREE_TYPE (t), args, complain, in_decl);
14735 tree op0 = RECUR (TREE_OPERAND (t, 0));
14736 RETURN (build1 (CONVERT_EXPR, type, op0));
14739 case CAST_EXPR:
14740 case REINTERPRET_CAST_EXPR:
14741 case CONST_CAST_EXPR:
14742 case DYNAMIC_CAST_EXPR:
14743 case STATIC_CAST_EXPR:
14745 tree type;
14746 tree op, r = NULL_TREE;
14748 type = tsubst (TREE_TYPE (t), args, complain, in_decl);
14749 if (integral_constant_expression_p
14750 && !cast_valid_in_integral_constant_expression_p (type))
14752 if (complain & tf_error)
14753 error ("a cast to a type other than an integral or "
14754 "enumeration type cannot appear in a constant-expression");
14755 RETURN (error_mark_node);
14758 op = RECUR (TREE_OPERAND (t, 0));
14760 warning_sentinel s(warn_useless_cast);
14761 switch (TREE_CODE (t))
14763 case CAST_EXPR:
14764 r = build_functional_cast (type, op, complain);
14765 break;
14766 case REINTERPRET_CAST_EXPR:
14767 r = build_reinterpret_cast (type, op, complain);
14768 break;
14769 case CONST_CAST_EXPR:
14770 r = build_const_cast (type, op, complain);
14771 break;
14772 case DYNAMIC_CAST_EXPR:
14773 r = build_dynamic_cast (type, op, complain);
14774 break;
14775 case STATIC_CAST_EXPR:
14776 r = build_static_cast (type, op, complain);
14777 break;
14778 default:
14779 gcc_unreachable ();
14782 RETURN (r);
14785 case POSTDECREMENT_EXPR:
14786 case POSTINCREMENT_EXPR:
14787 op1 = tsubst_non_call_postfix_expression (TREE_OPERAND (t, 0),
14788 args, complain, in_decl);
14789 RETURN (build_x_unary_op (input_location, TREE_CODE (t), op1,
14790 complain|decltype_flag));
14792 case PREDECREMENT_EXPR:
14793 case PREINCREMENT_EXPR:
14794 case NEGATE_EXPR:
14795 case BIT_NOT_EXPR:
14796 case ABS_EXPR:
14797 case TRUTH_NOT_EXPR:
14798 case UNARY_PLUS_EXPR: /* Unary + */
14799 case REALPART_EXPR:
14800 case IMAGPART_EXPR:
14801 RETURN (build_x_unary_op (input_location, TREE_CODE (t),
14802 RECUR (TREE_OPERAND (t, 0)),
14803 complain|decltype_flag));
14805 case FIX_TRUNC_EXPR:
14806 RETURN (cp_build_unary_op (FIX_TRUNC_EXPR, RECUR (TREE_OPERAND (t, 0)),
14807 0, complain));
14809 case ADDR_EXPR:
14810 op1 = TREE_OPERAND (t, 0);
14811 if (TREE_CODE (op1) == LABEL_DECL)
14812 RETURN (finish_label_address_expr (DECL_NAME (op1),
14813 EXPR_LOCATION (op1)));
14814 if (TREE_CODE (op1) == SCOPE_REF)
14815 op1 = tsubst_qualified_id (op1, args, complain, in_decl,
14816 /*done=*/true, /*address_p=*/true);
14817 else
14818 op1 = tsubst_non_call_postfix_expression (op1, args, complain,
14819 in_decl);
14820 RETURN (build_x_unary_op (input_location, ADDR_EXPR, op1,
14821 complain|decltype_flag));
14823 case PLUS_EXPR:
14824 case MINUS_EXPR:
14825 case MULT_EXPR:
14826 case TRUNC_DIV_EXPR:
14827 case CEIL_DIV_EXPR:
14828 case FLOOR_DIV_EXPR:
14829 case ROUND_DIV_EXPR:
14830 case EXACT_DIV_EXPR:
14831 case BIT_AND_EXPR:
14832 case BIT_IOR_EXPR:
14833 case BIT_XOR_EXPR:
14834 case TRUNC_MOD_EXPR:
14835 case FLOOR_MOD_EXPR:
14836 case TRUTH_ANDIF_EXPR:
14837 case TRUTH_ORIF_EXPR:
14838 case TRUTH_AND_EXPR:
14839 case TRUTH_OR_EXPR:
14840 case RSHIFT_EXPR:
14841 case LSHIFT_EXPR:
14842 case RROTATE_EXPR:
14843 case LROTATE_EXPR:
14844 case EQ_EXPR:
14845 case NE_EXPR:
14846 case MAX_EXPR:
14847 case MIN_EXPR:
14848 case LE_EXPR:
14849 case GE_EXPR:
14850 case LT_EXPR:
14851 case GT_EXPR:
14852 case MEMBER_REF:
14853 case DOTSTAR_EXPR:
14855 warning_sentinel s1(warn_type_limits);
14856 warning_sentinel s2(warn_div_by_zero);
14857 tree op0 = RECUR (TREE_OPERAND (t, 0));
14858 tree op1 = RECUR (TREE_OPERAND (t, 1));
14859 tree r = build_x_binary_op
14860 (input_location, TREE_CODE (t),
14861 op0,
14862 (TREE_NO_WARNING (TREE_OPERAND (t, 0))
14863 ? ERROR_MARK
14864 : TREE_CODE (TREE_OPERAND (t, 0))),
14865 op1,
14866 (TREE_NO_WARNING (TREE_OPERAND (t, 1))
14867 ? ERROR_MARK
14868 : TREE_CODE (TREE_OPERAND (t, 1))),
14869 /*overload=*/NULL,
14870 complain|decltype_flag);
14871 if (EXPR_P (r) && TREE_NO_WARNING (t))
14872 TREE_NO_WARNING (r) = TREE_NO_WARNING (t);
14874 RETURN (r);
14877 case POINTER_PLUS_EXPR:
14879 tree op0 = RECUR (TREE_OPERAND (t, 0));
14880 tree op1 = RECUR (TREE_OPERAND (t, 1));
14881 return fold_build_pointer_plus (op0, op1);
14884 case SCOPE_REF:
14885 RETURN (tsubst_qualified_id (t, args, complain, in_decl, /*done=*/true,
14886 /*address_p=*/false));
14887 case ARRAY_REF:
14888 op1 = tsubst_non_call_postfix_expression (TREE_OPERAND (t, 0),
14889 args, complain, in_decl);
14890 RETURN (build_x_array_ref (EXPR_LOCATION (t), op1,
14891 RECUR (TREE_OPERAND (t, 1)),
14892 complain|decltype_flag));
14894 case ARRAY_NOTATION_REF:
14896 tree start_index, length, stride;
14897 op1 = tsubst_non_call_postfix_expression (ARRAY_NOTATION_ARRAY (t),
14898 args, complain, in_decl);
14899 start_index = RECUR (ARRAY_NOTATION_START (t));
14900 length = RECUR (ARRAY_NOTATION_LENGTH (t));
14901 stride = RECUR (ARRAY_NOTATION_STRIDE (t));
14902 RETURN (build_array_notation_ref (EXPR_LOCATION (t), op1, start_index,
14903 length, stride, TREE_TYPE (op1)));
14905 case SIZEOF_EXPR:
14906 if (PACK_EXPANSION_P (TREE_OPERAND (t, 0)))
14907 RETURN (tsubst_copy (t, args, complain, in_decl));
14908 /* Fall through */
14910 case ALIGNOF_EXPR:
14912 tree r;
14914 op1 = TREE_OPERAND (t, 0);
14915 if (TREE_CODE (t) == SIZEOF_EXPR && SIZEOF_EXPR_TYPE_P (t))
14916 op1 = TREE_TYPE (op1);
14917 if (!args)
14919 /* When there are no ARGS, we are trying to evaluate a
14920 non-dependent expression from the parser. Trying to do
14921 the substitutions may not work. */
14922 if (!TYPE_P (op1))
14923 op1 = TREE_TYPE (op1);
14925 else
14927 ++cp_unevaluated_operand;
14928 ++c_inhibit_evaluation_warnings;
14929 if (TYPE_P (op1))
14930 op1 = tsubst (op1, args, complain, in_decl);
14931 else
14932 op1 = tsubst_copy_and_build (op1, args, complain, in_decl,
14933 /*function_p=*/false,
14934 /*integral_constant_expression_p=*/
14935 false);
14936 --cp_unevaluated_operand;
14937 --c_inhibit_evaluation_warnings;
14939 if (TYPE_P (op1))
14940 r = cxx_sizeof_or_alignof_type (op1, TREE_CODE (t),
14941 complain & tf_error);
14942 else
14943 r = cxx_sizeof_or_alignof_expr (op1, TREE_CODE (t),
14944 complain & tf_error);
14945 if (TREE_CODE (t) == SIZEOF_EXPR && r != error_mark_node)
14947 if (TREE_CODE (r) != SIZEOF_EXPR || TYPE_P (op1))
14949 if (!processing_template_decl && TYPE_P (op1))
14951 r = build_min (SIZEOF_EXPR, size_type_node,
14952 build1 (NOP_EXPR, op1, error_mark_node));
14953 SIZEOF_EXPR_TYPE_P (r) = 1;
14955 else
14956 r = build_min (SIZEOF_EXPR, size_type_node, op1);
14957 TREE_SIDE_EFFECTS (r) = 0;
14958 TREE_READONLY (r) = 1;
14960 SET_EXPR_LOCATION (r, EXPR_LOCATION (t));
14962 RETURN (r);
14965 case AT_ENCODE_EXPR:
14967 op1 = TREE_OPERAND (t, 0);
14968 ++cp_unevaluated_operand;
14969 ++c_inhibit_evaluation_warnings;
14970 op1 = tsubst_copy_and_build (op1, args, complain, in_decl,
14971 /*function_p=*/false,
14972 /*integral_constant_expression_p=*/false);
14973 --cp_unevaluated_operand;
14974 --c_inhibit_evaluation_warnings;
14975 RETURN (objc_build_encode_expr (op1));
14978 case NOEXCEPT_EXPR:
14979 op1 = TREE_OPERAND (t, 0);
14980 ++cp_unevaluated_operand;
14981 ++c_inhibit_evaluation_warnings;
14982 ++cp_noexcept_operand;
14983 op1 = tsubst_copy_and_build (op1, args, complain, in_decl,
14984 /*function_p=*/false,
14985 /*integral_constant_expression_p=*/false);
14986 --cp_unevaluated_operand;
14987 --c_inhibit_evaluation_warnings;
14988 --cp_noexcept_operand;
14989 RETURN (finish_noexcept_expr (op1, complain));
14991 case MODOP_EXPR:
14993 warning_sentinel s(warn_div_by_zero);
14994 tree lhs = RECUR (TREE_OPERAND (t, 0));
14995 tree rhs = RECUR (TREE_OPERAND (t, 2));
14996 tree r = build_x_modify_expr
14997 (EXPR_LOCATION (t), lhs, TREE_CODE (TREE_OPERAND (t, 1)), rhs,
14998 complain|decltype_flag);
14999 /* TREE_NO_WARNING must be set if either the expression was
15000 parenthesized or it uses an operator such as >>= rather
15001 than plain assignment. In the former case, it was already
15002 set and must be copied. In the latter case,
15003 build_x_modify_expr sets it and it must not be reset
15004 here. */
15005 if (TREE_NO_WARNING (t))
15006 TREE_NO_WARNING (r) = TREE_NO_WARNING (t);
15008 RETURN (r);
15011 case ARROW_EXPR:
15012 op1 = tsubst_non_call_postfix_expression (TREE_OPERAND (t, 0),
15013 args, complain, in_decl);
15014 /* Remember that there was a reference to this entity. */
15015 if (DECL_P (op1)
15016 && !mark_used (op1, complain) && !(complain & tf_error))
15017 RETURN (error_mark_node);
15018 RETURN (build_x_arrow (input_location, op1, complain));
15020 case NEW_EXPR:
15022 tree placement = RECUR (TREE_OPERAND (t, 0));
15023 tree init = RECUR (TREE_OPERAND (t, 3));
15024 vec<tree, va_gc> *placement_vec;
15025 vec<tree, va_gc> *init_vec;
15026 tree ret;
15028 if (placement == NULL_TREE)
15029 placement_vec = NULL;
15030 else
15032 placement_vec = make_tree_vector ();
15033 for (; placement != NULL_TREE; placement = TREE_CHAIN (placement))
15034 vec_safe_push (placement_vec, TREE_VALUE (placement));
15037 /* If there was an initializer in the original tree, but it
15038 instantiated to an empty list, then we should pass a
15039 non-NULL empty vector to tell build_new that it was an
15040 empty initializer() rather than no initializer. This can
15041 only happen when the initializer is a pack expansion whose
15042 parameter packs are of length zero. */
15043 if (init == NULL_TREE && TREE_OPERAND (t, 3) == NULL_TREE)
15044 init_vec = NULL;
15045 else
15047 init_vec = make_tree_vector ();
15048 if (init == void_node)
15049 gcc_assert (init_vec != NULL);
15050 else
15052 for (; init != NULL_TREE; init = TREE_CHAIN (init))
15053 vec_safe_push (init_vec, TREE_VALUE (init));
15057 tree op1 = tsubst (TREE_OPERAND (t, 1), args, complain, in_decl);
15058 tree op2 = RECUR (TREE_OPERAND (t, 2));
15059 ret = build_new (&placement_vec, op1, op2, &init_vec,
15060 NEW_EXPR_USE_GLOBAL (t),
15061 complain);
15063 if (placement_vec != NULL)
15064 release_tree_vector (placement_vec);
15065 if (init_vec != NULL)
15066 release_tree_vector (init_vec);
15068 RETURN (ret);
15071 case DELETE_EXPR:
15073 tree op0 = RECUR (TREE_OPERAND (t, 0));
15074 tree op1 = RECUR (TREE_OPERAND (t, 1));
15075 RETURN (delete_sanity (op0, op1,
15076 DELETE_EXPR_USE_VEC (t),
15077 DELETE_EXPR_USE_GLOBAL (t),
15078 complain));
15081 case COMPOUND_EXPR:
15083 tree op0 = tsubst_copy_and_build (TREE_OPERAND (t, 0), args,
15084 complain & ~tf_decltype, in_decl,
15085 /*function_p=*/false,
15086 integral_constant_expression_p);
15087 RETURN (build_x_compound_expr (EXPR_LOCATION (t),
15088 op0,
15089 RECUR (TREE_OPERAND (t, 1)),
15090 complain|decltype_flag));
15093 case CALL_EXPR:
15095 tree function;
15096 vec<tree, va_gc> *call_args;
15097 unsigned int nargs, i;
15098 bool qualified_p;
15099 bool koenig_p;
15100 tree ret;
15102 function = CALL_EXPR_FN (t);
15103 /* When we parsed the expression, we determined whether or
15104 not Koenig lookup should be performed. */
15105 koenig_p = KOENIG_LOOKUP_P (t);
15106 if (TREE_CODE (function) == SCOPE_REF)
15108 qualified_p = true;
15109 function = tsubst_qualified_id (function, args, complain, in_decl,
15110 /*done=*/false,
15111 /*address_p=*/false);
15113 else if (koenig_p && identifier_p (function))
15115 /* Do nothing; calling tsubst_copy_and_build on an identifier
15116 would incorrectly perform unqualified lookup again.
15118 Note that we can also have an IDENTIFIER_NODE if the earlier
15119 unqualified lookup found a member function; in that case
15120 koenig_p will be false and we do want to do the lookup
15121 again to find the instantiated member function.
15123 FIXME but doing that causes c++/15272, so we need to stop
15124 using IDENTIFIER_NODE in that situation. */
15125 qualified_p = false;
15127 else
15129 if (TREE_CODE (function) == COMPONENT_REF)
15131 tree op = TREE_OPERAND (function, 1);
15133 qualified_p = (TREE_CODE (op) == SCOPE_REF
15134 || (BASELINK_P (op)
15135 && BASELINK_QUALIFIED_P (op)));
15137 else
15138 qualified_p = false;
15140 if (TREE_CODE (function) == ADDR_EXPR
15141 && TREE_CODE (TREE_OPERAND (function, 0)) == FUNCTION_DECL)
15142 /* Avoid error about taking the address of a constructor. */
15143 function = TREE_OPERAND (function, 0);
15145 function = tsubst_copy_and_build (function, args, complain,
15146 in_decl,
15147 !qualified_p,
15148 integral_constant_expression_p);
15150 if (BASELINK_P (function))
15151 qualified_p = true;
15154 nargs = call_expr_nargs (t);
15155 call_args = make_tree_vector ();
15156 for (i = 0; i < nargs; ++i)
15158 tree arg = CALL_EXPR_ARG (t, i);
15160 if (!PACK_EXPANSION_P (arg))
15161 vec_safe_push (call_args, RECUR (CALL_EXPR_ARG (t, i)));
15162 else
15164 /* Expand the pack expansion and push each entry onto
15165 CALL_ARGS. */
15166 arg = tsubst_pack_expansion (arg, args, complain, in_decl);
15167 if (TREE_CODE (arg) == TREE_VEC)
15169 unsigned int len, j;
15171 len = TREE_VEC_LENGTH (arg);
15172 for (j = 0; j < len; ++j)
15174 tree value = TREE_VEC_ELT (arg, j);
15175 if (value != NULL_TREE)
15176 value = convert_from_reference (value);
15177 vec_safe_push (call_args, value);
15180 else
15182 /* A partial substitution. Add one entry. */
15183 vec_safe_push (call_args, arg);
15188 /* We do not perform argument-dependent lookup if normal
15189 lookup finds a non-function, in accordance with the
15190 expected resolution of DR 218. */
15191 if (koenig_p
15192 && ((is_overloaded_fn (function)
15193 /* If lookup found a member function, the Koenig lookup is
15194 not appropriate, even if an unqualified-name was used
15195 to denote the function. */
15196 && !DECL_FUNCTION_MEMBER_P (get_first_fn (function)))
15197 || identifier_p (function))
15198 /* Only do this when substitution turns a dependent call
15199 into a non-dependent call. */
15200 && type_dependent_expression_p_push (t)
15201 && !any_type_dependent_arguments_p (call_args))
15202 function = perform_koenig_lookup (function, call_args, tf_none);
15204 if (identifier_p (function)
15205 && !any_type_dependent_arguments_p (call_args))
15207 if (koenig_p && (complain & tf_warning_or_error))
15209 /* For backwards compatibility and good diagnostics, try
15210 the unqualified lookup again if we aren't in SFINAE
15211 context. */
15212 tree unq = (tsubst_copy_and_build
15213 (function, args, complain, in_decl, true,
15214 integral_constant_expression_p));
15215 if (unq == error_mark_node)
15216 RETURN (error_mark_node);
15218 if (unq != function)
15220 tree fn = unq;
15221 if (INDIRECT_REF_P (fn))
15222 fn = TREE_OPERAND (fn, 0);
15223 if (TREE_CODE (fn) == COMPONENT_REF)
15224 fn = TREE_OPERAND (fn, 1);
15225 if (is_overloaded_fn (fn))
15226 fn = get_first_fn (fn);
15227 if (permerror (EXPR_LOC_OR_LOC (t, input_location),
15228 "%qD was not declared in this scope, "
15229 "and no declarations were found by "
15230 "argument-dependent lookup at the point "
15231 "of instantiation", function))
15233 if (!DECL_P (fn))
15234 /* Can't say anything more. */;
15235 else if (DECL_CLASS_SCOPE_P (fn))
15237 location_t loc = EXPR_LOC_OR_LOC (t,
15238 input_location);
15239 inform (loc,
15240 "declarations in dependent base %qT are "
15241 "not found by unqualified lookup",
15242 DECL_CLASS_CONTEXT (fn));
15243 if (current_class_ptr)
15244 inform (loc,
15245 "use %<this->%D%> instead", function);
15246 else
15247 inform (loc,
15248 "use %<%T::%D%> instead",
15249 current_class_name, function);
15251 else
15252 inform (0, "%q+D declared here, later in the "
15253 "translation unit", fn);
15255 function = unq;
15258 if (identifier_p (function))
15260 if (complain & tf_error)
15261 unqualified_name_lookup_error (function);
15262 release_tree_vector (call_args);
15263 RETURN (error_mark_node);
15267 /* Remember that there was a reference to this entity. */
15268 if (DECL_P (function)
15269 && !mark_used (function, complain) && !(complain & tf_error))
15270 RETURN (error_mark_node);
15272 /* Put back tf_decltype for the actual call. */
15273 complain |= decltype_flag;
15275 if (TREE_CODE (function) == OFFSET_REF)
15276 ret = build_offset_ref_call_from_tree (function, &call_args,
15277 complain);
15278 else if (TREE_CODE (function) == COMPONENT_REF)
15280 tree instance = TREE_OPERAND (function, 0);
15281 tree fn = TREE_OPERAND (function, 1);
15283 if (processing_template_decl
15284 && (type_dependent_expression_p (instance)
15285 || (!BASELINK_P (fn)
15286 && TREE_CODE (fn) != FIELD_DECL)
15287 || type_dependent_expression_p (fn)
15288 || any_type_dependent_arguments_p (call_args)))
15289 ret = build_nt_call_vec (function, call_args);
15290 else if (!BASELINK_P (fn))
15291 ret = finish_call_expr (function, &call_args,
15292 /*disallow_virtual=*/false,
15293 /*koenig_p=*/false,
15294 complain);
15295 else
15296 ret = (build_new_method_call
15297 (instance, fn,
15298 &call_args, NULL_TREE,
15299 qualified_p ? LOOKUP_NONVIRTUAL : LOOKUP_NORMAL,
15300 /*fn_p=*/NULL,
15301 complain));
15303 else
15304 ret = finish_call_expr (function, &call_args,
15305 /*disallow_virtual=*/qualified_p,
15306 koenig_p,
15307 complain);
15309 release_tree_vector (call_args);
15311 RETURN (ret);
15314 case COND_EXPR:
15316 tree cond = RECUR (TREE_OPERAND (t, 0));
15317 tree folded_cond = fold_non_dependent_expr (cond);
15318 tree exp1, exp2;
15320 if (TREE_CODE (folded_cond) == INTEGER_CST)
15322 if (integer_zerop (folded_cond))
15324 ++c_inhibit_evaluation_warnings;
15325 exp1 = RECUR (TREE_OPERAND (t, 1));
15326 --c_inhibit_evaluation_warnings;
15327 exp2 = RECUR (TREE_OPERAND (t, 2));
15329 else
15331 exp1 = RECUR (TREE_OPERAND (t, 1));
15332 ++c_inhibit_evaluation_warnings;
15333 exp2 = RECUR (TREE_OPERAND (t, 2));
15334 --c_inhibit_evaluation_warnings;
15336 cond = folded_cond;
15338 else
15340 exp1 = RECUR (TREE_OPERAND (t, 1));
15341 exp2 = RECUR (TREE_OPERAND (t, 2));
15344 RETURN (build_x_conditional_expr (EXPR_LOCATION (t),
15345 cond, exp1, exp2, complain));
15348 case PSEUDO_DTOR_EXPR:
15350 tree op0 = RECUR (TREE_OPERAND (t, 0));
15351 tree op1 = RECUR (TREE_OPERAND (t, 1));
15352 tree op2 = tsubst (TREE_OPERAND (t, 2), args, complain, in_decl);
15353 RETURN (finish_pseudo_destructor_expr (op0, op1, op2,
15354 input_location));
15357 case TREE_LIST:
15359 tree purpose, value, chain;
15361 if (t == void_list_node)
15362 RETURN (t);
15364 if ((TREE_PURPOSE (t) && PACK_EXPANSION_P (TREE_PURPOSE (t)))
15365 || (TREE_VALUE (t) && PACK_EXPANSION_P (TREE_VALUE (t))))
15367 /* We have pack expansions, so expand those and
15368 create a new list out of it. */
15369 tree purposevec = NULL_TREE;
15370 tree valuevec = NULL_TREE;
15371 tree chain;
15372 int i, len = -1;
15374 /* Expand the argument expressions. */
15375 if (TREE_PURPOSE (t))
15376 purposevec = tsubst_pack_expansion (TREE_PURPOSE (t), args,
15377 complain, in_decl);
15378 if (TREE_VALUE (t))
15379 valuevec = tsubst_pack_expansion (TREE_VALUE (t), args,
15380 complain, in_decl);
15382 /* Build the rest of the list. */
15383 chain = TREE_CHAIN (t);
15384 if (chain && chain != void_type_node)
15385 chain = RECUR (chain);
15387 /* Determine the number of arguments. */
15388 if (purposevec && TREE_CODE (purposevec) == TREE_VEC)
15390 len = TREE_VEC_LENGTH (purposevec);
15391 gcc_assert (!valuevec || len == TREE_VEC_LENGTH (valuevec));
15393 else if (TREE_CODE (valuevec) == TREE_VEC)
15394 len = TREE_VEC_LENGTH (valuevec);
15395 else
15397 /* Since we only performed a partial substitution into
15398 the argument pack, we only RETURN (a single list
15399 node. */
15400 if (purposevec == TREE_PURPOSE (t)
15401 && valuevec == TREE_VALUE (t)
15402 && chain == TREE_CHAIN (t))
15403 RETURN (t);
15405 RETURN (tree_cons (purposevec, valuevec, chain));
15408 /* Convert the argument vectors into a TREE_LIST */
15409 i = len;
15410 while (i > 0)
15412 /* Grab the Ith values. */
15413 i--;
15414 purpose = purposevec ? TREE_VEC_ELT (purposevec, i)
15415 : NULL_TREE;
15416 value
15417 = valuevec ? convert_from_reference (TREE_VEC_ELT (valuevec, i))
15418 : NULL_TREE;
15420 /* Build the list (backwards). */
15421 chain = tree_cons (purpose, value, chain);
15424 RETURN (chain);
15427 purpose = TREE_PURPOSE (t);
15428 if (purpose)
15429 purpose = RECUR (purpose);
15430 value = TREE_VALUE (t);
15431 if (value)
15432 value = RECUR (value);
15433 chain = TREE_CHAIN (t);
15434 if (chain && chain != void_type_node)
15435 chain = RECUR (chain);
15436 if (purpose == TREE_PURPOSE (t)
15437 && value == TREE_VALUE (t)
15438 && chain == TREE_CHAIN (t))
15439 RETURN (t);
15440 RETURN (tree_cons (purpose, value, chain));
15443 case COMPONENT_REF:
15445 tree object;
15446 tree object_type;
15447 tree member;
15448 tree r;
15450 object = tsubst_non_call_postfix_expression (TREE_OPERAND (t, 0),
15451 args, complain, in_decl);
15452 /* Remember that there was a reference to this entity. */
15453 if (DECL_P (object)
15454 && !mark_used (object, complain) && !(complain & tf_error))
15455 RETURN (error_mark_node);
15456 object_type = TREE_TYPE (object);
15458 member = TREE_OPERAND (t, 1);
15459 if (BASELINK_P (member))
15460 member = tsubst_baselink (member,
15461 non_reference (TREE_TYPE (object)),
15462 args, complain, in_decl);
15463 else
15464 member = tsubst_copy (member, args, complain, in_decl);
15465 if (member == error_mark_node)
15466 RETURN (error_mark_node);
15468 if (type_dependent_expression_p (object))
15469 /* We can't do much here. */;
15470 else if (!CLASS_TYPE_P (object_type))
15472 if (scalarish_type_p (object_type))
15474 tree s = NULL_TREE;
15475 tree dtor = member;
15477 if (TREE_CODE (dtor) == SCOPE_REF)
15479 s = TREE_OPERAND (dtor, 0);
15480 dtor = TREE_OPERAND (dtor, 1);
15482 if (TREE_CODE (dtor) == BIT_NOT_EXPR)
15484 dtor = TREE_OPERAND (dtor, 0);
15485 if (TYPE_P (dtor))
15486 RETURN (finish_pseudo_destructor_expr
15487 (object, s, dtor, input_location));
15491 else if (TREE_CODE (member) == SCOPE_REF
15492 && TREE_CODE (TREE_OPERAND (member, 1)) == TEMPLATE_ID_EXPR)
15494 /* Lookup the template functions now that we know what the
15495 scope is. */
15496 tree scope = TREE_OPERAND (member, 0);
15497 tree tmpl = TREE_OPERAND (TREE_OPERAND (member, 1), 0);
15498 tree args = TREE_OPERAND (TREE_OPERAND (member, 1), 1);
15499 member = lookup_qualified_name (scope, tmpl,
15500 /*is_type_p=*/false,
15501 /*complain=*/false);
15502 if (BASELINK_P (member))
15504 BASELINK_FUNCTIONS (member)
15505 = build_nt (TEMPLATE_ID_EXPR, BASELINK_FUNCTIONS (member),
15506 args);
15507 member = (adjust_result_of_qualified_name_lookup
15508 (member, BINFO_TYPE (BASELINK_BINFO (member)),
15509 object_type));
15511 else
15513 qualified_name_lookup_error (scope, tmpl, member,
15514 input_location);
15515 RETURN (error_mark_node);
15518 else if (TREE_CODE (member) == SCOPE_REF
15519 && !CLASS_TYPE_P (TREE_OPERAND (member, 0))
15520 && TREE_CODE (TREE_OPERAND (member, 0)) != NAMESPACE_DECL)
15522 if (complain & tf_error)
15524 if (TYPE_P (TREE_OPERAND (member, 0)))
15525 error ("%qT is not a class or namespace",
15526 TREE_OPERAND (member, 0));
15527 else
15528 error ("%qD is not a class or namespace",
15529 TREE_OPERAND (member, 0));
15531 RETURN (error_mark_node);
15533 else if (TREE_CODE (member) == FIELD_DECL)
15535 r = finish_non_static_data_member (member, object, NULL_TREE);
15536 if (TREE_CODE (r) == COMPONENT_REF)
15537 REF_PARENTHESIZED_P (r) = REF_PARENTHESIZED_P (t);
15538 RETURN (r);
15541 r = finish_class_member_access_expr (object, member,
15542 /*template_p=*/false,
15543 complain);
15544 if (TREE_CODE (r) == COMPONENT_REF)
15545 REF_PARENTHESIZED_P (r) = REF_PARENTHESIZED_P (t);
15546 RETURN (r);
15549 case THROW_EXPR:
15550 RETURN (build_throw
15551 (RECUR (TREE_OPERAND (t, 0))));
15553 case CONSTRUCTOR:
15555 vec<constructor_elt, va_gc> *n;
15556 constructor_elt *ce;
15557 unsigned HOST_WIDE_INT idx;
15558 tree type = tsubst (TREE_TYPE (t), args, complain, in_decl);
15559 bool process_index_p;
15560 int newlen;
15561 bool need_copy_p = false;
15562 tree r;
15564 if (type == error_mark_node)
15565 RETURN (error_mark_node);
15567 /* digest_init will do the wrong thing if we let it. */
15568 if (type && TYPE_PTRMEMFUNC_P (type))
15569 RETURN (t);
15571 /* We do not want to process the index of aggregate
15572 initializers as they are identifier nodes which will be
15573 looked up by digest_init. */
15574 process_index_p = !(type && MAYBE_CLASS_TYPE_P (type));
15576 n = vec_safe_copy (CONSTRUCTOR_ELTS (t));
15577 newlen = vec_safe_length (n);
15578 FOR_EACH_VEC_SAFE_ELT (n, idx, ce)
15580 if (ce->index && process_index_p
15581 /* An identifier index is looked up in the type
15582 being initialized, not the current scope. */
15583 && TREE_CODE (ce->index) != IDENTIFIER_NODE)
15584 ce->index = RECUR (ce->index);
15586 if (PACK_EXPANSION_P (ce->value))
15588 /* Substitute into the pack expansion. */
15589 ce->value = tsubst_pack_expansion (ce->value, args, complain,
15590 in_decl);
15592 if (ce->value == error_mark_node
15593 || PACK_EXPANSION_P (ce->value))
15595 else if (TREE_VEC_LENGTH (ce->value) == 1)
15596 /* Just move the argument into place. */
15597 ce->value = TREE_VEC_ELT (ce->value, 0);
15598 else
15600 /* Update the length of the final CONSTRUCTOR
15601 arguments vector, and note that we will need to
15602 copy.*/
15603 newlen = newlen + TREE_VEC_LENGTH (ce->value) - 1;
15604 need_copy_p = true;
15607 else
15608 ce->value = RECUR (ce->value);
15611 if (need_copy_p)
15613 vec<constructor_elt, va_gc> *old_n = n;
15615 vec_alloc (n, newlen);
15616 FOR_EACH_VEC_ELT (*old_n, idx, ce)
15618 if (TREE_CODE (ce->value) == TREE_VEC)
15620 int i, len = TREE_VEC_LENGTH (ce->value);
15621 for (i = 0; i < len; ++i)
15622 CONSTRUCTOR_APPEND_ELT (n, 0,
15623 TREE_VEC_ELT (ce->value, i));
15625 else
15626 CONSTRUCTOR_APPEND_ELT (n, 0, ce->value);
15630 r = build_constructor (init_list_type_node, n);
15631 CONSTRUCTOR_IS_DIRECT_INIT (r) = CONSTRUCTOR_IS_DIRECT_INIT (t);
15633 if (TREE_HAS_CONSTRUCTOR (t))
15634 RETURN (finish_compound_literal (type, r, complain));
15636 TREE_TYPE (r) = type;
15637 RETURN (r);
15640 case TYPEID_EXPR:
15642 tree operand_0 = TREE_OPERAND (t, 0);
15643 if (TYPE_P (operand_0))
15645 operand_0 = tsubst (operand_0, args, complain, in_decl);
15646 RETURN (get_typeid (operand_0, complain));
15648 else
15650 operand_0 = RECUR (operand_0);
15651 RETURN (build_typeid (operand_0, complain));
15655 case VAR_DECL:
15656 if (!args)
15657 RETURN (t);
15658 else if (DECL_PACK_P (t))
15660 /* We don't build decls for an instantiation of a
15661 variadic capture proxy, we instantiate the elements
15662 when needed. */
15663 gcc_assert (DECL_HAS_VALUE_EXPR_P (t));
15664 return RECUR (DECL_VALUE_EXPR (t));
15666 /* Fall through */
15668 case PARM_DECL:
15670 tree r = tsubst_copy (t, args, complain, in_decl);
15671 /* ??? We're doing a subset of finish_id_expression here. */
15672 if (VAR_P (r)
15673 && !processing_template_decl
15674 && !cp_unevaluated_operand
15675 && (TREE_STATIC (r) || DECL_EXTERNAL (r))
15676 && DECL_THREAD_LOCAL_P (r))
15678 if (tree wrap = get_tls_wrapper_fn (r))
15679 /* Replace an evaluated use of the thread_local variable with
15680 a call to its wrapper. */
15681 r = build_cxx_call (wrap, 0, NULL, tf_warning_or_error);
15683 else if (outer_automatic_var_p (r))
15685 r = process_outer_var_ref (r, complain);
15686 if (is_capture_proxy (r))
15687 register_local_specialization (r, t);
15690 if (TREE_CODE (TREE_TYPE (t)) != REFERENCE_TYPE)
15691 /* If the original type was a reference, we'll be wrapped in
15692 the appropriate INDIRECT_REF. */
15693 r = convert_from_reference (r);
15694 RETURN (r);
15697 case VA_ARG_EXPR:
15699 tree op0 = RECUR (TREE_OPERAND (t, 0));
15700 tree type = tsubst (TREE_TYPE (t), args, complain, in_decl);
15701 RETURN (build_x_va_arg (EXPR_LOCATION (t), op0, type));
15704 case OFFSETOF_EXPR:
15705 RETURN (finish_offsetof (RECUR (TREE_OPERAND (t, 0)),
15706 EXPR_LOCATION (t)));
15708 case TRAIT_EXPR:
15710 tree type1 = tsubst (TRAIT_EXPR_TYPE1 (t), args,
15711 complain, in_decl);
15713 tree type2 = TRAIT_EXPR_TYPE2 (t);
15714 if (type2 && TREE_CODE (type2) == TREE_LIST)
15715 type2 = RECUR (type2);
15716 else if (type2)
15717 type2 = tsubst (type2, args, complain, in_decl);
15719 RETURN (finish_trait_expr (TRAIT_EXPR_KIND (t), type1, type2));
15722 case STMT_EXPR:
15724 tree old_stmt_expr = cur_stmt_expr;
15725 tree stmt_expr = begin_stmt_expr ();
15727 cur_stmt_expr = stmt_expr;
15728 tsubst_expr (STMT_EXPR_STMT (t), args, complain, in_decl,
15729 integral_constant_expression_p);
15730 stmt_expr = finish_stmt_expr (stmt_expr, false);
15731 cur_stmt_expr = old_stmt_expr;
15733 /* If the resulting list of expression statement is empty,
15734 fold it further into void_node. */
15735 if (empty_expr_stmt_p (stmt_expr))
15736 stmt_expr = void_node;
15738 RETURN (stmt_expr);
15741 case LAMBDA_EXPR:
15743 tree r = build_lambda_expr ();
15745 tree type = tsubst (LAMBDA_EXPR_CLOSURE (t), args, complain, NULL_TREE);
15746 LAMBDA_EXPR_CLOSURE (r) = type;
15747 CLASSTYPE_LAMBDA_EXPR (type) = r;
15749 LAMBDA_EXPR_LOCATION (r)
15750 = LAMBDA_EXPR_LOCATION (t);
15751 LAMBDA_EXPR_DEFAULT_CAPTURE_MODE (r)
15752 = LAMBDA_EXPR_DEFAULT_CAPTURE_MODE (t);
15753 LAMBDA_EXPR_MUTABLE_P (r) = LAMBDA_EXPR_MUTABLE_P (t);
15754 LAMBDA_EXPR_DISCRIMINATOR (r)
15755 = (LAMBDA_EXPR_DISCRIMINATOR (t));
15756 /* For a function scope, we want to use tsubst so that we don't
15757 complain about referring to an auto function before its return
15758 type has been deduced. Otherwise, we want to use tsubst_copy so
15759 that we look up the existing field/parameter/variable rather
15760 than build a new one. */
15761 tree scope = LAMBDA_EXPR_EXTRA_SCOPE (t);
15762 if (scope && TREE_CODE (scope) == FUNCTION_DECL)
15763 scope = tsubst (scope, args, complain, in_decl);
15764 else if (scope && TREE_CODE (scope) == PARM_DECL)
15766 /* Look up the parameter we want directly, as tsubst_copy
15767 doesn't do what we need. */
15768 tree fn = tsubst (DECL_CONTEXT (scope), args, complain, in_decl);
15769 tree parm = FUNCTION_FIRST_USER_PARM (fn);
15770 while (DECL_PARM_INDEX (parm) != DECL_PARM_INDEX (scope))
15771 parm = DECL_CHAIN (parm);
15772 scope = parm;
15773 /* FIXME Work around the parm not having DECL_CONTEXT set. */
15774 if (DECL_CONTEXT (scope) == NULL_TREE)
15775 DECL_CONTEXT (scope) = fn;
15777 else
15778 scope = RECUR (scope);
15779 LAMBDA_EXPR_EXTRA_SCOPE (r) = scope;
15780 LAMBDA_EXPR_RETURN_TYPE (r)
15781 = tsubst (LAMBDA_EXPR_RETURN_TYPE (t), args, complain, in_decl);
15783 gcc_assert (LAMBDA_EXPR_THIS_CAPTURE (t) == NULL_TREE
15784 && LAMBDA_EXPR_PENDING_PROXIES (t) == NULL);
15786 /* Do this again now that LAMBDA_EXPR_EXTRA_SCOPE is set. */
15787 determine_visibility (TYPE_NAME (type));
15788 /* Now that we know visibility, instantiate the type so we have a
15789 declaration of the op() for later calls to lambda_function. */
15790 complete_type (type);
15792 LAMBDA_EXPR_THIS_CAPTURE (r) = NULL_TREE;
15794 RETURN (build_lambda_object (r));
15797 case TARGET_EXPR:
15798 /* We can get here for a constant initializer of non-dependent type.
15799 FIXME stop folding in cp_parser_initializer_clause. */
15801 tree r = get_target_expr_sfinae (RECUR (TARGET_EXPR_INITIAL (t)),
15802 complain);
15803 RETURN (r);
15806 case TRANSACTION_EXPR:
15807 RETURN (tsubst_expr(t, args, complain, in_decl,
15808 integral_constant_expression_p));
15810 case PAREN_EXPR:
15811 RETURN (finish_parenthesized_expr (RECUR (TREE_OPERAND (t, 0))));
15813 case VEC_PERM_EXPR:
15815 tree op0 = RECUR (TREE_OPERAND (t, 0));
15816 tree op1 = RECUR (TREE_OPERAND (t, 1));
15817 tree op2 = RECUR (TREE_OPERAND (t, 2));
15818 RETURN (build_x_vec_perm_expr (input_location, op0, op1, op2,
15819 complain));
15822 default:
15823 /* Handle Objective-C++ constructs, if appropriate. */
15825 tree subst
15826 = objcp_tsubst_copy_and_build (t, args, complain,
15827 in_decl, /*function_p=*/false);
15828 if (subst)
15829 RETURN (subst);
15831 RETURN (tsubst_copy (t, args, complain, in_decl));
15834 #undef RECUR
15835 #undef RETURN
15836 out:
15837 input_location = loc;
15838 return retval;
15841 /* Verify that the instantiated ARGS are valid. For type arguments,
15842 make sure that the type's linkage is ok. For non-type arguments,
15843 make sure they are constants if they are integral or enumerations.
15844 Emit an error under control of COMPLAIN, and return TRUE on error. */
15846 static bool
15847 check_instantiated_arg (tree tmpl, tree t, tsubst_flags_t complain)
15849 if (dependent_template_arg_p (t))
15850 return false;
15851 if (ARGUMENT_PACK_P (t))
15853 tree vec = ARGUMENT_PACK_ARGS (t);
15854 int len = TREE_VEC_LENGTH (vec);
15855 bool result = false;
15856 int i;
15858 for (i = 0; i < len; ++i)
15859 if (check_instantiated_arg (tmpl, TREE_VEC_ELT (vec, i), complain))
15860 result = true;
15861 return result;
15863 else if (TYPE_P (t))
15865 /* [basic.link]: A name with no linkage (notably, the name
15866 of a class or enumeration declared in a local scope)
15867 shall not be used to declare an entity with linkage.
15868 This implies that names with no linkage cannot be used as
15869 template arguments
15871 DR 757 relaxes this restriction for C++0x. */
15872 tree nt = (cxx_dialect > cxx98 ? NULL_TREE
15873 : no_linkage_check (t, /*relaxed_p=*/false));
15875 if (nt)
15877 /* DR 488 makes use of a type with no linkage cause
15878 type deduction to fail. */
15879 if (complain & tf_error)
15881 if (TYPE_ANONYMOUS_P (nt))
15882 error ("%qT is/uses anonymous type", t);
15883 else
15884 error ("template argument for %qD uses local type %qT",
15885 tmpl, t);
15887 return true;
15889 /* In order to avoid all sorts of complications, we do not
15890 allow variably-modified types as template arguments. */
15891 else if (variably_modified_type_p (t, NULL_TREE))
15893 if (complain & tf_error)
15894 error ("%qT is a variably modified type", t);
15895 return true;
15898 /* Class template and alias template arguments should be OK. */
15899 else if (DECL_TYPE_TEMPLATE_P (t))
15901 /* A non-type argument of integral or enumerated type must be a
15902 constant. */
15903 else if (TREE_TYPE (t)
15904 && INTEGRAL_OR_ENUMERATION_TYPE_P (TREE_TYPE (t))
15905 && !REFERENCE_REF_P (t)
15906 && !TREE_CONSTANT (t))
15908 if (complain & tf_error)
15909 error ("integral expression %qE is not constant", t);
15910 return true;
15912 return false;
15915 static bool
15916 check_instantiated_args (tree tmpl, tree args, tsubst_flags_t complain)
15918 int ix, len = DECL_NTPARMS (tmpl);
15919 bool result = false;
15921 for (ix = 0; ix != len; ix++)
15923 if (check_instantiated_arg (tmpl, TREE_VEC_ELT (args, ix), complain))
15924 result = true;
15926 if (result && (complain & tf_error))
15927 error (" trying to instantiate %qD", tmpl);
15928 return result;
15931 /* We're out of SFINAE context now, so generate diagnostics for the access
15932 errors we saw earlier when instantiating D from TMPL and ARGS. */
15934 static void
15935 recheck_decl_substitution (tree d, tree tmpl, tree args)
15937 tree pattern = DECL_TEMPLATE_RESULT (tmpl);
15938 tree type = TREE_TYPE (pattern);
15939 location_t loc = input_location;
15941 push_access_scope (d);
15942 push_deferring_access_checks (dk_no_deferred);
15943 input_location = DECL_SOURCE_LOCATION (pattern);
15944 tsubst (type, args, tf_warning_or_error, d);
15945 input_location = loc;
15946 pop_deferring_access_checks ();
15947 pop_access_scope (d);
15950 /* Instantiate the indicated variable, function, or alias template TMPL with
15951 the template arguments in TARG_PTR. */
15953 static tree
15954 instantiate_template_1 (tree tmpl, tree orig_args, tsubst_flags_t complain)
15956 tree targ_ptr = orig_args;
15957 tree fndecl;
15958 tree gen_tmpl;
15959 tree spec;
15960 bool access_ok = true;
15962 if (tmpl == error_mark_node)
15963 return error_mark_node;
15965 gcc_assert (TREE_CODE (tmpl) == TEMPLATE_DECL);
15967 /* If this function is a clone, handle it specially. */
15968 if (DECL_CLONED_FUNCTION_P (tmpl))
15970 tree spec;
15971 tree clone;
15973 /* Use DECL_ABSTRACT_ORIGIN because only FUNCTION_DECLs have
15974 DECL_CLONED_FUNCTION. */
15975 spec = instantiate_template (DECL_ABSTRACT_ORIGIN (tmpl),
15976 targ_ptr, complain);
15977 if (spec == error_mark_node)
15978 return error_mark_node;
15980 /* Look for the clone. */
15981 FOR_EACH_CLONE (clone, spec)
15982 if (DECL_NAME (clone) == DECL_NAME (tmpl))
15983 return clone;
15984 /* We should always have found the clone by now. */
15985 gcc_unreachable ();
15986 return NULL_TREE;
15989 if (targ_ptr == error_mark_node)
15990 return error_mark_node;
15992 /* Check to see if we already have this specialization. */
15993 gen_tmpl = most_general_template (tmpl);
15994 if (tmpl != gen_tmpl)
15995 /* The TMPL is a partial instantiation. To get a full set of
15996 arguments we must add the arguments used to perform the
15997 partial instantiation. */
15998 targ_ptr = add_outermost_template_args (DECL_TI_ARGS (tmpl),
15999 targ_ptr);
16001 /* It would be nice to avoid hashing here and then again in tsubst_decl,
16002 but it doesn't seem to be on the hot path. */
16003 spec = retrieve_specialization (gen_tmpl, targ_ptr, 0);
16005 gcc_assert (tmpl == gen_tmpl
16006 || ((fndecl = retrieve_specialization (tmpl, orig_args, 0))
16007 == spec)
16008 || fndecl == NULL_TREE);
16010 if (spec != NULL_TREE)
16012 if (FNDECL_HAS_ACCESS_ERRORS (spec))
16014 if (complain & tf_error)
16015 recheck_decl_substitution (spec, gen_tmpl, targ_ptr);
16016 return error_mark_node;
16018 return spec;
16021 if (check_instantiated_args (gen_tmpl, INNERMOST_TEMPLATE_ARGS (targ_ptr),
16022 complain))
16023 return error_mark_node;
16025 /* We are building a FUNCTION_DECL, during which the access of its
16026 parameters and return types have to be checked. However this
16027 FUNCTION_DECL which is the desired context for access checking
16028 is not built yet. We solve this chicken-and-egg problem by
16029 deferring all checks until we have the FUNCTION_DECL. */
16030 push_deferring_access_checks (dk_deferred);
16032 /* Instantiation of the function happens in the context of the function
16033 template, not the context of the overload resolution we're doing. */
16034 push_to_top_level ();
16035 /* If there are dependent arguments, e.g. because we're doing partial
16036 ordering, make sure processing_template_decl stays set. */
16037 if (uses_template_parms (targ_ptr))
16038 ++processing_template_decl;
16039 if (DECL_CLASS_SCOPE_P (gen_tmpl))
16041 tree ctx = tsubst_aggr_type (DECL_CONTEXT (gen_tmpl), targ_ptr,
16042 complain, gen_tmpl, true);
16043 push_nested_class (ctx);
16046 tree pattern = DECL_TEMPLATE_RESULT (gen_tmpl);
16048 if (VAR_P (pattern))
16050 /* We need to determine if we're using a partial or explicit
16051 specialization now, because the type of the variable could be
16052 different. */
16053 tree tid = lookup_template_variable (gen_tmpl, targ_ptr);
16054 tree elt = most_specialized_partial_spec (tid, complain);
16055 if (elt == error_mark_node)
16056 pattern = error_mark_node;
16057 else if (elt)
16059 tmpl = TREE_VALUE (elt);
16060 pattern = DECL_TEMPLATE_RESULT (tmpl);
16061 targ_ptr = TREE_PURPOSE (elt);
16065 /* Substitute template parameters to obtain the specialization. */
16066 fndecl = tsubst (pattern, targ_ptr, complain, gen_tmpl);
16067 if (DECL_CLASS_SCOPE_P (gen_tmpl))
16068 pop_nested_class ();
16069 pop_from_top_level ();
16071 if (fndecl == error_mark_node)
16073 pop_deferring_access_checks ();
16074 return error_mark_node;
16077 /* The DECL_TI_TEMPLATE should always be the immediate parent
16078 template, not the most general template. */
16079 DECL_TI_TEMPLATE (fndecl) = tmpl;
16081 /* Now we know the specialization, compute access previously
16082 deferred. */
16083 push_access_scope (fndecl);
16084 if (!perform_deferred_access_checks (complain))
16085 access_ok = false;
16086 pop_access_scope (fndecl);
16087 pop_deferring_access_checks ();
16089 /* If we've just instantiated the main entry point for a function,
16090 instantiate all the alternate entry points as well. We do this
16091 by cloning the instantiation of the main entry point, not by
16092 instantiating the template clones. */
16093 if (DECL_CHAIN (gen_tmpl) && DECL_CLONED_FUNCTION_P (DECL_CHAIN (gen_tmpl)))
16094 clone_function_decl (fndecl, /*update_method_vec_p=*/0);
16096 if (!access_ok)
16098 if (!(complain & tf_error))
16100 /* Remember to reinstantiate when we're out of SFINAE so the user
16101 can see the errors. */
16102 FNDECL_HAS_ACCESS_ERRORS (fndecl) = true;
16104 return error_mark_node;
16106 return fndecl;
16109 /* Wrapper for instantiate_template_1. */
16111 tree
16112 instantiate_template (tree tmpl, tree orig_args, tsubst_flags_t complain)
16114 tree ret;
16115 timevar_push (TV_TEMPLATE_INST);
16116 ret = instantiate_template_1 (tmpl, orig_args, complain);
16117 timevar_pop (TV_TEMPLATE_INST);
16118 return ret;
16121 /* Instantiate the alias template TMPL with ARGS. Also push a template
16122 instantiation level, which instantiate_template doesn't do because
16123 functions and variables have sufficient context established by the
16124 callers. */
16126 static tree
16127 instantiate_alias_template (tree tmpl, tree args, tsubst_flags_t complain)
16129 struct pending_template *old_last_pend = last_pending_template;
16130 struct tinst_level *old_error_tinst = last_error_tinst_level;
16131 if (tmpl == error_mark_node || args == error_mark_node)
16132 return error_mark_node;
16133 tree tinst = build_tree_list (tmpl, args);
16134 if (!push_tinst_level (tinst))
16136 ggc_free (tinst);
16137 return error_mark_node;
16140 args =
16141 coerce_innermost_template_parms (DECL_TEMPLATE_PARMS (tmpl),
16142 args, tmpl, complain,
16143 /*require_all_args=*/true,
16144 /*use_default_args=*/true);
16146 tree r = instantiate_template (tmpl, args, complain);
16147 pop_tinst_level ();
16148 /* We can't free this if a pending_template entry or last_error_tinst_level
16149 is pointing at it. */
16150 if (last_pending_template == old_last_pend
16151 && last_error_tinst_level == old_error_tinst)
16152 ggc_free (tinst);
16154 return r;
16157 /* PARM is a template parameter pack for FN. Returns true iff
16158 PARM is used in a deducible way in the argument list of FN. */
16160 static bool
16161 pack_deducible_p (tree parm, tree fn)
16163 tree t = FUNCTION_FIRST_USER_PARMTYPE (fn);
16164 for (; t; t = TREE_CHAIN (t))
16166 tree type = TREE_VALUE (t);
16167 tree packs;
16168 if (!PACK_EXPANSION_P (type))
16169 continue;
16170 for (packs = PACK_EXPANSION_PARAMETER_PACKS (type);
16171 packs; packs = TREE_CHAIN (packs))
16172 if (template_args_equal (TREE_VALUE (packs), parm))
16174 /* The template parameter pack is used in a function parameter
16175 pack. If this is the end of the parameter list, the
16176 template parameter pack is deducible. */
16177 if (TREE_CHAIN (t) == void_list_node)
16178 return true;
16179 else
16180 /* Otherwise, not. Well, it could be deduced from
16181 a non-pack parameter, but doing so would end up with
16182 a deduction mismatch, so don't bother. */
16183 return false;
16186 /* The template parameter pack isn't used in any function parameter
16187 packs, but it might be used deeper, e.g. tuple<Args...>. */
16188 return true;
16191 /* The FN is a TEMPLATE_DECL for a function. ARGS is an array with
16192 NARGS elements of the arguments that are being used when calling
16193 it. TARGS is a vector into which the deduced template arguments
16194 are placed.
16196 Returns either a FUNCTION_DECL for the matching specialization of FN or
16197 NULL_TREE if no suitable specialization can be found. If EXPLAIN_P is
16198 true, diagnostics will be printed to explain why it failed.
16200 If FN is a conversion operator, or we are trying to produce a specific
16201 specialization, RETURN_TYPE is the return type desired.
16203 The EXPLICIT_TARGS are explicit template arguments provided via a
16204 template-id.
16206 The parameter STRICT is one of:
16208 DEDUCE_CALL:
16209 We are deducing arguments for a function call, as in
16210 [temp.deduct.call].
16212 DEDUCE_CONV:
16213 We are deducing arguments for a conversion function, as in
16214 [temp.deduct.conv].
16216 DEDUCE_EXACT:
16217 We are deducing arguments when doing an explicit instantiation
16218 as in [temp.explicit], when determining an explicit specialization
16219 as in [temp.expl.spec], or when taking the address of a function
16220 template, as in [temp.deduct.funcaddr]. */
16222 tree
16223 fn_type_unification (tree fn,
16224 tree explicit_targs,
16225 tree targs,
16226 const tree *args,
16227 unsigned int nargs,
16228 tree return_type,
16229 unification_kind_t strict,
16230 int flags,
16231 bool explain_p,
16232 bool decltype_p)
16234 tree parms;
16235 tree fntype;
16236 tree decl = NULL_TREE;
16237 tsubst_flags_t complain = (explain_p ? tf_warning_or_error : tf_none);
16238 bool ok;
16239 static int deduction_depth;
16240 struct pending_template *old_last_pend = last_pending_template;
16241 struct tinst_level *old_error_tinst = last_error_tinst_level;
16242 tree tparms = DECL_INNERMOST_TEMPLATE_PARMS (fn);
16243 tree tinst;
16244 tree r = error_mark_node;
16246 if (decltype_p)
16247 complain |= tf_decltype;
16249 /* In C++0x, it's possible to have a function template whose type depends
16250 on itself recursively. This is most obvious with decltype, but can also
16251 occur with enumeration scope (c++/48969). So we need to catch infinite
16252 recursion and reject the substitution at deduction time; this function
16253 will return error_mark_node for any repeated substitution.
16255 This also catches excessive recursion such as when f<N> depends on
16256 f<N-1> across all integers, and returns error_mark_node for all the
16257 substitutions back up to the initial one.
16259 This is, of course, not reentrant. */
16260 if (excessive_deduction_depth)
16261 return error_mark_node;
16262 tinst = build_tree_list (fn, NULL_TREE);
16263 ++deduction_depth;
16265 gcc_assert (TREE_CODE (fn) == TEMPLATE_DECL);
16267 fntype = TREE_TYPE (fn);
16268 if (explicit_targs)
16270 /* [temp.deduct]
16272 The specified template arguments must match the template
16273 parameters in kind (i.e., type, nontype, template), and there
16274 must not be more arguments than there are parameters;
16275 otherwise type deduction fails.
16277 Nontype arguments must match the types of the corresponding
16278 nontype template parameters, or must be convertible to the
16279 types of the corresponding nontype parameters as specified in
16280 _temp.arg.nontype_, otherwise type deduction fails.
16282 All references in the function type of the function template
16283 to the corresponding template parameters are replaced by the
16284 specified template argument values. If a substitution in a
16285 template parameter or in the function type of the function
16286 template results in an invalid type, type deduction fails. */
16287 int i, len = TREE_VEC_LENGTH (tparms);
16288 location_t loc = input_location;
16289 bool incomplete = false;
16291 /* Adjust any explicit template arguments before entering the
16292 substitution context. */
16293 explicit_targs
16294 = (coerce_template_parms (tparms, explicit_targs, NULL_TREE,
16295 complain,
16296 /*require_all_args=*/false,
16297 /*use_default_args=*/false));
16298 if (explicit_targs == error_mark_node)
16299 goto fail;
16301 /* Substitute the explicit args into the function type. This is
16302 necessary so that, for instance, explicitly declared function
16303 arguments can match null pointed constants. If we were given
16304 an incomplete set of explicit args, we must not do semantic
16305 processing during substitution as we could create partial
16306 instantiations. */
16307 for (i = 0; i < len; i++)
16309 tree parm = TREE_VALUE (TREE_VEC_ELT (tparms, i));
16310 bool parameter_pack = false;
16311 tree targ = TREE_VEC_ELT (explicit_targs, i);
16313 /* Dig out the actual parm. */
16314 if (TREE_CODE (parm) == TYPE_DECL
16315 || TREE_CODE (parm) == TEMPLATE_DECL)
16317 parm = TREE_TYPE (parm);
16318 parameter_pack = TEMPLATE_TYPE_PARAMETER_PACK (parm);
16320 else if (TREE_CODE (parm) == PARM_DECL)
16322 parm = DECL_INITIAL (parm);
16323 parameter_pack = TEMPLATE_PARM_PARAMETER_PACK (parm);
16326 if (!parameter_pack && targ == NULL_TREE)
16327 /* No explicit argument for this template parameter. */
16328 incomplete = true;
16330 if (parameter_pack && pack_deducible_p (parm, fn))
16332 /* Mark the argument pack as "incomplete". We could
16333 still deduce more arguments during unification.
16334 We remove this mark in type_unification_real. */
16335 if (targ)
16337 ARGUMENT_PACK_INCOMPLETE_P(targ) = 1;
16338 ARGUMENT_PACK_EXPLICIT_ARGS (targ)
16339 = ARGUMENT_PACK_ARGS (targ);
16342 /* We have some incomplete argument packs. */
16343 incomplete = true;
16347 TREE_VALUE (tinst) = explicit_targs;
16348 if (!push_tinst_level (tinst))
16350 excessive_deduction_depth = true;
16351 goto fail;
16353 processing_template_decl += incomplete;
16354 input_location = DECL_SOURCE_LOCATION (fn);
16355 /* Ignore any access checks; we'll see them again in
16356 instantiate_template and they might have the wrong
16357 access path at this point. */
16358 push_deferring_access_checks (dk_deferred);
16359 fntype = tsubst (TREE_TYPE (fn), explicit_targs,
16360 complain | tf_partial, NULL_TREE);
16361 pop_deferring_access_checks ();
16362 input_location = loc;
16363 processing_template_decl -= incomplete;
16364 pop_tinst_level ();
16366 if (fntype == error_mark_node)
16367 goto fail;
16369 /* Place the explicitly specified arguments in TARGS. */
16370 for (i = NUM_TMPL_ARGS (explicit_targs); i--;)
16371 TREE_VEC_ELT (targs, i) = TREE_VEC_ELT (explicit_targs, i);
16374 /* Never do unification on the 'this' parameter. */
16375 parms = skip_artificial_parms_for (fn, TYPE_ARG_TYPES (fntype));
16377 if (return_type)
16379 tree *new_args;
16381 parms = tree_cons (NULL_TREE, TREE_TYPE (fntype), parms);
16382 new_args = XALLOCAVEC (tree, nargs + 1);
16383 new_args[0] = return_type;
16384 memcpy (new_args + 1, args, nargs * sizeof (tree));
16385 args = new_args;
16386 ++nargs;
16389 /* We allow incomplete unification without an error message here
16390 because the standard doesn't seem to explicitly prohibit it. Our
16391 callers must be ready to deal with unification failures in any
16392 event. */
16394 TREE_VALUE (tinst) = targs;
16395 /* If we aren't explaining yet, push tinst context so we can see where
16396 any errors (e.g. from class instantiations triggered by instantiation
16397 of default template arguments) come from. If we are explaining, this
16398 context is redundant. */
16399 if (!explain_p && !push_tinst_level (tinst))
16401 excessive_deduction_depth = true;
16402 goto fail;
16405 /* type_unification_real will pass back any access checks from default
16406 template argument substitution. */
16407 vec<deferred_access_check, va_gc> *checks;
16408 checks = NULL;
16410 ok = !type_unification_real (DECL_INNERMOST_TEMPLATE_PARMS (fn),
16411 targs, parms, args, nargs, /*subr=*/0,
16412 strict, flags, &checks, explain_p);
16413 if (!explain_p)
16414 pop_tinst_level ();
16415 if (!ok)
16416 goto fail;
16418 /* Now that we have bindings for all of the template arguments,
16419 ensure that the arguments deduced for the template template
16420 parameters have compatible template parameter lists. We cannot
16421 check this property before we have deduced all template
16422 arguments, because the template parameter types of a template
16423 template parameter might depend on prior template parameters
16424 deduced after the template template parameter. The following
16425 ill-formed example illustrates this issue:
16427 template<typename T, template<T> class C> void f(C<5>, T);
16429 template<int N> struct X {};
16431 void g() {
16432 f(X<5>(), 5l); // error: template argument deduction fails
16435 The template parameter list of 'C' depends on the template type
16436 parameter 'T', but 'C' is deduced to 'X' before 'T' is deduced to
16437 'long'. Thus, we can't check that 'C' cannot bind to 'X' at the
16438 time that we deduce 'C'. */
16439 if (!template_template_parm_bindings_ok_p
16440 (DECL_INNERMOST_TEMPLATE_PARMS (fn), targs))
16442 unify_inconsistent_template_template_parameters (explain_p);
16443 goto fail;
16446 /* All is well so far. Now, check:
16448 [temp.deduct]
16450 When all template arguments have been deduced, all uses of
16451 template parameters in nondeduced contexts are replaced with
16452 the corresponding deduced argument values. If the
16453 substitution results in an invalid type, as described above,
16454 type deduction fails. */
16455 TREE_VALUE (tinst) = targs;
16456 if (!push_tinst_level (tinst))
16458 excessive_deduction_depth = true;
16459 goto fail;
16462 /* Also collect access checks from the instantiation. */
16463 reopen_deferring_access_checks (checks);
16465 decl = instantiate_template (fn, targs, complain);
16467 checks = get_deferred_access_checks ();
16468 pop_deferring_access_checks ();
16470 pop_tinst_level ();
16472 if (decl == error_mark_node)
16473 goto fail;
16475 /* Now perform any access checks encountered during substitution. */
16476 push_access_scope (decl);
16477 ok = perform_access_checks (checks, complain);
16478 pop_access_scope (decl);
16479 if (!ok)
16480 goto fail;
16482 /* If we're looking for an exact match, check that what we got
16483 is indeed an exact match. It might not be if some template
16484 parameters are used in non-deduced contexts. But don't check
16485 for an exact match if we have dependent template arguments;
16486 in that case we're doing partial ordering, and we already know
16487 that we have two candidates that will provide the actual type. */
16488 if (strict == DEDUCE_EXACT && !any_dependent_template_arguments_p (targs))
16490 tree substed = TREE_TYPE (decl);
16491 unsigned int i;
16493 tree sarg
16494 = skip_artificial_parms_for (decl, TYPE_ARG_TYPES (substed));
16495 if (return_type)
16496 sarg = tree_cons (NULL_TREE, TREE_TYPE (substed), sarg);
16497 for (i = 0; i < nargs && sarg; ++i, sarg = TREE_CHAIN (sarg))
16498 if (!same_type_p (args[i], TREE_VALUE (sarg)))
16500 unify_type_mismatch (explain_p, args[i],
16501 TREE_VALUE (sarg));
16502 goto fail;
16506 r = decl;
16508 fail:
16509 --deduction_depth;
16510 if (excessive_deduction_depth)
16512 if (deduction_depth == 0)
16513 /* Reset once we're all the way out. */
16514 excessive_deduction_depth = false;
16517 /* We can't free this if a pending_template entry or last_error_tinst_level
16518 is pointing at it. */
16519 if (last_pending_template == old_last_pend
16520 && last_error_tinst_level == old_error_tinst)
16521 ggc_free (tinst);
16523 return r;
16526 /* Adjust types before performing type deduction, as described in
16527 [temp.deduct.call] and [temp.deduct.conv]. The rules in these two
16528 sections are symmetric. PARM is the type of a function parameter
16529 or the return type of the conversion function. ARG is the type of
16530 the argument passed to the call, or the type of the value
16531 initialized with the result of the conversion function.
16532 ARG_EXPR is the original argument expression, which may be null. */
16534 static int
16535 maybe_adjust_types_for_deduction (unification_kind_t strict,
16536 tree* parm,
16537 tree* arg,
16538 tree arg_expr)
16540 int result = 0;
16542 switch (strict)
16544 case DEDUCE_CALL:
16545 break;
16547 case DEDUCE_CONV:
16548 /* Swap PARM and ARG throughout the remainder of this
16549 function; the handling is precisely symmetric since PARM
16550 will initialize ARG rather than vice versa. */
16551 std::swap (parm, arg);
16552 break;
16554 case DEDUCE_EXACT:
16555 /* Core issue #873: Do the DR606 thing (see below) for these cases,
16556 too, but here handle it by stripping the reference from PARM
16557 rather than by adding it to ARG. */
16558 if (TREE_CODE (*parm) == REFERENCE_TYPE
16559 && TYPE_REF_IS_RVALUE (*parm)
16560 && TREE_CODE (TREE_TYPE (*parm)) == TEMPLATE_TYPE_PARM
16561 && cp_type_quals (TREE_TYPE (*parm)) == TYPE_UNQUALIFIED
16562 && TREE_CODE (*arg) == REFERENCE_TYPE
16563 && !TYPE_REF_IS_RVALUE (*arg))
16564 *parm = TREE_TYPE (*parm);
16565 /* Nothing else to do in this case. */
16566 return 0;
16568 default:
16569 gcc_unreachable ();
16572 if (TREE_CODE (*parm) != REFERENCE_TYPE)
16574 /* [temp.deduct.call]
16576 If P is not a reference type:
16578 --If A is an array type, the pointer type produced by the
16579 array-to-pointer standard conversion (_conv.array_) is
16580 used in place of A for type deduction; otherwise,
16582 --If A is a function type, the pointer type produced by
16583 the function-to-pointer standard conversion
16584 (_conv.func_) is used in place of A for type deduction;
16585 otherwise,
16587 --If A is a cv-qualified type, the top level
16588 cv-qualifiers of A's type are ignored for type
16589 deduction. */
16590 if (TREE_CODE (*arg) == ARRAY_TYPE)
16591 *arg = build_pointer_type (TREE_TYPE (*arg));
16592 else if (TREE_CODE (*arg) == FUNCTION_TYPE)
16593 *arg = build_pointer_type (*arg);
16594 else
16595 *arg = TYPE_MAIN_VARIANT (*arg);
16598 /* From C++0x [14.8.2.1/3 temp.deduct.call] (after DR606), "If P is
16599 of the form T&&, where T is a template parameter, and the argument
16600 is an lvalue, T is deduced as A& */
16601 if (TREE_CODE (*parm) == REFERENCE_TYPE
16602 && TYPE_REF_IS_RVALUE (*parm)
16603 && TREE_CODE (TREE_TYPE (*parm)) == TEMPLATE_TYPE_PARM
16604 && cp_type_quals (TREE_TYPE (*parm)) == TYPE_UNQUALIFIED
16605 && (arg_expr ? real_lvalue_p (arg_expr)
16606 /* try_one_overload doesn't provide an arg_expr, but
16607 functions are always lvalues. */
16608 : TREE_CODE (*arg) == FUNCTION_TYPE))
16609 *arg = build_reference_type (*arg);
16611 /* [temp.deduct.call]
16613 If P is a cv-qualified type, the top level cv-qualifiers
16614 of P's type are ignored for type deduction. If P is a
16615 reference type, the type referred to by P is used for
16616 type deduction. */
16617 *parm = TYPE_MAIN_VARIANT (*parm);
16618 if (TREE_CODE (*parm) == REFERENCE_TYPE)
16620 *parm = TREE_TYPE (*parm);
16621 result |= UNIFY_ALLOW_OUTER_MORE_CV_QUAL;
16624 /* DR 322. For conversion deduction, remove a reference type on parm
16625 too (which has been swapped into ARG). */
16626 if (strict == DEDUCE_CONV && TREE_CODE (*arg) == REFERENCE_TYPE)
16627 *arg = TREE_TYPE (*arg);
16629 return result;
16632 /* Subroutine of unify_one_argument. PARM is a function parameter of a
16633 template which does contain any deducible template parameters; check if
16634 ARG is a suitable match for it. STRICT, FLAGS and EXPLAIN_P are as in
16635 unify_one_argument. */
16637 static int
16638 check_non_deducible_conversion (tree parm, tree arg, int strict,
16639 int flags, bool explain_p)
16641 tree type;
16643 if (!TYPE_P (arg))
16644 type = TREE_TYPE (arg);
16645 else
16646 type = arg;
16648 if (same_type_p (parm, type))
16649 return unify_success (explain_p);
16651 if (strict == DEDUCE_CONV)
16653 if (can_convert_arg (type, parm, NULL_TREE, flags,
16654 explain_p ? tf_warning_or_error : tf_none))
16655 return unify_success (explain_p);
16657 else if (strict != DEDUCE_EXACT)
16659 if (can_convert_arg (parm, type,
16660 TYPE_P (arg) ? NULL_TREE : arg,
16661 flags, explain_p ? tf_warning_or_error : tf_none))
16662 return unify_success (explain_p);
16665 if (strict == DEDUCE_EXACT)
16666 return unify_type_mismatch (explain_p, parm, arg);
16667 else
16668 return unify_arg_conversion (explain_p, parm, type, arg);
16671 static bool uses_deducible_template_parms (tree type);
16673 /* Returns true iff the expression EXPR is one from which a template
16674 argument can be deduced. In other words, if it's an undecorated
16675 use of a template non-type parameter. */
16677 static bool
16678 deducible_expression (tree expr)
16680 return (TREE_CODE (expr) == TEMPLATE_PARM_INDEX);
16683 /* Returns true iff the array domain DOMAIN uses a template parameter in a
16684 deducible way; that is, if it has a max value of <PARM> - 1. */
16686 static bool
16687 deducible_array_bound (tree domain)
16689 if (domain == NULL_TREE)
16690 return false;
16692 tree max = TYPE_MAX_VALUE (domain);
16693 if (TREE_CODE (max) != MINUS_EXPR)
16694 return false;
16696 return deducible_expression (TREE_OPERAND (max, 0));
16699 /* Returns true iff the template arguments ARGS use a template parameter
16700 in a deducible way. */
16702 static bool
16703 deducible_template_args (tree args)
16705 for (int i = 0; i < TREE_VEC_LENGTH (args); ++i)
16707 bool deducible;
16708 tree elt = TREE_VEC_ELT (args, i);
16709 if (ARGUMENT_PACK_P (elt))
16710 deducible = deducible_template_args (ARGUMENT_PACK_ARGS (elt));
16711 else
16713 if (PACK_EXPANSION_P (elt))
16714 elt = PACK_EXPANSION_PATTERN (elt);
16715 if (TREE_CODE (elt) == TEMPLATE_TEMPLATE_PARM)
16716 deducible = true;
16717 else if (TYPE_P (elt))
16718 deducible = uses_deducible_template_parms (elt);
16719 else
16720 deducible = deducible_expression (elt);
16722 if (deducible)
16723 return true;
16725 return false;
16728 /* Returns true iff TYPE contains any deducible references to template
16729 parameters, as per 14.8.2.5. */
16731 static bool
16732 uses_deducible_template_parms (tree type)
16734 if (PACK_EXPANSION_P (type))
16735 type = PACK_EXPANSION_PATTERN (type);
16737 /* T
16738 cv-list T
16739 TT<T>
16740 TT<i>
16741 TT<> */
16742 if (TREE_CODE (type) == TEMPLATE_TYPE_PARM
16743 || TREE_CODE (type) == BOUND_TEMPLATE_TEMPLATE_PARM)
16744 return true;
16746 /* T*
16748 T&& */
16749 if (POINTER_TYPE_P (type))
16750 return uses_deducible_template_parms (TREE_TYPE (type));
16752 /* T[integer-constant ]
16753 type [i] */
16754 if (TREE_CODE (type) == ARRAY_TYPE)
16755 return (uses_deducible_template_parms (TREE_TYPE (type))
16756 || deducible_array_bound (TYPE_DOMAIN (type)));
16758 /* T type ::*
16759 type T::*
16760 T T::*
16761 T (type ::*)()
16762 type (T::*)()
16763 type (type ::*)(T)
16764 type (T::*)(T)
16765 T (type ::*)(T)
16766 T (T::*)()
16767 T (T::*)(T) */
16768 if (TYPE_PTRMEM_P (type))
16769 return (uses_deducible_template_parms (TYPE_PTRMEM_CLASS_TYPE (type))
16770 || (uses_deducible_template_parms
16771 (TYPE_PTRMEM_POINTED_TO_TYPE (type))));
16773 /* template-name <T> (where template-name refers to a class template)
16774 template-name <i> (where template-name refers to a class template) */
16775 if (CLASS_TYPE_P (type)
16776 && CLASSTYPE_TEMPLATE_INFO (type)
16777 && PRIMARY_TEMPLATE_P (CLASSTYPE_TI_TEMPLATE (type)))
16778 return deducible_template_args (INNERMOST_TEMPLATE_ARGS
16779 (CLASSTYPE_TI_ARGS (type)));
16781 /* type (T)
16783 T(T) */
16784 if (TREE_CODE (type) == FUNCTION_TYPE
16785 || TREE_CODE (type) == METHOD_TYPE)
16787 if (uses_deducible_template_parms (TREE_TYPE (type)))
16788 return true;
16789 tree parm = TYPE_ARG_TYPES (type);
16790 if (TREE_CODE (type) == METHOD_TYPE)
16791 parm = TREE_CHAIN (parm);
16792 for (; parm; parm = TREE_CHAIN (parm))
16793 if (uses_deducible_template_parms (TREE_VALUE (parm)))
16794 return true;
16797 return false;
16800 /* Subroutine of type_unification_real and unify_pack_expansion to
16801 handle unification of a single P/A pair. Parameters are as
16802 for those functions. */
16804 static int
16805 unify_one_argument (tree tparms, tree targs, tree parm, tree arg,
16806 int subr, unification_kind_t strict,
16807 bool explain_p)
16809 tree arg_expr = NULL_TREE;
16810 int arg_strict;
16812 if (arg == error_mark_node || parm == error_mark_node)
16813 return unify_invalid (explain_p);
16814 if (arg == unknown_type_node)
16815 /* We can't deduce anything from this, but we might get all the
16816 template args from other function args. */
16817 return unify_success (explain_p);
16819 /* Implicit conversions (Clause 4) will be performed on a function
16820 argument to convert it to the type of the corresponding function
16821 parameter if the parameter type contains no template-parameters that
16822 participate in template argument deduction. */
16823 if (strict != DEDUCE_EXACT
16824 && TYPE_P (parm) && !uses_deducible_template_parms (parm))
16825 /* For function parameters with no deducible template parameters,
16826 just return. We'll check non-dependent conversions later. */
16827 return unify_success (explain_p);
16829 switch (strict)
16831 case DEDUCE_CALL:
16832 arg_strict = (UNIFY_ALLOW_OUTER_LEVEL
16833 | UNIFY_ALLOW_MORE_CV_QUAL
16834 | UNIFY_ALLOW_DERIVED);
16835 break;
16837 case DEDUCE_CONV:
16838 arg_strict = UNIFY_ALLOW_LESS_CV_QUAL;
16839 break;
16841 case DEDUCE_EXACT:
16842 arg_strict = UNIFY_ALLOW_NONE;
16843 break;
16845 default:
16846 gcc_unreachable ();
16849 /* We only do these transformations if this is the top-level
16850 parameter_type_list in a call or declaration matching; in other
16851 situations (nested function declarators, template argument lists) we
16852 won't be comparing a type to an expression, and we don't do any type
16853 adjustments. */
16854 if (!subr)
16856 if (!TYPE_P (arg))
16858 gcc_assert (TREE_TYPE (arg) != NULL_TREE);
16859 if (type_unknown_p (arg))
16861 /* [temp.deduct.type] A template-argument can be
16862 deduced from a pointer to function or pointer
16863 to member function argument if the set of
16864 overloaded functions does not contain function
16865 templates and at most one of a set of
16866 overloaded functions provides a unique
16867 match. */
16869 if (resolve_overloaded_unification
16870 (tparms, targs, parm, arg, strict,
16871 arg_strict, explain_p))
16872 return unify_success (explain_p);
16873 return unify_overload_resolution_failure (explain_p, arg);
16876 arg_expr = arg;
16877 arg = unlowered_expr_type (arg);
16878 if (arg == error_mark_node)
16879 return unify_invalid (explain_p);
16882 arg_strict |=
16883 maybe_adjust_types_for_deduction (strict, &parm, &arg, arg_expr);
16885 else
16886 if ((TYPE_P (parm) || TREE_CODE (parm) == TEMPLATE_DECL)
16887 != (TYPE_P (arg) || TREE_CODE (arg) == TEMPLATE_DECL))
16888 return unify_template_argument_mismatch (explain_p, parm, arg);
16890 /* For deduction from an init-list we need the actual list. */
16891 if (arg_expr && BRACE_ENCLOSED_INITIALIZER_P (arg_expr))
16892 arg = arg_expr;
16893 return unify (tparms, targs, parm, arg, arg_strict, explain_p);
16896 /* Most parms like fn_type_unification.
16898 If SUBR is 1, we're being called recursively (to unify the
16899 arguments of a function or method parameter of a function
16900 template).
16902 CHECKS is a pointer to a vector of access checks encountered while
16903 substituting default template arguments. */
16905 static int
16906 type_unification_real (tree tparms,
16907 tree targs,
16908 tree xparms,
16909 const tree *xargs,
16910 unsigned int xnargs,
16911 int subr,
16912 unification_kind_t strict,
16913 int flags,
16914 vec<deferred_access_check, va_gc> **checks,
16915 bool explain_p)
16917 tree parm, arg;
16918 int i;
16919 int ntparms = TREE_VEC_LENGTH (tparms);
16920 int saw_undeduced = 0;
16921 tree parms;
16922 const tree *args;
16923 unsigned int nargs;
16924 unsigned int ia;
16926 gcc_assert (TREE_CODE (tparms) == TREE_VEC);
16927 gcc_assert (xparms == NULL_TREE || TREE_CODE (xparms) == TREE_LIST);
16928 gcc_assert (ntparms > 0);
16930 /* Reset the number of non-defaulted template arguments contained
16931 in TARGS. */
16932 NON_DEFAULT_TEMPLATE_ARGS_COUNT (targs) = NULL_TREE;
16934 again:
16935 parms = xparms;
16936 args = xargs;
16937 nargs = xnargs;
16939 ia = 0;
16940 while (parms && parms != void_list_node
16941 && ia < nargs)
16943 parm = TREE_VALUE (parms);
16945 if (TREE_CODE (parm) == TYPE_PACK_EXPANSION
16946 && (!TREE_CHAIN (parms) || TREE_CHAIN (parms) == void_list_node))
16947 /* For a function parameter pack that occurs at the end of the
16948 parameter-declaration-list, the type A of each remaining
16949 argument of the call is compared with the type P of the
16950 declarator-id of the function parameter pack. */
16951 break;
16953 parms = TREE_CHAIN (parms);
16955 if (TREE_CODE (parm) == TYPE_PACK_EXPANSION)
16956 /* For a function parameter pack that does not occur at the
16957 end of the parameter-declaration-list, the type of the
16958 parameter pack is a non-deduced context. */
16959 continue;
16961 arg = args[ia];
16962 ++ia;
16964 if (unify_one_argument (tparms, targs, parm, arg, subr, strict,
16965 explain_p))
16966 return 1;
16969 if (parms
16970 && parms != void_list_node
16971 && TREE_CODE (TREE_VALUE (parms)) == TYPE_PACK_EXPANSION)
16973 /* Unify the remaining arguments with the pack expansion type. */
16974 tree argvec;
16975 tree parmvec = make_tree_vec (1);
16977 /* Allocate a TREE_VEC and copy in all of the arguments */
16978 argvec = make_tree_vec (nargs - ia);
16979 for (i = 0; ia < nargs; ++ia, ++i)
16980 TREE_VEC_ELT (argvec, i) = args[ia];
16982 /* Copy the parameter into parmvec. */
16983 TREE_VEC_ELT (parmvec, 0) = TREE_VALUE (parms);
16984 if (unify_pack_expansion (tparms, targs, parmvec, argvec, strict,
16985 /*subr=*/subr, explain_p))
16986 return 1;
16988 /* Advance to the end of the list of parameters. */
16989 parms = TREE_CHAIN (parms);
16992 /* Fail if we've reached the end of the parm list, and more args
16993 are present, and the parm list isn't variadic. */
16994 if (ia < nargs && parms == void_list_node)
16995 return unify_too_many_arguments (explain_p, nargs, ia);
16996 /* Fail if parms are left and they don't have default values and
16997 they aren't all deduced as empty packs (c++/57397). This is
16998 consistent with sufficient_parms_p. */
16999 if (parms && parms != void_list_node
17000 && TREE_PURPOSE (parms) == NULL_TREE)
17002 unsigned int count = nargs;
17003 tree p = parms;
17004 bool type_pack_p;
17007 type_pack_p = TREE_CODE (TREE_VALUE (p)) == TYPE_PACK_EXPANSION;
17008 if (!type_pack_p)
17009 count++;
17010 p = TREE_CHAIN (p);
17012 while (p && p != void_list_node);
17013 if (count != nargs)
17014 return unify_too_few_arguments (explain_p, ia, count,
17015 type_pack_p);
17018 if (!subr)
17020 tsubst_flags_t complain = (explain_p
17021 ? tf_warning_or_error
17022 : tf_none);
17024 for (i = 0; i < ntparms; i++)
17026 tree targ = TREE_VEC_ELT (targs, i);
17027 tree tparm = TREE_VEC_ELT (tparms, i);
17029 /* Clear the "incomplete" flags on all argument packs now so that
17030 substituting them into later default arguments works. */
17031 if (targ && ARGUMENT_PACK_P (targ))
17033 ARGUMENT_PACK_INCOMPLETE_P (targ) = 0;
17034 ARGUMENT_PACK_EXPLICIT_ARGS (targ) = NULL_TREE;
17037 if (targ || tparm == error_mark_node)
17038 continue;
17039 tparm = TREE_VALUE (tparm);
17041 /* If this is an undeduced nontype parameter that depends on
17042 a type parameter, try another pass; its type may have been
17043 deduced from a later argument than the one from which
17044 this parameter can be deduced. */
17045 if (TREE_CODE (tparm) == PARM_DECL
17046 && uses_template_parms (TREE_TYPE (tparm))
17047 && saw_undeduced < 2)
17049 saw_undeduced = 1;
17050 continue;
17053 /* Core issue #226 (C++0x) [temp.deduct]:
17055 If a template argument has not been deduced, its
17056 default template argument, if any, is used.
17058 When we are in C++98 mode, TREE_PURPOSE will either
17059 be NULL_TREE or ERROR_MARK_NODE, so we do not need
17060 to explicitly check cxx_dialect here. */
17061 if (TREE_PURPOSE (TREE_VEC_ELT (tparms, i)))
17062 /* OK, there is a default argument. Wait until after the
17063 conversion check to do substitution. */
17064 continue;
17066 /* If the type parameter is a parameter pack, then it will
17067 be deduced to an empty parameter pack. */
17068 if (template_parameter_pack_p (tparm))
17070 tree arg;
17072 if (TREE_CODE (tparm) == TEMPLATE_PARM_INDEX)
17074 arg = make_node (NONTYPE_ARGUMENT_PACK);
17075 TREE_TYPE (arg) = TREE_TYPE (TEMPLATE_PARM_DECL (tparm));
17076 TREE_CONSTANT (arg) = 1;
17078 else
17079 arg = cxx_make_type (TYPE_ARGUMENT_PACK);
17081 SET_ARGUMENT_PACK_ARGS (arg, make_tree_vec (0));
17083 TREE_VEC_ELT (targs, i) = arg;
17084 continue;
17087 return unify_parameter_deduction_failure (explain_p, tparm);
17090 /* DR 1391: All parameters have args, now check non-dependent parms for
17091 convertibility. */
17092 if (saw_undeduced < 2)
17093 for (ia = 0, parms = xparms, args = xargs, nargs = xnargs;
17094 parms && parms != void_list_node && ia < nargs; )
17096 parm = TREE_VALUE (parms);
17098 if (TREE_CODE (parm) == TYPE_PACK_EXPANSION
17099 && (!TREE_CHAIN (parms)
17100 || TREE_CHAIN (parms) == void_list_node))
17101 /* For a function parameter pack that occurs at the end of the
17102 parameter-declaration-list, the type A of each remaining
17103 argument of the call is compared with the type P of the
17104 declarator-id of the function parameter pack. */
17105 break;
17107 parms = TREE_CHAIN (parms);
17109 if (TREE_CODE (parm) == TYPE_PACK_EXPANSION)
17110 /* For a function parameter pack that does not occur at the
17111 end of the parameter-declaration-list, the type of the
17112 parameter pack is a non-deduced context. */
17113 continue;
17115 arg = args[ia];
17116 ++ia;
17118 if (uses_template_parms (parm))
17119 continue;
17120 if (check_non_deducible_conversion (parm, arg, strict, flags,
17121 explain_p))
17122 return 1;
17125 /* Now substitute into the default template arguments. */
17126 for (i = 0; i < ntparms; i++)
17128 tree targ = TREE_VEC_ELT (targs, i);
17129 tree tparm = TREE_VEC_ELT (tparms, i);
17131 if (targ || tparm == error_mark_node)
17132 continue;
17133 tree parm = TREE_VALUE (tparm);
17135 if (TREE_CODE (parm) == PARM_DECL
17136 && uses_template_parms (TREE_TYPE (parm))
17137 && saw_undeduced < 2)
17138 continue;
17140 tree arg = TREE_PURPOSE (tparm);
17141 reopen_deferring_access_checks (*checks);
17142 location_t save_loc = input_location;
17143 if (DECL_P (parm))
17144 input_location = DECL_SOURCE_LOCATION (parm);
17145 arg = tsubst_template_arg (arg, targs, complain, NULL_TREE);
17146 arg = convert_template_argument (parm, arg, targs, complain,
17147 i, NULL_TREE);
17148 input_location = save_loc;
17149 *checks = get_deferred_access_checks ();
17150 pop_deferring_access_checks ();
17151 if (arg == error_mark_node)
17152 return 1;
17153 else
17155 TREE_VEC_ELT (targs, i) = arg;
17156 /* The position of the first default template argument,
17157 is also the number of non-defaulted arguments in TARGS.
17158 Record that. */
17159 if (!NON_DEFAULT_TEMPLATE_ARGS_COUNT (targs))
17160 SET_NON_DEFAULT_TEMPLATE_ARGS_COUNT (targs, i);
17161 continue;
17165 if (saw_undeduced++ == 1)
17166 goto again;
17168 #ifdef ENABLE_CHECKING
17169 if (!NON_DEFAULT_TEMPLATE_ARGS_COUNT (targs))
17170 SET_NON_DEFAULT_TEMPLATE_ARGS_COUNT (targs, TREE_VEC_LENGTH (targs));
17171 #endif
17173 return unify_success (explain_p);
17176 /* Subroutine of type_unification_real. Args are like the variables
17177 at the call site. ARG is an overloaded function (or template-id);
17178 we try deducing template args from each of the overloads, and if
17179 only one succeeds, we go with that. Modifies TARGS and returns
17180 true on success. */
17182 static bool
17183 resolve_overloaded_unification (tree tparms,
17184 tree targs,
17185 tree parm,
17186 tree arg,
17187 unification_kind_t strict,
17188 int sub_strict,
17189 bool explain_p)
17191 tree tempargs = copy_node (targs);
17192 int good = 0;
17193 tree goodfn = NULL_TREE;
17194 bool addr_p;
17196 if (TREE_CODE (arg) == ADDR_EXPR)
17198 arg = TREE_OPERAND (arg, 0);
17199 addr_p = true;
17201 else
17202 addr_p = false;
17204 if (TREE_CODE (arg) == COMPONENT_REF)
17205 /* Handle `&x' where `x' is some static or non-static member
17206 function name. */
17207 arg = TREE_OPERAND (arg, 1);
17209 if (TREE_CODE (arg) == OFFSET_REF)
17210 arg = TREE_OPERAND (arg, 1);
17212 /* Strip baselink information. */
17213 if (BASELINK_P (arg))
17214 arg = BASELINK_FUNCTIONS (arg);
17216 if (TREE_CODE (arg) == TEMPLATE_ID_EXPR)
17218 /* If we got some explicit template args, we need to plug them into
17219 the affected templates before we try to unify, in case the
17220 explicit args will completely resolve the templates in question. */
17222 int ok = 0;
17223 tree expl_subargs = TREE_OPERAND (arg, 1);
17224 arg = TREE_OPERAND (arg, 0);
17226 for (; arg; arg = OVL_NEXT (arg))
17228 tree fn = OVL_CURRENT (arg);
17229 tree subargs, elem;
17231 if (TREE_CODE (fn) != TEMPLATE_DECL)
17232 continue;
17234 subargs = coerce_template_parms (DECL_INNERMOST_TEMPLATE_PARMS (fn),
17235 expl_subargs, NULL_TREE, tf_none,
17236 /*require_all_args=*/true,
17237 /*use_default_args=*/true);
17238 if (subargs != error_mark_node
17239 && !any_dependent_template_arguments_p (subargs))
17241 elem = TREE_TYPE (instantiate_template (fn, subargs, tf_none));
17242 if (try_one_overload (tparms, targs, tempargs, parm,
17243 elem, strict, sub_strict, addr_p, explain_p)
17244 && (!goodfn || !same_type_p (goodfn, elem)))
17246 goodfn = elem;
17247 ++good;
17250 else if (subargs)
17251 ++ok;
17253 /* If no templates (or more than one) are fully resolved by the
17254 explicit arguments, this template-id is a non-deduced context; it
17255 could still be OK if we deduce all template arguments for the
17256 enclosing call through other arguments. */
17257 if (good != 1)
17258 good = ok;
17260 else if (TREE_CODE (arg) != OVERLOAD
17261 && TREE_CODE (arg) != FUNCTION_DECL)
17262 /* If ARG is, for example, "(0, &f)" then its type will be unknown
17263 -- but the deduction does not succeed because the expression is
17264 not just the function on its own. */
17265 return false;
17266 else
17267 for (; arg; arg = OVL_NEXT (arg))
17268 if (try_one_overload (tparms, targs, tempargs, parm,
17269 TREE_TYPE (OVL_CURRENT (arg)),
17270 strict, sub_strict, addr_p, explain_p)
17271 && (!goodfn || !decls_match (goodfn, OVL_CURRENT (arg))))
17273 goodfn = OVL_CURRENT (arg);
17274 ++good;
17277 /* [temp.deduct.type] A template-argument can be deduced from a pointer
17278 to function or pointer to member function argument if the set of
17279 overloaded functions does not contain function templates and at most
17280 one of a set of overloaded functions provides a unique match.
17282 So if we found multiple possibilities, we return success but don't
17283 deduce anything. */
17285 if (good == 1)
17287 int i = TREE_VEC_LENGTH (targs);
17288 for (; i--; )
17289 if (TREE_VEC_ELT (tempargs, i))
17291 tree old = TREE_VEC_ELT (targs, i);
17292 tree new_ = TREE_VEC_ELT (tempargs, i);
17293 if (new_ && old && ARGUMENT_PACK_P (old)
17294 && ARGUMENT_PACK_EXPLICIT_ARGS (old))
17295 /* Don't forget explicit template arguments in a pack. */
17296 ARGUMENT_PACK_EXPLICIT_ARGS (new_)
17297 = ARGUMENT_PACK_EXPLICIT_ARGS (old);
17298 TREE_VEC_ELT (targs, i) = new_;
17301 if (good)
17302 return true;
17304 return false;
17307 /* Core DR 115: In contexts where deduction is done and fails, or in
17308 contexts where deduction is not done, if a template argument list is
17309 specified and it, along with any default template arguments, identifies
17310 a single function template specialization, then the template-id is an
17311 lvalue for the function template specialization. */
17313 tree
17314 resolve_nondeduced_context (tree orig_expr)
17316 tree expr, offset, baselink;
17317 bool addr;
17319 if (!type_unknown_p (orig_expr))
17320 return orig_expr;
17322 expr = orig_expr;
17323 addr = false;
17324 offset = NULL_TREE;
17325 baselink = NULL_TREE;
17327 if (TREE_CODE (expr) == ADDR_EXPR)
17329 expr = TREE_OPERAND (expr, 0);
17330 addr = true;
17332 if (TREE_CODE (expr) == OFFSET_REF)
17334 offset = expr;
17335 expr = TREE_OPERAND (expr, 1);
17337 if (BASELINK_P (expr))
17339 baselink = expr;
17340 expr = BASELINK_FUNCTIONS (expr);
17343 if (TREE_CODE (expr) == TEMPLATE_ID_EXPR)
17345 int good = 0;
17346 tree goodfn = NULL_TREE;
17348 /* If we got some explicit template args, we need to plug them into
17349 the affected templates before we try to unify, in case the
17350 explicit args will completely resolve the templates in question. */
17352 tree expl_subargs = TREE_OPERAND (expr, 1);
17353 tree arg = TREE_OPERAND (expr, 0);
17354 tree badfn = NULL_TREE;
17355 tree badargs = NULL_TREE;
17357 for (; arg; arg = OVL_NEXT (arg))
17359 tree fn = OVL_CURRENT (arg);
17360 tree subargs, elem;
17362 if (TREE_CODE (fn) != TEMPLATE_DECL)
17363 continue;
17365 subargs = coerce_template_parms (DECL_INNERMOST_TEMPLATE_PARMS (fn),
17366 expl_subargs, NULL_TREE, tf_none,
17367 /*require_all_args=*/true,
17368 /*use_default_args=*/true);
17369 if (subargs != error_mark_node
17370 && !any_dependent_template_arguments_p (subargs))
17372 elem = instantiate_template (fn, subargs, tf_none);
17373 if (elem == error_mark_node)
17375 badfn = fn;
17376 badargs = subargs;
17378 else if (elem && (!goodfn || !decls_match (goodfn, elem)))
17380 goodfn = elem;
17381 ++good;
17385 if (good == 1)
17387 mark_used (goodfn);
17388 expr = goodfn;
17389 if (baselink)
17390 expr = build_baselink (BASELINK_BINFO (baselink),
17391 BASELINK_ACCESS_BINFO (baselink),
17392 expr, BASELINK_OPTYPE (baselink));
17393 if (offset)
17395 tree base
17396 = TYPE_MAIN_VARIANT (TREE_TYPE (TREE_OPERAND (offset, 0)));
17397 expr = build_offset_ref (base, expr, addr, tf_warning_or_error);
17399 if (addr)
17400 expr = cp_build_addr_expr (expr, tf_warning_or_error);
17401 return expr;
17403 else if (good == 0 && badargs)
17404 /* There were no good options and at least one bad one, so let the
17405 user know what the problem is. */
17406 instantiate_template (badfn, badargs, tf_warning_or_error);
17408 return orig_expr;
17411 /* Subroutine of resolve_overloaded_unification; does deduction for a single
17412 overload. Fills TARGS with any deduced arguments, or error_mark_node if
17413 different overloads deduce different arguments for a given parm.
17414 ADDR_P is true if the expression for which deduction is being
17415 performed was of the form "& fn" rather than simply "fn".
17417 Returns 1 on success. */
17419 static int
17420 try_one_overload (tree tparms,
17421 tree orig_targs,
17422 tree targs,
17423 tree parm,
17424 tree arg,
17425 unification_kind_t strict,
17426 int sub_strict,
17427 bool addr_p,
17428 bool explain_p)
17430 int nargs;
17431 tree tempargs;
17432 int i;
17434 if (arg == error_mark_node)
17435 return 0;
17437 /* [temp.deduct.type] A template-argument can be deduced from a pointer
17438 to function or pointer to member function argument if the set of
17439 overloaded functions does not contain function templates and at most
17440 one of a set of overloaded functions provides a unique match.
17442 So if this is a template, just return success. */
17444 if (uses_template_parms (arg))
17445 return 1;
17447 if (TREE_CODE (arg) == METHOD_TYPE)
17448 arg = build_ptrmemfunc_type (build_pointer_type (arg));
17449 else if (addr_p)
17450 arg = build_pointer_type (arg);
17452 sub_strict |= maybe_adjust_types_for_deduction (strict, &parm, &arg, NULL);
17454 /* We don't copy orig_targs for this because if we have already deduced
17455 some template args from previous args, unify would complain when we
17456 try to deduce a template parameter for the same argument, even though
17457 there isn't really a conflict. */
17458 nargs = TREE_VEC_LENGTH (targs);
17459 tempargs = make_tree_vec (nargs);
17461 if (unify (tparms, tempargs, parm, arg, sub_strict, explain_p))
17462 return 0;
17464 /* First make sure we didn't deduce anything that conflicts with
17465 explicitly specified args. */
17466 for (i = nargs; i--; )
17468 tree elt = TREE_VEC_ELT (tempargs, i);
17469 tree oldelt = TREE_VEC_ELT (orig_targs, i);
17471 if (!elt)
17472 /*NOP*/;
17473 else if (uses_template_parms (elt))
17474 /* Since we're unifying against ourselves, we will fill in
17475 template args used in the function parm list with our own
17476 template parms. Discard them. */
17477 TREE_VEC_ELT (tempargs, i) = NULL_TREE;
17478 else if (oldelt && !template_args_equal (oldelt, elt))
17479 return 0;
17482 for (i = nargs; i--; )
17484 tree elt = TREE_VEC_ELT (tempargs, i);
17486 if (elt)
17487 TREE_VEC_ELT (targs, i) = elt;
17490 return 1;
17493 /* PARM is a template class (perhaps with unbound template
17494 parameters). ARG is a fully instantiated type. If ARG can be
17495 bound to PARM, return ARG, otherwise return NULL_TREE. TPARMS and
17496 TARGS are as for unify. */
17498 static tree
17499 try_class_unification (tree tparms, tree targs, tree parm, tree arg,
17500 bool explain_p)
17502 tree copy_of_targs;
17504 if (!CLASSTYPE_TEMPLATE_INFO (arg)
17505 || (most_general_template (CLASSTYPE_TI_TEMPLATE (arg))
17506 != most_general_template (CLASSTYPE_TI_TEMPLATE (parm))))
17507 return NULL_TREE;
17509 /* We need to make a new template argument vector for the call to
17510 unify. If we used TARGS, we'd clutter it up with the result of
17511 the attempted unification, even if this class didn't work out.
17512 We also don't want to commit ourselves to all the unifications
17513 we've already done, since unification is supposed to be done on
17514 an argument-by-argument basis. In other words, consider the
17515 following pathological case:
17517 template <int I, int J, int K>
17518 struct S {};
17520 template <int I, int J>
17521 struct S<I, J, 2> : public S<I, I, I>, S<J, J, J> {};
17523 template <int I, int J, int K>
17524 void f(S<I, J, K>, S<I, I, I>);
17526 void g() {
17527 S<0, 0, 0> s0;
17528 S<0, 1, 2> s2;
17530 f(s0, s2);
17533 Now, by the time we consider the unification involving `s2', we
17534 already know that we must have `f<0, 0, 0>'. But, even though
17535 `S<0, 1, 2>' is derived from `S<0, 0, 0>', the code is invalid
17536 because there are two ways to unify base classes of S<0, 1, 2>
17537 with S<I, I, I>. If we kept the already deduced knowledge, we
17538 would reject the possibility I=1. */
17539 copy_of_targs = make_tree_vec (TREE_VEC_LENGTH (targs));
17541 /* If unification failed, we're done. */
17542 if (unify (tparms, copy_of_targs, CLASSTYPE_TI_ARGS (parm),
17543 CLASSTYPE_TI_ARGS (arg), UNIFY_ALLOW_NONE, explain_p))
17544 return NULL_TREE;
17546 return arg;
17549 /* Given a template type PARM and a class type ARG, find the unique
17550 base type in ARG that is an instance of PARM. We do not examine
17551 ARG itself; only its base-classes. If there is not exactly one
17552 appropriate base class, return NULL_TREE. PARM may be the type of
17553 a partial specialization, as well as a plain template type. Used
17554 by unify. */
17556 static enum template_base_result
17557 get_template_base (tree tparms, tree targs, tree parm, tree arg,
17558 bool explain_p, tree *result)
17560 tree rval = NULL_TREE;
17561 tree binfo;
17563 gcc_assert (RECORD_OR_UNION_CODE_P (TREE_CODE (arg)));
17565 binfo = TYPE_BINFO (complete_type (arg));
17566 if (!binfo)
17568 /* The type could not be completed. */
17569 *result = NULL_TREE;
17570 return tbr_incomplete_type;
17573 /* Walk in inheritance graph order. The search order is not
17574 important, and this avoids multiple walks of virtual bases. */
17575 for (binfo = TREE_CHAIN (binfo); binfo; binfo = TREE_CHAIN (binfo))
17577 tree r = try_class_unification (tparms, targs, parm,
17578 BINFO_TYPE (binfo), explain_p);
17580 if (r)
17582 /* If there is more than one satisfactory baseclass, then:
17584 [temp.deduct.call]
17586 If they yield more than one possible deduced A, the type
17587 deduction fails.
17589 applies. */
17590 if (rval && !same_type_p (r, rval))
17592 *result = NULL_TREE;
17593 return tbr_ambiguous_baseclass;
17596 rval = r;
17600 *result = rval;
17601 return tbr_success;
17604 /* Returns the level of DECL, which declares a template parameter. */
17606 static int
17607 template_decl_level (tree decl)
17609 switch (TREE_CODE (decl))
17611 case TYPE_DECL:
17612 case TEMPLATE_DECL:
17613 return TEMPLATE_TYPE_LEVEL (TREE_TYPE (decl));
17615 case PARM_DECL:
17616 return TEMPLATE_PARM_LEVEL (DECL_INITIAL (decl));
17618 default:
17619 gcc_unreachable ();
17621 return 0;
17624 /* Decide whether ARG can be unified with PARM, considering only the
17625 cv-qualifiers of each type, given STRICT as documented for unify.
17626 Returns nonzero iff the unification is OK on that basis. */
17628 static int
17629 check_cv_quals_for_unify (int strict, tree arg, tree parm)
17631 int arg_quals = cp_type_quals (arg);
17632 int parm_quals = cp_type_quals (parm);
17634 if (TREE_CODE (parm) == TEMPLATE_TYPE_PARM
17635 && !(strict & UNIFY_ALLOW_OUTER_MORE_CV_QUAL))
17637 /* Although a CVR qualifier is ignored when being applied to a
17638 substituted template parameter ([8.3.2]/1 for example), that
17639 does not allow us to unify "const T" with "int&" because both
17640 types are not of the form "cv-list T" [14.8.2.5 temp.deduct.type].
17641 It is ok when we're allowing additional CV qualifiers
17642 at the outer level [14.8.2.1]/3,1st bullet. */
17643 if ((TREE_CODE (arg) == REFERENCE_TYPE
17644 || TREE_CODE (arg) == FUNCTION_TYPE
17645 || TREE_CODE (arg) == METHOD_TYPE)
17646 && (parm_quals & (TYPE_QUAL_CONST | TYPE_QUAL_VOLATILE)))
17647 return 0;
17649 if ((!POINTER_TYPE_P (arg) && TREE_CODE (arg) != TEMPLATE_TYPE_PARM)
17650 && (parm_quals & TYPE_QUAL_RESTRICT))
17651 return 0;
17654 if (!(strict & (UNIFY_ALLOW_MORE_CV_QUAL | UNIFY_ALLOW_OUTER_MORE_CV_QUAL))
17655 && (arg_quals & parm_quals) != parm_quals)
17656 return 0;
17658 if (!(strict & (UNIFY_ALLOW_LESS_CV_QUAL | UNIFY_ALLOW_OUTER_LESS_CV_QUAL))
17659 && (parm_quals & arg_quals) != arg_quals)
17660 return 0;
17662 return 1;
17665 /* Determines the LEVEL and INDEX for the template parameter PARM. */
17666 void
17667 template_parm_level_and_index (tree parm, int* level, int* index)
17669 if (TREE_CODE (parm) == TEMPLATE_TYPE_PARM
17670 || TREE_CODE (parm) == TEMPLATE_TEMPLATE_PARM
17671 || TREE_CODE (parm) == BOUND_TEMPLATE_TEMPLATE_PARM)
17673 *index = TEMPLATE_TYPE_IDX (parm);
17674 *level = TEMPLATE_TYPE_LEVEL (parm);
17676 else
17678 *index = TEMPLATE_PARM_IDX (parm);
17679 *level = TEMPLATE_PARM_LEVEL (parm);
17683 #define RECUR_AND_CHECK_FAILURE(TP, TA, P, A, S, EP) \
17684 do { \
17685 if (unify (TP, TA, P, A, S, EP)) \
17686 return 1; \
17687 } while (0);
17689 /* Unifies the remaining arguments in PACKED_ARGS with the pack
17690 expansion at the end of PACKED_PARMS. Returns 0 if the type
17691 deduction succeeds, 1 otherwise. STRICT is the same as in
17692 unify. CALL_ARGS_P is true iff PACKED_ARGS is actually a function
17693 call argument list. We'll need to adjust the arguments to make them
17694 types. SUBR tells us if this is from a recursive call to
17695 type_unification_real, or for comparing two template argument
17696 lists. */
17698 static int
17699 unify_pack_expansion (tree tparms, tree targs, tree packed_parms,
17700 tree packed_args, unification_kind_t strict,
17701 bool subr, bool explain_p)
17703 tree parm
17704 = TREE_VEC_ELT (packed_parms, TREE_VEC_LENGTH (packed_parms) - 1);
17705 tree pattern = PACK_EXPANSION_PATTERN (parm);
17706 tree pack, packs = NULL_TREE;
17707 int i, start = TREE_VEC_LENGTH (packed_parms) - 1;
17709 packed_args = expand_template_argument_pack (packed_args);
17711 int len = TREE_VEC_LENGTH (packed_args);
17713 /* Determine the parameter packs we will be deducing from the
17714 pattern, and record their current deductions. */
17715 for (pack = PACK_EXPANSION_PARAMETER_PACKS (parm);
17716 pack; pack = TREE_CHAIN (pack))
17718 tree parm_pack = TREE_VALUE (pack);
17719 int idx, level;
17721 /* Determine the index and level of this parameter pack. */
17722 template_parm_level_and_index (parm_pack, &level, &idx);
17724 /* Keep track of the parameter packs and their corresponding
17725 argument packs. */
17726 packs = tree_cons (parm_pack, TMPL_ARG (targs, level, idx), packs);
17727 TREE_TYPE (packs) = make_tree_vec (len - start);
17730 /* Loop through all of the arguments that have not yet been
17731 unified and unify each with the pattern. */
17732 for (i = start; i < len; i++)
17734 tree parm;
17735 bool any_explicit = false;
17736 tree arg = TREE_VEC_ELT (packed_args, i);
17738 /* For each parameter pack, set its TMPL_ARG to either NULL_TREE
17739 or the element of its argument pack at the current index if
17740 this argument was explicitly specified. */
17741 for (pack = packs; pack; pack = TREE_CHAIN (pack))
17743 int idx, level;
17744 tree arg, pargs;
17745 template_parm_level_and_index (TREE_PURPOSE (pack), &level, &idx);
17747 arg = NULL_TREE;
17748 if (TREE_VALUE (pack)
17749 && (pargs = ARGUMENT_PACK_EXPLICIT_ARGS (TREE_VALUE (pack)))
17750 && (i - start < TREE_VEC_LENGTH (pargs)))
17752 any_explicit = true;
17753 arg = TREE_VEC_ELT (pargs, i - start);
17755 TMPL_ARG (targs, level, idx) = arg;
17758 /* If we had explicit template arguments, substitute them into the
17759 pattern before deduction. */
17760 if (any_explicit)
17762 /* Some arguments might still be unspecified or dependent. */
17763 bool dependent;
17764 ++processing_template_decl;
17765 dependent = any_dependent_template_arguments_p (targs);
17766 if (!dependent)
17767 --processing_template_decl;
17768 parm = tsubst (pattern, targs,
17769 explain_p ? tf_warning_or_error : tf_none,
17770 NULL_TREE);
17771 if (dependent)
17772 --processing_template_decl;
17773 if (parm == error_mark_node)
17774 return 1;
17776 else
17777 parm = pattern;
17779 /* Unify the pattern with the current argument. */
17780 if (unify_one_argument (tparms, targs, parm, arg, subr, strict,
17781 explain_p))
17782 return 1;
17784 /* For each parameter pack, collect the deduced value. */
17785 for (pack = packs; pack; pack = TREE_CHAIN (pack))
17787 int idx, level;
17788 template_parm_level_and_index (TREE_PURPOSE (pack), &level, &idx);
17790 TREE_VEC_ELT (TREE_TYPE (pack), i - start) =
17791 TMPL_ARG (targs, level, idx);
17795 /* Verify that the results of unification with the parameter packs
17796 produce results consistent with what we've seen before, and make
17797 the deduced argument packs available. */
17798 for (pack = packs; pack; pack = TREE_CHAIN (pack))
17800 tree old_pack = TREE_VALUE (pack);
17801 tree new_args = TREE_TYPE (pack);
17802 int i, len = TREE_VEC_LENGTH (new_args);
17803 int idx, level;
17804 bool nondeduced_p = false;
17806 /* By default keep the original deduced argument pack.
17807 If necessary, more specific code is going to update the
17808 resulting deduced argument later down in this function. */
17809 template_parm_level_and_index (TREE_PURPOSE (pack), &level, &idx);
17810 TMPL_ARG (targs, level, idx) = old_pack;
17812 /* If NEW_ARGS contains any NULL_TREE entries, we didn't
17813 actually deduce anything. */
17814 for (i = 0; i < len && !nondeduced_p; ++i)
17815 if (TREE_VEC_ELT (new_args, i) == NULL_TREE)
17816 nondeduced_p = true;
17817 if (nondeduced_p)
17818 continue;
17820 if (old_pack && ARGUMENT_PACK_INCOMPLETE_P (old_pack))
17822 /* If we had fewer function args than explicit template args,
17823 just use the explicits. */
17824 tree explicit_args = ARGUMENT_PACK_EXPLICIT_ARGS (old_pack);
17825 int explicit_len = TREE_VEC_LENGTH (explicit_args);
17826 if (len < explicit_len)
17827 new_args = explicit_args;
17830 if (!old_pack)
17832 tree result;
17833 /* Build the deduced *_ARGUMENT_PACK. */
17834 if (TREE_CODE (TREE_PURPOSE (pack)) == TEMPLATE_PARM_INDEX)
17836 result = make_node (NONTYPE_ARGUMENT_PACK);
17837 TREE_TYPE (result) =
17838 TREE_TYPE (TEMPLATE_PARM_DECL (TREE_PURPOSE (pack)));
17839 TREE_CONSTANT (result) = 1;
17841 else
17842 result = cxx_make_type (TYPE_ARGUMENT_PACK);
17844 SET_ARGUMENT_PACK_ARGS (result, new_args);
17846 /* Note the deduced argument packs for this parameter
17847 pack. */
17848 TMPL_ARG (targs, level, idx) = result;
17850 else if (ARGUMENT_PACK_INCOMPLETE_P (old_pack)
17851 && (ARGUMENT_PACK_ARGS (old_pack)
17852 == ARGUMENT_PACK_EXPLICIT_ARGS (old_pack)))
17854 /* We only had the explicitly-provided arguments before, but
17855 now we have a complete set of arguments. */
17856 tree explicit_args = ARGUMENT_PACK_EXPLICIT_ARGS (old_pack);
17858 SET_ARGUMENT_PACK_ARGS (old_pack, new_args);
17859 ARGUMENT_PACK_INCOMPLETE_P (old_pack) = 1;
17860 ARGUMENT_PACK_EXPLICIT_ARGS (old_pack) = explicit_args;
17862 else
17864 tree bad_old_arg = NULL_TREE, bad_new_arg = NULL_TREE;
17865 tree old_args = ARGUMENT_PACK_ARGS (old_pack);
17867 if (!comp_template_args_with_info (old_args, new_args,
17868 &bad_old_arg, &bad_new_arg))
17869 /* Inconsistent unification of this parameter pack. */
17870 return unify_parameter_pack_inconsistent (explain_p,
17871 bad_old_arg,
17872 bad_new_arg);
17876 return unify_success (explain_p);
17879 /* Handle unification of the domain of an array. PARM_DOM and ARG_DOM are
17880 INTEGER_TYPEs representing the TYPE_DOMAIN of ARRAY_TYPEs. The other
17881 parameters and return value are as for unify. */
17883 static int
17884 unify_array_domain (tree tparms, tree targs,
17885 tree parm_dom, tree arg_dom,
17886 bool explain_p)
17888 tree parm_max;
17889 tree arg_max;
17890 bool parm_cst;
17891 bool arg_cst;
17893 /* Our representation of array types uses "N - 1" as the
17894 TYPE_MAX_VALUE for an array with "N" elements, if "N" is
17895 not an integer constant. We cannot unify arbitrarily
17896 complex expressions, so we eliminate the MINUS_EXPRs
17897 here. */
17898 parm_max = TYPE_MAX_VALUE (parm_dom);
17899 parm_cst = TREE_CODE (parm_max) == INTEGER_CST;
17900 if (!parm_cst)
17902 gcc_assert (TREE_CODE (parm_max) == MINUS_EXPR);
17903 parm_max = TREE_OPERAND (parm_max, 0);
17905 arg_max = TYPE_MAX_VALUE (arg_dom);
17906 arg_cst = TREE_CODE (arg_max) == INTEGER_CST;
17907 if (!arg_cst)
17909 /* The ARG_MAX may not be a simple MINUS_EXPR, if we are
17910 trying to unify the type of a variable with the type
17911 of a template parameter. For example:
17913 template <unsigned int N>
17914 void f (char (&) [N]);
17915 int g();
17916 void h(int i) {
17917 char a[g(i)];
17918 f(a);
17921 Here, the type of the ARG will be "int [g(i)]", and
17922 may be a SAVE_EXPR, etc. */
17923 if (TREE_CODE (arg_max) != MINUS_EXPR)
17924 return unify_vla_arg (explain_p, arg_dom);
17925 arg_max = TREE_OPERAND (arg_max, 0);
17928 /* If only one of the bounds used a MINUS_EXPR, compensate
17929 by adding one to the other bound. */
17930 if (parm_cst && !arg_cst)
17931 parm_max = fold_build2_loc (input_location, PLUS_EXPR,
17932 integer_type_node,
17933 parm_max,
17934 integer_one_node);
17935 else if (arg_cst && !parm_cst)
17936 arg_max = fold_build2_loc (input_location, PLUS_EXPR,
17937 integer_type_node,
17938 arg_max,
17939 integer_one_node);
17941 return unify (tparms, targs, parm_max, arg_max,
17942 UNIFY_ALLOW_INTEGER, explain_p);
17945 /* Deduce the value of template parameters. TPARMS is the (innermost)
17946 set of template parameters to a template. TARGS is the bindings
17947 for those template parameters, as determined thus far; TARGS may
17948 include template arguments for outer levels of template parameters
17949 as well. PARM is a parameter to a template function, or a
17950 subcomponent of that parameter; ARG is the corresponding argument.
17951 This function attempts to match PARM with ARG in a manner
17952 consistent with the existing assignments in TARGS. If more values
17953 are deduced, then TARGS is updated.
17955 Returns 0 if the type deduction succeeds, 1 otherwise. The
17956 parameter STRICT is a bitwise or of the following flags:
17958 UNIFY_ALLOW_NONE:
17959 Require an exact match between PARM and ARG.
17960 UNIFY_ALLOW_MORE_CV_QUAL:
17961 Allow the deduced ARG to be more cv-qualified (by qualification
17962 conversion) than ARG.
17963 UNIFY_ALLOW_LESS_CV_QUAL:
17964 Allow the deduced ARG to be less cv-qualified than ARG.
17965 UNIFY_ALLOW_DERIVED:
17966 Allow the deduced ARG to be a template base class of ARG,
17967 or a pointer to a template base class of the type pointed to by
17968 ARG.
17969 UNIFY_ALLOW_INTEGER:
17970 Allow any integral type to be deduced. See the TEMPLATE_PARM_INDEX
17971 case for more information.
17972 UNIFY_ALLOW_OUTER_LEVEL:
17973 This is the outermost level of a deduction. Used to determine validity
17974 of qualification conversions. A valid qualification conversion must
17975 have const qualified pointers leading up to the inner type which
17976 requires additional CV quals, except at the outer level, where const
17977 is not required [conv.qual]. It would be normal to set this flag in
17978 addition to setting UNIFY_ALLOW_MORE_CV_QUAL.
17979 UNIFY_ALLOW_OUTER_MORE_CV_QUAL:
17980 This is the outermost level of a deduction, and PARM can be more CV
17981 qualified at this point.
17982 UNIFY_ALLOW_OUTER_LESS_CV_QUAL:
17983 This is the outermost level of a deduction, and PARM can be less CV
17984 qualified at this point. */
17986 static int
17987 unify (tree tparms, tree targs, tree parm, tree arg, int strict,
17988 bool explain_p)
17990 int idx;
17991 tree targ;
17992 tree tparm;
17993 int strict_in = strict;
17995 /* I don't think this will do the right thing with respect to types.
17996 But the only case I've seen it in so far has been array bounds, where
17997 signedness is the only information lost, and I think that will be
17998 okay. */
17999 while (TREE_CODE (parm) == NOP_EXPR)
18000 parm = TREE_OPERAND (parm, 0);
18002 if (arg == error_mark_node)
18003 return unify_invalid (explain_p);
18004 if (arg == unknown_type_node
18005 || arg == init_list_type_node)
18006 /* We can't deduce anything from this, but we might get all the
18007 template args from other function args. */
18008 return unify_success (explain_p);
18010 /* If PARM uses template parameters, then we can't bail out here,
18011 even if ARG == PARM, since we won't record unifications for the
18012 template parameters. We might need them if we're trying to
18013 figure out which of two things is more specialized. */
18014 if (arg == parm && !uses_template_parms (parm))
18015 return unify_success (explain_p);
18017 /* Handle init lists early, so the rest of the function can assume
18018 we're dealing with a type. */
18019 if (BRACE_ENCLOSED_INITIALIZER_P (arg))
18021 tree elt, elttype;
18022 unsigned i;
18023 tree orig_parm = parm;
18025 /* Replace T with std::initializer_list<T> for deduction. */
18026 if (TREE_CODE (parm) == TEMPLATE_TYPE_PARM
18027 && flag_deduce_init_list)
18028 parm = listify (parm);
18030 if (!is_std_init_list (parm)
18031 && TREE_CODE (parm) != ARRAY_TYPE)
18032 /* We can only deduce from an initializer list argument if the
18033 parameter is std::initializer_list or an array; otherwise this
18034 is a non-deduced context. */
18035 return unify_success (explain_p);
18037 if (TREE_CODE (parm) == ARRAY_TYPE)
18038 elttype = TREE_TYPE (parm);
18039 else
18041 elttype = TREE_VEC_ELT (CLASSTYPE_TI_ARGS (parm), 0);
18042 /* Deduction is defined in terms of a single type, so just punt
18043 on the (bizarre) std::initializer_list<T...>. */
18044 if (PACK_EXPANSION_P (elttype))
18045 return unify_success (explain_p);
18048 FOR_EACH_CONSTRUCTOR_VALUE (CONSTRUCTOR_ELTS (arg), i, elt)
18050 int elt_strict = strict;
18052 if (elt == error_mark_node)
18053 return unify_invalid (explain_p);
18055 if (!BRACE_ENCLOSED_INITIALIZER_P (elt))
18057 tree type = TREE_TYPE (elt);
18058 if (type == error_mark_node)
18059 return unify_invalid (explain_p);
18060 /* It should only be possible to get here for a call. */
18061 gcc_assert (elt_strict & UNIFY_ALLOW_OUTER_LEVEL);
18062 elt_strict |= maybe_adjust_types_for_deduction
18063 (DEDUCE_CALL, &elttype, &type, elt);
18064 elt = type;
18067 RECUR_AND_CHECK_FAILURE (tparms, targs, elttype, elt, elt_strict,
18068 explain_p);
18071 if (TREE_CODE (parm) == ARRAY_TYPE
18072 && deducible_array_bound (TYPE_DOMAIN (parm)))
18074 /* Also deduce from the length of the initializer list. */
18075 tree max = size_int (CONSTRUCTOR_NELTS (arg));
18076 tree idx = compute_array_index_type (NULL_TREE, max, tf_none);
18077 if (idx == error_mark_node)
18078 return unify_invalid (explain_p);
18079 return unify_array_domain (tparms, targs, TYPE_DOMAIN (parm),
18080 idx, explain_p);
18083 /* If the std::initializer_list<T> deduction worked, replace the
18084 deduced A with std::initializer_list<A>. */
18085 if (orig_parm != parm)
18087 idx = TEMPLATE_TYPE_IDX (orig_parm);
18088 targ = TREE_VEC_ELT (INNERMOST_TEMPLATE_ARGS (targs), idx);
18089 targ = listify (targ);
18090 TREE_VEC_ELT (INNERMOST_TEMPLATE_ARGS (targs), idx) = targ;
18092 return unify_success (explain_p);
18095 /* Immediately reject some pairs that won't unify because of
18096 cv-qualification mismatches. */
18097 if (TREE_CODE (arg) == TREE_CODE (parm)
18098 && TYPE_P (arg)
18099 /* It is the elements of the array which hold the cv quals of an array
18100 type, and the elements might be template type parms. We'll check
18101 when we recurse. */
18102 && TREE_CODE (arg) != ARRAY_TYPE
18103 /* We check the cv-qualifiers when unifying with template type
18104 parameters below. We want to allow ARG `const T' to unify with
18105 PARM `T' for example, when computing which of two templates
18106 is more specialized, for example. */
18107 && TREE_CODE (arg) != TEMPLATE_TYPE_PARM
18108 && !check_cv_quals_for_unify (strict_in, arg, parm))
18109 return unify_cv_qual_mismatch (explain_p, parm, arg);
18111 if (!(strict & UNIFY_ALLOW_OUTER_LEVEL)
18112 && TYPE_P (parm) && !CP_TYPE_CONST_P (parm))
18113 strict &= ~UNIFY_ALLOW_MORE_CV_QUAL;
18114 strict &= ~UNIFY_ALLOW_OUTER_LEVEL;
18115 strict &= ~UNIFY_ALLOW_DERIVED;
18116 strict &= ~UNIFY_ALLOW_OUTER_MORE_CV_QUAL;
18117 strict &= ~UNIFY_ALLOW_OUTER_LESS_CV_QUAL;
18119 switch (TREE_CODE (parm))
18121 case TYPENAME_TYPE:
18122 case SCOPE_REF:
18123 case UNBOUND_CLASS_TEMPLATE:
18124 /* In a type which contains a nested-name-specifier, template
18125 argument values cannot be deduced for template parameters used
18126 within the nested-name-specifier. */
18127 return unify_success (explain_p);
18129 case TEMPLATE_TYPE_PARM:
18130 case TEMPLATE_TEMPLATE_PARM:
18131 case BOUND_TEMPLATE_TEMPLATE_PARM:
18132 tparm = TREE_VALUE (TREE_VEC_ELT (tparms, 0));
18133 if (error_operand_p (tparm))
18134 return unify_invalid (explain_p);
18136 if (TEMPLATE_TYPE_LEVEL (parm)
18137 != template_decl_level (tparm))
18138 /* The PARM is not one we're trying to unify. Just check
18139 to see if it matches ARG. */
18141 if (TREE_CODE (arg) == TREE_CODE (parm)
18142 && (is_auto (parm) ? is_auto (arg)
18143 : same_type_p (parm, arg)))
18144 return unify_success (explain_p);
18145 else
18146 return unify_type_mismatch (explain_p, parm, arg);
18148 idx = TEMPLATE_TYPE_IDX (parm);
18149 targ = TREE_VEC_ELT (INNERMOST_TEMPLATE_ARGS (targs), idx);
18150 tparm = TREE_VALUE (TREE_VEC_ELT (tparms, idx));
18151 if (error_operand_p (tparm))
18152 return unify_invalid (explain_p);
18154 /* Check for mixed types and values. */
18155 if ((TREE_CODE (parm) == TEMPLATE_TYPE_PARM
18156 && TREE_CODE (tparm) != TYPE_DECL)
18157 || (TREE_CODE (parm) == TEMPLATE_TEMPLATE_PARM
18158 && TREE_CODE (tparm) != TEMPLATE_DECL))
18159 gcc_unreachable ();
18161 if (TREE_CODE (parm) == BOUND_TEMPLATE_TEMPLATE_PARM)
18163 /* ARG must be constructed from a template class or a template
18164 template parameter. */
18165 if (TREE_CODE (arg) != BOUND_TEMPLATE_TEMPLATE_PARM
18166 && !CLASSTYPE_SPECIALIZATION_OF_PRIMARY_TEMPLATE_P (arg))
18167 return unify_template_deduction_failure (explain_p, parm, arg);
18169 tree parmvec = TYPE_TI_ARGS (parm);
18170 /* An alias template name is never deduced. */
18171 if (TYPE_ALIAS_P (arg))
18172 arg = strip_typedefs (arg);
18173 tree argvec = INNERMOST_TEMPLATE_ARGS (TYPE_TI_ARGS (arg));
18174 tree full_argvec = add_to_template_args (targs, argvec);
18175 tree parm_parms
18176 = DECL_INNERMOST_TEMPLATE_PARMS
18177 (TEMPLATE_TEMPLATE_PARM_TEMPLATE_DECL (parm));
18178 int i, len;
18179 int parm_variadic_p = 0;
18181 /* The resolution to DR150 makes clear that default
18182 arguments for an N-argument may not be used to bind T
18183 to a template template parameter with fewer than N
18184 parameters. It is not safe to permit the binding of
18185 default arguments as an extension, as that may change
18186 the meaning of a conforming program. Consider:
18188 struct Dense { static const unsigned int dim = 1; };
18190 template <template <typename> class View,
18191 typename Block>
18192 void operator+(float, View<Block> const&);
18194 template <typename Block,
18195 unsigned int Dim = Block::dim>
18196 struct Lvalue_proxy { operator float() const; };
18198 void
18199 test_1d (void) {
18200 Lvalue_proxy<Dense> p;
18201 float b;
18202 b + p;
18205 Here, if Lvalue_proxy is permitted to bind to View, then
18206 the global operator+ will be used; if they are not, the
18207 Lvalue_proxy will be converted to float. */
18208 if (coerce_template_parms (parm_parms,
18209 full_argvec,
18210 TYPE_TI_TEMPLATE (parm),
18211 (explain_p
18212 ? tf_warning_or_error
18213 : tf_none),
18214 /*require_all_args=*/true,
18215 /*use_default_args=*/false)
18216 == error_mark_node)
18217 return 1;
18219 /* Deduce arguments T, i from TT<T> or TT<i>.
18220 We check each element of PARMVEC and ARGVEC individually
18221 rather than the whole TREE_VEC since they can have
18222 different number of elements. */
18224 parmvec = expand_template_argument_pack (parmvec);
18225 argvec = expand_template_argument_pack (argvec);
18227 len = TREE_VEC_LENGTH (parmvec);
18229 /* Check if the parameters end in a pack, making them
18230 variadic. */
18231 if (len > 0
18232 && PACK_EXPANSION_P (TREE_VEC_ELT (parmvec, len - 1)))
18233 parm_variadic_p = 1;
18235 for (i = 0; i < len - parm_variadic_p; ++i)
18236 /* If the template argument list of P contains a pack
18237 expansion that is not the last template argument, the
18238 entire template argument list is a non-deduced
18239 context. */
18240 if (PACK_EXPANSION_P (TREE_VEC_ELT (parmvec, i)))
18241 return unify_success (explain_p);
18243 if (TREE_VEC_LENGTH (argvec) < len - parm_variadic_p)
18244 return unify_too_few_arguments (explain_p,
18245 TREE_VEC_LENGTH (argvec), len);
18247 for (i = 0; i < len - parm_variadic_p; ++i)
18249 RECUR_AND_CHECK_FAILURE (tparms, targs,
18250 TREE_VEC_ELT (parmvec, i),
18251 TREE_VEC_ELT (argvec, i),
18252 UNIFY_ALLOW_NONE, explain_p);
18255 if (parm_variadic_p
18256 && unify_pack_expansion (tparms, targs,
18257 parmvec, argvec,
18258 DEDUCE_EXACT,
18259 /*subr=*/true, explain_p))
18260 return 1;
18262 arg = TYPE_TI_TEMPLATE (arg);
18264 /* Fall through to deduce template name. */
18267 if (TREE_CODE (parm) == TEMPLATE_TEMPLATE_PARM
18268 || TREE_CODE (parm) == BOUND_TEMPLATE_TEMPLATE_PARM)
18270 /* Deduce template name TT from TT, TT<>, TT<T> and TT<i>. */
18272 /* Simple cases: Value already set, does match or doesn't. */
18273 if (targ != NULL_TREE && template_args_equal (targ, arg))
18274 return unify_success (explain_p);
18275 else if (targ)
18276 return unify_inconsistency (explain_p, parm, targ, arg);
18278 else
18280 /* If PARM is `const T' and ARG is only `int', we don't have
18281 a match unless we are allowing additional qualification.
18282 If ARG is `const int' and PARM is just `T' that's OK;
18283 that binds `const int' to `T'. */
18284 if (!check_cv_quals_for_unify (strict_in | UNIFY_ALLOW_LESS_CV_QUAL,
18285 arg, parm))
18286 return unify_cv_qual_mismatch (explain_p, parm, arg);
18288 /* Consider the case where ARG is `const volatile int' and
18289 PARM is `const T'. Then, T should be `volatile int'. */
18290 arg = cp_build_qualified_type_real
18291 (arg, cp_type_quals (arg) & ~cp_type_quals (parm), tf_none);
18292 if (arg == error_mark_node)
18293 return unify_invalid (explain_p);
18295 /* Simple cases: Value already set, does match or doesn't. */
18296 if (targ != NULL_TREE && same_type_p (targ, arg))
18297 return unify_success (explain_p);
18298 else if (targ)
18299 return unify_inconsistency (explain_p, parm, targ, arg);
18301 /* Make sure that ARG is not a variable-sized array. (Note
18302 that were talking about variable-sized arrays (like
18303 `int[n]'), rather than arrays of unknown size (like
18304 `int[]').) We'll get very confused by such a type since
18305 the bound of the array is not constant, and therefore
18306 not mangleable. Besides, such types are not allowed in
18307 ISO C++, so we can do as we please here. We do allow
18308 them for 'auto' deduction, since that isn't ABI-exposed. */
18309 if (!is_auto (parm) && variably_modified_type_p (arg, NULL_TREE))
18310 return unify_vla_arg (explain_p, arg);
18312 /* Strip typedefs as in convert_template_argument. */
18313 arg = canonicalize_type_argument (arg, tf_none);
18316 /* If ARG is a parameter pack or an expansion, we cannot unify
18317 against it unless PARM is also a parameter pack. */
18318 if ((template_parameter_pack_p (arg) || PACK_EXPANSION_P (arg))
18319 && !template_parameter_pack_p (parm))
18320 return unify_parameter_pack_mismatch (explain_p, parm, arg);
18322 /* If the argument deduction results is a METHOD_TYPE,
18323 then there is a problem.
18324 METHOD_TYPE doesn't map to any real C++ type the result of
18325 the deduction can not be of that type. */
18326 if (TREE_CODE (arg) == METHOD_TYPE)
18327 return unify_method_type_error (explain_p, arg);
18329 TREE_VEC_ELT (INNERMOST_TEMPLATE_ARGS (targs), idx) = arg;
18330 return unify_success (explain_p);
18332 case TEMPLATE_PARM_INDEX:
18333 tparm = TREE_VALUE (TREE_VEC_ELT (tparms, 0));
18334 if (error_operand_p (tparm))
18335 return unify_invalid (explain_p);
18337 if (TEMPLATE_PARM_LEVEL (parm)
18338 != template_decl_level (tparm))
18340 /* The PARM is not one we're trying to unify. Just check
18341 to see if it matches ARG. */
18342 int result = !(TREE_CODE (arg) == TREE_CODE (parm)
18343 && cp_tree_equal (parm, arg));
18344 if (result)
18345 unify_expression_unequal (explain_p, parm, arg);
18346 return result;
18349 idx = TEMPLATE_PARM_IDX (parm);
18350 targ = TREE_VEC_ELT (INNERMOST_TEMPLATE_ARGS (targs), idx);
18352 if (targ)
18354 int x = !cp_tree_equal (targ, arg);
18355 if (x)
18356 unify_inconsistency (explain_p, parm, targ, arg);
18357 return x;
18360 /* [temp.deduct.type] If, in the declaration of a function template
18361 with a non-type template-parameter, the non-type
18362 template-parameter is used in an expression in the function
18363 parameter-list and, if the corresponding template-argument is
18364 deduced, the template-argument type shall match the type of the
18365 template-parameter exactly, except that a template-argument
18366 deduced from an array bound may be of any integral type.
18367 The non-type parameter might use already deduced type parameters. */
18368 tparm = tsubst (TREE_TYPE (parm), targs, 0, NULL_TREE);
18369 if (!TREE_TYPE (arg))
18370 /* Template-parameter dependent expression. Just accept it for now.
18371 It will later be processed in convert_template_argument. */
18373 else if (same_type_p (TREE_TYPE (arg), tparm))
18374 /* OK */;
18375 else if ((strict & UNIFY_ALLOW_INTEGER)
18376 && CP_INTEGRAL_TYPE_P (tparm))
18377 /* Convert the ARG to the type of PARM; the deduced non-type
18378 template argument must exactly match the types of the
18379 corresponding parameter. */
18380 arg = fold (build_nop (tparm, arg));
18381 else if (uses_template_parms (tparm))
18382 /* We haven't deduced the type of this parameter yet. Try again
18383 later. */
18384 return unify_success (explain_p);
18385 else
18386 return unify_type_mismatch (explain_p, tparm, TREE_TYPE (arg));
18388 /* If ARG is a parameter pack or an expansion, we cannot unify
18389 against it unless PARM is also a parameter pack. */
18390 if ((template_parameter_pack_p (arg) || PACK_EXPANSION_P (arg))
18391 && !TEMPLATE_PARM_PARAMETER_PACK (parm))
18392 return unify_parameter_pack_mismatch (explain_p, parm, arg);
18395 bool removed_attr = false;
18396 arg = strip_typedefs_expr (arg, &removed_attr);
18398 TREE_VEC_ELT (INNERMOST_TEMPLATE_ARGS (targs), idx) = arg;
18399 return unify_success (explain_p);
18401 case PTRMEM_CST:
18403 /* A pointer-to-member constant can be unified only with
18404 another constant. */
18405 if (TREE_CODE (arg) != PTRMEM_CST)
18406 return unify_ptrmem_cst_mismatch (explain_p, parm, arg);
18408 /* Just unify the class member. It would be useless (and possibly
18409 wrong, depending on the strict flags) to unify also
18410 PTRMEM_CST_CLASS, because we want to be sure that both parm and
18411 arg refer to the same variable, even if through different
18412 classes. For instance:
18414 struct A { int x; };
18415 struct B : A { };
18417 Unification of &A::x and &B::x must succeed. */
18418 return unify (tparms, targs, PTRMEM_CST_MEMBER (parm),
18419 PTRMEM_CST_MEMBER (arg), strict, explain_p);
18422 case POINTER_TYPE:
18424 if (!TYPE_PTR_P (arg))
18425 return unify_type_mismatch (explain_p, parm, arg);
18427 /* [temp.deduct.call]
18429 A can be another pointer or pointer to member type that can
18430 be converted to the deduced A via a qualification
18431 conversion (_conv.qual_).
18433 We pass down STRICT here rather than UNIFY_ALLOW_NONE.
18434 This will allow for additional cv-qualification of the
18435 pointed-to types if appropriate. */
18437 if (TREE_CODE (TREE_TYPE (arg)) == RECORD_TYPE)
18438 /* The derived-to-base conversion only persists through one
18439 level of pointers. */
18440 strict |= (strict_in & UNIFY_ALLOW_DERIVED);
18442 return unify (tparms, targs, TREE_TYPE (parm),
18443 TREE_TYPE (arg), strict, explain_p);
18446 case REFERENCE_TYPE:
18447 if (TREE_CODE (arg) != REFERENCE_TYPE)
18448 return unify_type_mismatch (explain_p, parm, arg);
18449 return unify (tparms, targs, TREE_TYPE (parm), TREE_TYPE (arg),
18450 strict & UNIFY_ALLOW_MORE_CV_QUAL, explain_p);
18452 case ARRAY_TYPE:
18453 if (TREE_CODE (arg) != ARRAY_TYPE)
18454 return unify_type_mismatch (explain_p, parm, arg);
18455 if ((TYPE_DOMAIN (parm) == NULL_TREE)
18456 != (TYPE_DOMAIN (arg) == NULL_TREE))
18457 return unify_type_mismatch (explain_p, parm, arg);
18458 RECUR_AND_CHECK_FAILURE (tparms, targs, TREE_TYPE (parm), TREE_TYPE (arg),
18459 strict & UNIFY_ALLOW_MORE_CV_QUAL, explain_p);
18460 if (TYPE_DOMAIN (parm) != NULL_TREE)
18461 return unify_array_domain (tparms, targs, TYPE_DOMAIN (parm),
18462 TYPE_DOMAIN (arg), explain_p);
18463 return unify_success (explain_p);
18465 case REAL_TYPE:
18466 case COMPLEX_TYPE:
18467 case VECTOR_TYPE:
18468 case INTEGER_TYPE:
18469 case BOOLEAN_TYPE:
18470 case ENUMERAL_TYPE:
18471 case VOID_TYPE:
18472 case NULLPTR_TYPE:
18473 if (TREE_CODE (arg) != TREE_CODE (parm))
18474 return unify_type_mismatch (explain_p, parm, arg);
18476 /* We have already checked cv-qualification at the top of the
18477 function. */
18478 if (!same_type_ignoring_top_level_qualifiers_p (arg, parm))
18479 return unify_type_mismatch (explain_p, parm, arg);
18481 /* As far as unification is concerned, this wins. Later checks
18482 will invalidate it if necessary. */
18483 return unify_success (explain_p);
18485 /* Types INTEGER_CST and MINUS_EXPR can come from array bounds. */
18486 /* Type INTEGER_CST can come from ordinary constant template args. */
18487 case INTEGER_CST:
18488 while (TREE_CODE (arg) == NOP_EXPR)
18489 arg = TREE_OPERAND (arg, 0);
18491 if (TREE_CODE (arg) != INTEGER_CST)
18492 return unify_template_argument_mismatch (explain_p, parm, arg);
18493 return (tree_int_cst_equal (parm, arg)
18494 ? unify_success (explain_p)
18495 : unify_template_argument_mismatch (explain_p, parm, arg));
18497 case TREE_VEC:
18499 int i, len, argslen;
18500 int parm_variadic_p = 0;
18502 if (TREE_CODE (arg) != TREE_VEC)
18503 return unify_template_argument_mismatch (explain_p, parm, arg);
18505 len = TREE_VEC_LENGTH (parm);
18506 argslen = TREE_VEC_LENGTH (arg);
18508 /* Check for pack expansions in the parameters. */
18509 for (i = 0; i < len; ++i)
18511 if (PACK_EXPANSION_P (TREE_VEC_ELT (parm, i)))
18513 if (i == len - 1)
18514 /* We can unify against something with a trailing
18515 parameter pack. */
18516 parm_variadic_p = 1;
18517 else
18518 /* [temp.deduct.type]/9: If the template argument list of
18519 P contains a pack expansion that is not the last
18520 template argument, the entire template argument list
18521 is a non-deduced context. */
18522 return unify_success (explain_p);
18526 /* If we don't have enough arguments to satisfy the parameters
18527 (not counting the pack expression at the end), or we have
18528 too many arguments for a parameter list that doesn't end in
18529 a pack expression, we can't unify. */
18530 if (parm_variadic_p
18531 ? argslen < len - parm_variadic_p
18532 : argslen != len)
18533 return unify_arity (explain_p, TREE_VEC_LENGTH (arg), len);
18535 /* Unify all of the parameters that precede the (optional)
18536 pack expression. */
18537 for (i = 0; i < len - parm_variadic_p; ++i)
18539 RECUR_AND_CHECK_FAILURE (tparms, targs,
18540 TREE_VEC_ELT (parm, i),
18541 TREE_VEC_ELT (arg, i),
18542 UNIFY_ALLOW_NONE, explain_p);
18544 if (parm_variadic_p)
18545 return unify_pack_expansion (tparms, targs, parm, arg,
18546 DEDUCE_EXACT,
18547 /*subr=*/true, explain_p);
18548 return unify_success (explain_p);
18551 case RECORD_TYPE:
18552 case UNION_TYPE:
18553 if (TREE_CODE (arg) != TREE_CODE (parm))
18554 return unify_type_mismatch (explain_p, parm, arg);
18556 if (TYPE_PTRMEMFUNC_P (parm))
18558 if (!TYPE_PTRMEMFUNC_P (arg))
18559 return unify_type_mismatch (explain_p, parm, arg);
18561 return unify (tparms, targs,
18562 TYPE_PTRMEMFUNC_FN_TYPE (parm),
18563 TYPE_PTRMEMFUNC_FN_TYPE (arg),
18564 strict, explain_p);
18566 else if (TYPE_PTRMEMFUNC_P (arg))
18567 return unify_type_mismatch (explain_p, parm, arg);
18569 if (CLASSTYPE_TEMPLATE_INFO (parm))
18571 tree t = NULL_TREE;
18573 if (strict_in & UNIFY_ALLOW_DERIVED)
18575 /* First, we try to unify the PARM and ARG directly. */
18576 t = try_class_unification (tparms, targs,
18577 parm, arg, explain_p);
18579 if (!t)
18581 /* Fallback to the special case allowed in
18582 [temp.deduct.call]:
18584 If P is a class, and P has the form
18585 template-id, then A can be a derived class of
18586 the deduced A. Likewise, if P is a pointer to
18587 a class of the form template-id, A can be a
18588 pointer to a derived class pointed to by the
18589 deduced A. */
18590 enum template_base_result r;
18591 r = get_template_base (tparms, targs, parm, arg,
18592 explain_p, &t);
18594 if (!t)
18595 return unify_no_common_base (explain_p, r, parm, arg);
18598 else if (CLASSTYPE_TEMPLATE_INFO (arg)
18599 && (CLASSTYPE_TI_TEMPLATE (parm)
18600 == CLASSTYPE_TI_TEMPLATE (arg)))
18601 /* Perhaps PARM is something like S<U> and ARG is S<int>.
18602 Then, we should unify `int' and `U'. */
18603 t = arg;
18604 else
18605 /* There's no chance of unification succeeding. */
18606 return unify_type_mismatch (explain_p, parm, arg);
18608 return unify (tparms, targs, CLASSTYPE_TI_ARGS (parm),
18609 CLASSTYPE_TI_ARGS (t), UNIFY_ALLOW_NONE, explain_p);
18611 else if (!same_type_ignoring_top_level_qualifiers_p (parm, arg))
18612 return unify_type_mismatch (explain_p, parm, arg);
18613 return unify_success (explain_p);
18615 case METHOD_TYPE:
18616 case FUNCTION_TYPE:
18618 unsigned int nargs;
18619 tree *args;
18620 tree a;
18621 unsigned int i;
18623 if (TREE_CODE (arg) != TREE_CODE (parm))
18624 return unify_type_mismatch (explain_p, parm, arg);
18626 /* CV qualifications for methods can never be deduced, they must
18627 match exactly. We need to check them explicitly here,
18628 because type_unification_real treats them as any other
18629 cv-qualified parameter. */
18630 if (TREE_CODE (parm) == METHOD_TYPE
18631 && (!check_cv_quals_for_unify
18632 (UNIFY_ALLOW_NONE,
18633 class_of_this_parm (arg),
18634 class_of_this_parm (parm))))
18635 return unify_cv_qual_mismatch (explain_p, parm, arg);
18637 RECUR_AND_CHECK_FAILURE (tparms, targs, TREE_TYPE (parm),
18638 TREE_TYPE (arg), UNIFY_ALLOW_NONE, explain_p);
18640 nargs = list_length (TYPE_ARG_TYPES (arg));
18641 args = XALLOCAVEC (tree, nargs);
18642 for (a = TYPE_ARG_TYPES (arg), i = 0;
18643 a != NULL_TREE && a != void_list_node;
18644 a = TREE_CHAIN (a), ++i)
18645 args[i] = TREE_VALUE (a);
18646 nargs = i;
18648 return type_unification_real (tparms, targs, TYPE_ARG_TYPES (parm),
18649 args, nargs, 1, DEDUCE_EXACT,
18650 LOOKUP_NORMAL, NULL, explain_p);
18653 case OFFSET_TYPE:
18654 /* Unify a pointer to member with a pointer to member function, which
18655 deduces the type of the member as a function type. */
18656 if (TYPE_PTRMEMFUNC_P (arg))
18658 /* Check top-level cv qualifiers */
18659 if (!check_cv_quals_for_unify (UNIFY_ALLOW_NONE, arg, parm))
18660 return unify_cv_qual_mismatch (explain_p, parm, arg);
18662 RECUR_AND_CHECK_FAILURE (tparms, targs, TYPE_OFFSET_BASETYPE (parm),
18663 TYPE_PTRMEMFUNC_OBJECT_TYPE (arg),
18664 UNIFY_ALLOW_NONE, explain_p);
18666 /* Determine the type of the function we are unifying against. */
18667 tree fntype = static_fn_type (arg);
18669 return unify (tparms, targs, TREE_TYPE (parm), fntype, strict, explain_p);
18672 if (TREE_CODE (arg) != OFFSET_TYPE)
18673 return unify_type_mismatch (explain_p, parm, arg);
18674 RECUR_AND_CHECK_FAILURE (tparms, targs, TYPE_OFFSET_BASETYPE (parm),
18675 TYPE_OFFSET_BASETYPE (arg),
18676 UNIFY_ALLOW_NONE, explain_p);
18677 return unify (tparms, targs, TREE_TYPE (parm), TREE_TYPE (arg),
18678 strict, explain_p);
18680 case CONST_DECL:
18681 if (DECL_TEMPLATE_PARM_P (parm))
18682 return unify (tparms, targs, DECL_INITIAL (parm), arg, strict, explain_p);
18683 if (arg != scalar_constant_value (parm))
18684 return unify_template_argument_mismatch (explain_p, parm, arg);
18685 return unify_success (explain_p);
18687 case FIELD_DECL:
18688 case TEMPLATE_DECL:
18689 /* Matched cases are handled by the ARG == PARM test above. */
18690 return unify_template_argument_mismatch (explain_p, parm, arg);
18692 case VAR_DECL:
18693 /* A non-type template parameter that is a variable should be a
18694 an integral constant, in which case, it whould have been
18695 folded into its (constant) value. So we should not be getting
18696 a variable here. */
18697 gcc_unreachable ();
18699 case TYPE_ARGUMENT_PACK:
18700 case NONTYPE_ARGUMENT_PACK:
18701 return unify (tparms, targs, ARGUMENT_PACK_ARGS (parm),
18702 ARGUMENT_PACK_ARGS (arg), strict, explain_p);
18704 case TYPEOF_TYPE:
18705 case DECLTYPE_TYPE:
18706 case UNDERLYING_TYPE:
18707 /* Cannot deduce anything from TYPEOF_TYPE, DECLTYPE_TYPE,
18708 or UNDERLYING_TYPE nodes. */
18709 return unify_success (explain_p);
18711 case ERROR_MARK:
18712 /* Unification fails if we hit an error node. */
18713 return unify_invalid (explain_p);
18715 case INDIRECT_REF:
18716 if (REFERENCE_REF_P (parm))
18718 if (REFERENCE_REF_P (arg))
18719 arg = TREE_OPERAND (arg, 0);
18720 return unify (tparms, targs, TREE_OPERAND (parm, 0), arg,
18721 strict, explain_p);
18723 /* FALLTHRU */
18725 default:
18726 /* An unresolved overload is a nondeduced context. */
18727 if (is_overloaded_fn (parm) || type_unknown_p (parm))
18728 return unify_success (explain_p);
18729 gcc_assert (EXPR_P (parm));
18731 /* We must be looking at an expression. This can happen with
18732 something like:
18734 template <int I>
18735 void foo(S<I>, S<I + 2>);
18737 This is a "nondeduced context":
18739 [deduct.type]
18741 The nondeduced contexts are:
18743 --A type that is a template-id in which one or more of
18744 the template-arguments is an expression that references
18745 a template-parameter.
18747 In these cases, we assume deduction succeeded, but don't
18748 actually infer any unifications. */
18750 if (!uses_template_parms (parm)
18751 && !template_args_equal (parm, arg))
18752 return unify_expression_unequal (explain_p, parm, arg);
18753 else
18754 return unify_success (explain_p);
18757 #undef RECUR_AND_CHECK_FAILURE
18759 /* Note that DECL can be defined in this translation unit, if
18760 required. */
18762 static void
18763 mark_definable (tree decl)
18765 tree clone;
18766 DECL_NOT_REALLY_EXTERN (decl) = 1;
18767 FOR_EACH_CLONE (clone, decl)
18768 DECL_NOT_REALLY_EXTERN (clone) = 1;
18771 /* Called if RESULT is explicitly instantiated, or is a member of an
18772 explicitly instantiated class. */
18774 void
18775 mark_decl_instantiated (tree result, int extern_p)
18777 SET_DECL_EXPLICIT_INSTANTIATION (result);
18779 /* If this entity has already been written out, it's too late to
18780 make any modifications. */
18781 if (TREE_ASM_WRITTEN (result))
18782 return;
18784 /* For anonymous namespace we don't need to do anything. */
18785 if (decl_anon_ns_mem_p (result))
18787 gcc_assert (!TREE_PUBLIC (result));
18788 return;
18791 if (TREE_CODE (result) != FUNCTION_DECL)
18792 /* The TREE_PUBLIC flag for function declarations will have been
18793 set correctly by tsubst. */
18794 TREE_PUBLIC (result) = 1;
18796 /* This might have been set by an earlier implicit instantiation. */
18797 DECL_COMDAT (result) = 0;
18799 if (extern_p)
18800 DECL_NOT_REALLY_EXTERN (result) = 0;
18801 else
18803 mark_definable (result);
18804 mark_needed (result);
18805 /* Always make artificials weak. */
18806 if (DECL_ARTIFICIAL (result) && flag_weak)
18807 comdat_linkage (result);
18808 /* For WIN32 we also want to put explicit instantiations in
18809 linkonce sections. */
18810 else if (TREE_PUBLIC (result))
18811 maybe_make_one_only (result);
18814 /* If EXTERN_P, then this function will not be emitted -- unless
18815 followed by an explicit instantiation, at which point its linkage
18816 will be adjusted. If !EXTERN_P, then this function will be
18817 emitted here. In neither circumstance do we want
18818 import_export_decl to adjust the linkage. */
18819 DECL_INTERFACE_KNOWN (result) = 1;
18822 /* Subroutine of more_specialized_fn: check whether TARGS is missing any
18823 important template arguments. If any are missing, we check whether
18824 they're important by using error_mark_node for substituting into any
18825 args that were used for partial ordering (the ones between ARGS and END)
18826 and seeing if it bubbles up. */
18828 static bool
18829 check_undeduced_parms (tree targs, tree args, tree end)
18831 bool found = false;
18832 int i;
18833 for (i = TREE_VEC_LENGTH (targs) - 1; i >= 0; --i)
18834 if (TREE_VEC_ELT (targs, i) == NULL_TREE)
18836 found = true;
18837 TREE_VEC_ELT (targs, i) = error_mark_node;
18839 if (found)
18841 tree substed = tsubst_arg_types (args, targs, end, tf_none, NULL_TREE);
18842 if (substed == error_mark_node)
18843 return true;
18845 return false;
18848 /* Given two function templates PAT1 and PAT2, return:
18850 1 if PAT1 is more specialized than PAT2 as described in [temp.func.order].
18851 -1 if PAT2 is more specialized than PAT1.
18852 0 if neither is more specialized.
18854 LEN indicates the number of parameters we should consider
18855 (defaulted parameters should not be considered).
18857 The 1998 std underspecified function template partial ordering, and
18858 DR214 addresses the issue. We take pairs of arguments, one from
18859 each of the templates, and deduce them against each other. One of
18860 the templates will be more specialized if all the *other*
18861 template's arguments deduce against its arguments and at least one
18862 of its arguments *does* *not* deduce against the other template's
18863 corresponding argument. Deduction is done as for class templates.
18864 The arguments used in deduction have reference and top level cv
18865 qualifiers removed. Iff both arguments were originally reference
18866 types *and* deduction succeeds in both directions, an lvalue reference
18867 wins against an rvalue reference and otherwise the template
18868 with the more cv-qualified argument wins for that pairing (if
18869 neither is more cv-qualified, they both are equal). Unlike regular
18870 deduction, after all the arguments have been deduced in this way,
18871 we do *not* verify the deduced template argument values can be
18872 substituted into non-deduced contexts.
18874 The logic can be a bit confusing here, because we look at deduce1 and
18875 targs1 to see if pat2 is at least as specialized, and vice versa; if we
18876 can find template arguments for pat1 to make arg1 look like arg2, that
18877 means that arg2 is at least as specialized as arg1. */
18880 more_specialized_fn (tree pat1, tree pat2, int len)
18882 tree decl1 = DECL_TEMPLATE_RESULT (pat1);
18883 tree decl2 = DECL_TEMPLATE_RESULT (pat2);
18884 tree targs1 = make_tree_vec (DECL_NTPARMS (pat1));
18885 tree targs2 = make_tree_vec (DECL_NTPARMS (pat2));
18886 tree tparms1 = DECL_INNERMOST_TEMPLATE_PARMS (pat1);
18887 tree tparms2 = DECL_INNERMOST_TEMPLATE_PARMS (pat2);
18888 tree args1 = TYPE_ARG_TYPES (TREE_TYPE (decl1));
18889 tree args2 = TYPE_ARG_TYPES (TREE_TYPE (decl2));
18890 tree origs1, origs2;
18891 bool lose1 = false;
18892 bool lose2 = false;
18894 /* Remove the this parameter from non-static member functions. If
18895 one is a non-static member function and the other is not a static
18896 member function, remove the first parameter from that function
18897 also. This situation occurs for operator functions where we
18898 locate both a member function (with this pointer) and non-member
18899 operator (with explicit first operand). */
18900 if (DECL_NONSTATIC_MEMBER_FUNCTION_P (decl1))
18902 len--; /* LEN is the number of significant arguments for DECL1 */
18903 args1 = TREE_CHAIN (args1);
18904 if (!DECL_STATIC_FUNCTION_P (decl2))
18905 args2 = TREE_CHAIN (args2);
18907 else if (DECL_NONSTATIC_MEMBER_FUNCTION_P (decl2))
18909 args2 = TREE_CHAIN (args2);
18910 if (!DECL_STATIC_FUNCTION_P (decl1))
18912 len--;
18913 args1 = TREE_CHAIN (args1);
18917 /* If only one is a conversion operator, they are unordered. */
18918 if (DECL_CONV_FN_P (decl1) != DECL_CONV_FN_P (decl2))
18919 return 0;
18921 /* Consider the return type for a conversion function */
18922 if (DECL_CONV_FN_P (decl1))
18924 args1 = tree_cons (NULL_TREE, TREE_TYPE (TREE_TYPE (decl1)), args1);
18925 args2 = tree_cons (NULL_TREE, TREE_TYPE (TREE_TYPE (decl2)), args2);
18926 len++;
18929 processing_template_decl++;
18931 origs1 = args1;
18932 origs2 = args2;
18934 while (len--
18935 /* Stop when an ellipsis is seen. */
18936 && args1 != NULL_TREE && args2 != NULL_TREE)
18938 tree arg1 = TREE_VALUE (args1);
18939 tree arg2 = TREE_VALUE (args2);
18940 int deduce1, deduce2;
18941 int quals1 = -1;
18942 int quals2 = -1;
18943 int ref1 = 0;
18944 int ref2 = 0;
18946 if (TREE_CODE (arg1) == TYPE_PACK_EXPANSION
18947 && TREE_CODE (arg2) == TYPE_PACK_EXPANSION)
18949 /* When both arguments are pack expansions, we need only
18950 unify the patterns themselves. */
18951 arg1 = PACK_EXPANSION_PATTERN (arg1);
18952 arg2 = PACK_EXPANSION_PATTERN (arg2);
18954 /* This is the last comparison we need to do. */
18955 len = 0;
18958 if (TREE_CODE (arg1) == REFERENCE_TYPE)
18960 ref1 = TYPE_REF_IS_RVALUE (arg1) + 1;
18961 arg1 = TREE_TYPE (arg1);
18962 quals1 = cp_type_quals (arg1);
18965 if (TREE_CODE (arg2) == REFERENCE_TYPE)
18967 ref2 = TYPE_REF_IS_RVALUE (arg2) + 1;
18968 arg2 = TREE_TYPE (arg2);
18969 quals2 = cp_type_quals (arg2);
18972 arg1 = TYPE_MAIN_VARIANT (arg1);
18973 arg2 = TYPE_MAIN_VARIANT (arg2);
18975 if (TREE_CODE (arg1) == TYPE_PACK_EXPANSION)
18977 int i, len2 = list_length (args2);
18978 tree parmvec = make_tree_vec (1);
18979 tree argvec = make_tree_vec (len2);
18980 tree ta = args2;
18982 /* Setup the parameter vector, which contains only ARG1. */
18983 TREE_VEC_ELT (parmvec, 0) = arg1;
18985 /* Setup the argument vector, which contains the remaining
18986 arguments. */
18987 for (i = 0; i < len2; i++, ta = TREE_CHAIN (ta))
18988 TREE_VEC_ELT (argvec, i) = TREE_VALUE (ta);
18990 deduce1 = (unify_pack_expansion (tparms1, targs1, parmvec,
18991 argvec, DEDUCE_EXACT,
18992 /*subr=*/true, /*explain_p=*/false)
18993 == 0);
18995 /* We cannot deduce in the other direction, because ARG1 is
18996 a pack expansion but ARG2 is not. */
18997 deduce2 = 0;
18999 else if (TREE_CODE (arg2) == TYPE_PACK_EXPANSION)
19001 int i, len1 = list_length (args1);
19002 tree parmvec = make_tree_vec (1);
19003 tree argvec = make_tree_vec (len1);
19004 tree ta = args1;
19006 /* Setup the parameter vector, which contains only ARG1. */
19007 TREE_VEC_ELT (parmvec, 0) = arg2;
19009 /* Setup the argument vector, which contains the remaining
19010 arguments. */
19011 for (i = 0; i < len1; i++, ta = TREE_CHAIN (ta))
19012 TREE_VEC_ELT (argvec, i) = TREE_VALUE (ta);
19014 deduce2 = (unify_pack_expansion (tparms2, targs2, parmvec,
19015 argvec, DEDUCE_EXACT,
19016 /*subr=*/true, /*explain_p=*/false)
19017 == 0);
19019 /* We cannot deduce in the other direction, because ARG2 is
19020 a pack expansion but ARG1 is not.*/
19021 deduce1 = 0;
19024 else
19026 /* The normal case, where neither argument is a pack
19027 expansion. */
19028 deduce1 = (unify (tparms1, targs1, arg1, arg2,
19029 UNIFY_ALLOW_NONE, /*explain_p=*/false)
19030 == 0);
19031 deduce2 = (unify (tparms2, targs2, arg2, arg1,
19032 UNIFY_ALLOW_NONE, /*explain_p=*/false)
19033 == 0);
19036 /* If we couldn't deduce arguments for tparms1 to make arg1 match
19037 arg2, then arg2 is not as specialized as arg1. */
19038 if (!deduce1)
19039 lose2 = true;
19040 if (!deduce2)
19041 lose1 = true;
19043 /* "If, for a given type, deduction succeeds in both directions
19044 (i.e., the types are identical after the transformations above)
19045 and both P and A were reference types (before being replaced with
19046 the type referred to above):
19047 - if the type from the argument template was an lvalue reference and
19048 the type from the parameter template was not, the argument type is
19049 considered to be more specialized than the other; otherwise,
19050 - if the type from the argument template is more cv-qualified
19051 than the type from the parameter template (as described above),
19052 the argument type is considered to be more specialized than the other;
19053 otherwise,
19054 - neither type is more specialized than the other." */
19056 if (deduce1 && deduce2)
19058 if (ref1 && ref2 && ref1 != ref2)
19060 if (ref1 > ref2)
19061 lose1 = true;
19062 else
19063 lose2 = true;
19065 else if (quals1 != quals2 && quals1 >= 0 && quals2 >= 0)
19067 if ((quals1 & quals2) == quals2)
19068 lose2 = true;
19069 if ((quals1 & quals2) == quals1)
19070 lose1 = true;
19074 if (lose1 && lose2)
19075 /* We've failed to deduce something in either direction.
19076 These must be unordered. */
19077 break;
19079 if (TREE_CODE (arg1) == TYPE_PACK_EXPANSION
19080 || TREE_CODE (arg2) == TYPE_PACK_EXPANSION)
19081 /* We have already processed all of the arguments in our
19082 handing of the pack expansion type. */
19083 len = 0;
19085 args1 = TREE_CHAIN (args1);
19086 args2 = TREE_CHAIN (args2);
19089 /* "In most cases, all template parameters must have values in order for
19090 deduction to succeed, but for partial ordering purposes a template
19091 parameter may remain without a value provided it is not used in the
19092 types being used for partial ordering."
19094 Thus, if we are missing any of the targs1 we need to substitute into
19095 origs1, then pat2 is not as specialized as pat1. This can happen when
19096 there is a nondeduced context. */
19097 if (!lose2 && check_undeduced_parms (targs1, origs1, args1))
19098 lose2 = true;
19099 if (!lose1 && check_undeduced_parms (targs2, origs2, args2))
19100 lose1 = true;
19102 processing_template_decl--;
19104 /* All things being equal, if the next argument is a pack expansion
19105 for one function but not for the other, prefer the
19106 non-variadic function. FIXME this is bogus; see c++/41958. */
19107 if (lose1 == lose2
19108 && args1 && TREE_VALUE (args1)
19109 && args2 && TREE_VALUE (args2))
19111 lose1 = TREE_CODE (TREE_VALUE (args1)) == TYPE_PACK_EXPANSION;
19112 lose2 = TREE_CODE (TREE_VALUE (args2)) == TYPE_PACK_EXPANSION;
19115 if (lose1 == lose2)
19116 return 0;
19117 else if (!lose1)
19118 return 1;
19119 else
19120 return -1;
19123 /* Determine which of two partial specializations of TMPL is more
19124 specialized.
19126 PAT1 is a TREE_LIST whose TREE_VALUE is the TEMPLATE_DECL corresponding
19127 to the first partial specialization. The TREE_PURPOSE is the
19128 innermost set of template parameters for the partial
19129 specialization. PAT2 is similar, but for the second template.
19131 Return 1 if the first partial specialization is more specialized;
19132 -1 if the second is more specialized; 0 if neither is more
19133 specialized.
19135 See [temp.class.order] for information about determining which of
19136 two templates is more specialized. */
19138 static int
19139 more_specialized_partial_spec (tree tmpl, tree pat1, tree pat2)
19141 tree targs;
19142 int winner = 0;
19143 bool any_deductions = false;
19145 tree tmpl1 = TREE_VALUE (pat1);
19146 tree tmpl2 = TREE_VALUE (pat2);
19147 tree parms1 = DECL_INNERMOST_TEMPLATE_PARMS (tmpl1);
19148 tree parms2 = DECL_INNERMOST_TEMPLATE_PARMS (tmpl2);
19149 tree specargs1 = TI_ARGS (get_template_info (DECL_TEMPLATE_RESULT (tmpl1)));
19150 tree specargs2 = TI_ARGS (get_template_info (DECL_TEMPLATE_RESULT (tmpl2)));
19152 /* Just like what happens for functions, if we are ordering between
19153 different template specializations, we may encounter dependent
19154 types in the arguments, and we need our dependency check functions
19155 to behave correctly. */
19156 ++processing_template_decl;
19157 targs = get_partial_spec_bindings (tmpl, parms1, specargs1, specargs2);
19158 if (targs)
19160 --winner;
19161 any_deductions = true;
19164 targs = get_partial_spec_bindings (tmpl, parms2, specargs2, specargs1);
19165 if (targs)
19167 ++winner;
19168 any_deductions = true;
19170 --processing_template_decl;
19172 /* In the case of a tie where at least one of the templates
19173 has a parameter pack at the end, the template with the most
19174 non-packed parameters wins. */
19175 if (winner == 0
19176 && any_deductions
19177 && (template_args_variadic_p (TREE_PURPOSE (pat1))
19178 || template_args_variadic_p (TREE_PURPOSE (pat2))))
19180 tree args1 = INNERMOST_TEMPLATE_ARGS (TREE_PURPOSE (pat1));
19181 tree args2 = INNERMOST_TEMPLATE_ARGS (TREE_PURPOSE (pat2));
19182 int len1 = TREE_VEC_LENGTH (args1);
19183 int len2 = TREE_VEC_LENGTH (args2);
19185 /* We don't count the pack expansion at the end. */
19186 if (template_args_variadic_p (TREE_PURPOSE (pat1)))
19187 --len1;
19188 if (template_args_variadic_p (TREE_PURPOSE (pat2)))
19189 --len2;
19191 if (len1 > len2)
19192 return 1;
19193 else if (len1 < len2)
19194 return -1;
19197 return winner;
19200 /* Return the template arguments that will produce the function signature
19201 DECL from the function template FN, with the explicit template
19202 arguments EXPLICIT_ARGS. If CHECK_RETTYPE is true, the return type must
19203 also match. Return NULL_TREE if no satisfactory arguments could be
19204 found. */
19206 static tree
19207 get_bindings (tree fn, tree decl, tree explicit_args, bool check_rettype)
19209 int ntparms = DECL_NTPARMS (fn);
19210 tree targs = make_tree_vec (ntparms);
19211 tree decl_type = TREE_TYPE (decl);
19212 tree decl_arg_types;
19213 tree *args;
19214 unsigned int nargs, ix;
19215 tree arg;
19217 gcc_assert (decl != DECL_TEMPLATE_RESULT (fn));
19219 /* Never do unification on the 'this' parameter. */
19220 decl_arg_types = skip_artificial_parms_for (decl,
19221 TYPE_ARG_TYPES (decl_type));
19223 nargs = list_length (decl_arg_types);
19224 args = XALLOCAVEC (tree, nargs);
19225 for (arg = decl_arg_types, ix = 0;
19226 arg != NULL_TREE && arg != void_list_node;
19227 arg = TREE_CHAIN (arg), ++ix)
19228 args[ix] = TREE_VALUE (arg);
19230 if (fn_type_unification (fn, explicit_args, targs,
19231 args, ix,
19232 (check_rettype || DECL_CONV_FN_P (fn)
19233 ? TREE_TYPE (decl_type) : NULL_TREE),
19234 DEDUCE_EXACT, LOOKUP_NORMAL, /*explain_p=*/false,
19235 /*decltype*/false)
19236 == error_mark_node)
19237 return NULL_TREE;
19239 return targs;
19242 /* Return the innermost template arguments that, when applied to a partial
19243 specialization of TMPL whose innermost template parameters are
19244 TPARMS, and whose specialization arguments are SPEC_ARGS, yield the
19245 ARGS.
19247 For example, suppose we have:
19249 template <class T, class U> struct S {};
19250 template <class T> struct S<T*, int> {};
19252 Then, suppose we want to get `S<double*, int>'. The TPARMS will be
19253 {T}, the SPEC_ARGS will be {T*, int} and the ARGS will be {double*,
19254 int}. The resulting vector will be {double}, indicating that `T'
19255 is bound to `double'. */
19257 static tree
19258 get_partial_spec_bindings (tree tmpl, tree tparms, tree spec_args, tree args)
19260 int i, ntparms = TREE_VEC_LENGTH (tparms);
19261 tree deduced_args;
19262 tree innermost_deduced_args;
19264 innermost_deduced_args = make_tree_vec (ntparms);
19265 if (TMPL_ARGS_HAVE_MULTIPLE_LEVELS (args))
19267 deduced_args = copy_node (args);
19268 SET_TMPL_ARGS_LEVEL (deduced_args,
19269 TMPL_ARGS_DEPTH (deduced_args),
19270 innermost_deduced_args);
19272 else
19273 deduced_args = innermost_deduced_args;
19275 if (unify (tparms, deduced_args,
19276 INNERMOST_TEMPLATE_ARGS (spec_args),
19277 INNERMOST_TEMPLATE_ARGS (args),
19278 UNIFY_ALLOW_NONE, /*explain_p=*/false))
19279 return NULL_TREE;
19281 for (i = 0; i < ntparms; ++i)
19282 if (! TREE_VEC_ELT (innermost_deduced_args, i))
19283 return NULL_TREE;
19285 /* Verify that nondeduced template arguments agree with the type
19286 obtained from argument deduction.
19288 For example:
19290 struct A { typedef int X; };
19291 template <class T, class U> struct C {};
19292 template <class T> struct C<T, typename T::X> {};
19294 Then with the instantiation `C<A, int>', we can deduce that
19295 `T' is `A' but unify () does not check whether `typename T::X'
19296 is `int'. */
19297 spec_args = tsubst (spec_args, deduced_args, tf_none, NULL_TREE);
19298 spec_args = coerce_template_parms (DECL_INNERMOST_TEMPLATE_PARMS (tmpl),
19299 spec_args, tmpl,
19300 tf_none, false, false);
19301 if (spec_args == error_mark_node
19302 /* We only need to check the innermost arguments; the other
19303 arguments will always agree. */
19304 || !comp_template_args (INNERMOST_TEMPLATE_ARGS (spec_args),
19305 INNERMOST_TEMPLATE_ARGS (args)))
19306 return NULL_TREE;
19308 /* Now that we have bindings for all of the template arguments,
19309 ensure that the arguments deduced for the template template
19310 parameters have compatible template parameter lists. See the use
19311 of template_template_parm_bindings_ok_p in fn_type_unification
19312 for more information. */
19313 if (!template_template_parm_bindings_ok_p (tparms, deduced_args))
19314 return NULL_TREE;
19316 return deduced_args;
19319 /* TEMPLATES is a TREE_LIST. Each TREE_VALUE is a TEMPLATE_DECL.
19320 Return the TREE_LIST node with the most specialized template, if
19321 any. If there is no most specialized template, the error_mark_node
19322 is returned.
19324 Note that this function does not look at, or modify, the
19325 TREE_PURPOSE or TREE_TYPE of any of the nodes. Since the node
19326 returned is one of the elements of INSTANTIATIONS, callers may
19327 store information in the TREE_PURPOSE or TREE_TYPE of the nodes,
19328 and retrieve it from the value returned. */
19330 tree
19331 most_specialized_instantiation (tree templates)
19333 tree fn, champ;
19335 ++processing_template_decl;
19337 champ = templates;
19338 for (fn = TREE_CHAIN (templates); fn; fn = TREE_CHAIN (fn))
19340 int fate = 0;
19342 if (get_bindings (TREE_VALUE (champ),
19343 DECL_TEMPLATE_RESULT (TREE_VALUE (fn)),
19344 NULL_TREE, /*check_ret=*/true))
19345 fate--;
19347 if (get_bindings (TREE_VALUE (fn),
19348 DECL_TEMPLATE_RESULT (TREE_VALUE (champ)),
19349 NULL_TREE, /*check_ret=*/true))
19350 fate++;
19352 if (fate == -1)
19353 champ = fn;
19354 else if (!fate)
19356 /* Equally specialized, move to next function. If there
19357 is no next function, nothing's most specialized. */
19358 fn = TREE_CHAIN (fn);
19359 champ = fn;
19360 if (!fn)
19361 break;
19365 if (champ)
19366 /* Now verify that champ is better than everything earlier in the
19367 instantiation list. */
19368 for (fn = templates; fn != champ; fn = TREE_CHAIN (fn))
19369 if (get_bindings (TREE_VALUE (champ),
19370 DECL_TEMPLATE_RESULT (TREE_VALUE (fn)),
19371 NULL_TREE, /*check_ret=*/true)
19372 || !get_bindings (TREE_VALUE (fn),
19373 DECL_TEMPLATE_RESULT (TREE_VALUE (champ)),
19374 NULL_TREE, /*check_ret=*/true))
19376 champ = NULL_TREE;
19377 break;
19380 processing_template_decl--;
19382 if (!champ)
19383 return error_mark_node;
19385 return champ;
19388 /* If DECL is a specialization of some template, return the most
19389 general such template. Otherwise, returns NULL_TREE.
19391 For example, given:
19393 template <class T> struct S { template <class U> void f(U); };
19395 if TMPL is `template <class U> void S<int>::f(U)' this will return
19396 the full template. This function will not trace past partial
19397 specializations, however. For example, given in addition:
19399 template <class T> struct S<T*> { template <class U> void f(U); };
19401 if TMPL is `template <class U> void S<int*>::f(U)' this will return
19402 `template <class T> template <class U> S<T*>::f(U)'. */
19404 tree
19405 most_general_template (tree decl)
19407 if (TREE_CODE (decl) != TEMPLATE_DECL)
19409 if (tree tinfo = get_template_info (decl))
19410 decl = TI_TEMPLATE (tinfo);
19411 /* The TI_TEMPLATE can be an IDENTIFIER_NODE for a
19412 template friend, or a FIELD_DECL for a capture pack. */
19413 if (TREE_CODE (decl) != TEMPLATE_DECL)
19414 return NULL_TREE;
19417 /* Look for more and more general templates. */
19418 while (DECL_LANG_SPECIFIC (decl) && DECL_TEMPLATE_INFO (decl))
19420 /* The DECL_TI_TEMPLATE can be an IDENTIFIER_NODE in some cases.
19421 (See cp-tree.h for details.) */
19422 if (TREE_CODE (DECL_TI_TEMPLATE (decl)) != TEMPLATE_DECL)
19423 break;
19425 if (CLASS_TYPE_P (TREE_TYPE (decl))
19426 && !TYPE_DECL_ALIAS_P (TYPE_NAME (TREE_TYPE (decl)))
19427 && CLASSTYPE_TEMPLATE_SPECIALIZATION (TREE_TYPE (decl)))
19428 break;
19430 /* Stop if we run into an explicitly specialized class template. */
19431 if (!DECL_NAMESPACE_SCOPE_P (decl)
19432 && DECL_CONTEXT (decl)
19433 && CLASSTYPE_TEMPLATE_SPECIALIZATION (DECL_CONTEXT (decl)))
19434 break;
19436 decl = DECL_TI_TEMPLATE (decl);
19439 return decl;
19442 /* Return the most specialized of the template partial specializations
19443 which can produce TARGET, a specialization of some class or variable
19444 template. The value returned is actually a TREE_LIST; the TREE_VALUE is
19445 a TEMPLATE_DECL node corresponding to the partial specialization, while
19446 the TREE_PURPOSE is the set of template arguments that must be
19447 substituted into the template pattern in order to generate TARGET.
19449 If the choice of partial specialization is ambiguous, a diagnostic
19450 is issued, and the error_mark_node is returned. If there are no
19451 partial specializations matching TARGET, then NULL_TREE is
19452 returned, indicating that the primary template should be used. */
19454 static tree
19455 most_specialized_partial_spec (tree target, tsubst_flags_t complain)
19457 tree list = NULL_TREE;
19458 tree t;
19459 tree champ;
19460 int fate;
19461 bool ambiguous_p;
19462 tree outer_args = NULL_TREE;
19463 tree tmpl, args;
19465 if (TYPE_P (target))
19467 tree tinfo = CLASSTYPE_TEMPLATE_INFO (target);
19468 tmpl = TI_TEMPLATE (tinfo);
19469 args = TI_ARGS (tinfo);
19471 else if (TREE_CODE (target) == TEMPLATE_ID_EXPR)
19473 tmpl = TREE_OPERAND (target, 0);
19474 args = TREE_OPERAND (target, 1);
19476 else if (VAR_P (target))
19478 tree tinfo = DECL_TEMPLATE_INFO (target);
19479 tmpl = TI_TEMPLATE (tinfo);
19480 args = TI_ARGS (tinfo);
19482 else
19483 gcc_unreachable ();
19485 tree main_tmpl = most_general_template (tmpl);
19487 /* For determining which partial specialization to use, only the
19488 innermost args are interesting. */
19489 if (TMPL_ARGS_HAVE_MULTIPLE_LEVELS (args))
19491 outer_args = strip_innermost_template_args (args, 1);
19492 args = INNERMOST_TEMPLATE_ARGS (args);
19495 for (t = DECL_TEMPLATE_SPECIALIZATIONS (main_tmpl); t; t = TREE_CHAIN (t))
19497 tree partial_spec_args;
19498 tree spec_args;
19499 tree spec_tmpl = TREE_VALUE (t);
19501 partial_spec_args = TREE_PURPOSE (t);
19503 ++processing_template_decl;
19505 if (outer_args)
19507 /* Discard the outer levels of args, and then substitute in the
19508 template args from the enclosing class. */
19509 partial_spec_args = INNERMOST_TEMPLATE_ARGS (partial_spec_args);
19510 partial_spec_args = tsubst_template_args
19511 (partial_spec_args, outer_args, tf_none, NULL_TREE);
19513 /* And the same for the partial specialization TEMPLATE_DECL. */
19514 spec_tmpl = tsubst (spec_tmpl, outer_args, tf_none, NULL_TREE);
19517 partial_spec_args =
19518 coerce_template_parms (DECL_INNERMOST_TEMPLATE_PARMS (tmpl),
19519 partial_spec_args,
19520 tmpl, tf_none,
19521 /*require_all_args=*/true,
19522 /*use_default_args=*/true);
19524 --processing_template_decl;
19526 if (partial_spec_args == error_mark_node)
19527 return error_mark_node;
19528 if (spec_tmpl == error_mark_node)
19529 return error_mark_node;
19531 tree parms = DECL_INNERMOST_TEMPLATE_PARMS (spec_tmpl);
19532 spec_args = get_partial_spec_bindings (tmpl, parms,
19533 partial_spec_args,
19534 args);
19535 if (spec_args)
19537 if (outer_args)
19538 spec_args = add_to_template_args (outer_args, spec_args);
19539 list = tree_cons (spec_args, TREE_VALUE (t), list);
19540 TREE_TYPE (list) = TREE_TYPE (t);
19544 if (! list)
19545 return NULL_TREE;
19547 ambiguous_p = false;
19548 t = list;
19549 champ = t;
19550 t = TREE_CHAIN (t);
19551 for (; t; t = TREE_CHAIN (t))
19553 fate = more_specialized_partial_spec (tmpl, champ, t);
19554 if (fate == 1)
19556 else
19558 if (fate == 0)
19560 t = TREE_CHAIN (t);
19561 if (! t)
19563 ambiguous_p = true;
19564 break;
19567 champ = t;
19571 if (!ambiguous_p)
19572 for (t = list; t && t != champ; t = TREE_CHAIN (t))
19574 fate = more_specialized_partial_spec (tmpl, champ, t);
19575 if (fate != 1)
19577 ambiguous_p = true;
19578 break;
19582 if (ambiguous_p)
19584 const char *str;
19585 char *spaces = NULL;
19586 if (!(complain & tf_error))
19587 return error_mark_node;
19588 if (TYPE_P (target))
19589 error ("ambiguous template instantiation for %q#T", target);
19590 else
19591 error ("ambiguous template instantiation for %q#D", target);
19592 str = ngettext ("candidate is:", "candidates are:", list_length (list));
19593 for (t = list; t; t = TREE_CHAIN (t))
19595 tree subst = build_tree_list (TREE_VALUE (t), TREE_PURPOSE (t));
19596 inform (DECL_SOURCE_LOCATION (TREE_VALUE (t)),
19597 "%s %#S", spaces ? spaces : str, subst);
19598 spaces = spaces ? spaces : get_spaces (str);
19600 free (spaces);
19601 return error_mark_node;
19604 return champ;
19607 /* Explicitly instantiate DECL. */
19609 void
19610 do_decl_instantiation (tree decl, tree storage)
19612 tree result = NULL_TREE;
19613 int extern_p = 0;
19615 if (!decl || decl == error_mark_node)
19616 /* An error occurred, for which grokdeclarator has already issued
19617 an appropriate message. */
19618 return;
19619 else if (! DECL_LANG_SPECIFIC (decl))
19621 error ("explicit instantiation of non-template %q#D", decl);
19622 return;
19625 bool var_templ = (DECL_TEMPLATE_INFO (decl)
19626 && variable_template_p (DECL_TI_TEMPLATE (decl)));
19628 if (VAR_P (decl) && !var_templ)
19630 /* There is an asymmetry here in the way VAR_DECLs and
19631 FUNCTION_DECLs are handled by grokdeclarator. In the case of
19632 the latter, the DECL we get back will be marked as a
19633 template instantiation, and the appropriate
19634 DECL_TEMPLATE_INFO will be set up. This does not happen for
19635 VAR_DECLs so we do the lookup here. Probably, grokdeclarator
19636 should handle VAR_DECLs as it currently handles
19637 FUNCTION_DECLs. */
19638 if (!DECL_CLASS_SCOPE_P (decl))
19640 error ("%qD is not a static data member of a class template", decl);
19641 return;
19643 result = lookup_field (DECL_CONTEXT (decl), DECL_NAME (decl), 0, false);
19644 if (!result || !VAR_P (result))
19646 error ("no matching template for %qD found", decl);
19647 return;
19649 if (!same_type_p (TREE_TYPE (result), TREE_TYPE (decl)))
19651 error ("type %qT for explicit instantiation %qD does not match "
19652 "declared type %qT", TREE_TYPE (result), decl,
19653 TREE_TYPE (decl));
19654 return;
19657 else if (TREE_CODE (decl) != FUNCTION_DECL && !var_templ)
19659 error ("explicit instantiation of %q#D", decl);
19660 return;
19662 else
19663 result = decl;
19665 /* Check for various error cases. Note that if the explicit
19666 instantiation is valid the RESULT will currently be marked as an
19667 *implicit* instantiation; DECL_EXPLICIT_INSTANTIATION is not set
19668 until we get here. */
19670 if (DECL_TEMPLATE_SPECIALIZATION (result))
19672 /* DR 259 [temp.spec].
19674 Both an explicit instantiation and a declaration of an explicit
19675 specialization shall not appear in a program unless the explicit
19676 instantiation follows a declaration of the explicit specialization.
19678 For a given set of template parameters, if an explicit
19679 instantiation of a template appears after a declaration of an
19680 explicit specialization for that template, the explicit
19681 instantiation has no effect. */
19682 return;
19684 else if (DECL_EXPLICIT_INSTANTIATION (result))
19686 /* [temp.spec]
19688 No program shall explicitly instantiate any template more
19689 than once.
19691 We check DECL_NOT_REALLY_EXTERN so as not to complain when
19692 the first instantiation was `extern' and the second is not,
19693 and EXTERN_P for the opposite case. */
19694 if (DECL_NOT_REALLY_EXTERN (result) && !extern_p)
19695 permerror (input_location, "duplicate explicit instantiation of %q#D", result);
19696 /* If an "extern" explicit instantiation follows an ordinary
19697 explicit instantiation, the template is instantiated. */
19698 if (extern_p)
19699 return;
19701 else if (!DECL_IMPLICIT_INSTANTIATION (result))
19703 error ("no matching template for %qD found", result);
19704 return;
19706 else if (!DECL_TEMPLATE_INFO (result))
19708 permerror (input_location, "explicit instantiation of non-template %q#D", result);
19709 return;
19712 if (storage == NULL_TREE)
19714 else if (storage == ridpointers[(int) RID_EXTERN])
19716 if (!in_system_header_at (input_location) && (cxx_dialect == cxx98))
19717 pedwarn (input_location, OPT_Wpedantic,
19718 "ISO C++ 1998 forbids the use of %<extern%> on explicit "
19719 "instantiations");
19720 extern_p = 1;
19722 else
19723 error ("storage class %qD applied to template instantiation", storage);
19725 check_explicit_instantiation_namespace (result);
19726 mark_decl_instantiated (result, extern_p);
19727 if (! extern_p)
19728 instantiate_decl (result, /*defer_ok=*/1,
19729 /*expl_inst_class_mem_p=*/false);
19732 static void
19733 mark_class_instantiated (tree t, int extern_p)
19735 SET_CLASSTYPE_EXPLICIT_INSTANTIATION (t);
19736 SET_CLASSTYPE_INTERFACE_KNOWN (t);
19737 CLASSTYPE_INTERFACE_ONLY (t) = extern_p;
19738 TYPE_DECL_SUPPRESS_DEBUG (TYPE_NAME (t)) = extern_p;
19739 if (! extern_p)
19741 CLASSTYPE_DEBUG_REQUESTED (t) = 1;
19742 rest_of_type_compilation (t, 1);
19746 /* Called from do_type_instantiation through binding_table_foreach to
19747 do recursive instantiation for the type bound in ENTRY. */
19748 static void
19749 bt_instantiate_type_proc (binding_entry entry, void *data)
19751 tree storage = *(tree *) data;
19753 if (MAYBE_CLASS_TYPE_P (entry->type)
19754 && !uses_template_parms (CLASSTYPE_TI_ARGS (entry->type)))
19755 do_type_instantiation (TYPE_MAIN_DECL (entry->type), storage, 0);
19758 /* Called from do_type_instantiation to instantiate a member
19759 (a member function or a static member variable) of an
19760 explicitly instantiated class template. */
19761 static void
19762 instantiate_class_member (tree decl, int extern_p)
19764 mark_decl_instantiated (decl, extern_p);
19765 if (! extern_p)
19766 instantiate_decl (decl, /*defer_ok=*/1,
19767 /*expl_inst_class_mem_p=*/true);
19770 /* Perform an explicit instantiation of template class T. STORAGE, if
19771 non-null, is the RID for extern, inline or static. COMPLAIN is
19772 nonzero if this is called from the parser, zero if called recursively,
19773 since the standard is unclear (as detailed below). */
19775 void
19776 do_type_instantiation (tree t, tree storage, tsubst_flags_t complain)
19778 int extern_p = 0;
19779 int nomem_p = 0;
19780 int static_p = 0;
19781 int previous_instantiation_extern_p = 0;
19783 if (TREE_CODE (t) == TYPE_DECL)
19784 t = TREE_TYPE (t);
19786 if (! CLASS_TYPE_P (t) || ! CLASSTYPE_TEMPLATE_INFO (t))
19788 tree tmpl =
19789 (TYPE_TEMPLATE_INFO (t)) ? TYPE_TI_TEMPLATE (t) : NULL;
19790 if (tmpl)
19791 error ("explicit instantiation of non-class template %qD", tmpl);
19792 else
19793 error ("explicit instantiation of non-template type %qT", t);
19794 return;
19797 complete_type (t);
19799 if (!COMPLETE_TYPE_P (t))
19801 if (complain & tf_error)
19802 error ("explicit instantiation of %q#T before definition of template",
19804 return;
19807 if (storage != NULL_TREE)
19809 if (!in_system_header_at (input_location))
19811 if (storage == ridpointers[(int) RID_EXTERN])
19813 if (cxx_dialect == cxx98)
19814 pedwarn (input_location, OPT_Wpedantic,
19815 "ISO C++ 1998 forbids the use of %<extern%> on "
19816 "explicit instantiations");
19818 else
19819 pedwarn (input_location, OPT_Wpedantic,
19820 "ISO C++ forbids the use of %qE"
19821 " on explicit instantiations", storage);
19824 if (storage == ridpointers[(int) RID_INLINE])
19825 nomem_p = 1;
19826 else if (storage == ridpointers[(int) RID_EXTERN])
19827 extern_p = 1;
19828 else if (storage == ridpointers[(int) RID_STATIC])
19829 static_p = 1;
19830 else
19832 error ("storage class %qD applied to template instantiation",
19833 storage);
19834 extern_p = 0;
19838 if (CLASSTYPE_TEMPLATE_SPECIALIZATION (t))
19840 /* DR 259 [temp.spec].
19842 Both an explicit instantiation and a declaration of an explicit
19843 specialization shall not appear in a program unless the explicit
19844 instantiation follows a declaration of the explicit specialization.
19846 For a given set of template parameters, if an explicit
19847 instantiation of a template appears after a declaration of an
19848 explicit specialization for that template, the explicit
19849 instantiation has no effect. */
19850 return;
19852 else if (CLASSTYPE_EXPLICIT_INSTANTIATION (t))
19854 /* [temp.spec]
19856 No program shall explicitly instantiate any template more
19857 than once.
19859 If PREVIOUS_INSTANTIATION_EXTERN_P, then the first explicit
19860 instantiation was `extern'. If EXTERN_P then the second is.
19861 These cases are OK. */
19862 previous_instantiation_extern_p = CLASSTYPE_INTERFACE_ONLY (t);
19864 if (!previous_instantiation_extern_p && !extern_p
19865 && (complain & tf_error))
19866 permerror (input_location, "duplicate explicit instantiation of %q#T", t);
19868 /* If we've already instantiated the template, just return now. */
19869 if (!CLASSTYPE_INTERFACE_ONLY (t))
19870 return;
19873 check_explicit_instantiation_namespace (TYPE_NAME (t));
19874 mark_class_instantiated (t, extern_p);
19876 if (nomem_p)
19877 return;
19880 tree tmp;
19882 /* In contrast to implicit instantiation, where only the
19883 declarations, and not the definitions, of members are
19884 instantiated, we have here:
19886 [temp.explicit]
19888 The explicit instantiation of a class template specialization
19889 implies the instantiation of all of its members not
19890 previously explicitly specialized in the translation unit
19891 containing the explicit instantiation.
19893 Of course, we can't instantiate member template classes, since
19894 we don't have any arguments for them. Note that the standard
19895 is unclear on whether the instantiation of the members are
19896 *explicit* instantiations or not. However, the most natural
19897 interpretation is that it should be an explicit instantiation. */
19899 if (! static_p)
19900 for (tmp = TYPE_METHODS (t); tmp; tmp = DECL_CHAIN (tmp))
19901 if (TREE_CODE (tmp) == FUNCTION_DECL
19902 && DECL_TEMPLATE_INSTANTIATION (tmp))
19903 instantiate_class_member (tmp, extern_p);
19905 for (tmp = TYPE_FIELDS (t); tmp; tmp = DECL_CHAIN (tmp))
19906 if (VAR_P (tmp) && DECL_TEMPLATE_INSTANTIATION (tmp))
19907 instantiate_class_member (tmp, extern_p);
19909 if (CLASSTYPE_NESTED_UTDS (t))
19910 binding_table_foreach (CLASSTYPE_NESTED_UTDS (t),
19911 bt_instantiate_type_proc, &storage);
19915 /* Given a function DECL, which is a specialization of TMPL, modify
19916 DECL to be a re-instantiation of TMPL with the same template
19917 arguments. TMPL should be the template into which tsubst'ing
19918 should occur for DECL, not the most general template.
19920 One reason for doing this is a scenario like this:
19922 template <class T>
19923 void f(const T&, int i);
19925 void g() { f(3, 7); }
19927 template <class T>
19928 void f(const T& t, const int i) { }
19930 Note that when the template is first instantiated, with
19931 instantiate_template, the resulting DECL will have no name for the
19932 first parameter, and the wrong type for the second. So, when we go
19933 to instantiate the DECL, we regenerate it. */
19935 static void
19936 regenerate_decl_from_template (tree decl, tree tmpl)
19938 /* The arguments used to instantiate DECL, from the most general
19939 template. */
19940 tree args;
19941 tree code_pattern;
19943 args = DECL_TI_ARGS (decl);
19944 code_pattern = DECL_TEMPLATE_RESULT (tmpl);
19946 /* Make sure that we can see identifiers, and compute access
19947 correctly. */
19948 push_access_scope (decl);
19950 if (TREE_CODE (decl) == FUNCTION_DECL)
19952 tree decl_parm;
19953 tree pattern_parm;
19954 tree specs;
19955 int args_depth;
19956 int parms_depth;
19958 args_depth = TMPL_ARGS_DEPTH (args);
19959 parms_depth = TMPL_PARMS_DEPTH (DECL_TEMPLATE_PARMS (tmpl));
19960 if (args_depth > parms_depth)
19961 args = get_innermost_template_args (args, parms_depth);
19963 specs = tsubst_exception_specification (TREE_TYPE (code_pattern),
19964 args, tf_error, NULL_TREE,
19965 /*defer_ok*/false);
19966 if (specs && specs != error_mark_node)
19967 TREE_TYPE (decl) = build_exception_variant (TREE_TYPE (decl),
19968 specs);
19970 /* Merge parameter declarations. */
19971 decl_parm = skip_artificial_parms_for (decl,
19972 DECL_ARGUMENTS (decl));
19973 pattern_parm
19974 = skip_artificial_parms_for (code_pattern,
19975 DECL_ARGUMENTS (code_pattern));
19976 while (decl_parm && !DECL_PACK_P (pattern_parm))
19978 tree parm_type;
19979 tree attributes;
19981 if (DECL_NAME (decl_parm) != DECL_NAME (pattern_parm))
19982 DECL_NAME (decl_parm) = DECL_NAME (pattern_parm);
19983 parm_type = tsubst (TREE_TYPE (pattern_parm), args, tf_error,
19984 NULL_TREE);
19985 parm_type = type_decays_to (parm_type);
19986 if (!same_type_p (TREE_TYPE (decl_parm), parm_type))
19987 TREE_TYPE (decl_parm) = parm_type;
19988 attributes = DECL_ATTRIBUTES (pattern_parm);
19989 if (DECL_ATTRIBUTES (decl_parm) != attributes)
19991 DECL_ATTRIBUTES (decl_parm) = attributes;
19992 cplus_decl_attributes (&decl_parm, attributes, /*flags=*/0);
19994 decl_parm = DECL_CHAIN (decl_parm);
19995 pattern_parm = DECL_CHAIN (pattern_parm);
19997 /* Merge any parameters that match with the function parameter
19998 pack. */
19999 if (pattern_parm && DECL_PACK_P (pattern_parm))
20001 int i, len;
20002 tree expanded_types;
20003 /* Expand the TYPE_PACK_EXPANSION that provides the types for
20004 the parameters in this function parameter pack. */
20005 expanded_types = tsubst_pack_expansion (TREE_TYPE (pattern_parm),
20006 args, tf_error, NULL_TREE);
20007 len = TREE_VEC_LENGTH (expanded_types);
20008 for (i = 0; i < len; i++)
20010 tree parm_type;
20011 tree attributes;
20013 if (DECL_NAME (decl_parm) != DECL_NAME (pattern_parm))
20014 /* Rename the parameter to include the index. */
20015 DECL_NAME (decl_parm) =
20016 make_ith_pack_parameter_name (DECL_NAME (pattern_parm), i);
20017 parm_type = TREE_VEC_ELT (expanded_types, i);
20018 parm_type = type_decays_to (parm_type);
20019 if (!same_type_p (TREE_TYPE (decl_parm), parm_type))
20020 TREE_TYPE (decl_parm) = parm_type;
20021 attributes = DECL_ATTRIBUTES (pattern_parm);
20022 if (DECL_ATTRIBUTES (decl_parm) != attributes)
20024 DECL_ATTRIBUTES (decl_parm) = attributes;
20025 cplus_decl_attributes (&decl_parm, attributes, /*flags=*/0);
20027 decl_parm = DECL_CHAIN (decl_parm);
20030 /* Merge additional specifiers from the CODE_PATTERN. */
20031 if (DECL_DECLARED_INLINE_P (code_pattern)
20032 && !DECL_DECLARED_INLINE_P (decl))
20033 DECL_DECLARED_INLINE_P (decl) = 1;
20035 else if (VAR_P (decl))
20037 DECL_INITIAL (decl) =
20038 tsubst_expr (DECL_INITIAL (code_pattern), args,
20039 tf_error, DECL_TI_TEMPLATE (decl),
20040 /*integral_constant_expression_p=*/false);
20041 if (VAR_HAD_UNKNOWN_BOUND (decl))
20042 TREE_TYPE (decl) = tsubst (TREE_TYPE (code_pattern), args,
20043 tf_error, DECL_TI_TEMPLATE (decl));
20045 else
20046 gcc_unreachable ();
20048 pop_access_scope (decl);
20051 /* Return the TEMPLATE_DECL into which DECL_TI_ARGS(DECL) should be
20052 substituted to get DECL. */
20054 tree
20055 template_for_substitution (tree decl)
20057 tree tmpl = DECL_TI_TEMPLATE (decl);
20059 /* Set TMPL to the template whose DECL_TEMPLATE_RESULT is the pattern
20060 for the instantiation. This is not always the most general
20061 template. Consider, for example:
20063 template <class T>
20064 struct S { template <class U> void f();
20065 template <> void f<int>(); };
20067 and an instantiation of S<double>::f<int>. We want TD to be the
20068 specialization S<T>::f<int>, not the more general S<T>::f<U>. */
20069 while (/* An instantiation cannot have a definition, so we need a
20070 more general template. */
20071 DECL_TEMPLATE_INSTANTIATION (tmpl)
20072 /* We must also deal with friend templates. Given:
20074 template <class T> struct S {
20075 template <class U> friend void f() {};
20078 S<int>::f<U> say, is not an instantiation of S<T>::f<U>,
20079 so far as the language is concerned, but that's still
20080 where we get the pattern for the instantiation from. On
20081 other hand, if the definition comes outside the class, say:
20083 template <class T> struct S {
20084 template <class U> friend void f();
20086 template <class U> friend void f() {}
20088 we don't need to look any further. That's what the check for
20089 DECL_INITIAL is for. */
20090 || (TREE_CODE (decl) == FUNCTION_DECL
20091 && DECL_FRIEND_PSEUDO_TEMPLATE_INSTANTIATION (tmpl)
20092 && !DECL_INITIAL (DECL_TEMPLATE_RESULT (tmpl))))
20094 /* The present template, TD, should not be a definition. If it
20095 were a definition, we should be using it! Note that we
20096 cannot restructure the loop to just keep going until we find
20097 a template with a definition, since that might go too far if
20098 a specialization was declared, but not defined. */
20100 /* Fetch the more general template. */
20101 tmpl = DECL_TI_TEMPLATE (tmpl);
20104 return tmpl;
20107 /* Returns true if we need to instantiate this template instance even if we
20108 know we aren't going to emit it.. */
20110 bool
20111 always_instantiate_p (tree decl)
20113 /* We always instantiate inline functions so that we can inline them. An
20114 explicit instantiation declaration prohibits implicit instantiation of
20115 non-inline functions. With high levels of optimization, we would
20116 normally inline non-inline functions -- but we're not allowed to do
20117 that for "extern template" functions. Therefore, we check
20118 DECL_DECLARED_INLINE_P, rather than possibly_inlined_p. */
20119 return ((TREE_CODE (decl) == FUNCTION_DECL
20120 && (DECL_DECLARED_INLINE_P (decl)
20121 || type_uses_auto (TREE_TYPE (TREE_TYPE (decl)))))
20122 /* And we need to instantiate static data members so that
20123 their initializers are available in integral constant
20124 expressions. */
20125 || (VAR_P (decl)
20126 && decl_maybe_constant_var_p (decl)));
20129 /* If FN has a noexcept-specifier that hasn't been instantiated yet,
20130 instantiate it now, modifying TREE_TYPE (fn). */
20132 void
20133 maybe_instantiate_noexcept (tree fn)
20135 tree fntype, spec, noex, clone;
20137 /* Don't instantiate a noexcept-specification from template context. */
20138 if (processing_template_decl)
20139 return;
20141 if (DECL_CLONED_FUNCTION_P (fn))
20142 fn = DECL_CLONED_FUNCTION (fn);
20143 fntype = TREE_TYPE (fn);
20144 spec = TYPE_RAISES_EXCEPTIONS (fntype);
20146 if (!spec || !TREE_PURPOSE (spec))
20147 return;
20149 noex = TREE_PURPOSE (spec);
20151 if (TREE_CODE (noex) == DEFERRED_NOEXCEPT)
20153 if (DEFERRED_NOEXCEPT_PATTERN (noex) == NULL_TREE)
20154 spec = get_defaulted_eh_spec (fn);
20155 else if (push_tinst_level (fn))
20157 push_access_scope (fn);
20158 push_deferring_access_checks (dk_no_deferred);
20159 input_location = DECL_SOURCE_LOCATION (fn);
20160 noex = tsubst_copy_and_build (DEFERRED_NOEXCEPT_PATTERN (noex),
20161 DEFERRED_NOEXCEPT_ARGS (noex),
20162 tf_warning_or_error, fn,
20163 /*function_p=*/false,
20164 /*integral_constant_expression_p=*/true);
20165 pop_deferring_access_checks ();
20166 pop_access_scope (fn);
20167 pop_tinst_level ();
20168 spec = build_noexcept_spec (noex, tf_warning_or_error);
20169 if (spec == error_mark_node)
20170 spec = noexcept_false_spec;
20172 else
20173 spec = noexcept_false_spec;
20175 TREE_TYPE (fn) = build_exception_variant (fntype, spec);
20178 FOR_EACH_CLONE (clone, fn)
20180 if (TREE_TYPE (clone) == fntype)
20181 TREE_TYPE (clone) = TREE_TYPE (fn);
20182 else
20183 TREE_TYPE (clone) = build_exception_variant (TREE_TYPE (clone), spec);
20187 /* Produce the definition of D, a _DECL generated from a template. If
20188 DEFER_OK is nonzero, then we don't have to actually do the
20189 instantiation now; we just have to do it sometime. Normally it is
20190 an error if this is an explicit instantiation but D is undefined.
20191 EXPL_INST_CLASS_MEM_P is true iff D is a member of an
20192 explicitly instantiated class template. */
20194 tree
20195 instantiate_decl (tree d, int defer_ok,
20196 bool expl_inst_class_mem_p)
20198 tree tmpl = DECL_TI_TEMPLATE (d);
20199 tree gen_args;
20200 tree args;
20201 tree td;
20202 tree code_pattern;
20203 tree spec;
20204 tree gen_tmpl;
20205 bool pattern_defined;
20206 location_t saved_loc = input_location;
20207 int saved_unevaluated_operand = cp_unevaluated_operand;
20208 int saved_inhibit_evaluation_warnings = c_inhibit_evaluation_warnings;
20209 bool external_p;
20210 bool deleted_p;
20211 tree fn_context;
20212 bool nested;
20214 /* This function should only be used to instantiate templates for
20215 functions and static member variables. */
20216 gcc_assert (VAR_OR_FUNCTION_DECL_P (d));
20218 /* Variables are never deferred; if instantiation is required, they
20219 are instantiated right away. That allows for better code in the
20220 case that an expression refers to the value of the variable --
20221 if the variable has a constant value the referring expression can
20222 take advantage of that fact. */
20223 if (VAR_P (d)
20224 || DECL_DECLARED_CONSTEXPR_P (d))
20225 defer_ok = 0;
20227 /* Don't instantiate cloned functions. Instead, instantiate the
20228 functions they cloned. */
20229 if (TREE_CODE (d) == FUNCTION_DECL && DECL_CLONED_FUNCTION_P (d))
20230 d = DECL_CLONED_FUNCTION (d);
20232 if (DECL_TEMPLATE_INSTANTIATED (d)
20233 || (TREE_CODE (d) == FUNCTION_DECL
20234 && DECL_DEFAULTED_FN (d) && DECL_INITIAL (d))
20235 || DECL_TEMPLATE_SPECIALIZATION (d))
20236 /* D has already been instantiated or explicitly specialized, so
20237 there's nothing for us to do here.
20239 It might seem reasonable to check whether or not D is an explicit
20240 instantiation, and, if so, stop here. But when an explicit
20241 instantiation is deferred until the end of the compilation,
20242 DECL_EXPLICIT_INSTANTIATION is set, even though we still need to do
20243 the instantiation. */
20244 return d;
20246 /* Check to see whether we know that this template will be
20247 instantiated in some other file, as with "extern template"
20248 extension. */
20249 external_p = (DECL_INTERFACE_KNOWN (d) && DECL_REALLY_EXTERN (d));
20251 /* In general, we do not instantiate such templates. */
20252 if (external_p && !always_instantiate_p (d))
20253 return d;
20255 gen_tmpl = most_general_template (tmpl);
20256 gen_args = DECL_TI_ARGS (d);
20258 if (tmpl != gen_tmpl)
20259 /* We should already have the extra args. */
20260 gcc_assert (TMPL_PARMS_DEPTH (DECL_TEMPLATE_PARMS (gen_tmpl))
20261 == TMPL_ARGS_DEPTH (gen_args));
20262 /* And what's in the hash table should match D. */
20263 gcc_assert ((spec = retrieve_specialization (gen_tmpl, gen_args, 0)) == d
20264 || spec == NULL_TREE);
20266 /* This needs to happen before any tsubsting. */
20267 if (! push_tinst_level (d))
20268 return d;
20270 timevar_push (TV_TEMPLATE_INST);
20272 /* Set TD to the template whose DECL_TEMPLATE_RESULT is the pattern
20273 for the instantiation. */
20274 td = template_for_substitution (d);
20275 code_pattern = DECL_TEMPLATE_RESULT (td);
20277 /* We should never be trying to instantiate a member of a class
20278 template or partial specialization. */
20279 gcc_assert (d != code_pattern);
20281 if ((DECL_NAMESPACE_SCOPE_P (d) && !DECL_INITIALIZED_IN_CLASS_P (d))
20282 || DECL_TEMPLATE_SPECIALIZATION (td))
20283 /* In the case of a friend template whose definition is provided
20284 outside the class, we may have too many arguments. Drop the
20285 ones we don't need. The same is true for specializations. */
20286 args = get_innermost_template_args
20287 (gen_args, TMPL_PARMS_DEPTH (DECL_TEMPLATE_PARMS (td)));
20288 else
20289 args = gen_args;
20291 if (TREE_CODE (d) == FUNCTION_DECL)
20293 deleted_p = DECL_DELETED_FN (code_pattern);
20294 pattern_defined = (DECL_SAVED_TREE (code_pattern) != NULL_TREE
20295 || DECL_DEFAULTED_OUTSIDE_CLASS_P (code_pattern)
20296 || deleted_p);
20298 else
20300 deleted_p = false;
20301 pattern_defined = ! DECL_IN_AGGR_P (code_pattern);
20304 /* We may be in the middle of deferred access check. Disable it now. */
20305 push_deferring_access_checks (dk_no_deferred);
20307 /* Unless an explicit instantiation directive has already determined
20308 the linkage of D, remember that a definition is available for
20309 this entity. */
20310 if (pattern_defined
20311 && !DECL_INTERFACE_KNOWN (d)
20312 && !DECL_NOT_REALLY_EXTERN (d))
20313 mark_definable (d);
20315 DECL_SOURCE_LOCATION (td) = DECL_SOURCE_LOCATION (code_pattern);
20316 DECL_SOURCE_LOCATION (d) = DECL_SOURCE_LOCATION (code_pattern);
20317 input_location = DECL_SOURCE_LOCATION (d);
20319 /* If D is a member of an explicitly instantiated class template,
20320 and no definition is available, treat it like an implicit
20321 instantiation. */
20322 if (!pattern_defined && expl_inst_class_mem_p
20323 && DECL_EXPLICIT_INSTANTIATION (d))
20325 /* Leave linkage flags alone on instantiations with anonymous
20326 visibility. */
20327 if (TREE_PUBLIC (d))
20329 DECL_NOT_REALLY_EXTERN (d) = 0;
20330 DECL_INTERFACE_KNOWN (d) = 0;
20332 SET_DECL_IMPLICIT_INSTANTIATION (d);
20335 /* Defer all other templates, unless we have been explicitly
20336 forbidden from doing so. */
20337 if (/* If there is no definition, we cannot instantiate the
20338 template. */
20339 ! pattern_defined
20340 /* If it's OK to postpone instantiation, do so. */
20341 || defer_ok
20342 /* If this is a static data member that will be defined
20343 elsewhere, we don't want to instantiate the entire data
20344 member, but we do want to instantiate the initializer so that
20345 we can substitute that elsewhere. */
20346 || (external_p && VAR_P (d))
20347 /* Handle here a deleted function too, avoid generating
20348 its body (c++/61080). */
20349 || deleted_p)
20351 /* The definition of the static data member is now required so
20352 we must substitute the initializer. */
20353 if (VAR_P (d)
20354 && !DECL_INITIAL (d)
20355 && DECL_INITIAL (code_pattern))
20357 tree ns;
20358 tree init;
20359 bool const_init = false;
20360 bool enter_context = DECL_CLASS_SCOPE_P (d);
20362 ns = decl_namespace_context (d);
20363 push_nested_namespace (ns);
20364 if (enter_context)
20365 push_nested_class (DECL_CONTEXT (d));
20366 init = tsubst_expr (DECL_INITIAL (code_pattern),
20367 args,
20368 tf_warning_or_error, NULL_TREE,
20369 /*integral_constant_expression_p=*/false);
20370 /* If instantiating the initializer involved instantiating this
20371 again, don't call cp_finish_decl twice. */
20372 if (!DECL_INITIAL (d))
20374 /* Make sure the initializer is still constant, in case of
20375 circular dependency (template/instantiate6.C). */
20376 const_init
20377 = DECL_INITIALIZED_BY_CONSTANT_EXPRESSION_P (code_pattern);
20378 cp_finish_decl (d, init, /*init_const_expr_p=*/const_init,
20379 /*asmspec_tree=*/NULL_TREE,
20380 LOOKUP_ONLYCONVERTING);
20382 if (enter_context)
20383 pop_nested_class ();
20384 pop_nested_namespace (ns);
20387 /* We restore the source position here because it's used by
20388 add_pending_template. */
20389 input_location = saved_loc;
20391 if (at_eof && !pattern_defined
20392 && DECL_EXPLICIT_INSTANTIATION (d)
20393 && DECL_NOT_REALLY_EXTERN (d))
20394 /* [temp.explicit]
20396 The definition of a non-exported function template, a
20397 non-exported member function template, or a non-exported
20398 member function or static data member of a class template
20399 shall be present in every translation unit in which it is
20400 explicitly instantiated. */
20401 permerror (input_location, "explicit instantiation of %qD "
20402 "but no definition available", d);
20404 /* If we're in unevaluated context, we just wanted to get the
20405 constant value; this isn't an odr use, so don't queue
20406 a full instantiation. */
20407 if (cp_unevaluated_operand != 0)
20408 goto out;
20409 /* ??? Historically, we have instantiated inline functions, even
20410 when marked as "extern template". */
20411 if (!(external_p && VAR_P (d)))
20412 add_pending_template (d);
20413 goto out;
20415 /* Tell the repository that D is available in this translation unit
20416 -- and see if it is supposed to be instantiated here. */
20417 if (TREE_PUBLIC (d) && !DECL_REALLY_EXTERN (d) && !repo_emit_p (d))
20419 /* In a PCH file, despite the fact that the repository hasn't
20420 requested instantiation in the PCH it is still possible that
20421 an instantiation will be required in a file that includes the
20422 PCH. */
20423 if (pch_file)
20424 add_pending_template (d);
20425 /* Instantiate inline functions so that the inliner can do its
20426 job, even though we'll not be emitting a copy of this
20427 function. */
20428 if (!(TREE_CODE (d) == FUNCTION_DECL && possibly_inlined_p (d)))
20429 goto out;
20432 fn_context = decl_function_context (d);
20433 nested = (current_function_decl != NULL_TREE);
20434 if (!fn_context)
20435 push_to_top_level ();
20436 else
20438 if (nested)
20439 push_function_context ();
20440 cp_unevaluated_operand = 0;
20441 c_inhibit_evaluation_warnings = 0;
20444 /* Mark D as instantiated so that recursive calls to
20445 instantiate_decl do not try to instantiate it again. */
20446 DECL_TEMPLATE_INSTANTIATED (d) = 1;
20448 /* Regenerate the declaration in case the template has been modified
20449 by a subsequent redeclaration. */
20450 regenerate_decl_from_template (d, td);
20452 /* We already set the file and line above. Reset them now in case
20453 they changed as a result of calling regenerate_decl_from_template. */
20454 input_location = DECL_SOURCE_LOCATION (d);
20456 if (VAR_P (d))
20458 tree init;
20459 bool const_init = false;
20461 /* Clear out DECL_RTL; whatever was there before may not be right
20462 since we've reset the type of the declaration. */
20463 SET_DECL_RTL (d, NULL);
20464 DECL_IN_AGGR_P (d) = 0;
20466 /* The initializer is placed in DECL_INITIAL by
20467 regenerate_decl_from_template so we don't need to
20468 push/pop_access_scope again here. Pull it out so that
20469 cp_finish_decl can process it. */
20470 init = DECL_INITIAL (d);
20471 DECL_INITIAL (d) = NULL_TREE;
20472 DECL_INITIALIZED_P (d) = 0;
20474 /* Clear DECL_EXTERNAL so that cp_finish_decl will process the
20475 initializer. That function will defer actual emission until
20476 we have a chance to determine linkage. */
20477 DECL_EXTERNAL (d) = 0;
20479 /* Enter the scope of D so that access-checking works correctly. */
20480 bool enter_context = DECL_CLASS_SCOPE_P (d);
20481 if (enter_context)
20482 push_nested_class (DECL_CONTEXT (d));
20484 const_init = DECL_INITIALIZED_BY_CONSTANT_EXPRESSION_P (code_pattern);
20485 cp_finish_decl (d, init, const_init, NULL_TREE, 0);
20487 if (enter_context)
20488 pop_nested_class ();
20490 if (variable_template_p (td))
20491 note_variable_template_instantiation (d);
20493 else if (TREE_CODE (d) == FUNCTION_DECL && DECL_DEFAULTED_FN (code_pattern))
20494 synthesize_method (d);
20495 else if (TREE_CODE (d) == FUNCTION_DECL)
20497 hash_map<tree, tree> *saved_local_specializations;
20498 tree subst_decl;
20499 tree tmpl_parm;
20500 tree spec_parm;
20501 tree block = NULL_TREE;
20503 /* Save away the current list, in case we are instantiating one
20504 template from within the body of another. */
20505 saved_local_specializations = local_specializations;
20507 /* Set up the list of local specializations. */
20508 local_specializations = new hash_map<tree, tree>;
20510 /* Set up context. */
20511 if (DECL_OMP_DECLARE_REDUCTION_P (code_pattern)
20512 && TREE_CODE (DECL_CONTEXT (code_pattern)) == FUNCTION_DECL)
20513 block = push_stmt_list ();
20514 else
20515 start_preparsed_function (d, NULL_TREE, SF_PRE_PARSED);
20517 /* Some typedefs referenced from within the template code need to be
20518 access checked at template instantiation time, i.e now. These
20519 types were added to the template at parsing time. Let's get those
20520 and perform the access checks then. */
20521 perform_typedefs_access_check (DECL_TEMPLATE_RESULT (gen_tmpl),
20522 gen_args);
20524 /* Create substitution entries for the parameters. */
20525 subst_decl = DECL_TEMPLATE_RESULT (template_for_substitution (d));
20526 tmpl_parm = DECL_ARGUMENTS (subst_decl);
20527 spec_parm = DECL_ARGUMENTS (d);
20528 if (DECL_NONSTATIC_MEMBER_FUNCTION_P (d))
20530 register_local_specialization (spec_parm, tmpl_parm);
20531 spec_parm = skip_artificial_parms_for (d, spec_parm);
20532 tmpl_parm = skip_artificial_parms_for (subst_decl, tmpl_parm);
20534 for (; tmpl_parm; tmpl_parm = DECL_CHAIN (tmpl_parm))
20536 if (!DECL_PACK_P (tmpl_parm))
20538 register_local_specialization (spec_parm, tmpl_parm);
20539 spec_parm = DECL_CHAIN (spec_parm);
20541 else
20543 /* Register the (value) argument pack as a specialization of
20544 TMPL_PARM, then move on. */
20545 tree argpack = extract_fnparm_pack (tmpl_parm, &spec_parm);
20546 register_local_specialization (argpack, tmpl_parm);
20549 gcc_assert (!spec_parm);
20551 /* Substitute into the body of the function. */
20552 if (DECL_OMP_DECLARE_REDUCTION_P (code_pattern))
20553 tsubst_omp_udr (DECL_SAVED_TREE (code_pattern), args,
20554 tf_warning_or_error, tmpl);
20555 else
20557 tsubst_expr (DECL_SAVED_TREE (code_pattern), args,
20558 tf_warning_or_error, tmpl,
20559 /*integral_constant_expression_p=*/false);
20561 /* Set the current input_location to the end of the function
20562 so that finish_function knows where we are. */
20563 input_location
20564 = DECL_STRUCT_FUNCTION (code_pattern)->function_end_locus;
20566 /* Remember if we saw an infinite loop in the template. */
20567 current_function_infinite_loop
20568 = DECL_STRUCT_FUNCTION (code_pattern)->language->infinite_loop;
20571 /* We don't need the local specializations any more. */
20572 delete local_specializations;
20573 local_specializations = saved_local_specializations;
20575 /* Finish the function. */
20576 if (DECL_OMP_DECLARE_REDUCTION_P (code_pattern)
20577 && TREE_CODE (DECL_CONTEXT (code_pattern)) == FUNCTION_DECL)
20578 DECL_SAVED_TREE (d) = pop_stmt_list (block);
20579 else
20581 d = finish_function (0);
20582 expand_or_defer_fn (d);
20585 if (DECL_OMP_DECLARE_REDUCTION_P (code_pattern))
20586 cp_check_omp_declare_reduction (d);
20589 /* We're not deferring instantiation any more. */
20590 TI_PENDING_TEMPLATE_FLAG (DECL_TEMPLATE_INFO (d)) = 0;
20592 if (!fn_context)
20593 pop_from_top_level ();
20594 else if (nested)
20595 pop_function_context ();
20597 out:
20598 input_location = saved_loc;
20599 cp_unevaluated_operand = saved_unevaluated_operand;
20600 c_inhibit_evaluation_warnings = saved_inhibit_evaluation_warnings;
20601 pop_deferring_access_checks ();
20602 pop_tinst_level ();
20604 timevar_pop (TV_TEMPLATE_INST);
20606 return d;
20609 /* Run through the list of templates that we wish we could
20610 instantiate, and instantiate any we can. RETRIES is the
20611 number of times we retry pending template instantiation. */
20613 void
20614 instantiate_pending_templates (int retries)
20616 int reconsider;
20617 location_t saved_loc = input_location;
20619 /* Instantiating templates may trigger vtable generation. This in turn
20620 may require further template instantiations. We place a limit here
20621 to avoid infinite loop. */
20622 if (pending_templates && retries >= max_tinst_depth)
20624 tree decl = pending_templates->tinst->decl;
20626 fatal_error (input_location,
20627 "template instantiation depth exceeds maximum of %d"
20628 " instantiating %q+D, possibly from virtual table generation"
20629 " (use -ftemplate-depth= to increase the maximum)",
20630 max_tinst_depth, decl);
20631 if (TREE_CODE (decl) == FUNCTION_DECL)
20632 /* Pretend that we defined it. */
20633 DECL_INITIAL (decl) = error_mark_node;
20634 return;
20639 struct pending_template **t = &pending_templates;
20640 struct pending_template *last = NULL;
20641 reconsider = 0;
20642 while (*t)
20644 tree instantiation = reopen_tinst_level ((*t)->tinst);
20645 bool complete = false;
20647 if (TYPE_P (instantiation))
20649 tree fn;
20651 if (!COMPLETE_TYPE_P (instantiation))
20653 instantiate_class_template (instantiation);
20654 if (CLASSTYPE_TEMPLATE_INSTANTIATION (instantiation))
20655 for (fn = TYPE_METHODS (instantiation);
20657 fn = TREE_CHAIN (fn))
20658 if (! DECL_ARTIFICIAL (fn))
20659 instantiate_decl (fn,
20660 /*defer_ok=*/0,
20661 /*expl_inst_class_mem_p=*/false);
20662 if (COMPLETE_TYPE_P (instantiation))
20663 reconsider = 1;
20666 complete = COMPLETE_TYPE_P (instantiation);
20668 else
20670 if (!DECL_TEMPLATE_SPECIALIZATION (instantiation)
20671 && !DECL_TEMPLATE_INSTANTIATED (instantiation))
20673 instantiation
20674 = instantiate_decl (instantiation,
20675 /*defer_ok=*/0,
20676 /*expl_inst_class_mem_p=*/false);
20677 if (DECL_TEMPLATE_INSTANTIATED (instantiation))
20678 reconsider = 1;
20681 complete = (DECL_TEMPLATE_SPECIALIZATION (instantiation)
20682 || DECL_TEMPLATE_INSTANTIATED (instantiation));
20685 if (complete)
20686 /* If INSTANTIATION has been instantiated, then we don't
20687 need to consider it again in the future. */
20688 *t = (*t)->next;
20689 else
20691 last = *t;
20692 t = &(*t)->next;
20694 tinst_depth = 0;
20695 current_tinst_level = NULL;
20697 last_pending_template = last;
20699 while (reconsider);
20701 input_location = saved_loc;
20704 /* Substitute ARGVEC into T, which is a list of initializers for
20705 either base class or a non-static data member. The TREE_PURPOSEs
20706 are DECLs, and the TREE_VALUEs are the initializer values. Used by
20707 instantiate_decl. */
20709 static tree
20710 tsubst_initializer_list (tree t, tree argvec)
20712 tree inits = NULL_TREE;
20714 for (; t; t = TREE_CHAIN (t))
20716 tree decl;
20717 tree init;
20718 tree expanded_bases = NULL_TREE;
20719 tree expanded_arguments = NULL_TREE;
20720 int i, len = 1;
20722 if (TREE_CODE (TREE_PURPOSE (t)) == TYPE_PACK_EXPANSION)
20724 tree expr;
20725 tree arg;
20727 /* Expand the base class expansion type into separate base
20728 classes. */
20729 expanded_bases = tsubst_pack_expansion (TREE_PURPOSE (t), argvec,
20730 tf_warning_or_error,
20731 NULL_TREE);
20732 if (expanded_bases == error_mark_node)
20733 continue;
20735 /* We'll be building separate TREE_LISTs of arguments for
20736 each base. */
20737 len = TREE_VEC_LENGTH (expanded_bases);
20738 expanded_arguments = make_tree_vec (len);
20739 for (i = 0; i < len; i++)
20740 TREE_VEC_ELT (expanded_arguments, i) = NULL_TREE;
20742 /* Build a dummy EXPR_PACK_EXPANSION that will be used to
20743 expand each argument in the TREE_VALUE of t. */
20744 expr = make_node (EXPR_PACK_EXPANSION);
20745 PACK_EXPANSION_LOCAL_P (expr) = true;
20746 PACK_EXPANSION_PARAMETER_PACKS (expr) =
20747 PACK_EXPANSION_PARAMETER_PACKS (TREE_PURPOSE (t));
20749 if (TREE_VALUE (t) == void_type_node)
20750 /* VOID_TYPE_NODE is used to indicate
20751 value-initialization. */
20753 for (i = 0; i < len; i++)
20754 TREE_VEC_ELT (expanded_arguments, i) = void_type_node;
20756 else
20758 /* Substitute parameter packs into each argument in the
20759 TREE_LIST. */
20760 in_base_initializer = 1;
20761 for (arg = TREE_VALUE (t); arg; arg = TREE_CHAIN (arg))
20763 tree expanded_exprs;
20765 /* Expand the argument. */
20766 SET_PACK_EXPANSION_PATTERN (expr, TREE_VALUE (arg));
20767 expanded_exprs
20768 = tsubst_pack_expansion (expr, argvec,
20769 tf_warning_or_error,
20770 NULL_TREE);
20771 if (expanded_exprs == error_mark_node)
20772 continue;
20774 /* Prepend each of the expanded expressions to the
20775 corresponding TREE_LIST in EXPANDED_ARGUMENTS. */
20776 for (i = 0; i < len; i++)
20778 TREE_VEC_ELT (expanded_arguments, i) =
20779 tree_cons (NULL_TREE,
20780 TREE_VEC_ELT (expanded_exprs, i),
20781 TREE_VEC_ELT (expanded_arguments, i));
20784 in_base_initializer = 0;
20786 /* Reverse all of the TREE_LISTs in EXPANDED_ARGUMENTS,
20787 since we built them backwards. */
20788 for (i = 0; i < len; i++)
20790 TREE_VEC_ELT (expanded_arguments, i) =
20791 nreverse (TREE_VEC_ELT (expanded_arguments, i));
20796 for (i = 0; i < len; ++i)
20798 if (expanded_bases)
20800 decl = TREE_VEC_ELT (expanded_bases, i);
20801 decl = expand_member_init (decl);
20802 init = TREE_VEC_ELT (expanded_arguments, i);
20804 else
20806 tree tmp;
20807 decl = tsubst_copy (TREE_PURPOSE (t), argvec,
20808 tf_warning_or_error, NULL_TREE);
20810 decl = expand_member_init (decl);
20811 if (decl && !DECL_P (decl))
20812 in_base_initializer = 1;
20814 init = TREE_VALUE (t);
20815 tmp = init;
20816 if (init != void_type_node)
20817 init = tsubst_expr (init, argvec,
20818 tf_warning_or_error, NULL_TREE,
20819 /*integral_constant_expression_p=*/false);
20820 if (init == NULL_TREE && tmp != NULL_TREE)
20821 /* If we had an initializer but it instantiated to nothing,
20822 value-initialize the object. This will only occur when
20823 the initializer was a pack expansion where the parameter
20824 packs used in that expansion were of length zero. */
20825 init = void_type_node;
20826 in_base_initializer = 0;
20829 if (decl)
20831 init = build_tree_list (decl, init);
20832 TREE_CHAIN (init) = inits;
20833 inits = init;
20837 return inits;
20840 /* Set CURRENT_ACCESS_SPECIFIER based on the protection of DECL. */
20842 static void
20843 set_current_access_from_decl (tree decl)
20845 if (TREE_PRIVATE (decl))
20846 current_access_specifier = access_private_node;
20847 else if (TREE_PROTECTED (decl))
20848 current_access_specifier = access_protected_node;
20849 else
20850 current_access_specifier = access_public_node;
20853 /* Instantiate an enumerated type. TAG is the template type, NEWTAG
20854 is the instantiation (which should have been created with
20855 start_enum) and ARGS are the template arguments to use. */
20857 static void
20858 tsubst_enum (tree tag, tree newtag, tree args)
20860 tree e;
20862 if (SCOPED_ENUM_P (newtag))
20863 begin_scope (sk_scoped_enum, newtag);
20865 for (e = TYPE_VALUES (tag); e; e = TREE_CHAIN (e))
20867 tree value;
20868 tree decl;
20870 decl = TREE_VALUE (e);
20871 /* Note that in a template enum, the TREE_VALUE is the
20872 CONST_DECL, not the corresponding INTEGER_CST. */
20873 value = tsubst_expr (DECL_INITIAL (decl),
20874 args, tf_warning_or_error, NULL_TREE,
20875 /*integral_constant_expression_p=*/true);
20877 /* Give this enumeration constant the correct access. */
20878 set_current_access_from_decl (decl);
20880 /* Actually build the enumerator itself. Here we're assuming that
20881 enumerators can't have dependent attributes. */
20882 build_enumerator (DECL_NAME (decl), value, newtag,
20883 DECL_ATTRIBUTES (decl), DECL_SOURCE_LOCATION (decl));
20886 if (SCOPED_ENUM_P (newtag))
20887 finish_scope ();
20889 finish_enum_value_list (newtag);
20890 finish_enum (newtag);
20892 DECL_SOURCE_LOCATION (TYPE_NAME (newtag))
20893 = DECL_SOURCE_LOCATION (TYPE_NAME (tag));
20896 /* DECL is a FUNCTION_DECL that is a template specialization. Return
20897 its type -- but without substituting the innermost set of template
20898 arguments. So, innermost set of template parameters will appear in
20899 the type. */
20901 tree
20902 get_mostly_instantiated_function_type (tree decl)
20904 /* For a function, DECL_TI_TEMPLATE is partially instantiated. */
20905 return TREE_TYPE (DECL_TI_TEMPLATE (decl));
20908 /* Return truthvalue if we're processing a template different from
20909 the last one involved in diagnostics. */
20910 bool
20911 problematic_instantiation_changed (void)
20913 return current_tinst_level != last_error_tinst_level;
20916 /* Remember current template involved in diagnostics. */
20917 void
20918 record_last_problematic_instantiation (void)
20920 last_error_tinst_level = current_tinst_level;
20923 struct tinst_level *
20924 current_instantiation (void)
20926 return current_tinst_level;
20929 /* Return TRUE if current_function_decl is being instantiated, false
20930 otherwise. */
20932 bool
20933 instantiating_current_function_p (void)
20935 return (current_instantiation ()
20936 && current_instantiation ()->decl == current_function_decl);
20939 /* [temp.param] Check that template non-type parm TYPE is of an allowable
20940 type. Return zero for ok, nonzero for disallowed. Issue error and
20941 warning messages under control of COMPLAIN. */
20943 static int
20944 invalid_nontype_parm_type_p (tree type, tsubst_flags_t complain)
20946 if (INTEGRAL_OR_ENUMERATION_TYPE_P (type))
20947 return 0;
20948 else if (POINTER_TYPE_P (type))
20949 return 0;
20950 else if (TYPE_PTRMEM_P (type))
20951 return 0;
20952 else if (TREE_CODE (type) == TEMPLATE_TYPE_PARM)
20953 return 0;
20954 else if (TREE_CODE (type) == TYPENAME_TYPE)
20955 return 0;
20956 else if (TREE_CODE (type) == DECLTYPE_TYPE)
20957 return 0;
20958 else if (TREE_CODE (type) == NULLPTR_TYPE)
20959 return 0;
20961 if (complain & tf_error)
20963 if (type == error_mark_node)
20964 inform (input_location, "invalid template non-type parameter");
20965 else
20966 error ("%q#T is not a valid type for a template non-type parameter",
20967 type);
20969 return 1;
20972 /* Returns TRUE if TYPE is dependent, in the sense of [temp.dep.type].
20973 Assumes that TYPE really is a type, and not the ERROR_MARK_NODE.*/
20975 static bool
20976 dependent_type_p_r (tree type)
20978 tree scope;
20980 /* [temp.dep.type]
20982 A type is dependent if it is:
20984 -- a template parameter. Template template parameters are types
20985 for us (since TYPE_P holds true for them) so we handle
20986 them here. */
20987 if (TREE_CODE (type) == TEMPLATE_TYPE_PARM
20988 || TREE_CODE (type) == TEMPLATE_TEMPLATE_PARM)
20989 return true;
20990 /* -- a qualified-id with a nested-name-specifier which contains a
20991 class-name that names a dependent type or whose unqualified-id
20992 names a dependent type. */
20993 if (TREE_CODE (type) == TYPENAME_TYPE)
20994 return true;
20995 /* -- a cv-qualified type where the cv-unqualified type is
20996 dependent.
20997 No code is necessary for this bullet; the code below handles
20998 cv-qualified types, and we don't want to strip aliases with
20999 TYPE_MAIN_VARIANT because of DR 1558. */
21000 /* -- a compound type constructed from any dependent type. */
21001 if (TYPE_PTRMEM_P (type))
21002 return (dependent_type_p (TYPE_PTRMEM_CLASS_TYPE (type))
21003 || dependent_type_p (TYPE_PTRMEM_POINTED_TO_TYPE
21004 (type)));
21005 else if (TYPE_PTR_P (type)
21006 || TREE_CODE (type) == REFERENCE_TYPE)
21007 return dependent_type_p (TREE_TYPE (type));
21008 else if (TREE_CODE (type) == FUNCTION_TYPE
21009 || TREE_CODE (type) == METHOD_TYPE)
21011 tree arg_type;
21013 if (dependent_type_p (TREE_TYPE (type)))
21014 return true;
21015 for (arg_type = TYPE_ARG_TYPES (type);
21016 arg_type;
21017 arg_type = TREE_CHAIN (arg_type))
21018 if (dependent_type_p (TREE_VALUE (arg_type)))
21019 return true;
21020 return false;
21022 /* -- an array type constructed from any dependent type or whose
21023 size is specified by a constant expression that is
21024 value-dependent.
21026 We checked for type- and value-dependence of the bounds in
21027 compute_array_index_type, so TYPE_DEPENDENT_P is already set. */
21028 if (TREE_CODE (type) == ARRAY_TYPE)
21030 if (TYPE_DOMAIN (type)
21031 && dependent_type_p (TYPE_DOMAIN (type)))
21032 return true;
21033 return dependent_type_p (TREE_TYPE (type));
21036 /* -- a template-id in which either the template name is a template
21037 parameter ... */
21038 if (TREE_CODE (type) == BOUND_TEMPLATE_TEMPLATE_PARM)
21039 return true;
21040 /* ... or any of the template arguments is a dependent type or
21041 an expression that is type-dependent or value-dependent. */
21042 else if (CLASS_TYPE_P (type) && CLASSTYPE_TEMPLATE_INFO (type)
21043 && (any_dependent_template_arguments_p
21044 (INNERMOST_TEMPLATE_ARGS (CLASSTYPE_TI_ARGS (type)))))
21045 return true;
21046 /* For an alias template specialization, check the arguments both to the
21047 class template and the alias template. */
21048 else if (dependent_alias_template_spec_p (type))
21049 return true;
21051 /* All TYPEOF_TYPEs, DECLTYPE_TYPEs, and UNDERLYING_TYPEs are
21052 dependent; if the argument of the `typeof' expression is not
21053 type-dependent, then it should already been have resolved. */
21054 if (TREE_CODE (type) == TYPEOF_TYPE
21055 || TREE_CODE (type) == DECLTYPE_TYPE
21056 || TREE_CODE (type) == UNDERLYING_TYPE)
21057 return true;
21059 /* A template argument pack is dependent if any of its packed
21060 arguments are. */
21061 if (TREE_CODE (type) == TYPE_ARGUMENT_PACK)
21063 tree args = ARGUMENT_PACK_ARGS (type);
21064 int i, len = TREE_VEC_LENGTH (args);
21065 for (i = 0; i < len; ++i)
21066 if (dependent_template_arg_p (TREE_VEC_ELT (args, i)))
21067 return true;
21070 /* All TYPE_PACK_EXPANSIONs are dependent, because parameter packs must
21071 be template parameters. */
21072 if (TREE_CODE (type) == TYPE_PACK_EXPANSION)
21073 return true;
21075 /* The standard does not specifically mention types that are local
21076 to template functions or local classes, but they should be
21077 considered dependent too. For example:
21079 template <int I> void f() {
21080 enum E { a = I };
21081 S<sizeof (E)> s;
21084 The size of `E' cannot be known until the value of `I' has been
21085 determined. Therefore, `E' must be considered dependent. */
21086 scope = TYPE_CONTEXT (type);
21087 if (scope && TYPE_P (scope))
21088 return dependent_type_p (scope);
21089 /* Don't use type_dependent_expression_p here, as it can lead
21090 to infinite recursion trying to determine whether a lambda
21091 nested in a lambda is dependent (c++/47687). */
21092 else if (scope && TREE_CODE (scope) == FUNCTION_DECL
21093 && DECL_LANG_SPECIFIC (scope)
21094 && DECL_TEMPLATE_INFO (scope)
21095 && (any_dependent_template_arguments_p
21096 (INNERMOST_TEMPLATE_ARGS (DECL_TI_ARGS (scope)))))
21097 return true;
21099 /* Other types are non-dependent. */
21100 return false;
21103 /* Returns TRUE if TYPE is dependent, in the sense of
21104 [temp.dep.type]. Note that a NULL type is considered dependent. */
21106 bool
21107 dependent_type_p (tree type)
21109 /* If there are no template parameters in scope, then there can't be
21110 any dependent types. */
21111 if (!processing_template_decl)
21113 /* If we are not processing a template, then nobody should be
21114 providing us with a dependent type. */
21115 gcc_assert (type);
21116 gcc_assert (TREE_CODE (type) != TEMPLATE_TYPE_PARM || is_auto (type));
21117 return false;
21120 /* If the type is NULL, we have not computed a type for the entity
21121 in question; in that case, the type is dependent. */
21122 if (!type)
21123 return true;
21125 /* Erroneous types can be considered non-dependent. */
21126 if (type == error_mark_node)
21127 return false;
21129 /* If we have not already computed the appropriate value for TYPE,
21130 do so now. */
21131 if (!TYPE_DEPENDENT_P_VALID (type))
21133 TYPE_DEPENDENT_P (type) = dependent_type_p_r (type);
21134 TYPE_DEPENDENT_P_VALID (type) = 1;
21137 return TYPE_DEPENDENT_P (type);
21140 /* Returns TRUE if SCOPE is a dependent scope, in which we can't do any
21141 lookup. In other words, a dependent type that is not the current
21142 instantiation. */
21144 bool
21145 dependent_scope_p (tree scope)
21147 return (scope && TYPE_P (scope) && dependent_type_p (scope)
21148 && !currently_open_class (scope));
21151 /* T is a SCOPE_REF; return whether we need to consider it
21152 instantiation-dependent so that we can check access at instantiation
21153 time even though we know which member it resolves to. */
21155 static bool
21156 instantiation_dependent_scope_ref_p (tree t)
21158 if (DECL_P (TREE_OPERAND (t, 1))
21159 && CLASS_TYPE_P (TREE_OPERAND (t, 0))
21160 && accessible_in_template_p (TREE_OPERAND (t, 0),
21161 TREE_OPERAND (t, 1)))
21162 return false;
21163 else
21164 return true;
21167 /* Returns TRUE if the EXPRESSION is value-dependent, in the sense of
21168 [temp.dep.constexpr]. EXPRESSION is already known to be a constant
21169 expression. */
21171 /* Note that this predicate is not appropriate for general expressions;
21172 only constant expressions (that satisfy potential_constant_expression)
21173 can be tested for value dependence. */
21175 bool
21176 value_dependent_expression_p (tree expression)
21178 if (!processing_template_decl)
21179 return false;
21181 /* A name declared with a dependent type. */
21182 if (DECL_P (expression) && type_dependent_expression_p (expression))
21183 return true;
21185 switch (TREE_CODE (expression))
21187 case IDENTIFIER_NODE:
21188 /* A name that has not been looked up -- must be dependent. */
21189 return true;
21191 case TEMPLATE_PARM_INDEX:
21192 /* A non-type template parm. */
21193 return true;
21195 case CONST_DECL:
21196 /* A non-type template parm. */
21197 if (DECL_TEMPLATE_PARM_P (expression))
21198 return true;
21199 return value_dependent_expression_p (DECL_INITIAL (expression));
21201 case VAR_DECL:
21202 /* A constant with literal type and is initialized
21203 with an expression that is value-dependent.
21205 Note that a non-dependent parenthesized initializer will have
21206 already been replaced with its constant value, so if we see
21207 a TREE_LIST it must be dependent. */
21208 if (DECL_INITIAL (expression)
21209 && decl_constant_var_p (expression)
21210 && (TREE_CODE (DECL_INITIAL (expression)) == TREE_LIST
21211 /* cp_finish_decl doesn't fold reference initializers. */
21212 || TREE_CODE (TREE_TYPE (expression)) == REFERENCE_TYPE
21213 || value_dependent_expression_p (DECL_INITIAL (expression))))
21214 return true;
21215 return false;
21217 case DYNAMIC_CAST_EXPR:
21218 case STATIC_CAST_EXPR:
21219 case CONST_CAST_EXPR:
21220 case REINTERPRET_CAST_EXPR:
21221 case CAST_EXPR:
21222 /* These expressions are value-dependent if the type to which
21223 the cast occurs is dependent or the expression being casted
21224 is value-dependent. */
21226 tree type = TREE_TYPE (expression);
21228 if (dependent_type_p (type))
21229 return true;
21231 /* A functional cast has a list of operands. */
21232 expression = TREE_OPERAND (expression, 0);
21233 if (!expression)
21235 /* If there are no operands, it must be an expression such
21236 as "int()". This should not happen for aggregate types
21237 because it would form non-constant expressions. */
21238 gcc_assert (cxx_dialect >= cxx11
21239 || INTEGRAL_OR_ENUMERATION_TYPE_P (type));
21241 return false;
21244 if (TREE_CODE (expression) == TREE_LIST)
21245 return any_value_dependent_elements_p (expression);
21247 return value_dependent_expression_p (expression);
21250 case SIZEOF_EXPR:
21251 if (SIZEOF_EXPR_TYPE_P (expression))
21252 return dependent_type_p (TREE_TYPE (TREE_OPERAND (expression, 0)));
21253 /* FALLTHRU */
21254 case ALIGNOF_EXPR:
21255 case TYPEID_EXPR:
21256 /* A `sizeof' expression is value-dependent if the operand is
21257 type-dependent or is a pack expansion. */
21258 expression = TREE_OPERAND (expression, 0);
21259 if (PACK_EXPANSION_P (expression))
21260 return true;
21261 else if (TYPE_P (expression))
21262 return dependent_type_p (expression);
21263 return instantiation_dependent_expression_p (expression);
21265 case AT_ENCODE_EXPR:
21266 /* An 'encode' expression is value-dependent if the operand is
21267 type-dependent. */
21268 expression = TREE_OPERAND (expression, 0);
21269 return dependent_type_p (expression);
21271 case NOEXCEPT_EXPR:
21272 expression = TREE_OPERAND (expression, 0);
21273 return instantiation_dependent_expression_p (expression);
21275 case SCOPE_REF:
21276 /* All instantiation-dependent expressions should also be considered
21277 value-dependent. */
21278 return instantiation_dependent_scope_ref_p (expression);
21280 case COMPONENT_REF:
21281 return (value_dependent_expression_p (TREE_OPERAND (expression, 0))
21282 || value_dependent_expression_p (TREE_OPERAND (expression, 1)));
21284 case NONTYPE_ARGUMENT_PACK:
21285 /* A NONTYPE_ARGUMENT_PACK is value-dependent if any packed argument
21286 is value-dependent. */
21288 tree values = ARGUMENT_PACK_ARGS (expression);
21289 int i, len = TREE_VEC_LENGTH (values);
21291 for (i = 0; i < len; ++i)
21292 if (value_dependent_expression_p (TREE_VEC_ELT (values, i)))
21293 return true;
21295 return false;
21298 case TRAIT_EXPR:
21300 tree type2 = TRAIT_EXPR_TYPE2 (expression);
21301 return (dependent_type_p (TRAIT_EXPR_TYPE1 (expression))
21302 || (type2 ? dependent_type_p (type2) : false));
21305 case MODOP_EXPR:
21306 return ((value_dependent_expression_p (TREE_OPERAND (expression, 0)))
21307 || (value_dependent_expression_p (TREE_OPERAND (expression, 2))));
21309 case ARRAY_REF:
21310 return ((value_dependent_expression_p (TREE_OPERAND (expression, 0)))
21311 || (value_dependent_expression_p (TREE_OPERAND (expression, 1))));
21313 case ADDR_EXPR:
21315 tree op = TREE_OPERAND (expression, 0);
21316 return (value_dependent_expression_p (op)
21317 || has_value_dependent_address (op));
21320 case CALL_EXPR:
21322 tree fn = get_callee_fndecl (expression);
21323 int i, nargs;
21324 if (!fn && value_dependent_expression_p (CALL_EXPR_FN (expression)))
21325 return true;
21326 nargs = call_expr_nargs (expression);
21327 for (i = 0; i < nargs; ++i)
21329 tree op = CALL_EXPR_ARG (expression, i);
21330 /* In a call to a constexpr member function, look through the
21331 implicit ADDR_EXPR on the object argument so that it doesn't
21332 cause the call to be considered value-dependent. We also
21333 look through it in potential_constant_expression. */
21334 if (i == 0 && fn && DECL_DECLARED_CONSTEXPR_P (fn)
21335 && DECL_NONSTATIC_MEMBER_FUNCTION_P (fn)
21336 && TREE_CODE (op) == ADDR_EXPR)
21337 op = TREE_OPERAND (op, 0);
21338 if (value_dependent_expression_p (op))
21339 return true;
21341 return false;
21344 case TEMPLATE_ID_EXPR:
21345 /* If a TEMPLATE_ID_EXPR involves a dependent name, it will be
21346 type-dependent. */
21347 return type_dependent_expression_p (expression);
21349 case CONSTRUCTOR:
21351 unsigned ix;
21352 tree val;
21353 if (dependent_type_p (TREE_TYPE (expression)))
21354 return true;
21355 FOR_EACH_CONSTRUCTOR_VALUE (CONSTRUCTOR_ELTS (expression), ix, val)
21356 if (value_dependent_expression_p (val))
21357 return true;
21358 return false;
21361 case STMT_EXPR:
21362 /* Treat a GNU statement expression as dependent to avoid crashing
21363 under instantiate_non_dependent_expr; it can't be constant. */
21364 return true;
21366 default:
21367 /* A constant expression is value-dependent if any subexpression is
21368 value-dependent. */
21369 switch (TREE_CODE_CLASS (TREE_CODE (expression)))
21371 case tcc_reference:
21372 case tcc_unary:
21373 case tcc_comparison:
21374 case tcc_binary:
21375 case tcc_expression:
21376 case tcc_vl_exp:
21378 int i, len = cp_tree_operand_length (expression);
21380 for (i = 0; i < len; i++)
21382 tree t = TREE_OPERAND (expression, i);
21384 /* In some cases, some of the operands may be missing.l
21385 (For example, in the case of PREDECREMENT_EXPR, the
21386 amount to increment by may be missing.) That doesn't
21387 make the expression dependent. */
21388 if (t && value_dependent_expression_p (t))
21389 return true;
21392 break;
21393 default:
21394 break;
21396 break;
21399 /* The expression is not value-dependent. */
21400 return false;
21403 /* Returns TRUE if the EXPRESSION is type-dependent, in the sense of
21404 [temp.dep.expr]. Note that an expression with no type is
21405 considered dependent. Other parts of the compiler arrange for an
21406 expression with type-dependent subexpressions to have no type, so
21407 this function doesn't have to be fully recursive. */
21409 bool
21410 type_dependent_expression_p (tree expression)
21412 if (!processing_template_decl)
21413 return false;
21415 if (expression == NULL_TREE || expression == error_mark_node)
21416 return false;
21418 /* An unresolved name is always dependent. */
21419 if (identifier_p (expression) || TREE_CODE (expression) == USING_DECL)
21420 return true;
21422 /* Some expression forms are never type-dependent. */
21423 if (TREE_CODE (expression) == PSEUDO_DTOR_EXPR
21424 || TREE_CODE (expression) == SIZEOF_EXPR
21425 || TREE_CODE (expression) == ALIGNOF_EXPR
21426 || TREE_CODE (expression) == AT_ENCODE_EXPR
21427 || TREE_CODE (expression) == NOEXCEPT_EXPR
21428 || TREE_CODE (expression) == TRAIT_EXPR
21429 || TREE_CODE (expression) == TYPEID_EXPR
21430 || TREE_CODE (expression) == DELETE_EXPR
21431 || TREE_CODE (expression) == VEC_DELETE_EXPR
21432 || TREE_CODE (expression) == THROW_EXPR)
21433 return false;
21435 /* The types of these expressions depends only on the type to which
21436 the cast occurs. */
21437 if (TREE_CODE (expression) == DYNAMIC_CAST_EXPR
21438 || TREE_CODE (expression) == STATIC_CAST_EXPR
21439 || TREE_CODE (expression) == CONST_CAST_EXPR
21440 || TREE_CODE (expression) == REINTERPRET_CAST_EXPR
21441 || TREE_CODE (expression) == IMPLICIT_CONV_EXPR
21442 || TREE_CODE (expression) == CAST_EXPR)
21443 return dependent_type_p (TREE_TYPE (expression));
21445 /* The types of these expressions depends only on the type created
21446 by the expression. */
21447 if (TREE_CODE (expression) == NEW_EXPR
21448 || TREE_CODE (expression) == VEC_NEW_EXPR)
21450 /* For NEW_EXPR tree nodes created inside a template, either
21451 the object type itself or a TREE_LIST may appear as the
21452 operand 1. */
21453 tree type = TREE_OPERAND (expression, 1);
21454 if (TREE_CODE (type) == TREE_LIST)
21455 /* This is an array type. We need to check array dimensions
21456 as well. */
21457 return dependent_type_p (TREE_VALUE (TREE_PURPOSE (type)))
21458 || value_dependent_expression_p
21459 (TREE_OPERAND (TREE_VALUE (type), 1));
21460 else
21461 return dependent_type_p (type);
21464 if (TREE_CODE (expression) == SCOPE_REF)
21466 tree scope = TREE_OPERAND (expression, 0);
21467 tree name = TREE_OPERAND (expression, 1);
21469 /* 14.6.2.2 [temp.dep.expr]: An id-expression is type-dependent if it
21470 contains an identifier associated by name lookup with one or more
21471 declarations declared with a dependent type, or...a
21472 nested-name-specifier or qualified-id that names a member of an
21473 unknown specialization. */
21474 return (type_dependent_expression_p (name)
21475 || dependent_scope_p (scope));
21478 if (TREE_CODE (expression) == FUNCTION_DECL
21479 && DECL_LANG_SPECIFIC (expression)
21480 && DECL_TEMPLATE_INFO (expression)
21481 && (any_dependent_template_arguments_p
21482 (INNERMOST_TEMPLATE_ARGS (DECL_TI_ARGS (expression)))))
21483 return true;
21485 if (TREE_CODE (expression) == TEMPLATE_DECL
21486 && !DECL_TEMPLATE_TEMPLATE_PARM_P (expression))
21487 return false;
21489 if (TREE_CODE (expression) == STMT_EXPR)
21490 expression = stmt_expr_value_expr (expression);
21492 if (BRACE_ENCLOSED_INITIALIZER_P (expression))
21494 tree elt;
21495 unsigned i;
21497 FOR_EACH_CONSTRUCTOR_VALUE (CONSTRUCTOR_ELTS (expression), i, elt)
21499 if (type_dependent_expression_p (elt))
21500 return true;
21502 return false;
21505 /* A static data member of the current instantiation with incomplete
21506 array type is type-dependent, as the definition and specializations
21507 can have different bounds. */
21508 if (VAR_P (expression)
21509 && DECL_CLASS_SCOPE_P (expression)
21510 && dependent_type_p (DECL_CONTEXT (expression))
21511 && VAR_HAD_UNKNOWN_BOUND (expression))
21512 return true;
21514 /* An array of unknown bound depending on a variadic parameter, eg:
21516 template<typename... Args>
21517 void foo (Args... args)
21519 int arr[] = { args... };
21522 template<int... vals>
21523 void bar ()
21525 int arr[] = { vals... };
21528 If the array has no length and has an initializer, it must be that
21529 we couldn't determine its length in cp_complete_array_type because
21530 it is dependent. */
21531 if (VAR_P (expression)
21532 && TREE_CODE (TREE_TYPE (expression)) == ARRAY_TYPE
21533 && !TYPE_DOMAIN (TREE_TYPE (expression))
21534 && DECL_INITIAL (expression))
21535 return true;
21537 /* A variable template specialization is type-dependent if it has any
21538 dependent template arguments. */
21539 if (VAR_P (expression)
21540 && DECL_LANG_SPECIFIC (expression)
21541 && DECL_TEMPLATE_INFO (expression)
21542 && variable_template_p (DECL_TI_TEMPLATE (expression)))
21543 return any_dependent_template_arguments_p (DECL_TI_ARGS (expression));
21545 /* Always dependent, on the number of arguments if nothing else. */
21546 if (TREE_CODE (expression) == EXPR_PACK_EXPANSION)
21547 return true;
21549 if (TREE_TYPE (expression) == unknown_type_node)
21551 if (TREE_CODE (expression) == ADDR_EXPR)
21552 return type_dependent_expression_p (TREE_OPERAND (expression, 0));
21553 if (TREE_CODE (expression) == COMPONENT_REF
21554 || TREE_CODE (expression) == OFFSET_REF)
21556 if (type_dependent_expression_p (TREE_OPERAND (expression, 0)))
21557 return true;
21558 expression = TREE_OPERAND (expression, 1);
21559 if (identifier_p (expression))
21560 return false;
21562 /* SCOPE_REF with non-null TREE_TYPE is always non-dependent. */
21563 if (TREE_CODE (expression) == SCOPE_REF)
21564 return false;
21566 if (BASELINK_P (expression))
21568 if (BASELINK_OPTYPE (expression)
21569 && dependent_type_p (BASELINK_OPTYPE (expression)))
21570 return true;
21571 expression = BASELINK_FUNCTIONS (expression);
21574 if (TREE_CODE (expression) == TEMPLATE_ID_EXPR)
21576 if (any_dependent_template_arguments_p
21577 (TREE_OPERAND (expression, 1)))
21578 return true;
21579 expression = TREE_OPERAND (expression, 0);
21581 gcc_assert (TREE_CODE (expression) == OVERLOAD
21582 || TREE_CODE (expression) == FUNCTION_DECL);
21584 while (expression)
21586 if (type_dependent_expression_p (OVL_CURRENT (expression)))
21587 return true;
21588 expression = OVL_NEXT (expression);
21590 return false;
21593 gcc_assert (TREE_CODE (expression) != TYPE_DECL);
21595 return (dependent_type_p (TREE_TYPE (expression)));
21598 /* walk_tree callback function for instantiation_dependent_expression_p,
21599 below. Returns non-zero if a dependent subexpression is found. */
21601 static tree
21602 instantiation_dependent_r (tree *tp, int *walk_subtrees,
21603 void * /*data*/)
21605 if (TYPE_P (*tp))
21607 /* We don't have to worry about decltype currently because decltype
21608 of an instantiation-dependent expr is a dependent type. This
21609 might change depending on the resolution of DR 1172. */
21610 *walk_subtrees = false;
21611 return NULL_TREE;
21613 enum tree_code code = TREE_CODE (*tp);
21614 switch (code)
21616 /* Don't treat an argument list as dependent just because it has no
21617 TREE_TYPE. */
21618 case TREE_LIST:
21619 case TREE_VEC:
21620 return NULL_TREE;
21622 case VAR_DECL:
21623 case CONST_DECL:
21624 /* A constant with a dependent initializer is dependent. */
21625 if (value_dependent_expression_p (*tp))
21626 return *tp;
21627 break;
21629 case TEMPLATE_PARM_INDEX:
21630 return *tp;
21632 /* Handle expressions with type operands. */
21633 case SIZEOF_EXPR:
21634 case ALIGNOF_EXPR:
21635 case TYPEID_EXPR:
21636 case AT_ENCODE_EXPR:
21638 tree op = TREE_OPERAND (*tp, 0);
21639 if (code == SIZEOF_EXPR && SIZEOF_EXPR_TYPE_P (*tp))
21640 op = TREE_TYPE (op);
21641 if (TYPE_P (op))
21643 if (dependent_type_p (op))
21644 return *tp;
21645 else
21647 *walk_subtrees = false;
21648 return NULL_TREE;
21651 break;
21654 case TRAIT_EXPR:
21655 if (dependent_type_p (TRAIT_EXPR_TYPE1 (*tp))
21656 || (TRAIT_EXPR_TYPE2 (*tp)
21657 && dependent_type_p (TRAIT_EXPR_TYPE2 (*tp))))
21658 return *tp;
21659 *walk_subtrees = false;
21660 return NULL_TREE;
21662 case COMPONENT_REF:
21663 if (identifier_p (TREE_OPERAND (*tp, 1)))
21664 /* In a template, finish_class_member_access_expr creates a
21665 COMPONENT_REF with an IDENTIFIER_NODE for op1 even if it isn't
21666 type-dependent, so that we can check access control at
21667 instantiation time (PR 42277). See also Core issue 1273. */
21668 return *tp;
21669 break;
21671 case SCOPE_REF:
21672 if (instantiation_dependent_scope_ref_p (*tp))
21673 return *tp;
21674 else
21675 break;
21677 /* Treat statement-expressions as dependent. */
21678 case BIND_EXPR:
21679 return *tp;
21681 default:
21682 break;
21685 if (type_dependent_expression_p (*tp))
21686 return *tp;
21687 else
21688 return NULL_TREE;
21691 /* Returns TRUE if the EXPRESSION is instantiation-dependent, in the
21692 sense defined by the ABI:
21694 "An expression is instantiation-dependent if it is type-dependent
21695 or value-dependent, or it has a subexpression that is type-dependent
21696 or value-dependent." */
21698 bool
21699 instantiation_dependent_expression_p (tree expression)
21701 tree result;
21703 if (!processing_template_decl)
21704 return false;
21706 if (expression == error_mark_node)
21707 return false;
21709 result = cp_walk_tree_without_duplicates (&expression,
21710 instantiation_dependent_r, NULL);
21711 return result != NULL_TREE;
21714 /* Like type_dependent_expression_p, but it also works while not processing
21715 a template definition, i.e. during substitution or mangling. */
21717 bool
21718 type_dependent_expression_p_push (tree expr)
21720 bool b;
21721 ++processing_template_decl;
21722 b = type_dependent_expression_p (expr);
21723 --processing_template_decl;
21724 return b;
21727 /* Returns TRUE if ARGS contains a type-dependent expression. */
21729 bool
21730 any_type_dependent_arguments_p (const vec<tree, va_gc> *args)
21732 unsigned int i;
21733 tree arg;
21735 FOR_EACH_VEC_SAFE_ELT (args, i, arg)
21737 if (type_dependent_expression_p (arg))
21738 return true;
21740 return false;
21743 /* Returns TRUE if LIST (a TREE_LIST whose TREE_VALUEs are
21744 expressions) contains any type-dependent expressions. */
21746 bool
21747 any_type_dependent_elements_p (const_tree list)
21749 for (; list; list = TREE_CHAIN (list))
21750 if (type_dependent_expression_p (TREE_VALUE (list)))
21751 return true;
21753 return false;
21756 /* Returns TRUE if LIST (a TREE_LIST whose TREE_VALUEs are
21757 expressions) contains any value-dependent expressions. */
21759 bool
21760 any_value_dependent_elements_p (const_tree list)
21762 for (; list; list = TREE_CHAIN (list))
21763 if (value_dependent_expression_p (TREE_VALUE (list)))
21764 return true;
21766 return false;
21769 /* Returns TRUE if the ARG (a template argument) is dependent. */
21771 bool
21772 dependent_template_arg_p (tree arg)
21774 if (!processing_template_decl)
21775 return false;
21777 /* Assume a template argument that was wrongly written by the user
21778 is dependent. This is consistent with what
21779 any_dependent_template_arguments_p [that calls this function]
21780 does. */
21781 if (!arg || arg == error_mark_node)
21782 return true;
21784 if (TREE_CODE (arg) == ARGUMENT_PACK_SELECT)
21785 arg = ARGUMENT_PACK_SELECT_ARG (arg);
21787 if (TREE_CODE (arg) == TEMPLATE_DECL
21788 || TREE_CODE (arg) == TEMPLATE_TEMPLATE_PARM)
21789 return dependent_template_p (arg);
21790 else if (ARGUMENT_PACK_P (arg))
21792 tree args = ARGUMENT_PACK_ARGS (arg);
21793 int i, len = TREE_VEC_LENGTH (args);
21794 for (i = 0; i < len; ++i)
21796 if (dependent_template_arg_p (TREE_VEC_ELT (args, i)))
21797 return true;
21800 return false;
21802 else if (TYPE_P (arg))
21803 return dependent_type_p (arg);
21804 else
21805 return (type_dependent_expression_p (arg)
21806 || value_dependent_expression_p (arg));
21809 /* Returns true if ARGS (a collection of template arguments) contains
21810 any types that require structural equality testing. */
21812 bool
21813 any_template_arguments_need_structural_equality_p (tree args)
21815 int i;
21816 int j;
21818 if (!args)
21819 return false;
21820 if (args == error_mark_node)
21821 return true;
21823 for (i = 0; i < TMPL_ARGS_DEPTH (args); ++i)
21825 tree level = TMPL_ARGS_LEVEL (args, i + 1);
21826 for (j = 0; j < TREE_VEC_LENGTH (level); ++j)
21828 tree arg = TREE_VEC_ELT (level, j);
21829 tree packed_args = NULL_TREE;
21830 int k, len = 1;
21832 if (ARGUMENT_PACK_P (arg))
21834 /* Look inside the argument pack. */
21835 packed_args = ARGUMENT_PACK_ARGS (arg);
21836 len = TREE_VEC_LENGTH (packed_args);
21839 for (k = 0; k < len; ++k)
21841 if (packed_args)
21842 arg = TREE_VEC_ELT (packed_args, k);
21844 if (error_operand_p (arg))
21845 return true;
21846 else if (TREE_CODE (arg) == TEMPLATE_DECL)
21847 continue;
21848 else if (TYPE_P (arg) && TYPE_STRUCTURAL_EQUALITY_P (arg))
21849 return true;
21850 else if (!TYPE_P (arg) && TREE_TYPE (arg)
21851 && TYPE_STRUCTURAL_EQUALITY_P (TREE_TYPE (arg)))
21852 return true;
21857 return false;
21860 /* Returns true if ARGS (a collection of template arguments) contains
21861 any dependent arguments. */
21863 bool
21864 any_dependent_template_arguments_p (const_tree args)
21866 int i;
21867 int j;
21869 if (!args)
21870 return false;
21871 if (args == error_mark_node)
21872 return true;
21874 for (i = 0; i < TMPL_ARGS_DEPTH (args); ++i)
21876 const_tree level = TMPL_ARGS_LEVEL (args, i + 1);
21877 for (j = 0; j < TREE_VEC_LENGTH (level); ++j)
21878 if (dependent_template_arg_p (TREE_VEC_ELT (level, j)))
21879 return true;
21882 return false;
21885 /* Returns TRUE if the template TMPL is dependent. */
21887 bool
21888 dependent_template_p (tree tmpl)
21890 if (TREE_CODE (tmpl) == OVERLOAD)
21892 while (tmpl)
21894 if (dependent_template_p (OVL_CURRENT (tmpl)))
21895 return true;
21896 tmpl = OVL_NEXT (tmpl);
21898 return false;
21901 /* Template template parameters are dependent. */
21902 if (DECL_TEMPLATE_TEMPLATE_PARM_P (tmpl)
21903 || TREE_CODE (tmpl) == TEMPLATE_TEMPLATE_PARM)
21904 return true;
21905 /* So are names that have not been looked up. */
21906 if (TREE_CODE (tmpl) == SCOPE_REF || identifier_p (tmpl))
21907 return true;
21908 /* So are member templates of dependent classes. */
21909 if (TYPE_P (CP_DECL_CONTEXT (tmpl)))
21910 return dependent_type_p (DECL_CONTEXT (tmpl));
21911 return false;
21914 /* Returns TRUE if the specialization TMPL<ARGS> is dependent. */
21916 bool
21917 dependent_template_id_p (tree tmpl, tree args)
21919 return (dependent_template_p (tmpl)
21920 || any_dependent_template_arguments_p (args));
21923 /* Returns TRUE if OMP_FOR with DECLV, INITV, CONDV and INCRV vectors
21924 is dependent. */
21926 bool
21927 dependent_omp_for_p (tree declv, tree initv, tree condv, tree incrv)
21929 int i;
21931 if (!processing_template_decl)
21932 return false;
21934 for (i = 0; i < TREE_VEC_LENGTH (declv); i++)
21936 tree decl = TREE_VEC_ELT (declv, i);
21937 tree init = TREE_VEC_ELT (initv, i);
21938 tree cond = TREE_VEC_ELT (condv, i);
21939 tree incr = TREE_VEC_ELT (incrv, i);
21941 if (type_dependent_expression_p (decl))
21942 return true;
21944 if (init && type_dependent_expression_p (init))
21945 return true;
21947 if (type_dependent_expression_p (cond))
21948 return true;
21950 if (COMPARISON_CLASS_P (cond)
21951 && (type_dependent_expression_p (TREE_OPERAND (cond, 0))
21952 || type_dependent_expression_p (TREE_OPERAND (cond, 1))))
21953 return true;
21955 if (TREE_CODE (incr) == MODOP_EXPR)
21957 if (type_dependent_expression_p (TREE_OPERAND (incr, 0))
21958 || type_dependent_expression_p (TREE_OPERAND (incr, 2)))
21959 return true;
21961 else if (type_dependent_expression_p (incr))
21962 return true;
21963 else if (TREE_CODE (incr) == MODIFY_EXPR)
21965 if (type_dependent_expression_p (TREE_OPERAND (incr, 0)))
21966 return true;
21967 else if (BINARY_CLASS_P (TREE_OPERAND (incr, 1)))
21969 tree t = TREE_OPERAND (incr, 1);
21970 if (type_dependent_expression_p (TREE_OPERAND (t, 0))
21971 || type_dependent_expression_p (TREE_OPERAND (t, 1)))
21972 return true;
21977 return false;
21980 /* TYPE is a TYPENAME_TYPE. Returns the ordinary TYPE to which the
21981 TYPENAME_TYPE corresponds. Returns the original TYPENAME_TYPE if
21982 no such TYPE can be found. Note that this function peers inside
21983 uninstantiated templates and therefore should be used only in
21984 extremely limited situations. ONLY_CURRENT_P restricts this
21985 peering to the currently open classes hierarchy (which is required
21986 when comparing types). */
21988 tree
21989 resolve_typename_type (tree type, bool only_current_p)
21991 tree scope;
21992 tree name;
21993 tree decl;
21994 int quals;
21995 tree pushed_scope;
21996 tree result;
21998 gcc_assert (TREE_CODE (type) == TYPENAME_TYPE);
22000 scope = TYPE_CONTEXT (type);
22001 /* Usually the non-qualified identifier of a TYPENAME_TYPE is
22002 TYPE_IDENTIFIER (type). But when 'type' is a typedef variant of
22003 a TYPENAME_TYPE node, then TYPE_NAME (type) is set to the TYPE_DECL representing
22004 the typedef. In that case TYPE_IDENTIFIER (type) is not the non-qualified
22005 identifier of the TYPENAME_TYPE anymore.
22006 So by getting the TYPE_IDENTIFIER of the _main declaration_ of the
22007 TYPENAME_TYPE instead, we avoid messing up with a possible
22008 typedef variant case. */
22009 name = TYPE_IDENTIFIER (TYPE_MAIN_VARIANT (type));
22011 /* If the SCOPE is itself a TYPENAME_TYPE, then we need to resolve
22012 it first before we can figure out what NAME refers to. */
22013 if (TREE_CODE (scope) == TYPENAME_TYPE)
22015 if (TYPENAME_IS_RESOLVING_P (scope))
22016 /* Given a class template A with a dependent base with nested type C,
22017 typedef typename A::C::C C will land us here, as trying to resolve
22018 the initial A::C leads to the local C typedef, which leads back to
22019 A::C::C. So we break the recursion now. */
22020 return type;
22021 else
22022 scope = resolve_typename_type (scope, only_current_p);
22024 /* If we don't know what SCOPE refers to, then we cannot resolve the
22025 TYPENAME_TYPE. */
22026 if (TREE_CODE (scope) == TYPENAME_TYPE)
22027 return type;
22028 /* If the SCOPE is a template type parameter, we have no way of
22029 resolving the name. */
22030 if (TREE_CODE (scope) == TEMPLATE_TYPE_PARM)
22031 return type;
22032 /* If the SCOPE is not the current instantiation, there's no reason
22033 to look inside it. */
22034 if (only_current_p && !currently_open_class (scope))
22035 return type;
22036 /* If this is a typedef, we don't want to look inside (c++/11987). */
22037 if (typedef_variant_p (type))
22038 return type;
22039 /* If SCOPE isn't the template itself, it will not have a valid
22040 TYPE_FIELDS list. */
22041 if (same_type_p (scope, CLASSTYPE_PRIMARY_TEMPLATE_TYPE (scope)))
22042 /* scope is either the template itself or a compatible instantiation
22043 like X<T>, so look up the name in the original template. */
22044 scope = CLASSTYPE_PRIMARY_TEMPLATE_TYPE (scope);
22045 else
22046 /* scope is a partial instantiation, so we can't do the lookup or we
22047 will lose the template arguments. */
22048 return type;
22049 /* Enter the SCOPE so that name lookup will be resolved as if we
22050 were in the class definition. In particular, SCOPE will no
22051 longer be considered a dependent type. */
22052 pushed_scope = push_scope (scope);
22053 /* Look up the declaration. */
22054 decl = lookup_member (scope, name, /*protect=*/0, /*want_type=*/true,
22055 tf_warning_or_error);
22057 result = NULL_TREE;
22059 /* For a TYPENAME_TYPE like "typename X::template Y<T>", we want to
22060 find a TEMPLATE_DECL. Otherwise, we want to find a TYPE_DECL. */
22061 if (!decl)
22062 /*nop*/;
22063 else if (identifier_p (TYPENAME_TYPE_FULLNAME (type))
22064 && TREE_CODE (decl) == TYPE_DECL)
22066 result = TREE_TYPE (decl);
22067 if (result == error_mark_node)
22068 result = NULL_TREE;
22070 else if (TREE_CODE (TYPENAME_TYPE_FULLNAME (type)) == TEMPLATE_ID_EXPR
22071 && DECL_CLASS_TEMPLATE_P (decl))
22073 tree tmpl;
22074 tree args;
22075 /* Obtain the template and the arguments. */
22076 tmpl = TREE_OPERAND (TYPENAME_TYPE_FULLNAME (type), 0);
22077 args = TREE_OPERAND (TYPENAME_TYPE_FULLNAME (type), 1);
22078 /* Instantiate the template. */
22079 result = lookup_template_class (tmpl, args, NULL_TREE, NULL_TREE,
22080 /*entering_scope=*/0,
22081 tf_error | tf_user);
22082 if (result == error_mark_node)
22083 result = NULL_TREE;
22086 /* Leave the SCOPE. */
22087 if (pushed_scope)
22088 pop_scope (pushed_scope);
22090 /* If we failed to resolve it, return the original typename. */
22091 if (!result)
22092 return type;
22094 /* If lookup found a typename type, resolve that too. */
22095 if (TREE_CODE (result) == TYPENAME_TYPE && !TYPENAME_IS_RESOLVING_P (result))
22097 /* Ill-formed programs can cause infinite recursion here, so we
22098 must catch that. */
22099 TYPENAME_IS_RESOLVING_P (type) = 1;
22100 result = resolve_typename_type (result, only_current_p);
22101 TYPENAME_IS_RESOLVING_P (type) = 0;
22104 /* Qualify the resulting type. */
22105 quals = cp_type_quals (type);
22106 if (quals)
22107 result = cp_build_qualified_type (result, cp_type_quals (result) | quals);
22109 return result;
22112 /* EXPR is an expression which is not type-dependent. Return a proxy
22113 for EXPR that can be used to compute the types of larger
22114 expressions containing EXPR. */
22116 tree
22117 build_non_dependent_expr (tree expr)
22119 tree inner_expr;
22121 #ifdef ENABLE_CHECKING
22122 /* Try to get a constant value for all non-dependent expressions in
22123 order to expose bugs in *_dependent_expression_p and constexpr. */
22124 if (cxx_dialect >= cxx11)
22125 fold_non_dependent_expr (expr);
22126 #endif
22128 /* Preserve OVERLOADs; the functions must be available to resolve
22129 types. */
22130 inner_expr = expr;
22131 if (TREE_CODE (inner_expr) == STMT_EXPR)
22132 inner_expr = stmt_expr_value_expr (inner_expr);
22133 if (TREE_CODE (inner_expr) == ADDR_EXPR)
22134 inner_expr = TREE_OPERAND (inner_expr, 0);
22135 if (TREE_CODE (inner_expr) == COMPONENT_REF)
22136 inner_expr = TREE_OPERAND (inner_expr, 1);
22137 if (is_overloaded_fn (inner_expr)
22138 || TREE_CODE (inner_expr) == OFFSET_REF)
22139 return expr;
22140 /* There is no need to return a proxy for a variable. */
22141 if (VAR_P (expr))
22142 return expr;
22143 /* Preserve string constants; conversions from string constants to
22144 "char *" are allowed, even though normally a "const char *"
22145 cannot be used to initialize a "char *". */
22146 if (TREE_CODE (expr) == STRING_CST)
22147 return expr;
22148 /* Preserve void and arithmetic constants, as an optimization -- there is no
22149 reason to create a new node. */
22150 if (TREE_CODE (expr) == VOID_CST
22151 || TREE_CODE (expr) == INTEGER_CST
22152 || TREE_CODE (expr) == REAL_CST)
22153 return expr;
22154 /* Preserve THROW_EXPRs -- all throw-expressions have type "void".
22155 There is at least one place where we want to know that a
22156 particular expression is a throw-expression: when checking a ?:
22157 expression, there are special rules if the second or third
22158 argument is a throw-expression. */
22159 if (TREE_CODE (expr) == THROW_EXPR)
22160 return expr;
22162 /* Don't wrap an initializer list, we need to be able to look inside. */
22163 if (BRACE_ENCLOSED_INITIALIZER_P (expr))
22164 return expr;
22166 /* Don't wrap a dummy object, we need to be able to test for it. */
22167 if (is_dummy_object (expr))
22168 return expr;
22170 if (TREE_CODE (expr) == COND_EXPR)
22171 return build3 (COND_EXPR,
22172 TREE_TYPE (expr),
22173 TREE_OPERAND (expr, 0),
22174 (TREE_OPERAND (expr, 1)
22175 ? build_non_dependent_expr (TREE_OPERAND (expr, 1))
22176 : build_non_dependent_expr (TREE_OPERAND (expr, 0))),
22177 build_non_dependent_expr (TREE_OPERAND (expr, 2)));
22178 if (TREE_CODE (expr) == COMPOUND_EXPR
22179 && !COMPOUND_EXPR_OVERLOADED (expr))
22180 return build2 (COMPOUND_EXPR,
22181 TREE_TYPE (expr),
22182 TREE_OPERAND (expr, 0),
22183 build_non_dependent_expr (TREE_OPERAND (expr, 1)));
22185 /* If the type is unknown, it can't really be non-dependent */
22186 gcc_assert (TREE_TYPE (expr) != unknown_type_node);
22188 /* Otherwise, build a NON_DEPENDENT_EXPR. */
22189 return build1 (NON_DEPENDENT_EXPR, TREE_TYPE (expr), expr);
22192 /* ARGS is a vector of expressions as arguments to a function call.
22193 Replace the arguments with equivalent non-dependent expressions.
22194 This modifies ARGS in place. */
22196 void
22197 make_args_non_dependent (vec<tree, va_gc> *args)
22199 unsigned int ix;
22200 tree arg;
22202 FOR_EACH_VEC_SAFE_ELT (args, ix, arg)
22204 tree newarg = build_non_dependent_expr (arg);
22205 if (newarg != arg)
22206 (*args)[ix] = newarg;
22210 /* Returns a type which represents 'auto' or 'decltype(auto)'. We use a
22211 TEMPLATE_TYPE_PARM with a level one deeper than the actual template
22212 parms. */
22214 static tree
22215 make_auto_1 (tree name)
22217 tree au = cxx_make_type (TEMPLATE_TYPE_PARM);
22218 TYPE_NAME (au) = build_decl (input_location,
22219 TYPE_DECL, name, au);
22220 TYPE_STUB_DECL (au) = TYPE_NAME (au);
22221 TEMPLATE_TYPE_PARM_INDEX (au) = build_template_parm_index
22222 (0, processing_template_decl + 1, processing_template_decl + 1,
22223 TYPE_NAME (au), NULL_TREE);
22224 TYPE_CANONICAL (au) = canonical_type_parameter (au);
22225 DECL_ARTIFICIAL (TYPE_NAME (au)) = 1;
22226 SET_DECL_TEMPLATE_PARM_P (TYPE_NAME (au));
22228 return au;
22231 tree
22232 make_decltype_auto (void)
22234 return make_auto_1 (get_identifier ("decltype(auto)"));
22237 tree
22238 make_auto (void)
22240 return make_auto_1 (get_identifier ("auto"));
22243 /* Given type ARG, return std::initializer_list<ARG>. */
22245 static tree
22246 listify (tree arg)
22248 tree std_init_list = namespace_binding
22249 (get_identifier ("initializer_list"), std_node);
22250 tree argvec;
22251 if (!std_init_list || !DECL_CLASS_TEMPLATE_P (std_init_list))
22253 error ("deducing from brace-enclosed initializer list requires "
22254 "#include <initializer_list>");
22255 return error_mark_node;
22257 argvec = make_tree_vec (1);
22258 TREE_VEC_ELT (argvec, 0) = arg;
22259 return lookup_template_class (std_init_list, argvec, NULL_TREE,
22260 NULL_TREE, 0, tf_warning_or_error);
22263 /* Replace auto in TYPE with std::initializer_list<auto>. */
22265 static tree
22266 listify_autos (tree type, tree auto_node)
22268 tree init_auto = listify (auto_node);
22269 tree argvec = make_tree_vec (1);
22270 TREE_VEC_ELT (argvec, 0) = init_auto;
22271 if (processing_template_decl)
22272 argvec = add_to_template_args (current_template_args (), argvec);
22273 return tsubst (type, argvec, tf_warning_or_error, NULL_TREE);
22276 /* Replace occurrences of 'auto' in TYPE with the appropriate type deduced
22277 from INIT. AUTO_NODE is the TEMPLATE_TYPE_PARM used for 'auto' in TYPE. */
22279 tree
22280 do_auto_deduction (tree type, tree init, tree auto_node)
22282 tree targs;
22284 if (init == error_mark_node)
22285 return error_mark_node;
22287 if (type_dependent_expression_p (init))
22288 /* Defining a subset of type-dependent expressions that we can deduce
22289 from ahead of time isn't worth the trouble. */
22290 return type;
22292 /* [dcl.spec.auto]: Obtain P from T by replacing the occurrences of auto
22293 with either a new invented type template parameter U or, if the
22294 initializer is a braced-init-list (8.5.4), with
22295 std::initializer_list<U>. */
22296 if (BRACE_ENCLOSED_INITIALIZER_P (init))
22298 if (!DIRECT_LIST_INIT_P (init))
22299 type = listify_autos (type, auto_node);
22300 else if (CONSTRUCTOR_NELTS (init) == 1)
22301 init = CONSTRUCTOR_ELT (init, 0)->value;
22302 else
22304 if (permerror (input_location, "direct-list-initialization of "
22305 "%<auto%> requires exactly one element"))
22306 inform (input_location,
22307 "for deduction to %<std::initializer_list%>, use copy-"
22308 "list-initialization (i.e. add %<=%> before the %<{%>)");
22309 type = listify_autos (type, auto_node);
22313 init = resolve_nondeduced_context (init);
22315 targs = make_tree_vec (1);
22316 if (AUTO_IS_DECLTYPE (auto_node))
22318 bool id = (DECL_P (init) || (TREE_CODE (init) == COMPONENT_REF
22319 && !REF_PARENTHESIZED_P (init)));
22320 TREE_VEC_ELT (targs, 0)
22321 = finish_decltype_type (init, id, tf_warning_or_error);
22322 if (type != auto_node)
22324 error ("%qT as type rather than plain %<decltype(auto)%>", type);
22325 return error_mark_node;
22328 else
22330 tree parms = build_tree_list (NULL_TREE, type);
22331 tree tparms = make_tree_vec (1);
22332 int val;
22334 TREE_VEC_ELT (tparms, 0)
22335 = build_tree_list (NULL_TREE, TYPE_NAME (auto_node));
22336 val = type_unification_real (tparms, targs, parms, &init, 1, 0,
22337 DEDUCE_CALL, LOOKUP_NORMAL,
22338 NULL, /*explain_p=*/false);
22339 if (val > 0)
22341 if (processing_template_decl)
22342 /* Try again at instantiation time. */
22343 return type;
22344 if (type && type != error_mark_node)
22345 /* If type is error_mark_node a diagnostic must have been
22346 emitted by now. Also, having a mention to '<type error>'
22347 in the diagnostic is not really useful to the user. */
22349 if (cfun && auto_node == current_function_auto_return_pattern
22350 && LAMBDA_FUNCTION_P (current_function_decl))
22351 error ("unable to deduce lambda return type from %qE", init);
22352 else
22353 error ("unable to deduce %qT from %qE", type, init);
22355 return error_mark_node;
22359 /* If the list of declarators contains more than one declarator, the type
22360 of each declared variable is determined as described above. If the
22361 type deduced for the template parameter U is not the same in each
22362 deduction, the program is ill-formed. */
22363 if (TREE_TYPE (auto_node)
22364 && !same_type_p (TREE_TYPE (auto_node), TREE_VEC_ELT (targs, 0)))
22366 if (cfun && auto_node == current_function_auto_return_pattern
22367 && LAMBDA_FUNCTION_P (current_function_decl))
22368 error ("inconsistent types %qT and %qT deduced for "
22369 "lambda return type", TREE_TYPE (auto_node),
22370 TREE_VEC_ELT (targs, 0));
22371 else
22372 error ("inconsistent deduction for %qT: %qT and then %qT",
22373 auto_node, TREE_TYPE (auto_node), TREE_VEC_ELT (targs, 0));
22374 return error_mark_node;
22376 TREE_TYPE (auto_node) = TREE_VEC_ELT (targs, 0);
22378 if (processing_template_decl)
22379 targs = add_to_template_args (current_template_args (), targs);
22380 return tsubst (type, targs, tf_warning_or_error, NULL_TREE);
22383 /* Substitutes LATE_RETURN_TYPE for 'auto' in TYPE and returns the
22384 result. */
22386 tree
22387 splice_late_return_type (tree type, tree late_return_type)
22389 tree argvec;
22391 if (late_return_type == NULL_TREE)
22392 return type;
22393 argvec = make_tree_vec (1);
22394 TREE_VEC_ELT (argvec, 0) = late_return_type;
22395 if (processing_template_parmlist)
22396 /* For a late-specified return type in a template type-parameter, we
22397 need to add a dummy argument level for its parmlist. */
22398 argvec = add_to_template_args
22399 (make_tree_vec (processing_template_parmlist), argvec);
22400 if (current_template_parms)
22401 argvec = add_to_template_args (current_template_args (), argvec);
22402 return tsubst (type, argvec, tf_warning_or_error, NULL_TREE);
22405 /* Returns true iff TYPE is a TEMPLATE_TYPE_PARM representing 'auto' or
22406 'decltype(auto)'. */
22408 bool
22409 is_auto (const_tree type)
22411 if (TREE_CODE (type) == TEMPLATE_TYPE_PARM
22412 && (TYPE_IDENTIFIER (type) == get_identifier ("auto")
22413 || TYPE_IDENTIFIER (type) == get_identifier ("decltype(auto)")))
22414 return true;
22415 else
22416 return false;
22419 /* Returns the TEMPLATE_TYPE_PARM in TYPE representing `auto' iff TYPE contains
22420 a use of `auto'. Returns NULL_TREE otherwise. */
22422 tree
22423 type_uses_auto (tree type)
22425 return find_type_usage (type, is_auto);
22428 /* Returns true iff TYPE is a TEMPLATE_TYPE_PARM representing 'auto',
22429 'decltype(auto)' or a concept. */
22431 bool
22432 is_auto_or_concept (const_tree type)
22434 return is_auto (type); // or concept
22437 /* Returns the TEMPLATE_TYPE_PARM in TYPE representing a generic type (`auto' or
22438 a concept identifier) iff TYPE contains a use of a generic type. Returns
22439 NULL_TREE otherwise. */
22441 tree
22442 type_uses_auto_or_concept (tree type)
22444 return find_type_usage (type, is_auto_or_concept);
22448 /* For a given template T, return the vector of typedefs referenced
22449 in T for which access check is needed at T instantiation time.
22450 T is either a FUNCTION_DECL or a RECORD_TYPE.
22451 Those typedefs were added to T by the function
22452 append_type_to_template_for_access_check. */
22454 vec<qualified_typedef_usage_t, va_gc> *
22455 get_types_needing_access_check (tree t)
22457 tree ti;
22458 vec<qualified_typedef_usage_t, va_gc> *result = NULL;
22460 if (!t || t == error_mark_node)
22461 return NULL;
22463 if (!(ti = get_template_info (t)))
22464 return NULL;
22466 if (CLASS_TYPE_P (t)
22467 || TREE_CODE (t) == FUNCTION_DECL)
22469 if (!TI_TEMPLATE (ti))
22470 return NULL;
22472 result = TI_TYPEDEFS_NEEDING_ACCESS_CHECKING (ti);
22475 return result;
22478 /* Append the typedef TYPE_DECL used in template T to a list of typedefs
22479 tied to T. That list of typedefs will be access checked at
22480 T instantiation time.
22481 T is either a FUNCTION_DECL or a RECORD_TYPE.
22482 TYPE_DECL is a TYPE_DECL node representing a typedef.
22483 SCOPE is the scope through which TYPE_DECL is accessed.
22484 LOCATION is the location of the usage point of TYPE_DECL.
22486 This function is a subroutine of
22487 append_type_to_template_for_access_check. */
22489 static void
22490 append_type_to_template_for_access_check_1 (tree t,
22491 tree type_decl,
22492 tree scope,
22493 location_t location)
22495 qualified_typedef_usage_t typedef_usage;
22496 tree ti;
22498 if (!t || t == error_mark_node)
22499 return;
22501 gcc_assert ((TREE_CODE (t) == FUNCTION_DECL
22502 || CLASS_TYPE_P (t))
22503 && type_decl
22504 && TREE_CODE (type_decl) == TYPE_DECL
22505 && scope);
22507 if (!(ti = get_template_info (t)))
22508 return;
22510 gcc_assert (TI_TEMPLATE (ti));
22512 typedef_usage.typedef_decl = type_decl;
22513 typedef_usage.context = scope;
22514 typedef_usage.locus = location;
22516 vec_safe_push (TI_TYPEDEFS_NEEDING_ACCESS_CHECKING (ti), typedef_usage);
22519 /* Append TYPE_DECL to the template TEMPL.
22520 TEMPL is either a class type, a FUNCTION_DECL or a a TEMPLATE_DECL.
22521 At TEMPL instanciation time, TYPE_DECL will be checked to see
22522 if it can be accessed through SCOPE.
22523 LOCATION is the location of the usage point of TYPE_DECL.
22525 e.g. consider the following code snippet:
22527 class C
22529 typedef int myint;
22532 template<class U> struct S
22534 C::myint mi; // <-- usage point of the typedef C::myint
22537 S<char> s;
22539 At S<char> instantiation time, we need to check the access of C::myint
22540 In other words, we need to check the access of the myint typedef through
22541 the C scope. For that purpose, this function will add the myint typedef
22542 and the scope C through which its being accessed to a list of typedefs
22543 tied to the template S. That list will be walked at template instantiation
22544 time and access check performed on each typedefs it contains.
22545 Note that this particular code snippet should yield an error because
22546 myint is private to C. */
22548 void
22549 append_type_to_template_for_access_check (tree templ,
22550 tree type_decl,
22551 tree scope,
22552 location_t location)
22554 qualified_typedef_usage_t *iter;
22555 unsigned i;
22557 gcc_assert (type_decl && (TREE_CODE (type_decl) == TYPE_DECL));
22559 /* Make sure we don't append the type to the template twice. */
22560 FOR_EACH_VEC_SAFE_ELT (get_types_needing_access_check (templ), i, iter)
22561 if (iter->typedef_decl == type_decl && scope == iter->context)
22562 return;
22564 append_type_to_template_for_access_check_1 (templ, type_decl,
22565 scope, location);
22568 /* Convert the generic type parameters in PARM that match the types given in the
22569 range [START_IDX, END_IDX) from the current_template_parms into generic type
22570 packs. */
22572 tree
22573 convert_generic_types_to_packs (tree parm, int start_idx, int end_idx)
22575 tree current = current_template_parms;
22576 int depth = TMPL_PARMS_DEPTH (current);
22577 current = INNERMOST_TEMPLATE_PARMS (current);
22578 tree replacement = make_tree_vec (TREE_VEC_LENGTH (current));
22580 for (int i = 0; i < start_idx; ++i)
22581 TREE_VEC_ELT (replacement, i)
22582 = TREE_TYPE (TREE_VALUE (TREE_VEC_ELT (current, i)));
22584 for (int i = start_idx; i < end_idx; ++i)
22586 /* Create a distinct parameter pack type from the current parm and add it
22587 to the replacement args to tsubst below into the generic function
22588 parameter. */
22590 tree o = TREE_TYPE (TREE_VALUE
22591 (TREE_VEC_ELT (current, i)));
22592 tree t = copy_type (o);
22593 TEMPLATE_TYPE_PARM_INDEX (t)
22594 = reduce_template_parm_level (TEMPLATE_TYPE_PARM_INDEX (o),
22595 o, 0, 0, tf_none);
22596 TREE_TYPE (TEMPLATE_TYPE_DECL (t)) = t;
22597 TYPE_STUB_DECL (t) = TYPE_NAME (t) = TEMPLATE_TYPE_DECL (t);
22598 TYPE_MAIN_VARIANT (t) = t;
22599 TEMPLATE_TYPE_PARAMETER_PACK (t) = true;
22600 TYPE_CANONICAL (t) = canonical_type_parameter (t);
22601 TREE_VEC_ELT (replacement, i) = t;
22602 TREE_VALUE (TREE_VEC_ELT (current, i)) = TREE_CHAIN (t);
22605 for (int i = end_idx, e = TREE_VEC_LENGTH (current); i < e; ++i)
22606 TREE_VEC_ELT (replacement, i)
22607 = TREE_TYPE (TREE_VALUE (TREE_VEC_ELT (current, i)));
22609 /* If there are more levels then build up the replacement with the outer
22610 template parms. */
22611 if (depth > 1)
22612 replacement = add_to_template_args (template_parms_to_args
22613 (TREE_CHAIN (current_template_parms)),
22614 replacement);
22616 return tsubst (parm, replacement, tf_none, NULL_TREE);
22620 /* Set up the hash tables for template instantiations. */
22622 void
22623 init_template_processing (void)
22625 decl_specializations = hash_table<spec_hasher>::create_ggc (37);
22626 type_specializations = hash_table<spec_hasher>::create_ggc (37);
22629 /* Print stats about the template hash tables for -fstats. */
22631 void
22632 print_template_statistics (void)
22634 fprintf (stderr, "decl_specializations: size %ld, %ld elements, "
22635 "%f collisions\n", (long) decl_specializations->size (),
22636 (long) decl_specializations->elements (),
22637 decl_specializations->collisions ());
22638 fprintf (stderr, "type_specializations: size %ld, %ld elements, "
22639 "%f collisions\n", (long) type_specializations->size (),
22640 (long) type_specializations->elements (),
22641 type_specializations->collisions ());
22644 #include "gt-cp-pt.h"