Remove old autovect-branch by moving to "dead" directory.
[official-gcc.git] / old-autovect-branch / gcc / cp / call.c
blob53040d5e13bbc56bfe6bbe8c9430236dd239f355
1 /* Functions related to invoking methods and overloaded functions.
2 Copyright (C) 1987, 1992, 1993, 1994, 1995, 1996, 1997, 1998,
3 1999, 2000, 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc.
4 Contributed by Michael Tiemann (tiemann@cygnus.com) and
5 modified by Brendan Kehoe (brendan@cygnus.com).
7 This file is part of GCC.
9 GCC is free software; you can redistribute it and/or modify
10 it under the terms of the GNU General Public License as published by
11 the Free Software Foundation; either version 2, or (at your option)
12 any later version.
14 GCC is distributed in the hope that it will be useful,
15 but WITHOUT ANY WARRANTY; without even the implied warranty of
16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 GNU General Public License for more details.
19 You should have received a copy of the GNU General Public License
20 along with GCC; see the file COPYING. If not, write to
21 the Free Software Foundation, 51 Franklin Street, Fifth Floor,
22 Boston, MA 02110-1301, USA. */
25 /* High-level class interface. */
27 #include "config.h"
28 #include "system.h"
29 #include "coretypes.h"
30 #include "tm.h"
31 #include "tree.h"
32 #include "cp-tree.h"
33 #include "output.h"
34 #include "flags.h"
35 #include "rtl.h"
36 #include "toplev.h"
37 #include "expr.h"
38 #include "diagnostic.h"
39 #include "intl.h"
40 #include "target.h"
41 #include "convert.h"
43 /* The various kinds of conversion. */
45 typedef enum conversion_kind {
46 ck_identity,
47 ck_lvalue,
48 ck_qual,
49 ck_std,
50 ck_ptr,
51 ck_pmem,
52 ck_base,
53 ck_ref_bind,
54 ck_user,
55 ck_ambig,
56 ck_rvalue
57 } conversion_kind;
59 /* The rank of the conversion. Order of the enumerals matters; better
60 conversions should come earlier in the list. */
62 typedef enum conversion_rank {
63 cr_identity,
64 cr_exact,
65 cr_promotion,
66 cr_std,
67 cr_pbool,
68 cr_user,
69 cr_ellipsis,
70 cr_bad
71 } conversion_rank;
73 /* An implicit conversion sequence, in the sense of [over.best.ics].
74 The first conversion to be performed is at the end of the chain.
75 That conversion is always a cr_identity conversion. */
77 typedef struct conversion conversion;
78 struct conversion {
79 /* The kind of conversion represented by this step. */
80 conversion_kind kind;
81 /* The rank of this conversion. */
82 conversion_rank rank;
83 BOOL_BITFIELD user_conv_p : 1;
84 BOOL_BITFIELD ellipsis_p : 1;
85 BOOL_BITFIELD this_p : 1;
86 BOOL_BITFIELD bad_p : 1;
87 /* If KIND is ck_ref_bind ck_base_conv, true to indicate that a
88 temporary should be created to hold the result of the
89 conversion. */
90 BOOL_BITFIELD need_temporary_p : 1;
91 /* If KIND is ck_identity or ck_base_conv, true to indicate that the
92 copy constructor must be accessible, even though it is not being
93 used. */
94 BOOL_BITFIELD check_copy_constructor_p : 1;
95 /* If KIND is ck_ptr or ck_pmem, true to indicate that a conversion
96 from a pointer-to-derived to pointer-to-base is being performed. */
97 BOOL_BITFIELD base_p : 1;
98 /* The type of the expression resulting from the conversion. */
99 tree type;
100 union {
101 /* The next conversion in the chain. Since the conversions are
102 arranged from outermost to innermost, the NEXT conversion will
103 actually be performed before this conversion. This variant is
104 used only when KIND is neither ck_identity nor ck_ambig. */
105 conversion *next;
106 /* The expression at the beginning of the conversion chain. This
107 variant is used only if KIND is ck_identity or ck_ambig. */
108 tree expr;
109 } u;
110 /* The function candidate corresponding to this conversion
111 sequence. This field is only used if KIND is ck_user. */
112 struct z_candidate *cand;
115 #define CONVERSION_RANK(NODE) \
116 ((NODE)->bad_p ? cr_bad \
117 : (NODE)->ellipsis_p ? cr_ellipsis \
118 : (NODE)->user_conv_p ? cr_user \
119 : (NODE)->rank)
121 static struct obstack conversion_obstack;
122 static bool conversion_obstack_initialized;
124 static struct z_candidate * tourney (struct z_candidate *);
125 static int equal_functions (tree, tree);
126 static int joust (struct z_candidate *, struct z_candidate *, bool);
127 static int compare_ics (conversion *, conversion *);
128 static tree build_over_call (struct z_candidate *, int);
129 static tree build_java_interface_fn_ref (tree, tree);
130 #define convert_like(CONV, EXPR) \
131 convert_like_real ((CONV), (EXPR), NULL_TREE, 0, 0, \
132 /*issue_conversion_warnings=*/true, \
133 /*c_cast_p=*/false)
134 #define convert_like_with_context(CONV, EXPR, FN, ARGNO) \
135 convert_like_real ((CONV), (EXPR), (FN), (ARGNO), 0, \
136 /*issue_conversion_warnings=*/true, \
137 /*c_cast_p=*/false)
138 static tree convert_like_real (conversion *, tree, tree, int, int, bool,
139 bool);
140 static void op_error (enum tree_code, enum tree_code, tree, tree,
141 tree, const char *);
142 static tree build_object_call (tree, tree);
143 static tree resolve_args (tree);
144 static struct z_candidate *build_user_type_conversion_1 (tree, tree, int);
145 static void print_z_candidate (const char *, struct z_candidate *);
146 static void print_z_candidates (struct z_candidate *);
147 static tree build_this (tree);
148 static struct z_candidate *splice_viable (struct z_candidate *, bool, bool *);
149 static bool any_strictly_viable (struct z_candidate *);
150 static struct z_candidate *add_template_candidate
151 (struct z_candidate **, tree, tree, tree, tree, tree,
152 tree, tree, int, unification_kind_t);
153 static struct z_candidate *add_template_candidate_real
154 (struct z_candidate **, tree, tree, tree, tree, tree,
155 tree, tree, int, tree, unification_kind_t);
156 static struct z_candidate *add_template_conv_candidate
157 (struct z_candidate **, tree, tree, tree, tree, tree, tree);
158 static void add_builtin_candidates
159 (struct z_candidate **, enum tree_code, enum tree_code,
160 tree, tree *, int);
161 static void add_builtin_candidate
162 (struct z_candidate **, enum tree_code, enum tree_code,
163 tree, tree, tree, tree *, tree *, int);
164 static bool is_complete (tree);
165 static void build_builtin_candidate
166 (struct z_candidate **, tree, tree, tree, tree *, tree *,
167 int);
168 static struct z_candidate *add_conv_candidate
169 (struct z_candidate **, tree, tree, tree, tree, tree);
170 static struct z_candidate *add_function_candidate
171 (struct z_candidate **, tree, tree, tree, tree, tree, int);
172 static conversion *implicit_conversion (tree, tree, tree, bool, int);
173 static conversion *standard_conversion (tree, tree, tree, bool, int);
174 static conversion *reference_binding (tree, tree, tree, int);
175 static conversion *build_conv (conversion_kind, tree, conversion *);
176 static bool is_subseq (conversion *, conversion *);
177 static tree maybe_handle_ref_bind (conversion **);
178 static void maybe_handle_implicit_object (conversion **);
179 static struct z_candidate *add_candidate
180 (struct z_candidate **, tree, tree, size_t,
181 conversion **, tree, tree, int);
182 static tree source_type (conversion *);
183 static void add_warning (struct z_candidate *, struct z_candidate *);
184 static bool reference_related_p (tree, tree);
185 static bool reference_compatible_p (tree, tree);
186 static conversion *convert_class_to_reference (tree, tree, tree);
187 static conversion *direct_reference_binding (tree, conversion *);
188 static bool promoted_arithmetic_type_p (tree);
189 static conversion *conditional_conversion (tree, tree);
190 static char *name_as_c_string (tree, tree, bool *);
191 static tree call_builtin_trap (void);
192 static tree prep_operand (tree);
193 static void add_candidates (tree, tree, tree, bool, tree, tree,
194 int, struct z_candidate **);
195 static conversion *merge_conversion_sequences (conversion *, conversion *);
196 static bool magic_varargs_p (tree);
197 typedef void (*diagnostic_fn_t) (const char *, ...) ATTRIBUTE_GCC_CXXDIAG(1,2);
198 static tree build_temp (tree, tree, int, diagnostic_fn_t *);
199 static void check_constructor_callable (tree, tree);
201 /* Returns nonzero iff the destructor name specified in NAME
202 (a BIT_NOT_EXPR) matches BASETYPE. The operand of NAME can take many
203 forms... */
205 bool
206 check_dtor_name (tree basetype, tree name)
208 name = TREE_OPERAND (name, 0);
210 /* Just accept something we've already complained about. */
211 if (name == error_mark_node)
212 return true;
214 if (TREE_CODE (name) == TYPE_DECL)
215 name = TREE_TYPE (name);
216 else if (TYPE_P (name))
217 /* OK */;
218 else if (TREE_CODE (name) == IDENTIFIER_NODE)
220 if ((IS_AGGR_TYPE (basetype) && name == constructor_name (basetype))
221 || (TREE_CODE (basetype) == ENUMERAL_TYPE
222 && name == TYPE_IDENTIFIER (basetype)))
223 name = basetype;
224 else
225 name = get_type_value (name);
227 else
229 /* In the case of:
231 template <class T> struct S { ~S(); };
232 int i;
233 i.~S();
235 NAME will be a class template. */
236 gcc_assert (DECL_CLASS_TEMPLATE_P (name));
237 return false;
240 if (name && TYPE_MAIN_VARIANT (basetype) == TYPE_MAIN_VARIANT (name))
241 return true;
242 return false;
245 /* We want the address of a function or method. We avoid creating a
246 pointer-to-member function. */
248 tree
249 build_addr_func (tree function)
251 tree type = TREE_TYPE (function);
253 /* We have to do these by hand to avoid real pointer to member
254 functions. */
255 if (TREE_CODE (type) == METHOD_TYPE)
257 if (TREE_CODE (function) == OFFSET_REF)
259 tree object = build_address (TREE_OPERAND (function, 0));
260 return get_member_function_from_ptrfunc (&object,
261 TREE_OPERAND (function, 1));
263 function = build_address (function);
265 else
266 function = decay_conversion (function);
268 return function;
271 /* Build a CALL_EXPR, we can handle FUNCTION_TYPEs, METHOD_TYPEs, or
272 POINTER_TYPE to those. Note, pointer to member function types
273 (TYPE_PTRMEMFUNC_P) must be handled by our callers. */
275 tree
276 build_call (tree function, tree parms)
278 int is_constructor = 0;
279 int nothrow;
280 tree tmp;
281 tree decl;
282 tree result_type;
283 tree fntype;
285 function = build_addr_func (function);
287 if (TYPE_PTRMEMFUNC_P (TREE_TYPE (function)))
289 sorry ("unable to call pointer to member function here");
290 return error_mark_node;
293 fntype = TREE_TYPE (TREE_TYPE (function));
294 result_type = TREE_TYPE (fntype);
296 if (TREE_CODE (function) == ADDR_EXPR
297 && TREE_CODE (TREE_OPERAND (function, 0)) == FUNCTION_DECL)
298 decl = TREE_OPERAND (function, 0);
299 else
300 decl = NULL_TREE;
302 /* We check both the decl and the type; a function may be known not to
303 throw without being declared throw(). */
304 nothrow = ((decl && TREE_NOTHROW (decl))
305 || TYPE_NOTHROW_P (TREE_TYPE (TREE_TYPE (function))));
307 if (decl && TREE_THIS_VOLATILE (decl) && cfun)
308 current_function_returns_abnormally = 1;
310 if (decl && TREE_DEPRECATED (decl))
311 warn_deprecated_use (decl);
312 require_complete_eh_spec_types (fntype, decl);
314 if (decl && DECL_CONSTRUCTOR_P (decl))
315 is_constructor = 1;
317 if (decl && ! TREE_USED (decl))
319 /* We invoke build_call directly for several library functions.
320 These may have been declared normally if we're building libgcc,
321 so we can't just check DECL_ARTIFICIAL. */
322 gcc_assert (DECL_ARTIFICIAL (decl)
323 || !strncmp (IDENTIFIER_POINTER (DECL_NAME (decl)),
324 "__", 2));
325 mark_used (decl);
328 /* Don't pass empty class objects by value. This is useful
329 for tags in STL, which are used to control overload resolution.
330 We don't need to handle other cases of copying empty classes. */
331 if (! decl || ! DECL_BUILT_IN (decl))
332 for (tmp = parms; tmp; tmp = TREE_CHAIN (tmp))
333 if (is_empty_class (TREE_TYPE (TREE_VALUE (tmp)))
334 && ! TREE_ADDRESSABLE (TREE_TYPE (TREE_VALUE (tmp))))
336 tree t = build0 (EMPTY_CLASS_EXPR, TREE_TYPE (TREE_VALUE (tmp)));
337 TREE_VALUE (tmp) = build2 (COMPOUND_EXPR, TREE_TYPE (t),
338 TREE_VALUE (tmp), t);
341 function = build3 (CALL_EXPR, result_type, function, parms, NULL_TREE);
342 TREE_HAS_CONSTRUCTOR (function) = is_constructor;
343 TREE_NOTHROW (function) = nothrow;
345 return function;
348 /* Build something of the form ptr->method (args)
349 or object.method (args). This can also build
350 calls to constructors, and find friends.
352 Member functions always take their class variable
353 as a pointer.
355 INSTANCE is a class instance.
357 NAME is the name of the method desired, usually an IDENTIFIER_NODE.
359 PARMS help to figure out what that NAME really refers to.
361 BASETYPE_PATH, if non-NULL, contains a chain from the type of INSTANCE
362 down to the real instance type to use for access checking. We need this
363 information to get protected accesses correct.
365 FLAGS is the logical disjunction of zero or more LOOKUP_
366 flags. See cp-tree.h for more info.
368 If this is all OK, calls build_function_call with the resolved
369 member function.
371 This function must also handle being called to perform
372 initialization, promotion/coercion of arguments, and
373 instantiation of default parameters.
375 Note that NAME may refer to an instance variable name. If
376 `operator()()' is defined for the type of that field, then we return
377 that result. */
379 /* New overloading code. */
381 typedef struct z_candidate z_candidate;
383 typedef struct candidate_warning candidate_warning;
384 struct candidate_warning {
385 z_candidate *loser;
386 candidate_warning *next;
389 struct z_candidate {
390 /* The FUNCTION_DECL that will be called if this candidate is
391 selected by overload resolution. */
392 tree fn;
393 /* The arguments to use when calling this function. */
394 tree args;
395 /* The implicit conversion sequences for each of the arguments to
396 FN. */
397 conversion **convs;
398 /* The number of implicit conversion sequences. */
399 size_t num_convs;
400 /* If FN is a user-defined conversion, the standard conversion
401 sequence from the type returned by FN to the desired destination
402 type. */
403 conversion *second_conv;
404 int viable;
405 /* If FN is a member function, the binfo indicating the path used to
406 qualify the name of FN at the call site. This path is used to
407 determine whether or not FN is accessible if it is selected by
408 overload resolution. The DECL_CONTEXT of FN will always be a
409 (possibly improper) base of this binfo. */
410 tree access_path;
411 /* If FN is a non-static member function, the binfo indicating the
412 subobject to which the `this' pointer should be converted if FN
413 is selected by overload resolution. The type pointed to the by
414 the `this' pointer must correspond to the most derived class
415 indicated by the CONVERSION_PATH. */
416 tree conversion_path;
417 tree template_decl;
418 candidate_warning *warnings;
419 z_candidate *next;
422 /* Returns true iff T is a null pointer constant in the sense of
423 [conv.ptr]. */
425 bool
426 null_ptr_cst_p (tree t)
428 /* [conv.ptr]
430 A null pointer constant is an integral constant expression
431 (_expr.const_) rvalue of integer type that evaluates to zero. */
432 t = integral_constant_value (t);
433 if (t == null_node
434 || (CP_INTEGRAL_TYPE_P (TREE_TYPE (t)) && integer_zerop (t)))
435 return true;
436 return false;
439 /* Returns nonzero if PARMLIST consists of only default parms and/or
440 ellipsis. */
442 bool
443 sufficient_parms_p (tree parmlist)
445 for (; parmlist && parmlist != void_list_node;
446 parmlist = TREE_CHAIN (parmlist))
447 if (!TREE_PURPOSE (parmlist))
448 return false;
449 return true;
452 /* Allocate N bytes of memory from the conversion obstack. The memory
453 is zeroed before being returned. */
455 static void *
456 conversion_obstack_alloc (size_t n)
458 void *p;
459 if (!conversion_obstack_initialized)
461 gcc_obstack_init (&conversion_obstack);
462 conversion_obstack_initialized = true;
464 p = obstack_alloc (&conversion_obstack, n);
465 memset (p, 0, n);
466 return p;
469 /* Dynamically allocate a conversion. */
471 static conversion *
472 alloc_conversion (conversion_kind kind)
474 conversion *c;
475 c = conversion_obstack_alloc (sizeof (conversion));
476 c->kind = kind;
477 return c;
480 #ifdef ENABLE_CHECKING
482 /* Make sure that all memory on the conversion obstack has been
483 freed. */
485 void
486 validate_conversion_obstack (void)
488 if (conversion_obstack_initialized)
489 gcc_assert ((obstack_next_free (&conversion_obstack)
490 == obstack_base (&conversion_obstack)));
493 #endif /* ENABLE_CHECKING */
495 /* Dynamically allocate an array of N conversions. */
497 static conversion **
498 alloc_conversions (size_t n)
500 return conversion_obstack_alloc (n * sizeof (conversion *));
503 static conversion *
504 build_conv (conversion_kind code, tree type, conversion *from)
506 conversion *t;
507 conversion_rank rank = CONVERSION_RANK (from);
509 /* We can't use buildl1 here because CODE could be USER_CONV, which
510 takes two arguments. In that case, the caller is responsible for
511 filling in the second argument. */
512 t = alloc_conversion (code);
513 t->type = type;
514 t->u.next = from;
516 switch (code)
518 case ck_ptr:
519 case ck_pmem:
520 case ck_base:
521 case ck_std:
522 if (rank < cr_std)
523 rank = cr_std;
524 break;
526 case ck_qual:
527 if (rank < cr_exact)
528 rank = cr_exact;
529 break;
531 default:
532 break;
534 t->rank = rank;
535 t->user_conv_p = (code == ck_user || from->user_conv_p);
536 t->bad_p = from->bad_p;
537 t->base_p = false;
538 return t;
541 /* Build a representation of the identity conversion from EXPR to
542 itself. The TYPE should match the type of EXPR, if EXPR is non-NULL. */
544 static conversion *
545 build_identity_conv (tree type, tree expr)
547 conversion *c;
549 c = alloc_conversion (ck_identity);
550 c->type = type;
551 c->u.expr = expr;
553 return c;
556 /* Converting from EXPR to TYPE was ambiguous in the sense that there
557 were multiple user-defined conversions to accomplish the job.
558 Build a conversion that indicates that ambiguity. */
560 static conversion *
561 build_ambiguous_conv (tree type, tree expr)
563 conversion *c;
565 c = alloc_conversion (ck_ambig);
566 c->type = type;
567 c->u.expr = expr;
569 return c;
572 tree
573 strip_top_quals (tree t)
575 if (TREE_CODE (t) == ARRAY_TYPE)
576 return t;
577 return cp_build_qualified_type (t, 0);
580 /* Returns the standard conversion path (see [conv]) from type FROM to type
581 TO, if any. For proper handling of null pointer constants, you must
582 also pass the expression EXPR to convert from. If C_CAST_P is true,
583 this conversion is coming from a C-style cast. */
585 static conversion *
586 standard_conversion (tree to, tree from, tree expr, bool c_cast_p,
587 int flags)
589 enum tree_code fcode, tcode;
590 conversion *conv;
591 bool fromref = false;
593 to = non_reference (to);
594 if (TREE_CODE (from) == REFERENCE_TYPE)
596 fromref = true;
597 from = TREE_TYPE (from);
599 to = strip_top_quals (to);
600 from = strip_top_quals (from);
602 if ((TYPE_PTRFN_P (to) || TYPE_PTRMEMFUNC_P (to))
603 && expr && type_unknown_p (expr))
605 expr = instantiate_type (to, expr, tf_conv);
606 if (expr == error_mark_node)
607 return NULL;
608 from = TREE_TYPE (expr);
611 fcode = TREE_CODE (from);
612 tcode = TREE_CODE (to);
614 conv = build_identity_conv (from, expr);
615 if (fcode == FUNCTION_TYPE)
617 from = build_pointer_type (from);
618 fcode = TREE_CODE (from);
619 conv = build_conv (ck_lvalue, from, conv);
621 else if (fcode == ARRAY_TYPE)
623 from = build_pointer_type (TREE_TYPE (from));
624 fcode = TREE_CODE (from);
625 conv = build_conv (ck_lvalue, from, conv);
627 else if (fromref || (expr && lvalue_p (expr)))
628 conv = build_conv (ck_rvalue, from, conv);
630 /* Allow conversion between `__complex__' data types. */
631 if (tcode == COMPLEX_TYPE && fcode == COMPLEX_TYPE)
633 /* The standard conversion sequence to convert FROM to TO is
634 the standard conversion sequence to perform componentwise
635 conversion. */
636 conversion *part_conv = standard_conversion
637 (TREE_TYPE (to), TREE_TYPE (from), NULL_TREE, c_cast_p, flags);
639 if (part_conv)
641 conv = build_conv (part_conv->kind, to, conv);
642 conv->rank = part_conv->rank;
644 else
645 conv = NULL;
647 return conv;
650 if (same_type_p (from, to))
651 return conv;
653 if ((tcode == POINTER_TYPE || TYPE_PTR_TO_MEMBER_P (to))
654 && expr && null_ptr_cst_p (expr))
655 conv = build_conv (ck_std, to, conv);
656 else if ((tcode == INTEGER_TYPE && fcode == POINTER_TYPE)
657 || (tcode == POINTER_TYPE && fcode == INTEGER_TYPE))
659 /* For backwards brain damage compatibility, allow interconversion of
660 pointers and integers with a pedwarn. */
661 conv = build_conv (ck_std, to, conv);
662 conv->bad_p = true;
664 else if (tcode == ENUMERAL_TYPE && fcode == INTEGER_TYPE)
666 /* For backwards brain damage compatibility, allow interconversion of
667 enums and integers with a pedwarn. */
668 conv = build_conv (ck_std, to, conv);
669 conv->bad_p = true;
671 else if ((tcode == POINTER_TYPE && fcode == POINTER_TYPE)
672 || (TYPE_PTRMEM_P (to) && TYPE_PTRMEM_P (from)))
674 tree to_pointee;
675 tree from_pointee;
677 if (tcode == POINTER_TYPE
678 && same_type_ignoring_top_level_qualifiers_p (TREE_TYPE (from),
679 TREE_TYPE (to)))
681 else if (VOID_TYPE_P (TREE_TYPE (to))
682 && !TYPE_PTRMEM_P (from)
683 && TREE_CODE (TREE_TYPE (from)) != FUNCTION_TYPE)
685 from = build_pointer_type
686 (cp_build_qualified_type (void_type_node,
687 cp_type_quals (TREE_TYPE (from))));
688 conv = build_conv (ck_ptr, from, conv);
690 else if (TYPE_PTRMEM_P (from))
692 tree fbase = TYPE_PTRMEM_CLASS_TYPE (from);
693 tree tbase = TYPE_PTRMEM_CLASS_TYPE (to);
695 if (DERIVED_FROM_P (fbase, tbase)
696 && (same_type_ignoring_top_level_qualifiers_p
697 (TYPE_PTRMEM_POINTED_TO_TYPE (from),
698 TYPE_PTRMEM_POINTED_TO_TYPE (to))))
700 from = build_ptrmem_type (tbase,
701 TYPE_PTRMEM_POINTED_TO_TYPE (from));
702 conv = build_conv (ck_pmem, from, conv);
704 else if (!same_type_p (fbase, tbase))
705 return NULL;
707 else if (IS_AGGR_TYPE (TREE_TYPE (from))
708 && IS_AGGR_TYPE (TREE_TYPE (to))
709 /* [conv.ptr]
711 An rvalue of type "pointer to cv D," where D is a
712 class type, can be converted to an rvalue of type
713 "pointer to cv B," where B is a base class (clause
714 _class.derived_) of D. If B is an inaccessible
715 (clause _class.access_) or ambiguous
716 (_class.member.lookup_) base class of D, a program
717 that necessitates this conversion is ill-formed.
718 Therefore, we use DERIVED_FROM_P, and do not check
719 access or uniqueness. */
720 && DERIVED_FROM_P (TREE_TYPE (to), TREE_TYPE (from)))
722 from =
723 cp_build_qualified_type (TREE_TYPE (to),
724 cp_type_quals (TREE_TYPE (from)));
725 from = build_pointer_type (from);
726 conv = build_conv (ck_ptr, from, conv);
727 conv->base_p = true;
730 if (tcode == POINTER_TYPE)
732 to_pointee = TREE_TYPE (to);
733 from_pointee = TREE_TYPE (from);
735 else
737 to_pointee = TYPE_PTRMEM_POINTED_TO_TYPE (to);
738 from_pointee = TYPE_PTRMEM_POINTED_TO_TYPE (from);
741 if (same_type_p (from, to))
742 /* OK */;
743 else if (c_cast_p && comp_ptr_ttypes_const (to, from))
744 /* In a C-style cast, we ignore CV-qualification because we
745 are allowed to perform a static_cast followed by a
746 const_cast. */
747 conv = build_conv (ck_qual, to, conv);
748 else if (!c_cast_p && comp_ptr_ttypes (to_pointee, from_pointee))
749 conv = build_conv (ck_qual, to, conv);
750 else if (expr && string_conv_p (to, expr, 0))
751 /* converting from string constant to char *. */
752 conv = build_conv (ck_qual, to, conv);
753 else if (ptr_reasonably_similar (to_pointee, from_pointee))
755 conv = build_conv (ck_ptr, to, conv);
756 conv->bad_p = true;
758 else
759 return NULL;
761 from = to;
763 else if (TYPE_PTRMEMFUNC_P (to) && TYPE_PTRMEMFUNC_P (from))
765 tree fromfn = TREE_TYPE (TYPE_PTRMEMFUNC_FN_TYPE (from));
766 tree tofn = TREE_TYPE (TYPE_PTRMEMFUNC_FN_TYPE (to));
767 tree fbase = TREE_TYPE (TREE_VALUE (TYPE_ARG_TYPES (fromfn)));
768 tree tbase = TREE_TYPE (TREE_VALUE (TYPE_ARG_TYPES (tofn)));
770 if (!DERIVED_FROM_P (fbase, tbase)
771 || !same_type_p (TREE_TYPE (fromfn), TREE_TYPE (tofn))
772 || !compparms (TREE_CHAIN (TYPE_ARG_TYPES (fromfn)),
773 TREE_CHAIN (TYPE_ARG_TYPES (tofn)))
774 || cp_type_quals (fbase) != cp_type_quals (tbase))
775 return 0;
777 from = cp_build_qualified_type (tbase, cp_type_quals (fbase));
778 from = build_method_type_directly (from,
779 TREE_TYPE (fromfn),
780 TREE_CHAIN (TYPE_ARG_TYPES (fromfn)));
781 from = build_ptrmemfunc_type (build_pointer_type (from));
782 conv = build_conv (ck_pmem, from, conv);
783 conv->base_p = true;
785 else if (tcode == BOOLEAN_TYPE)
787 /* [conv.bool]
789 An rvalue of arithmetic, enumeration, pointer, or pointer to
790 member type can be converted to an rvalue of type bool. */
791 if (ARITHMETIC_TYPE_P (from)
792 || fcode == ENUMERAL_TYPE
793 || fcode == POINTER_TYPE
794 || TYPE_PTR_TO_MEMBER_P (from))
796 conv = build_conv (ck_std, to, conv);
797 if (fcode == POINTER_TYPE
798 || TYPE_PTRMEM_P (from)
799 || (TYPE_PTRMEMFUNC_P (from)
800 && conv->rank < cr_pbool))
801 conv->rank = cr_pbool;
802 return conv;
805 return NULL;
807 /* We don't check for ENUMERAL_TYPE here because there are no standard
808 conversions to enum type. */
809 else if (tcode == INTEGER_TYPE || tcode == BOOLEAN_TYPE
810 || tcode == REAL_TYPE)
812 if (! (INTEGRAL_CODE_P (fcode) || fcode == REAL_TYPE))
813 return 0;
814 conv = build_conv (ck_std, to, conv);
816 /* Give this a better rank if it's a promotion. */
817 if (same_type_p (to, type_promotes_to (from))
818 && conv->u.next->rank <= cr_promotion)
819 conv->rank = cr_promotion;
821 else if (fcode == VECTOR_TYPE && tcode == VECTOR_TYPE
822 && vector_types_convertible_p (from, to))
823 return build_conv (ck_std, to, conv);
824 else if (!(flags & LOOKUP_CONSTRUCTOR_CALLABLE)
825 && IS_AGGR_TYPE (to) && IS_AGGR_TYPE (from)
826 && is_properly_derived_from (from, to))
828 if (conv->kind == ck_rvalue)
829 conv = conv->u.next;
830 conv = build_conv (ck_base, to, conv);
831 /* The derived-to-base conversion indicates the initialization
832 of a parameter with base type from an object of a derived
833 type. A temporary object is created to hold the result of
834 the conversion. */
835 conv->need_temporary_p = true;
837 else
838 return NULL;
840 return conv;
843 /* Returns nonzero if T1 is reference-related to T2. */
845 static bool
846 reference_related_p (tree t1, tree t2)
848 t1 = TYPE_MAIN_VARIANT (t1);
849 t2 = TYPE_MAIN_VARIANT (t2);
851 /* [dcl.init.ref]
853 Given types "cv1 T1" and "cv2 T2," "cv1 T1" is reference-related
854 to "cv2 T2" if T1 is the same type as T2, or T1 is a base class
855 of T2. */
856 return (same_type_p (t1, t2)
857 || (CLASS_TYPE_P (t1) && CLASS_TYPE_P (t2)
858 && DERIVED_FROM_P (t1, t2)));
861 /* Returns nonzero if T1 is reference-compatible with T2. */
863 static bool
864 reference_compatible_p (tree t1, tree t2)
866 /* [dcl.init.ref]
868 "cv1 T1" is reference compatible with "cv2 T2" if T1 is
869 reference-related to T2 and cv1 is the same cv-qualification as,
870 or greater cv-qualification than, cv2. */
871 return (reference_related_p (t1, t2)
872 && at_least_as_qualified_p (t1, t2));
875 /* Determine whether or not the EXPR (of class type S) can be
876 converted to T as in [over.match.ref]. */
878 static conversion *
879 convert_class_to_reference (tree t, tree s, tree expr)
881 tree conversions;
882 tree arglist;
883 conversion *conv;
884 tree reference_type;
885 struct z_candidate *candidates;
886 struct z_candidate *cand;
887 bool any_viable_p;
889 conversions = lookup_conversions (s);
890 if (!conversions)
891 return NULL;
893 /* [over.match.ref]
895 Assuming that "cv1 T" is the underlying type of the reference
896 being initialized, and "cv S" is the type of the initializer
897 expression, with S a class type, the candidate functions are
898 selected as follows:
900 --The conversion functions of S and its base classes are
901 considered. Those that are not hidden within S and yield type
902 "reference to cv2 T2", where "cv1 T" is reference-compatible
903 (_dcl.init.ref_) with "cv2 T2", are candidate functions.
905 The argument list has one argument, which is the initializer
906 expression. */
908 candidates = 0;
910 /* Conceptually, we should take the address of EXPR and put it in
911 the argument list. Unfortunately, however, that can result in
912 error messages, which we should not issue now because we are just
913 trying to find a conversion operator. Therefore, we use NULL,
914 cast to the appropriate type. */
915 arglist = build_int_cst (build_pointer_type (s), 0);
916 arglist = build_tree_list (NULL_TREE, arglist);
918 reference_type = build_reference_type (t);
920 while (conversions)
922 tree fns = TREE_VALUE (conversions);
924 for (; fns; fns = OVL_NEXT (fns))
926 tree f = OVL_CURRENT (fns);
927 tree t2 = TREE_TYPE (TREE_TYPE (f));
929 cand = NULL;
931 /* If this is a template function, try to get an exact
932 match. */
933 if (TREE_CODE (f) == TEMPLATE_DECL)
935 cand = add_template_candidate (&candidates,
936 f, s,
937 NULL_TREE,
938 arglist,
939 reference_type,
940 TYPE_BINFO (s),
941 TREE_PURPOSE (conversions),
942 LOOKUP_NORMAL,
943 DEDUCE_CONV);
945 if (cand)
947 /* Now, see if the conversion function really returns
948 an lvalue of the appropriate type. From the
949 point of view of unification, simply returning an
950 rvalue of the right type is good enough. */
951 f = cand->fn;
952 t2 = TREE_TYPE (TREE_TYPE (f));
953 if (TREE_CODE (t2) != REFERENCE_TYPE
954 || !reference_compatible_p (t, TREE_TYPE (t2)))
956 candidates = candidates->next;
957 cand = NULL;
961 else if (TREE_CODE (t2) == REFERENCE_TYPE
962 && reference_compatible_p (t, TREE_TYPE (t2)))
963 cand = add_function_candidate (&candidates, f, s, arglist,
964 TYPE_BINFO (s),
965 TREE_PURPOSE (conversions),
966 LOOKUP_NORMAL);
968 if (cand)
970 conversion *identity_conv;
971 /* Build a standard conversion sequence indicating the
972 binding from the reference type returned by the
973 function to the desired REFERENCE_TYPE. */
974 identity_conv
975 = build_identity_conv (TREE_TYPE (TREE_TYPE
976 (TREE_TYPE (cand->fn))),
977 NULL_TREE);
978 cand->second_conv
979 = (direct_reference_binding
980 (reference_type, identity_conv));
981 cand->second_conv->bad_p |= cand->convs[0]->bad_p;
984 conversions = TREE_CHAIN (conversions);
987 candidates = splice_viable (candidates, pedantic, &any_viable_p);
988 /* If none of the conversion functions worked out, let our caller
989 know. */
990 if (!any_viable_p)
991 return NULL;
993 cand = tourney (candidates);
994 if (!cand)
995 return NULL;
997 /* Now that we know that this is the function we're going to use fix
998 the dummy first argument. */
999 cand->args = tree_cons (NULL_TREE,
1000 build_this (expr),
1001 TREE_CHAIN (cand->args));
1003 /* Build a user-defined conversion sequence representing the
1004 conversion. */
1005 conv = build_conv (ck_user,
1006 TREE_TYPE (TREE_TYPE (cand->fn)),
1007 build_identity_conv (TREE_TYPE (expr), expr));
1008 conv->cand = cand;
1010 /* Merge it with the standard conversion sequence from the
1011 conversion function's return type to the desired type. */
1012 cand->second_conv = merge_conversion_sequences (conv, cand->second_conv);
1014 if (cand->viable == -1)
1015 conv->bad_p = true;
1017 return cand->second_conv;
1020 /* A reference of the indicated TYPE is being bound directly to the
1021 expression represented by the implicit conversion sequence CONV.
1022 Return a conversion sequence for this binding. */
1024 static conversion *
1025 direct_reference_binding (tree type, conversion *conv)
1027 tree t;
1029 gcc_assert (TREE_CODE (type) == REFERENCE_TYPE);
1030 gcc_assert (TREE_CODE (conv->type) != REFERENCE_TYPE);
1032 t = TREE_TYPE (type);
1034 /* [over.ics.rank]
1036 When a parameter of reference type binds directly
1037 (_dcl.init.ref_) to an argument expression, the implicit
1038 conversion sequence is the identity conversion, unless the
1039 argument expression has a type that is a derived class of the
1040 parameter type, in which case the implicit conversion sequence is
1041 a derived-to-base Conversion.
1043 If the parameter binds directly to the result of applying a
1044 conversion function to the argument expression, the implicit
1045 conversion sequence is a user-defined conversion sequence
1046 (_over.ics.user_), with the second standard conversion sequence
1047 either an identity conversion or, if the conversion function
1048 returns an entity of a type that is a derived class of the
1049 parameter type, a derived-to-base conversion. */
1050 if (!same_type_ignoring_top_level_qualifiers_p (t, conv->type))
1052 /* Represent the derived-to-base conversion. */
1053 conv = build_conv (ck_base, t, conv);
1054 /* We will actually be binding to the base-class subobject in
1055 the derived class, so we mark this conversion appropriately.
1056 That way, convert_like knows not to generate a temporary. */
1057 conv->need_temporary_p = false;
1059 return build_conv (ck_ref_bind, type, conv);
1062 /* Returns the conversion path from type FROM to reference type TO for
1063 purposes of reference binding. For lvalue binding, either pass a
1064 reference type to FROM or an lvalue expression to EXPR. If the
1065 reference will be bound to a temporary, NEED_TEMPORARY_P is set for
1066 the conversion returned. */
1068 static conversion *
1069 reference_binding (tree rto, tree rfrom, tree expr, int flags)
1071 conversion *conv = NULL;
1072 tree to = TREE_TYPE (rto);
1073 tree from = rfrom;
1074 bool related_p;
1075 bool compatible_p;
1076 cp_lvalue_kind lvalue_p = clk_none;
1078 if (TREE_CODE (to) == FUNCTION_TYPE && expr && type_unknown_p (expr))
1080 expr = instantiate_type (to, expr, tf_none);
1081 if (expr == error_mark_node)
1082 return NULL;
1083 from = TREE_TYPE (expr);
1086 if (TREE_CODE (from) == REFERENCE_TYPE)
1088 /* Anything with reference type is an lvalue. */
1089 lvalue_p = clk_ordinary;
1090 from = TREE_TYPE (from);
1092 else if (expr)
1093 lvalue_p = real_lvalue_p (expr);
1095 /* Figure out whether or not the types are reference-related and
1096 reference compatible. We have do do this after stripping
1097 references from FROM. */
1098 related_p = reference_related_p (to, from);
1099 compatible_p = reference_compatible_p (to, from);
1101 if (lvalue_p && compatible_p)
1103 /* [dcl.init.ref]
1105 If the initializer expression
1107 -- is an lvalue (but not an lvalue for a bit-field), and "cv1 T1"
1108 is reference-compatible with "cv2 T2,"
1110 the reference is bound directly to the initializer expression
1111 lvalue. */
1112 conv = build_identity_conv (from, expr);
1113 conv = direct_reference_binding (rto, conv);
1114 if ((lvalue_p & clk_bitfield) != 0
1115 || ((lvalue_p & clk_packed) != 0 && !TYPE_PACKED (to)))
1116 /* For the purposes of overload resolution, we ignore the fact
1117 this expression is a bitfield or packed field. (In particular,
1118 [over.ics.ref] says specifically that a function with a
1119 non-const reference parameter is viable even if the
1120 argument is a bitfield.)
1122 However, when we actually call the function we must create
1123 a temporary to which to bind the reference. If the
1124 reference is volatile, or isn't const, then we cannot make
1125 a temporary, so we just issue an error when the conversion
1126 actually occurs. */
1127 conv->need_temporary_p = true;
1129 return conv;
1131 else if (CLASS_TYPE_P (from) && !(flags & LOOKUP_NO_CONVERSION))
1133 /* [dcl.init.ref]
1135 If the initializer expression
1137 -- has a class type (i.e., T2 is a class type) can be
1138 implicitly converted to an lvalue of type "cv3 T3," where
1139 "cv1 T1" is reference-compatible with "cv3 T3". (this
1140 conversion is selected by enumerating the applicable
1141 conversion functions (_over.match.ref_) and choosing the
1142 best one through overload resolution. (_over.match_).
1144 the reference is bound to the lvalue result of the conversion
1145 in the second case. */
1146 conv = convert_class_to_reference (to, from, expr);
1147 if (conv)
1148 return conv;
1151 /* From this point on, we conceptually need temporaries, even if we
1152 elide them. Only the cases above are "direct bindings". */
1153 if (flags & LOOKUP_NO_TEMP_BIND)
1154 return NULL;
1156 /* [over.ics.rank]
1158 When a parameter of reference type is not bound directly to an
1159 argument expression, the conversion sequence is the one required
1160 to convert the argument expression to the underlying type of the
1161 reference according to _over.best.ics_. Conceptually, this
1162 conversion sequence corresponds to copy-initializing a temporary
1163 of the underlying type with the argument expression. Any
1164 difference in top-level cv-qualification is subsumed by the
1165 initialization itself and does not constitute a conversion. */
1167 /* [dcl.init.ref]
1169 Otherwise, the reference shall be to a non-volatile const type. */
1170 if (!CP_TYPE_CONST_NON_VOLATILE_P (to))
1171 return NULL;
1173 /* [dcl.init.ref]
1175 If the initializer expression is an rvalue, with T2 a class type,
1176 and "cv1 T1" is reference-compatible with "cv2 T2", the reference
1177 is bound in one of the following ways:
1179 -- The reference is bound to the object represented by the rvalue
1180 or to a sub-object within that object.
1182 -- ...
1184 We use the first alternative. The implicit conversion sequence
1185 is supposed to be same as we would obtain by generating a
1186 temporary. Fortunately, if the types are reference compatible,
1187 then this is either an identity conversion or the derived-to-base
1188 conversion, just as for direct binding. */
1189 if (CLASS_TYPE_P (from) && compatible_p)
1191 conv = build_identity_conv (from, expr);
1192 conv = direct_reference_binding (rto, conv);
1193 if (!(flags & LOOKUP_CONSTRUCTOR_CALLABLE))
1194 conv->u.next->check_copy_constructor_p = true;
1195 return conv;
1198 /* [dcl.init.ref]
1200 Otherwise, a temporary of type "cv1 T1" is created and
1201 initialized from the initializer expression using the rules for a
1202 non-reference copy initialization. If T1 is reference-related to
1203 T2, cv1 must be the same cv-qualification as, or greater
1204 cv-qualification than, cv2; otherwise, the program is ill-formed. */
1205 if (related_p && !at_least_as_qualified_p (to, from))
1206 return NULL;
1208 conv = implicit_conversion (to, from, expr, /*c_cast_p=*/false,
1209 flags);
1210 if (!conv)
1211 return NULL;
1213 conv = build_conv (ck_ref_bind, rto, conv);
1214 /* This reference binding, unlike those above, requires the
1215 creation of a temporary. */
1216 conv->need_temporary_p = true;
1218 return conv;
1221 /* Returns the implicit conversion sequence (see [over.ics]) from type
1222 FROM to type TO. The optional expression EXPR may affect the
1223 conversion. FLAGS are the usual overloading flags. Only
1224 LOOKUP_NO_CONVERSION is significant. If C_CAST_P is true, this
1225 conversion is coming from a C-style cast. */
1227 static conversion *
1228 implicit_conversion (tree to, tree from, tree expr, bool c_cast_p,
1229 int flags)
1231 conversion *conv;
1233 if (from == error_mark_node || to == error_mark_node
1234 || expr == error_mark_node)
1235 return NULL;
1237 if (TREE_CODE (to) == REFERENCE_TYPE)
1238 conv = reference_binding (to, from, expr, flags);
1239 else
1240 conv = standard_conversion (to, from, expr, c_cast_p, flags);
1242 if (conv)
1243 return conv;
1245 if (expr != NULL_TREE
1246 && (IS_AGGR_TYPE (from)
1247 || IS_AGGR_TYPE (to))
1248 && (flags & LOOKUP_NO_CONVERSION) == 0)
1250 struct z_candidate *cand;
1252 cand = build_user_type_conversion_1
1253 (to, expr, LOOKUP_ONLYCONVERTING);
1254 if (cand)
1255 conv = cand->second_conv;
1257 /* We used to try to bind a reference to a temporary here, but that
1258 is now handled by the recursive call to this function at the end
1259 of reference_binding. */
1260 return conv;
1263 return NULL;
1266 /* Add a new entry to the list of candidates. Used by the add_*_candidate
1267 functions. */
1269 static struct z_candidate *
1270 add_candidate (struct z_candidate **candidates,
1271 tree fn, tree args,
1272 size_t num_convs, conversion **convs,
1273 tree access_path, tree conversion_path,
1274 int viable)
1276 struct z_candidate *cand
1277 = conversion_obstack_alloc (sizeof (struct z_candidate));
1279 cand->fn = fn;
1280 cand->args = args;
1281 cand->convs = convs;
1282 cand->num_convs = num_convs;
1283 cand->access_path = access_path;
1284 cand->conversion_path = conversion_path;
1285 cand->viable = viable;
1286 cand->next = *candidates;
1287 *candidates = cand;
1289 return cand;
1292 /* Create an overload candidate for the function or method FN called with
1293 the argument list ARGLIST and add it to CANDIDATES. FLAGS is passed on
1294 to implicit_conversion.
1296 CTYPE, if non-NULL, is the type we want to pretend this function
1297 comes from for purposes of overload resolution. */
1299 static struct z_candidate *
1300 add_function_candidate (struct z_candidate **candidates,
1301 tree fn, tree ctype, tree arglist,
1302 tree access_path, tree conversion_path,
1303 int flags)
1305 tree parmlist = TYPE_ARG_TYPES (TREE_TYPE (fn));
1306 int i, len;
1307 conversion **convs;
1308 tree parmnode, argnode;
1309 tree orig_arglist;
1310 int viable = 1;
1312 /* At this point we should not see any functions which haven't been
1313 explicitly declared, except for friend functions which will have
1314 been found using argument dependent lookup. */
1315 gcc_assert (!DECL_ANTICIPATED (fn) || DECL_HIDDEN_FRIEND_P (fn));
1317 /* The `this', `in_chrg' and VTT arguments to constructors are not
1318 considered in overload resolution. */
1319 if (DECL_CONSTRUCTOR_P (fn))
1321 parmlist = skip_artificial_parms_for (fn, parmlist);
1322 orig_arglist = arglist;
1323 arglist = skip_artificial_parms_for (fn, arglist);
1325 else
1326 orig_arglist = arglist;
1328 len = list_length (arglist);
1329 convs = alloc_conversions (len);
1331 /* 13.3.2 - Viable functions [over.match.viable]
1332 First, to be a viable function, a candidate function shall have enough
1333 parameters to agree in number with the arguments in the list.
1335 We need to check this first; otherwise, checking the ICSes might cause
1336 us to produce an ill-formed template instantiation. */
1338 parmnode = parmlist;
1339 for (i = 0; i < len; ++i)
1341 if (parmnode == NULL_TREE || parmnode == void_list_node)
1342 break;
1343 parmnode = TREE_CHAIN (parmnode);
1346 if (i < len && parmnode)
1347 viable = 0;
1349 /* Make sure there are default args for the rest of the parms. */
1350 else if (!sufficient_parms_p (parmnode))
1351 viable = 0;
1353 if (! viable)
1354 goto out;
1356 /* Second, for F to be a viable function, there shall exist for each
1357 argument an implicit conversion sequence that converts that argument
1358 to the corresponding parameter of F. */
1360 parmnode = parmlist;
1361 argnode = arglist;
1363 for (i = 0; i < len; ++i)
1365 tree arg = TREE_VALUE (argnode);
1366 tree argtype = lvalue_type (arg);
1367 conversion *t;
1368 int is_this;
1370 if (parmnode == void_list_node)
1371 break;
1373 is_this = (i == 0 && DECL_NONSTATIC_MEMBER_FUNCTION_P (fn)
1374 && ! DECL_CONSTRUCTOR_P (fn));
1376 if (parmnode)
1378 tree parmtype = TREE_VALUE (parmnode);
1380 /* The type of the implicit object parameter ('this') for
1381 overload resolution is not always the same as for the
1382 function itself; conversion functions are considered to
1383 be members of the class being converted, and functions
1384 introduced by a using-declaration are considered to be
1385 members of the class that uses them.
1387 Since build_over_call ignores the ICS for the `this'
1388 parameter, we can just change the parm type. */
1389 if (ctype && is_this)
1391 parmtype
1392 = build_qualified_type (ctype,
1393 TYPE_QUALS (TREE_TYPE (parmtype)));
1394 parmtype = build_pointer_type (parmtype);
1397 t = implicit_conversion (parmtype, argtype, arg,
1398 /*c_cast_p=*/false, flags);
1400 else
1402 t = build_identity_conv (argtype, arg);
1403 t->ellipsis_p = true;
1406 if (t && is_this)
1407 t->this_p = true;
1409 convs[i] = t;
1410 if (! t)
1412 viable = 0;
1413 break;
1416 if (t->bad_p)
1417 viable = -1;
1419 if (parmnode)
1420 parmnode = TREE_CHAIN (parmnode);
1421 argnode = TREE_CHAIN (argnode);
1424 out:
1425 return add_candidate (candidates, fn, orig_arglist, len, convs,
1426 access_path, conversion_path, viable);
1429 /* Create an overload candidate for the conversion function FN which will
1430 be invoked for expression OBJ, producing a pointer-to-function which
1431 will in turn be called with the argument list ARGLIST, and add it to
1432 CANDIDATES. FLAGS is passed on to implicit_conversion.
1434 Actually, we don't really care about FN; we care about the type it
1435 converts to. There may be multiple conversion functions that will
1436 convert to that type, and we rely on build_user_type_conversion_1 to
1437 choose the best one; so when we create our candidate, we record the type
1438 instead of the function. */
1440 static struct z_candidate *
1441 add_conv_candidate (struct z_candidate **candidates, tree fn, tree obj,
1442 tree arglist, tree access_path, tree conversion_path)
1444 tree totype = TREE_TYPE (TREE_TYPE (fn));
1445 int i, len, viable, flags;
1446 tree parmlist, parmnode, argnode;
1447 conversion **convs;
1449 for (parmlist = totype; TREE_CODE (parmlist) != FUNCTION_TYPE; )
1450 parmlist = TREE_TYPE (parmlist);
1451 parmlist = TYPE_ARG_TYPES (parmlist);
1453 len = list_length (arglist) + 1;
1454 convs = alloc_conversions (len);
1455 parmnode = parmlist;
1456 argnode = arglist;
1457 viable = 1;
1458 flags = LOOKUP_NORMAL;
1460 /* Don't bother looking up the same type twice. */
1461 if (*candidates && (*candidates)->fn == totype)
1462 return NULL;
1464 for (i = 0; i < len; ++i)
1466 tree arg = i == 0 ? obj : TREE_VALUE (argnode);
1467 tree argtype = lvalue_type (arg);
1468 conversion *t;
1470 if (i == 0)
1471 t = implicit_conversion (totype, argtype, arg, /*c_cast_p=*/false,
1472 flags);
1473 else if (parmnode == void_list_node)
1474 break;
1475 else if (parmnode)
1476 t = implicit_conversion (TREE_VALUE (parmnode), argtype, arg,
1477 /*c_cast_p=*/false, flags);
1478 else
1480 t = build_identity_conv (argtype, arg);
1481 t->ellipsis_p = true;
1484 convs[i] = t;
1485 if (! t)
1486 break;
1488 if (t->bad_p)
1489 viable = -1;
1491 if (i == 0)
1492 continue;
1494 if (parmnode)
1495 parmnode = TREE_CHAIN (parmnode);
1496 argnode = TREE_CHAIN (argnode);
1499 if (i < len)
1500 viable = 0;
1502 if (!sufficient_parms_p (parmnode))
1503 viable = 0;
1505 return add_candidate (candidates, totype, arglist, len, convs,
1506 access_path, conversion_path, viable);
1509 static void
1510 build_builtin_candidate (struct z_candidate **candidates, tree fnname,
1511 tree type1, tree type2, tree *args, tree *argtypes,
1512 int flags)
1514 conversion *t;
1515 conversion **convs;
1516 size_t num_convs;
1517 int viable = 1, i;
1518 tree types[2];
1520 types[0] = type1;
1521 types[1] = type2;
1523 num_convs = args[2] ? 3 : (args[1] ? 2 : 1);
1524 convs = alloc_conversions (num_convs);
1526 for (i = 0; i < 2; ++i)
1528 if (! args[i])
1529 break;
1531 t = implicit_conversion (types[i], argtypes[i], args[i],
1532 /*c_cast_p=*/false, flags);
1533 if (! t)
1535 viable = 0;
1536 /* We need something for printing the candidate. */
1537 t = build_identity_conv (types[i], NULL_TREE);
1539 else if (t->bad_p)
1540 viable = 0;
1541 convs[i] = t;
1544 /* For COND_EXPR we rearranged the arguments; undo that now. */
1545 if (args[2])
1547 convs[2] = convs[1];
1548 convs[1] = convs[0];
1549 t = implicit_conversion (boolean_type_node, argtypes[2], args[2],
1550 /*c_cast_p=*/false, flags);
1551 if (t)
1552 convs[0] = t;
1553 else
1554 viable = 0;
1557 add_candidate (candidates, fnname, /*args=*/NULL_TREE,
1558 num_convs, convs,
1559 /*access_path=*/NULL_TREE,
1560 /*conversion_path=*/NULL_TREE,
1561 viable);
1564 static bool
1565 is_complete (tree t)
1567 return COMPLETE_TYPE_P (complete_type (t));
1570 /* Returns nonzero if TYPE is a promoted arithmetic type. */
1572 static bool
1573 promoted_arithmetic_type_p (tree type)
1575 /* [over.built]
1577 In this section, the term promoted integral type is used to refer
1578 to those integral types which are preserved by integral promotion
1579 (including e.g. int and long but excluding e.g. char).
1580 Similarly, the term promoted arithmetic type refers to promoted
1581 integral types plus floating types. */
1582 return ((INTEGRAL_TYPE_P (type)
1583 && same_type_p (type_promotes_to (type), type))
1584 || TREE_CODE (type) == REAL_TYPE);
1587 /* Create any builtin operator overload candidates for the operator in
1588 question given the converted operand types TYPE1 and TYPE2. The other
1589 args are passed through from add_builtin_candidates to
1590 build_builtin_candidate.
1592 TYPE1 and TYPE2 may not be permissible, and we must filter them.
1593 If CODE is requires candidates operands of the same type of the kind
1594 of which TYPE1 and TYPE2 are, we add both candidates
1595 CODE (TYPE1, TYPE1) and CODE (TYPE2, TYPE2). */
1597 static void
1598 add_builtin_candidate (struct z_candidate **candidates, enum tree_code code,
1599 enum tree_code code2, tree fnname, tree type1,
1600 tree type2, tree *args, tree *argtypes, int flags)
1602 switch (code)
1604 case POSTINCREMENT_EXPR:
1605 case POSTDECREMENT_EXPR:
1606 args[1] = integer_zero_node;
1607 type2 = integer_type_node;
1608 break;
1609 default:
1610 break;
1613 switch (code)
1616 /* 4 For every pair T, VQ), where T is an arithmetic or enumeration type,
1617 and VQ is either volatile or empty, there exist candidate operator
1618 functions of the form
1619 VQ T& operator++(VQ T&);
1620 T operator++(VQ T&, int);
1621 5 For every pair T, VQ), where T is an enumeration type or an arithmetic
1622 type other than bool, and VQ is either volatile or empty, there exist
1623 candidate operator functions of the form
1624 VQ T& operator--(VQ T&);
1625 T operator--(VQ T&, int);
1626 6 For every pair T, VQ), where T is a cv-qualified or cv-unqualified
1627 complete object type, and VQ is either volatile or empty, there exist
1628 candidate operator functions of the form
1629 T*VQ& operator++(T*VQ&);
1630 T*VQ& operator--(T*VQ&);
1631 T* operator++(T*VQ&, int);
1632 T* operator--(T*VQ&, int); */
1634 case POSTDECREMENT_EXPR:
1635 case PREDECREMENT_EXPR:
1636 if (TREE_CODE (type1) == BOOLEAN_TYPE)
1637 return;
1638 case POSTINCREMENT_EXPR:
1639 case PREINCREMENT_EXPR:
1640 if (ARITHMETIC_TYPE_P (type1) || TYPE_PTROB_P (type1))
1642 type1 = build_reference_type (type1);
1643 break;
1645 return;
1647 /* 7 For every cv-qualified or cv-unqualified complete object type T, there
1648 exist candidate operator functions of the form
1650 T& operator*(T*);
1652 8 For every function type T, there exist candidate operator functions of
1653 the form
1654 T& operator*(T*); */
1656 case INDIRECT_REF:
1657 if (TREE_CODE (type1) == POINTER_TYPE
1658 && (TYPE_PTROB_P (type1)
1659 || TREE_CODE (TREE_TYPE (type1)) == FUNCTION_TYPE))
1660 break;
1661 return;
1663 /* 9 For every type T, there exist candidate operator functions of the form
1664 T* operator+(T*);
1666 10For every promoted arithmetic type T, there exist candidate operator
1667 functions of the form
1668 T operator+(T);
1669 T operator-(T); */
1671 case UNARY_PLUS_EXPR: /* unary + */
1672 if (TREE_CODE (type1) == POINTER_TYPE)
1673 break;
1674 case NEGATE_EXPR:
1675 if (ARITHMETIC_TYPE_P (type1))
1676 break;
1677 return;
1679 /* 11For every promoted integral type T, there exist candidate operator
1680 functions of the form
1681 T operator~(T); */
1683 case BIT_NOT_EXPR:
1684 if (INTEGRAL_TYPE_P (type1))
1685 break;
1686 return;
1688 /* 12For every quintuple C1, C2, T, CV1, CV2), where C2 is a class type, C1
1689 is the same type as C2 or is a derived class of C2, T is a complete
1690 object type or a function type, and CV1 and CV2 are cv-qualifier-seqs,
1691 there exist candidate operator functions of the form
1692 CV12 T& operator->*(CV1 C1*, CV2 T C2::*);
1693 where CV12 is the union of CV1 and CV2. */
1695 case MEMBER_REF:
1696 if (TREE_CODE (type1) == POINTER_TYPE
1697 && TYPE_PTR_TO_MEMBER_P (type2))
1699 tree c1 = TREE_TYPE (type1);
1700 tree c2 = TYPE_PTRMEM_CLASS_TYPE (type2);
1702 if (IS_AGGR_TYPE (c1) && DERIVED_FROM_P (c2, c1)
1703 && (TYPE_PTRMEMFUNC_P (type2)
1704 || is_complete (TYPE_PTRMEM_POINTED_TO_TYPE (type2))))
1705 break;
1707 return;
1709 /* 13For every pair of promoted arithmetic types L and R, there exist can-
1710 didate operator functions of the form
1711 LR operator*(L, R);
1712 LR operator/(L, R);
1713 LR operator+(L, R);
1714 LR operator-(L, R);
1715 bool operator<(L, R);
1716 bool operator>(L, R);
1717 bool operator<=(L, R);
1718 bool operator>=(L, R);
1719 bool operator==(L, R);
1720 bool operator!=(L, R);
1721 where LR is the result of the usual arithmetic conversions between
1722 types L and R.
1724 14For every pair of types T and I, where T is a cv-qualified or cv-
1725 unqualified complete object type and I is a promoted integral type,
1726 there exist candidate operator functions of the form
1727 T* operator+(T*, I);
1728 T& operator[](T*, I);
1729 T* operator-(T*, I);
1730 T* operator+(I, T*);
1731 T& operator[](I, T*);
1733 15For every T, where T is a pointer to complete object type, there exist
1734 candidate operator functions of the form112)
1735 ptrdiff_t operator-(T, T);
1737 16For every pointer or enumeration type T, there exist candidate operator
1738 functions of the form
1739 bool operator<(T, T);
1740 bool operator>(T, T);
1741 bool operator<=(T, T);
1742 bool operator>=(T, T);
1743 bool operator==(T, T);
1744 bool operator!=(T, T);
1746 17For every pointer to member type T, there exist candidate operator
1747 functions of the form
1748 bool operator==(T, T);
1749 bool operator!=(T, T); */
1751 case MINUS_EXPR:
1752 if (TYPE_PTROB_P (type1) && TYPE_PTROB_P (type2))
1753 break;
1754 if (TYPE_PTROB_P (type1) && INTEGRAL_TYPE_P (type2))
1756 type2 = ptrdiff_type_node;
1757 break;
1759 case MULT_EXPR:
1760 case TRUNC_DIV_EXPR:
1761 if (ARITHMETIC_TYPE_P (type1) && ARITHMETIC_TYPE_P (type2))
1762 break;
1763 return;
1765 case EQ_EXPR:
1766 case NE_EXPR:
1767 if ((TYPE_PTRMEMFUNC_P (type1) && TYPE_PTRMEMFUNC_P (type2))
1768 || (TYPE_PTRMEM_P (type1) && TYPE_PTRMEM_P (type2)))
1769 break;
1770 if (TYPE_PTR_TO_MEMBER_P (type1) && null_ptr_cst_p (args[1]))
1772 type2 = type1;
1773 break;
1775 if (TYPE_PTR_TO_MEMBER_P (type2) && null_ptr_cst_p (args[0]))
1777 type1 = type2;
1778 break;
1780 /* Fall through. */
1781 case LT_EXPR:
1782 case GT_EXPR:
1783 case LE_EXPR:
1784 case GE_EXPR:
1785 case MAX_EXPR:
1786 case MIN_EXPR:
1787 if (ARITHMETIC_TYPE_P (type1) && ARITHMETIC_TYPE_P (type2))
1788 break;
1789 if (TYPE_PTR_P (type1) && TYPE_PTR_P (type2))
1790 break;
1791 if (TREE_CODE (type1) == ENUMERAL_TYPE && TREE_CODE (type2) == ENUMERAL_TYPE)
1792 break;
1793 if (TYPE_PTR_P (type1) && null_ptr_cst_p (args[1]))
1795 type2 = type1;
1796 break;
1798 if (null_ptr_cst_p (args[0]) && TYPE_PTR_P (type2))
1800 type1 = type2;
1801 break;
1803 return;
1805 case PLUS_EXPR:
1806 if (ARITHMETIC_TYPE_P (type1) && ARITHMETIC_TYPE_P (type2))
1807 break;
1808 case ARRAY_REF:
1809 if (INTEGRAL_TYPE_P (type1) && TYPE_PTROB_P (type2))
1811 type1 = ptrdiff_type_node;
1812 break;
1814 if (TYPE_PTROB_P (type1) && INTEGRAL_TYPE_P (type2))
1816 type2 = ptrdiff_type_node;
1817 break;
1819 return;
1821 /* 18For every pair of promoted integral types L and R, there exist candi-
1822 date operator functions of the form
1823 LR operator%(L, R);
1824 LR operator&(L, R);
1825 LR operator^(L, R);
1826 LR operator|(L, R);
1827 L operator<<(L, R);
1828 L operator>>(L, R);
1829 where LR is the result of the usual arithmetic conversions between
1830 types L and R. */
1832 case TRUNC_MOD_EXPR:
1833 case BIT_AND_EXPR:
1834 case BIT_IOR_EXPR:
1835 case BIT_XOR_EXPR:
1836 case LSHIFT_EXPR:
1837 case RSHIFT_EXPR:
1838 if (INTEGRAL_TYPE_P (type1) && INTEGRAL_TYPE_P (type2))
1839 break;
1840 return;
1842 /* 19For every triple L, VQ, R), where L is an arithmetic or enumeration
1843 type, VQ is either volatile or empty, and R is a promoted arithmetic
1844 type, there exist candidate operator functions of the form
1845 VQ L& operator=(VQ L&, R);
1846 VQ L& operator*=(VQ L&, R);
1847 VQ L& operator/=(VQ L&, R);
1848 VQ L& operator+=(VQ L&, R);
1849 VQ L& operator-=(VQ L&, R);
1851 20For every pair T, VQ), where T is any type and VQ is either volatile
1852 or empty, there exist candidate operator functions of the form
1853 T*VQ& operator=(T*VQ&, T*);
1855 21For every pair T, VQ), where T is a pointer to member type and VQ is
1856 either volatile or empty, there exist candidate operator functions of
1857 the form
1858 VQ T& operator=(VQ T&, T);
1860 22For every triple T, VQ, I), where T is a cv-qualified or cv-
1861 unqualified complete object type, VQ is either volatile or empty, and
1862 I is a promoted integral type, there exist candidate operator func-
1863 tions of the form
1864 T*VQ& operator+=(T*VQ&, I);
1865 T*VQ& operator-=(T*VQ&, I);
1867 23For every triple L, VQ, R), where L is an integral or enumeration
1868 type, VQ is either volatile or empty, and R is a promoted integral
1869 type, there exist candidate operator functions of the form
1871 VQ L& operator%=(VQ L&, R);
1872 VQ L& operator<<=(VQ L&, R);
1873 VQ L& operator>>=(VQ L&, R);
1874 VQ L& operator&=(VQ L&, R);
1875 VQ L& operator^=(VQ L&, R);
1876 VQ L& operator|=(VQ L&, R); */
1878 case MODIFY_EXPR:
1879 switch (code2)
1881 case PLUS_EXPR:
1882 case MINUS_EXPR:
1883 if (TYPE_PTROB_P (type1) && INTEGRAL_TYPE_P (type2))
1885 type2 = ptrdiff_type_node;
1886 break;
1888 case MULT_EXPR:
1889 case TRUNC_DIV_EXPR:
1890 if (ARITHMETIC_TYPE_P (type1) && ARITHMETIC_TYPE_P (type2))
1891 break;
1892 return;
1894 case TRUNC_MOD_EXPR:
1895 case BIT_AND_EXPR:
1896 case BIT_IOR_EXPR:
1897 case BIT_XOR_EXPR:
1898 case LSHIFT_EXPR:
1899 case RSHIFT_EXPR:
1900 if (INTEGRAL_TYPE_P (type1) && INTEGRAL_TYPE_P (type2))
1901 break;
1902 return;
1904 case NOP_EXPR:
1905 if (ARITHMETIC_TYPE_P (type1) && ARITHMETIC_TYPE_P (type2))
1906 break;
1907 if ((TYPE_PTRMEMFUNC_P (type1) && TYPE_PTRMEMFUNC_P (type2))
1908 || (TYPE_PTR_P (type1) && TYPE_PTR_P (type2))
1909 || (TYPE_PTRMEM_P (type1) && TYPE_PTRMEM_P (type2))
1910 || ((TYPE_PTRMEMFUNC_P (type1)
1911 || TREE_CODE (type1) == POINTER_TYPE)
1912 && null_ptr_cst_p (args[1])))
1914 type2 = type1;
1915 break;
1917 return;
1919 default:
1920 gcc_unreachable ();
1922 type1 = build_reference_type (type1);
1923 break;
1925 case COND_EXPR:
1926 /* [over.built]
1928 For every pair of promoted arithmetic types L and R, there
1929 exist candidate operator functions of the form
1931 LR operator?(bool, L, R);
1933 where LR is the result of the usual arithmetic conversions
1934 between types L and R.
1936 For every type T, where T is a pointer or pointer-to-member
1937 type, there exist candidate operator functions of the form T
1938 operator?(bool, T, T); */
1940 if (promoted_arithmetic_type_p (type1)
1941 && promoted_arithmetic_type_p (type2))
1942 /* That's OK. */
1943 break;
1945 /* Otherwise, the types should be pointers. */
1946 if (!(TYPE_PTR_P (type1) || TYPE_PTR_TO_MEMBER_P (type1))
1947 || !(TYPE_PTR_P (type2) || TYPE_PTR_TO_MEMBER_P (type2)))
1948 return;
1950 /* We don't check that the two types are the same; the logic
1951 below will actually create two candidates; one in which both
1952 parameter types are TYPE1, and one in which both parameter
1953 types are TYPE2. */
1954 break;
1956 default:
1957 gcc_unreachable ();
1960 /* If we're dealing with two pointer types or two enumeral types,
1961 we need candidates for both of them. */
1962 if (type2 && !same_type_p (type1, type2)
1963 && TREE_CODE (type1) == TREE_CODE (type2)
1964 && (TREE_CODE (type1) == REFERENCE_TYPE
1965 || (TYPE_PTR_P (type1) && TYPE_PTR_P (type2))
1966 || (TYPE_PTRMEM_P (type1) && TYPE_PTRMEM_P (type2))
1967 || TYPE_PTRMEMFUNC_P (type1)
1968 || IS_AGGR_TYPE (type1)
1969 || TREE_CODE (type1) == ENUMERAL_TYPE))
1971 build_builtin_candidate
1972 (candidates, fnname, type1, type1, args, argtypes, flags);
1973 build_builtin_candidate
1974 (candidates, fnname, type2, type2, args, argtypes, flags);
1975 return;
1978 build_builtin_candidate
1979 (candidates, fnname, type1, type2, args, argtypes, flags);
1982 tree
1983 type_decays_to (tree type)
1985 if (TREE_CODE (type) == ARRAY_TYPE)
1986 return build_pointer_type (TREE_TYPE (type));
1987 if (TREE_CODE (type) == FUNCTION_TYPE)
1988 return build_pointer_type (type);
1989 return type;
1992 /* There are three conditions of builtin candidates:
1994 1) bool-taking candidates. These are the same regardless of the input.
1995 2) pointer-pair taking candidates. These are generated for each type
1996 one of the input types converts to.
1997 3) arithmetic candidates. According to the standard, we should generate
1998 all of these, but I'm trying not to...
2000 Here we generate a superset of the possible candidates for this particular
2001 case. That is a subset of the full set the standard defines, plus some
2002 other cases which the standard disallows. add_builtin_candidate will
2003 filter out the invalid set. */
2005 static void
2006 add_builtin_candidates (struct z_candidate **candidates, enum tree_code code,
2007 enum tree_code code2, tree fnname, tree *args,
2008 int flags)
2010 int ref1, i;
2011 int enum_p = 0;
2012 tree type, argtypes[3];
2013 /* TYPES[i] is the set of possible builtin-operator parameter types
2014 we will consider for the Ith argument. These are represented as
2015 a TREE_LIST; the TREE_VALUE of each node is the potential
2016 parameter type. */
2017 tree types[2];
2019 for (i = 0; i < 3; ++i)
2021 if (args[i])
2022 argtypes[i] = lvalue_type (args[i]);
2023 else
2024 argtypes[i] = NULL_TREE;
2027 switch (code)
2029 /* 4 For every pair T, VQ), where T is an arithmetic or enumeration type,
2030 and VQ is either volatile or empty, there exist candidate operator
2031 functions of the form
2032 VQ T& operator++(VQ T&); */
2034 case POSTINCREMENT_EXPR:
2035 case PREINCREMENT_EXPR:
2036 case POSTDECREMENT_EXPR:
2037 case PREDECREMENT_EXPR:
2038 case MODIFY_EXPR:
2039 ref1 = 1;
2040 break;
2042 /* 24There also exist candidate operator functions of the form
2043 bool operator!(bool);
2044 bool operator&&(bool, bool);
2045 bool operator||(bool, bool); */
2047 case TRUTH_NOT_EXPR:
2048 build_builtin_candidate
2049 (candidates, fnname, boolean_type_node,
2050 NULL_TREE, args, argtypes, flags);
2051 return;
2053 case TRUTH_ORIF_EXPR:
2054 case TRUTH_ANDIF_EXPR:
2055 build_builtin_candidate
2056 (candidates, fnname, boolean_type_node,
2057 boolean_type_node, args, argtypes, flags);
2058 return;
2060 case ADDR_EXPR:
2061 case COMPOUND_EXPR:
2062 case COMPONENT_REF:
2063 return;
2065 case COND_EXPR:
2066 case EQ_EXPR:
2067 case NE_EXPR:
2068 case LT_EXPR:
2069 case LE_EXPR:
2070 case GT_EXPR:
2071 case GE_EXPR:
2072 enum_p = 1;
2073 /* Fall through. */
2075 default:
2076 ref1 = 0;
2079 types[0] = types[1] = NULL_TREE;
2081 for (i = 0; i < 2; ++i)
2083 if (! args[i])
2085 else if (IS_AGGR_TYPE (argtypes[i]))
2087 tree convs;
2089 if (i == 0 && code == MODIFY_EXPR && code2 == NOP_EXPR)
2090 return;
2092 convs = lookup_conversions (argtypes[i]);
2094 if (code == COND_EXPR)
2096 if (real_lvalue_p (args[i]))
2097 types[i] = tree_cons
2098 (NULL_TREE, build_reference_type (argtypes[i]), types[i]);
2100 types[i] = tree_cons
2101 (NULL_TREE, TYPE_MAIN_VARIANT (argtypes[i]), types[i]);
2104 else if (! convs)
2105 return;
2107 for (; convs; convs = TREE_CHAIN (convs))
2109 type = TREE_TYPE (TREE_TYPE (OVL_CURRENT (TREE_VALUE (convs))));
2111 if (i == 0 && ref1
2112 && (TREE_CODE (type) != REFERENCE_TYPE
2113 || CP_TYPE_CONST_P (TREE_TYPE (type))))
2114 continue;
2116 if (code == COND_EXPR && TREE_CODE (type) == REFERENCE_TYPE)
2117 types[i] = tree_cons (NULL_TREE, type, types[i]);
2119 type = non_reference (type);
2120 if (i != 0 || ! ref1)
2122 type = TYPE_MAIN_VARIANT (type_decays_to (type));
2123 if (enum_p && TREE_CODE (type) == ENUMERAL_TYPE)
2124 types[i] = tree_cons (NULL_TREE, type, types[i]);
2125 if (INTEGRAL_TYPE_P (type))
2126 type = type_promotes_to (type);
2129 if (! value_member (type, types[i]))
2130 types[i] = tree_cons (NULL_TREE, type, types[i]);
2133 else
2135 if (code == COND_EXPR && real_lvalue_p (args[i]))
2136 types[i] = tree_cons
2137 (NULL_TREE, build_reference_type (argtypes[i]), types[i]);
2138 type = non_reference (argtypes[i]);
2139 if (i != 0 || ! ref1)
2141 type = TYPE_MAIN_VARIANT (type_decays_to (type));
2142 if (enum_p && TREE_CODE (type) == ENUMERAL_TYPE)
2143 types[i] = tree_cons (NULL_TREE, type, types[i]);
2144 if (INTEGRAL_TYPE_P (type))
2145 type = type_promotes_to (type);
2147 types[i] = tree_cons (NULL_TREE, type, types[i]);
2151 /* Run through the possible parameter types of both arguments,
2152 creating candidates with those parameter types. */
2153 for (; types[0]; types[0] = TREE_CHAIN (types[0]))
2155 if (types[1])
2156 for (type = types[1]; type; type = TREE_CHAIN (type))
2157 add_builtin_candidate
2158 (candidates, code, code2, fnname, TREE_VALUE (types[0]),
2159 TREE_VALUE (type), args, argtypes, flags);
2160 else
2161 add_builtin_candidate
2162 (candidates, code, code2, fnname, TREE_VALUE (types[0]),
2163 NULL_TREE, args, argtypes, flags);
2166 return;
2170 /* If TMPL can be successfully instantiated as indicated by
2171 EXPLICIT_TARGS and ARGLIST, adds the instantiation to CANDIDATES.
2173 TMPL is the template. EXPLICIT_TARGS are any explicit template
2174 arguments. ARGLIST is the arguments provided at the call-site.
2175 The RETURN_TYPE is the desired type for conversion operators. If
2176 OBJ is NULL_TREE, FLAGS and CTYPE are as for add_function_candidate.
2177 If an OBJ is supplied, FLAGS and CTYPE are ignored, and OBJ is as for
2178 add_conv_candidate. */
2180 static struct z_candidate*
2181 add_template_candidate_real (struct z_candidate **candidates, tree tmpl,
2182 tree ctype, tree explicit_targs, tree arglist,
2183 tree return_type, tree access_path,
2184 tree conversion_path, int flags, tree obj,
2185 unification_kind_t strict)
2187 int ntparms = DECL_NTPARMS (tmpl);
2188 tree targs = make_tree_vec (ntparms);
2189 tree args_without_in_chrg = arglist;
2190 struct z_candidate *cand;
2191 int i;
2192 tree fn;
2194 /* We don't do deduction on the in-charge parameter, the VTT
2195 parameter or 'this'. */
2196 if (DECL_NONSTATIC_MEMBER_FUNCTION_P (tmpl))
2197 args_without_in_chrg = TREE_CHAIN (args_without_in_chrg);
2199 if ((DECL_MAYBE_IN_CHARGE_CONSTRUCTOR_P (tmpl)
2200 || DECL_BASE_CONSTRUCTOR_P (tmpl))
2201 && CLASSTYPE_VBASECLASSES (DECL_CONTEXT (tmpl)))
2202 args_without_in_chrg = TREE_CHAIN (args_without_in_chrg);
2204 i = fn_type_unification (tmpl, explicit_targs, targs,
2205 args_without_in_chrg,
2206 return_type, strict, flags);
2208 if (i != 0)
2209 return NULL;
2211 fn = instantiate_template (tmpl, targs, tf_none);
2212 if (fn == error_mark_node)
2213 return NULL;
2215 /* In [class.copy]:
2217 A member function template is never instantiated to perform the
2218 copy of a class object to an object of its class type.
2220 It's a little unclear what this means; the standard explicitly
2221 does allow a template to be used to copy a class. For example,
2224 struct A {
2225 A(A&);
2226 template <class T> A(const T&);
2228 const A f ();
2229 void g () { A a (f ()); }
2231 the member template will be used to make the copy. The section
2232 quoted above appears in the paragraph that forbids constructors
2233 whose only parameter is (a possibly cv-qualified variant of) the
2234 class type, and a logical interpretation is that the intent was
2235 to forbid the instantiation of member templates which would then
2236 have that form. */
2237 if (DECL_CONSTRUCTOR_P (fn) && list_length (arglist) == 2)
2239 tree arg_types = FUNCTION_FIRST_USER_PARMTYPE (fn);
2240 if (arg_types && same_type_p (TYPE_MAIN_VARIANT (TREE_VALUE (arg_types)),
2241 ctype))
2242 return NULL;
2245 if (obj != NULL_TREE)
2246 /* Aha, this is a conversion function. */
2247 cand = add_conv_candidate (candidates, fn, obj, access_path,
2248 conversion_path, arglist);
2249 else
2250 cand = add_function_candidate (candidates, fn, ctype,
2251 arglist, access_path,
2252 conversion_path, flags);
2253 if (DECL_TI_TEMPLATE (fn) != tmpl)
2254 /* This situation can occur if a member template of a template
2255 class is specialized. Then, instantiate_template might return
2256 an instantiation of the specialization, in which case the
2257 DECL_TI_TEMPLATE field will point at the original
2258 specialization. For example:
2260 template <class T> struct S { template <class U> void f(U);
2261 template <> void f(int) {}; };
2262 S<double> sd;
2263 sd.f(3);
2265 Here, TMPL will be template <class U> S<double>::f(U).
2266 And, instantiate template will give us the specialization
2267 template <> S<double>::f(int). But, the DECL_TI_TEMPLATE field
2268 for this will point at template <class T> template <> S<T>::f(int),
2269 so that we can find the definition. For the purposes of
2270 overload resolution, however, we want the original TMPL. */
2271 cand->template_decl = tree_cons (tmpl, targs, NULL_TREE);
2272 else
2273 cand->template_decl = DECL_TEMPLATE_INFO (fn);
2275 return cand;
2279 static struct z_candidate *
2280 add_template_candidate (struct z_candidate **candidates, tree tmpl, tree ctype,
2281 tree explicit_targs, tree arglist, tree return_type,
2282 tree access_path, tree conversion_path, int flags,
2283 unification_kind_t strict)
2285 return
2286 add_template_candidate_real (candidates, tmpl, ctype,
2287 explicit_targs, arglist, return_type,
2288 access_path, conversion_path,
2289 flags, NULL_TREE, strict);
2293 static struct z_candidate *
2294 add_template_conv_candidate (struct z_candidate **candidates, tree tmpl,
2295 tree obj, tree arglist, tree return_type,
2296 tree access_path, tree conversion_path)
2298 return
2299 add_template_candidate_real (candidates, tmpl, NULL_TREE, NULL_TREE,
2300 arglist, return_type, access_path,
2301 conversion_path, 0, obj, DEDUCE_CONV);
2304 /* The CANDS are the set of candidates that were considered for
2305 overload resolution. Return the set of viable candidates. If none
2306 of the candidates were viable, set *ANY_VIABLE_P to true. STRICT_P
2307 is true if a candidate should be considered viable only if it is
2308 strictly viable. */
2310 static struct z_candidate*
2311 splice_viable (struct z_candidate *cands,
2312 bool strict_p,
2313 bool *any_viable_p)
2315 struct z_candidate *viable;
2316 struct z_candidate **last_viable;
2317 struct z_candidate **cand;
2319 viable = NULL;
2320 last_viable = &viable;
2321 *any_viable_p = false;
2323 cand = &cands;
2324 while (*cand)
2326 struct z_candidate *c = *cand;
2327 if (strict_p ? c->viable == 1 : c->viable)
2329 *last_viable = c;
2330 *cand = c->next;
2331 c->next = NULL;
2332 last_viable = &c->next;
2333 *any_viable_p = true;
2335 else
2336 cand = &c->next;
2339 return viable ? viable : cands;
2342 static bool
2343 any_strictly_viable (struct z_candidate *cands)
2345 for (; cands; cands = cands->next)
2346 if (cands->viable == 1)
2347 return true;
2348 return false;
2351 /* OBJ is being used in an expression like "OBJ.f (...)". In other
2352 words, it is about to become the "this" pointer for a member
2353 function call. Take the address of the object. */
2355 static tree
2356 build_this (tree obj)
2358 /* In a template, we are only concerned about the type of the
2359 expression, so we can take a shortcut. */
2360 if (processing_template_decl)
2361 return build_address (obj);
2363 return build_unary_op (ADDR_EXPR, obj, 0);
2366 /* Returns true iff functions are equivalent. Equivalent functions are
2367 not '==' only if one is a function-local extern function or if
2368 both are extern "C". */
2370 static inline int
2371 equal_functions (tree fn1, tree fn2)
2373 if (DECL_LOCAL_FUNCTION_P (fn1) || DECL_LOCAL_FUNCTION_P (fn2)
2374 || DECL_EXTERN_C_FUNCTION_P (fn1))
2375 return decls_match (fn1, fn2);
2376 return fn1 == fn2;
2379 /* Print information about one overload candidate CANDIDATE. MSGSTR
2380 is the text to print before the candidate itself.
2382 NOTE: Unlike most diagnostic functions in GCC, MSGSTR is expected
2383 to have been run through gettext by the caller. This wart makes
2384 life simpler in print_z_candidates and for the translators. */
2386 static void
2387 print_z_candidate (const char *msgstr, struct z_candidate *candidate)
2389 if (TREE_CODE (candidate->fn) == IDENTIFIER_NODE)
2391 if (candidate->num_convs == 3)
2392 inform ("%s %D(%T, %T, %T) <built-in>", msgstr, candidate->fn,
2393 candidate->convs[0]->type,
2394 candidate->convs[1]->type,
2395 candidate->convs[2]->type);
2396 else if (candidate->num_convs == 2)
2397 inform ("%s %D(%T, %T) <built-in>", msgstr, candidate->fn,
2398 candidate->convs[0]->type,
2399 candidate->convs[1]->type);
2400 else
2401 inform ("%s %D(%T) <built-in>", msgstr, candidate->fn,
2402 candidate->convs[0]->type);
2404 else if (TYPE_P (candidate->fn))
2405 inform ("%s %T <conversion>", msgstr, candidate->fn);
2406 else if (candidate->viable == -1)
2407 inform ("%s %+#D <near match>", msgstr, candidate->fn);
2408 else
2409 inform ("%s %+#D", msgstr, candidate->fn);
2412 static void
2413 print_z_candidates (struct z_candidate *candidates)
2415 const char *str;
2416 struct z_candidate *cand1;
2417 struct z_candidate **cand2;
2419 /* There may be duplicates in the set of candidates. We put off
2420 checking this condition as long as possible, since we have no way
2421 to eliminate duplicates from a set of functions in less than n^2
2422 time. Now we are about to emit an error message, so it is more
2423 permissible to go slowly. */
2424 for (cand1 = candidates; cand1; cand1 = cand1->next)
2426 tree fn = cand1->fn;
2427 /* Skip builtin candidates and conversion functions. */
2428 if (TREE_CODE (fn) != FUNCTION_DECL)
2429 continue;
2430 cand2 = &cand1->next;
2431 while (*cand2)
2433 if (TREE_CODE ((*cand2)->fn) == FUNCTION_DECL
2434 && equal_functions (fn, (*cand2)->fn))
2435 *cand2 = (*cand2)->next;
2436 else
2437 cand2 = &(*cand2)->next;
2441 if (!candidates)
2442 return;
2444 str = _("candidates are:");
2445 print_z_candidate (str, candidates);
2446 if (candidates->next)
2448 /* Indent successive candidates by the width of the translation
2449 of the above string. */
2450 size_t len = gcc_gettext_width (str) + 1;
2451 char *spaces = alloca (len);
2452 memset (spaces, ' ', len-1);
2453 spaces[len - 1] = '\0';
2455 candidates = candidates->next;
2458 print_z_candidate (spaces, candidates);
2459 candidates = candidates->next;
2461 while (candidates);
2465 /* USER_SEQ is a user-defined conversion sequence, beginning with a
2466 USER_CONV. STD_SEQ is the standard conversion sequence applied to
2467 the result of the conversion function to convert it to the final
2468 desired type. Merge the two sequences into a single sequence,
2469 and return the merged sequence. */
2471 static conversion *
2472 merge_conversion_sequences (conversion *user_seq, conversion *std_seq)
2474 conversion **t;
2476 gcc_assert (user_seq->kind == ck_user);
2478 /* Find the end of the second conversion sequence. */
2479 t = &(std_seq);
2480 while ((*t)->kind != ck_identity)
2481 t = &((*t)->u.next);
2483 /* Replace the identity conversion with the user conversion
2484 sequence. */
2485 *t = user_seq;
2487 /* The entire sequence is a user-conversion sequence. */
2488 std_seq->user_conv_p = true;
2490 return std_seq;
2493 /* Returns the best overload candidate to perform the requested
2494 conversion. This function is used for three the overloading situations
2495 described in [over.match.copy], [over.match.conv], and [over.match.ref].
2496 If TOTYPE is a REFERENCE_TYPE, we're trying to find an lvalue binding as
2497 per [dcl.init.ref], so we ignore temporary bindings. */
2499 static struct z_candidate *
2500 build_user_type_conversion_1 (tree totype, tree expr, int flags)
2502 struct z_candidate *candidates, *cand;
2503 tree fromtype = TREE_TYPE (expr);
2504 tree ctors = NULL_TREE;
2505 tree conv_fns = NULL_TREE;
2506 conversion *conv = NULL;
2507 tree args = NULL_TREE;
2508 bool any_viable_p;
2510 /* We represent conversion within a hierarchy using RVALUE_CONV and
2511 BASE_CONV, as specified by [over.best.ics]; these become plain
2512 constructor calls, as specified in [dcl.init]. */
2513 gcc_assert (!IS_AGGR_TYPE (fromtype) || !IS_AGGR_TYPE (totype)
2514 || !DERIVED_FROM_P (totype, fromtype));
2516 if (IS_AGGR_TYPE (totype))
2517 ctors = lookup_fnfields (totype, complete_ctor_identifier, 0);
2519 if (IS_AGGR_TYPE (fromtype))
2520 conv_fns = lookup_conversions (fromtype);
2522 candidates = 0;
2523 flags |= LOOKUP_NO_CONVERSION;
2525 if (ctors)
2527 tree t;
2529 ctors = BASELINK_FUNCTIONS (ctors);
2531 t = build_int_cst (build_pointer_type (totype), 0);
2532 args = build_tree_list (NULL_TREE, expr);
2533 /* We should never try to call the abstract or base constructor
2534 from here. */
2535 gcc_assert (!DECL_HAS_IN_CHARGE_PARM_P (OVL_CURRENT (ctors))
2536 && !DECL_HAS_VTT_PARM_P (OVL_CURRENT (ctors)));
2537 args = tree_cons (NULL_TREE, t, args);
2539 for (; ctors; ctors = OVL_NEXT (ctors))
2541 tree ctor = OVL_CURRENT (ctors);
2542 if (DECL_NONCONVERTING_P (ctor))
2543 continue;
2545 if (TREE_CODE (ctor) == TEMPLATE_DECL)
2546 cand = add_template_candidate (&candidates, ctor, totype,
2547 NULL_TREE, args, NULL_TREE,
2548 TYPE_BINFO (totype),
2549 TYPE_BINFO (totype),
2550 flags,
2551 DEDUCE_CALL);
2552 else
2553 cand = add_function_candidate (&candidates, ctor, totype,
2554 args, TYPE_BINFO (totype),
2555 TYPE_BINFO (totype),
2556 flags);
2558 if (cand)
2559 cand->second_conv = build_identity_conv (totype, NULL_TREE);
2562 if (conv_fns)
2563 args = build_tree_list (NULL_TREE, build_this (expr));
2565 for (; conv_fns; conv_fns = TREE_CHAIN (conv_fns))
2567 tree fns;
2568 tree conversion_path = TREE_PURPOSE (conv_fns);
2569 int convflags = LOOKUP_NO_CONVERSION;
2571 /* If we are called to convert to a reference type, we are trying to
2572 find an lvalue binding, so don't even consider temporaries. If
2573 we don't find an lvalue binding, the caller will try again to
2574 look for a temporary binding. */
2575 if (TREE_CODE (totype) == REFERENCE_TYPE)
2576 convflags |= LOOKUP_NO_TEMP_BIND;
2578 for (fns = TREE_VALUE (conv_fns); fns; fns = OVL_NEXT (fns))
2580 tree fn = OVL_CURRENT (fns);
2582 /* [over.match.funcs] For conversion functions, the function
2583 is considered to be a member of the class of the implicit
2584 object argument for the purpose of defining the type of
2585 the implicit object parameter.
2587 So we pass fromtype as CTYPE to add_*_candidate. */
2589 if (TREE_CODE (fn) == TEMPLATE_DECL)
2590 cand = add_template_candidate (&candidates, fn, fromtype,
2591 NULL_TREE,
2592 args, totype,
2593 TYPE_BINFO (fromtype),
2594 conversion_path,
2595 flags,
2596 DEDUCE_CONV);
2597 else
2598 cand = add_function_candidate (&candidates, fn, fromtype,
2599 args,
2600 TYPE_BINFO (fromtype),
2601 conversion_path,
2602 flags);
2604 if (cand)
2606 conversion *ics
2607 = implicit_conversion (totype,
2608 TREE_TYPE (TREE_TYPE (cand->fn)),
2610 /*c_cast_p=*/false, convflags);
2612 cand->second_conv = ics;
2614 if (!ics)
2615 cand->viable = 0;
2616 else if (candidates->viable == 1 && ics->bad_p)
2617 cand->viable = -1;
2622 candidates = splice_viable (candidates, pedantic, &any_viable_p);
2623 if (!any_viable_p)
2624 return 0;
2626 cand = tourney (candidates);
2627 if (cand == 0)
2629 if (flags & LOOKUP_COMPLAIN)
2631 error ("conversion from %qT to %qT is ambiguous",
2632 fromtype, totype);
2633 print_z_candidates (candidates);
2636 cand = candidates; /* any one will do */
2637 cand->second_conv = build_ambiguous_conv (totype, expr);
2638 cand->second_conv->user_conv_p = true;
2639 if (!any_strictly_viable (candidates))
2640 cand->second_conv->bad_p = true;
2641 /* If there are viable candidates, don't set ICS_BAD_FLAG; an
2642 ambiguous conversion is no worse than another user-defined
2643 conversion. */
2645 return cand;
2648 /* Build the user conversion sequence. */
2649 conv = build_conv
2650 (ck_user,
2651 (DECL_CONSTRUCTOR_P (cand->fn)
2652 ? totype : non_reference (TREE_TYPE (TREE_TYPE (cand->fn)))),
2653 build_identity_conv (TREE_TYPE (expr), expr));
2654 conv->cand = cand;
2656 /* Combine it with the second conversion sequence. */
2657 cand->second_conv = merge_conversion_sequences (conv,
2658 cand->second_conv);
2660 if (cand->viable == -1)
2661 cand->second_conv->bad_p = true;
2663 return cand;
2666 tree
2667 build_user_type_conversion (tree totype, tree expr, int flags)
2669 struct z_candidate *cand
2670 = build_user_type_conversion_1 (totype, expr, flags);
2672 if (cand)
2674 if (cand->second_conv->kind == ck_ambig)
2675 return error_mark_node;
2676 expr = convert_like (cand->second_conv, expr);
2677 return convert_from_reference (expr);
2679 return NULL_TREE;
2682 /* Do any initial processing on the arguments to a function call. */
2684 static tree
2685 resolve_args (tree args)
2687 tree t;
2688 for (t = args; t; t = TREE_CHAIN (t))
2690 tree arg = TREE_VALUE (t);
2692 if (error_operand_p (arg))
2693 return error_mark_node;
2694 else if (VOID_TYPE_P (TREE_TYPE (arg)))
2696 error ("invalid use of void expression");
2697 return error_mark_node;
2700 return args;
2703 /* Perform overload resolution on FN, which is called with the ARGS.
2705 Return the candidate function selected by overload resolution, or
2706 NULL if the event that overload resolution failed. In the case
2707 that overload resolution fails, *CANDIDATES will be the set of
2708 candidates considered, and ANY_VIABLE_P will be set to true or
2709 false to indicate whether or not any of the candidates were
2710 viable.
2712 The ARGS should already have gone through RESOLVE_ARGS before this
2713 function is called. */
2715 static struct z_candidate *
2716 perform_overload_resolution (tree fn,
2717 tree args,
2718 struct z_candidate **candidates,
2719 bool *any_viable_p)
2721 struct z_candidate *cand;
2722 tree explicit_targs = NULL_TREE;
2723 int template_only = 0;
2725 *candidates = NULL;
2726 *any_viable_p = true;
2728 /* Check FN and ARGS. */
2729 gcc_assert (TREE_CODE (fn) == FUNCTION_DECL
2730 || TREE_CODE (fn) == TEMPLATE_DECL
2731 || TREE_CODE (fn) == OVERLOAD
2732 || TREE_CODE (fn) == TEMPLATE_ID_EXPR);
2733 gcc_assert (!args || TREE_CODE (args) == TREE_LIST);
2735 if (TREE_CODE (fn) == TEMPLATE_ID_EXPR)
2737 explicit_targs = TREE_OPERAND (fn, 1);
2738 fn = TREE_OPERAND (fn, 0);
2739 template_only = 1;
2742 /* Add the various candidate functions. */
2743 add_candidates (fn, args, explicit_targs, template_only,
2744 /*conversion_path=*/NULL_TREE,
2745 /*access_path=*/NULL_TREE,
2746 LOOKUP_NORMAL,
2747 candidates);
2749 *candidates = splice_viable (*candidates, pedantic, any_viable_p);
2750 if (!*any_viable_p)
2751 return NULL;
2753 cand = tourney (*candidates);
2754 return cand;
2757 /* Return an expression for a call to FN (a namespace-scope function,
2758 or a static member function) with the ARGS. */
2760 tree
2761 build_new_function_call (tree fn, tree args, bool koenig_p)
2763 struct z_candidate *candidates, *cand;
2764 bool any_viable_p;
2765 void *p;
2766 tree result;
2768 args = resolve_args (args);
2769 if (args == error_mark_node)
2770 return error_mark_node;
2772 /* If this function was found without using argument dependent
2773 lookup, then we want to ignore any undeclared friend
2774 functions. */
2775 if (!koenig_p)
2777 tree orig_fn = fn;
2779 fn = remove_hidden_names (fn);
2780 if (!fn)
2782 error ("no matching function for call to %<%D(%A)%>",
2783 DECL_NAME (OVL_CURRENT (orig_fn)), args);
2784 return error_mark_node;
2788 /* Get the high-water mark for the CONVERSION_OBSTACK. */
2789 p = conversion_obstack_alloc (0);
2791 cand = perform_overload_resolution (fn, args, &candidates, &any_viable_p);
2793 if (!cand)
2795 if (!any_viable_p && candidates && ! candidates->next)
2796 return build_function_call (candidates->fn, args);
2797 if (TREE_CODE (fn) == TEMPLATE_ID_EXPR)
2798 fn = TREE_OPERAND (fn, 0);
2799 if (!any_viable_p)
2800 error ("no matching function for call to %<%D(%A)%>",
2801 DECL_NAME (OVL_CURRENT (fn)), args);
2802 else
2803 error ("call of overloaded %<%D(%A)%> is ambiguous",
2804 DECL_NAME (OVL_CURRENT (fn)), args);
2805 if (candidates)
2806 print_z_candidates (candidates);
2807 result = error_mark_node;
2809 else
2810 result = build_over_call (cand, LOOKUP_NORMAL);
2812 /* Free all the conversions we allocated. */
2813 obstack_free (&conversion_obstack, p);
2815 return result;
2818 /* Build a call to a global operator new. FNNAME is the name of the
2819 operator (either "operator new" or "operator new[]") and ARGS are
2820 the arguments provided. *SIZE points to the total number of bytes
2821 required by the allocation, and is updated if that is changed here.
2822 *COOKIE_SIZE is non-NULL if a cookie should be used. If this
2823 function determines that no cookie should be used, after all,
2824 *COOKIE_SIZE is set to NULL_TREE. */
2826 tree
2827 build_operator_new_call (tree fnname, tree args, tree *size, tree *cookie_size)
2829 tree fns;
2830 struct z_candidate *candidates;
2831 struct z_candidate *cand;
2832 bool any_viable_p;
2834 args = tree_cons (NULL_TREE, *size, args);
2835 args = resolve_args (args);
2836 if (args == error_mark_node)
2837 return args;
2839 /* Based on:
2841 [expr.new]
2843 If this lookup fails to find the name, or if the allocated type
2844 is not a class type, the allocation function's name is looked
2845 up in the global scope.
2847 we disregard block-scope declarations of "operator new". */
2848 fns = lookup_function_nonclass (fnname, args, /*block_p=*/false);
2850 /* Figure out what function is being called. */
2851 cand = perform_overload_resolution (fns, args, &candidates, &any_viable_p);
2853 /* If no suitable function could be found, issue an error message
2854 and give up. */
2855 if (!cand)
2857 if (!any_viable_p)
2858 error ("no matching function for call to %<%D(%A)%>",
2859 DECL_NAME (OVL_CURRENT (fns)), args);
2860 else
2861 error ("call of overloaded %<%D(%A)%> is ambiguous",
2862 DECL_NAME (OVL_CURRENT (fns)), args);
2863 if (candidates)
2864 print_z_candidates (candidates);
2865 return error_mark_node;
2868 /* If a cookie is required, add some extra space. Whether
2869 or not a cookie is required cannot be determined until
2870 after we know which function was called. */
2871 if (*cookie_size)
2873 bool use_cookie = true;
2874 if (!abi_version_at_least (2))
2876 tree placement = TREE_CHAIN (args);
2877 /* In G++ 3.2, the check was implemented incorrectly; it
2878 looked at the placement expression, rather than the
2879 type of the function. */
2880 if (placement && !TREE_CHAIN (placement)
2881 && same_type_p (TREE_TYPE (TREE_VALUE (placement)),
2882 ptr_type_node))
2883 use_cookie = false;
2885 else
2887 tree arg_types;
2889 arg_types = TYPE_ARG_TYPES (TREE_TYPE (cand->fn));
2890 /* Skip the size_t parameter. */
2891 arg_types = TREE_CHAIN (arg_types);
2892 /* Check the remaining parameters (if any). */
2893 if (arg_types
2894 && TREE_CHAIN (arg_types) == void_list_node
2895 && same_type_p (TREE_VALUE (arg_types),
2896 ptr_type_node))
2897 use_cookie = false;
2899 /* If we need a cookie, adjust the number of bytes allocated. */
2900 if (use_cookie)
2902 /* Update the total size. */
2903 *size = size_binop (PLUS_EXPR, *size, *cookie_size);
2904 /* Update the argument list to reflect the adjusted size. */
2905 TREE_VALUE (args) = *size;
2907 else
2908 *cookie_size = NULL_TREE;
2911 /* Build the CALL_EXPR. */
2912 return build_over_call (cand, LOOKUP_NORMAL);
2915 static tree
2916 build_object_call (tree obj, tree args)
2918 struct z_candidate *candidates = 0, *cand;
2919 tree fns, convs, mem_args = NULL_TREE;
2920 tree type = TREE_TYPE (obj);
2921 bool any_viable_p;
2922 tree result = NULL_TREE;
2923 void *p;
2925 if (TYPE_PTRMEMFUNC_P (type))
2927 /* It's no good looking for an overloaded operator() on a
2928 pointer-to-member-function. */
2929 error ("pointer-to-member function %E cannot be called without an object; consider using .* or ->*", obj);
2930 return error_mark_node;
2933 if (TYPE_BINFO (type))
2935 fns = lookup_fnfields (TYPE_BINFO (type), ansi_opname (CALL_EXPR), 1);
2936 if (fns == error_mark_node)
2937 return error_mark_node;
2939 else
2940 fns = NULL_TREE;
2942 args = resolve_args (args);
2944 if (args == error_mark_node)
2945 return error_mark_node;
2947 /* Get the high-water mark for the CONVERSION_OBSTACK. */
2948 p = conversion_obstack_alloc (0);
2950 if (fns)
2952 tree base = BINFO_TYPE (BASELINK_BINFO (fns));
2953 mem_args = tree_cons (NULL_TREE, build_this (obj), args);
2955 for (fns = BASELINK_FUNCTIONS (fns); fns; fns = OVL_NEXT (fns))
2957 tree fn = OVL_CURRENT (fns);
2958 if (TREE_CODE (fn) == TEMPLATE_DECL)
2959 add_template_candidate (&candidates, fn, base, NULL_TREE,
2960 mem_args, NULL_TREE,
2961 TYPE_BINFO (type),
2962 TYPE_BINFO (type),
2963 LOOKUP_NORMAL, DEDUCE_CALL);
2964 else
2965 add_function_candidate
2966 (&candidates, fn, base, mem_args, TYPE_BINFO (type),
2967 TYPE_BINFO (type), LOOKUP_NORMAL);
2971 convs = lookup_conversions (type);
2973 for (; convs; convs = TREE_CHAIN (convs))
2975 tree fns = TREE_VALUE (convs);
2976 tree totype = TREE_TYPE (TREE_TYPE (OVL_CURRENT (fns)));
2978 if ((TREE_CODE (totype) == POINTER_TYPE
2979 && TREE_CODE (TREE_TYPE (totype)) == FUNCTION_TYPE)
2980 || (TREE_CODE (totype) == REFERENCE_TYPE
2981 && TREE_CODE (TREE_TYPE (totype)) == FUNCTION_TYPE)
2982 || (TREE_CODE (totype) == REFERENCE_TYPE
2983 && TREE_CODE (TREE_TYPE (totype)) == POINTER_TYPE
2984 && TREE_CODE (TREE_TYPE (TREE_TYPE (totype))) == FUNCTION_TYPE))
2985 for (; fns; fns = OVL_NEXT (fns))
2987 tree fn = OVL_CURRENT (fns);
2988 if (TREE_CODE (fn) == TEMPLATE_DECL)
2989 add_template_conv_candidate
2990 (&candidates, fn, obj, args, totype,
2991 /*access_path=*/NULL_TREE,
2992 /*conversion_path=*/NULL_TREE);
2993 else
2994 add_conv_candidate (&candidates, fn, obj, args,
2995 /*conversion_path=*/NULL_TREE,
2996 /*access_path=*/NULL_TREE);
3000 candidates = splice_viable (candidates, pedantic, &any_viable_p);
3001 if (!any_viable_p)
3003 error ("no match for call to %<(%T) (%A)%>", TREE_TYPE (obj), args);
3004 print_z_candidates (candidates);
3005 result = error_mark_node;
3007 else
3009 cand = tourney (candidates);
3010 if (cand == 0)
3012 error ("call of %<(%T) (%A)%> is ambiguous", TREE_TYPE (obj), args);
3013 print_z_candidates (candidates);
3014 result = error_mark_node;
3016 /* Since cand->fn will be a type, not a function, for a conversion
3017 function, we must be careful not to unconditionally look at
3018 DECL_NAME here. */
3019 else if (TREE_CODE (cand->fn) == FUNCTION_DECL
3020 && DECL_OVERLOADED_OPERATOR_P (cand->fn) == CALL_EXPR)
3021 result = build_over_call (cand, LOOKUP_NORMAL);
3022 else
3024 obj = convert_like_with_context (cand->convs[0], obj, cand->fn, -1);
3025 obj = convert_from_reference (obj);
3026 result = build_function_call (obj, args);
3030 /* Free all the conversions we allocated. */
3031 obstack_free (&conversion_obstack, p);
3033 return result;
3036 static void
3037 op_error (enum tree_code code, enum tree_code code2,
3038 tree arg1, tree arg2, tree arg3, const char *problem)
3040 const char *opname;
3042 if (code == MODIFY_EXPR)
3043 opname = assignment_operator_name_info[code2].name;
3044 else
3045 opname = operator_name_info[code].name;
3047 switch (code)
3049 case COND_EXPR:
3050 error ("%s for ternary %<operator?:%> in %<%E ? %E : %E%>",
3051 problem, arg1, arg2, arg3);
3052 break;
3054 case POSTINCREMENT_EXPR:
3055 case POSTDECREMENT_EXPR:
3056 error ("%s for %<operator%s%> in %<%E%s%>", problem, opname, arg1, opname);
3057 break;
3059 case ARRAY_REF:
3060 error ("%s for %<operator[]%> in %<%E[%E]%>", problem, arg1, arg2);
3061 break;
3063 case REALPART_EXPR:
3064 case IMAGPART_EXPR:
3065 error ("%s for %qs in %<%s %E%>", problem, opname, opname, arg1);
3066 break;
3068 default:
3069 if (arg2)
3070 error ("%s for %<operator%s%> in %<%E %s %E%>",
3071 problem, opname, arg1, opname, arg2);
3072 else
3073 error ("%s for %<operator%s%> in %<%s%E%>",
3074 problem, opname, opname, arg1);
3075 break;
3079 /* Return the implicit conversion sequence that could be used to
3080 convert E1 to E2 in [expr.cond]. */
3082 static conversion *
3083 conditional_conversion (tree e1, tree e2)
3085 tree t1 = non_reference (TREE_TYPE (e1));
3086 tree t2 = non_reference (TREE_TYPE (e2));
3087 conversion *conv;
3088 bool good_base;
3090 /* [expr.cond]
3092 If E2 is an lvalue: E1 can be converted to match E2 if E1 can be
3093 implicitly converted (clause _conv_) to the type "reference to
3094 T2", subject to the constraint that in the conversion the
3095 reference must bind directly (_dcl.init.ref_) to E1. */
3096 if (real_lvalue_p (e2))
3098 conv = implicit_conversion (build_reference_type (t2),
3101 /*c_cast_p=*/false,
3102 LOOKUP_NO_TEMP_BIND);
3103 if (conv)
3104 return conv;
3107 /* [expr.cond]
3109 If E1 and E2 have class type, and the underlying class types are
3110 the same or one is a base class of the other: E1 can be converted
3111 to match E2 if the class of T2 is the same type as, or a base
3112 class of, the class of T1, and the cv-qualification of T2 is the
3113 same cv-qualification as, or a greater cv-qualification than, the
3114 cv-qualification of T1. If the conversion is applied, E1 is
3115 changed to an rvalue of type T2 that still refers to the original
3116 source class object (or the appropriate subobject thereof). */
3117 if (CLASS_TYPE_P (t1) && CLASS_TYPE_P (t2)
3118 && ((good_base = DERIVED_FROM_P (t2, t1)) || DERIVED_FROM_P (t1, t2)))
3120 if (good_base && at_least_as_qualified_p (t2, t1))
3122 conv = build_identity_conv (t1, e1);
3123 if (!same_type_p (TYPE_MAIN_VARIANT (t1),
3124 TYPE_MAIN_VARIANT (t2)))
3125 conv = build_conv (ck_base, t2, conv);
3126 else
3127 conv = build_conv (ck_rvalue, t2, conv);
3128 return conv;
3130 else
3131 return NULL;
3133 else
3134 /* [expr.cond]
3136 Otherwise: E1 can be converted to match E2 if E1 can be implicitly
3137 converted to the type that expression E2 would have if E2 were
3138 converted to an rvalue (or the type it has, if E2 is an rvalue). */
3139 return implicit_conversion (t2, t1, e1, /*c_cast_p=*/false,
3140 LOOKUP_NORMAL);
3143 /* Implement [expr.cond]. ARG1, ARG2, and ARG3 are the three
3144 arguments to the conditional expression. */
3146 tree
3147 build_conditional_expr (tree arg1, tree arg2, tree arg3)
3149 tree arg2_type;
3150 tree arg3_type;
3151 tree result = NULL_TREE;
3152 tree result_type = NULL_TREE;
3153 bool lvalue_p = true;
3154 struct z_candidate *candidates = 0;
3155 struct z_candidate *cand;
3156 void *p;
3158 /* As a G++ extension, the second argument to the conditional can be
3159 omitted. (So that `a ? : c' is roughly equivalent to `a ? a :
3160 c'.) If the second operand is omitted, make sure it is
3161 calculated only once. */
3162 if (!arg2)
3164 if (pedantic)
3165 pedwarn ("ISO C++ forbids omitting the middle term of a ?: expression");
3167 /* Make sure that lvalues remain lvalues. See g++.oliva/ext1.C. */
3168 if (real_lvalue_p (arg1))
3169 arg2 = arg1 = stabilize_reference (arg1);
3170 else
3171 arg2 = arg1 = save_expr (arg1);
3174 /* [expr.cond]
3176 The first expr ession is implicitly converted to bool (clause
3177 _conv_). */
3178 arg1 = perform_implicit_conversion (boolean_type_node, arg1);
3180 /* If something has already gone wrong, just pass that fact up the
3181 tree. */
3182 if (error_operand_p (arg1)
3183 || error_operand_p (arg2)
3184 || error_operand_p (arg3))
3185 return error_mark_node;
3187 /* [expr.cond]
3189 If either the second or the third operand has type (possibly
3190 cv-qualified) void, then the lvalue-to-rvalue (_conv.lval_),
3191 array-to-pointer (_conv.array_), and function-to-pointer
3192 (_conv.func_) standard conversions are performed on the second
3193 and third operands. */
3194 arg2_type = TREE_TYPE (arg2);
3195 arg3_type = TREE_TYPE (arg3);
3196 if (VOID_TYPE_P (arg2_type) || VOID_TYPE_P (arg3_type))
3198 /* Do the conversions. We don't these for `void' type arguments
3199 since it can't have any effect and since decay_conversion
3200 does not handle that case gracefully. */
3201 if (!VOID_TYPE_P (arg2_type))
3202 arg2 = decay_conversion (arg2);
3203 if (!VOID_TYPE_P (arg3_type))
3204 arg3 = decay_conversion (arg3);
3205 arg2_type = TREE_TYPE (arg2);
3206 arg3_type = TREE_TYPE (arg3);
3208 /* [expr.cond]
3210 One of the following shall hold:
3212 --The second or the third operand (but not both) is a
3213 throw-expression (_except.throw_); the result is of the
3214 type of the other and is an rvalue.
3216 --Both the second and the third operands have type void; the
3217 result is of type void and is an rvalue.
3219 We must avoid calling force_rvalue for expressions of type
3220 "void" because it will complain that their value is being
3221 used. */
3222 if (TREE_CODE (arg2) == THROW_EXPR
3223 && TREE_CODE (arg3) != THROW_EXPR)
3225 if (!VOID_TYPE_P (arg3_type))
3226 arg3 = force_rvalue (arg3);
3227 arg3_type = TREE_TYPE (arg3);
3228 result_type = arg3_type;
3230 else if (TREE_CODE (arg2) != THROW_EXPR
3231 && TREE_CODE (arg3) == THROW_EXPR)
3233 if (!VOID_TYPE_P (arg2_type))
3234 arg2 = force_rvalue (arg2);
3235 arg2_type = TREE_TYPE (arg2);
3236 result_type = arg2_type;
3238 else if (VOID_TYPE_P (arg2_type) && VOID_TYPE_P (arg3_type))
3239 result_type = void_type_node;
3240 else
3242 error ("%qE has type %<void%> and is not a throw-expression",
3243 VOID_TYPE_P (arg2_type) ? arg2 : arg3);
3244 return error_mark_node;
3247 lvalue_p = false;
3248 goto valid_operands;
3250 /* [expr.cond]
3252 Otherwise, if the second and third operand have different types,
3253 and either has (possibly cv-qualified) class type, an attempt is
3254 made to convert each of those operands to the type of the other. */
3255 else if (!same_type_p (arg2_type, arg3_type)
3256 && (CLASS_TYPE_P (arg2_type) || CLASS_TYPE_P (arg3_type)))
3258 conversion *conv2;
3259 conversion *conv3;
3261 /* Get the high-water mark for the CONVERSION_OBSTACK. */
3262 p = conversion_obstack_alloc (0);
3264 conv2 = conditional_conversion (arg2, arg3);
3265 conv3 = conditional_conversion (arg3, arg2);
3267 /* [expr.cond]
3269 If both can be converted, or one can be converted but the
3270 conversion is ambiguous, the program is ill-formed. If
3271 neither can be converted, the operands are left unchanged and
3272 further checking is performed as described below. If exactly
3273 one conversion is possible, that conversion is applied to the
3274 chosen operand and the converted operand is used in place of
3275 the original operand for the remainder of this section. */
3276 if ((conv2 && !conv2->bad_p
3277 && conv3 && !conv3->bad_p)
3278 || (conv2 && conv2->kind == ck_ambig)
3279 || (conv3 && conv3->kind == ck_ambig))
3281 error ("operands to ?: have different types %qT and %qT",
3282 arg2_type, arg3_type);
3283 result = error_mark_node;
3285 else if (conv2 && (!conv2->bad_p || !conv3))
3287 arg2 = convert_like (conv2, arg2);
3288 arg2 = convert_from_reference (arg2);
3289 arg2_type = TREE_TYPE (arg2);
3291 else if (conv3 && (!conv3->bad_p || !conv2))
3293 arg3 = convert_like (conv3, arg3);
3294 arg3 = convert_from_reference (arg3);
3295 arg3_type = TREE_TYPE (arg3);
3298 /* Free all the conversions we allocated. */
3299 obstack_free (&conversion_obstack, p);
3301 if (result)
3302 return result;
3304 /* If, after the conversion, both operands have class type,
3305 treat the cv-qualification of both operands as if it were the
3306 union of the cv-qualification of the operands.
3308 The standard is not clear about what to do in this
3309 circumstance. For example, if the first operand has type
3310 "const X" and the second operand has a user-defined
3311 conversion to "volatile X", what is the type of the second
3312 operand after this step? Making it be "const X" (matching
3313 the first operand) seems wrong, as that discards the
3314 qualification without actually performing a copy. Leaving it
3315 as "volatile X" seems wrong as that will result in the
3316 conditional expression failing altogether, even though,
3317 according to this step, the one operand could be converted to
3318 the type of the other. */
3319 if ((conv2 || conv3)
3320 && CLASS_TYPE_P (arg2_type)
3321 && TYPE_QUALS (arg2_type) != TYPE_QUALS (arg3_type))
3322 arg2_type = arg3_type =
3323 cp_build_qualified_type (arg2_type,
3324 TYPE_QUALS (arg2_type)
3325 | TYPE_QUALS (arg3_type));
3328 /* [expr.cond]
3330 If the second and third operands are lvalues and have the same
3331 type, the result is of that type and is an lvalue. */
3332 if (real_lvalue_p (arg2)
3333 && real_lvalue_p (arg3)
3334 && same_type_p (arg2_type, arg3_type))
3336 result_type = arg2_type;
3337 goto valid_operands;
3340 /* [expr.cond]
3342 Otherwise, the result is an rvalue. If the second and third
3343 operand do not have the same type, and either has (possibly
3344 cv-qualified) class type, overload resolution is used to
3345 determine the conversions (if any) to be applied to the operands
3346 (_over.match.oper_, _over.built_). */
3347 lvalue_p = false;
3348 if (!same_type_p (arg2_type, arg3_type)
3349 && (CLASS_TYPE_P (arg2_type) || CLASS_TYPE_P (arg3_type)))
3351 tree args[3];
3352 conversion *conv;
3353 bool any_viable_p;
3355 /* Rearrange the arguments so that add_builtin_candidate only has
3356 to know about two args. In build_builtin_candidates, the
3357 arguments are unscrambled. */
3358 args[0] = arg2;
3359 args[1] = arg3;
3360 args[2] = arg1;
3361 add_builtin_candidates (&candidates,
3362 COND_EXPR,
3363 NOP_EXPR,
3364 ansi_opname (COND_EXPR),
3365 args,
3366 LOOKUP_NORMAL);
3368 /* [expr.cond]
3370 If the overload resolution fails, the program is
3371 ill-formed. */
3372 candidates = splice_viable (candidates, pedantic, &any_viable_p);
3373 if (!any_viable_p)
3375 op_error (COND_EXPR, NOP_EXPR, arg1, arg2, arg3, "no match");
3376 print_z_candidates (candidates);
3377 return error_mark_node;
3379 cand = tourney (candidates);
3380 if (!cand)
3382 op_error (COND_EXPR, NOP_EXPR, arg1, arg2, arg3, "no match");
3383 print_z_candidates (candidates);
3384 return error_mark_node;
3387 /* [expr.cond]
3389 Otherwise, the conversions thus determined are applied, and
3390 the converted operands are used in place of the original
3391 operands for the remainder of this section. */
3392 conv = cand->convs[0];
3393 arg1 = convert_like (conv, arg1);
3394 conv = cand->convs[1];
3395 arg2 = convert_like (conv, arg2);
3396 conv = cand->convs[2];
3397 arg3 = convert_like (conv, arg3);
3400 /* [expr.cond]
3402 Lvalue-to-rvalue (_conv.lval_), array-to-pointer (_conv.array_),
3403 and function-to-pointer (_conv.func_) standard conversions are
3404 performed on the second and third operands.
3406 We need to force the lvalue-to-rvalue conversion here for class types,
3407 so we get TARGET_EXPRs; trying to deal with a COND_EXPR of class rvalues
3408 that isn't wrapped with a TARGET_EXPR plays havoc with exception
3409 regions. */
3411 arg2 = force_rvalue (arg2);
3412 if (!CLASS_TYPE_P (arg2_type))
3413 arg2_type = TREE_TYPE (arg2);
3415 arg3 = force_rvalue (arg3);
3416 if (!CLASS_TYPE_P (arg2_type))
3417 arg3_type = TREE_TYPE (arg3);
3419 if (arg2 == error_mark_node || arg3 == error_mark_node)
3420 return error_mark_node;
3422 /* [expr.cond]
3424 After those conversions, one of the following shall hold:
3426 --The second and third operands have the same type; the result is of
3427 that type. */
3428 if (same_type_p (arg2_type, arg3_type))
3429 result_type = arg2_type;
3430 /* [expr.cond]
3432 --The second and third operands have arithmetic or enumeration
3433 type; the usual arithmetic conversions are performed to bring
3434 them to a common type, and the result is of that type. */
3435 else if ((ARITHMETIC_TYPE_P (arg2_type)
3436 || TREE_CODE (arg2_type) == ENUMERAL_TYPE)
3437 && (ARITHMETIC_TYPE_P (arg3_type)
3438 || TREE_CODE (arg3_type) == ENUMERAL_TYPE))
3440 /* In this case, there is always a common type. */
3441 result_type = type_after_usual_arithmetic_conversions (arg2_type,
3442 arg3_type);
3444 if (TREE_CODE (arg2_type) == ENUMERAL_TYPE
3445 && TREE_CODE (arg3_type) == ENUMERAL_TYPE)
3446 warning (0, "enumeral mismatch in conditional expression: %qT vs %qT",
3447 arg2_type, arg3_type);
3448 else if (extra_warnings
3449 && ((TREE_CODE (arg2_type) == ENUMERAL_TYPE
3450 && !same_type_p (arg3_type, type_promotes_to (arg2_type)))
3451 || (TREE_CODE (arg3_type) == ENUMERAL_TYPE
3452 && !same_type_p (arg2_type, type_promotes_to (arg3_type)))))
3453 warning (0, "enumeral and non-enumeral type in conditional expression");
3455 arg2 = perform_implicit_conversion (result_type, arg2);
3456 arg3 = perform_implicit_conversion (result_type, arg3);
3458 /* [expr.cond]
3460 --The second and third operands have pointer type, or one has
3461 pointer type and the other is a null pointer constant; pointer
3462 conversions (_conv.ptr_) and qualification conversions
3463 (_conv.qual_) are performed to bring them to their composite
3464 pointer type (_expr.rel_). The result is of the composite
3465 pointer type.
3467 --The second and third operands have pointer to member type, or
3468 one has pointer to member type and the other is a null pointer
3469 constant; pointer to member conversions (_conv.mem_) and
3470 qualification conversions (_conv.qual_) are performed to bring
3471 them to a common type, whose cv-qualification shall match the
3472 cv-qualification of either the second or the third operand.
3473 The result is of the common type. */
3474 else if ((null_ptr_cst_p (arg2)
3475 && (TYPE_PTR_P (arg3_type) || TYPE_PTR_TO_MEMBER_P (arg3_type)))
3476 || (null_ptr_cst_p (arg3)
3477 && (TYPE_PTR_P (arg2_type) || TYPE_PTR_TO_MEMBER_P (arg2_type)))
3478 || (TYPE_PTR_P (arg2_type) && TYPE_PTR_P (arg3_type))
3479 || (TYPE_PTRMEM_P (arg2_type) && TYPE_PTRMEM_P (arg3_type))
3480 || (TYPE_PTRMEMFUNC_P (arg2_type) && TYPE_PTRMEMFUNC_P (arg3_type)))
3482 result_type = composite_pointer_type (arg2_type, arg3_type, arg2,
3483 arg3, "conditional expression");
3484 if (result_type == error_mark_node)
3485 return error_mark_node;
3486 arg2 = perform_implicit_conversion (result_type, arg2);
3487 arg3 = perform_implicit_conversion (result_type, arg3);
3490 if (!result_type)
3492 error ("operands to ?: have different types %qT and %qT",
3493 arg2_type, arg3_type);
3494 return error_mark_node;
3497 valid_operands:
3498 result = fold_if_not_in_template (build3 (COND_EXPR, result_type, arg1,
3499 arg2, arg3));
3500 /* We can't use result_type below, as fold might have returned a
3501 throw_expr. */
3503 /* Expand both sides into the same slot, hopefully the target of the
3504 ?: expression. We used to check for TARGET_EXPRs here, but now we
3505 sometimes wrap them in NOP_EXPRs so the test would fail. */
3506 if (!lvalue_p && CLASS_TYPE_P (TREE_TYPE (result)))
3507 result = get_target_expr (result);
3509 /* If this expression is an rvalue, but might be mistaken for an
3510 lvalue, we must add a NON_LVALUE_EXPR. */
3511 if (!lvalue_p && real_lvalue_p (result))
3512 result = rvalue (result);
3514 return result;
3517 /* OPERAND is an operand to an expression. Perform necessary steps
3518 required before using it. If OPERAND is NULL_TREE, NULL_TREE is
3519 returned. */
3521 static tree
3522 prep_operand (tree operand)
3524 if (operand)
3526 if (CLASS_TYPE_P (TREE_TYPE (operand))
3527 && CLASSTYPE_TEMPLATE_INSTANTIATION (TREE_TYPE (operand)))
3528 /* Make sure the template type is instantiated now. */
3529 instantiate_class_template (TYPE_MAIN_VARIANT (TREE_TYPE (operand)));
3532 return operand;
3535 /* Add each of the viable functions in FNS (a FUNCTION_DECL or
3536 OVERLOAD) to the CANDIDATES, returning an updated list of
3537 CANDIDATES. The ARGS are the arguments provided to the call,
3538 without any implicit object parameter. The EXPLICIT_TARGS are
3539 explicit template arguments provided. TEMPLATE_ONLY is true if
3540 only template functions should be considered. CONVERSION_PATH,
3541 ACCESS_PATH, and FLAGS are as for add_function_candidate. */
3543 static void
3544 add_candidates (tree fns, tree args,
3545 tree explicit_targs, bool template_only,
3546 tree conversion_path, tree access_path,
3547 int flags,
3548 struct z_candidate **candidates)
3550 tree ctype;
3551 tree non_static_args;
3553 ctype = conversion_path ? BINFO_TYPE (conversion_path) : NULL_TREE;
3554 /* Delay creating the implicit this parameter until it is needed. */
3555 non_static_args = NULL_TREE;
3557 while (fns)
3559 tree fn;
3560 tree fn_args;
3562 fn = OVL_CURRENT (fns);
3563 /* Figure out which set of arguments to use. */
3564 if (DECL_NONSTATIC_MEMBER_FUNCTION_P (fn))
3566 /* If this function is a non-static member, prepend the implicit
3567 object parameter. */
3568 if (!non_static_args)
3569 non_static_args = tree_cons (NULL_TREE,
3570 build_this (TREE_VALUE (args)),
3571 TREE_CHAIN (args));
3572 fn_args = non_static_args;
3574 else
3575 /* Otherwise, just use the list of arguments provided. */
3576 fn_args = args;
3578 if (TREE_CODE (fn) == TEMPLATE_DECL)
3579 add_template_candidate (candidates,
3581 ctype,
3582 explicit_targs,
3583 fn_args,
3584 NULL_TREE,
3585 access_path,
3586 conversion_path,
3587 flags,
3588 DEDUCE_CALL);
3589 else if (!template_only)
3590 add_function_candidate (candidates,
3592 ctype,
3593 fn_args,
3594 access_path,
3595 conversion_path,
3596 flags);
3597 fns = OVL_NEXT (fns);
3601 tree
3602 build_new_op (enum tree_code code, int flags, tree arg1, tree arg2, tree arg3,
3603 bool *overloaded_p)
3605 struct z_candidate *candidates = 0, *cand;
3606 tree arglist, fnname;
3607 tree args[3];
3608 tree result = NULL_TREE;
3609 bool result_valid_p = false;
3610 enum tree_code code2 = NOP_EXPR;
3611 conversion *conv;
3612 void *p;
3613 bool strict_p;
3614 bool any_viable_p;
3616 if (error_operand_p (arg1)
3617 || error_operand_p (arg2)
3618 || error_operand_p (arg3))
3619 return error_mark_node;
3621 if (code == MODIFY_EXPR)
3623 code2 = TREE_CODE (arg3);
3624 arg3 = NULL_TREE;
3625 fnname = ansi_assopname (code2);
3627 else
3628 fnname = ansi_opname (code);
3630 arg1 = prep_operand (arg1);
3632 switch (code)
3634 case NEW_EXPR:
3635 case VEC_NEW_EXPR:
3636 case VEC_DELETE_EXPR:
3637 case DELETE_EXPR:
3638 /* Use build_op_new_call and build_op_delete_call instead. */
3639 gcc_unreachable ();
3641 case CALL_EXPR:
3642 return build_object_call (arg1, arg2);
3644 default:
3645 break;
3648 arg2 = prep_operand (arg2);
3649 arg3 = prep_operand (arg3);
3651 if (code == COND_EXPR)
3653 if (arg2 == NULL_TREE
3654 || TREE_CODE (TREE_TYPE (arg2)) == VOID_TYPE
3655 || TREE_CODE (TREE_TYPE (arg3)) == VOID_TYPE
3656 || (! IS_OVERLOAD_TYPE (TREE_TYPE (arg2))
3657 && ! IS_OVERLOAD_TYPE (TREE_TYPE (arg3))))
3658 goto builtin;
3660 else if (! IS_OVERLOAD_TYPE (TREE_TYPE (arg1))
3661 && (! arg2 || ! IS_OVERLOAD_TYPE (TREE_TYPE (arg2))))
3662 goto builtin;
3664 if (code == POSTINCREMENT_EXPR || code == POSTDECREMENT_EXPR)
3665 arg2 = integer_zero_node;
3667 arglist = NULL_TREE;
3668 if (arg3)
3669 arglist = tree_cons (NULL_TREE, arg3, arglist);
3670 if (arg2)
3671 arglist = tree_cons (NULL_TREE, arg2, arglist);
3672 arglist = tree_cons (NULL_TREE, arg1, arglist);
3674 /* Get the high-water mark for the CONVERSION_OBSTACK. */
3675 p = conversion_obstack_alloc (0);
3677 /* Add namespace-scope operators to the list of functions to
3678 consider. */
3679 add_candidates (lookup_function_nonclass (fnname, arglist, /*block_p=*/true),
3680 arglist, NULL_TREE, false, NULL_TREE, NULL_TREE,
3681 flags, &candidates);
3682 /* Add class-member operators to the candidate set. */
3683 if (CLASS_TYPE_P (TREE_TYPE (arg1)))
3685 tree fns;
3687 fns = lookup_fnfields (TREE_TYPE (arg1), fnname, 1);
3688 if (fns == error_mark_node)
3690 result = error_mark_node;
3691 goto user_defined_result_ready;
3693 if (fns)
3694 add_candidates (BASELINK_FUNCTIONS (fns), arglist,
3695 NULL_TREE, false,
3696 BASELINK_BINFO (fns),
3697 TYPE_BINFO (TREE_TYPE (arg1)),
3698 flags, &candidates);
3701 /* Rearrange the arguments for ?: so that add_builtin_candidate only has
3702 to know about two args; a builtin candidate will always have a first
3703 parameter of type bool. We'll handle that in
3704 build_builtin_candidate. */
3705 if (code == COND_EXPR)
3707 args[0] = arg2;
3708 args[1] = arg3;
3709 args[2] = arg1;
3711 else
3713 args[0] = arg1;
3714 args[1] = arg2;
3715 args[2] = NULL_TREE;
3718 add_builtin_candidates (&candidates, code, code2, fnname, args, flags);
3720 switch (code)
3722 case COMPOUND_EXPR:
3723 case ADDR_EXPR:
3724 /* For these, the built-in candidates set is empty
3725 [over.match.oper]/3. We don't want non-strict matches
3726 because exact matches are always possible with built-in
3727 operators. The built-in candidate set for COMPONENT_REF
3728 would be empty too, but since there are no such built-in
3729 operators, we accept non-strict matches for them. */
3730 strict_p = true;
3731 break;
3733 default:
3734 strict_p = pedantic;
3735 break;
3738 candidates = splice_viable (candidates, strict_p, &any_viable_p);
3739 if (!any_viable_p)
3741 switch (code)
3743 case POSTINCREMENT_EXPR:
3744 case POSTDECREMENT_EXPR:
3745 /* Look for an `operator++ (int)'. If they didn't have
3746 one, then we fall back to the old way of doing things. */
3747 if (flags & LOOKUP_COMPLAIN)
3748 pedwarn ("no %<%D(int)%> declared for postfix %qs, "
3749 "trying prefix operator instead",
3750 fnname,
3751 operator_name_info[code].name);
3752 if (code == POSTINCREMENT_EXPR)
3753 code = PREINCREMENT_EXPR;
3754 else
3755 code = PREDECREMENT_EXPR;
3756 result = build_new_op (code, flags, arg1, NULL_TREE, NULL_TREE,
3757 overloaded_p);
3758 break;
3760 /* The caller will deal with these. */
3761 case ADDR_EXPR:
3762 case COMPOUND_EXPR:
3763 case COMPONENT_REF:
3764 result = NULL_TREE;
3765 result_valid_p = true;
3766 break;
3768 default:
3769 if (flags & LOOKUP_COMPLAIN)
3771 op_error (code, code2, arg1, arg2, arg3, "no match");
3772 print_z_candidates (candidates);
3774 result = error_mark_node;
3775 break;
3778 else
3780 cand = tourney (candidates);
3781 if (cand == 0)
3783 if (flags & LOOKUP_COMPLAIN)
3785 op_error (code, code2, arg1, arg2, arg3, "ambiguous overload");
3786 print_z_candidates (candidates);
3788 result = error_mark_node;
3790 else if (TREE_CODE (cand->fn) == FUNCTION_DECL)
3792 if (overloaded_p)
3793 *overloaded_p = true;
3795 result = build_over_call (cand, LOOKUP_NORMAL);
3797 else
3799 /* Give any warnings we noticed during overload resolution. */
3800 if (cand->warnings)
3802 struct candidate_warning *w;
3803 for (w = cand->warnings; w; w = w->next)
3804 joust (cand, w->loser, 1);
3807 /* Check for comparison of different enum types. */
3808 switch (code)
3810 case GT_EXPR:
3811 case LT_EXPR:
3812 case GE_EXPR:
3813 case LE_EXPR:
3814 case EQ_EXPR:
3815 case NE_EXPR:
3816 if (TREE_CODE (TREE_TYPE (arg1)) == ENUMERAL_TYPE
3817 && TREE_CODE (TREE_TYPE (arg2)) == ENUMERAL_TYPE
3818 && (TYPE_MAIN_VARIANT (TREE_TYPE (arg1))
3819 != TYPE_MAIN_VARIANT (TREE_TYPE (arg2))))
3821 warning (0, "comparison between %q#T and %q#T",
3822 TREE_TYPE (arg1), TREE_TYPE (arg2));
3824 break;
3825 default:
3826 break;
3829 /* We need to strip any leading REF_BIND so that bitfields
3830 don't cause errors. This should not remove any important
3831 conversions, because builtins don't apply to class
3832 objects directly. */
3833 conv = cand->convs[0];
3834 if (conv->kind == ck_ref_bind)
3835 conv = conv->u.next;
3836 arg1 = convert_like (conv, arg1);
3837 if (arg2)
3839 conv = cand->convs[1];
3840 if (conv->kind == ck_ref_bind)
3841 conv = conv->u.next;
3842 arg2 = convert_like (conv, arg2);
3844 if (arg3)
3846 conv = cand->convs[2];
3847 if (conv->kind == ck_ref_bind)
3848 conv = conv->u.next;
3849 arg3 = convert_like (conv, arg3);
3854 user_defined_result_ready:
3856 /* Free all the conversions we allocated. */
3857 obstack_free (&conversion_obstack, p);
3859 if (result || result_valid_p)
3860 return result;
3862 builtin:
3863 switch (code)
3865 case MODIFY_EXPR:
3866 return build_modify_expr (arg1, code2, arg2);
3868 case INDIRECT_REF:
3869 return build_indirect_ref (arg1, "unary *");
3871 case PLUS_EXPR:
3872 case MINUS_EXPR:
3873 case MULT_EXPR:
3874 case TRUNC_DIV_EXPR:
3875 case GT_EXPR:
3876 case LT_EXPR:
3877 case GE_EXPR:
3878 case LE_EXPR:
3879 case EQ_EXPR:
3880 case NE_EXPR:
3881 case MAX_EXPR:
3882 case MIN_EXPR:
3883 case LSHIFT_EXPR:
3884 case RSHIFT_EXPR:
3885 case TRUNC_MOD_EXPR:
3886 case BIT_AND_EXPR:
3887 case BIT_IOR_EXPR:
3888 case BIT_XOR_EXPR:
3889 case TRUTH_ANDIF_EXPR:
3890 case TRUTH_ORIF_EXPR:
3891 return cp_build_binary_op (code, arg1, arg2);
3893 case UNARY_PLUS_EXPR:
3894 case NEGATE_EXPR:
3895 case BIT_NOT_EXPR:
3896 case TRUTH_NOT_EXPR:
3897 case PREINCREMENT_EXPR:
3898 case POSTINCREMENT_EXPR:
3899 case PREDECREMENT_EXPR:
3900 case POSTDECREMENT_EXPR:
3901 case REALPART_EXPR:
3902 case IMAGPART_EXPR:
3903 return build_unary_op (code, arg1, candidates != 0);
3905 case ARRAY_REF:
3906 return build_array_ref (arg1, arg2);
3908 case COND_EXPR:
3909 return build_conditional_expr (arg1, arg2, arg3);
3911 case MEMBER_REF:
3912 return build_m_component_ref (build_indirect_ref (arg1, NULL), arg2);
3914 /* The caller will deal with these. */
3915 case ADDR_EXPR:
3916 case COMPONENT_REF:
3917 case COMPOUND_EXPR:
3918 return NULL_TREE;
3920 default:
3921 gcc_unreachable ();
3923 return NULL_TREE;
3926 /* Build a call to operator delete. This has to be handled very specially,
3927 because the restrictions on what signatures match are different from all
3928 other call instances. For a normal delete, only a delete taking (void *)
3929 or (void *, size_t) is accepted. For a placement delete, only an exact
3930 match with the placement new is accepted.
3932 CODE is either DELETE_EXPR or VEC_DELETE_EXPR.
3933 ADDR is the pointer to be deleted.
3934 SIZE is the size of the memory block to be deleted.
3935 GLOBAL_P is true if the delete-expression should not consider
3936 class-specific delete operators.
3937 PLACEMENT is the corresponding placement new call, or NULL_TREE. */
3939 tree
3940 build_op_delete_call (enum tree_code code, tree addr, tree size,
3941 bool global_p, tree placement)
3943 tree fn = NULL_TREE;
3944 tree fns, fnname, argtypes, args, type;
3945 int pass;
3947 if (addr == error_mark_node)
3948 return error_mark_node;
3950 type = strip_array_types (TREE_TYPE (TREE_TYPE (addr)));
3952 fnname = ansi_opname (code);
3954 if (CLASS_TYPE_P (type)
3955 && COMPLETE_TYPE_P (complete_type (type))
3956 && !global_p)
3957 /* In [class.free]
3959 If the result of the lookup is ambiguous or inaccessible, or if
3960 the lookup selects a placement deallocation function, the
3961 program is ill-formed.
3963 Therefore, we ask lookup_fnfields to complain about ambiguity. */
3965 fns = lookup_fnfields (TYPE_BINFO (type), fnname, 1);
3966 if (fns == error_mark_node)
3967 return error_mark_node;
3969 else
3970 fns = NULL_TREE;
3972 if (fns == NULL_TREE)
3973 fns = lookup_name_nonclass (fnname);
3975 if (placement)
3977 tree alloc_fn;
3978 tree call_expr;
3980 /* Find the allocation function that is being called. */
3981 call_expr = placement;
3982 /* Extract the function. */
3983 alloc_fn = get_callee_fndecl (call_expr);
3984 gcc_assert (alloc_fn != NULL_TREE);
3985 /* Then the second parm type. */
3986 argtypes = TREE_CHAIN (TYPE_ARG_TYPES (TREE_TYPE (alloc_fn)));
3987 /* Also the second argument. */
3988 args = TREE_CHAIN (TREE_OPERAND (call_expr, 1));
3990 else
3992 /* First try it without the size argument. */
3993 argtypes = void_list_node;
3994 args = NULL_TREE;
3997 /* Strip const and volatile from addr. */
3998 addr = cp_convert (ptr_type_node, addr);
4000 /* We make two tries at finding a matching `operator delete'. On
4001 the first pass, we look for a one-operator (or placement)
4002 operator delete. If we're not doing placement delete, then on
4003 the second pass we look for a two-argument delete. */
4004 for (pass = 0; pass < (placement ? 1 : 2); ++pass)
4006 /* Go through the `operator delete' functions looking for one
4007 with a matching type. */
4008 for (fn = BASELINK_P (fns) ? BASELINK_FUNCTIONS (fns) : fns;
4010 fn = OVL_NEXT (fn))
4012 tree t;
4014 /* The first argument must be "void *". */
4015 t = TYPE_ARG_TYPES (TREE_TYPE (OVL_CURRENT (fn)));
4016 if (!same_type_p (TREE_VALUE (t), ptr_type_node))
4017 continue;
4018 t = TREE_CHAIN (t);
4019 /* On the first pass, check the rest of the arguments. */
4020 if (pass == 0)
4022 tree a = argtypes;
4023 while (a && t)
4025 if (!same_type_p (TREE_VALUE (a), TREE_VALUE (t)))
4026 break;
4027 a = TREE_CHAIN (a);
4028 t = TREE_CHAIN (t);
4030 if (!a && !t)
4031 break;
4033 /* On the second pass, the second argument must be
4034 "size_t". */
4035 else if (pass == 1
4036 && same_type_p (TREE_VALUE (t), sizetype)
4037 && TREE_CHAIN (t) == void_list_node)
4038 break;
4041 /* If we found a match, we're done. */
4042 if (fn)
4043 break;
4046 /* If we have a matching function, call it. */
4047 if (fn)
4049 /* Make sure we have the actual function, and not an
4050 OVERLOAD. */
4051 fn = OVL_CURRENT (fn);
4053 /* If the FN is a member function, make sure that it is
4054 accessible. */
4055 if (DECL_CLASS_SCOPE_P (fn))
4056 perform_or_defer_access_check (TYPE_BINFO (type), fn);
4058 if (pass == 0)
4059 args = tree_cons (NULL_TREE, addr, args);
4060 else
4061 args = tree_cons (NULL_TREE, addr,
4062 build_tree_list (NULL_TREE, size));
4064 if (placement)
4066 /* The placement args might not be suitable for overload
4067 resolution at this point, so build the call directly. */
4068 mark_used (fn);
4069 return build_cxx_call (fn, args);
4071 else
4072 return build_function_call (fn, args);
4075 /* If we are doing placement delete we do nothing if we don't find a
4076 matching op delete. */
4077 if (placement)
4078 return NULL_TREE;
4080 error ("no suitable %<operator %s%> for %qT",
4081 operator_name_info[(int)code].name, type);
4082 return error_mark_node;
4085 /* If the current scope isn't allowed to access DECL along
4086 BASETYPE_PATH, give an error. The most derived class in
4087 BASETYPE_PATH is the one used to qualify DECL. */
4089 bool
4090 enforce_access (tree basetype_path, tree decl)
4092 gcc_assert (TREE_CODE (basetype_path) == TREE_BINFO);
4094 if (!accessible_p (basetype_path, decl, true))
4096 if (TREE_PRIVATE (decl))
4097 error ("%q+#D is private", decl);
4098 else if (TREE_PROTECTED (decl))
4099 error ("%q+#D is protected", decl);
4100 else
4101 error ("%q+#D is inaccessible", decl);
4102 error ("within this context");
4103 return false;
4106 return true;
4109 /* Check that a callable constructor to initialize a temporary of
4110 TYPE from an EXPR exists. */
4112 static void
4113 check_constructor_callable (tree type, tree expr)
4115 build_special_member_call (NULL_TREE,
4116 complete_ctor_identifier,
4117 build_tree_list (NULL_TREE, expr),
4118 type,
4119 LOOKUP_NORMAL | LOOKUP_ONLYCONVERTING
4120 | LOOKUP_NO_CONVERSION
4121 | LOOKUP_CONSTRUCTOR_CALLABLE);
4124 /* Initialize a temporary of type TYPE with EXPR. The FLAGS are a
4125 bitwise or of LOOKUP_* values. If any errors are warnings are
4126 generated, set *DIAGNOSTIC_FN to "error" or "warning",
4127 respectively. If no diagnostics are generated, set *DIAGNOSTIC_FN
4128 to NULL. */
4130 static tree
4131 build_temp (tree expr, tree type, int flags,
4132 diagnostic_fn_t *diagnostic_fn)
4134 int savew, savee;
4136 savew = warningcount, savee = errorcount;
4137 expr = build_special_member_call (NULL_TREE,
4138 complete_ctor_identifier,
4139 build_tree_list (NULL_TREE, expr),
4140 type, flags);
4141 if (warningcount > savew)
4142 *diagnostic_fn = warning0;
4143 else if (errorcount > savee)
4144 *diagnostic_fn = error;
4145 else
4146 *diagnostic_fn = NULL;
4147 return expr;
4151 /* Perform the conversions in CONVS on the expression EXPR. FN and
4152 ARGNUM are used for diagnostics. ARGNUM is zero based, -1
4153 indicates the `this' argument of a method. INNER is nonzero when
4154 being called to continue a conversion chain. It is negative when a
4155 reference binding will be applied, positive otherwise. If
4156 ISSUE_CONVERSION_WARNINGS is true, warnings about suspicious
4157 conversions will be emitted if appropriate. If C_CAST_P is true,
4158 this conversion is coming from a C-style cast; in that case,
4159 conversions to inaccessible bases are permitted. */
4161 static tree
4162 convert_like_real (conversion *convs, tree expr, tree fn, int argnum,
4163 int inner, bool issue_conversion_warnings,
4164 bool c_cast_p)
4166 tree totype = convs->type;
4167 diagnostic_fn_t diagnostic_fn;
4169 if (convs->bad_p
4170 && convs->kind != ck_user
4171 && convs->kind != ck_ambig
4172 && convs->kind != ck_ref_bind)
4174 conversion *t = convs;
4175 for (; t; t = convs->u.next)
4177 if (t->kind == ck_user || !t->bad_p)
4179 expr = convert_like_real (t, expr, fn, argnum, 1,
4180 /*issue_conversion_warnings=*/false,
4181 /*c_cast_p=*/false);
4182 break;
4184 else if (t->kind == ck_ambig)
4185 return convert_like_real (t, expr, fn, argnum, 1,
4186 /*issue_conversion_warnings=*/false,
4187 /*c_cast_p=*/false);
4188 else if (t->kind == ck_identity)
4189 break;
4191 pedwarn ("invalid conversion from %qT to %qT", TREE_TYPE (expr), totype);
4192 if (fn)
4193 pedwarn (" initializing argument %P of %qD", argnum, fn);
4194 return cp_convert (totype, expr);
4197 if (issue_conversion_warnings)
4199 tree t = non_reference (totype);
4201 /* Issue warnings about peculiar, but valid, uses of NULL. */
4202 if (ARITHMETIC_TYPE_P (t) && expr == null_node)
4204 if (fn)
4205 warning (0, "passing NULL to non-pointer argument %P of %qD",
4206 argnum, fn);
4207 else
4208 warning (0, "converting to non-pointer type %qT from NULL", t);
4211 /* Warn about assigning a floating-point type to an integer type. */
4212 if (TREE_CODE (TREE_TYPE (expr)) == REAL_TYPE
4213 && TREE_CODE (t) == INTEGER_TYPE)
4215 if (fn)
4216 warning (0, "passing %qT for argument %P to %qD",
4217 TREE_TYPE (expr), argnum, fn);
4218 else
4219 warning (0, "converting to %qT from %qT", t, TREE_TYPE (expr));
4223 switch (convs->kind)
4225 case ck_user:
4227 struct z_candidate *cand = convs->cand;
4228 tree convfn = cand->fn;
4229 tree args;
4231 if (DECL_CONSTRUCTOR_P (convfn))
4233 tree t = build_int_cst (build_pointer_type (DECL_CONTEXT (convfn)),
4236 args = build_tree_list (NULL_TREE, expr);
4237 /* We should never try to call the abstract or base constructor
4238 from here. */
4239 gcc_assert (!DECL_HAS_IN_CHARGE_PARM_P (convfn)
4240 && !DECL_HAS_VTT_PARM_P (convfn));
4241 args = tree_cons (NULL_TREE, t, args);
4243 else
4244 args = build_this (expr);
4245 expr = build_over_call (cand, LOOKUP_NORMAL);
4247 /* If this is a constructor or a function returning an aggr type,
4248 we need to build up a TARGET_EXPR. */
4249 if (DECL_CONSTRUCTOR_P (convfn))
4250 expr = build_cplus_new (totype, expr);
4252 /* The result of the call is then used to direct-initialize the object
4253 that is the destination of the copy-initialization. [dcl.init]
4255 Note that this step is not reflected in the conversion sequence;
4256 it affects the semantics when we actually perform the
4257 conversion, but is not considered during overload resolution.
4259 If the target is a class, that means call a ctor. */
4260 if (IS_AGGR_TYPE (totype)
4261 && (inner >= 0 || !lvalue_p (expr)))
4263 expr = (build_temp
4264 (expr, totype,
4265 /* Core issue 84, now a DR, says that we don't
4266 allow UDCs for these args (which deliberately
4267 breaks copy-init of an auto_ptr<Base> from an
4268 auto_ptr<Derived>). */
4269 LOOKUP_NORMAL|LOOKUP_ONLYCONVERTING|LOOKUP_NO_CONVERSION,
4270 &diagnostic_fn));
4272 if (diagnostic_fn)
4274 if (fn)
4275 diagnostic_fn
4276 (" initializing argument %P of %qD from result of %qD",
4277 argnum, fn, convfn);
4278 else
4279 diagnostic_fn
4280 (" initializing temporary from result of %qD", convfn);
4282 expr = build_cplus_new (totype, expr);
4284 return expr;
4286 case ck_identity:
4287 if (type_unknown_p (expr))
4288 expr = instantiate_type (totype, expr, tf_error | tf_warning);
4289 /* Convert a constant to its underlying value, unless we are
4290 about to bind it to a reference, in which case we need to
4291 leave it as an lvalue. */
4292 if (inner >= 0)
4293 expr = decl_constant_value (expr);
4294 if (convs->check_copy_constructor_p)
4295 check_constructor_callable (totype, expr);
4296 return expr;
4297 case ck_ambig:
4298 /* Call build_user_type_conversion again for the error. */
4299 return build_user_type_conversion
4300 (totype, convs->u.expr, LOOKUP_NORMAL);
4302 default:
4303 break;
4306 expr = convert_like_real (convs->u.next, expr, fn, argnum,
4307 convs->kind == ck_ref_bind ? -1 : 1,
4308 /*issue_conversion_warnings=*/false,
4309 c_cast_p);
4310 if (expr == error_mark_node)
4311 return error_mark_node;
4313 switch (convs->kind)
4315 case ck_rvalue:
4316 if (! IS_AGGR_TYPE (totype))
4317 return expr;
4318 /* Else fall through. */
4319 case ck_base:
4320 if (convs->kind == ck_base && !convs->need_temporary_p)
4322 /* We are going to bind a reference directly to a base-class
4323 subobject of EXPR. */
4324 if (convs->check_copy_constructor_p)
4325 check_constructor_callable (TREE_TYPE (expr), expr);
4326 /* Build an expression for `*((base*) &expr)'. */
4327 expr = build_unary_op (ADDR_EXPR, expr, 0);
4328 expr = convert_to_base (expr, build_pointer_type (totype),
4329 !c_cast_p, /*nonnull=*/true);
4330 expr = build_indirect_ref (expr, "implicit conversion");
4331 return expr;
4334 /* Copy-initialization where the cv-unqualified version of the source
4335 type is the same class as, or a derived class of, the class of the
4336 destination [is treated as direct-initialization]. [dcl.init] */
4337 expr = build_temp (expr, totype, LOOKUP_NORMAL|LOOKUP_ONLYCONVERTING,
4338 &diagnostic_fn);
4339 if (diagnostic_fn && fn)
4340 diagnostic_fn (" initializing argument %P of %qD", argnum, fn);
4341 return build_cplus_new (totype, expr);
4343 case ck_ref_bind:
4345 tree ref_type = totype;
4347 /* If necessary, create a temporary. */
4348 if (convs->need_temporary_p || !lvalue_p (expr))
4350 tree type = convs->u.next->type;
4351 cp_lvalue_kind lvalue = real_lvalue_p (expr);
4353 if (!CP_TYPE_CONST_NON_VOLATILE_P (TREE_TYPE (ref_type)))
4355 /* If the reference is volatile or non-const, we
4356 cannot create a temporary. */
4357 if (lvalue & clk_bitfield)
4358 error ("cannot bind bitfield %qE to %qT",
4359 expr, ref_type);
4360 else if (lvalue & clk_packed)
4361 error ("cannot bind packed field %qE to %qT",
4362 expr, ref_type);
4363 else
4364 error ("cannot bind rvalue %qE to %qT", expr, ref_type);
4365 return error_mark_node;
4367 /* If the source is a packed field, and we must use a copy
4368 constructor, then building the target expr will require
4369 binding the field to the reference parameter to the
4370 copy constructor, and we'll end up with an infinite
4371 loop. If we can use a bitwise copy, then we'll be
4372 OK. */
4373 if ((lvalue & clk_packed)
4374 && CLASS_TYPE_P (type)
4375 && !TYPE_HAS_TRIVIAL_INIT_REF (type))
4377 error ("cannot bind packed field %qE to %qT",
4378 expr, ref_type);
4379 return error_mark_node;
4381 expr = build_target_expr_with_type (expr, type);
4384 /* Take the address of the thing to which we will bind the
4385 reference. */
4386 expr = build_unary_op (ADDR_EXPR, expr, 1);
4387 if (expr == error_mark_node)
4388 return error_mark_node;
4390 /* Convert it to a pointer to the type referred to by the
4391 reference. This will adjust the pointer if a derived to
4392 base conversion is being performed. */
4393 expr = cp_convert (build_pointer_type (TREE_TYPE (ref_type)),
4394 expr);
4395 /* Convert the pointer to the desired reference type. */
4396 return build_nop (ref_type, expr);
4399 case ck_lvalue:
4400 return decay_conversion (expr);
4402 case ck_qual:
4403 /* Warn about deprecated conversion if appropriate. */
4404 string_conv_p (totype, expr, 1);
4405 break;
4407 case ck_ptr:
4408 if (convs->base_p)
4409 expr = convert_to_base (expr, totype, !c_cast_p,
4410 /*nonnull=*/false);
4411 return build_nop (totype, expr);
4413 case ck_pmem:
4414 return convert_ptrmem (totype, expr, /*allow_inverse_p=*/false,
4415 c_cast_p);
4417 default:
4418 break;
4421 if (issue_conversion_warnings)
4422 expr = convert_and_check (totype, expr);
4423 else
4424 expr = convert (totype, expr);
4426 return expr;
4429 /* Build a call to __builtin_trap. */
4431 static tree
4432 call_builtin_trap (void)
4434 tree fn = implicit_built_in_decls[BUILT_IN_TRAP];
4436 gcc_assert (fn != NULL);
4437 fn = build_call (fn, NULL_TREE);
4438 return fn;
4441 /* ARG is being passed to a varargs function. Perform any conversions
4442 required. Return the converted value. */
4444 tree
4445 convert_arg_to_ellipsis (tree arg)
4447 /* [expr.call]
4449 The lvalue-to-rvalue, array-to-pointer, and function-to-pointer
4450 standard conversions are performed. */
4451 arg = decay_conversion (arg);
4452 /* [expr.call]
4454 If the argument has integral or enumeration type that is subject
4455 to the integral promotions (_conv.prom_), or a floating point
4456 type that is subject to the floating point promotion
4457 (_conv.fpprom_), the value of the argument is converted to the
4458 promoted type before the call. */
4459 if (TREE_CODE (TREE_TYPE (arg)) == REAL_TYPE
4460 && (TYPE_PRECISION (TREE_TYPE (arg))
4461 < TYPE_PRECISION (double_type_node)))
4462 arg = convert_to_real (double_type_node, arg);
4463 else if (INTEGRAL_OR_ENUMERATION_TYPE_P (TREE_TYPE (arg)))
4464 arg = perform_integral_promotions (arg);
4466 arg = require_complete_type (arg);
4468 if (arg != error_mark_node
4469 && !pod_type_p (TREE_TYPE (arg)))
4471 /* Undefined behavior [expr.call] 5.2.2/7. We used to just warn
4472 here and do a bitwise copy, but now cp_expr_size will abort if we
4473 try to do that.
4474 If the call appears in the context of a sizeof expression,
4475 there is no need to emit a warning, since the expression won't be
4476 evaluated. We keep the builtin_trap just as a safety check. */
4477 if (!skip_evaluation)
4478 warning (0, "cannot pass objects of non-POD type %q#T through %<...%>; "
4479 "call will abort at runtime", TREE_TYPE (arg));
4480 arg = call_builtin_trap ();
4481 arg = build2 (COMPOUND_EXPR, integer_type_node, arg,
4482 integer_zero_node);
4485 return arg;
4488 /* va_arg (EXPR, TYPE) is a builtin. Make sure it is not abused. */
4490 tree
4491 build_x_va_arg (tree expr, tree type)
4493 if (processing_template_decl)
4494 return build_min (VA_ARG_EXPR, type, expr);
4496 type = complete_type_or_else (type, NULL_TREE);
4498 if (expr == error_mark_node || !type)
4499 return error_mark_node;
4501 if (! pod_type_p (type))
4503 /* Undefined behavior [expr.call] 5.2.2/7. */
4504 warning (0, "cannot receive objects of non-POD type %q#T through %<...%>; "
4505 "call will abort at runtime", type);
4506 expr = convert (build_pointer_type (type), null_node);
4507 expr = build2 (COMPOUND_EXPR, TREE_TYPE (expr),
4508 call_builtin_trap (), expr);
4509 expr = build_indirect_ref (expr, NULL);
4510 return expr;
4513 return build_va_arg (expr, type);
4516 /* TYPE has been given to va_arg. Apply the default conversions which
4517 would have happened when passed via ellipsis. Return the promoted
4518 type, or the passed type if there is no change. */
4520 tree
4521 cxx_type_promotes_to (tree type)
4523 tree promote;
4525 /* Perform the array-to-pointer and function-to-pointer
4526 conversions. */
4527 type = type_decays_to (type);
4529 promote = type_promotes_to (type);
4530 if (same_type_p (type, promote))
4531 promote = type;
4533 return promote;
4536 /* ARG is a default argument expression being passed to a parameter of
4537 the indicated TYPE, which is a parameter to FN. Do any required
4538 conversions. Return the converted value. */
4540 tree
4541 convert_default_arg (tree type, tree arg, tree fn, int parmnum)
4543 /* If the ARG is an unparsed default argument expression, the
4544 conversion cannot be performed. */
4545 if (TREE_CODE (arg) == DEFAULT_ARG)
4547 error ("the default argument for parameter %d of %qD has "
4548 "not yet been parsed",
4549 parmnum, fn);
4550 return error_mark_node;
4553 if (fn && DECL_TEMPLATE_INFO (fn))
4554 arg = tsubst_default_argument (fn, type, arg);
4556 arg = break_out_target_exprs (arg);
4558 if (TREE_CODE (arg) == CONSTRUCTOR)
4560 arg = digest_init (type, arg);
4561 arg = convert_for_initialization (0, type, arg, LOOKUP_NORMAL,
4562 "default argument", fn, parmnum);
4564 else
4566 /* This could get clobbered by the following call. */
4567 if (TREE_HAS_CONSTRUCTOR (arg))
4568 arg = copy_node (arg);
4570 arg = convert_for_initialization (0, type, arg, LOOKUP_NORMAL,
4571 "default argument", fn, parmnum);
4572 arg = convert_for_arg_passing (type, arg);
4575 return arg;
4578 /* Returns the type which will really be used for passing an argument of
4579 type TYPE. */
4581 tree
4582 type_passed_as (tree type)
4584 /* Pass classes with copy ctors by invisible reference. */
4585 if (TREE_ADDRESSABLE (type))
4587 type = build_reference_type (type);
4588 /* There are no other pointers to this temporary. */
4589 type = build_qualified_type (type, TYPE_QUAL_RESTRICT);
4591 else if (targetm.calls.promote_prototypes (type)
4592 && INTEGRAL_TYPE_P (type)
4593 && COMPLETE_TYPE_P (type)
4594 && INT_CST_LT_UNSIGNED (TYPE_SIZE (type),
4595 TYPE_SIZE (integer_type_node)))
4596 type = integer_type_node;
4598 return type;
4601 /* Actually perform the appropriate conversion. */
4603 tree
4604 convert_for_arg_passing (tree type, tree val)
4606 if (val == error_mark_node)
4608 /* Pass classes with copy ctors by invisible reference. */
4609 else if (TREE_ADDRESSABLE (type))
4610 val = build1 (ADDR_EXPR, build_reference_type (type), val);
4611 else if (targetm.calls.promote_prototypes (type)
4612 && INTEGRAL_TYPE_P (type)
4613 && COMPLETE_TYPE_P (type)
4614 && INT_CST_LT_UNSIGNED (TYPE_SIZE (type),
4615 TYPE_SIZE (integer_type_node)))
4616 val = perform_integral_promotions (val);
4617 if (warn_missing_format_attribute)
4619 tree rhstype = TREE_TYPE (val);
4620 const enum tree_code coder = TREE_CODE (rhstype);
4621 const enum tree_code codel = TREE_CODE (type);
4622 if ((codel == POINTER_TYPE || codel == REFERENCE_TYPE)
4623 && coder == codel
4624 && check_missing_format_attribute (type, rhstype))
4625 warning (OPT_Wmissing_format_attribute,
4626 "argument of function call might be a candidate for a format attribute");
4628 return val;
4631 /* Returns true iff FN is a function with magic varargs, i.e. ones for
4632 which no conversions at all should be done. This is true for some
4633 builtins which don't act like normal functions. */
4635 static bool
4636 magic_varargs_p (tree fn)
4638 if (DECL_BUILT_IN (fn))
4639 switch (DECL_FUNCTION_CODE (fn))
4641 case BUILT_IN_CLASSIFY_TYPE:
4642 case BUILT_IN_CONSTANT_P:
4643 case BUILT_IN_NEXT_ARG:
4644 case BUILT_IN_STDARG_START:
4645 case BUILT_IN_VA_START:
4646 return true;
4648 default:;
4651 return false;
4654 /* Subroutine of the various build_*_call functions. Overload resolution
4655 has chosen a winning candidate CAND; build up a CALL_EXPR accordingly.
4656 ARGS is a TREE_LIST of the unconverted arguments to the call. FLAGS is a
4657 bitmask of various LOOKUP_* flags which apply to the call itself. */
4659 static tree
4660 build_over_call (struct z_candidate *cand, int flags)
4662 tree fn = cand->fn;
4663 tree args = cand->args;
4664 conversion **convs = cand->convs;
4665 conversion *conv;
4666 tree converted_args = NULL_TREE;
4667 tree parm = TYPE_ARG_TYPES (TREE_TYPE (fn));
4668 tree arg, val;
4669 int i = 0;
4670 int is_method = 0;
4672 /* In a template, there is no need to perform all of the work that
4673 is normally done. We are only interested in the type of the call
4674 expression, i.e., the return type of the function. Any semantic
4675 errors will be deferred until the template is instantiated. */
4676 if (processing_template_decl)
4678 tree expr;
4679 tree return_type;
4680 return_type = TREE_TYPE (TREE_TYPE (fn));
4681 expr = build3 (CALL_EXPR, return_type, fn, args, NULL_TREE);
4682 if (TREE_THIS_VOLATILE (fn) && cfun)
4683 current_function_returns_abnormally = 1;
4684 if (!VOID_TYPE_P (return_type))
4685 require_complete_type (return_type);
4686 return convert_from_reference (expr);
4689 /* Give any warnings we noticed during overload resolution. */
4690 if (cand->warnings)
4692 struct candidate_warning *w;
4693 for (w = cand->warnings; w; w = w->next)
4694 joust (cand, w->loser, 1);
4697 if (DECL_FUNCTION_MEMBER_P (fn))
4699 /* If FN is a template function, two cases must be considered.
4700 For example:
4702 struct A {
4703 protected:
4704 template <class T> void f();
4706 template <class T> struct B {
4707 protected:
4708 void g();
4710 struct C : A, B<int> {
4711 using A::f; // #1
4712 using B<int>::g; // #2
4715 In case #1 where `A::f' is a member template, DECL_ACCESS is
4716 recorded in the primary template but not in its specialization.
4717 We check access of FN using its primary template.
4719 In case #2, where `B<int>::g' has a DECL_TEMPLATE_INFO simply
4720 because it is a member of class template B, DECL_ACCESS is
4721 recorded in the specialization `B<int>::g'. We cannot use its
4722 primary template because `B<T>::g' and `B<int>::g' may have
4723 different access. */
4724 if (DECL_TEMPLATE_INFO (fn)
4725 && DECL_MEMBER_TEMPLATE_P (DECL_TI_TEMPLATE (fn)))
4726 perform_or_defer_access_check (cand->access_path,
4727 DECL_TI_TEMPLATE (fn));
4728 else
4729 perform_or_defer_access_check (cand->access_path, fn);
4732 if (args && TREE_CODE (args) != TREE_LIST)
4733 args = build_tree_list (NULL_TREE, args);
4734 arg = args;
4736 /* The implicit parameters to a constructor are not considered by overload
4737 resolution, and must be of the proper type. */
4738 if (DECL_CONSTRUCTOR_P (fn))
4740 converted_args = tree_cons (NULL_TREE, TREE_VALUE (arg), converted_args);
4741 arg = TREE_CHAIN (arg);
4742 parm = TREE_CHAIN (parm);
4743 /* We should never try to call the abstract constructor. */
4744 gcc_assert (!DECL_HAS_IN_CHARGE_PARM_P (fn));
4746 if (DECL_HAS_VTT_PARM_P (fn))
4748 converted_args = tree_cons
4749 (NULL_TREE, TREE_VALUE (arg), converted_args);
4750 arg = TREE_CHAIN (arg);
4751 parm = TREE_CHAIN (parm);
4754 /* Bypass access control for 'this' parameter. */
4755 else if (TREE_CODE (TREE_TYPE (fn)) == METHOD_TYPE)
4757 tree parmtype = TREE_VALUE (parm);
4758 tree argtype = TREE_TYPE (TREE_VALUE (arg));
4759 tree converted_arg;
4760 tree base_binfo;
4762 if (convs[i]->bad_p)
4763 pedwarn ("passing %qT as %<this%> argument of %q#D discards qualifiers",
4764 TREE_TYPE (argtype), fn);
4766 /* [class.mfct.nonstatic]: If a nonstatic member function of a class
4767 X is called for an object that is not of type X, or of a type
4768 derived from X, the behavior is undefined.
4770 So we can assume that anything passed as 'this' is non-null, and
4771 optimize accordingly. */
4772 gcc_assert (TREE_CODE (parmtype) == POINTER_TYPE);
4773 /* Convert to the base in which the function was declared. */
4774 gcc_assert (cand->conversion_path != NULL_TREE);
4775 converted_arg = build_base_path (PLUS_EXPR,
4776 TREE_VALUE (arg),
4777 cand->conversion_path,
4779 /* Check that the base class is accessible. */
4780 if (!accessible_base_p (TREE_TYPE (argtype),
4781 BINFO_TYPE (cand->conversion_path), true))
4782 error ("%qT is not an accessible base of %qT",
4783 BINFO_TYPE (cand->conversion_path),
4784 TREE_TYPE (argtype));
4785 /* If fn was found by a using declaration, the conversion path
4786 will be to the derived class, not the base declaring fn. We
4787 must convert from derived to base. */
4788 base_binfo = lookup_base (TREE_TYPE (TREE_TYPE (converted_arg)),
4789 TREE_TYPE (parmtype), ba_unique, NULL);
4790 converted_arg = build_base_path (PLUS_EXPR, converted_arg,
4791 base_binfo, 1);
4793 converted_args = tree_cons (NULL_TREE, converted_arg, converted_args);
4794 parm = TREE_CHAIN (parm);
4795 arg = TREE_CHAIN (arg);
4796 ++i;
4797 is_method = 1;
4800 for (; arg && parm;
4801 parm = TREE_CHAIN (parm), arg = TREE_CHAIN (arg), ++i)
4803 tree type = TREE_VALUE (parm);
4805 conv = convs[i];
4806 val = convert_like_with_context
4807 (conv, TREE_VALUE (arg), fn, i - is_method);
4809 val = convert_for_arg_passing (type, val);
4810 converted_args = tree_cons (NULL_TREE, val, converted_args);
4813 /* Default arguments */
4814 for (; parm && parm != void_list_node; parm = TREE_CHAIN (parm), i++)
4815 converted_args
4816 = tree_cons (NULL_TREE,
4817 convert_default_arg (TREE_VALUE (parm),
4818 TREE_PURPOSE (parm),
4819 fn, i - is_method),
4820 converted_args);
4822 /* Ellipsis */
4823 for (; arg; arg = TREE_CHAIN (arg))
4825 tree a = TREE_VALUE (arg);
4826 if (magic_varargs_p (fn))
4827 /* Do no conversions for magic varargs. */;
4828 else
4829 a = convert_arg_to_ellipsis (a);
4830 converted_args = tree_cons (NULL_TREE, a, converted_args);
4833 converted_args = nreverse (converted_args);
4835 check_function_arguments (TYPE_ATTRIBUTES (TREE_TYPE (fn)),
4836 converted_args, TYPE_ARG_TYPES (TREE_TYPE (fn)));
4838 /* Avoid actually calling copy constructors and copy assignment operators,
4839 if possible. */
4841 if (! flag_elide_constructors)
4842 /* Do things the hard way. */;
4843 else if (cand->num_convs == 1 && DECL_COPY_CONSTRUCTOR_P (fn))
4845 tree targ;
4846 arg = skip_artificial_parms_for (fn, converted_args);
4847 arg = TREE_VALUE (arg);
4849 /* Pull out the real argument, disregarding const-correctness. */
4850 targ = arg;
4851 while (TREE_CODE (targ) == NOP_EXPR
4852 || TREE_CODE (targ) == NON_LVALUE_EXPR
4853 || TREE_CODE (targ) == CONVERT_EXPR)
4854 targ = TREE_OPERAND (targ, 0);
4855 if (TREE_CODE (targ) == ADDR_EXPR)
4857 targ = TREE_OPERAND (targ, 0);
4858 if (!same_type_ignoring_top_level_qualifiers_p
4859 (TREE_TYPE (TREE_TYPE (arg)), TREE_TYPE (targ)))
4860 targ = NULL_TREE;
4862 else
4863 targ = NULL_TREE;
4865 if (targ)
4866 arg = targ;
4867 else
4868 arg = build_indirect_ref (arg, 0);
4870 /* [class.copy]: the copy constructor is implicitly defined even if
4871 the implementation elided its use. */
4872 if (TYPE_HAS_COMPLEX_INIT_REF (DECL_CONTEXT (fn)))
4873 mark_used (fn);
4875 /* If we're creating a temp and we already have one, don't create a
4876 new one. If we're not creating a temp but we get one, use
4877 INIT_EXPR to collapse the temp into our target. Otherwise, if the
4878 ctor is trivial, do a bitwise copy with a simple TARGET_EXPR for a
4879 temp or an INIT_EXPR otherwise. */
4880 if (integer_zerop (TREE_VALUE (args)))
4882 if (TREE_CODE (arg) == TARGET_EXPR)
4883 return arg;
4884 else if (TYPE_HAS_TRIVIAL_INIT_REF (DECL_CONTEXT (fn)))
4885 return build_target_expr_with_type (arg, DECL_CONTEXT (fn));
4887 else if (TREE_CODE (arg) == TARGET_EXPR
4888 || TYPE_HAS_TRIVIAL_INIT_REF (DECL_CONTEXT (fn)))
4890 tree to = stabilize_reference
4891 (build_indirect_ref (TREE_VALUE (args), 0));
4893 val = build2 (INIT_EXPR, DECL_CONTEXT (fn), to, arg);
4894 return val;
4897 else if (DECL_OVERLOADED_OPERATOR_P (fn) == NOP_EXPR
4898 && copy_fn_p (fn)
4899 && TYPE_HAS_TRIVIAL_ASSIGN_REF (DECL_CONTEXT (fn)))
4901 tree to = stabilize_reference
4902 (build_indirect_ref (TREE_VALUE (converted_args), 0));
4903 tree type = TREE_TYPE (to);
4904 tree as_base = CLASSTYPE_AS_BASE (type);
4906 arg = TREE_VALUE (TREE_CHAIN (converted_args));
4907 if (tree_int_cst_equal (TYPE_SIZE (type), TYPE_SIZE (as_base)))
4909 arg = build_indirect_ref (arg, 0);
4910 val = build2 (MODIFY_EXPR, TREE_TYPE (to), to, arg);
4912 else
4914 /* We must only copy the non-tail padding parts.
4915 Use __builtin_memcpy for the bitwise copy. */
4917 tree args, t;
4919 args = tree_cons (NULL, TYPE_SIZE_UNIT (as_base), NULL);
4920 args = tree_cons (NULL, arg, args);
4921 t = build_unary_op (ADDR_EXPR, to, 0);
4922 args = tree_cons (NULL, t, args);
4923 t = implicit_built_in_decls[BUILT_IN_MEMCPY];
4924 t = build_call (t, args);
4926 t = convert (TREE_TYPE (TREE_VALUE (args)), t);
4927 val = build_indirect_ref (t, 0);
4930 return val;
4933 mark_used (fn);
4935 if (DECL_VINDEX (fn) && (flags & LOOKUP_NONVIRTUAL) == 0)
4937 tree t, *p = &TREE_VALUE (converted_args);
4938 tree binfo = lookup_base (TREE_TYPE (TREE_TYPE (*p)),
4939 DECL_CONTEXT (fn),
4940 ba_any, NULL);
4941 gcc_assert (binfo && binfo != error_mark_node);
4943 *p = build_base_path (PLUS_EXPR, *p, binfo, 1);
4944 if (TREE_SIDE_EFFECTS (*p))
4945 *p = save_expr (*p);
4946 t = build_pointer_type (TREE_TYPE (fn));
4947 if (DECL_CONTEXT (fn) && TYPE_JAVA_INTERFACE (DECL_CONTEXT (fn)))
4948 fn = build_java_interface_fn_ref (fn, *p);
4949 else
4950 fn = build_vfn_ref (*p, DECL_VINDEX (fn));
4951 TREE_TYPE (fn) = t;
4953 else if (DECL_INLINE (fn))
4954 fn = inline_conversion (fn);
4955 else
4956 fn = build_addr_func (fn);
4958 return build_cxx_call (fn, converted_args);
4961 /* Build and return a call to FN, using ARGS. This function performs
4962 no overload resolution, conversion, or other high-level
4963 operations. */
4965 tree
4966 build_cxx_call (tree fn, tree args)
4968 tree fndecl;
4970 fn = build_call (fn, args);
4972 /* If this call might throw an exception, note that fact. */
4973 fndecl = get_callee_fndecl (fn);
4974 if ((!fndecl || !TREE_NOTHROW (fndecl))
4975 && at_function_scope_p ()
4976 && cfun)
4977 cp_function_chain->can_throw = 1;
4979 /* Some built-in function calls will be evaluated at compile-time in
4980 fold (). */
4981 fn = fold_if_not_in_template (fn);
4983 if (VOID_TYPE_P (TREE_TYPE (fn)))
4984 return fn;
4986 fn = require_complete_type (fn);
4987 if (fn == error_mark_node)
4988 return error_mark_node;
4990 if (IS_AGGR_TYPE (TREE_TYPE (fn)))
4991 fn = build_cplus_new (TREE_TYPE (fn), fn);
4992 return convert_from_reference (fn);
4995 static GTY(()) tree java_iface_lookup_fn;
4997 /* Make an expression which yields the address of the Java interface
4998 method FN. This is achieved by generating a call to libjava's
4999 _Jv_LookupInterfaceMethodIdx(). */
5001 static tree
5002 build_java_interface_fn_ref (tree fn, tree instance)
5004 tree lookup_args, lookup_fn, method, idx;
5005 tree klass_ref, iface, iface_ref;
5006 int i;
5008 if (!java_iface_lookup_fn)
5010 tree endlink = build_void_list_node ();
5011 tree t = tree_cons (NULL_TREE, ptr_type_node,
5012 tree_cons (NULL_TREE, ptr_type_node,
5013 tree_cons (NULL_TREE, java_int_type_node,
5014 endlink)));
5015 java_iface_lookup_fn
5016 = builtin_function ("_Jv_LookupInterfaceMethodIdx",
5017 build_function_type (ptr_type_node, t),
5018 0, NOT_BUILT_IN, NULL, NULL_TREE);
5021 /* Look up the pointer to the runtime java.lang.Class object for `instance'.
5022 This is the first entry in the vtable. */
5023 klass_ref = build_vtbl_ref (build_indirect_ref (instance, 0),
5024 integer_zero_node);
5026 /* Get the java.lang.Class pointer for the interface being called. */
5027 iface = DECL_CONTEXT (fn);
5028 iface_ref = lookup_field (iface, get_identifier ("class$"), 0, false);
5029 if (!iface_ref || TREE_CODE (iface_ref) != VAR_DECL
5030 || DECL_CONTEXT (iface_ref) != iface)
5032 error ("could not find class$ field in java interface type %qT",
5033 iface);
5034 return error_mark_node;
5036 iface_ref = build_address (iface_ref);
5037 iface_ref = convert (build_pointer_type (iface), iface_ref);
5039 /* Determine the itable index of FN. */
5040 i = 1;
5041 for (method = TYPE_METHODS (iface); method; method = TREE_CHAIN (method))
5043 if (!DECL_VIRTUAL_P (method))
5044 continue;
5045 if (fn == method)
5046 break;
5047 i++;
5049 idx = build_int_cst (NULL_TREE, i);
5051 lookup_args = tree_cons (NULL_TREE, klass_ref,
5052 tree_cons (NULL_TREE, iface_ref,
5053 build_tree_list (NULL_TREE, idx)));
5054 lookup_fn = build1 (ADDR_EXPR,
5055 build_pointer_type (TREE_TYPE (java_iface_lookup_fn)),
5056 java_iface_lookup_fn);
5057 return build3 (CALL_EXPR, ptr_type_node, lookup_fn, lookup_args, NULL_TREE);
5060 /* Returns the value to use for the in-charge parameter when making a
5061 call to a function with the indicated NAME.
5063 FIXME:Can't we find a neater way to do this mapping? */
5065 tree
5066 in_charge_arg_for_name (tree name)
5068 if (name == base_ctor_identifier
5069 || name == base_dtor_identifier)
5070 return integer_zero_node;
5071 else if (name == complete_ctor_identifier)
5072 return integer_one_node;
5073 else if (name == complete_dtor_identifier)
5074 return integer_two_node;
5075 else if (name == deleting_dtor_identifier)
5076 return integer_three_node;
5078 /* This function should only be called with one of the names listed
5079 above. */
5080 gcc_unreachable ();
5081 return NULL_TREE;
5084 /* Build a call to a constructor, destructor, or an assignment
5085 operator for INSTANCE, an expression with class type. NAME
5086 indicates the special member function to call; ARGS are the
5087 arguments. BINFO indicates the base of INSTANCE that is to be
5088 passed as the `this' parameter to the member function called.
5090 FLAGS are the LOOKUP_* flags to use when processing the call.
5092 If NAME indicates a complete object constructor, INSTANCE may be
5093 NULL_TREE. In this case, the caller will call build_cplus_new to
5094 store the newly constructed object into a VAR_DECL. */
5096 tree
5097 build_special_member_call (tree instance, tree name, tree args,
5098 tree binfo, int flags)
5100 tree fns;
5101 /* The type of the subobject to be constructed or destroyed. */
5102 tree class_type;
5104 gcc_assert (name == complete_ctor_identifier
5105 || name == base_ctor_identifier
5106 || name == complete_dtor_identifier
5107 || name == base_dtor_identifier
5108 || name == deleting_dtor_identifier
5109 || name == ansi_assopname (NOP_EXPR));
5110 if (TYPE_P (binfo))
5112 /* Resolve the name. */
5113 if (!complete_type_or_else (binfo, NULL_TREE))
5114 return error_mark_node;
5116 binfo = TYPE_BINFO (binfo);
5119 gcc_assert (binfo != NULL_TREE);
5121 class_type = BINFO_TYPE (binfo);
5123 /* Handle the special case where INSTANCE is NULL_TREE. */
5124 if (name == complete_ctor_identifier && !instance)
5126 instance = build_int_cst (build_pointer_type (class_type), 0);
5127 instance = build1 (INDIRECT_REF, class_type, instance);
5129 else
5131 if (name == complete_dtor_identifier
5132 || name == base_dtor_identifier
5133 || name == deleting_dtor_identifier)
5134 gcc_assert (args == NULL_TREE);
5136 /* Convert to the base class, if necessary. */
5137 if (!same_type_ignoring_top_level_qualifiers_p
5138 (TREE_TYPE (instance), BINFO_TYPE (binfo)))
5140 if (name != ansi_assopname (NOP_EXPR))
5141 /* For constructors and destructors, either the base is
5142 non-virtual, or it is virtual but we are doing the
5143 conversion from a constructor or destructor for the
5144 complete object. In either case, we can convert
5145 statically. */
5146 instance = convert_to_base_statically (instance, binfo);
5147 else
5148 /* However, for assignment operators, we must convert
5149 dynamically if the base is virtual. */
5150 instance = build_base_path (PLUS_EXPR, instance,
5151 binfo, /*nonnull=*/1);
5155 gcc_assert (instance != NULL_TREE);
5157 fns = lookup_fnfields (binfo, name, 1);
5159 /* When making a call to a constructor or destructor for a subobject
5160 that uses virtual base classes, pass down a pointer to a VTT for
5161 the subobject. */
5162 if ((name == base_ctor_identifier
5163 || name == base_dtor_identifier)
5164 && CLASSTYPE_VBASECLASSES (class_type))
5166 tree vtt;
5167 tree sub_vtt;
5169 /* If the current function is a complete object constructor
5170 or destructor, then we fetch the VTT directly.
5171 Otherwise, we look it up using the VTT we were given. */
5172 vtt = TREE_CHAIN (CLASSTYPE_VTABLES (current_class_type));
5173 vtt = decay_conversion (vtt);
5174 vtt = build3 (COND_EXPR, TREE_TYPE (vtt),
5175 build2 (EQ_EXPR, boolean_type_node,
5176 current_in_charge_parm, integer_zero_node),
5177 current_vtt_parm,
5178 vtt);
5179 gcc_assert (BINFO_SUBVTT_INDEX (binfo));
5180 sub_vtt = build2 (PLUS_EXPR, TREE_TYPE (vtt), vtt,
5181 BINFO_SUBVTT_INDEX (binfo));
5183 args = tree_cons (NULL_TREE, sub_vtt, args);
5186 return build_new_method_call (instance, fns, args,
5187 TYPE_BINFO (BINFO_TYPE (binfo)),
5188 flags);
5191 /* Return the NAME, as a C string. The NAME indicates a function that
5192 is a member of TYPE. *FREE_P is set to true if the caller must
5193 free the memory returned.
5195 Rather than go through all of this, we should simply set the names
5196 of constructors and destructors appropriately, and dispense with
5197 ctor_identifier, dtor_identifier, etc. */
5199 static char *
5200 name_as_c_string (tree name, tree type, bool *free_p)
5202 char *pretty_name;
5204 /* Assume that we will not allocate memory. */
5205 *free_p = false;
5206 /* Constructors and destructors are special. */
5207 if (IDENTIFIER_CTOR_OR_DTOR_P (name))
5209 pretty_name
5210 = (char *) IDENTIFIER_POINTER (constructor_name (type));
5211 /* For a destructor, add the '~'. */
5212 if (name == complete_dtor_identifier
5213 || name == base_dtor_identifier
5214 || name == deleting_dtor_identifier)
5216 pretty_name = concat ("~", pretty_name, NULL);
5217 /* Remember that we need to free the memory allocated. */
5218 *free_p = true;
5221 else if (IDENTIFIER_TYPENAME_P (name))
5223 pretty_name = concat ("operator ",
5224 type_as_string (TREE_TYPE (name),
5225 TFF_PLAIN_IDENTIFIER),
5226 NULL);
5227 /* Remember that we need to free the memory allocated. */
5228 *free_p = true;
5230 else
5231 pretty_name = (char *) IDENTIFIER_POINTER (name);
5233 return pretty_name;
5236 /* Build a call to "INSTANCE.FN (ARGS)". */
5238 tree
5239 build_new_method_call (tree instance, tree fns, tree args,
5240 tree conversion_path, int flags)
5242 struct z_candidate *candidates = 0, *cand;
5243 tree explicit_targs = NULL_TREE;
5244 tree basetype = NULL_TREE;
5245 tree access_binfo;
5246 tree optype;
5247 tree mem_args = NULL_TREE, instance_ptr;
5248 tree name;
5249 tree user_args;
5250 tree call;
5251 tree fn;
5252 tree class_type;
5253 int template_only = 0;
5254 bool any_viable_p;
5255 tree orig_instance;
5256 tree orig_fns;
5257 tree orig_args;
5258 void *p;
5260 gcc_assert (instance != NULL_TREE);
5262 if (error_operand_p (instance)
5263 || error_operand_p (fns)
5264 || args == error_mark_node)
5265 return error_mark_node;
5267 if (!BASELINK_P (fns))
5269 error ("call to non-function %qD", fns);
5270 return error_mark_node;
5273 orig_instance = instance;
5274 orig_fns = fns;
5275 orig_args = args;
5277 /* Dismantle the baselink to collect all the information we need. */
5278 if (!conversion_path)
5279 conversion_path = BASELINK_BINFO (fns);
5280 access_binfo = BASELINK_ACCESS_BINFO (fns);
5281 optype = BASELINK_OPTYPE (fns);
5282 fns = BASELINK_FUNCTIONS (fns);
5283 if (TREE_CODE (fns) == TEMPLATE_ID_EXPR)
5285 explicit_targs = TREE_OPERAND (fns, 1);
5286 fns = TREE_OPERAND (fns, 0);
5287 template_only = 1;
5289 gcc_assert (TREE_CODE (fns) == FUNCTION_DECL
5290 || TREE_CODE (fns) == TEMPLATE_DECL
5291 || TREE_CODE (fns) == OVERLOAD);
5292 fn = get_first_fn (fns);
5293 name = DECL_NAME (fn);
5295 basetype = TYPE_MAIN_VARIANT (TREE_TYPE (instance));
5296 gcc_assert (CLASS_TYPE_P (basetype));
5298 if (processing_template_decl)
5300 instance = build_non_dependent_expr (instance);
5301 args = build_non_dependent_args (orig_args);
5304 /* The USER_ARGS are the arguments we will display to users if an
5305 error occurs. The USER_ARGS should not include any
5306 compiler-generated arguments. The "this" pointer hasn't been
5307 added yet. However, we must remove the VTT pointer if this is a
5308 call to a base-class constructor or destructor. */
5309 user_args = args;
5310 if (IDENTIFIER_CTOR_OR_DTOR_P (name))
5312 /* Callers should explicitly indicate whether they want to construct
5313 the complete object or just the part without virtual bases. */
5314 gcc_assert (name != ctor_identifier);
5315 /* Similarly for destructors. */
5316 gcc_assert (name != dtor_identifier);
5317 /* Remove the VTT pointer, if present. */
5318 if ((name == base_ctor_identifier || name == base_dtor_identifier)
5319 && CLASSTYPE_VBASECLASSES (basetype))
5320 user_args = TREE_CHAIN (user_args);
5323 /* Process the argument list. */
5324 args = resolve_args (args);
5325 if (args == error_mark_node)
5326 return error_mark_node;
5328 instance_ptr = build_this (instance);
5330 /* It's OK to call destructors on cv-qualified objects. Therefore,
5331 convert the INSTANCE_PTR to the unqualified type, if necessary. */
5332 if (DECL_DESTRUCTOR_P (fn))
5334 tree type = build_pointer_type (basetype);
5335 if (!same_type_p (type, TREE_TYPE (instance_ptr)))
5336 instance_ptr = build_nop (type, instance_ptr);
5337 name = complete_dtor_identifier;
5340 class_type = (conversion_path ? BINFO_TYPE (conversion_path) : NULL_TREE);
5341 mem_args = tree_cons (NULL_TREE, instance_ptr, args);
5343 /* Get the high-water mark for the CONVERSION_OBSTACK. */
5344 p = conversion_obstack_alloc (0);
5346 for (fn = fns; fn; fn = OVL_NEXT (fn))
5348 tree t = OVL_CURRENT (fn);
5349 tree this_arglist;
5351 /* We can end up here for copy-init of same or base class. */
5352 if ((flags & LOOKUP_ONLYCONVERTING)
5353 && DECL_NONCONVERTING_P (t))
5354 continue;
5356 if (DECL_NONSTATIC_MEMBER_FUNCTION_P (t))
5357 this_arglist = mem_args;
5358 else
5359 this_arglist = args;
5361 if (TREE_CODE (t) == TEMPLATE_DECL)
5362 /* A member template. */
5363 add_template_candidate (&candidates, t,
5364 class_type,
5365 explicit_targs,
5366 this_arglist, optype,
5367 access_binfo,
5368 conversion_path,
5369 flags,
5370 DEDUCE_CALL);
5371 else if (! template_only)
5372 add_function_candidate (&candidates, t,
5373 class_type,
5374 this_arglist,
5375 access_binfo,
5376 conversion_path,
5377 flags);
5380 candidates = splice_viable (candidates, pedantic, &any_viable_p);
5381 if (!any_viable_p)
5383 if (!COMPLETE_TYPE_P (basetype))
5384 cxx_incomplete_type_error (instance_ptr, basetype);
5385 else
5387 char *pretty_name;
5388 bool free_p;
5390 pretty_name = name_as_c_string (name, basetype, &free_p);
5391 error ("no matching function for call to %<%T::%s(%A)%#V%>",
5392 basetype, pretty_name, user_args,
5393 TREE_TYPE (TREE_TYPE (instance_ptr)));
5394 if (free_p)
5395 free (pretty_name);
5397 print_z_candidates (candidates);
5398 call = error_mark_node;
5400 else
5402 cand = tourney (candidates);
5403 if (cand == 0)
5405 char *pretty_name;
5406 bool free_p;
5408 pretty_name = name_as_c_string (name, basetype, &free_p);
5409 error ("call of overloaded %<%s(%A)%> is ambiguous", pretty_name,
5410 user_args);
5411 print_z_candidates (candidates);
5412 if (free_p)
5413 free (pretty_name);
5414 call = error_mark_node;
5416 else
5418 if (!(flags & LOOKUP_NONVIRTUAL)
5419 && DECL_PURE_VIRTUAL_P (cand->fn)
5420 && instance == current_class_ref
5421 && (DECL_CONSTRUCTOR_P (current_function_decl)
5422 || DECL_DESTRUCTOR_P (current_function_decl)))
5423 /* This is not an error, it is runtime undefined
5424 behavior. */
5425 warning (0, (DECL_CONSTRUCTOR_P (current_function_decl) ?
5426 "abstract virtual %q#D called from constructor"
5427 : "abstract virtual %q#D called from destructor"),
5428 cand->fn);
5430 if (TREE_CODE (TREE_TYPE (cand->fn)) == METHOD_TYPE
5431 && is_dummy_object (instance_ptr))
5433 error ("cannot call member function %qD without object",
5434 cand->fn);
5435 call = error_mark_node;
5437 else
5439 if (DECL_VINDEX (cand->fn) && ! (flags & LOOKUP_NONVIRTUAL)
5440 && resolves_to_fixed_type_p (instance, 0))
5441 flags |= LOOKUP_NONVIRTUAL;
5443 call = build_over_call (cand, flags);
5445 /* In an expression of the form `a->f()' where `f' turns
5446 out to be a static member function, `a' is
5447 none-the-less evaluated. */
5448 if (TREE_CODE (TREE_TYPE (cand->fn)) != METHOD_TYPE
5449 && !is_dummy_object (instance_ptr)
5450 && TREE_SIDE_EFFECTS (instance))
5451 call = build2 (COMPOUND_EXPR, TREE_TYPE (call),
5452 instance, call);
5457 if (processing_template_decl && call != error_mark_node)
5458 call = (build_min_non_dep
5459 (CALL_EXPR, call,
5460 build_min_nt (COMPONENT_REF, orig_instance, orig_fns, NULL_TREE),
5461 orig_args, NULL_TREE));
5463 /* Free all the conversions we allocated. */
5464 obstack_free (&conversion_obstack, p);
5466 return call;
5469 /* Returns true iff standard conversion sequence ICS1 is a proper
5470 subsequence of ICS2. */
5472 static bool
5473 is_subseq (conversion *ics1, conversion *ics2)
5475 /* We can assume that a conversion of the same code
5476 between the same types indicates a subsequence since we only get
5477 here if the types we are converting from are the same. */
5479 while (ics1->kind == ck_rvalue
5480 || ics1->kind == ck_lvalue)
5481 ics1 = ics1->u.next;
5483 while (1)
5485 while (ics2->kind == ck_rvalue
5486 || ics2->kind == ck_lvalue)
5487 ics2 = ics2->u.next;
5489 if (ics2->kind == ck_user
5490 || ics2->kind == ck_ambig
5491 || ics2->kind == ck_identity)
5492 /* At this point, ICS1 cannot be a proper subsequence of
5493 ICS2. We can get a USER_CONV when we are comparing the
5494 second standard conversion sequence of two user conversion
5495 sequences. */
5496 return false;
5498 ics2 = ics2->u.next;
5500 if (ics2->kind == ics1->kind
5501 && same_type_p (ics2->type, ics1->type)
5502 && same_type_p (ics2->u.next->type,
5503 ics1->u.next->type))
5504 return true;
5508 /* Returns nonzero iff DERIVED is derived from BASE. The inputs may
5509 be any _TYPE nodes. */
5511 bool
5512 is_properly_derived_from (tree derived, tree base)
5514 if (!IS_AGGR_TYPE_CODE (TREE_CODE (derived))
5515 || !IS_AGGR_TYPE_CODE (TREE_CODE (base)))
5516 return false;
5518 /* We only allow proper derivation here. The DERIVED_FROM_P macro
5519 considers every class derived from itself. */
5520 return (!same_type_ignoring_top_level_qualifiers_p (derived, base)
5521 && DERIVED_FROM_P (base, derived));
5524 /* We build the ICS for an implicit object parameter as a pointer
5525 conversion sequence. However, such a sequence should be compared
5526 as if it were a reference conversion sequence. If ICS is the
5527 implicit conversion sequence for an implicit object parameter,
5528 modify it accordingly. */
5530 static void
5531 maybe_handle_implicit_object (conversion **ics)
5533 if ((*ics)->this_p)
5535 /* [over.match.funcs]
5537 For non-static member functions, the type of the
5538 implicit object parameter is "reference to cv X"
5539 where X is the class of which the function is a
5540 member and cv is the cv-qualification on the member
5541 function declaration. */
5542 conversion *t = *ics;
5543 tree reference_type;
5545 /* The `this' parameter is a pointer to a class type. Make the
5546 implicit conversion talk about a reference to that same class
5547 type. */
5548 reference_type = TREE_TYPE (t->type);
5549 reference_type = build_reference_type (reference_type);
5551 if (t->kind == ck_qual)
5552 t = t->u.next;
5553 if (t->kind == ck_ptr)
5554 t = t->u.next;
5555 t = build_identity_conv (TREE_TYPE (t->type), NULL_TREE);
5556 t = direct_reference_binding (reference_type, t);
5557 *ics = t;
5561 /* If *ICS is a REF_BIND set *ICS to the remainder of the conversion,
5562 and return the type to which the reference refers. Otherwise,
5563 leave *ICS unchanged and return NULL_TREE. */
5565 static tree
5566 maybe_handle_ref_bind (conversion **ics)
5568 if ((*ics)->kind == ck_ref_bind)
5570 conversion *old_ics = *ics;
5571 tree type = TREE_TYPE (old_ics->type);
5572 *ics = old_ics->u.next;
5573 (*ics)->user_conv_p = old_ics->user_conv_p;
5574 (*ics)->bad_p = old_ics->bad_p;
5575 return type;
5578 return NULL_TREE;
5581 /* Compare two implicit conversion sequences according to the rules set out in
5582 [over.ics.rank]. Return values:
5584 1: ics1 is better than ics2
5585 -1: ics2 is better than ics1
5586 0: ics1 and ics2 are indistinguishable */
5588 static int
5589 compare_ics (conversion *ics1, conversion *ics2)
5591 tree from_type1;
5592 tree from_type2;
5593 tree to_type1;
5594 tree to_type2;
5595 tree deref_from_type1 = NULL_TREE;
5596 tree deref_from_type2 = NULL_TREE;
5597 tree deref_to_type1 = NULL_TREE;
5598 tree deref_to_type2 = NULL_TREE;
5599 conversion_rank rank1, rank2;
5601 /* REF_BINDING is nonzero if the result of the conversion sequence
5602 is a reference type. In that case TARGET_TYPE is the
5603 type referred to by the reference. */
5604 tree target_type1;
5605 tree target_type2;
5607 /* Handle implicit object parameters. */
5608 maybe_handle_implicit_object (&ics1);
5609 maybe_handle_implicit_object (&ics2);
5611 /* Handle reference parameters. */
5612 target_type1 = maybe_handle_ref_bind (&ics1);
5613 target_type2 = maybe_handle_ref_bind (&ics2);
5615 /* [over.ics.rank]
5617 When comparing the basic forms of implicit conversion sequences (as
5618 defined in _over.best.ics_)
5620 --a standard conversion sequence (_over.ics.scs_) is a better
5621 conversion sequence than a user-defined conversion sequence
5622 or an ellipsis conversion sequence, and
5624 --a user-defined conversion sequence (_over.ics.user_) is a
5625 better conversion sequence than an ellipsis conversion sequence
5626 (_over.ics.ellipsis_). */
5627 rank1 = CONVERSION_RANK (ics1);
5628 rank2 = CONVERSION_RANK (ics2);
5630 if (rank1 > rank2)
5631 return -1;
5632 else if (rank1 < rank2)
5633 return 1;
5635 if (rank1 == cr_bad)
5637 /* XXX Isn't this an extension? */
5638 /* Both ICS are bad. We try to make a decision based on what
5639 would have happened if they'd been good. */
5640 if (ics1->user_conv_p > ics2->user_conv_p
5641 || ics1->rank > ics2->rank)
5642 return -1;
5643 else if (ics1->user_conv_p < ics2->user_conv_p
5644 || ics1->rank < ics2->rank)
5645 return 1;
5647 /* We couldn't make up our minds; try to figure it out below. */
5650 if (ics1->ellipsis_p)
5651 /* Both conversions are ellipsis conversions. */
5652 return 0;
5654 /* User-defined conversion sequence U1 is a better conversion sequence
5655 than another user-defined conversion sequence U2 if they contain the
5656 same user-defined conversion operator or constructor and if the sec-
5657 ond standard conversion sequence of U1 is better than the second
5658 standard conversion sequence of U2. */
5660 if (ics1->user_conv_p)
5662 conversion *t1;
5663 conversion *t2;
5665 for (t1 = ics1; t1->kind != ck_user; t1 = t1->u.next)
5666 if (t1->kind == ck_ambig)
5667 return 0;
5668 for (t2 = ics2; t2->kind != ck_user; t2 = t2->u.next)
5669 if (t2->kind == ck_ambig)
5670 return 0;
5672 if (t1->cand->fn != t2->cand->fn)
5673 return 0;
5675 /* We can just fall through here, after setting up
5676 FROM_TYPE1 and FROM_TYPE2. */
5677 from_type1 = t1->type;
5678 from_type2 = t2->type;
5680 else
5682 conversion *t1;
5683 conversion *t2;
5685 /* We're dealing with two standard conversion sequences.
5687 [over.ics.rank]
5689 Standard conversion sequence S1 is a better conversion
5690 sequence than standard conversion sequence S2 if
5692 --S1 is a proper subsequence of S2 (comparing the conversion
5693 sequences in the canonical form defined by _over.ics.scs_,
5694 excluding any Lvalue Transformation; the identity
5695 conversion sequence is considered to be a subsequence of
5696 any non-identity conversion sequence */
5698 t1 = ics1;
5699 while (t1->kind != ck_identity)
5700 t1 = t1->u.next;
5701 from_type1 = t1->type;
5703 t2 = ics2;
5704 while (t2->kind != ck_identity)
5705 t2 = t2->u.next;
5706 from_type2 = t2->type;
5709 if (same_type_p (from_type1, from_type2))
5711 if (is_subseq (ics1, ics2))
5712 return 1;
5713 if (is_subseq (ics2, ics1))
5714 return -1;
5716 /* Otherwise, one sequence cannot be a subsequence of the other; they
5717 don't start with the same type. This can happen when comparing the
5718 second standard conversion sequence in two user-defined conversion
5719 sequences. */
5721 /* [over.ics.rank]
5723 Or, if not that,
5725 --the rank of S1 is better than the rank of S2 (by the rules
5726 defined below):
5728 Standard conversion sequences are ordered by their ranks: an Exact
5729 Match is a better conversion than a Promotion, which is a better
5730 conversion than a Conversion.
5732 Two conversion sequences with the same rank are indistinguishable
5733 unless one of the following rules applies:
5735 --A conversion that is not a conversion of a pointer, or pointer
5736 to member, to bool is better than another conversion that is such
5737 a conversion.
5739 The ICS_STD_RANK automatically handles the pointer-to-bool rule,
5740 so that we do not have to check it explicitly. */
5741 if (ics1->rank < ics2->rank)
5742 return 1;
5743 else if (ics2->rank < ics1->rank)
5744 return -1;
5746 to_type1 = ics1->type;
5747 to_type2 = ics2->type;
5749 if (TYPE_PTR_P (from_type1)
5750 && TYPE_PTR_P (from_type2)
5751 && TYPE_PTR_P (to_type1)
5752 && TYPE_PTR_P (to_type2))
5754 deref_from_type1 = TREE_TYPE (from_type1);
5755 deref_from_type2 = TREE_TYPE (from_type2);
5756 deref_to_type1 = TREE_TYPE (to_type1);
5757 deref_to_type2 = TREE_TYPE (to_type2);
5759 /* The rules for pointers to members A::* are just like the rules
5760 for pointers A*, except opposite: if B is derived from A then
5761 A::* converts to B::*, not vice versa. For that reason, we
5762 switch the from_ and to_ variables here. */
5763 else if ((TYPE_PTRMEM_P (from_type1) && TYPE_PTRMEM_P (from_type2)
5764 && TYPE_PTRMEM_P (to_type1) && TYPE_PTRMEM_P (to_type2))
5765 || (TYPE_PTRMEMFUNC_P (from_type1)
5766 && TYPE_PTRMEMFUNC_P (from_type2)
5767 && TYPE_PTRMEMFUNC_P (to_type1)
5768 && TYPE_PTRMEMFUNC_P (to_type2)))
5770 deref_to_type1 = TYPE_PTRMEM_CLASS_TYPE (from_type1);
5771 deref_to_type2 = TYPE_PTRMEM_CLASS_TYPE (from_type2);
5772 deref_from_type1 = TYPE_PTRMEM_CLASS_TYPE (to_type1);
5773 deref_from_type2 = TYPE_PTRMEM_CLASS_TYPE (to_type2);
5776 if (deref_from_type1 != NULL_TREE
5777 && IS_AGGR_TYPE_CODE (TREE_CODE (deref_from_type1))
5778 && IS_AGGR_TYPE_CODE (TREE_CODE (deref_from_type2)))
5780 /* This was one of the pointer or pointer-like conversions.
5782 [over.ics.rank]
5784 --If class B is derived directly or indirectly from class A,
5785 conversion of B* to A* is better than conversion of B* to
5786 void*, and conversion of A* to void* is better than
5787 conversion of B* to void*. */
5788 if (TREE_CODE (deref_to_type1) == VOID_TYPE
5789 && TREE_CODE (deref_to_type2) == VOID_TYPE)
5791 if (is_properly_derived_from (deref_from_type1,
5792 deref_from_type2))
5793 return -1;
5794 else if (is_properly_derived_from (deref_from_type2,
5795 deref_from_type1))
5796 return 1;
5798 else if (TREE_CODE (deref_to_type1) == VOID_TYPE
5799 || TREE_CODE (deref_to_type2) == VOID_TYPE)
5801 if (same_type_p (deref_from_type1, deref_from_type2))
5803 if (TREE_CODE (deref_to_type2) == VOID_TYPE)
5805 if (is_properly_derived_from (deref_from_type1,
5806 deref_to_type1))
5807 return 1;
5809 /* We know that DEREF_TO_TYPE1 is `void' here. */
5810 else if (is_properly_derived_from (deref_from_type1,
5811 deref_to_type2))
5812 return -1;
5815 else if (IS_AGGR_TYPE_CODE (TREE_CODE (deref_to_type1))
5816 && IS_AGGR_TYPE_CODE (TREE_CODE (deref_to_type2)))
5818 /* [over.ics.rank]
5820 --If class B is derived directly or indirectly from class A
5821 and class C is derived directly or indirectly from B,
5823 --conversion of C* to B* is better than conversion of C* to
5826 --conversion of B* to A* is better than conversion of C* to
5827 A* */
5828 if (same_type_p (deref_from_type1, deref_from_type2))
5830 if (is_properly_derived_from (deref_to_type1,
5831 deref_to_type2))
5832 return 1;
5833 else if (is_properly_derived_from (deref_to_type2,
5834 deref_to_type1))
5835 return -1;
5837 else if (same_type_p (deref_to_type1, deref_to_type2))
5839 if (is_properly_derived_from (deref_from_type2,
5840 deref_from_type1))
5841 return 1;
5842 else if (is_properly_derived_from (deref_from_type1,
5843 deref_from_type2))
5844 return -1;
5848 else if (CLASS_TYPE_P (non_reference (from_type1))
5849 && same_type_p (from_type1, from_type2))
5851 tree from = non_reference (from_type1);
5853 /* [over.ics.rank]
5855 --binding of an expression of type C to a reference of type
5856 B& is better than binding an expression of type C to a
5857 reference of type A&
5859 --conversion of C to B is better than conversion of C to A, */
5860 if (is_properly_derived_from (from, to_type1)
5861 && is_properly_derived_from (from, to_type2))
5863 if (is_properly_derived_from (to_type1, to_type2))
5864 return 1;
5865 else if (is_properly_derived_from (to_type2, to_type1))
5866 return -1;
5869 else if (CLASS_TYPE_P (non_reference (to_type1))
5870 && same_type_p (to_type1, to_type2))
5872 tree to = non_reference (to_type1);
5874 /* [over.ics.rank]
5876 --binding of an expression of type B to a reference of type
5877 A& is better than binding an expression of type C to a
5878 reference of type A&,
5880 --conversion of B to A is better than conversion of C to A */
5881 if (is_properly_derived_from (from_type1, to)
5882 && is_properly_derived_from (from_type2, to))
5884 if (is_properly_derived_from (from_type2, from_type1))
5885 return 1;
5886 else if (is_properly_derived_from (from_type1, from_type2))
5887 return -1;
5891 /* [over.ics.rank]
5893 --S1 and S2 differ only in their qualification conversion and yield
5894 similar types T1 and T2 (_conv.qual_), respectively, and the cv-
5895 qualification signature of type T1 is a proper subset of the cv-
5896 qualification signature of type T2 */
5897 if (ics1->kind == ck_qual
5898 && ics2->kind == ck_qual
5899 && same_type_p (from_type1, from_type2))
5900 return comp_cv_qual_signature (to_type1, to_type2);
5902 /* [over.ics.rank]
5904 --S1 and S2 are reference bindings (_dcl.init.ref_), and the
5905 types to which the references refer are the same type except for
5906 top-level cv-qualifiers, and the type to which the reference
5907 initialized by S2 refers is more cv-qualified than the type to
5908 which the reference initialized by S1 refers */
5910 if (target_type1 && target_type2
5911 && same_type_ignoring_top_level_qualifiers_p (to_type1, to_type2))
5912 return comp_cv_qualification (target_type2, target_type1);
5914 /* Neither conversion sequence is better than the other. */
5915 return 0;
5918 /* The source type for this standard conversion sequence. */
5920 static tree
5921 source_type (conversion *t)
5923 for (;; t = t->u.next)
5925 if (t->kind == ck_user
5926 || t->kind == ck_ambig
5927 || t->kind == ck_identity)
5928 return t->type;
5930 gcc_unreachable ();
5933 /* Note a warning about preferring WINNER to LOSER. We do this by storing
5934 a pointer to LOSER and re-running joust to produce the warning if WINNER
5935 is actually used. */
5937 static void
5938 add_warning (struct z_candidate *winner, struct z_candidate *loser)
5940 candidate_warning *cw;
5942 cw = conversion_obstack_alloc (sizeof (candidate_warning));
5943 cw->loser = loser;
5944 cw->next = winner->warnings;
5945 winner->warnings = cw;
5948 /* Compare two candidates for overloading as described in
5949 [over.match.best]. Return values:
5951 1: cand1 is better than cand2
5952 -1: cand2 is better than cand1
5953 0: cand1 and cand2 are indistinguishable */
5955 static int
5956 joust (struct z_candidate *cand1, struct z_candidate *cand2, bool warn)
5958 int winner = 0;
5959 int off1 = 0, off2 = 0;
5960 size_t i;
5961 size_t len;
5963 /* Candidates that involve bad conversions are always worse than those
5964 that don't. */
5965 if (cand1->viable > cand2->viable)
5966 return 1;
5967 if (cand1->viable < cand2->viable)
5968 return -1;
5970 /* If we have two pseudo-candidates for conversions to the same type,
5971 or two candidates for the same function, arbitrarily pick one. */
5972 if (cand1->fn == cand2->fn
5973 && (IS_TYPE_OR_DECL_P (cand1->fn)))
5974 return 1;
5976 /* a viable function F1
5977 is defined to be a better function than another viable function F2 if
5978 for all arguments i, ICSi(F1) is not a worse conversion sequence than
5979 ICSi(F2), and then */
5981 /* for some argument j, ICSj(F1) is a better conversion sequence than
5982 ICSj(F2) */
5984 /* For comparing static and non-static member functions, we ignore
5985 the implicit object parameter of the non-static function. The
5986 standard says to pretend that the static function has an object
5987 parm, but that won't work with operator overloading. */
5988 len = cand1->num_convs;
5989 if (len != cand2->num_convs)
5991 int static_1 = DECL_STATIC_FUNCTION_P (cand1->fn);
5992 int static_2 = DECL_STATIC_FUNCTION_P (cand2->fn);
5994 gcc_assert (static_1 != static_2);
5996 if (static_1)
5997 off2 = 1;
5998 else
6000 off1 = 1;
6001 --len;
6005 for (i = 0; i < len; ++i)
6007 conversion *t1 = cand1->convs[i + off1];
6008 conversion *t2 = cand2->convs[i + off2];
6009 int comp = compare_ics (t1, t2);
6011 if (comp != 0)
6013 if (warn_sign_promo
6014 && (CONVERSION_RANK (t1) + CONVERSION_RANK (t2)
6015 == cr_std + cr_promotion)
6016 && t1->kind == ck_std
6017 && t2->kind == ck_std
6018 && TREE_CODE (t1->type) == INTEGER_TYPE
6019 && TREE_CODE (t2->type) == INTEGER_TYPE
6020 && (TYPE_PRECISION (t1->type)
6021 == TYPE_PRECISION (t2->type))
6022 && (TYPE_UNSIGNED (t1->u.next->type)
6023 || (TREE_CODE (t1->u.next->type)
6024 == ENUMERAL_TYPE)))
6026 tree type = t1->u.next->type;
6027 tree type1, type2;
6028 struct z_candidate *w, *l;
6029 if (comp > 0)
6030 type1 = t1->type, type2 = t2->type,
6031 w = cand1, l = cand2;
6032 else
6033 type1 = t2->type, type2 = t1->type,
6034 w = cand2, l = cand1;
6036 if (warn)
6038 warning (0, "passing %qT chooses %qT over %qT",
6039 type, type1, type2);
6040 warning (0, " in call to %qD", w->fn);
6042 else
6043 add_warning (w, l);
6046 if (winner && comp != winner)
6048 winner = 0;
6049 goto tweak;
6051 winner = comp;
6055 /* warn about confusing overload resolution for user-defined conversions,
6056 either between a constructor and a conversion op, or between two
6057 conversion ops. */
6058 if (winner && warn_conversion && cand1->second_conv
6059 && (!DECL_CONSTRUCTOR_P (cand1->fn) || !DECL_CONSTRUCTOR_P (cand2->fn))
6060 && winner != compare_ics (cand1->second_conv, cand2->second_conv))
6062 struct z_candidate *w, *l;
6063 bool give_warning = false;
6065 if (winner == 1)
6066 w = cand1, l = cand2;
6067 else
6068 w = cand2, l = cand1;
6070 /* We don't want to complain about `X::operator T1 ()'
6071 beating `X::operator T2 () const', when T2 is a no less
6072 cv-qualified version of T1. */
6073 if (DECL_CONTEXT (w->fn) == DECL_CONTEXT (l->fn)
6074 && !DECL_CONSTRUCTOR_P (w->fn) && !DECL_CONSTRUCTOR_P (l->fn))
6076 tree t = TREE_TYPE (TREE_TYPE (l->fn));
6077 tree f = TREE_TYPE (TREE_TYPE (w->fn));
6079 if (TREE_CODE (t) == TREE_CODE (f) && POINTER_TYPE_P (t))
6081 t = TREE_TYPE (t);
6082 f = TREE_TYPE (f);
6084 if (!comp_ptr_ttypes (t, f))
6085 give_warning = true;
6087 else
6088 give_warning = true;
6090 if (!give_warning)
6091 /*NOP*/;
6092 else if (warn)
6094 tree source = source_type (w->convs[0]);
6095 if (! DECL_CONSTRUCTOR_P (w->fn))
6096 source = TREE_TYPE (source);
6097 warning (0, "choosing %qD over %qD", w->fn, l->fn);
6098 warning (0, " for conversion from %qT to %qT",
6099 source, w->second_conv->type);
6100 warning (0, " because conversion sequence for the argument is better");
6102 else
6103 add_warning (w, l);
6106 if (winner)
6107 return winner;
6109 /* or, if not that,
6110 F1 is a non-template function and F2 is a template function
6111 specialization. */
6113 if (!cand1->template_decl && cand2->template_decl)
6114 return 1;
6115 else if (cand1->template_decl && !cand2->template_decl)
6116 return -1;
6118 /* or, if not that,
6119 F1 and F2 are template functions and the function template for F1 is
6120 more specialized than the template for F2 according to the partial
6121 ordering rules. */
6123 if (cand1->template_decl && cand2->template_decl)
6125 winner = more_specialized_fn
6126 (TI_TEMPLATE (cand1->template_decl),
6127 TI_TEMPLATE (cand2->template_decl),
6128 /* [temp.func.order]: The presence of unused ellipsis and default
6129 arguments has no effect on the partial ordering of function
6130 templates. add_function_candidate() will not have
6131 counted the "this" argument for constructors. */
6132 cand1->num_convs + DECL_CONSTRUCTOR_P (cand1->fn));
6133 if (winner)
6134 return winner;
6137 /* or, if not that,
6138 the context is an initialization by user-defined conversion (see
6139 _dcl.init_ and _over.match.user_) and the standard conversion
6140 sequence from the return type of F1 to the destination type (i.e.,
6141 the type of the entity being initialized) is a better conversion
6142 sequence than the standard conversion sequence from the return type
6143 of F2 to the destination type. */
6145 if (cand1->second_conv)
6147 winner = compare_ics (cand1->second_conv, cand2->second_conv);
6148 if (winner)
6149 return winner;
6152 /* Check whether we can discard a builtin candidate, either because we
6153 have two identical ones or matching builtin and non-builtin candidates.
6155 (Pedantically in the latter case the builtin which matched the user
6156 function should not be added to the overload set, but we spot it here.
6158 [over.match.oper]
6159 ... the builtin candidates include ...
6160 - do not have the same parameter type list as any non-template
6161 non-member candidate. */
6163 if (TREE_CODE (cand1->fn) == IDENTIFIER_NODE
6164 || TREE_CODE (cand2->fn) == IDENTIFIER_NODE)
6166 for (i = 0; i < len; ++i)
6167 if (!same_type_p (cand1->convs[i]->type,
6168 cand2->convs[i]->type))
6169 break;
6170 if (i == cand1->num_convs)
6172 if (cand1->fn == cand2->fn)
6173 /* Two built-in candidates; arbitrarily pick one. */
6174 return 1;
6175 else if (TREE_CODE (cand1->fn) == IDENTIFIER_NODE)
6176 /* cand1 is built-in; prefer cand2. */
6177 return -1;
6178 else
6179 /* cand2 is built-in; prefer cand1. */
6180 return 1;
6184 /* If the two functions are the same (this can happen with declarations
6185 in multiple scopes and arg-dependent lookup), arbitrarily choose one. */
6186 if (DECL_P (cand1->fn) && DECL_P (cand2->fn)
6187 && equal_functions (cand1->fn, cand2->fn))
6188 return 1;
6190 tweak:
6192 /* Extension: If the worst conversion for one candidate is worse than the
6193 worst conversion for the other, take the first. */
6194 if (!pedantic)
6196 conversion_rank rank1 = cr_identity, rank2 = cr_identity;
6197 struct z_candidate *w = 0, *l = 0;
6199 for (i = 0; i < len; ++i)
6201 if (CONVERSION_RANK (cand1->convs[i+off1]) > rank1)
6202 rank1 = CONVERSION_RANK (cand1->convs[i+off1]);
6203 if (CONVERSION_RANK (cand2->convs[i + off2]) > rank2)
6204 rank2 = CONVERSION_RANK (cand2->convs[i + off2]);
6206 if (rank1 < rank2)
6207 winner = 1, w = cand1, l = cand2;
6208 if (rank1 > rank2)
6209 winner = -1, w = cand2, l = cand1;
6210 if (winner)
6212 if (warn)
6214 pedwarn ("\
6215 ISO C++ says that these are ambiguous, even \
6216 though the worst conversion for the first is better than \
6217 the worst conversion for the second:");
6218 print_z_candidate (_("candidate 1:"), w);
6219 print_z_candidate (_("candidate 2:"), l);
6221 else
6222 add_warning (w, l);
6223 return winner;
6227 gcc_assert (!winner);
6228 return 0;
6231 /* Given a list of candidates for overloading, find the best one, if any.
6232 This algorithm has a worst case of O(2n) (winner is last), and a best
6233 case of O(n/2) (totally ambiguous); much better than a sorting
6234 algorithm. */
6236 static struct z_candidate *
6237 tourney (struct z_candidate *candidates)
6239 struct z_candidate *champ = candidates, *challenger;
6240 int fate;
6241 int champ_compared_to_predecessor = 0;
6243 /* Walk through the list once, comparing each current champ to the next
6244 candidate, knocking out a candidate or two with each comparison. */
6246 for (challenger = champ->next; challenger; )
6248 fate = joust (champ, challenger, 0);
6249 if (fate == 1)
6250 challenger = challenger->next;
6251 else
6253 if (fate == 0)
6255 champ = challenger->next;
6256 if (champ == 0)
6257 return 0;
6258 champ_compared_to_predecessor = 0;
6260 else
6262 champ = challenger;
6263 champ_compared_to_predecessor = 1;
6266 challenger = champ->next;
6270 /* Make sure the champ is better than all the candidates it hasn't yet
6271 been compared to. */
6273 for (challenger = candidates;
6274 challenger != champ
6275 && !(champ_compared_to_predecessor && challenger->next == champ);
6276 challenger = challenger->next)
6278 fate = joust (champ, challenger, 0);
6279 if (fate != 1)
6280 return 0;
6283 return champ;
6286 /* Returns nonzero if things of type FROM can be converted to TO. */
6288 bool
6289 can_convert (tree to, tree from)
6291 return can_convert_arg (to, from, NULL_TREE, LOOKUP_NORMAL);
6294 /* Returns nonzero if ARG (of type FROM) can be converted to TO. */
6296 bool
6297 can_convert_arg (tree to, tree from, tree arg, int flags)
6299 conversion *t;
6300 void *p;
6301 bool ok_p;
6303 /* Get the high-water mark for the CONVERSION_OBSTACK. */
6304 p = conversion_obstack_alloc (0);
6306 t = implicit_conversion (to, from, arg, /*c_cast_p=*/false,
6307 flags);
6308 ok_p = (t && !t->bad_p);
6310 /* Free all the conversions we allocated. */
6311 obstack_free (&conversion_obstack, p);
6313 return ok_p;
6316 /* Like can_convert_arg, but allows dubious conversions as well. */
6318 bool
6319 can_convert_arg_bad (tree to, tree from, tree arg)
6321 conversion *t;
6322 void *p;
6324 /* Get the high-water mark for the CONVERSION_OBSTACK. */
6325 p = conversion_obstack_alloc (0);
6326 /* Try to perform the conversion. */
6327 t = implicit_conversion (to, from, arg, /*c_cast_p=*/false,
6328 LOOKUP_NORMAL);
6329 /* Free all the conversions we allocated. */
6330 obstack_free (&conversion_obstack, p);
6332 return t != NULL;
6335 /* Convert EXPR to TYPE. Return the converted expression.
6337 Note that we allow bad conversions here because by the time we get to
6338 this point we are committed to doing the conversion. If we end up
6339 doing a bad conversion, convert_like will complain. */
6341 tree
6342 perform_implicit_conversion (tree type, tree expr)
6344 conversion *conv;
6345 void *p;
6347 if (error_operand_p (expr))
6348 return error_mark_node;
6350 /* Get the high-water mark for the CONVERSION_OBSTACK. */
6351 p = conversion_obstack_alloc (0);
6353 conv = implicit_conversion (type, TREE_TYPE (expr), expr,
6354 /*c_cast_p=*/false,
6355 LOOKUP_NORMAL);
6356 if (!conv)
6358 error ("could not convert %qE to %qT", expr, type);
6359 expr = error_mark_node;
6361 else
6362 expr = convert_like (conv, expr);
6364 /* Free all the conversions we allocated. */
6365 obstack_free (&conversion_obstack, p);
6367 return expr;
6370 /* Convert EXPR to TYPE (as a direct-initialization) if that is
6371 permitted. If the conversion is valid, the converted expression is
6372 returned. Otherwise, NULL_TREE is returned, except in the case
6373 that TYPE is a class type; in that case, an error is issued. If
6374 C_CAST_P is true, then this direction initialization is taking
6375 place as part of a static_cast being attempted as part of a C-style
6376 cast. */
6378 tree
6379 perform_direct_initialization_if_possible (tree type,
6380 tree expr,
6381 bool c_cast_p)
6383 conversion *conv;
6384 void *p;
6386 if (type == error_mark_node || error_operand_p (expr))
6387 return error_mark_node;
6388 /* [dcl.init]
6390 If the destination type is a (possibly cv-qualified) class type:
6392 -- If the initialization is direct-initialization ...,
6393 constructors are considered. ... If no constructor applies, or
6394 the overload resolution is ambiguous, the initialization is
6395 ill-formed. */
6396 if (CLASS_TYPE_P (type))
6398 expr = build_special_member_call (NULL_TREE, complete_ctor_identifier,
6399 build_tree_list (NULL_TREE, expr),
6400 type, LOOKUP_NORMAL);
6401 return build_cplus_new (type, expr);
6404 /* Get the high-water mark for the CONVERSION_OBSTACK. */
6405 p = conversion_obstack_alloc (0);
6407 conv = implicit_conversion (type, TREE_TYPE (expr), expr,
6408 c_cast_p,
6409 LOOKUP_NORMAL);
6410 if (!conv || conv->bad_p)
6411 expr = NULL_TREE;
6412 else
6413 expr = convert_like_real (conv, expr, NULL_TREE, 0, 0,
6414 /*issue_conversion_warnings=*/false,
6415 c_cast_p);
6417 /* Free all the conversions we allocated. */
6418 obstack_free (&conversion_obstack, p);
6420 return expr;
6423 /* DECL is a VAR_DECL whose type is a REFERENCE_TYPE. The reference
6424 is being bound to a temporary. Create and return a new VAR_DECL
6425 with the indicated TYPE; this variable will store the value to
6426 which the reference is bound. */
6428 tree
6429 make_temporary_var_for_ref_to_temp (tree decl, tree type)
6431 tree var;
6433 /* Create the variable. */
6434 var = build_decl (VAR_DECL, NULL_TREE, type);
6435 DECL_ARTIFICIAL (var) = 1;
6436 DECL_IGNORED_P (var) = 1;
6437 TREE_USED (var) = 1;
6439 /* Register the variable. */
6440 if (TREE_STATIC (decl))
6442 /* Namespace-scope or local static; give it a mangled name. */
6443 tree name;
6445 TREE_STATIC (var) = 1;
6446 name = mangle_ref_init_variable (decl);
6447 DECL_NAME (var) = name;
6448 SET_DECL_ASSEMBLER_NAME (var, name);
6449 var = pushdecl_top_level (var);
6451 else
6453 /* Create a new cleanup level if necessary. */
6454 maybe_push_cleanup_level (type);
6455 /* Don't push unnamed temps. Do set DECL_CONTEXT, though. */
6456 DECL_CONTEXT (var) = current_function_decl;
6459 return var;
6462 /* Convert EXPR to the indicated reference TYPE, in a way suitable for
6463 initializing a variable of that TYPE. If DECL is non-NULL, it is
6464 the VAR_DECL being initialized with the EXPR. (In that case, the
6465 type of DECL will be TYPE.) If DECL is non-NULL, then CLEANUP must
6466 also be non-NULL, and with *CLEANUP initialized to NULL. Upon
6467 return, if *CLEANUP is no longer NULL, it will be an expression
6468 that should be pushed as a cleanup after the returned expression
6469 is used to initialize DECL.
6471 Return the converted expression. */
6473 tree
6474 initialize_reference (tree type, tree expr, tree decl, tree *cleanup)
6476 conversion *conv;
6477 void *p;
6479 if (type == error_mark_node || error_operand_p (expr))
6480 return error_mark_node;
6482 /* Get the high-water mark for the CONVERSION_OBSTACK. */
6483 p = conversion_obstack_alloc (0);
6485 conv = reference_binding (type, TREE_TYPE (expr), expr, LOOKUP_NORMAL);
6486 if (!conv || conv->bad_p)
6488 if (!(TYPE_QUALS (TREE_TYPE (type)) & TYPE_QUAL_CONST)
6489 && !real_lvalue_p (expr))
6490 error ("invalid initialization of non-const reference of "
6491 "type %qT from a temporary of type %qT",
6492 type, TREE_TYPE (expr));
6493 else
6494 error ("invalid initialization of reference of type "
6495 "%qT from expression of type %qT", type,
6496 TREE_TYPE (expr));
6497 return error_mark_node;
6500 /* If DECL is non-NULL, then this special rule applies:
6502 [class.temporary]
6504 The temporary to which the reference is bound or the temporary
6505 that is the complete object to which the reference is bound
6506 persists for the lifetime of the reference.
6508 The temporaries created during the evaluation of the expression
6509 initializing the reference, except the temporary to which the
6510 reference is bound, are destroyed at the end of the
6511 full-expression in which they are created.
6513 In that case, we store the converted expression into a new
6514 VAR_DECL in a new scope.
6516 However, we want to be careful not to create temporaries when
6517 they are not required. For example, given:
6519 struct B {};
6520 struct D : public B {};
6521 D f();
6522 const B& b = f();
6524 there is no need to copy the return value from "f"; we can just
6525 extend its lifetime. Similarly, given:
6527 struct S {};
6528 struct T { operator S(); };
6529 T t;
6530 const S& s = t;
6532 we can extend the lifetime of the return value of the conversion
6533 operator. */
6534 gcc_assert (conv->kind == ck_ref_bind);
6535 if (decl)
6537 tree var;
6538 tree base_conv_type;
6540 /* Skip over the REF_BIND. */
6541 conv = conv->u.next;
6542 /* If the next conversion is a BASE_CONV, skip that too -- but
6543 remember that the conversion was required. */
6544 if (conv->kind == ck_base)
6546 if (conv->check_copy_constructor_p)
6547 check_constructor_callable (TREE_TYPE (expr), expr);
6548 base_conv_type = conv->type;
6549 conv = conv->u.next;
6551 else
6552 base_conv_type = NULL_TREE;
6553 /* Perform the remainder of the conversion. */
6554 expr = convert_like_real (conv, expr,
6555 /*fn=*/NULL_TREE, /*argnum=*/0,
6556 /*inner=*/-1,
6557 /*issue_conversion_warnings=*/true,
6558 /*c_cast_p=*/false);
6559 if (error_operand_p (expr))
6560 expr = error_mark_node;
6561 else
6563 if (!real_lvalue_p (expr))
6565 tree init;
6566 tree type;
6568 /* Create the temporary variable. */
6569 type = TREE_TYPE (expr);
6570 var = make_temporary_var_for_ref_to_temp (decl, type);
6571 layout_decl (var, 0);
6572 /* If the rvalue is the result of a function call it will be
6573 a TARGET_EXPR. If it is some other construct (such as a
6574 member access expression where the underlying object is
6575 itself the result of a function call), turn it into a
6576 TARGET_EXPR here. It is important that EXPR be a
6577 TARGET_EXPR below since otherwise the INIT_EXPR will
6578 attempt to make a bitwise copy of EXPR to initialize
6579 VAR. */
6580 if (TREE_CODE (expr) != TARGET_EXPR)
6581 expr = get_target_expr (expr);
6582 /* Create the INIT_EXPR that will initialize the temporary
6583 variable. */
6584 init = build2 (INIT_EXPR, type, var, expr);
6585 if (at_function_scope_p ())
6587 add_decl_expr (var);
6588 *cleanup = cxx_maybe_build_cleanup (var);
6590 /* We must be careful to destroy the temporary only
6591 after its initialization has taken place. If the
6592 initialization throws an exception, then the
6593 destructor should not be run. We cannot simply
6594 transform INIT into something like:
6596 (INIT, ({ CLEANUP_STMT; }))
6598 because emit_local_var always treats the
6599 initializer as a full-expression. Thus, the
6600 destructor would run too early; it would run at the
6601 end of initializing the reference variable, rather
6602 than at the end of the block enclosing the
6603 reference variable.
6605 The solution is to pass back a cleanup expression
6606 which the caller is responsible for attaching to
6607 the statement tree. */
6609 else
6611 rest_of_decl_compilation (var, /*toplev=*/1, at_eof);
6612 if (TYPE_HAS_NONTRIVIAL_DESTRUCTOR (type))
6613 static_aggregates = tree_cons (NULL_TREE, var,
6614 static_aggregates);
6616 /* Use its address to initialize the reference variable. */
6617 expr = build_address (var);
6618 if (base_conv_type)
6619 expr = convert_to_base (expr,
6620 build_pointer_type (base_conv_type),
6621 /*check_access=*/true,
6622 /*nonnull=*/true);
6623 expr = build2 (COMPOUND_EXPR, TREE_TYPE (expr), init, expr);
6625 else
6626 /* Take the address of EXPR. */
6627 expr = build_unary_op (ADDR_EXPR, expr, 0);
6628 /* If a BASE_CONV was required, perform it now. */
6629 if (base_conv_type)
6630 expr = (perform_implicit_conversion
6631 (build_pointer_type (base_conv_type), expr));
6632 expr = build_nop (type, expr);
6635 else
6636 /* Perform the conversion. */
6637 expr = convert_like (conv, expr);
6639 /* Free all the conversions we allocated. */
6640 obstack_free (&conversion_obstack, p);
6642 return expr;
6645 #include "gt-cp-call.h"