PR c++/35548
[official-gcc.git] / gcc / cp / call.c
blob3677262a370d5be945e58f61eee9e2d445ce6eb6
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, 2008
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_ptr or ck_pmem, true to indicate that a conversion
93 from a pointer-to-derived to pointer-to-base is being performed. */
94 BOOL_BITFIELD base_p : 1;
95 /* If KIND is ck_ref_bind, true when either an lvalue reference is
96 being bound to an lvalue expression or an rvalue reference is
97 being bound to an rvalue expression. */
98 BOOL_BITFIELD rvaluedness_matches_p: 1;
99 /* The type of the expression resulting from the conversion. */
100 tree type;
101 union {
102 /* The next conversion in the chain. Since the conversions are
103 arranged from outermost to innermost, the NEXT conversion will
104 actually be performed before this conversion. This variant is
105 used only when KIND is neither ck_identity nor ck_ambig. */
106 conversion *next;
107 /* The expression at the beginning of the conversion chain. This
108 variant is used only if KIND is ck_identity or ck_ambig. */
109 tree expr;
110 } u;
111 /* The function candidate corresponding to this conversion
112 sequence. This field is only used if KIND is ck_user. */
113 struct z_candidate *cand;
116 #define CONVERSION_RANK(NODE) \
117 ((NODE)->bad_p ? cr_bad \
118 : (NODE)->ellipsis_p ? cr_ellipsis \
119 : (NODE)->user_conv_p ? cr_user \
120 : (NODE)->rank)
122 static struct obstack conversion_obstack;
123 static bool conversion_obstack_initialized;
125 static struct z_candidate * tourney (struct z_candidate *);
126 static int equal_functions (tree, tree);
127 static int joust (struct z_candidate *, struct z_candidate *, bool);
128 static int compare_ics (conversion *, conversion *);
129 static tree build_over_call (struct z_candidate *, int);
130 static tree build_java_interface_fn_ref (tree, tree);
131 #define convert_like(CONV, EXPR) \
132 convert_like_real ((CONV), (EXPR), NULL_TREE, 0, 0, \
133 /*issue_conversion_warnings=*/true, \
134 /*c_cast_p=*/false)
135 #define convert_like_with_context(CONV, EXPR, FN, ARGNO) \
136 convert_like_real ((CONV), (EXPR), (FN), (ARGNO), 0, \
137 /*issue_conversion_warnings=*/true, \
138 /*c_cast_p=*/false)
139 static tree convert_like_real (conversion *, tree, tree, int, int, bool,
140 bool);
141 static void op_error (enum tree_code, enum tree_code, tree, tree,
142 tree, const char *);
143 static tree build_object_call (tree, tree);
144 static tree resolve_args (tree);
145 static struct z_candidate *build_user_type_conversion_1 (tree, tree, int);
146 static void print_z_candidate (const char *, struct z_candidate *);
147 static void print_z_candidates (struct z_candidate *);
148 static tree build_this (tree);
149 static struct z_candidate *splice_viable (struct z_candidate *, bool, bool *);
150 static bool any_strictly_viable (struct z_candidate *);
151 static struct z_candidate *add_template_candidate
152 (struct z_candidate **, tree, tree, tree, tree, tree,
153 tree, tree, int, unification_kind_t);
154 static struct z_candidate *add_template_candidate_real
155 (struct z_candidate **, tree, tree, tree, tree, tree,
156 tree, tree, int, tree, unification_kind_t);
157 static struct z_candidate *add_template_conv_candidate
158 (struct z_candidate **, tree, tree, tree, tree, tree, tree);
159 static void add_builtin_candidates
160 (struct z_candidate **, enum tree_code, enum tree_code,
161 tree, tree *, int);
162 static void add_builtin_candidate
163 (struct z_candidate **, enum tree_code, enum tree_code,
164 tree, tree, tree, tree *, tree *, int);
165 static bool is_complete (tree);
166 static void build_builtin_candidate
167 (struct z_candidate **, tree, tree, tree, tree *, tree *,
168 int);
169 static struct z_candidate *add_conv_candidate
170 (struct z_candidate **, tree, tree, tree, tree, tree);
171 static struct z_candidate *add_function_candidate
172 (struct z_candidate **, tree, tree, tree, tree, tree, int);
173 static conversion *implicit_conversion (tree, tree, tree, bool, int);
174 static conversion *standard_conversion (tree, tree, tree, bool, int);
175 static conversion *reference_binding (tree, tree, tree, bool, int);
176 static conversion *build_conv (conversion_kind, tree, conversion *);
177 static bool is_subseq (conversion *, conversion *);
178 static conversion *maybe_handle_ref_bind (conversion **);
179 static void maybe_handle_implicit_object (conversion **);
180 static struct z_candidate *add_candidate
181 (struct z_candidate **, tree, tree, size_t,
182 conversion **, tree, tree, int);
183 static tree source_type (conversion *);
184 static void add_warning (struct z_candidate *, struct z_candidate *);
185 static bool reference_related_p (tree, tree);
186 static bool reference_compatible_p (tree, tree);
187 static conversion *convert_class_to_reference (tree, tree, tree);
188 static conversion *direct_reference_binding (tree, conversion *);
189 static bool promoted_arithmetic_type_p (tree);
190 static conversion *conditional_conversion (tree, tree);
191 static char *name_as_c_string (tree, tree, bool *);
192 static tree call_builtin_trap (void);
193 static tree prep_operand (tree);
194 static void add_candidates (tree, tree, tree, bool, tree, tree,
195 int, struct z_candidate **);
196 static conversion *merge_conversion_sequences (conversion *, conversion *);
197 static bool magic_varargs_p (tree);
198 typedef void (*diagnostic_fn_t) (const char *, ...) ATTRIBUTE_GCC_CXXDIAG(1,2);
199 static tree build_temp (tree, tree, int, diagnostic_fn_t *);
201 /* Returns nonzero iff the destructor name specified in NAME matches BASETYPE.
202 NAME can take many forms... */
204 bool
205 check_dtor_name (tree basetype, tree name)
207 /* Just accept something we've already complained about. */
208 if (name == error_mark_node)
209 return true;
211 if (TREE_CODE (name) == TYPE_DECL)
212 name = TREE_TYPE (name);
213 else if (TYPE_P (name))
214 /* OK */;
215 else if (TREE_CODE (name) == IDENTIFIER_NODE)
217 if ((IS_AGGR_TYPE (basetype) && name == constructor_name (basetype))
218 || (TREE_CODE (basetype) == ENUMERAL_TYPE
219 && name == TYPE_IDENTIFIER (basetype)))
220 return true;
221 else
222 name = get_type_value (name);
224 else
226 /* In the case of:
228 template <class T> struct S { ~S(); };
229 int i;
230 i.~S();
232 NAME will be a class template. */
233 gcc_assert (DECL_CLASS_TEMPLATE_P (name));
234 return false;
237 if (!name)
238 return false;
239 return same_type_p (TYPE_MAIN_VARIANT (basetype), TYPE_MAIN_VARIANT (name));
242 /* We want the address of a function or method. We avoid creating a
243 pointer-to-member function. */
245 tree
246 build_addr_func (tree function)
248 tree type = TREE_TYPE (function);
250 /* We have to do these by hand to avoid real pointer to member
251 functions. */
252 if (TREE_CODE (type) == METHOD_TYPE)
254 if (TREE_CODE (function) == OFFSET_REF)
256 tree object = build_address (TREE_OPERAND (function, 0));
257 return get_member_function_from_ptrfunc (&object,
258 TREE_OPERAND (function, 1));
260 function = build_address (function);
262 else
263 function = decay_conversion (function);
265 return function;
268 /* Build a CALL_EXPR, we can handle FUNCTION_TYPEs, METHOD_TYPEs, or
269 POINTER_TYPE to those. Note, pointer to member function types
270 (TYPE_PTRMEMFUNC_P) must be handled by our callers. There are
271 two variants. build_call_a is the primitive taking an array of
272 arguments, while build_call_n is a wrapper that handles varargs. */
274 tree
275 build_call_n (tree function, int n, ...)
277 if (n == 0)
278 return build_call_a (function, 0, NULL);
279 else
281 tree *argarray = (tree *) alloca (n * sizeof (tree));
282 va_list ap;
283 int i;
285 va_start (ap, n);
286 for (i = 0; i < n; i++)
287 argarray[i] = va_arg (ap, tree);
288 va_end (ap);
289 return build_call_a (function, n, argarray);
293 tree
294 build_call_a (tree function, int n, tree *argarray)
296 int is_constructor = 0;
297 int nothrow;
298 tree decl;
299 tree result_type;
300 tree fntype;
301 int i;
303 function = build_addr_func (function);
305 gcc_assert (TYPE_PTR_P (TREE_TYPE (function)));
306 fntype = TREE_TYPE (TREE_TYPE (function));
307 gcc_assert (TREE_CODE (fntype) == FUNCTION_TYPE
308 || TREE_CODE (fntype) == METHOD_TYPE);
309 result_type = TREE_TYPE (fntype);
311 if (TREE_CODE (function) == ADDR_EXPR
312 && TREE_CODE (TREE_OPERAND (function, 0)) == FUNCTION_DECL)
314 decl = TREE_OPERAND (function, 0);
315 if (!TREE_USED (decl))
317 /* We invoke build_call directly for several library
318 functions. These may have been declared normally if
319 we're building libgcc, so we can't just check
320 DECL_ARTIFICIAL. */
321 gcc_assert (DECL_ARTIFICIAL (decl)
322 || !strncmp (IDENTIFIER_POINTER (DECL_NAME (decl)),
323 "__", 2));
324 mark_used (decl);
327 else
328 decl = NULL_TREE;
330 /* We check both the decl and the type; a function may be known not to
331 throw without being declared throw(). */
332 nothrow = ((decl && TREE_NOTHROW (decl))
333 || TYPE_NOTHROW_P (TREE_TYPE (TREE_TYPE (function))));
335 if (decl && TREE_THIS_VOLATILE (decl) && cfun)
336 current_function_returns_abnormally = 1;
338 if (decl && TREE_DEPRECATED (decl))
339 warn_deprecated_use (decl);
340 require_complete_eh_spec_types (fntype, decl);
342 if (decl && DECL_CONSTRUCTOR_P (decl))
343 is_constructor = 1;
345 /* Don't pass empty class objects by value. This is useful
346 for tags in STL, which are used to control overload resolution.
347 We don't need to handle other cases of copying empty classes. */
348 if (! decl || ! DECL_BUILT_IN (decl))
349 for (i = 0; i < n; i++)
350 if (is_empty_class (TREE_TYPE (argarray[i]))
351 && ! TREE_ADDRESSABLE (TREE_TYPE (argarray[i])))
353 tree t = build0 (EMPTY_CLASS_EXPR, TREE_TYPE (argarray[i]));
354 argarray[i] = build2 (COMPOUND_EXPR, TREE_TYPE (t),
355 argarray[i], t);
358 function = build_call_array (result_type, function, n, argarray);
359 TREE_HAS_CONSTRUCTOR (function) = is_constructor;
360 TREE_NOTHROW (function) = nothrow;
362 return function;
365 /* Build something of the form ptr->method (args)
366 or object.method (args). This can also build
367 calls to constructors, and find friends.
369 Member functions always take their class variable
370 as a pointer.
372 INSTANCE is a class instance.
374 NAME is the name of the method desired, usually an IDENTIFIER_NODE.
376 PARMS help to figure out what that NAME really refers to.
378 BASETYPE_PATH, if non-NULL, contains a chain from the type of INSTANCE
379 down to the real instance type to use for access checking. We need this
380 information to get protected accesses correct.
382 FLAGS is the logical disjunction of zero or more LOOKUP_
383 flags. See cp-tree.h for more info.
385 If this is all OK, calls build_function_call with the resolved
386 member function.
388 This function must also handle being called to perform
389 initialization, promotion/coercion of arguments, and
390 instantiation of default parameters.
392 Note that NAME may refer to an instance variable name. If
393 `operator()()' is defined for the type of that field, then we return
394 that result. */
396 /* New overloading code. */
398 typedef struct z_candidate z_candidate;
400 typedef struct candidate_warning candidate_warning;
401 struct candidate_warning {
402 z_candidate *loser;
403 candidate_warning *next;
406 struct z_candidate {
407 /* The FUNCTION_DECL that will be called if this candidate is
408 selected by overload resolution. */
409 tree fn;
410 /* The arguments to use when calling this function. */
411 tree args;
412 /* The implicit conversion sequences for each of the arguments to
413 FN. */
414 conversion **convs;
415 /* The number of implicit conversion sequences. */
416 size_t num_convs;
417 /* If FN is a user-defined conversion, the standard conversion
418 sequence from the type returned by FN to the desired destination
419 type. */
420 conversion *second_conv;
421 int viable;
422 /* If FN is a member function, the binfo indicating the path used to
423 qualify the name of FN at the call site. This path is used to
424 determine whether or not FN is accessible if it is selected by
425 overload resolution. The DECL_CONTEXT of FN will always be a
426 (possibly improper) base of this binfo. */
427 tree access_path;
428 /* If FN is a non-static member function, the binfo indicating the
429 subobject to which the `this' pointer should be converted if FN
430 is selected by overload resolution. The type pointed to the by
431 the `this' pointer must correspond to the most derived class
432 indicated by the CONVERSION_PATH. */
433 tree conversion_path;
434 tree template_decl;
435 candidate_warning *warnings;
436 z_candidate *next;
439 /* Returns true iff T is a null pointer constant in the sense of
440 [conv.ptr]. */
442 bool
443 null_ptr_cst_p (tree t)
445 /* [conv.ptr]
447 A null pointer constant is an integral constant expression
448 (_expr.const_) rvalue of integer type that evaluates to zero. */
449 t = integral_constant_value (t);
450 if (t == null_node)
451 return true;
452 if (CP_INTEGRAL_TYPE_P (TREE_TYPE (t)) && integer_zerop (t))
454 STRIP_NOPS (t);
455 if (!TREE_OVERFLOW (t))
456 return true;
458 return false;
461 /* Returns nonzero if PARMLIST consists of only default parms and/or
462 ellipsis. */
464 bool
465 sufficient_parms_p (const_tree parmlist)
467 for (; parmlist && parmlist != void_list_node;
468 parmlist = TREE_CHAIN (parmlist))
469 if (!TREE_PURPOSE (parmlist))
470 return false;
471 return true;
474 /* Allocate N bytes of memory from the conversion obstack. The memory
475 is zeroed before being returned. */
477 static void *
478 conversion_obstack_alloc (size_t n)
480 void *p;
481 if (!conversion_obstack_initialized)
483 gcc_obstack_init (&conversion_obstack);
484 conversion_obstack_initialized = true;
486 p = obstack_alloc (&conversion_obstack, n);
487 memset (p, 0, n);
488 return p;
491 /* Dynamically allocate a conversion. */
493 static conversion *
494 alloc_conversion (conversion_kind kind)
496 conversion *c;
497 c = (conversion *) conversion_obstack_alloc (sizeof (conversion));
498 c->kind = kind;
499 return c;
502 #ifdef ENABLE_CHECKING
504 /* Make sure that all memory on the conversion obstack has been
505 freed. */
507 void
508 validate_conversion_obstack (void)
510 if (conversion_obstack_initialized)
511 gcc_assert ((obstack_next_free (&conversion_obstack)
512 == obstack_base (&conversion_obstack)));
515 #endif /* ENABLE_CHECKING */
517 /* Dynamically allocate an array of N conversions. */
519 static conversion **
520 alloc_conversions (size_t n)
522 return (conversion **) conversion_obstack_alloc (n * sizeof (conversion *));
525 static conversion *
526 build_conv (conversion_kind code, tree type, conversion *from)
528 conversion *t;
529 conversion_rank rank = CONVERSION_RANK (from);
531 /* We can't use buildl1 here because CODE could be USER_CONV, which
532 takes two arguments. In that case, the caller is responsible for
533 filling in the second argument. */
534 t = alloc_conversion (code);
535 t->type = type;
536 t->u.next = from;
538 switch (code)
540 case ck_ptr:
541 case ck_pmem:
542 case ck_base:
543 case ck_std:
544 if (rank < cr_std)
545 rank = cr_std;
546 break;
548 case ck_qual:
549 if (rank < cr_exact)
550 rank = cr_exact;
551 break;
553 default:
554 break;
556 t->rank = rank;
557 t->user_conv_p = (code == ck_user || from->user_conv_p);
558 t->bad_p = from->bad_p;
559 t->base_p = false;
560 return t;
563 /* Build a representation of the identity conversion from EXPR to
564 itself. The TYPE should match the type of EXPR, if EXPR is non-NULL. */
566 static conversion *
567 build_identity_conv (tree type, tree expr)
569 conversion *c;
571 c = alloc_conversion (ck_identity);
572 c->type = type;
573 c->u.expr = expr;
575 return c;
578 /* Converting from EXPR to TYPE was ambiguous in the sense that there
579 were multiple user-defined conversions to accomplish the job.
580 Build a conversion that indicates that ambiguity. */
582 static conversion *
583 build_ambiguous_conv (tree type, tree expr)
585 conversion *c;
587 c = alloc_conversion (ck_ambig);
588 c->type = type;
589 c->u.expr = expr;
591 return c;
594 tree
595 strip_top_quals (tree t)
597 if (TREE_CODE (t) == ARRAY_TYPE)
598 return t;
599 return cp_build_qualified_type (t, 0);
602 /* Returns the standard conversion path (see [conv]) from type FROM to type
603 TO, if any. For proper handling of null pointer constants, you must
604 also pass the expression EXPR to convert from. If C_CAST_P is true,
605 this conversion is coming from a C-style cast. */
607 static conversion *
608 standard_conversion (tree to, tree from, tree expr, bool c_cast_p,
609 int flags)
611 enum tree_code fcode, tcode;
612 conversion *conv;
613 bool fromref = false;
615 to = non_reference (to);
616 if (TREE_CODE (from) == REFERENCE_TYPE)
618 fromref = true;
619 from = TREE_TYPE (from);
621 to = strip_top_quals (to);
622 from = strip_top_quals (from);
624 if ((TYPE_PTRFN_P (to) || TYPE_PTRMEMFUNC_P (to))
625 && expr && type_unknown_p (expr))
627 expr = instantiate_type (to, expr, tf_conv);
628 if (expr == error_mark_node)
629 return NULL;
630 from = TREE_TYPE (expr);
633 fcode = TREE_CODE (from);
634 tcode = TREE_CODE (to);
636 conv = build_identity_conv (from, expr);
637 if (fcode == FUNCTION_TYPE || fcode == ARRAY_TYPE)
639 from = type_decays_to (from);
640 fcode = TREE_CODE (from);
641 conv = build_conv (ck_lvalue, from, conv);
643 else if (fromref || (expr && lvalue_p (expr)))
645 if (expr)
647 tree bitfield_type;
648 bitfield_type = is_bitfield_expr_with_lowered_type (expr);
649 if (bitfield_type)
651 from = strip_top_quals (bitfield_type);
652 fcode = TREE_CODE (from);
655 conv = build_conv (ck_rvalue, from, conv);
658 /* Allow conversion between `__complex__' data types. */
659 if (tcode == COMPLEX_TYPE && fcode == COMPLEX_TYPE)
661 /* The standard conversion sequence to convert FROM to TO is
662 the standard conversion sequence to perform componentwise
663 conversion. */
664 conversion *part_conv = standard_conversion
665 (TREE_TYPE (to), TREE_TYPE (from), NULL_TREE, c_cast_p, flags);
667 if (part_conv)
669 conv = build_conv (part_conv->kind, to, conv);
670 conv->rank = part_conv->rank;
672 else
673 conv = NULL;
675 return conv;
678 if (same_type_p (from, to))
679 return conv;
681 if ((tcode == POINTER_TYPE || TYPE_PTR_TO_MEMBER_P (to))
682 && expr && null_ptr_cst_p (expr))
683 conv = build_conv (ck_std, to, conv);
684 else if ((tcode == INTEGER_TYPE && fcode == POINTER_TYPE)
685 || (tcode == POINTER_TYPE && fcode == INTEGER_TYPE))
687 /* For backwards brain damage compatibility, allow interconversion of
688 pointers and integers with a pedwarn. */
689 conv = build_conv (ck_std, to, conv);
690 conv->bad_p = true;
692 else if (tcode == ENUMERAL_TYPE && fcode == INTEGER_TYPE)
694 /* For backwards brain damage compatibility, allow interconversion of
695 enums and integers with a pedwarn. */
696 conv = build_conv (ck_std, to, conv);
697 conv->bad_p = true;
699 else if ((tcode == POINTER_TYPE && fcode == POINTER_TYPE)
700 || (TYPE_PTRMEM_P (to) && TYPE_PTRMEM_P (from)))
702 tree to_pointee;
703 tree from_pointee;
705 if (tcode == POINTER_TYPE
706 && same_type_ignoring_top_level_qualifiers_p (TREE_TYPE (from),
707 TREE_TYPE (to)))
709 else if (VOID_TYPE_P (TREE_TYPE (to))
710 && !TYPE_PTRMEM_P (from)
711 && TREE_CODE (TREE_TYPE (from)) != FUNCTION_TYPE)
713 from = build_pointer_type
714 (cp_build_qualified_type (void_type_node,
715 cp_type_quals (TREE_TYPE (from))));
716 conv = build_conv (ck_ptr, from, conv);
718 else if (TYPE_PTRMEM_P (from))
720 tree fbase = TYPE_PTRMEM_CLASS_TYPE (from);
721 tree tbase = TYPE_PTRMEM_CLASS_TYPE (to);
723 if (DERIVED_FROM_P (fbase, tbase)
724 && (same_type_ignoring_top_level_qualifiers_p
725 (TYPE_PTRMEM_POINTED_TO_TYPE (from),
726 TYPE_PTRMEM_POINTED_TO_TYPE (to))))
728 from = build_ptrmem_type (tbase,
729 TYPE_PTRMEM_POINTED_TO_TYPE (from));
730 conv = build_conv (ck_pmem, from, conv);
732 else if (!same_type_p (fbase, tbase))
733 return NULL;
735 else if (IS_AGGR_TYPE (TREE_TYPE (from))
736 && IS_AGGR_TYPE (TREE_TYPE (to))
737 /* [conv.ptr]
739 An rvalue of type "pointer to cv D," where D is a
740 class type, can be converted to an rvalue of type
741 "pointer to cv B," where B is a base class (clause
742 _class.derived_) of D. If B is an inaccessible
743 (clause _class.access_) or ambiguous
744 (_class.member.lookup_) base class of D, a program
745 that necessitates this conversion is ill-formed.
746 Therefore, we use DERIVED_FROM_P, and do not check
747 access or uniqueness. */
748 && DERIVED_FROM_P (TREE_TYPE (to), TREE_TYPE (from)))
750 from =
751 cp_build_qualified_type (TREE_TYPE (to),
752 cp_type_quals (TREE_TYPE (from)));
753 from = build_pointer_type (from);
754 conv = build_conv (ck_ptr, from, conv);
755 conv->base_p = true;
758 if (tcode == POINTER_TYPE)
760 to_pointee = TREE_TYPE (to);
761 from_pointee = TREE_TYPE (from);
763 else
765 to_pointee = TYPE_PTRMEM_POINTED_TO_TYPE (to);
766 from_pointee = TYPE_PTRMEM_POINTED_TO_TYPE (from);
769 if (same_type_p (from, to))
770 /* OK */;
771 else if (c_cast_p && comp_ptr_ttypes_const (to, from))
772 /* In a C-style cast, we ignore CV-qualification because we
773 are allowed to perform a static_cast followed by a
774 const_cast. */
775 conv = build_conv (ck_qual, to, conv);
776 else if (!c_cast_p && comp_ptr_ttypes (to_pointee, from_pointee))
777 conv = build_conv (ck_qual, to, conv);
778 else if (expr && string_conv_p (to, expr, 0))
779 /* converting from string constant to char *. */
780 conv = build_conv (ck_qual, to, conv);
781 else if (ptr_reasonably_similar (to_pointee, from_pointee))
783 conv = build_conv (ck_ptr, to, conv);
784 conv->bad_p = true;
786 else
787 return NULL;
789 from = to;
791 else if (TYPE_PTRMEMFUNC_P (to) && TYPE_PTRMEMFUNC_P (from))
793 tree fromfn = TREE_TYPE (TYPE_PTRMEMFUNC_FN_TYPE (from));
794 tree tofn = TREE_TYPE (TYPE_PTRMEMFUNC_FN_TYPE (to));
795 tree fbase = TREE_TYPE (TREE_VALUE (TYPE_ARG_TYPES (fromfn)));
796 tree tbase = TREE_TYPE (TREE_VALUE (TYPE_ARG_TYPES (tofn)));
798 if (!DERIVED_FROM_P (fbase, tbase)
799 || !same_type_p (TREE_TYPE (fromfn), TREE_TYPE (tofn))
800 || !compparms (TREE_CHAIN (TYPE_ARG_TYPES (fromfn)),
801 TREE_CHAIN (TYPE_ARG_TYPES (tofn)))
802 || cp_type_quals (fbase) != cp_type_quals (tbase))
803 return NULL;
805 from = cp_build_qualified_type (tbase, cp_type_quals (fbase));
806 from = build_method_type_directly (from,
807 TREE_TYPE (fromfn),
808 TREE_CHAIN (TYPE_ARG_TYPES (fromfn)));
809 from = build_ptrmemfunc_type (build_pointer_type (from));
810 conv = build_conv (ck_pmem, from, conv);
811 conv->base_p = true;
813 else if (tcode == BOOLEAN_TYPE)
815 /* [conv.bool]
817 An rvalue of arithmetic, enumeration, pointer, or pointer to
818 member type can be converted to an rvalue of type bool. */
819 if (ARITHMETIC_TYPE_P (from)
820 || fcode == ENUMERAL_TYPE
821 || fcode == POINTER_TYPE
822 || TYPE_PTR_TO_MEMBER_P (from))
824 conv = build_conv (ck_std, to, conv);
825 if (fcode == POINTER_TYPE
826 || TYPE_PTRMEM_P (from)
827 || (TYPE_PTRMEMFUNC_P (from)
828 && conv->rank < cr_pbool))
829 conv->rank = cr_pbool;
830 return conv;
833 return NULL;
835 /* We don't check for ENUMERAL_TYPE here because there are no standard
836 conversions to enum type. */
837 /* As an extension, allow conversion to complex type. */
838 else if (ARITHMETIC_TYPE_P (to))
840 if (! (INTEGRAL_CODE_P (fcode) || fcode == REAL_TYPE))
841 return NULL;
842 conv = build_conv (ck_std, to, conv);
844 /* Give this a better rank if it's a promotion. */
845 if (same_type_p (to, type_promotes_to (from))
846 && conv->u.next->rank <= cr_promotion)
847 conv->rank = cr_promotion;
849 else if (fcode == VECTOR_TYPE && tcode == VECTOR_TYPE
850 && vector_types_convertible_p (from, to, false))
851 return build_conv (ck_std, to, conv);
852 else if (IS_AGGR_TYPE (to) && IS_AGGR_TYPE (from)
853 && is_properly_derived_from (from, to))
855 if (conv->kind == ck_rvalue)
856 conv = conv->u.next;
857 conv = build_conv (ck_base, to, conv);
858 /* The derived-to-base conversion indicates the initialization
859 of a parameter with base type from an object of a derived
860 type. A temporary object is created to hold the result of
861 the conversion unless we're binding directly to a reference. */
862 conv->need_temporary_p = !(flags & LOOKUP_NO_TEMP_BIND);
864 else
865 return NULL;
867 return conv;
870 /* Returns nonzero if T1 is reference-related to T2. */
872 static bool
873 reference_related_p (tree t1, tree t2)
875 t1 = TYPE_MAIN_VARIANT (t1);
876 t2 = TYPE_MAIN_VARIANT (t2);
878 /* [dcl.init.ref]
880 Given types "cv1 T1" and "cv2 T2," "cv1 T1" is reference-related
881 to "cv2 T2" if T1 is the same type as T2, or T1 is a base class
882 of T2. */
883 return (same_type_p (t1, t2)
884 || (CLASS_TYPE_P (t1) && CLASS_TYPE_P (t2)
885 && DERIVED_FROM_P (t1, t2)));
888 /* Returns nonzero if T1 is reference-compatible with T2. */
890 static bool
891 reference_compatible_p (tree t1, tree t2)
893 /* [dcl.init.ref]
895 "cv1 T1" is reference compatible with "cv2 T2" if T1 is
896 reference-related to T2 and cv1 is the same cv-qualification as,
897 or greater cv-qualification than, cv2. */
898 return (reference_related_p (t1, t2)
899 && at_least_as_qualified_p (t1, t2));
902 /* Determine whether or not the EXPR (of class type S) can be
903 converted to T as in [over.match.ref]. */
905 static conversion *
906 convert_class_to_reference (tree reference_type, tree s, tree expr)
908 tree conversions;
909 tree arglist;
910 conversion *conv;
911 tree t;
912 struct z_candidate *candidates;
913 struct z_candidate *cand;
914 bool any_viable_p;
916 conversions = lookup_conversions (s);
917 if (!conversions)
918 return NULL;
920 /* [over.match.ref]
922 Assuming that "cv1 T" is the underlying type of the reference
923 being initialized, and "cv S" is the type of the initializer
924 expression, with S a class type, the candidate functions are
925 selected as follows:
927 --The conversion functions of S and its base classes are
928 considered. Those that are not hidden within S and yield type
929 "reference to cv2 T2", where "cv1 T" is reference-compatible
930 (_dcl.init.ref_) with "cv2 T2", are candidate functions.
932 The argument list has one argument, which is the initializer
933 expression. */
935 candidates = 0;
937 /* Conceptually, we should take the address of EXPR and put it in
938 the argument list. Unfortunately, however, that can result in
939 error messages, which we should not issue now because we are just
940 trying to find a conversion operator. Therefore, we use NULL,
941 cast to the appropriate type. */
942 arglist = build_int_cst (build_pointer_type (s), 0);
943 arglist = build_tree_list (NULL_TREE, arglist);
945 t = TREE_TYPE (reference_type);
947 while (conversions)
949 tree fns = TREE_VALUE (conversions);
951 for (; fns; fns = OVL_NEXT (fns))
953 tree f = OVL_CURRENT (fns);
954 tree t2 = TREE_TYPE (TREE_TYPE (f));
956 cand = NULL;
958 /* If this is a template function, try to get an exact
959 match. */
960 if (TREE_CODE (f) == TEMPLATE_DECL)
962 cand = add_template_candidate (&candidates,
963 f, s,
964 NULL_TREE,
965 arglist,
966 reference_type,
967 TYPE_BINFO (s),
968 TREE_PURPOSE (conversions),
969 LOOKUP_NORMAL,
970 DEDUCE_CONV);
972 if (cand)
974 /* Now, see if the conversion function really returns
975 an lvalue of the appropriate type. From the
976 point of view of unification, simply returning an
977 rvalue of the right type is good enough. */
978 f = cand->fn;
979 t2 = TREE_TYPE (TREE_TYPE (f));
980 if (TREE_CODE (t2) != REFERENCE_TYPE
981 || !reference_compatible_p (t, TREE_TYPE (t2)))
983 candidates = candidates->next;
984 cand = NULL;
988 else if (TREE_CODE (t2) == REFERENCE_TYPE
989 && reference_compatible_p (t, TREE_TYPE (t2)))
990 cand = add_function_candidate (&candidates, f, s, arglist,
991 TYPE_BINFO (s),
992 TREE_PURPOSE (conversions),
993 LOOKUP_NORMAL);
995 if (cand)
997 conversion *identity_conv;
998 /* Build a standard conversion sequence indicating the
999 binding from the reference type returned by the
1000 function to the desired REFERENCE_TYPE. */
1001 identity_conv
1002 = build_identity_conv (TREE_TYPE (TREE_TYPE
1003 (TREE_TYPE (cand->fn))),
1004 NULL_TREE);
1005 cand->second_conv
1006 = (direct_reference_binding
1007 (reference_type, identity_conv));
1008 cand->second_conv->rvaluedness_matches_p
1009 = TYPE_REF_IS_RVALUE (TREE_TYPE (TREE_TYPE (cand->fn)))
1010 == TYPE_REF_IS_RVALUE (reference_type);
1011 cand->second_conv->bad_p |= cand->convs[0]->bad_p;
1014 conversions = TREE_CHAIN (conversions);
1017 candidates = splice_viable (candidates, pedantic, &any_viable_p);
1018 /* If none of the conversion functions worked out, let our caller
1019 know. */
1020 if (!any_viable_p)
1021 return NULL;
1023 cand = tourney (candidates);
1024 if (!cand)
1025 return NULL;
1027 /* Now that we know that this is the function we're going to use fix
1028 the dummy first argument. */
1029 cand->args = tree_cons (NULL_TREE,
1030 build_this (expr),
1031 TREE_CHAIN (cand->args));
1033 /* Build a user-defined conversion sequence representing the
1034 conversion. */
1035 conv = build_conv (ck_user,
1036 TREE_TYPE (TREE_TYPE (cand->fn)),
1037 build_identity_conv (TREE_TYPE (expr), expr));
1038 conv->cand = cand;
1040 /* Merge it with the standard conversion sequence from the
1041 conversion function's return type to the desired type. */
1042 cand->second_conv = merge_conversion_sequences (conv, cand->second_conv);
1044 if (cand->viable == -1)
1045 conv->bad_p = true;
1047 return cand->second_conv;
1050 /* A reference of the indicated TYPE is being bound directly to the
1051 expression represented by the implicit conversion sequence CONV.
1052 Return a conversion sequence for this binding. */
1054 static conversion *
1055 direct_reference_binding (tree type, conversion *conv)
1057 tree t;
1059 gcc_assert (TREE_CODE (type) == REFERENCE_TYPE);
1060 gcc_assert (TREE_CODE (conv->type) != REFERENCE_TYPE);
1062 t = TREE_TYPE (type);
1064 /* [over.ics.rank]
1066 When a parameter of reference type binds directly
1067 (_dcl.init.ref_) to an argument expression, the implicit
1068 conversion sequence is the identity conversion, unless the
1069 argument expression has a type that is a derived class of the
1070 parameter type, in which case the implicit conversion sequence is
1071 a derived-to-base Conversion.
1073 If the parameter binds directly to the result of applying a
1074 conversion function to the argument expression, the implicit
1075 conversion sequence is a user-defined conversion sequence
1076 (_over.ics.user_), with the second standard conversion sequence
1077 either an identity conversion or, if the conversion function
1078 returns an entity of a type that is a derived class of the
1079 parameter type, a derived-to-base conversion. */
1080 if (!same_type_ignoring_top_level_qualifiers_p (t, conv->type))
1082 /* Represent the derived-to-base conversion. */
1083 conv = build_conv (ck_base, t, conv);
1084 /* We will actually be binding to the base-class subobject in
1085 the derived class, so we mark this conversion appropriately.
1086 That way, convert_like knows not to generate a temporary. */
1087 conv->need_temporary_p = false;
1089 return build_conv (ck_ref_bind, type, conv);
1092 /* Returns the conversion path from type FROM to reference type TO for
1093 purposes of reference binding. For lvalue binding, either pass a
1094 reference type to FROM or an lvalue expression to EXPR. If the
1095 reference will be bound to a temporary, NEED_TEMPORARY_P is set for
1096 the conversion returned. If C_CAST_P is true, this
1097 conversion is coming from a C-style cast. */
1099 static conversion *
1100 reference_binding (tree rto, tree rfrom, tree expr, bool c_cast_p, int flags)
1102 conversion *conv = NULL;
1103 tree to = TREE_TYPE (rto);
1104 tree from = rfrom;
1105 tree tfrom;
1106 bool related_p;
1107 bool compatible_p;
1108 cp_lvalue_kind lvalue_p = clk_none;
1110 if (TREE_CODE (to) == FUNCTION_TYPE && expr && type_unknown_p (expr))
1112 expr = instantiate_type (to, expr, tf_none);
1113 if (expr == error_mark_node)
1114 return NULL;
1115 from = TREE_TYPE (expr);
1118 if (TREE_CODE (from) == REFERENCE_TYPE)
1120 /* Anything with reference type is an lvalue. */
1121 lvalue_p = clk_ordinary;
1122 from = TREE_TYPE (from);
1124 else if (expr)
1125 lvalue_p = real_lvalue_p (expr);
1127 tfrom = from;
1128 if ((lvalue_p & clk_bitfield) != 0)
1129 tfrom = unlowered_expr_type (expr);
1131 /* Figure out whether or not the types are reference-related and
1132 reference compatible. We have do do this after stripping
1133 references from FROM. */
1134 related_p = reference_related_p (to, tfrom);
1135 /* If this is a C cast, first convert to an appropriately qualified
1136 type, so that we can later do a const_cast to the desired type. */
1137 if (related_p && c_cast_p
1138 && !at_least_as_qualified_p (to, tfrom))
1139 to = build_qualified_type (to, cp_type_quals (tfrom));
1140 compatible_p = reference_compatible_p (to, tfrom);
1142 /* Directly bind reference when target expression's type is compatible with
1143 the reference and expression is an lvalue. In DR391, the wording in
1144 [8.5.3/5 dcl.init.ref] is changed to also require direct bindings for
1145 const and rvalue references to rvalues of compatible class type. */
1146 if (compatible_p
1147 && (lvalue_p
1148 || (!(flags & LOOKUP_NO_TEMP_BIND)
1149 && (CP_TYPE_CONST_NON_VOLATILE_P(to) || TYPE_REF_IS_RVALUE (rto))
1150 && CLASS_TYPE_P (from))))
1152 /* [dcl.init.ref]
1154 If the initializer expression
1156 -- is an lvalue (but not an lvalue for a bit-field), and "cv1 T1"
1157 is reference-compatible with "cv2 T2,"
1159 the reference is bound directly to the initializer expression
1160 lvalue.
1162 [...]
1163 If the initializer expression is an rvalue, with T2 a class type,
1164 and "cv1 T1" is reference-compatible with "cv2 T2", the reference
1165 is bound to the object represented by the rvalue or to a sub-object
1166 within that object. */
1168 conv = build_identity_conv (tfrom, expr);
1169 conv = direct_reference_binding (rto, conv);
1171 if (flags & LOOKUP_PREFER_RVALUE)
1172 /* The top-level caller requested that we pretend that the lvalue
1173 be treated as an rvalue. */
1174 conv->rvaluedness_matches_p = TYPE_REF_IS_RVALUE (rto);
1175 else
1176 conv->rvaluedness_matches_p
1177 = (TYPE_REF_IS_RVALUE (rto) == !lvalue_p);
1179 if ((lvalue_p & clk_bitfield) != 0
1180 || ((lvalue_p & clk_packed) != 0 && !TYPE_PACKED (to)))
1181 /* For the purposes of overload resolution, we ignore the fact
1182 this expression is a bitfield or packed field. (In particular,
1183 [over.ics.ref] says specifically that a function with a
1184 non-const reference parameter is viable even if the
1185 argument is a bitfield.)
1187 However, when we actually call the function we must create
1188 a temporary to which to bind the reference. If the
1189 reference is volatile, or isn't const, then we cannot make
1190 a temporary, so we just issue an error when the conversion
1191 actually occurs. */
1192 conv->need_temporary_p = true;
1194 return conv;
1196 /* [class.conv.fct] A conversion function is never used to convert a
1197 (possibly cv-qualified) object to the (possibly cv-qualified) same
1198 object type (or a reference to it), to a (possibly cv-qualified) base
1199 class of that type (or a reference to it).... */
1200 else if (CLASS_TYPE_P (from) && !related_p
1201 && !(flags & LOOKUP_NO_CONVERSION))
1203 /* [dcl.init.ref]
1205 If the initializer expression
1207 -- has a class type (i.e., T2 is a class type) can be
1208 implicitly converted to an lvalue of type "cv3 T3," where
1209 "cv1 T1" is reference-compatible with "cv3 T3". (this
1210 conversion is selected by enumerating the applicable
1211 conversion functions (_over.match.ref_) and choosing the
1212 best one through overload resolution. (_over.match_).
1214 the reference is bound to the lvalue result of the conversion
1215 in the second case. */
1216 conv = convert_class_to_reference (rto, from, expr);
1217 if (conv)
1218 return conv;
1221 /* From this point on, we conceptually need temporaries, even if we
1222 elide them. Only the cases above are "direct bindings". */
1223 if (flags & LOOKUP_NO_TEMP_BIND)
1224 return NULL;
1226 /* [over.ics.rank]
1228 When a parameter of reference type is not bound directly to an
1229 argument expression, the conversion sequence is the one required
1230 to convert the argument expression to the underlying type of the
1231 reference according to _over.best.ics_. Conceptually, this
1232 conversion sequence corresponds to copy-initializing a temporary
1233 of the underlying type with the argument expression. Any
1234 difference in top-level cv-qualification is subsumed by the
1235 initialization itself and does not constitute a conversion. */
1237 /* [dcl.init.ref]
1239 Otherwise, the reference shall be to a non-volatile const type.
1241 Under C++0x, [8.5.3/5 dcl.init.ref] it may also be an rvalue reference */
1242 if (!CP_TYPE_CONST_NON_VOLATILE_P (to) && !TYPE_REF_IS_RVALUE (rto))
1243 return NULL;
1245 /* [dcl.init.ref]
1247 Otherwise, a temporary of type "cv1 T1" is created and
1248 initialized from the initializer expression using the rules for a
1249 non-reference copy initialization. If T1 is reference-related to
1250 T2, cv1 must be the same cv-qualification as, or greater
1251 cv-qualification than, cv2; otherwise, the program is ill-formed. */
1252 if (related_p && !at_least_as_qualified_p (to, from))
1253 return NULL;
1255 /* We're generating a temporary now, but don't bind any more in the
1256 conversion (specifically, don't slice the temporary returned by a
1257 conversion operator). */
1258 flags |= LOOKUP_NO_TEMP_BIND;
1260 conv = implicit_conversion (to, from, expr, c_cast_p,
1261 flags);
1262 if (!conv)
1263 return NULL;
1265 conv = build_conv (ck_ref_bind, rto, conv);
1266 /* This reference binding, unlike those above, requires the
1267 creation of a temporary. */
1268 conv->need_temporary_p = true;
1269 conv->rvaluedness_matches_p = TYPE_REF_IS_RVALUE (rto);
1271 return conv;
1274 /* Returns the implicit conversion sequence (see [over.ics]) from type
1275 FROM to type TO. The optional expression EXPR may affect the
1276 conversion. FLAGS are the usual overloading flags. Only
1277 LOOKUP_NO_CONVERSION is significant. If C_CAST_P is true, this
1278 conversion is coming from a C-style cast. */
1280 static conversion *
1281 implicit_conversion (tree to, tree from, tree expr, bool c_cast_p,
1282 int flags)
1284 conversion *conv;
1286 if (from == error_mark_node || to == error_mark_node
1287 || expr == error_mark_node)
1288 return NULL;
1290 if (TREE_CODE (to) == REFERENCE_TYPE)
1291 conv = reference_binding (to, from, expr, c_cast_p, flags);
1292 else
1293 conv = standard_conversion (to, from, expr, c_cast_p, flags);
1295 if (conv)
1296 return conv;
1298 if (expr != NULL_TREE
1299 && (IS_AGGR_TYPE (from)
1300 || IS_AGGR_TYPE (to))
1301 && (flags & LOOKUP_NO_CONVERSION) == 0)
1303 struct z_candidate *cand;
1304 int convflags = ((flags & LOOKUP_NO_TEMP_BIND)
1305 |LOOKUP_ONLYCONVERTING);
1307 cand = build_user_type_conversion_1 (to, expr, convflags);
1308 if (cand)
1309 conv = cand->second_conv;
1311 /* We used to try to bind a reference to a temporary here, but that
1312 is now handled after the recursive call to this function at the end
1313 of reference_binding. */
1314 return conv;
1317 return NULL;
1320 /* Add a new entry to the list of candidates. Used by the add_*_candidate
1321 functions. */
1323 static struct z_candidate *
1324 add_candidate (struct z_candidate **candidates,
1325 tree fn, tree args,
1326 size_t num_convs, conversion **convs,
1327 tree access_path, tree conversion_path,
1328 int viable)
1330 struct z_candidate *cand = (struct z_candidate *)
1331 conversion_obstack_alloc (sizeof (struct z_candidate));
1333 cand->fn = fn;
1334 cand->args = args;
1335 cand->convs = convs;
1336 cand->num_convs = num_convs;
1337 cand->access_path = access_path;
1338 cand->conversion_path = conversion_path;
1339 cand->viable = viable;
1340 cand->next = *candidates;
1341 *candidates = cand;
1343 return cand;
1346 /* Create an overload candidate for the function or method FN called with
1347 the argument list ARGLIST and add it to CANDIDATES. FLAGS is passed on
1348 to implicit_conversion.
1350 CTYPE, if non-NULL, is the type we want to pretend this function
1351 comes from for purposes of overload resolution. */
1353 static struct z_candidate *
1354 add_function_candidate (struct z_candidate **candidates,
1355 tree fn, tree ctype, tree arglist,
1356 tree access_path, tree conversion_path,
1357 int flags)
1359 tree parmlist = TYPE_ARG_TYPES (TREE_TYPE (fn));
1360 int i, len;
1361 conversion **convs;
1362 tree parmnode, argnode;
1363 tree orig_arglist;
1364 int viable = 1;
1366 /* At this point we should not see any functions which haven't been
1367 explicitly declared, except for friend functions which will have
1368 been found using argument dependent lookup. */
1369 gcc_assert (!DECL_ANTICIPATED (fn) || DECL_HIDDEN_FRIEND_P (fn));
1371 /* The `this', `in_chrg' and VTT arguments to constructors are not
1372 considered in overload resolution. */
1373 if (DECL_CONSTRUCTOR_P (fn))
1375 parmlist = skip_artificial_parms_for (fn, parmlist);
1376 orig_arglist = arglist;
1377 arglist = skip_artificial_parms_for (fn, arglist);
1379 else
1380 orig_arglist = arglist;
1382 len = list_length (arglist);
1383 convs = alloc_conversions (len);
1385 /* 13.3.2 - Viable functions [over.match.viable]
1386 First, to be a viable function, a candidate function shall have enough
1387 parameters to agree in number with the arguments in the list.
1389 We need to check this first; otherwise, checking the ICSes might cause
1390 us to produce an ill-formed template instantiation. */
1392 parmnode = parmlist;
1393 for (i = 0; i < len; ++i)
1395 if (parmnode == NULL_TREE || parmnode == void_list_node)
1396 break;
1397 parmnode = TREE_CHAIN (parmnode);
1400 if (i < len && parmnode)
1401 viable = 0;
1403 /* Make sure there are default args for the rest of the parms. */
1404 else if (!sufficient_parms_p (parmnode))
1405 viable = 0;
1407 if (! viable)
1408 goto out;
1410 /* Second, for F to be a viable function, there shall exist for each
1411 argument an implicit conversion sequence that converts that argument
1412 to the corresponding parameter of F. */
1414 parmnode = parmlist;
1415 argnode = arglist;
1417 for (i = 0; i < len; ++i)
1419 tree arg = TREE_VALUE (argnode);
1420 tree argtype = lvalue_type (arg);
1421 conversion *t;
1422 int is_this;
1424 if (parmnode == void_list_node)
1425 break;
1427 is_this = (i == 0 && DECL_NONSTATIC_MEMBER_FUNCTION_P (fn)
1428 && ! DECL_CONSTRUCTOR_P (fn));
1430 if (parmnode)
1432 tree parmtype = TREE_VALUE (parmnode);
1434 /* The type of the implicit object parameter ('this') for
1435 overload resolution is not always the same as for the
1436 function itself; conversion functions are considered to
1437 be members of the class being converted, and functions
1438 introduced by a using-declaration are considered to be
1439 members of the class that uses them.
1441 Since build_over_call ignores the ICS for the `this'
1442 parameter, we can just change the parm type. */
1443 if (ctype && is_this)
1445 parmtype
1446 = build_qualified_type (ctype,
1447 TYPE_QUALS (TREE_TYPE (parmtype)));
1448 parmtype = build_pointer_type (parmtype);
1451 t = implicit_conversion (parmtype, argtype, arg,
1452 /*c_cast_p=*/false, flags);
1454 else
1456 t = build_identity_conv (argtype, arg);
1457 t->ellipsis_p = true;
1460 if (t && is_this)
1461 t->this_p = true;
1463 convs[i] = t;
1464 if (! t)
1466 viable = 0;
1467 break;
1470 if (t->bad_p)
1471 viable = -1;
1473 if (parmnode)
1474 parmnode = TREE_CHAIN (parmnode);
1475 argnode = TREE_CHAIN (argnode);
1478 out:
1479 return add_candidate (candidates, fn, orig_arglist, len, convs,
1480 access_path, conversion_path, viable);
1483 /* Create an overload candidate for the conversion function FN which will
1484 be invoked for expression OBJ, producing a pointer-to-function which
1485 will in turn be called with the argument list ARGLIST, and add it to
1486 CANDIDATES. FLAGS is passed on to implicit_conversion.
1488 Actually, we don't really care about FN; we care about the type it
1489 converts to. There may be multiple conversion functions that will
1490 convert to that type, and we rely on build_user_type_conversion_1 to
1491 choose the best one; so when we create our candidate, we record the type
1492 instead of the function. */
1494 static struct z_candidate *
1495 add_conv_candidate (struct z_candidate **candidates, tree fn, tree obj,
1496 tree arglist, tree access_path, tree conversion_path)
1498 tree totype = TREE_TYPE (TREE_TYPE (fn));
1499 int i, len, viable, flags;
1500 tree parmlist, parmnode, argnode;
1501 conversion **convs;
1503 for (parmlist = totype; TREE_CODE (parmlist) != FUNCTION_TYPE; )
1504 parmlist = TREE_TYPE (parmlist);
1505 parmlist = TYPE_ARG_TYPES (parmlist);
1507 len = list_length (arglist) + 1;
1508 convs = alloc_conversions (len);
1509 parmnode = parmlist;
1510 argnode = arglist;
1511 viable = 1;
1512 flags = LOOKUP_NORMAL;
1514 /* Don't bother looking up the same type twice. */
1515 if (*candidates && (*candidates)->fn == totype)
1516 return NULL;
1518 for (i = 0; i < len; ++i)
1520 tree arg = i == 0 ? obj : TREE_VALUE (argnode);
1521 tree argtype = lvalue_type (arg);
1522 conversion *t;
1524 if (i == 0)
1525 t = implicit_conversion (totype, argtype, arg, /*c_cast_p=*/false,
1526 flags);
1527 else if (parmnode == void_list_node)
1528 break;
1529 else if (parmnode)
1530 t = implicit_conversion (TREE_VALUE (parmnode), argtype, arg,
1531 /*c_cast_p=*/false, flags);
1532 else
1534 t = build_identity_conv (argtype, arg);
1535 t->ellipsis_p = true;
1538 convs[i] = t;
1539 if (! t)
1540 break;
1542 if (t->bad_p)
1543 viable = -1;
1545 if (i == 0)
1546 continue;
1548 if (parmnode)
1549 parmnode = TREE_CHAIN (parmnode);
1550 argnode = TREE_CHAIN (argnode);
1553 if (i < len)
1554 viable = 0;
1556 if (!sufficient_parms_p (parmnode))
1557 viable = 0;
1559 return add_candidate (candidates, totype, arglist, len, convs,
1560 access_path, conversion_path, viable);
1563 static void
1564 build_builtin_candidate (struct z_candidate **candidates, tree fnname,
1565 tree type1, tree type2, tree *args, tree *argtypes,
1566 int flags)
1568 conversion *t;
1569 conversion **convs;
1570 size_t num_convs;
1571 int viable = 1, i;
1572 tree types[2];
1574 types[0] = type1;
1575 types[1] = type2;
1577 num_convs = args[2] ? 3 : (args[1] ? 2 : 1);
1578 convs = alloc_conversions (num_convs);
1580 for (i = 0; i < 2; ++i)
1582 if (! args[i])
1583 break;
1585 t = implicit_conversion (types[i], argtypes[i], args[i],
1586 /*c_cast_p=*/false, flags);
1587 if (! t)
1589 viable = 0;
1590 /* We need something for printing the candidate. */
1591 t = build_identity_conv (types[i], NULL_TREE);
1593 else if (t->bad_p)
1594 viable = 0;
1595 convs[i] = t;
1598 /* For COND_EXPR we rearranged the arguments; undo that now. */
1599 if (args[2])
1601 convs[2] = convs[1];
1602 convs[1] = convs[0];
1603 t = implicit_conversion (boolean_type_node, argtypes[2], args[2],
1604 /*c_cast_p=*/false, flags);
1605 if (t)
1606 convs[0] = t;
1607 else
1608 viable = 0;
1611 add_candidate (candidates, fnname, /*args=*/NULL_TREE,
1612 num_convs, convs,
1613 /*access_path=*/NULL_TREE,
1614 /*conversion_path=*/NULL_TREE,
1615 viable);
1618 static bool
1619 is_complete (tree t)
1621 return COMPLETE_TYPE_P (complete_type (t));
1624 /* Returns nonzero if TYPE is a promoted arithmetic type. */
1626 static bool
1627 promoted_arithmetic_type_p (tree type)
1629 /* [over.built]
1631 In this section, the term promoted integral type is used to refer
1632 to those integral types which are preserved by integral promotion
1633 (including e.g. int and long but excluding e.g. char).
1634 Similarly, the term promoted arithmetic type refers to promoted
1635 integral types plus floating types. */
1636 return ((INTEGRAL_TYPE_P (type)
1637 && same_type_p (type_promotes_to (type), type))
1638 || TREE_CODE (type) == REAL_TYPE);
1641 /* Create any builtin operator overload candidates for the operator in
1642 question given the converted operand types TYPE1 and TYPE2. The other
1643 args are passed through from add_builtin_candidates to
1644 build_builtin_candidate.
1646 TYPE1 and TYPE2 may not be permissible, and we must filter them.
1647 If CODE is requires candidates operands of the same type of the kind
1648 of which TYPE1 and TYPE2 are, we add both candidates
1649 CODE (TYPE1, TYPE1) and CODE (TYPE2, TYPE2). */
1651 static void
1652 add_builtin_candidate (struct z_candidate **candidates, enum tree_code code,
1653 enum tree_code code2, tree fnname, tree type1,
1654 tree type2, tree *args, tree *argtypes, int flags)
1656 switch (code)
1658 case POSTINCREMENT_EXPR:
1659 case POSTDECREMENT_EXPR:
1660 args[1] = integer_zero_node;
1661 type2 = integer_type_node;
1662 break;
1663 default:
1664 break;
1667 switch (code)
1670 /* 4 For every pair T, VQ), where T is an arithmetic or enumeration type,
1671 and VQ is either volatile or empty, there exist candidate operator
1672 functions of the form
1673 VQ T& operator++(VQ T&);
1674 T operator++(VQ T&, int);
1675 5 For every pair T, VQ), where T is an enumeration type or an arithmetic
1676 type other than bool, and VQ is either volatile or empty, there exist
1677 candidate operator functions of the form
1678 VQ T& operator--(VQ T&);
1679 T operator--(VQ T&, int);
1680 6 For every pair T, VQ), where T is a cv-qualified or cv-unqualified
1681 complete object type, and VQ is either volatile or empty, there exist
1682 candidate operator functions of the form
1683 T*VQ& operator++(T*VQ&);
1684 T*VQ& operator--(T*VQ&);
1685 T* operator++(T*VQ&, int);
1686 T* operator--(T*VQ&, int); */
1688 case POSTDECREMENT_EXPR:
1689 case PREDECREMENT_EXPR:
1690 if (TREE_CODE (type1) == BOOLEAN_TYPE)
1691 return;
1692 case POSTINCREMENT_EXPR:
1693 case PREINCREMENT_EXPR:
1694 if (ARITHMETIC_TYPE_P (type1) || TYPE_PTROB_P (type1))
1696 type1 = build_reference_type (type1);
1697 break;
1699 return;
1701 /* 7 For every cv-qualified or cv-unqualified complete object type T, there
1702 exist candidate operator functions of the form
1704 T& operator*(T*);
1706 8 For every function type T, there exist candidate operator functions of
1707 the form
1708 T& operator*(T*); */
1710 case INDIRECT_REF:
1711 if (TREE_CODE (type1) == POINTER_TYPE
1712 && (TYPE_PTROB_P (type1)
1713 || TREE_CODE (TREE_TYPE (type1)) == FUNCTION_TYPE))
1714 break;
1715 return;
1717 /* 9 For every type T, there exist candidate operator functions of the form
1718 T* operator+(T*);
1720 10For every promoted arithmetic type T, there exist candidate operator
1721 functions of the form
1722 T operator+(T);
1723 T operator-(T); */
1725 case UNARY_PLUS_EXPR: /* unary + */
1726 if (TREE_CODE (type1) == POINTER_TYPE)
1727 break;
1728 case NEGATE_EXPR:
1729 if (ARITHMETIC_TYPE_P (type1))
1730 break;
1731 return;
1733 /* 11For every promoted integral type T, there exist candidate operator
1734 functions of the form
1735 T operator~(T); */
1737 case BIT_NOT_EXPR:
1738 if (INTEGRAL_TYPE_P (type1))
1739 break;
1740 return;
1742 /* 12For every quintuple C1, C2, T, CV1, CV2), where C2 is a class type, C1
1743 is the same type as C2 or is a derived class of C2, T is a complete
1744 object type or a function type, and CV1 and CV2 are cv-qualifier-seqs,
1745 there exist candidate operator functions of the form
1746 CV12 T& operator->*(CV1 C1*, CV2 T C2::*);
1747 where CV12 is the union of CV1 and CV2. */
1749 case MEMBER_REF:
1750 if (TREE_CODE (type1) == POINTER_TYPE
1751 && TYPE_PTR_TO_MEMBER_P (type2))
1753 tree c1 = TREE_TYPE (type1);
1754 tree c2 = TYPE_PTRMEM_CLASS_TYPE (type2);
1756 if (IS_AGGR_TYPE (c1) && DERIVED_FROM_P (c2, c1)
1757 && (TYPE_PTRMEMFUNC_P (type2)
1758 || is_complete (TYPE_PTRMEM_POINTED_TO_TYPE (type2))))
1759 break;
1761 return;
1763 /* 13For every pair of promoted arithmetic types L and R, there exist can-
1764 didate operator functions of the form
1765 LR operator*(L, R);
1766 LR operator/(L, R);
1767 LR operator+(L, R);
1768 LR operator-(L, R);
1769 bool operator<(L, R);
1770 bool operator>(L, R);
1771 bool operator<=(L, R);
1772 bool operator>=(L, R);
1773 bool operator==(L, R);
1774 bool operator!=(L, R);
1775 where LR is the result of the usual arithmetic conversions between
1776 types L and R.
1778 14For every pair of types T and I, where T is a cv-qualified or cv-
1779 unqualified complete object type and I is a promoted integral type,
1780 there exist candidate operator functions of the form
1781 T* operator+(T*, I);
1782 T& operator[](T*, I);
1783 T* operator-(T*, I);
1784 T* operator+(I, T*);
1785 T& operator[](I, T*);
1787 15For every T, where T is a pointer to complete object type, there exist
1788 candidate operator functions of the form112)
1789 ptrdiff_t operator-(T, T);
1791 16For every pointer or enumeration type T, there exist candidate operator
1792 functions of the form
1793 bool operator<(T, T);
1794 bool operator>(T, T);
1795 bool operator<=(T, T);
1796 bool operator>=(T, T);
1797 bool operator==(T, T);
1798 bool operator!=(T, T);
1800 17For every pointer to member type T, there exist candidate operator
1801 functions of the form
1802 bool operator==(T, T);
1803 bool operator!=(T, T); */
1805 case MINUS_EXPR:
1806 if (TYPE_PTROB_P (type1) && TYPE_PTROB_P (type2))
1807 break;
1808 if (TYPE_PTROB_P (type1) && INTEGRAL_TYPE_P (type2))
1810 type2 = ptrdiff_type_node;
1811 break;
1813 case MULT_EXPR:
1814 case TRUNC_DIV_EXPR:
1815 if (ARITHMETIC_TYPE_P (type1) && ARITHMETIC_TYPE_P (type2))
1816 break;
1817 return;
1819 case EQ_EXPR:
1820 case NE_EXPR:
1821 if ((TYPE_PTRMEMFUNC_P (type1) && TYPE_PTRMEMFUNC_P (type2))
1822 || (TYPE_PTRMEM_P (type1) && TYPE_PTRMEM_P (type2)))
1823 break;
1824 if (TYPE_PTR_TO_MEMBER_P (type1) && null_ptr_cst_p (args[1]))
1826 type2 = type1;
1827 break;
1829 if (TYPE_PTR_TO_MEMBER_P (type2) && null_ptr_cst_p (args[0]))
1831 type1 = type2;
1832 break;
1834 /* Fall through. */
1835 case LT_EXPR:
1836 case GT_EXPR:
1837 case LE_EXPR:
1838 case GE_EXPR:
1839 case MAX_EXPR:
1840 case MIN_EXPR:
1841 if (ARITHMETIC_TYPE_P (type1) && ARITHMETIC_TYPE_P (type2))
1842 break;
1843 if (TYPE_PTR_P (type1) && TYPE_PTR_P (type2))
1844 break;
1845 if (TREE_CODE (type1) == ENUMERAL_TYPE
1846 && TREE_CODE (type2) == ENUMERAL_TYPE)
1847 break;
1848 if (TYPE_PTR_P (type1)
1849 && null_ptr_cst_p (args[1])
1850 && !uses_template_parms (type1))
1852 type2 = type1;
1853 break;
1855 if (null_ptr_cst_p (args[0])
1856 && TYPE_PTR_P (type2)
1857 && !uses_template_parms (type2))
1859 type1 = type2;
1860 break;
1862 return;
1864 case PLUS_EXPR:
1865 if (ARITHMETIC_TYPE_P (type1) && ARITHMETIC_TYPE_P (type2))
1866 break;
1867 case ARRAY_REF:
1868 if (INTEGRAL_TYPE_P (type1) && TYPE_PTROB_P (type2))
1870 type1 = ptrdiff_type_node;
1871 break;
1873 if (TYPE_PTROB_P (type1) && INTEGRAL_TYPE_P (type2))
1875 type2 = ptrdiff_type_node;
1876 break;
1878 return;
1880 /* 18For every pair of promoted integral types L and R, there exist candi-
1881 date operator functions of the form
1882 LR operator%(L, R);
1883 LR operator&(L, R);
1884 LR operator^(L, R);
1885 LR operator|(L, R);
1886 L operator<<(L, R);
1887 L operator>>(L, R);
1888 where LR is the result of the usual arithmetic conversions between
1889 types L and R. */
1891 case TRUNC_MOD_EXPR:
1892 case BIT_AND_EXPR:
1893 case BIT_IOR_EXPR:
1894 case BIT_XOR_EXPR:
1895 case LSHIFT_EXPR:
1896 case RSHIFT_EXPR:
1897 if (INTEGRAL_TYPE_P (type1) && INTEGRAL_TYPE_P (type2))
1898 break;
1899 return;
1901 /* 19For every triple L, VQ, R), where L is an arithmetic or enumeration
1902 type, VQ is either volatile or empty, and R is a promoted arithmetic
1903 type, there exist candidate operator functions of the form
1904 VQ L& operator=(VQ L&, R);
1905 VQ L& operator*=(VQ L&, R);
1906 VQ L& operator/=(VQ L&, R);
1907 VQ L& operator+=(VQ L&, R);
1908 VQ L& operator-=(VQ L&, R);
1910 20For every pair T, VQ), where T is any type and VQ is either volatile
1911 or empty, there exist candidate operator functions of the form
1912 T*VQ& operator=(T*VQ&, T*);
1914 21For every pair T, VQ), where T is a pointer to member type and VQ is
1915 either volatile or empty, there exist candidate operator functions of
1916 the form
1917 VQ T& operator=(VQ T&, T);
1919 22For every triple T, VQ, I), where T is a cv-qualified or cv-
1920 unqualified complete object type, VQ is either volatile or empty, and
1921 I is a promoted integral type, there exist candidate operator func-
1922 tions of the form
1923 T*VQ& operator+=(T*VQ&, I);
1924 T*VQ& operator-=(T*VQ&, I);
1926 23For every triple L, VQ, R), where L is an integral or enumeration
1927 type, VQ is either volatile or empty, and R is a promoted integral
1928 type, there exist candidate operator functions of the form
1930 VQ L& operator%=(VQ L&, R);
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 case MODIFY_EXPR:
1938 switch (code2)
1940 case PLUS_EXPR:
1941 case MINUS_EXPR:
1942 if (TYPE_PTROB_P (type1) && INTEGRAL_TYPE_P (type2))
1944 type2 = ptrdiff_type_node;
1945 break;
1947 case MULT_EXPR:
1948 case TRUNC_DIV_EXPR:
1949 if (ARITHMETIC_TYPE_P (type1) && ARITHMETIC_TYPE_P (type2))
1950 break;
1951 return;
1953 case TRUNC_MOD_EXPR:
1954 case BIT_AND_EXPR:
1955 case BIT_IOR_EXPR:
1956 case BIT_XOR_EXPR:
1957 case LSHIFT_EXPR:
1958 case RSHIFT_EXPR:
1959 if (INTEGRAL_TYPE_P (type1) && INTEGRAL_TYPE_P (type2))
1960 break;
1961 return;
1963 case NOP_EXPR:
1964 if (ARITHMETIC_TYPE_P (type1) && ARITHMETIC_TYPE_P (type2))
1965 break;
1966 if ((TYPE_PTRMEMFUNC_P (type1) && TYPE_PTRMEMFUNC_P (type2))
1967 || (TYPE_PTR_P (type1) && TYPE_PTR_P (type2))
1968 || (TYPE_PTRMEM_P (type1) && TYPE_PTRMEM_P (type2))
1969 || ((TYPE_PTRMEMFUNC_P (type1)
1970 || TREE_CODE (type1) == POINTER_TYPE)
1971 && null_ptr_cst_p (args[1])))
1973 type2 = type1;
1974 break;
1976 return;
1978 default:
1979 gcc_unreachable ();
1981 type1 = build_reference_type (type1);
1982 break;
1984 case COND_EXPR:
1985 /* [over.built]
1987 For every pair of promoted arithmetic types L and R, there
1988 exist candidate operator functions of the form
1990 LR operator?(bool, L, R);
1992 where LR is the result of the usual arithmetic conversions
1993 between types L and R.
1995 For every type T, where T is a pointer or pointer-to-member
1996 type, there exist candidate operator functions of the form T
1997 operator?(bool, T, T); */
1999 if (promoted_arithmetic_type_p (type1)
2000 && promoted_arithmetic_type_p (type2))
2001 /* That's OK. */
2002 break;
2004 /* Otherwise, the types should be pointers. */
2005 if (!(TYPE_PTR_P (type1) || TYPE_PTR_TO_MEMBER_P (type1))
2006 || !(TYPE_PTR_P (type2) || TYPE_PTR_TO_MEMBER_P (type2)))
2007 return;
2009 /* We don't check that the two types are the same; the logic
2010 below will actually create two candidates; one in which both
2011 parameter types are TYPE1, and one in which both parameter
2012 types are TYPE2. */
2013 break;
2015 default:
2016 gcc_unreachable ();
2019 /* If we're dealing with two pointer types or two enumeral types,
2020 we need candidates for both of them. */
2021 if (type2 && !same_type_p (type1, type2)
2022 && TREE_CODE (type1) == TREE_CODE (type2)
2023 && (TREE_CODE (type1) == REFERENCE_TYPE
2024 || (TYPE_PTR_P (type1) && TYPE_PTR_P (type2))
2025 || (TYPE_PTRMEM_P (type1) && TYPE_PTRMEM_P (type2))
2026 || TYPE_PTRMEMFUNC_P (type1)
2027 || IS_AGGR_TYPE (type1)
2028 || TREE_CODE (type1) == ENUMERAL_TYPE))
2030 build_builtin_candidate
2031 (candidates, fnname, type1, type1, args, argtypes, flags);
2032 build_builtin_candidate
2033 (candidates, fnname, type2, type2, args, argtypes, flags);
2034 return;
2037 build_builtin_candidate
2038 (candidates, fnname, type1, type2, args, argtypes, flags);
2041 tree
2042 type_decays_to (tree type)
2044 if (TREE_CODE (type) == ARRAY_TYPE)
2045 return build_pointer_type (TREE_TYPE (type));
2046 if (TREE_CODE (type) == FUNCTION_TYPE)
2047 return build_pointer_type (type);
2048 return type;
2051 /* There are three conditions of builtin candidates:
2053 1) bool-taking candidates. These are the same regardless of the input.
2054 2) pointer-pair taking candidates. These are generated for each type
2055 one of the input types converts to.
2056 3) arithmetic candidates. According to the standard, we should generate
2057 all of these, but I'm trying not to...
2059 Here we generate a superset of the possible candidates for this particular
2060 case. That is a subset of the full set the standard defines, plus some
2061 other cases which the standard disallows. add_builtin_candidate will
2062 filter out the invalid set. */
2064 static void
2065 add_builtin_candidates (struct z_candidate **candidates, enum tree_code code,
2066 enum tree_code code2, tree fnname, tree *args,
2067 int flags)
2069 int ref1, i;
2070 int enum_p = 0;
2071 tree type, argtypes[3];
2072 /* TYPES[i] is the set of possible builtin-operator parameter types
2073 we will consider for the Ith argument. These are represented as
2074 a TREE_LIST; the TREE_VALUE of each node is the potential
2075 parameter type. */
2076 tree types[2];
2078 for (i = 0; i < 3; ++i)
2080 if (args[i])
2081 argtypes[i] = unlowered_expr_type (args[i]);
2082 else
2083 argtypes[i] = NULL_TREE;
2086 switch (code)
2088 /* 4 For every pair T, VQ), where T is an arithmetic or enumeration type,
2089 and VQ is either volatile or empty, there exist candidate operator
2090 functions of the form
2091 VQ T& operator++(VQ T&); */
2093 case POSTINCREMENT_EXPR:
2094 case PREINCREMENT_EXPR:
2095 case POSTDECREMENT_EXPR:
2096 case PREDECREMENT_EXPR:
2097 case MODIFY_EXPR:
2098 ref1 = 1;
2099 break;
2101 /* 24There also exist candidate operator functions of the form
2102 bool operator!(bool);
2103 bool operator&&(bool, bool);
2104 bool operator||(bool, bool); */
2106 case TRUTH_NOT_EXPR:
2107 build_builtin_candidate
2108 (candidates, fnname, boolean_type_node,
2109 NULL_TREE, args, argtypes, flags);
2110 return;
2112 case TRUTH_ORIF_EXPR:
2113 case TRUTH_ANDIF_EXPR:
2114 build_builtin_candidate
2115 (candidates, fnname, boolean_type_node,
2116 boolean_type_node, args, argtypes, flags);
2117 return;
2119 case ADDR_EXPR:
2120 case COMPOUND_EXPR:
2121 case COMPONENT_REF:
2122 return;
2124 case COND_EXPR:
2125 case EQ_EXPR:
2126 case NE_EXPR:
2127 case LT_EXPR:
2128 case LE_EXPR:
2129 case GT_EXPR:
2130 case GE_EXPR:
2131 enum_p = 1;
2132 /* Fall through. */
2134 default:
2135 ref1 = 0;
2138 types[0] = types[1] = NULL_TREE;
2140 for (i = 0; i < 2; ++i)
2142 if (! args[i])
2144 else if (IS_AGGR_TYPE (argtypes[i]))
2146 tree convs;
2148 if (i == 0 && code == MODIFY_EXPR && code2 == NOP_EXPR)
2149 return;
2151 convs = lookup_conversions (argtypes[i]);
2153 if (code == COND_EXPR)
2155 if (real_lvalue_p (args[i]))
2156 types[i] = tree_cons
2157 (NULL_TREE, build_reference_type (argtypes[i]), types[i]);
2159 types[i] = tree_cons
2160 (NULL_TREE, TYPE_MAIN_VARIANT (argtypes[i]), types[i]);
2163 else if (! convs)
2164 return;
2166 for (; convs; convs = TREE_CHAIN (convs))
2168 type = TREE_TYPE (TREE_TYPE (OVL_CURRENT (TREE_VALUE (convs))));
2170 if (i == 0 && ref1
2171 && (TREE_CODE (type) != REFERENCE_TYPE
2172 || CP_TYPE_CONST_P (TREE_TYPE (type))))
2173 continue;
2175 if (code == COND_EXPR && TREE_CODE (type) == REFERENCE_TYPE)
2176 types[i] = tree_cons (NULL_TREE, type, types[i]);
2178 type = non_reference (type);
2179 if (i != 0 || ! ref1)
2181 type = TYPE_MAIN_VARIANT (type_decays_to (type));
2182 if (enum_p && TREE_CODE (type) == ENUMERAL_TYPE)
2183 types[i] = tree_cons (NULL_TREE, type, types[i]);
2184 if (INTEGRAL_TYPE_P (type))
2185 type = type_promotes_to (type);
2188 if (! value_member (type, types[i]))
2189 types[i] = tree_cons (NULL_TREE, type, types[i]);
2192 else
2194 if (code == COND_EXPR && real_lvalue_p (args[i]))
2195 types[i] = tree_cons
2196 (NULL_TREE, build_reference_type (argtypes[i]), types[i]);
2197 type = non_reference (argtypes[i]);
2198 if (i != 0 || ! ref1)
2200 type = TYPE_MAIN_VARIANT (type_decays_to (type));
2201 if (enum_p && TREE_CODE (type) == ENUMERAL_TYPE)
2202 types[i] = tree_cons (NULL_TREE, type, types[i]);
2203 if (INTEGRAL_TYPE_P (type))
2204 type = type_promotes_to (type);
2206 types[i] = tree_cons (NULL_TREE, type, types[i]);
2210 /* Run through the possible parameter types of both arguments,
2211 creating candidates with those parameter types. */
2212 for (; types[0]; types[0] = TREE_CHAIN (types[0]))
2214 if (types[1])
2215 for (type = types[1]; type; type = TREE_CHAIN (type))
2216 add_builtin_candidate
2217 (candidates, code, code2, fnname, TREE_VALUE (types[0]),
2218 TREE_VALUE (type), args, argtypes, flags);
2219 else
2220 add_builtin_candidate
2221 (candidates, code, code2, fnname, TREE_VALUE (types[0]),
2222 NULL_TREE, args, argtypes, flags);
2227 /* If TMPL can be successfully instantiated as indicated by
2228 EXPLICIT_TARGS and ARGLIST, adds the instantiation to CANDIDATES.
2230 TMPL is the template. EXPLICIT_TARGS are any explicit template
2231 arguments. ARGLIST is the arguments provided at the call-site.
2232 The RETURN_TYPE is the desired type for conversion operators. If
2233 OBJ is NULL_TREE, FLAGS and CTYPE are as for add_function_candidate.
2234 If an OBJ is supplied, FLAGS and CTYPE are ignored, and OBJ is as for
2235 add_conv_candidate. */
2237 static struct z_candidate*
2238 add_template_candidate_real (struct z_candidate **candidates, tree tmpl,
2239 tree ctype, tree explicit_targs, tree arglist,
2240 tree return_type, tree access_path,
2241 tree conversion_path, int flags, tree obj,
2242 unification_kind_t strict)
2244 int ntparms = DECL_NTPARMS (tmpl);
2245 tree targs = make_tree_vec (ntparms);
2246 tree args_without_in_chrg = arglist;
2247 struct z_candidate *cand;
2248 int i;
2249 tree fn;
2251 /* We don't do deduction on the in-charge parameter, the VTT
2252 parameter or 'this'. */
2253 if (DECL_NONSTATIC_MEMBER_FUNCTION_P (tmpl))
2254 args_without_in_chrg = TREE_CHAIN (args_without_in_chrg);
2256 if ((DECL_MAYBE_IN_CHARGE_CONSTRUCTOR_P (tmpl)
2257 || DECL_BASE_CONSTRUCTOR_P (tmpl))
2258 && CLASSTYPE_VBASECLASSES (DECL_CONTEXT (tmpl)))
2259 args_without_in_chrg = TREE_CHAIN (args_without_in_chrg);
2261 i = fn_type_unification (tmpl, explicit_targs, targs,
2262 args_without_in_chrg,
2263 return_type, strict, flags);
2265 if (i != 0)
2266 return NULL;
2268 fn = instantiate_template (tmpl, targs, tf_none);
2269 if (fn == error_mark_node)
2270 return NULL;
2272 /* In [class.copy]:
2274 A member function template is never instantiated to perform the
2275 copy of a class object to an object of its class type.
2277 It's a little unclear what this means; the standard explicitly
2278 does allow a template to be used to copy a class. For example,
2281 struct A {
2282 A(A&);
2283 template <class T> A(const T&);
2285 const A f ();
2286 void g () { A a (f ()); }
2288 the member template will be used to make the copy. The section
2289 quoted above appears in the paragraph that forbids constructors
2290 whose only parameter is (a possibly cv-qualified variant of) the
2291 class type, and a logical interpretation is that the intent was
2292 to forbid the instantiation of member templates which would then
2293 have that form. */
2294 if (DECL_CONSTRUCTOR_P (fn) && list_length (arglist) == 2)
2296 tree arg_types = FUNCTION_FIRST_USER_PARMTYPE (fn);
2297 if (arg_types && same_type_p (TYPE_MAIN_VARIANT (TREE_VALUE (arg_types)),
2298 ctype))
2299 return NULL;
2302 if (obj != NULL_TREE)
2303 /* Aha, this is a conversion function. */
2304 cand = add_conv_candidate (candidates, fn, obj, access_path,
2305 conversion_path, arglist);
2306 else
2307 cand = add_function_candidate (candidates, fn, ctype,
2308 arglist, access_path,
2309 conversion_path, flags);
2310 if (DECL_TI_TEMPLATE (fn) != tmpl)
2311 /* This situation can occur if a member template of a template
2312 class is specialized. Then, instantiate_template might return
2313 an instantiation of the specialization, in which case the
2314 DECL_TI_TEMPLATE field will point at the original
2315 specialization. For example:
2317 template <class T> struct S { template <class U> void f(U);
2318 template <> void f(int) {}; };
2319 S<double> sd;
2320 sd.f(3);
2322 Here, TMPL will be template <class U> S<double>::f(U).
2323 And, instantiate template will give us the specialization
2324 template <> S<double>::f(int). But, the DECL_TI_TEMPLATE field
2325 for this will point at template <class T> template <> S<T>::f(int),
2326 so that we can find the definition. For the purposes of
2327 overload resolution, however, we want the original TMPL. */
2328 cand->template_decl = tree_cons (tmpl, targs, NULL_TREE);
2329 else
2330 cand->template_decl = DECL_TEMPLATE_INFO (fn);
2332 return cand;
2336 static struct z_candidate *
2337 add_template_candidate (struct z_candidate **candidates, tree tmpl, tree ctype,
2338 tree explicit_targs, tree arglist, tree return_type,
2339 tree access_path, tree conversion_path, int flags,
2340 unification_kind_t strict)
2342 return
2343 add_template_candidate_real (candidates, tmpl, ctype,
2344 explicit_targs, arglist, return_type,
2345 access_path, conversion_path,
2346 flags, NULL_TREE, strict);
2350 static struct z_candidate *
2351 add_template_conv_candidate (struct z_candidate **candidates, tree tmpl,
2352 tree obj, tree arglist, tree return_type,
2353 tree access_path, tree conversion_path)
2355 return
2356 add_template_candidate_real (candidates, tmpl, NULL_TREE, NULL_TREE,
2357 arglist, return_type, access_path,
2358 conversion_path, 0, obj, DEDUCE_CONV);
2361 /* The CANDS are the set of candidates that were considered for
2362 overload resolution. Return the set of viable candidates. If none
2363 of the candidates were viable, set *ANY_VIABLE_P to true. STRICT_P
2364 is true if a candidate should be considered viable only if it is
2365 strictly viable. */
2367 static struct z_candidate*
2368 splice_viable (struct z_candidate *cands,
2369 bool strict_p,
2370 bool *any_viable_p)
2372 struct z_candidate *viable;
2373 struct z_candidate **last_viable;
2374 struct z_candidate **cand;
2376 viable = NULL;
2377 last_viable = &viable;
2378 *any_viable_p = false;
2380 cand = &cands;
2381 while (*cand)
2383 struct z_candidate *c = *cand;
2384 if (strict_p ? c->viable == 1 : c->viable)
2386 *last_viable = c;
2387 *cand = c->next;
2388 c->next = NULL;
2389 last_viable = &c->next;
2390 *any_viable_p = true;
2392 else
2393 cand = &c->next;
2396 return viable ? viable : cands;
2399 static bool
2400 any_strictly_viable (struct z_candidate *cands)
2402 for (; cands; cands = cands->next)
2403 if (cands->viable == 1)
2404 return true;
2405 return false;
2408 /* OBJ is being used in an expression like "OBJ.f (...)". In other
2409 words, it is about to become the "this" pointer for a member
2410 function call. Take the address of the object. */
2412 static tree
2413 build_this (tree obj)
2415 /* In a template, we are only concerned about the type of the
2416 expression, so we can take a shortcut. */
2417 if (processing_template_decl)
2418 return build_address (obj);
2420 return build_unary_op (ADDR_EXPR, obj, 0);
2423 /* Returns true iff functions are equivalent. Equivalent functions are
2424 not '==' only if one is a function-local extern function or if
2425 both are extern "C". */
2427 static inline int
2428 equal_functions (tree fn1, tree fn2)
2430 if (DECL_LOCAL_FUNCTION_P (fn1) || DECL_LOCAL_FUNCTION_P (fn2)
2431 || DECL_EXTERN_C_FUNCTION_P (fn1))
2432 return decls_match (fn1, fn2);
2433 return fn1 == fn2;
2436 /* Print information about one overload candidate CANDIDATE. MSGSTR
2437 is the text to print before the candidate itself.
2439 NOTE: Unlike most diagnostic functions in GCC, MSGSTR is expected
2440 to have been run through gettext by the caller. This wart makes
2441 life simpler in print_z_candidates and for the translators. */
2443 static void
2444 print_z_candidate (const char *msgstr, struct z_candidate *candidate)
2446 if (TREE_CODE (candidate->fn) == IDENTIFIER_NODE)
2448 if (candidate->num_convs == 3)
2449 inform ("%s %D(%T, %T, %T) <built-in>", msgstr, candidate->fn,
2450 candidate->convs[0]->type,
2451 candidate->convs[1]->type,
2452 candidate->convs[2]->type);
2453 else if (candidate->num_convs == 2)
2454 inform ("%s %D(%T, %T) <built-in>", msgstr, candidate->fn,
2455 candidate->convs[0]->type,
2456 candidate->convs[1]->type);
2457 else
2458 inform ("%s %D(%T) <built-in>", msgstr, candidate->fn,
2459 candidate->convs[0]->type);
2461 else if (TYPE_P (candidate->fn))
2462 inform ("%s %T <conversion>", msgstr, candidate->fn);
2463 else if (candidate->viable == -1)
2464 inform ("%s %+#D <near match>", msgstr, candidate->fn);
2465 else
2466 inform ("%s %+#D", msgstr, candidate->fn);
2469 static void
2470 print_z_candidates (struct z_candidate *candidates)
2472 const char *str;
2473 struct z_candidate *cand1;
2474 struct z_candidate **cand2;
2476 /* There may be duplicates in the set of candidates. We put off
2477 checking this condition as long as possible, since we have no way
2478 to eliminate duplicates from a set of functions in less than n^2
2479 time. Now we are about to emit an error message, so it is more
2480 permissible to go slowly. */
2481 for (cand1 = candidates; cand1; cand1 = cand1->next)
2483 tree fn = cand1->fn;
2484 /* Skip builtin candidates and conversion functions. */
2485 if (TREE_CODE (fn) != FUNCTION_DECL)
2486 continue;
2487 cand2 = &cand1->next;
2488 while (*cand2)
2490 if (TREE_CODE ((*cand2)->fn) == FUNCTION_DECL
2491 && equal_functions (fn, (*cand2)->fn))
2492 *cand2 = (*cand2)->next;
2493 else
2494 cand2 = &(*cand2)->next;
2498 if (!candidates)
2499 return;
2501 str = _("candidates are:");
2502 print_z_candidate (str, candidates);
2503 if (candidates->next)
2505 /* Indent successive candidates by the width of the translation
2506 of the above string. */
2507 size_t len = gcc_gettext_width (str) + 1;
2508 char *spaces = (char *) alloca (len);
2509 memset (spaces, ' ', len-1);
2510 spaces[len - 1] = '\0';
2512 candidates = candidates->next;
2515 print_z_candidate (spaces, candidates);
2516 candidates = candidates->next;
2518 while (candidates);
2522 /* USER_SEQ is a user-defined conversion sequence, beginning with a
2523 USER_CONV. STD_SEQ is the standard conversion sequence applied to
2524 the result of the conversion function to convert it to the final
2525 desired type. Merge the two sequences into a single sequence,
2526 and return the merged sequence. */
2528 static conversion *
2529 merge_conversion_sequences (conversion *user_seq, conversion *std_seq)
2531 conversion **t;
2533 gcc_assert (user_seq->kind == ck_user);
2535 /* Find the end of the second conversion sequence. */
2536 t = &(std_seq);
2537 while ((*t)->kind != ck_identity)
2538 t = &((*t)->u.next);
2540 /* Replace the identity conversion with the user conversion
2541 sequence. */
2542 *t = user_seq;
2544 /* The entire sequence is a user-conversion sequence. */
2545 std_seq->user_conv_p = true;
2547 return std_seq;
2550 /* Returns the best overload candidate to perform the requested
2551 conversion. This function is used for three the overloading situations
2552 described in [over.match.copy], [over.match.conv], and [over.match.ref].
2553 If TOTYPE is a REFERENCE_TYPE, we're trying to find an lvalue binding as
2554 per [dcl.init.ref], so we ignore temporary bindings. */
2556 static struct z_candidate *
2557 build_user_type_conversion_1 (tree totype, tree expr, int flags)
2559 struct z_candidate *candidates, *cand;
2560 tree fromtype = TREE_TYPE (expr);
2561 tree ctors = NULL_TREE;
2562 tree conv_fns = NULL_TREE;
2563 conversion *conv = NULL;
2564 tree args = NULL_TREE;
2565 bool any_viable_p;
2566 int convflags;
2568 /* We represent conversion within a hierarchy using RVALUE_CONV and
2569 BASE_CONV, as specified by [over.best.ics]; these become plain
2570 constructor calls, as specified in [dcl.init]. */
2571 gcc_assert (!IS_AGGR_TYPE (fromtype) || !IS_AGGR_TYPE (totype)
2572 || !DERIVED_FROM_P (totype, fromtype));
2574 if (IS_AGGR_TYPE (totype))
2575 ctors = lookup_fnfields (totype, complete_ctor_identifier, 0);
2577 if (IS_AGGR_TYPE (fromtype))
2579 tree to_nonref = non_reference (totype);
2580 if (same_type_ignoring_top_level_qualifiers_p (to_nonref, fromtype) ||
2581 (CLASS_TYPE_P (to_nonref) && CLASS_TYPE_P (fromtype)
2582 && DERIVED_FROM_P (to_nonref, fromtype)))
2584 /* [class.conv.fct] A conversion function is never used to
2585 convert a (possibly cv-qualified) object to the (possibly
2586 cv-qualified) same object type (or a reference to it), to a
2587 (possibly cv-qualified) base class of that type (or a
2588 reference to it)... */
2590 else
2591 conv_fns = lookup_conversions (fromtype);
2594 candidates = 0;
2595 flags |= LOOKUP_NO_CONVERSION;
2597 /* It's OK to bind a temporary for converting constructor arguments, but
2598 not in converting the return value of a conversion operator. */
2599 convflags = ((flags & LOOKUP_NO_TEMP_BIND) | LOOKUP_NO_CONVERSION);
2600 flags &= ~LOOKUP_NO_TEMP_BIND;
2602 if (ctors)
2604 tree t;
2606 ctors = BASELINK_FUNCTIONS (ctors);
2608 t = build_int_cst (build_pointer_type (totype), 0);
2609 args = build_tree_list (NULL_TREE, expr);
2610 /* We should never try to call the abstract or base constructor
2611 from here. */
2612 gcc_assert (!DECL_HAS_IN_CHARGE_PARM_P (OVL_CURRENT (ctors))
2613 && !DECL_HAS_VTT_PARM_P (OVL_CURRENT (ctors)));
2614 args = tree_cons (NULL_TREE, t, args);
2616 for (; ctors; ctors = OVL_NEXT (ctors))
2618 tree ctor = OVL_CURRENT (ctors);
2619 if (DECL_NONCONVERTING_P (ctor))
2620 continue;
2622 if (TREE_CODE (ctor) == TEMPLATE_DECL)
2623 cand = add_template_candidate (&candidates, ctor, totype,
2624 NULL_TREE, args, NULL_TREE,
2625 TYPE_BINFO (totype),
2626 TYPE_BINFO (totype),
2627 flags,
2628 DEDUCE_CALL);
2629 else
2630 cand = add_function_candidate (&candidates, ctor, totype,
2631 args, TYPE_BINFO (totype),
2632 TYPE_BINFO (totype),
2633 flags);
2635 if (cand)
2636 cand->second_conv = build_identity_conv (totype, NULL_TREE);
2639 if (conv_fns)
2640 args = build_tree_list (NULL_TREE, build_this (expr));
2642 for (; conv_fns; conv_fns = TREE_CHAIN (conv_fns))
2644 tree fns;
2645 tree conversion_path = TREE_PURPOSE (conv_fns);
2647 /* If we are called to convert to a reference type, we are trying to
2648 find an lvalue binding, so don't even consider temporaries. If
2649 we don't find an lvalue binding, the caller will try again to
2650 look for a temporary binding. */
2651 if (TREE_CODE (totype) == REFERENCE_TYPE)
2652 convflags |= LOOKUP_NO_TEMP_BIND;
2654 for (fns = TREE_VALUE (conv_fns); fns; fns = OVL_NEXT (fns))
2656 tree fn = OVL_CURRENT (fns);
2658 /* [over.match.funcs] For conversion functions, the function
2659 is considered to be a member of the class of the implicit
2660 object argument for the purpose of defining the type of
2661 the implicit object parameter.
2663 So we pass fromtype as CTYPE to add_*_candidate. */
2665 if (TREE_CODE (fn) == TEMPLATE_DECL)
2666 cand = add_template_candidate (&candidates, fn, fromtype,
2667 NULL_TREE,
2668 args, totype,
2669 TYPE_BINFO (fromtype),
2670 conversion_path,
2671 flags,
2672 DEDUCE_CONV);
2673 else
2674 cand = add_function_candidate (&candidates, fn, fromtype,
2675 args,
2676 TYPE_BINFO (fromtype),
2677 conversion_path,
2678 flags);
2680 if (cand)
2682 conversion *ics
2683 = implicit_conversion (totype,
2684 TREE_TYPE (TREE_TYPE (cand->fn)),
2686 /*c_cast_p=*/false, convflags);
2688 cand->second_conv = ics;
2690 if (!ics)
2691 cand->viable = 0;
2692 else if (candidates->viable == 1 && ics->bad_p)
2693 cand->viable = -1;
2698 candidates = splice_viable (candidates, pedantic, &any_viable_p);
2699 if (!any_viable_p)
2700 return NULL;
2702 cand = tourney (candidates);
2703 if (cand == 0)
2705 if (flags & LOOKUP_COMPLAIN)
2707 error ("conversion from %qT to %qT is ambiguous",
2708 fromtype, totype);
2709 print_z_candidates (candidates);
2712 cand = candidates; /* any one will do */
2713 cand->second_conv = build_ambiguous_conv (totype, expr);
2714 cand->second_conv->user_conv_p = true;
2715 if (!any_strictly_viable (candidates))
2716 cand->second_conv->bad_p = true;
2717 /* If there are viable candidates, don't set ICS_BAD_FLAG; an
2718 ambiguous conversion is no worse than another user-defined
2719 conversion. */
2721 return cand;
2724 /* Build the user conversion sequence. */
2725 conv = build_conv
2726 (ck_user,
2727 (DECL_CONSTRUCTOR_P (cand->fn)
2728 ? totype : non_reference (TREE_TYPE (TREE_TYPE (cand->fn)))),
2729 build_identity_conv (TREE_TYPE (expr), expr));
2730 conv->cand = cand;
2732 /* Combine it with the second conversion sequence. */
2733 cand->second_conv = merge_conversion_sequences (conv,
2734 cand->second_conv);
2736 if (cand->viable == -1)
2737 cand->second_conv->bad_p = true;
2739 return cand;
2742 tree
2743 build_user_type_conversion (tree totype, tree expr, int flags)
2745 struct z_candidate *cand
2746 = build_user_type_conversion_1 (totype, expr, flags);
2748 if (cand)
2750 if (cand->second_conv->kind == ck_ambig)
2751 return error_mark_node;
2752 expr = convert_like (cand->second_conv, expr);
2753 return convert_from_reference (expr);
2755 return NULL_TREE;
2758 /* Do any initial processing on the arguments to a function call. */
2760 static tree
2761 resolve_args (tree args)
2763 tree t;
2764 for (t = args; t; t = TREE_CHAIN (t))
2766 tree arg = TREE_VALUE (t);
2768 if (error_operand_p (arg))
2769 return error_mark_node;
2770 else if (VOID_TYPE_P (TREE_TYPE (arg)))
2772 error ("invalid use of void expression");
2773 return error_mark_node;
2775 else if (invalid_nonstatic_memfn_p (arg))
2776 return error_mark_node;
2778 return args;
2781 /* Perform overload resolution on FN, which is called with the ARGS.
2783 Return the candidate function selected by overload resolution, or
2784 NULL if the event that overload resolution failed. In the case
2785 that overload resolution fails, *CANDIDATES will be the set of
2786 candidates considered, and ANY_VIABLE_P will be set to true or
2787 false to indicate whether or not any of the candidates were
2788 viable.
2790 The ARGS should already have gone through RESOLVE_ARGS before this
2791 function is called. */
2793 static struct z_candidate *
2794 perform_overload_resolution (tree fn,
2795 tree args,
2796 struct z_candidate **candidates,
2797 bool *any_viable_p)
2799 struct z_candidate *cand;
2800 tree explicit_targs = NULL_TREE;
2801 int template_only = 0;
2803 *candidates = NULL;
2804 *any_viable_p = true;
2806 /* Check FN and ARGS. */
2807 gcc_assert (TREE_CODE (fn) == FUNCTION_DECL
2808 || TREE_CODE (fn) == TEMPLATE_DECL
2809 || TREE_CODE (fn) == OVERLOAD
2810 || TREE_CODE (fn) == TEMPLATE_ID_EXPR);
2811 gcc_assert (!args || TREE_CODE (args) == TREE_LIST);
2813 if (TREE_CODE (fn) == TEMPLATE_ID_EXPR)
2815 explicit_targs = TREE_OPERAND (fn, 1);
2816 fn = TREE_OPERAND (fn, 0);
2817 template_only = 1;
2820 /* Add the various candidate functions. */
2821 add_candidates (fn, args, explicit_targs, template_only,
2822 /*conversion_path=*/NULL_TREE,
2823 /*access_path=*/NULL_TREE,
2824 LOOKUP_NORMAL,
2825 candidates);
2827 *candidates = splice_viable (*candidates, pedantic, any_viable_p);
2828 if (!*any_viable_p)
2829 return NULL;
2831 cand = tourney (*candidates);
2832 return cand;
2835 /* Return an expression for a call to FN (a namespace-scope function,
2836 or a static member function) with the ARGS. */
2838 tree
2839 build_new_function_call (tree fn, tree args, bool koenig_p)
2841 struct z_candidate *candidates, *cand;
2842 bool any_viable_p;
2843 void *p;
2844 tree result;
2846 args = resolve_args (args);
2847 if (args == error_mark_node)
2848 return error_mark_node;
2850 /* If this function was found without using argument dependent
2851 lookup, then we want to ignore any undeclared friend
2852 functions. */
2853 if (!koenig_p)
2855 tree orig_fn = fn;
2857 fn = remove_hidden_names (fn);
2858 if (!fn)
2860 error ("no matching function for call to %<%D(%A)%>",
2861 DECL_NAME (OVL_CURRENT (orig_fn)), args);
2862 return error_mark_node;
2866 /* Get the high-water mark for the CONVERSION_OBSTACK. */
2867 p = conversion_obstack_alloc (0);
2869 cand = perform_overload_resolution (fn, args, &candidates, &any_viable_p);
2871 if (!cand)
2873 if (!any_viable_p && candidates && ! candidates->next)
2874 return build_function_call (candidates->fn, args);
2875 if (TREE_CODE (fn) == TEMPLATE_ID_EXPR)
2876 fn = TREE_OPERAND (fn, 0);
2877 if (!any_viable_p)
2878 error ("no matching function for call to %<%D(%A)%>",
2879 DECL_NAME (OVL_CURRENT (fn)), args);
2880 else
2881 error ("call of overloaded %<%D(%A)%> is ambiguous",
2882 DECL_NAME (OVL_CURRENT (fn)), args);
2883 if (candidates)
2884 print_z_candidates (candidates);
2885 result = error_mark_node;
2887 else
2888 result = build_over_call (cand, LOOKUP_NORMAL);
2890 /* Free all the conversions we allocated. */
2891 obstack_free (&conversion_obstack, p);
2893 return result;
2896 /* Build a call to a global operator new. FNNAME is the name of the
2897 operator (either "operator new" or "operator new[]") and ARGS are
2898 the arguments provided. *SIZE points to the total number of bytes
2899 required by the allocation, and is updated if that is changed here.
2900 *COOKIE_SIZE is non-NULL if a cookie should be used. If this
2901 function determines that no cookie should be used, after all,
2902 *COOKIE_SIZE is set to NULL_TREE. If FN is non-NULL, it will be
2903 set, upon return, to the allocation function called. */
2905 tree
2906 build_operator_new_call (tree fnname, tree args,
2907 tree *size, tree *cookie_size,
2908 tree *fn)
2910 tree fns;
2911 struct z_candidate *candidates;
2912 struct z_candidate *cand;
2913 bool any_viable_p;
2915 if (fn)
2916 *fn = NULL_TREE;
2917 args = tree_cons (NULL_TREE, *size, args);
2918 args = resolve_args (args);
2919 if (args == error_mark_node)
2920 return args;
2922 /* Based on:
2924 [expr.new]
2926 If this lookup fails to find the name, or if the allocated type
2927 is not a class type, the allocation function's name is looked
2928 up in the global scope.
2930 we disregard block-scope declarations of "operator new". */
2931 fns = lookup_function_nonclass (fnname, args, /*block_p=*/false);
2933 /* Figure out what function is being called. */
2934 cand = perform_overload_resolution (fns, args, &candidates, &any_viable_p);
2936 /* If no suitable function could be found, issue an error message
2937 and give up. */
2938 if (!cand)
2940 if (!any_viable_p)
2941 error ("no matching function for call to %<%D(%A)%>",
2942 DECL_NAME (OVL_CURRENT (fns)), args);
2943 else
2944 error ("call of overloaded %<%D(%A)%> is ambiguous",
2945 DECL_NAME (OVL_CURRENT (fns)), args);
2946 if (candidates)
2947 print_z_candidates (candidates);
2948 return error_mark_node;
2951 /* If a cookie is required, add some extra space. Whether
2952 or not a cookie is required cannot be determined until
2953 after we know which function was called. */
2954 if (*cookie_size)
2956 bool use_cookie = true;
2957 if (!abi_version_at_least (2))
2959 tree placement = TREE_CHAIN (args);
2960 /* In G++ 3.2, the check was implemented incorrectly; it
2961 looked at the placement expression, rather than the
2962 type of the function. */
2963 if (placement && !TREE_CHAIN (placement)
2964 && same_type_p (TREE_TYPE (TREE_VALUE (placement)),
2965 ptr_type_node))
2966 use_cookie = false;
2968 else
2970 tree arg_types;
2972 arg_types = TYPE_ARG_TYPES (TREE_TYPE (cand->fn));
2973 /* Skip the size_t parameter. */
2974 arg_types = TREE_CHAIN (arg_types);
2975 /* Check the remaining parameters (if any). */
2976 if (arg_types
2977 && TREE_CHAIN (arg_types) == void_list_node
2978 && same_type_p (TREE_VALUE (arg_types),
2979 ptr_type_node))
2980 use_cookie = false;
2982 /* If we need a cookie, adjust the number of bytes allocated. */
2983 if (use_cookie)
2985 /* Update the total size. */
2986 *size = size_binop (PLUS_EXPR, *size, *cookie_size);
2987 /* Update the argument list to reflect the adjusted size. */
2988 TREE_VALUE (args) = *size;
2990 else
2991 *cookie_size = NULL_TREE;
2994 /* Tell our caller which function we decided to call. */
2995 if (fn)
2996 *fn = cand->fn;
2998 /* Build the CALL_EXPR. */
2999 return build_over_call (cand, LOOKUP_NORMAL);
3002 static tree
3003 build_object_call (tree obj, tree args)
3005 struct z_candidate *candidates = 0, *cand;
3006 tree fns, convs, mem_args = NULL_TREE;
3007 tree type = TREE_TYPE (obj);
3008 bool any_viable_p;
3009 tree result = NULL_TREE;
3010 void *p;
3012 if (TYPE_PTRMEMFUNC_P (type))
3014 /* It's no good looking for an overloaded operator() on a
3015 pointer-to-member-function. */
3016 error ("pointer-to-member function %E cannot be called without an object; consider using .* or ->*", obj);
3017 return error_mark_node;
3020 if (TYPE_BINFO (type))
3022 fns = lookup_fnfields (TYPE_BINFO (type), ansi_opname (CALL_EXPR), 1);
3023 if (fns == error_mark_node)
3024 return error_mark_node;
3026 else
3027 fns = NULL_TREE;
3029 args = resolve_args (args);
3031 if (args == error_mark_node)
3032 return error_mark_node;
3034 /* Get the high-water mark for the CONVERSION_OBSTACK. */
3035 p = conversion_obstack_alloc (0);
3037 if (fns)
3039 tree base = BINFO_TYPE (BASELINK_BINFO (fns));
3040 mem_args = tree_cons (NULL_TREE, build_this (obj), args);
3042 for (fns = BASELINK_FUNCTIONS (fns); fns; fns = OVL_NEXT (fns))
3044 tree fn = OVL_CURRENT (fns);
3045 if (TREE_CODE (fn) == TEMPLATE_DECL)
3046 add_template_candidate (&candidates, fn, base, NULL_TREE,
3047 mem_args, NULL_TREE,
3048 TYPE_BINFO (type),
3049 TYPE_BINFO (type),
3050 LOOKUP_NORMAL, DEDUCE_CALL);
3051 else
3052 add_function_candidate
3053 (&candidates, fn, base, mem_args, TYPE_BINFO (type),
3054 TYPE_BINFO (type), LOOKUP_NORMAL);
3058 convs = lookup_conversions (type);
3060 for (; convs; convs = TREE_CHAIN (convs))
3062 tree fns = TREE_VALUE (convs);
3063 tree totype = TREE_TYPE (TREE_TYPE (OVL_CURRENT (fns)));
3065 if ((TREE_CODE (totype) == POINTER_TYPE
3066 && TREE_CODE (TREE_TYPE (totype)) == FUNCTION_TYPE)
3067 || (TREE_CODE (totype) == REFERENCE_TYPE
3068 && TREE_CODE (TREE_TYPE (totype)) == FUNCTION_TYPE)
3069 || (TREE_CODE (totype) == REFERENCE_TYPE
3070 && TREE_CODE (TREE_TYPE (totype)) == POINTER_TYPE
3071 && TREE_CODE (TREE_TYPE (TREE_TYPE (totype))) == FUNCTION_TYPE))
3072 for (; fns; fns = OVL_NEXT (fns))
3074 tree fn = OVL_CURRENT (fns);
3075 if (TREE_CODE (fn) == TEMPLATE_DECL)
3076 add_template_conv_candidate
3077 (&candidates, fn, obj, args, totype,
3078 /*access_path=*/NULL_TREE,
3079 /*conversion_path=*/NULL_TREE);
3080 else
3081 add_conv_candidate (&candidates, fn, obj, args,
3082 /*conversion_path=*/NULL_TREE,
3083 /*access_path=*/NULL_TREE);
3087 candidates = splice_viable (candidates, pedantic, &any_viable_p);
3088 if (!any_viable_p)
3090 error ("no match for call to %<(%T) (%A)%>", TREE_TYPE (obj), args);
3091 print_z_candidates (candidates);
3092 result = error_mark_node;
3094 else
3096 cand = tourney (candidates);
3097 if (cand == 0)
3099 error ("call of %<(%T) (%A)%> is ambiguous", TREE_TYPE (obj), args);
3100 print_z_candidates (candidates);
3101 result = error_mark_node;
3103 /* Since cand->fn will be a type, not a function, for a conversion
3104 function, we must be careful not to unconditionally look at
3105 DECL_NAME here. */
3106 else if (TREE_CODE (cand->fn) == FUNCTION_DECL
3107 && DECL_OVERLOADED_OPERATOR_P (cand->fn) == CALL_EXPR)
3108 result = build_over_call (cand, LOOKUP_NORMAL);
3109 else
3111 obj = convert_like_with_context (cand->convs[0], obj, cand->fn, -1);
3112 obj = convert_from_reference (obj);
3113 result = build_function_call (obj, args);
3117 /* Free all the conversions we allocated. */
3118 obstack_free (&conversion_obstack, p);
3120 return result;
3123 static void
3124 op_error (enum tree_code code, enum tree_code code2,
3125 tree arg1, tree arg2, tree arg3, const char *problem)
3127 const char *opname;
3129 if (code == MODIFY_EXPR)
3130 opname = assignment_operator_name_info[code2].name;
3131 else
3132 opname = operator_name_info[code].name;
3134 switch (code)
3136 case COND_EXPR:
3137 error ("%s for ternary %<operator?:%> in %<%E ? %E : %E%>",
3138 problem, arg1, arg2, arg3);
3139 break;
3141 case POSTINCREMENT_EXPR:
3142 case POSTDECREMENT_EXPR:
3143 error ("%s for %<operator%s%> in %<%E%s%>", problem, opname, arg1, opname);
3144 break;
3146 case ARRAY_REF:
3147 error ("%s for %<operator[]%> in %<%E[%E]%>", problem, arg1, arg2);
3148 break;
3150 case REALPART_EXPR:
3151 case IMAGPART_EXPR:
3152 error ("%s for %qs in %<%s %E%>", problem, opname, opname, arg1);
3153 break;
3155 default:
3156 if (arg2)
3157 error ("%s for %<operator%s%> in %<%E %s %E%>",
3158 problem, opname, arg1, opname, arg2);
3159 else
3160 error ("%s for %<operator%s%> in %<%s%E%>",
3161 problem, opname, opname, arg1);
3162 break;
3166 /* Return the implicit conversion sequence that could be used to
3167 convert E1 to E2 in [expr.cond]. */
3169 static conversion *
3170 conditional_conversion (tree e1, tree e2)
3172 tree t1 = non_reference (TREE_TYPE (e1));
3173 tree t2 = non_reference (TREE_TYPE (e2));
3174 conversion *conv;
3175 bool good_base;
3177 /* [expr.cond]
3179 If E2 is an lvalue: E1 can be converted to match E2 if E1 can be
3180 implicitly converted (clause _conv_) to the type "reference to
3181 T2", subject to the constraint that in the conversion the
3182 reference must bind directly (_dcl.init.ref_) to E1. */
3183 if (real_lvalue_p (e2))
3185 conv = implicit_conversion (build_reference_type (t2),
3188 /*c_cast_p=*/false,
3189 LOOKUP_NO_TEMP_BIND);
3190 if (conv)
3191 return conv;
3194 /* [expr.cond]
3196 If E1 and E2 have class type, and the underlying class types are
3197 the same or one is a base class of the other: E1 can be converted
3198 to match E2 if the class of T2 is the same type as, or a base
3199 class of, the class of T1, and the cv-qualification of T2 is the
3200 same cv-qualification as, or a greater cv-qualification than, the
3201 cv-qualification of T1. If the conversion is applied, E1 is
3202 changed to an rvalue of type T2 that still refers to the original
3203 source class object (or the appropriate subobject thereof). */
3204 if (CLASS_TYPE_P (t1) && CLASS_TYPE_P (t2)
3205 && ((good_base = DERIVED_FROM_P (t2, t1)) || DERIVED_FROM_P (t1, t2)))
3207 if (good_base && at_least_as_qualified_p (t2, t1))
3209 conv = build_identity_conv (t1, e1);
3210 if (!same_type_p (TYPE_MAIN_VARIANT (t1),
3211 TYPE_MAIN_VARIANT (t2)))
3212 conv = build_conv (ck_base, t2, conv);
3213 else
3214 conv = build_conv (ck_rvalue, t2, conv);
3215 return conv;
3217 else
3218 return NULL;
3220 else
3221 /* [expr.cond]
3223 Otherwise: E1 can be converted to match E2 if E1 can be implicitly
3224 converted to the type that expression E2 would have if E2 were
3225 converted to an rvalue (or the type it has, if E2 is an rvalue). */
3226 return implicit_conversion (t2, t1, e1, /*c_cast_p=*/false,
3227 LOOKUP_NORMAL);
3230 /* Implement [expr.cond]. ARG1, ARG2, and ARG3 are the three
3231 arguments to the conditional expression. */
3233 tree
3234 build_conditional_expr (tree arg1, tree arg2, tree arg3)
3236 tree arg2_type;
3237 tree arg3_type;
3238 tree result = NULL_TREE;
3239 tree result_type = NULL_TREE;
3240 bool lvalue_p = true;
3241 struct z_candidate *candidates = 0;
3242 struct z_candidate *cand;
3243 void *p;
3245 /* As a G++ extension, the second argument to the conditional can be
3246 omitted. (So that `a ? : c' is roughly equivalent to `a ? a :
3247 c'.) If the second operand is omitted, make sure it is
3248 calculated only once. */
3249 if (!arg2)
3251 if (pedantic)
3252 pedwarn ("ISO C++ forbids omitting the middle term of a ?: expression");
3254 /* Make sure that lvalues remain lvalues. See g++.oliva/ext1.C. */
3255 if (real_lvalue_p (arg1))
3256 arg2 = arg1 = stabilize_reference (arg1);
3257 else
3258 arg2 = arg1 = save_expr (arg1);
3261 /* [expr.cond]
3263 The first expr ession is implicitly converted to bool (clause
3264 _conv_). */
3265 arg1 = perform_implicit_conversion (boolean_type_node, arg1);
3267 /* If something has already gone wrong, just pass that fact up the
3268 tree. */
3269 if (error_operand_p (arg1)
3270 || error_operand_p (arg2)
3271 || error_operand_p (arg3))
3272 return error_mark_node;
3274 /* [expr.cond]
3276 If either the second or the third operand has type (possibly
3277 cv-qualified) void, then the lvalue-to-rvalue (_conv.lval_),
3278 array-to-pointer (_conv.array_), and function-to-pointer
3279 (_conv.func_) standard conversions are performed on the second
3280 and third operands. */
3281 arg2_type = unlowered_expr_type (arg2);
3282 arg3_type = unlowered_expr_type (arg3);
3283 if (VOID_TYPE_P (arg2_type) || VOID_TYPE_P (arg3_type))
3285 /* Do the conversions. We don't these for `void' type arguments
3286 since it can't have any effect and since decay_conversion
3287 does not handle that case gracefully. */
3288 if (!VOID_TYPE_P (arg2_type))
3289 arg2 = decay_conversion (arg2);
3290 if (!VOID_TYPE_P (arg3_type))
3291 arg3 = decay_conversion (arg3);
3292 arg2_type = TREE_TYPE (arg2);
3293 arg3_type = TREE_TYPE (arg3);
3295 /* [expr.cond]
3297 One of the following shall hold:
3299 --The second or the third operand (but not both) is a
3300 throw-expression (_except.throw_); the result is of the
3301 type of the other and is an rvalue.
3303 --Both the second and the third operands have type void; the
3304 result is of type void and is an rvalue.
3306 We must avoid calling force_rvalue for expressions of type
3307 "void" because it will complain that their value is being
3308 used. */
3309 if (TREE_CODE (arg2) == THROW_EXPR
3310 && TREE_CODE (arg3) != THROW_EXPR)
3312 if (!VOID_TYPE_P (arg3_type))
3313 arg3 = force_rvalue (arg3);
3314 arg3_type = TREE_TYPE (arg3);
3315 result_type = arg3_type;
3317 else if (TREE_CODE (arg2) != THROW_EXPR
3318 && TREE_CODE (arg3) == THROW_EXPR)
3320 if (!VOID_TYPE_P (arg2_type))
3321 arg2 = force_rvalue (arg2);
3322 arg2_type = TREE_TYPE (arg2);
3323 result_type = arg2_type;
3325 else if (VOID_TYPE_P (arg2_type) && VOID_TYPE_P (arg3_type))
3326 result_type = void_type_node;
3327 else
3329 if (VOID_TYPE_P (arg2_type))
3330 error ("second operand to the conditional operator "
3331 "is of type %<void%>, "
3332 "but the third operand is neither a throw-expression "
3333 "nor of type %<void%>");
3334 else
3335 error ("third operand to the conditional operator "
3336 "is of type %<void%>, "
3337 "but the second operand is neither a throw-expression "
3338 "nor of type %<void%>");
3339 return error_mark_node;
3342 lvalue_p = false;
3343 goto valid_operands;
3345 /* [expr.cond]
3347 Otherwise, if the second and third operand have different types,
3348 and either has (possibly cv-qualified) class type, an attempt is
3349 made to convert each of those operands to the type of the other. */
3350 else if (!same_type_p (arg2_type, arg3_type)
3351 && (CLASS_TYPE_P (arg2_type) || CLASS_TYPE_P (arg3_type)))
3353 conversion *conv2;
3354 conversion *conv3;
3356 /* Get the high-water mark for the CONVERSION_OBSTACK. */
3357 p = conversion_obstack_alloc (0);
3359 conv2 = conditional_conversion (arg2, arg3);
3360 conv3 = conditional_conversion (arg3, arg2);
3362 /* [expr.cond]
3364 If both can be converted, or one can be converted but the
3365 conversion is ambiguous, the program is ill-formed. If
3366 neither can be converted, the operands are left unchanged and
3367 further checking is performed as described below. If exactly
3368 one conversion is possible, that conversion is applied to the
3369 chosen operand and the converted operand is used in place of
3370 the original operand for the remainder of this section. */
3371 if ((conv2 && !conv2->bad_p
3372 && conv3 && !conv3->bad_p)
3373 || (conv2 && conv2->kind == ck_ambig)
3374 || (conv3 && conv3->kind == ck_ambig))
3376 error ("operands to ?: have different types %qT and %qT",
3377 arg2_type, arg3_type);
3378 result = error_mark_node;
3380 else if (conv2 && (!conv2->bad_p || !conv3))
3382 arg2 = convert_like (conv2, arg2);
3383 arg2 = convert_from_reference (arg2);
3384 arg2_type = TREE_TYPE (arg2);
3385 /* Even if CONV2 is a valid conversion, the result of the
3386 conversion may be invalid. For example, if ARG3 has type
3387 "volatile X", and X does not have a copy constructor
3388 accepting a "volatile X&", then even if ARG2 can be
3389 converted to X, the conversion will fail. */
3390 if (error_operand_p (arg2))
3391 result = error_mark_node;
3393 else if (conv3 && (!conv3->bad_p || !conv2))
3395 arg3 = convert_like (conv3, arg3);
3396 arg3 = convert_from_reference (arg3);
3397 arg3_type = TREE_TYPE (arg3);
3398 if (error_operand_p (arg3))
3399 result = error_mark_node;
3402 /* Free all the conversions we allocated. */
3403 obstack_free (&conversion_obstack, p);
3405 if (result)
3406 return result;
3408 /* If, after the conversion, both operands have class type,
3409 treat the cv-qualification of both operands as if it were the
3410 union of the cv-qualification of the operands.
3412 The standard is not clear about what to do in this
3413 circumstance. For example, if the first operand has type
3414 "const X" and the second operand has a user-defined
3415 conversion to "volatile X", what is the type of the second
3416 operand after this step? Making it be "const X" (matching
3417 the first operand) seems wrong, as that discards the
3418 qualification without actually performing a copy. Leaving it
3419 as "volatile X" seems wrong as that will result in the
3420 conditional expression failing altogether, even though,
3421 according to this step, the one operand could be converted to
3422 the type of the other. */
3423 if ((conv2 || conv3)
3424 && CLASS_TYPE_P (arg2_type)
3425 && TYPE_QUALS (arg2_type) != TYPE_QUALS (arg3_type))
3426 arg2_type = arg3_type =
3427 cp_build_qualified_type (arg2_type,
3428 TYPE_QUALS (arg2_type)
3429 | TYPE_QUALS (arg3_type));
3432 /* [expr.cond]
3434 If the second and third operands are lvalues and have the same
3435 type, the result is of that type and is an lvalue. */
3436 if (real_lvalue_p (arg2)
3437 && real_lvalue_p (arg3)
3438 && same_type_p (arg2_type, arg3_type))
3440 result_type = arg2_type;
3441 goto valid_operands;
3444 /* [expr.cond]
3446 Otherwise, the result is an rvalue. If the second and third
3447 operand do not have the same type, and either has (possibly
3448 cv-qualified) class type, overload resolution is used to
3449 determine the conversions (if any) to be applied to the operands
3450 (_over.match.oper_, _over.built_). */
3451 lvalue_p = false;
3452 if (!same_type_p (arg2_type, arg3_type)
3453 && (CLASS_TYPE_P (arg2_type) || CLASS_TYPE_P (arg3_type)))
3455 tree args[3];
3456 conversion *conv;
3457 bool any_viable_p;
3459 /* Rearrange the arguments so that add_builtin_candidate only has
3460 to know about two args. In build_builtin_candidates, the
3461 arguments are unscrambled. */
3462 args[0] = arg2;
3463 args[1] = arg3;
3464 args[2] = arg1;
3465 add_builtin_candidates (&candidates,
3466 COND_EXPR,
3467 NOP_EXPR,
3468 ansi_opname (COND_EXPR),
3469 args,
3470 LOOKUP_NORMAL);
3472 /* [expr.cond]
3474 If the overload resolution fails, the program is
3475 ill-formed. */
3476 candidates = splice_viable (candidates, pedantic, &any_viable_p);
3477 if (!any_viable_p)
3479 op_error (COND_EXPR, NOP_EXPR, arg1, arg2, arg3, "no match");
3480 print_z_candidates (candidates);
3481 return error_mark_node;
3483 cand = tourney (candidates);
3484 if (!cand)
3486 op_error (COND_EXPR, NOP_EXPR, arg1, arg2, arg3, "no match");
3487 print_z_candidates (candidates);
3488 return error_mark_node;
3491 /* [expr.cond]
3493 Otherwise, the conversions thus determined are applied, and
3494 the converted operands are used in place of the original
3495 operands for the remainder of this section. */
3496 conv = cand->convs[0];
3497 arg1 = convert_like (conv, arg1);
3498 conv = cand->convs[1];
3499 arg2 = convert_like (conv, arg2);
3500 conv = cand->convs[2];
3501 arg3 = convert_like (conv, arg3);
3504 /* [expr.cond]
3506 Lvalue-to-rvalue (_conv.lval_), array-to-pointer (_conv.array_),
3507 and function-to-pointer (_conv.func_) standard conversions are
3508 performed on the second and third operands.
3510 We need to force the lvalue-to-rvalue conversion here for class types,
3511 so we get TARGET_EXPRs; trying to deal with a COND_EXPR of class rvalues
3512 that isn't wrapped with a TARGET_EXPR plays havoc with exception
3513 regions. */
3515 arg2 = force_rvalue (arg2);
3516 if (!CLASS_TYPE_P (arg2_type))
3517 arg2_type = TREE_TYPE (arg2);
3519 arg3 = force_rvalue (arg3);
3520 if (!CLASS_TYPE_P (arg2_type))
3521 arg3_type = TREE_TYPE (arg3);
3523 if (arg2 == error_mark_node || arg3 == error_mark_node)
3524 return error_mark_node;
3526 /* [expr.cond]
3528 After those conversions, one of the following shall hold:
3530 --The second and third operands have the same type; the result is of
3531 that type. */
3532 if (same_type_p (arg2_type, arg3_type))
3533 result_type = arg2_type;
3534 /* [expr.cond]
3536 --The second and third operands have arithmetic or enumeration
3537 type; the usual arithmetic conversions are performed to bring
3538 them to a common type, and the result is of that type. */
3539 else if ((ARITHMETIC_TYPE_P (arg2_type)
3540 || TREE_CODE (arg2_type) == ENUMERAL_TYPE)
3541 && (ARITHMETIC_TYPE_P (arg3_type)
3542 || TREE_CODE (arg3_type) == ENUMERAL_TYPE))
3544 /* In this case, there is always a common type. */
3545 result_type = type_after_usual_arithmetic_conversions (arg2_type,
3546 arg3_type);
3548 if (TREE_CODE (arg2_type) == ENUMERAL_TYPE
3549 && TREE_CODE (arg3_type) == ENUMERAL_TYPE)
3550 warning (0, "enumeral mismatch in conditional expression: %qT vs %qT",
3551 arg2_type, arg3_type);
3552 else if (extra_warnings
3553 && ((TREE_CODE (arg2_type) == ENUMERAL_TYPE
3554 && !same_type_p (arg3_type, type_promotes_to (arg2_type)))
3555 || (TREE_CODE (arg3_type) == ENUMERAL_TYPE
3556 && !same_type_p (arg2_type, type_promotes_to (arg3_type)))))
3557 warning (0, "enumeral and non-enumeral type in conditional expression");
3559 arg2 = perform_implicit_conversion (result_type, arg2);
3560 arg3 = perform_implicit_conversion (result_type, arg3);
3562 /* [expr.cond]
3564 --The second and third operands have pointer type, or one has
3565 pointer type and the other is a null pointer constant; pointer
3566 conversions (_conv.ptr_) and qualification conversions
3567 (_conv.qual_) are performed to bring them to their composite
3568 pointer type (_expr.rel_). The result is of the composite
3569 pointer type.
3571 --The second and third operands have pointer to member type, or
3572 one has pointer to member type and the other is a null pointer
3573 constant; pointer to member conversions (_conv.mem_) and
3574 qualification conversions (_conv.qual_) are performed to bring
3575 them to a common type, whose cv-qualification shall match the
3576 cv-qualification of either the second or the third operand.
3577 The result is of the common type. */
3578 else if ((null_ptr_cst_p (arg2)
3579 && (TYPE_PTR_P (arg3_type) || TYPE_PTR_TO_MEMBER_P (arg3_type)))
3580 || (null_ptr_cst_p (arg3)
3581 && (TYPE_PTR_P (arg2_type) || TYPE_PTR_TO_MEMBER_P (arg2_type)))
3582 || (TYPE_PTR_P (arg2_type) && TYPE_PTR_P (arg3_type))
3583 || (TYPE_PTRMEM_P (arg2_type) && TYPE_PTRMEM_P (arg3_type))
3584 || (TYPE_PTRMEMFUNC_P (arg2_type) && TYPE_PTRMEMFUNC_P (arg3_type)))
3586 result_type = composite_pointer_type (arg2_type, arg3_type, arg2,
3587 arg3, "conditional expression");
3588 if (result_type == error_mark_node)
3589 return error_mark_node;
3590 arg2 = perform_implicit_conversion (result_type, arg2);
3591 arg3 = perform_implicit_conversion (result_type, arg3);
3594 if (!result_type)
3596 error ("operands to ?: have different types %qT and %qT",
3597 arg2_type, arg3_type);
3598 return error_mark_node;
3601 valid_operands:
3602 result = fold_if_not_in_template (build3 (COND_EXPR, result_type, arg1,
3603 arg2, arg3));
3604 /* We can't use result_type below, as fold might have returned a
3605 throw_expr. */
3607 if (!lvalue_p)
3609 /* Expand both sides into the same slot, hopefully the target of
3610 the ?: expression. We used to check for TARGET_EXPRs here,
3611 but now we sometimes wrap them in NOP_EXPRs so the test would
3612 fail. */
3613 if (CLASS_TYPE_P (TREE_TYPE (result)))
3614 result = get_target_expr (result);
3615 /* If this expression is an rvalue, but might be mistaken for an
3616 lvalue, we must add a NON_LVALUE_EXPR. */
3617 result = rvalue (result);
3620 return result;
3623 /* OPERAND is an operand to an expression. Perform necessary steps
3624 required before using it. If OPERAND is NULL_TREE, NULL_TREE is
3625 returned. */
3627 static tree
3628 prep_operand (tree operand)
3630 if (operand)
3632 if (CLASS_TYPE_P (TREE_TYPE (operand))
3633 && CLASSTYPE_TEMPLATE_INSTANTIATION (TREE_TYPE (operand)))
3634 /* Make sure the template type is instantiated now. */
3635 instantiate_class_template (TYPE_MAIN_VARIANT (TREE_TYPE (operand)));
3638 return operand;
3641 /* Add each of the viable functions in FNS (a FUNCTION_DECL or
3642 OVERLOAD) to the CANDIDATES, returning an updated list of
3643 CANDIDATES. The ARGS are the arguments provided to the call,
3644 without any implicit object parameter. The EXPLICIT_TARGS are
3645 explicit template arguments provided. TEMPLATE_ONLY is true if
3646 only template functions should be considered. CONVERSION_PATH,
3647 ACCESS_PATH, and FLAGS are as for add_function_candidate. */
3649 static void
3650 add_candidates (tree fns, tree args,
3651 tree explicit_targs, bool template_only,
3652 tree conversion_path, tree access_path,
3653 int flags,
3654 struct z_candidate **candidates)
3656 tree ctype;
3657 tree non_static_args;
3659 ctype = conversion_path ? BINFO_TYPE (conversion_path) : NULL_TREE;
3660 /* Delay creating the implicit this parameter until it is needed. */
3661 non_static_args = NULL_TREE;
3663 while (fns)
3665 tree fn;
3666 tree fn_args;
3668 fn = OVL_CURRENT (fns);
3669 /* Figure out which set of arguments to use. */
3670 if (DECL_NONSTATIC_MEMBER_FUNCTION_P (fn))
3672 /* If this function is a non-static member, prepend the implicit
3673 object parameter. */
3674 if (!non_static_args)
3675 non_static_args = tree_cons (NULL_TREE,
3676 build_this (TREE_VALUE (args)),
3677 TREE_CHAIN (args));
3678 fn_args = non_static_args;
3680 else
3681 /* Otherwise, just use the list of arguments provided. */
3682 fn_args = args;
3684 if (TREE_CODE (fn) == TEMPLATE_DECL)
3685 add_template_candidate (candidates,
3687 ctype,
3688 explicit_targs,
3689 fn_args,
3690 NULL_TREE,
3691 access_path,
3692 conversion_path,
3693 flags,
3694 DEDUCE_CALL);
3695 else if (!template_only)
3696 add_function_candidate (candidates,
3698 ctype,
3699 fn_args,
3700 access_path,
3701 conversion_path,
3702 flags);
3703 fns = OVL_NEXT (fns);
3707 tree
3708 build_new_op (enum tree_code code, int flags, tree arg1, tree arg2, tree arg3,
3709 bool *overloaded_p)
3711 struct z_candidate *candidates = 0, *cand;
3712 tree arglist, fnname;
3713 tree args[3];
3714 tree result = NULL_TREE;
3715 bool result_valid_p = false;
3716 enum tree_code code2 = NOP_EXPR;
3717 conversion *conv;
3718 void *p;
3719 bool strict_p;
3720 bool any_viable_p;
3721 bool expl_eq_arg1 = false;
3723 if (error_operand_p (arg1)
3724 || error_operand_p (arg2)
3725 || error_operand_p (arg3))
3726 return error_mark_node;
3728 if (code == MODIFY_EXPR)
3730 code2 = TREE_CODE (arg3);
3731 arg3 = NULL_TREE;
3732 fnname = ansi_assopname (code2);
3734 else
3735 fnname = ansi_opname (code);
3737 arg1 = prep_operand (arg1);
3739 switch (code)
3741 case NEW_EXPR:
3742 case VEC_NEW_EXPR:
3743 case VEC_DELETE_EXPR:
3744 case DELETE_EXPR:
3745 /* Use build_op_new_call and build_op_delete_call instead. */
3746 gcc_unreachable ();
3748 case CALL_EXPR:
3749 return build_object_call (arg1, arg2);
3751 case TRUTH_ORIF_EXPR:
3752 case TRUTH_ANDIF_EXPR:
3753 case TRUTH_AND_EXPR:
3754 case TRUTH_OR_EXPR:
3755 if (COMPARISON_CLASS_P (arg1))
3756 expl_eq_arg1 = true;
3757 default:
3758 break;
3761 arg2 = prep_operand (arg2);
3762 arg3 = prep_operand (arg3);
3764 if (code == COND_EXPR)
3766 if (arg2 == NULL_TREE
3767 || TREE_CODE (TREE_TYPE (arg2)) == VOID_TYPE
3768 || TREE_CODE (TREE_TYPE (arg3)) == VOID_TYPE
3769 || (! IS_OVERLOAD_TYPE (TREE_TYPE (arg2))
3770 && ! IS_OVERLOAD_TYPE (TREE_TYPE (arg3))))
3771 goto builtin;
3773 else if (! IS_OVERLOAD_TYPE (TREE_TYPE (arg1))
3774 && (! arg2 || ! IS_OVERLOAD_TYPE (TREE_TYPE (arg2))))
3775 goto builtin;
3777 if (code == POSTINCREMENT_EXPR || code == POSTDECREMENT_EXPR)
3778 arg2 = integer_zero_node;
3780 arglist = NULL_TREE;
3781 if (arg3)
3782 arglist = tree_cons (NULL_TREE, arg3, arglist);
3783 if (arg2)
3784 arglist = tree_cons (NULL_TREE, arg2, arglist);
3785 arglist = tree_cons (NULL_TREE, arg1, arglist);
3787 /* Get the high-water mark for the CONVERSION_OBSTACK. */
3788 p = conversion_obstack_alloc (0);
3790 /* Add namespace-scope operators to the list of functions to
3791 consider. */
3792 add_candidates (lookup_function_nonclass (fnname, arglist, /*block_p=*/true),
3793 arglist, NULL_TREE, false, NULL_TREE, NULL_TREE,
3794 flags, &candidates);
3795 /* Add class-member operators to the candidate set. */
3796 if (CLASS_TYPE_P (TREE_TYPE (arg1)))
3798 tree fns;
3800 fns = lookup_fnfields (TREE_TYPE (arg1), fnname, 1);
3801 if (fns == error_mark_node)
3803 result = error_mark_node;
3804 goto user_defined_result_ready;
3806 if (fns)
3807 add_candidates (BASELINK_FUNCTIONS (fns), arglist,
3808 NULL_TREE, false,
3809 BASELINK_BINFO (fns),
3810 TYPE_BINFO (TREE_TYPE (arg1)),
3811 flags, &candidates);
3814 /* Rearrange the arguments for ?: so that add_builtin_candidate only has
3815 to know about two args; a builtin candidate will always have a first
3816 parameter of type bool. We'll handle that in
3817 build_builtin_candidate. */
3818 if (code == COND_EXPR)
3820 args[0] = arg2;
3821 args[1] = arg3;
3822 args[2] = arg1;
3824 else
3826 args[0] = arg1;
3827 args[1] = arg2;
3828 args[2] = NULL_TREE;
3831 add_builtin_candidates (&candidates, code, code2, fnname, args, flags);
3833 switch (code)
3835 case COMPOUND_EXPR:
3836 case ADDR_EXPR:
3837 /* For these, the built-in candidates set is empty
3838 [over.match.oper]/3. We don't want non-strict matches
3839 because exact matches are always possible with built-in
3840 operators. The built-in candidate set for COMPONENT_REF
3841 would be empty too, but since there are no such built-in
3842 operators, we accept non-strict matches for them. */
3843 strict_p = true;
3844 break;
3846 default:
3847 strict_p = pedantic;
3848 break;
3851 candidates = splice_viable (candidates, strict_p, &any_viable_p);
3852 if (!any_viable_p)
3854 switch (code)
3856 case POSTINCREMENT_EXPR:
3857 case POSTDECREMENT_EXPR:
3858 /* Look for an `operator++ (int)'. If they didn't have
3859 one, then we fall back to the old way of doing things. */
3860 if (flags & LOOKUP_COMPLAIN)
3861 permerror ("no %<%D(int)%> declared for postfix %qs, "
3862 "trying prefix operator instead",
3863 fnname,
3864 operator_name_info[code].name);
3865 if (code == POSTINCREMENT_EXPR)
3866 code = PREINCREMENT_EXPR;
3867 else
3868 code = PREDECREMENT_EXPR;
3869 result = build_new_op (code, flags, arg1, NULL_TREE, NULL_TREE,
3870 overloaded_p);
3871 break;
3873 /* The caller will deal with these. */
3874 case ADDR_EXPR:
3875 case COMPOUND_EXPR:
3876 case COMPONENT_REF:
3877 result = NULL_TREE;
3878 result_valid_p = true;
3879 break;
3881 default:
3882 if (flags & LOOKUP_COMPLAIN)
3884 op_error (code, code2, arg1, arg2, arg3, "no match");
3885 print_z_candidates (candidates);
3887 result = error_mark_node;
3888 break;
3891 else
3893 cand = tourney (candidates);
3894 if (cand == 0)
3896 if (flags & LOOKUP_COMPLAIN)
3898 op_error (code, code2, arg1, arg2, arg3, "ambiguous overload");
3899 print_z_candidates (candidates);
3901 result = error_mark_node;
3903 else if (TREE_CODE (cand->fn) == FUNCTION_DECL)
3905 if (overloaded_p)
3906 *overloaded_p = true;
3908 if (resolve_args (arglist) == error_mark_node)
3909 result = error_mark_node;
3910 else
3911 result = build_over_call (cand, LOOKUP_NORMAL);
3913 else
3915 /* Give any warnings we noticed during overload resolution. */
3916 if (cand->warnings)
3918 struct candidate_warning *w;
3919 for (w = cand->warnings; w; w = w->next)
3920 joust (cand, w->loser, 1);
3923 /* Check for comparison of different enum types. */
3924 switch (code)
3926 case GT_EXPR:
3927 case LT_EXPR:
3928 case GE_EXPR:
3929 case LE_EXPR:
3930 case EQ_EXPR:
3931 case NE_EXPR:
3932 if (TREE_CODE (TREE_TYPE (arg1)) == ENUMERAL_TYPE
3933 && TREE_CODE (TREE_TYPE (arg2)) == ENUMERAL_TYPE
3934 && (TYPE_MAIN_VARIANT (TREE_TYPE (arg1))
3935 != TYPE_MAIN_VARIANT (TREE_TYPE (arg2))))
3937 warning (0, "comparison between %q#T and %q#T",
3938 TREE_TYPE (arg1), TREE_TYPE (arg2));
3940 break;
3941 default:
3942 break;
3945 /* We need to strip any leading REF_BIND so that bitfields
3946 don't cause errors. This should not remove any important
3947 conversions, because builtins don't apply to class
3948 objects directly. */
3949 conv = cand->convs[0];
3950 if (conv->kind == ck_ref_bind)
3951 conv = conv->u.next;
3952 arg1 = convert_like (conv, arg1);
3953 if (arg2)
3955 conv = cand->convs[1];
3956 if (conv->kind == ck_ref_bind)
3957 conv = conv->u.next;
3958 arg2 = convert_like (conv, arg2);
3960 if (arg3)
3962 conv = cand->convs[2];
3963 if (conv->kind == ck_ref_bind)
3964 conv = conv->u.next;
3965 arg3 = convert_like (conv, arg3);
3968 if (!expl_eq_arg1)
3970 warn_logical_operator (code, arg1, arg2);
3971 expl_eq_arg1 = true;
3976 user_defined_result_ready:
3978 /* Free all the conversions we allocated. */
3979 obstack_free (&conversion_obstack, p);
3981 if (result || result_valid_p)
3982 return result;
3984 builtin:
3985 switch (code)
3987 case MODIFY_EXPR:
3988 return build_modify_expr (arg1, code2, arg2);
3990 case INDIRECT_REF:
3991 return build_indirect_ref (arg1, "unary *");
3993 case TRUTH_ANDIF_EXPR:
3994 case TRUTH_ORIF_EXPR:
3995 case TRUTH_AND_EXPR:
3996 case TRUTH_OR_EXPR:
3997 if (!expl_eq_arg1)
3998 warn_logical_operator (code, arg1, arg2);
3999 case PLUS_EXPR:
4000 case MINUS_EXPR:
4001 case MULT_EXPR:
4002 case TRUNC_DIV_EXPR:
4003 case GT_EXPR:
4004 case LT_EXPR:
4005 case GE_EXPR:
4006 case LE_EXPR:
4007 case EQ_EXPR:
4008 case NE_EXPR:
4009 case MAX_EXPR:
4010 case MIN_EXPR:
4011 case LSHIFT_EXPR:
4012 case RSHIFT_EXPR:
4013 case TRUNC_MOD_EXPR:
4014 case BIT_AND_EXPR:
4015 case BIT_IOR_EXPR:
4016 case BIT_XOR_EXPR:
4017 return cp_build_binary_op (code, arg1, arg2);
4019 case UNARY_PLUS_EXPR:
4020 case NEGATE_EXPR:
4021 case BIT_NOT_EXPR:
4022 case TRUTH_NOT_EXPR:
4023 case PREINCREMENT_EXPR:
4024 case POSTINCREMENT_EXPR:
4025 case PREDECREMENT_EXPR:
4026 case POSTDECREMENT_EXPR:
4027 case REALPART_EXPR:
4028 case IMAGPART_EXPR:
4029 return build_unary_op (code, arg1, candidates != 0);
4031 case ARRAY_REF:
4032 return build_array_ref (arg1, arg2);
4034 case COND_EXPR:
4035 return build_conditional_expr (arg1, arg2, arg3);
4037 case MEMBER_REF:
4038 return build_m_component_ref (build_indirect_ref (arg1, NULL), arg2);
4040 /* The caller will deal with these. */
4041 case ADDR_EXPR:
4042 case COMPONENT_REF:
4043 case COMPOUND_EXPR:
4044 return NULL_TREE;
4046 default:
4047 gcc_unreachable ();
4049 return NULL_TREE;
4052 /* Build a call to operator delete. This has to be handled very specially,
4053 because the restrictions on what signatures match are different from all
4054 other call instances. For a normal delete, only a delete taking (void *)
4055 or (void *, size_t) is accepted. For a placement delete, only an exact
4056 match with the placement new is accepted.
4058 CODE is either DELETE_EXPR or VEC_DELETE_EXPR.
4059 ADDR is the pointer to be deleted.
4060 SIZE is the size of the memory block to be deleted.
4061 GLOBAL_P is true if the delete-expression should not consider
4062 class-specific delete operators.
4063 PLACEMENT is the corresponding placement new call, or NULL_TREE.
4065 If this call to "operator delete" is being generated as part to
4066 deallocate memory allocated via a new-expression (as per [expr.new]
4067 which requires that if the initialization throws an exception then
4068 we call a deallocation function), then ALLOC_FN is the allocation
4069 function. */
4071 tree
4072 build_op_delete_call (enum tree_code code, tree addr, tree size,
4073 bool global_p, tree placement,
4074 tree alloc_fn)
4076 tree fn = NULL_TREE;
4077 tree fns, fnname, argtypes, type;
4078 int pass;
4080 if (addr == error_mark_node)
4081 return error_mark_node;
4083 type = strip_array_types (TREE_TYPE (TREE_TYPE (addr)));
4085 fnname = ansi_opname (code);
4087 if (CLASS_TYPE_P (type)
4088 && COMPLETE_TYPE_P (complete_type (type))
4089 && !global_p)
4090 /* In [class.free]
4092 If the result of the lookup is ambiguous or inaccessible, or if
4093 the lookup selects a placement deallocation function, the
4094 program is ill-formed.
4096 Therefore, we ask lookup_fnfields to complain about ambiguity. */
4098 fns = lookup_fnfields (TYPE_BINFO (type), fnname, 1);
4099 if (fns == error_mark_node)
4100 return error_mark_node;
4102 else
4103 fns = NULL_TREE;
4105 if (fns == NULL_TREE)
4106 fns = lookup_name_nonclass (fnname);
4108 /* Strip const and volatile from addr. */
4109 addr = cp_convert (ptr_type_node, addr);
4111 if (placement)
4113 /* Get the parameter types for the allocation function that is
4114 being called. */
4115 gcc_assert (alloc_fn != NULL_TREE);
4116 argtypes = TREE_CHAIN (TYPE_ARG_TYPES (TREE_TYPE (alloc_fn)));
4118 else
4120 /* First try it without the size argument. */
4121 argtypes = void_list_node;
4124 /* We make two tries at finding a matching `operator delete'. On
4125 the first pass, we look for a one-operator (or placement)
4126 operator delete. If we're not doing placement delete, then on
4127 the second pass we look for a two-argument delete. */
4128 for (pass = 0; pass < (placement ? 1 : 2); ++pass)
4130 /* Go through the `operator delete' functions looking for one
4131 with a matching type. */
4132 for (fn = BASELINK_P (fns) ? BASELINK_FUNCTIONS (fns) : fns;
4134 fn = OVL_NEXT (fn))
4136 tree t;
4138 /* The first argument must be "void *". */
4139 t = TYPE_ARG_TYPES (TREE_TYPE (OVL_CURRENT (fn)));
4140 if (!same_type_p (TREE_VALUE (t), ptr_type_node))
4141 continue;
4142 t = TREE_CHAIN (t);
4143 /* On the first pass, check the rest of the arguments. */
4144 if (pass == 0)
4146 tree a = argtypes;
4147 while (a && t)
4149 if (!same_type_p (TREE_VALUE (a), TREE_VALUE (t)))
4150 break;
4151 a = TREE_CHAIN (a);
4152 t = TREE_CHAIN (t);
4154 if (!a && !t)
4155 break;
4157 /* On the second pass, look for a function with exactly two
4158 arguments: "void *" and "size_t". */
4159 else if (pass == 1
4160 /* For "operator delete(void *, ...)" there will be
4161 no second argument, but we will not get an exact
4162 match above. */
4163 && t
4164 && same_type_p (TREE_VALUE (t), size_type_node)
4165 && TREE_CHAIN (t) == void_list_node)
4166 break;
4169 /* If we found a match, we're done. */
4170 if (fn)
4171 break;
4174 /* If we have a matching function, call it. */
4175 if (fn)
4177 /* Make sure we have the actual function, and not an
4178 OVERLOAD. */
4179 fn = OVL_CURRENT (fn);
4181 /* If the FN is a member function, make sure that it is
4182 accessible. */
4183 if (DECL_CLASS_SCOPE_P (fn))
4184 perform_or_defer_access_check (TYPE_BINFO (type), fn, fn);
4186 if (placement)
4188 /* The placement args might not be suitable for overload
4189 resolution at this point, so build the call directly. */
4190 int nargs = call_expr_nargs (placement);
4191 tree *argarray = (tree *) alloca (nargs * sizeof (tree));
4192 int i;
4193 argarray[0] = addr;
4194 for (i = 1; i < nargs; i++)
4195 argarray[i] = CALL_EXPR_ARG (placement, i);
4196 mark_used (fn);
4197 return build_cxx_call (fn, nargs, argarray);
4199 else
4201 tree args;
4202 if (pass == 0)
4203 args = tree_cons (NULL_TREE, addr, NULL_TREE);
4204 else
4205 args = tree_cons (NULL_TREE, addr,
4206 build_tree_list (NULL_TREE, size));
4207 return build_function_call (fn, args);
4211 /* [expr.new]
4213 If no unambiguous matching deallocation function can be found,
4214 propagating the exception does not cause the object's memory to
4215 be freed. */
4216 if (alloc_fn)
4218 if (!placement)
4219 warning (0, "no corresponding deallocation function for `%D'",
4220 alloc_fn);
4221 return NULL_TREE;
4224 error ("no suitable %<operator %s%> for %qT",
4225 operator_name_info[(int)code].name, type);
4226 return error_mark_node;
4229 /* If the current scope isn't allowed to access DECL along
4230 BASETYPE_PATH, give an error. The most derived class in
4231 BASETYPE_PATH is the one used to qualify DECL. DIAG_DECL is
4232 the declaration to use in the error diagnostic. */
4234 bool
4235 enforce_access (tree basetype_path, tree decl, tree diag_decl)
4237 gcc_assert (TREE_CODE (basetype_path) == TREE_BINFO);
4239 if (!accessible_p (basetype_path, decl, true))
4241 if (TREE_PRIVATE (decl))
4242 error ("%q+#D is private", diag_decl);
4243 else if (TREE_PROTECTED (decl))
4244 error ("%q+#D is protected", diag_decl);
4245 else
4246 error ("%q+#D is inaccessible", diag_decl);
4247 error ("within this context");
4248 return false;
4251 return true;
4254 /* Initialize a temporary of type TYPE with EXPR. The FLAGS are a
4255 bitwise or of LOOKUP_* values. If any errors are warnings are
4256 generated, set *DIAGNOSTIC_FN to "error" or "warning",
4257 respectively. If no diagnostics are generated, set *DIAGNOSTIC_FN
4258 to NULL. */
4260 static tree
4261 build_temp (tree expr, tree type, int flags,
4262 diagnostic_fn_t *diagnostic_fn)
4264 int savew, savee;
4266 savew = warningcount, savee = errorcount;
4267 expr = build_special_member_call (NULL_TREE,
4268 complete_ctor_identifier,
4269 build_tree_list (NULL_TREE, expr),
4270 type, flags);
4271 if (warningcount > savew)
4272 *diagnostic_fn = warning0;
4273 else if (errorcount > savee)
4274 *diagnostic_fn = error;
4275 else
4276 *diagnostic_fn = NULL;
4277 return expr;
4280 /* Perform warnings about peculiar, but valid, conversions from/to NULL.
4281 EXPR is implicitly converted to type TOTYPE.
4282 FN and ARGNUM are used for diagnostics. */
4284 static void
4285 conversion_null_warnings (tree totype, tree expr, tree fn, int argnum)
4287 tree t = non_reference (totype);
4289 /* Issue warnings about peculiar, but valid, uses of NULL. */
4290 if (expr == null_node && TREE_CODE (t) != BOOLEAN_TYPE && ARITHMETIC_TYPE_P (t))
4292 if (fn)
4293 warning (OPT_Wconversion, "passing NULL to non-pointer argument %P of %qD",
4294 argnum, fn);
4295 else
4296 warning (OPT_Wconversion, "converting to non-pointer type %qT from NULL", t);
4299 /* Issue warnings if "false" is converted to a NULL pointer */
4300 else if (expr == boolean_false_node && fn && POINTER_TYPE_P (t))
4301 warning (OPT_Wconversion,
4302 "converting %<false%> to pointer type for argument %P of %qD",
4303 argnum, fn);
4306 /* Perform the conversions in CONVS on the expression EXPR. FN and
4307 ARGNUM are used for diagnostics. ARGNUM is zero based, -1
4308 indicates the `this' argument of a method. INNER is nonzero when
4309 being called to continue a conversion chain. It is negative when a
4310 reference binding will be applied, positive otherwise. If
4311 ISSUE_CONVERSION_WARNINGS is true, warnings about suspicious
4312 conversions will be emitted if appropriate. If C_CAST_P is true,
4313 this conversion is coming from a C-style cast; in that case,
4314 conversions to inaccessible bases are permitted. */
4316 static tree
4317 convert_like_real (conversion *convs, tree expr, tree fn, int argnum,
4318 int inner, bool issue_conversion_warnings,
4319 bool c_cast_p)
4321 tree totype = convs->type;
4322 diagnostic_fn_t diagnostic_fn;
4323 int flags;
4325 if (convs->bad_p
4326 && convs->kind != ck_user
4327 && convs->kind != ck_ambig
4328 && convs->kind != ck_ref_bind)
4330 conversion *t = convs;
4331 for (; t; t = convs->u.next)
4333 if (t->kind == ck_user || !t->bad_p)
4335 expr = convert_like_real (t, expr, fn, argnum, 1,
4336 /*issue_conversion_warnings=*/false,
4337 /*c_cast_p=*/false);
4338 break;
4340 else if (t->kind == ck_ambig)
4341 return convert_like_real (t, expr, fn, argnum, 1,
4342 /*issue_conversion_warnings=*/false,
4343 /*c_cast_p=*/false);
4344 else if (t->kind == ck_identity)
4345 break;
4347 permerror ("invalid conversion from %qT to %qT", TREE_TYPE (expr), totype);
4348 if (fn)
4349 permerror (" initializing argument %P of %qD", argnum, fn);
4350 return cp_convert (totype, expr);
4353 if (issue_conversion_warnings)
4354 conversion_null_warnings (totype, expr, fn, argnum);
4356 switch (convs->kind)
4358 case ck_user:
4360 struct z_candidate *cand = convs->cand;
4361 tree convfn = cand->fn;
4362 unsigned i;
4364 /* Set user_conv_p on the argument conversions, so rvalue/base
4365 handling knows not to allow any more UDCs. */
4366 for (i = 0; i < cand->num_convs; ++i)
4367 cand->convs[i]->user_conv_p = true;
4369 expr = build_over_call (cand, LOOKUP_NORMAL);
4371 /* If this is a constructor or a function returning an aggr type,
4372 we need to build up a TARGET_EXPR. */
4373 if (DECL_CONSTRUCTOR_P (convfn))
4374 expr = build_cplus_new (totype, expr);
4376 /* The result of the call is then used to direct-initialize the object
4377 that is the destination of the copy-initialization. [dcl.init]
4379 Note that this step is not reflected in the conversion sequence;
4380 it affects the semantics when we actually perform the
4381 conversion, but is not considered during overload resolution.
4383 If the target is a class, that means call a ctor. */
4384 if (IS_AGGR_TYPE (totype)
4385 && (inner >= 0 || !lvalue_p (expr)))
4387 expr = (build_temp
4388 (expr, totype,
4389 /* Core issue 84, now a DR, says that we don't
4390 allow UDCs for these args (which deliberately
4391 breaks copy-init of an auto_ptr<Base> from an
4392 auto_ptr<Derived>). */
4393 LOOKUP_NORMAL|LOOKUP_ONLYCONVERTING|LOOKUP_NO_CONVERSION,
4394 &diagnostic_fn));
4396 if (diagnostic_fn)
4398 if (fn)
4399 diagnostic_fn
4400 (" initializing argument %P of %qD from result of %qD",
4401 argnum, fn, convfn);
4402 else
4403 diagnostic_fn
4404 (" initializing temporary from result of %qD", convfn);
4406 expr = build_cplus_new (totype, expr);
4408 return expr;
4410 case ck_identity:
4411 if (type_unknown_p (expr))
4412 expr = instantiate_type (totype, expr, tf_warning_or_error);
4413 /* Convert a constant to its underlying value, unless we are
4414 about to bind it to a reference, in which case we need to
4415 leave it as an lvalue. */
4416 if (inner >= 0)
4418 expr = decl_constant_value (expr);
4419 if (expr == null_node && INTEGRAL_TYPE_P (totype))
4420 /* If __null has been converted to an integer type, we do not
4421 want to warn about uses of EXPR as an integer, rather than
4422 as a pointer. */
4423 expr = build_int_cst (totype, 0);
4425 return expr;
4426 case ck_ambig:
4427 /* Call build_user_type_conversion again for the error. */
4428 return build_user_type_conversion
4429 (totype, convs->u.expr, LOOKUP_NORMAL);
4431 default:
4432 break;
4435 expr = convert_like_real (convs->u.next, expr, fn, argnum,
4436 convs->kind == ck_ref_bind ? -1 : 1,
4437 convs->kind == ck_ref_bind ? issue_conversion_warnings : false,
4438 c_cast_p);
4439 if (expr == error_mark_node)
4440 return error_mark_node;
4442 switch (convs->kind)
4444 case ck_rvalue:
4445 expr = convert_bitfield_to_declared_type (expr);
4446 if (! IS_AGGR_TYPE (totype))
4447 return expr;
4448 /* Else fall through. */
4449 case ck_base:
4450 if (convs->kind == ck_base && !convs->need_temporary_p)
4452 /* We are going to bind a reference directly to a base-class
4453 subobject of EXPR. */
4454 /* Build an expression for `*((base*) &expr)'. */
4455 expr = build_unary_op (ADDR_EXPR, expr, 0);
4456 expr = convert_to_base (expr, build_pointer_type (totype),
4457 !c_cast_p, /*nonnull=*/true);
4458 expr = build_indirect_ref (expr, "implicit conversion");
4459 return expr;
4462 /* Copy-initialization where the cv-unqualified version of the source
4463 type is the same class as, or a derived class of, the class of the
4464 destination [is treated as direct-initialization]. [dcl.init] */
4465 flags = LOOKUP_NORMAL|LOOKUP_ONLYCONVERTING;
4466 if (convs->user_conv_p)
4467 /* This conversion is being done in the context of a user-defined
4468 conversion, so don't allow any more. */
4469 flags |= LOOKUP_NO_CONVERSION;
4470 expr = build_temp (expr, totype, flags, &diagnostic_fn);
4471 if (diagnostic_fn && fn)
4472 diagnostic_fn (" initializing argument %P of %qD", argnum, fn);
4473 return build_cplus_new (totype, expr);
4475 case ck_ref_bind:
4477 tree ref_type = totype;
4479 /* If necessary, create a temporary.
4481 VA_ARG_EXPR and CONSTRUCTOR expressions are special cases
4482 that need temporaries, even when their types are reference
4483 compatible with the type of reference being bound, so the
4484 upcoming call to build_unary_op (ADDR_EXPR, expr, ...)
4485 doesn't fail. */
4486 if (convs->need_temporary_p
4487 || TREE_CODE (expr) == CONSTRUCTOR
4488 || TREE_CODE (expr) == VA_ARG_EXPR)
4490 tree type = convs->u.next->type;
4491 cp_lvalue_kind lvalue = real_lvalue_p (expr);
4493 if (!CP_TYPE_CONST_NON_VOLATILE_P (TREE_TYPE (ref_type))
4494 && !TYPE_REF_IS_RVALUE (ref_type))
4496 /* If the reference is volatile or non-const, we
4497 cannot create a temporary. */
4498 if (lvalue & clk_bitfield)
4499 error ("cannot bind bitfield %qE to %qT",
4500 expr, ref_type);
4501 else if (lvalue & clk_packed)
4502 error ("cannot bind packed field %qE to %qT",
4503 expr, ref_type);
4504 else
4505 error ("cannot bind rvalue %qE to %qT", expr, ref_type);
4506 return error_mark_node;
4508 /* If the source is a packed field, and we must use a copy
4509 constructor, then building the target expr will require
4510 binding the field to the reference parameter to the
4511 copy constructor, and we'll end up with an infinite
4512 loop. If we can use a bitwise copy, then we'll be
4513 OK. */
4514 if ((lvalue & clk_packed)
4515 && CLASS_TYPE_P (type)
4516 && !TYPE_HAS_TRIVIAL_INIT_REF (type))
4518 error ("cannot bind packed field %qE to %qT",
4519 expr, ref_type);
4520 return error_mark_node;
4522 if (lvalue & clk_bitfield)
4523 expr = convert_bitfield_to_declared_type (expr);
4524 expr = build_target_expr_with_type (expr, type);
4527 /* Take the address of the thing to which we will bind the
4528 reference. */
4529 expr = build_unary_op (ADDR_EXPR, expr, 1);
4530 if (expr == error_mark_node)
4531 return error_mark_node;
4533 /* Convert it to a pointer to the type referred to by the
4534 reference. This will adjust the pointer if a derived to
4535 base conversion is being performed. */
4536 expr = cp_convert (build_pointer_type (TREE_TYPE (ref_type)),
4537 expr);
4538 /* Convert the pointer to the desired reference type. */
4539 return build_nop (ref_type, expr);
4542 case ck_lvalue:
4543 return decay_conversion (expr);
4545 case ck_qual:
4546 /* Warn about deprecated conversion if appropriate. */
4547 string_conv_p (totype, expr, 1);
4548 break;
4550 case ck_ptr:
4551 if (convs->base_p)
4552 expr = convert_to_base (expr, totype, !c_cast_p,
4553 /*nonnull=*/false);
4554 return build_nop (totype, expr);
4556 case ck_pmem:
4557 return convert_ptrmem (totype, expr, /*allow_inverse_p=*/false,
4558 c_cast_p);
4560 default:
4561 break;
4564 if (issue_conversion_warnings)
4565 expr = convert_and_check (totype, expr);
4566 else
4567 expr = convert (totype, expr);
4569 return expr;
4572 /* Build a call to __builtin_trap. */
4574 static tree
4575 call_builtin_trap (void)
4577 tree fn = implicit_built_in_decls[BUILT_IN_TRAP];
4579 gcc_assert (fn != NULL);
4580 fn = build_call_n (fn, 0);
4581 return fn;
4584 /* ARG is being passed to a varargs function. Perform any conversions
4585 required. Return the converted value. */
4587 tree
4588 convert_arg_to_ellipsis (tree arg)
4590 /* [expr.call]
4592 The lvalue-to-rvalue, array-to-pointer, and function-to-pointer
4593 standard conversions are performed. */
4594 arg = decay_conversion (arg);
4595 /* [expr.call]
4597 If the argument has integral or enumeration type that is subject
4598 to the integral promotions (_conv.prom_), or a floating point
4599 type that is subject to the floating point promotion
4600 (_conv.fpprom_), the value of the argument is converted to the
4601 promoted type before the call. */
4602 if (TREE_CODE (TREE_TYPE (arg)) == REAL_TYPE
4603 && (TYPE_PRECISION (TREE_TYPE (arg))
4604 < TYPE_PRECISION (double_type_node)))
4605 arg = convert_to_real (double_type_node, arg);
4606 else if (INTEGRAL_OR_ENUMERATION_TYPE_P (TREE_TYPE (arg)))
4607 arg = perform_integral_promotions (arg);
4609 arg = require_complete_type (arg);
4611 if (arg != error_mark_node
4612 && !pod_type_p (TREE_TYPE (arg)))
4614 /* Undefined behavior [expr.call] 5.2.2/7. We used to just warn
4615 here and do a bitwise copy, but now cp_expr_size will abort if we
4616 try to do that.
4617 If the call appears in the context of a sizeof expression,
4618 there is no need to emit a warning, since the expression won't be
4619 evaluated. We keep the builtin_trap just as a safety check. */
4620 if (!skip_evaluation)
4621 warning (0, "cannot pass objects of non-POD type %q#T through %<...%>; "
4622 "call will abort at runtime", TREE_TYPE (arg));
4623 arg = call_builtin_trap ();
4624 arg = build2 (COMPOUND_EXPR, integer_type_node, arg,
4625 integer_zero_node);
4628 return arg;
4631 /* va_arg (EXPR, TYPE) is a builtin. Make sure it is not abused. */
4633 tree
4634 build_x_va_arg (tree expr, tree type)
4636 if (processing_template_decl)
4637 return build_min (VA_ARG_EXPR, type, expr);
4639 type = complete_type_or_else (type, NULL_TREE);
4641 if (expr == error_mark_node || !type)
4642 return error_mark_node;
4644 if (! pod_type_p (type))
4646 /* Remove reference types so we don't ICE later on. */
4647 tree type1 = non_reference (type);
4648 /* Undefined behavior [expr.call] 5.2.2/7. */
4649 warning (0, "cannot receive objects of non-POD type %q#T through %<...%>; "
4650 "call will abort at runtime", type);
4651 expr = convert (build_pointer_type (type1), null_node);
4652 expr = build2 (COMPOUND_EXPR, TREE_TYPE (expr),
4653 call_builtin_trap (), expr);
4654 expr = build_indirect_ref (expr, NULL);
4655 return expr;
4658 return build_va_arg (expr, type);
4661 /* TYPE has been given to va_arg. Apply the default conversions which
4662 would have happened when passed via ellipsis. Return the promoted
4663 type, or the passed type if there is no change. */
4665 tree
4666 cxx_type_promotes_to (tree type)
4668 tree promote;
4670 /* Perform the array-to-pointer and function-to-pointer
4671 conversions. */
4672 type = type_decays_to (type);
4674 promote = type_promotes_to (type);
4675 if (same_type_p (type, promote))
4676 promote = type;
4678 return promote;
4681 /* ARG is a default argument expression being passed to a parameter of
4682 the indicated TYPE, which is a parameter to FN. Do any required
4683 conversions. Return the converted value. */
4685 static GTY(()) VEC(tree,gc) *default_arg_context;
4687 tree
4688 convert_default_arg (tree type, tree arg, tree fn, int parmnum)
4690 int i;
4691 tree t;
4693 /* If the ARG is an unparsed default argument expression, the
4694 conversion cannot be performed. */
4695 if (TREE_CODE (arg) == DEFAULT_ARG)
4697 error ("the default argument for parameter %d of %qD has "
4698 "not yet been parsed",
4699 parmnum, fn);
4700 return error_mark_node;
4703 /* Detect recursion. */
4704 for (i = 0; VEC_iterate (tree, default_arg_context, i, t); ++i)
4705 if (t == fn)
4707 error ("recursive evaluation of default argument for %q#D", fn);
4708 return error_mark_node;
4710 VEC_safe_push (tree, gc, default_arg_context, fn);
4712 if (fn && DECL_TEMPLATE_INFO (fn))
4713 arg = tsubst_default_argument (fn, type, arg);
4715 arg = break_out_target_exprs (arg);
4717 if (TREE_CODE (arg) == CONSTRUCTOR)
4719 arg = digest_init (type, arg);
4720 arg = convert_for_initialization (0, type, arg, LOOKUP_NORMAL,
4721 "default argument", fn, parmnum);
4723 else
4725 /* We must make a copy of ARG, in case subsequent processing
4726 alters any part of it. For example, during gimplification a
4727 cast of the form (T) &X::f (where "f" is a member function)
4728 will lead to replacing the PTRMEM_CST for &X::f with a
4729 VAR_DECL. We can avoid the copy for constants, since they
4730 are never modified in place. */
4731 if (!CONSTANT_CLASS_P (arg))
4732 arg = unshare_expr (arg);
4733 arg = convert_for_initialization (0, type, arg, LOOKUP_NORMAL,
4734 "default argument", fn, parmnum);
4735 arg = convert_for_arg_passing (type, arg);
4738 VEC_pop (tree, default_arg_context);
4740 return arg;
4743 /* Returns the type which will really be used for passing an argument of
4744 type TYPE. */
4746 tree
4747 type_passed_as (tree type)
4749 /* Pass classes with copy ctors by invisible reference. */
4750 if (TREE_ADDRESSABLE (type))
4752 type = build_reference_type (type);
4753 /* There are no other pointers to this temporary. */
4754 type = build_qualified_type (type, TYPE_QUAL_RESTRICT);
4756 else if (targetm.calls.promote_prototypes (type)
4757 && INTEGRAL_TYPE_P (type)
4758 && COMPLETE_TYPE_P (type)
4759 && INT_CST_LT_UNSIGNED (TYPE_SIZE (type),
4760 TYPE_SIZE (integer_type_node)))
4761 type = integer_type_node;
4763 return type;
4766 /* Actually perform the appropriate conversion. */
4768 tree
4769 convert_for_arg_passing (tree type, tree val)
4771 tree bitfield_type;
4773 /* If VAL is a bitfield, then -- since it has already been converted
4774 to TYPE -- it cannot have a precision greater than TYPE.
4776 If it has a smaller precision, we must widen it here. For
4777 example, passing "int f:3;" to a function expecting an "int" will
4778 not result in any conversion before this point.
4780 If the precision is the same we must not risk widening. For
4781 example, the COMPONENT_REF for a 32-bit "long long" bitfield will
4782 often have type "int", even though the C++ type for the field is
4783 "long long". If the value is being passed to a function
4784 expecting an "int", then no conversions will be required. But,
4785 if we call convert_bitfield_to_declared_type, the bitfield will
4786 be converted to "long long". */
4787 bitfield_type = is_bitfield_expr_with_lowered_type (val);
4788 if (bitfield_type
4789 && TYPE_PRECISION (TREE_TYPE (val)) < TYPE_PRECISION (type))
4790 val = convert_to_integer (TYPE_MAIN_VARIANT (bitfield_type), val);
4792 if (val == error_mark_node)
4794 /* Pass classes with copy ctors by invisible reference. */
4795 else if (TREE_ADDRESSABLE (type))
4796 val = build1 (ADDR_EXPR, build_reference_type (type), val);
4797 else if (targetm.calls.promote_prototypes (type)
4798 && INTEGRAL_TYPE_P (type)
4799 && COMPLETE_TYPE_P (type)
4800 && INT_CST_LT_UNSIGNED (TYPE_SIZE (type),
4801 TYPE_SIZE (integer_type_node)))
4802 val = perform_integral_promotions (val);
4803 if (warn_missing_format_attribute)
4805 tree rhstype = TREE_TYPE (val);
4806 const enum tree_code coder = TREE_CODE (rhstype);
4807 const enum tree_code codel = TREE_CODE (type);
4808 if ((codel == POINTER_TYPE || codel == REFERENCE_TYPE)
4809 && coder == codel
4810 && check_missing_format_attribute (type, rhstype))
4811 warning (OPT_Wmissing_format_attribute,
4812 "argument of function call might be a candidate for a format attribute");
4814 return val;
4817 /* Returns true iff FN is a function with magic varargs, i.e. ones for
4818 which no conversions at all should be done. This is true for some
4819 builtins which don't act like normal functions. */
4821 static bool
4822 magic_varargs_p (tree fn)
4824 if (DECL_BUILT_IN (fn))
4825 switch (DECL_FUNCTION_CODE (fn))
4827 case BUILT_IN_CLASSIFY_TYPE:
4828 case BUILT_IN_CONSTANT_P:
4829 case BUILT_IN_NEXT_ARG:
4830 case BUILT_IN_VA_START:
4831 return true;
4833 default:;
4834 return lookup_attribute ("type generic",
4835 TYPE_ATTRIBUTES (TREE_TYPE (fn))) != 0;
4838 return false;
4841 /* Subroutine of the various build_*_call functions. Overload resolution
4842 has chosen a winning candidate CAND; build up a CALL_EXPR accordingly.
4843 ARGS is a TREE_LIST of the unconverted arguments to the call. FLAGS is a
4844 bitmask of various LOOKUP_* flags which apply to the call itself. */
4846 static tree
4847 build_over_call (struct z_candidate *cand, int flags)
4849 tree fn = cand->fn;
4850 tree args = cand->args;
4851 conversion **convs = cand->convs;
4852 conversion *conv;
4853 tree parm = TYPE_ARG_TYPES (TREE_TYPE (fn));
4854 int parmlen;
4855 tree arg, val;
4856 int i = 0;
4857 int j = 0;
4858 int is_method = 0;
4859 int nargs;
4860 tree *argarray;
4862 /* In a template, there is no need to perform all of the work that
4863 is normally done. We are only interested in the type of the call
4864 expression, i.e., the return type of the function. Any semantic
4865 errors will be deferred until the template is instantiated. */
4866 if (processing_template_decl)
4868 tree expr;
4869 tree return_type;
4870 return_type = TREE_TYPE (TREE_TYPE (fn));
4871 expr = build_call_list (return_type, fn, args);
4872 if (TREE_THIS_VOLATILE (fn) && cfun)
4873 current_function_returns_abnormally = 1;
4874 if (!VOID_TYPE_P (return_type))
4875 require_complete_type (return_type);
4876 return convert_from_reference (expr);
4879 /* Give any warnings we noticed during overload resolution. */
4880 if (cand->warnings)
4882 struct candidate_warning *w;
4883 for (w = cand->warnings; w; w = w->next)
4884 joust (cand, w->loser, 1);
4887 if (DECL_FUNCTION_MEMBER_P (fn))
4889 /* If FN is a template function, two cases must be considered.
4890 For example:
4892 struct A {
4893 protected:
4894 template <class T> void f();
4896 template <class T> struct B {
4897 protected:
4898 void g();
4900 struct C : A, B<int> {
4901 using A::f; // #1
4902 using B<int>::g; // #2
4905 In case #1 where `A::f' is a member template, DECL_ACCESS is
4906 recorded in the primary template but not in its specialization.
4907 We check access of FN using its primary template.
4909 In case #2, where `B<int>::g' has a DECL_TEMPLATE_INFO simply
4910 because it is a member of class template B, DECL_ACCESS is
4911 recorded in the specialization `B<int>::g'. We cannot use its
4912 primary template because `B<T>::g' and `B<int>::g' may have
4913 different access. */
4914 if (DECL_TEMPLATE_INFO (fn)
4915 && DECL_MEMBER_TEMPLATE_P (DECL_TI_TEMPLATE (fn)))
4916 perform_or_defer_access_check (cand->access_path,
4917 DECL_TI_TEMPLATE (fn), fn);
4918 else
4919 perform_or_defer_access_check (cand->access_path, fn, fn);
4922 if (args && TREE_CODE (args) != TREE_LIST)
4923 args = build_tree_list (NULL_TREE, args);
4924 arg = args;
4926 /* Find maximum size of vector to hold converted arguments. */
4927 parmlen = list_length (parm);
4928 nargs = list_length (args);
4929 if (parmlen > nargs)
4930 nargs = parmlen;
4931 argarray = (tree *) alloca (nargs * sizeof (tree));
4933 /* The implicit parameters to a constructor are not considered by overload
4934 resolution, and must be of the proper type. */
4935 if (DECL_CONSTRUCTOR_P (fn))
4937 argarray[j++] = TREE_VALUE (arg);
4938 arg = TREE_CHAIN (arg);
4939 parm = TREE_CHAIN (parm);
4940 /* We should never try to call the abstract constructor. */
4941 gcc_assert (!DECL_HAS_IN_CHARGE_PARM_P (fn));
4943 if (DECL_HAS_VTT_PARM_P (fn))
4945 argarray[j++] = TREE_VALUE (arg);
4946 arg = TREE_CHAIN (arg);
4947 parm = TREE_CHAIN (parm);
4950 /* Bypass access control for 'this' parameter. */
4951 else if (TREE_CODE (TREE_TYPE (fn)) == METHOD_TYPE)
4953 tree parmtype = TREE_VALUE (parm);
4954 tree argtype = TREE_TYPE (TREE_VALUE (arg));
4955 tree converted_arg;
4956 tree base_binfo;
4958 if (convs[i]->bad_p)
4959 permerror ("passing %qT as %<this%> argument of %q#D discards qualifiers",
4960 TREE_TYPE (argtype), fn);
4962 /* [class.mfct.nonstatic]: If a nonstatic member function of a class
4963 X is called for an object that is not of type X, or of a type
4964 derived from X, the behavior is undefined.
4966 So we can assume that anything passed as 'this' is non-null, and
4967 optimize accordingly. */
4968 gcc_assert (TREE_CODE (parmtype) == POINTER_TYPE);
4969 /* Convert to the base in which the function was declared. */
4970 gcc_assert (cand->conversion_path != NULL_TREE);
4971 converted_arg = build_base_path (PLUS_EXPR,
4972 TREE_VALUE (arg),
4973 cand->conversion_path,
4975 /* Check that the base class is accessible. */
4976 if (!accessible_base_p (TREE_TYPE (argtype),
4977 BINFO_TYPE (cand->conversion_path), true))
4978 error ("%qT is not an accessible base of %qT",
4979 BINFO_TYPE (cand->conversion_path),
4980 TREE_TYPE (argtype));
4981 /* If fn was found by a using declaration, the conversion path
4982 will be to the derived class, not the base declaring fn. We
4983 must convert from derived to base. */
4984 base_binfo = lookup_base (TREE_TYPE (TREE_TYPE (converted_arg)),
4985 TREE_TYPE (parmtype), ba_unique, NULL);
4986 converted_arg = build_base_path (PLUS_EXPR, converted_arg,
4987 base_binfo, 1);
4989 argarray[j++] = converted_arg;
4990 parm = TREE_CHAIN (parm);
4991 arg = TREE_CHAIN (arg);
4992 ++i;
4993 is_method = 1;
4996 for (; arg && parm;
4997 parm = TREE_CHAIN (parm), arg = TREE_CHAIN (arg), ++i)
4999 tree type = TREE_VALUE (parm);
5001 conv = convs[i];
5003 /* Don't make a copy here if build_call is going to. */
5004 if (conv->kind == ck_rvalue
5005 && COMPLETE_TYPE_P (complete_type (type))
5006 && !TREE_ADDRESSABLE (type))
5007 conv = conv->u.next;
5009 val = convert_like_with_context
5010 (conv, TREE_VALUE (arg), fn, i - is_method);
5012 val = convert_for_arg_passing (type, val);
5013 argarray[j++] = val;
5016 /* Default arguments */
5017 for (; parm && parm != void_list_node; parm = TREE_CHAIN (parm), i++)
5018 argarray[j++] = convert_default_arg (TREE_VALUE (parm),
5019 TREE_PURPOSE (parm),
5020 fn, i - is_method);
5021 /* Ellipsis */
5022 for (; arg; arg = TREE_CHAIN (arg))
5024 tree a = TREE_VALUE (arg);
5025 if (magic_varargs_p (fn))
5026 /* Do no conversions for magic varargs. */;
5027 else
5028 a = convert_arg_to_ellipsis (a);
5029 argarray[j++] = a;
5032 gcc_assert (j <= nargs);
5033 nargs = j;
5035 check_function_arguments (TYPE_ATTRIBUTES (TREE_TYPE (fn)),
5036 nargs, argarray, TYPE_ARG_TYPES (TREE_TYPE (fn)));
5038 /* Avoid actually calling copy constructors and copy assignment operators,
5039 if possible. */
5041 if (! flag_elide_constructors)
5042 /* Do things the hard way. */;
5043 else if (cand->num_convs == 1
5044 && (DECL_COPY_CONSTRUCTOR_P (fn)
5045 || DECL_MOVE_CONSTRUCTOR_P (fn)))
5047 tree targ;
5048 arg = argarray[num_artificial_parms_for (fn)];
5050 /* Pull out the real argument, disregarding const-correctness. */
5051 targ = arg;
5052 while (TREE_CODE (targ) == NOP_EXPR
5053 || TREE_CODE (targ) == NON_LVALUE_EXPR
5054 || TREE_CODE (targ) == CONVERT_EXPR)
5055 targ = TREE_OPERAND (targ, 0);
5056 if (TREE_CODE (targ) == ADDR_EXPR)
5058 targ = TREE_OPERAND (targ, 0);
5059 if (!same_type_ignoring_top_level_qualifiers_p
5060 (TREE_TYPE (TREE_TYPE (arg)), TREE_TYPE (targ)))
5061 targ = NULL_TREE;
5063 else
5064 targ = NULL_TREE;
5066 if (targ)
5067 arg = targ;
5068 else
5069 arg = build_indirect_ref (arg, 0);
5071 /* [class.copy]: the copy constructor is implicitly defined even if
5072 the implementation elided its use. */
5073 if (TYPE_HAS_COMPLEX_INIT_REF (DECL_CONTEXT (fn)))
5074 mark_used (fn);
5076 /* If we're creating a temp and we already have one, don't create a
5077 new one. If we're not creating a temp but we get one, use
5078 INIT_EXPR to collapse the temp into our target. Otherwise, if the
5079 ctor is trivial, do a bitwise copy with a simple TARGET_EXPR for a
5080 temp or an INIT_EXPR otherwise. */
5081 if (integer_zerop (TREE_VALUE (args)))
5083 if (TREE_CODE (arg) == TARGET_EXPR)
5084 return arg;
5085 else if (TYPE_HAS_TRIVIAL_INIT_REF (DECL_CONTEXT (fn)))
5086 return build_target_expr_with_type (arg, DECL_CONTEXT (fn));
5088 else if (TREE_CODE (arg) == TARGET_EXPR
5089 || (TYPE_HAS_TRIVIAL_INIT_REF (DECL_CONTEXT (fn))
5090 && !move_fn_p (fn)))
5092 tree to = stabilize_reference
5093 (build_indirect_ref (TREE_VALUE (args), 0));
5095 val = build2 (INIT_EXPR, DECL_CONTEXT (fn), to, arg);
5096 return val;
5099 else if (DECL_OVERLOADED_OPERATOR_P (fn) == NOP_EXPR
5100 && copy_fn_p (fn)
5101 && TYPE_HAS_TRIVIAL_ASSIGN_REF (DECL_CONTEXT (fn)))
5103 tree to = stabilize_reference
5104 (build_indirect_ref (argarray[0], 0));
5105 tree type = TREE_TYPE (to);
5106 tree as_base = CLASSTYPE_AS_BASE (type);
5108 arg = argarray[1];
5109 if (tree_int_cst_equal (TYPE_SIZE (type), TYPE_SIZE (as_base)))
5111 arg = build_indirect_ref (arg, 0);
5112 val = build2 (MODIFY_EXPR, TREE_TYPE (to), to, arg);
5114 else
5116 /* We must only copy the non-tail padding parts.
5117 Use __builtin_memcpy for the bitwise copy. */
5119 tree arg0, arg1, arg2, t;
5121 arg2 = TYPE_SIZE_UNIT (as_base);
5122 arg1 = arg;
5123 arg0 = build_unary_op (ADDR_EXPR, to, 0);
5124 t = implicit_built_in_decls[BUILT_IN_MEMCPY];
5125 t = build_call_n (t, 3, arg0, arg1, arg2);
5127 t = convert (TREE_TYPE (arg0), t);
5128 val = build_indirect_ref (t, 0);
5131 return val;
5134 mark_used (fn);
5136 if (DECL_VINDEX (fn) && (flags & LOOKUP_NONVIRTUAL) == 0)
5138 tree t;
5139 tree binfo = lookup_base (TREE_TYPE (TREE_TYPE (argarray[0])),
5140 DECL_CONTEXT (fn),
5141 ba_any, NULL);
5142 gcc_assert (binfo && binfo != error_mark_node);
5144 /* Warn about deprecated virtual functions now, since we're about
5145 to throw away the decl. */
5146 if (TREE_DEPRECATED (fn))
5147 warn_deprecated_use (fn);
5149 argarray[0] = build_base_path (PLUS_EXPR, argarray[0], binfo, 1);
5150 if (TREE_SIDE_EFFECTS (argarray[0]))
5151 argarray[0] = save_expr (argarray[0]);
5152 t = build_pointer_type (TREE_TYPE (fn));
5153 if (DECL_CONTEXT (fn) && TYPE_JAVA_INTERFACE (DECL_CONTEXT (fn)))
5154 fn = build_java_interface_fn_ref (fn, argarray[0]);
5155 else
5156 fn = build_vfn_ref (argarray[0], DECL_VINDEX (fn));
5157 TREE_TYPE (fn) = t;
5159 else if (DECL_INLINE (fn))
5160 fn = inline_conversion (fn);
5161 else
5162 fn = build_addr_func (fn);
5164 return build_cxx_call (fn, nargs, argarray);
5167 /* Build and return a call to FN, using NARGS arguments in ARGARRAY.
5168 This function performs no overload resolution, conversion, or other
5169 high-level operations. */
5171 tree
5172 build_cxx_call (tree fn, int nargs, tree *argarray)
5174 tree fndecl;
5176 fn = build_call_a (fn, nargs, argarray);
5178 /* If this call might throw an exception, note that fact. */
5179 fndecl = get_callee_fndecl (fn);
5180 if ((!fndecl || !TREE_NOTHROW (fndecl))
5181 && at_function_scope_p ()
5182 && cfun)
5183 cp_function_chain->can_throw = 1;
5185 /* Some built-in function calls will be evaluated at compile-time in
5186 fold (). */
5187 fn = fold_if_not_in_template (fn);
5189 if (VOID_TYPE_P (TREE_TYPE (fn)))
5190 return fn;
5192 fn = require_complete_type (fn);
5193 if (fn == error_mark_node)
5194 return error_mark_node;
5196 if (IS_AGGR_TYPE (TREE_TYPE (fn)))
5197 fn = build_cplus_new (TREE_TYPE (fn), fn);
5198 return convert_from_reference (fn);
5201 static GTY(()) tree java_iface_lookup_fn;
5203 /* Make an expression which yields the address of the Java interface
5204 method FN. This is achieved by generating a call to libjava's
5205 _Jv_LookupInterfaceMethodIdx(). */
5207 static tree
5208 build_java_interface_fn_ref (tree fn, tree instance)
5210 tree lookup_fn, method, idx;
5211 tree klass_ref, iface, iface_ref;
5212 int i;
5214 if (!java_iface_lookup_fn)
5216 tree endlink = build_void_list_node ();
5217 tree t = tree_cons (NULL_TREE, ptr_type_node,
5218 tree_cons (NULL_TREE, ptr_type_node,
5219 tree_cons (NULL_TREE, java_int_type_node,
5220 endlink)));
5221 java_iface_lookup_fn
5222 = add_builtin_function ("_Jv_LookupInterfaceMethodIdx",
5223 build_function_type (ptr_type_node, t),
5224 0, NOT_BUILT_IN, NULL, NULL_TREE);
5227 /* Look up the pointer to the runtime java.lang.Class object for `instance'.
5228 This is the first entry in the vtable. */
5229 klass_ref = build_vtbl_ref (build_indirect_ref (instance, 0),
5230 integer_zero_node);
5232 /* Get the java.lang.Class pointer for the interface being called. */
5233 iface = DECL_CONTEXT (fn);
5234 iface_ref = lookup_field (iface, get_identifier ("class$"), 0, false);
5235 if (!iface_ref || TREE_CODE (iface_ref) != VAR_DECL
5236 || DECL_CONTEXT (iface_ref) != iface)
5238 error ("could not find class$ field in java interface type %qT",
5239 iface);
5240 return error_mark_node;
5242 iface_ref = build_address (iface_ref);
5243 iface_ref = convert (build_pointer_type (iface), iface_ref);
5245 /* Determine the itable index of FN. */
5246 i = 1;
5247 for (method = TYPE_METHODS (iface); method; method = TREE_CHAIN (method))
5249 if (!DECL_VIRTUAL_P (method))
5250 continue;
5251 if (fn == method)
5252 break;
5253 i++;
5255 idx = build_int_cst (NULL_TREE, i);
5257 lookup_fn = build1 (ADDR_EXPR,
5258 build_pointer_type (TREE_TYPE (java_iface_lookup_fn)),
5259 java_iface_lookup_fn);
5260 return build_call_nary (ptr_type_node, lookup_fn,
5261 3, klass_ref, iface_ref, idx);
5264 /* Returns the value to use for the in-charge parameter when making a
5265 call to a function with the indicated NAME.
5267 FIXME:Can't we find a neater way to do this mapping? */
5269 tree
5270 in_charge_arg_for_name (tree name)
5272 if (name == base_ctor_identifier
5273 || name == base_dtor_identifier)
5274 return integer_zero_node;
5275 else if (name == complete_ctor_identifier)
5276 return integer_one_node;
5277 else if (name == complete_dtor_identifier)
5278 return integer_two_node;
5279 else if (name == deleting_dtor_identifier)
5280 return integer_three_node;
5282 /* This function should only be called with one of the names listed
5283 above. */
5284 gcc_unreachable ();
5285 return NULL_TREE;
5288 /* Build a call to a constructor, destructor, or an assignment
5289 operator for INSTANCE, an expression with class type. NAME
5290 indicates the special member function to call; ARGS are the
5291 arguments. BINFO indicates the base of INSTANCE that is to be
5292 passed as the `this' parameter to the member function called.
5294 FLAGS are the LOOKUP_* flags to use when processing the call.
5296 If NAME indicates a complete object constructor, INSTANCE may be
5297 NULL_TREE. In this case, the caller will call build_cplus_new to
5298 store the newly constructed object into a VAR_DECL. */
5300 tree
5301 build_special_member_call (tree instance, tree name, tree args,
5302 tree binfo, int flags)
5304 tree fns;
5305 /* The type of the subobject to be constructed or destroyed. */
5306 tree class_type;
5308 gcc_assert (name == complete_ctor_identifier
5309 || name == base_ctor_identifier
5310 || name == complete_dtor_identifier
5311 || name == base_dtor_identifier
5312 || name == deleting_dtor_identifier
5313 || name == ansi_assopname (NOP_EXPR));
5314 if (TYPE_P (binfo))
5316 /* Resolve the name. */
5317 if (!complete_type_or_else (binfo, NULL_TREE))
5318 return error_mark_node;
5320 binfo = TYPE_BINFO (binfo);
5323 gcc_assert (binfo != NULL_TREE);
5325 class_type = BINFO_TYPE (binfo);
5327 /* Handle the special case where INSTANCE is NULL_TREE. */
5328 if (name == complete_ctor_identifier && !instance)
5330 instance = build_int_cst (build_pointer_type (class_type), 0);
5331 instance = build1 (INDIRECT_REF, class_type, instance);
5333 else
5335 if (name == complete_dtor_identifier
5336 || name == base_dtor_identifier
5337 || name == deleting_dtor_identifier)
5338 gcc_assert (args == NULL_TREE);
5340 /* Convert to the base class, if necessary. */
5341 if (!same_type_ignoring_top_level_qualifiers_p
5342 (TREE_TYPE (instance), BINFO_TYPE (binfo)))
5344 if (name != ansi_assopname (NOP_EXPR))
5345 /* For constructors and destructors, either the base is
5346 non-virtual, or it is virtual but we are doing the
5347 conversion from a constructor or destructor for the
5348 complete object. In either case, we can convert
5349 statically. */
5350 instance = convert_to_base_statically (instance, binfo);
5351 else
5352 /* However, for assignment operators, we must convert
5353 dynamically if the base is virtual. */
5354 instance = build_base_path (PLUS_EXPR, instance,
5355 binfo, /*nonnull=*/1);
5359 gcc_assert (instance != NULL_TREE);
5361 fns = lookup_fnfields (binfo, name, 1);
5363 /* When making a call to a constructor or destructor for a subobject
5364 that uses virtual base classes, pass down a pointer to a VTT for
5365 the subobject. */
5366 if ((name == base_ctor_identifier
5367 || name == base_dtor_identifier)
5368 && CLASSTYPE_VBASECLASSES (class_type))
5370 tree vtt;
5371 tree sub_vtt;
5373 /* If the current function is a complete object constructor
5374 or destructor, then we fetch the VTT directly.
5375 Otherwise, we look it up using the VTT we were given. */
5376 vtt = TREE_CHAIN (CLASSTYPE_VTABLES (current_class_type));
5377 vtt = decay_conversion (vtt);
5378 vtt = build3 (COND_EXPR, TREE_TYPE (vtt),
5379 build2 (EQ_EXPR, boolean_type_node,
5380 current_in_charge_parm, integer_zero_node),
5381 current_vtt_parm,
5382 vtt);
5383 gcc_assert (BINFO_SUBVTT_INDEX (binfo));
5384 sub_vtt = build2 (POINTER_PLUS_EXPR, TREE_TYPE (vtt), vtt,
5385 BINFO_SUBVTT_INDEX (binfo));
5387 args = tree_cons (NULL_TREE, sub_vtt, args);
5390 return build_new_method_call (instance, fns, args,
5391 TYPE_BINFO (BINFO_TYPE (binfo)),
5392 flags, /*fn=*/NULL);
5395 /* Return the NAME, as a C string. The NAME indicates a function that
5396 is a member of TYPE. *FREE_P is set to true if the caller must
5397 free the memory returned.
5399 Rather than go through all of this, we should simply set the names
5400 of constructors and destructors appropriately, and dispense with
5401 ctor_identifier, dtor_identifier, etc. */
5403 static char *
5404 name_as_c_string (tree name, tree type, bool *free_p)
5406 char *pretty_name;
5408 /* Assume that we will not allocate memory. */
5409 *free_p = false;
5410 /* Constructors and destructors are special. */
5411 if (IDENTIFIER_CTOR_OR_DTOR_P (name))
5413 pretty_name
5414 = CONST_CAST (char *, IDENTIFIER_POINTER (constructor_name (type)));
5415 /* For a destructor, add the '~'. */
5416 if (name == complete_dtor_identifier
5417 || name == base_dtor_identifier
5418 || name == deleting_dtor_identifier)
5420 pretty_name = concat ("~", pretty_name, NULL);
5421 /* Remember that we need to free the memory allocated. */
5422 *free_p = true;
5425 else if (IDENTIFIER_TYPENAME_P (name))
5427 pretty_name = concat ("operator ",
5428 type_as_string (TREE_TYPE (name),
5429 TFF_PLAIN_IDENTIFIER),
5430 NULL);
5431 /* Remember that we need to free the memory allocated. */
5432 *free_p = true;
5434 else
5435 pretty_name = CONST_CAST (char *, IDENTIFIER_POINTER (name));
5437 return pretty_name;
5440 /* Build a call to "INSTANCE.FN (ARGS)". If FN_P is non-NULL, it will
5441 be set, upon return, to the function called. */
5443 tree
5444 build_new_method_call (tree instance, tree fns, tree args,
5445 tree conversion_path, int flags,
5446 tree *fn_p)
5448 struct z_candidate *candidates = 0, *cand;
5449 tree explicit_targs = NULL_TREE;
5450 tree basetype = NULL_TREE;
5451 tree access_binfo;
5452 tree optype;
5453 tree mem_args = NULL_TREE, instance_ptr;
5454 tree name;
5455 tree user_args;
5456 tree call;
5457 tree fn;
5458 tree class_type;
5459 int template_only = 0;
5460 bool any_viable_p;
5461 tree orig_instance;
5462 tree orig_fns;
5463 tree orig_args;
5464 void *p;
5466 gcc_assert (instance != NULL_TREE);
5468 /* We don't know what function we're going to call, yet. */
5469 if (fn_p)
5470 *fn_p = NULL_TREE;
5472 if (error_operand_p (instance)
5473 || error_operand_p (fns)
5474 || args == error_mark_node)
5475 return error_mark_node;
5477 if (!BASELINK_P (fns))
5479 error ("call to non-function %qD", fns);
5480 return error_mark_node;
5483 orig_instance = instance;
5484 orig_fns = fns;
5485 orig_args = args;
5487 /* Dismantle the baselink to collect all the information we need. */
5488 if (!conversion_path)
5489 conversion_path = BASELINK_BINFO (fns);
5490 access_binfo = BASELINK_ACCESS_BINFO (fns);
5491 optype = BASELINK_OPTYPE (fns);
5492 fns = BASELINK_FUNCTIONS (fns);
5493 if (TREE_CODE (fns) == TEMPLATE_ID_EXPR)
5495 explicit_targs = TREE_OPERAND (fns, 1);
5496 fns = TREE_OPERAND (fns, 0);
5497 template_only = 1;
5499 gcc_assert (TREE_CODE (fns) == FUNCTION_DECL
5500 || TREE_CODE (fns) == TEMPLATE_DECL
5501 || TREE_CODE (fns) == OVERLOAD);
5502 fn = get_first_fn (fns);
5503 name = DECL_NAME (fn);
5505 basetype = TYPE_MAIN_VARIANT (TREE_TYPE (instance));
5506 gcc_assert (CLASS_TYPE_P (basetype));
5508 if (processing_template_decl)
5510 instance = build_non_dependent_expr (instance);
5511 args = build_non_dependent_args (orig_args);
5514 /* The USER_ARGS are the arguments we will display to users if an
5515 error occurs. The USER_ARGS should not include any
5516 compiler-generated arguments. The "this" pointer hasn't been
5517 added yet. However, we must remove the VTT pointer if this is a
5518 call to a base-class constructor or destructor. */
5519 user_args = args;
5520 if (IDENTIFIER_CTOR_OR_DTOR_P (name))
5522 /* Callers should explicitly indicate whether they want to construct
5523 the complete object or just the part without virtual bases. */
5524 gcc_assert (name != ctor_identifier);
5525 /* Similarly for destructors. */
5526 gcc_assert (name != dtor_identifier);
5527 /* Remove the VTT pointer, if present. */
5528 if ((name == base_ctor_identifier || name == base_dtor_identifier)
5529 && CLASSTYPE_VBASECLASSES (basetype))
5530 user_args = TREE_CHAIN (user_args);
5533 /* Process the argument list. */
5534 args = resolve_args (args);
5535 if (args == error_mark_node)
5536 return error_mark_node;
5538 instance_ptr = build_this (instance);
5540 /* It's OK to call destructors and constructors on cv-qualified objects.
5541 Therefore, convert the INSTANCE_PTR to the unqualified type, if
5542 necessary. */
5543 if (DECL_DESTRUCTOR_P (fn)
5544 || DECL_CONSTRUCTOR_P (fn))
5546 tree type = build_pointer_type (basetype);
5547 if (!same_type_p (type, TREE_TYPE (instance_ptr)))
5548 instance_ptr = build_nop (type, instance_ptr);
5550 if (DECL_DESTRUCTOR_P (fn))
5551 name = complete_dtor_identifier;
5553 class_type = (conversion_path ? BINFO_TYPE (conversion_path) : NULL_TREE);
5554 mem_args = tree_cons (NULL_TREE, instance_ptr, args);
5556 /* Get the high-water mark for the CONVERSION_OBSTACK. */
5557 p = conversion_obstack_alloc (0);
5559 for (fn = fns; fn; fn = OVL_NEXT (fn))
5561 tree t = OVL_CURRENT (fn);
5562 tree this_arglist;
5564 /* We can end up here for copy-init of same or base class. */
5565 if ((flags & LOOKUP_ONLYCONVERTING)
5566 && DECL_NONCONVERTING_P (t))
5567 continue;
5569 if (DECL_NONSTATIC_MEMBER_FUNCTION_P (t))
5570 this_arglist = mem_args;
5571 else
5572 this_arglist = args;
5574 if (TREE_CODE (t) == TEMPLATE_DECL)
5575 /* A member template. */
5576 add_template_candidate (&candidates, t,
5577 class_type,
5578 explicit_targs,
5579 this_arglist, optype,
5580 access_binfo,
5581 conversion_path,
5582 flags,
5583 DEDUCE_CALL);
5584 else if (! template_only)
5585 add_function_candidate (&candidates, t,
5586 class_type,
5587 this_arglist,
5588 access_binfo,
5589 conversion_path,
5590 flags);
5593 candidates = splice_viable (candidates, pedantic, &any_viable_p);
5594 if (!any_viable_p)
5596 if (!COMPLETE_TYPE_P (basetype))
5597 cxx_incomplete_type_error (instance_ptr, basetype);
5598 else
5600 char *pretty_name;
5601 bool free_p;
5603 pretty_name = name_as_c_string (name, basetype, &free_p);
5604 error ("no matching function for call to %<%T::%s(%A)%#V%>",
5605 basetype, pretty_name, user_args,
5606 TREE_TYPE (TREE_TYPE (instance_ptr)));
5607 if (free_p)
5608 free (pretty_name);
5610 print_z_candidates (candidates);
5611 call = error_mark_node;
5613 else
5615 cand = tourney (candidates);
5616 if (cand == 0)
5618 char *pretty_name;
5619 bool free_p;
5621 pretty_name = name_as_c_string (name, basetype, &free_p);
5622 error ("call of overloaded %<%s(%A)%> is ambiguous", pretty_name,
5623 user_args);
5624 print_z_candidates (candidates);
5625 if (free_p)
5626 free (pretty_name);
5627 call = error_mark_node;
5629 else
5631 fn = cand->fn;
5633 if (!(flags & LOOKUP_NONVIRTUAL)
5634 && DECL_PURE_VIRTUAL_P (fn)
5635 && instance == current_class_ref
5636 && (DECL_CONSTRUCTOR_P (current_function_decl)
5637 || DECL_DESTRUCTOR_P (current_function_decl)))
5638 /* This is not an error, it is runtime undefined
5639 behavior. */
5640 warning (0, (DECL_CONSTRUCTOR_P (current_function_decl) ?
5641 "abstract virtual %q#D called from constructor"
5642 : "abstract virtual %q#D called from destructor"),
5643 fn);
5645 if (TREE_CODE (TREE_TYPE (fn)) == METHOD_TYPE
5646 && is_dummy_object (instance_ptr))
5648 error ("cannot call member function %qD without object",
5649 fn);
5650 call = error_mark_node;
5652 else
5654 if (DECL_VINDEX (fn) && ! (flags & LOOKUP_NONVIRTUAL)
5655 && resolves_to_fixed_type_p (instance, 0))
5656 flags |= LOOKUP_NONVIRTUAL;
5657 /* Now we know what function is being called. */
5658 if (fn_p)
5659 *fn_p = fn;
5660 /* Build the actual CALL_EXPR. */
5661 call = build_over_call (cand, flags);
5662 /* In an expression of the form `a->f()' where `f' turns
5663 out to be a static member function, `a' is
5664 none-the-less evaluated. */
5665 if (TREE_CODE (TREE_TYPE (fn)) != METHOD_TYPE
5666 && !is_dummy_object (instance_ptr)
5667 && TREE_SIDE_EFFECTS (instance_ptr))
5668 call = build2 (COMPOUND_EXPR, TREE_TYPE (call),
5669 instance_ptr, call);
5670 else if (call != error_mark_node
5671 && DECL_DESTRUCTOR_P (cand->fn)
5672 && !VOID_TYPE_P (TREE_TYPE (call)))
5673 /* An explicit call of the form "x->~X()" has type
5674 "void". However, on platforms where destructors
5675 return "this" (i.e., those where
5676 targetm.cxx.cdtor_returns_this is true), such calls
5677 will appear to have a return value of pointer type
5678 to the low-level call machinery. We do not want to
5679 change the low-level machinery, since we want to be
5680 able to optimize "delete f()" on such platforms as
5681 "operator delete(~X(f()))" (rather than generating
5682 "t = f(), ~X(t), operator delete (t)"). */
5683 call = build_nop (void_type_node, call);
5688 if (processing_template_decl && call != error_mark_node)
5689 call = (build_min_non_dep_call_list
5690 (call,
5691 build_min_nt (COMPONENT_REF, orig_instance, orig_fns, NULL_TREE),
5692 orig_args));
5694 /* Free all the conversions we allocated. */
5695 obstack_free (&conversion_obstack, p);
5697 return call;
5700 /* Returns true iff standard conversion sequence ICS1 is a proper
5701 subsequence of ICS2. */
5703 static bool
5704 is_subseq (conversion *ics1, conversion *ics2)
5706 /* We can assume that a conversion of the same code
5707 between the same types indicates a subsequence since we only get
5708 here if the types we are converting from are the same. */
5710 while (ics1->kind == ck_rvalue
5711 || ics1->kind == ck_lvalue)
5712 ics1 = ics1->u.next;
5714 while (1)
5716 while (ics2->kind == ck_rvalue
5717 || ics2->kind == ck_lvalue)
5718 ics2 = ics2->u.next;
5720 if (ics2->kind == ck_user
5721 || ics2->kind == ck_ambig
5722 || ics2->kind == ck_identity)
5723 /* At this point, ICS1 cannot be a proper subsequence of
5724 ICS2. We can get a USER_CONV when we are comparing the
5725 second standard conversion sequence of two user conversion
5726 sequences. */
5727 return false;
5729 ics2 = ics2->u.next;
5731 if (ics2->kind == ics1->kind
5732 && same_type_p (ics2->type, ics1->type)
5733 && same_type_p (ics2->u.next->type,
5734 ics1->u.next->type))
5735 return true;
5739 /* Returns nonzero iff DERIVED is derived from BASE. The inputs may
5740 be any _TYPE nodes. */
5742 bool
5743 is_properly_derived_from (tree derived, tree base)
5745 if (!IS_AGGR_TYPE_CODE (TREE_CODE (derived))
5746 || !IS_AGGR_TYPE_CODE (TREE_CODE (base)))
5747 return false;
5749 /* We only allow proper derivation here. The DERIVED_FROM_P macro
5750 considers every class derived from itself. */
5751 return (!same_type_ignoring_top_level_qualifiers_p (derived, base)
5752 && DERIVED_FROM_P (base, derived));
5755 /* We build the ICS for an implicit object parameter as a pointer
5756 conversion sequence. However, such a sequence should be compared
5757 as if it were a reference conversion sequence. If ICS is the
5758 implicit conversion sequence for an implicit object parameter,
5759 modify it accordingly. */
5761 static void
5762 maybe_handle_implicit_object (conversion **ics)
5764 if ((*ics)->this_p)
5766 /* [over.match.funcs]
5768 For non-static member functions, the type of the
5769 implicit object parameter is "reference to cv X"
5770 where X is the class of which the function is a
5771 member and cv is the cv-qualification on the member
5772 function declaration. */
5773 conversion *t = *ics;
5774 tree reference_type;
5776 /* The `this' parameter is a pointer to a class type. Make the
5777 implicit conversion talk about a reference to that same class
5778 type. */
5779 reference_type = TREE_TYPE (t->type);
5780 reference_type = build_reference_type (reference_type);
5782 if (t->kind == ck_qual)
5783 t = t->u.next;
5784 if (t->kind == ck_ptr)
5785 t = t->u.next;
5786 t = build_identity_conv (TREE_TYPE (t->type), NULL_TREE);
5787 t = direct_reference_binding (reference_type, t);
5788 t->this_p = 1;
5789 t->rvaluedness_matches_p = 0;
5790 *ics = t;
5794 /* If *ICS is a REF_BIND set *ICS to the remainder of the conversion,
5795 and return the initial reference binding conversion. Otherwise,
5796 leave *ICS unchanged and return NULL. */
5798 static conversion *
5799 maybe_handle_ref_bind (conversion **ics)
5801 if ((*ics)->kind == ck_ref_bind)
5803 conversion *old_ics = *ics;
5804 *ics = old_ics->u.next;
5805 (*ics)->user_conv_p = old_ics->user_conv_p;
5806 (*ics)->bad_p = old_ics->bad_p;
5807 return old_ics;
5810 return NULL;
5813 /* Compare two implicit conversion sequences according to the rules set out in
5814 [over.ics.rank]. Return values:
5816 1: ics1 is better than ics2
5817 -1: ics2 is better than ics1
5818 0: ics1 and ics2 are indistinguishable */
5820 static int
5821 compare_ics (conversion *ics1, conversion *ics2)
5823 tree from_type1;
5824 tree from_type2;
5825 tree to_type1;
5826 tree to_type2;
5827 tree deref_from_type1 = NULL_TREE;
5828 tree deref_from_type2 = NULL_TREE;
5829 tree deref_to_type1 = NULL_TREE;
5830 tree deref_to_type2 = NULL_TREE;
5831 conversion_rank rank1, rank2;
5833 /* REF_BINDING is nonzero if the result of the conversion sequence
5834 is a reference type. In that case REF_CONV is the reference
5835 binding conversion. */
5836 conversion *ref_conv1;
5837 conversion *ref_conv2;
5839 /* Handle implicit object parameters. */
5840 maybe_handle_implicit_object (&ics1);
5841 maybe_handle_implicit_object (&ics2);
5843 /* Handle reference parameters. */
5844 ref_conv1 = maybe_handle_ref_bind (&ics1);
5845 ref_conv2 = maybe_handle_ref_bind (&ics2);
5847 /* [over.ics.rank]
5849 When comparing the basic forms of implicit conversion sequences (as
5850 defined in _over.best.ics_)
5852 --a standard conversion sequence (_over.ics.scs_) is a better
5853 conversion sequence than a user-defined conversion sequence
5854 or an ellipsis conversion sequence, and
5856 --a user-defined conversion sequence (_over.ics.user_) is a
5857 better conversion sequence than an ellipsis conversion sequence
5858 (_over.ics.ellipsis_). */
5859 rank1 = CONVERSION_RANK (ics1);
5860 rank2 = CONVERSION_RANK (ics2);
5862 if (rank1 > rank2)
5863 return -1;
5864 else if (rank1 < rank2)
5865 return 1;
5867 if (rank1 == cr_bad)
5869 /* XXX Isn't this an extension? */
5870 /* Both ICS are bad. We try to make a decision based on what
5871 would have happened if they'd been good. */
5872 if (ics1->user_conv_p > ics2->user_conv_p
5873 || ics1->rank > ics2->rank)
5874 return -1;
5875 else if (ics1->user_conv_p < ics2->user_conv_p
5876 || ics1->rank < ics2->rank)
5877 return 1;
5879 /* We couldn't make up our minds; try to figure it out below. */
5882 if (ics1->ellipsis_p)
5883 /* Both conversions are ellipsis conversions. */
5884 return 0;
5886 /* User-defined conversion sequence U1 is a better conversion sequence
5887 than another user-defined conversion sequence U2 if they contain the
5888 same user-defined conversion operator or constructor and if the sec-
5889 ond standard conversion sequence of U1 is better than the second
5890 standard conversion sequence of U2. */
5892 if (ics1->user_conv_p)
5894 conversion *t1;
5895 conversion *t2;
5897 for (t1 = ics1; t1->kind != ck_user; t1 = t1->u.next)
5898 if (t1->kind == ck_ambig)
5899 return 0;
5900 for (t2 = ics2; t2->kind != ck_user; t2 = t2->u.next)
5901 if (t2->kind == ck_ambig)
5902 return 0;
5904 if (t1->cand->fn != t2->cand->fn)
5905 return 0;
5907 /* We can just fall through here, after setting up
5908 FROM_TYPE1 and FROM_TYPE2. */
5909 from_type1 = t1->type;
5910 from_type2 = t2->type;
5912 else
5914 conversion *t1;
5915 conversion *t2;
5917 /* We're dealing with two standard conversion sequences.
5919 [over.ics.rank]
5921 Standard conversion sequence S1 is a better conversion
5922 sequence than standard conversion sequence S2 if
5924 --S1 is a proper subsequence of S2 (comparing the conversion
5925 sequences in the canonical form defined by _over.ics.scs_,
5926 excluding any Lvalue Transformation; the identity
5927 conversion sequence is considered to be a subsequence of
5928 any non-identity conversion sequence */
5930 t1 = ics1;
5931 while (t1->kind != ck_identity)
5932 t1 = t1->u.next;
5933 from_type1 = t1->type;
5935 t2 = ics2;
5936 while (t2->kind != ck_identity)
5937 t2 = t2->u.next;
5938 from_type2 = t2->type;
5941 /* One sequence can only be a subsequence of the other if they start with
5942 the same type. They can start with different types when comparing the
5943 second standard conversion sequence in two user-defined conversion
5944 sequences. */
5945 if (same_type_p (from_type1, from_type2))
5947 if (is_subseq (ics1, ics2))
5948 return 1;
5949 if (is_subseq (ics2, ics1))
5950 return -1;
5953 /* [over.ics.rank]
5955 Or, if not that,
5957 --the rank of S1 is better than the rank of S2 (by the rules
5958 defined below):
5960 Standard conversion sequences are ordered by their ranks: an Exact
5961 Match is a better conversion than a Promotion, which is a better
5962 conversion than a Conversion.
5964 Two conversion sequences with the same rank are indistinguishable
5965 unless one of the following rules applies:
5967 --A conversion that is not a conversion of a pointer, or pointer
5968 to member, to bool is better than another conversion that is such
5969 a conversion.
5971 The ICS_STD_RANK automatically handles the pointer-to-bool rule,
5972 so that we do not have to check it explicitly. */
5973 if (ics1->rank < ics2->rank)
5974 return 1;
5975 else if (ics2->rank < ics1->rank)
5976 return -1;
5978 to_type1 = ics1->type;
5979 to_type2 = ics2->type;
5981 /* A conversion from scalar arithmetic type to complex is worse than a
5982 conversion between scalar arithmetic types. */
5983 if (same_type_p (from_type1, from_type2)
5984 && ARITHMETIC_TYPE_P (from_type1)
5985 && ARITHMETIC_TYPE_P (to_type1)
5986 && ARITHMETIC_TYPE_P (to_type2)
5987 && ((TREE_CODE (to_type1) == COMPLEX_TYPE)
5988 != (TREE_CODE (to_type2) == COMPLEX_TYPE)))
5990 if (TREE_CODE (to_type1) == COMPLEX_TYPE)
5991 return -1;
5992 else
5993 return 1;
5996 if (TYPE_PTR_P (from_type1)
5997 && TYPE_PTR_P (from_type2)
5998 && TYPE_PTR_P (to_type1)
5999 && TYPE_PTR_P (to_type2))
6001 deref_from_type1 = TREE_TYPE (from_type1);
6002 deref_from_type2 = TREE_TYPE (from_type2);
6003 deref_to_type1 = TREE_TYPE (to_type1);
6004 deref_to_type2 = TREE_TYPE (to_type2);
6006 /* The rules for pointers to members A::* are just like the rules
6007 for pointers A*, except opposite: if B is derived from A then
6008 A::* converts to B::*, not vice versa. For that reason, we
6009 switch the from_ and to_ variables here. */
6010 else if ((TYPE_PTRMEM_P (from_type1) && TYPE_PTRMEM_P (from_type2)
6011 && TYPE_PTRMEM_P (to_type1) && TYPE_PTRMEM_P (to_type2))
6012 || (TYPE_PTRMEMFUNC_P (from_type1)
6013 && TYPE_PTRMEMFUNC_P (from_type2)
6014 && TYPE_PTRMEMFUNC_P (to_type1)
6015 && TYPE_PTRMEMFUNC_P (to_type2)))
6017 deref_to_type1 = TYPE_PTRMEM_CLASS_TYPE (from_type1);
6018 deref_to_type2 = TYPE_PTRMEM_CLASS_TYPE (from_type2);
6019 deref_from_type1 = TYPE_PTRMEM_CLASS_TYPE (to_type1);
6020 deref_from_type2 = TYPE_PTRMEM_CLASS_TYPE (to_type2);
6023 if (deref_from_type1 != NULL_TREE
6024 && IS_AGGR_TYPE_CODE (TREE_CODE (deref_from_type1))
6025 && IS_AGGR_TYPE_CODE (TREE_CODE (deref_from_type2)))
6027 /* This was one of the pointer or pointer-like conversions.
6029 [over.ics.rank]
6031 --If class B is derived directly or indirectly from class A,
6032 conversion of B* to A* is better than conversion of B* to
6033 void*, and conversion of A* to void* is better than
6034 conversion of B* to void*. */
6035 if (TREE_CODE (deref_to_type1) == VOID_TYPE
6036 && TREE_CODE (deref_to_type2) == VOID_TYPE)
6038 if (is_properly_derived_from (deref_from_type1,
6039 deref_from_type2))
6040 return -1;
6041 else if (is_properly_derived_from (deref_from_type2,
6042 deref_from_type1))
6043 return 1;
6045 else if (TREE_CODE (deref_to_type1) == VOID_TYPE
6046 || TREE_CODE (deref_to_type2) == VOID_TYPE)
6048 if (same_type_p (deref_from_type1, deref_from_type2))
6050 if (TREE_CODE (deref_to_type2) == VOID_TYPE)
6052 if (is_properly_derived_from (deref_from_type1,
6053 deref_to_type1))
6054 return 1;
6056 /* We know that DEREF_TO_TYPE1 is `void' here. */
6057 else if (is_properly_derived_from (deref_from_type1,
6058 deref_to_type2))
6059 return -1;
6062 else if (IS_AGGR_TYPE_CODE (TREE_CODE (deref_to_type1))
6063 && IS_AGGR_TYPE_CODE (TREE_CODE (deref_to_type2)))
6065 /* [over.ics.rank]
6067 --If class B is derived directly or indirectly from class A
6068 and class C is derived directly or indirectly from B,
6070 --conversion of C* to B* is better than conversion of C* to
6073 --conversion of B* to A* is better than conversion of C* to
6074 A* */
6075 if (same_type_p (deref_from_type1, deref_from_type2))
6077 if (is_properly_derived_from (deref_to_type1,
6078 deref_to_type2))
6079 return 1;
6080 else if (is_properly_derived_from (deref_to_type2,
6081 deref_to_type1))
6082 return -1;
6084 else if (same_type_p (deref_to_type1, deref_to_type2))
6086 if (is_properly_derived_from (deref_from_type2,
6087 deref_from_type1))
6088 return 1;
6089 else if (is_properly_derived_from (deref_from_type1,
6090 deref_from_type2))
6091 return -1;
6095 else if (CLASS_TYPE_P (non_reference (from_type1))
6096 && same_type_p (from_type1, from_type2))
6098 tree from = non_reference (from_type1);
6100 /* [over.ics.rank]
6102 --binding of an expression of type C to a reference of type
6103 B& is better than binding an expression of type C to a
6104 reference of type A&
6106 --conversion of C to B is better than conversion of C to A, */
6107 if (is_properly_derived_from (from, to_type1)
6108 && is_properly_derived_from (from, to_type2))
6110 if (is_properly_derived_from (to_type1, to_type2))
6111 return 1;
6112 else if (is_properly_derived_from (to_type2, to_type1))
6113 return -1;
6116 else if (CLASS_TYPE_P (non_reference (to_type1))
6117 && same_type_p (to_type1, to_type2))
6119 tree to = non_reference (to_type1);
6121 /* [over.ics.rank]
6123 --binding of an expression of type B to a reference of type
6124 A& is better than binding an expression of type C to a
6125 reference of type A&,
6127 --conversion of B to A is better than conversion of C to A */
6128 if (is_properly_derived_from (from_type1, to)
6129 && is_properly_derived_from (from_type2, to))
6131 if (is_properly_derived_from (from_type2, from_type1))
6132 return 1;
6133 else if (is_properly_derived_from (from_type1, from_type2))
6134 return -1;
6138 /* [over.ics.rank]
6140 --S1 and S2 differ only in their qualification conversion and yield
6141 similar types T1 and T2 (_conv.qual_), respectively, and the cv-
6142 qualification signature of type T1 is a proper subset of the cv-
6143 qualification signature of type T2 */
6144 if (ics1->kind == ck_qual
6145 && ics2->kind == ck_qual
6146 && same_type_p (from_type1, from_type2))
6148 int result = comp_cv_qual_signature (to_type1, to_type2);
6149 if (result != 0)
6150 return result;
6153 /* [over.ics.rank]
6155 --S1 and S2 are reference bindings (_dcl.init.ref_) and neither refers
6156 to an implicit object parameter, and either S1 binds an lvalue reference
6157 to an lvalue and S2 binds an rvalue reference or S1 binds an rvalue
6158 reference to an rvalue and S2 binds an lvalue reference
6159 (C++0x draft standard, 13.3.3.2)
6161 --S1 and S2 are reference bindings (_dcl.init.ref_), and the
6162 types to which the references refer are the same type except for
6163 top-level cv-qualifiers, and the type to which the reference
6164 initialized by S2 refers is more cv-qualified than the type to
6165 which the reference initialized by S1 refers */
6167 if (ref_conv1 && ref_conv2)
6169 if (!ref_conv1->this_p && !ref_conv2->this_p
6170 && (TYPE_REF_IS_RVALUE (ref_conv1->type)
6171 != TYPE_REF_IS_RVALUE (ref_conv2->type)))
6173 if (ref_conv1->rvaluedness_matches_p)
6174 return 1;
6175 if (ref_conv2->rvaluedness_matches_p)
6176 return -1;
6179 if (same_type_ignoring_top_level_qualifiers_p (to_type1, to_type2))
6180 return comp_cv_qualification (TREE_TYPE (ref_conv2->type),
6181 TREE_TYPE (ref_conv1->type));
6184 /* Neither conversion sequence is better than the other. */
6185 return 0;
6188 /* The source type for this standard conversion sequence. */
6190 static tree
6191 source_type (conversion *t)
6193 for (;; t = t->u.next)
6195 if (t->kind == ck_user
6196 || t->kind == ck_ambig
6197 || t->kind == ck_identity)
6198 return t->type;
6200 gcc_unreachable ();
6203 /* Note a warning about preferring WINNER to LOSER. We do this by storing
6204 a pointer to LOSER and re-running joust to produce the warning if WINNER
6205 is actually used. */
6207 static void
6208 add_warning (struct z_candidate *winner, struct z_candidate *loser)
6210 candidate_warning *cw = (candidate_warning *)
6211 conversion_obstack_alloc (sizeof (candidate_warning));
6212 cw->loser = loser;
6213 cw->next = winner->warnings;
6214 winner->warnings = cw;
6217 /* Compare two candidates for overloading as described in
6218 [over.match.best]. Return values:
6220 1: cand1 is better than cand2
6221 -1: cand2 is better than cand1
6222 0: cand1 and cand2 are indistinguishable */
6224 static int
6225 joust (struct z_candidate *cand1, struct z_candidate *cand2, bool warn)
6227 int winner = 0;
6228 int off1 = 0, off2 = 0;
6229 size_t i;
6230 size_t len;
6232 /* Candidates that involve bad conversions are always worse than those
6233 that don't. */
6234 if (cand1->viable > cand2->viable)
6235 return 1;
6236 if (cand1->viable < cand2->viable)
6237 return -1;
6239 /* If we have two pseudo-candidates for conversions to the same type,
6240 or two candidates for the same function, arbitrarily pick one. */
6241 if (cand1->fn == cand2->fn
6242 && (IS_TYPE_OR_DECL_P (cand1->fn)))
6243 return 1;
6245 /* a viable function F1
6246 is defined to be a better function than another viable function F2 if
6247 for all arguments i, ICSi(F1) is not a worse conversion sequence than
6248 ICSi(F2), and then */
6250 /* for some argument j, ICSj(F1) is a better conversion sequence than
6251 ICSj(F2) */
6253 /* For comparing static and non-static member functions, we ignore
6254 the implicit object parameter of the non-static function. The
6255 standard says to pretend that the static function has an object
6256 parm, but that won't work with operator overloading. */
6257 len = cand1->num_convs;
6258 if (len != cand2->num_convs)
6260 int static_1 = DECL_STATIC_FUNCTION_P (cand1->fn);
6261 int static_2 = DECL_STATIC_FUNCTION_P (cand2->fn);
6263 gcc_assert (static_1 != static_2);
6265 if (static_1)
6266 off2 = 1;
6267 else
6269 off1 = 1;
6270 --len;
6274 for (i = 0; i < len; ++i)
6276 conversion *t1 = cand1->convs[i + off1];
6277 conversion *t2 = cand2->convs[i + off2];
6278 int comp = compare_ics (t1, t2);
6280 if (comp != 0)
6282 if (warn_sign_promo
6283 && (CONVERSION_RANK (t1) + CONVERSION_RANK (t2)
6284 == cr_std + cr_promotion)
6285 && t1->kind == ck_std
6286 && t2->kind == ck_std
6287 && TREE_CODE (t1->type) == INTEGER_TYPE
6288 && TREE_CODE (t2->type) == INTEGER_TYPE
6289 && (TYPE_PRECISION (t1->type)
6290 == TYPE_PRECISION (t2->type))
6291 && (TYPE_UNSIGNED (t1->u.next->type)
6292 || (TREE_CODE (t1->u.next->type)
6293 == ENUMERAL_TYPE)))
6295 tree type = t1->u.next->type;
6296 tree type1, type2;
6297 struct z_candidate *w, *l;
6298 if (comp > 0)
6299 type1 = t1->type, type2 = t2->type,
6300 w = cand1, l = cand2;
6301 else
6302 type1 = t2->type, type2 = t1->type,
6303 w = cand2, l = cand1;
6305 if (warn)
6307 warning (OPT_Wsign_promo, "passing %qT chooses %qT over %qT",
6308 type, type1, type2);
6309 warning (OPT_Wsign_promo, " in call to %qD", w->fn);
6311 else
6312 add_warning (w, l);
6315 if (winner && comp != winner)
6317 winner = 0;
6318 goto tweak;
6320 winner = comp;
6324 /* warn about confusing overload resolution for user-defined conversions,
6325 either between a constructor and a conversion op, or between two
6326 conversion ops. */
6327 if (winner && warn_conversion && cand1->second_conv
6328 && (!DECL_CONSTRUCTOR_P (cand1->fn) || !DECL_CONSTRUCTOR_P (cand2->fn))
6329 && winner != compare_ics (cand1->second_conv, cand2->second_conv))
6331 struct z_candidate *w, *l;
6332 bool give_warning = false;
6334 if (winner == 1)
6335 w = cand1, l = cand2;
6336 else
6337 w = cand2, l = cand1;
6339 /* We don't want to complain about `X::operator T1 ()'
6340 beating `X::operator T2 () const', when T2 is a no less
6341 cv-qualified version of T1. */
6342 if (DECL_CONTEXT (w->fn) == DECL_CONTEXT (l->fn)
6343 && !DECL_CONSTRUCTOR_P (w->fn) && !DECL_CONSTRUCTOR_P (l->fn))
6345 tree t = TREE_TYPE (TREE_TYPE (l->fn));
6346 tree f = TREE_TYPE (TREE_TYPE (w->fn));
6348 if (TREE_CODE (t) == TREE_CODE (f) && POINTER_TYPE_P (t))
6350 t = TREE_TYPE (t);
6351 f = TREE_TYPE (f);
6353 if (!comp_ptr_ttypes (t, f))
6354 give_warning = true;
6356 else
6357 give_warning = true;
6359 if (!give_warning)
6360 /*NOP*/;
6361 else if (warn)
6363 tree source = source_type (w->convs[0]);
6364 if (! DECL_CONSTRUCTOR_P (w->fn))
6365 source = TREE_TYPE (source);
6366 warning (OPT_Wconversion, "choosing %qD over %qD", w->fn, l->fn);
6367 warning (OPT_Wconversion, " for conversion from %qT to %qT",
6368 source, w->second_conv->type);
6369 inform (" because conversion sequence for the argument is better");
6371 else
6372 add_warning (w, l);
6375 if (winner)
6376 return winner;
6378 /* or, if not that,
6379 F1 is a non-template function and F2 is a template function
6380 specialization. */
6382 if (!cand1->template_decl && cand2->template_decl)
6383 return 1;
6384 else if (cand1->template_decl && !cand2->template_decl)
6385 return -1;
6387 /* or, if not that,
6388 F1 and F2 are template functions and the function template for F1 is
6389 more specialized than the template for F2 according to the partial
6390 ordering rules. */
6392 if (cand1->template_decl && cand2->template_decl)
6394 winner = more_specialized_fn
6395 (TI_TEMPLATE (cand1->template_decl),
6396 TI_TEMPLATE (cand2->template_decl),
6397 /* [temp.func.order]: The presence of unused ellipsis and default
6398 arguments has no effect on the partial ordering of function
6399 templates. add_function_candidate() will not have
6400 counted the "this" argument for constructors. */
6401 cand1->num_convs + DECL_CONSTRUCTOR_P (cand1->fn));
6402 if (winner)
6403 return winner;
6406 /* or, if not that,
6407 the context is an initialization by user-defined conversion (see
6408 _dcl.init_ and _over.match.user_) and the standard conversion
6409 sequence from the return type of F1 to the destination type (i.e.,
6410 the type of the entity being initialized) is a better conversion
6411 sequence than the standard conversion sequence from the return type
6412 of F2 to the destination type. */
6414 if (cand1->second_conv)
6416 winner = compare_ics (cand1->second_conv, cand2->second_conv);
6417 if (winner)
6418 return winner;
6421 /* Check whether we can discard a builtin candidate, either because we
6422 have two identical ones or matching builtin and non-builtin candidates.
6424 (Pedantically in the latter case the builtin which matched the user
6425 function should not be added to the overload set, but we spot it here.
6427 [over.match.oper]
6428 ... the builtin candidates include ...
6429 - do not have the same parameter type list as any non-template
6430 non-member candidate. */
6432 if (TREE_CODE (cand1->fn) == IDENTIFIER_NODE
6433 || TREE_CODE (cand2->fn) == IDENTIFIER_NODE)
6435 for (i = 0; i < len; ++i)
6436 if (!same_type_p (cand1->convs[i]->type,
6437 cand2->convs[i]->type))
6438 break;
6439 if (i == cand1->num_convs)
6441 if (cand1->fn == cand2->fn)
6442 /* Two built-in candidates; arbitrarily pick one. */
6443 return 1;
6444 else if (TREE_CODE (cand1->fn) == IDENTIFIER_NODE)
6445 /* cand1 is built-in; prefer cand2. */
6446 return -1;
6447 else
6448 /* cand2 is built-in; prefer cand1. */
6449 return 1;
6453 /* If the two functions are the same (this can happen with declarations
6454 in multiple scopes and arg-dependent lookup), arbitrarily choose one. */
6455 if (DECL_P (cand1->fn) && DECL_P (cand2->fn)
6456 && equal_functions (cand1->fn, cand2->fn))
6457 return 1;
6459 tweak:
6461 /* Extension: If the worst conversion for one candidate is worse than the
6462 worst conversion for the other, take the first. */
6463 if (!pedantic)
6465 conversion_rank rank1 = cr_identity, rank2 = cr_identity;
6466 struct z_candidate *w = 0, *l = 0;
6468 for (i = 0; i < len; ++i)
6470 if (CONVERSION_RANK (cand1->convs[i+off1]) > rank1)
6471 rank1 = CONVERSION_RANK (cand1->convs[i+off1]);
6472 if (CONVERSION_RANK (cand2->convs[i + off2]) > rank2)
6473 rank2 = CONVERSION_RANK (cand2->convs[i + off2]);
6475 if (rank1 < rank2)
6476 winner = 1, w = cand1, l = cand2;
6477 if (rank1 > rank2)
6478 winner = -1, w = cand2, l = cand1;
6479 if (winner)
6481 if (warn)
6483 pedwarn ("\
6484 ISO C++ says that these are ambiguous, even \
6485 though the worst conversion for the first is better than \
6486 the worst conversion for the second:");
6487 print_z_candidate (_("candidate 1:"), w);
6488 print_z_candidate (_("candidate 2:"), l);
6490 else
6491 add_warning (w, l);
6492 return winner;
6496 gcc_assert (!winner);
6497 return 0;
6500 /* Given a list of candidates for overloading, find the best one, if any.
6501 This algorithm has a worst case of O(2n) (winner is last), and a best
6502 case of O(n/2) (totally ambiguous); much better than a sorting
6503 algorithm. */
6505 static struct z_candidate *
6506 tourney (struct z_candidate *candidates)
6508 struct z_candidate *champ = candidates, *challenger;
6509 int fate;
6510 int champ_compared_to_predecessor = 0;
6512 /* Walk through the list once, comparing each current champ to the next
6513 candidate, knocking out a candidate or two with each comparison. */
6515 for (challenger = champ->next; challenger; )
6517 fate = joust (champ, challenger, 0);
6518 if (fate == 1)
6519 challenger = challenger->next;
6520 else
6522 if (fate == 0)
6524 champ = challenger->next;
6525 if (champ == 0)
6526 return NULL;
6527 champ_compared_to_predecessor = 0;
6529 else
6531 champ = challenger;
6532 champ_compared_to_predecessor = 1;
6535 challenger = champ->next;
6539 /* Make sure the champ is better than all the candidates it hasn't yet
6540 been compared to. */
6542 for (challenger = candidates;
6543 challenger != champ
6544 && !(champ_compared_to_predecessor && challenger->next == champ);
6545 challenger = challenger->next)
6547 fate = joust (champ, challenger, 0);
6548 if (fate != 1)
6549 return NULL;
6552 return champ;
6555 /* Returns nonzero if things of type FROM can be converted to TO. */
6557 bool
6558 can_convert (tree to, tree from)
6560 return can_convert_arg (to, from, NULL_TREE, LOOKUP_NORMAL);
6563 /* Returns nonzero if ARG (of type FROM) can be converted to TO. */
6565 bool
6566 can_convert_arg (tree to, tree from, tree arg, int flags)
6568 conversion *t;
6569 void *p;
6570 bool ok_p;
6572 /* Get the high-water mark for the CONVERSION_OBSTACK. */
6573 p = conversion_obstack_alloc (0);
6575 t = implicit_conversion (to, from, arg, /*c_cast_p=*/false,
6576 flags);
6577 ok_p = (t && !t->bad_p);
6579 /* Free all the conversions we allocated. */
6580 obstack_free (&conversion_obstack, p);
6582 return ok_p;
6585 /* Like can_convert_arg, but allows dubious conversions as well. */
6587 bool
6588 can_convert_arg_bad (tree to, tree from, tree arg)
6590 conversion *t;
6591 void *p;
6593 /* Get the high-water mark for the CONVERSION_OBSTACK. */
6594 p = conversion_obstack_alloc (0);
6595 /* Try to perform the conversion. */
6596 t = implicit_conversion (to, from, arg, /*c_cast_p=*/false,
6597 LOOKUP_NORMAL);
6598 /* Free all the conversions we allocated. */
6599 obstack_free (&conversion_obstack, p);
6601 return t != NULL;
6604 /* Convert EXPR to TYPE. Return the converted expression.
6606 Note that we allow bad conversions here because by the time we get to
6607 this point we are committed to doing the conversion. If we end up
6608 doing a bad conversion, convert_like will complain. */
6610 tree
6611 perform_implicit_conversion (tree type, tree expr)
6613 conversion *conv;
6614 void *p;
6616 if (error_operand_p (expr))
6617 return error_mark_node;
6619 /* Get the high-water mark for the CONVERSION_OBSTACK. */
6620 p = conversion_obstack_alloc (0);
6622 conv = implicit_conversion (type, TREE_TYPE (expr), expr,
6623 /*c_cast_p=*/false,
6624 LOOKUP_NORMAL);
6625 if (!conv)
6627 error ("could not convert %qE to %qT", expr, type);
6628 expr = error_mark_node;
6630 else if (processing_template_decl)
6632 /* In a template, we are only concerned about determining the
6633 type of non-dependent expressions, so we do not have to
6634 perform the actual conversion. */
6635 if (TREE_TYPE (expr) != type)
6636 expr = build_nop (type, expr);
6638 else
6639 expr = convert_like (conv, expr);
6641 /* Free all the conversions we allocated. */
6642 obstack_free (&conversion_obstack, p);
6644 return expr;
6647 /* Convert EXPR to TYPE (as a direct-initialization) if that is
6648 permitted. If the conversion is valid, the converted expression is
6649 returned. Otherwise, NULL_TREE is returned, except in the case
6650 that TYPE is a class type; in that case, an error is issued. If
6651 C_CAST_P is true, then this direction initialization is taking
6652 place as part of a static_cast being attempted as part of a C-style
6653 cast. */
6655 tree
6656 perform_direct_initialization_if_possible (tree type,
6657 tree expr,
6658 bool c_cast_p)
6660 conversion *conv;
6661 void *p;
6663 if (type == error_mark_node || error_operand_p (expr))
6664 return error_mark_node;
6665 /* [dcl.init]
6667 If the destination type is a (possibly cv-qualified) class type:
6669 -- If the initialization is direct-initialization ...,
6670 constructors are considered. ... If no constructor applies, or
6671 the overload resolution is ambiguous, the initialization is
6672 ill-formed. */
6673 if (CLASS_TYPE_P (type))
6675 expr = build_special_member_call (NULL_TREE, complete_ctor_identifier,
6676 build_tree_list (NULL_TREE, expr),
6677 type, LOOKUP_NORMAL);
6678 return build_cplus_new (type, expr);
6681 /* Get the high-water mark for the CONVERSION_OBSTACK. */
6682 p = conversion_obstack_alloc (0);
6684 conv = implicit_conversion (type, TREE_TYPE (expr), expr,
6685 c_cast_p,
6686 LOOKUP_NORMAL);
6687 if (!conv || conv->bad_p)
6688 expr = NULL_TREE;
6689 else
6690 expr = convert_like_real (conv, expr, NULL_TREE, 0, 0,
6691 /*issue_conversion_warnings=*/false,
6692 c_cast_p);
6694 /* Free all the conversions we allocated. */
6695 obstack_free (&conversion_obstack, p);
6697 return expr;
6700 /* DECL is a VAR_DECL whose type is a REFERENCE_TYPE. The reference
6701 is being bound to a temporary. Create and return a new VAR_DECL
6702 with the indicated TYPE; this variable will store the value to
6703 which the reference is bound. */
6705 tree
6706 make_temporary_var_for_ref_to_temp (tree decl, tree type)
6708 tree var;
6710 /* Create the variable. */
6711 var = create_temporary_var (type);
6713 /* Register the variable. */
6714 if (TREE_STATIC (decl))
6716 /* Namespace-scope or local static; give it a mangled name. */
6717 tree name;
6719 TREE_STATIC (var) = 1;
6720 name = mangle_ref_init_variable (decl);
6721 DECL_NAME (var) = name;
6722 SET_DECL_ASSEMBLER_NAME (var, name);
6723 var = pushdecl_top_level (var);
6725 else
6726 /* Create a new cleanup level if necessary. */
6727 maybe_push_cleanup_level (type);
6729 return var;
6732 /* Convert EXPR to the indicated reference TYPE, in a way suitable for
6733 initializing a variable of that TYPE. If DECL is non-NULL, it is
6734 the VAR_DECL being initialized with the EXPR. (In that case, the
6735 type of DECL will be TYPE.) If DECL is non-NULL, then CLEANUP must
6736 also be non-NULL, and with *CLEANUP initialized to NULL. Upon
6737 return, if *CLEANUP is no longer NULL, it will be an expression
6738 that should be pushed as a cleanup after the returned expression
6739 is used to initialize DECL.
6741 Return the converted expression. */
6743 tree
6744 initialize_reference (tree type, tree expr, tree decl, tree *cleanup)
6746 conversion *conv;
6747 void *p;
6749 if (type == error_mark_node || error_operand_p (expr))
6750 return error_mark_node;
6752 /* Get the high-water mark for the CONVERSION_OBSTACK. */
6753 p = conversion_obstack_alloc (0);
6755 conv = reference_binding (type, TREE_TYPE (expr), expr, /*c_cast_p=*/false,
6756 LOOKUP_NORMAL);
6757 if (!conv || conv->bad_p)
6759 if (!(TYPE_QUALS (TREE_TYPE (type)) & TYPE_QUAL_CONST)
6760 && !real_lvalue_p (expr))
6761 error ("invalid initialization of non-const reference of "
6762 "type %qT from a temporary of type %qT",
6763 type, TREE_TYPE (expr));
6764 else
6765 error ("invalid initialization of reference of type "
6766 "%qT from expression of type %qT", type,
6767 TREE_TYPE (expr));
6768 return error_mark_node;
6771 /* If DECL is non-NULL, then this special rule applies:
6773 [class.temporary]
6775 The temporary to which the reference is bound or the temporary
6776 that is the complete object to which the reference is bound
6777 persists for the lifetime of the reference.
6779 The temporaries created during the evaluation of the expression
6780 initializing the reference, except the temporary to which the
6781 reference is bound, are destroyed at the end of the
6782 full-expression in which they are created.
6784 In that case, we store the converted expression into a new
6785 VAR_DECL in a new scope.
6787 However, we want to be careful not to create temporaries when
6788 they are not required. For example, given:
6790 struct B {};
6791 struct D : public B {};
6792 D f();
6793 const B& b = f();
6795 there is no need to copy the return value from "f"; we can just
6796 extend its lifetime. Similarly, given:
6798 struct S {};
6799 struct T { operator S(); };
6800 T t;
6801 const S& s = t;
6803 we can extend the lifetime of the return value of the conversion
6804 operator. */
6805 gcc_assert (conv->kind == ck_ref_bind);
6806 if (decl)
6808 tree var;
6809 tree base_conv_type;
6811 /* Skip over the REF_BIND. */
6812 conv = conv->u.next;
6813 /* If the next conversion is a BASE_CONV, skip that too -- but
6814 remember that the conversion was required. */
6815 if (conv->kind == ck_base)
6817 base_conv_type = conv->type;
6818 conv = conv->u.next;
6820 else
6821 base_conv_type = NULL_TREE;
6822 /* Perform the remainder of the conversion. */
6823 expr = convert_like_real (conv, expr,
6824 /*fn=*/NULL_TREE, /*argnum=*/0,
6825 /*inner=*/-1,
6826 /*issue_conversion_warnings=*/true,
6827 /*c_cast_p=*/false);
6828 if (error_operand_p (expr))
6829 expr = error_mark_node;
6830 else
6832 if (!real_lvalue_p (expr))
6834 tree init;
6835 tree type;
6837 /* Create the temporary variable. */
6838 type = TREE_TYPE (expr);
6839 var = make_temporary_var_for_ref_to_temp (decl, type);
6840 layout_decl (var, 0);
6841 /* If the rvalue is the result of a function call it will be
6842 a TARGET_EXPR. If it is some other construct (such as a
6843 member access expression where the underlying object is
6844 itself the result of a function call), turn it into a
6845 TARGET_EXPR here. It is important that EXPR be a
6846 TARGET_EXPR below since otherwise the INIT_EXPR will
6847 attempt to make a bitwise copy of EXPR to initialize
6848 VAR. */
6849 if (TREE_CODE (expr) != TARGET_EXPR)
6850 expr = get_target_expr (expr);
6851 /* Create the INIT_EXPR that will initialize the temporary
6852 variable. */
6853 init = build2 (INIT_EXPR, type, var, expr);
6854 if (at_function_scope_p ())
6856 add_decl_expr (var);
6858 if (TREE_STATIC (var))
6859 init = add_stmt_to_compound (init, register_dtor_fn (var));
6860 else
6861 *cleanup = cxx_maybe_build_cleanup (var);
6863 /* We must be careful to destroy the temporary only
6864 after its initialization has taken place. If the
6865 initialization throws an exception, then the
6866 destructor should not be run. We cannot simply
6867 transform INIT into something like:
6869 (INIT, ({ CLEANUP_STMT; }))
6871 because emit_local_var always treats the
6872 initializer as a full-expression. Thus, the
6873 destructor would run too early; it would run at the
6874 end of initializing the reference variable, rather
6875 than at the end of the block enclosing the
6876 reference variable.
6878 The solution is to pass back a cleanup expression
6879 which the caller is responsible for attaching to
6880 the statement tree. */
6882 else
6884 rest_of_decl_compilation (var, /*toplev=*/1, at_eof);
6885 if (TYPE_HAS_NONTRIVIAL_DESTRUCTOR (type))
6886 static_aggregates = tree_cons (NULL_TREE, var,
6887 static_aggregates);
6889 /* Use its address to initialize the reference variable. */
6890 expr = build_address (var);
6891 if (base_conv_type)
6892 expr = convert_to_base (expr,
6893 build_pointer_type (base_conv_type),
6894 /*check_access=*/true,
6895 /*nonnull=*/true);
6896 expr = build2 (COMPOUND_EXPR, TREE_TYPE (expr), init, expr);
6898 else
6899 /* Take the address of EXPR. */
6900 expr = build_unary_op (ADDR_EXPR, expr, 0);
6901 /* If a BASE_CONV was required, perform it now. */
6902 if (base_conv_type)
6903 expr = (perform_implicit_conversion
6904 (build_pointer_type (base_conv_type), expr));
6905 expr = build_nop (type, expr);
6908 else
6909 /* Perform the conversion. */
6910 expr = convert_like (conv, expr);
6912 /* Free all the conversions we allocated. */
6913 obstack_free (&conversion_obstack, p);
6915 return expr;
6918 #include "gt-cp-call.h"