Merged with mainline at revision 128810.
[official-gcc.git] / gcc / cp / call.c
blob645eeb26488700494731cb28fd189264dca29090
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, 2006, 2007
4 Free Software Foundation, Inc.
5 Contributed by Michael Tiemann (tiemann@cygnus.com) and
6 modified by Brendan Kehoe (brendan@cygnus.com).
8 This file is part of GCC.
10 GCC is free software; you can redistribute it and/or modify
11 it under the terms of the GNU General Public License as published by
12 the Free Software Foundation; either version 3, or (at your option)
13 any later version.
15 GCC is distributed in the hope that it will be useful,
16 but WITHOUT ANY WARRANTY; without even the implied warranty of
17 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 GNU General Public License for more details.
20 You should have received a copy of the GNU General Public License
21 along with GCC; see the file COPYING3. If not see
22 <http://www.gnu.org/licenses/>. */
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"
42 #include "langhooks.h"
44 /* The various kinds of conversion. */
46 typedef enum conversion_kind {
47 ck_identity,
48 ck_lvalue,
49 ck_qual,
50 ck_std,
51 ck_ptr,
52 ck_pmem,
53 ck_base,
54 ck_ref_bind,
55 ck_user,
56 ck_ambig,
57 ck_rvalue
58 } conversion_kind;
60 /* The rank of the conversion. Order of the enumerals matters; better
61 conversions should come earlier in the list. */
63 typedef enum conversion_rank {
64 cr_identity,
65 cr_exact,
66 cr_promotion,
67 cr_std,
68 cr_pbool,
69 cr_user,
70 cr_ellipsis,
71 cr_bad
72 } conversion_rank;
74 /* An implicit conversion sequence, in the sense of [over.best.ics].
75 The first conversion to be performed is at the end of the chain.
76 That conversion is always a cr_identity conversion. */
78 typedef struct conversion conversion;
79 struct conversion {
80 /* The kind of conversion represented by this step. */
81 conversion_kind kind;
82 /* The rank of this conversion. */
83 conversion_rank rank;
84 BOOL_BITFIELD user_conv_p : 1;
85 BOOL_BITFIELD ellipsis_p : 1;
86 BOOL_BITFIELD this_p : 1;
87 BOOL_BITFIELD bad_p : 1;
88 /* If KIND is ck_ref_bind ck_base_conv, true to indicate that a
89 temporary should be created to hold the result of the
90 conversion. */
91 BOOL_BITFIELD need_temporary_p : 1;
92 /* If KIND is ck_identity or ck_base_conv, true to indicate that the
93 copy constructor must be accessible, even though it is not being
94 used. */
95 BOOL_BITFIELD check_copy_constructor_p : 1;
96 /* If KIND is ck_ptr or ck_pmem, true to indicate that a conversion
97 from a pointer-to-derived to pointer-to-base is being performed. */
98 BOOL_BITFIELD base_p : 1;
99 /* If KIND is ck_ref_bind, true when either an lvalue reference is
100 being bound to an lvalue expression or an rvalue reference is
101 being bound to an rvalue expression. */
102 BOOL_BITFIELD rvaluedness_matches_p: 1;
103 /* The type of the expression resulting from the conversion. */
104 tree type;
105 union {
106 /* The next conversion in the chain. Since the conversions are
107 arranged from outermost to innermost, the NEXT conversion will
108 actually be performed before this conversion. This variant is
109 used only when KIND is neither ck_identity nor ck_ambig. */
110 conversion *next;
111 /* The expression at the beginning of the conversion chain. This
112 variant is used only if KIND is ck_identity or ck_ambig. */
113 tree expr;
114 } u;
115 /* The function candidate corresponding to this conversion
116 sequence. This field is only used if KIND is ck_user. */
117 struct z_candidate *cand;
120 #define CONVERSION_RANK(NODE) \
121 ((NODE)->bad_p ? cr_bad \
122 : (NODE)->ellipsis_p ? cr_ellipsis \
123 : (NODE)->user_conv_p ? cr_user \
124 : (NODE)->rank)
126 static struct obstack conversion_obstack;
127 static bool conversion_obstack_initialized;
129 static struct z_candidate * tourney (struct z_candidate *);
130 static int equal_functions (tree, tree);
131 static int joust (struct z_candidate *, struct z_candidate *, bool);
132 static int compare_ics (conversion *, conversion *);
133 static tree build_over_call (struct z_candidate *, int);
134 static tree build_java_interface_fn_ref (tree, tree);
135 #define convert_like(CONV, EXPR) \
136 convert_like_real ((CONV), (EXPR), NULL_TREE, 0, 0, \
137 /*issue_conversion_warnings=*/true, \
138 /*c_cast_p=*/false)
139 #define convert_like_with_context(CONV, EXPR, FN, ARGNO) \
140 convert_like_real ((CONV), (EXPR), (FN), (ARGNO), 0, \
141 /*issue_conversion_warnings=*/true, \
142 /*c_cast_p=*/false)
143 static tree convert_like_real (conversion *, tree, tree, int, int, bool,
144 bool);
145 static void op_error (enum tree_code, enum tree_code, tree, tree,
146 tree, const char *);
147 static tree build_object_call (tree, tree);
148 static tree resolve_args (tree);
149 static struct z_candidate *build_user_type_conversion_1 (tree, tree, int);
150 static void print_z_candidate (const char *, struct z_candidate *);
151 static void print_z_candidates (struct z_candidate *);
152 static tree build_this (tree);
153 static struct z_candidate *splice_viable (struct z_candidate *, bool, bool *);
154 static bool any_strictly_viable (struct z_candidate *);
155 static struct z_candidate *add_template_candidate
156 (struct z_candidate **, tree, tree, tree, tree, tree,
157 tree, tree, int, unification_kind_t);
158 static struct z_candidate *add_template_candidate_real
159 (struct z_candidate **, tree, tree, tree, tree, tree,
160 tree, tree, int, tree, unification_kind_t);
161 static struct z_candidate *add_template_conv_candidate
162 (struct z_candidate **, tree, tree, tree, tree, tree, tree);
163 static void add_builtin_candidates
164 (struct z_candidate **, enum tree_code, enum tree_code,
165 tree, tree *, int);
166 static void add_builtin_candidate
167 (struct z_candidate **, enum tree_code, enum tree_code,
168 tree, tree, tree, tree *, tree *, int);
169 static bool is_complete (tree);
170 static void build_builtin_candidate
171 (struct z_candidate **, tree, tree, tree, tree *, tree *,
172 int);
173 static struct z_candidate *add_conv_candidate
174 (struct z_candidate **, tree, tree, tree, tree, tree);
175 static struct z_candidate *add_function_candidate
176 (struct z_candidate **, tree, tree, tree, tree, tree, int);
177 static conversion *implicit_conversion (tree, tree, tree, bool, int);
178 static conversion *standard_conversion (tree, tree, tree, bool, int);
179 static conversion *reference_binding (tree, tree, tree, bool, int);
180 static conversion *build_conv (conversion_kind, tree, conversion *);
181 static bool is_subseq (conversion *, conversion *);
182 static conversion *maybe_handle_ref_bind (conversion **);
183 static void maybe_handle_implicit_object (conversion **);
184 static struct z_candidate *add_candidate
185 (struct z_candidate **, tree, tree, size_t,
186 conversion **, tree, tree, int);
187 static tree source_type (conversion *);
188 static void add_warning (struct z_candidate *, struct z_candidate *);
189 static bool reference_related_p (tree, tree);
190 static bool reference_compatible_p (tree, tree);
191 static conversion *convert_class_to_reference (tree, tree, tree);
192 static conversion *direct_reference_binding (tree, conversion *);
193 static bool promoted_arithmetic_type_p (tree);
194 static conversion *conditional_conversion (tree, tree);
195 static char *name_as_c_string (tree, tree, bool *);
196 static tree call_builtin_trap (void);
197 static tree prep_operand (tree);
198 static void add_candidates (tree, tree, tree, bool, tree, tree,
199 int, struct z_candidate **);
200 static conversion *merge_conversion_sequences (conversion *, conversion *);
201 static bool magic_varargs_p (tree);
202 typedef void (*diagnostic_fn_t) (const char *, ...) ATTRIBUTE_GCC_CXXDIAG(1,2);
203 static tree build_temp (tree, tree, int, diagnostic_fn_t *);
204 static void check_constructor_callable (tree, tree);
206 /* Returns nonzero iff the destructor name specified in NAME matches BASETYPE.
207 NAME can take many forms... */
209 bool
210 check_dtor_name (tree basetype, tree name)
212 /* Just accept something we've already complained about. */
213 if (name == error_mark_node)
214 return true;
216 if (TREE_CODE (name) == TYPE_DECL)
217 name = TREE_TYPE (name);
218 else if (TYPE_P (name))
219 /* OK */;
220 else if (TREE_CODE (name) == IDENTIFIER_NODE)
222 if ((IS_AGGR_TYPE (basetype) && name == constructor_name (basetype))
223 || (TREE_CODE (basetype) == ENUMERAL_TYPE
224 && name == TYPE_IDENTIFIER (basetype)))
225 return true;
226 else
227 name = get_type_value (name);
229 else
231 /* In the case of:
233 template <class T> struct S { ~S(); };
234 int i;
235 i.~S();
237 NAME will be a class template. */
238 gcc_assert (DECL_CLASS_TEMPLATE_P (name));
239 return false;
242 if (!name)
243 return false;
244 return same_type_p (TYPE_MAIN_VARIANT (basetype), TYPE_MAIN_VARIANT (name));
247 /* We want the address of a function or method. We avoid creating a
248 pointer-to-member function. */
250 tree
251 build_addr_func (tree function)
253 tree type = TREE_TYPE (function);
255 /* We have to do these by hand to avoid real pointer to member
256 functions. */
257 if (TREE_CODE (type) == METHOD_TYPE)
259 if (TREE_CODE (function) == OFFSET_REF)
261 tree object = build_address (TREE_OPERAND (function, 0));
262 return get_member_function_from_ptrfunc (&object,
263 TREE_OPERAND (function, 1));
265 function = build_address (function);
267 else
268 function = decay_conversion (function);
270 return function;
273 /* Build a CALL_EXPR, we can handle FUNCTION_TYPEs, METHOD_TYPEs, or
274 POINTER_TYPE to those. Note, pointer to member function types
275 (TYPE_PTRMEMFUNC_P) must be handled by our callers. There are
276 two variants. build_call_a is the primitive taking an array of
277 arguments, while build_call_n is a wrapper that handles varargs. */
279 tree
280 build_call_n (tree function, int n, ...)
282 if (n == 0)
283 return build_call_a (function, 0, NULL);
284 else
286 tree *argarray = (tree *) alloca (n * sizeof (tree));
287 va_list ap;
288 int i;
290 va_start (ap, n);
291 for (i = 0; i < n; i++)
292 argarray[i] = va_arg (ap, tree);
293 va_end (ap);
294 return build_call_a (function, n, argarray);
298 tree
299 build_call_a (tree function, int n, tree *argarray)
301 int is_constructor = 0;
302 int nothrow;
303 tree decl;
304 tree result_type;
305 tree fntype;
306 int i;
308 function = build_addr_func (function);
310 gcc_assert (TYPE_PTR_P (TREE_TYPE (function)));
311 fntype = TREE_TYPE (TREE_TYPE (function));
312 gcc_assert (TREE_CODE (fntype) == FUNCTION_TYPE
313 || TREE_CODE (fntype) == METHOD_TYPE);
314 result_type = TREE_TYPE (fntype);
316 if (TREE_CODE (function) == ADDR_EXPR
317 && TREE_CODE (TREE_OPERAND (function, 0)) == FUNCTION_DECL)
319 decl = TREE_OPERAND (function, 0);
320 if (!TREE_USED (decl))
322 /* We invoke build_call directly for several library
323 functions. These may have been declared normally if
324 we're building libgcc, so we can't just check
325 DECL_ARTIFICIAL. */
326 gcc_assert (DECL_ARTIFICIAL (decl)
327 || !strncmp (IDENTIFIER_POINTER (DECL_NAME (decl)),
328 "__", 2));
329 mark_used (decl);
332 else
333 decl = NULL_TREE;
335 /* We check both the decl and the type; a function may be known not to
336 throw without being declared throw(). */
337 nothrow = ((decl && TREE_NOTHROW (decl))
338 || TYPE_NOTHROW_P (TREE_TYPE (TREE_TYPE (function))));
340 if (decl && TREE_THIS_VOLATILE (decl) && cfun)
341 current_function_returns_abnormally = 1;
343 if (decl && TREE_DEPRECATED (decl))
344 warn_deprecated_use (decl);
345 require_complete_eh_spec_types (fntype, decl);
347 if (decl && DECL_CONSTRUCTOR_P (decl))
348 is_constructor = 1;
350 /* Don't pass empty class objects by value. This is useful
351 for tags in STL, which are used to control overload resolution.
352 We don't need to handle other cases of copying empty classes. */
353 if (! decl || ! DECL_BUILT_IN (decl))
354 for (i = 0; i < n; i++)
355 if (is_empty_class (TREE_TYPE (argarray[i]))
356 && ! TREE_ADDRESSABLE (TREE_TYPE (argarray[i])))
358 tree t = build0 (EMPTY_CLASS_EXPR, TREE_TYPE (argarray[i]));
359 argarray[i] = build2 (COMPOUND_EXPR, TREE_TYPE (t),
360 argarray[i], t);
363 function = build_call_array (result_type, function, n, argarray);
364 TREE_HAS_CONSTRUCTOR (function) = is_constructor;
365 TREE_NOTHROW (function) = nothrow;
367 return function;
370 /* Build something of the form ptr->method (args)
371 or object.method (args). This can also build
372 calls to constructors, and find friends.
374 Member functions always take their class variable
375 as a pointer.
377 INSTANCE is a class instance.
379 NAME is the name of the method desired, usually an IDENTIFIER_NODE.
381 PARMS help to figure out what that NAME really refers to.
383 BASETYPE_PATH, if non-NULL, contains a chain from the type of INSTANCE
384 down to the real instance type to use for access checking. We need this
385 information to get protected accesses correct.
387 FLAGS is the logical disjunction of zero or more LOOKUP_
388 flags. See cp-tree.h for more info.
390 If this is all OK, calls build_function_call with the resolved
391 member function.
393 This function must also handle being called to perform
394 initialization, promotion/coercion of arguments, and
395 instantiation of default parameters.
397 Note that NAME may refer to an instance variable name. If
398 `operator()()' is defined for the type of that field, then we return
399 that result. */
401 /* New overloading code. */
403 typedef struct z_candidate z_candidate;
405 typedef struct candidate_warning candidate_warning;
406 struct candidate_warning {
407 z_candidate *loser;
408 candidate_warning *next;
411 struct z_candidate {
412 /* The FUNCTION_DECL that will be called if this candidate is
413 selected by overload resolution. */
414 tree fn;
415 /* The arguments to use when calling this function. */
416 tree args;
417 /* The implicit conversion sequences for each of the arguments to
418 FN. */
419 conversion **convs;
420 /* The number of implicit conversion sequences. */
421 size_t num_convs;
422 /* If FN is a user-defined conversion, the standard conversion
423 sequence from the type returned by FN to the desired destination
424 type. */
425 conversion *second_conv;
426 int viable;
427 /* If FN is a member function, the binfo indicating the path used to
428 qualify the name of FN at the call site. This path is used to
429 determine whether or not FN is accessible if it is selected by
430 overload resolution. The DECL_CONTEXT of FN will always be a
431 (possibly improper) base of this binfo. */
432 tree access_path;
433 /* If FN is a non-static member function, the binfo indicating the
434 subobject to which the `this' pointer should be converted if FN
435 is selected by overload resolution. The type pointed to the by
436 the `this' pointer must correspond to the most derived class
437 indicated by the CONVERSION_PATH. */
438 tree conversion_path;
439 tree template_decl;
440 candidate_warning *warnings;
441 z_candidate *next;
444 /* Returns true iff T is a null pointer constant in the sense of
445 [conv.ptr]. */
447 bool
448 null_ptr_cst_p (tree t)
450 /* [conv.ptr]
452 A null pointer constant is an integral constant expression
453 (_expr.const_) rvalue of integer type that evaluates to zero. */
454 t = integral_constant_value (t);
455 if (t == null_node)
456 return true;
457 if (CP_INTEGRAL_TYPE_P (TREE_TYPE (t)) && integer_zerop (t))
459 STRIP_NOPS (t);
460 if (!TREE_OVERFLOW (t))
461 return true;
463 return false;
466 /* Returns nonzero if PARMLIST consists of only default parms and/or
467 ellipsis. */
469 bool
470 sufficient_parms_p (const_tree parmlist)
472 for (; parmlist && parmlist != void_list_node;
473 parmlist = TREE_CHAIN (parmlist))
474 if (!TREE_PURPOSE (parmlist))
475 return false;
476 return true;
479 /* Allocate N bytes of memory from the conversion obstack. The memory
480 is zeroed before being returned. */
482 static void *
483 conversion_obstack_alloc (size_t n)
485 void *p;
486 if (!conversion_obstack_initialized)
488 gcc_obstack_init (&conversion_obstack);
489 conversion_obstack_initialized = true;
491 p = obstack_alloc (&conversion_obstack, n);
492 memset (p, 0, n);
493 return p;
496 /* Dynamically allocate a conversion. */
498 static conversion *
499 alloc_conversion (conversion_kind kind)
501 conversion *c;
502 c = (conversion *) conversion_obstack_alloc (sizeof (conversion));
503 c->kind = kind;
504 return c;
507 #ifdef ENABLE_CHECKING
509 /* Make sure that all memory on the conversion obstack has been
510 freed. */
512 void
513 validate_conversion_obstack (void)
515 if (conversion_obstack_initialized)
516 gcc_assert ((obstack_next_free (&conversion_obstack)
517 == obstack_base (&conversion_obstack)));
520 #endif /* ENABLE_CHECKING */
522 /* Dynamically allocate an array of N conversions. */
524 static conversion **
525 alloc_conversions (size_t n)
527 return (conversion **) conversion_obstack_alloc (n * sizeof (conversion *));
530 static conversion *
531 build_conv (conversion_kind code, tree type, conversion *from)
533 conversion *t;
534 conversion_rank rank = CONVERSION_RANK (from);
536 /* We can't use buildl1 here because CODE could be USER_CONV, which
537 takes two arguments. In that case, the caller is responsible for
538 filling in the second argument. */
539 t = alloc_conversion (code);
540 t->type = type;
541 t->u.next = from;
543 switch (code)
545 case ck_ptr:
546 case ck_pmem:
547 case ck_base:
548 case ck_std:
549 if (rank < cr_std)
550 rank = cr_std;
551 break;
553 case ck_qual:
554 if (rank < cr_exact)
555 rank = cr_exact;
556 break;
558 default:
559 break;
561 t->rank = rank;
562 t->user_conv_p = (code == ck_user || from->user_conv_p);
563 t->bad_p = from->bad_p;
564 t->base_p = false;
565 return t;
568 /* Build a representation of the identity conversion from EXPR to
569 itself. The TYPE should match the type of EXPR, if EXPR is non-NULL. */
571 static conversion *
572 build_identity_conv (tree type, tree expr)
574 conversion *c;
576 c = alloc_conversion (ck_identity);
577 c->type = type;
578 c->u.expr = expr;
580 return c;
583 /* Converting from EXPR to TYPE was ambiguous in the sense that there
584 were multiple user-defined conversions to accomplish the job.
585 Build a conversion that indicates that ambiguity. */
587 static conversion *
588 build_ambiguous_conv (tree type, tree expr)
590 conversion *c;
592 c = alloc_conversion (ck_ambig);
593 c->type = type;
594 c->u.expr = expr;
596 return c;
599 tree
600 strip_top_quals (tree t)
602 if (TREE_CODE (t) == ARRAY_TYPE)
603 return t;
604 return cp_build_qualified_type (t, 0);
607 /* Returns the standard conversion path (see [conv]) from type FROM to type
608 TO, if any. For proper handling of null pointer constants, you must
609 also pass the expression EXPR to convert from. If C_CAST_P is true,
610 this conversion is coming from a C-style cast. */
612 static conversion *
613 standard_conversion (tree to, tree from, tree expr, bool c_cast_p,
614 int flags)
616 enum tree_code fcode, tcode;
617 conversion *conv;
618 bool fromref = false;
620 to = non_reference (to);
621 if (TREE_CODE (from) == REFERENCE_TYPE)
623 fromref = true;
624 from = TREE_TYPE (from);
626 to = strip_top_quals (to);
627 from = strip_top_quals (from);
629 if ((TYPE_PTRFN_P (to) || TYPE_PTRMEMFUNC_P (to))
630 && expr && type_unknown_p (expr))
632 expr = instantiate_type (to, expr, tf_conv);
633 if (expr == error_mark_node)
634 return NULL;
635 from = TREE_TYPE (expr);
638 fcode = TREE_CODE (from);
639 tcode = TREE_CODE (to);
641 conv = build_identity_conv (from, expr);
642 if (fcode == FUNCTION_TYPE || fcode == ARRAY_TYPE)
644 from = type_decays_to (from);
645 fcode = TREE_CODE (from);
646 conv = build_conv (ck_lvalue, from, conv);
648 else if (fromref || (expr && lvalue_p (expr)))
650 if (expr)
652 tree bitfield_type;
653 bitfield_type = is_bitfield_expr_with_lowered_type (expr);
654 if (bitfield_type)
656 from = strip_top_quals (bitfield_type);
657 fcode = TREE_CODE (from);
660 conv = build_conv (ck_rvalue, from, conv);
663 /* Allow conversion between `__complex__' data types. */
664 if (tcode == COMPLEX_TYPE && fcode == COMPLEX_TYPE)
666 /* The standard conversion sequence to convert FROM to TO is
667 the standard conversion sequence to perform componentwise
668 conversion. */
669 conversion *part_conv = standard_conversion
670 (TREE_TYPE (to), TREE_TYPE (from), NULL_TREE, c_cast_p, flags);
672 if (part_conv)
674 conv = build_conv (part_conv->kind, to, conv);
675 conv->rank = part_conv->rank;
677 else
678 conv = NULL;
680 return conv;
683 if (same_type_p (from, to))
684 return conv;
686 if ((tcode == POINTER_TYPE || TYPE_PTR_TO_MEMBER_P (to))
687 && expr && null_ptr_cst_p (expr))
688 conv = build_conv (ck_std, to, conv);
689 else if ((tcode == INTEGER_TYPE && fcode == POINTER_TYPE)
690 || (tcode == POINTER_TYPE && fcode == INTEGER_TYPE))
692 /* For backwards brain damage compatibility, allow interconversion of
693 pointers and integers with a pedwarn. */
694 conv = build_conv (ck_std, to, conv);
695 conv->bad_p = true;
697 else if (tcode == ENUMERAL_TYPE && fcode == INTEGER_TYPE)
699 /* For backwards brain damage compatibility, allow interconversion of
700 enums and integers with a pedwarn. */
701 conv = build_conv (ck_std, to, conv);
702 conv->bad_p = true;
704 else if ((tcode == POINTER_TYPE && fcode == POINTER_TYPE)
705 || (TYPE_PTRMEM_P (to) && TYPE_PTRMEM_P (from)))
707 tree to_pointee;
708 tree from_pointee;
710 if (tcode == POINTER_TYPE
711 && same_type_ignoring_top_level_qualifiers_p (TREE_TYPE (from),
712 TREE_TYPE (to)))
714 else if (VOID_TYPE_P (TREE_TYPE (to))
715 && !TYPE_PTRMEM_P (from)
716 && TREE_CODE (TREE_TYPE (from)) != FUNCTION_TYPE)
718 from = build_pointer_type
719 (cp_build_qualified_type (void_type_node,
720 cp_type_quals (TREE_TYPE (from))));
721 conv = build_conv (ck_ptr, from, conv);
723 else if (TYPE_PTRMEM_P (from))
725 tree fbase = TYPE_PTRMEM_CLASS_TYPE (from);
726 tree tbase = TYPE_PTRMEM_CLASS_TYPE (to);
728 if (DERIVED_FROM_P (fbase, tbase)
729 && (same_type_ignoring_top_level_qualifiers_p
730 (TYPE_PTRMEM_POINTED_TO_TYPE (from),
731 TYPE_PTRMEM_POINTED_TO_TYPE (to))))
733 from = build_ptrmem_type (tbase,
734 TYPE_PTRMEM_POINTED_TO_TYPE (from));
735 conv = build_conv (ck_pmem, from, conv);
737 else if (!same_type_p (fbase, tbase))
738 return NULL;
740 else if (IS_AGGR_TYPE (TREE_TYPE (from))
741 && IS_AGGR_TYPE (TREE_TYPE (to))
742 /* [conv.ptr]
744 An rvalue of type "pointer to cv D," where D is a
745 class type, can be converted to an rvalue of type
746 "pointer to cv B," where B is a base class (clause
747 _class.derived_) of D. If B is an inaccessible
748 (clause _class.access_) or ambiguous
749 (_class.member.lookup_) base class of D, a program
750 that necessitates this conversion is ill-formed.
751 Therefore, we use DERIVED_FROM_P, and do not check
752 access or uniqueness. */
753 && DERIVED_FROM_P (TREE_TYPE (to), TREE_TYPE (from))
754 /* If FROM is not yet complete, then we must be parsing
755 the body of a class. We know what's derived from
756 what, but we can't actually perform a
757 derived-to-base conversion. For example, in:
759 struct D : public B {
760 static const int i = sizeof((B*)(D*)0);
763 the D*-to-B* conversion is a reinterpret_cast, not a
764 static_cast. */
765 && COMPLETE_TYPE_P (TREE_TYPE (from)))
767 from =
768 cp_build_qualified_type (TREE_TYPE (to),
769 cp_type_quals (TREE_TYPE (from)));
770 from = build_pointer_type (from);
771 conv = build_conv (ck_ptr, from, conv);
772 conv->base_p = true;
775 if (tcode == POINTER_TYPE)
777 to_pointee = TREE_TYPE (to);
778 from_pointee = TREE_TYPE (from);
780 else
782 to_pointee = TYPE_PTRMEM_POINTED_TO_TYPE (to);
783 from_pointee = TYPE_PTRMEM_POINTED_TO_TYPE (from);
786 if (same_type_p (from, to))
787 /* OK */;
788 else if (c_cast_p && comp_ptr_ttypes_const (to, from))
789 /* In a C-style cast, we ignore CV-qualification because we
790 are allowed to perform a static_cast followed by a
791 const_cast. */
792 conv = build_conv (ck_qual, to, conv);
793 else if (!c_cast_p && comp_ptr_ttypes (to_pointee, from_pointee))
794 conv = build_conv (ck_qual, to, conv);
795 else if (expr && string_conv_p (to, expr, 0))
796 /* converting from string constant to char *. */
797 conv = build_conv (ck_qual, to, conv);
798 else if (ptr_reasonably_similar (to_pointee, from_pointee))
800 conv = build_conv (ck_ptr, to, conv);
801 conv->bad_p = true;
803 else
804 return NULL;
806 from = to;
808 else if (TYPE_PTRMEMFUNC_P (to) && TYPE_PTRMEMFUNC_P (from))
810 tree fromfn = TREE_TYPE (TYPE_PTRMEMFUNC_FN_TYPE (from));
811 tree tofn = TREE_TYPE (TYPE_PTRMEMFUNC_FN_TYPE (to));
812 tree fbase = TREE_TYPE (TREE_VALUE (TYPE_ARG_TYPES (fromfn)));
813 tree tbase = TREE_TYPE (TREE_VALUE (TYPE_ARG_TYPES (tofn)));
815 if (!DERIVED_FROM_P (fbase, tbase)
816 || !same_type_p (TREE_TYPE (fromfn), TREE_TYPE (tofn))
817 || !compparms (TREE_CHAIN (TYPE_ARG_TYPES (fromfn)),
818 TREE_CHAIN (TYPE_ARG_TYPES (tofn)))
819 || cp_type_quals (fbase) != cp_type_quals (tbase))
820 return NULL;
822 from = cp_build_qualified_type (tbase, cp_type_quals (fbase));
823 from = build_method_type_directly (from,
824 TREE_TYPE (fromfn),
825 TREE_CHAIN (TYPE_ARG_TYPES (fromfn)));
826 from = build_ptrmemfunc_type (build_pointer_type (from));
827 conv = build_conv (ck_pmem, from, conv);
828 conv->base_p = true;
830 else if (tcode == BOOLEAN_TYPE)
832 /* [conv.bool]
834 An rvalue of arithmetic, enumeration, pointer, or pointer to
835 member type can be converted to an rvalue of type bool. */
836 if (ARITHMETIC_TYPE_P (from)
837 || fcode == ENUMERAL_TYPE
838 || fcode == POINTER_TYPE
839 || TYPE_PTR_TO_MEMBER_P (from))
841 conv = build_conv (ck_std, to, conv);
842 if (fcode == POINTER_TYPE
843 || TYPE_PTRMEM_P (from)
844 || (TYPE_PTRMEMFUNC_P (from)
845 && conv->rank < cr_pbool))
846 conv->rank = cr_pbool;
847 return conv;
850 return NULL;
852 /* We don't check for ENUMERAL_TYPE here because there are no standard
853 conversions to enum type. */
854 else if (tcode == INTEGER_TYPE || tcode == BOOLEAN_TYPE
855 || tcode == REAL_TYPE)
857 if (! (INTEGRAL_CODE_P (fcode) || fcode == REAL_TYPE))
858 return NULL;
859 conv = build_conv (ck_std, to, conv);
861 /* Give this a better rank if it's a promotion. */
862 if (same_type_p (to, type_promotes_to (from))
863 && conv->u.next->rank <= cr_promotion)
864 conv->rank = cr_promotion;
866 else if (fcode == VECTOR_TYPE && tcode == VECTOR_TYPE
867 && vector_types_convertible_p (from, to, false))
868 return build_conv (ck_std, to, conv);
869 else if (!(flags & LOOKUP_CONSTRUCTOR_CALLABLE)
870 && IS_AGGR_TYPE (to) && IS_AGGR_TYPE (from)
871 && is_properly_derived_from (from, to))
873 if (conv->kind == ck_rvalue)
874 conv = conv->u.next;
875 conv = build_conv (ck_base, to, conv);
876 /* The derived-to-base conversion indicates the initialization
877 of a parameter with base type from an object of a derived
878 type. A temporary object is created to hold the result of
879 the conversion. */
880 conv->need_temporary_p = true;
882 else
883 return NULL;
885 return conv;
888 /* Returns nonzero if T1 is reference-related to T2. */
890 static bool
891 reference_related_p (tree t1, tree t2)
893 t1 = TYPE_MAIN_VARIANT (t1);
894 t2 = TYPE_MAIN_VARIANT (t2);
896 /* [dcl.init.ref]
898 Given types "cv1 T1" and "cv2 T2," "cv1 T1" is reference-related
899 to "cv2 T2" if T1 is the same type as T2, or T1 is a base class
900 of T2. */
901 return (same_type_p (t1, t2)
902 || (CLASS_TYPE_P (t1) && CLASS_TYPE_P (t2)
903 && DERIVED_FROM_P (t1, t2)));
906 /* Returns nonzero if T1 is reference-compatible with T2. */
908 static bool
909 reference_compatible_p (tree t1, tree t2)
911 /* [dcl.init.ref]
913 "cv1 T1" is reference compatible with "cv2 T2" if T1 is
914 reference-related to T2 and cv1 is the same cv-qualification as,
915 or greater cv-qualification than, cv2. */
916 return (reference_related_p (t1, t2)
917 && at_least_as_qualified_p (t1, t2));
920 /* Determine whether or not the EXPR (of class type S) can be
921 converted to T as in [over.match.ref]. */
923 static conversion *
924 convert_class_to_reference (tree reference_type, tree s, tree expr)
926 tree conversions;
927 tree arglist;
928 conversion *conv;
929 tree t;
930 struct z_candidate *candidates;
931 struct z_candidate *cand;
932 bool any_viable_p;
934 conversions = lookup_conversions (s);
935 if (!conversions)
936 return NULL;
938 /* [over.match.ref]
940 Assuming that "cv1 T" is the underlying type of the reference
941 being initialized, and "cv S" is the type of the initializer
942 expression, with S a class type, the candidate functions are
943 selected as follows:
945 --The conversion functions of S and its base classes are
946 considered. Those that are not hidden within S and yield type
947 "reference to cv2 T2", where "cv1 T" is reference-compatible
948 (_dcl.init.ref_) with "cv2 T2", are candidate functions.
950 The argument list has one argument, which is the initializer
951 expression. */
953 candidates = 0;
955 /* Conceptually, we should take the address of EXPR and put it in
956 the argument list. Unfortunately, however, that can result in
957 error messages, which we should not issue now because we are just
958 trying to find a conversion operator. Therefore, we use NULL,
959 cast to the appropriate type. */
960 arglist = build_int_cst (build_pointer_type (s), 0);
961 arglist = build_tree_list (NULL_TREE, arglist);
963 t = TREE_TYPE (reference_type);
965 while (conversions)
967 tree fns = TREE_VALUE (conversions);
969 for (; fns; fns = OVL_NEXT (fns))
971 tree f = OVL_CURRENT (fns);
972 tree t2 = TREE_TYPE (TREE_TYPE (f));
974 cand = NULL;
976 /* If this is a template function, try to get an exact
977 match. */
978 if (TREE_CODE (f) == TEMPLATE_DECL)
980 cand = add_template_candidate (&candidates,
981 f, s,
982 NULL_TREE,
983 arglist,
984 reference_type,
985 TYPE_BINFO (s),
986 TREE_PURPOSE (conversions),
987 LOOKUP_NORMAL,
988 DEDUCE_CONV);
990 if (cand)
992 /* Now, see if the conversion function really returns
993 an lvalue of the appropriate type. From the
994 point of view of unification, simply returning an
995 rvalue of the right type is good enough. */
996 f = cand->fn;
997 t2 = TREE_TYPE (TREE_TYPE (f));
998 if (TREE_CODE (t2) != REFERENCE_TYPE
999 || !reference_compatible_p (t, TREE_TYPE (t2)))
1001 candidates = candidates->next;
1002 cand = NULL;
1006 else if (TREE_CODE (t2) == REFERENCE_TYPE
1007 && reference_compatible_p (t, TREE_TYPE (t2)))
1008 cand = add_function_candidate (&candidates, f, s, arglist,
1009 TYPE_BINFO (s),
1010 TREE_PURPOSE (conversions),
1011 LOOKUP_NORMAL);
1013 if (cand)
1015 conversion *identity_conv;
1016 /* Build a standard conversion sequence indicating the
1017 binding from the reference type returned by the
1018 function to the desired REFERENCE_TYPE. */
1019 identity_conv
1020 = build_identity_conv (TREE_TYPE (TREE_TYPE
1021 (TREE_TYPE (cand->fn))),
1022 NULL_TREE);
1023 cand->second_conv
1024 = (direct_reference_binding
1025 (reference_type, identity_conv));
1026 cand->second_conv->rvaluedness_matches_p
1027 = TYPE_REF_IS_RVALUE (TREE_TYPE (TREE_TYPE (cand->fn)))
1028 == TYPE_REF_IS_RVALUE (reference_type);
1029 cand->second_conv->bad_p |= cand->convs[0]->bad_p;
1032 conversions = TREE_CHAIN (conversions);
1035 candidates = splice_viable (candidates, pedantic, &any_viable_p);
1036 /* If none of the conversion functions worked out, let our caller
1037 know. */
1038 if (!any_viable_p)
1039 return NULL;
1041 cand = tourney (candidates);
1042 if (!cand)
1043 return NULL;
1045 /* Now that we know that this is the function we're going to use fix
1046 the dummy first argument. */
1047 cand->args = tree_cons (NULL_TREE,
1048 build_this (expr),
1049 TREE_CHAIN (cand->args));
1051 /* Build a user-defined conversion sequence representing the
1052 conversion. */
1053 conv = build_conv (ck_user,
1054 TREE_TYPE (TREE_TYPE (cand->fn)),
1055 build_identity_conv (TREE_TYPE (expr), expr));
1056 conv->cand = cand;
1058 /* Merge it with the standard conversion sequence from the
1059 conversion function's return type to the desired type. */
1060 cand->second_conv = merge_conversion_sequences (conv, cand->second_conv);
1062 if (cand->viable == -1)
1063 conv->bad_p = true;
1065 return cand->second_conv;
1068 /* A reference of the indicated TYPE is being bound directly to the
1069 expression represented by the implicit conversion sequence CONV.
1070 Return a conversion sequence for this binding. */
1072 static conversion *
1073 direct_reference_binding (tree type, conversion *conv)
1075 tree t;
1077 gcc_assert (TREE_CODE (type) == REFERENCE_TYPE);
1078 gcc_assert (TREE_CODE (conv->type) != REFERENCE_TYPE);
1080 t = TREE_TYPE (type);
1082 /* [over.ics.rank]
1084 When a parameter of reference type binds directly
1085 (_dcl.init.ref_) to an argument expression, the implicit
1086 conversion sequence is the identity conversion, unless the
1087 argument expression has a type that is a derived class of the
1088 parameter type, in which case the implicit conversion sequence is
1089 a derived-to-base Conversion.
1091 If the parameter binds directly to the result of applying a
1092 conversion function to the argument expression, the implicit
1093 conversion sequence is a user-defined conversion sequence
1094 (_over.ics.user_), with the second standard conversion sequence
1095 either an identity conversion or, if the conversion function
1096 returns an entity of a type that is a derived class of the
1097 parameter type, a derived-to-base conversion. */
1098 if (!same_type_ignoring_top_level_qualifiers_p (t, conv->type))
1100 /* Represent the derived-to-base conversion. */
1101 conv = build_conv (ck_base, t, conv);
1102 /* We will actually be binding to the base-class subobject in
1103 the derived class, so we mark this conversion appropriately.
1104 That way, convert_like knows not to generate a temporary. */
1105 conv->need_temporary_p = false;
1107 return build_conv (ck_ref_bind, type, conv);
1110 /* Returns the conversion path from type FROM to reference type TO for
1111 purposes of reference binding. For lvalue binding, either pass a
1112 reference type to FROM or an lvalue expression to EXPR. If the
1113 reference will be bound to a temporary, NEED_TEMPORARY_P is set for
1114 the conversion returned. If C_CAST_P is true, this
1115 conversion is coming from a C-style cast. */
1117 static conversion *
1118 reference_binding (tree rto, tree rfrom, tree expr, bool c_cast_p, int flags)
1120 conversion *conv = NULL;
1121 tree to = TREE_TYPE (rto);
1122 tree from = rfrom;
1123 bool related_p;
1124 bool compatible_p;
1125 cp_lvalue_kind lvalue_p = clk_none;
1127 if (TREE_CODE (to) == FUNCTION_TYPE && expr && type_unknown_p (expr))
1129 expr = instantiate_type (to, expr, tf_none);
1130 if (expr == error_mark_node)
1131 return NULL;
1132 from = TREE_TYPE (expr);
1135 if (TREE_CODE (from) == REFERENCE_TYPE)
1137 /* Anything with reference type is an lvalue. */
1138 lvalue_p = clk_ordinary;
1139 from = TREE_TYPE (from);
1141 else if (expr)
1142 lvalue_p = real_lvalue_p (expr);
1144 /* Figure out whether or not the types are reference-related and
1145 reference compatible. We have do do this after stripping
1146 references from FROM. */
1147 related_p = reference_related_p (to, from);
1148 /* If this is a C cast, first convert to an appropriately qualified
1149 type, so that we can later do a const_cast to the desired type. */
1150 if (related_p && c_cast_p
1151 && !at_least_as_qualified_p (to, from))
1152 to = build_qualified_type (to, cp_type_quals (from));
1153 compatible_p = reference_compatible_p (to, from);
1155 /* Directly bind reference when target expression's type is compatible with
1156 the reference and expression is an lvalue. In C++0x, the wording in
1157 [8.5.3/5 dcl.init.ref] is changed to also allow direct bindings for const
1158 and rvalue references to rvalues of compatible class type, as part of
1159 DR391. */
1160 if (compatible_p
1161 && (lvalue_p
1162 || ((cxx_dialect != cxx98)
1163 && (CP_TYPE_CONST_NON_VOLATILE_P(to) || TYPE_REF_IS_RVALUE (rto))
1164 && CLASS_TYPE_P (from))))
1166 /* [dcl.init.ref]
1168 If the initializer expression
1170 -- is an lvalue (but not an lvalue for a bit-field), and "cv1 T1"
1171 is reference-compatible with "cv2 T2,"
1173 the reference is bound directly to the initializer expression
1174 lvalue. */
1175 conv = build_identity_conv (from, expr);
1176 conv = direct_reference_binding (rto, conv);
1178 if (flags & LOOKUP_PREFER_RVALUE)
1179 /* The top-level caller requested that we pretend that the lvalue
1180 be treated as an rvalue. */
1181 conv->rvaluedness_matches_p = TYPE_REF_IS_RVALUE (rto);
1182 else
1183 conv->rvaluedness_matches_p
1184 = (TYPE_REF_IS_RVALUE (rto) == !lvalue_p);
1186 if ((lvalue_p & clk_bitfield) != 0
1187 || ((lvalue_p & clk_packed) != 0 && !TYPE_PACKED (to)))
1188 /* For the purposes of overload resolution, we ignore the fact
1189 this expression is a bitfield or packed field. (In particular,
1190 [over.ics.ref] says specifically that a function with a
1191 non-const reference parameter is viable even if the
1192 argument is a bitfield.)
1194 However, when we actually call the function we must create
1195 a temporary to which to bind the reference. If the
1196 reference is volatile, or isn't const, then we cannot make
1197 a temporary, so we just issue an error when the conversion
1198 actually occurs. */
1199 conv->need_temporary_p = true;
1201 return conv;
1203 /* [class.conv.fct] A conversion function is never used to convert a
1204 (possibly cv-qualified) object to the (possibly cv-qualified) same
1205 object type (or a reference to it), to a (possibly cv-qualified) base
1206 class of that type (or a reference to it).... */
1207 else if (CLASS_TYPE_P (from) && !related_p
1208 && !(flags & LOOKUP_NO_CONVERSION))
1210 /* [dcl.init.ref]
1212 If the initializer expression
1214 -- has a class type (i.e., T2 is a class type) can be
1215 implicitly converted to an lvalue of type "cv3 T3," where
1216 "cv1 T1" is reference-compatible with "cv3 T3". (this
1217 conversion is selected by enumerating the applicable
1218 conversion functions (_over.match.ref_) and choosing the
1219 best one through overload resolution. (_over.match_).
1221 the reference is bound to the lvalue result of the conversion
1222 in the second case. */
1223 conv = convert_class_to_reference (rto, from, expr);
1224 if (conv)
1225 return conv;
1228 /* From this point on, we conceptually need temporaries, even if we
1229 elide them. Only the cases above are "direct bindings". */
1230 if (flags & LOOKUP_NO_TEMP_BIND)
1231 return NULL;
1233 /* [over.ics.rank]
1235 When a parameter of reference type is not bound directly to an
1236 argument expression, the conversion sequence is the one required
1237 to convert the argument expression to the underlying type of the
1238 reference according to _over.best.ics_. Conceptually, this
1239 conversion sequence corresponds to copy-initializing a temporary
1240 of the underlying type with the argument expression. Any
1241 difference in top-level cv-qualification is subsumed by the
1242 initialization itself and does not constitute a conversion. */
1244 /* [dcl.init.ref]
1246 Otherwise, the reference shall be to a non-volatile const type.
1248 Under C++0x, [8.5.3/5 dcl.init.ref] it may also be an rvalue reference */
1249 if (!CP_TYPE_CONST_NON_VOLATILE_P (to) && !TYPE_REF_IS_RVALUE (rto))
1250 return NULL;
1252 /* [dcl.init.ref]
1254 If the initializer expression is an rvalue, with T2 a class type,
1255 and "cv1 T1" is reference-compatible with "cv2 T2", the reference
1256 is bound in one of the following ways:
1258 -- The reference is bound to the object represented by the rvalue
1259 or to a sub-object within that object.
1261 -- ...
1263 We use the first alternative. The implicit conversion sequence
1264 is supposed to be same as we would obtain by generating a
1265 temporary. Fortunately, if the types are reference compatible,
1266 then this is either an identity conversion or the derived-to-base
1267 conversion, just as for direct binding. */
1268 if (CLASS_TYPE_P (from) && compatible_p)
1270 conv = build_identity_conv (from, expr);
1271 conv = direct_reference_binding (rto, conv);
1272 conv->rvaluedness_matches_p = TYPE_REF_IS_RVALUE (rto);
1273 if (!(flags & LOOKUP_CONSTRUCTOR_CALLABLE))
1274 conv->u.next->check_copy_constructor_p = true;
1275 return conv;
1278 /* [dcl.init.ref]
1280 Otherwise, a temporary of type "cv1 T1" is created and
1281 initialized from the initializer expression using the rules for a
1282 non-reference copy initialization. If T1 is reference-related to
1283 T2, cv1 must be the same cv-qualification as, or greater
1284 cv-qualification than, cv2; otherwise, the program is ill-formed. */
1285 if (related_p && !at_least_as_qualified_p (to, from))
1286 return NULL;
1288 conv = implicit_conversion (to, from, expr, c_cast_p,
1289 flags);
1290 if (!conv)
1291 return NULL;
1293 conv = build_conv (ck_ref_bind, rto, conv);
1294 /* This reference binding, unlike those above, requires the
1295 creation of a temporary. */
1296 conv->need_temporary_p = true;
1297 conv->rvaluedness_matches_p = TYPE_REF_IS_RVALUE (rto);
1299 return conv;
1302 /* Returns the implicit conversion sequence (see [over.ics]) from type
1303 FROM to type TO. The optional expression EXPR may affect the
1304 conversion. FLAGS are the usual overloading flags. Only
1305 LOOKUP_NO_CONVERSION is significant. If C_CAST_P is true, this
1306 conversion is coming from a C-style cast. */
1308 static conversion *
1309 implicit_conversion (tree to, tree from, tree expr, bool c_cast_p,
1310 int flags)
1312 conversion *conv;
1314 if (from == error_mark_node || to == error_mark_node
1315 || expr == error_mark_node)
1316 return NULL;
1318 if (TREE_CODE (to) == REFERENCE_TYPE)
1319 conv = reference_binding (to, from, expr, c_cast_p, flags);
1320 else
1321 conv = standard_conversion (to, from, expr, c_cast_p, flags);
1323 if (conv)
1324 return conv;
1326 if (expr != NULL_TREE
1327 && (IS_AGGR_TYPE (from)
1328 || IS_AGGR_TYPE (to))
1329 && (flags & LOOKUP_NO_CONVERSION) == 0)
1331 struct z_candidate *cand;
1333 cand = build_user_type_conversion_1
1334 (to, expr, LOOKUP_ONLYCONVERTING);
1335 if (cand)
1336 conv = cand->second_conv;
1338 /* We used to try to bind a reference to a temporary here, but that
1339 is now handled after the recursive call to this function at the end
1340 of reference_binding. */
1341 return conv;
1344 return NULL;
1347 /* Add a new entry to the list of candidates. Used by the add_*_candidate
1348 functions. */
1350 static struct z_candidate *
1351 add_candidate (struct z_candidate **candidates,
1352 tree fn, tree args,
1353 size_t num_convs, conversion **convs,
1354 tree access_path, tree conversion_path,
1355 int viable)
1357 struct z_candidate *cand = (struct z_candidate *)
1358 conversion_obstack_alloc (sizeof (struct z_candidate));
1360 cand->fn = fn;
1361 cand->args = args;
1362 cand->convs = convs;
1363 cand->num_convs = num_convs;
1364 cand->access_path = access_path;
1365 cand->conversion_path = conversion_path;
1366 cand->viable = viable;
1367 cand->next = *candidates;
1368 *candidates = cand;
1370 return cand;
1373 /* Create an overload candidate for the function or method FN called with
1374 the argument list ARGLIST and add it to CANDIDATES. FLAGS is passed on
1375 to implicit_conversion.
1377 CTYPE, if non-NULL, is the type we want to pretend this function
1378 comes from for purposes of overload resolution. */
1380 static struct z_candidate *
1381 add_function_candidate (struct z_candidate **candidates,
1382 tree fn, tree ctype, tree arglist,
1383 tree access_path, tree conversion_path,
1384 int flags)
1386 tree parmlist = TYPE_ARG_TYPES (TREE_TYPE (fn));
1387 int i, len;
1388 conversion **convs;
1389 tree parmnode, argnode;
1390 tree orig_arglist;
1391 int viable = 1;
1393 /* At this point we should not see any functions which haven't been
1394 explicitly declared, except for friend functions which will have
1395 been found using argument dependent lookup. */
1396 gcc_assert (!DECL_ANTICIPATED (fn) || DECL_HIDDEN_FRIEND_P (fn));
1398 /* The `this', `in_chrg' and VTT arguments to constructors are not
1399 considered in overload resolution. */
1400 if (DECL_CONSTRUCTOR_P (fn))
1402 parmlist = skip_artificial_parms_for (fn, parmlist);
1403 orig_arglist = arglist;
1404 arglist = skip_artificial_parms_for (fn, arglist);
1406 else
1407 orig_arglist = arglist;
1409 len = list_length (arglist);
1410 convs = alloc_conversions (len);
1412 /* 13.3.2 - Viable functions [over.match.viable]
1413 First, to be a viable function, a candidate function shall have enough
1414 parameters to agree in number with the arguments in the list.
1416 We need to check this first; otherwise, checking the ICSes might cause
1417 us to produce an ill-formed template instantiation. */
1419 parmnode = parmlist;
1420 for (i = 0; i < len; ++i)
1422 if (parmnode == NULL_TREE || parmnode == void_list_node)
1423 break;
1424 parmnode = TREE_CHAIN (parmnode);
1427 if (i < len && parmnode)
1428 viable = 0;
1430 /* Make sure there are default args for the rest of the parms. */
1431 else if (!sufficient_parms_p (parmnode))
1432 viable = 0;
1434 if (! viable)
1435 goto out;
1437 /* Second, for F to be a viable function, there shall exist for each
1438 argument an implicit conversion sequence that converts that argument
1439 to the corresponding parameter of F. */
1441 parmnode = parmlist;
1442 argnode = arglist;
1444 for (i = 0; i < len; ++i)
1446 tree arg = TREE_VALUE (argnode);
1447 tree argtype = lvalue_type (arg);
1448 conversion *t;
1449 int is_this;
1451 if (parmnode == void_list_node)
1452 break;
1454 is_this = (i == 0 && DECL_NONSTATIC_MEMBER_FUNCTION_P (fn)
1455 && ! DECL_CONSTRUCTOR_P (fn));
1457 if (parmnode)
1459 tree parmtype = TREE_VALUE (parmnode);
1461 /* The type of the implicit object parameter ('this') for
1462 overload resolution is not always the same as for the
1463 function itself; conversion functions are considered to
1464 be members of the class being converted, and functions
1465 introduced by a using-declaration are considered to be
1466 members of the class that uses them.
1468 Since build_over_call ignores the ICS for the `this'
1469 parameter, we can just change the parm type. */
1470 if (ctype && is_this)
1472 parmtype
1473 = build_qualified_type (ctype,
1474 TYPE_QUALS (TREE_TYPE (parmtype)));
1475 parmtype = build_pointer_type (parmtype);
1478 t = implicit_conversion (parmtype, argtype, arg,
1479 /*c_cast_p=*/false, flags);
1481 else
1483 t = build_identity_conv (argtype, arg);
1484 t->ellipsis_p = true;
1487 if (t && is_this)
1488 t->this_p = true;
1490 convs[i] = t;
1491 if (! t)
1493 viable = 0;
1494 break;
1497 if (t->bad_p)
1498 viable = -1;
1500 if (parmnode)
1501 parmnode = TREE_CHAIN (parmnode);
1502 argnode = TREE_CHAIN (argnode);
1505 out:
1506 return add_candidate (candidates, fn, orig_arglist, len, convs,
1507 access_path, conversion_path, viable);
1510 /* Create an overload candidate for the conversion function FN which will
1511 be invoked for expression OBJ, producing a pointer-to-function which
1512 will in turn be called with the argument list ARGLIST, and add it to
1513 CANDIDATES. FLAGS is passed on to implicit_conversion.
1515 Actually, we don't really care about FN; we care about the type it
1516 converts to. There may be multiple conversion functions that will
1517 convert to that type, and we rely on build_user_type_conversion_1 to
1518 choose the best one; so when we create our candidate, we record the type
1519 instead of the function. */
1521 static struct z_candidate *
1522 add_conv_candidate (struct z_candidate **candidates, tree fn, tree obj,
1523 tree arglist, tree access_path, tree conversion_path)
1525 tree totype = TREE_TYPE (TREE_TYPE (fn));
1526 int i, len, viable, flags;
1527 tree parmlist, parmnode, argnode;
1528 conversion **convs;
1530 for (parmlist = totype; TREE_CODE (parmlist) != FUNCTION_TYPE; )
1531 parmlist = TREE_TYPE (parmlist);
1532 parmlist = TYPE_ARG_TYPES (parmlist);
1534 len = list_length (arglist) + 1;
1535 convs = alloc_conversions (len);
1536 parmnode = parmlist;
1537 argnode = arglist;
1538 viable = 1;
1539 flags = LOOKUP_NORMAL;
1541 /* Don't bother looking up the same type twice. */
1542 if (*candidates && (*candidates)->fn == totype)
1543 return NULL;
1545 for (i = 0; i < len; ++i)
1547 tree arg = i == 0 ? obj : TREE_VALUE (argnode);
1548 tree argtype = lvalue_type (arg);
1549 conversion *t;
1551 if (i == 0)
1552 t = implicit_conversion (totype, argtype, arg, /*c_cast_p=*/false,
1553 flags);
1554 else if (parmnode == void_list_node)
1555 break;
1556 else if (parmnode)
1557 t = implicit_conversion (TREE_VALUE (parmnode), argtype, arg,
1558 /*c_cast_p=*/false, flags);
1559 else
1561 t = build_identity_conv (argtype, arg);
1562 t->ellipsis_p = true;
1565 convs[i] = t;
1566 if (! t)
1567 break;
1569 if (t->bad_p)
1570 viable = -1;
1572 if (i == 0)
1573 continue;
1575 if (parmnode)
1576 parmnode = TREE_CHAIN (parmnode);
1577 argnode = TREE_CHAIN (argnode);
1580 if (i < len)
1581 viable = 0;
1583 if (!sufficient_parms_p (parmnode))
1584 viable = 0;
1586 return add_candidate (candidates, totype, arglist, len, convs,
1587 access_path, conversion_path, viable);
1590 static void
1591 build_builtin_candidate (struct z_candidate **candidates, tree fnname,
1592 tree type1, tree type2, tree *args, tree *argtypes,
1593 int flags)
1595 conversion *t;
1596 conversion **convs;
1597 size_t num_convs;
1598 int viable = 1, i;
1599 tree types[2];
1601 types[0] = type1;
1602 types[1] = type2;
1604 num_convs = args[2] ? 3 : (args[1] ? 2 : 1);
1605 convs = alloc_conversions (num_convs);
1607 for (i = 0; i < 2; ++i)
1609 if (! args[i])
1610 break;
1612 t = implicit_conversion (types[i], argtypes[i], args[i],
1613 /*c_cast_p=*/false, flags);
1614 if (! t)
1616 viable = 0;
1617 /* We need something for printing the candidate. */
1618 t = build_identity_conv (types[i], NULL_TREE);
1620 else if (t->bad_p)
1621 viable = 0;
1622 convs[i] = t;
1625 /* For COND_EXPR we rearranged the arguments; undo that now. */
1626 if (args[2])
1628 convs[2] = convs[1];
1629 convs[1] = convs[0];
1630 t = implicit_conversion (boolean_type_node, argtypes[2], args[2],
1631 /*c_cast_p=*/false, flags);
1632 if (t)
1633 convs[0] = t;
1634 else
1635 viable = 0;
1638 add_candidate (candidates, fnname, /*args=*/NULL_TREE,
1639 num_convs, convs,
1640 /*access_path=*/NULL_TREE,
1641 /*conversion_path=*/NULL_TREE,
1642 viable);
1645 static bool
1646 is_complete (tree t)
1648 return COMPLETE_TYPE_P (complete_type (t));
1651 /* Returns nonzero if TYPE is a promoted arithmetic type. */
1653 static bool
1654 promoted_arithmetic_type_p (tree type)
1656 /* [over.built]
1658 In this section, the term promoted integral type is used to refer
1659 to those integral types which are preserved by integral promotion
1660 (including e.g. int and long but excluding e.g. char).
1661 Similarly, the term promoted arithmetic type refers to promoted
1662 integral types plus floating types. */
1663 return ((INTEGRAL_TYPE_P (type)
1664 && same_type_p (type_promotes_to (type), type))
1665 || TREE_CODE (type) == REAL_TYPE);
1668 /* Create any builtin operator overload candidates for the operator in
1669 question given the converted operand types TYPE1 and TYPE2. The other
1670 args are passed through from add_builtin_candidates to
1671 build_builtin_candidate.
1673 TYPE1 and TYPE2 may not be permissible, and we must filter them.
1674 If CODE is requires candidates operands of the same type of the kind
1675 of which TYPE1 and TYPE2 are, we add both candidates
1676 CODE (TYPE1, TYPE1) and CODE (TYPE2, TYPE2). */
1678 static void
1679 add_builtin_candidate (struct z_candidate **candidates, enum tree_code code,
1680 enum tree_code code2, tree fnname, tree type1,
1681 tree type2, tree *args, tree *argtypes, int flags)
1683 switch (code)
1685 case POSTINCREMENT_EXPR:
1686 case POSTDECREMENT_EXPR:
1687 args[1] = integer_zero_node;
1688 type2 = integer_type_node;
1689 break;
1690 default:
1691 break;
1694 switch (code)
1697 /* 4 For every pair T, VQ), where T is an arithmetic or enumeration type,
1698 and VQ is either volatile or empty, there exist candidate operator
1699 functions of the form
1700 VQ T& operator++(VQ T&);
1701 T operator++(VQ T&, int);
1702 5 For every pair T, VQ), where T is an enumeration type or an arithmetic
1703 type other than bool, and VQ is either volatile or empty, there exist
1704 candidate operator functions of the form
1705 VQ T& operator--(VQ T&);
1706 T operator--(VQ T&, int);
1707 6 For every pair T, VQ), where T is a cv-qualified or cv-unqualified
1708 complete object type, and VQ is either volatile or empty, there exist
1709 candidate operator functions of the form
1710 T*VQ& operator++(T*VQ&);
1711 T*VQ& operator--(T*VQ&);
1712 T* operator++(T*VQ&, int);
1713 T* operator--(T*VQ&, int); */
1715 case POSTDECREMENT_EXPR:
1716 case PREDECREMENT_EXPR:
1717 if (TREE_CODE (type1) == BOOLEAN_TYPE)
1718 return;
1719 case POSTINCREMENT_EXPR:
1720 case PREINCREMENT_EXPR:
1721 if (ARITHMETIC_TYPE_P (type1) || TYPE_PTROB_P (type1))
1723 type1 = build_reference_type (type1);
1724 break;
1726 return;
1728 /* 7 For every cv-qualified or cv-unqualified complete object type T, there
1729 exist candidate operator functions of the form
1731 T& operator*(T*);
1733 8 For every function type T, there exist candidate operator functions of
1734 the form
1735 T& operator*(T*); */
1737 case INDIRECT_REF:
1738 if (TREE_CODE (type1) == POINTER_TYPE
1739 && (TYPE_PTROB_P (type1)
1740 || TREE_CODE (TREE_TYPE (type1)) == FUNCTION_TYPE))
1741 break;
1742 return;
1744 /* 9 For every type T, there exist candidate operator functions of the form
1745 T* operator+(T*);
1747 10For every promoted arithmetic type T, there exist candidate operator
1748 functions of the form
1749 T operator+(T);
1750 T operator-(T); */
1752 case UNARY_PLUS_EXPR: /* unary + */
1753 if (TREE_CODE (type1) == POINTER_TYPE)
1754 break;
1755 case NEGATE_EXPR:
1756 if (ARITHMETIC_TYPE_P (type1))
1757 break;
1758 return;
1760 /* 11For every promoted integral type T, there exist candidate operator
1761 functions of the form
1762 T operator~(T); */
1764 case BIT_NOT_EXPR:
1765 if (INTEGRAL_TYPE_P (type1))
1766 break;
1767 return;
1769 /* 12For every quintuple C1, C2, T, CV1, CV2), where C2 is a class type, C1
1770 is the same type as C2 or is a derived class of C2, T is a complete
1771 object type or a function type, and CV1 and CV2 are cv-qualifier-seqs,
1772 there exist candidate operator functions of the form
1773 CV12 T& operator->*(CV1 C1*, CV2 T C2::*);
1774 where CV12 is the union of CV1 and CV2. */
1776 case MEMBER_REF:
1777 if (TREE_CODE (type1) == POINTER_TYPE
1778 && TYPE_PTR_TO_MEMBER_P (type2))
1780 tree c1 = TREE_TYPE (type1);
1781 tree c2 = TYPE_PTRMEM_CLASS_TYPE (type2);
1783 if (IS_AGGR_TYPE (c1) && DERIVED_FROM_P (c2, c1)
1784 && (TYPE_PTRMEMFUNC_P (type2)
1785 || is_complete (TYPE_PTRMEM_POINTED_TO_TYPE (type2))))
1786 break;
1788 return;
1790 /* 13For every pair of promoted arithmetic types L and R, there exist can-
1791 didate operator functions of the form
1792 LR operator*(L, R);
1793 LR operator/(L, R);
1794 LR operator+(L, R);
1795 LR operator-(L, R);
1796 bool operator<(L, R);
1797 bool operator>(L, R);
1798 bool operator<=(L, R);
1799 bool operator>=(L, R);
1800 bool operator==(L, R);
1801 bool operator!=(L, R);
1802 where LR is the result of the usual arithmetic conversions between
1803 types L and R.
1805 14For every pair of types T and I, where T is a cv-qualified or cv-
1806 unqualified complete object type and I is a promoted integral type,
1807 there exist candidate operator functions of the form
1808 T* operator+(T*, I);
1809 T& operator[](T*, I);
1810 T* operator-(T*, I);
1811 T* operator+(I, T*);
1812 T& operator[](I, T*);
1814 15For every T, where T is a pointer to complete object type, there exist
1815 candidate operator functions of the form112)
1816 ptrdiff_t operator-(T, T);
1818 16For every pointer or enumeration type T, there exist candidate operator
1819 functions of the form
1820 bool operator<(T, T);
1821 bool operator>(T, T);
1822 bool operator<=(T, T);
1823 bool operator>=(T, T);
1824 bool operator==(T, T);
1825 bool operator!=(T, T);
1827 17For every pointer to member type T, there exist candidate operator
1828 functions of the form
1829 bool operator==(T, T);
1830 bool operator!=(T, T); */
1832 case MINUS_EXPR:
1833 if (TYPE_PTROB_P (type1) && TYPE_PTROB_P (type2))
1834 break;
1835 if (TYPE_PTROB_P (type1) && INTEGRAL_TYPE_P (type2))
1837 type2 = ptrdiff_type_node;
1838 break;
1840 case MULT_EXPR:
1841 case TRUNC_DIV_EXPR:
1842 if (ARITHMETIC_TYPE_P (type1) && ARITHMETIC_TYPE_P (type2))
1843 break;
1844 return;
1846 case EQ_EXPR:
1847 case NE_EXPR:
1848 if ((TYPE_PTRMEMFUNC_P (type1) && TYPE_PTRMEMFUNC_P (type2))
1849 || (TYPE_PTRMEM_P (type1) && TYPE_PTRMEM_P (type2)))
1850 break;
1851 if (TYPE_PTR_TO_MEMBER_P (type1) && null_ptr_cst_p (args[1]))
1853 type2 = type1;
1854 break;
1856 if (TYPE_PTR_TO_MEMBER_P (type2) && null_ptr_cst_p (args[0]))
1858 type1 = type2;
1859 break;
1861 /* Fall through. */
1862 case LT_EXPR:
1863 case GT_EXPR:
1864 case LE_EXPR:
1865 case GE_EXPR:
1866 case MAX_EXPR:
1867 case MIN_EXPR:
1868 if (ARITHMETIC_TYPE_P (type1) && ARITHMETIC_TYPE_P (type2))
1869 break;
1870 if (TYPE_PTR_P (type1) && TYPE_PTR_P (type2))
1871 break;
1872 if (TREE_CODE (type1) == ENUMERAL_TYPE
1873 && TREE_CODE (type2) == ENUMERAL_TYPE)
1874 break;
1875 if (TYPE_PTR_P (type1)
1876 && null_ptr_cst_p (args[1])
1877 && !uses_template_parms (type1))
1879 type2 = type1;
1880 break;
1882 if (null_ptr_cst_p (args[0])
1883 && TYPE_PTR_P (type2)
1884 && !uses_template_parms (type2))
1886 type1 = type2;
1887 break;
1889 return;
1891 case PLUS_EXPR:
1892 if (ARITHMETIC_TYPE_P (type1) && ARITHMETIC_TYPE_P (type2))
1893 break;
1894 case ARRAY_REF:
1895 if (INTEGRAL_TYPE_P (type1) && TYPE_PTROB_P (type2))
1897 type1 = ptrdiff_type_node;
1898 break;
1900 if (TYPE_PTROB_P (type1) && INTEGRAL_TYPE_P (type2))
1902 type2 = ptrdiff_type_node;
1903 break;
1905 return;
1907 /* 18For every pair of promoted integral types L and R, there exist candi-
1908 date operator functions of the form
1909 LR operator%(L, R);
1910 LR operator&(L, R);
1911 LR operator^(L, R);
1912 LR operator|(L, R);
1913 L operator<<(L, R);
1914 L operator>>(L, R);
1915 where LR is the result of the usual arithmetic conversions between
1916 types L and R. */
1918 case TRUNC_MOD_EXPR:
1919 case BIT_AND_EXPR:
1920 case BIT_IOR_EXPR:
1921 case BIT_XOR_EXPR:
1922 case LSHIFT_EXPR:
1923 case RSHIFT_EXPR:
1924 if (INTEGRAL_TYPE_P (type1) && INTEGRAL_TYPE_P (type2))
1925 break;
1926 return;
1928 /* 19For every triple L, VQ, R), where L is an arithmetic or enumeration
1929 type, VQ is either volatile or empty, and R is a promoted arithmetic
1930 type, there exist candidate operator functions of the form
1931 VQ L& operator=(VQ L&, R);
1932 VQ L& operator*=(VQ L&, R);
1933 VQ L& operator/=(VQ L&, R);
1934 VQ L& operator+=(VQ L&, R);
1935 VQ L& operator-=(VQ L&, R);
1937 20For every pair T, VQ), where T is any type and VQ is either volatile
1938 or empty, there exist candidate operator functions of the form
1939 T*VQ& operator=(T*VQ&, T*);
1941 21For every pair T, VQ), where T is a pointer to member type and VQ is
1942 either volatile or empty, there exist candidate operator functions of
1943 the form
1944 VQ T& operator=(VQ T&, T);
1946 22For every triple T, VQ, I), where T is a cv-qualified or cv-
1947 unqualified complete object type, VQ is either volatile or empty, and
1948 I is a promoted integral type, there exist candidate operator func-
1949 tions of the form
1950 T*VQ& operator+=(T*VQ&, I);
1951 T*VQ& operator-=(T*VQ&, I);
1953 23For every triple L, VQ, R), where L is an integral or enumeration
1954 type, VQ is either volatile or empty, and R is a promoted integral
1955 type, there exist candidate operator functions of the form
1957 VQ L& operator%=(VQ L&, R);
1958 VQ L& operator<<=(VQ L&, R);
1959 VQ L& operator>>=(VQ L&, R);
1960 VQ L& operator&=(VQ L&, R);
1961 VQ L& operator^=(VQ L&, R);
1962 VQ L& operator|=(VQ L&, R); */
1964 case MODIFY_EXPR:
1965 switch (code2)
1967 case PLUS_EXPR:
1968 case MINUS_EXPR:
1969 if (TYPE_PTROB_P (type1) && INTEGRAL_TYPE_P (type2))
1971 type2 = ptrdiff_type_node;
1972 break;
1974 case MULT_EXPR:
1975 case TRUNC_DIV_EXPR:
1976 if (ARITHMETIC_TYPE_P (type1) && ARITHMETIC_TYPE_P (type2))
1977 break;
1978 return;
1980 case TRUNC_MOD_EXPR:
1981 case BIT_AND_EXPR:
1982 case BIT_IOR_EXPR:
1983 case BIT_XOR_EXPR:
1984 case LSHIFT_EXPR:
1985 case RSHIFT_EXPR:
1986 if (INTEGRAL_TYPE_P (type1) && INTEGRAL_TYPE_P (type2))
1987 break;
1988 return;
1990 case NOP_EXPR:
1991 if (ARITHMETIC_TYPE_P (type1) && ARITHMETIC_TYPE_P (type2))
1992 break;
1993 if ((TYPE_PTRMEMFUNC_P (type1) && TYPE_PTRMEMFUNC_P (type2))
1994 || (TYPE_PTR_P (type1) && TYPE_PTR_P (type2))
1995 || (TYPE_PTRMEM_P (type1) && TYPE_PTRMEM_P (type2))
1996 || ((TYPE_PTRMEMFUNC_P (type1)
1997 || TREE_CODE (type1) == POINTER_TYPE)
1998 && null_ptr_cst_p (args[1])))
2000 type2 = type1;
2001 break;
2003 return;
2005 default:
2006 gcc_unreachable ();
2008 type1 = build_reference_type (type1);
2009 break;
2011 case COND_EXPR:
2012 /* [over.built]
2014 For every pair of promoted arithmetic types L and R, there
2015 exist candidate operator functions of the form
2017 LR operator?(bool, L, R);
2019 where LR is the result of the usual arithmetic conversions
2020 between types L and R.
2022 For every type T, where T is a pointer or pointer-to-member
2023 type, there exist candidate operator functions of the form T
2024 operator?(bool, T, T); */
2026 if (promoted_arithmetic_type_p (type1)
2027 && promoted_arithmetic_type_p (type2))
2028 /* That's OK. */
2029 break;
2031 /* Otherwise, the types should be pointers. */
2032 if (!(TYPE_PTR_P (type1) || TYPE_PTR_TO_MEMBER_P (type1))
2033 || !(TYPE_PTR_P (type2) || TYPE_PTR_TO_MEMBER_P (type2)))
2034 return;
2036 /* We don't check that the two types are the same; the logic
2037 below will actually create two candidates; one in which both
2038 parameter types are TYPE1, and one in which both parameter
2039 types are TYPE2. */
2040 break;
2042 default:
2043 gcc_unreachable ();
2046 /* If we're dealing with two pointer types or two enumeral types,
2047 we need candidates for both of them. */
2048 if (type2 && !same_type_p (type1, type2)
2049 && TREE_CODE (type1) == TREE_CODE (type2)
2050 && (TREE_CODE (type1) == REFERENCE_TYPE
2051 || (TYPE_PTR_P (type1) && TYPE_PTR_P (type2))
2052 || (TYPE_PTRMEM_P (type1) && TYPE_PTRMEM_P (type2))
2053 || TYPE_PTRMEMFUNC_P (type1)
2054 || IS_AGGR_TYPE (type1)
2055 || TREE_CODE (type1) == ENUMERAL_TYPE))
2057 build_builtin_candidate
2058 (candidates, fnname, type1, type1, args, argtypes, flags);
2059 build_builtin_candidate
2060 (candidates, fnname, type2, type2, args, argtypes, flags);
2061 return;
2064 build_builtin_candidate
2065 (candidates, fnname, type1, type2, args, argtypes, flags);
2068 tree
2069 type_decays_to (tree type)
2071 if (TREE_CODE (type) == ARRAY_TYPE)
2072 return build_pointer_type (TREE_TYPE (type));
2073 if (TREE_CODE (type) == FUNCTION_TYPE)
2074 return build_pointer_type (type);
2075 return type;
2078 /* There are three conditions of builtin candidates:
2080 1) bool-taking candidates. These are the same regardless of the input.
2081 2) pointer-pair taking candidates. These are generated for each type
2082 one of the input types converts to.
2083 3) arithmetic candidates. According to the standard, we should generate
2084 all of these, but I'm trying not to...
2086 Here we generate a superset of the possible candidates for this particular
2087 case. That is a subset of the full set the standard defines, plus some
2088 other cases which the standard disallows. add_builtin_candidate will
2089 filter out the invalid set. */
2091 static void
2092 add_builtin_candidates (struct z_candidate **candidates, enum tree_code code,
2093 enum tree_code code2, tree fnname, tree *args,
2094 int flags)
2096 int ref1, i;
2097 int enum_p = 0;
2098 tree type, argtypes[3];
2099 /* TYPES[i] is the set of possible builtin-operator parameter types
2100 we will consider for the Ith argument. These are represented as
2101 a TREE_LIST; the TREE_VALUE of each node is the potential
2102 parameter type. */
2103 tree types[2];
2105 for (i = 0; i < 3; ++i)
2107 if (args[i])
2108 argtypes[i] = lvalue_type (args[i]);
2109 else
2110 argtypes[i] = NULL_TREE;
2113 switch (code)
2115 /* 4 For every pair T, VQ), where T is an arithmetic or enumeration type,
2116 and VQ is either volatile or empty, there exist candidate operator
2117 functions of the form
2118 VQ T& operator++(VQ T&); */
2120 case POSTINCREMENT_EXPR:
2121 case PREINCREMENT_EXPR:
2122 case POSTDECREMENT_EXPR:
2123 case PREDECREMENT_EXPR:
2124 case MODIFY_EXPR:
2125 ref1 = 1;
2126 break;
2128 /* 24There also exist candidate operator functions of the form
2129 bool operator!(bool);
2130 bool operator&&(bool, bool);
2131 bool operator||(bool, bool); */
2133 case TRUTH_NOT_EXPR:
2134 build_builtin_candidate
2135 (candidates, fnname, boolean_type_node,
2136 NULL_TREE, args, argtypes, flags);
2137 return;
2139 case TRUTH_ORIF_EXPR:
2140 case TRUTH_ANDIF_EXPR:
2141 build_builtin_candidate
2142 (candidates, fnname, boolean_type_node,
2143 boolean_type_node, args, argtypes, flags);
2144 return;
2146 case ADDR_EXPR:
2147 case COMPOUND_EXPR:
2148 case COMPONENT_REF:
2149 return;
2151 case COND_EXPR:
2152 case EQ_EXPR:
2153 case NE_EXPR:
2154 case LT_EXPR:
2155 case LE_EXPR:
2156 case GT_EXPR:
2157 case GE_EXPR:
2158 enum_p = 1;
2159 /* Fall through. */
2161 default:
2162 ref1 = 0;
2165 types[0] = types[1] = NULL_TREE;
2167 for (i = 0; i < 2; ++i)
2169 if (! args[i])
2171 else if (IS_AGGR_TYPE (argtypes[i]))
2173 tree convs;
2175 if (i == 0 && code == MODIFY_EXPR && code2 == NOP_EXPR)
2176 return;
2178 convs = lookup_conversions (argtypes[i]);
2180 if (code == COND_EXPR)
2182 if (real_lvalue_p (args[i]))
2183 types[i] = tree_cons
2184 (NULL_TREE, build_reference_type (argtypes[i]), types[i]);
2186 types[i] = tree_cons
2187 (NULL_TREE, TYPE_MAIN_VARIANT (argtypes[i]), types[i]);
2190 else if (! convs)
2191 return;
2193 for (; convs; convs = TREE_CHAIN (convs))
2195 type = TREE_TYPE (TREE_TYPE (OVL_CURRENT (TREE_VALUE (convs))));
2197 if (i == 0 && ref1
2198 && (TREE_CODE (type) != REFERENCE_TYPE
2199 || CP_TYPE_CONST_P (TREE_TYPE (type))))
2200 continue;
2202 if (code == COND_EXPR && TREE_CODE (type) == REFERENCE_TYPE)
2203 types[i] = tree_cons (NULL_TREE, type, types[i]);
2205 type = non_reference (type);
2206 if (i != 0 || ! ref1)
2208 type = TYPE_MAIN_VARIANT (type_decays_to (type));
2209 if (enum_p && TREE_CODE (type) == ENUMERAL_TYPE)
2210 types[i] = tree_cons (NULL_TREE, type, types[i]);
2211 if (INTEGRAL_TYPE_P (type))
2212 type = type_promotes_to (type);
2215 if (! value_member (type, types[i]))
2216 types[i] = tree_cons (NULL_TREE, type, types[i]);
2219 else
2221 if (code == COND_EXPR && real_lvalue_p (args[i]))
2222 types[i] = tree_cons
2223 (NULL_TREE, build_reference_type (argtypes[i]), types[i]);
2224 type = non_reference (argtypes[i]);
2225 if (i != 0 || ! ref1)
2227 type = TYPE_MAIN_VARIANT (type_decays_to (type));
2228 if (enum_p && TREE_CODE (type) == ENUMERAL_TYPE)
2229 types[i] = tree_cons (NULL_TREE, type, types[i]);
2230 if (INTEGRAL_TYPE_P (type))
2231 type = type_promotes_to (type);
2233 types[i] = tree_cons (NULL_TREE, type, types[i]);
2237 /* Run through the possible parameter types of both arguments,
2238 creating candidates with those parameter types. */
2239 for (; types[0]; types[0] = TREE_CHAIN (types[0]))
2241 if (types[1])
2242 for (type = types[1]; type; type = TREE_CHAIN (type))
2243 add_builtin_candidate
2244 (candidates, code, code2, fnname, TREE_VALUE (types[0]),
2245 TREE_VALUE (type), args, argtypes, flags);
2246 else
2247 add_builtin_candidate
2248 (candidates, code, code2, fnname, TREE_VALUE (types[0]),
2249 NULL_TREE, args, argtypes, flags);
2254 /* If TMPL can be successfully instantiated as indicated by
2255 EXPLICIT_TARGS and ARGLIST, adds the instantiation to CANDIDATES.
2257 TMPL is the template. EXPLICIT_TARGS are any explicit template
2258 arguments. ARGLIST is the arguments provided at the call-site.
2259 The RETURN_TYPE is the desired type for conversion operators. If
2260 OBJ is NULL_TREE, FLAGS and CTYPE are as for add_function_candidate.
2261 If an OBJ is supplied, FLAGS and CTYPE are ignored, and OBJ is as for
2262 add_conv_candidate. */
2264 static struct z_candidate*
2265 add_template_candidate_real (struct z_candidate **candidates, tree tmpl,
2266 tree ctype, tree explicit_targs, tree arglist,
2267 tree return_type, tree access_path,
2268 tree conversion_path, int flags, tree obj,
2269 unification_kind_t strict)
2271 int ntparms = DECL_NTPARMS (tmpl);
2272 tree targs = make_tree_vec (ntparms);
2273 tree args_without_in_chrg = arglist;
2274 struct z_candidate *cand;
2275 int i;
2276 tree fn;
2278 /* We don't do deduction on the in-charge parameter, the VTT
2279 parameter or 'this'. */
2280 if (DECL_NONSTATIC_MEMBER_FUNCTION_P (tmpl))
2281 args_without_in_chrg = TREE_CHAIN (args_without_in_chrg);
2283 if ((DECL_MAYBE_IN_CHARGE_CONSTRUCTOR_P (tmpl)
2284 || DECL_BASE_CONSTRUCTOR_P (tmpl))
2285 && CLASSTYPE_VBASECLASSES (DECL_CONTEXT (tmpl)))
2286 args_without_in_chrg = TREE_CHAIN (args_without_in_chrg);
2288 i = fn_type_unification (tmpl, explicit_targs, targs,
2289 args_without_in_chrg,
2290 return_type, strict, flags);
2292 if (i != 0)
2293 return NULL;
2295 fn = instantiate_template (tmpl, targs, tf_none);
2296 if (fn == error_mark_node)
2297 return NULL;
2299 /* In [class.copy]:
2301 A member function template is never instantiated to perform the
2302 copy of a class object to an object of its class type.
2304 It's a little unclear what this means; the standard explicitly
2305 does allow a template to be used to copy a class. For example,
2308 struct A {
2309 A(A&);
2310 template <class T> A(const T&);
2312 const A f ();
2313 void g () { A a (f ()); }
2315 the member template will be used to make the copy. The section
2316 quoted above appears in the paragraph that forbids constructors
2317 whose only parameter is (a possibly cv-qualified variant of) the
2318 class type, and a logical interpretation is that the intent was
2319 to forbid the instantiation of member templates which would then
2320 have that form. */
2321 if (DECL_CONSTRUCTOR_P (fn) && list_length (arglist) == 2)
2323 tree arg_types = FUNCTION_FIRST_USER_PARMTYPE (fn);
2324 if (arg_types && same_type_p (TYPE_MAIN_VARIANT (TREE_VALUE (arg_types)),
2325 ctype))
2326 return NULL;
2329 if (obj != NULL_TREE)
2330 /* Aha, this is a conversion function. */
2331 cand = add_conv_candidate (candidates, fn, obj, access_path,
2332 conversion_path, arglist);
2333 else
2334 cand = add_function_candidate (candidates, fn, ctype,
2335 arglist, access_path,
2336 conversion_path, flags);
2337 if (DECL_TI_TEMPLATE (fn) != tmpl)
2338 /* This situation can occur if a member template of a template
2339 class is specialized. Then, instantiate_template might return
2340 an instantiation of the specialization, in which case the
2341 DECL_TI_TEMPLATE field will point at the original
2342 specialization. For example:
2344 template <class T> struct S { template <class U> void f(U);
2345 template <> void f(int) {}; };
2346 S<double> sd;
2347 sd.f(3);
2349 Here, TMPL will be template <class U> S<double>::f(U).
2350 And, instantiate template will give us the specialization
2351 template <> S<double>::f(int). But, the DECL_TI_TEMPLATE field
2352 for this will point at template <class T> template <> S<T>::f(int),
2353 so that we can find the definition. For the purposes of
2354 overload resolution, however, we want the original TMPL. */
2355 cand->template_decl = tree_cons (tmpl, targs, NULL_TREE);
2356 else
2357 cand->template_decl = DECL_TEMPLATE_INFO (fn);
2359 return cand;
2363 static struct z_candidate *
2364 add_template_candidate (struct z_candidate **candidates, tree tmpl, tree ctype,
2365 tree explicit_targs, tree arglist, tree return_type,
2366 tree access_path, tree conversion_path, int flags,
2367 unification_kind_t strict)
2369 return
2370 add_template_candidate_real (candidates, tmpl, ctype,
2371 explicit_targs, arglist, return_type,
2372 access_path, conversion_path,
2373 flags, NULL_TREE, strict);
2377 static struct z_candidate *
2378 add_template_conv_candidate (struct z_candidate **candidates, tree tmpl,
2379 tree obj, tree arglist, tree return_type,
2380 tree access_path, tree conversion_path)
2382 return
2383 add_template_candidate_real (candidates, tmpl, NULL_TREE, NULL_TREE,
2384 arglist, return_type, access_path,
2385 conversion_path, 0, obj, DEDUCE_CONV);
2388 /* The CANDS are the set of candidates that were considered for
2389 overload resolution. Return the set of viable candidates. If none
2390 of the candidates were viable, set *ANY_VIABLE_P to true. STRICT_P
2391 is true if a candidate should be considered viable only if it is
2392 strictly viable. */
2394 static struct z_candidate*
2395 splice_viable (struct z_candidate *cands,
2396 bool strict_p,
2397 bool *any_viable_p)
2399 struct z_candidate *viable;
2400 struct z_candidate **last_viable;
2401 struct z_candidate **cand;
2403 viable = NULL;
2404 last_viable = &viable;
2405 *any_viable_p = false;
2407 cand = &cands;
2408 while (*cand)
2410 struct z_candidate *c = *cand;
2411 if (strict_p ? c->viable == 1 : c->viable)
2413 *last_viable = c;
2414 *cand = c->next;
2415 c->next = NULL;
2416 last_viable = &c->next;
2417 *any_viable_p = true;
2419 else
2420 cand = &c->next;
2423 return viable ? viable : cands;
2426 static bool
2427 any_strictly_viable (struct z_candidate *cands)
2429 for (; cands; cands = cands->next)
2430 if (cands->viable == 1)
2431 return true;
2432 return false;
2435 /* OBJ is being used in an expression like "OBJ.f (...)". In other
2436 words, it is about to become the "this" pointer for a member
2437 function call. Take the address of the object. */
2439 static tree
2440 build_this (tree obj)
2442 /* In a template, we are only concerned about the type of the
2443 expression, so we can take a shortcut. */
2444 if (processing_template_decl)
2445 return build_address (obj);
2447 return build_unary_op (ADDR_EXPR, obj, 0);
2450 /* Returns true iff functions are equivalent. Equivalent functions are
2451 not '==' only if one is a function-local extern function or if
2452 both are extern "C". */
2454 static inline int
2455 equal_functions (tree fn1, tree fn2)
2457 if (DECL_LOCAL_FUNCTION_P (fn1) || DECL_LOCAL_FUNCTION_P (fn2)
2458 || DECL_EXTERN_C_FUNCTION_P (fn1))
2459 return decls_match (fn1, fn2);
2460 return fn1 == fn2;
2463 /* Print information about one overload candidate CANDIDATE. MSGSTR
2464 is the text to print before the candidate itself.
2466 NOTE: Unlike most diagnostic functions in GCC, MSGSTR is expected
2467 to have been run through gettext by the caller. This wart makes
2468 life simpler in print_z_candidates and for the translators. */
2470 static void
2471 print_z_candidate (const char *msgstr, struct z_candidate *candidate)
2473 if (TREE_CODE (candidate->fn) == IDENTIFIER_NODE)
2475 if (candidate->num_convs == 3)
2476 inform ("%s %D(%T, %T, %T) <built-in>", msgstr, candidate->fn,
2477 candidate->convs[0]->type,
2478 candidate->convs[1]->type,
2479 candidate->convs[2]->type);
2480 else if (candidate->num_convs == 2)
2481 inform ("%s %D(%T, %T) <built-in>", msgstr, candidate->fn,
2482 candidate->convs[0]->type,
2483 candidate->convs[1]->type);
2484 else
2485 inform ("%s %D(%T) <built-in>", msgstr, candidate->fn,
2486 candidate->convs[0]->type);
2488 else if (TYPE_P (candidate->fn))
2489 inform ("%s %T <conversion>", msgstr, candidate->fn);
2490 else if (candidate->viable == -1)
2491 inform ("%s %+#D <near match>", msgstr, candidate->fn);
2492 else
2493 inform ("%s %+#D", msgstr, candidate->fn);
2496 static void
2497 print_z_candidates (struct z_candidate *candidates)
2499 const char *str;
2500 struct z_candidate *cand1;
2501 struct z_candidate **cand2;
2503 /* There may be duplicates in the set of candidates. We put off
2504 checking this condition as long as possible, since we have no way
2505 to eliminate duplicates from a set of functions in less than n^2
2506 time. Now we are about to emit an error message, so it is more
2507 permissible to go slowly. */
2508 for (cand1 = candidates; cand1; cand1 = cand1->next)
2510 tree fn = cand1->fn;
2511 /* Skip builtin candidates and conversion functions. */
2512 if (TREE_CODE (fn) != FUNCTION_DECL)
2513 continue;
2514 cand2 = &cand1->next;
2515 while (*cand2)
2517 if (TREE_CODE ((*cand2)->fn) == FUNCTION_DECL
2518 && equal_functions (fn, (*cand2)->fn))
2519 *cand2 = (*cand2)->next;
2520 else
2521 cand2 = &(*cand2)->next;
2525 if (!candidates)
2526 return;
2528 str = _("candidates are:");
2529 print_z_candidate (str, candidates);
2530 if (candidates->next)
2532 /* Indent successive candidates by the width of the translation
2533 of the above string. */
2534 size_t len = gcc_gettext_width (str) + 1;
2535 char *spaces = (char *) alloca (len);
2536 memset (spaces, ' ', len-1);
2537 spaces[len - 1] = '\0';
2539 candidates = candidates->next;
2542 print_z_candidate (spaces, candidates);
2543 candidates = candidates->next;
2545 while (candidates);
2549 /* USER_SEQ is a user-defined conversion sequence, beginning with a
2550 USER_CONV. STD_SEQ is the standard conversion sequence applied to
2551 the result of the conversion function to convert it to the final
2552 desired type. Merge the two sequences into a single sequence,
2553 and return the merged sequence. */
2555 static conversion *
2556 merge_conversion_sequences (conversion *user_seq, conversion *std_seq)
2558 conversion **t;
2560 gcc_assert (user_seq->kind == ck_user);
2562 /* Find the end of the second conversion sequence. */
2563 t = &(std_seq);
2564 while ((*t)->kind != ck_identity)
2565 t = &((*t)->u.next);
2567 /* Replace the identity conversion with the user conversion
2568 sequence. */
2569 *t = user_seq;
2571 /* The entire sequence is a user-conversion sequence. */
2572 std_seq->user_conv_p = true;
2574 return std_seq;
2577 /* Returns the best overload candidate to perform the requested
2578 conversion. This function is used for three the overloading situations
2579 described in [over.match.copy], [over.match.conv], and [over.match.ref].
2580 If TOTYPE is a REFERENCE_TYPE, we're trying to find an lvalue binding as
2581 per [dcl.init.ref], so we ignore temporary bindings. */
2583 static struct z_candidate *
2584 build_user_type_conversion_1 (tree totype, tree expr, int flags)
2586 struct z_candidate *candidates, *cand;
2587 tree fromtype = TREE_TYPE (expr);
2588 tree ctors = NULL_TREE;
2589 tree conv_fns = NULL_TREE;
2590 conversion *conv = NULL;
2591 tree args = NULL_TREE;
2592 bool any_viable_p;
2594 /* We represent conversion within a hierarchy using RVALUE_CONV and
2595 BASE_CONV, as specified by [over.best.ics]; these become plain
2596 constructor calls, as specified in [dcl.init]. */
2597 gcc_assert (!IS_AGGR_TYPE (fromtype) || !IS_AGGR_TYPE (totype)
2598 || !DERIVED_FROM_P (totype, fromtype));
2600 if (IS_AGGR_TYPE (totype))
2601 ctors = lookup_fnfields (totype, complete_ctor_identifier, 0);
2603 if (IS_AGGR_TYPE (fromtype))
2604 conv_fns = lookup_conversions (fromtype);
2606 candidates = 0;
2607 flags |= LOOKUP_NO_CONVERSION;
2609 if (ctors)
2611 tree t;
2613 ctors = BASELINK_FUNCTIONS (ctors);
2615 t = build_int_cst (build_pointer_type (totype), 0);
2616 args = build_tree_list (NULL_TREE, expr);
2617 /* We should never try to call the abstract or base constructor
2618 from here. */
2619 gcc_assert (!DECL_HAS_IN_CHARGE_PARM_P (OVL_CURRENT (ctors))
2620 && !DECL_HAS_VTT_PARM_P (OVL_CURRENT (ctors)));
2621 args = tree_cons (NULL_TREE, t, args);
2623 for (; ctors; ctors = OVL_NEXT (ctors))
2625 tree ctor = OVL_CURRENT (ctors);
2626 if (DECL_NONCONVERTING_P (ctor))
2627 continue;
2629 if (TREE_CODE (ctor) == TEMPLATE_DECL)
2630 cand = add_template_candidate (&candidates, ctor, totype,
2631 NULL_TREE, args, NULL_TREE,
2632 TYPE_BINFO (totype),
2633 TYPE_BINFO (totype),
2634 flags,
2635 DEDUCE_CALL);
2636 else
2637 cand = add_function_candidate (&candidates, ctor, totype,
2638 args, TYPE_BINFO (totype),
2639 TYPE_BINFO (totype),
2640 flags);
2642 if (cand)
2643 cand->second_conv = build_identity_conv (totype, NULL_TREE);
2646 if (conv_fns)
2647 args = build_tree_list (NULL_TREE, build_this (expr));
2649 for (; conv_fns; conv_fns = TREE_CHAIN (conv_fns))
2651 tree fns;
2652 tree conversion_path = TREE_PURPOSE (conv_fns);
2653 int convflags = LOOKUP_NO_CONVERSION;
2655 /* If we are called to convert to a reference type, we are trying to
2656 find an lvalue binding, so don't even consider temporaries. If
2657 we don't find an lvalue binding, the caller will try again to
2658 look for a temporary binding. */
2659 if (TREE_CODE (totype) == REFERENCE_TYPE)
2660 convflags |= LOOKUP_NO_TEMP_BIND;
2662 for (fns = TREE_VALUE (conv_fns); fns; fns = OVL_NEXT (fns))
2664 tree fn = OVL_CURRENT (fns);
2666 /* [over.match.funcs] For conversion functions, the function
2667 is considered to be a member of the class of the implicit
2668 object argument for the purpose of defining the type of
2669 the implicit object parameter.
2671 So we pass fromtype as CTYPE to add_*_candidate. */
2673 if (TREE_CODE (fn) == TEMPLATE_DECL)
2674 cand = add_template_candidate (&candidates, fn, fromtype,
2675 NULL_TREE,
2676 args, totype,
2677 TYPE_BINFO (fromtype),
2678 conversion_path,
2679 flags,
2680 DEDUCE_CONV);
2681 else
2682 cand = add_function_candidate (&candidates, fn, fromtype,
2683 args,
2684 TYPE_BINFO (fromtype),
2685 conversion_path,
2686 flags);
2688 if (cand)
2690 conversion *ics
2691 = implicit_conversion (totype,
2692 TREE_TYPE (TREE_TYPE (cand->fn)),
2694 /*c_cast_p=*/false, convflags);
2696 cand->second_conv = ics;
2698 if (!ics)
2699 cand->viable = 0;
2700 else if (candidates->viable == 1 && ics->bad_p)
2701 cand->viable = -1;
2706 candidates = splice_viable (candidates, pedantic, &any_viable_p);
2707 if (!any_viable_p)
2708 return NULL;
2710 cand = tourney (candidates);
2711 if (cand == 0)
2713 if (flags & LOOKUP_COMPLAIN)
2715 error ("conversion from %qT to %qT is ambiguous",
2716 fromtype, totype);
2717 print_z_candidates (candidates);
2720 cand = candidates; /* any one will do */
2721 cand->second_conv = build_ambiguous_conv (totype, expr);
2722 cand->second_conv->user_conv_p = true;
2723 if (!any_strictly_viable (candidates))
2724 cand->second_conv->bad_p = true;
2725 /* If there are viable candidates, don't set ICS_BAD_FLAG; an
2726 ambiguous conversion is no worse than another user-defined
2727 conversion. */
2729 return cand;
2732 /* Build the user conversion sequence. */
2733 conv = build_conv
2734 (ck_user,
2735 (DECL_CONSTRUCTOR_P (cand->fn)
2736 ? totype : non_reference (TREE_TYPE (TREE_TYPE (cand->fn)))),
2737 build_identity_conv (TREE_TYPE (expr), expr));
2738 conv->cand = cand;
2740 /* Combine it with the second conversion sequence. */
2741 cand->second_conv = merge_conversion_sequences (conv,
2742 cand->second_conv);
2744 if (cand->viable == -1)
2745 cand->second_conv->bad_p = true;
2747 return cand;
2750 tree
2751 build_user_type_conversion (tree totype, tree expr, int flags)
2753 struct z_candidate *cand
2754 = build_user_type_conversion_1 (totype, expr, flags);
2756 if (cand)
2758 if (cand->second_conv->kind == ck_ambig)
2759 return error_mark_node;
2760 expr = convert_like (cand->second_conv, expr);
2761 return convert_from_reference (expr);
2763 return NULL_TREE;
2766 /* Do any initial processing on the arguments to a function call. */
2768 static tree
2769 resolve_args (tree args)
2771 tree t;
2772 for (t = args; t; t = TREE_CHAIN (t))
2774 tree arg = TREE_VALUE (t);
2776 if (error_operand_p (arg))
2777 return error_mark_node;
2778 else if (VOID_TYPE_P (TREE_TYPE (arg)))
2780 error ("invalid use of void expression");
2781 return error_mark_node;
2783 else if (invalid_nonstatic_memfn_p (arg))
2784 return error_mark_node;
2786 return args;
2789 /* Perform overload resolution on FN, which is called with the ARGS.
2791 Return the candidate function selected by overload resolution, or
2792 NULL if the event that overload resolution failed. In the case
2793 that overload resolution fails, *CANDIDATES will be the set of
2794 candidates considered, and ANY_VIABLE_P will be set to true or
2795 false to indicate whether or not any of the candidates were
2796 viable.
2798 The ARGS should already have gone through RESOLVE_ARGS before this
2799 function is called. */
2801 static struct z_candidate *
2802 perform_overload_resolution (tree fn,
2803 tree args,
2804 struct z_candidate **candidates,
2805 bool *any_viable_p)
2807 struct z_candidate *cand;
2808 tree explicit_targs = NULL_TREE;
2809 int template_only = 0;
2811 *candidates = NULL;
2812 *any_viable_p = true;
2814 /* Check FN and ARGS. */
2815 gcc_assert (TREE_CODE (fn) == FUNCTION_DECL
2816 || TREE_CODE (fn) == TEMPLATE_DECL
2817 || TREE_CODE (fn) == OVERLOAD
2818 || TREE_CODE (fn) == TEMPLATE_ID_EXPR);
2819 gcc_assert (!args || TREE_CODE (args) == TREE_LIST);
2821 if (TREE_CODE (fn) == TEMPLATE_ID_EXPR)
2823 explicit_targs = TREE_OPERAND (fn, 1);
2824 fn = TREE_OPERAND (fn, 0);
2825 template_only = 1;
2828 /* Add the various candidate functions. */
2829 add_candidates (fn, args, explicit_targs, template_only,
2830 /*conversion_path=*/NULL_TREE,
2831 /*access_path=*/NULL_TREE,
2832 LOOKUP_NORMAL,
2833 candidates);
2835 *candidates = splice_viable (*candidates, pedantic, any_viable_p);
2836 if (!*any_viable_p)
2837 return NULL;
2839 cand = tourney (*candidates);
2840 return cand;
2843 /* Return an expression for a call to FN (a namespace-scope function,
2844 or a static member function) with the ARGS. */
2846 tree
2847 build_new_function_call (tree fn, tree args, bool koenig_p)
2849 struct z_candidate *candidates, *cand;
2850 bool any_viable_p;
2851 void *p;
2852 tree result;
2854 args = resolve_args (args);
2855 if (args == error_mark_node)
2856 return error_mark_node;
2858 /* If this function was found without using argument dependent
2859 lookup, then we want to ignore any undeclared friend
2860 functions. */
2861 if (!koenig_p)
2863 tree orig_fn = fn;
2865 fn = remove_hidden_names (fn);
2866 if (!fn)
2868 error ("no matching function for call to %<%D(%A)%>",
2869 DECL_NAME (OVL_CURRENT (orig_fn)), args);
2870 return error_mark_node;
2874 /* Get the high-water mark for the CONVERSION_OBSTACK. */
2875 p = conversion_obstack_alloc (0);
2877 cand = perform_overload_resolution (fn, args, &candidates, &any_viable_p);
2879 if (!cand)
2881 if (!any_viable_p && candidates && ! candidates->next)
2882 return build_function_call (candidates->fn, args);
2883 if (TREE_CODE (fn) == TEMPLATE_ID_EXPR)
2884 fn = TREE_OPERAND (fn, 0);
2885 if (!any_viable_p)
2886 error ("no matching function for call to %<%D(%A)%>",
2887 DECL_NAME (OVL_CURRENT (fn)), args);
2888 else
2889 error ("call of overloaded %<%D(%A)%> is ambiguous",
2890 DECL_NAME (OVL_CURRENT (fn)), args);
2891 if (candidates)
2892 print_z_candidates (candidates);
2893 result = error_mark_node;
2895 else
2896 result = build_over_call (cand, LOOKUP_NORMAL);
2898 /* Free all the conversions we allocated. */
2899 obstack_free (&conversion_obstack, p);
2901 return result;
2904 /* Build a call to a global operator new. FNNAME is the name of the
2905 operator (either "operator new" or "operator new[]") and ARGS are
2906 the arguments provided. *SIZE points to the total number of bytes
2907 required by the allocation, and is updated if that is changed here.
2908 *COOKIE_SIZE is non-NULL if a cookie should be used. If this
2909 function determines that no cookie should be used, after all,
2910 *COOKIE_SIZE is set to NULL_TREE. If FN is non-NULL, it will be
2911 set, upon return, to the allocation function called. */
2913 tree
2914 build_operator_new_call (tree fnname, tree args,
2915 tree *size, tree *cookie_size,
2916 tree *fn)
2918 tree fns;
2919 struct z_candidate *candidates;
2920 struct z_candidate *cand;
2921 bool any_viable_p;
2923 if (fn)
2924 *fn = NULL_TREE;
2925 args = tree_cons (NULL_TREE, *size, args);
2926 args = resolve_args (args);
2927 if (args == error_mark_node)
2928 return args;
2930 /* Based on:
2932 [expr.new]
2934 If this lookup fails to find the name, or if the allocated type
2935 is not a class type, the allocation function's name is looked
2936 up in the global scope.
2938 we disregard block-scope declarations of "operator new". */
2939 fns = lookup_function_nonclass (fnname, args, /*block_p=*/false);
2941 /* Figure out what function is being called. */
2942 cand = perform_overload_resolution (fns, args, &candidates, &any_viable_p);
2944 /* If no suitable function could be found, issue an error message
2945 and give up. */
2946 if (!cand)
2948 if (!any_viable_p)
2949 error ("no matching function for call to %<%D(%A)%>",
2950 DECL_NAME (OVL_CURRENT (fns)), args);
2951 else
2952 error ("call of overloaded %<%D(%A)%> is ambiguous",
2953 DECL_NAME (OVL_CURRENT (fns)), args);
2954 if (candidates)
2955 print_z_candidates (candidates);
2956 return error_mark_node;
2959 /* If a cookie is required, add some extra space. Whether
2960 or not a cookie is required cannot be determined until
2961 after we know which function was called. */
2962 if (*cookie_size)
2964 bool use_cookie = true;
2965 if (!abi_version_at_least (2))
2967 tree placement = TREE_CHAIN (args);
2968 /* In G++ 3.2, the check was implemented incorrectly; it
2969 looked at the placement expression, rather than the
2970 type of the function. */
2971 if (placement && !TREE_CHAIN (placement)
2972 && same_type_p (TREE_TYPE (TREE_VALUE (placement)),
2973 ptr_type_node))
2974 use_cookie = false;
2976 else
2978 tree arg_types;
2980 arg_types = TYPE_ARG_TYPES (TREE_TYPE (cand->fn));
2981 /* Skip the size_t parameter. */
2982 arg_types = TREE_CHAIN (arg_types);
2983 /* Check the remaining parameters (if any). */
2984 if (arg_types
2985 && TREE_CHAIN (arg_types) == void_list_node
2986 && same_type_p (TREE_VALUE (arg_types),
2987 ptr_type_node))
2988 use_cookie = false;
2990 /* If we need a cookie, adjust the number of bytes allocated. */
2991 if (use_cookie)
2993 /* Update the total size. */
2994 *size = size_binop (PLUS_EXPR, *size, *cookie_size);
2995 /* Update the argument list to reflect the adjusted size. */
2996 TREE_VALUE (args) = *size;
2998 else
2999 *cookie_size = NULL_TREE;
3002 /* Tell our caller which function we decided to call. */
3003 if (fn)
3004 *fn = cand->fn;
3006 /* Build the CALL_EXPR. */
3007 return build_over_call (cand, LOOKUP_NORMAL);
3010 static tree
3011 build_object_call (tree obj, tree args)
3013 struct z_candidate *candidates = 0, *cand;
3014 tree fns, convs, mem_args = NULL_TREE;
3015 tree type = TREE_TYPE (obj);
3016 bool any_viable_p;
3017 tree result = NULL_TREE;
3018 void *p;
3020 if (TYPE_PTRMEMFUNC_P (type))
3022 /* It's no good looking for an overloaded operator() on a
3023 pointer-to-member-function. */
3024 error ("pointer-to-member function %E cannot be called without an object; consider using .* or ->*", obj);
3025 return error_mark_node;
3028 if (TYPE_BINFO (type))
3030 fns = lookup_fnfields (TYPE_BINFO (type), ansi_opname (CALL_EXPR), 1);
3031 if (fns == error_mark_node)
3032 return error_mark_node;
3034 else
3035 fns = NULL_TREE;
3037 args = resolve_args (args);
3039 if (args == error_mark_node)
3040 return error_mark_node;
3042 /* Get the high-water mark for the CONVERSION_OBSTACK. */
3043 p = conversion_obstack_alloc (0);
3045 if (fns)
3047 tree base = BINFO_TYPE (BASELINK_BINFO (fns));
3048 mem_args = tree_cons (NULL_TREE, build_this (obj), args);
3050 for (fns = BASELINK_FUNCTIONS (fns); fns; fns = OVL_NEXT (fns))
3052 tree fn = OVL_CURRENT (fns);
3053 if (TREE_CODE (fn) == TEMPLATE_DECL)
3054 add_template_candidate (&candidates, fn, base, NULL_TREE,
3055 mem_args, NULL_TREE,
3056 TYPE_BINFO (type),
3057 TYPE_BINFO (type),
3058 LOOKUP_NORMAL, DEDUCE_CALL);
3059 else
3060 add_function_candidate
3061 (&candidates, fn, base, mem_args, TYPE_BINFO (type),
3062 TYPE_BINFO (type), LOOKUP_NORMAL);
3066 convs = lookup_conversions (type);
3068 for (; convs; convs = TREE_CHAIN (convs))
3070 tree fns = TREE_VALUE (convs);
3071 tree totype = TREE_TYPE (TREE_TYPE (OVL_CURRENT (fns)));
3073 if ((TREE_CODE (totype) == POINTER_TYPE
3074 && TREE_CODE (TREE_TYPE (totype)) == FUNCTION_TYPE)
3075 || (TREE_CODE (totype) == REFERENCE_TYPE
3076 && TREE_CODE (TREE_TYPE (totype)) == FUNCTION_TYPE)
3077 || (TREE_CODE (totype) == REFERENCE_TYPE
3078 && TREE_CODE (TREE_TYPE (totype)) == POINTER_TYPE
3079 && TREE_CODE (TREE_TYPE (TREE_TYPE (totype))) == FUNCTION_TYPE))
3080 for (; fns; fns = OVL_NEXT (fns))
3082 tree fn = OVL_CURRENT (fns);
3083 if (TREE_CODE (fn) == TEMPLATE_DECL)
3084 add_template_conv_candidate
3085 (&candidates, fn, obj, args, totype,
3086 /*access_path=*/NULL_TREE,
3087 /*conversion_path=*/NULL_TREE);
3088 else
3089 add_conv_candidate (&candidates, fn, obj, args,
3090 /*conversion_path=*/NULL_TREE,
3091 /*access_path=*/NULL_TREE);
3095 candidates = splice_viable (candidates, pedantic, &any_viable_p);
3096 if (!any_viable_p)
3098 error ("no match for call to %<(%T) (%A)%>", TREE_TYPE (obj), args);
3099 print_z_candidates (candidates);
3100 result = error_mark_node;
3102 else
3104 cand = tourney (candidates);
3105 if (cand == 0)
3107 error ("call of %<(%T) (%A)%> is ambiguous", TREE_TYPE (obj), args);
3108 print_z_candidates (candidates);
3109 result = error_mark_node;
3111 /* Since cand->fn will be a type, not a function, for a conversion
3112 function, we must be careful not to unconditionally look at
3113 DECL_NAME here. */
3114 else if (TREE_CODE (cand->fn) == FUNCTION_DECL
3115 && DECL_OVERLOADED_OPERATOR_P (cand->fn) == CALL_EXPR)
3116 result = build_over_call (cand, LOOKUP_NORMAL);
3117 else
3119 obj = convert_like_with_context (cand->convs[0], obj, cand->fn, -1);
3120 obj = convert_from_reference (obj);
3121 result = build_function_call (obj, args);
3125 /* Free all the conversions we allocated. */
3126 obstack_free (&conversion_obstack, p);
3128 return result;
3131 static void
3132 op_error (enum tree_code code, enum tree_code code2,
3133 tree arg1, tree arg2, tree arg3, const char *problem)
3135 const char *opname;
3137 if (code == MODIFY_EXPR)
3138 opname = assignment_operator_name_info[code2].name;
3139 else
3140 opname = operator_name_info[code].name;
3142 switch (code)
3144 case COND_EXPR:
3145 error ("%s for ternary %<operator?:%> in %<%E ? %E : %E%>",
3146 problem, arg1, arg2, arg3);
3147 break;
3149 case POSTINCREMENT_EXPR:
3150 case POSTDECREMENT_EXPR:
3151 error ("%s for %<operator%s%> in %<%E%s%>", problem, opname, arg1, opname);
3152 break;
3154 case ARRAY_REF:
3155 error ("%s for %<operator[]%> in %<%E[%E]%>", problem, arg1, arg2);
3156 break;
3158 case REALPART_EXPR:
3159 case IMAGPART_EXPR:
3160 error ("%s for %qs in %<%s %E%>", problem, opname, opname, arg1);
3161 break;
3163 default:
3164 if (arg2)
3165 error ("%s for %<operator%s%> in %<%E %s %E%>",
3166 problem, opname, arg1, opname, arg2);
3167 else
3168 error ("%s for %<operator%s%> in %<%s%E%>",
3169 problem, opname, opname, arg1);
3170 break;
3174 /* Return the implicit conversion sequence that could be used to
3175 convert E1 to E2 in [expr.cond]. */
3177 static conversion *
3178 conditional_conversion (tree e1, tree e2)
3180 tree t1 = non_reference (TREE_TYPE (e1));
3181 tree t2 = non_reference (TREE_TYPE (e2));
3182 conversion *conv;
3183 bool good_base;
3185 /* [expr.cond]
3187 If E2 is an lvalue: E1 can be converted to match E2 if E1 can be
3188 implicitly converted (clause _conv_) to the type "reference to
3189 T2", subject to the constraint that in the conversion the
3190 reference must bind directly (_dcl.init.ref_) to E1. */
3191 if (real_lvalue_p (e2))
3193 conv = implicit_conversion (build_reference_type (t2),
3196 /*c_cast_p=*/false,
3197 LOOKUP_NO_TEMP_BIND);
3198 if (conv)
3199 return conv;
3202 /* [expr.cond]
3204 If E1 and E2 have class type, and the underlying class types are
3205 the same or one is a base class of the other: E1 can be converted
3206 to match E2 if the class of T2 is the same type as, or a base
3207 class of, the class of T1, and the cv-qualification of T2 is the
3208 same cv-qualification as, or a greater cv-qualification than, the
3209 cv-qualification of T1. If the conversion is applied, E1 is
3210 changed to an rvalue of type T2 that still refers to the original
3211 source class object (or the appropriate subobject thereof). */
3212 if (CLASS_TYPE_P (t1) && CLASS_TYPE_P (t2)
3213 && ((good_base = DERIVED_FROM_P (t2, t1)) || DERIVED_FROM_P (t1, t2)))
3215 if (good_base && at_least_as_qualified_p (t2, t1))
3217 conv = build_identity_conv (t1, e1);
3218 if (!same_type_p (TYPE_MAIN_VARIANT (t1),
3219 TYPE_MAIN_VARIANT (t2)))
3220 conv = build_conv (ck_base, t2, conv);
3221 else
3222 conv = build_conv (ck_rvalue, t2, conv);
3223 return conv;
3225 else
3226 return NULL;
3228 else
3229 /* [expr.cond]
3231 Otherwise: E1 can be converted to match E2 if E1 can be implicitly
3232 converted to the type that expression E2 would have if E2 were
3233 converted to an rvalue (or the type it has, if E2 is an rvalue). */
3234 return implicit_conversion (t2, t1, e1, /*c_cast_p=*/false,
3235 LOOKUP_NORMAL);
3238 /* Implement [expr.cond]. ARG1, ARG2, and ARG3 are the three
3239 arguments to the conditional expression. */
3241 tree
3242 build_conditional_expr (tree arg1, tree arg2, tree arg3)
3244 tree arg2_type;
3245 tree arg3_type;
3246 tree result = NULL_TREE;
3247 tree result_type = NULL_TREE;
3248 bool lvalue_p = true;
3249 struct z_candidate *candidates = 0;
3250 struct z_candidate *cand;
3251 void *p;
3253 /* As a G++ extension, the second argument to the conditional can be
3254 omitted. (So that `a ? : c' is roughly equivalent to `a ? a :
3255 c'.) If the second operand is omitted, make sure it is
3256 calculated only once. */
3257 if (!arg2)
3259 if (pedantic)
3260 pedwarn ("ISO C++ forbids omitting the middle term of a ?: expression");
3262 /* Make sure that lvalues remain lvalues. See g++.oliva/ext1.C. */
3263 if (real_lvalue_p (arg1))
3264 arg2 = arg1 = stabilize_reference (arg1);
3265 else
3266 arg2 = arg1 = save_expr (arg1);
3269 /* [expr.cond]
3271 The first expr ession is implicitly converted to bool (clause
3272 _conv_). */
3273 arg1 = perform_implicit_conversion (boolean_type_node, arg1);
3275 /* If something has already gone wrong, just pass that fact up the
3276 tree. */
3277 if (error_operand_p (arg1)
3278 || error_operand_p (arg2)
3279 || error_operand_p (arg3))
3280 return error_mark_node;
3282 /* [expr.cond]
3284 If either the second or the third operand has type (possibly
3285 cv-qualified) void, then the lvalue-to-rvalue (_conv.lval_),
3286 array-to-pointer (_conv.array_), and function-to-pointer
3287 (_conv.func_) standard conversions are performed on the second
3288 and third operands. */
3289 arg2_type = unlowered_expr_type (arg2);
3290 arg3_type = unlowered_expr_type (arg3);
3291 if (VOID_TYPE_P (arg2_type) || VOID_TYPE_P (arg3_type))
3293 /* Do the conversions. We don't these for `void' type arguments
3294 since it can't have any effect and since decay_conversion
3295 does not handle that case gracefully. */
3296 if (!VOID_TYPE_P (arg2_type))
3297 arg2 = decay_conversion (arg2);
3298 if (!VOID_TYPE_P (arg3_type))
3299 arg3 = decay_conversion (arg3);
3300 arg2_type = TREE_TYPE (arg2);
3301 arg3_type = TREE_TYPE (arg3);
3303 /* [expr.cond]
3305 One of the following shall hold:
3307 --The second or the third operand (but not both) is a
3308 throw-expression (_except.throw_); the result is of the
3309 type of the other and is an rvalue.
3311 --Both the second and the third operands have type void; the
3312 result is of type void and is an rvalue.
3314 We must avoid calling force_rvalue for expressions of type
3315 "void" because it will complain that their value is being
3316 used. */
3317 if (TREE_CODE (arg2) == THROW_EXPR
3318 && TREE_CODE (arg3) != THROW_EXPR)
3320 if (!VOID_TYPE_P (arg3_type))
3321 arg3 = force_rvalue (arg3);
3322 arg3_type = TREE_TYPE (arg3);
3323 result_type = arg3_type;
3325 else if (TREE_CODE (arg2) != THROW_EXPR
3326 && TREE_CODE (arg3) == THROW_EXPR)
3328 if (!VOID_TYPE_P (arg2_type))
3329 arg2 = force_rvalue (arg2);
3330 arg2_type = TREE_TYPE (arg2);
3331 result_type = arg2_type;
3333 else if (VOID_TYPE_P (arg2_type) && VOID_TYPE_P (arg3_type))
3334 result_type = void_type_node;
3335 else
3337 if (VOID_TYPE_P (arg2_type))
3338 error ("second operand to the conditional operator "
3339 "is of type %<void%>, "
3340 "but the third operand is neither a throw-expression "
3341 "nor of type %<void%>");
3342 else
3343 error ("third operand to the conditional operator "
3344 "is of type %<void%>, "
3345 "but the second operand is neither a throw-expression "
3346 "nor of type %<void%>");
3347 return error_mark_node;
3350 lvalue_p = false;
3351 goto valid_operands;
3353 /* [expr.cond]
3355 Otherwise, if the second and third operand have different types,
3356 and either has (possibly cv-qualified) class type, an attempt is
3357 made to convert each of those operands to the type of the other. */
3358 else if (!same_type_p (arg2_type, arg3_type)
3359 && (CLASS_TYPE_P (arg2_type) || CLASS_TYPE_P (arg3_type)))
3361 conversion *conv2;
3362 conversion *conv3;
3364 /* Get the high-water mark for the CONVERSION_OBSTACK. */
3365 p = conversion_obstack_alloc (0);
3367 conv2 = conditional_conversion (arg2, arg3);
3368 conv3 = conditional_conversion (arg3, arg2);
3370 /* [expr.cond]
3372 If both can be converted, or one can be converted but the
3373 conversion is ambiguous, the program is ill-formed. If
3374 neither can be converted, the operands are left unchanged and
3375 further checking is performed as described below. If exactly
3376 one conversion is possible, that conversion is applied to the
3377 chosen operand and the converted operand is used in place of
3378 the original operand for the remainder of this section. */
3379 if ((conv2 && !conv2->bad_p
3380 && conv3 && !conv3->bad_p)
3381 || (conv2 && conv2->kind == ck_ambig)
3382 || (conv3 && conv3->kind == ck_ambig))
3384 error ("operands to ?: have different types %qT and %qT",
3385 arg2_type, arg3_type);
3386 result = error_mark_node;
3388 else if (conv2 && (!conv2->bad_p || !conv3))
3390 arg2 = convert_like (conv2, arg2);
3391 arg2 = convert_from_reference (arg2);
3392 arg2_type = TREE_TYPE (arg2);
3393 /* Even if CONV2 is a valid conversion, the result of the
3394 conversion may be invalid. For example, if ARG3 has type
3395 "volatile X", and X does not have a copy constructor
3396 accepting a "volatile X&", then even if ARG2 can be
3397 converted to X, the conversion will fail. */
3398 if (error_operand_p (arg2))
3399 result = error_mark_node;
3401 else if (conv3 && (!conv3->bad_p || !conv2))
3403 arg3 = convert_like (conv3, arg3);
3404 arg3 = convert_from_reference (arg3);
3405 arg3_type = TREE_TYPE (arg3);
3406 if (error_operand_p (arg3))
3407 result = error_mark_node;
3410 /* Free all the conversions we allocated. */
3411 obstack_free (&conversion_obstack, p);
3413 if (result)
3414 return result;
3416 /* If, after the conversion, both operands have class type,
3417 treat the cv-qualification of both operands as if it were the
3418 union of the cv-qualification of the operands.
3420 The standard is not clear about what to do in this
3421 circumstance. For example, if the first operand has type
3422 "const X" and the second operand has a user-defined
3423 conversion to "volatile X", what is the type of the second
3424 operand after this step? Making it be "const X" (matching
3425 the first operand) seems wrong, as that discards the
3426 qualification without actually performing a copy. Leaving it
3427 as "volatile X" seems wrong as that will result in the
3428 conditional expression failing altogether, even though,
3429 according to this step, the one operand could be converted to
3430 the type of the other. */
3431 if ((conv2 || conv3)
3432 && CLASS_TYPE_P (arg2_type)
3433 && TYPE_QUALS (arg2_type) != TYPE_QUALS (arg3_type))
3434 arg2_type = arg3_type =
3435 cp_build_qualified_type (arg2_type,
3436 TYPE_QUALS (arg2_type)
3437 | TYPE_QUALS (arg3_type));
3440 /* [expr.cond]
3442 If the second and third operands are lvalues and have the same
3443 type, the result is of that type and is an lvalue. */
3444 if (real_lvalue_p (arg2)
3445 && real_lvalue_p (arg3)
3446 && same_type_p (arg2_type, arg3_type))
3448 result_type = arg2_type;
3449 goto valid_operands;
3452 /* [expr.cond]
3454 Otherwise, the result is an rvalue. If the second and third
3455 operand do not have the same type, and either has (possibly
3456 cv-qualified) class type, overload resolution is used to
3457 determine the conversions (if any) to be applied to the operands
3458 (_over.match.oper_, _over.built_). */
3459 lvalue_p = false;
3460 if (!same_type_p (arg2_type, arg3_type)
3461 && (CLASS_TYPE_P (arg2_type) || CLASS_TYPE_P (arg3_type)))
3463 tree args[3];
3464 conversion *conv;
3465 bool any_viable_p;
3467 /* Rearrange the arguments so that add_builtin_candidate only has
3468 to know about two args. In build_builtin_candidates, the
3469 arguments are unscrambled. */
3470 args[0] = arg2;
3471 args[1] = arg3;
3472 args[2] = arg1;
3473 add_builtin_candidates (&candidates,
3474 COND_EXPR,
3475 NOP_EXPR,
3476 ansi_opname (COND_EXPR),
3477 args,
3478 LOOKUP_NORMAL);
3480 /* [expr.cond]
3482 If the overload resolution fails, the program is
3483 ill-formed. */
3484 candidates = splice_viable (candidates, pedantic, &any_viable_p);
3485 if (!any_viable_p)
3487 op_error (COND_EXPR, NOP_EXPR, arg1, arg2, arg3, "no match");
3488 print_z_candidates (candidates);
3489 return error_mark_node;
3491 cand = tourney (candidates);
3492 if (!cand)
3494 op_error (COND_EXPR, NOP_EXPR, arg1, arg2, arg3, "no match");
3495 print_z_candidates (candidates);
3496 return error_mark_node;
3499 /* [expr.cond]
3501 Otherwise, the conversions thus determined are applied, and
3502 the converted operands are used in place of the original
3503 operands for the remainder of this section. */
3504 conv = cand->convs[0];
3505 arg1 = convert_like (conv, arg1);
3506 conv = cand->convs[1];
3507 arg2 = convert_like (conv, arg2);
3508 conv = cand->convs[2];
3509 arg3 = convert_like (conv, arg3);
3512 /* [expr.cond]
3514 Lvalue-to-rvalue (_conv.lval_), array-to-pointer (_conv.array_),
3515 and function-to-pointer (_conv.func_) standard conversions are
3516 performed on the second and third operands.
3518 We need to force the lvalue-to-rvalue conversion here for class types,
3519 so we get TARGET_EXPRs; trying to deal with a COND_EXPR of class rvalues
3520 that isn't wrapped with a TARGET_EXPR plays havoc with exception
3521 regions. */
3523 arg2 = force_rvalue (arg2);
3524 if (!CLASS_TYPE_P (arg2_type))
3525 arg2_type = TREE_TYPE (arg2);
3527 arg3 = force_rvalue (arg3);
3528 if (!CLASS_TYPE_P (arg2_type))
3529 arg3_type = TREE_TYPE (arg3);
3531 if (arg2 == error_mark_node || arg3 == error_mark_node)
3532 return error_mark_node;
3534 /* [expr.cond]
3536 After those conversions, one of the following shall hold:
3538 --The second and third operands have the same type; the result is of
3539 that type. */
3540 if (same_type_p (arg2_type, arg3_type))
3541 result_type = arg2_type;
3542 /* [expr.cond]
3544 --The second and third operands have arithmetic or enumeration
3545 type; the usual arithmetic conversions are performed to bring
3546 them to a common type, and the result is of that type. */
3547 else if ((ARITHMETIC_TYPE_P (arg2_type)
3548 || TREE_CODE (arg2_type) == ENUMERAL_TYPE)
3549 && (ARITHMETIC_TYPE_P (arg3_type)
3550 || TREE_CODE (arg3_type) == ENUMERAL_TYPE))
3552 /* In this case, there is always a common type. */
3553 result_type = type_after_usual_arithmetic_conversions (arg2_type,
3554 arg3_type);
3556 if (TREE_CODE (arg2_type) == ENUMERAL_TYPE
3557 && TREE_CODE (arg3_type) == ENUMERAL_TYPE)
3558 warning (0, "enumeral mismatch in conditional expression: %qT vs %qT",
3559 arg2_type, arg3_type);
3560 else if (extra_warnings
3561 && ((TREE_CODE (arg2_type) == ENUMERAL_TYPE
3562 && !same_type_p (arg3_type, type_promotes_to (arg2_type)))
3563 || (TREE_CODE (arg3_type) == ENUMERAL_TYPE
3564 && !same_type_p (arg2_type, type_promotes_to (arg3_type)))))
3565 warning (0, "enumeral and non-enumeral type in conditional expression");
3567 arg2 = perform_implicit_conversion (result_type, arg2);
3568 arg3 = perform_implicit_conversion (result_type, arg3);
3570 /* [expr.cond]
3572 --The second and third operands have pointer type, or one has
3573 pointer type and the other is a null pointer constant; pointer
3574 conversions (_conv.ptr_) and qualification conversions
3575 (_conv.qual_) are performed to bring them to their composite
3576 pointer type (_expr.rel_). The result is of the composite
3577 pointer type.
3579 --The second and third operands have pointer to member type, or
3580 one has pointer to member type and the other is a null pointer
3581 constant; pointer to member conversions (_conv.mem_) and
3582 qualification conversions (_conv.qual_) are performed to bring
3583 them to a common type, whose cv-qualification shall match the
3584 cv-qualification of either the second or the third operand.
3585 The result is of the common type. */
3586 else if ((null_ptr_cst_p (arg2)
3587 && (TYPE_PTR_P (arg3_type) || TYPE_PTR_TO_MEMBER_P (arg3_type)))
3588 || (null_ptr_cst_p (arg3)
3589 && (TYPE_PTR_P (arg2_type) || TYPE_PTR_TO_MEMBER_P (arg2_type)))
3590 || (TYPE_PTR_P (arg2_type) && TYPE_PTR_P (arg3_type))
3591 || (TYPE_PTRMEM_P (arg2_type) && TYPE_PTRMEM_P (arg3_type))
3592 || (TYPE_PTRMEMFUNC_P (arg2_type) && TYPE_PTRMEMFUNC_P (arg3_type)))
3594 result_type = composite_pointer_type (arg2_type, arg3_type, arg2,
3595 arg3, "conditional expression");
3596 if (result_type == error_mark_node)
3597 return error_mark_node;
3598 arg2 = perform_implicit_conversion (result_type, arg2);
3599 arg3 = perform_implicit_conversion (result_type, arg3);
3602 if (!result_type)
3604 error ("operands to ?: have different types %qT and %qT",
3605 arg2_type, arg3_type);
3606 return error_mark_node;
3609 valid_operands:
3610 result = fold_if_not_in_template (build3 (COND_EXPR, result_type, arg1,
3611 arg2, arg3));
3612 /* We can't use result_type below, as fold might have returned a
3613 throw_expr. */
3615 if (!lvalue_p)
3617 /* Expand both sides into the same slot, hopefully the target of
3618 the ?: expression. We used to check for TARGET_EXPRs here,
3619 but now we sometimes wrap them in NOP_EXPRs so the test would
3620 fail. */
3621 if (CLASS_TYPE_P (TREE_TYPE (result)))
3622 result = get_target_expr (result);
3623 /* If this expression is an rvalue, but might be mistaken for an
3624 lvalue, we must add a NON_LVALUE_EXPR. */
3625 result = rvalue (result);
3628 return result;
3631 /* OPERAND is an operand to an expression. Perform necessary steps
3632 required before using it. If OPERAND is NULL_TREE, NULL_TREE is
3633 returned. */
3635 static tree
3636 prep_operand (tree operand)
3638 if (operand)
3640 if (CLASS_TYPE_P (TREE_TYPE (operand))
3641 && CLASSTYPE_TEMPLATE_INSTANTIATION (TREE_TYPE (operand)))
3642 /* Make sure the template type is instantiated now. */
3643 instantiate_class_template (TYPE_MAIN_VARIANT (TREE_TYPE (operand)));
3646 return operand;
3649 /* Add each of the viable functions in FNS (a FUNCTION_DECL or
3650 OVERLOAD) to the CANDIDATES, returning an updated list of
3651 CANDIDATES. The ARGS are the arguments provided to the call,
3652 without any implicit object parameter. The EXPLICIT_TARGS are
3653 explicit template arguments provided. TEMPLATE_ONLY is true if
3654 only template functions should be considered. CONVERSION_PATH,
3655 ACCESS_PATH, and FLAGS are as for add_function_candidate. */
3657 static void
3658 add_candidates (tree fns, tree args,
3659 tree explicit_targs, bool template_only,
3660 tree conversion_path, tree access_path,
3661 int flags,
3662 struct z_candidate **candidates)
3664 tree ctype;
3665 tree non_static_args;
3667 ctype = conversion_path ? BINFO_TYPE (conversion_path) : NULL_TREE;
3668 /* Delay creating the implicit this parameter until it is needed. */
3669 non_static_args = NULL_TREE;
3671 while (fns)
3673 tree fn;
3674 tree fn_args;
3676 fn = OVL_CURRENT (fns);
3677 /* Figure out which set of arguments to use. */
3678 if (DECL_NONSTATIC_MEMBER_FUNCTION_P (fn))
3680 /* If this function is a non-static member, prepend the implicit
3681 object parameter. */
3682 if (!non_static_args)
3683 non_static_args = tree_cons (NULL_TREE,
3684 build_this (TREE_VALUE (args)),
3685 TREE_CHAIN (args));
3686 fn_args = non_static_args;
3688 else
3689 /* Otherwise, just use the list of arguments provided. */
3690 fn_args = args;
3692 if (TREE_CODE (fn) == TEMPLATE_DECL)
3693 add_template_candidate (candidates,
3695 ctype,
3696 explicit_targs,
3697 fn_args,
3698 NULL_TREE,
3699 access_path,
3700 conversion_path,
3701 flags,
3702 DEDUCE_CALL);
3703 else if (!template_only)
3704 add_function_candidate (candidates,
3706 ctype,
3707 fn_args,
3708 access_path,
3709 conversion_path,
3710 flags);
3711 fns = OVL_NEXT (fns);
3715 tree
3716 build_new_op (enum tree_code code, int flags, tree arg1, tree arg2, tree arg3,
3717 bool *overloaded_p)
3719 struct z_candidate *candidates = 0, *cand;
3720 tree arglist, fnname;
3721 tree args[3];
3722 tree result = NULL_TREE;
3723 bool result_valid_p = false;
3724 enum tree_code code2 = NOP_EXPR;
3725 conversion *conv;
3726 void *p;
3727 bool strict_p;
3728 bool any_viable_p;
3729 bool expl_eq_arg1 = false;
3731 if (error_operand_p (arg1)
3732 || error_operand_p (arg2)
3733 || error_operand_p (arg3))
3734 return error_mark_node;
3736 if (code == MODIFY_EXPR)
3738 code2 = TREE_CODE (arg3);
3739 arg3 = NULL_TREE;
3740 fnname = ansi_assopname (code2);
3742 else
3743 fnname = ansi_opname (code);
3745 arg1 = prep_operand (arg1);
3747 switch (code)
3749 case NEW_EXPR:
3750 case VEC_NEW_EXPR:
3751 case VEC_DELETE_EXPR:
3752 case DELETE_EXPR:
3753 /* Use build_op_new_call and build_op_delete_call instead. */
3754 gcc_unreachable ();
3756 case CALL_EXPR:
3757 return build_object_call (arg1, arg2);
3759 case TRUTH_ORIF_EXPR:
3760 case TRUTH_ANDIF_EXPR:
3761 case TRUTH_AND_EXPR:
3762 case TRUTH_OR_EXPR:
3763 if (COMPARISON_CLASS_P (arg1))
3764 expl_eq_arg1 = true;
3765 default:
3766 break;
3769 arg2 = prep_operand (arg2);
3770 arg3 = prep_operand (arg3);
3772 if (code == COND_EXPR)
3774 if (arg2 == NULL_TREE
3775 || TREE_CODE (TREE_TYPE (arg2)) == VOID_TYPE
3776 || TREE_CODE (TREE_TYPE (arg3)) == VOID_TYPE
3777 || (! IS_OVERLOAD_TYPE (TREE_TYPE (arg2))
3778 && ! IS_OVERLOAD_TYPE (TREE_TYPE (arg3))))
3779 goto builtin;
3781 else if (! IS_OVERLOAD_TYPE (TREE_TYPE (arg1))
3782 && (! arg2 || ! IS_OVERLOAD_TYPE (TREE_TYPE (arg2))))
3783 goto builtin;
3785 if (code == POSTINCREMENT_EXPR || code == POSTDECREMENT_EXPR)
3786 arg2 = integer_zero_node;
3788 arglist = NULL_TREE;
3789 if (arg3)
3790 arglist = tree_cons (NULL_TREE, arg3, arglist);
3791 if (arg2)
3792 arglist = tree_cons (NULL_TREE, arg2, arglist);
3793 arglist = tree_cons (NULL_TREE, arg1, arglist);
3795 /* Get the high-water mark for the CONVERSION_OBSTACK. */
3796 p = conversion_obstack_alloc (0);
3798 /* Add namespace-scope operators to the list of functions to
3799 consider. */
3800 add_candidates (lookup_function_nonclass (fnname, arglist, /*block_p=*/true),
3801 arglist, NULL_TREE, false, NULL_TREE, NULL_TREE,
3802 flags, &candidates);
3803 /* Add class-member operators to the candidate set. */
3804 if (CLASS_TYPE_P (TREE_TYPE (arg1)))
3806 tree fns;
3808 fns = lookup_fnfields (TREE_TYPE (arg1), fnname, 1);
3809 if (fns == error_mark_node)
3811 result = error_mark_node;
3812 goto user_defined_result_ready;
3814 if (fns)
3815 add_candidates (BASELINK_FUNCTIONS (fns), arglist,
3816 NULL_TREE, false,
3817 BASELINK_BINFO (fns),
3818 TYPE_BINFO (TREE_TYPE (arg1)),
3819 flags, &candidates);
3822 /* Rearrange the arguments for ?: so that add_builtin_candidate only has
3823 to know about two args; a builtin candidate will always have a first
3824 parameter of type bool. We'll handle that in
3825 build_builtin_candidate. */
3826 if (code == COND_EXPR)
3828 args[0] = arg2;
3829 args[1] = arg3;
3830 args[2] = arg1;
3832 else
3834 args[0] = arg1;
3835 args[1] = arg2;
3836 args[2] = NULL_TREE;
3839 add_builtin_candidates (&candidates, code, code2, fnname, args, flags);
3841 switch (code)
3843 case COMPOUND_EXPR:
3844 case ADDR_EXPR:
3845 /* For these, the built-in candidates set is empty
3846 [over.match.oper]/3. We don't want non-strict matches
3847 because exact matches are always possible with built-in
3848 operators. The built-in candidate set for COMPONENT_REF
3849 would be empty too, but since there are no such built-in
3850 operators, we accept non-strict matches for them. */
3851 strict_p = true;
3852 break;
3854 default:
3855 strict_p = pedantic;
3856 break;
3859 candidates = splice_viable (candidates, strict_p, &any_viable_p);
3860 if (!any_viable_p)
3862 switch (code)
3864 case POSTINCREMENT_EXPR:
3865 case POSTDECREMENT_EXPR:
3866 /* Look for an `operator++ (int)'. If they didn't have
3867 one, then we fall back to the old way of doing things. */
3868 if (flags & LOOKUP_COMPLAIN)
3869 pedwarn ("no %<%D(int)%> declared for postfix %qs, "
3870 "trying prefix operator instead",
3871 fnname,
3872 operator_name_info[code].name);
3873 if (code == POSTINCREMENT_EXPR)
3874 code = PREINCREMENT_EXPR;
3875 else
3876 code = PREDECREMENT_EXPR;
3877 result = build_new_op (code, flags, arg1, NULL_TREE, NULL_TREE,
3878 overloaded_p);
3879 break;
3881 /* The caller will deal with these. */
3882 case ADDR_EXPR:
3883 case COMPOUND_EXPR:
3884 case COMPONENT_REF:
3885 result = NULL_TREE;
3886 result_valid_p = true;
3887 break;
3889 default:
3890 if (flags & LOOKUP_COMPLAIN)
3892 op_error (code, code2, arg1, arg2, arg3, "no match");
3893 print_z_candidates (candidates);
3895 result = error_mark_node;
3896 break;
3899 else
3901 cand = tourney (candidates);
3902 if (cand == 0)
3904 if (flags & LOOKUP_COMPLAIN)
3906 op_error (code, code2, arg1, arg2, arg3, "ambiguous overload");
3907 print_z_candidates (candidates);
3909 result = error_mark_node;
3911 else if (TREE_CODE (cand->fn) == FUNCTION_DECL)
3913 if (overloaded_p)
3914 *overloaded_p = true;
3916 result = build_over_call (cand, LOOKUP_NORMAL);
3918 else
3920 /* Give any warnings we noticed during overload resolution. */
3921 if (cand->warnings)
3923 struct candidate_warning *w;
3924 for (w = cand->warnings; w; w = w->next)
3925 joust (cand, w->loser, 1);
3928 /* Check for comparison of different enum types. */
3929 switch (code)
3931 case GT_EXPR:
3932 case LT_EXPR:
3933 case GE_EXPR:
3934 case LE_EXPR:
3935 case EQ_EXPR:
3936 case NE_EXPR:
3937 if (TREE_CODE (TREE_TYPE (arg1)) == ENUMERAL_TYPE
3938 && TREE_CODE (TREE_TYPE (arg2)) == ENUMERAL_TYPE
3939 && (TYPE_MAIN_VARIANT (TREE_TYPE (arg1))
3940 != TYPE_MAIN_VARIANT (TREE_TYPE (arg2))))
3942 warning (0, "comparison between %q#T and %q#T",
3943 TREE_TYPE (arg1), TREE_TYPE (arg2));
3945 break;
3946 default:
3947 break;
3950 /* We need to strip any leading REF_BIND so that bitfields
3951 don't cause errors. This should not remove any important
3952 conversions, because builtins don't apply to class
3953 objects directly. */
3954 conv = cand->convs[0];
3955 if (conv->kind == ck_ref_bind)
3956 conv = conv->u.next;
3957 arg1 = convert_like (conv, arg1);
3958 if (arg2)
3960 conv = cand->convs[1];
3961 if (conv->kind == ck_ref_bind)
3962 conv = conv->u.next;
3963 arg2 = convert_like (conv, arg2);
3965 if (arg3)
3967 conv = cand->convs[2];
3968 if (conv->kind == ck_ref_bind)
3969 conv = conv->u.next;
3970 arg3 = convert_like (conv, arg3);
3973 if (!expl_eq_arg1)
3975 warn_logical_operator (code, arg1, arg2);
3976 expl_eq_arg1 = true;
3981 user_defined_result_ready:
3983 /* Free all the conversions we allocated. */
3984 obstack_free (&conversion_obstack, p);
3986 if (result || result_valid_p)
3987 return result;
3989 builtin:
3990 switch (code)
3992 case MODIFY_EXPR:
3993 return build_modify_expr (arg1, code2, arg2);
3995 case INDIRECT_REF:
3996 return build_indirect_ref (arg1, "unary *");
3998 case TRUTH_ANDIF_EXPR:
3999 case TRUTH_ORIF_EXPR:
4000 case TRUTH_AND_EXPR:
4001 case TRUTH_OR_EXPR:
4002 if (!expl_eq_arg1)
4003 warn_logical_operator (code, arg1, arg2);
4004 case PLUS_EXPR:
4005 case MINUS_EXPR:
4006 case MULT_EXPR:
4007 case TRUNC_DIV_EXPR:
4008 case GT_EXPR:
4009 case LT_EXPR:
4010 case GE_EXPR:
4011 case LE_EXPR:
4012 case EQ_EXPR:
4013 case NE_EXPR:
4014 case MAX_EXPR:
4015 case MIN_EXPR:
4016 case LSHIFT_EXPR:
4017 case RSHIFT_EXPR:
4018 case TRUNC_MOD_EXPR:
4019 case BIT_AND_EXPR:
4020 case BIT_IOR_EXPR:
4021 case BIT_XOR_EXPR:
4022 return cp_build_binary_op (code, arg1, arg2);
4024 case UNARY_PLUS_EXPR:
4025 case NEGATE_EXPR:
4026 case BIT_NOT_EXPR:
4027 case TRUTH_NOT_EXPR:
4028 case PREINCREMENT_EXPR:
4029 case POSTINCREMENT_EXPR:
4030 case PREDECREMENT_EXPR:
4031 case POSTDECREMENT_EXPR:
4032 case REALPART_EXPR:
4033 case IMAGPART_EXPR:
4034 return build_unary_op (code, arg1, candidates != 0);
4036 case ARRAY_REF:
4037 return build_array_ref (arg1, arg2);
4039 case COND_EXPR:
4040 return build_conditional_expr (arg1, arg2, arg3);
4042 case MEMBER_REF:
4043 return build_m_component_ref (build_indirect_ref (arg1, NULL), arg2);
4045 /* The caller will deal with these. */
4046 case ADDR_EXPR:
4047 case COMPONENT_REF:
4048 case COMPOUND_EXPR:
4049 return NULL_TREE;
4051 default:
4052 gcc_unreachable ();
4054 return NULL_TREE;
4057 /* Build a call to operator delete. This has to be handled very specially,
4058 because the restrictions on what signatures match are different from all
4059 other call instances. For a normal delete, only a delete taking (void *)
4060 or (void *, size_t) is accepted. For a placement delete, only an exact
4061 match with the placement new is accepted.
4063 CODE is either DELETE_EXPR or VEC_DELETE_EXPR.
4064 ADDR is the pointer to be deleted.
4065 SIZE is the size of the memory block to be deleted.
4066 GLOBAL_P is true if the delete-expression should not consider
4067 class-specific delete operators.
4068 PLACEMENT is the corresponding placement new call, or NULL_TREE.
4070 If this call to "operator delete" is being generated as part to
4071 deallocate memory allocated via a new-expression (as per [expr.new]
4072 which requires that if the initialization throws an exception then
4073 we call a deallocation function), then ALLOC_FN is the allocation
4074 function. */
4076 tree
4077 build_op_delete_call (enum tree_code code, tree addr, tree size,
4078 bool global_p, tree placement,
4079 tree alloc_fn)
4081 tree fn = NULL_TREE;
4082 tree fns, fnname, argtypes, type;
4083 int pass;
4085 if (addr == error_mark_node)
4086 return error_mark_node;
4088 type = strip_array_types (TREE_TYPE (TREE_TYPE (addr)));
4090 fnname = ansi_opname (code);
4092 if (CLASS_TYPE_P (type)
4093 && COMPLETE_TYPE_P (complete_type (type))
4094 && !global_p)
4095 /* In [class.free]
4097 If the result of the lookup is ambiguous or inaccessible, or if
4098 the lookup selects a placement deallocation function, the
4099 program is ill-formed.
4101 Therefore, we ask lookup_fnfields to complain about ambiguity. */
4103 fns = lookup_fnfields (TYPE_BINFO (type), fnname, 1);
4104 if (fns == error_mark_node)
4105 return error_mark_node;
4107 else
4108 fns = NULL_TREE;
4110 if (fns == NULL_TREE)
4111 fns = lookup_name_nonclass (fnname);
4113 /* Strip const and volatile from addr. */
4114 addr = cp_convert (ptr_type_node, addr);
4116 if (placement)
4118 /* Get the parameter types for the allocation function that is
4119 being called. */
4120 gcc_assert (alloc_fn != NULL_TREE);
4121 argtypes = TREE_CHAIN (TYPE_ARG_TYPES (TREE_TYPE (alloc_fn)));
4123 else
4125 /* First try it without the size argument. */
4126 argtypes = void_list_node;
4129 /* We make two tries at finding a matching `operator delete'. On
4130 the first pass, we look for a one-operator (or placement)
4131 operator delete. If we're not doing placement delete, then on
4132 the second pass we look for a two-argument delete. */
4133 for (pass = 0; pass < (placement ? 1 : 2); ++pass)
4135 /* Go through the `operator delete' functions looking for one
4136 with a matching type. */
4137 for (fn = BASELINK_P (fns) ? BASELINK_FUNCTIONS (fns) : fns;
4139 fn = OVL_NEXT (fn))
4141 tree t;
4143 /* The first argument must be "void *". */
4144 t = TYPE_ARG_TYPES (TREE_TYPE (OVL_CURRENT (fn)));
4145 if (!same_type_p (TREE_VALUE (t), ptr_type_node))
4146 continue;
4147 t = TREE_CHAIN (t);
4148 /* On the first pass, check the rest of the arguments. */
4149 if (pass == 0)
4151 tree a = argtypes;
4152 while (a && t)
4154 if (!same_type_p (TREE_VALUE (a), TREE_VALUE (t)))
4155 break;
4156 a = TREE_CHAIN (a);
4157 t = TREE_CHAIN (t);
4159 if (!a && !t)
4160 break;
4162 /* On the second pass, look for a function with exactly two
4163 arguments: "void *" and "size_t". */
4164 else if (pass == 1
4165 /* For "operator delete(void *, ...)" there will be
4166 no second argument, but we will not get an exact
4167 match above. */
4168 && t
4169 && same_type_p (TREE_VALUE (t), size_type_node)
4170 && TREE_CHAIN (t) == void_list_node)
4171 break;
4174 /* If we found a match, we're done. */
4175 if (fn)
4176 break;
4179 /* If we have a matching function, call it. */
4180 if (fn)
4182 /* Make sure we have the actual function, and not an
4183 OVERLOAD. */
4184 fn = OVL_CURRENT (fn);
4186 /* If the FN is a member function, make sure that it is
4187 accessible. */
4188 if (DECL_CLASS_SCOPE_P (fn))
4189 perform_or_defer_access_check (TYPE_BINFO (type), fn, fn);
4191 if (placement)
4193 /* The placement args might not be suitable for overload
4194 resolution at this point, so build the call directly. */
4195 int nargs = call_expr_nargs (placement);
4196 tree *argarray = (tree *) alloca (nargs * sizeof (tree));
4197 int i;
4198 argarray[0] = addr;
4199 for (i = 1; i < nargs; i++)
4200 argarray[i] = CALL_EXPR_ARG (placement, i);
4201 mark_used (fn);
4202 return build_cxx_call (fn, nargs, argarray);
4204 else
4206 tree args;
4207 if (pass == 0)
4208 args = tree_cons (NULL_TREE, addr, NULL_TREE);
4209 else
4210 args = tree_cons (NULL_TREE, addr,
4211 build_tree_list (NULL_TREE, size));
4212 return build_function_call (fn, args);
4216 /* [expr.new]
4218 If no unambiguous matching deallocation function can be found,
4219 propagating the exception does not cause the object's memory to
4220 be freed. */
4221 if (alloc_fn)
4223 if (!placement)
4224 warning (0, "no corresponding deallocation function for `%D'",
4225 alloc_fn);
4226 return NULL_TREE;
4229 error ("no suitable %<operator %s%> for %qT",
4230 operator_name_info[(int)code].name, type);
4231 return error_mark_node;
4234 /* If the current scope isn't allowed to access DECL along
4235 BASETYPE_PATH, give an error. The most derived class in
4236 BASETYPE_PATH is the one used to qualify DECL. DIAG_DECL is
4237 the declaration to use in the error diagnostic. */
4239 bool
4240 enforce_access (tree basetype_path, tree decl, tree diag_decl)
4242 gcc_assert (TREE_CODE (basetype_path) == TREE_BINFO);
4244 if (!accessible_p (basetype_path, decl, true))
4246 if (TREE_PRIVATE (decl))
4247 error ("%q+#D is private", diag_decl);
4248 else if (TREE_PROTECTED (decl))
4249 error ("%q+#D is protected", diag_decl);
4250 else
4251 error ("%q+#D is inaccessible", diag_decl);
4252 error ("within this context");
4253 return false;
4256 return true;
4259 /* Check that a callable constructor to initialize a temporary of
4260 TYPE from an EXPR exists. */
4262 static void
4263 check_constructor_callable (tree type, tree expr)
4265 build_special_member_call (NULL_TREE,
4266 complete_ctor_identifier,
4267 build_tree_list (NULL_TREE, expr),
4268 type,
4269 LOOKUP_NORMAL | LOOKUP_ONLYCONVERTING
4270 | LOOKUP_NO_CONVERSION
4271 | LOOKUP_CONSTRUCTOR_CALLABLE);
4274 /* Initialize a temporary of type TYPE with EXPR. The FLAGS are a
4275 bitwise or of LOOKUP_* values. If any errors are warnings are
4276 generated, set *DIAGNOSTIC_FN to "error" or "warning",
4277 respectively. If no diagnostics are generated, set *DIAGNOSTIC_FN
4278 to NULL. */
4280 static tree
4281 build_temp (tree expr, tree type, int flags,
4282 diagnostic_fn_t *diagnostic_fn)
4284 int savew, savee;
4286 savew = warningcount, savee = errorcount;
4287 expr = build_special_member_call (NULL_TREE,
4288 complete_ctor_identifier,
4289 build_tree_list (NULL_TREE, expr),
4290 type, flags);
4291 if (warningcount > savew)
4292 *diagnostic_fn = warning0;
4293 else if (errorcount > savee)
4294 *diagnostic_fn = error;
4295 else
4296 *diagnostic_fn = NULL;
4297 return expr;
4300 /* Perform warnings about peculiar, but valid, conversions from/to NULL.
4301 EXPR is implicitly converted to type TOTYPE.
4302 FN and ARGNUM are used for diagnostics. */
4304 static void
4305 conversion_null_warnings (tree totype, tree expr, tree fn, int argnum)
4307 tree t = non_reference (totype);
4309 /* Issue warnings about peculiar, but valid, uses of NULL. */
4310 if (expr == null_node && TREE_CODE (t) != BOOLEAN_TYPE && ARITHMETIC_TYPE_P (t))
4312 if (fn)
4313 warning (OPT_Wconversion, "passing NULL to non-pointer argument %P of %qD",
4314 argnum, fn);
4315 else
4316 warning (OPT_Wconversion, "converting to non-pointer type %qT from NULL", t);
4319 /* Issue warnings if "false" is converted to a NULL pointer */
4320 else if (expr == boolean_false_node && fn && POINTER_TYPE_P (t))
4321 warning (OPT_Wconversion,
4322 "converting %<false%> to pointer type for argument %P of %qD",
4323 argnum, fn);
4326 /* Perform the conversions in CONVS on the expression EXPR. FN and
4327 ARGNUM are used for diagnostics. ARGNUM is zero based, -1
4328 indicates the `this' argument of a method. INNER is nonzero when
4329 being called to continue a conversion chain. It is negative when a
4330 reference binding will be applied, positive otherwise. If
4331 ISSUE_CONVERSION_WARNINGS is true, warnings about suspicious
4332 conversions will be emitted if appropriate. If C_CAST_P is true,
4333 this conversion is coming from a C-style cast; in that case,
4334 conversions to inaccessible bases are permitted. */
4336 static tree
4337 convert_like_real (conversion *convs, tree expr, tree fn, int argnum,
4338 int inner, bool issue_conversion_warnings,
4339 bool c_cast_p)
4341 tree totype = convs->type;
4342 diagnostic_fn_t diagnostic_fn;
4344 if (convs->bad_p
4345 && convs->kind != ck_user
4346 && convs->kind != ck_ambig
4347 && convs->kind != ck_ref_bind)
4349 conversion *t = convs;
4350 for (; t; t = convs->u.next)
4352 if (t->kind == ck_user || !t->bad_p)
4354 expr = convert_like_real (t, expr, fn, argnum, 1,
4355 /*issue_conversion_warnings=*/false,
4356 /*c_cast_p=*/false);
4357 break;
4359 else if (t->kind == ck_ambig)
4360 return convert_like_real (t, expr, fn, argnum, 1,
4361 /*issue_conversion_warnings=*/false,
4362 /*c_cast_p=*/false);
4363 else if (t->kind == ck_identity)
4364 break;
4366 pedwarn ("invalid conversion from %qT to %qT", TREE_TYPE (expr), totype);
4367 if (fn)
4368 pedwarn (" initializing argument %P of %qD", argnum, fn);
4369 return cp_convert (totype, expr);
4372 if (issue_conversion_warnings)
4373 conversion_null_warnings (totype, expr, fn, argnum);
4375 switch (convs->kind)
4377 case ck_user:
4379 struct z_candidate *cand = convs->cand;
4380 tree convfn = cand->fn;
4382 expr = build_over_call (cand, LOOKUP_NORMAL);
4384 /* If this is a constructor or a function returning an aggr type,
4385 we need to build up a TARGET_EXPR. */
4386 if (DECL_CONSTRUCTOR_P (convfn))
4387 expr = build_cplus_new (totype, expr);
4389 /* The result of the call is then used to direct-initialize the object
4390 that is the destination of the copy-initialization. [dcl.init]
4392 Note that this step is not reflected in the conversion sequence;
4393 it affects the semantics when we actually perform the
4394 conversion, but is not considered during overload resolution.
4396 If the target is a class, that means call a ctor. */
4397 if (IS_AGGR_TYPE (totype)
4398 && (inner >= 0 || !lvalue_p (expr)))
4400 expr = (build_temp
4401 (expr, totype,
4402 /* Core issue 84, now a DR, says that we don't
4403 allow UDCs for these args (which deliberately
4404 breaks copy-init of an auto_ptr<Base> from an
4405 auto_ptr<Derived>). */
4406 LOOKUP_NORMAL|LOOKUP_ONLYCONVERTING|LOOKUP_NO_CONVERSION,
4407 &diagnostic_fn));
4409 if (diagnostic_fn)
4411 if (fn)
4412 diagnostic_fn
4413 (" initializing argument %P of %qD from result of %qD",
4414 argnum, fn, convfn);
4415 else
4416 diagnostic_fn
4417 (" initializing temporary from result of %qD", convfn);
4419 expr = build_cplus_new (totype, expr);
4421 return expr;
4423 case ck_identity:
4424 if (type_unknown_p (expr))
4425 expr = instantiate_type (totype, expr, tf_warning_or_error);
4426 /* Convert a constant to its underlying value, unless we are
4427 about to bind it to a reference, in which case we need to
4428 leave it as an lvalue. */
4429 if (inner >= 0)
4430 expr = decl_constant_value (expr);
4431 if (convs->check_copy_constructor_p)
4432 check_constructor_callable (totype, expr);
4433 return expr;
4434 case ck_ambig:
4435 /* Call build_user_type_conversion again for the error. */
4436 return build_user_type_conversion
4437 (totype, convs->u.expr, LOOKUP_NORMAL);
4439 default:
4440 break;
4443 expr = convert_like_real (convs->u.next, expr, fn, argnum,
4444 convs->kind == ck_ref_bind ? -1 : 1,
4445 convs->kind == ck_ref_bind ? issue_conversion_warnings : false,
4446 c_cast_p);
4447 if (expr == error_mark_node)
4448 return error_mark_node;
4450 switch (convs->kind)
4452 case ck_rvalue:
4453 expr = convert_bitfield_to_declared_type (expr);
4454 if (! IS_AGGR_TYPE (totype))
4455 return expr;
4456 /* Else fall through. */
4457 case ck_base:
4458 if (convs->kind == ck_base && !convs->need_temporary_p)
4460 /* We are going to bind a reference directly to a base-class
4461 subobject of EXPR. */
4462 if (convs->check_copy_constructor_p)
4463 check_constructor_callable (TREE_TYPE (expr), expr);
4464 /* Build an expression for `*((base*) &expr)'. */
4465 expr = build_unary_op (ADDR_EXPR, expr, 0);
4466 expr = convert_to_base (expr, build_pointer_type (totype),
4467 !c_cast_p, /*nonnull=*/true);
4468 expr = build_indirect_ref (expr, "implicit conversion");
4469 return expr;
4472 /* Copy-initialization where the cv-unqualified version of the source
4473 type is the same class as, or a derived class of, the class of the
4474 destination [is treated as direct-initialization]. [dcl.init] */
4475 expr = build_temp (expr, totype, LOOKUP_NORMAL|LOOKUP_ONLYCONVERTING,
4476 &diagnostic_fn);
4477 if (diagnostic_fn && fn)
4478 diagnostic_fn (" initializing argument %P of %qD", argnum, fn);
4479 return build_cplus_new (totype, expr);
4481 case ck_ref_bind:
4483 tree ref_type = totype;
4485 /* If necessary, create a temporary.
4487 VA_ARG_EXPR and CONSTRUCTOR expressions are special cases
4488 that need temporaries, even when their types are reference
4489 compatible with the type of reference being bound, so the
4490 upcoming call to build_unary_op (ADDR_EXPR, expr, ...)
4491 doesn't fail. */
4492 if (convs->need_temporary_p
4493 || TREE_CODE (expr) == CONSTRUCTOR
4494 || TREE_CODE (expr) == VA_ARG_EXPR)
4496 tree type = convs->u.next->type;
4497 cp_lvalue_kind lvalue = real_lvalue_p (expr);
4499 if (!CP_TYPE_CONST_NON_VOLATILE_P (TREE_TYPE (ref_type))
4500 && !TYPE_REF_IS_RVALUE (ref_type))
4502 /* If the reference is volatile or non-const, we
4503 cannot create a temporary. */
4504 if (lvalue & clk_bitfield)
4505 error ("cannot bind bitfield %qE to %qT",
4506 expr, ref_type);
4507 else if (lvalue & clk_packed)
4508 error ("cannot bind packed field %qE to %qT",
4509 expr, ref_type);
4510 else
4511 error ("cannot bind rvalue %qE to %qT", expr, ref_type);
4512 return error_mark_node;
4514 /* If the source is a packed field, and we must use a copy
4515 constructor, then building the target expr will require
4516 binding the field to the reference parameter to the
4517 copy constructor, and we'll end up with an infinite
4518 loop. If we can use a bitwise copy, then we'll be
4519 OK. */
4520 if ((lvalue & clk_packed)
4521 && CLASS_TYPE_P (type)
4522 && !TYPE_HAS_TRIVIAL_INIT_REF (type))
4524 error ("cannot bind packed field %qE to %qT",
4525 expr, ref_type);
4526 return error_mark_node;
4528 expr = build_target_expr_with_type (expr, type);
4531 /* Take the address of the thing to which we will bind the
4532 reference. */
4533 expr = build_unary_op (ADDR_EXPR, expr, 1);
4534 if (expr == error_mark_node)
4535 return error_mark_node;
4537 /* Convert it to a pointer to the type referred to by the
4538 reference. This will adjust the pointer if a derived to
4539 base conversion is being performed. */
4540 expr = cp_convert (build_pointer_type (TREE_TYPE (ref_type)),
4541 expr);
4542 /* Convert the pointer to the desired reference type. */
4543 return build_nop (ref_type, expr);
4546 case ck_lvalue:
4547 return decay_conversion (expr);
4549 case ck_qual:
4550 /* Warn about deprecated conversion if appropriate. */
4551 string_conv_p (totype, expr, 1);
4552 break;
4554 case ck_ptr:
4555 if (convs->base_p)
4556 expr = convert_to_base (expr, totype, !c_cast_p,
4557 /*nonnull=*/false);
4558 return build_nop (totype, expr);
4560 case ck_pmem:
4561 return convert_ptrmem (totype, expr, /*allow_inverse_p=*/false,
4562 c_cast_p);
4564 default:
4565 break;
4568 if (issue_conversion_warnings)
4569 expr = convert_and_check (totype, expr);
4570 else
4571 expr = convert (totype, expr);
4573 return expr;
4576 /* Build a call to __builtin_trap. */
4578 static tree
4579 call_builtin_trap (void)
4581 tree fn = implicit_built_in_decls[BUILT_IN_TRAP];
4583 gcc_assert (fn != NULL);
4584 fn = build_call_n (fn, 0);
4585 return fn;
4588 /* ARG is being passed to a varargs function. Perform any conversions
4589 required. Return the converted value. */
4591 tree
4592 convert_arg_to_ellipsis (tree arg)
4594 /* [expr.call]
4596 The lvalue-to-rvalue, array-to-pointer, and function-to-pointer
4597 standard conversions are performed. */
4598 arg = decay_conversion (arg);
4599 /* [expr.call]
4601 If the argument has integral or enumeration type that is subject
4602 to the integral promotions (_conv.prom_), or a floating point
4603 type that is subject to the floating point promotion
4604 (_conv.fpprom_), the value of the argument is converted to the
4605 promoted type before the call. */
4606 if (TREE_CODE (TREE_TYPE (arg)) == REAL_TYPE
4607 && (TYPE_PRECISION (TREE_TYPE (arg))
4608 < TYPE_PRECISION (double_type_node)))
4609 arg = convert_to_real (double_type_node, arg);
4610 else if (INTEGRAL_OR_ENUMERATION_TYPE_P (TREE_TYPE (arg)))
4611 arg = perform_integral_promotions (arg);
4613 arg = require_complete_type (arg);
4615 if (arg != error_mark_node
4616 && !pod_type_p (TREE_TYPE (arg)))
4618 /* Undefined behavior [expr.call] 5.2.2/7. We used to just warn
4619 here and do a bitwise copy, but now cp_expr_size will abort if we
4620 try to do that.
4621 If the call appears in the context of a sizeof expression,
4622 there is no need to emit a warning, since the expression won't be
4623 evaluated. We keep the builtin_trap just as a safety check. */
4624 if (!skip_evaluation)
4625 warning (0, "cannot pass objects of non-POD type %q#T through %<...%>; "
4626 "call will abort at runtime", TREE_TYPE (arg));
4627 arg = call_builtin_trap ();
4628 arg = build2 (COMPOUND_EXPR, integer_type_node, arg,
4629 integer_zero_node);
4632 return arg;
4635 /* va_arg (EXPR, TYPE) is a builtin. Make sure it is not abused. */
4637 tree
4638 build_x_va_arg (tree expr, tree type)
4640 if (processing_template_decl)
4641 return build_min (VA_ARG_EXPR, type, expr);
4643 type = complete_type_or_else (type, NULL_TREE);
4645 if (expr == error_mark_node || !type)
4646 return error_mark_node;
4648 if (! pod_type_p (type))
4650 /* Remove reference types so we don't ICE later on. */
4651 tree type1 = non_reference (type);
4652 /* Undefined behavior [expr.call] 5.2.2/7. */
4653 warning (0, "cannot receive objects of non-POD type %q#T through %<...%>; "
4654 "call will abort at runtime", type);
4655 expr = convert (build_pointer_type (type1), null_node);
4656 expr = build2 (COMPOUND_EXPR, TREE_TYPE (expr),
4657 call_builtin_trap (), expr);
4658 expr = build_indirect_ref (expr, NULL);
4659 return expr;
4662 return build_va_arg (expr, type);
4665 /* TYPE has been given to va_arg. Apply the default conversions which
4666 would have happened when passed via ellipsis. Return the promoted
4667 type, or the passed type if there is no change. */
4669 tree
4670 cxx_type_promotes_to (tree type)
4672 tree promote;
4674 /* Perform the array-to-pointer and function-to-pointer
4675 conversions. */
4676 type = type_decays_to (type);
4678 promote = type_promotes_to (type);
4679 if (same_type_p (type, promote))
4680 promote = type;
4682 return promote;
4685 /* ARG is a default argument expression being passed to a parameter of
4686 the indicated TYPE, which is a parameter to FN. Do any required
4687 conversions. Return the converted value. */
4689 tree
4690 convert_default_arg (tree type, tree arg, tree fn, int parmnum)
4692 /* If the ARG is an unparsed default argument expression, the
4693 conversion cannot be performed. */
4694 if (TREE_CODE (arg) == DEFAULT_ARG)
4696 error ("the default argument for parameter %d of %qD has "
4697 "not yet been parsed",
4698 parmnum, fn);
4699 return error_mark_node;
4702 if (fn && DECL_TEMPLATE_INFO (fn))
4703 arg = tsubst_default_argument (fn, type, arg);
4705 arg = break_out_target_exprs (arg);
4707 if (TREE_CODE (arg) == CONSTRUCTOR)
4709 arg = digest_init (type, arg);
4710 arg = convert_for_initialization (0, type, arg, LOOKUP_NORMAL,
4711 "default argument", fn, parmnum);
4713 else
4715 /* We must make a copy of ARG, in case subsequent processing
4716 alters any part of it. For example, during gimplification a
4717 cast of the form (T) &X::f (where "f" is a member function)
4718 will lead to replacing the PTRMEM_CST for &X::f with a
4719 VAR_DECL. We can avoid the copy for constants, since they
4720 are never modified in place. */
4721 if (!CONSTANT_CLASS_P (arg))
4722 arg = unshare_expr (arg);
4723 arg = convert_for_initialization (0, type, arg, LOOKUP_NORMAL,
4724 "default argument", fn, parmnum);
4725 arg = convert_for_arg_passing (type, arg);
4728 return arg;
4731 /* Returns the type which will really be used for passing an argument of
4732 type TYPE. */
4734 tree
4735 type_passed_as (tree type)
4737 /* Pass classes with copy ctors by invisible reference. */
4738 if (TREE_ADDRESSABLE (type))
4740 type = build_reference_type (type);
4741 /* There are no other pointers to this temporary. */
4742 type = build_qualified_type (type, TYPE_QUAL_RESTRICT);
4744 else if (targetm.calls.promote_prototypes (type)
4745 && INTEGRAL_TYPE_P (type)
4746 && COMPLETE_TYPE_P (type)
4747 && INT_CST_LT_UNSIGNED (TYPE_SIZE (type),
4748 TYPE_SIZE (integer_type_node)))
4749 type = integer_type_node;
4751 return type;
4754 /* Actually perform the appropriate conversion. */
4756 tree
4757 convert_for_arg_passing (tree type, tree val)
4759 tree bitfield_type;
4761 /* If VAL is a bitfield, then -- since it has already been converted
4762 to TYPE -- it cannot have a precision greater than TYPE.
4764 If it has a smaller precision, we must widen it here. For
4765 example, passing "int f:3;" to a function expecting an "int" will
4766 not result in any conversion before this point.
4768 If the precision is the same we must not risk widening. For
4769 example, the COMPONENT_REF for a 32-bit "long long" bitfield will
4770 often have type "int", even though the C++ type for the field is
4771 "long long". If the value is being passed to a function
4772 expecting an "int", then no conversions will be required. But,
4773 if we call convert_bitfield_to_declared_type, the bitfield will
4774 be converted to "long long". */
4775 bitfield_type = is_bitfield_expr_with_lowered_type (val);
4776 if (bitfield_type
4777 && TYPE_PRECISION (TREE_TYPE (val)) < TYPE_PRECISION (type))
4778 val = convert_to_integer (TYPE_MAIN_VARIANT (bitfield_type), val);
4780 if (val == error_mark_node)
4782 /* Pass classes with copy ctors by invisible reference. */
4783 else if (TREE_ADDRESSABLE (type))
4784 val = build1 (ADDR_EXPR, build_reference_type (type), val);
4785 else if (targetm.calls.promote_prototypes (type)
4786 && INTEGRAL_TYPE_P (type)
4787 && COMPLETE_TYPE_P (type)
4788 && INT_CST_LT_UNSIGNED (TYPE_SIZE (type),
4789 TYPE_SIZE (integer_type_node)))
4790 val = perform_integral_promotions (val);
4791 if (warn_missing_format_attribute)
4793 tree rhstype = TREE_TYPE (val);
4794 const enum tree_code coder = TREE_CODE (rhstype);
4795 const enum tree_code codel = TREE_CODE (type);
4796 if ((codel == POINTER_TYPE || codel == REFERENCE_TYPE)
4797 && coder == codel
4798 && check_missing_format_attribute (type, rhstype))
4799 warning (OPT_Wmissing_format_attribute,
4800 "argument of function call might be a candidate for a format attribute");
4802 return val;
4805 /* Returns true iff FN is a function with magic varargs, i.e. ones for
4806 which no conversions at all should be done. This is true for some
4807 builtins which don't act like normal functions. */
4809 static bool
4810 magic_varargs_p (tree fn)
4812 if (DECL_BUILT_IN (fn))
4813 switch (DECL_FUNCTION_CODE (fn))
4815 case BUILT_IN_CLASSIFY_TYPE:
4816 case BUILT_IN_CONSTANT_P:
4817 case BUILT_IN_NEXT_ARG:
4818 case BUILT_IN_STDARG_START:
4819 case BUILT_IN_VA_START:
4820 return true;
4822 default:;
4823 return lookup_attribute ("type generic",
4824 TYPE_ATTRIBUTES (TREE_TYPE (fn))) != 0;
4827 return false;
4830 /* Subroutine of the various build_*_call functions. Overload resolution
4831 has chosen a winning candidate CAND; build up a CALL_EXPR accordingly.
4832 ARGS is a TREE_LIST of the unconverted arguments to the call. FLAGS is a
4833 bitmask of various LOOKUP_* flags which apply to the call itself. */
4835 static tree
4836 build_over_call (struct z_candidate *cand, int flags)
4838 tree fn = cand->fn;
4839 tree args = cand->args;
4840 conversion **convs = cand->convs;
4841 conversion *conv;
4842 tree parm = TYPE_ARG_TYPES (TREE_TYPE (fn));
4843 int parmlen;
4844 tree arg, val;
4845 int i = 0;
4846 int j = 0;
4847 int is_method = 0;
4848 int nargs;
4849 tree *argarray;
4851 /* In a template, there is no need to perform all of the work that
4852 is normally done. We are only interested in the type of the call
4853 expression, i.e., the return type of the function. Any semantic
4854 errors will be deferred until the template is instantiated. */
4855 if (processing_template_decl)
4857 tree expr;
4858 tree return_type;
4859 return_type = TREE_TYPE (TREE_TYPE (fn));
4860 expr = build_call_list (return_type, fn, args);
4861 if (TREE_THIS_VOLATILE (fn) && cfun)
4862 current_function_returns_abnormally = 1;
4863 if (!VOID_TYPE_P (return_type))
4864 require_complete_type (return_type);
4865 return convert_from_reference (expr);
4868 /* Give any warnings we noticed during overload resolution. */
4869 if (cand->warnings)
4871 struct candidate_warning *w;
4872 for (w = cand->warnings; w; w = w->next)
4873 joust (cand, w->loser, 1);
4876 if (DECL_FUNCTION_MEMBER_P (fn))
4878 /* If FN is a template function, two cases must be considered.
4879 For example:
4881 struct A {
4882 protected:
4883 template <class T> void f();
4885 template <class T> struct B {
4886 protected:
4887 void g();
4889 struct C : A, B<int> {
4890 using A::f; // #1
4891 using B<int>::g; // #2
4894 In case #1 where `A::f' is a member template, DECL_ACCESS is
4895 recorded in the primary template but not in its specialization.
4896 We check access of FN using its primary template.
4898 In case #2, where `B<int>::g' has a DECL_TEMPLATE_INFO simply
4899 because it is a member of class template B, DECL_ACCESS is
4900 recorded in the specialization `B<int>::g'. We cannot use its
4901 primary template because `B<T>::g' and `B<int>::g' may have
4902 different access. */
4903 if (DECL_TEMPLATE_INFO (fn)
4904 && DECL_MEMBER_TEMPLATE_P (DECL_TI_TEMPLATE (fn)))
4905 perform_or_defer_access_check (cand->access_path,
4906 DECL_TI_TEMPLATE (fn), fn);
4907 else
4908 perform_or_defer_access_check (cand->access_path, fn, fn);
4911 if (args && TREE_CODE (args) != TREE_LIST)
4912 args = build_tree_list (NULL_TREE, args);
4913 arg = args;
4915 /* Find maximum size of vector to hold converted arguments. */
4916 parmlen = list_length (parm);
4917 nargs = list_length (args);
4918 if (parmlen > nargs)
4919 nargs = parmlen;
4920 argarray = (tree *) alloca (nargs * sizeof (tree));
4922 /* The implicit parameters to a constructor are not considered by overload
4923 resolution, and must be of the proper type. */
4924 if (DECL_CONSTRUCTOR_P (fn))
4926 argarray[j++] = TREE_VALUE (arg);
4927 arg = TREE_CHAIN (arg);
4928 parm = TREE_CHAIN (parm);
4929 /* We should never try to call the abstract constructor. */
4930 gcc_assert (!DECL_HAS_IN_CHARGE_PARM_P (fn));
4932 if (DECL_HAS_VTT_PARM_P (fn))
4934 argarray[j++] = TREE_VALUE (arg);
4935 arg = TREE_CHAIN (arg);
4936 parm = TREE_CHAIN (parm);
4939 /* Bypass access control for 'this' parameter. */
4940 else if (TREE_CODE (TREE_TYPE (fn)) == METHOD_TYPE)
4942 tree parmtype = TREE_VALUE (parm);
4943 tree argtype = TREE_TYPE (TREE_VALUE (arg));
4944 tree converted_arg;
4945 tree base_binfo;
4947 if (convs[i]->bad_p)
4948 pedwarn ("passing %qT as %<this%> argument of %q#D discards qualifiers",
4949 TREE_TYPE (argtype), fn);
4951 /* [class.mfct.nonstatic]: If a nonstatic member function of a class
4952 X is called for an object that is not of type X, or of a type
4953 derived from X, the behavior is undefined.
4955 So we can assume that anything passed as 'this' is non-null, and
4956 optimize accordingly. */
4957 gcc_assert (TREE_CODE (parmtype) == POINTER_TYPE);
4958 /* Convert to the base in which the function was declared. */
4959 gcc_assert (cand->conversion_path != NULL_TREE);
4960 converted_arg = build_base_path (PLUS_EXPR,
4961 TREE_VALUE (arg),
4962 cand->conversion_path,
4964 /* Check that the base class is accessible. */
4965 if (!accessible_base_p (TREE_TYPE (argtype),
4966 BINFO_TYPE (cand->conversion_path), true))
4967 error ("%qT is not an accessible base of %qT",
4968 BINFO_TYPE (cand->conversion_path),
4969 TREE_TYPE (argtype));
4970 /* If fn was found by a using declaration, the conversion path
4971 will be to the derived class, not the base declaring fn. We
4972 must convert from derived to base. */
4973 base_binfo = lookup_base (TREE_TYPE (TREE_TYPE (converted_arg)),
4974 TREE_TYPE (parmtype), ba_unique, NULL);
4975 converted_arg = build_base_path (PLUS_EXPR, converted_arg,
4976 base_binfo, 1);
4978 argarray[j++] = converted_arg;
4979 parm = TREE_CHAIN (parm);
4980 arg = TREE_CHAIN (arg);
4981 ++i;
4982 is_method = 1;
4985 for (; arg && parm;
4986 parm = TREE_CHAIN (parm), arg = TREE_CHAIN (arg), ++i)
4988 tree type = TREE_VALUE (parm);
4990 conv = convs[i];
4992 /* Don't make a copy here if build_call is going to. */
4993 if (conv->kind == ck_rvalue
4994 && !TREE_ADDRESSABLE (complete_type (type)))
4995 conv = conv->u.next;
4997 val = convert_like_with_context
4998 (conv, TREE_VALUE (arg), fn, i - is_method);
5000 val = convert_for_arg_passing (type, val);
5001 argarray[j++] = val;
5004 /* Default arguments */
5005 for (; parm && parm != void_list_node; parm = TREE_CHAIN (parm), i++)
5006 argarray[j++] = convert_default_arg (TREE_VALUE (parm),
5007 TREE_PURPOSE (parm),
5008 fn, i - is_method);
5009 /* Ellipsis */
5010 for (; arg; arg = TREE_CHAIN (arg))
5012 tree a = TREE_VALUE (arg);
5013 if (magic_varargs_p (fn))
5014 /* Do no conversions for magic varargs. */;
5015 else
5016 a = convert_arg_to_ellipsis (a);
5017 argarray[j++] = a;
5020 gcc_assert (j <= nargs);
5021 nargs = j;
5023 check_function_arguments (TYPE_ATTRIBUTES (TREE_TYPE (fn)),
5024 nargs, argarray, TYPE_ARG_TYPES (TREE_TYPE (fn)));
5026 /* Avoid actually calling copy constructors and copy assignment operators,
5027 if possible. */
5029 if (! flag_elide_constructors)
5030 /* Do things the hard way. */;
5031 else if (cand->num_convs == 1
5032 && (DECL_COPY_CONSTRUCTOR_P (fn)
5033 || DECL_MOVE_CONSTRUCTOR_P (fn)))
5035 tree targ;
5036 arg = argarray[num_artificial_parms_for (fn)];
5038 /* Pull out the real argument, disregarding const-correctness. */
5039 targ = arg;
5040 while (TREE_CODE (targ) == NOP_EXPR
5041 || TREE_CODE (targ) == NON_LVALUE_EXPR
5042 || TREE_CODE (targ) == CONVERT_EXPR)
5043 targ = TREE_OPERAND (targ, 0);
5044 if (TREE_CODE (targ) == ADDR_EXPR)
5046 targ = TREE_OPERAND (targ, 0);
5047 if (!same_type_ignoring_top_level_qualifiers_p
5048 (TREE_TYPE (TREE_TYPE (arg)), TREE_TYPE (targ)))
5049 targ = NULL_TREE;
5051 else
5052 targ = NULL_TREE;
5054 if (targ)
5055 arg = targ;
5056 else
5057 arg = build_indirect_ref (arg, 0);
5059 /* [class.copy]: the copy constructor is implicitly defined even if
5060 the implementation elided its use. */
5061 if (TYPE_HAS_COMPLEX_INIT_REF (DECL_CONTEXT (fn)))
5062 mark_used (fn);
5064 /* If we're creating a temp and we already have one, don't create a
5065 new one. If we're not creating a temp but we get one, use
5066 INIT_EXPR to collapse the temp into our target. Otherwise, if the
5067 ctor is trivial, do a bitwise copy with a simple TARGET_EXPR for a
5068 temp or an INIT_EXPR otherwise. */
5069 if (integer_zerop (TREE_VALUE (args)))
5071 if (TREE_CODE (arg) == TARGET_EXPR)
5072 return arg;
5073 else if (TYPE_HAS_TRIVIAL_INIT_REF (DECL_CONTEXT (fn)))
5074 return build_target_expr_with_type (arg, DECL_CONTEXT (fn));
5076 else if (TREE_CODE (arg) == TARGET_EXPR
5077 || TYPE_HAS_TRIVIAL_INIT_REF (DECL_CONTEXT (fn)))
5079 tree to = stabilize_reference
5080 (build_indirect_ref (TREE_VALUE (args), 0));
5082 val = build2 (INIT_EXPR, DECL_CONTEXT (fn), to, arg);
5083 return val;
5086 else if (DECL_OVERLOADED_OPERATOR_P (fn) == NOP_EXPR
5087 && copy_fn_p (fn)
5088 && TYPE_HAS_TRIVIAL_ASSIGN_REF (DECL_CONTEXT (fn)))
5090 tree to = stabilize_reference
5091 (build_indirect_ref (argarray[0], 0));
5092 tree type = TREE_TYPE (to);
5093 tree as_base = CLASSTYPE_AS_BASE (type);
5095 arg = argarray[1];
5096 if (tree_int_cst_equal (TYPE_SIZE (type), TYPE_SIZE (as_base)))
5098 arg = build_indirect_ref (arg, 0);
5099 val = build2 (MODIFY_EXPR, TREE_TYPE (to), to, arg);
5101 else
5103 /* We must only copy the non-tail padding parts.
5104 Use __builtin_memcpy for the bitwise copy. */
5106 tree arg0, arg1, arg2, t;
5108 arg2 = TYPE_SIZE_UNIT (as_base);
5109 arg1 = arg;
5110 arg0 = build_unary_op (ADDR_EXPR, to, 0);
5111 t = implicit_built_in_decls[BUILT_IN_MEMCPY];
5112 t = build_call_n (t, 3, arg0, arg1, arg2);
5114 t = convert (TREE_TYPE (arg0), t);
5115 val = build_indirect_ref (t, 0);
5118 return val;
5121 mark_used (fn);
5123 if (DECL_VINDEX (fn) && (flags & LOOKUP_NONVIRTUAL) == 0)
5125 tree t;
5126 tree binfo = lookup_base (TREE_TYPE (TREE_TYPE (argarray[0])),
5127 DECL_CONTEXT (fn),
5128 ba_any, NULL);
5129 gcc_assert (binfo && binfo != error_mark_node);
5131 /* Warn about deprecated virtual functions now, since we're about
5132 to throw away the decl. */
5133 if (TREE_DEPRECATED (fn))
5134 warn_deprecated_use (fn);
5136 argarray[0] = build_base_path (PLUS_EXPR, argarray[0], binfo, 1);
5137 if (TREE_SIDE_EFFECTS (argarray[0]))
5138 argarray[0] = save_expr (argarray[0]);
5139 t = build_pointer_type (TREE_TYPE (fn));
5140 if (DECL_CONTEXT (fn) && TYPE_JAVA_INTERFACE (DECL_CONTEXT (fn)))
5141 fn = build_java_interface_fn_ref (fn, argarray[0]);
5142 else
5143 fn = build_vfn_ref (argarray[0], DECL_VINDEX (fn));
5144 TREE_TYPE (fn) = t;
5146 else if (DECL_INLINE (fn))
5147 fn = inline_conversion (fn);
5148 else
5149 fn = build_addr_func (fn);
5151 return build_cxx_call (fn, nargs, argarray);
5154 /* Build and return a call to FN, using NARGS arguments in ARGARRAY.
5155 This function performs no overload resolution, conversion, or other
5156 high-level operations. */
5158 tree
5159 build_cxx_call (tree fn, int nargs, tree *argarray)
5161 tree fndecl;
5163 fn = build_call_a (fn, nargs, argarray);
5165 /* If this call might throw an exception, note that fact. */
5166 fndecl = get_callee_fndecl (fn);
5167 if ((!fndecl || !TREE_NOTHROW (fndecl))
5168 && at_function_scope_p ()
5169 && cfun)
5170 cp_function_chain->can_throw = 1;
5172 /* Some built-in function calls will be evaluated at compile-time in
5173 fold (). */
5174 fn = fold_if_not_in_template (fn);
5176 if (VOID_TYPE_P (TREE_TYPE (fn)))
5177 return fn;
5179 fn = require_complete_type (fn);
5180 if (fn == error_mark_node)
5181 return error_mark_node;
5183 if (IS_AGGR_TYPE (TREE_TYPE (fn)))
5184 fn = build_cplus_new (TREE_TYPE (fn), fn);
5185 return convert_from_reference (fn);
5188 static GTY(()) tree java_iface_lookup_fn;
5190 /* Make an expression which yields the address of the Java interface
5191 method FN. This is achieved by generating a call to libjava's
5192 _Jv_LookupInterfaceMethodIdx(). */
5194 static tree
5195 build_java_interface_fn_ref (tree fn, tree instance)
5197 tree lookup_fn, method, idx;
5198 tree klass_ref, iface, iface_ref;
5199 int i;
5201 if (!java_iface_lookup_fn)
5203 tree endlink = build_void_list_node ();
5204 tree t = tree_cons (NULL_TREE, ptr_type_node,
5205 tree_cons (NULL_TREE, ptr_type_node,
5206 tree_cons (NULL_TREE, java_int_type_node,
5207 endlink)));
5208 java_iface_lookup_fn
5209 = add_builtin_function ("_Jv_LookupInterfaceMethodIdx",
5210 build_function_type (ptr_type_node, t),
5211 0, NOT_BUILT_IN, NULL, NULL_TREE);
5214 /* Look up the pointer to the runtime java.lang.Class object for `instance'.
5215 This is the first entry in the vtable. */
5216 klass_ref = build_vtbl_ref (build_indirect_ref (instance, 0),
5217 integer_zero_node);
5219 /* Get the java.lang.Class pointer for the interface being called. */
5220 iface = DECL_CONTEXT (fn);
5221 iface_ref = lookup_field (iface, get_identifier ("class$"), 0, false);
5222 if (!iface_ref || TREE_CODE (iface_ref) != VAR_DECL
5223 || DECL_CONTEXT (iface_ref) != iface)
5225 error ("could not find class$ field in java interface type %qT",
5226 iface);
5227 return error_mark_node;
5229 iface_ref = build_address (iface_ref);
5230 iface_ref = convert (build_pointer_type (iface), iface_ref);
5232 /* Determine the itable index of FN. */
5233 i = 1;
5234 for (method = TYPE_METHODS (iface); method; method = TREE_CHAIN (method))
5236 if (!DECL_VIRTUAL_P (method))
5237 continue;
5238 if (fn == method)
5239 break;
5240 i++;
5242 idx = build_int_cst (NULL_TREE, i);
5244 lookup_fn = build1 (ADDR_EXPR,
5245 build_pointer_type (TREE_TYPE (java_iface_lookup_fn)),
5246 java_iface_lookup_fn);
5247 return build_call_nary (ptr_type_node, lookup_fn,
5248 3, klass_ref, iface_ref, idx);
5251 /* Returns the value to use for the in-charge parameter when making a
5252 call to a function with the indicated NAME.
5254 FIXME:Can't we find a neater way to do this mapping? */
5256 tree
5257 in_charge_arg_for_name (tree name)
5259 if (name == base_ctor_identifier
5260 || name == base_dtor_identifier)
5261 return integer_zero_node;
5262 else if (name == complete_ctor_identifier)
5263 return integer_one_node;
5264 else if (name == complete_dtor_identifier)
5265 return integer_two_node;
5266 else if (name == deleting_dtor_identifier)
5267 return integer_three_node;
5269 /* This function should only be called with one of the names listed
5270 above. */
5271 gcc_unreachable ();
5272 return NULL_TREE;
5275 /* Build a call to a constructor, destructor, or an assignment
5276 operator for INSTANCE, an expression with class type. NAME
5277 indicates the special member function to call; ARGS are the
5278 arguments. BINFO indicates the base of INSTANCE that is to be
5279 passed as the `this' parameter to the member function called.
5281 FLAGS are the LOOKUP_* flags to use when processing the call.
5283 If NAME indicates a complete object constructor, INSTANCE may be
5284 NULL_TREE. In this case, the caller will call build_cplus_new to
5285 store the newly constructed object into a VAR_DECL. */
5287 tree
5288 build_special_member_call (tree instance, tree name, tree args,
5289 tree binfo, int flags)
5291 tree fns;
5292 /* The type of the subobject to be constructed or destroyed. */
5293 tree class_type;
5295 gcc_assert (name == complete_ctor_identifier
5296 || name == base_ctor_identifier
5297 || name == complete_dtor_identifier
5298 || name == base_dtor_identifier
5299 || name == deleting_dtor_identifier
5300 || name == ansi_assopname (NOP_EXPR));
5301 if (TYPE_P (binfo))
5303 /* Resolve the name. */
5304 if (!complete_type_or_else (binfo, NULL_TREE))
5305 return error_mark_node;
5307 binfo = TYPE_BINFO (binfo);
5310 gcc_assert (binfo != NULL_TREE);
5312 class_type = BINFO_TYPE (binfo);
5314 /* Handle the special case where INSTANCE is NULL_TREE. */
5315 if (name == complete_ctor_identifier && !instance)
5317 instance = build_int_cst (build_pointer_type (class_type), 0);
5318 instance = build1 (INDIRECT_REF, class_type, instance);
5320 else
5322 if (name == complete_dtor_identifier
5323 || name == base_dtor_identifier
5324 || name == deleting_dtor_identifier)
5325 gcc_assert (args == NULL_TREE);
5327 /* Convert to the base class, if necessary. */
5328 if (!same_type_ignoring_top_level_qualifiers_p
5329 (TREE_TYPE (instance), BINFO_TYPE (binfo)))
5331 if (name != ansi_assopname (NOP_EXPR))
5332 /* For constructors and destructors, either the base is
5333 non-virtual, or it is virtual but we are doing the
5334 conversion from a constructor or destructor for the
5335 complete object. In either case, we can convert
5336 statically. */
5337 instance = convert_to_base_statically (instance, binfo);
5338 else
5339 /* However, for assignment operators, we must convert
5340 dynamically if the base is virtual. */
5341 instance = build_base_path (PLUS_EXPR, instance,
5342 binfo, /*nonnull=*/1);
5346 gcc_assert (instance != NULL_TREE);
5348 fns = lookup_fnfields (binfo, name, 1);
5350 /* When making a call to a constructor or destructor for a subobject
5351 that uses virtual base classes, pass down a pointer to a VTT for
5352 the subobject. */
5353 if ((name == base_ctor_identifier
5354 || name == base_dtor_identifier)
5355 && CLASSTYPE_VBASECLASSES (class_type))
5357 tree vtt;
5358 tree sub_vtt;
5360 /* If the current function is a complete object constructor
5361 or destructor, then we fetch the VTT directly.
5362 Otherwise, we look it up using the VTT we were given. */
5363 vtt = TREE_CHAIN (CLASSTYPE_VTABLES (current_class_type));
5364 vtt = decay_conversion (vtt);
5365 vtt = build3 (COND_EXPR, TREE_TYPE (vtt),
5366 build2 (EQ_EXPR, boolean_type_node,
5367 current_in_charge_parm, integer_zero_node),
5368 current_vtt_parm,
5369 vtt);
5370 gcc_assert (BINFO_SUBVTT_INDEX (binfo));
5371 sub_vtt = build2 (POINTER_PLUS_EXPR, TREE_TYPE (vtt), vtt,
5372 BINFO_SUBVTT_INDEX (binfo));
5374 args = tree_cons (NULL_TREE, sub_vtt, args);
5377 return build_new_method_call (instance, fns, args,
5378 TYPE_BINFO (BINFO_TYPE (binfo)),
5379 flags, /*fn=*/NULL);
5382 /* Return the NAME, as a C string. The NAME indicates a function that
5383 is a member of TYPE. *FREE_P is set to true if the caller must
5384 free the memory returned.
5386 Rather than go through all of this, we should simply set the names
5387 of constructors and destructors appropriately, and dispense with
5388 ctor_identifier, dtor_identifier, etc. */
5390 static char *
5391 name_as_c_string (tree name, tree type, bool *free_p)
5393 char *pretty_name;
5395 /* Assume that we will not allocate memory. */
5396 *free_p = false;
5397 /* Constructors and destructors are special. */
5398 if (IDENTIFIER_CTOR_OR_DTOR_P (name))
5400 pretty_name
5401 = CONST_CAST (char *, IDENTIFIER_POINTER (constructor_name (type)));
5402 /* For a destructor, add the '~'. */
5403 if (name == complete_dtor_identifier
5404 || name == base_dtor_identifier
5405 || name == deleting_dtor_identifier)
5407 pretty_name = concat ("~", pretty_name, NULL);
5408 /* Remember that we need to free the memory allocated. */
5409 *free_p = true;
5412 else if (IDENTIFIER_TYPENAME_P (name))
5414 pretty_name = concat ("operator ",
5415 type_as_string (TREE_TYPE (name),
5416 TFF_PLAIN_IDENTIFIER),
5417 NULL);
5418 /* Remember that we need to free the memory allocated. */
5419 *free_p = true;
5421 else
5422 pretty_name = CONST_CAST (char *, IDENTIFIER_POINTER (name));
5424 return pretty_name;
5427 /* Build a call to "INSTANCE.FN (ARGS)". If FN_P is non-NULL, it will
5428 be set, upon return, to the function called. */
5430 tree
5431 build_new_method_call (tree instance, tree fns, tree args,
5432 tree conversion_path, int flags,
5433 tree *fn_p)
5435 struct z_candidate *candidates = 0, *cand;
5436 tree explicit_targs = NULL_TREE;
5437 tree basetype = NULL_TREE;
5438 tree access_binfo;
5439 tree optype;
5440 tree mem_args = NULL_TREE, instance_ptr;
5441 tree name;
5442 tree user_args;
5443 tree call;
5444 tree fn;
5445 tree class_type;
5446 int template_only = 0;
5447 bool any_viable_p;
5448 tree orig_instance;
5449 tree orig_fns;
5450 tree orig_args;
5451 void *p;
5453 gcc_assert (instance != NULL_TREE);
5455 /* We don't know what function we're going to call, yet. */
5456 if (fn_p)
5457 *fn_p = NULL_TREE;
5459 if (error_operand_p (instance)
5460 || error_operand_p (fns)
5461 || args == error_mark_node)
5462 return error_mark_node;
5464 if (!BASELINK_P (fns))
5466 error ("call to non-function %qD", fns);
5467 return error_mark_node;
5470 orig_instance = instance;
5471 orig_fns = fns;
5472 orig_args = args;
5474 /* Dismantle the baselink to collect all the information we need. */
5475 if (!conversion_path)
5476 conversion_path = BASELINK_BINFO (fns);
5477 access_binfo = BASELINK_ACCESS_BINFO (fns);
5478 optype = BASELINK_OPTYPE (fns);
5479 fns = BASELINK_FUNCTIONS (fns);
5480 if (TREE_CODE (fns) == TEMPLATE_ID_EXPR)
5482 explicit_targs = TREE_OPERAND (fns, 1);
5483 fns = TREE_OPERAND (fns, 0);
5484 template_only = 1;
5486 gcc_assert (TREE_CODE (fns) == FUNCTION_DECL
5487 || TREE_CODE (fns) == TEMPLATE_DECL
5488 || TREE_CODE (fns) == OVERLOAD);
5489 fn = get_first_fn (fns);
5490 name = DECL_NAME (fn);
5492 basetype = TYPE_MAIN_VARIANT (TREE_TYPE (instance));
5493 gcc_assert (CLASS_TYPE_P (basetype));
5495 if (processing_template_decl)
5497 instance = build_non_dependent_expr (instance);
5498 args = build_non_dependent_args (orig_args);
5501 /* The USER_ARGS are the arguments we will display to users if an
5502 error occurs. The USER_ARGS should not include any
5503 compiler-generated arguments. The "this" pointer hasn't been
5504 added yet. However, we must remove the VTT pointer if this is a
5505 call to a base-class constructor or destructor. */
5506 user_args = args;
5507 if (IDENTIFIER_CTOR_OR_DTOR_P (name))
5509 /* Callers should explicitly indicate whether they want to construct
5510 the complete object or just the part without virtual bases. */
5511 gcc_assert (name != ctor_identifier);
5512 /* Similarly for destructors. */
5513 gcc_assert (name != dtor_identifier);
5514 /* Remove the VTT pointer, if present. */
5515 if ((name == base_ctor_identifier || name == base_dtor_identifier)
5516 && CLASSTYPE_VBASECLASSES (basetype))
5517 user_args = TREE_CHAIN (user_args);
5520 /* Process the argument list. */
5521 args = resolve_args (args);
5522 if (args == error_mark_node)
5523 return error_mark_node;
5525 instance_ptr = build_this (instance);
5527 /* It's OK to call destructors and constructors on cv-qualified objects.
5528 Therefore, convert the INSTANCE_PTR to the unqualified type, if
5529 necessary. */
5530 if (DECL_DESTRUCTOR_P (fn)
5531 || DECL_CONSTRUCTOR_P (fn))
5533 tree type = build_pointer_type (basetype);
5534 if (!same_type_p (type, TREE_TYPE (instance_ptr)))
5535 instance_ptr = build_nop (type, instance_ptr);
5537 if (DECL_DESTRUCTOR_P (fn))
5538 name = complete_dtor_identifier;
5540 class_type = (conversion_path ? BINFO_TYPE (conversion_path) : NULL_TREE);
5541 mem_args = tree_cons (NULL_TREE, instance_ptr, args);
5543 /* Get the high-water mark for the CONVERSION_OBSTACK. */
5544 p = conversion_obstack_alloc (0);
5546 for (fn = fns; fn; fn = OVL_NEXT (fn))
5548 tree t = OVL_CURRENT (fn);
5549 tree this_arglist;
5551 /* We can end up here for copy-init of same or base class. */
5552 if ((flags & LOOKUP_ONLYCONVERTING)
5553 && DECL_NONCONVERTING_P (t))
5554 continue;
5556 if (DECL_NONSTATIC_MEMBER_FUNCTION_P (t))
5557 this_arglist = mem_args;
5558 else
5559 this_arglist = args;
5561 if (TREE_CODE (t) == TEMPLATE_DECL)
5562 /* A member template. */
5563 add_template_candidate (&candidates, t,
5564 class_type,
5565 explicit_targs,
5566 this_arglist, optype,
5567 access_binfo,
5568 conversion_path,
5569 flags,
5570 DEDUCE_CALL);
5571 else if (! template_only)
5572 add_function_candidate (&candidates, t,
5573 class_type,
5574 this_arglist,
5575 access_binfo,
5576 conversion_path,
5577 flags);
5580 candidates = splice_viable (candidates, pedantic, &any_viable_p);
5581 if (!any_viable_p)
5583 if (!COMPLETE_TYPE_P (basetype))
5584 cxx_incomplete_type_error (instance_ptr, basetype);
5585 else
5587 char *pretty_name;
5588 bool free_p;
5590 pretty_name = name_as_c_string (name, basetype, &free_p);
5591 error ("no matching function for call to %<%T::%s(%A)%#V%>",
5592 basetype, pretty_name, user_args,
5593 TREE_TYPE (TREE_TYPE (instance_ptr)));
5594 if (free_p)
5595 free (pretty_name);
5597 print_z_candidates (candidates);
5598 call = error_mark_node;
5600 else
5602 cand = tourney (candidates);
5603 if (cand == 0)
5605 char *pretty_name;
5606 bool free_p;
5608 pretty_name = name_as_c_string (name, basetype, &free_p);
5609 error ("call of overloaded %<%s(%A)%> is ambiguous", pretty_name,
5610 user_args);
5611 print_z_candidates (candidates);
5612 if (free_p)
5613 free (pretty_name);
5614 call = error_mark_node;
5616 else
5618 fn = cand->fn;
5620 if (!(flags & LOOKUP_NONVIRTUAL)
5621 && DECL_PURE_VIRTUAL_P (fn)
5622 && instance == current_class_ref
5623 && (DECL_CONSTRUCTOR_P (current_function_decl)
5624 || DECL_DESTRUCTOR_P (current_function_decl)))
5625 /* This is not an error, it is runtime undefined
5626 behavior. */
5627 warning (0, (DECL_CONSTRUCTOR_P (current_function_decl) ?
5628 "abstract virtual %q#D called from constructor"
5629 : "abstract virtual %q#D called from destructor"),
5630 fn);
5632 if (TREE_CODE (TREE_TYPE (fn)) == METHOD_TYPE
5633 && is_dummy_object (instance_ptr))
5635 error ("cannot call member function %qD without object",
5636 fn);
5637 call = error_mark_node;
5639 else
5641 if (DECL_VINDEX (fn) && ! (flags & LOOKUP_NONVIRTUAL)
5642 && resolves_to_fixed_type_p (instance, 0))
5643 flags |= LOOKUP_NONVIRTUAL;
5644 /* Now we know what function is being called. */
5645 if (fn_p)
5646 *fn_p = fn;
5647 /* Build the actual CALL_EXPR. */
5648 call = build_over_call (cand, flags);
5649 /* In an expression of the form `a->f()' where `f' turns
5650 out to be a static member function, `a' is
5651 none-the-less evaluated. */
5652 if (TREE_CODE (TREE_TYPE (fn)) != METHOD_TYPE
5653 && !is_dummy_object (instance_ptr)
5654 && TREE_SIDE_EFFECTS (instance_ptr))
5655 call = build2 (COMPOUND_EXPR, TREE_TYPE (call),
5656 instance_ptr, call);
5657 else if (call != error_mark_node
5658 && DECL_DESTRUCTOR_P (cand->fn)
5659 && !VOID_TYPE_P (TREE_TYPE (call)))
5660 /* An explicit call of the form "x->~X()" has type
5661 "void". However, on platforms where destructors
5662 return "this" (i.e., those where
5663 targetm.cxx.cdtor_returns_this is true), such calls
5664 will appear to have a return value of pointer type
5665 to the low-level call machinery. We do not want to
5666 change the low-level machinery, since we want to be
5667 able to optimize "delete f()" on such platforms as
5668 "operator delete(~X(f()))" (rather than generating
5669 "t = f(), ~X(t), operator delete (t)"). */
5670 call = build_nop (void_type_node, call);
5675 if (processing_template_decl && call != error_mark_node)
5676 call = (build_min_non_dep_call_list
5677 (call,
5678 build_min_nt (COMPONENT_REF, orig_instance, orig_fns, NULL_TREE),
5679 orig_args));
5681 /* Free all the conversions we allocated. */
5682 obstack_free (&conversion_obstack, p);
5684 return call;
5687 /* Returns true iff standard conversion sequence ICS1 is a proper
5688 subsequence of ICS2. */
5690 static bool
5691 is_subseq (conversion *ics1, conversion *ics2)
5693 /* We can assume that a conversion of the same code
5694 between the same types indicates a subsequence since we only get
5695 here if the types we are converting from are the same. */
5697 while (ics1->kind == ck_rvalue
5698 || ics1->kind == ck_lvalue)
5699 ics1 = ics1->u.next;
5701 while (1)
5703 while (ics2->kind == ck_rvalue
5704 || ics2->kind == ck_lvalue)
5705 ics2 = ics2->u.next;
5707 if (ics2->kind == ck_user
5708 || ics2->kind == ck_ambig
5709 || ics2->kind == ck_identity)
5710 /* At this point, ICS1 cannot be a proper subsequence of
5711 ICS2. We can get a USER_CONV when we are comparing the
5712 second standard conversion sequence of two user conversion
5713 sequences. */
5714 return false;
5716 ics2 = ics2->u.next;
5718 if (ics2->kind == ics1->kind
5719 && same_type_p (ics2->type, ics1->type)
5720 && same_type_p (ics2->u.next->type,
5721 ics1->u.next->type))
5722 return true;
5726 /* Returns nonzero iff DERIVED is derived from BASE. The inputs may
5727 be any _TYPE nodes. */
5729 bool
5730 is_properly_derived_from (tree derived, tree base)
5732 if (!IS_AGGR_TYPE_CODE (TREE_CODE (derived))
5733 || !IS_AGGR_TYPE_CODE (TREE_CODE (base)))
5734 return false;
5736 /* We only allow proper derivation here. The DERIVED_FROM_P macro
5737 considers every class derived from itself. */
5738 return (!same_type_ignoring_top_level_qualifiers_p (derived, base)
5739 && DERIVED_FROM_P (base, derived));
5742 /* We build the ICS for an implicit object parameter as a pointer
5743 conversion sequence. However, such a sequence should be compared
5744 as if it were a reference conversion sequence. If ICS is the
5745 implicit conversion sequence for an implicit object parameter,
5746 modify it accordingly. */
5748 static void
5749 maybe_handle_implicit_object (conversion **ics)
5751 if ((*ics)->this_p)
5753 /* [over.match.funcs]
5755 For non-static member functions, the type of the
5756 implicit object parameter is "reference to cv X"
5757 where X is the class of which the function is a
5758 member and cv is the cv-qualification on the member
5759 function declaration. */
5760 conversion *t = *ics;
5761 tree reference_type;
5763 /* The `this' parameter is a pointer to a class type. Make the
5764 implicit conversion talk about a reference to that same class
5765 type. */
5766 reference_type = TREE_TYPE (t->type);
5767 reference_type = build_reference_type (reference_type);
5769 if (t->kind == ck_qual)
5770 t = t->u.next;
5771 if (t->kind == ck_ptr)
5772 t = t->u.next;
5773 t = build_identity_conv (TREE_TYPE (t->type), NULL_TREE);
5774 t = direct_reference_binding (reference_type, t);
5775 t->this_p = 1;
5776 t->rvaluedness_matches_p = 0;
5777 *ics = t;
5781 /* If *ICS is a REF_BIND set *ICS to the remainder of the conversion,
5782 and return the initial reference binding conversion. Otherwise,
5783 leave *ICS unchanged and return NULL. */
5785 static conversion *
5786 maybe_handle_ref_bind (conversion **ics)
5788 if ((*ics)->kind == ck_ref_bind)
5790 conversion *old_ics = *ics;
5791 *ics = old_ics->u.next;
5792 (*ics)->user_conv_p = old_ics->user_conv_p;
5793 (*ics)->bad_p = old_ics->bad_p;
5794 return old_ics;
5797 return NULL;
5800 /* Compare two implicit conversion sequences according to the rules set out in
5801 [over.ics.rank]. Return values:
5803 1: ics1 is better than ics2
5804 -1: ics2 is better than ics1
5805 0: ics1 and ics2 are indistinguishable */
5807 static int
5808 compare_ics (conversion *ics1, conversion *ics2)
5810 tree from_type1;
5811 tree from_type2;
5812 tree to_type1;
5813 tree to_type2;
5814 tree deref_from_type1 = NULL_TREE;
5815 tree deref_from_type2 = NULL_TREE;
5816 tree deref_to_type1 = NULL_TREE;
5817 tree deref_to_type2 = NULL_TREE;
5818 conversion_rank rank1, rank2;
5820 /* REF_BINDING is nonzero if the result of the conversion sequence
5821 is a reference type. In that case REF_CONV is the reference
5822 binding conversion. */
5823 conversion *ref_conv1;
5824 conversion *ref_conv2;
5826 /* Handle implicit object parameters. */
5827 maybe_handle_implicit_object (&ics1);
5828 maybe_handle_implicit_object (&ics2);
5830 /* Handle reference parameters. */
5831 ref_conv1 = maybe_handle_ref_bind (&ics1);
5832 ref_conv2 = maybe_handle_ref_bind (&ics2);
5834 /* [over.ics.rank]
5836 When comparing the basic forms of implicit conversion sequences (as
5837 defined in _over.best.ics_)
5839 --a standard conversion sequence (_over.ics.scs_) is a better
5840 conversion sequence than a user-defined conversion sequence
5841 or an ellipsis conversion sequence, and
5843 --a user-defined conversion sequence (_over.ics.user_) is a
5844 better conversion sequence than an ellipsis conversion sequence
5845 (_over.ics.ellipsis_). */
5846 rank1 = CONVERSION_RANK (ics1);
5847 rank2 = CONVERSION_RANK (ics2);
5849 if (rank1 > rank2)
5850 return -1;
5851 else if (rank1 < rank2)
5852 return 1;
5854 if (rank1 == cr_bad)
5856 /* XXX Isn't this an extension? */
5857 /* Both ICS are bad. We try to make a decision based on what
5858 would have happened if they'd been good. */
5859 if (ics1->user_conv_p > ics2->user_conv_p
5860 || ics1->rank > ics2->rank)
5861 return -1;
5862 else if (ics1->user_conv_p < ics2->user_conv_p
5863 || ics1->rank < ics2->rank)
5864 return 1;
5866 /* We couldn't make up our minds; try to figure it out below. */
5869 if (ics1->ellipsis_p)
5870 /* Both conversions are ellipsis conversions. */
5871 return 0;
5873 /* User-defined conversion sequence U1 is a better conversion sequence
5874 than another user-defined conversion sequence U2 if they contain the
5875 same user-defined conversion operator or constructor and if the sec-
5876 ond standard conversion sequence of U1 is better than the second
5877 standard conversion sequence of U2. */
5879 if (ics1->user_conv_p)
5881 conversion *t1;
5882 conversion *t2;
5884 for (t1 = ics1; t1->kind != ck_user; t1 = t1->u.next)
5885 if (t1->kind == ck_ambig)
5886 return 0;
5887 for (t2 = ics2; t2->kind != ck_user; t2 = t2->u.next)
5888 if (t2->kind == ck_ambig)
5889 return 0;
5891 if (t1->cand->fn != t2->cand->fn)
5892 return 0;
5894 /* We can just fall through here, after setting up
5895 FROM_TYPE1 and FROM_TYPE2. */
5896 from_type1 = t1->type;
5897 from_type2 = t2->type;
5899 else
5901 conversion *t1;
5902 conversion *t2;
5904 /* We're dealing with two standard conversion sequences.
5906 [over.ics.rank]
5908 Standard conversion sequence S1 is a better conversion
5909 sequence than standard conversion sequence S2 if
5911 --S1 is a proper subsequence of S2 (comparing the conversion
5912 sequences in the canonical form defined by _over.ics.scs_,
5913 excluding any Lvalue Transformation; the identity
5914 conversion sequence is considered to be a subsequence of
5915 any non-identity conversion sequence */
5917 t1 = ics1;
5918 while (t1->kind != ck_identity)
5919 t1 = t1->u.next;
5920 from_type1 = t1->type;
5922 t2 = ics2;
5923 while (t2->kind != ck_identity)
5924 t2 = t2->u.next;
5925 from_type2 = t2->type;
5928 if (same_type_p (from_type1, from_type2))
5930 if (is_subseq (ics1, ics2))
5931 return 1;
5932 if (is_subseq (ics2, ics1))
5933 return -1;
5935 /* Otherwise, one sequence cannot be a subsequence of the other; they
5936 don't start with the same type. This can happen when comparing the
5937 second standard conversion sequence in two user-defined conversion
5938 sequences. */
5940 /* [over.ics.rank]
5942 Or, if not that,
5944 --the rank of S1 is better than the rank of S2 (by the rules
5945 defined below):
5947 Standard conversion sequences are ordered by their ranks: an Exact
5948 Match is a better conversion than a Promotion, which is a better
5949 conversion than a Conversion.
5951 Two conversion sequences with the same rank are indistinguishable
5952 unless one of the following rules applies:
5954 --A conversion that is not a conversion of a pointer, or pointer
5955 to member, to bool is better than another conversion that is such
5956 a conversion.
5958 The ICS_STD_RANK automatically handles the pointer-to-bool rule,
5959 so that we do not have to check it explicitly. */
5960 if (ics1->rank < ics2->rank)
5961 return 1;
5962 else if (ics2->rank < ics1->rank)
5963 return -1;
5965 to_type1 = ics1->type;
5966 to_type2 = ics2->type;
5968 if (TYPE_PTR_P (from_type1)
5969 && TYPE_PTR_P (from_type2)
5970 && TYPE_PTR_P (to_type1)
5971 && TYPE_PTR_P (to_type2))
5973 deref_from_type1 = TREE_TYPE (from_type1);
5974 deref_from_type2 = TREE_TYPE (from_type2);
5975 deref_to_type1 = TREE_TYPE (to_type1);
5976 deref_to_type2 = TREE_TYPE (to_type2);
5978 /* The rules for pointers to members A::* are just like the rules
5979 for pointers A*, except opposite: if B is derived from A then
5980 A::* converts to B::*, not vice versa. For that reason, we
5981 switch the from_ and to_ variables here. */
5982 else if ((TYPE_PTRMEM_P (from_type1) && TYPE_PTRMEM_P (from_type2)
5983 && TYPE_PTRMEM_P (to_type1) && TYPE_PTRMEM_P (to_type2))
5984 || (TYPE_PTRMEMFUNC_P (from_type1)
5985 && TYPE_PTRMEMFUNC_P (from_type2)
5986 && TYPE_PTRMEMFUNC_P (to_type1)
5987 && TYPE_PTRMEMFUNC_P (to_type2)))
5989 deref_to_type1 = TYPE_PTRMEM_CLASS_TYPE (from_type1);
5990 deref_to_type2 = TYPE_PTRMEM_CLASS_TYPE (from_type2);
5991 deref_from_type1 = TYPE_PTRMEM_CLASS_TYPE (to_type1);
5992 deref_from_type2 = TYPE_PTRMEM_CLASS_TYPE (to_type2);
5995 if (deref_from_type1 != NULL_TREE
5996 && IS_AGGR_TYPE_CODE (TREE_CODE (deref_from_type1))
5997 && IS_AGGR_TYPE_CODE (TREE_CODE (deref_from_type2)))
5999 /* This was one of the pointer or pointer-like conversions.
6001 [over.ics.rank]
6003 --If class B is derived directly or indirectly from class A,
6004 conversion of B* to A* is better than conversion of B* to
6005 void*, and conversion of A* to void* is better than
6006 conversion of B* to void*. */
6007 if (TREE_CODE (deref_to_type1) == VOID_TYPE
6008 && TREE_CODE (deref_to_type2) == VOID_TYPE)
6010 if (is_properly_derived_from (deref_from_type1,
6011 deref_from_type2))
6012 return -1;
6013 else if (is_properly_derived_from (deref_from_type2,
6014 deref_from_type1))
6015 return 1;
6017 else if (TREE_CODE (deref_to_type1) == VOID_TYPE
6018 || TREE_CODE (deref_to_type2) == VOID_TYPE)
6020 if (same_type_p (deref_from_type1, deref_from_type2))
6022 if (TREE_CODE (deref_to_type2) == VOID_TYPE)
6024 if (is_properly_derived_from (deref_from_type1,
6025 deref_to_type1))
6026 return 1;
6028 /* We know that DEREF_TO_TYPE1 is `void' here. */
6029 else if (is_properly_derived_from (deref_from_type1,
6030 deref_to_type2))
6031 return -1;
6034 else if (IS_AGGR_TYPE_CODE (TREE_CODE (deref_to_type1))
6035 && IS_AGGR_TYPE_CODE (TREE_CODE (deref_to_type2)))
6037 /* [over.ics.rank]
6039 --If class B is derived directly or indirectly from class A
6040 and class C is derived directly or indirectly from B,
6042 --conversion of C* to B* is better than conversion of C* to
6045 --conversion of B* to A* is better than conversion of C* to
6046 A* */
6047 if (same_type_p (deref_from_type1, deref_from_type2))
6049 if (is_properly_derived_from (deref_to_type1,
6050 deref_to_type2))
6051 return 1;
6052 else if (is_properly_derived_from (deref_to_type2,
6053 deref_to_type1))
6054 return -1;
6056 else if (same_type_p (deref_to_type1, deref_to_type2))
6058 if (is_properly_derived_from (deref_from_type2,
6059 deref_from_type1))
6060 return 1;
6061 else if (is_properly_derived_from (deref_from_type1,
6062 deref_from_type2))
6063 return -1;
6067 else if (CLASS_TYPE_P (non_reference (from_type1))
6068 && same_type_p (from_type1, from_type2))
6070 tree from = non_reference (from_type1);
6072 /* [over.ics.rank]
6074 --binding of an expression of type C to a reference of type
6075 B& is better than binding an expression of type C to a
6076 reference of type A&
6078 --conversion of C to B is better than conversion of C to A, */
6079 if (is_properly_derived_from (from, to_type1)
6080 && is_properly_derived_from (from, to_type2))
6082 if (is_properly_derived_from (to_type1, to_type2))
6083 return 1;
6084 else if (is_properly_derived_from (to_type2, to_type1))
6085 return -1;
6088 else if (CLASS_TYPE_P (non_reference (to_type1))
6089 && same_type_p (to_type1, to_type2))
6091 tree to = non_reference (to_type1);
6093 /* [over.ics.rank]
6095 --binding of an expression of type B to a reference of type
6096 A& is better than binding an expression of type C to a
6097 reference of type A&,
6099 --conversion of B to A is better than conversion of C to A */
6100 if (is_properly_derived_from (from_type1, to)
6101 && is_properly_derived_from (from_type2, to))
6103 if (is_properly_derived_from (from_type2, from_type1))
6104 return 1;
6105 else if (is_properly_derived_from (from_type1, from_type2))
6106 return -1;
6110 /* [over.ics.rank]
6112 --S1 and S2 differ only in their qualification conversion and yield
6113 similar types T1 and T2 (_conv.qual_), respectively, and the cv-
6114 qualification signature of type T1 is a proper subset of the cv-
6115 qualification signature of type T2 */
6116 if (ics1->kind == ck_qual
6117 && ics2->kind == ck_qual
6118 && same_type_p (from_type1, from_type2))
6119 return comp_cv_qual_signature (to_type1, to_type2);
6121 /* [over.ics.rank]
6123 --S1 and S2 are reference bindings (_dcl.init.ref_) and neither refers
6124 to an implicit object parameter, and either S1 binds an lvalue reference
6125 to an lvalue and S2 binds an rvalue reference or S1 binds an rvalue
6126 reference to an rvalue and S2 binds an lvalue reference
6127 (C++0x draft standard, 13.3.3.2)
6129 --S1 and S2 are reference bindings (_dcl.init.ref_), and the
6130 types to which the references refer are the same type except for
6131 top-level cv-qualifiers, and the type to which the reference
6132 initialized by S2 refers is more cv-qualified than the type to
6133 which the reference initialized by S1 refers */
6135 if (ref_conv1 && ref_conv2)
6137 if (!ref_conv1->this_p && !ref_conv2->this_p
6138 && (TYPE_REF_IS_RVALUE (ref_conv1->type)
6139 != TYPE_REF_IS_RVALUE (ref_conv2->type)))
6141 if (ref_conv1->rvaluedness_matches_p)
6142 return 1;
6143 if (ref_conv2->rvaluedness_matches_p)
6144 return -1;
6147 if (same_type_ignoring_top_level_qualifiers_p (to_type1, to_type2))
6148 return comp_cv_qualification (TREE_TYPE (ref_conv2->type),
6149 TREE_TYPE (ref_conv1->type));
6152 /* Neither conversion sequence is better than the other. */
6153 return 0;
6156 /* The source type for this standard conversion sequence. */
6158 static tree
6159 source_type (conversion *t)
6161 for (;; t = t->u.next)
6163 if (t->kind == ck_user
6164 || t->kind == ck_ambig
6165 || t->kind == ck_identity)
6166 return t->type;
6168 gcc_unreachable ();
6171 /* Note a warning about preferring WINNER to LOSER. We do this by storing
6172 a pointer to LOSER and re-running joust to produce the warning if WINNER
6173 is actually used. */
6175 static void
6176 add_warning (struct z_candidate *winner, struct z_candidate *loser)
6178 candidate_warning *cw = (candidate_warning *)
6179 conversion_obstack_alloc (sizeof (candidate_warning));
6180 cw->loser = loser;
6181 cw->next = winner->warnings;
6182 winner->warnings = cw;
6185 /* Compare two candidates for overloading as described in
6186 [over.match.best]. Return values:
6188 1: cand1 is better than cand2
6189 -1: cand2 is better than cand1
6190 0: cand1 and cand2 are indistinguishable */
6192 static int
6193 joust (struct z_candidate *cand1, struct z_candidate *cand2, bool warn)
6195 int winner = 0;
6196 int off1 = 0, off2 = 0;
6197 size_t i;
6198 size_t len;
6200 /* Candidates that involve bad conversions are always worse than those
6201 that don't. */
6202 if (cand1->viable > cand2->viable)
6203 return 1;
6204 if (cand1->viable < cand2->viable)
6205 return -1;
6207 /* If we have two pseudo-candidates for conversions to the same type,
6208 or two candidates for the same function, arbitrarily pick one. */
6209 if (cand1->fn == cand2->fn
6210 && (IS_TYPE_OR_DECL_P (cand1->fn)))
6211 return 1;
6213 /* a viable function F1
6214 is defined to be a better function than another viable function F2 if
6215 for all arguments i, ICSi(F1) is not a worse conversion sequence than
6216 ICSi(F2), and then */
6218 /* for some argument j, ICSj(F1) is a better conversion sequence than
6219 ICSj(F2) */
6221 /* For comparing static and non-static member functions, we ignore
6222 the implicit object parameter of the non-static function. The
6223 standard says to pretend that the static function has an object
6224 parm, but that won't work with operator overloading. */
6225 len = cand1->num_convs;
6226 if (len != cand2->num_convs)
6228 int static_1 = DECL_STATIC_FUNCTION_P (cand1->fn);
6229 int static_2 = DECL_STATIC_FUNCTION_P (cand2->fn);
6231 gcc_assert (static_1 != static_2);
6233 if (static_1)
6234 off2 = 1;
6235 else
6237 off1 = 1;
6238 --len;
6242 for (i = 0; i < len; ++i)
6244 conversion *t1 = cand1->convs[i + off1];
6245 conversion *t2 = cand2->convs[i + off2];
6246 int comp = compare_ics (t1, t2);
6248 if (comp != 0)
6250 if (warn_sign_promo
6251 && (CONVERSION_RANK (t1) + CONVERSION_RANK (t2)
6252 == cr_std + cr_promotion)
6253 && t1->kind == ck_std
6254 && t2->kind == ck_std
6255 && TREE_CODE (t1->type) == INTEGER_TYPE
6256 && TREE_CODE (t2->type) == INTEGER_TYPE
6257 && (TYPE_PRECISION (t1->type)
6258 == TYPE_PRECISION (t2->type))
6259 && (TYPE_UNSIGNED (t1->u.next->type)
6260 || (TREE_CODE (t1->u.next->type)
6261 == ENUMERAL_TYPE)))
6263 tree type = t1->u.next->type;
6264 tree type1, type2;
6265 struct z_candidate *w, *l;
6266 if (comp > 0)
6267 type1 = t1->type, type2 = t2->type,
6268 w = cand1, l = cand2;
6269 else
6270 type1 = t2->type, type2 = t1->type,
6271 w = cand2, l = cand1;
6273 if (warn)
6275 warning (OPT_Wsign_promo, "passing %qT chooses %qT over %qT",
6276 type, type1, type2);
6277 warning (OPT_Wsign_promo, " in call to %qD", w->fn);
6279 else
6280 add_warning (w, l);
6283 if (winner && comp != winner)
6285 winner = 0;
6286 goto tweak;
6288 winner = comp;
6292 /* warn about confusing overload resolution for user-defined conversions,
6293 either between a constructor and a conversion op, or between two
6294 conversion ops. */
6295 if (winner && warn_conversion && cand1->second_conv
6296 && (!DECL_CONSTRUCTOR_P (cand1->fn) || !DECL_CONSTRUCTOR_P (cand2->fn))
6297 && winner != compare_ics (cand1->second_conv, cand2->second_conv))
6299 struct z_candidate *w, *l;
6300 bool give_warning = false;
6302 if (winner == 1)
6303 w = cand1, l = cand2;
6304 else
6305 w = cand2, l = cand1;
6307 /* We don't want to complain about `X::operator T1 ()'
6308 beating `X::operator T2 () const', when T2 is a no less
6309 cv-qualified version of T1. */
6310 if (DECL_CONTEXT (w->fn) == DECL_CONTEXT (l->fn)
6311 && !DECL_CONSTRUCTOR_P (w->fn) && !DECL_CONSTRUCTOR_P (l->fn))
6313 tree t = TREE_TYPE (TREE_TYPE (l->fn));
6314 tree f = TREE_TYPE (TREE_TYPE (w->fn));
6316 if (TREE_CODE (t) == TREE_CODE (f) && POINTER_TYPE_P (t))
6318 t = TREE_TYPE (t);
6319 f = TREE_TYPE (f);
6321 if (!comp_ptr_ttypes (t, f))
6322 give_warning = true;
6324 else
6325 give_warning = true;
6327 if (!give_warning)
6328 /*NOP*/;
6329 else if (warn)
6331 tree source = source_type (w->convs[0]);
6332 if (! DECL_CONSTRUCTOR_P (w->fn))
6333 source = TREE_TYPE (source);
6334 warning (OPT_Wconversion, "choosing %qD over %qD", w->fn, l->fn);
6335 warning (OPT_Wconversion, " for conversion from %qT to %qT",
6336 source, w->second_conv->type);
6337 inform (" because conversion sequence for the argument is better");
6339 else
6340 add_warning (w, l);
6343 if (winner)
6344 return winner;
6346 /* or, if not that,
6347 F1 is a non-template function and F2 is a template function
6348 specialization. */
6350 if (!cand1->template_decl && cand2->template_decl)
6351 return 1;
6352 else if (cand1->template_decl && !cand2->template_decl)
6353 return -1;
6355 /* or, if not that,
6356 F1 and F2 are template functions and the function template for F1 is
6357 more specialized than the template for F2 according to the partial
6358 ordering rules. */
6360 if (cand1->template_decl && cand2->template_decl)
6362 winner = more_specialized_fn
6363 (TI_TEMPLATE (cand1->template_decl),
6364 TI_TEMPLATE (cand2->template_decl),
6365 /* [temp.func.order]: The presence of unused ellipsis and default
6366 arguments has no effect on the partial ordering of function
6367 templates. add_function_candidate() will not have
6368 counted the "this" argument for constructors. */
6369 cand1->num_convs + DECL_CONSTRUCTOR_P (cand1->fn));
6370 if (winner)
6371 return winner;
6374 /* or, if not that,
6375 the context is an initialization by user-defined conversion (see
6376 _dcl.init_ and _over.match.user_) and the standard conversion
6377 sequence from the return type of F1 to the destination type (i.e.,
6378 the type of the entity being initialized) is a better conversion
6379 sequence than the standard conversion sequence from the return type
6380 of F2 to the destination type. */
6382 if (cand1->second_conv)
6384 winner = compare_ics (cand1->second_conv, cand2->second_conv);
6385 if (winner)
6386 return winner;
6389 /* Check whether we can discard a builtin candidate, either because we
6390 have two identical ones or matching builtin and non-builtin candidates.
6392 (Pedantically in the latter case the builtin which matched the user
6393 function should not be added to the overload set, but we spot it here.
6395 [over.match.oper]
6396 ... the builtin candidates include ...
6397 - do not have the same parameter type list as any non-template
6398 non-member candidate. */
6400 if (TREE_CODE (cand1->fn) == IDENTIFIER_NODE
6401 || TREE_CODE (cand2->fn) == IDENTIFIER_NODE)
6403 for (i = 0; i < len; ++i)
6404 if (!same_type_p (cand1->convs[i]->type,
6405 cand2->convs[i]->type))
6406 break;
6407 if (i == cand1->num_convs)
6409 if (cand1->fn == cand2->fn)
6410 /* Two built-in candidates; arbitrarily pick one. */
6411 return 1;
6412 else if (TREE_CODE (cand1->fn) == IDENTIFIER_NODE)
6413 /* cand1 is built-in; prefer cand2. */
6414 return -1;
6415 else
6416 /* cand2 is built-in; prefer cand1. */
6417 return 1;
6421 /* If the two functions are the same (this can happen with declarations
6422 in multiple scopes and arg-dependent lookup), arbitrarily choose one. */
6423 if (DECL_P (cand1->fn) && DECL_P (cand2->fn)
6424 && equal_functions (cand1->fn, cand2->fn))
6425 return 1;
6427 tweak:
6429 /* Extension: If the worst conversion for one candidate is worse than the
6430 worst conversion for the other, take the first. */
6431 if (!pedantic)
6433 conversion_rank rank1 = cr_identity, rank2 = cr_identity;
6434 struct z_candidate *w = 0, *l = 0;
6436 for (i = 0; i < len; ++i)
6438 if (CONVERSION_RANK (cand1->convs[i+off1]) > rank1)
6439 rank1 = CONVERSION_RANK (cand1->convs[i+off1]);
6440 if (CONVERSION_RANK (cand2->convs[i + off2]) > rank2)
6441 rank2 = CONVERSION_RANK (cand2->convs[i + off2]);
6443 if (rank1 < rank2)
6444 winner = 1, w = cand1, l = cand2;
6445 if (rank1 > rank2)
6446 winner = -1, w = cand2, l = cand1;
6447 if (winner)
6449 if (warn)
6451 pedwarn ("\
6452 ISO C++ says that these are ambiguous, even \
6453 though the worst conversion for the first is better than \
6454 the worst conversion for the second:");
6455 print_z_candidate (_("candidate 1:"), w);
6456 print_z_candidate (_("candidate 2:"), l);
6458 else
6459 add_warning (w, l);
6460 return winner;
6464 gcc_assert (!winner);
6465 return 0;
6468 /* Given a list of candidates for overloading, find the best one, if any.
6469 This algorithm has a worst case of O(2n) (winner is last), and a best
6470 case of O(n/2) (totally ambiguous); much better than a sorting
6471 algorithm. */
6473 static struct z_candidate *
6474 tourney (struct z_candidate *candidates)
6476 struct z_candidate *champ = candidates, *challenger;
6477 int fate;
6478 int champ_compared_to_predecessor = 0;
6480 /* Walk through the list once, comparing each current champ to the next
6481 candidate, knocking out a candidate or two with each comparison. */
6483 for (challenger = champ->next; challenger; )
6485 fate = joust (champ, challenger, 0);
6486 if (fate == 1)
6487 challenger = challenger->next;
6488 else
6490 if (fate == 0)
6492 champ = challenger->next;
6493 if (champ == 0)
6494 return NULL;
6495 champ_compared_to_predecessor = 0;
6497 else
6499 champ = challenger;
6500 champ_compared_to_predecessor = 1;
6503 challenger = champ->next;
6507 /* Make sure the champ is better than all the candidates it hasn't yet
6508 been compared to. */
6510 for (challenger = candidates;
6511 challenger != champ
6512 && !(champ_compared_to_predecessor && challenger->next == champ);
6513 challenger = challenger->next)
6515 fate = joust (champ, challenger, 0);
6516 if (fate != 1)
6517 return NULL;
6520 return champ;
6523 /* Returns nonzero if things of type FROM can be converted to TO. */
6525 bool
6526 can_convert (tree to, tree from)
6528 return can_convert_arg (to, from, NULL_TREE, LOOKUP_NORMAL);
6531 /* Returns nonzero if ARG (of type FROM) can be converted to TO. */
6533 bool
6534 can_convert_arg (tree to, tree from, tree arg, int flags)
6536 conversion *t;
6537 void *p;
6538 bool ok_p;
6540 /* Get the high-water mark for the CONVERSION_OBSTACK. */
6541 p = conversion_obstack_alloc (0);
6543 t = implicit_conversion (to, from, arg, /*c_cast_p=*/false,
6544 flags);
6545 ok_p = (t && !t->bad_p);
6547 /* Free all the conversions we allocated. */
6548 obstack_free (&conversion_obstack, p);
6550 return ok_p;
6553 /* Like can_convert_arg, but allows dubious conversions as well. */
6555 bool
6556 can_convert_arg_bad (tree to, tree from, tree arg)
6558 conversion *t;
6559 void *p;
6561 /* Get the high-water mark for the CONVERSION_OBSTACK. */
6562 p = conversion_obstack_alloc (0);
6563 /* Try to perform the conversion. */
6564 t = implicit_conversion (to, from, arg, /*c_cast_p=*/false,
6565 LOOKUP_NORMAL);
6566 /* Free all the conversions we allocated. */
6567 obstack_free (&conversion_obstack, p);
6569 return t != NULL;
6572 /* Convert EXPR to TYPE. Return the converted expression.
6574 Note that we allow bad conversions here because by the time we get to
6575 this point we are committed to doing the conversion. If we end up
6576 doing a bad conversion, convert_like will complain. */
6578 tree
6579 perform_implicit_conversion (tree type, tree expr)
6581 conversion *conv;
6582 void *p;
6584 if (error_operand_p (expr))
6585 return error_mark_node;
6587 /* Get the high-water mark for the CONVERSION_OBSTACK. */
6588 p = conversion_obstack_alloc (0);
6590 conv = implicit_conversion (type, TREE_TYPE (expr), expr,
6591 /*c_cast_p=*/false,
6592 LOOKUP_NORMAL);
6593 if (!conv)
6595 error ("could not convert %qE to %qT", expr, type);
6596 expr = error_mark_node;
6598 else if (processing_template_decl)
6600 /* In a template, we are only concerned about determining the
6601 type of non-dependent expressions, so we do not have to
6602 perform the actual conversion. */
6603 if (TREE_TYPE (expr) != type)
6604 expr = build_nop (type, expr);
6606 else
6607 expr = convert_like (conv, expr);
6609 /* Free all the conversions we allocated. */
6610 obstack_free (&conversion_obstack, p);
6612 return expr;
6615 /* Convert EXPR to TYPE (as a direct-initialization) if that is
6616 permitted. If the conversion is valid, the converted expression is
6617 returned. Otherwise, NULL_TREE is returned, except in the case
6618 that TYPE is a class type; in that case, an error is issued. If
6619 C_CAST_P is true, then this direction initialization is taking
6620 place as part of a static_cast being attempted as part of a C-style
6621 cast. */
6623 tree
6624 perform_direct_initialization_if_possible (tree type,
6625 tree expr,
6626 bool c_cast_p)
6628 conversion *conv;
6629 void *p;
6631 if (type == error_mark_node || error_operand_p (expr))
6632 return error_mark_node;
6633 /* [dcl.init]
6635 If the destination type is a (possibly cv-qualified) class type:
6637 -- If the initialization is direct-initialization ...,
6638 constructors are considered. ... If no constructor applies, or
6639 the overload resolution is ambiguous, the initialization is
6640 ill-formed. */
6641 if (CLASS_TYPE_P (type))
6643 expr = build_special_member_call (NULL_TREE, complete_ctor_identifier,
6644 build_tree_list (NULL_TREE, expr),
6645 type, LOOKUP_NORMAL);
6646 return build_cplus_new (type, expr);
6649 /* Get the high-water mark for the CONVERSION_OBSTACK. */
6650 p = conversion_obstack_alloc (0);
6652 conv = implicit_conversion (type, TREE_TYPE (expr), expr,
6653 c_cast_p,
6654 LOOKUP_NORMAL);
6655 if (!conv || conv->bad_p)
6656 expr = NULL_TREE;
6657 else
6658 expr = convert_like_real (conv, expr, NULL_TREE, 0, 0,
6659 /*issue_conversion_warnings=*/false,
6660 c_cast_p);
6662 /* Free all the conversions we allocated. */
6663 obstack_free (&conversion_obstack, p);
6665 return expr;
6668 /* DECL is a VAR_DECL whose type is a REFERENCE_TYPE. The reference
6669 is being bound to a temporary. Create and return a new VAR_DECL
6670 with the indicated TYPE; this variable will store the value to
6671 which the reference is bound. */
6673 tree
6674 make_temporary_var_for_ref_to_temp (tree decl, tree type)
6676 tree var;
6678 /* Create the variable. */
6679 var = create_temporary_var (type);
6681 /* Register the variable. */
6682 if (TREE_STATIC (decl))
6684 /* Namespace-scope or local static; give it a mangled name. */
6685 tree name;
6687 TREE_STATIC (var) = 1;
6688 name = mangle_ref_init_variable (decl);
6689 DECL_NAME (var) = name;
6690 SET_DECL_ASSEMBLER_NAME (var, name);
6691 var = pushdecl_top_level (var);
6693 else
6694 /* Create a new cleanup level if necessary. */
6695 maybe_push_cleanup_level (type);
6697 return var;
6700 /* Convert EXPR to the indicated reference TYPE, in a way suitable for
6701 initializing a variable of that TYPE. If DECL is non-NULL, it is
6702 the VAR_DECL being initialized with the EXPR. (In that case, the
6703 type of DECL will be TYPE.) If DECL is non-NULL, then CLEANUP must
6704 also be non-NULL, and with *CLEANUP initialized to NULL. Upon
6705 return, if *CLEANUP is no longer NULL, it will be an expression
6706 that should be pushed as a cleanup after the returned expression
6707 is used to initialize DECL.
6709 Return the converted expression. */
6711 tree
6712 initialize_reference (tree type, tree expr, tree decl, tree *cleanup)
6714 conversion *conv;
6715 void *p;
6717 if (type == error_mark_node || error_operand_p (expr))
6718 return error_mark_node;
6720 /* Get the high-water mark for the CONVERSION_OBSTACK. */
6721 p = conversion_obstack_alloc (0);
6723 conv = reference_binding (type, TREE_TYPE (expr), expr, /*c_cast_p=*/false,
6724 LOOKUP_NORMAL);
6725 if (!conv || conv->bad_p)
6727 if (!(TYPE_QUALS (TREE_TYPE (type)) & TYPE_QUAL_CONST)
6728 && !real_lvalue_p (expr))
6729 error ("invalid initialization of non-const reference of "
6730 "type %qT from a temporary of type %qT",
6731 type, TREE_TYPE (expr));
6732 else
6733 error ("invalid initialization of reference of type "
6734 "%qT from expression of type %qT", type,
6735 TREE_TYPE (expr));
6736 return error_mark_node;
6739 /* If DECL is non-NULL, then this special rule applies:
6741 [class.temporary]
6743 The temporary to which the reference is bound or the temporary
6744 that is the complete object to which the reference is bound
6745 persists for the lifetime of the reference.
6747 The temporaries created during the evaluation of the expression
6748 initializing the reference, except the temporary to which the
6749 reference is bound, are destroyed at the end of the
6750 full-expression in which they are created.
6752 In that case, we store the converted expression into a new
6753 VAR_DECL in a new scope.
6755 However, we want to be careful not to create temporaries when
6756 they are not required. For example, given:
6758 struct B {};
6759 struct D : public B {};
6760 D f();
6761 const B& b = f();
6763 there is no need to copy the return value from "f"; we can just
6764 extend its lifetime. Similarly, given:
6766 struct S {};
6767 struct T { operator S(); };
6768 T t;
6769 const S& s = t;
6771 we can extend the lifetime of the return value of the conversion
6772 operator. */
6773 gcc_assert (conv->kind == ck_ref_bind);
6774 if (decl)
6776 tree var;
6777 tree base_conv_type;
6779 /* Skip over the REF_BIND. */
6780 conv = conv->u.next;
6781 /* If the next conversion is a BASE_CONV, skip that too -- but
6782 remember that the conversion was required. */
6783 if (conv->kind == ck_base)
6785 if (conv->check_copy_constructor_p)
6786 check_constructor_callable (TREE_TYPE (expr), expr);
6787 base_conv_type = conv->type;
6788 conv = conv->u.next;
6790 else
6791 base_conv_type = NULL_TREE;
6792 /* Perform the remainder of the conversion. */
6793 expr = convert_like_real (conv, expr,
6794 /*fn=*/NULL_TREE, /*argnum=*/0,
6795 /*inner=*/-1,
6796 /*issue_conversion_warnings=*/true,
6797 /*c_cast_p=*/false);
6798 if (error_operand_p (expr))
6799 expr = error_mark_node;
6800 else
6802 if (!real_lvalue_p (expr))
6804 tree init;
6805 tree type;
6807 /* Create the temporary variable. */
6808 type = TREE_TYPE (expr);
6809 var = make_temporary_var_for_ref_to_temp (decl, type);
6810 layout_decl (var, 0);
6811 /* If the rvalue is the result of a function call it will be
6812 a TARGET_EXPR. If it is some other construct (such as a
6813 member access expression where the underlying object is
6814 itself the result of a function call), turn it into a
6815 TARGET_EXPR here. It is important that EXPR be a
6816 TARGET_EXPR below since otherwise the INIT_EXPR will
6817 attempt to make a bitwise copy of EXPR to initialize
6818 VAR. */
6819 if (TREE_CODE (expr) != TARGET_EXPR)
6820 expr = get_target_expr (expr);
6821 /* Create the INIT_EXPR that will initialize the temporary
6822 variable. */
6823 init = build2 (INIT_EXPR, type, var, expr);
6824 if (at_function_scope_p ())
6826 add_decl_expr (var);
6827 *cleanup = cxx_maybe_build_cleanup (var);
6829 /* We must be careful to destroy the temporary only
6830 after its initialization has taken place. If the
6831 initialization throws an exception, then the
6832 destructor should not be run. We cannot simply
6833 transform INIT into something like:
6835 (INIT, ({ CLEANUP_STMT; }))
6837 because emit_local_var always treats the
6838 initializer as a full-expression. Thus, the
6839 destructor would run too early; it would run at the
6840 end of initializing the reference variable, rather
6841 than at the end of the block enclosing the
6842 reference variable.
6844 The solution is to pass back a cleanup expression
6845 which the caller is responsible for attaching to
6846 the statement tree. */
6848 else
6850 rest_of_decl_compilation (var, /*toplev=*/1, at_eof);
6851 if (TYPE_HAS_NONTRIVIAL_DESTRUCTOR (type))
6852 static_aggregates = tree_cons (NULL_TREE, var,
6853 static_aggregates);
6855 /* Use its address to initialize the reference variable. */
6856 expr = build_address (var);
6857 if (base_conv_type)
6858 expr = convert_to_base (expr,
6859 build_pointer_type (base_conv_type),
6860 /*check_access=*/true,
6861 /*nonnull=*/true);
6862 expr = build2 (COMPOUND_EXPR, TREE_TYPE (expr), init, expr);
6864 else
6865 /* Take the address of EXPR. */
6866 expr = build_unary_op (ADDR_EXPR, expr, 0);
6867 /* If a BASE_CONV was required, perform it now. */
6868 if (base_conv_type)
6869 expr = (perform_implicit_conversion
6870 (build_pointer_type (base_conv_type), expr));
6871 expr = build_nop (type, expr);
6874 else
6875 /* Perform the conversion. */
6876 expr = convert_like (conv, expr);
6878 /* Free all the conversions we allocated. */
6879 obstack_free (&conversion_obstack, p);
6881 return expr;
6884 #include "gt-cp-call.h"