1 /* Handle parameterized types (templates) for GNU C++.
2 Copyright (C) 1992, 93, 94, 95, 1996 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 GNU CC.
8 GNU CC 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 2, or (at your option)
13 GNU CC 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 GNU CC; see the file COPYING. If not, write to
20 the Free Software Foundation, 59 Temple Place - Suite 330,
21 Boston, MA 02111-1307, USA. */
23 /* Known bugs or deficiencies include:
24 * templates for class static data don't work (methods only)
25 * duplicated method templates can crash the compiler
26 * interface/impl data is taken from file defining the template
27 * all methods must be provided in header files; can't use a source
28 file that contains only the method templates and "just win"
44 extern struct obstack permanent_obstack
;
47 extern char *input_filename
;
48 struct pending_inline
*pending_template_expansions
;
50 tree current_template_parms
;
51 HOST_WIDE_INT processing_template_decl
;
53 tree pending_templates
;
54 static tree
*template_tail
= &pending_templates
;
56 int minimal_parse_mode
;
58 #define obstack_chunk_alloc xmalloc
59 #define obstack_chunk_free free
63 void pop_template_decls ();
65 tree
classtype_mangled_name ();
66 static char * mangle_class_name_for_template ();
67 tree
tsubst_expr_values ();
69 /* We've got a template header coming up; push to a new level for storing
73 begin_template_parm_list ()
76 declare_pseudo_global_level ();
79 /* Process information from new template parameter NEXT and append it to the
82 process_template_parm (list
, next
)
90 my_friendly_assert (TREE_CODE (parm
) == TREE_LIST
, 259);
91 defval
= TREE_PURPOSE (parm
);
92 parm
= TREE_VALUE (parm
);
93 is_type
= TREE_PURPOSE (parm
) == class_type_node
;
97 tree p
= TREE_VALUE (tree_last (list
));
99 if (TREE_CODE (p
) == TYPE_DECL
)
100 idx
= TEMPLATE_TYPE_IDX (TREE_TYPE (p
));
102 idx
= TEMPLATE_CONST_IDX (DECL_INITIAL (p
));
111 my_friendly_assert (TREE_CODE (TREE_PURPOSE (parm
)) == TREE_LIST
, 260);
112 /* is a const-param */
113 parm
= grokdeclarator (TREE_VALUE (parm
), TREE_PURPOSE (parm
),
114 PARM
, 0, NULL_TREE
, NULL_TREE
);
115 /* A template parameter is not modifiable. */
116 TREE_READONLY (parm
) = 1;
117 if (IS_AGGR_TYPE (TREE_TYPE (parm
))
118 && TREE_CODE (TREE_TYPE (parm
)) != TEMPLATE_TYPE_PARM
)
120 cp_error ("`%#T' is not a valid type for a template constant parameter",
122 if (DECL_NAME (parm
) == NULL_TREE
)
123 error (" a template type parameter must begin with `class' or `typename'");
124 TREE_TYPE (parm
) = void_type_node
;
126 tinfo
= make_node (TEMPLATE_CONST_PARM
);
127 my_friendly_assert (TREE_PERMANENT (tinfo
), 260.5);
128 if (TREE_PERMANENT (parm
) == 0)
130 parm
= copy_node (parm
);
131 TREE_PERMANENT (parm
) = 1;
133 TREE_TYPE (tinfo
) = TREE_TYPE (parm
);
134 decl
= build_decl (CONST_DECL
, DECL_NAME (parm
), TREE_TYPE (parm
));
135 DECL_INITIAL (decl
) = tinfo
;
136 DECL_INITIAL (parm
) = tinfo
;
137 TEMPLATE_CONST_SET_INFO (tinfo
, idx
, processing_template_decl
+ 1);
141 tree t
= make_lang_type (TEMPLATE_TYPE_PARM
);
142 CLASSTYPE_GOT_SEMICOLON (t
) = 1;
143 decl
= build_decl (TYPE_DECL
, TREE_VALUE (parm
), t
);
144 TYPE_MAIN_DECL (t
) = decl
;
146 TEMPLATE_TYPE_SET_INFO (t
, idx
, processing_template_decl
+ 1);
148 SET_DECL_ARTIFICIAL (decl
);
150 parm
= build_tree_list (defval
, parm
);
151 return chainon (list
, parm
);
154 /* The end of a template parameter list has been reached. Process the
155 tree list into a parameter vector, converting each parameter into a more
156 useful form. Type parameters are saved as IDENTIFIER_NODEs, and others
160 end_template_parm_list (parms
)
165 tree saved_parmlist
= make_tree_vec (list_length (parms
));
167 ++processing_template_decl
;
168 current_template_parms
169 = tree_cons (build_int_2 (0, processing_template_decl
),
170 saved_parmlist
, current_template_parms
);
172 for (parm
= parms
, nparms
= 0; parm
; parm
= TREE_CHAIN (parm
), nparms
++)
173 TREE_VEC_ELT (saved_parmlist
, nparms
) = parm
;
175 return saved_parmlist
;
178 /* end_template_decl is called after a template declaration is seen. */
183 /* This matches the pushlevel in begin_template_parm_list. */
186 --processing_template_decl
;
187 current_template_parms
= TREE_CHAIN (current_template_parms
);
188 (void) get_pending_sizes (); /* Why? */
192 push_template_decl (decl
)
195 tree header
= current_template_parms
;
197 tree args
= NULL_TREE
;
199 tree ctx
= DECL_CONTEXT (decl
) ? DECL_CONTEXT (decl
) : current_class_type
;
203 if (TREE_CODE (decl
) == FUNCTION_DECL
&& DECL_FRIEND_P (decl
)
204 && DECL_CLASS_CONTEXT (decl
))
206 /* Note that this template is a "primary template" */
207 else if (! ctx
|| ! CLASSTYPE_TEMPLATE_INFO (ctx
)
208 /* || (processing_template_decl > CLASSTYPE_TEMPLATE_LEVEL (ctx)) */)
213 tree a
= copy_node (TREE_VALUE (header
));
214 int i
= TREE_VEC_LENGTH (a
);
215 TREE_TYPE (a
) = NULL_TREE
;
218 tree t
= TREE_VALUE (TREE_VEC_ELT (a
, i
));
219 if (TREE_CODE (t
) == TYPE_DECL
)
222 t
= DECL_INITIAL (t
);
223 TREE_VEC_ELT (a
, i
) = t
;
225 args
= tree_cons (TREE_PURPOSE (header
), a
, args
);
226 header
= TREE_CHAIN (header
);
228 args
= nreverse (args
);
229 args
= TREE_VALUE (args
);
231 if (! ctx
|| TYPE_BEING_DEFINED (ctx
))
233 tmpl
= build_lang_decl (TEMPLATE_DECL
, DECL_NAME (decl
), NULL_TREE
);
234 DECL_TEMPLATE_PARMS (tmpl
) = TREE_VALUE (current_template_parms
);
235 DECL_CONTEXT (tmpl
) = DECL_CONTEXT (decl
);
239 if (TREE_CODE (decl
) == TYPE_DECL
)
240 tmpl
= CLASSTYPE_TI_TEMPLATE (TREE_TYPE (decl
));
241 else if (! DECL_TEMPLATE_INFO (decl
))
243 cp_error ("template definition of non-template `%#D'", decl
);
247 tmpl
= DECL_TI_TEMPLATE (decl
);
250 DECL_TEMPLATE_RESULT (tmpl
) = decl
;
251 TREE_TYPE (tmpl
) = TREE_TYPE (decl
);
254 tmpl
= pushdecl_top_level (tmpl
);
257 TREE_TYPE (DECL_TEMPLATE_PARMS (tmpl
)) = tmpl
;
259 info
= perm_tree_cons (tmpl
, args
, NULL_TREE
);
261 if (TREE_CODE (decl
) == TYPE_DECL
)
263 CLASSTYPE_TEMPLATE_INFO (TREE_TYPE (tmpl
)) = info
;
264 DECL_NAME (decl
) = classtype_mangled_name (TREE_TYPE (decl
));
266 else if (! DECL_LANG_SPECIFIC (decl
))
267 cp_error ("template declaration of `%#D'", decl
);
269 DECL_TEMPLATE_INFO (decl
) = info
;
272 tree tsubst
PROTO ((tree
, tree
*, int, tree
));
274 /* Convert all template arguments to their appropriate types, and return
275 a vector containing the resulting values. If any error occurs, return
278 coerce_template_parms (parms
, arglist
, in_decl
)
282 int nparms
, nargs
, i
, lost
= 0;
285 if (arglist
== NULL_TREE
)
287 else if (TREE_CODE (arglist
) == TREE_VEC
)
288 nargs
= TREE_VEC_LENGTH (arglist
);
290 nargs
= list_length (arglist
);
292 nparms
= TREE_VEC_LENGTH (parms
);
296 && TREE_PURPOSE (TREE_VEC_ELT (parms
, nargs
)) == NULL_TREE
))
298 error ("incorrect number of parameters (%d, should be %d)",
301 cp_error_at ("in template expansion for decl `%D'", in_decl
);
302 return error_mark_node
;
305 if (arglist
&& TREE_CODE (arglist
) == TREE_VEC
)
306 vec
= copy_node (arglist
);
309 vec
= make_tree_vec (nparms
);
310 for (i
= 0; i
< nparms
; i
++)
317 arglist
= TREE_CHAIN (arglist
);
319 if (arg
== error_mark_node
)
322 arg
= TREE_VALUE (arg
);
325 arg
= tsubst (TREE_PURPOSE (TREE_VEC_ELT (parms
, i
)),
326 &TREE_VEC_ELT (vec
, 0), i
, in_decl
);
328 TREE_VEC_ELT (vec
, i
) = arg
;
331 for (i
= 0; i
< nparms
; i
++)
333 tree arg
= TREE_VEC_ELT (vec
, i
);
334 tree parm
= TREE_VALUE (TREE_VEC_ELT (parms
, i
));
336 int is_type
, requires_type
;
338 is_type
= TREE_CODE_CLASS (TREE_CODE (arg
)) == 't';
339 requires_type
= TREE_CODE (parm
) == TYPE_DECL
;
341 if (requires_type
&& ! is_type
&& TREE_CODE (arg
) == SCOPE_REF
342 && TREE_CODE (TREE_OPERAND (arg
, 0)) == TEMPLATE_TYPE_PARM
)
344 cp_pedwarn ("to refer to a type member of a template parameter,");
345 cp_pedwarn (" use `typename %E'", arg
);
346 arg
= make_typename_type (TREE_OPERAND (arg
, 0),
347 TREE_OPERAND (arg
, 1));
350 if (is_type
!= requires_type
)
354 cp_error ("type/value mismatch at argument %d in template parameter list for `%D'",
357 cp_error (" expected a constant of type `%T', got `%T'",
358 TREE_TYPE (parm
), arg
);
360 cp_error (" expected a type, got `%E'", arg
);
363 TREE_VEC_ELT (vec
, i
) = error_mark_node
;
368 val
= groktypename (arg
);
369 if (! current_template_parms
)
371 tree t
= target_type (val
);
373 && decl_function_context (TYPE_MAIN_DECL (t
)))
375 cp_error ("type `%T' composed from a local class is not a valid template-argument", val
);
376 return error_mark_node
;
382 tree t
= tsubst (TREE_TYPE (parm
), &TREE_VEC_ELT (vec
, 0),
383 TREE_VEC_LENGTH (vec
), in_decl
);
384 if (current_template_parms
)
387 val
= digest_init (t
, arg
, (tree
*) 0);
389 if (val
== error_mark_node
|| current_template_parms
)
392 /* 14.2: Other template-arguments must be constant-expressions,
393 addresses of objects or functions with external linkage, or of
394 static class members. */
395 else if (!TREE_CONSTANT (val
))
397 cp_error ("non-const `%E' cannot be used as template argument",
399 val
= error_mark_node
;
401 else if (POINTER_TYPE_P (TREE_TYPE (val
))
402 && ! integer_zerop (val
)
403 && TREE_CODE (TREE_TYPE (TREE_TYPE (val
))) != OFFSET_TYPE
404 && TREE_CODE (TREE_TYPE (TREE_TYPE (val
))) != METHOD_TYPE
)
408 if (TREE_CODE (t
) == ADDR_EXPR
)
410 tree a
= TREE_OPERAND (t
, 0);
412 if (TREE_CODE (a
) == STRING_CST
)
414 cp_error ("string literal %E is not a valid template argument", a
);
415 error ("because it is the address of an object with static linkage");
416 val
= error_mark_node
;
418 else if (TREE_CODE (a
) != VAR_DECL
419 && TREE_CODE (a
) != FUNCTION_DECL
)
421 else if (! DECL_PUBLIC (a
))
423 cp_error ("address of non-extern `%E' cannot be used as template argument", a
);
424 val
= error_mark_node
;
430 cp_error ("`%E' is not a valid template argument", t
);
431 error ("it must be %s%s with external linkage",
432 TREE_CODE (TREE_TYPE (val
)) == POINTER_TYPE
433 ? "a pointer to " : "",
434 TREE_CODE (TREE_TYPE (TREE_TYPE (val
))) == FUNCTION_TYPE
435 ? "a function" : "an object");
436 val
= error_mark_node
;
441 if (val
== error_mark_node
)
444 TREE_VEC_ELT (vec
, i
) = val
;
447 return error_mark_node
;
452 comp_template_args (oldargs
, newargs
)
453 tree oldargs
, newargs
;
457 for (i
= 0; i
< TREE_VEC_LENGTH (oldargs
); ++i
)
459 tree nt
= TREE_VEC_ELT (newargs
, i
);
460 tree ot
= TREE_VEC_ELT (oldargs
, i
);
464 if (TREE_CODE (nt
) != TREE_CODE (ot
))
466 if (TREE_CODE_CLASS (TREE_CODE (ot
)) == 't')
468 if (comptypes (ot
, nt
, 1))
471 else if (cp_tree_equal (ot
, nt
) > 0)
478 /* Given class template name and parameter list, produce a user-friendly name
479 for the instantiation. */
481 mangle_class_name_for_template (name
, parms
, arglist
)
485 static struct obstack scratch_obstack
;
486 static char *scratch_firstobj
;
489 if (!scratch_firstobj
)
490 gcc_obstack_init (&scratch_obstack
);
492 obstack_free (&scratch_obstack
, scratch_firstobj
);
493 scratch_firstobj
= obstack_alloc (&scratch_obstack
, 1);
496 #define buflen sizeof(buf)
497 #define check if (bufp >= buf+buflen-1) goto too_long
498 #define ccat(c) *bufp++=(c); check
499 #define advance bufp+=strlen(bufp); check
500 #define cat(s) strncpy(bufp, s, buf+buflen-bufp-1); advance
503 #define ccat(c) obstack_1grow (&scratch_obstack, (c));
505 #define cat(s) obstack_grow (&scratch_obstack, (s), strlen (s))
510 nparms
= TREE_VEC_LENGTH (parms
);
511 my_friendly_assert (nparms
== TREE_VEC_LENGTH (arglist
), 268);
512 for (i
= 0; i
< nparms
; i
++)
514 tree parm
= TREE_VALUE (TREE_VEC_ELT (parms
, i
));
515 tree arg
= TREE_VEC_ELT (arglist
, i
);
520 if (TREE_CODE (parm
) == TYPE_DECL
)
522 cat (type_as_string (arg
, 0));
526 my_friendly_assert (TREE_CODE (parm
) == PARM_DECL
, 269);
528 if (TREE_CODE (arg
) == TREE_LIST
)
530 /* New list cell was built because old chain link was in
532 my_friendly_assert (TREE_PURPOSE (arg
) == NULL_TREE
, 270);
533 arg
= TREE_VALUE (arg
);
535 /* No need to check arglist against parmlist here; we did that
536 in coerce_template_parms, called from lookup_template_class. */
537 cat (expr_as_string (arg
, 0));
540 char *bufp
= obstack_next_free (&scratch_obstack
);
542 while (bufp
[offset
- 1] == ' ')
544 obstack_blank_fast (&scratch_obstack
, offset
);
546 /* B<C<char> >, not B<C<char>> */
547 if (bufp
[offset
- 1] == '>')
552 return (char *) obstack_base (&scratch_obstack
);
557 fatal ("out of (preallocated) string space creating template instantiation name");
563 classtype_mangled_name (t
)
566 if (CLASSTYPE_TEMPLATE_INFO (t
)
567 && PRIMARY_TEMPLATE_P (CLASSTYPE_TI_TEMPLATE (t
)))
569 tree name
= DECL_NAME (CLASSTYPE_TI_TEMPLATE (t
));
570 char *mangled_name
= mangle_class_name_for_template
571 (IDENTIFIER_POINTER (name
),
572 DECL_TEMPLATE_PARMS (CLASSTYPE_TI_TEMPLATE (t
)),
573 CLASSTYPE_TI_ARGS (t
));
574 tree id
= get_identifier (mangled_name
);
575 IDENTIFIER_TEMPLATE (id
) = name
;
579 return TYPE_IDENTIFIER (t
);
583 add_pending_template (d
)
586 if (TREE_LANG_FLAG_0 (DECL_TEMPLATE_INFO (d
)))
589 *template_tail
= perm_tree_cons
590 (current_function_decl
, d
, NULL_TREE
);
591 template_tail
= &TREE_CHAIN (*template_tail
);
592 TREE_LANG_FLAG_0 (DECL_TEMPLATE_INFO (d
)) = 1;
595 /* Given an IDENTIFIER_NODE (type TEMPLATE_DECL) and a chain of
596 parameters, find the desired type.
598 D1 is the PTYPENAME terminal, and ARGLIST is the list of arguments.
599 Since ARGLIST is build on the decl_obstack, we must copy it here
600 to keep it from being reclaimed when the decl storage is reclaimed.
602 IN_DECL, if non-NULL, is the template declaration we are trying to
605 lookup_template_class (d1
, arglist
, in_decl
)
609 tree
template, parmlist
;
614 if (TREE_CODE (d1
) == IDENTIFIER_NODE
)
616 template = IDENTIFIER_GLOBAL_VALUE (d1
); /* XXX */
618 template = IDENTIFIER_CLASS_VALUE (d1
);
620 else if (TREE_CODE (d1
) == TYPE_DECL
&& IS_AGGR_TYPE (TREE_TYPE (d1
)))
622 template = CLASSTYPE_TI_TEMPLATE (TREE_TYPE (d1
));
623 d1
= DECL_NAME (template);
625 else if (TREE_CODE_CLASS (TREE_CODE (d1
)) == 't' && IS_AGGR_TYPE (d1
))
627 template = CLASSTYPE_TI_TEMPLATE (d1
);
628 d1
= DECL_NAME (template);
631 my_friendly_abort (272);
633 /* With something like `template <class T> class X class X { ... };'
634 we could end up with D1 having nothing but an IDENTIFIER_LOCAL_VALUE.
635 We don't want to do that, but we have to deal with the situation, so
636 let's give them some syntax errors to chew on instead of a crash. */
638 return error_mark_node
;
639 if (TREE_CODE (template) != TEMPLATE_DECL
)
641 cp_error ("non-template type `%T' used as a template", d1
);
643 cp_error_at ("for template declaration `%D'", in_decl
);
644 return error_mark_node
;
647 if (PRIMARY_TEMPLATE_P (template))
649 parmlist
= DECL_TEMPLATE_PARMS (template);
651 arglist
= coerce_template_parms (parmlist
, arglist
, template);
652 if (arglist
== error_mark_node
)
653 return error_mark_node
;
654 if (uses_template_parms (arglist
))
657 if (comp_template_args
658 (CLASSTYPE_TI_ARGS (TREE_TYPE (template)), arglist
))
659 found
= TREE_TYPE (template);
662 for (found
= DECL_TEMPLATE_INSTANTIATIONS (template);
663 found
; found
= TREE_CHAIN (found
))
665 if (TI_USES_TEMPLATE_PARMS (found
)
666 && comp_template_args (TREE_PURPOSE (found
), arglist
))
670 found
= TREE_VALUE (found
);
675 if (can_free (&permanent_obstack
, arglist
))
676 obstack_free (&permanent_obstack
, arglist
);
681 mangled_name
= mangle_class_name_for_template (IDENTIFIER_POINTER (d1
),
683 id
= get_identifier (mangled_name
);
684 IDENTIFIER_TEMPLATE (id
) = d1
;
686 maybe_push_to_top_level (uses_template_parms (arglist
));
687 t
= xref_tag_from_type (TREE_TYPE (template), id
, 1);
688 pop_from_top_level ();
692 tree ctx
= lookup_template_class (TYPE_CONTEXT (TREE_TYPE (template)),
695 arglist
= CLASSTYPE_TI_ARGS (ctx
);
697 if (TYPE_BEING_DEFINED (ctx
) && ctx
== current_class_type
)
699 tree save_parms
= current_template_parms
;
700 current_template_parms
= NULL_TREE
;
701 t
= xref_tag_from_type (TREE_TYPE (template), id
, 0);
702 current_template_parms
= save_parms
;
706 t
= lookup_nested_type_by_name (ctx
, id
);
707 my_friendly_assert (t
!= NULL_TREE
, 42);
711 /* Seems to be wanted. */
712 CLASSTYPE_GOT_SEMICOLON (t
) = 1;
714 if (! CLASSTYPE_TEMPLATE_INFO (t
))
716 arglist
= copy_to_permanent (arglist
);
717 CLASSTYPE_TEMPLATE_INFO (t
)
718 = perm_tree_cons (template, arglist
, NULL_TREE
);
719 DECL_TEMPLATE_INSTANTIATIONS (template) = perm_tree_cons
720 (arglist
, t
, DECL_TEMPLATE_INSTANTIATIONS (template));
721 TI_USES_TEMPLATE_PARMS (DECL_TEMPLATE_INSTANTIATIONS (template))
722 = uses_template_parms (arglist
);
724 SET_CLASSTYPE_IMPLICIT_INSTANTIATION (t
);
726 /* We need to set this again after CLASSTYPE_TEMPLATE_INFO is set up. */
727 DECL_ASSEMBLER_NAME (TYPE_MAIN_DECL (t
)) = id
;
728 if (! uses_template_parms (arglist
))
729 DECL_ASSEMBLER_NAME (TYPE_MAIN_DECL (t
))
730 = get_identifier (build_overload_name (t
, 1, 1));
732 if (flag_external_templates
&& ! uses_template_parms (arglist
)
733 && CLASSTYPE_INTERFACE_KNOWN (TREE_TYPE (template))
734 && ! CLASSTYPE_INTERFACE_ONLY (TREE_TYPE (template)))
738 instantiate_class_template (t
);
740 for (d
= TYPE_METHODS (t
); d
; d
= TREE_CHAIN (d
))
741 add_pending_template (d
);
748 /* Should be defined in parse.h. */
752 uses_template_parms (t
)
757 switch (TREE_CODE (t
))
761 /* We assume that the object must be instantiated in order to build
762 the COMPONENT_REF, so we test only whether the type of the
763 COMPONENT_REF uses template parms. */
764 return uses_template_parms (TREE_TYPE (t
));
766 case IDENTIFIER_NODE
:
767 if (!IDENTIFIER_TEMPLATE (t
))
769 my_friendly_abort (42);
771 /* aggregates of tree nodes */
774 int i
= TREE_VEC_LENGTH (t
);
776 if (uses_template_parms (TREE_VEC_ELT (t
, i
)))
781 if (uses_template_parms (TREE_PURPOSE (t
))
782 || uses_template_parms (TREE_VALUE (t
)))
784 return uses_template_parms (TREE_CHAIN (t
));
786 /* constructed type nodes */
789 return uses_template_parms (TREE_TYPE (t
));
791 if (TYPE_PTRMEMFUNC_FLAG (t
))
792 return uses_template_parms (TYPE_PTRMEMFUNC_FN_TYPE (t
));
794 if (! CLASSTYPE_TEMPLATE_INFO (t
))
796 return uses_template_parms (TREE_VALUE (CLASSTYPE_TEMPLATE_INFO (t
)));
798 if (uses_template_parms (TYPE_ARG_TYPES (t
)))
800 return uses_template_parms (TREE_TYPE (t
));
802 if (uses_template_parms (TYPE_DOMAIN (t
)))
804 return uses_template_parms (TREE_TYPE (t
));
806 if (uses_template_parms (TYPE_OFFSET_BASETYPE (t
)))
808 return uses_template_parms (TREE_TYPE (t
));
810 if (uses_template_parms (TYPE_METHOD_BASETYPE (t
)))
812 if (uses_template_parms (TYPE_ARG_TYPES (t
)))
814 return uses_template_parms (TREE_TYPE (t
));
818 return uses_template_parms (TREE_TYPE (t
));
822 /* ??? What about FIELD_DECLs? */
823 if (DECL_LANG_SPECIFIC (t
) && DECL_TEMPLATE_INFO (t
)
824 && uses_template_parms (DECL_TI_ARGS (t
)))
829 if (uses_template_parms (TREE_TYPE (t
)))
831 if (DECL_CONTEXT (t
) && uses_template_parms (DECL_CONTEXT (t
)))
836 return uses_template_parms (TREE_TYPE (t
));
838 return uses_template_parms (TREE_OPERAND (t
, 0));
840 /* template parm nodes */
841 case TEMPLATE_TYPE_PARM
:
842 case TEMPLATE_CONST_PARM
:
845 /* simple type nodes */
847 if (uses_template_parms (TYPE_MIN_VALUE (t
)))
849 return uses_template_parms (TYPE_MAX_VALUE (t
));
864 /* Non-error_mark_node ERROR_MARKs are bad things. */
865 my_friendly_assert (t
== error_mark_node
, 274);
874 if (TREE_TYPE (t
) && TYPE_PTRMEMFUNC_P (TREE_TYPE (t
)))
875 return uses_template_parms (TYPE_PTRMEMFUNC_FN_TYPE (TREE_TYPE (t
)));
876 /* else fall through */
879 switch (TREE_CODE_CLASS (TREE_CODE (t
)))
887 for (i
= tree_code_length
[(int) TREE_CODE (t
)]; --i
>= 0;)
888 if (uses_template_parms (TREE_OPERAND (t
, i
)))
895 sorry ("testing %s for template parms",
896 tree_code_name
[(int) TREE_CODE (t
)]);
897 my_friendly_abort (82);
903 static struct tinst_level
*current_tinst_level
= 0;
904 static struct tinst_level
*free_tinst_level
= 0;
905 static int tinst_depth
= 0;
906 int max_tinst_depth
= 17;
907 #ifdef GATHER_STATISTICS
908 int depth_reached
= 0;
915 struct tinst_level
*new;
917 if (tinst_depth
>= max_tinst_depth
)
919 struct tinst_level
*p
= current_tinst_level
;
921 char *file
= input_filename
;
923 error ("template instantiation depth exceeds maximum of %d",
925 cp_error (" instantiating `%D'", d
);
927 for (; p
; p
= p
->next
)
929 cp_error (" instantiated from `%D'", p
->decl
);
931 input_filename
= p
->file
;
933 error (" instantiated from here");
936 input_filename
= file
;
941 if (free_tinst_level
)
943 new = free_tinst_level
;
944 free_tinst_level
= new->next
;
947 new = (struct tinst_level
*) xmalloc (sizeof (struct tinst_level
));
951 new->file
= input_filename
;
952 new->next
= current_tinst_level
;
953 current_tinst_level
= new;
956 #ifdef GATHER_STATISTICS
957 if (tinst_depth
> depth_reached
)
958 depth_reached
= tinst_depth
;
967 struct tinst_level
*old
= current_tinst_level
;
969 current_tinst_level
= old
->next
;
970 old
->next
= free_tinst_level
;
971 free_tinst_level
= old
;
978 struct tinst_level
*p
= current_tinst_level
;
981 for (; p
->next
; p
= p
->next
)
987 instantiate_class_template (type
)
990 tree
template, template_info
, args
, pattern
, t
, *field_chain
;
992 if (type
== error_mark_node
)
993 return error_mark_node
;
995 template_info
= CLASSTYPE_TEMPLATE_INFO (type
);
997 if (TYPE_BEING_DEFINED (type
) || TYPE_SIZE (type
))
1000 template = TI_TEMPLATE (template_info
);
1001 my_friendly_assert (TREE_CODE (template) == TEMPLATE_DECL
, 279);
1002 args
= TI_ARGS (template_info
);
1003 pattern
= TREE_TYPE (template);
1005 if (TYPE_SIZE (pattern
) == NULL_TREE
)
1008 TYPE_BEING_DEFINED (type
) = 1;
1010 if (! push_tinst_level (type
))
1013 maybe_push_to_top_level (uses_template_parms (type
));
1014 pushclass (type
, 0);
1016 if (flag_external_templates
)
1018 if (flag_alt_external_templates
)
1020 CLASSTYPE_INTERFACE_ONLY (type
) = interface_only
;
1021 SET_CLASSTYPE_INTERFACE_UNKNOWN_X (type
, interface_unknown
);
1022 CLASSTYPE_VTABLE_NEEDS_WRITING (type
)
1023 = ! CLASSTYPE_INTERFACE_ONLY (type
)
1024 && CLASSTYPE_INTERFACE_KNOWN (type
);
1028 CLASSTYPE_INTERFACE_ONLY (type
) = CLASSTYPE_INTERFACE_ONLY (pattern
);
1029 SET_CLASSTYPE_INTERFACE_UNKNOWN_X
1030 (type
, CLASSTYPE_INTERFACE_UNKNOWN (pattern
));
1031 CLASSTYPE_VTABLE_NEEDS_WRITING (type
)
1032 = ! CLASSTYPE_INTERFACE_ONLY (type
)
1033 && CLASSTYPE_INTERFACE_KNOWN (type
);
1038 SET_CLASSTYPE_INTERFACE_UNKNOWN (type
);
1039 CLASSTYPE_VTABLE_NEEDS_WRITING (type
) = 1;
1043 tree binfo
= TYPE_BINFO (type
);
1044 tree pbases
= TYPE_BINFO_BASETYPES (pattern
);
1050 int len
= TREE_VEC_LENGTH (pbases
);
1051 BINFO_BASETYPES (binfo
) = bases
= make_tree_vec (len
);
1052 for (i
= 0; i
< len
; ++i
)
1056 TREE_VEC_ELT (bases
, i
) = elt
1057 = tsubst (TREE_VEC_ELT (pbases
, i
), &TREE_VEC_ELT (args
, 0),
1058 TREE_VEC_LENGTH (args
), NULL_TREE
);
1059 BINFO_INHERITANCE_CHAIN (elt
) = binfo
;
1061 if (! uses_template_parms (type
) &&
1062 TYPE_SIZE (complete_type (TREE_TYPE (elt
))) == NULL_TREE
)
1063 cp_error ("base class `%T' of `%T' has incomplete type",
1064 TREE_TYPE (elt
), type
);
1069 CLASSTYPE_LOCAL_TYPEDECLS (type
) = CLASSTYPE_LOCAL_TYPEDECLS (pattern
);
1071 field_chain
= &TYPE_FIELDS (type
);
1073 for (t
= CLASSTYPE_TAGS (pattern
); t
; t
= TREE_CHAIN (t
))
1075 tree name
= TREE_PURPOSE (t
);
1076 tree tag
= TREE_VALUE (t
);
1079 /* These will add themselves to CLASSTYPE_TAGS for the new type. */
1080 if (TREE_CODE (tag
) == ENUMERAL_TYPE
)
1081 newtag
= start_enum (name
);
1083 newtag
= tsubst (tag
, &TREE_VEC_ELT (args
, 0),
1084 TREE_VEC_LENGTH (args
), NULL_TREE
);
1086 if (TREE_CODE (tag
) == ENUMERAL_TYPE
)
1088 tree e
, values
= NULL_TREE
, *last
= &values
;
1090 for (e
= TYPE_VALUES (tag
); e
; e
= TREE_CHAIN (e
))
1092 tree elt
= build_enumerator
1094 tsubst_expr (TREE_VALUE (e
), &TREE_VEC_ELT (args
, 0),
1095 TREE_VEC_LENGTH (args
), NULL_TREE
));
1096 DECL_FIELD_CONTEXT (TREE_VALUE (elt
)) = type
;
1098 last
= &TREE_CHAIN (elt
);
1101 finish_enum (newtag
, values
);
1103 *field_chain
= grok_enum_decls (newtag
, NULL_TREE
);
1104 while (*field_chain
)
1105 field_chain
= &TREE_CHAIN (*field_chain
);
1109 /* Don't replace enum constants here. */
1110 for (t
= TYPE_FIELDS (pattern
); t
; t
= TREE_CHAIN (t
))
1111 if (TREE_CODE (t
) != CONST_DECL
)
1113 tree r
= tsubst (t
, &TREE_VEC_ELT (args
, 0),
1114 TREE_VEC_LENGTH (args
), NULL_TREE
);
1115 if (TREE_CODE (r
) == VAR_DECL
)
1117 if (! uses_template_parms (r
))
1118 pending_statics
= perm_tree_cons (NULL_TREE
, r
, pending_statics
);
1119 /* Perhaps I should do more of grokfield here. */
1121 DECL_IN_AGGR_P (r
) = 1;
1122 DECL_EXTERNAL (r
) = 1;
1123 cp_finish_decl (r
, DECL_INITIAL (r
), NULL_TREE
, 0, 0);
1127 field_chain
= &TREE_CHAIN (r
);
1130 TYPE_METHODS (type
) = tsubst_chain (TYPE_METHODS (pattern
), args
);
1132 DECL_FRIENDLIST (TYPE_MAIN_DECL (type
))
1133 = tsubst (DECL_FRIENDLIST (TYPE_MAIN_DECL (pattern
)),
1134 &TREE_VEC_ELT (args
, 0), TREE_VEC_LENGTH (args
), NULL_TREE
);
1137 tree d
= CLASSTYPE_FRIEND_CLASSES (type
) =
1138 tsubst (CLASSTYPE_FRIEND_CLASSES (pattern
), &TREE_VEC_ELT (args
, 0),
1139 TREE_VEC_LENGTH (args
), NULL_TREE
);
1141 /* This does injection for friend classes. */
1142 for (; d
; d
= TREE_CHAIN (d
))
1143 TREE_VALUE (d
) = xref_tag_from_type (TREE_VALUE (d
), NULL_TREE
, 1);
1145 d
= tsubst (DECL_TEMPLATE_INJECT (template), &TREE_VEC_ELT (args
, 0),
1146 TREE_VEC_LENGTH (args
), NULL_TREE
);
1148 for (; d
; d
= TREE_CHAIN (d
))
1150 tree t
= TREE_VALUE (d
);
1152 if (TREE_CODE (t
) == TYPE_DECL
)
1153 /* Already injected. */;
1159 TYPE_HAS_CONSTRUCTOR (type
) = TYPE_HAS_CONSTRUCTOR (pattern
);
1160 TYPE_HAS_DESTRUCTOR (type
) = TYPE_HAS_DESTRUCTOR (pattern
);
1161 TYPE_HAS_ASSIGNMENT (type
) = TYPE_HAS_ASSIGNMENT (pattern
);
1162 TYPE_OVERLOADS_CALL_EXPR (type
) = TYPE_OVERLOADS_CALL_EXPR (pattern
);
1163 TYPE_OVERLOADS_ARRAY_REF (type
) = TYPE_OVERLOADS_ARRAY_REF (pattern
);
1164 TYPE_OVERLOADS_ARROW (type
) = TYPE_OVERLOADS_ARROW (pattern
);
1165 TYPE_GETS_NEW (type
) = TYPE_GETS_NEW (pattern
);
1166 TYPE_GETS_DELETE (type
) = TYPE_GETS_DELETE (pattern
);
1167 TYPE_VEC_DELETE_TAKES_SIZE (type
) = TYPE_VEC_DELETE_TAKES_SIZE (pattern
);
1168 TYPE_HAS_ASSIGN_REF (type
) = TYPE_HAS_ASSIGN_REF (pattern
);
1169 TYPE_HAS_CONST_ASSIGN_REF (type
) = TYPE_HAS_CONST_ASSIGN_REF (pattern
);
1170 TYPE_HAS_ABSTRACT_ASSIGN_REF (type
) = TYPE_HAS_ABSTRACT_ASSIGN_REF (pattern
);
1171 TYPE_HAS_INIT_REF (type
) = TYPE_HAS_INIT_REF (pattern
);
1172 TYPE_HAS_CONST_INIT_REF (type
) = TYPE_HAS_CONST_INIT_REF (pattern
);
1173 TYPE_GETS_INIT_AGGR (type
) = TYPE_GETS_INIT_AGGR (pattern
);
1174 TYPE_HAS_DEFAULT_CONSTRUCTOR (type
) = TYPE_HAS_DEFAULT_CONSTRUCTOR (pattern
);
1175 TYPE_HAS_CONVERSION (type
) = TYPE_HAS_CONVERSION (pattern
);
1176 TYPE_USES_COMPLEX_INHERITANCE (type
)
1177 = TYPE_USES_COMPLEX_INHERITANCE (pattern
);
1178 TYPE_USES_VIRTUAL_BASECLASSES (type
)
1179 = TYPE_USES_VIRTUAL_BASECLASSES (pattern
);
1181 if (! uses_template_parms (type
))
1184 for (tmp
= TYPE_FIELDS (type
); tmp
; tmp
= TREE_CHAIN (tmp
))
1185 if (TREE_CODE (tmp
) == FIELD_DECL
1186 && TREE_CODE (DECL_NAME (tmp
)) != SCOPE_REF
)
1187 require_complete_type (tmp
);
1189 /* XXX handle attributes */
1190 type
= finish_struct_1 (type
, NULL_TREE
, 0);
1194 TYPE_SIZE (type
) = integer_zero_node
;
1195 CLASSTYPE_METHOD_VEC (type
)
1196 = finish_struct_methods (type
, TYPE_METHODS (type
), 1);
1199 TYPE_BEING_DEFINED (type
) = 0;
1202 pop_from_top_level ();
1212 if (t1
== NULL_TREE
)
1213 return t2
== NULL_TREE
;
1214 if (t2
== NULL_TREE
)
1216 /* Don't care if one declares its arg const and the other doesn't -- the
1217 main variant of the arg type is all that matters. */
1218 if (TYPE_MAIN_VARIANT (TREE_VALUE (t1
))
1219 != TYPE_MAIN_VARIANT (TREE_VALUE (t2
)))
1221 return list_eq (TREE_CHAIN (t1
), TREE_CHAIN (t2
));
1225 lookup_nested_type_by_name (ctype
, name
)
1230 complete_type (ctype
);
1232 for (t
= CLASSTYPE_TAGS (ctype
); t
; t
= TREE_CHAIN (t
))
1234 if (name
== TREE_PURPOSE (t
))
1235 return TREE_VALUE (t
);
1241 tsubst (t
, args
, nargs
, in_decl
)
1248 if (t
== NULL_TREE
|| t
== error_mark_node
1249 || t
== integer_type_node
1250 || t
== void_type_node
1251 || t
== char_type_node
)
1254 type
= TREE_TYPE (t
);
1255 if (type
== unknown_type_node
)
1256 my_friendly_abort (42);
1257 if (type
&& TREE_CODE (t
) != FUNCTION_DECL
)
1258 type
= tsubst (type
, args
, nargs
, in_decl
);
1260 switch (TREE_CODE (t
))
1263 if (TYPE_PTRMEMFUNC_P (t
))
1265 tree r
= build_ptrmemfunc_type
1266 (tsubst (TYPE_PTRMEMFUNC_FN_TYPE (t
), args
, nargs
, in_decl
));
1267 return cp_build_type_variant (r
, TYPE_READONLY (t
),
1271 /* else fall through */
1273 if (uses_template_parms (t
))
1275 tree argvec
= tsubst (CLASSTYPE_TI_ARGS (t
), args
, nargs
, in_decl
);
1276 tree r
= lookup_template_class (t
, argvec
, in_decl
);
1277 return cp_build_type_variant (r
, TYPE_READONLY (t
),
1281 /* else fall through */
1283 case IDENTIFIER_NODE
:
1295 tree ctx
= tsubst (TYPE_CONTEXT (t
), args
, nargs
, in_decl
);
1296 if (ctx
== NULL_TREE
)
1299 return lookup_nested_type_by_name (ctx
, TYPE_IDENTIFIER (t
));
1303 if (t
== integer_type_node
)
1306 if (TREE_CODE (TYPE_MIN_VALUE (t
)) == INTEGER_CST
1307 && TREE_CODE (TYPE_MAX_VALUE (t
)) == INTEGER_CST
)
1311 tree max
= tsubst_expr (TYPE_MAX_VALUE (t
), args
, nargs
, in_decl
);
1312 if (current_template_parms
)
1314 tree itype
= make_node (INTEGER_TYPE
);
1315 TYPE_MIN_VALUE (itype
) = size_zero_node
;
1316 TYPE_MAX_VALUE (itype
) = max
;
1319 return build_index_2_type (size_zero_node
, max
);
1322 case TEMPLATE_TYPE_PARM
:
1324 tree arg
= args
[TEMPLATE_TYPE_IDX (t
)];
1325 return cp_build_type_variant
1326 (arg
, TYPE_READONLY (arg
) || TYPE_READONLY (t
),
1327 TYPE_VOLATILE (arg
) || TYPE_VOLATILE (t
));
1330 case TEMPLATE_CONST_PARM
:
1331 return args
[TEMPLATE_CONST_IDX (t
)];
1336 tree arg_types
, ctx
;
1340 if (DECL_CONTEXT (t
) != NULL_TREE
1341 && TREE_CODE_CLASS (TREE_CODE (DECL_CONTEXT (t
))) == 't')
1343 if (DECL_NAME (t
) == constructor_name (DECL_CONTEXT (t
)))
1347 ctx
= tsubst (DECL_CLASS_CONTEXT (t
), args
, nargs
, t
);
1348 type
= tsubst (type
, args
, nargs
, in_decl
);
1354 type
= tsubst (type
, args
, nargs
, in_decl
);
1357 if (type
== TREE_TYPE (t
)
1358 && (! member
|| ctx
== DECL_CLASS_CONTEXT (t
)))
1361 /* Do we already have this instantiation? */
1362 if (DECL_TEMPLATE_INFO (t
) != NULL_TREE
)
1364 tree tmpl
= TREE_PURPOSE (DECL_TEMPLATE_INFO (t
));
1365 tree decls
= DECL_TEMPLATE_INSTANTIATIONS (tmpl
);
1367 for (; decls
; decls
= TREE_CHAIN (decls
))
1368 if (TREE_TYPE (TREE_VALUE (decls
)) == type
1369 && DECL_CLASS_CONTEXT (TREE_VALUE (decls
)) == ctx
)
1370 return TREE_VALUE (decls
);
1373 /* We do NOT check for matching decls pushed separately at this
1374 point, as they may not represent instantiations of this
1375 template, and in any case are considered separate under the
1380 TREE_TYPE (r
) = type
;
1383 = tsubst (DECL_CONTEXT (t
), args
, nargs
, t
);
1384 DECL_CLASS_CONTEXT (r
) = ctx
;
1386 if (member
&& !strncmp (OPERATOR_TYPENAME_FORMAT
,
1387 IDENTIFIER_POINTER (DECL_NAME (r
)),
1388 sizeof (OPERATOR_TYPENAME_FORMAT
) - 1))
1390 /* Type-conversion operator. Reconstruct the name, in
1391 case it's the name of one of the template's parameters. */
1392 DECL_NAME (r
) = build_typename_overload (TREE_TYPE (type
));
1395 arg_types
= TYPE_VALUES (type
);
1397 if (member
&& TREE_CODE (type
) == FUNCTION_TYPE
)
1398 arg_types
= hash_tree_chain
1399 (build_pointer_type (DECL_CONTEXT (r
)), arg_types
);
1401 if (DESTRUCTOR_NAME_P (DECL_ASSEMBLER_NAME (t
)))
1403 char *buf
, *dbuf
= build_overload_name (ctx
, 1, 1);
1404 int len
= sizeof (DESTRUCTOR_DECL_PREFIX
) - 1;
1405 buf
= (char *) alloca (strlen (dbuf
)
1406 + sizeof (DESTRUCTOR_DECL_PREFIX
));
1407 bcopy (DESTRUCTOR_DECL_PREFIX
, buf
, len
);
1410 DECL_ASSEMBLER_NAME (r
) = get_identifier (buf
);
1413 DECL_ASSEMBLER_NAME (r
)
1414 = build_decl_overload (DECL_NAME (r
), arg_types
, member
);
1416 make_decl_rtl (r
, NULL_PTR
, 1);
1418 DECL_ARGUMENTS (r
) = tsubst (DECL_ARGUMENTS (t
), args
, nargs
, t
);
1419 DECL_MAIN_VARIANT (r
) = r
;
1420 DECL_RESULT (r
) = NULL_TREE
;
1421 DECL_INITIAL (r
) = NULL_TREE
;
1423 TREE_STATIC (r
) = 0;
1424 TREE_PUBLIC (r
) = 1;
1425 DECL_EXTERNAL (r
) = 1;
1426 DECL_INTERFACE_KNOWN (r
) = 0;
1427 DECL_DEFER_OUTPUT (r
) = 0;
1428 TREE_CHAIN (r
) = NULL_TREE
;
1429 DECL_CHAIN (r
) = NULL_TREE
;
1431 if (IDENTIFIER_OPNAME_P (DECL_NAME (r
)))
1432 grok_op_properties (r
, DECL_VIRTUAL_P (r
), DECL_FRIEND_P (r
));
1434 /* Look for matching decls for the moment. */
1437 tree decls
= lookup_name_nonclass (DECL_NAME (t
));
1440 if (decls
== NULL_TREE
)
1442 else if (is_overloaded_fn (decls
))
1443 for (decls
= get_first_fn (decls
); decls
;
1444 decls
= DECL_CHAIN (decls
))
1446 if (TREE_CODE (decls
) == FUNCTION_DECL
1447 && TREE_TYPE (decls
) == type
)
1456 int dcl_only
= ! DECL_INITIAL (d
);
1458 DECL_INITIAL (r
) = error_mark_node
;
1459 duplicate_decls (r
, d
);
1462 DECL_INITIAL (r
) = 0;
1466 if (DECL_TEMPLATE_INFO (t
) != NULL_TREE
)
1468 tree tmpl
= DECL_TI_TEMPLATE (t
);
1469 tree
*declsp
= &DECL_TEMPLATE_INSTANTIATIONS (tmpl
);
1470 tree argvec
= tsubst (TREE_VALUE (DECL_TEMPLATE_INFO (t
)),
1471 args
, nargs
, in_decl
);
1473 DECL_TEMPLATE_INFO (r
) = perm_tree_cons (tmpl
, argvec
, NULL_TREE
);
1474 *declsp
= perm_tree_cons (argvec
, r
, *declsp
);
1476 /* If we have a preexisting version of this function, don't expand
1477 the template version, use the other instead. */
1478 if (TREE_STATIC (r
) || DECL_TEMPLATE_SPECIALIZATION (r
))
1479 SET_DECL_TEMPLATE_SPECIALIZATION (r
);
1481 SET_DECL_IMPLICIT_INSTANTIATION (r
);
1483 DECL_TEMPLATE_INSTANTIATIONS (tmpl
) =
1484 tree_cons (argvec
, r
, DECL_TEMPLATE_INSTANTIATIONS (tmpl
));
1492 tree r
= copy_node (t
);
1493 TREE_TYPE (r
) = type
;
1494 DECL_INITIAL (r
) = TREE_TYPE (r
);
1495 DECL_CONTEXT (r
) = NULL_TREE
;
1496 #ifdef PROMOTE_PROTOTYPES
1497 if ((TREE_CODE (type
) == INTEGER_TYPE
1498 || TREE_CODE (type
) == ENUMERAL_TYPE
)
1499 && TYPE_PRECISION (type
) < TYPE_PRECISION (integer_type_node
))
1500 DECL_ARG_TYPE (r
) = integer_type_node
;
1503 TREE_CHAIN (r
) = tsubst (TREE_CHAIN (t
), args
, nargs
, TREE_CHAIN (t
));
1509 tree r
= copy_node (t
);
1510 TREE_TYPE (r
) = type
;
1513 DECL_FIELD_CONTEXT (r
) = tsubst (DECL_FIELD_CONTEXT (t
), args
, nargs
, in_decl
);
1515 DECL_INITIAL (r
) = tsubst_expr (DECL_INITIAL (t
), args
, nargs
, in_decl
);
1516 TREE_CHAIN (r
) = NULL_TREE
;
1522 tree r
= copy_node (t
);
1524 = tsubst_copy (DECL_INITIAL (t
), args
, nargs
, in_decl
);
1525 TREE_CHAIN (r
) = NULL_TREE
;
1532 tree ctx
= tsubst_copy (DECL_CONTEXT (t
), args
, nargs
, in_decl
);
1534 /* Do we already have this instantiation? */
1535 if (DECL_LANG_SPECIFIC (t
) && DECL_TEMPLATE_INFO (t
))
1537 tree tmpl
= DECL_TI_TEMPLATE (t
);
1538 tree decls
= DECL_TEMPLATE_INSTANTIATIONS (tmpl
);
1540 for (; decls
; decls
= TREE_CHAIN (decls
))
1541 if (DECL_CONTEXT (TREE_VALUE (decls
)) == ctx
)
1542 return TREE_VALUE (decls
);
1546 TREE_TYPE (r
) = type
;
1547 DECL_CONTEXT (r
) = ctx
;
1548 if (TREE_STATIC (r
))
1549 DECL_ASSEMBLER_NAME (r
)
1550 = build_static_name (DECL_CONTEXT (r
), DECL_NAME (r
));
1551 DECL_INITIAL (r
) = tsubst_expr
1552 (DECL_INITIAL (t
), args
, nargs
, in_decl
);
1557 if (DECL_LANG_SPECIFIC (r
))
1560 DECL_CLASS_CONTEXT (r
) = DECL_CONTEXT (r
);
1563 if (DECL_LANG_SPECIFIC (t
) && DECL_TEMPLATE_INFO (t
))
1565 tree tmpl
= DECL_TI_TEMPLATE (t
);
1566 tree
*declsp
= &DECL_TEMPLATE_INSTANTIATIONS (tmpl
);
1567 tree argvec
= tsubst (TREE_VALUE (DECL_TEMPLATE_INFO (t
)),
1568 args
, nargs
, in_decl
);
1570 DECL_TEMPLATE_INFO (r
) = perm_tree_cons (tmpl
, argvec
, NULL_TREE
);
1571 *declsp
= perm_tree_cons (argvec
, r
, *declsp
);
1572 SET_DECL_IMPLICIT_INSTANTIATION (r
);
1574 TREE_CHAIN (r
) = NULL_TREE
;
1580 tree r
= copy_node (t
);
1581 TREE_TYPE (r
) = type
;
1582 DECL_CONTEXT (r
) = current_class_type
;
1583 TREE_CHAIN (r
) = NULL_TREE
;
1589 tree purpose
, value
, chain
, result
;
1590 int via_public
, via_virtual
, via_protected
;
1592 if (t
== void_list_node
)
1595 via_public
= TREE_VIA_PUBLIC (t
);
1596 via_protected
= TREE_VIA_PROTECTED (t
);
1597 via_virtual
= TREE_VIA_VIRTUAL (t
);
1599 purpose
= TREE_PURPOSE (t
);
1601 purpose
= tsubst (purpose
, args
, nargs
, in_decl
);
1602 value
= TREE_VALUE (t
);
1604 value
= tsubst (value
, args
, nargs
, in_decl
);
1605 chain
= TREE_CHAIN (t
);
1606 if (chain
&& chain
!= void_type_node
)
1607 chain
= tsubst (chain
, args
, nargs
, in_decl
);
1608 if (purpose
== TREE_PURPOSE (t
)
1609 && value
== TREE_VALUE (t
)
1610 && chain
== TREE_CHAIN (t
))
1612 result
= hash_tree_cons (via_public
, via_virtual
, via_protected
,
1613 purpose
, value
, chain
);
1614 TREE_PARMLIST (result
) = TREE_PARMLIST (t
);
1618 if (type
!= NULL_TREE
)
1622 if (type
== TREE_TYPE (t
))
1625 TREE_TYPE (t
) = complete_type (type
);
1626 BINFO_VTABLE (t
) = TYPE_BINFO_VTABLE (type
);
1627 BINFO_VIRTUALS (t
) = TYPE_BINFO_VIRTUALS (type
);
1628 if (TYPE_BINFO_BASETYPES (type
) != NULL_TREE
)
1629 BINFO_BASETYPES (t
) = copy_node (TYPE_BINFO_BASETYPES (type
));
1634 int len
= TREE_VEC_LENGTH (t
), need_new
= 0, i
;
1635 tree
*elts
= (tree
*) alloca (len
* sizeof (tree
));
1637 bzero ((char *) elts
, len
* sizeof (tree
));
1639 for (i
= 0; i
< len
; i
++)
1641 elts
[i
] = tsubst_expr (TREE_VEC_ELT (t
, i
), args
, nargs
, in_decl
);
1642 if (elts
[i
] != TREE_VEC_ELT (t
, i
))
1649 t
= make_tree_vec (len
);
1650 for (i
= 0; i
< len
; i
++)
1651 TREE_VEC_ELT (t
, i
) = elts
[i
];
1656 case REFERENCE_TYPE
:
1659 enum tree_code code
;
1660 if (type
== TREE_TYPE (t
))
1663 code
= TREE_CODE (t
);
1664 if (code
== POINTER_TYPE
)
1665 r
= build_pointer_type (type
);
1667 r
= build_reference_type (type
);
1668 r
= cp_build_type_variant (r
, TYPE_READONLY (t
), TYPE_VOLATILE (t
));
1669 /* Will this ever be needed for TYPE_..._TO values? */
1674 return build_offset_type
1675 (tsubst (TYPE_OFFSET_BASETYPE (t
), args
, nargs
, in_decl
), type
);
1679 tree values
= TYPE_ARG_TYPES (t
);
1680 tree context
= TYPE_CONTEXT (t
);
1683 /* Don't bother recursing if we know it won't change anything. */
1684 if (values
!= void_list_node
)
1686 /* This should probably be rewritten to use hash_tree_cons for
1687 the memory savings. */
1688 tree first
= NULL_TREE
;
1691 for (; values
&& values
!= void_list_node
;
1692 values
= TREE_CHAIN (values
))
1695 = tsubst (TREE_VALUE (values
), args
, nargs
, in_decl
);
1696 tree purpose
= tsubst_expr (TREE_PURPOSE (values
),
1697 args
, nargs
, in_decl
);
1698 tree x
= build_tree_list (purpose
, value
);
1701 TREE_CHAIN (last
) = x
;
1707 if (values
== void_list_node
)
1708 TREE_CHAIN (last
) = void_list_node
;
1713 context
= tsubst (context
, args
, nargs
, in_decl
);
1714 /* Could also optimize cases where return value and
1715 values have common elements (e.g., T min(const &T, const T&). */
1717 /* If the above parameters haven't changed, just return the type. */
1718 if (type
== TREE_TYPE (t
)
1719 && values
== TYPE_VALUES (t
)
1720 && context
== TYPE_CONTEXT (t
))
1723 /* Construct a new type node and return it. */
1724 if (TREE_CODE (t
) == FUNCTION_TYPE
1725 && context
== NULL_TREE
)
1727 new_value
= build_function_type (type
, values
);
1729 else if (context
== NULL_TREE
)
1731 tree base
= tsubst (TREE_TYPE (TREE_VALUE (TYPE_ARG_TYPES (t
))),
1732 args
, nargs
, in_decl
);
1733 new_value
= build_cplus_method_type (base
, type
,
1734 TREE_CHAIN (values
));
1738 new_value
= make_node (TREE_CODE (t
));
1739 TREE_TYPE (new_value
) = type
;
1740 TYPE_CONTEXT (new_value
) = context
;
1741 TYPE_VALUES (new_value
) = values
;
1742 TYPE_SIZE (new_value
) = TYPE_SIZE (t
);
1743 TYPE_ALIGN (new_value
) = TYPE_ALIGN (t
);
1744 TYPE_MODE (new_value
) = TYPE_MODE (t
);
1745 if (TYPE_METHOD_BASETYPE (t
))
1746 TYPE_METHOD_BASETYPE (new_value
) = tsubst (TYPE_METHOD_BASETYPE (t
),
1747 args
, nargs
, in_decl
);
1748 /* Need to generate hash value. */
1749 my_friendly_abort (84);
1751 new_value
= build_type_variant (new_value
,
1758 tree domain
= tsubst (TYPE_DOMAIN (t
), args
, nargs
, in_decl
);
1760 if (type
== TREE_TYPE (t
) && domain
== TYPE_DOMAIN (t
))
1762 r
= build_cplus_array_type (type
, domain
);
1768 return fold (build (TREE_CODE (t
), TREE_TYPE (t
),
1769 tsubst (TREE_OPERAND (t
, 0), args
, nargs
, in_decl
),
1770 tsubst (TREE_OPERAND (t
, 1), args
, nargs
, in_decl
)));
1774 return fold (build1 (TREE_CODE (t
), TREE_TYPE (t
),
1775 tsubst (TREE_OPERAND (t
, 0), args
, nargs
, in_decl
)));
1779 tree ctx
= tsubst (TYPE_CONTEXT (t
), args
, nargs
, in_decl
);
1780 tree f
= make_typename_type (ctx
, TYPE_IDENTIFIER (t
));
1781 return cp_build_type_variant
1782 (f
, TYPE_READONLY (f
) || TYPE_READONLY (t
),
1783 TYPE_VOLATILE (f
) || TYPE_VOLATILE (t
));
1787 return make_pointer_declarator
1788 (type
, tsubst (TREE_OPERAND (t
, 0), args
, nargs
, in_decl
));
1791 return make_reference_declarator
1792 (type
, tsubst (TREE_OPERAND (t
, 0), args
, nargs
, in_decl
));
1795 return build_parse_node
1796 (ARRAY_REF
, tsubst (TREE_OPERAND (t
, 0), args
, nargs
, in_decl
),
1797 tsubst_expr (TREE_OPERAND (t
, 1), args
, nargs
, in_decl
));
1800 return build_parse_node
1801 (CALL_EXPR
, tsubst (TREE_OPERAND (t
, 0), args
, nargs
, in_decl
),
1802 tsubst (TREE_OPERAND (t
, 1), args
, nargs
, in_decl
), NULL_TREE
);
1805 return build_parse_node
1806 (TREE_CODE (t
), tsubst (TREE_OPERAND (t
, 0), args
, nargs
, in_decl
),
1807 tsubst (TREE_OPERAND (t
, 1), args
, nargs
, in_decl
));
1810 sorry ("use of `%s' in template",
1811 tree_code_name
[(int) TREE_CODE (t
)]);
1812 return error_mark_node
;
1819 emit_line_note (input_filename
, lineno
);
1823 expand_start_bindings (0);
1831 expand_end_bindings (getdecls (), kept_level_p (), 1);
1832 t
= poplevel (kept_level_p (), 1, 0);
1838 tsubst_copy (t
, args
, nargs
, in_decl
)
1843 enum tree_code code
;
1845 if (t
== NULL_TREE
|| t
== error_mark_node
)
1848 code
= TREE_CODE (t
);
1853 return do_identifier (DECL_NAME (t
), 0);
1857 if (DECL_CONTEXT (t
))
1859 tree ctx
= tsubst (DECL_CONTEXT (t
), args
, nargs
, in_decl
);
1860 if (ctx
!= DECL_CONTEXT (t
))
1861 return lookup_field (ctx
, DECL_NAME (t
), 0, 0);
1867 if (DECL_LANG_SPECIFIC (t
) && DECL_TEMPLATE_INFO (t
))
1868 t
= tsubst (t
, args
, nargs
, in_decl
);
1873 case IDENTIFIER_NODE
:
1874 return do_identifier (t
, 0);
1878 case REINTERPRET_CAST_EXPR
:
1880 (code
, tsubst (TREE_TYPE (t
), args
, nargs
, in_decl
),
1881 tsubst_copy (TREE_OPERAND (t
, 0), args
, nargs
, in_decl
));
1884 case PREDECREMENT_EXPR
:
1885 case PREINCREMENT_EXPR
:
1886 case POSTDECREMENT_EXPR
:
1887 case POSTINCREMENT_EXPR
:
1889 case TRUTH_NOT_EXPR
:
1891 case CONVERT_EXPR
: /* Unary + */
1897 tsubst_copy (TREE_OPERAND (t
, 0), args
, nargs
, in_decl
));
1902 case TRUNC_DIV_EXPR
:
1904 case FLOOR_DIV_EXPR
:
1905 case ROUND_DIV_EXPR
:
1906 case EXACT_DIV_EXPR
:
1908 case BIT_ANDTC_EXPR
:
1911 case TRUNC_MOD_EXPR
:
1912 case FLOOR_MOD_EXPR
:
1913 case TRUTH_ANDIF_EXPR
:
1914 case TRUTH_ORIF_EXPR
:
1915 case TRUTH_AND_EXPR
:
1936 (code
, tsubst_copy (TREE_OPERAND (t
, 0), args
, nargs
, in_decl
),
1937 tsubst_copy (TREE_OPERAND (t
, 1), args
, nargs
, in_decl
));
1941 tree fn
= TREE_OPERAND (t
, 0);
1942 if (really_overloaded_fn (fn
))
1943 fn
= tsubst_copy (TREE_VALUE (fn
), args
, nargs
, in_decl
);
1945 fn
= tsubst_copy (fn
, args
, nargs
, in_decl
);
1947 (code
, fn
, tsubst_copy (TREE_OPERAND (t
, 1), args
, nargs
, in_decl
),
1951 case METHOD_CALL_EXPR
:
1953 tree name
= TREE_OPERAND (t
, 0);
1954 if (TREE_CODE (name
) == BIT_NOT_EXPR
)
1956 name
= tsubst_copy (TREE_OPERAND (name
, 0), args
, nargs
, in_decl
);
1957 name
= build1 (BIT_NOT_EXPR
, NULL_TREE
, TYPE_MAIN_VARIANT (name
));
1959 else if (TREE_CODE (name
) == SCOPE_REF
1960 && TREE_CODE (TREE_OPERAND (name
, 1)) == BIT_NOT_EXPR
)
1962 tree base
= tsubst_copy (TREE_OPERAND (name
, 0), args
, nargs
, in_decl
);
1963 name
= TREE_OPERAND (name
, 1);
1964 name
= tsubst_copy (TREE_OPERAND (name
, 0), args
, nargs
, in_decl
);
1965 name
= build1 (BIT_NOT_EXPR
, NULL_TREE
, TYPE_MAIN_VARIANT (name
));
1966 name
= build_nt (SCOPE_REF
, base
, name
);
1969 name
= tsubst_copy (TREE_OPERAND (t
, 0), args
, nargs
, in_decl
);
1971 (code
, name
, tsubst_copy (TREE_OPERAND (t
, 1), args
, nargs
, in_decl
),
1972 tsubst_copy (TREE_OPERAND (t
, 2), args
, nargs
, in_decl
),
1979 (code
, tsubst_copy (TREE_OPERAND (t
, 0), args
, nargs
, in_decl
),
1980 tsubst_copy (TREE_OPERAND (t
, 1), args
, nargs
, in_decl
),
1981 tsubst_copy (TREE_OPERAND (t
, 2), args
, nargs
, in_decl
));
1986 (code
, tsubst_copy (TREE_OPERAND (t
, 0), args
, nargs
, in_decl
),
1987 tsubst_copy (TREE_OPERAND (t
, 1), args
, nargs
, in_decl
),
1988 tsubst_copy (TREE_OPERAND (t
, 2), args
, nargs
, in_decl
));
1989 NEW_EXPR_USE_GLOBAL (r
) = NEW_EXPR_USE_GLOBAL (t
);
1996 (code
, tsubst_copy (TREE_OPERAND (t
, 0), args
, nargs
, in_decl
),
1997 tsubst_copy (TREE_OPERAND (t
, 1), args
, nargs
, in_decl
));
1998 DELETE_EXPR_USE_GLOBAL (r
) = DELETE_EXPR_USE_GLOBAL (t
);
1999 DELETE_EXPR_USE_VEC (r
) = DELETE_EXPR_USE_VEC (t
);
2005 tree purpose
, value
, chain
;
2007 if (t
== void_list_node
)
2010 purpose
= TREE_PURPOSE (t
);
2012 purpose
= tsubst_copy (purpose
, args
, nargs
, in_decl
);
2013 value
= TREE_VALUE (t
);
2015 value
= tsubst_copy (value
, args
, nargs
, in_decl
);
2016 chain
= TREE_CHAIN (t
);
2017 if (chain
&& chain
!= void_type_node
)
2018 chain
= tsubst_copy (chain
, args
, nargs
, in_decl
);
2019 if (purpose
== TREE_PURPOSE (t
)
2020 && value
== TREE_VALUE (t
)
2021 && chain
== TREE_CHAIN (t
))
2023 return tree_cons (purpose
, value
, chain
);
2030 case TEMPLATE_TYPE_PARM
:
2031 case TEMPLATE_CONST_PARM
:
2033 case REFERENCE_TYPE
:
2039 return tsubst (t
, args
, nargs
, in_decl
);
2047 tsubst_expr (t
, args
, nargs
, in_decl
)
2052 if (t
== NULL_TREE
|| t
== error_mark_node
)
2055 if (current_template_parms
)
2056 return tsubst_copy (t
, args
, nargs
, in_decl
);
2058 switch (TREE_CODE (t
))
2061 lineno
= TREE_COMPLEXITY (t
);
2062 emit_line_note (input_filename
, lineno
);
2064 (tsubst_expr (TREE_OPERAND (t
, 0), args
, nargs
, in_decl
));
2069 lineno
= TREE_COMPLEXITY (t
);
2070 emit_line_note (input_filename
, lineno
);
2071 t
= tsubst_expr (TREE_OPERAND (t
, 0), args
, nargs
, in_decl
);
2072 /* Do default conversion if safe and possibly important,
2073 in case within ({...}). */
2074 if ((TREE_CODE (TREE_TYPE (t
)) == ARRAY_TYPE
&& lvalue_p (t
))
2075 || TREE_CODE (TREE_TYPE (t
)) == FUNCTION_TYPE
)
2076 t
= default_conversion (t
);
2077 cplus_expand_expr_stmt (t
);
2084 int i
= suspend_momentary ();
2087 lineno
= TREE_COMPLEXITY (t
);
2088 emit_line_note (input_filename
, lineno
);
2090 (tsubst (TREE_OPERAND (t
, 0), args
, nargs
, in_decl
),
2091 tsubst (TREE_OPERAND (t
, 1), args
, nargs
, in_decl
),
2092 TREE_OPERAND (t
, 3) != 0,
2093 tsubst (TREE_OPERAND (t
, 2), args
, nargs
, in_decl
));
2094 init
= tsubst_expr (TREE_OPERAND (t
, 3), args
, nargs
, in_decl
);
2096 (dcl
, init
, NULL_TREE
, 1, init
? LOOKUP_ONLYCONVERTING
: 0);
2097 resume_momentary (i
);
2104 int init_scope
= (flag_new_for_scope
> 0 && TREE_OPERAND (t
, 0)
2105 && TREE_CODE (TREE_OPERAND (t
, 0)) == DECL_STMT
);
2106 int cond_scope
= (TREE_OPERAND (t
, 1)
2107 && TREE_CODE (TREE_OPERAND (t
, 1)) == DECL_STMT
);
2109 lineno
= TREE_COMPLEXITY (t
);
2110 emit_line_note (input_filename
, lineno
);
2113 for (tmp
= TREE_OPERAND (t
, 0); tmp
; tmp
= TREE_CHAIN (tmp
))
2114 tsubst_expr (tmp
, args
, nargs
, in_decl
);
2116 emit_line_note (input_filename
, lineno
);
2117 expand_start_loop_continue_elsewhere (1);
2121 tmp
= tsubst_expr (TREE_OPERAND (t
, 1), args
, nargs
, in_decl
);
2122 emit_line_note (input_filename
, lineno
);
2124 expand_exit_loop_if_false (0, condition_conversion (tmp
));
2128 tsubst_expr (TREE_OPERAND (t
, 3), args
, nargs
, in_decl
);
2131 emit_line_note (input_filename
, lineno
);
2132 expand_loop_continue_here ();
2133 tmp
= tsubst_expr (TREE_OPERAND (t
, 2), args
, nargs
, in_decl
);
2135 cplus_expand_expr_stmt (tmp
);
2148 lineno
= TREE_COMPLEXITY (t
);
2150 emit_line_note (input_filename
, lineno
);
2151 expand_start_loop (1);
2153 cond
= TREE_OPERAND (t
, 0);
2154 if (TREE_CODE (cond
) == DECL_STMT
)
2156 cond
= tsubst_expr (cond
, args
, nargs
, in_decl
);
2157 emit_line_note (input_filename
, lineno
);
2158 expand_exit_loop_if_false (0, condition_conversion (cond
));
2160 if (TREE_CODE (TREE_OPERAND (t
, 0)) != DECL_STMT
)
2162 tsubst_expr (TREE_OPERAND (t
, 1), args
, nargs
, in_decl
);
2174 lineno
= TREE_COMPLEXITY (t
);
2176 emit_line_note (input_filename
, lineno
);
2177 expand_start_loop_continue_elsewhere (1);
2179 tsubst_expr (TREE_OPERAND (t
, 0), args
, nargs
, in_decl
);
2180 expand_loop_continue_here ();
2182 cond
= tsubst_expr (TREE_OPERAND (t
, 1), args
, nargs
, in_decl
);
2183 emit_line_note (input_filename
, lineno
);
2184 expand_exit_loop_if_false (0, condition_conversion (cond
));
2195 int cond_scope
= (TREE_CODE (TREE_OPERAND (t
, 0)) == DECL_STMT
);
2197 lineno
= TREE_COMPLEXITY (t
);
2200 tmp
= tsubst_expr (TREE_OPERAND (t
, 0), args
, nargs
, in_decl
);
2201 emit_line_note (input_filename
, lineno
);
2202 expand_start_cond (condition_conversion (tmp
), 0);
2204 if (tmp
= TREE_OPERAND (t
, 1), tmp
)
2205 tsubst_expr (tmp
, args
, nargs
, in_decl
);
2207 if (tmp
= TREE_OPERAND (t
, 2), tmp
)
2209 expand_start_else ();
2210 tsubst_expr (tmp
, args
, nargs
, in_decl
);
2224 tree substmt
= TREE_OPERAND (t
, 0);
2226 lineno
= TREE_COMPLEXITY (t
);
2228 if (COMPOUND_STMT_NO_SCOPE (t
) == 0)
2231 for (; substmt
; substmt
= TREE_CHAIN (substmt
))
2232 tsubst_expr (substmt
, args
, nargs
, in_decl
);
2234 if (COMPOUND_STMT_NO_SCOPE (t
) == 0)
2240 lineno
= TREE_COMPLEXITY (t
);
2241 emit_line_note (input_filename
, lineno
);
2242 if (! expand_exit_something ())
2243 error ("break statement not within loop or switch");
2249 int cond_scope
= (TREE_CODE (TREE_OPERAND (t
, 0)) == DECL_STMT
);
2251 lineno
= TREE_COMPLEXITY (t
);
2254 val
= tsubst_expr (TREE_OPERAND (t
, 0), args
, nargs
, in_decl
);
2255 emit_line_note (input_filename
, lineno
);
2256 c_expand_start_case (val
);
2259 if (tmp
= TREE_OPERAND (t
, 1), tmp
)
2260 tsubst_expr (tmp
, args
, nargs
, in_decl
);
2262 expand_end_case (val
);
2273 do_case (tsubst_expr (TREE_OPERAND (t
, 0), args
, nargs
, in_decl
),
2274 tsubst_expr (TREE_OPERAND (t
, 1), args
, nargs
, in_decl
));
2278 t
= define_label (DECL_SOURCE_FILE (t
), DECL_SOURCE_LINE (t
),
2285 lineno
= TREE_COMPLEXITY (t
);
2286 emit_line_note (input_filename
, lineno
);
2287 if (TREE_CODE (TREE_OPERAND (t
, 0)) == IDENTIFIER_NODE
)
2289 tree decl
= lookup_label (TREE_OPERAND (t
, 0));
2290 TREE_USED (decl
) = 1;
2294 expand_computed_goto
2295 (tsubst_expr (TREE_OPERAND (t
, 0), args
, nargs
, in_decl
));
2299 return build_expr_from_tree (tsubst_copy (t
, args
, nargs
, in_decl
));
2305 instantiate_template (tmpl
, targ_ptr
)
2306 tree tmpl
, *targ_ptr
;
2310 struct obstack
*old_fmp_obstack
;
2311 extern struct obstack
*function_maybepermanent_obstack
;
2313 push_obstacks (&permanent_obstack
, &permanent_obstack
);
2314 old_fmp_obstack
= function_maybepermanent_obstack
;
2315 function_maybepermanent_obstack
= &permanent_obstack
;
2317 my_friendly_assert (TREE_CODE (tmpl
) == TEMPLATE_DECL
, 283);
2318 len
= TREE_VEC_LENGTH (DECL_TEMPLATE_PARMS (tmpl
));
2323 tree t
= targ_ptr
[i
];
2324 if (TREE_CODE_CLASS (TREE_CODE (t
)) == 't')
2326 tree nt
= target_type (t
);
2327 if (IS_AGGR_TYPE (nt
) && decl_function_context (TYPE_MAIN_DECL (nt
)))
2329 cp_error ("type `%T' composed from a local class is not a valid template-argument", t
);
2330 cp_error (" trying to instantiate `%D'", tmpl
);
2331 fndecl
= error_mark_node
;
2335 targ_ptr
[i
] = copy_to_permanent (t
);
2338 /* substitute template parameters */
2339 fndecl
= tsubst (DECL_RESULT (tmpl
), targ_ptr
, len
, tmpl
);
2342 function_maybepermanent_obstack
= old_fmp_obstack
;
2348 /* Push the name of the class template into the scope of the instantiation. */
2351 overload_template_name (type
)
2354 tree id
= DECL_NAME (CLASSTYPE_TI_TEMPLATE (type
));
2357 if (IDENTIFIER_CLASS_VALUE (id
)
2358 && TREE_TYPE (IDENTIFIER_CLASS_VALUE (id
)) == type
)
2361 decl
= build_decl (TYPE_DECL
, id
, type
);
2362 SET_DECL_ARTIFICIAL (decl
);
2363 pushdecl_class_level (decl
);
2366 /* Type unification.
2368 We have a function template signature with one or more references to
2369 template parameters, and a parameter list we wish to fit to this
2370 template. If possible, produce a list of parameters for the template
2371 which will cause it to fit the supplied parameter list.
2373 Return zero for success, 2 for an incomplete match that doesn't resolve
2374 all the types, and 1 for complete failure. An error message will be
2375 printed only for an incomplete match.
2377 TPARMS[NTPARMS] is an array of template parameter types;
2378 TARGS[NTPARMS] is the array of template parameter values. PARMS is
2379 the function template's signature (using TEMPLATE_PARM_IDX nodes),
2380 and ARGS is the argument list we're trying to match against it.
2382 If SUBR is 1, we're being called recursively (to unify the arguments of
2383 a function or method parameter of a function template), so don't zero
2384 out targs and don't fail on an incomplete match. */
2387 type_unification (tparms
, targs
, parms
, args
, nsubsts
, subr
)
2388 tree tparms
, *targs
, parms
, args
;
2393 int ntparms
= TREE_VEC_LENGTH (tparms
);
2395 my_friendly_assert (TREE_CODE (tparms
) == TREE_VEC
, 289);
2396 my_friendly_assert (TREE_CODE (parms
) == TREE_LIST
, 290);
2397 /* ARGS could be NULL (via a call from parse.y to
2398 build_x_function_call). */
2400 my_friendly_assert (TREE_CODE (args
) == TREE_LIST
, 291);
2401 my_friendly_assert (ntparms
> 0, 292);
2404 bzero ((char *) targs
, sizeof (tree
) * ntparms
);
2407 && parms
!= void_list_node
2409 && args
!= void_list_node
)
2411 parm
= TREE_VALUE (parms
);
2412 parms
= TREE_CHAIN (parms
);
2413 arg
= TREE_VALUE (args
);
2414 args
= TREE_CHAIN (args
);
2416 if (arg
== error_mark_node
)
2418 if (arg
== unknown_type_node
)
2421 if (! uses_template_parms (parm
)
2422 && TREE_CODE_CLASS (TREE_CODE (arg
)) != 't')
2424 if (can_convert_arg (parm
, TREE_TYPE (arg
), arg
))
2430 if (TREE_CODE (arg
) == VAR_DECL
)
2431 arg
= TREE_TYPE (arg
);
2432 else if (TREE_CODE_CLASS (TREE_CODE (arg
)) == 'e')
2433 arg
= TREE_TYPE (arg
);
2435 if (TREE_CODE_CLASS (TREE_CODE (arg
)) != 't')
2437 my_friendly_assert (TREE_TYPE (arg
) != NULL_TREE
, 293);
2438 if (TREE_CODE (arg
) == TREE_LIST
2439 && TREE_TYPE (arg
) == unknown_type_node
2440 && TREE_CODE (TREE_VALUE (arg
)) == TEMPLATE_DECL
)
2442 int nsubsts
, ntparms
;
2445 /* Have to back unify here */
2446 arg
= TREE_VALUE (arg
);
2448 ntparms
= TREE_VEC_LENGTH (DECL_TEMPLATE_PARMS (arg
));
2449 targs
= (tree
*) alloca (sizeof (tree
) * ntparms
);
2450 parm
= tree_cons (NULL_TREE
, parm
, NULL_TREE
);
2451 return type_unification (DECL_TEMPLATE_PARMS (arg
), targs
,
2452 TYPE_ARG_TYPES (TREE_TYPE (arg
)),
2455 arg
= TREE_TYPE (arg
);
2458 if (TREE_CODE (arg
) == REFERENCE_TYPE
)
2459 arg
= TREE_TYPE (arg
);
2461 if (TREE_CODE (parm
) != REFERENCE_TYPE
)
2463 if (TREE_CODE (arg
) == FUNCTION_TYPE
2464 || TREE_CODE (arg
) == METHOD_TYPE
)
2465 arg
= build_pointer_type (arg
);
2466 else if (TREE_CODE (arg
) == ARRAY_TYPE
)
2467 arg
= build_pointer_type (TREE_TYPE (arg
));
2469 arg
= TYPE_MAIN_VARIANT (arg
);
2472 switch (unify (tparms
, targs
, ntparms
, parm
, arg
, nsubsts
))
2480 /* Fail if we've reached the end of the parm list, and more args
2481 are present, and the parm list isn't variadic. */
2482 if (args
&& args
!= void_list_node
&& parms
== void_list_node
)
2484 /* Fail if parms are left and they don't have default values. */
2486 && parms
!= void_list_node
2487 && TREE_PURPOSE (parms
) == NULL_TREE
)
2490 for (i
= 0; i
< ntparms
; i
++)
2493 error ("incomplete type unification");
2499 /* Tail recursion is your friend. */
2501 unify (tparms
, targs
, ntparms
, parm
, arg
, nsubsts
)
2502 tree tparms
, *targs
, parm
, arg
;
2503 int *nsubsts
, ntparms
;
2507 /* I don't think this will do the right thing with respect to types.
2508 But the only case I've seen it in so far has been array bounds, where
2509 signedness is the only information lost, and I think that will be
2511 while (TREE_CODE (parm
) == NOP_EXPR
)
2512 parm
= TREE_OPERAND (parm
, 0);
2514 if (arg
== error_mark_node
)
2516 if (arg
== unknown_type_node
)
2521 switch (TREE_CODE (parm
))
2523 case TEMPLATE_TYPE_PARM
:
2525 idx
= TEMPLATE_TYPE_IDX (parm
);
2527 /* Template type parameters cannot contain cv-quals; i.e.
2528 template <class T> void f (T& a, T& b) will not generate
2529 void f (const int& a, const int& b). */
2530 if (TYPE_READONLY (arg
) > TYPE_READONLY (parm
)
2531 || TYPE_VOLATILE (arg
) > TYPE_VOLATILE (parm
))
2533 arg
= TYPE_MAIN_VARIANT (arg
);
2536 int constp
= TYPE_READONLY (arg
) > TYPE_READONLY (parm
);
2537 int volatilep
= TYPE_VOLATILE (arg
) > TYPE_VOLATILE (parm
);
2538 arg
= cp_build_type_variant (arg
, constp
, volatilep
);
2541 /* Simple cases: Value already set, does match or doesn't. */
2542 if (targs
[idx
] == arg
)
2544 else if (targs
[idx
])
2546 /* Check for mixed types and values. */
2547 if (TREE_CODE (TREE_VALUE (TREE_VEC_ELT (tparms
, idx
))) != TYPE_DECL
)
2551 case TEMPLATE_CONST_PARM
:
2553 idx
= TEMPLATE_CONST_IDX (parm
);
2554 if (targs
[idx
] == arg
)
2556 else if (targs
[idx
])
2558 tree t
= targs
[idx
];
2559 if (TREE_CODE (t
) == TREE_CODE (arg
))
2560 switch (TREE_CODE (arg
))
2563 if (tree_int_cst_equal (t
, arg
))
2567 if (REAL_VALUES_EQUAL (TREE_REAL_CST (t
), TREE_REAL_CST (arg
)))
2570 /* STRING_CST values are not valid template const parms. */
2574 my_friendly_abort (87);
2577 /* else if (typeof arg != tparms[idx])
2580 targs
[idx
] = copy_to_permanent (arg
);
2584 if (TREE_CODE (arg
) == RECORD_TYPE
&& TYPE_PTRMEMFUNC_FLAG (arg
))
2585 return unify (tparms
, targs
, ntparms
, parm
,
2586 TYPE_PTRMEMFUNC_FN_TYPE (arg
), nsubsts
);
2588 if (TREE_CODE (arg
) != POINTER_TYPE
)
2590 return unify (tparms
, targs
, ntparms
, TREE_TYPE (parm
), TREE_TYPE (arg
),
2593 case REFERENCE_TYPE
:
2594 if (TREE_CODE (arg
) == REFERENCE_TYPE
)
2595 arg
= TREE_TYPE (arg
);
2596 return unify (tparms
, targs
, ntparms
, TREE_TYPE (parm
), arg
, nsubsts
);
2599 if (TREE_CODE (arg
) != ARRAY_TYPE
)
2601 if (unify (tparms
, targs
, ntparms
, TYPE_DOMAIN (parm
), TYPE_DOMAIN (arg
),
2604 return unify (tparms
, targs
, ntparms
, TREE_TYPE (parm
), TREE_TYPE (arg
),
2609 if (TREE_CODE (arg
) != TREE_CODE (parm
))
2612 if (TREE_CODE (parm
) == INTEGER_TYPE
)
2614 if (TYPE_MIN_VALUE (parm
) && TYPE_MIN_VALUE (arg
)
2615 && unify (tparms
, targs
, ntparms
,
2616 TYPE_MIN_VALUE (parm
), TYPE_MIN_VALUE (arg
), nsubsts
))
2618 if (TYPE_MAX_VALUE (parm
) && TYPE_MAX_VALUE (arg
)
2619 && unify (tparms
, targs
, ntparms
,
2620 TYPE_MAX_VALUE (parm
), TYPE_MAX_VALUE (arg
), nsubsts
))
2623 /* As far as unification is concerned, this wins. Later checks
2624 will invalidate it if necessary. */
2627 /* Types INTEGER_CST and MINUS_EXPR can come from array bounds. */
2629 if (TREE_CODE (arg
) != INTEGER_CST
)
2631 return !tree_int_cst_equal (parm
, arg
);
2636 t1
= TREE_OPERAND (parm
, 0);
2637 t2
= TREE_OPERAND (parm
, 1);
2638 return unify (tparms
, targs
, ntparms
, t1
,
2639 fold (build (PLUS_EXPR
, integer_type_node
, arg
, t2
)),
2646 if (TREE_CODE (arg
) != TREE_VEC
)
2648 if (TREE_VEC_LENGTH (parm
) != TREE_VEC_LENGTH (arg
))
2650 for (i
= TREE_VEC_LENGTH (parm
) - 1; i
>= 0; i
--)
2651 if (unify (tparms
, targs
, ntparms
,
2652 TREE_VEC_ELT (parm
, i
), TREE_VEC_ELT (arg
, i
),
2659 if (TYPE_PTRMEMFUNC_FLAG (parm
))
2660 return unify (tparms
, targs
, ntparms
, TYPE_PTRMEMFUNC_FN_TYPE (parm
),
2663 /* Allow trivial conversions. */
2664 if (TREE_CODE (arg
) != RECORD_TYPE
2665 || TYPE_READONLY (parm
) < TYPE_READONLY (arg
)
2666 || TYPE_VOLATILE (parm
) < TYPE_VOLATILE (arg
))
2669 if (CLASSTYPE_TEMPLATE_INFO (parm
) && CLASSTYPE_TEMPLATE_INFO (arg
)
2670 && uses_template_parms (parm
))
2672 if (CLASSTYPE_TI_TEMPLATE (parm
) != CLASSTYPE_TI_TEMPLATE (arg
))
2674 return unify (tparms
, targs
, ntparms
, CLASSTYPE_TI_ARGS (parm
),
2675 CLASSTYPE_TI_ARGS (arg
), nsubsts
);
2677 else if (TYPE_MAIN_VARIANT (parm
) != TYPE_MAIN_VARIANT (arg
))
2682 if (TREE_CODE (arg
) != METHOD_TYPE
)
2687 if (TREE_CODE (arg
) != FUNCTION_TYPE
)
2690 if (unify (tparms
, targs
, ntparms
, TREE_TYPE (parm
),
2691 TREE_TYPE (arg
), nsubsts
))
2693 return type_unification (tparms
, targs
, TYPE_ARG_TYPES (parm
),
2694 TYPE_ARG_TYPES (arg
), nsubsts
, 1);
2697 if (TREE_CODE (arg
) != OFFSET_TYPE
)
2699 if (unify (tparms
, targs
, ntparms
, TYPE_OFFSET_BASETYPE (parm
),
2700 TYPE_OFFSET_BASETYPE (arg
), nsubsts
))
2702 return unify (tparms
, targs
, ntparms
, TREE_TYPE (parm
),
2703 TREE_TYPE (arg
), nsubsts
);
2706 sorry ("use of `%s' in template type unification",
2707 tree_code_name
[(int) TREE_CODE (parm
)]);
2713 mark_decl_instantiated (result
, extern_p
)
2717 if (DECL_TEMPLATE_INSTANTIATION (result
))
2718 SET_DECL_EXPLICIT_INSTANTIATION (result
);
2719 TREE_PUBLIC (result
) = 1;
2723 DECL_INTERFACE_KNOWN (result
) = 1;
2724 DECL_NOT_REALLY_EXTERN (result
) = 1;
2728 /* called from the parser. */
2730 do_function_instantiation (declspecs
, declarator
, storage
)
2731 tree declspecs
, declarator
, storage
;
2733 tree decl
= grokdeclarator (declarator
, declspecs
, NORMAL
, 0,
2734 NULL_TREE
, NULL_TREE
);
2737 tree result
= NULL_TREE
;
2740 if (! DECL_LANG_SPECIFIC (decl
))
2742 cp_error ("explicit instantiation of non-template `%#D'", decl
);
2746 /* If we've already seen this template instance, use it. */
2747 if (DECL_FUNCTION_MEMBER_P (decl
))
2749 if (DECL_TEMPLATE_INSTANTIATION (decl
))
2751 else if (name
= DECL_ASSEMBLER_NAME (decl
),
2752 fn
= IDENTIFIER_GLOBAL_VALUE (name
),
2753 fn
&& DECL_TEMPLATE_INSTANTIATION (fn
))
2756 else if (name
= DECL_NAME (decl
), fn
= IDENTIFIER_GLOBAL_VALUE (name
), fn
)
2758 for (fn
= get_first_fn (fn
); fn
; fn
= DECL_CHAIN (fn
))
2759 if (decls_match (fn
, decl
)
2760 && DECL_DEFER_OUTPUT (fn
))
2765 else if (TREE_CODE (fn
) == TEMPLATE_DECL
)
2767 int ntparms
= TREE_VEC_LENGTH (DECL_TEMPLATE_PARMS (fn
));
2768 tree
*targs
= (tree
*) malloc (sizeof (tree
) * ntparms
);
2770 i
= type_unification (DECL_TEMPLATE_PARMS (fn
), targs
,
2771 TYPE_ARG_TYPES (TREE_TYPE (fn
)),
2772 TYPE_ARG_TYPES (TREE_TYPE (decl
)),
2777 cp_error ("ambiguous template instantiation for `%D' requested", decl
);
2779 result
= instantiate_template (fn
, targs
);
2786 cp_error ("no matching template for `%D' found", decl
);
2790 if (flag_external_templates
)
2793 if (storage
== NULL_TREE
)
2795 else if (storage
== ridpointers
[(int) RID_EXTERN
])
2798 cp_error ("storage class `%D' applied to template instantiation",
2801 mark_decl_instantiated (result
, extern_p
);
2802 repo_template_instantiated (result
, extern_p
);
2804 instantiate_decl (result
);
2808 mark_class_instantiated (t
, extern_p
)
2812 SET_CLASSTYPE_EXPLICIT_INSTANTIATION (t
);
2813 SET_CLASSTYPE_INTERFACE_KNOWN (t
);
2814 CLASSTYPE_INTERFACE_ONLY (t
) = extern_p
;
2815 CLASSTYPE_VTABLE_NEEDS_WRITING (t
) = ! extern_p
;
2816 TYPE_DECL_SUPPRESS_DEBUG (TYPE_NAME (t
)) = extern_p
;
2819 CLASSTYPE_DEBUG_REQUESTED (t
) = 1;
2820 rest_of_type_compilation (t
, 1);
2825 do_type_instantiation (name
, storage
)
2828 tree t
= TREE_TYPE (name
);
2835 /* With -fexternal-templates, explicit instantiations are treated the same
2836 as implicit ones. */
2837 if (flag_external_templates
)
2840 if (TYPE_SIZE (t
) == NULL_TREE
)
2842 cp_error ("explicit instantiation of `%#T' before definition of template",
2847 if (storage
== NULL_TREE
)
2849 else if (storage
== ridpointers
[(int) RID_INLINE
])
2851 else if (storage
== ridpointers
[(int) RID_EXTERN
])
2853 else if (storage
== ridpointers
[(int) RID_STATIC
])
2857 cp_error ("storage class `%D' applied to template instantiation",
2862 /* We've already instantiated this. */
2863 if (CLASSTYPE_EXPLICIT_INSTANTIATION (t
) && ! CLASSTYPE_INTERFACE_ONLY (t
)
2867 if (! CLASSTYPE_TEMPLATE_SPECIALIZATION (t
))
2869 mark_class_instantiated (t
, extern_p
);
2870 repo_template_instantiated (t
, extern_p
);
2880 for (tmp
= TYPE_METHODS (t
); tmp
; tmp
= TREE_CHAIN (tmp
))
2881 if (DECL_TEMPLATE_INSTANTIATION (tmp
))
2883 mark_decl_instantiated (tmp
, extern_p
);
2884 repo_template_instantiated (tmp
, extern_p
);
2886 instantiate_decl (tmp
);
2889 for (tmp
= TYPE_FIELDS (t
); tmp
; tmp
= TREE_CHAIN (tmp
))
2890 if (TREE_CODE (tmp
) == VAR_DECL
&& DECL_TEMPLATE_INSTANTIATION (tmp
))
2892 mark_decl_instantiated (tmp
, extern_p
);
2893 repo_template_instantiated (tmp
, extern_p
);
2895 instantiate_decl (tmp
);
2898 for (tmp
= CLASSTYPE_TAGS (t
); tmp
; tmp
= TREE_CHAIN (tmp
))
2899 if (IS_AGGR_TYPE (TREE_VALUE (tmp
)))
2900 do_type_instantiation (TYPE_MAIN_DECL (TREE_VALUE (tmp
)), storage
);
2905 instantiate_decl (d
)
2908 tree ti
= DECL_TEMPLATE_INFO (d
);
2909 tree tmpl
= TI_TEMPLATE (ti
);
2910 tree args
= TI_ARGS (ti
);
2912 tree pattern
= DECL_TEMPLATE_RESULT (tmpl
);
2914 int nested
= in_function_p ();
2916 int pattern_defined
;
2918 if (TREE_CODE (d
) == FUNCTION_DECL
)
2920 d_defined
= (DECL_INITIAL (d
) != NULL_TREE
);
2921 pattern_defined
= (DECL_INITIAL (pattern
) != NULL_TREE
);
2925 d_defined
= ! DECL_IN_AGGR_P (d
);
2926 pattern_defined
= ! DECL_IN_AGGR_P (pattern
);
2931 else if (pattern_defined
)
2933 repo_template_used (d
);
2935 if (flag_external_templates
&& ! DECL_INTERFACE_KNOWN (d
))
2937 if (flag_alt_external_templates
)
2939 if (interface_unknown
)
2940 warn_if_unknown_interface (d
);
2942 else if (DECL_INTERFACE_KNOWN (pattern
))
2944 DECL_INTERFACE_KNOWN (d
) = 1;
2945 DECL_NOT_REALLY_EXTERN (d
) = ! DECL_EXTERNAL (pattern
);
2948 warn_if_unknown_interface (pattern
);
2951 if (at_eof
&& ! DECL_INLINE (d
))
2952 import_export_decl (d
);
2955 if (! pattern_defined
2956 || (TREE_CODE (d
) == FUNCTION_DECL
&& ! DECL_INLINE (d
)
2957 && (! DECL_INTERFACE_KNOWN (d
)
2958 || ! DECL_NOT_REALLY_EXTERN (d
)))
2959 /* Kludge: if we compile a constructor in the middle of processing a
2960 toplevel declaration, we blow away the declspecs in
2961 temp_decl_obstack when we call permanent_allocation in
2962 finish_function. So don't compile it yet. */
2963 || (TREE_CODE (d
) == FUNCTION_DECL
&& ! nested
&& ! at_eof
))
2965 add_pending_template (d
);
2969 if (! push_tinst_level (d
))
2972 if (TREE_CODE (d
) == FUNCTION_DECL
&& nested
)
2973 push_cp_function_context (NULL_TREE
);
2974 push_to_top_level ();
2976 /* Trick tsubst into giving us a new decl in case the template changed. */
2977 save_ti
= DECL_TEMPLATE_INFO (pattern
);
2978 DECL_TEMPLATE_INFO (pattern
) = NULL_TREE
;
2979 td
= tsubst (pattern
, &TREE_VEC_ELT (args
, 0), TREE_VEC_LENGTH (args
), tmpl
);
2980 DECL_TEMPLATE_INFO (pattern
) = save_ti
;
2982 /* Convince duplicate_decls to use the DECL_ARGUMENTS from the new decl. */
2983 if (TREE_CODE (d
) == FUNCTION_DECL
)
2984 DECL_INITIAL (td
) = error_mark_node
;
2985 duplicate_decls (td
, d
);
2986 if (TREE_CODE (d
) == FUNCTION_DECL
)
2987 DECL_INITIAL (td
) = 0;
2989 if (TREE_CODE (d
) == VAR_DECL
)
2991 DECL_IN_AGGR_P (d
) = 0;
2992 if (DECL_INTERFACE_KNOWN (d
))
2993 DECL_EXTERNAL (d
) = ! DECL_NOT_REALLY_EXTERN (d
);
2996 DECL_EXTERNAL (d
) = 1;
2997 DECL_NOT_REALLY_EXTERN (d
) = 1;
2999 cp_finish_decl (d
, DECL_INITIAL (d
), NULL_TREE
, 0, 0);
3001 else if (TREE_CODE (d
) == FUNCTION_DECL
)
3003 tree t
= DECL_SAVED_TREE (pattern
);
3005 char *file
= input_filename
;
3007 lineno
= DECL_SOURCE_LINE (d
);
3008 input_filename
= DECL_SOURCE_FILE (d
);
3010 start_function (NULL_TREE
, d
, NULL_TREE
, NULL_TREE
, 1);
3011 store_parm_decls ();
3013 if (t
&& TREE_CODE (t
) == RETURN_INIT
)
3016 (TREE_OPERAND (t
, 0),
3017 tsubst_expr (TREE_OPERAND (t
, 1), &TREE_VEC_ELT (args
, 0),
3018 TREE_VEC_LENGTH (args
), tmpl
));
3022 if (t
&& TREE_CODE (t
) == CTOR_INITIALIZER
)
3024 current_member_init_list
3025 = tsubst_expr_values (TREE_OPERAND (t
, 0), args
);
3026 current_base_init_list
3027 = tsubst_expr_values (TREE_OPERAND (t
, 1), args
);
3032 /* Always keep the BLOCK node associated with the outermost
3033 pair of curley braces of a function. These are needed
3034 for correct operation of dwarfout.c. */
3037 my_friendly_assert (TREE_CODE (t
) == COMPOUND_STMT
, 42);
3038 tsubst_expr (t
, &TREE_VEC_ELT (args
, 0),
3039 TREE_VEC_LENGTH (args
), tmpl
);
3041 finish_function (lineno
, 0, nested
);
3044 input_filename
= file
;
3047 pop_from_top_level ();
3048 if (TREE_CODE (d
) == FUNCTION_DECL
&& nested
)
3049 pop_cp_function_context (NULL_TREE
);
3056 tsubst_chain (t
, argvec
)
3061 tree first
= tsubst (t
, &TREE_VEC_ELT (argvec
, 0),
3062 TREE_VEC_LENGTH (argvec
), NULL_TREE
);
3065 for (t
= TREE_CHAIN (t
); t
; t
= TREE_CHAIN (t
))
3067 tree x
= tsubst (t
, &TREE_VEC_ELT (argvec
, 0),
3068 TREE_VEC_LENGTH (argvec
), NULL_TREE
);
3069 TREE_CHAIN (last
) = x
;
3079 tsubst_expr_values (t
, argvec
)
3082 tree first
= NULL_TREE
;
3085 for (; t
; t
= TREE_CHAIN (t
))
3087 tree pur
= tsubst_copy (TREE_PURPOSE (t
), &TREE_VEC_ELT (argvec
, 0),
3088 TREE_VEC_LENGTH (argvec
), NULL_TREE
);
3089 tree val
= tsubst_expr (TREE_VALUE (t
), &TREE_VEC_ELT (argvec
, 0),
3090 TREE_VEC_LENGTH (argvec
), NULL_TREE
);
3091 *p
= build_tree_list (pur
, val
);
3092 p
= &TREE_CHAIN (*p
);
3103 last_tree
= TREE_CHAIN (last_tree
) = t
;