Introduce C++ support in libcc1
[official-gcc.git] / gcc / cp / call.c
blob6533214799d1bf40d68cf8b3bd3d104ebd2a4b75
1 /* Functions related to invoking -*- C++ -*- methods and overloaded functions.
2 Copyright (C) 1987-2017 Free Software Foundation, Inc.
3 Contributed by Michael Tiemann (tiemann@cygnus.com) and
4 modified by Brendan Kehoe (brendan@cygnus.com).
6 This file is part of GCC.
8 GCC is free software; you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation; either version 3, or (at your option)
11 any later version.
13 GCC is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with GCC; see the file COPYING3. If not see
20 <http://www.gnu.org/licenses/>. */
23 /* High-level class interface. */
25 #include "config.h"
26 #include "system.h"
27 #include "coretypes.h"
28 #include "target.h"
29 #include "cp-tree.h"
30 #include "timevar.h"
31 #include "stringpool.h"
32 #include "cgraph.h"
33 #include "stor-layout.h"
34 #include "trans-mem.h"
35 #include "flags.h"
36 #include "toplev.h"
37 #include "intl.h"
38 #include "convert.h"
39 #include "langhooks.h"
40 #include "c-family/c-objc.h"
41 #include "internal-fn.h"
43 /* The various kinds of conversion. */
45 enum conversion_kind {
46 ck_identity,
47 ck_lvalue,
48 ck_fnptr,
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_list,
58 ck_aggr,
59 ck_rvalue
62 /* The rank of the conversion. Order of the enumerals matters; better
63 conversions should come earlier in the list. */
65 enum conversion_rank {
66 cr_identity,
67 cr_exact,
68 cr_promotion,
69 cr_std,
70 cr_pbool,
71 cr_user,
72 cr_ellipsis,
73 cr_bad
76 /* An implicit conversion sequence, in the sense of [over.best.ics].
77 The first conversion to be performed is at the end of the chain.
78 That conversion is always a cr_identity conversion. */
80 struct conversion {
81 /* The kind of conversion represented by this step. */
82 conversion_kind kind;
83 /* The rank of this conversion. */
84 conversion_rank rank;
85 BOOL_BITFIELD user_conv_p : 1;
86 BOOL_BITFIELD ellipsis_p : 1;
87 BOOL_BITFIELD this_p : 1;
88 /* True if this conversion would be permitted with a bending of
89 language standards, e.g. disregarding pointer qualifiers or
90 converting integers to pointers. */
91 BOOL_BITFIELD bad_p : 1;
92 /* If KIND is ck_ref_bind ck_base_conv, true to indicate that a
93 temporary should be created to hold the result of the
94 conversion. */
95 BOOL_BITFIELD need_temporary_p : 1;
96 /* If KIND is ck_ptr or ck_pmem, true to indicate that a conversion
97 from a pointer-to-derived to pointer-to-base is being performed. */
98 BOOL_BITFIELD base_p : 1;
99 /* If KIND is ck_ref_bind, true when either an lvalue reference is
100 being bound to an lvalue expression or an rvalue reference is
101 being bound to an rvalue expression. If KIND is ck_rvalue,
102 true when we should treat an lvalue as an rvalue (12.8p33). If
103 KIND is ck_base, always false. */
104 BOOL_BITFIELD rvaluedness_matches_p: 1;
105 BOOL_BITFIELD check_narrowing: 1;
106 /* The type of the expression resulting from the conversion. */
107 tree type;
108 union {
109 /* The next conversion in the chain. Since the conversions are
110 arranged from outermost to innermost, the NEXT conversion will
111 actually be performed before this conversion. This variant is
112 used only when KIND is neither ck_identity, ck_ambig nor
113 ck_list. Please use the next_conversion function instead
114 of using this field directly. */
115 conversion *next;
116 /* The expression at the beginning of the conversion chain. This
117 variant is used only if KIND is ck_identity or ck_ambig. */
118 tree expr;
119 /* The array of conversions for an initializer_list, so this
120 variant is used only when KIN D is ck_list. */
121 conversion **list;
122 } u;
123 /* The function candidate corresponding to this conversion
124 sequence. This field is only used if KIND is ck_user. */
125 struct z_candidate *cand;
128 #define CONVERSION_RANK(NODE) \
129 ((NODE)->bad_p ? cr_bad \
130 : (NODE)->ellipsis_p ? cr_ellipsis \
131 : (NODE)->user_conv_p ? cr_user \
132 : (NODE)->rank)
134 #define BAD_CONVERSION_RANK(NODE) \
135 ((NODE)->ellipsis_p ? cr_ellipsis \
136 : (NODE)->user_conv_p ? cr_user \
137 : (NODE)->rank)
139 static struct obstack conversion_obstack;
140 static bool conversion_obstack_initialized;
141 struct rejection_reason;
143 static struct z_candidate * tourney (struct z_candidate *, tsubst_flags_t);
144 static int equal_functions (tree, tree);
145 static int joust (struct z_candidate *, struct z_candidate *, bool,
146 tsubst_flags_t);
147 static int compare_ics (conversion *, conversion *);
148 static tree build_over_call (struct z_candidate *, int, tsubst_flags_t);
149 #define convert_like(CONV, EXPR, COMPLAIN) \
150 convert_like_real ((CONV), (EXPR), NULL_TREE, 0, 0, \
151 /*issue_conversion_warnings=*/true, \
152 /*c_cast_p=*/false, (COMPLAIN))
153 #define convert_like_with_context(CONV, EXPR, FN, ARGNO, COMPLAIN ) \
154 convert_like_real ((CONV), (EXPR), (FN), (ARGNO), 0, \
155 /*issue_conversion_warnings=*/true, \
156 /*c_cast_p=*/false, (COMPLAIN))
157 static tree convert_like_real (conversion *, tree, tree, int, int, bool,
158 bool, tsubst_flags_t);
159 static void op_error (location_t, enum tree_code, enum tree_code, tree,
160 tree, tree, bool);
161 static struct z_candidate *build_user_type_conversion_1 (tree, tree, int,
162 tsubst_flags_t);
163 static void print_z_candidate (location_t, const char *, struct z_candidate *);
164 static void print_z_candidates (location_t, struct z_candidate *);
165 static tree build_this (tree);
166 static struct z_candidate *splice_viable (struct z_candidate *, bool, bool *);
167 static bool any_strictly_viable (struct z_candidate *);
168 static struct z_candidate *add_template_candidate
169 (struct z_candidate **, tree, tree, tree, tree, const vec<tree, va_gc> *,
170 tree, tree, tree, int, unification_kind_t, tsubst_flags_t);
171 static struct z_candidate *add_template_candidate_real
172 (struct z_candidate **, tree, tree, tree, tree, const vec<tree, va_gc> *,
173 tree, tree, tree, int, tree, unification_kind_t, tsubst_flags_t);
174 static void add_builtin_candidates
175 (struct z_candidate **, enum tree_code, enum tree_code,
176 tree, tree *, int, tsubst_flags_t);
177 static void add_builtin_candidate
178 (struct z_candidate **, enum tree_code, enum tree_code,
179 tree, tree, tree, tree *, tree *, int, tsubst_flags_t);
180 static bool is_complete (tree);
181 static void build_builtin_candidate
182 (struct z_candidate **, tree, tree, tree, tree *, tree *,
183 int, tsubst_flags_t);
184 static struct z_candidate *add_conv_candidate
185 (struct z_candidate **, tree, tree, const vec<tree, va_gc> *, tree,
186 tree, tsubst_flags_t);
187 static struct z_candidate *add_function_candidate
188 (struct z_candidate **, tree, tree, tree, const vec<tree, va_gc> *, tree,
189 tree, int, tsubst_flags_t);
190 static conversion *implicit_conversion (tree, tree, tree, bool, int,
191 tsubst_flags_t);
192 static conversion *reference_binding (tree, tree, tree, bool, int,
193 tsubst_flags_t);
194 static conversion *build_conv (conversion_kind, tree, conversion *);
195 static conversion *build_list_conv (tree, tree, int, tsubst_flags_t);
196 static conversion *next_conversion (conversion *);
197 static bool is_subseq (conversion *, conversion *);
198 static conversion *maybe_handle_ref_bind (conversion **);
199 static void maybe_handle_implicit_object (conversion **);
200 static struct z_candidate *add_candidate
201 (struct z_candidate **, tree, tree, const vec<tree, va_gc> *, size_t,
202 conversion **, tree, tree, int, struct rejection_reason *, int);
203 static tree source_type (conversion *);
204 static void add_warning (struct z_candidate *, struct z_candidate *);
205 static bool reference_compatible_p (tree, tree);
206 static conversion *direct_reference_binding (tree, conversion *);
207 static bool promoted_arithmetic_type_p (tree);
208 static conversion *conditional_conversion (tree, tree, tsubst_flags_t);
209 static char *name_as_c_string (tree, tree, bool *);
210 static tree prep_operand (tree);
211 static void add_candidates (tree, tree, const vec<tree, va_gc> *, tree, tree,
212 bool, tree, tree, int, struct z_candidate **,
213 tsubst_flags_t);
214 static conversion *merge_conversion_sequences (conversion *, conversion *);
215 static tree build_temp (tree, tree, int, diagnostic_t *, tsubst_flags_t);
217 /* Returns nonzero iff the destructor name specified in NAME matches BASETYPE.
218 NAME can take many forms... */
220 bool
221 check_dtor_name (tree basetype, tree name)
223 /* Just accept something we've already complained about. */
224 if (name == error_mark_node)
225 return true;
227 if (TREE_CODE (name) == TYPE_DECL)
228 name = TREE_TYPE (name);
229 else if (TYPE_P (name))
230 /* OK */;
231 else if (identifier_p (name))
233 if ((MAYBE_CLASS_TYPE_P (basetype)
234 && name == constructor_name (basetype))
235 || (TREE_CODE (basetype) == ENUMERAL_TYPE
236 && name == TYPE_IDENTIFIER (basetype)))
237 return true;
238 else
239 name = get_type_value (name);
241 else
243 /* In the case of:
245 template <class T> struct S { ~S(); };
246 int i;
247 i.~S();
249 NAME will be a class template. */
250 gcc_assert (DECL_CLASS_TEMPLATE_P (name));
251 return false;
254 if (!name || name == error_mark_node)
255 return false;
256 return same_type_p (TYPE_MAIN_VARIANT (basetype), TYPE_MAIN_VARIANT (name));
259 /* We want the address of a function or method. We avoid creating a
260 pointer-to-member function. */
262 tree
263 build_addr_func (tree function, tsubst_flags_t complain)
265 tree type = TREE_TYPE (function);
267 /* We have to do these by hand to avoid real pointer to member
268 functions. */
269 if (TREE_CODE (type) == METHOD_TYPE)
271 if (TREE_CODE (function) == OFFSET_REF)
273 tree object = build_address (TREE_OPERAND (function, 0));
274 return get_member_function_from_ptrfunc (&object,
275 TREE_OPERAND (function, 1),
276 complain);
278 function = build_address (function);
280 else
281 function = decay_conversion (function, complain, /*reject_builtin=*/false);
283 return function;
286 /* Build a CALL_EXPR, we can handle FUNCTION_TYPEs, METHOD_TYPEs, or
287 POINTER_TYPE to those. Note, pointer to member function types
288 (TYPE_PTRMEMFUNC_P) must be handled by our callers. There are
289 two variants. build_call_a is the primitive taking an array of
290 arguments, while build_call_n is a wrapper that handles varargs. */
292 tree
293 build_call_n (tree function, int n, ...)
295 if (n == 0)
296 return build_call_a (function, 0, NULL);
297 else
299 tree *argarray = XALLOCAVEC (tree, n);
300 va_list ap;
301 int i;
303 va_start (ap, n);
304 for (i = 0; i < n; i++)
305 argarray[i] = va_arg (ap, tree);
306 va_end (ap);
307 return build_call_a (function, n, argarray);
311 /* Update various flags in cfun and the call itself based on what is being
312 called. Split out of build_call_a so that bot_manip can use it too. */
314 void
315 set_flags_from_callee (tree call)
317 bool nothrow;
318 tree decl = get_callee_fndecl (call);
320 /* We check both the decl and the type; a function may be known not to
321 throw without being declared throw(). */
322 nothrow = decl && TREE_NOTHROW (decl);
323 if (CALL_EXPR_FN (call))
324 nothrow |= TYPE_NOTHROW_P (TREE_TYPE (TREE_TYPE (CALL_EXPR_FN (call))));
325 else if (internal_fn_flags (CALL_EXPR_IFN (call)) & ECF_NOTHROW)
326 nothrow = true;
328 if (!nothrow && at_function_scope_p () && cfun && cp_function_chain)
329 cp_function_chain->can_throw = 1;
331 if (decl && TREE_THIS_VOLATILE (decl) && cfun && cp_function_chain)
332 current_function_returns_abnormally = 1;
334 TREE_NOTHROW (call) = nothrow;
337 tree
338 build_call_a (tree function, int n, tree *argarray)
340 tree decl;
341 tree result_type;
342 tree fntype;
343 int i;
345 function = build_addr_func (function, tf_warning_or_error);
347 gcc_assert (TYPE_PTR_P (TREE_TYPE (function)));
348 fntype = TREE_TYPE (TREE_TYPE (function));
349 gcc_assert (TREE_CODE (fntype) == FUNCTION_TYPE
350 || TREE_CODE (fntype) == METHOD_TYPE);
351 result_type = TREE_TYPE (fntype);
352 /* An rvalue has no cv-qualifiers. */
353 if (SCALAR_TYPE_P (result_type) || VOID_TYPE_P (result_type))
354 result_type = cv_unqualified (result_type);
356 function = build_call_array_loc (input_location,
357 result_type, function, n, argarray);
358 set_flags_from_callee (function);
360 decl = get_callee_fndecl (function);
362 if (decl && !TREE_USED (decl))
364 /* We invoke build_call directly for several library
365 functions. These may have been declared normally if
366 we're building libgcc, so we can't just check
367 DECL_ARTIFICIAL. */
368 gcc_assert (DECL_ARTIFICIAL (decl)
369 || !strncmp (IDENTIFIER_POINTER (DECL_NAME (decl)),
370 "__", 2));
371 mark_used (decl);
374 require_complete_eh_spec_types (fntype, decl);
376 TREE_HAS_CONSTRUCTOR (function) = (decl && DECL_CONSTRUCTOR_P (decl));
378 if (current_function_decl && decl
379 && flag_new_inheriting_ctors
380 && DECL_INHERITED_CTOR (current_function_decl)
381 && (DECL_INHERITED_CTOR (current_function_decl)
382 == DECL_CLONED_FUNCTION (decl)))
383 /* Pass arguments directly to the inherited constructor. */
384 CALL_FROM_THUNK_P (function) = true;
386 /* Don't pass empty class objects by value. This is useful
387 for tags in STL, which are used to control overload resolution.
388 We don't need to handle other cases of copying empty classes. */
389 else if (! decl || ! DECL_BUILT_IN (decl))
390 for (i = 0; i < n; i++)
392 tree arg = CALL_EXPR_ARG (function, i);
393 if (is_empty_class (TREE_TYPE (arg))
394 && ! TREE_ADDRESSABLE (TREE_TYPE (arg)))
396 tree t = build0 (EMPTY_CLASS_EXPR, TREE_TYPE (arg));
397 arg = build2 (COMPOUND_EXPR, TREE_TYPE (t), arg, t);
398 CALL_EXPR_ARG (function, i) = arg;
402 return function;
405 /* New overloading code. */
407 struct z_candidate;
409 struct candidate_warning {
410 z_candidate *loser;
411 candidate_warning *next;
414 /* Information for providing diagnostics about why overloading failed. */
416 enum rejection_reason_code {
417 rr_none,
418 rr_arity,
419 rr_explicit_conversion,
420 rr_template_conversion,
421 rr_arg_conversion,
422 rr_bad_arg_conversion,
423 rr_template_unification,
424 rr_invalid_copy,
425 rr_inherited_ctor,
426 rr_constraint_failure
429 struct conversion_info {
430 /* The index of the argument, 0-based. */
431 int n_arg;
432 /* The actual argument or its type. */
433 tree from;
434 /* The type of the parameter. */
435 tree to_type;
438 struct rejection_reason {
439 enum rejection_reason_code code;
440 union {
441 /* Information about an arity mismatch. */
442 struct {
443 /* The expected number of arguments. */
444 int expected;
445 /* The actual number of arguments in the call. */
446 int actual;
447 /* Whether the call was a varargs call. */
448 bool call_varargs_p;
449 } arity;
450 /* Information about an argument conversion mismatch. */
451 struct conversion_info conversion;
452 /* Same, but for bad argument conversions. */
453 struct conversion_info bad_conversion;
454 /* Information about template unification failures. These are the
455 parameters passed to fn_type_unification. */
456 struct {
457 tree tmpl;
458 tree explicit_targs;
459 int num_targs;
460 const tree *args;
461 unsigned int nargs;
462 tree return_type;
463 unification_kind_t strict;
464 int flags;
465 } template_unification;
466 /* Information about template instantiation failures. These are the
467 parameters passed to instantiate_template. */
468 struct {
469 tree tmpl;
470 tree targs;
471 } template_instantiation;
472 } u;
475 struct z_candidate {
476 /* The FUNCTION_DECL that will be called if this candidate is
477 selected by overload resolution. */
478 tree fn;
479 /* If not NULL_TREE, the first argument to use when calling this
480 function. */
481 tree first_arg;
482 /* The rest of the arguments to use when calling this function. If
483 there are no further arguments this may be NULL or it may be an
484 empty vector. */
485 const vec<tree, va_gc> *args;
486 /* The implicit conversion sequences for each of the arguments to
487 FN. */
488 conversion **convs;
489 /* The number of implicit conversion sequences. */
490 size_t num_convs;
491 /* If FN is a user-defined conversion, the standard conversion
492 sequence from the type returned by FN to the desired destination
493 type. */
494 conversion *second_conv;
495 struct rejection_reason *reason;
496 /* If FN is a member function, the binfo indicating the path used to
497 qualify the name of FN at the call site. This path is used to
498 determine whether or not FN is accessible if it is selected by
499 overload resolution. The DECL_CONTEXT of FN will always be a
500 (possibly improper) base of this binfo. */
501 tree access_path;
502 /* If FN is a non-static member function, the binfo indicating the
503 subobject to which the `this' pointer should be converted if FN
504 is selected by overload resolution. The type pointed to by
505 the `this' pointer must correspond to the most derived class
506 indicated by the CONVERSION_PATH. */
507 tree conversion_path;
508 tree template_decl;
509 tree explicit_targs;
510 candidate_warning *warnings;
511 z_candidate *next;
512 int viable;
514 /* The flags active in add_candidate. */
515 int flags;
518 /* Returns true iff T is a null pointer constant in the sense of
519 [conv.ptr]. */
521 bool
522 null_ptr_cst_p (tree t)
524 tree type = TREE_TYPE (t);
526 /* [conv.ptr]
528 A null pointer constant is an integral constant expression
529 (_expr.const_) rvalue of integer type that evaluates to zero or
530 an rvalue of type std::nullptr_t. */
531 if (NULLPTR_TYPE_P (type))
532 return true;
534 if (cxx_dialect >= cxx11)
536 /* Core issue 903 says only literal 0 is a null pointer constant. */
537 if (TREE_CODE (type) == INTEGER_TYPE
538 && !char_type_p (type)
539 && TREE_CODE (t) == INTEGER_CST
540 && integer_zerop (t)
541 && !TREE_OVERFLOW (t))
542 return true;
544 else if (CP_INTEGRAL_TYPE_P (type))
546 t = fold_non_dependent_expr (t);
547 STRIP_NOPS (t);
548 if (integer_zerop (t) && !TREE_OVERFLOW (t))
549 return true;
552 return false;
555 /* Returns true iff T is a null member pointer value (4.11). */
557 bool
558 null_member_pointer_value_p (tree t)
560 tree type = TREE_TYPE (t);
561 if (!type)
562 return false;
563 else if (TYPE_PTRMEMFUNC_P (type))
564 return (TREE_CODE (t) == CONSTRUCTOR
565 && integer_zerop (CONSTRUCTOR_ELT (t, 0)->value));
566 else if (TYPE_PTRDATAMEM_P (type))
567 return integer_all_onesp (t);
568 else
569 return false;
572 /* Returns nonzero if PARMLIST consists of only default parms,
573 ellipsis, and/or undeduced parameter packs. */
575 bool
576 sufficient_parms_p (const_tree parmlist)
578 for (; parmlist && parmlist != void_list_node;
579 parmlist = TREE_CHAIN (parmlist))
580 if (!TREE_PURPOSE (parmlist)
581 && !PACK_EXPANSION_P (TREE_VALUE (parmlist)))
582 return false;
583 return true;
586 /* Allocate N bytes of memory from the conversion obstack. The memory
587 is zeroed before being returned. */
589 static void *
590 conversion_obstack_alloc (size_t n)
592 void *p;
593 if (!conversion_obstack_initialized)
595 gcc_obstack_init (&conversion_obstack);
596 conversion_obstack_initialized = true;
598 p = obstack_alloc (&conversion_obstack, n);
599 memset (p, 0, n);
600 return p;
603 /* Allocate rejection reasons. */
605 static struct rejection_reason *
606 alloc_rejection (enum rejection_reason_code code)
608 struct rejection_reason *p;
609 p = (struct rejection_reason *) conversion_obstack_alloc (sizeof *p);
610 p->code = code;
611 return p;
614 static struct rejection_reason *
615 arity_rejection (tree first_arg, int expected, int actual)
617 struct rejection_reason *r = alloc_rejection (rr_arity);
618 int adjust = first_arg != NULL_TREE;
619 r->u.arity.expected = expected - adjust;
620 r->u.arity.actual = actual - adjust;
621 return r;
624 static struct rejection_reason *
625 arg_conversion_rejection (tree first_arg, int n_arg, tree from, tree to)
627 struct rejection_reason *r = alloc_rejection (rr_arg_conversion);
628 int adjust = first_arg != NULL_TREE;
629 r->u.conversion.n_arg = n_arg - adjust;
630 r->u.conversion.from = from;
631 r->u.conversion.to_type = to;
632 return r;
635 static struct rejection_reason *
636 bad_arg_conversion_rejection (tree first_arg, int n_arg, tree from, tree to)
638 struct rejection_reason *r = alloc_rejection (rr_bad_arg_conversion);
639 int adjust = first_arg != NULL_TREE;
640 r->u.bad_conversion.n_arg = n_arg - adjust;
641 r->u.bad_conversion.from = from;
642 r->u.bad_conversion.to_type = to;
643 return r;
646 static struct rejection_reason *
647 explicit_conversion_rejection (tree from, tree to)
649 struct rejection_reason *r = alloc_rejection (rr_explicit_conversion);
650 r->u.conversion.n_arg = 0;
651 r->u.conversion.from = from;
652 r->u.conversion.to_type = to;
653 return r;
656 static struct rejection_reason *
657 template_conversion_rejection (tree from, tree to)
659 struct rejection_reason *r = alloc_rejection (rr_template_conversion);
660 r->u.conversion.n_arg = 0;
661 r->u.conversion.from = from;
662 r->u.conversion.to_type = to;
663 return r;
666 static struct rejection_reason *
667 template_unification_rejection (tree tmpl, tree explicit_targs, tree targs,
668 const tree *args, unsigned int nargs,
669 tree return_type, unification_kind_t strict,
670 int flags)
672 size_t args_n_bytes = sizeof (*args) * nargs;
673 tree *args1 = (tree *) conversion_obstack_alloc (args_n_bytes);
674 struct rejection_reason *r = alloc_rejection (rr_template_unification);
675 r->u.template_unification.tmpl = tmpl;
676 r->u.template_unification.explicit_targs = explicit_targs;
677 r->u.template_unification.num_targs = TREE_VEC_LENGTH (targs);
678 /* Copy args to our own storage. */
679 memcpy (args1, args, args_n_bytes);
680 r->u.template_unification.args = args1;
681 r->u.template_unification.nargs = nargs;
682 r->u.template_unification.return_type = return_type;
683 r->u.template_unification.strict = strict;
684 r->u.template_unification.flags = flags;
685 return r;
688 static struct rejection_reason *
689 template_unification_error_rejection (void)
691 return alloc_rejection (rr_template_unification);
694 static struct rejection_reason *
695 invalid_copy_with_fn_template_rejection (void)
697 struct rejection_reason *r = alloc_rejection (rr_invalid_copy);
698 return r;
701 static struct rejection_reason *
702 inherited_ctor_rejection (void)
704 struct rejection_reason *r = alloc_rejection (rr_inherited_ctor);
705 return r;
708 // Build a constraint failure record, saving information into the
709 // template_instantiation field of the rejection. If FN is not a template
710 // declaration, the TMPL member is the FN declaration and TARGS is empty.
712 static struct rejection_reason *
713 constraint_failure (tree fn)
715 struct rejection_reason *r = alloc_rejection (rr_constraint_failure);
716 if (tree ti = DECL_TEMPLATE_INFO (fn))
718 r->u.template_instantiation.tmpl = TI_TEMPLATE (ti);
719 r->u.template_instantiation.targs = TI_ARGS (ti);
721 else
723 r->u.template_instantiation.tmpl = fn;
724 r->u.template_instantiation.targs = NULL_TREE;
726 return r;
729 /* Dynamically allocate a conversion. */
731 static conversion *
732 alloc_conversion (conversion_kind kind)
734 conversion *c;
735 c = (conversion *) conversion_obstack_alloc (sizeof (conversion));
736 c->kind = kind;
737 return c;
740 /* Make sure that all memory on the conversion obstack has been
741 freed. */
743 void
744 validate_conversion_obstack (void)
746 if (conversion_obstack_initialized)
747 gcc_assert ((obstack_next_free (&conversion_obstack)
748 == obstack_base (&conversion_obstack)));
751 /* Dynamically allocate an array of N conversions. */
753 static conversion **
754 alloc_conversions (size_t n)
756 return (conversion **) conversion_obstack_alloc (n * sizeof (conversion *));
759 static conversion *
760 build_conv (conversion_kind code, tree type, conversion *from)
762 conversion *t;
763 conversion_rank rank = CONVERSION_RANK (from);
765 /* Note that the caller is responsible for filling in t->cand for
766 user-defined conversions. */
767 t = alloc_conversion (code);
768 t->type = type;
769 t->u.next = from;
771 switch (code)
773 case ck_ptr:
774 case ck_pmem:
775 case ck_base:
776 case ck_std:
777 if (rank < cr_std)
778 rank = cr_std;
779 break;
781 case ck_qual:
782 case ck_fnptr:
783 if (rank < cr_exact)
784 rank = cr_exact;
785 break;
787 default:
788 break;
790 t->rank = rank;
791 t->user_conv_p = (code == ck_user || from->user_conv_p);
792 t->bad_p = from->bad_p;
793 t->base_p = false;
794 return t;
797 /* Represent a conversion from CTOR, a braced-init-list, to TYPE, a
798 specialization of std::initializer_list<T>, if such a conversion is
799 possible. */
801 static conversion *
802 build_list_conv (tree type, tree ctor, int flags, tsubst_flags_t complain)
804 tree elttype = TREE_VEC_ELT (CLASSTYPE_TI_ARGS (type), 0);
805 unsigned len = CONSTRUCTOR_NELTS (ctor);
806 conversion **subconvs = alloc_conversions (len);
807 conversion *t;
808 unsigned i;
809 tree val;
811 /* Within a list-initialization we can have more user-defined
812 conversions. */
813 flags &= ~LOOKUP_NO_CONVERSION;
814 /* But no narrowing conversions. */
815 flags |= LOOKUP_NO_NARROWING;
817 /* Can't make an array of these types. */
818 if (TREE_CODE (elttype) == REFERENCE_TYPE
819 || TREE_CODE (elttype) == FUNCTION_TYPE
820 || VOID_TYPE_P (elttype))
821 return NULL;
823 FOR_EACH_CONSTRUCTOR_VALUE (CONSTRUCTOR_ELTS (ctor), i, val)
825 conversion *sub
826 = implicit_conversion (elttype, TREE_TYPE (val), val,
827 false, flags, complain);
828 if (sub == NULL)
829 return NULL;
831 subconvs[i] = sub;
834 t = alloc_conversion (ck_list);
835 t->type = type;
836 t->u.list = subconvs;
837 t->rank = cr_exact;
839 for (i = 0; i < len; ++i)
841 conversion *sub = subconvs[i];
842 if (sub->rank > t->rank)
843 t->rank = sub->rank;
844 if (sub->user_conv_p)
845 t->user_conv_p = true;
846 if (sub->bad_p)
847 t->bad_p = true;
850 return t;
853 /* Return the next conversion of the conversion chain (if applicable),
854 or NULL otherwise. Please use this function instead of directly
855 accessing fields of struct conversion. */
857 static conversion *
858 next_conversion (conversion *conv)
860 if (conv == NULL
861 || conv->kind == ck_identity
862 || conv->kind == ck_ambig
863 || conv->kind == ck_list)
864 return NULL;
865 return conv->u.next;
868 /* Subroutine of build_aggr_conv: check whether CTOR, a braced-init-list,
869 is a valid aggregate initializer for array type ATYPE. */
871 static bool
872 can_convert_array (tree atype, tree ctor, int flags, tsubst_flags_t complain)
874 unsigned i;
875 tree elttype = TREE_TYPE (atype);
876 for (i = 0; i < CONSTRUCTOR_NELTS (ctor); ++i)
878 tree val = CONSTRUCTOR_ELT (ctor, i)->value;
879 bool ok;
880 if (TREE_CODE (elttype) == ARRAY_TYPE
881 && TREE_CODE (val) == CONSTRUCTOR)
882 ok = can_convert_array (elttype, val, flags, complain);
883 else
884 ok = can_convert_arg (elttype, TREE_TYPE (val), val, flags,
885 complain);
886 if (!ok)
887 return false;
889 return true;
892 /* Represent a conversion from CTOR, a braced-init-list, to TYPE, an
893 aggregate class, if such a conversion is possible. */
895 static conversion *
896 build_aggr_conv (tree type, tree ctor, int flags, tsubst_flags_t complain)
898 unsigned HOST_WIDE_INT i = 0;
899 conversion *c;
900 tree field = next_initializable_field (TYPE_FIELDS (type));
901 tree empty_ctor = NULL_TREE;
903 /* We already called reshape_init in implicit_conversion. */
905 /* The conversions within the init-list aren't affected by the enclosing
906 context; they're always simple copy-initialization. */
907 flags = LOOKUP_IMPLICIT|LOOKUP_NO_NARROWING;
909 for (; field; field = next_initializable_field (DECL_CHAIN (field)))
911 tree ftype = TREE_TYPE (field);
912 tree val;
913 bool ok;
915 if (i < CONSTRUCTOR_NELTS (ctor))
916 val = CONSTRUCTOR_ELT (ctor, i)->value;
917 else if (DECL_INITIAL (field))
918 val = get_nsdmi (field, /*ctor*/false);
919 else if (TREE_CODE (ftype) == REFERENCE_TYPE)
920 /* Value-initialization of reference is ill-formed. */
921 return NULL;
922 else
924 if (empty_ctor == NULL_TREE)
925 empty_ctor = build_constructor (init_list_type_node, NULL);
926 val = empty_ctor;
928 ++i;
930 if (TREE_CODE (ftype) == ARRAY_TYPE
931 && TREE_CODE (val) == CONSTRUCTOR)
932 ok = can_convert_array (ftype, val, flags, complain);
933 else
934 ok = can_convert_arg (ftype, TREE_TYPE (val), val, flags,
935 complain);
937 if (!ok)
938 return NULL;
940 if (TREE_CODE (type) == UNION_TYPE)
941 break;
944 if (i < CONSTRUCTOR_NELTS (ctor))
945 return NULL;
947 c = alloc_conversion (ck_aggr);
948 c->type = type;
949 c->rank = cr_exact;
950 c->user_conv_p = true;
951 c->check_narrowing = true;
952 c->u.next = NULL;
953 return c;
956 /* Represent a conversion from CTOR, a braced-init-list, to TYPE, an
957 array type, if such a conversion is possible. */
959 static conversion *
960 build_array_conv (tree type, tree ctor, int flags, tsubst_flags_t complain)
962 conversion *c;
963 unsigned HOST_WIDE_INT len = CONSTRUCTOR_NELTS (ctor);
964 tree elttype = TREE_TYPE (type);
965 unsigned i;
966 tree val;
967 bool bad = false;
968 bool user = false;
969 enum conversion_rank rank = cr_exact;
971 /* We might need to propagate the size from the element to the array. */
972 complete_type (type);
974 if (TYPE_DOMAIN (type)
975 && !variably_modified_type_p (TYPE_DOMAIN (type), NULL_TREE))
977 unsigned HOST_WIDE_INT alen = tree_to_uhwi (array_type_nelts_top (type));
978 if (alen < len)
979 return NULL;
982 flags = LOOKUP_IMPLICIT|LOOKUP_NO_NARROWING;
984 FOR_EACH_CONSTRUCTOR_VALUE (CONSTRUCTOR_ELTS (ctor), i, val)
986 conversion *sub
987 = implicit_conversion (elttype, TREE_TYPE (val), val,
988 false, flags, complain);
989 if (sub == NULL)
990 return NULL;
992 if (sub->rank > rank)
993 rank = sub->rank;
994 if (sub->user_conv_p)
995 user = true;
996 if (sub->bad_p)
997 bad = true;
1000 c = alloc_conversion (ck_aggr);
1001 c->type = type;
1002 c->rank = rank;
1003 c->user_conv_p = user;
1004 c->bad_p = bad;
1005 c->u.next = NULL;
1006 return c;
1009 /* Represent a conversion from CTOR, a braced-init-list, to TYPE, a
1010 complex type, if such a conversion is possible. */
1012 static conversion *
1013 build_complex_conv (tree type, tree ctor, int flags,
1014 tsubst_flags_t complain)
1016 conversion *c;
1017 unsigned HOST_WIDE_INT len = CONSTRUCTOR_NELTS (ctor);
1018 tree elttype = TREE_TYPE (type);
1019 unsigned i;
1020 tree val;
1021 bool bad = false;
1022 bool user = false;
1023 enum conversion_rank rank = cr_exact;
1025 if (len != 2)
1026 return NULL;
1028 flags = LOOKUP_IMPLICIT|LOOKUP_NO_NARROWING;
1030 FOR_EACH_CONSTRUCTOR_VALUE (CONSTRUCTOR_ELTS (ctor), i, val)
1032 conversion *sub
1033 = implicit_conversion (elttype, TREE_TYPE (val), val,
1034 false, flags, complain);
1035 if (sub == NULL)
1036 return NULL;
1038 if (sub->rank > rank)
1039 rank = sub->rank;
1040 if (sub->user_conv_p)
1041 user = true;
1042 if (sub->bad_p)
1043 bad = true;
1046 c = alloc_conversion (ck_aggr);
1047 c->type = type;
1048 c->rank = rank;
1049 c->user_conv_p = user;
1050 c->bad_p = bad;
1051 c->u.next = NULL;
1052 return c;
1055 /* Build a representation of the identity conversion from EXPR to
1056 itself. The TYPE should match the type of EXPR, if EXPR is non-NULL. */
1058 static conversion *
1059 build_identity_conv (tree type, tree expr)
1061 conversion *c;
1063 c = alloc_conversion (ck_identity);
1064 c->type = type;
1065 c->u.expr = expr;
1067 return c;
1070 /* Converting from EXPR to TYPE was ambiguous in the sense that there
1071 were multiple user-defined conversions to accomplish the job.
1072 Build a conversion that indicates that ambiguity. */
1074 static conversion *
1075 build_ambiguous_conv (tree type, tree expr)
1077 conversion *c;
1079 c = alloc_conversion (ck_ambig);
1080 c->type = type;
1081 c->u.expr = expr;
1083 return c;
1086 tree
1087 strip_top_quals (tree t)
1089 if (TREE_CODE (t) == ARRAY_TYPE)
1090 return t;
1091 return cp_build_qualified_type (t, 0);
1094 /* Returns the standard conversion path (see [conv]) from type FROM to type
1095 TO, if any. For proper handling of null pointer constants, you must
1096 also pass the expression EXPR to convert from. If C_CAST_P is true,
1097 this conversion is coming from a C-style cast. */
1099 static conversion *
1100 standard_conversion (tree to, tree from, tree expr, bool c_cast_p,
1101 int flags, tsubst_flags_t complain)
1103 enum tree_code fcode, tcode;
1104 conversion *conv;
1105 bool fromref = false;
1106 tree qualified_to;
1108 to = non_reference (to);
1109 if (TREE_CODE (from) == REFERENCE_TYPE)
1111 fromref = true;
1112 from = TREE_TYPE (from);
1114 qualified_to = to;
1115 to = strip_top_quals (to);
1116 from = strip_top_quals (from);
1118 if (expr && type_unknown_p (expr))
1120 if (TYPE_PTRFN_P (to) || TYPE_PTRMEMFUNC_P (to))
1122 tsubst_flags_t tflags = tf_conv;
1123 expr = instantiate_type (to, expr, tflags);
1124 if (expr == error_mark_node)
1125 return NULL;
1126 from = TREE_TYPE (expr);
1128 else if (TREE_CODE (to) == BOOLEAN_TYPE)
1130 /* Necessary for eg, TEMPLATE_ID_EXPRs (c++/50961). */
1131 expr = resolve_nondeduced_context (expr, complain);
1132 from = TREE_TYPE (expr);
1136 fcode = TREE_CODE (from);
1137 tcode = TREE_CODE (to);
1139 conv = build_identity_conv (from, expr);
1140 if (fcode == FUNCTION_TYPE || fcode == ARRAY_TYPE)
1142 from = type_decays_to (from);
1143 fcode = TREE_CODE (from);
1144 conv = build_conv (ck_lvalue, from, conv);
1146 /* Wrapping a ck_rvalue around a class prvalue (as a result of using
1147 obvalue_p) seems odd, since it's already a prvalue, but that's how we
1148 express the copy constructor call required by copy-initialization. */
1149 else if (fromref || (expr && obvalue_p (expr)))
1151 if (expr)
1153 tree bitfield_type;
1154 bitfield_type = is_bitfield_expr_with_lowered_type (expr);
1155 if (bitfield_type)
1157 from = strip_top_quals (bitfield_type);
1158 fcode = TREE_CODE (from);
1161 conv = build_conv (ck_rvalue, from, conv);
1162 if (flags & LOOKUP_PREFER_RVALUE)
1163 conv->rvaluedness_matches_p = true;
1166 /* Allow conversion between `__complex__' data types. */
1167 if (tcode == COMPLEX_TYPE && fcode == COMPLEX_TYPE)
1169 /* The standard conversion sequence to convert FROM to TO is
1170 the standard conversion sequence to perform componentwise
1171 conversion. */
1172 conversion *part_conv = standard_conversion
1173 (TREE_TYPE (to), TREE_TYPE (from), NULL_TREE, c_cast_p, flags,
1174 complain);
1176 if (part_conv)
1178 conv = build_conv (part_conv->kind, to, conv);
1179 conv->rank = part_conv->rank;
1181 else
1182 conv = NULL;
1184 return conv;
1187 if (same_type_p (from, to))
1189 if (CLASS_TYPE_P (to) && conv->kind == ck_rvalue)
1190 conv->type = qualified_to;
1191 return conv;
1194 /* [conv.ptr]
1195 A null pointer constant can be converted to a pointer type; ... A
1196 null pointer constant of integral type can be converted to an
1197 rvalue of type std::nullptr_t. */
1198 if ((tcode == POINTER_TYPE || TYPE_PTRMEM_P (to)
1199 || NULLPTR_TYPE_P (to))
1200 && ((expr && null_ptr_cst_p (expr))
1201 || NULLPTR_TYPE_P (from)))
1202 conv = build_conv (ck_std, to, conv);
1203 else if ((tcode == INTEGER_TYPE && fcode == POINTER_TYPE)
1204 || (tcode == POINTER_TYPE && fcode == INTEGER_TYPE))
1206 /* For backwards brain damage compatibility, allow interconversion of
1207 pointers and integers with a pedwarn. */
1208 conv = build_conv (ck_std, to, conv);
1209 conv->bad_p = true;
1211 else if (UNSCOPED_ENUM_P (to) && fcode == INTEGER_TYPE)
1213 /* For backwards brain damage compatibility, allow interconversion of
1214 enums and integers with a pedwarn. */
1215 conv = build_conv (ck_std, to, conv);
1216 conv->bad_p = true;
1218 else if ((tcode == POINTER_TYPE && fcode == POINTER_TYPE)
1219 || (TYPE_PTRDATAMEM_P (to) && TYPE_PTRDATAMEM_P (from)))
1221 tree to_pointee;
1222 tree from_pointee;
1224 if (tcode == POINTER_TYPE)
1226 to_pointee = TREE_TYPE (to);
1227 from_pointee = TREE_TYPE (from);
1229 /* Since this is the target of a pointer, it can't have function
1230 qualifiers, so any TYPE_QUALS must be for attributes const or
1231 noreturn. Strip them. */
1232 if (TREE_CODE (to_pointee) == FUNCTION_TYPE
1233 && TYPE_QUALS (to_pointee))
1234 to_pointee = build_qualified_type (to_pointee, TYPE_UNQUALIFIED);
1235 if (TREE_CODE (from_pointee) == FUNCTION_TYPE
1236 && TYPE_QUALS (from_pointee))
1237 from_pointee = build_qualified_type (from_pointee, TYPE_UNQUALIFIED);
1239 else
1241 to_pointee = TYPE_PTRMEM_POINTED_TO_TYPE (to);
1242 from_pointee = TYPE_PTRMEM_POINTED_TO_TYPE (from);
1245 if (tcode == POINTER_TYPE
1246 && same_type_ignoring_top_level_qualifiers_p (from_pointee,
1247 to_pointee))
1249 else if (VOID_TYPE_P (to_pointee)
1250 && !TYPE_PTRDATAMEM_P (from)
1251 && TREE_CODE (from_pointee) != FUNCTION_TYPE)
1253 tree nfrom = TREE_TYPE (from);
1254 /* Don't try to apply restrict to void. */
1255 int quals = cp_type_quals (nfrom) & ~TYPE_QUAL_RESTRICT;
1256 from_pointee = cp_build_qualified_type (void_type_node, quals);
1257 from = build_pointer_type (from_pointee);
1258 conv = build_conv (ck_ptr, from, conv);
1260 else if (TYPE_PTRDATAMEM_P (from))
1262 tree fbase = TYPE_PTRMEM_CLASS_TYPE (from);
1263 tree tbase = TYPE_PTRMEM_CLASS_TYPE (to);
1265 if (DERIVED_FROM_P (fbase, tbase)
1266 && (same_type_ignoring_top_level_qualifiers_p
1267 (from_pointee, to_pointee)))
1269 from = build_ptrmem_type (tbase, from_pointee);
1270 conv = build_conv (ck_pmem, from, conv);
1272 else if (!same_type_p (fbase, tbase))
1273 return NULL;
1275 else if (CLASS_TYPE_P (from_pointee)
1276 && CLASS_TYPE_P (to_pointee)
1277 /* [conv.ptr]
1279 An rvalue of type "pointer to cv D," where D is a
1280 class type, can be converted to an rvalue of type
1281 "pointer to cv B," where B is a base class (clause
1282 _class.derived_) of D. If B is an inaccessible
1283 (clause _class.access_) or ambiguous
1284 (_class.member.lookup_) base class of D, a program
1285 that necessitates this conversion is ill-formed.
1286 Therefore, we use DERIVED_FROM_P, and do not check
1287 access or uniqueness. */
1288 && DERIVED_FROM_P (to_pointee, from_pointee))
1290 from_pointee
1291 = cp_build_qualified_type (to_pointee,
1292 cp_type_quals (from_pointee));
1293 from = build_pointer_type (from_pointee);
1294 conv = build_conv (ck_ptr, from, conv);
1295 conv->base_p = true;
1298 if (same_type_p (from, to))
1299 /* OK */;
1300 else if (c_cast_p && comp_ptr_ttypes_const (to, from))
1301 /* In a C-style cast, we ignore CV-qualification because we
1302 are allowed to perform a static_cast followed by a
1303 const_cast. */
1304 conv = build_conv (ck_qual, to, conv);
1305 else if (!c_cast_p && comp_ptr_ttypes (to_pointee, from_pointee))
1306 conv = build_conv (ck_qual, to, conv);
1307 else if (expr && string_conv_p (to, expr, 0))
1308 /* converting from string constant to char *. */
1309 conv = build_conv (ck_qual, to, conv);
1310 else if (fnptr_conv_p (to, from))
1311 conv = build_conv (ck_fnptr, to, conv);
1312 /* Allow conversions among compatible ObjC pointer types (base
1313 conversions have been already handled above). */
1314 else if (c_dialect_objc ()
1315 && objc_compare_types (to, from, -4, NULL_TREE))
1316 conv = build_conv (ck_ptr, to, conv);
1317 else if (ptr_reasonably_similar (to_pointee, from_pointee))
1319 conv = build_conv (ck_ptr, to, conv);
1320 conv->bad_p = true;
1322 else
1323 return NULL;
1325 from = to;
1327 else if (TYPE_PTRMEMFUNC_P (to) && TYPE_PTRMEMFUNC_P (from))
1329 tree fromfn = TREE_TYPE (TYPE_PTRMEMFUNC_FN_TYPE (from));
1330 tree tofn = TREE_TYPE (TYPE_PTRMEMFUNC_FN_TYPE (to));
1331 tree fbase = class_of_this_parm (fromfn);
1332 tree tbase = class_of_this_parm (tofn);
1334 if (!DERIVED_FROM_P (fbase, tbase))
1335 return NULL;
1337 tree fstat = static_fn_type (fromfn);
1338 tree tstat = static_fn_type (tofn);
1339 if (same_type_p (tstat, fstat)
1340 || fnptr_conv_p (tstat, fstat))
1341 /* OK */;
1342 else
1343 return NULL;
1345 if (!same_type_p (fbase, tbase))
1347 from = build_memfn_type (fstat,
1348 tbase,
1349 cp_type_quals (tbase),
1350 type_memfn_rqual (tofn));
1351 from = build_ptrmemfunc_type (build_pointer_type (from));
1352 conv = build_conv (ck_pmem, from, conv);
1353 conv->base_p = true;
1355 if (fnptr_conv_p (tstat, fstat))
1356 conv = build_conv (ck_fnptr, to, conv);
1358 else if (tcode == BOOLEAN_TYPE)
1360 /* [conv.bool]
1362 A prvalue of arithmetic, unscoped enumeration, pointer, or pointer
1363 to member type can be converted to a prvalue of type bool. ...
1364 For direct-initialization (8.5 [dcl.init]), a prvalue of type
1365 std::nullptr_t can be converted to a prvalue of type bool; */
1366 if (ARITHMETIC_TYPE_P (from)
1367 || UNSCOPED_ENUM_P (from)
1368 || fcode == POINTER_TYPE
1369 || TYPE_PTRMEM_P (from)
1370 || NULLPTR_TYPE_P (from))
1372 conv = build_conv (ck_std, to, conv);
1373 if (fcode == POINTER_TYPE
1374 || TYPE_PTRDATAMEM_P (from)
1375 || (TYPE_PTRMEMFUNC_P (from)
1376 && conv->rank < cr_pbool)
1377 || NULLPTR_TYPE_P (from))
1378 conv->rank = cr_pbool;
1379 if (NULLPTR_TYPE_P (from) && (flags & LOOKUP_ONLYCONVERTING))
1380 conv->bad_p = true;
1381 return conv;
1384 return NULL;
1386 /* We don't check for ENUMERAL_TYPE here because there are no standard
1387 conversions to enum type. */
1388 /* As an extension, allow conversion to complex type. */
1389 else if (ARITHMETIC_TYPE_P (to))
1391 if (! (INTEGRAL_CODE_P (fcode)
1392 || (fcode == REAL_TYPE && !(flags & LOOKUP_NO_NON_INTEGRAL)))
1393 || SCOPED_ENUM_P (from))
1394 return NULL;
1395 conv = build_conv (ck_std, to, conv);
1397 /* Give this a better rank if it's a promotion. */
1398 if (same_type_p (to, type_promotes_to (from))
1399 && next_conversion (conv)->rank <= cr_promotion)
1400 conv->rank = cr_promotion;
1402 else if (fcode == VECTOR_TYPE && tcode == VECTOR_TYPE
1403 && vector_types_convertible_p (from, to, false))
1404 return build_conv (ck_std, to, conv);
1405 else if (MAYBE_CLASS_TYPE_P (to) && MAYBE_CLASS_TYPE_P (from)
1406 && is_properly_derived_from (from, to))
1408 if (conv->kind == ck_rvalue)
1409 conv = next_conversion (conv);
1410 conv = build_conv (ck_base, to, conv);
1411 /* The derived-to-base conversion indicates the initialization
1412 of a parameter with base type from an object of a derived
1413 type. A temporary object is created to hold the result of
1414 the conversion unless we're binding directly to a reference. */
1415 conv->need_temporary_p = !(flags & LOOKUP_NO_TEMP_BIND);
1417 else
1418 return NULL;
1420 if (flags & LOOKUP_NO_NARROWING)
1421 conv->check_narrowing = true;
1423 return conv;
1426 /* Returns nonzero if T1 is reference-related to T2. */
1428 bool
1429 reference_related_p (tree t1, tree t2)
1431 if (t1 == error_mark_node || t2 == error_mark_node)
1432 return false;
1434 t1 = TYPE_MAIN_VARIANT (t1);
1435 t2 = TYPE_MAIN_VARIANT (t2);
1437 /* [dcl.init.ref]
1439 Given types "cv1 T1" and "cv2 T2," "cv1 T1" is reference-related
1440 to "cv2 T2" if T1 is the same type as T2, or T1 is a base class
1441 of T2. */
1442 return (same_type_p (t1, t2)
1443 || (CLASS_TYPE_P (t1) && CLASS_TYPE_P (t2)
1444 && DERIVED_FROM_P (t1, t2)));
1447 /* Returns nonzero if T1 is reference-compatible with T2. */
1449 static bool
1450 reference_compatible_p (tree t1, tree t2)
1452 /* [dcl.init.ref]
1454 "cv1 T1" is reference compatible with "cv2 T2" if
1455 * T1 is reference-related to T2 or
1456 * T2 is "noexcept function" and T1 is "function", where the
1457 function types are otherwise the same,
1458 and cv1 is the same cv-qualification as, or greater cv-qualification
1459 than, cv2. */
1460 return ((reference_related_p (t1, t2)
1461 || fnptr_conv_p (t1, t2))
1462 && at_least_as_qualified_p (t1, t2));
1465 /* A reference of the indicated TYPE is being bound directly to the
1466 expression represented by the implicit conversion sequence CONV.
1467 Return a conversion sequence for this binding. */
1469 static conversion *
1470 direct_reference_binding (tree type, conversion *conv)
1472 tree t;
1474 gcc_assert (TREE_CODE (type) == REFERENCE_TYPE);
1475 gcc_assert (TREE_CODE (conv->type) != REFERENCE_TYPE);
1477 t = TREE_TYPE (type);
1479 /* [over.ics.rank]
1481 When a parameter of reference type binds directly
1482 (_dcl.init.ref_) to an argument expression, the implicit
1483 conversion sequence is the identity conversion, unless the
1484 argument expression has a type that is a derived class of the
1485 parameter type, in which case the implicit conversion sequence is
1486 a derived-to-base Conversion.
1488 If the parameter binds directly to the result of applying a
1489 conversion function to the argument expression, the implicit
1490 conversion sequence is a user-defined conversion sequence
1491 (_over.ics.user_), with the second standard conversion sequence
1492 either an identity conversion or, if the conversion function
1493 returns an entity of a type that is a derived class of the
1494 parameter type, a derived-to-base conversion. */
1495 if (is_properly_derived_from (conv->type, t))
1497 /* Represent the derived-to-base conversion. */
1498 conv = build_conv (ck_base, t, conv);
1499 /* We will actually be binding to the base-class subobject in
1500 the derived class, so we mark this conversion appropriately.
1501 That way, convert_like knows not to generate a temporary. */
1502 conv->need_temporary_p = false;
1504 return build_conv (ck_ref_bind, type, conv);
1507 /* Returns the conversion path from type FROM to reference type TO for
1508 purposes of reference binding. For lvalue binding, either pass a
1509 reference type to FROM or an lvalue expression to EXPR. If the
1510 reference will be bound to a temporary, NEED_TEMPORARY_P is set for
1511 the conversion returned. If C_CAST_P is true, this
1512 conversion is coming from a C-style cast. */
1514 static conversion *
1515 reference_binding (tree rto, tree rfrom, tree expr, bool c_cast_p, int flags,
1516 tsubst_flags_t complain)
1518 conversion *conv = NULL;
1519 tree to = TREE_TYPE (rto);
1520 tree from = rfrom;
1521 tree tfrom;
1522 bool related_p;
1523 bool compatible_p;
1524 cp_lvalue_kind gl_kind;
1525 bool is_lvalue;
1527 if (TREE_CODE (to) == FUNCTION_TYPE && expr && type_unknown_p (expr))
1529 expr = instantiate_type (to, expr, tf_none);
1530 if (expr == error_mark_node)
1531 return NULL;
1532 from = TREE_TYPE (expr);
1535 if (expr && BRACE_ENCLOSED_INITIALIZER_P (expr))
1537 maybe_warn_cpp0x (CPP0X_INITIALIZER_LISTS);
1538 /* DR 1288: Otherwise, if the initializer list has a single element
1539 of type E and ... [T's] referenced type is reference-related to E,
1540 the object or reference is initialized from that element... */
1541 if (CONSTRUCTOR_NELTS (expr) == 1)
1543 tree elt = CONSTRUCTOR_ELT (expr, 0)->value;
1544 if (error_operand_p (elt))
1545 return NULL;
1546 tree etype = TREE_TYPE (elt);
1547 if (reference_related_p (to, etype))
1549 expr = elt;
1550 from = etype;
1551 goto skip;
1554 /* Otherwise, if T is a reference type, a prvalue temporary of the
1555 type referenced by T is copy-list-initialized or
1556 direct-list-initialized, depending on the kind of initialization
1557 for the reference, and the reference is bound to that temporary. */
1558 conv = implicit_conversion (to, from, expr, c_cast_p,
1559 flags|LOOKUP_NO_TEMP_BIND, complain);
1560 skip:;
1563 if (TREE_CODE (from) == REFERENCE_TYPE)
1565 from = TREE_TYPE (from);
1566 if (!TYPE_REF_IS_RVALUE (rfrom)
1567 || TREE_CODE (from) == FUNCTION_TYPE)
1568 gl_kind = clk_ordinary;
1569 else
1570 gl_kind = clk_rvalueref;
1572 else if (expr)
1573 gl_kind = lvalue_kind (expr);
1574 else if (CLASS_TYPE_P (from)
1575 || TREE_CODE (from) == ARRAY_TYPE)
1576 gl_kind = clk_class;
1577 else
1578 gl_kind = clk_none;
1580 /* Don't allow a class prvalue when LOOKUP_NO_TEMP_BIND. */
1581 if ((flags & LOOKUP_NO_TEMP_BIND)
1582 && (gl_kind & clk_class))
1583 gl_kind = clk_none;
1585 /* Same mask as real_lvalue_p. */
1586 is_lvalue = gl_kind && !(gl_kind & (clk_rvalueref|clk_class));
1588 tfrom = from;
1589 if ((gl_kind & clk_bitfield) != 0)
1590 tfrom = unlowered_expr_type (expr);
1592 /* Figure out whether or not the types are reference-related and
1593 reference compatible. We have to do this after stripping
1594 references from FROM. */
1595 related_p = reference_related_p (to, tfrom);
1596 /* If this is a C cast, first convert to an appropriately qualified
1597 type, so that we can later do a const_cast to the desired type. */
1598 if (related_p && c_cast_p
1599 && !at_least_as_qualified_p (to, tfrom))
1600 to = cp_build_qualified_type (to, cp_type_quals (tfrom));
1601 compatible_p = reference_compatible_p (to, tfrom);
1603 /* Directly bind reference when target expression's type is compatible with
1604 the reference and expression is an lvalue. In DR391, the wording in
1605 [8.5.3/5 dcl.init.ref] is changed to also require direct bindings for
1606 const and rvalue references to rvalues of compatible class type.
1607 We should also do direct bindings for non-class xvalues. */
1608 if ((related_p || compatible_p) && gl_kind)
1610 /* [dcl.init.ref]
1612 If the initializer expression
1614 -- is an lvalue (but not an lvalue for a bit-field), and "cv1 T1"
1615 is reference-compatible with "cv2 T2,"
1617 the reference is bound directly to the initializer expression
1618 lvalue.
1620 [...]
1621 If the initializer expression is an rvalue, with T2 a class type,
1622 and "cv1 T1" is reference-compatible with "cv2 T2", the reference
1623 is bound to the object represented by the rvalue or to a sub-object
1624 within that object. */
1626 conv = build_identity_conv (tfrom, expr);
1627 conv = direct_reference_binding (rto, conv);
1629 if (flags & LOOKUP_PREFER_RVALUE)
1630 /* The top-level caller requested that we pretend that the lvalue
1631 be treated as an rvalue. */
1632 conv->rvaluedness_matches_p = TYPE_REF_IS_RVALUE (rto);
1633 else if (TREE_CODE (rfrom) == REFERENCE_TYPE)
1634 /* Handle rvalue reference to function properly. */
1635 conv->rvaluedness_matches_p
1636 = (TYPE_REF_IS_RVALUE (rto) == TYPE_REF_IS_RVALUE (rfrom));
1637 else
1638 conv->rvaluedness_matches_p
1639 = (TYPE_REF_IS_RVALUE (rto) == !is_lvalue);
1641 if ((gl_kind & clk_bitfield) != 0
1642 || ((gl_kind & clk_packed) != 0 && !TYPE_PACKED (to)))
1643 /* For the purposes of overload resolution, we ignore the fact
1644 this expression is a bitfield or packed field. (In particular,
1645 [over.ics.ref] says specifically that a function with a
1646 non-const reference parameter is viable even if the
1647 argument is a bitfield.)
1649 However, when we actually call the function we must create
1650 a temporary to which to bind the reference. If the
1651 reference is volatile, or isn't const, then we cannot make
1652 a temporary, so we just issue an error when the conversion
1653 actually occurs. */
1654 conv->need_temporary_p = true;
1656 /* Don't allow binding of lvalues (other than function lvalues) to
1657 rvalue references. */
1658 if (is_lvalue && TYPE_REF_IS_RVALUE (rto)
1659 && TREE_CODE (to) != FUNCTION_TYPE
1660 && !(flags & LOOKUP_PREFER_RVALUE))
1661 conv->bad_p = true;
1663 /* Nor the reverse. */
1664 if (!is_lvalue && !TYPE_REF_IS_RVALUE (rto)
1665 && (!CP_TYPE_CONST_NON_VOLATILE_P (to)
1666 || (flags & LOOKUP_NO_RVAL_BIND))
1667 && TREE_CODE (to) != FUNCTION_TYPE)
1668 conv->bad_p = true;
1670 if (!compatible_p)
1671 conv->bad_p = true;
1673 return conv;
1675 /* [class.conv.fct] A conversion function is never used to convert a
1676 (possibly cv-qualified) object to the (possibly cv-qualified) same
1677 object type (or a reference to it), to a (possibly cv-qualified) base
1678 class of that type (or a reference to it).... */
1679 else if (CLASS_TYPE_P (from) && !related_p
1680 && !(flags & LOOKUP_NO_CONVERSION))
1682 /* [dcl.init.ref]
1684 If the initializer expression
1686 -- has a class type (i.e., T2 is a class type) can be
1687 implicitly converted to an lvalue of type "cv3 T3," where
1688 "cv1 T1" is reference-compatible with "cv3 T3". (this
1689 conversion is selected by enumerating the applicable
1690 conversion functions (_over.match.ref_) and choosing the
1691 best one through overload resolution. (_over.match_).
1693 the reference is bound to the lvalue result of the conversion
1694 in the second case. */
1695 z_candidate *cand = build_user_type_conversion_1 (rto, expr, flags,
1696 complain);
1697 if (cand)
1698 return cand->second_conv;
1701 /* From this point on, we conceptually need temporaries, even if we
1702 elide them. Only the cases above are "direct bindings". */
1703 if (flags & LOOKUP_NO_TEMP_BIND)
1704 return NULL;
1706 /* [over.ics.rank]
1708 When a parameter of reference type is not bound directly to an
1709 argument expression, the conversion sequence is the one required
1710 to convert the argument expression to the underlying type of the
1711 reference according to _over.best.ics_. Conceptually, this
1712 conversion sequence corresponds to copy-initializing a temporary
1713 of the underlying type with the argument expression. Any
1714 difference in top-level cv-qualification is subsumed by the
1715 initialization itself and does not constitute a conversion. */
1717 /* [dcl.init.ref]
1719 Otherwise, the reference shall be an lvalue reference to a
1720 non-volatile const type, or the reference shall be an rvalue
1721 reference.
1723 We try below to treat this as a bad conversion to improve diagnostics,
1724 but if TO is an incomplete class, we need to reject this conversion
1725 now to avoid unnecessary instantiation. */
1726 if (!CP_TYPE_CONST_NON_VOLATILE_P (to) && !TYPE_REF_IS_RVALUE (rto)
1727 && !COMPLETE_TYPE_P (to))
1728 return NULL;
1730 /* We're generating a temporary now, but don't bind any more in the
1731 conversion (specifically, don't slice the temporary returned by a
1732 conversion operator). */
1733 flags |= LOOKUP_NO_TEMP_BIND;
1735 /* Core issue 899: When [copy-]initializing a temporary to be bound
1736 to the first parameter of a copy constructor (12.8) called with
1737 a single argument in the context of direct-initialization,
1738 explicit conversion functions are also considered.
1740 So don't set LOOKUP_ONLYCONVERTING in that case. */
1741 if (!(flags & LOOKUP_COPY_PARM))
1742 flags |= LOOKUP_ONLYCONVERTING;
1744 if (!conv)
1745 conv = implicit_conversion (to, from, expr, c_cast_p,
1746 flags, complain);
1747 if (!conv)
1748 return NULL;
1750 if (conv->user_conv_p)
1752 /* If initializing the temporary used a conversion function,
1753 recalculate the second conversion sequence. */
1754 for (conversion *t = conv; t; t = next_conversion (t))
1755 if (t->kind == ck_user
1756 && DECL_CONV_FN_P (t->cand->fn))
1758 tree ftype = TREE_TYPE (TREE_TYPE (t->cand->fn));
1759 int sflags = (flags|LOOKUP_NO_CONVERSION)&~LOOKUP_NO_TEMP_BIND;
1760 conversion *new_second
1761 = reference_binding (rto, ftype, NULL_TREE, c_cast_p,
1762 sflags, complain);
1763 if (!new_second)
1764 return NULL;
1765 return merge_conversion_sequences (t, new_second);
1769 conv = build_conv (ck_ref_bind, rto, conv);
1770 /* This reference binding, unlike those above, requires the
1771 creation of a temporary. */
1772 conv->need_temporary_p = true;
1773 conv->rvaluedness_matches_p = TYPE_REF_IS_RVALUE (rto);
1775 /* [dcl.init.ref]
1777 Otherwise, the reference shall be an lvalue reference to a
1778 non-volatile const type, or the reference shall be an rvalue
1779 reference. */
1780 if (!CP_TYPE_CONST_NON_VOLATILE_P (to) && !TYPE_REF_IS_RVALUE (rto))
1781 conv->bad_p = true;
1783 /* [dcl.init.ref]
1785 Otherwise, a temporary of type "cv1 T1" is created and
1786 initialized from the initializer expression using the rules for a
1787 non-reference copy initialization. If T1 is reference-related to
1788 T2, cv1 must be the same cv-qualification as, or greater
1789 cv-qualification than, cv2; otherwise, the program is ill-formed. */
1790 if (related_p && !at_least_as_qualified_p (to, from))
1791 conv->bad_p = true;
1793 return conv;
1796 /* Returns the implicit conversion sequence (see [over.ics]) from type
1797 FROM to type TO. The optional expression EXPR may affect the
1798 conversion. FLAGS are the usual overloading flags. If C_CAST_P is
1799 true, this conversion is coming from a C-style cast. */
1801 static conversion *
1802 implicit_conversion (tree to, tree from, tree expr, bool c_cast_p,
1803 int flags, tsubst_flags_t complain)
1805 conversion *conv;
1807 if (from == error_mark_node || to == error_mark_node
1808 || expr == error_mark_node)
1809 return NULL;
1811 /* Other flags only apply to the primary function in overload
1812 resolution, or after we've chosen one. */
1813 flags &= (LOOKUP_ONLYCONVERTING|LOOKUP_NO_CONVERSION|LOOKUP_COPY_PARM
1814 |LOOKUP_NO_TEMP_BIND|LOOKUP_NO_RVAL_BIND|LOOKUP_PREFER_RVALUE
1815 |LOOKUP_NO_NARROWING|LOOKUP_PROTECT|LOOKUP_NO_NON_INTEGRAL);
1817 /* FIXME: actually we don't want warnings either, but we can't just
1818 have 'complain &= ~(tf_warning|tf_error)' because it would cause
1819 the regression of, eg, g++.old-deja/g++.benjamin/16077.C.
1820 We really ought not to issue that warning until we've committed
1821 to that conversion. */
1822 complain &= ~tf_error;
1824 /* Call reshape_init early to remove redundant braces. */
1825 if (expr && BRACE_ENCLOSED_INITIALIZER_P (expr)
1826 && CLASS_TYPE_P (to)
1827 && COMPLETE_TYPE_P (complete_type (to))
1828 && !CLASSTYPE_NON_AGGREGATE (to))
1830 expr = reshape_init (to, expr, complain);
1831 if (expr == error_mark_node)
1832 return NULL;
1833 from = TREE_TYPE (expr);
1836 if (TREE_CODE (to) == REFERENCE_TYPE)
1837 conv = reference_binding (to, from, expr, c_cast_p, flags, complain);
1838 else
1839 conv = standard_conversion (to, from, expr, c_cast_p, flags, complain);
1841 if (conv)
1842 return conv;
1844 if (expr && BRACE_ENCLOSED_INITIALIZER_P (expr))
1846 if (is_std_init_list (to))
1847 return build_list_conv (to, expr, flags, complain);
1849 /* As an extension, allow list-initialization of _Complex. */
1850 if (TREE_CODE (to) == COMPLEX_TYPE)
1852 conv = build_complex_conv (to, expr, flags, complain);
1853 if (conv)
1854 return conv;
1857 /* Allow conversion from an initializer-list with one element to a
1858 scalar type. */
1859 if (SCALAR_TYPE_P (to))
1861 int nelts = CONSTRUCTOR_NELTS (expr);
1862 tree elt;
1864 if (nelts == 0)
1865 elt = build_value_init (to, tf_none);
1866 else if (nelts == 1)
1867 elt = CONSTRUCTOR_ELT (expr, 0)->value;
1868 else
1869 elt = error_mark_node;
1871 conv = implicit_conversion (to, TREE_TYPE (elt), elt,
1872 c_cast_p, flags, complain);
1873 if (conv)
1875 conv->check_narrowing = true;
1876 if (BRACE_ENCLOSED_INITIALIZER_P (elt))
1877 /* Too many levels of braces, i.e. '{{1}}'. */
1878 conv->bad_p = true;
1879 return conv;
1882 else if (TREE_CODE (to) == ARRAY_TYPE)
1883 return build_array_conv (to, expr, flags, complain);
1886 if (expr != NULL_TREE
1887 && (MAYBE_CLASS_TYPE_P (from)
1888 || MAYBE_CLASS_TYPE_P (to))
1889 && (flags & LOOKUP_NO_CONVERSION) == 0)
1891 struct z_candidate *cand;
1893 if (CLASS_TYPE_P (to)
1894 && BRACE_ENCLOSED_INITIALIZER_P (expr)
1895 && !CLASSTYPE_NON_AGGREGATE (complete_type (to)))
1896 return build_aggr_conv (to, expr, flags, complain);
1898 cand = build_user_type_conversion_1 (to, expr, flags, complain);
1899 if (cand)
1901 if (BRACE_ENCLOSED_INITIALIZER_P (expr)
1902 && CONSTRUCTOR_NELTS (expr) == 1
1903 && !is_list_ctor (cand->fn))
1905 /* "If C is not an initializer-list constructor and the
1906 initializer list has a single element of type cv U, where U is
1907 X or a class derived from X, the implicit conversion sequence
1908 has Exact Match rank if U is X, or Conversion rank if U is
1909 derived from X." */
1910 tree elt = CONSTRUCTOR_ELT (expr, 0)->value;
1911 tree elttype = TREE_TYPE (elt);
1912 if (reference_related_p (to, elttype))
1913 return implicit_conversion (to, elttype, elt,
1914 c_cast_p, flags, complain);
1916 conv = cand->second_conv;
1919 /* We used to try to bind a reference to a temporary here, but that
1920 is now handled after the recursive call to this function at the end
1921 of reference_binding. */
1922 return conv;
1925 return NULL;
1928 /* Add a new entry to the list of candidates. Used by the add_*_candidate
1929 functions. ARGS will not be changed until a single candidate is
1930 selected. */
1932 static struct z_candidate *
1933 add_candidate (struct z_candidate **candidates,
1934 tree fn, tree first_arg, const vec<tree, va_gc> *args,
1935 size_t num_convs, conversion **convs,
1936 tree access_path, tree conversion_path,
1937 int viable, struct rejection_reason *reason,
1938 int flags)
1940 struct z_candidate *cand = (struct z_candidate *)
1941 conversion_obstack_alloc (sizeof (struct z_candidate));
1943 cand->fn = fn;
1944 cand->first_arg = first_arg;
1945 cand->args = args;
1946 cand->convs = convs;
1947 cand->num_convs = num_convs;
1948 cand->access_path = access_path;
1949 cand->conversion_path = conversion_path;
1950 cand->viable = viable;
1951 cand->reason = reason;
1952 cand->next = *candidates;
1953 cand->flags = flags;
1954 *candidates = cand;
1956 return cand;
1959 /* Return the number of remaining arguments in the parameter list
1960 beginning with ARG. */
1963 remaining_arguments (tree arg)
1965 int n;
1967 for (n = 0; arg != NULL_TREE && arg != void_list_node;
1968 arg = TREE_CHAIN (arg))
1969 n++;
1971 return n;
1974 /* Create an overload candidate for the function or method FN called
1975 with the argument list FIRST_ARG/ARGS and add it to CANDIDATES.
1976 FLAGS is passed on to implicit_conversion.
1978 This does not change ARGS.
1980 CTYPE, if non-NULL, is the type we want to pretend this function
1981 comes from for purposes of overload resolution. */
1983 static struct z_candidate *
1984 add_function_candidate (struct z_candidate **candidates,
1985 tree fn, tree ctype, tree first_arg,
1986 const vec<tree, va_gc> *args, tree access_path,
1987 tree conversion_path, int flags,
1988 tsubst_flags_t complain)
1990 tree parmlist = TYPE_ARG_TYPES (TREE_TYPE (fn));
1991 int i, len;
1992 conversion **convs;
1993 tree parmnode;
1994 tree orig_first_arg = first_arg;
1995 int skip;
1996 int viable = 1;
1997 struct rejection_reason *reason = NULL;
1999 /* At this point we should not see any functions which haven't been
2000 explicitly declared, except for friend functions which will have
2001 been found using argument dependent lookup. */
2002 gcc_assert (!DECL_ANTICIPATED (fn) || DECL_HIDDEN_FRIEND_P (fn));
2004 /* The `this', `in_chrg' and VTT arguments to constructors are not
2005 considered in overload resolution. */
2006 if (DECL_CONSTRUCTOR_P (fn))
2008 parmlist = skip_artificial_parms_for (fn, parmlist);
2009 skip = num_artificial_parms_for (fn);
2010 if (skip > 0 && first_arg != NULL_TREE)
2012 --skip;
2013 first_arg = NULL_TREE;
2016 else
2017 skip = 0;
2019 len = vec_safe_length (args) - skip + (first_arg != NULL_TREE ? 1 : 0);
2020 convs = alloc_conversions (len);
2022 /* 13.3.2 - Viable functions [over.match.viable]
2023 First, to be a viable function, a candidate function shall have enough
2024 parameters to agree in number with the arguments in the list.
2026 We need to check this first; otherwise, checking the ICSes might cause
2027 us to produce an ill-formed template instantiation. */
2029 parmnode = parmlist;
2030 for (i = 0; i < len; ++i)
2032 if (parmnode == NULL_TREE || parmnode == void_list_node)
2033 break;
2034 parmnode = TREE_CHAIN (parmnode);
2037 if ((i < len && parmnode)
2038 || !sufficient_parms_p (parmnode))
2040 int remaining = remaining_arguments (parmnode);
2041 viable = 0;
2042 reason = arity_rejection (first_arg, i + remaining, len);
2045 /* An inherited constructor (12.6.3 [class.inhctor.init]) that has a first
2046 parameter of type "reference to cv C" (including such a constructor
2047 instantiated from a template) is excluded from the set of candidate
2048 functions when used to construct an object of type D with an argument list
2049 containing a single argument if C is reference-related to D. */
2050 if (viable && len == 1 && parmlist && DECL_CONSTRUCTOR_P (fn)
2051 && flag_new_inheriting_ctors
2052 && DECL_INHERITED_CTOR (fn))
2054 tree ptype = non_reference (TREE_VALUE (parmlist));
2055 tree dtype = DECL_CONTEXT (fn);
2056 if (reference_related_p (ptype, dtype))
2058 viable = false;
2059 reason = inherited_ctor_rejection ();
2063 /* Second, for a function to be viable, its constraints must be
2064 satisfied. */
2065 if (flag_concepts && viable
2066 && !constraints_satisfied_p (fn))
2068 reason = constraint_failure (fn);
2069 viable = false;
2072 /* When looking for a function from a subobject from an implicit
2073 copy/move constructor/operator=, don't consider anything that takes (a
2074 reference to) an unrelated type. See c++/44909 and core 1092. */
2075 if (viable && parmlist && (flags & LOOKUP_DEFAULTED))
2077 if (DECL_CONSTRUCTOR_P (fn))
2078 i = 1;
2079 else if (DECL_ASSIGNMENT_OPERATOR_P (fn)
2080 && DECL_OVERLOADED_OPERATOR_P (fn) == NOP_EXPR)
2081 i = 2;
2082 else
2083 i = 0;
2084 if (i && len == i)
2086 parmnode = chain_index (i-1, parmlist);
2087 if (!reference_related_p (non_reference (TREE_VALUE (parmnode)),
2088 ctype))
2089 viable = 0;
2092 /* This only applies at the top level. */
2093 flags &= ~LOOKUP_DEFAULTED;
2096 if (! viable)
2097 goto out;
2099 /* Third, for F to be a viable function, there shall exist for each
2100 argument an implicit conversion sequence that converts that argument
2101 to the corresponding parameter of F. */
2103 parmnode = parmlist;
2105 for (i = 0; i < len; ++i)
2107 tree argtype, to_type;
2108 tree arg;
2109 conversion *t;
2110 int is_this;
2112 if (parmnode == void_list_node)
2113 break;
2115 if (i == 0 && first_arg != NULL_TREE)
2116 arg = first_arg;
2117 else
2118 arg = CONST_CAST_TREE (
2119 (*args)[i + skip - (first_arg != NULL_TREE ? 1 : 0)]);
2120 argtype = lvalue_type (arg);
2122 is_this = (i == 0 && DECL_NONSTATIC_MEMBER_FUNCTION_P (fn)
2123 && ! DECL_CONSTRUCTOR_P (fn));
2125 if (parmnode)
2127 tree parmtype = TREE_VALUE (parmnode);
2128 int lflags = flags;
2130 parmnode = TREE_CHAIN (parmnode);
2132 /* The type of the implicit object parameter ('this') for
2133 overload resolution is not always the same as for the
2134 function itself; conversion functions are considered to
2135 be members of the class being converted, and functions
2136 introduced by a using-declaration are considered to be
2137 members of the class that uses them.
2139 Since build_over_call ignores the ICS for the `this'
2140 parameter, we can just change the parm type. */
2141 if (ctype && is_this)
2143 parmtype = cp_build_qualified_type
2144 (ctype, cp_type_quals (TREE_TYPE (parmtype)));
2145 if (FUNCTION_REF_QUALIFIED (TREE_TYPE (fn)))
2147 /* If the function has a ref-qualifier, the implicit
2148 object parameter has reference type. */
2149 bool rv = FUNCTION_RVALUE_QUALIFIED (TREE_TYPE (fn));
2150 parmtype = cp_build_reference_type (parmtype, rv);
2151 /* The special handling of 'this' conversions in compare_ics
2152 does not apply if there is a ref-qualifier. */
2153 is_this = false;
2155 else
2157 parmtype = build_pointer_type (parmtype);
2158 arg = build_this (arg);
2159 argtype = lvalue_type (arg);
2163 /* Core issue 899: When [copy-]initializing a temporary to be bound
2164 to the first parameter of a copy constructor (12.8) called with
2165 a single argument in the context of direct-initialization,
2166 explicit conversion functions are also considered.
2168 So set LOOKUP_COPY_PARM to let reference_binding know that
2169 it's being called in that context. We generalize the above
2170 to handle move constructors and template constructors as well;
2171 the standardese should soon be updated similarly. */
2172 if (ctype && i == 0 && (len-skip == 1)
2173 && DECL_CONSTRUCTOR_P (fn)
2174 && parmtype != error_mark_node
2175 && (same_type_ignoring_top_level_qualifiers_p
2176 (non_reference (parmtype), ctype)))
2178 if (!(flags & LOOKUP_ONLYCONVERTING))
2179 lflags |= LOOKUP_COPY_PARM;
2180 /* We allow user-defined conversions within init-lists, but
2181 don't list-initialize the copy parm, as that would mean
2182 using two levels of braces for the same type. */
2183 if ((flags & LOOKUP_LIST_INIT_CTOR)
2184 && BRACE_ENCLOSED_INITIALIZER_P (arg))
2185 lflags |= LOOKUP_NO_CONVERSION;
2187 else
2188 lflags |= LOOKUP_ONLYCONVERTING;
2190 t = implicit_conversion (parmtype, argtype, arg,
2191 /*c_cast_p=*/false, lflags, complain);
2192 to_type = parmtype;
2194 else
2196 t = build_identity_conv (argtype, arg);
2197 t->ellipsis_p = true;
2198 to_type = argtype;
2201 if (t && is_this)
2202 t->this_p = true;
2204 convs[i] = t;
2205 if (! t)
2207 viable = 0;
2208 reason = arg_conversion_rejection (first_arg, i, argtype, to_type);
2209 break;
2212 if (t->bad_p)
2214 viable = -1;
2215 reason = bad_arg_conversion_rejection (first_arg, i, arg, to_type);
2219 out:
2220 return add_candidate (candidates, fn, orig_first_arg, args, len, convs,
2221 access_path, conversion_path, viable, reason, flags);
2224 /* Create an overload candidate for the conversion function FN which will
2225 be invoked for expression OBJ, producing a pointer-to-function which
2226 will in turn be called with the argument list FIRST_ARG/ARGLIST,
2227 and add it to CANDIDATES. This does not change ARGLIST. FLAGS is
2228 passed on to implicit_conversion.
2230 Actually, we don't really care about FN; we care about the type it
2231 converts to. There may be multiple conversion functions that will
2232 convert to that type, and we rely on build_user_type_conversion_1 to
2233 choose the best one; so when we create our candidate, we record the type
2234 instead of the function. */
2236 static struct z_candidate *
2237 add_conv_candidate (struct z_candidate **candidates, tree fn, tree obj,
2238 const vec<tree, va_gc> *arglist,
2239 tree access_path, tree conversion_path,
2240 tsubst_flags_t complain)
2242 tree totype = TREE_TYPE (TREE_TYPE (fn));
2243 int i, len, viable, flags;
2244 tree parmlist, parmnode;
2245 conversion **convs;
2246 struct rejection_reason *reason;
2248 for (parmlist = totype; TREE_CODE (parmlist) != FUNCTION_TYPE; )
2249 parmlist = TREE_TYPE (parmlist);
2250 parmlist = TYPE_ARG_TYPES (parmlist);
2252 len = vec_safe_length (arglist) + 1;
2253 convs = alloc_conversions (len);
2254 parmnode = parmlist;
2255 viable = 1;
2256 flags = LOOKUP_IMPLICIT;
2257 reason = NULL;
2259 /* Don't bother looking up the same type twice. */
2260 if (*candidates && (*candidates)->fn == totype)
2261 return NULL;
2263 for (i = 0; i < len; ++i)
2265 tree arg, argtype, convert_type = NULL_TREE;
2266 conversion *t;
2268 if (i == 0)
2269 arg = obj;
2270 else
2271 arg = (*arglist)[i - 1];
2272 argtype = lvalue_type (arg);
2274 if (i == 0)
2276 t = implicit_conversion (totype, argtype, arg, /*c_cast_p=*/false,
2277 flags, complain);
2278 convert_type = totype;
2280 else if (parmnode == void_list_node)
2281 break;
2282 else if (parmnode)
2284 t = implicit_conversion (TREE_VALUE (parmnode), argtype, arg,
2285 /*c_cast_p=*/false, flags, complain);
2286 convert_type = TREE_VALUE (parmnode);
2288 else
2290 t = build_identity_conv (argtype, arg);
2291 t->ellipsis_p = true;
2292 convert_type = argtype;
2295 convs[i] = t;
2296 if (! t)
2297 break;
2299 if (t->bad_p)
2301 viable = -1;
2302 reason = bad_arg_conversion_rejection (NULL_TREE, i, arg, convert_type);
2305 if (i == 0)
2306 continue;
2308 if (parmnode)
2309 parmnode = TREE_CHAIN (parmnode);
2312 if (i < len
2313 || ! sufficient_parms_p (parmnode))
2315 int remaining = remaining_arguments (parmnode);
2316 viable = 0;
2317 reason = arity_rejection (NULL_TREE, i + remaining, len);
2320 return add_candidate (candidates, totype, obj, arglist, len, convs,
2321 access_path, conversion_path, viable, reason, flags);
2324 static void
2325 build_builtin_candidate (struct z_candidate **candidates, tree fnname,
2326 tree type1, tree type2, tree *args, tree *argtypes,
2327 int flags, tsubst_flags_t complain)
2329 conversion *t;
2330 conversion **convs;
2331 size_t num_convs;
2332 int viable = 1, i;
2333 tree types[2];
2334 struct rejection_reason *reason = NULL;
2336 types[0] = type1;
2337 types[1] = type2;
2339 num_convs = args[2] ? 3 : (args[1] ? 2 : 1);
2340 convs = alloc_conversions (num_convs);
2342 /* TRUTH_*_EXPR do "contextual conversion to bool", which means explicit
2343 conversion ops are allowed. We handle that here by just checking for
2344 boolean_type_node because other operators don't ask for it. COND_EXPR
2345 also does contextual conversion to bool for the first operand, but we
2346 handle that in build_conditional_expr, and type1 here is operand 2. */
2347 if (type1 != boolean_type_node)
2348 flags |= LOOKUP_ONLYCONVERTING;
2350 for (i = 0; i < 2; ++i)
2352 if (! args[i])
2353 break;
2355 t = implicit_conversion (types[i], argtypes[i], args[i],
2356 /*c_cast_p=*/false, flags, complain);
2357 if (! t)
2359 viable = 0;
2360 /* We need something for printing the candidate. */
2361 t = build_identity_conv (types[i], NULL_TREE);
2362 reason = arg_conversion_rejection (NULL_TREE, i, argtypes[i],
2363 types[i]);
2365 else if (t->bad_p)
2367 viable = 0;
2368 reason = bad_arg_conversion_rejection (NULL_TREE, i, args[i],
2369 types[i]);
2371 convs[i] = t;
2374 /* For COND_EXPR we rearranged the arguments; undo that now. */
2375 if (args[2])
2377 convs[2] = convs[1];
2378 convs[1] = convs[0];
2379 t = implicit_conversion (boolean_type_node, argtypes[2], args[2],
2380 /*c_cast_p=*/false, flags,
2381 complain);
2382 if (t)
2383 convs[0] = t;
2384 else
2386 viable = 0;
2387 reason = arg_conversion_rejection (NULL_TREE, 0, argtypes[2],
2388 boolean_type_node);
2392 add_candidate (candidates, fnname, /*first_arg=*/NULL_TREE, /*args=*/NULL,
2393 num_convs, convs,
2394 /*access_path=*/NULL_TREE,
2395 /*conversion_path=*/NULL_TREE,
2396 viable, reason, flags);
2399 static bool
2400 is_complete (tree t)
2402 return COMPLETE_TYPE_P (complete_type (t));
2405 /* Returns nonzero if TYPE is a promoted arithmetic type. */
2407 static bool
2408 promoted_arithmetic_type_p (tree type)
2410 /* [over.built]
2412 In this section, the term promoted integral type is used to refer
2413 to those integral types which are preserved by integral promotion
2414 (including e.g. int and long but excluding e.g. char).
2415 Similarly, the term promoted arithmetic type refers to promoted
2416 integral types plus floating types. */
2417 return ((CP_INTEGRAL_TYPE_P (type)
2418 && same_type_p (type_promotes_to (type), type))
2419 || TREE_CODE (type) == REAL_TYPE);
2422 /* Create any builtin operator overload candidates for the operator in
2423 question given the converted operand types TYPE1 and TYPE2. The other
2424 args are passed through from add_builtin_candidates to
2425 build_builtin_candidate.
2427 TYPE1 and TYPE2 may not be permissible, and we must filter them.
2428 If CODE is requires candidates operands of the same type of the kind
2429 of which TYPE1 and TYPE2 are, we add both candidates
2430 CODE (TYPE1, TYPE1) and CODE (TYPE2, TYPE2). */
2432 static void
2433 add_builtin_candidate (struct z_candidate **candidates, enum tree_code code,
2434 enum tree_code code2, tree fnname, tree type1,
2435 tree type2, tree *args, tree *argtypes, int flags,
2436 tsubst_flags_t complain)
2438 switch (code)
2440 case POSTINCREMENT_EXPR:
2441 case POSTDECREMENT_EXPR:
2442 args[1] = integer_zero_node;
2443 type2 = integer_type_node;
2444 break;
2445 default:
2446 break;
2449 switch (code)
2452 /* 4 For every pair T, VQ), where T is an arithmetic or enumeration type,
2453 and VQ is either volatile or empty, there exist candidate operator
2454 functions of the form
2455 VQ T& operator++(VQ T&);
2456 T operator++(VQ T&, int);
2457 5 For every pair T, VQ), where T is an enumeration type or an arithmetic
2458 type other than bool, and VQ is either volatile or empty, there exist
2459 candidate operator functions of the form
2460 VQ T& operator--(VQ T&);
2461 T operator--(VQ T&, int);
2462 6 For every pair T, VQ), where T is a cv-qualified or cv-unqualified
2463 complete object type, and VQ is either volatile or empty, there exist
2464 candidate operator functions of the form
2465 T*VQ& operator++(T*VQ&);
2466 T*VQ& operator--(T*VQ&);
2467 T* operator++(T*VQ&, int);
2468 T* operator--(T*VQ&, int); */
2470 case POSTDECREMENT_EXPR:
2471 case PREDECREMENT_EXPR:
2472 if (TREE_CODE (type1) == BOOLEAN_TYPE)
2473 return;
2474 /* FALLTHRU */
2475 case POSTINCREMENT_EXPR:
2476 case PREINCREMENT_EXPR:
2477 if (ARITHMETIC_TYPE_P (type1) || TYPE_PTROB_P (type1))
2479 type1 = build_reference_type (type1);
2480 break;
2482 return;
2484 /* 7 For every cv-qualified or cv-unqualified object type T, there
2485 exist candidate operator functions of the form
2487 T& operator*(T*);
2489 8 For every function type T, there exist candidate operator functions of
2490 the form
2491 T& operator*(T*); */
2493 case INDIRECT_REF:
2494 if (TYPE_PTR_P (type1)
2495 && (TYPE_PTROB_P (type1)
2496 || TREE_CODE (TREE_TYPE (type1)) == FUNCTION_TYPE))
2497 break;
2498 return;
2500 /* 9 For every type T, there exist candidate operator functions of the form
2501 T* operator+(T*);
2503 10For every promoted arithmetic type T, there exist candidate operator
2504 functions of the form
2505 T operator+(T);
2506 T operator-(T); */
2508 case UNARY_PLUS_EXPR: /* unary + */
2509 if (TYPE_PTR_P (type1))
2510 break;
2511 /* FALLTHRU */
2512 case NEGATE_EXPR:
2513 if (ARITHMETIC_TYPE_P (type1))
2514 break;
2515 return;
2517 /* 11For every promoted integral type T, there exist candidate operator
2518 functions of the form
2519 T operator~(T); */
2521 case BIT_NOT_EXPR:
2522 if (INTEGRAL_OR_UNSCOPED_ENUMERATION_TYPE_P (type1))
2523 break;
2524 return;
2526 /* 12For every quintuple C1, C2, T, CV1, CV2), where C2 is a class type, C1
2527 is the same type as C2 or is a derived class of C2, T is a complete
2528 object type or a function type, and CV1 and CV2 are cv-qualifier-seqs,
2529 there exist candidate operator functions of the form
2530 CV12 T& operator->*(CV1 C1*, CV2 T C2::*);
2531 where CV12 is the union of CV1 and CV2. */
2533 case MEMBER_REF:
2534 if (TYPE_PTR_P (type1) && TYPE_PTRMEM_P (type2))
2536 tree c1 = TREE_TYPE (type1);
2537 tree c2 = TYPE_PTRMEM_CLASS_TYPE (type2);
2539 if (MAYBE_CLASS_TYPE_P (c1) && DERIVED_FROM_P (c2, c1)
2540 && (TYPE_PTRMEMFUNC_P (type2)
2541 || is_complete (TYPE_PTRMEM_POINTED_TO_TYPE (type2))))
2542 break;
2544 return;
2546 /* 13For every pair of promoted arithmetic types L and R, there exist can-
2547 didate operator functions of the form
2548 LR operator*(L, R);
2549 LR operator/(L, R);
2550 LR operator+(L, R);
2551 LR operator-(L, R);
2552 bool operator<(L, R);
2553 bool operator>(L, R);
2554 bool operator<=(L, R);
2555 bool operator>=(L, R);
2556 bool operator==(L, R);
2557 bool operator!=(L, R);
2558 where LR is the result of the usual arithmetic conversions between
2559 types L and R.
2561 14For every pair of types T and I, where T is a cv-qualified or cv-
2562 unqualified complete object type and I is a promoted integral type,
2563 there exist candidate operator functions of the form
2564 T* operator+(T*, I);
2565 T& operator[](T*, I);
2566 T* operator-(T*, I);
2567 T* operator+(I, T*);
2568 T& operator[](I, T*);
2570 15For every T, where T is a pointer to complete object type, there exist
2571 candidate operator functions of the form112)
2572 ptrdiff_t operator-(T, T);
2574 16For every pointer or enumeration type T, there exist candidate operator
2575 functions of the form
2576 bool operator<(T, T);
2577 bool operator>(T, T);
2578 bool operator<=(T, T);
2579 bool operator>=(T, T);
2580 bool operator==(T, T);
2581 bool operator!=(T, T);
2583 17For every pointer to member type T, there exist candidate operator
2584 functions of the form
2585 bool operator==(T, T);
2586 bool operator!=(T, T); */
2588 case MINUS_EXPR:
2589 if (TYPE_PTROB_P (type1) && TYPE_PTROB_P (type2))
2590 break;
2591 if (TYPE_PTROB_P (type1)
2592 && INTEGRAL_OR_UNSCOPED_ENUMERATION_TYPE_P (type2))
2594 type2 = ptrdiff_type_node;
2595 break;
2597 /* FALLTHRU */
2598 case MULT_EXPR:
2599 case TRUNC_DIV_EXPR:
2600 if (ARITHMETIC_TYPE_P (type1) && ARITHMETIC_TYPE_P (type2))
2601 break;
2602 return;
2604 case EQ_EXPR:
2605 case NE_EXPR:
2606 if ((TYPE_PTRMEMFUNC_P (type1) && TYPE_PTRMEMFUNC_P (type2))
2607 || (TYPE_PTRDATAMEM_P (type1) && TYPE_PTRDATAMEM_P (type2)))
2608 break;
2609 if (TYPE_PTRMEM_P (type1) && null_ptr_cst_p (args[1]))
2611 type2 = type1;
2612 break;
2614 if (TYPE_PTRMEM_P (type2) && null_ptr_cst_p (args[0]))
2616 type1 = type2;
2617 break;
2619 /* Fall through. */
2620 case LT_EXPR:
2621 case GT_EXPR:
2622 case LE_EXPR:
2623 case GE_EXPR:
2624 case MAX_EXPR:
2625 case MIN_EXPR:
2626 if (ARITHMETIC_TYPE_P (type1) && ARITHMETIC_TYPE_P (type2))
2627 break;
2628 if (TYPE_PTR_P (type1) && TYPE_PTR_P (type2))
2629 break;
2630 if (TREE_CODE (type1) == ENUMERAL_TYPE
2631 && TREE_CODE (type2) == ENUMERAL_TYPE)
2632 break;
2633 if (TYPE_PTR_P (type1)
2634 && null_ptr_cst_p (args[1]))
2636 type2 = type1;
2637 break;
2639 if (null_ptr_cst_p (args[0])
2640 && TYPE_PTR_P (type2))
2642 type1 = type2;
2643 break;
2645 return;
2647 case PLUS_EXPR:
2648 if (ARITHMETIC_TYPE_P (type1) && ARITHMETIC_TYPE_P (type2))
2649 break;
2650 /* FALLTHRU */
2651 case ARRAY_REF:
2652 if (INTEGRAL_OR_UNSCOPED_ENUMERATION_TYPE_P (type1) && TYPE_PTROB_P (type2))
2654 type1 = ptrdiff_type_node;
2655 break;
2657 if (TYPE_PTROB_P (type1) && INTEGRAL_OR_UNSCOPED_ENUMERATION_TYPE_P (type2))
2659 type2 = ptrdiff_type_node;
2660 break;
2662 return;
2664 /* 18For every pair of promoted integral types L and R, there exist candi-
2665 date operator functions of the form
2666 LR operator%(L, R);
2667 LR operator&(L, R);
2668 LR operator^(L, R);
2669 LR operator|(L, R);
2670 L operator<<(L, R);
2671 L operator>>(L, R);
2672 where LR is the result of the usual arithmetic conversions between
2673 types L and R. */
2675 case TRUNC_MOD_EXPR:
2676 case BIT_AND_EXPR:
2677 case BIT_IOR_EXPR:
2678 case BIT_XOR_EXPR:
2679 case LSHIFT_EXPR:
2680 case RSHIFT_EXPR:
2681 if (INTEGRAL_OR_UNSCOPED_ENUMERATION_TYPE_P (type1) && INTEGRAL_OR_UNSCOPED_ENUMERATION_TYPE_P (type2))
2682 break;
2683 return;
2685 /* 19For every triple L, VQ, R), where L is an arithmetic or enumeration
2686 type, VQ is either volatile or empty, and R is a promoted arithmetic
2687 type, there exist candidate operator functions of the form
2688 VQ L& operator=(VQ L&, R);
2689 VQ L& operator*=(VQ L&, R);
2690 VQ L& operator/=(VQ L&, R);
2691 VQ L& operator+=(VQ L&, R);
2692 VQ L& operator-=(VQ L&, R);
2694 20For every pair T, VQ), where T is any type and VQ is either volatile
2695 or empty, there exist candidate operator functions of the form
2696 T*VQ& operator=(T*VQ&, T*);
2698 21For every pair T, VQ), where T is a pointer to member type and VQ is
2699 either volatile or empty, there exist candidate operator functions of
2700 the form
2701 VQ T& operator=(VQ T&, T);
2703 22For every triple T, VQ, I), where T is a cv-qualified or cv-
2704 unqualified complete object type, VQ is either volatile or empty, and
2705 I is a promoted integral type, there exist candidate operator func-
2706 tions of the form
2707 T*VQ& operator+=(T*VQ&, I);
2708 T*VQ& operator-=(T*VQ&, I);
2710 23For every triple L, VQ, R), where L is an integral or enumeration
2711 type, VQ is either volatile or empty, and R is a promoted integral
2712 type, there exist candidate operator functions of the form
2714 VQ L& operator%=(VQ L&, R);
2715 VQ L& operator<<=(VQ L&, R);
2716 VQ L& operator>>=(VQ L&, R);
2717 VQ L& operator&=(VQ L&, R);
2718 VQ L& operator^=(VQ L&, R);
2719 VQ L& operator|=(VQ L&, R); */
2721 case MODIFY_EXPR:
2722 switch (code2)
2724 case PLUS_EXPR:
2725 case MINUS_EXPR:
2726 if (TYPE_PTROB_P (type1) && INTEGRAL_OR_UNSCOPED_ENUMERATION_TYPE_P (type2))
2728 type2 = ptrdiff_type_node;
2729 break;
2731 /* FALLTHRU */
2732 case MULT_EXPR:
2733 case TRUNC_DIV_EXPR:
2734 if (ARITHMETIC_TYPE_P (type1) && ARITHMETIC_TYPE_P (type2))
2735 break;
2736 return;
2738 case TRUNC_MOD_EXPR:
2739 case BIT_AND_EXPR:
2740 case BIT_IOR_EXPR:
2741 case BIT_XOR_EXPR:
2742 case LSHIFT_EXPR:
2743 case RSHIFT_EXPR:
2744 if (INTEGRAL_OR_UNSCOPED_ENUMERATION_TYPE_P (type1) && INTEGRAL_OR_UNSCOPED_ENUMERATION_TYPE_P (type2))
2745 break;
2746 return;
2748 case NOP_EXPR:
2749 if (ARITHMETIC_TYPE_P (type1) && ARITHMETIC_TYPE_P (type2))
2750 break;
2751 if ((TYPE_PTRMEMFUNC_P (type1) && TYPE_PTRMEMFUNC_P (type2))
2752 || (TYPE_PTR_P (type1) && TYPE_PTR_P (type2))
2753 || (TYPE_PTRDATAMEM_P (type1) && TYPE_PTRDATAMEM_P (type2))
2754 || ((TYPE_PTRMEMFUNC_P (type1)
2755 || TYPE_PTR_P (type1))
2756 && null_ptr_cst_p (args[1])))
2758 type2 = type1;
2759 break;
2761 return;
2763 default:
2764 gcc_unreachable ();
2766 type1 = build_reference_type (type1);
2767 break;
2769 case COND_EXPR:
2770 /* [over.built]
2772 For every pair of promoted arithmetic types L and R, there
2773 exist candidate operator functions of the form
2775 LR operator?(bool, L, R);
2777 where LR is the result of the usual arithmetic conversions
2778 between types L and R.
2780 For every type T, where T is a pointer or pointer-to-member
2781 type, there exist candidate operator functions of the form T
2782 operator?(bool, T, T); */
2784 if (promoted_arithmetic_type_p (type1)
2785 && promoted_arithmetic_type_p (type2))
2786 /* That's OK. */
2787 break;
2789 /* Otherwise, the types should be pointers. */
2790 if (!TYPE_PTR_OR_PTRMEM_P (type1) || !TYPE_PTR_OR_PTRMEM_P (type2))
2791 return;
2793 /* We don't check that the two types are the same; the logic
2794 below will actually create two candidates; one in which both
2795 parameter types are TYPE1, and one in which both parameter
2796 types are TYPE2. */
2797 break;
2799 case REALPART_EXPR:
2800 case IMAGPART_EXPR:
2801 if (ARITHMETIC_TYPE_P (type1))
2802 break;
2803 return;
2805 default:
2806 gcc_unreachable ();
2809 /* Make sure we don't create builtin candidates with dependent types. */
2810 bool u1 = uses_template_parms (type1);
2811 bool u2 = type2 ? uses_template_parms (type2) : false;
2812 if (u1 || u2)
2814 /* Try to recover if one of the types is non-dependent. But if
2815 there's only one type, there's nothing we can do. */
2816 if (!type2)
2817 return;
2818 /* And we lose if both are dependent. */
2819 if (u1 && u2)
2820 return;
2821 /* Or if they have different forms. */
2822 if (TREE_CODE (type1) != TREE_CODE (type2))
2823 return;
2825 if (u1 && !u2)
2826 type1 = type2;
2827 else if (u2 && !u1)
2828 type2 = type1;
2831 /* If we're dealing with two pointer types or two enumeral types,
2832 we need candidates for both of them. */
2833 if (type2 && !same_type_p (type1, type2)
2834 && TREE_CODE (type1) == TREE_CODE (type2)
2835 && (TREE_CODE (type1) == REFERENCE_TYPE
2836 || (TYPE_PTR_P (type1) && TYPE_PTR_P (type2))
2837 || (TYPE_PTRDATAMEM_P (type1) && TYPE_PTRDATAMEM_P (type2))
2838 || TYPE_PTRMEMFUNC_P (type1)
2839 || MAYBE_CLASS_TYPE_P (type1)
2840 || TREE_CODE (type1) == ENUMERAL_TYPE))
2842 if (TYPE_PTR_OR_PTRMEM_P (type1))
2844 tree cptype = composite_pointer_type (type1, type2,
2845 error_mark_node,
2846 error_mark_node,
2847 CPO_CONVERSION,
2848 tf_none);
2849 if (cptype != error_mark_node)
2851 build_builtin_candidate
2852 (candidates, fnname, cptype, cptype, args, argtypes,
2853 flags, complain);
2854 return;
2858 build_builtin_candidate
2859 (candidates, fnname, type1, type1, args, argtypes, flags, complain);
2860 build_builtin_candidate
2861 (candidates, fnname, type2, type2, args, argtypes, flags, complain);
2862 return;
2865 build_builtin_candidate
2866 (candidates, fnname, type1, type2, args, argtypes, flags, complain);
2869 tree
2870 type_decays_to (tree type)
2872 if (TREE_CODE (type) == ARRAY_TYPE)
2873 return build_pointer_type (TREE_TYPE (type));
2874 if (TREE_CODE (type) == FUNCTION_TYPE)
2875 return build_pointer_type (type);
2876 return type;
2879 /* There are three conditions of builtin candidates:
2881 1) bool-taking candidates. These are the same regardless of the input.
2882 2) pointer-pair taking candidates. These are generated for each type
2883 one of the input types converts to.
2884 3) arithmetic candidates. According to the standard, we should generate
2885 all of these, but I'm trying not to...
2887 Here we generate a superset of the possible candidates for this particular
2888 case. That is a subset of the full set the standard defines, plus some
2889 other cases which the standard disallows. add_builtin_candidate will
2890 filter out the invalid set. */
2892 static void
2893 add_builtin_candidates (struct z_candidate **candidates, enum tree_code code,
2894 enum tree_code code2, tree fnname, tree *args,
2895 int flags, tsubst_flags_t complain)
2897 int ref1, i;
2898 int enum_p = 0;
2899 tree type, argtypes[3], t;
2900 /* TYPES[i] is the set of possible builtin-operator parameter types
2901 we will consider for the Ith argument. */
2902 vec<tree, va_gc> *types[2];
2903 unsigned ix;
2905 for (i = 0; i < 3; ++i)
2907 if (args[i])
2908 argtypes[i] = unlowered_expr_type (args[i]);
2909 else
2910 argtypes[i] = NULL_TREE;
2913 switch (code)
2915 /* 4 For every pair T, VQ), where T is an arithmetic or enumeration type,
2916 and VQ is either volatile or empty, there exist candidate operator
2917 functions of the form
2918 VQ T& operator++(VQ T&); */
2920 case POSTINCREMENT_EXPR:
2921 case PREINCREMENT_EXPR:
2922 case POSTDECREMENT_EXPR:
2923 case PREDECREMENT_EXPR:
2924 case MODIFY_EXPR:
2925 ref1 = 1;
2926 break;
2928 /* 24There also exist candidate operator functions of the form
2929 bool operator!(bool);
2930 bool operator&&(bool, bool);
2931 bool operator||(bool, bool); */
2933 case TRUTH_NOT_EXPR:
2934 build_builtin_candidate
2935 (candidates, fnname, boolean_type_node,
2936 NULL_TREE, args, argtypes, flags, complain);
2937 return;
2939 case TRUTH_ORIF_EXPR:
2940 case TRUTH_ANDIF_EXPR:
2941 build_builtin_candidate
2942 (candidates, fnname, boolean_type_node,
2943 boolean_type_node, args, argtypes, flags, complain);
2944 return;
2946 case ADDR_EXPR:
2947 case COMPOUND_EXPR:
2948 case COMPONENT_REF:
2949 return;
2951 case COND_EXPR:
2952 case EQ_EXPR:
2953 case NE_EXPR:
2954 case LT_EXPR:
2955 case LE_EXPR:
2956 case GT_EXPR:
2957 case GE_EXPR:
2958 enum_p = 1;
2959 /* Fall through. */
2961 default:
2962 ref1 = 0;
2965 types[0] = make_tree_vector ();
2966 types[1] = make_tree_vector ();
2968 for (i = 0; i < 2; ++i)
2970 if (! args[i])
2972 else if (MAYBE_CLASS_TYPE_P (argtypes[i]))
2974 tree convs;
2976 if (i == 0 && code == MODIFY_EXPR && code2 == NOP_EXPR)
2977 return;
2979 convs = lookup_conversions (argtypes[i]);
2981 if (code == COND_EXPR)
2983 if (lvalue_p (args[i]))
2984 vec_safe_push (types[i], build_reference_type (argtypes[i]));
2986 vec_safe_push (types[i], TYPE_MAIN_VARIANT (argtypes[i]));
2989 else if (! convs)
2990 return;
2992 for (; convs; convs = TREE_CHAIN (convs))
2994 type = TREE_TYPE (convs);
2996 if (i == 0 && ref1
2997 && (TREE_CODE (type) != REFERENCE_TYPE
2998 || CP_TYPE_CONST_P (TREE_TYPE (type))))
2999 continue;
3001 if (code == COND_EXPR && TREE_CODE (type) == REFERENCE_TYPE)
3002 vec_safe_push (types[i], type);
3004 type = non_reference (type);
3005 if (i != 0 || ! ref1)
3007 type = cv_unqualified (type_decays_to (type));
3008 if (enum_p && TREE_CODE (type) == ENUMERAL_TYPE)
3009 vec_safe_push (types[i], type);
3010 if (INTEGRAL_OR_UNSCOPED_ENUMERATION_TYPE_P (type))
3011 type = type_promotes_to (type);
3014 if (! vec_member (type, types[i]))
3015 vec_safe_push (types[i], type);
3018 else
3020 if (code == COND_EXPR && lvalue_p (args[i]))
3021 vec_safe_push (types[i], build_reference_type (argtypes[i]));
3022 type = non_reference (argtypes[i]);
3023 if (i != 0 || ! ref1)
3025 type = cv_unqualified (type_decays_to (type));
3026 if (enum_p && UNSCOPED_ENUM_P (type))
3027 vec_safe_push (types[i], type);
3028 if (INTEGRAL_OR_UNSCOPED_ENUMERATION_TYPE_P (type))
3029 type = type_promotes_to (type);
3031 vec_safe_push (types[i], type);
3035 /* Run through the possible parameter types of both arguments,
3036 creating candidates with those parameter types. */
3037 FOR_EACH_VEC_ELT_REVERSE (*(types[0]), ix, t)
3039 unsigned jx;
3040 tree u;
3042 if (!types[1]->is_empty ())
3043 FOR_EACH_VEC_ELT_REVERSE (*(types[1]), jx, u)
3044 add_builtin_candidate
3045 (candidates, code, code2, fnname, t,
3046 u, args, argtypes, flags, complain);
3047 else
3048 add_builtin_candidate
3049 (candidates, code, code2, fnname, t,
3050 NULL_TREE, args, argtypes, flags, complain);
3053 release_tree_vector (types[0]);
3054 release_tree_vector (types[1]);
3058 /* If TMPL can be successfully instantiated as indicated by
3059 EXPLICIT_TARGS and ARGLIST, adds the instantiation to CANDIDATES.
3061 TMPL is the template. EXPLICIT_TARGS are any explicit template
3062 arguments. ARGLIST is the arguments provided at the call-site.
3063 This does not change ARGLIST. The RETURN_TYPE is the desired type
3064 for conversion operators. If OBJ is NULL_TREE, FLAGS and CTYPE are
3065 as for add_function_candidate. If an OBJ is supplied, FLAGS and
3066 CTYPE are ignored, and OBJ is as for add_conv_candidate. */
3068 static struct z_candidate*
3069 add_template_candidate_real (struct z_candidate **candidates, tree tmpl,
3070 tree ctype, tree explicit_targs, tree first_arg,
3071 const vec<tree, va_gc> *arglist, tree return_type,
3072 tree access_path, tree conversion_path,
3073 int flags, tree obj, unification_kind_t strict,
3074 tsubst_flags_t complain)
3076 int ntparms = DECL_NTPARMS (tmpl);
3077 tree targs = make_tree_vec (ntparms);
3078 unsigned int len = vec_safe_length (arglist);
3079 unsigned int nargs = (first_arg == NULL_TREE ? 0 : 1) + len;
3080 unsigned int skip_without_in_chrg = 0;
3081 tree first_arg_without_in_chrg = first_arg;
3082 tree *args_without_in_chrg;
3083 unsigned int nargs_without_in_chrg;
3084 unsigned int ia, ix;
3085 tree arg;
3086 struct z_candidate *cand;
3087 tree fn;
3088 struct rejection_reason *reason = NULL;
3089 int errs;
3091 /* We don't do deduction on the in-charge parameter, the VTT
3092 parameter or 'this'. */
3093 if (DECL_NONSTATIC_MEMBER_FUNCTION_P (tmpl))
3095 if (first_arg_without_in_chrg != NULL_TREE)
3096 first_arg_without_in_chrg = NULL_TREE;
3097 else if (return_type && strict == DEDUCE_CALL)
3098 /* We're deducing for a call to the result of a template conversion
3099 function, so the args don't contain 'this'; leave them alone. */;
3100 else
3101 ++skip_without_in_chrg;
3104 if ((DECL_MAYBE_IN_CHARGE_CONSTRUCTOR_P (tmpl)
3105 || DECL_BASE_CONSTRUCTOR_P (tmpl))
3106 && CLASSTYPE_VBASECLASSES (DECL_CONTEXT (tmpl)))
3108 if (first_arg_without_in_chrg != NULL_TREE)
3109 first_arg_without_in_chrg = NULL_TREE;
3110 else
3111 ++skip_without_in_chrg;
3114 if (len < skip_without_in_chrg)
3115 return NULL;
3117 if (DECL_CONSTRUCTOR_P (tmpl) && nargs == 2
3118 && same_type_ignoring_top_level_qualifiers_p (TREE_TYPE (first_arg),
3119 TREE_TYPE ((*arglist)[0])))
3121 /* 12.8/6 says, "A declaration of a constructor for a class X is
3122 ill-formed if its first parameter is of type (optionally cv-qualified)
3123 X and either there are no other parameters or else all other
3124 parameters have default arguments. A member function template is never
3125 instantiated to produce such a constructor signature."
3127 So if we're trying to copy an object of the containing class, don't
3128 consider a template constructor that has a first parameter type that
3129 is just a template parameter, as we would deduce a signature that we
3130 would then reject in the code below. */
3131 if (tree firstparm = FUNCTION_FIRST_USER_PARMTYPE (tmpl))
3133 firstparm = TREE_VALUE (firstparm);
3134 if (PACK_EXPANSION_P (firstparm))
3135 firstparm = PACK_EXPANSION_PATTERN (firstparm);
3136 if (TREE_CODE (firstparm) == TEMPLATE_TYPE_PARM)
3138 gcc_assert (!explicit_targs);
3139 reason = invalid_copy_with_fn_template_rejection ();
3140 goto fail;
3145 nargs_without_in_chrg = ((first_arg_without_in_chrg != NULL_TREE ? 1 : 0)
3146 + (len - skip_without_in_chrg));
3147 args_without_in_chrg = XALLOCAVEC (tree, nargs_without_in_chrg);
3148 ia = 0;
3149 if (first_arg_without_in_chrg != NULL_TREE)
3151 args_without_in_chrg[ia] = first_arg_without_in_chrg;
3152 ++ia;
3154 for (ix = skip_without_in_chrg;
3155 vec_safe_iterate (arglist, ix, &arg);
3156 ++ix)
3158 args_without_in_chrg[ia] = arg;
3159 ++ia;
3161 gcc_assert (ia == nargs_without_in_chrg);
3163 errs = errorcount+sorrycount;
3164 fn = fn_type_unification (tmpl, explicit_targs, targs,
3165 args_without_in_chrg,
3166 nargs_without_in_chrg,
3167 return_type, strict, flags, false,
3168 complain & tf_decltype);
3170 if (fn == error_mark_node)
3172 /* Don't repeat unification later if it already resulted in errors. */
3173 if (errorcount+sorrycount == errs)
3174 reason = template_unification_rejection (tmpl, explicit_targs,
3175 targs, args_without_in_chrg,
3176 nargs_without_in_chrg,
3177 return_type, strict, flags);
3178 else
3179 reason = template_unification_error_rejection ();
3180 goto fail;
3183 if (DECL_CONSTRUCTOR_P (fn) && nargs == 2)
3185 tree arg_types = FUNCTION_FIRST_USER_PARMTYPE (fn);
3186 if (arg_types && same_type_p (TYPE_MAIN_VARIANT (TREE_VALUE (arg_types)),
3187 ctype))
3189 /* We're trying to produce a constructor with a prohibited signature,
3190 as discussed above; handle here any cases we didn't catch then,
3191 such as X(X<T>). */
3192 reason = invalid_copy_with_fn_template_rejection ();
3193 goto fail;
3197 if (obj != NULL_TREE)
3198 /* Aha, this is a conversion function. */
3199 cand = add_conv_candidate (candidates, fn, obj, arglist,
3200 access_path, conversion_path, complain);
3201 else
3202 cand = add_function_candidate (candidates, fn, ctype,
3203 first_arg, arglist, access_path,
3204 conversion_path, flags, complain);
3205 if (DECL_TI_TEMPLATE (fn) != tmpl)
3206 /* This situation can occur if a member template of a template
3207 class is specialized. Then, instantiate_template might return
3208 an instantiation of the specialization, in which case the
3209 DECL_TI_TEMPLATE field will point at the original
3210 specialization. For example:
3212 template <class T> struct S { template <class U> void f(U);
3213 template <> void f(int) {}; };
3214 S<double> sd;
3215 sd.f(3);
3217 Here, TMPL will be template <class U> S<double>::f(U).
3218 And, instantiate template will give us the specialization
3219 template <> S<double>::f(int). But, the DECL_TI_TEMPLATE field
3220 for this will point at template <class T> template <> S<T>::f(int),
3221 so that we can find the definition. For the purposes of
3222 overload resolution, however, we want the original TMPL. */
3223 cand->template_decl = build_template_info (tmpl, targs);
3224 else
3225 cand->template_decl = DECL_TEMPLATE_INFO (fn);
3226 cand->explicit_targs = explicit_targs;
3228 return cand;
3229 fail:
3230 return add_candidate (candidates, tmpl, first_arg, arglist, nargs, NULL,
3231 access_path, conversion_path, 0, reason, flags);
3235 static struct z_candidate *
3236 add_template_candidate (struct z_candidate **candidates, tree tmpl, tree ctype,
3237 tree explicit_targs, tree first_arg,
3238 const vec<tree, va_gc> *arglist, tree return_type,
3239 tree access_path, tree conversion_path, int flags,
3240 unification_kind_t strict, tsubst_flags_t complain)
3242 return
3243 add_template_candidate_real (candidates, tmpl, ctype,
3244 explicit_targs, first_arg, arglist,
3245 return_type, access_path, conversion_path,
3246 flags, NULL_TREE, strict, complain);
3249 /* Create an overload candidate for the conversion function template TMPL,
3250 returning RETURN_TYPE, which will be invoked for expression OBJ to produce a
3251 pointer-to-function which will in turn be called with the argument list
3252 ARGLIST, and add it to CANDIDATES. This does not change ARGLIST. FLAGS is
3253 passed on to implicit_conversion. */
3255 static struct z_candidate *
3256 add_template_conv_candidate (struct z_candidate **candidates, tree tmpl,
3257 tree obj,
3258 const vec<tree, va_gc> *arglist,
3259 tree return_type, tree access_path,
3260 tree conversion_path, tsubst_flags_t complain)
3262 /* Making this work broke PR 71117, so until the committee resolves core
3263 issue 2189, let's disable this candidate if there are any viable call
3264 operators. */
3265 if (any_strictly_viable (*candidates))
3266 return NULL;
3268 return
3269 add_template_candidate_real (candidates, tmpl, NULL_TREE, NULL_TREE,
3270 NULL_TREE, arglist, return_type, access_path,
3271 conversion_path, 0, obj, DEDUCE_CALL,
3272 complain);
3275 /* The CANDS are the set of candidates that were considered for
3276 overload resolution. Return the set of viable candidates, or CANDS
3277 if none are viable. If any of the candidates were viable, set
3278 *ANY_VIABLE_P to true. STRICT_P is true if a candidate should be
3279 considered viable only if it is strictly viable. */
3281 static struct z_candidate*
3282 splice_viable (struct z_candidate *cands,
3283 bool strict_p,
3284 bool *any_viable_p)
3286 struct z_candidate *viable;
3287 struct z_candidate **last_viable;
3288 struct z_candidate **cand;
3289 bool found_strictly_viable = false;
3291 /* Be strict inside templates, since build_over_call won't actually
3292 do the conversions to get pedwarns. */
3293 if (processing_template_decl)
3294 strict_p = true;
3296 viable = NULL;
3297 last_viable = &viable;
3298 *any_viable_p = false;
3300 cand = &cands;
3301 while (*cand)
3303 struct z_candidate *c = *cand;
3304 if (!strict_p
3305 && (c->viable == 1 || TREE_CODE (c->fn) == TEMPLATE_DECL))
3307 /* Be strict in the presence of a viable candidate. Also if
3308 there are template candidates, so that we get deduction errors
3309 for them instead of silently preferring a bad conversion. */
3310 strict_p = true;
3311 if (viable && !found_strictly_viable)
3313 /* Put any spliced near matches back onto the main list so
3314 that we see them if there is no strict match. */
3315 *any_viable_p = false;
3316 *last_viable = cands;
3317 cands = viable;
3318 viable = NULL;
3319 last_viable = &viable;
3323 if (strict_p ? c->viable == 1 : c->viable)
3325 *last_viable = c;
3326 *cand = c->next;
3327 c->next = NULL;
3328 last_viable = &c->next;
3329 *any_viable_p = true;
3330 if (c->viable == 1)
3331 found_strictly_viable = true;
3333 else
3334 cand = &c->next;
3337 return viable ? viable : cands;
3340 static bool
3341 any_strictly_viable (struct z_candidate *cands)
3343 for (; cands; cands = cands->next)
3344 if (cands->viable == 1)
3345 return true;
3346 return false;
3349 /* OBJ is being used in an expression like "OBJ.f (...)". In other
3350 words, it is about to become the "this" pointer for a member
3351 function call. Take the address of the object. */
3353 static tree
3354 build_this (tree obj)
3356 /* In a template, we are only concerned about the type of the
3357 expression, so we can take a shortcut. */
3358 if (processing_template_decl)
3359 return build_address (obj);
3361 return cp_build_addr_expr (obj, tf_warning_or_error);
3364 /* Returns true iff functions are equivalent. Equivalent functions are
3365 not '==' only if one is a function-local extern function or if
3366 both are extern "C". */
3368 static inline int
3369 equal_functions (tree fn1, tree fn2)
3371 if (TREE_CODE (fn1) != TREE_CODE (fn2))
3372 return 0;
3373 if (TREE_CODE (fn1) == TEMPLATE_DECL)
3374 return fn1 == fn2;
3375 if (DECL_LOCAL_FUNCTION_P (fn1) || DECL_LOCAL_FUNCTION_P (fn2)
3376 || DECL_EXTERN_C_FUNCTION_P (fn1))
3377 return decls_match (fn1, fn2);
3378 return fn1 == fn2;
3381 /* Print information about a candidate being rejected due to INFO. */
3383 static void
3384 print_conversion_rejection (location_t loc, struct conversion_info *info)
3386 tree from = info->from;
3387 if (!TYPE_P (from))
3388 from = lvalue_type (from);
3389 if (info->n_arg == -1)
3391 /* Conversion of implicit `this' argument failed. */
3392 if (!TYPE_P (info->from))
3393 /* A bad conversion for 'this' must be discarding cv-quals. */
3394 inform (loc, " passing %qT as %<this%> "
3395 "argument discards qualifiers",
3396 from);
3397 else
3398 inform (loc, " no known conversion for implicit "
3399 "%<this%> parameter from %qT to %qT",
3400 from, info->to_type);
3402 else if (!TYPE_P (info->from))
3404 if (info->n_arg >= 0)
3405 inform (loc, " conversion of argument %d would be ill-formed:",
3406 info->n_arg + 1);
3407 perform_implicit_conversion (info->to_type, info->from,
3408 tf_warning_or_error);
3410 else if (info->n_arg == -2)
3411 /* Conversion of conversion function return value failed. */
3412 inform (loc, " no known conversion from %qT to %qT",
3413 from, info->to_type);
3414 else
3415 inform (loc, " no known conversion for argument %d from %qT to %qT",
3416 info->n_arg + 1, from, info->to_type);
3419 /* Print information about a candidate with WANT parameters and we found
3420 HAVE. */
3422 static void
3423 print_arity_information (location_t loc, unsigned int have, unsigned int want)
3425 inform_n (loc, want,
3426 " candidate expects %d argument, %d provided",
3427 " candidate expects %d arguments, %d provided",
3428 want, have);
3431 /* Print information about one overload candidate CANDIDATE. MSGSTR
3432 is the text to print before the candidate itself.
3434 NOTE: Unlike most diagnostic functions in GCC, MSGSTR is expected
3435 to have been run through gettext by the caller. This wart makes
3436 life simpler in print_z_candidates and for the translators. */
3438 static void
3439 print_z_candidate (location_t loc, const char *msgstr,
3440 struct z_candidate *candidate)
3442 const char *msg = (msgstr == NULL
3443 ? ""
3444 : ACONCAT ((msgstr, " ", NULL)));
3445 tree fn = candidate->fn;
3446 if (flag_new_inheriting_ctors)
3447 fn = strip_inheriting_ctors (fn);
3448 location_t cloc = location_of (fn);
3450 if (identifier_p (fn))
3452 cloc = loc;
3453 if (candidate->num_convs == 3)
3454 inform (cloc, "%s%D(%T, %T, %T) <built-in>", msg, fn,
3455 candidate->convs[0]->type,
3456 candidate->convs[1]->type,
3457 candidate->convs[2]->type);
3458 else if (candidate->num_convs == 2)
3459 inform (cloc, "%s%D(%T, %T) <built-in>", msg, fn,
3460 candidate->convs[0]->type,
3461 candidate->convs[1]->type);
3462 else
3463 inform (cloc, "%s%D(%T) <built-in>", msg, fn,
3464 candidate->convs[0]->type);
3466 else if (TYPE_P (fn))
3467 inform (cloc, "%s%T <conversion>", msg, fn);
3468 else if (candidate->viable == -1)
3469 inform (cloc, "%s%#D <near match>", msg, fn);
3470 else if (DECL_DELETED_FN (fn))
3471 inform (cloc, "%s%#D <deleted>", msg, fn);
3472 else
3473 inform (cloc, "%s%#D", msg, fn);
3474 if (fn != candidate->fn)
3476 cloc = location_of (candidate->fn);
3477 inform (cloc, " inherited here");
3479 /* Give the user some information about why this candidate failed. */
3480 if (candidate->reason != NULL)
3482 struct rejection_reason *r = candidate->reason;
3484 switch (r->code)
3486 case rr_arity:
3487 print_arity_information (cloc, r->u.arity.actual,
3488 r->u.arity.expected);
3489 break;
3490 case rr_arg_conversion:
3491 print_conversion_rejection (cloc, &r->u.conversion);
3492 break;
3493 case rr_bad_arg_conversion:
3494 print_conversion_rejection (cloc, &r->u.bad_conversion);
3495 break;
3496 case rr_explicit_conversion:
3497 inform (cloc, " return type %qT of explicit conversion function "
3498 "cannot be converted to %qT with a qualification "
3499 "conversion", r->u.conversion.from,
3500 r->u.conversion.to_type);
3501 break;
3502 case rr_template_conversion:
3503 inform (cloc, " conversion from return type %qT of template "
3504 "conversion function specialization to %qT is not an "
3505 "exact match", r->u.conversion.from,
3506 r->u.conversion.to_type);
3507 break;
3508 case rr_template_unification:
3509 /* We use template_unification_error_rejection if unification caused
3510 actual non-SFINAE errors, in which case we don't need to repeat
3511 them here. */
3512 if (r->u.template_unification.tmpl == NULL_TREE)
3514 inform (cloc, " substitution of deduced template arguments "
3515 "resulted in errors seen above");
3516 break;
3518 /* Re-run template unification with diagnostics. */
3519 inform (cloc, " template argument deduction/substitution failed:");
3520 fn_type_unification (r->u.template_unification.tmpl,
3521 r->u.template_unification.explicit_targs,
3522 (make_tree_vec
3523 (r->u.template_unification.num_targs)),
3524 r->u.template_unification.args,
3525 r->u.template_unification.nargs,
3526 r->u.template_unification.return_type,
3527 r->u.template_unification.strict,
3528 r->u.template_unification.flags,
3529 true, false);
3530 break;
3531 case rr_invalid_copy:
3532 inform (cloc,
3533 " a constructor taking a single argument of its own "
3534 "class type is invalid");
3535 break;
3536 case rr_constraint_failure:
3538 tree tmpl = r->u.template_instantiation.tmpl;
3539 tree args = r->u.template_instantiation.targs;
3540 diagnose_constraints (cloc, tmpl, args);
3542 break;
3543 case rr_inherited_ctor:
3544 inform (cloc, " an inherited constructor is not a candidate for "
3545 "initialization from an expression of the same or derived "
3546 "type");
3547 break;
3548 case rr_none:
3549 default:
3550 /* This candidate didn't have any issues or we failed to
3551 handle a particular code. Either way... */
3552 gcc_unreachable ();
3557 static void
3558 print_z_candidates (location_t loc, struct z_candidate *candidates)
3560 struct z_candidate *cand1;
3561 struct z_candidate **cand2;
3563 if (!candidates)
3564 return;
3566 /* Remove non-viable deleted candidates. */
3567 cand1 = candidates;
3568 for (cand2 = &cand1; *cand2; )
3570 if (TREE_CODE ((*cand2)->fn) == FUNCTION_DECL
3571 && !(*cand2)->viable
3572 && DECL_DELETED_FN ((*cand2)->fn))
3573 *cand2 = (*cand2)->next;
3574 else
3575 cand2 = &(*cand2)->next;
3577 /* ...if there are any non-deleted ones. */
3578 if (cand1)
3579 candidates = cand1;
3581 /* There may be duplicates in the set of candidates. We put off
3582 checking this condition as long as possible, since we have no way
3583 to eliminate duplicates from a set of functions in less than n^2
3584 time. Now we are about to emit an error message, so it is more
3585 permissible to go slowly. */
3586 for (cand1 = candidates; cand1; cand1 = cand1->next)
3588 tree fn = cand1->fn;
3589 /* Skip builtin candidates and conversion functions. */
3590 if (!DECL_P (fn))
3591 continue;
3592 cand2 = &cand1->next;
3593 while (*cand2)
3595 if (DECL_P ((*cand2)->fn)
3596 && equal_functions (fn, (*cand2)->fn))
3597 *cand2 = (*cand2)->next;
3598 else
3599 cand2 = &(*cand2)->next;
3603 for (; candidates; candidates = candidates->next)
3604 print_z_candidate (loc, "candidate:", candidates);
3607 /* USER_SEQ is a user-defined conversion sequence, beginning with a
3608 USER_CONV. STD_SEQ is the standard conversion sequence applied to
3609 the result of the conversion function to convert it to the final
3610 desired type. Merge the two sequences into a single sequence,
3611 and return the merged sequence. */
3613 static conversion *
3614 merge_conversion_sequences (conversion *user_seq, conversion *std_seq)
3616 conversion **t;
3617 bool bad = user_seq->bad_p;
3619 gcc_assert (user_seq->kind == ck_user);
3621 /* Find the end of the second conversion sequence. */
3622 for (t = &std_seq; (*t)->kind != ck_identity; t = &((*t)->u.next))
3624 /* The entire sequence is a user-conversion sequence. */
3625 (*t)->user_conv_p = true;
3626 if (bad)
3627 (*t)->bad_p = true;
3630 /* Replace the identity conversion with the user conversion
3631 sequence. */
3632 *t = user_seq;
3634 return std_seq;
3637 /* Handle overload resolution for initializing an object of class type from
3638 an initializer list. First we look for a suitable constructor that
3639 takes a std::initializer_list; if we don't find one, we then look for a
3640 non-list constructor.
3642 Parameters are as for add_candidates, except that the arguments are in
3643 the form of a CONSTRUCTOR (the initializer list) rather than a vector, and
3644 the RETURN_TYPE parameter is replaced by TOTYPE, the desired type. */
3646 static void
3647 add_list_candidates (tree fns, tree first_arg,
3648 const vec<tree, va_gc> *args, tree totype,
3649 tree explicit_targs, bool template_only,
3650 tree conversion_path, tree access_path,
3651 int flags,
3652 struct z_candidate **candidates,
3653 tsubst_flags_t complain)
3655 gcc_assert (*candidates == NULL);
3657 /* We're looking for a ctor for list-initialization. */
3658 flags |= LOOKUP_LIST_INIT_CTOR;
3659 /* And we don't allow narrowing conversions. We also use this flag to
3660 avoid the copy constructor call for copy-list-initialization. */
3661 flags |= LOOKUP_NO_NARROWING;
3663 unsigned nart = num_artificial_parms_for (get_first_fn (fns)) - 1;
3664 tree init_list = (*args)[nart];
3666 /* Always use the default constructor if the list is empty (DR 990). */
3667 if (CONSTRUCTOR_NELTS (init_list) == 0
3668 && TYPE_HAS_DEFAULT_CONSTRUCTOR (totype))
3670 /* If the class has a list ctor, try passing the list as a single
3671 argument first, but only consider list ctors. */
3672 else if (TYPE_HAS_LIST_CTOR (totype))
3674 flags |= LOOKUP_LIST_ONLY;
3675 add_candidates (fns, first_arg, args, NULL_TREE,
3676 explicit_targs, template_only, conversion_path,
3677 access_path, flags, candidates, complain);
3678 if (any_strictly_viable (*candidates))
3679 return;
3682 /* Expand the CONSTRUCTOR into a new argument vec. */
3683 vec<tree, va_gc> *new_args;
3684 vec_alloc (new_args, nart + CONSTRUCTOR_NELTS (init_list));
3685 for (unsigned i = 0; i < nart; ++i)
3686 new_args->quick_push ((*args)[i]);
3687 for (unsigned i = 0; i < CONSTRUCTOR_NELTS (init_list); ++i)
3688 new_args->quick_push (CONSTRUCTOR_ELT (init_list, i)->value);
3690 /* We aren't looking for list-ctors anymore. */
3691 flags &= ~LOOKUP_LIST_ONLY;
3692 /* We allow more user-defined conversions within an init-list. */
3693 flags &= ~LOOKUP_NO_CONVERSION;
3695 add_candidates (fns, first_arg, new_args, NULL_TREE,
3696 explicit_targs, template_only, conversion_path,
3697 access_path, flags, candidates, complain);
3700 /* Returns the best overload candidate to perform the requested
3701 conversion. This function is used for three the overloading situations
3702 described in [over.match.copy], [over.match.conv], and [over.match.ref].
3703 If TOTYPE is a REFERENCE_TYPE, we're trying to find a direct binding as
3704 per [dcl.init.ref], so we ignore temporary bindings. */
3706 static struct z_candidate *
3707 build_user_type_conversion_1 (tree totype, tree expr, int flags,
3708 tsubst_flags_t complain)
3710 struct z_candidate *candidates, *cand;
3711 tree fromtype;
3712 tree ctors = NULL_TREE;
3713 tree conv_fns = NULL_TREE;
3714 conversion *conv = NULL;
3715 tree first_arg = NULL_TREE;
3716 vec<tree, va_gc> *args = NULL;
3717 bool any_viable_p;
3718 int convflags;
3720 if (!expr)
3721 return NULL;
3723 fromtype = TREE_TYPE (expr);
3725 /* We represent conversion within a hierarchy using RVALUE_CONV and
3726 BASE_CONV, as specified by [over.best.ics]; these become plain
3727 constructor calls, as specified in [dcl.init]. */
3728 gcc_assert (!MAYBE_CLASS_TYPE_P (fromtype) || !MAYBE_CLASS_TYPE_P (totype)
3729 || !DERIVED_FROM_P (totype, fromtype));
3731 if (MAYBE_CLASS_TYPE_P (totype))
3732 /* Use lookup_fnfields_slot instead of lookup_fnfields to avoid
3733 creating a garbage BASELINK; constructors can't be inherited. */
3734 ctors = lookup_fnfields_slot (totype, complete_ctor_identifier);
3736 /* FIXME P0135 doesn't say what to do in C++17 about list-initialization from
3737 a single element. For now, let's handle constructors as before and also
3738 consider conversion operators from the element. */
3739 if (cxx_dialect >= cxx1z
3740 && BRACE_ENCLOSED_INITIALIZER_P (expr)
3741 && CONSTRUCTOR_NELTS (expr) == 1)
3742 fromtype = TREE_TYPE (CONSTRUCTOR_ELT (expr, 0)->value);
3744 if (MAYBE_CLASS_TYPE_P (fromtype))
3746 tree to_nonref = non_reference (totype);
3747 if (same_type_ignoring_top_level_qualifiers_p (to_nonref, fromtype) ||
3748 (CLASS_TYPE_P (to_nonref) && CLASS_TYPE_P (fromtype)
3749 && DERIVED_FROM_P (to_nonref, fromtype)))
3751 /* [class.conv.fct] A conversion function is never used to
3752 convert a (possibly cv-qualified) object to the (possibly
3753 cv-qualified) same object type (or a reference to it), to a
3754 (possibly cv-qualified) base class of that type (or a
3755 reference to it)... */
3757 else
3758 conv_fns = lookup_conversions (fromtype);
3761 candidates = 0;
3762 flags |= LOOKUP_NO_CONVERSION;
3763 if (BRACE_ENCLOSED_INITIALIZER_P (expr))
3764 flags |= LOOKUP_NO_NARROWING;
3766 /* It's OK to bind a temporary for converting constructor arguments, but
3767 not in converting the return value of a conversion operator. */
3768 convflags = ((flags & LOOKUP_NO_TEMP_BIND) | LOOKUP_NO_CONVERSION
3769 | (flags & LOOKUP_NO_NARROWING));
3770 flags &= ~LOOKUP_NO_TEMP_BIND;
3772 if (ctors)
3774 int ctorflags = flags;
3776 first_arg = build_dummy_object (totype);
3778 /* We should never try to call the abstract or base constructor
3779 from here. */
3780 gcc_assert (!DECL_HAS_IN_CHARGE_PARM_P (OVL_CURRENT (ctors))
3781 && !DECL_HAS_VTT_PARM_P (OVL_CURRENT (ctors)));
3783 args = make_tree_vector_single (expr);
3784 if (BRACE_ENCLOSED_INITIALIZER_P (expr))
3786 /* List-initialization. */
3787 add_list_candidates (ctors, first_arg, args, totype, NULL_TREE,
3788 false, TYPE_BINFO (totype), TYPE_BINFO (totype),
3789 ctorflags, &candidates, complain);
3791 else
3793 add_candidates (ctors, first_arg, args, NULL_TREE, NULL_TREE, false,
3794 TYPE_BINFO (totype), TYPE_BINFO (totype),
3795 ctorflags, &candidates, complain);
3798 for (cand = candidates; cand; cand = cand->next)
3800 cand->second_conv = build_identity_conv (totype, NULL_TREE);
3802 /* If totype isn't a reference, and LOOKUP_NO_TEMP_BIND isn't
3803 set, then this is copy-initialization. In that case, "The
3804 result of the call is then used to direct-initialize the
3805 object that is the destination of the copy-initialization."
3806 [dcl.init]
3808 We represent this in the conversion sequence with an
3809 rvalue conversion, which means a constructor call. */
3810 if (TREE_CODE (totype) != REFERENCE_TYPE
3811 && !(convflags & LOOKUP_NO_TEMP_BIND))
3812 cand->second_conv
3813 = build_conv (ck_rvalue, totype, cand->second_conv);
3817 if (conv_fns)
3819 if (BRACE_ENCLOSED_INITIALIZER_P (expr))
3820 /* FIXME see above about C++17. */
3821 first_arg = CONSTRUCTOR_ELT (expr, 0)->value;
3822 else
3823 first_arg = expr;
3826 for (; conv_fns; conv_fns = TREE_CHAIN (conv_fns))
3828 tree conversion_path = TREE_PURPOSE (conv_fns);
3829 struct z_candidate *old_candidates;
3831 /* If we are called to convert to a reference type, we are trying to
3832 find a direct binding, so don't even consider temporaries. If
3833 we don't find a direct binding, the caller will try again to
3834 look for a temporary binding. */
3835 if (TREE_CODE (totype) == REFERENCE_TYPE)
3836 convflags |= LOOKUP_NO_TEMP_BIND;
3838 old_candidates = candidates;
3839 add_candidates (TREE_VALUE (conv_fns), first_arg, NULL, totype,
3840 NULL_TREE, false,
3841 conversion_path, TYPE_BINFO (fromtype),
3842 flags, &candidates, complain);
3844 for (cand = candidates; cand != old_candidates; cand = cand->next)
3846 tree rettype = TREE_TYPE (TREE_TYPE (cand->fn));
3847 conversion *ics
3848 = implicit_conversion (totype,
3849 rettype,
3851 /*c_cast_p=*/false, convflags,
3852 complain);
3854 /* If LOOKUP_NO_TEMP_BIND isn't set, then this is
3855 copy-initialization. In that case, "The result of the
3856 call is then used to direct-initialize the object that is
3857 the destination of the copy-initialization." [dcl.init]
3859 We represent this in the conversion sequence with an
3860 rvalue conversion, which means a constructor call. But
3861 don't add a second rvalue conversion if there's already
3862 one there. Which there really shouldn't be, but it's
3863 harmless since we'd add it here anyway. */
3864 if (ics && MAYBE_CLASS_TYPE_P (totype) && ics->kind != ck_rvalue
3865 && !(convflags & LOOKUP_NO_TEMP_BIND))
3866 ics = build_conv (ck_rvalue, totype, ics);
3868 cand->second_conv = ics;
3870 if (!ics)
3872 cand->viable = 0;
3873 cand->reason = arg_conversion_rejection (NULL_TREE, -2,
3874 rettype, totype);
3876 else if (DECL_NONCONVERTING_P (cand->fn)
3877 && ics->rank > cr_exact)
3879 /* 13.3.1.5: For direct-initialization, those explicit
3880 conversion functions that are not hidden within S and
3881 yield type T or a type that can be converted to type T
3882 with a qualification conversion (4.4) are also candidate
3883 functions. */
3884 /* 13.3.1.6 doesn't have a parallel restriction, but it should;
3885 I've raised this issue with the committee. --jason 9/2011 */
3886 cand->viable = -1;
3887 cand->reason = explicit_conversion_rejection (rettype, totype);
3889 else if (cand->viable == 1 && ics->bad_p)
3891 cand->viable = -1;
3892 cand->reason
3893 = bad_arg_conversion_rejection (NULL_TREE, -2,
3894 rettype, totype);
3896 else if (primary_template_instantiation_p (cand->fn)
3897 && ics->rank > cr_exact)
3899 /* 13.3.3.1.2: If the user-defined conversion is specified by
3900 a specialization of a conversion function template, the
3901 second standard conversion sequence shall have exact match
3902 rank. */
3903 cand->viable = -1;
3904 cand->reason = template_conversion_rejection (rettype, totype);
3909 candidates = splice_viable (candidates, false, &any_viable_p);
3910 if (!any_viable_p)
3912 if (args)
3913 release_tree_vector (args);
3914 return NULL;
3917 cand = tourney (candidates, complain);
3918 if (cand == 0)
3920 if (complain & tf_error)
3922 error ("conversion from %qT to %qT is ambiguous",
3923 fromtype, totype);
3924 print_z_candidates (location_of (expr), candidates);
3927 cand = candidates; /* any one will do */
3928 cand->second_conv = build_ambiguous_conv (totype, expr);
3929 cand->second_conv->user_conv_p = true;
3930 if (!any_strictly_viable (candidates))
3931 cand->second_conv->bad_p = true;
3932 /* If there are viable candidates, don't set ICS_BAD_FLAG; an
3933 ambiguous conversion is no worse than another user-defined
3934 conversion. */
3936 return cand;
3939 tree convtype;
3940 if (!DECL_CONSTRUCTOR_P (cand->fn))
3941 convtype = non_reference (TREE_TYPE (TREE_TYPE (cand->fn)));
3942 else if (cand->second_conv->kind == ck_rvalue)
3943 /* DR 5: [in the first step of copy-initialization]...if the function
3944 is a constructor, the call initializes a temporary of the
3945 cv-unqualified version of the destination type. */
3946 convtype = cv_unqualified (totype);
3947 else
3948 convtype = totype;
3949 /* Build the user conversion sequence. */
3950 conv = build_conv
3951 (ck_user,
3952 convtype,
3953 build_identity_conv (TREE_TYPE (expr), expr));
3954 conv->cand = cand;
3955 if (cand->viable == -1)
3956 conv->bad_p = true;
3958 /* Remember that this was a list-initialization. */
3959 if (flags & LOOKUP_NO_NARROWING)
3960 conv->check_narrowing = true;
3962 /* Combine it with the second conversion sequence. */
3963 cand->second_conv = merge_conversion_sequences (conv,
3964 cand->second_conv);
3966 return cand;
3969 /* Wrapper for above. */
3971 tree
3972 build_user_type_conversion (tree totype, tree expr, int flags,
3973 tsubst_flags_t complain)
3975 struct z_candidate *cand;
3976 tree ret;
3978 bool subtime = timevar_cond_start (TV_OVERLOAD);
3979 cand = build_user_type_conversion_1 (totype, expr, flags, complain);
3981 if (cand)
3983 if (cand->second_conv->kind == ck_ambig)
3984 ret = error_mark_node;
3985 else
3987 expr = convert_like (cand->second_conv, expr, complain);
3988 ret = convert_from_reference (expr);
3991 else
3992 ret = NULL_TREE;
3994 timevar_cond_stop (TV_OVERLOAD, subtime);
3995 return ret;
3998 /* Subroutine of convert_nontype_argument.
4000 EXPR is an argument for a template non-type parameter of integral or
4001 enumeration type. Do any necessary conversions (that are permitted for
4002 non-type arguments) to convert it to the parameter type.
4004 If conversion is successful, returns the converted expression;
4005 otherwise, returns error_mark_node. */
4007 tree
4008 build_integral_nontype_arg_conv (tree type, tree expr, tsubst_flags_t complain)
4010 conversion *conv;
4011 void *p;
4012 tree t;
4013 location_t loc = EXPR_LOC_OR_LOC (expr, input_location);
4015 if (error_operand_p (expr))
4016 return error_mark_node;
4018 gcc_assert (INTEGRAL_OR_ENUMERATION_TYPE_P (type));
4020 /* Get the high-water mark for the CONVERSION_OBSTACK. */
4021 p = conversion_obstack_alloc (0);
4023 conv = implicit_conversion (type, TREE_TYPE (expr), expr,
4024 /*c_cast_p=*/false,
4025 LOOKUP_IMPLICIT, complain);
4027 /* for a non-type template-parameter of integral or
4028 enumeration type, integral promotions (4.5) and integral
4029 conversions (4.7) are applied. */
4030 /* It should be sufficient to check the outermost conversion step, since
4031 there are no qualification conversions to integer type. */
4032 if (conv)
4033 switch (conv->kind)
4035 /* A conversion function is OK. If it isn't constexpr, we'll
4036 complain later that the argument isn't constant. */
4037 case ck_user:
4038 /* The lvalue-to-rvalue conversion is OK. */
4039 case ck_rvalue:
4040 case ck_identity:
4041 break;
4043 case ck_std:
4044 t = next_conversion (conv)->type;
4045 if (INTEGRAL_OR_ENUMERATION_TYPE_P (t))
4046 break;
4048 if (complain & tf_error)
4049 error_at (loc, "conversion from %qT to %qT not considered for "
4050 "non-type template argument", t, type);
4051 /* fall through. */
4053 default:
4054 conv = NULL;
4055 break;
4058 if (conv)
4059 expr = convert_like (conv, expr, complain);
4060 else
4061 expr = error_mark_node;
4063 /* Free all the conversions we allocated. */
4064 obstack_free (&conversion_obstack, p);
4066 return expr;
4069 /* Do any initial processing on the arguments to a function call. */
4071 static vec<tree, va_gc> *
4072 resolve_args (vec<tree, va_gc> *args, tsubst_flags_t complain)
4074 unsigned int ix;
4075 tree arg;
4077 FOR_EACH_VEC_SAFE_ELT (args, ix, arg)
4079 if (error_operand_p (arg))
4080 return NULL;
4081 else if (VOID_TYPE_P (TREE_TYPE (arg)))
4083 if (complain & tf_error)
4084 error ("invalid use of void expression");
4085 return NULL;
4087 else if (invalid_nonstatic_memfn_p (input_location, arg, complain))
4088 return NULL;
4090 return args;
4093 /* Perform overload resolution on FN, which is called with the ARGS.
4095 Return the candidate function selected by overload resolution, or
4096 NULL if the event that overload resolution failed. In the case
4097 that overload resolution fails, *CANDIDATES will be the set of
4098 candidates considered, and ANY_VIABLE_P will be set to true or
4099 false to indicate whether or not any of the candidates were
4100 viable.
4102 The ARGS should already have gone through RESOLVE_ARGS before this
4103 function is called. */
4105 static struct z_candidate *
4106 perform_overload_resolution (tree fn,
4107 const vec<tree, va_gc> *args,
4108 struct z_candidate **candidates,
4109 bool *any_viable_p, tsubst_flags_t complain)
4111 struct z_candidate *cand;
4112 tree explicit_targs;
4113 int template_only;
4115 bool subtime = timevar_cond_start (TV_OVERLOAD);
4117 explicit_targs = NULL_TREE;
4118 template_only = 0;
4120 *candidates = NULL;
4121 *any_viable_p = true;
4123 /* Check FN. */
4124 gcc_assert (TREE_CODE (fn) == FUNCTION_DECL
4125 || TREE_CODE (fn) == TEMPLATE_DECL
4126 || TREE_CODE (fn) == OVERLOAD
4127 || TREE_CODE (fn) == TEMPLATE_ID_EXPR);
4129 if (TREE_CODE (fn) == TEMPLATE_ID_EXPR)
4131 explicit_targs = TREE_OPERAND (fn, 1);
4132 fn = TREE_OPERAND (fn, 0);
4133 template_only = 1;
4136 /* Add the various candidate functions. */
4137 add_candidates (fn, NULL_TREE, args, NULL_TREE,
4138 explicit_targs, template_only,
4139 /*conversion_path=*/NULL_TREE,
4140 /*access_path=*/NULL_TREE,
4141 LOOKUP_NORMAL,
4142 candidates, complain);
4144 *candidates = splice_viable (*candidates, false, any_viable_p);
4145 if (*any_viable_p)
4146 cand = tourney (*candidates, complain);
4147 else
4148 cand = NULL;
4150 timevar_cond_stop (TV_OVERLOAD, subtime);
4151 return cand;
4154 /* Print an error message about being unable to build a call to FN with
4155 ARGS. ANY_VIABLE_P indicates whether any candidate functions could
4156 be located; CANDIDATES is a possibly empty list of such
4157 functions. */
4159 static void
4160 print_error_for_call_failure (tree fn, vec<tree, va_gc> *args,
4161 struct z_candidate *candidates)
4163 tree targs = NULL_TREE;
4164 if (TREE_CODE (fn) == TEMPLATE_ID_EXPR)
4166 targs = TREE_OPERAND (fn, 1);
4167 fn = TREE_OPERAND (fn, 0);
4169 tree name = DECL_NAME (OVL_CURRENT (fn));
4170 location_t loc = location_of (name);
4171 if (targs)
4172 name = lookup_template_function (name, targs);
4174 if (!any_strictly_viable (candidates))
4175 error_at (loc, "no matching function for call to %<%D(%A)%>",
4176 name, build_tree_list_vec (args));
4177 else
4178 error_at (loc, "call of overloaded %<%D(%A)%> is ambiguous",
4179 name, build_tree_list_vec (args));
4180 if (candidates)
4181 print_z_candidates (loc, candidates);
4184 /* Return an expression for a call to FN (a namespace-scope function,
4185 or a static member function) with the ARGS. This may change
4186 ARGS. */
4188 tree
4189 build_new_function_call (tree fn, vec<tree, va_gc> **args, bool koenig_p,
4190 tsubst_flags_t complain)
4192 struct z_candidate *candidates, *cand;
4193 bool any_viable_p;
4194 void *p;
4195 tree result;
4197 if (args != NULL && *args != NULL)
4199 *args = resolve_args (*args, complain);
4200 if (*args == NULL)
4201 return error_mark_node;
4204 if (flag_tm)
4205 tm_malloc_replacement (fn);
4207 /* If this function was found without using argument dependent
4208 lookup, then we want to ignore any undeclared friend
4209 functions. */
4210 if (!koenig_p)
4212 tree orig_fn = fn;
4214 fn = remove_hidden_names (fn);
4215 if (!fn)
4217 if (complain & tf_error)
4218 print_error_for_call_failure (orig_fn, *args, NULL);
4219 return error_mark_node;
4223 /* Get the high-water mark for the CONVERSION_OBSTACK. */
4224 p = conversion_obstack_alloc (0);
4226 cand = perform_overload_resolution (fn, *args, &candidates, &any_viable_p,
4227 complain);
4229 if (!cand)
4231 if (complain & tf_error)
4233 // If there is a single (non-viable) function candidate,
4234 // let the error be diagnosed by cp_build_function_call_vec.
4235 if (!any_viable_p && candidates && ! candidates->next
4236 && (TREE_CODE (candidates->fn) == FUNCTION_DECL))
4237 return cp_build_function_call_vec (candidates->fn, args, complain);
4239 // Otherwise, emit notes for non-viable candidates.
4240 print_error_for_call_failure (fn, *args, candidates);
4242 result = error_mark_node;
4244 else
4246 int flags = LOOKUP_NORMAL;
4247 /* If fn is template_id_expr, the call has explicit template arguments
4248 (e.g. func<int>(5)), communicate this info to build_over_call
4249 through flags so that later we can use it to decide whether to warn
4250 about peculiar null pointer conversion. */
4251 if (TREE_CODE (fn) == TEMPLATE_ID_EXPR)
4253 /* If overload resolution selects a specialization of a
4254 function concept for non-dependent template arguments,
4255 the expression is true if the constraints are satisfied
4256 and false otherwise.
4258 NOTE: This is an extension of Concepts Lite TS that
4259 allows constraints to be used in expressions. */
4260 if (flag_concepts && !processing_template_decl)
4262 tree tmpl = DECL_TI_TEMPLATE (cand->fn);
4263 tree targs = DECL_TI_ARGS (cand->fn);
4264 tree decl = DECL_TEMPLATE_RESULT (tmpl);
4265 if (DECL_DECLARED_CONCEPT_P (decl))
4266 return evaluate_function_concept (decl, targs);
4269 flags |= LOOKUP_EXPLICIT_TMPL_ARGS;
4272 result = build_over_call (cand, flags, complain);
4275 /* Free all the conversions we allocated. */
4276 obstack_free (&conversion_obstack, p);
4278 return result;
4281 /* Build a call to a global operator new. FNNAME is the name of the
4282 operator (either "operator new" or "operator new[]") and ARGS are
4283 the arguments provided. This may change ARGS. *SIZE points to the
4284 total number of bytes required by the allocation, and is updated if
4285 that is changed here. *COOKIE_SIZE is non-NULL if a cookie should
4286 be used. If this function determines that no cookie should be
4287 used, after all, *COOKIE_SIZE is set to NULL_TREE. If SIZE_CHECK
4288 is not NULL_TREE, it is evaluated before calculating the final
4289 array size, and if it fails, the array size is replaced with
4290 (size_t)-1 (usually triggering a std::bad_alloc exception). If FN
4291 is non-NULL, it will be set, upon return, to the allocation
4292 function called. */
4294 tree
4295 build_operator_new_call (tree fnname, vec<tree, va_gc> **args,
4296 tree *size, tree *cookie_size,
4297 tree align_arg, tree size_check,
4298 tree *fn, tsubst_flags_t complain)
4300 tree original_size = *size;
4301 tree fns;
4302 struct z_candidate *candidates;
4303 struct z_candidate *cand = NULL;
4304 bool any_viable_p;
4306 if (fn)
4307 *fn = NULL_TREE;
4308 /* Set to (size_t)-1 if the size check fails. */
4309 if (size_check != NULL_TREE)
4311 tree errval = TYPE_MAX_VALUE (sizetype);
4312 if (cxx_dialect >= cxx11 && flag_exceptions)
4313 errval = throw_bad_array_new_length ();
4314 *size = fold_build3 (COND_EXPR, sizetype, size_check,
4315 original_size, errval);
4317 vec_safe_insert (*args, 0, *size);
4318 *args = resolve_args (*args, complain);
4319 if (*args == NULL)
4320 return error_mark_node;
4322 /* Based on:
4324 [expr.new]
4326 If this lookup fails to find the name, or if the allocated type
4327 is not a class type, the allocation function's name is looked
4328 up in the global scope.
4330 we disregard block-scope declarations of "operator new". */
4331 fns = lookup_function_nonclass (fnname, *args, /*block_p=*/false);
4333 if (align_arg)
4335 vec<tree, va_gc>* align_args
4336 = vec_copy_and_insert (*args, align_arg, 1);
4337 cand = perform_overload_resolution (fns, align_args, &candidates,
4338 &any_viable_p, tf_none);
4339 /* If no aligned allocation function matches, try again without the
4340 alignment. */
4343 /* Figure out what function is being called. */
4344 if (!cand)
4345 cand = perform_overload_resolution (fns, *args, &candidates, &any_viable_p,
4346 complain);
4348 /* If no suitable function could be found, issue an error message
4349 and give up. */
4350 if (!cand)
4352 if (complain & tf_error)
4353 print_error_for_call_failure (fns, *args, candidates);
4354 return error_mark_node;
4357 /* If a cookie is required, add some extra space. Whether
4358 or not a cookie is required cannot be determined until
4359 after we know which function was called. */
4360 if (*cookie_size)
4362 bool use_cookie = true;
4363 tree arg_types;
4365 arg_types = TYPE_ARG_TYPES (TREE_TYPE (cand->fn));
4366 /* Skip the size_t parameter. */
4367 arg_types = TREE_CHAIN (arg_types);
4368 /* Check the remaining parameters (if any). */
4369 if (arg_types
4370 && TREE_CHAIN (arg_types) == void_list_node
4371 && same_type_p (TREE_VALUE (arg_types),
4372 ptr_type_node))
4373 use_cookie = false;
4374 /* If we need a cookie, adjust the number of bytes allocated. */
4375 if (use_cookie)
4377 /* Update the total size. */
4378 *size = size_binop (PLUS_EXPR, original_size, *cookie_size);
4379 if (size_check)
4381 /* Set to (size_t)-1 if the size check fails. */
4382 gcc_assert (size_check != NULL_TREE);
4383 *size = fold_build3 (COND_EXPR, sizetype, size_check,
4384 *size, TYPE_MAX_VALUE (sizetype));
4386 /* Update the argument list to reflect the adjusted size. */
4387 (**args)[0] = *size;
4389 else
4390 *cookie_size = NULL_TREE;
4393 /* Tell our caller which function we decided to call. */
4394 if (fn)
4395 *fn = cand->fn;
4397 /* Build the CALL_EXPR. */
4398 return build_over_call (cand, LOOKUP_NORMAL, complain);
4401 /* Build a new call to operator(). This may change ARGS. */
4403 static tree
4404 build_op_call_1 (tree obj, vec<tree, va_gc> **args, tsubst_flags_t complain)
4406 struct z_candidate *candidates = 0, *cand;
4407 tree fns, convs, first_mem_arg = NULL_TREE;
4408 tree type = TREE_TYPE (obj);
4409 bool any_viable_p;
4410 tree result = NULL_TREE;
4411 void *p;
4413 if (error_operand_p (obj))
4414 return error_mark_node;
4416 obj = prep_operand (obj);
4418 if (TYPE_PTRMEMFUNC_P (type))
4420 if (complain & tf_error)
4421 /* It's no good looking for an overloaded operator() on a
4422 pointer-to-member-function. */
4423 error ("pointer-to-member function %E cannot be called without an object; consider using .* or ->*", obj);
4424 return error_mark_node;
4427 if (TYPE_BINFO (type))
4429 fns = lookup_fnfields (TYPE_BINFO (type), cp_operator_id (CALL_EXPR), 1);
4430 if (fns == error_mark_node)
4431 return error_mark_node;
4433 else
4434 fns = NULL_TREE;
4436 if (args != NULL && *args != NULL)
4438 *args = resolve_args (*args, complain);
4439 if (*args == NULL)
4440 return error_mark_node;
4443 /* Get the high-water mark for the CONVERSION_OBSTACK. */
4444 p = conversion_obstack_alloc (0);
4446 if (fns)
4448 first_mem_arg = obj;
4450 add_candidates (BASELINK_FUNCTIONS (fns),
4451 first_mem_arg, *args, NULL_TREE,
4452 NULL_TREE, false,
4453 BASELINK_BINFO (fns), BASELINK_ACCESS_BINFO (fns),
4454 LOOKUP_NORMAL, &candidates, complain);
4457 convs = lookup_conversions (type);
4459 for (; convs; convs = TREE_CHAIN (convs))
4461 tree fns = TREE_VALUE (convs);
4462 tree totype = TREE_TYPE (convs);
4464 if (TYPE_PTRFN_P (totype)
4465 || TYPE_REFFN_P (totype)
4466 || (TREE_CODE (totype) == REFERENCE_TYPE
4467 && TYPE_PTRFN_P (TREE_TYPE (totype))))
4468 for (; fns; fns = OVL_NEXT (fns))
4470 tree fn = OVL_CURRENT (fns);
4472 if (DECL_NONCONVERTING_P (fn))
4473 continue;
4475 if (TREE_CODE (fn) == TEMPLATE_DECL)
4476 add_template_conv_candidate
4477 (&candidates, fn, obj, *args, totype,
4478 /*access_path=*/NULL_TREE,
4479 /*conversion_path=*/NULL_TREE, complain);
4480 else
4481 add_conv_candidate (&candidates, fn, obj,
4482 *args, /*conversion_path=*/NULL_TREE,
4483 /*access_path=*/NULL_TREE, complain);
4487 /* Be strict here because if we choose a bad conversion candidate, the
4488 errors we get won't mention the call context. */
4489 candidates = splice_viable (candidates, true, &any_viable_p);
4490 if (!any_viable_p)
4492 if (complain & tf_error)
4494 error ("no match for call to %<(%T) (%A)%>", TREE_TYPE (obj),
4495 build_tree_list_vec (*args));
4496 print_z_candidates (location_of (TREE_TYPE (obj)), candidates);
4498 result = error_mark_node;
4500 else
4502 cand = tourney (candidates, complain);
4503 if (cand == 0)
4505 if (complain & tf_error)
4507 error ("call of %<(%T) (%A)%> is ambiguous",
4508 TREE_TYPE (obj), build_tree_list_vec (*args));
4509 print_z_candidates (location_of (TREE_TYPE (obj)), candidates);
4511 result = error_mark_node;
4513 /* Since cand->fn will be a type, not a function, for a conversion
4514 function, we must be careful not to unconditionally look at
4515 DECL_NAME here. */
4516 else if (TREE_CODE (cand->fn) == FUNCTION_DECL
4517 && DECL_OVERLOADED_OPERATOR_P (cand->fn) == CALL_EXPR)
4518 result = build_over_call (cand, LOOKUP_NORMAL, complain);
4519 else
4521 if (DECL_P (cand->fn))
4522 obj = convert_like_with_context (cand->convs[0], obj, cand->fn,
4523 -1, complain);
4524 else
4525 obj = convert_like (cand->convs[0], obj, complain);
4526 obj = convert_from_reference (obj);
4527 result = cp_build_function_call_vec (obj, args, complain);
4531 /* Free all the conversions we allocated. */
4532 obstack_free (&conversion_obstack, p);
4534 return result;
4537 /* Wrapper for above. */
4539 tree
4540 build_op_call (tree obj, vec<tree, va_gc> **args, tsubst_flags_t complain)
4542 tree ret;
4543 bool subtime = timevar_cond_start (TV_OVERLOAD);
4544 ret = build_op_call_1 (obj, args, complain);
4545 timevar_cond_stop (TV_OVERLOAD, subtime);
4546 return ret;
4549 /* Called by op_error to prepare format strings suitable for the error
4550 function. It concatenates a prefix (controlled by MATCH), ERRMSG,
4551 and a suffix (controlled by NTYPES). */
4553 static const char *
4554 op_error_string (const char *errmsg, int ntypes, bool match)
4556 const char *msg;
4558 const char *msgp = concat (match ? G_("ambiguous overload for ")
4559 : G_("no match for "), errmsg, NULL);
4561 if (ntypes == 3)
4562 msg = concat (msgp, G_(" (operand types are %qT, %qT, and %qT)"), NULL);
4563 else if (ntypes == 2)
4564 msg = concat (msgp, G_(" (operand types are %qT and %qT)"), NULL);
4565 else
4566 msg = concat (msgp, G_(" (operand type is %qT)"), NULL);
4568 return msg;
4571 static void
4572 op_error (location_t loc, enum tree_code code, enum tree_code code2,
4573 tree arg1, tree arg2, tree arg3, bool match)
4575 const char *opname;
4577 if (code == MODIFY_EXPR)
4578 opname = assignment_operator_name_info[code2].name;
4579 else
4580 opname = operator_name_info[code].name;
4582 switch (code)
4584 case COND_EXPR:
4585 if (flag_diagnostics_show_caret)
4586 error_at (loc, op_error_string (G_("ternary %<operator?:%>"),
4587 3, match),
4588 TREE_TYPE (arg1), TREE_TYPE (arg2), TREE_TYPE (arg3));
4589 else
4590 error_at (loc, op_error_string (G_("ternary %<operator?:%> "
4591 "in %<%E ? %E : %E%>"), 3, match),
4592 arg1, arg2, arg3,
4593 TREE_TYPE (arg1), TREE_TYPE (arg2), TREE_TYPE (arg3));
4594 break;
4596 case POSTINCREMENT_EXPR:
4597 case POSTDECREMENT_EXPR:
4598 if (flag_diagnostics_show_caret)
4599 error_at (loc, op_error_string (G_("%<operator%s%>"), 1, match),
4600 opname, TREE_TYPE (arg1));
4601 else
4602 error_at (loc, op_error_string (G_("%<operator%s%> in %<%E%s%>"),
4603 1, match),
4604 opname, arg1, opname, TREE_TYPE (arg1));
4605 break;
4607 case ARRAY_REF:
4608 if (flag_diagnostics_show_caret)
4609 error_at (loc, op_error_string (G_("%<operator[]%>"), 2, match),
4610 TREE_TYPE (arg1), TREE_TYPE (arg2));
4611 else
4612 error_at (loc, op_error_string (G_("%<operator[]%> in %<%E[%E]%>"),
4613 2, match),
4614 arg1, arg2, TREE_TYPE (arg1), TREE_TYPE (arg2));
4615 break;
4617 case REALPART_EXPR:
4618 case IMAGPART_EXPR:
4619 if (flag_diagnostics_show_caret)
4620 error_at (loc, op_error_string (G_("%qs"), 1, match),
4621 opname, TREE_TYPE (arg1));
4622 else
4623 error_at (loc, op_error_string (G_("%qs in %<%s %E%>"), 1, match),
4624 opname, opname, arg1, TREE_TYPE (arg1));
4625 break;
4627 default:
4628 if (arg2)
4629 if (flag_diagnostics_show_caret)
4630 error_at (loc, op_error_string (G_("%<operator%s%>"), 2, match),
4631 opname, TREE_TYPE (arg1), TREE_TYPE (arg2));
4632 else
4633 error_at (loc, op_error_string (G_("%<operator%s%> in %<%E %s %E%>"),
4634 2, match),
4635 opname, arg1, opname, arg2,
4636 TREE_TYPE (arg1), TREE_TYPE (arg2));
4637 else
4638 if (flag_diagnostics_show_caret)
4639 error_at (loc, op_error_string (G_("%<operator%s%>"), 1, match),
4640 opname, TREE_TYPE (arg1));
4641 else
4642 error_at (loc, op_error_string (G_("%<operator%s%> in %<%s%E%>"),
4643 1, match),
4644 opname, opname, arg1, TREE_TYPE (arg1));
4645 break;
4649 /* Return the implicit conversion sequence that could be used to
4650 convert E1 to E2 in [expr.cond]. */
4652 static conversion *
4653 conditional_conversion (tree e1, tree e2, tsubst_flags_t complain)
4655 tree t1 = non_reference (TREE_TYPE (e1));
4656 tree t2 = non_reference (TREE_TYPE (e2));
4657 conversion *conv;
4658 bool good_base;
4660 /* [expr.cond]
4662 If E2 is an lvalue: E1 can be converted to match E2 if E1 can be
4663 implicitly converted (clause _conv_) to the type "lvalue reference to
4664 T2", subject to the constraint that in the conversion the
4665 reference must bind directly (_dcl.init.ref_) to an lvalue.
4667 If E2 is an xvalue: E1 can be converted to match E2 if E1 can be
4668 implicitly converted to the type "rvalue reference to T2", subject to
4669 the constraint that the reference must bind directly. */
4670 if (glvalue_p (e2))
4672 tree rtype = cp_build_reference_type (t2, !lvalue_p (e2));
4673 conv = implicit_conversion (rtype,
4676 /*c_cast_p=*/false,
4677 LOOKUP_NO_TEMP_BIND|LOOKUP_NO_RVAL_BIND
4678 |LOOKUP_ONLYCONVERTING,
4679 complain);
4680 if (conv && !conv->bad_p)
4681 return conv;
4684 /* If E2 is a prvalue or if neither of the conversions above can be done
4685 and at least one of the operands has (possibly cv-qualified) class
4686 type: */
4687 if (!CLASS_TYPE_P (t1) && !CLASS_TYPE_P (t2))
4688 return NULL;
4690 /* [expr.cond]
4692 If E1 and E2 have class type, and the underlying class types are
4693 the same or one is a base class of the other: E1 can be converted
4694 to match E2 if the class of T2 is the same type as, or a base
4695 class of, the class of T1, and the cv-qualification of T2 is the
4696 same cv-qualification as, or a greater cv-qualification than, the
4697 cv-qualification of T1. If the conversion is applied, E1 is
4698 changed to an rvalue of type T2 that still refers to the original
4699 source class object (or the appropriate subobject thereof). */
4700 if (CLASS_TYPE_P (t1) && CLASS_TYPE_P (t2)
4701 && ((good_base = DERIVED_FROM_P (t2, t1)) || DERIVED_FROM_P (t1, t2)))
4703 if (good_base && at_least_as_qualified_p (t2, t1))
4705 conv = build_identity_conv (t1, e1);
4706 if (!same_type_p (TYPE_MAIN_VARIANT (t1),
4707 TYPE_MAIN_VARIANT (t2)))
4708 conv = build_conv (ck_base, t2, conv);
4709 else
4710 conv = build_conv (ck_rvalue, t2, conv);
4711 return conv;
4713 else
4714 return NULL;
4716 else
4717 /* [expr.cond]
4719 Otherwise: E1 can be converted to match E2 if E1 can be implicitly
4720 converted to the type that expression E2 would have if E2 were
4721 converted to an rvalue (or the type it has, if E2 is an rvalue). */
4722 return implicit_conversion (t2, t1, e1, /*c_cast_p=*/false,
4723 LOOKUP_IMPLICIT, complain);
4726 /* Implement [expr.cond]. ARG1, ARG2, and ARG3 are the three
4727 arguments to the conditional expression. */
4729 static tree
4730 build_conditional_expr_1 (location_t loc, tree arg1, tree arg2, tree arg3,
4731 tsubst_flags_t complain)
4733 tree arg2_type;
4734 tree arg3_type;
4735 tree result = NULL_TREE;
4736 tree result_type = NULL_TREE;
4737 bool is_lvalue = true;
4738 struct z_candidate *candidates = 0;
4739 struct z_candidate *cand;
4740 void *p;
4741 tree orig_arg2, orig_arg3;
4743 /* As a G++ extension, the second argument to the conditional can be
4744 omitted. (So that `a ? : c' is roughly equivalent to `a ? a :
4745 c'.) If the second operand is omitted, make sure it is
4746 calculated only once. */
4747 if (!arg2)
4749 if (complain & tf_error)
4750 pedwarn (loc, OPT_Wpedantic,
4751 "ISO C++ forbids omitting the middle term of a ?: expression");
4753 if ((complain & tf_warning) && !truth_value_p (TREE_CODE (arg1)))
4754 warn_for_omitted_condop (loc, arg1);
4756 /* Make sure that lvalues remain lvalues. See g++.oliva/ext1.C. */
4757 if (lvalue_p (arg1))
4758 arg2 = arg1 = cp_stabilize_reference (arg1);
4759 else
4760 arg2 = arg1 = save_expr (arg1);
4763 /* If something has already gone wrong, just pass that fact up the
4764 tree. */
4765 if (error_operand_p (arg1)
4766 || error_operand_p (arg2)
4767 || error_operand_p (arg3))
4768 return error_mark_node;
4770 orig_arg2 = arg2;
4771 orig_arg3 = arg3;
4773 if (VECTOR_INTEGER_TYPE_P (TREE_TYPE (arg1)))
4775 tree arg1_type = TREE_TYPE (arg1);
4777 /* If arg1 is another cond_expr choosing between -1 and 0,
4778 then we can use its comparison. It may help to avoid
4779 additional comparison, produce more accurate diagnostics
4780 and enables folding. */
4781 if (TREE_CODE (arg1) == VEC_COND_EXPR
4782 && integer_minus_onep (TREE_OPERAND (arg1, 1))
4783 && integer_zerop (TREE_OPERAND (arg1, 2)))
4784 arg1 = TREE_OPERAND (arg1, 0);
4786 arg1 = force_rvalue (arg1, complain);
4787 arg2 = force_rvalue (arg2, complain);
4788 arg3 = force_rvalue (arg3, complain);
4790 /* force_rvalue can return error_mark on valid arguments. */
4791 if (error_operand_p (arg1)
4792 || error_operand_p (arg2)
4793 || error_operand_p (arg3))
4794 return error_mark_node;
4796 arg2_type = TREE_TYPE (arg2);
4797 arg3_type = TREE_TYPE (arg3);
4799 if (!VECTOR_TYPE_P (arg2_type)
4800 && !VECTOR_TYPE_P (arg3_type))
4802 /* Rely on the error messages of the scalar version. */
4803 tree scal = build_conditional_expr_1 (loc, integer_one_node,
4804 orig_arg2, orig_arg3, complain);
4805 if (scal == error_mark_node)
4806 return error_mark_node;
4807 tree stype = TREE_TYPE (scal);
4808 tree ctype = TREE_TYPE (arg1_type);
4809 if (TYPE_SIZE (stype) != TYPE_SIZE (ctype)
4810 || (!INTEGRAL_TYPE_P (stype) && !SCALAR_FLOAT_TYPE_P (stype)))
4812 if (complain & tf_error)
4813 error_at (loc, "inferred scalar type %qT is not an integer or "
4814 "floating point type of the same size as %qT", stype,
4815 COMPARISON_CLASS_P (arg1)
4816 ? TREE_TYPE (TREE_TYPE (TREE_OPERAND (arg1, 0)))
4817 : ctype);
4818 return error_mark_node;
4821 tree vtype = build_opaque_vector_type (stype,
4822 TYPE_VECTOR_SUBPARTS (arg1_type));
4823 /* We could pass complain & tf_warning to unsafe_conversion_p,
4824 but the warnings (like Wsign-conversion) have already been
4825 given by the scalar build_conditional_expr_1. We still check
4826 unsafe_conversion_p to forbid truncating long long -> float. */
4827 if (unsafe_conversion_p (loc, stype, arg2, false))
4829 if (complain & tf_error)
4830 error_at (loc, "conversion of scalar %qT to vector %qT "
4831 "involves truncation", arg2_type, vtype);
4832 return error_mark_node;
4834 if (unsafe_conversion_p (loc, stype, arg3, false))
4836 if (complain & tf_error)
4837 error_at (loc, "conversion of scalar %qT to vector %qT "
4838 "involves truncation", arg3_type, vtype);
4839 return error_mark_node;
4842 arg2 = cp_convert (stype, arg2, complain);
4843 arg2 = save_expr (arg2);
4844 arg2 = build_vector_from_val (vtype, arg2);
4845 arg2_type = vtype;
4846 arg3 = cp_convert (stype, arg3, complain);
4847 arg3 = save_expr (arg3);
4848 arg3 = build_vector_from_val (vtype, arg3);
4849 arg3_type = vtype;
4852 if (VECTOR_TYPE_P (arg2_type) != VECTOR_TYPE_P (arg3_type))
4854 enum stv_conv convert_flag =
4855 scalar_to_vector (loc, VEC_COND_EXPR, arg2, arg3,
4856 complain & tf_error);
4858 switch (convert_flag)
4860 case stv_error:
4861 return error_mark_node;
4862 case stv_firstarg:
4864 arg2 = save_expr (arg2);
4865 arg2 = convert (TREE_TYPE (arg3_type), arg2);
4866 arg2 = build_vector_from_val (arg3_type, arg2);
4867 arg2_type = TREE_TYPE (arg2);
4868 break;
4870 case stv_secondarg:
4872 arg3 = save_expr (arg3);
4873 arg3 = convert (TREE_TYPE (arg2_type), arg3);
4874 arg3 = build_vector_from_val (arg2_type, arg3);
4875 arg3_type = TREE_TYPE (arg3);
4876 break;
4878 default:
4879 break;
4883 if (!same_type_p (arg2_type, arg3_type)
4884 || TYPE_VECTOR_SUBPARTS (arg1_type)
4885 != TYPE_VECTOR_SUBPARTS (arg2_type)
4886 || TYPE_SIZE (arg1_type) != TYPE_SIZE (arg2_type))
4888 if (complain & tf_error)
4889 error_at (loc,
4890 "incompatible vector types in conditional expression: "
4891 "%qT, %qT and %qT", TREE_TYPE (arg1),
4892 TREE_TYPE (orig_arg2), TREE_TYPE (orig_arg3));
4893 return error_mark_node;
4896 if (!COMPARISON_CLASS_P (arg1))
4898 tree cmp_type = build_same_sized_truth_vector_type (arg1_type);
4899 arg1 = build2 (NE_EXPR, cmp_type, arg1, build_zero_cst (arg1_type));
4901 return build3_loc (loc, VEC_COND_EXPR, arg2_type, arg1, arg2, arg3);
4904 /* [expr.cond]
4906 The first expression is implicitly converted to bool (clause
4907 _conv_). */
4908 arg1 = perform_implicit_conversion_flags (boolean_type_node, arg1, complain,
4909 LOOKUP_NORMAL);
4910 if (error_operand_p (arg1))
4911 return error_mark_node;
4913 /* [expr.cond]
4915 If either the second or the third operand has type (possibly
4916 cv-qualified) void, then the lvalue-to-rvalue (_conv.lval_),
4917 array-to-pointer (_conv.array_), and function-to-pointer
4918 (_conv.func_) standard conversions are performed on the second
4919 and third operands. */
4920 arg2_type = unlowered_expr_type (arg2);
4921 arg3_type = unlowered_expr_type (arg3);
4922 if (VOID_TYPE_P (arg2_type) || VOID_TYPE_P (arg3_type))
4924 /* Do the conversions. We don't these for `void' type arguments
4925 since it can't have any effect and since decay_conversion
4926 does not handle that case gracefully. */
4927 if (!VOID_TYPE_P (arg2_type))
4928 arg2 = decay_conversion (arg2, complain);
4929 if (!VOID_TYPE_P (arg3_type))
4930 arg3 = decay_conversion (arg3, complain);
4931 arg2_type = TREE_TYPE (arg2);
4932 arg3_type = TREE_TYPE (arg3);
4934 /* [expr.cond]
4936 One of the following shall hold:
4938 --The second or the third operand (but not both) is a
4939 throw-expression (_except.throw_); the result is of the
4940 type of the other and is an rvalue.
4942 --Both the second and the third operands have type void; the
4943 result is of type void and is an rvalue.
4945 We must avoid calling force_rvalue for expressions of type
4946 "void" because it will complain that their value is being
4947 used. */
4948 if (TREE_CODE (arg2) == THROW_EXPR
4949 && TREE_CODE (arg3) != THROW_EXPR)
4951 if (!VOID_TYPE_P (arg3_type))
4953 arg3 = force_rvalue (arg3, complain);
4954 if (arg3 == error_mark_node)
4955 return error_mark_node;
4957 arg3_type = TREE_TYPE (arg3);
4958 result_type = arg3_type;
4960 else if (TREE_CODE (arg2) != THROW_EXPR
4961 && TREE_CODE (arg3) == THROW_EXPR)
4963 if (!VOID_TYPE_P (arg2_type))
4965 arg2 = force_rvalue (arg2, complain);
4966 if (arg2 == error_mark_node)
4967 return error_mark_node;
4969 arg2_type = TREE_TYPE (arg2);
4970 result_type = arg2_type;
4972 else if (VOID_TYPE_P (arg2_type) && VOID_TYPE_P (arg3_type))
4973 result_type = void_type_node;
4974 else
4976 if (complain & tf_error)
4978 if (VOID_TYPE_P (arg2_type))
4979 error_at (EXPR_LOC_OR_LOC (arg3, loc),
4980 "second operand to the conditional operator "
4981 "is of type %<void%>, but the third operand is "
4982 "neither a throw-expression nor of type %<void%>");
4983 else
4984 error_at (EXPR_LOC_OR_LOC (arg2, loc),
4985 "third operand to the conditional operator "
4986 "is of type %<void%>, but the second operand is "
4987 "neither a throw-expression nor of type %<void%>");
4989 return error_mark_node;
4992 is_lvalue = false;
4993 goto valid_operands;
4995 /* [expr.cond]
4997 Otherwise, if the second and third operand have different types,
4998 and either has (possibly cv-qualified) class type, or if both are
4999 glvalues of the same value category and the same type except for
5000 cv-qualification, an attempt is made to convert each of those operands
5001 to the type of the other. */
5002 else if (!same_type_p (arg2_type, arg3_type)
5003 && (CLASS_TYPE_P (arg2_type) || CLASS_TYPE_P (arg3_type)
5004 || (same_type_ignoring_top_level_qualifiers_p (arg2_type,
5005 arg3_type)
5006 && glvalue_p (arg2) && glvalue_p (arg3)
5007 && lvalue_p (arg2) == lvalue_p (arg3))))
5009 conversion *conv2;
5010 conversion *conv3;
5011 bool converted = false;
5013 /* Get the high-water mark for the CONVERSION_OBSTACK. */
5014 p = conversion_obstack_alloc (0);
5016 conv2 = conditional_conversion (arg2, arg3, complain);
5017 conv3 = conditional_conversion (arg3, arg2, complain);
5019 /* [expr.cond]
5021 If both can be converted, or one can be converted but the
5022 conversion is ambiguous, the program is ill-formed. If
5023 neither can be converted, the operands are left unchanged and
5024 further checking is performed as described below. If exactly
5025 one conversion is possible, that conversion is applied to the
5026 chosen operand and the converted operand is used in place of
5027 the original operand for the remainder of this section. */
5028 if ((conv2 && !conv2->bad_p
5029 && conv3 && !conv3->bad_p)
5030 || (conv2 && conv2->kind == ck_ambig)
5031 || (conv3 && conv3->kind == ck_ambig))
5033 if (complain & tf_error)
5035 error_at (loc, "operands to ?: have different types %qT and %qT",
5036 arg2_type, arg3_type);
5037 if (conv2 && !conv2->bad_p && conv3 && !conv3->bad_p)
5038 inform (loc, " and each type can be converted to the other");
5039 else if (conv2 && conv2->kind == ck_ambig)
5040 convert_like (conv2, arg2, complain);
5041 else
5042 convert_like (conv3, arg3, complain);
5044 result = error_mark_node;
5046 else if (conv2 && !conv2->bad_p)
5048 arg2 = convert_like (conv2, arg2, complain);
5049 arg2 = convert_from_reference (arg2);
5050 arg2_type = TREE_TYPE (arg2);
5051 /* Even if CONV2 is a valid conversion, the result of the
5052 conversion may be invalid. For example, if ARG3 has type
5053 "volatile X", and X does not have a copy constructor
5054 accepting a "volatile X&", then even if ARG2 can be
5055 converted to X, the conversion will fail. */
5056 if (error_operand_p (arg2))
5057 result = error_mark_node;
5058 converted = true;
5060 else if (conv3 && !conv3->bad_p)
5062 arg3 = convert_like (conv3, arg3, complain);
5063 arg3 = convert_from_reference (arg3);
5064 arg3_type = TREE_TYPE (arg3);
5065 if (error_operand_p (arg3))
5066 result = error_mark_node;
5067 converted = true;
5070 /* Free all the conversions we allocated. */
5071 obstack_free (&conversion_obstack, p);
5073 if (result)
5074 return result;
5076 /* If, after the conversion, both operands have class type,
5077 treat the cv-qualification of both operands as if it were the
5078 union of the cv-qualification of the operands.
5080 The standard is not clear about what to do in this
5081 circumstance. For example, if the first operand has type
5082 "const X" and the second operand has a user-defined
5083 conversion to "volatile X", what is the type of the second
5084 operand after this step? Making it be "const X" (matching
5085 the first operand) seems wrong, as that discards the
5086 qualification without actually performing a copy. Leaving it
5087 as "volatile X" seems wrong as that will result in the
5088 conditional expression failing altogether, even though,
5089 according to this step, the one operand could be converted to
5090 the type of the other. */
5091 if (converted
5092 && CLASS_TYPE_P (arg2_type)
5093 && cp_type_quals (arg2_type) != cp_type_quals (arg3_type))
5094 arg2_type = arg3_type =
5095 cp_build_qualified_type (arg2_type,
5096 cp_type_quals (arg2_type)
5097 | cp_type_quals (arg3_type));
5100 /* [expr.cond]
5102 If the second and third operands are glvalues of the same value
5103 category and have the same type, the result is of that type and
5104 value category. */
5105 if (((lvalue_p (arg2) && lvalue_p (arg3))
5106 || (xvalue_p (arg2) && xvalue_p (arg3)))
5107 && same_type_p (arg2_type, arg3_type))
5109 result_type = arg2_type;
5110 arg2 = mark_lvalue_use (arg2);
5111 arg3 = mark_lvalue_use (arg3);
5112 goto valid_operands;
5115 /* [expr.cond]
5117 Otherwise, the result is an rvalue. If the second and third
5118 operand do not have the same type, and either has (possibly
5119 cv-qualified) class type, overload resolution is used to
5120 determine the conversions (if any) to be applied to the operands
5121 (_over.match.oper_, _over.built_). */
5122 is_lvalue = false;
5123 if (!same_type_p (arg2_type, arg3_type)
5124 && (CLASS_TYPE_P (arg2_type) || CLASS_TYPE_P (arg3_type)))
5126 tree args[3];
5127 conversion *conv;
5128 bool any_viable_p;
5130 /* Rearrange the arguments so that add_builtin_candidate only has
5131 to know about two args. In build_builtin_candidate, the
5132 arguments are unscrambled. */
5133 args[0] = arg2;
5134 args[1] = arg3;
5135 args[2] = arg1;
5136 add_builtin_candidates (&candidates,
5137 COND_EXPR,
5138 NOP_EXPR,
5139 cp_operator_id (COND_EXPR),
5140 args,
5141 LOOKUP_NORMAL, complain);
5143 /* [expr.cond]
5145 If the overload resolution fails, the program is
5146 ill-formed. */
5147 candidates = splice_viable (candidates, false, &any_viable_p);
5148 if (!any_viable_p)
5150 if (complain & tf_error)
5151 error_at (loc, "operands to ?: have different types %qT and %qT",
5152 arg2_type, arg3_type);
5153 return error_mark_node;
5155 cand = tourney (candidates, complain);
5156 if (!cand)
5158 if (complain & tf_error)
5160 op_error (loc, COND_EXPR, NOP_EXPR, arg1, arg2, arg3, FALSE);
5161 print_z_candidates (loc, candidates);
5163 return error_mark_node;
5166 /* [expr.cond]
5168 Otherwise, the conversions thus determined are applied, and
5169 the converted operands are used in place of the original
5170 operands for the remainder of this section. */
5171 conv = cand->convs[0];
5172 arg1 = convert_like (conv, arg1, complain);
5173 conv = cand->convs[1];
5174 arg2 = convert_like (conv, arg2, complain);
5175 arg2_type = TREE_TYPE (arg2);
5176 conv = cand->convs[2];
5177 arg3 = convert_like (conv, arg3, complain);
5178 arg3_type = TREE_TYPE (arg3);
5181 /* [expr.cond]
5183 Lvalue-to-rvalue (_conv.lval_), array-to-pointer (_conv.array_),
5184 and function-to-pointer (_conv.func_) standard conversions are
5185 performed on the second and third operands.
5187 We need to force the lvalue-to-rvalue conversion here for class types,
5188 so we get TARGET_EXPRs; trying to deal with a COND_EXPR of class rvalues
5189 that isn't wrapped with a TARGET_EXPR plays havoc with exception
5190 regions. */
5192 arg2 = force_rvalue (arg2, complain);
5193 if (!CLASS_TYPE_P (arg2_type))
5194 arg2_type = TREE_TYPE (arg2);
5196 arg3 = force_rvalue (arg3, complain);
5197 if (!CLASS_TYPE_P (arg3_type))
5198 arg3_type = TREE_TYPE (arg3);
5200 if (arg2 == error_mark_node || arg3 == error_mark_node)
5201 return error_mark_node;
5203 /* [expr.cond]
5205 After those conversions, one of the following shall hold:
5207 --The second and third operands have the same type; the result is of
5208 that type. */
5209 if (same_type_p (arg2_type, arg3_type))
5210 result_type = arg2_type;
5211 /* [expr.cond]
5213 --The second and third operands have arithmetic or enumeration
5214 type; the usual arithmetic conversions are performed to bring
5215 them to a common type, and the result is of that type. */
5216 else if ((ARITHMETIC_TYPE_P (arg2_type)
5217 || UNSCOPED_ENUM_P (arg2_type))
5218 && (ARITHMETIC_TYPE_P (arg3_type)
5219 || UNSCOPED_ENUM_P (arg3_type)))
5221 /* In this case, there is always a common type. */
5222 result_type = type_after_usual_arithmetic_conversions (arg2_type,
5223 arg3_type);
5224 if (complain & tf_warning)
5225 do_warn_double_promotion (result_type, arg2_type, arg3_type,
5226 "implicit conversion from %qT to %qT to "
5227 "match other result of conditional",
5228 loc);
5230 if (TREE_CODE (arg2_type) == ENUMERAL_TYPE
5231 && TREE_CODE (arg3_type) == ENUMERAL_TYPE)
5233 if (TREE_CODE (orig_arg2) == CONST_DECL
5234 && TREE_CODE (orig_arg3) == CONST_DECL
5235 && DECL_CONTEXT (orig_arg2) == DECL_CONTEXT (orig_arg3))
5236 /* Two enumerators from the same enumeration can have different
5237 types when the enumeration is still being defined. */;
5238 else if (complain & tf_warning)
5239 warning_at (loc, OPT_Wenum_compare, "enumeral mismatch in "
5240 "conditional expression: %qT vs %qT",
5241 arg2_type, arg3_type);
5243 else if (extra_warnings
5244 && ((TREE_CODE (arg2_type) == ENUMERAL_TYPE
5245 && !same_type_p (arg3_type, type_promotes_to (arg2_type)))
5246 || (TREE_CODE (arg3_type) == ENUMERAL_TYPE
5247 && !same_type_p (arg2_type,
5248 type_promotes_to (arg3_type)))))
5250 if (complain & tf_warning)
5251 warning_at (loc, OPT_Wextra, "enumeral and non-enumeral type in "
5252 "conditional expression");
5255 arg2 = perform_implicit_conversion (result_type, arg2, complain);
5256 arg3 = perform_implicit_conversion (result_type, arg3, complain);
5258 /* [expr.cond]
5260 --The second and third operands have pointer type, or one has
5261 pointer type and the other is a null pointer constant; pointer
5262 conversions (_conv.ptr_) and qualification conversions
5263 (_conv.qual_) are performed to bring them to their composite
5264 pointer type (_expr.rel_). The result is of the composite
5265 pointer type.
5267 --The second and third operands have pointer to member type, or
5268 one has pointer to member type and the other is a null pointer
5269 constant; pointer to member conversions (_conv.mem_) and
5270 qualification conversions (_conv.qual_) are performed to bring
5271 them to a common type, whose cv-qualification shall match the
5272 cv-qualification of either the second or the third operand.
5273 The result is of the common type. */
5274 else if ((null_ptr_cst_p (arg2)
5275 && TYPE_PTR_OR_PTRMEM_P (arg3_type))
5276 || (null_ptr_cst_p (arg3)
5277 && TYPE_PTR_OR_PTRMEM_P (arg2_type))
5278 || (TYPE_PTR_P (arg2_type) && TYPE_PTR_P (arg3_type))
5279 || (TYPE_PTRDATAMEM_P (arg2_type) && TYPE_PTRDATAMEM_P (arg3_type))
5280 || (TYPE_PTRMEMFUNC_P (arg2_type) && TYPE_PTRMEMFUNC_P (arg3_type)))
5282 result_type = composite_pointer_type (arg2_type, arg3_type, arg2,
5283 arg3, CPO_CONDITIONAL_EXPR,
5284 complain);
5285 if (result_type == error_mark_node)
5286 return error_mark_node;
5287 arg2 = perform_implicit_conversion (result_type, arg2, complain);
5288 arg3 = perform_implicit_conversion (result_type, arg3, complain);
5291 if (!result_type)
5293 if (complain & tf_error)
5294 error_at (loc, "operands to ?: have different types %qT and %qT",
5295 arg2_type, arg3_type);
5296 return error_mark_node;
5299 if (arg2 == error_mark_node || arg3 == error_mark_node)
5300 return error_mark_node;
5302 valid_operands:
5303 result = build3_loc (loc, COND_EXPR, result_type, arg1, arg2, arg3);
5305 /* If the ARG2 and ARG3 are the same and don't have side-effects,
5306 warn here, because the COND_EXPR will be turned into ARG2. */
5307 if (warn_duplicated_branches
5308 && (arg2 == arg3 || operand_equal_p (arg2, arg3, 0)))
5309 warning_at (EXPR_LOCATION (result), OPT_Wduplicated_branches,
5310 "this condition has identical branches");
5312 /* We can't use result_type below, as fold might have returned a
5313 throw_expr. */
5315 if (!is_lvalue)
5317 /* Expand both sides into the same slot, hopefully the target of
5318 the ?: expression. We used to check for TARGET_EXPRs here,
5319 but now we sometimes wrap them in NOP_EXPRs so the test would
5320 fail. */
5321 if (CLASS_TYPE_P (TREE_TYPE (result)))
5322 result = get_target_expr_sfinae (result, complain);
5323 /* If this expression is an rvalue, but might be mistaken for an
5324 lvalue, we must add a NON_LVALUE_EXPR. */
5325 result = rvalue (result);
5327 else
5328 result = force_paren_expr (result);
5330 return result;
5333 /* Wrapper for above. */
5335 tree
5336 build_conditional_expr (location_t loc, tree arg1, tree arg2, tree arg3,
5337 tsubst_flags_t complain)
5339 tree ret;
5340 bool subtime = timevar_cond_start (TV_OVERLOAD);
5341 ret = build_conditional_expr_1 (loc, arg1, arg2, arg3, complain);
5342 timevar_cond_stop (TV_OVERLOAD, subtime);
5343 return ret;
5346 /* OPERAND is an operand to an expression. Perform necessary steps
5347 required before using it. If OPERAND is NULL_TREE, NULL_TREE is
5348 returned. */
5350 static tree
5351 prep_operand (tree operand)
5353 if (operand)
5355 if (CLASS_TYPE_P (TREE_TYPE (operand))
5356 && CLASSTYPE_TEMPLATE_INSTANTIATION (TREE_TYPE (operand)))
5357 /* Make sure the template type is instantiated now. */
5358 instantiate_class_template (TYPE_MAIN_VARIANT (TREE_TYPE (operand)));
5361 return operand;
5364 /* Add each of the viable functions in FNS (a FUNCTION_DECL or
5365 OVERLOAD) to the CANDIDATES, returning an updated list of
5366 CANDIDATES. The ARGS are the arguments provided to the call;
5367 if FIRST_ARG is non-null it is the implicit object argument,
5368 otherwise the first element of ARGS is used if needed. The
5369 EXPLICIT_TARGS are explicit template arguments provided.
5370 TEMPLATE_ONLY is true if only template functions should be
5371 considered. CONVERSION_PATH, ACCESS_PATH, and FLAGS are as for
5372 add_function_candidate. */
5374 static void
5375 add_candidates (tree fns, tree first_arg, const vec<tree, va_gc> *args,
5376 tree return_type,
5377 tree explicit_targs, bool template_only,
5378 tree conversion_path, tree access_path,
5379 int flags,
5380 struct z_candidate **candidates,
5381 tsubst_flags_t complain)
5383 tree ctype;
5384 const vec<tree, va_gc> *non_static_args;
5385 bool check_list_ctor;
5386 bool check_converting;
5387 unification_kind_t strict;
5388 tree fn;
5390 if (!fns)
5391 return;
5393 /* Precalculate special handling of constructors and conversion ops. */
5394 fn = OVL_CURRENT (fns);
5395 if (DECL_CONV_FN_P (fn))
5397 check_list_ctor = false;
5398 check_converting = !!(flags & LOOKUP_ONLYCONVERTING);
5399 if (flags & LOOKUP_NO_CONVERSION)
5400 /* We're doing return_type(x). */
5401 strict = DEDUCE_CONV;
5402 else
5403 /* We're doing x.operator return_type(). */
5404 strict = DEDUCE_EXACT;
5405 /* [over.match.funcs] For conversion functions, the function
5406 is considered to be a member of the class of the implicit
5407 object argument for the purpose of defining the type of
5408 the implicit object parameter. */
5409 ctype = TYPE_MAIN_VARIANT (TREE_TYPE (first_arg));
5411 else
5413 if (DECL_CONSTRUCTOR_P (fn))
5415 check_list_ctor = !!(flags & LOOKUP_LIST_ONLY);
5416 /* For list-initialization we consider explicit constructors
5417 and complain if one is chosen. */
5418 check_converting
5419 = ((flags & (LOOKUP_ONLYCONVERTING|LOOKUP_LIST_INIT_CTOR))
5420 == LOOKUP_ONLYCONVERTING);
5422 else
5424 check_list_ctor = false;
5425 check_converting = false;
5427 strict = DEDUCE_CALL;
5428 ctype = conversion_path ? BINFO_TYPE (conversion_path) : NULL_TREE;
5431 if (first_arg)
5432 non_static_args = args;
5433 else
5434 /* Delay creating the implicit this parameter until it is needed. */
5435 non_static_args = NULL;
5437 for (; fns; fns = OVL_NEXT (fns))
5439 tree fn_first_arg;
5440 const vec<tree, va_gc> *fn_args;
5442 fn = OVL_CURRENT (fns);
5444 if (check_converting && DECL_NONCONVERTING_P (fn))
5445 continue;
5446 if (check_list_ctor && !is_list_ctor (fn))
5447 continue;
5449 /* Figure out which set of arguments to use. */
5450 if (DECL_NONSTATIC_MEMBER_FUNCTION_P (fn))
5452 /* If this function is a non-static member and we didn't get an
5453 implicit object argument, move it out of args. */
5454 if (first_arg == NULL_TREE)
5456 unsigned int ix;
5457 tree arg;
5458 vec<tree, va_gc> *tempvec;
5459 vec_alloc (tempvec, args->length () - 1);
5460 for (ix = 1; args->iterate (ix, &arg); ++ix)
5461 tempvec->quick_push (arg);
5462 non_static_args = tempvec;
5463 first_arg = (*args)[0];
5466 fn_first_arg = first_arg;
5467 fn_args = non_static_args;
5469 else
5471 /* Otherwise, just use the list of arguments provided. */
5472 fn_first_arg = NULL_TREE;
5473 fn_args = args;
5476 if (TREE_CODE (fn) == TEMPLATE_DECL)
5477 add_template_candidate (candidates,
5479 ctype,
5480 explicit_targs,
5481 fn_first_arg,
5482 fn_args,
5483 return_type,
5484 access_path,
5485 conversion_path,
5486 flags,
5487 strict,
5488 complain);
5489 else if (!template_only)
5490 add_function_candidate (candidates,
5492 ctype,
5493 fn_first_arg,
5494 fn_args,
5495 access_path,
5496 conversion_path,
5497 flags,
5498 complain);
5502 /* Returns 1 if P0145R2 says that the LHS of operator CODE is evaluated first,
5503 -1 if the RHS is evaluated first, or 0 if the order is unspecified. */
5505 static int
5506 op_is_ordered (tree_code code)
5508 switch (code)
5510 // 5. b @= a
5511 case MODIFY_EXPR:
5512 return (flag_strong_eval_order > 1 ? -1 : 0);
5514 // 6. a[b]
5515 case ARRAY_REF:
5516 return (flag_strong_eval_order > 1 ? 1 : 0);
5518 // 1. a.b
5519 // Not overloadable (yet).
5520 // 2. a->b
5521 // Only one argument.
5522 // 3. a->*b
5523 case MEMBER_REF:
5524 // 7. a << b
5525 case LSHIFT_EXPR:
5526 // 8. a >> b
5527 case RSHIFT_EXPR:
5528 return (flag_strong_eval_order ? 1 : 0);
5530 default:
5531 return 0;
5535 static tree
5536 build_new_op_1 (location_t loc, enum tree_code code, int flags, tree arg1,
5537 tree arg2, tree arg3, tree *overload, tsubst_flags_t complain)
5539 struct z_candidate *candidates = 0, *cand;
5540 vec<tree, va_gc> *arglist;
5541 tree fnname;
5542 tree args[3];
5543 tree result = NULL_TREE;
5544 bool result_valid_p = false;
5545 enum tree_code code2 = NOP_EXPR;
5546 enum tree_code code_orig_arg1 = ERROR_MARK;
5547 enum tree_code code_orig_arg2 = ERROR_MARK;
5548 conversion *conv;
5549 void *p;
5550 bool strict_p;
5551 bool any_viable_p;
5553 if (error_operand_p (arg1)
5554 || error_operand_p (arg2)
5555 || error_operand_p (arg3))
5556 return error_mark_node;
5558 if (code == MODIFY_EXPR)
5560 code2 = TREE_CODE (arg3);
5561 arg3 = NULL_TREE;
5562 fnname = cp_assignment_operator_id (code2);
5564 else
5565 fnname = cp_operator_id (code);
5567 arg1 = prep_operand (arg1);
5569 bool memonly = false;
5570 switch (code)
5572 case NEW_EXPR:
5573 case VEC_NEW_EXPR:
5574 case VEC_DELETE_EXPR:
5575 case DELETE_EXPR:
5576 /* Use build_op_new_call and build_op_delete_call instead. */
5577 gcc_unreachable ();
5579 case CALL_EXPR:
5580 /* Use build_op_call instead. */
5581 gcc_unreachable ();
5583 case TRUTH_ORIF_EXPR:
5584 case TRUTH_ANDIF_EXPR:
5585 case TRUTH_AND_EXPR:
5586 case TRUTH_OR_EXPR:
5587 /* These are saved for the sake of warn_logical_operator. */
5588 code_orig_arg1 = TREE_CODE (arg1);
5589 code_orig_arg2 = TREE_CODE (arg2);
5590 break;
5591 case GT_EXPR:
5592 case LT_EXPR:
5593 case GE_EXPR:
5594 case LE_EXPR:
5595 case EQ_EXPR:
5596 case NE_EXPR:
5597 /* These are saved for the sake of maybe_warn_bool_compare. */
5598 code_orig_arg1 = TREE_CODE (TREE_TYPE (arg1));
5599 code_orig_arg2 = TREE_CODE (TREE_TYPE (arg2));
5600 break;
5602 /* =, ->, [], () must be non-static member functions. */
5603 case MODIFY_EXPR:
5604 if (code2 != NOP_EXPR)
5605 break;
5606 /* FALLTHRU */
5607 case COMPONENT_REF:
5608 case ARRAY_REF:
5609 memonly = true;
5610 break;
5612 default:
5613 break;
5616 arg2 = prep_operand (arg2);
5617 arg3 = prep_operand (arg3);
5619 if (code == COND_EXPR)
5620 /* Use build_conditional_expr instead. */
5621 gcc_unreachable ();
5622 else if (! OVERLOAD_TYPE_P (TREE_TYPE (arg1))
5623 && (! arg2 || ! OVERLOAD_TYPE_P (TREE_TYPE (arg2))))
5624 goto builtin;
5626 if (code == POSTINCREMENT_EXPR || code == POSTDECREMENT_EXPR)
5627 arg2 = integer_zero_node;
5629 vec_alloc (arglist, 3);
5630 arglist->quick_push (arg1);
5631 if (arg2 != NULL_TREE)
5632 arglist->quick_push (arg2);
5633 if (arg3 != NULL_TREE)
5634 arglist->quick_push (arg3);
5636 /* Get the high-water mark for the CONVERSION_OBSTACK. */
5637 p = conversion_obstack_alloc (0);
5639 /* Add namespace-scope operators to the list of functions to
5640 consider. */
5641 if (!memonly)
5642 add_candidates (lookup_function_nonclass (fnname, arglist,
5643 /*block_p=*/true),
5644 NULL_TREE, arglist, NULL_TREE,
5645 NULL_TREE, false, NULL_TREE, NULL_TREE,
5646 flags, &candidates, complain);
5648 args[0] = arg1;
5649 args[1] = arg2;
5650 args[2] = NULL_TREE;
5652 /* Add class-member operators to the candidate set. */
5653 if (CLASS_TYPE_P (TREE_TYPE (arg1)))
5655 tree fns;
5657 fns = lookup_fnfields (TREE_TYPE (arg1), fnname, 1);
5658 if (fns == error_mark_node)
5660 result = error_mark_node;
5661 goto user_defined_result_ready;
5663 if (fns)
5664 add_candidates (BASELINK_FUNCTIONS (fns),
5665 NULL_TREE, arglist, NULL_TREE,
5666 NULL_TREE, false,
5667 BASELINK_BINFO (fns),
5668 BASELINK_ACCESS_BINFO (fns),
5669 flags, &candidates, complain);
5671 /* Per 13.3.1.2/3, 2nd bullet, if no operand has a class type, then
5672 only non-member functions that have type T1 or reference to
5673 cv-qualified-opt T1 for the first argument, if the first argument
5674 has an enumeration type, or T2 or reference to cv-qualified-opt
5675 T2 for the second argument, if the second argument has an
5676 enumeration type. Filter out those that don't match. */
5677 else if (! arg2 || ! CLASS_TYPE_P (TREE_TYPE (arg2)))
5679 struct z_candidate **candp, **next;
5681 for (candp = &candidates; *candp; candp = next)
5683 tree parmlist, parmtype;
5684 int i, nargs = (arg2 ? 2 : 1);
5686 cand = *candp;
5687 next = &cand->next;
5689 parmlist = TYPE_ARG_TYPES (TREE_TYPE (cand->fn));
5691 for (i = 0; i < nargs; ++i)
5693 parmtype = TREE_VALUE (parmlist);
5695 if (TREE_CODE (parmtype) == REFERENCE_TYPE)
5696 parmtype = TREE_TYPE (parmtype);
5697 if (TREE_CODE (TREE_TYPE (args[i])) == ENUMERAL_TYPE
5698 && (same_type_ignoring_top_level_qualifiers_p
5699 (TREE_TYPE (args[i]), parmtype)))
5700 break;
5702 parmlist = TREE_CHAIN (parmlist);
5705 /* No argument has an appropriate type, so remove this
5706 candidate function from the list. */
5707 if (i == nargs)
5709 *candp = cand->next;
5710 next = candp;
5715 add_builtin_candidates (&candidates, code, code2, fnname, args,
5716 flags, complain);
5718 switch (code)
5720 case COMPOUND_EXPR:
5721 case ADDR_EXPR:
5722 /* For these, the built-in candidates set is empty
5723 [over.match.oper]/3. We don't want non-strict matches
5724 because exact matches are always possible with built-in
5725 operators. The built-in candidate set for COMPONENT_REF
5726 would be empty too, but since there are no such built-in
5727 operators, we accept non-strict matches for them. */
5728 strict_p = true;
5729 break;
5731 default:
5732 strict_p = false;
5733 break;
5736 candidates = splice_viable (candidates, strict_p, &any_viable_p);
5737 if (!any_viable_p)
5739 switch (code)
5741 case POSTINCREMENT_EXPR:
5742 case POSTDECREMENT_EXPR:
5743 /* Don't try anything fancy if we're not allowed to produce
5744 errors. */
5745 if (!(complain & tf_error))
5746 return error_mark_node;
5748 /* Look for an `operator++ (int)'. Pre-1985 C++ didn't
5749 distinguish between prefix and postfix ++ and
5750 operator++() was used for both, so we allow this with
5751 -fpermissive. */
5752 else
5754 const char *msg = (flag_permissive)
5755 ? G_("no %<%D(int)%> declared for postfix %qs,"
5756 " trying prefix operator instead")
5757 : G_("no %<%D(int)%> declared for postfix %qs");
5758 permerror (loc, msg, fnname, operator_name_info[code].name);
5761 if (!flag_permissive)
5762 return error_mark_node;
5764 if (code == POSTINCREMENT_EXPR)
5765 code = PREINCREMENT_EXPR;
5766 else
5767 code = PREDECREMENT_EXPR;
5768 result = build_new_op_1 (loc, code, flags, arg1, NULL_TREE,
5769 NULL_TREE, overload, complain);
5770 break;
5772 /* The caller will deal with these. */
5773 case ADDR_EXPR:
5774 case COMPOUND_EXPR:
5775 case COMPONENT_REF:
5776 result = NULL_TREE;
5777 result_valid_p = true;
5778 break;
5780 default:
5781 if (complain & tf_error)
5783 /* If one of the arguments of the operator represents
5784 an invalid use of member function pointer, try to report
5785 a meaningful error ... */
5786 if (invalid_nonstatic_memfn_p (loc, arg1, tf_error)
5787 || invalid_nonstatic_memfn_p (loc, arg2, tf_error)
5788 || invalid_nonstatic_memfn_p (loc, arg3, tf_error))
5789 /* We displayed the error message. */;
5790 else
5792 /* ... Otherwise, report the more generic
5793 "no matching operator found" error */
5794 op_error (loc, code, code2, arg1, arg2, arg3, FALSE);
5795 print_z_candidates (loc, candidates);
5798 result = error_mark_node;
5799 break;
5802 else
5804 cand = tourney (candidates, complain);
5805 if (cand == 0)
5807 if (complain & tf_error)
5809 op_error (loc, code, code2, arg1, arg2, arg3, TRUE);
5810 print_z_candidates (loc, candidates);
5812 result = error_mark_node;
5814 else if (TREE_CODE (cand->fn) == FUNCTION_DECL)
5816 if (overload)
5817 *overload = cand->fn;
5819 if (resolve_args (arglist, complain) == NULL)
5820 result = error_mark_node;
5821 else
5822 result = build_over_call (cand, LOOKUP_NORMAL, complain);
5824 if (trivial_fn_p (cand->fn))
5825 /* There won't be a CALL_EXPR. */;
5826 else if (result && result != error_mark_node)
5828 tree call = extract_call_expr (result);
5829 CALL_EXPR_OPERATOR_SYNTAX (call) = true;
5831 if (processing_template_decl && DECL_HIDDEN_FRIEND_P (cand->fn))
5832 /* This prevents build_new_function_call from discarding this
5833 function during instantiation of the enclosing template. */
5834 KOENIG_LOOKUP_P (call) = 1;
5836 /* Specify evaluation order as per P0145R2. */
5837 CALL_EXPR_ORDERED_ARGS (call) = false;
5838 switch (op_is_ordered (code))
5840 case -1:
5841 CALL_EXPR_REVERSE_ARGS (call) = true;
5842 break;
5844 case 1:
5845 CALL_EXPR_ORDERED_ARGS (call) = true;
5846 break;
5848 default:
5849 break;
5853 else
5855 /* Give any warnings we noticed during overload resolution. */
5856 if (cand->warnings && (complain & tf_warning))
5858 struct candidate_warning *w;
5859 for (w = cand->warnings; w; w = w->next)
5860 joust (cand, w->loser, 1, complain);
5863 /* Check for comparison of different enum types. */
5864 switch (code)
5866 case GT_EXPR:
5867 case LT_EXPR:
5868 case GE_EXPR:
5869 case LE_EXPR:
5870 case EQ_EXPR:
5871 case NE_EXPR:
5872 if (TREE_CODE (TREE_TYPE (arg1)) == ENUMERAL_TYPE
5873 && TREE_CODE (TREE_TYPE (arg2)) == ENUMERAL_TYPE
5874 && (TYPE_MAIN_VARIANT (TREE_TYPE (arg1))
5875 != TYPE_MAIN_VARIANT (TREE_TYPE (arg2)))
5876 && (complain & tf_warning))
5878 warning (OPT_Wenum_compare,
5879 "comparison between %q#T and %q#T",
5880 TREE_TYPE (arg1), TREE_TYPE (arg2));
5882 break;
5883 default:
5884 break;
5887 /* We need to strip any leading REF_BIND so that bitfields
5888 don't cause errors. This should not remove any important
5889 conversions, because builtins don't apply to class
5890 objects directly. */
5891 conv = cand->convs[0];
5892 if (conv->kind == ck_ref_bind)
5893 conv = next_conversion (conv);
5894 arg1 = convert_like (conv, arg1, complain);
5896 if (arg2)
5898 conv = cand->convs[1];
5899 if (conv->kind == ck_ref_bind)
5900 conv = next_conversion (conv);
5901 else
5902 arg2 = decay_conversion (arg2, complain);
5904 /* We need to call warn_logical_operator before
5905 converting arg2 to a boolean_type, but after
5906 decaying an enumerator to its value. */
5907 if (complain & tf_warning)
5908 warn_logical_operator (loc, code, boolean_type_node,
5909 code_orig_arg1, arg1,
5910 code_orig_arg2, arg2);
5912 arg2 = convert_like (conv, arg2, complain);
5914 if (arg3)
5916 conv = cand->convs[2];
5917 if (conv->kind == ck_ref_bind)
5918 conv = next_conversion (conv);
5919 arg3 = convert_like (conv, arg3, complain);
5925 user_defined_result_ready:
5927 /* Free all the conversions we allocated. */
5928 obstack_free (&conversion_obstack, p);
5930 if (result || result_valid_p)
5931 return result;
5933 builtin:
5934 switch (code)
5936 case MODIFY_EXPR:
5937 return cp_build_modify_expr (loc, arg1, code2, arg2, complain);
5939 case INDIRECT_REF:
5940 return cp_build_indirect_ref (arg1, RO_UNARY_STAR, complain);
5942 case TRUTH_ANDIF_EXPR:
5943 case TRUTH_ORIF_EXPR:
5944 case TRUTH_AND_EXPR:
5945 case TRUTH_OR_EXPR:
5946 if (complain & tf_warning)
5947 warn_logical_operator (loc, code, boolean_type_node,
5948 code_orig_arg1, arg1,
5949 code_orig_arg2, arg2);
5950 /* Fall through. */
5951 case GT_EXPR:
5952 case LT_EXPR:
5953 case GE_EXPR:
5954 case LE_EXPR:
5955 case EQ_EXPR:
5956 case NE_EXPR:
5957 if ((complain & tf_warning)
5958 && ((code_orig_arg1 == BOOLEAN_TYPE)
5959 ^ (code_orig_arg2 == BOOLEAN_TYPE)))
5960 maybe_warn_bool_compare (loc, code, arg1, arg2);
5961 if (complain & tf_warning && warn_tautological_compare)
5962 warn_tautological_cmp (loc, code, arg1, arg2);
5963 /* Fall through. */
5964 case PLUS_EXPR:
5965 case MINUS_EXPR:
5966 case MULT_EXPR:
5967 case TRUNC_DIV_EXPR:
5968 case MAX_EXPR:
5969 case MIN_EXPR:
5970 case LSHIFT_EXPR:
5971 case RSHIFT_EXPR:
5972 case TRUNC_MOD_EXPR:
5973 case BIT_AND_EXPR:
5974 case BIT_IOR_EXPR:
5975 case BIT_XOR_EXPR:
5976 return cp_build_binary_op (loc, code, arg1, arg2, complain);
5978 case UNARY_PLUS_EXPR:
5979 case NEGATE_EXPR:
5980 case BIT_NOT_EXPR:
5981 case TRUTH_NOT_EXPR:
5982 case PREINCREMENT_EXPR:
5983 case POSTINCREMENT_EXPR:
5984 case PREDECREMENT_EXPR:
5985 case POSTDECREMENT_EXPR:
5986 case REALPART_EXPR:
5987 case IMAGPART_EXPR:
5988 case ABS_EXPR:
5989 return cp_build_unary_op (code, arg1, candidates != 0, complain);
5991 case ARRAY_REF:
5992 return cp_build_array_ref (input_location, arg1, arg2, complain);
5994 case MEMBER_REF:
5995 return build_m_component_ref (cp_build_indirect_ref (arg1, RO_ARROW_STAR,
5996 complain),
5997 arg2, complain);
5999 /* The caller will deal with these. */
6000 case ADDR_EXPR:
6001 case COMPONENT_REF:
6002 case COMPOUND_EXPR:
6003 return NULL_TREE;
6005 default:
6006 gcc_unreachable ();
6008 return NULL_TREE;
6011 /* Wrapper for above. */
6013 tree
6014 build_new_op (location_t loc, enum tree_code code, int flags,
6015 tree arg1, tree arg2, tree arg3,
6016 tree *overload, tsubst_flags_t complain)
6018 tree ret;
6019 bool subtime = timevar_cond_start (TV_OVERLOAD);
6020 ret = build_new_op_1 (loc, code, flags, arg1, arg2, arg3,
6021 overload, complain);
6022 timevar_cond_stop (TV_OVERLOAD, subtime);
6023 return ret;
6026 /* CALL was returned by some call-building function; extract the actual
6027 CALL_EXPR from any bits that have been tacked on, e.g. by
6028 convert_from_reference. */
6030 tree
6031 extract_call_expr (tree call)
6033 while (TREE_CODE (call) == COMPOUND_EXPR)
6034 call = TREE_OPERAND (call, 1);
6035 if (REFERENCE_REF_P (call))
6036 call = TREE_OPERAND (call, 0);
6037 if (TREE_CODE (call) == TARGET_EXPR)
6038 call = TARGET_EXPR_INITIAL (call);
6039 gcc_assert (TREE_CODE (call) == CALL_EXPR
6040 || TREE_CODE (call) == AGGR_INIT_EXPR
6041 || call == error_mark_node);
6042 return call;
6045 /* Returns true if FN has two parameters, of which the second has type
6046 size_t. */
6048 static bool
6049 second_parm_is_size_t (tree fn)
6051 tree t = FUNCTION_ARG_CHAIN (fn);
6052 if (!t || !same_type_p (TREE_VALUE (t), size_type_node))
6053 return false;
6054 t = TREE_CHAIN (t);
6055 if (t == void_list_node)
6056 return true;
6057 if (aligned_new_threshold && t
6058 && same_type_p (TREE_VALUE (t), align_type_node)
6059 && TREE_CHAIN (t) == void_list_node)
6060 return true;
6061 return false;
6064 /* True if T, an allocation function, has std::align_val_t as its second
6065 argument. */
6067 bool
6068 aligned_allocation_fn_p (tree t)
6070 if (!aligned_new_threshold)
6071 return false;
6073 tree a = FUNCTION_ARG_CHAIN (t);
6074 return (a && same_type_p (TREE_VALUE (a), align_type_node));
6077 /* Returns true iff T, an element of an OVERLOAD chain, is a usual deallocation
6078 function (3.7.4.2 [basic.stc.dynamic.deallocation]) with a parameter of
6079 std::align_val_t. */
6081 static bool
6082 aligned_deallocation_fn_p (tree t)
6084 if (!aligned_new_threshold)
6085 return false;
6087 /* A template instance is never a usual deallocation function,
6088 regardless of its signature. */
6089 if (TREE_CODE (t) == TEMPLATE_DECL
6090 || primary_template_instantiation_p (t))
6091 return false;
6093 tree a = FUNCTION_ARG_CHAIN (t);
6094 if (same_type_p (TREE_VALUE (a), align_type_node)
6095 && TREE_CHAIN (a) == void_list_node)
6096 return true;
6097 if (!same_type_p (TREE_VALUE (a), size_type_node))
6098 return false;
6099 a = TREE_CHAIN (a);
6100 if (a && same_type_p (TREE_VALUE (a), align_type_node)
6101 && TREE_CHAIN (a) == void_list_node)
6102 return true;
6103 return false;
6106 /* Returns true iff T, an element of an OVERLOAD chain, is a usual
6107 deallocation function (3.7.4.2 [basic.stc.dynamic.deallocation]). */
6109 bool
6110 usual_deallocation_fn_p (tree t)
6112 /* A template instance is never a usual deallocation function,
6113 regardless of its signature. */
6114 if (TREE_CODE (t) == TEMPLATE_DECL
6115 || primary_template_instantiation_p (t))
6116 return false;
6118 /* If a class T has a member deallocation function named operator delete
6119 with exactly one parameter, then that function is a usual
6120 (non-placement) deallocation function. If class T does not declare
6121 such an operator delete but does declare a member deallocation
6122 function named operator delete with exactly two parameters, the second
6123 of which has type std::size_t (18.2), then this function is a usual
6124 deallocation function. */
6125 bool global = DECL_NAMESPACE_SCOPE_P (t);
6126 tree chain = FUNCTION_ARG_CHAIN (t);
6127 if (!chain)
6128 return false;
6129 if (chain == void_list_node
6130 || ((!global || flag_sized_deallocation)
6131 && second_parm_is_size_t (t)))
6132 return true;
6133 if (aligned_deallocation_fn_p (t))
6134 return true;
6135 return false;
6138 /* Build a call to operator delete. This has to be handled very specially,
6139 because the restrictions on what signatures match are different from all
6140 other call instances. For a normal delete, only a delete taking (void *)
6141 or (void *, size_t) is accepted. For a placement delete, only an exact
6142 match with the placement new is accepted.
6144 CODE is either DELETE_EXPR or VEC_DELETE_EXPR.
6145 ADDR is the pointer to be deleted.
6146 SIZE is the size of the memory block to be deleted.
6147 GLOBAL_P is true if the delete-expression should not consider
6148 class-specific delete operators.
6149 PLACEMENT is the corresponding placement new call, or NULL_TREE.
6151 If this call to "operator delete" is being generated as part to
6152 deallocate memory allocated via a new-expression (as per [expr.new]
6153 which requires that if the initialization throws an exception then
6154 we call a deallocation function), then ALLOC_FN is the allocation
6155 function. */
6157 tree
6158 build_op_delete_call (enum tree_code code, tree addr, tree size,
6159 bool global_p, tree placement,
6160 tree alloc_fn, tsubst_flags_t complain)
6162 tree fn = NULL_TREE;
6163 tree fns, fnname, type, t;
6165 if (addr == error_mark_node)
6166 return error_mark_node;
6168 type = strip_array_types (TREE_TYPE (TREE_TYPE (addr)));
6170 fnname = cp_operator_id (code);
6172 if (CLASS_TYPE_P (type)
6173 && COMPLETE_TYPE_P (complete_type (type))
6174 && !global_p)
6175 /* In [class.free]
6177 If the result of the lookup is ambiguous or inaccessible, or if
6178 the lookup selects a placement deallocation function, the
6179 program is ill-formed.
6181 Therefore, we ask lookup_fnfields to complain about ambiguity. */
6183 fns = lookup_fnfields (TYPE_BINFO (type), fnname, 1);
6184 if (fns == error_mark_node)
6185 return error_mark_node;
6187 else
6188 fns = NULL_TREE;
6190 if (fns == NULL_TREE)
6191 fns = lookup_name_nonclass (fnname);
6193 /* Strip const and volatile from addr. */
6194 addr = cp_convert (ptr_type_node, addr, complain);
6196 if (placement)
6198 /* "A declaration of a placement deallocation function matches the
6199 declaration of a placement allocation function if it has the same
6200 number of parameters and, after parameter transformations (8.3.5),
6201 all parameter types except the first are identical."
6203 So we build up the function type we want and ask instantiate_type
6204 to get it for us. */
6205 t = FUNCTION_ARG_CHAIN (alloc_fn);
6206 t = tree_cons (NULL_TREE, ptr_type_node, t);
6207 t = build_function_type (void_type_node, t);
6209 fn = instantiate_type (t, fns, tf_none);
6210 if (fn == error_mark_node)
6211 return NULL_TREE;
6213 if (BASELINK_P (fn))
6214 fn = BASELINK_FUNCTIONS (fn);
6216 /* "If the lookup finds the two-parameter form of a usual deallocation
6217 function (3.7.4.2) and that function, considered as a placement
6218 deallocation function, would have been selected as a match for the
6219 allocation function, the program is ill-formed." */
6220 if (second_parm_is_size_t (fn))
6222 const char *msg1
6223 = G_("exception cleanup for this placement new selects "
6224 "non-placement operator delete");
6225 const char *msg2
6226 = G_("%qD is a usual (non-placement) deallocation "
6227 "function in C++14 (or with -fsized-deallocation)");
6229 /* But if the class has an operator delete (void *), then that is
6230 the usual deallocation function, so we shouldn't complain
6231 about using the operator delete (void *, size_t). */
6232 if (DECL_CLASS_SCOPE_P (fn))
6233 for (t = BASELINK_P (fns) ? BASELINK_FUNCTIONS (fns) : fns;
6234 t; t = OVL_NEXT (t))
6236 tree elt = OVL_CURRENT (t);
6237 if (usual_deallocation_fn_p (elt)
6238 && FUNCTION_ARG_CHAIN (elt) == void_list_node)
6239 goto ok;
6241 /* Before C++14 a two-parameter global deallocation function is
6242 always a placement deallocation function, but warn if
6243 -Wc++14-compat. */
6244 else if (!flag_sized_deallocation)
6246 if ((complain & tf_warning)
6247 && warning (OPT_Wc__14_compat, msg1))
6248 inform (DECL_SOURCE_LOCATION (fn), msg2, fn);
6249 goto ok;
6252 if (complain & tf_warning_or_error)
6254 if (permerror (input_location, msg1))
6256 /* Only mention C++14 for namespace-scope delete. */
6257 if (DECL_NAMESPACE_SCOPE_P (fn))
6258 inform (DECL_SOURCE_LOCATION (fn), msg2, fn);
6259 else
6260 inform (DECL_SOURCE_LOCATION (fn),
6261 "%qD is a usual (non-placement) deallocation "
6262 "function", fn);
6265 else
6266 return error_mark_node;
6267 ok:;
6270 else
6271 /* "Any non-placement deallocation function matches a non-placement
6272 allocation function. If the lookup finds a single matching
6273 deallocation function, that function will be called; otherwise, no
6274 deallocation function will be called." */
6275 for (t = BASELINK_P (fns) ? BASELINK_FUNCTIONS (fns) : fns;
6276 t; t = OVL_NEXT (t))
6278 tree elt = OVL_CURRENT (t);
6279 if (usual_deallocation_fn_p (elt))
6281 if (!fn)
6283 fn = elt;
6284 continue;
6287 /* -- If the type has new-extended alignment, a function with a
6288 parameter of type std::align_val_t is preferred; otherwise a
6289 function without such a parameter is preferred. If exactly one
6290 preferred function is found, that function is selected and the
6291 selection process terminates. If more than one preferred
6292 function is found, all non-preferred functions are eliminated
6293 from further consideration. */
6294 if (aligned_new_threshold)
6296 bool want_align = type_has_new_extended_alignment (type);
6297 bool fn_align = aligned_deallocation_fn_p (fn);
6298 bool elt_align = aligned_deallocation_fn_p (elt);
6300 if (elt_align != fn_align)
6302 if (want_align == elt_align)
6303 fn = elt;
6304 continue;
6308 /* -- If the deallocation functions have class scope, the one
6309 without a parameter of type std::size_t is selected. */
6310 bool want_size;
6311 if (DECL_CLASS_SCOPE_P (fn))
6312 want_size = false;
6314 /* -- If the type is complete and if, for the second alternative
6315 (delete array) only, the operand is a pointer to a class type
6316 with a non-trivial destructor or a (possibly multi-dimensional)
6317 array thereof, the function with a parameter of type std::size_t
6318 is selected.
6320 -- Otherwise, it is unspecified whether a deallocation function
6321 with a parameter of type std::size_t is selected. */
6322 else
6324 want_size = COMPLETE_TYPE_P (type);
6325 if (code == VEC_DELETE_EXPR
6326 && !TYPE_VEC_NEW_USES_COOKIE (type))
6327 /* We need a cookie to determine the array size. */
6328 want_size = false;
6330 bool fn_size = second_parm_is_size_t (fn);
6331 bool elt_size = second_parm_is_size_t (elt);
6332 gcc_assert (fn_size != elt_size);
6333 if (want_size == elt_size)
6334 fn = elt;
6338 /* If we have a matching function, call it. */
6339 if (fn)
6341 gcc_assert (TREE_CODE (fn) == FUNCTION_DECL);
6343 /* If the FN is a member function, make sure that it is
6344 accessible. */
6345 if (BASELINK_P (fns))
6346 perform_or_defer_access_check (BASELINK_BINFO (fns), fn, fn,
6347 complain);
6349 /* Core issue 901: It's ok to new a type with deleted delete. */
6350 if (DECL_DELETED_FN (fn) && alloc_fn)
6351 return NULL_TREE;
6353 if (placement)
6355 /* The placement args might not be suitable for overload
6356 resolution at this point, so build the call directly. */
6357 int nargs = call_expr_nargs (placement);
6358 tree *argarray = XALLOCAVEC (tree, nargs);
6359 int i;
6360 argarray[0] = addr;
6361 for (i = 1; i < nargs; i++)
6362 argarray[i] = CALL_EXPR_ARG (placement, i);
6363 if (!mark_used (fn, complain) && !(complain & tf_error))
6364 return error_mark_node;
6365 return build_cxx_call (fn, nargs, argarray, complain);
6367 else
6369 tree ret;
6370 vec<tree, va_gc> *args = make_tree_vector ();
6371 args->quick_push (addr);
6372 if (second_parm_is_size_t (fn))
6373 args->quick_push (size);
6374 if (aligned_deallocation_fn_p (fn))
6376 tree al = build_int_cst (align_type_node, TYPE_ALIGN_UNIT (type));
6377 args->quick_push (al);
6379 ret = cp_build_function_call_vec (fn, &args, complain);
6380 release_tree_vector (args);
6381 return ret;
6385 /* [expr.new]
6387 If no unambiguous matching deallocation function can be found,
6388 propagating the exception does not cause the object's memory to
6389 be freed. */
6390 if (alloc_fn)
6392 if ((complain & tf_warning)
6393 && !placement)
6394 warning (0, "no corresponding deallocation function for %qD",
6395 alloc_fn);
6396 return NULL_TREE;
6399 if (complain & tf_error)
6400 error ("no suitable %<operator %s%> for %qT",
6401 operator_name_info[(int)code].name, type);
6402 return error_mark_node;
6405 /* If the current scope isn't allowed to access DECL along
6406 BASETYPE_PATH, give an error. The most derived class in
6407 BASETYPE_PATH is the one used to qualify DECL. DIAG_DECL is
6408 the declaration to use in the error diagnostic. */
6410 bool
6411 enforce_access (tree basetype_path, tree decl, tree diag_decl,
6412 tsubst_flags_t complain)
6414 gcc_assert (TREE_CODE (basetype_path) == TREE_BINFO);
6416 if (flag_new_inheriting_ctors
6417 && DECL_INHERITED_CTOR (decl))
6419 /* 7.3.3/18: The additional constructors are accessible if they would be
6420 accessible when used to construct an object of the corresponding base
6421 class. */
6422 decl = strip_inheriting_ctors (decl);
6423 basetype_path = TYPE_BINFO (DECL_CONTEXT (decl));
6426 if (!accessible_p (basetype_path, decl, true))
6428 if (complain & tf_error)
6430 if (flag_new_inheriting_ctors)
6431 diag_decl = strip_inheriting_ctors (diag_decl);
6432 if (TREE_PRIVATE (decl))
6434 error ("%q#D is private within this context", diag_decl);
6435 inform (DECL_SOURCE_LOCATION (diag_decl),
6436 "declared private here");
6438 else if (TREE_PROTECTED (decl))
6440 error ("%q#D is protected within this context", diag_decl);
6441 inform (DECL_SOURCE_LOCATION (diag_decl),
6442 "declared protected here");
6444 else
6446 error ("%q#D is inaccessible within this context", diag_decl);
6447 inform (DECL_SOURCE_LOCATION (diag_decl), "declared here");
6450 return false;
6453 return true;
6456 /* Initialize a temporary of type TYPE with EXPR. The FLAGS are a
6457 bitwise or of LOOKUP_* values. If any errors are warnings are
6458 generated, set *DIAGNOSTIC_FN to "error" or "warning",
6459 respectively. If no diagnostics are generated, set *DIAGNOSTIC_FN
6460 to NULL. */
6462 static tree
6463 build_temp (tree expr, tree type, int flags,
6464 diagnostic_t *diagnostic_kind, tsubst_flags_t complain)
6466 int savew, savee;
6467 vec<tree, va_gc> *args;
6469 *diagnostic_kind = DK_UNSPECIFIED;
6471 /* If the source is a packed field, calling the copy constructor will require
6472 binding the field to the reference parameter to the copy constructor, and
6473 we'll end up with an infinite loop. If we can use a bitwise copy, then
6474 do that now. */
6475 if ((lvalue_kind (expr) & clk_packed)
6476 && CLASS_TYPE_P (TREE_TYPE (expr))
6477 && !type_has_nontrivial_copy_init (TREE_TYPE (expr)))
6478 return get_target_expr_sfinae (expr, complain);
6480 savew = warningcount + werrorcount, savee = errorcount;
6481 args = make_tree_vector_single (expr);
6482 expr = build_special_member_call (NULL_TREE, complete_ctor_identifier,
6483 &args, type, flags, complain);
6484 release_tree_vector (args);
6485 if (warningcount + werrorcount > savew)
6486 *diagnostic_kind = DK_WARNING;
6487 else if (errorcount > savee)
6488 *diagnostic_kind = DK_ERROR;
6489 return expr;
6492 /* Perform warnings about peculiar, but valid, conversions from/to NULL.
6493 EXPR is implicitly converted to type TOTYPE.
6494 FN and ARGNUM are used for diagnostics. */
6496 static void
6497 conversion_null_warnings (tree totype, tree expr, tree fn, int argnum)
6499 /* Issue warnings about peculiar, but valid, uses of NULL. */
6500 if (expr == null_node && TREE_CODE (totype) != BOOLEAN_TYPE
6501 && ARITHMETIC_TYPE_P (totype))
6503 source_location loc =
6504 expansion_point_location_if_in_system_header (input_location);
6506 if (fn)
6507 warning_at (loc, OPT_Wconversion_null,
6508 "passing NULL to non-pointer argument %P of %qD",
6509 argnum, fn);
6510 else
6511 warning_at (loc, OPT_Wconversion_null,
6512 "converting to non-pointer type %qT from NULL", totype);
6515 /* Issue warnings if "false" is converted to a NULL pointer */
6516 else if (TREE_CODE (TREE_TYPE (expr)) == BOOLEAN_TYPE
6517 && TYPE_PTR_P (totype))
6519 if (fn)
6520 warning_at (input_location, OPT_Wconversion_null,
6521 "converting %<false%> to pointer type for argument %P "
6522 "of %qD", argnum, fn);
6523 else
6524 warning_at (input_location, OPT_Wconversion_null,
6525 "converting %<false%> to pointer type %qT", totype);
6529 /* We gave a diagnostic during a conversion. If this was in the second
6530 standard conversion sequence of a user-defined conversion sequence, say
6531 which user-defined conversion. */
6533 static void
6534 maybe_print_user_conv_context (conversion *convs)
6536 if (convs->user_conv_p)
6537 for (conversion *t = convs; t; t = next_conversion (t))
6538 if (t->kind == ck_user)
6540 print_z_candidate (0, " after user-defined conversion:",
6541 t->cand);
6542 break;
6546 /* Perform the conversions in CONVS on the expression EXPR. FN and
6547 ARGNUM are used for diagnostics. ARGNUM is zero based, -1
6548 indicates the `this' argument of a method. INNER is nonzero when
6549 being called to continue a conversion chain. It is negative when a
6550 reference binding will be applied, positive otherwise. If
6551 ISSUE_CONVERSION_WARNINGS is true, warnings about suspicious
6552 conversions will be emitted if appropriate. If C_CAST_P is true,
6553 this conversion is coming from a C-style cast; in that case,
6554 conversions to inaccessible bases are permitted. */
6556 static tree
6557 convert_like_real (conversion *convs, tree expr, tree fn, int argnum,
6558 int inner, bool issue_conversion_warnings,
6559 bool c_cast_p, tsubst_flags_t complain)
6561 tree totype = convs->type;
6562 diagnostic_t diag_kind;
6563 int flags;
6564 location_t loc = EXPR_LOC_OR_LOC (expr, input_location);
6566 if (convs->bad_p && !(complain & tf_error))
6567 return error_mark_node;
6569 if (convs->bad_p
6570 && convs->kind != ck_user
6571 && convs->kind != ck_list
6572 && convs->kind != ck_ambig
6573 && (convs->kind != ck_ref_bind
6574 || (convs->user_conv_p && next_conversion (convs)->bad_p))
6575 && (convs->kind != ck_rvalue
6576 || SCALAR_TYPE_P (totype))
6577 && convs->kind != ck_base)
6579 bool complained = false;
6580 conversion *t = convs;
6582 /* Give a helpful error if this is bad because of excess braces. */
6583 if (BRACE_ENCLOSED_INITIALIZER_P (expr)
6584 && SCALAR_TYPE_P (totype)
6585 && CONSTRUCTOR_NELTS (expr) > 0
6586 && BRACE_ENCLOSED_INITIALIZER_P (CONSTRUCTOR_ELT (expr, 0)->value))
6588 complained = permerror (loc, "too many braces around initializer "
6589 "for %qT", totype);
6590 while (BRACE_ENCLOSED_INITIALIZER_P (expr)
6591 && CONSTRUCTOR_NELTS (expr) == 1)
6592 expr = CONSTRUCTOR_ELT (expr, 0)->value;
6595 /* Give a helpful error if this is bad because a conversion to bool
6596 from std::nullptr_t requires direct-initialization. */
6597 if (NULLPTR_TYPE_P (TREE_TYPE (expr))
6598 && TREE_CODE (totype) == BOOLEAN_TYPE)
6599 complained = permerror (loc, "converting to %qT from %qT requires "
6600 "direct-initialization",
6601 totype, TREE_TYPE (expr));
6603 for (; t ; t = next_conversion (t))
6605 if (t->kind == ck_user && t->cand->reason)
6607 complained = permerror (loc, "invalid user-defined conversion "
6608 "from %qT to %qT", TREE_TYPE (expr),
6609 totype);
6610 if (complained)
6611 print_z_candidate (loc, "candidate is:", t->cand);
6612 expr = convert_like_real (t, expr, fn, argnum, 1,
6613 /*issue_conversion_warnings=*/false,
6614 /*c_cast_p=*/false,
6615 complain);
6616 if (convs->kind == ck_ref_bind)
6617 expr = convert_to_reference (totype, expr, CONV_IMPLICIT,
6618 LOOKUP_NORMAL, NULL_TREE,
6619 complain);
6620 else
6621 expr = cp_convert (totype, expr, complain);
6622 if (complained && fn)
6623 inform (DECL_SOURCE_LOCATION (fn),
6624 " initializing argument %P of %qD", argnum, fn);
6625 return expr;
6627 else if (t->kind == ck_user || !t->bad_p)
6629 expr = convert_like_real (t, expr, fn, argnum, 1,
6630 /*issue_conversion_warnings=*/false,
6631 /*c_cast_p=*/false,
6632 complain);
6633 break;
6635 else if (t->kind == ck_ambig)
6636 return convert_like_real (t, expr, fn, argnum, 1,
6637 /*issue_conversion_warnings=*/false,
6638 /*c_cast_p=*/false,
6639 complain);
6640 else if (t->kind == ck_identity)
6641 break;
6643 if (!complained)
6644 complained = permerror (loc, "invalid conversion from %qT to %qT",
6645 TREE_TYPE (expr), totype);
6646 if (complained && fn)
6647 inform (DECL_SOURCE_LOCATION (fn),
6648 " initializing argument %P of %qD", argnum, fn);
6650 return cp_convert (totype, expr, complain);
6653 if (issue_conversion_warnings && (complain & tf_warning))
6654 conversion_null_warnings (totype, expr, fn, argnum);
6656 switch (convs->kind)
6658 case ck_user:
6660 struct z_candidate *cand = convs->cand;
6661 tree convfn = cand->fn;
6663 /* When converting from an init list we consider explicit
6664 constructors, but actually trying to call one is an error. */
6665 if (DECL_NONCONVERTING_P (convfn) && DECL_CONSTRUCTOR_P (convfn)
6666 && BRACE_ENCLOSED_INITIALIZER_P (expr)
6667 /* Unless this is for direct-list-initialization. */
6668 && !CONSTRUCTOR_IS_DIRECT_INIT (expr)
6669 /* And in C++98 a default constructor can't be explicit. */
6670 && cxx_dialect >= cxx11)
6672 if (!(complain & tf_error))
6673 return error_mark_node;
6674 location_t loc = location_of (expr);
6675 if (CONSTRUCTOR_NELTS (expr) == 0
6676 && FUNCTION_FIRST_USER_PARMTYPE (convfn) != void_list_node)
6678 if (pedwarn (loc, 0, "converting to %qT from initializer list "
6679 "would use explicit constructor %qD",
6680 totype, convfn))
6681 inform (loc, "in C++11 and above a default constructor "
6682 "can be explicit");
6684 else
6685 error ("converting to %qT from initializer list would use "
6686 "explicit constructor %qD", totype, convfn);
6689 /* If we're initializing from {}, it's value-initialization. */
6690 if (BRACE_ENCLOSED_INITIALIZER_P (expr)
6691 && CONSTRUCTOR_NELTS (expr) == 0
6692 && TYPE_HAS_DEFAULT_CONSTRUCTOR (totype))
6694 bool direct = CONSTRUCTOR_IS_DIRECT_INIT (expr);
6695 expr = build_value_init (totype, complain);
6696 expr = get_target_expr_sfinae (expr, complain);
6697 if (expr != error_mark_node)
6699 TARGET_EXPR_LIST_INIT_P (expr) = true;
6700 TARGET_EXPR_DIRECT_INIT_P (expr) = direct;
6702 return expr;
6705 expr = mark_rvalue_use (expr);
6707 /* Pass LOOKUP_NO_CONVERSION so rvalue/base handling knows not to allow
6708 any more UDCs. */
6709 expr = build_over_call (cand, LOOKUP_NORMAL|LOOKUP_NO_CONVERSION,
6710 complain);
6712 /* If this is a constructor or a function returning an aggr type,
6713 we need to build up a TARGET_EXPR. */
6714 if (DECL_CONSTRUCTOR_P (convfn))
6716 expr = build_cplus_new (totype, expr, complain);
6718 /* Remember that this was list-initialization. */
6719 if (convs->check_narrowing && expr != error_mark_node)
6720 TARGET_EXPR_LIST_INIT_P (expr) = true;
6723 return expr;
6725 case ck_identity:
6726 if (BRACE_ENCLOSED_INITIALIZER_P (expr))
6728 int nelts = CONSTRUCTOR_NELTS (expr);
6729 if (nelts == 0)
6730 expr = build_value_init (totype, complain);
6731 else if (nelts == 1)
6732 expr = CONSTRUCTOR_ELT (expr, 0)->value;
6733 else
6734 gcc_unreachable ();
6736 expr = mark_rvalue_use (expr);
6738 if (type_unknown_p (expr))
6739 expr = instantiate_type (totype, expr, complain);
6740 /* Convert a constant to its underlying value, unless we are
6741 about to bind it to a reference, in which case we need to
6742 leave it as an lvalue. */
6743 if (inner >= 0)
6745 expr = scalar_constant_value (expr);
6746 if (expr == null_node && INTEGRAL_OR_UNSCOPED_ENUMERATION_TYPE_P (totype))
6747 /* If __null has been converted to an integer type, we do not
6748 want to warn about uses of EXPR as an integer, rather than
6749 as a pointer. */
6750 expr = build_int_cst (totype, 0);
6752 return expr;
6753 case ck_ambig:
6754 /* We leave bad_p off ck_ambig because overload resolution considers
6755 it valid, it just fails when we try to perform it. So we need to
6756 check complain here, too. */
6757 if (complain & tf_error)
6759 /* Call build_user_type_conversion again for the error. */
6760 build_user_type_conversion (totype, convs->u.expr, LOOKUP_NORMAL,
6761 complain);
6762 if (fn)
6763 inform (DECL_SOURCE_LOCATION (fn),
6764 " initializing argument %P of %qD", argnum, fn);
6766 return error_mark_node;
6768 case ck_list:
6770 /* Conversion to std::initializer_list<T>. */
6771 tree elttype = TREE_VEC_ELT (CLASSTYPE_TI_ARGS (totype), 0);
6772 tree new_ctor = build_constructor (init_list_type_node, NULL);
6773 unsigned len = CONSTRUCTOR_NELTS (expr);
6774 tree array, val, field;
6775 vec<constructor_elt, va_gc> *vec = NULL;
6776 unsigned ix;
6778 /* Convert all the elements. */
6779 FOR_EACH_CONSTRUCTOR_VALUE (CONSTRUCTOR_ELTS (expr), ix, val)
6781 tree sub = convert_like_real (convs->u.list[ix], val, fn, argnum,
6782 1, false, false, complain);
6783 if (sub == error_mark_node)
6784 return sub;
6785 if (!BRACE_ENCLOSED_INITIALIZER_P (val)
6786 && !check_narrowing (TREE_TYPE (sub), val, complain))
6787 return error_mark_node;
6788 CONSTRUCTOR_APPEND_ELT (CONSTRUCTOR_ELTS (new_ctor), NULL_TREE, sub);
6789 if (!TREE_CONSTANT (sub))
6790 TREE_CONSTANT (new_ctor) = false;
6792 /* Build up the array. */
6793 elttype = cp_build_qualified_type
6794 (elttype, cp_type_quals (elttype) | TYPE_QUAL_CONST);
6795 array = build_array_of_n_type (elttype, len);
6796 array = finish_compound_literal (array, new_ctor, complain);
6797 /* Take the address explicitly rather than via decay_conversion
6798 to avoid the error about taking the address of a temporary. */
6799 array = cp_build_addr_expr (array, complain);
6800 array = cp_convert (build_pointer_type (elttype), array, complain);
6801 if (array == error_mark_node)
6802 return error_mark_node;
6804 /* Build up the initializer_list object. */
6805 totype = complete_type (totype);
6806 field = next_initializable_field (TYPE_FIELDS (totype));
6807 CONSTRUCTOR_APPEND_ELT (vec, field, array);
6808 field = next_initializable_field (DECL_CHAIN (field));
6809 CONSTRUCTOR_APPEND_ELT (vec, field, size_int (len));
6810 new_ctor = build_constructor (totype, vec);
6811 return get_target_expr_sfinae (new_ctor, complain);
6814 case ck_aggr:
6815 if (TREE_CODE (totype) == COMPLEX_TYPE)
6817 tree real = CONSTRUCTOR_ELT (expr, 0)->value;
6818 tree imag = CONSTRUCTOR_ELT (expr, 1)->value;
6819 real = perform_implicit_conversion (TREE_TYPE (totype),
6820 real, complain);
6821 imag = perform_implicit_conversion (TREE_TYPE (totype),
6822 imag, complain);
6823 expr = build2 (COMPLEX_EXPR, totype, real, imag);
6824 return expr;
6826 expr = reshape_init (totype, expr, complain);
6827 expr = get_target_expr_sfinae (digest_init (totype, expr, complain),
6828 complain);
6829 if (expr != error_mark_node)
6830 TARGET_EXPR_LIST_INIT_P (expr) = true;
6831 return expr;
6833 default:
6834 break;
6837 expr = convert_like_real (next_conversion (convs), expr, fn, argnum,
6838 convs->kind == ck_ref_bind ? -1 : 1,
6839 convs->kind == ck_ref_bind ? issue_conversion_warnings : false,
6840 c_cast_p,
6841 complain);
6842 if (expr == error_mark_node)
6843 return error_mark_node;
6845 switch (convs->kind)
6847 case ck_rvalue:
6848 expr = decay_conversion (expr, complain);
6849 if (expr == error_mark_node)
6851 if (complain & tf_error)
6853 maybe_print_user_conv_context (convs);
6854 if (fn)
6855 inform (DECL_SOURCE_LOCATION (fn),
6856 " initializing argument %P of %qD", argnum, fn);
6858 return error_mark_node;
6861 if (! MAYBE_CLASS_TYPE_P (totype))
6862 return expr;
6864 /* Don't introduce copies when passing arguments along to the inherited
6865 constructor. */
6866 if (current_function_decl
6867 && flag_new_inheriting_ctors
6868 && DECL_INHERITED_CTOR (current_function_decl))
6869 return expr;
6871 /* Fall through. */
6872 case ck_base:
6873 if (convs->kind == ck_base && !convs->need_temporary_p)
6875 /* We are going to bind a reference directly to a base-class
6876 subobject of EXPR. */
6877 /* Build an expression for `*((base*) &expr)'. */
6878 expr = convert_to_base (expr, totype,
6879 !c_cast_p, /*nonnull=*/true, complain);
6880 return expr;
6883 /* Copy-initialization where the cv-unqualified version of the source
6884 type is the same class as, or a derived class of, the class of the
6885 destination [is treated as direct-initialization]. [dcl.init] */
6886 flags = LOOKUP_NORMAL;
6887 if (convs->user_conv_p)
6888 /* This conversion is being done in the context of a user-defined
6889 conversion (i.e. the second step of copy-initialization), so
6890 don't allow any more. */
6891 flags |= LOOKUP_NO_CONVERSION;
6892 else
6893 flags |= LOOKUP_ONLYCONVERTING;
6894 if (convs->rvaluedness_matches_p)
6895 flags |= LOOKUP_PREFER_RVALUE;
6896 if (TREE_CODE (expr) == TARGET_EXPR
6897 && TARGET_EXPR_LIST_INIT_P (expr))
6898 /* Copy-list-initialization doesn't actually involve a copy. */
6899 return expr;
6900 expr = build_temp (expr, totype, flags, &diag_kind, complain);
6901 if (diag_kind && complain)
6903 maybe_print_user_conv_context (convs);
6904 if (fn)
6905 inform (DECL_SOURCE_LOCATION (fn),
6906 " initializing argument %P of %qD", argnum, fn);
6909 return build_cplus_new (totype, expr, complain);
6911 case ck_ref_bind:
6913 tree ref_type = totype;
6915 if (convs->bad_p && !next_conversion (convs)->bad_p)
6917 tree extype = TREE_TYPE (expr);
6918 if (TYPE_REF_IS_RVALUE (ref_type)
6919 && lvalue_p (expr))
6920 error_at (loc, "cannot bind rvalue reference of type %qT to "
6921 "lvalue of type %qT", totype, extype);
6922 else if (!TYPE_REF_IS_RVALUE (ref_type) && !lvalue_p (expr)
6923 && !CP_TYPE_CONST_NON_VOLATILE_P (TREE_TYPE (ref_type)))
6924 error_at (loc, "cannot bind non-const lvalue reference of "
6925 "type %qT to an rvalue of type %qT", totype, extype);
6926 else if (!reference_compatible_p (TREE_TYPE (totype), extype))
6927 error_at (loc, "binding reference of type %qT to %qT "
6928 "discards qualifiers", totype, extype);
6929 else
6930 gcc_unreachable ();
6931 maybe_print_user_conv_context (convs);
6932 if (fn)
6933 inform (DECL_SOURCE_LOCATION (fn),
6934 " initializing argument %P of %qD", argnum, fn);
6935 return error_mark_node;
6938 /* If necessary, create a temporary.
6940 VA_ARG_EXPR and CONSTRUCTOR expressions are special cases
6941 that need temporaries, even when their types are reference
6942 compatible with the type of reference being bound, so the
6943 upcoming call to cp_build_addr_expr doesn't fail. */
6944 if (convs->need_temporary_p
6945 || TREE_CODE (expr) == CONSTRUCTOR
6946 || TREE_CODE (expr) == VA_ARG_EXPR)
6948 /* Otherwise, a temporary of type "cv1 T1" is created and
6949 initialized from the initializer expression using the rules
6950 for a non-reference copy-initialization (8.5). */
6952 tree type = TREE_TYPE (ref_type);
6953 cp_lvalue_kind lvalue = lvalue_kind (expr);
6955 gcc_assert (same_type_ignoring_top_level_qualifiers_p
6956 (type, next_conversion (convs)->type));
6957 if (!CP_TYPE_CONST_NON_VOLATILE_P (type)
6958 && !TYPE_REF_IS_RVALUE (ref_type))
6960 /* If the reference is volatile or non-const, we
6961 cannot create a temporary. */
6962 if (lvalue & clk_bitfield)
6963 error_at (loc, "cannot bind bitfield %qE to %qT",
6964 expr, ref_type);
6965 else if (lvalue & clk_packed)
6966 error_at (loc, "cannot bind packed field %qE to %qT",
6967 expr, ref_type);
6968 else
6969 error_at (loc, "cannot bind rvalue %qE to %qT",
6970 expr, ref_type);
6971 return error_mark_node;
6973 /* If the source is a packed field, and we must use a copy
6974 constructor, then building the target expr will require
6975 binding the field to the reference parameter to the
6976 copy constructor, and we'll end up with an infinite
6977 loop. If we can use a bitwise copy, then we'll be
6978 OK. */
6979 if ((lvalue & clk_packed)
6980 && CLASS_TYPE_P (type)
6981 && type_has_nontrivial_copy_init (type))
6983 error_at (loc, "cannot bind packed field %qE to %qT",
6984 expr, ref_type);
6985 return error_mark_node;
6987 if (lvalue & clk_bitfield)
6989 expr = convert_bitfield_to_declared_type (expr);
6990 expr = fold_convert (type, expr);
6992 expr = build_target_expr_with_type (expr, type, complain);
6995 /* Take the address of the thing to which we will bind the
6996 reference. */
6997 expr = cp_build_addr_expr (expr, complain);
6998 if (expr == error_mark_node)
6999 return error_mark_node;
7001 /* Convert it to a pointer to the type referred to by the
7002 reference. This will adjust the pointer if a derived to
7003 base conversion is being performed. */
7004 expr = cp_convert (build_pointer_type (TREE_TYPE (ref_type)),
7005 expr, complain);
7006 /* Convert the pointer to the desired reference type. */
7007 return build_nop (ref_type, expr);
7010 case ck_lvalue:
7011 return decay_conversion (expr, complain);
7013 case ck_fnptr:
7014 /* ??? Should the address of a transaction-safe pointer point to the TM
7015 clone, and this conversion look up the primary function? */
7016 return build_nop (totype, expr);
7018 case ck_qual:
7019 /* Warn about deprecated conversion if appropriate. */
7020 string_conv_p (totype, expr, 1);
7021 break;
7023 case ck_ptr:
7024 if (convs->base_p)
7025 expr = convert_to_base (expr, totype, !c_cast_p,
7026 /*nonnull=*/false, complain);
7027 return build_nop (totype, expr);
7029 case ck_pmem:
7030 return convert_ptrmem (totype, expr, /*allow_inverse_p=*/false,
7031 c_cast_p, complain);
7033 default:
7034 break;
7037 if (convs->check_narrowing
7038 && !check_narrowing (totype, expr, complain))
7039 return error_mark_node;
7041 if (issue_conversion_warnings)
7042 expr = cp_convert_and_check (totype, expr, complain);
7043 else
7044 expr = cp_convert (totype, expr, complain);
7046 return expr;
7049 /* ARG is being passed to a varargs function. Perform any conversions
7050 required. Return the converted value. */
7052 tree
7053 convert_arg_to_ellipsis (tree arg, tsubst_flags_t complain)
7055 tree arg_type;
7056 location_t loc = EXPR_LOC_OR_LOC (arg, input_location);
7058 /* [expr.call]
7060 The lvalue-to-rvalue, array-to-pointer, and function-to-pointer
7061 standard conversions are performed. */
7062 arg = decay_conversion (arg, complain);
7063 arg_type = TREE_TYPE (arg);
7064 /* [expr.call]
7066 If the argument has integral or enumeration type that is subject
7067 to the integral promotions (_conv.prom_), or a floating point
7068 type that is subject to the floating point promotion
7069 (_conv.fpprom_), the value of the argument is converted to the
7070 promoted type before the call. */
7071 if (TREE_CODE (arg_type) == REAL_TYPE
7072 && (TYPE_PRECISION (arg_type)
7073 < TYPE_PRECISION (double_type_node))
7074 && !DECIMAL_FLOAT_MODE_P (TYPE_MODE (arg_type)))
7076 if ((complain & tf_warning)
7077 && warn_double_promotion && !c_inhibit_evaluation_warnings)
7078 warning_at (loc, OPT_Wdouble_promotion,
7079 "implicit conversion from %qT to %qT when passing "
7080 "argument to function",
7081 arg_type, double_type_node);
7082 arg = convert_to_real_nofold (double_type_node, arg);
7084 else if (NULLPTR_TYPE_P (arg_type))
7085 arg = null_pointer_node;
7086 else if (INTEGRAL_OR_ENUMERATION_TYPE_P (arg_type))
7088 if (SCOPED_ENUM_P (arg_type))
7090 tree prom = cp_convert (ENUM_UNDERLYING_TYPE (arg_type), arg,
7091 complain);
7092 prom = cp_perform_integral_promotions (prom, complain);
7093 if (abi_version_crosses (6)
7094 && TYPE_MODE (TREE_TYPE (prom)) != TYPE_MODE (arg_type)
7095 && (complain & tf_warning))
7096 warning_at (loc, OPT_Wabi, "scoped enum %qT passed through ... as "
7097 "%qT before -fabi-version=6, %qT after", arg_type,
7098 TREE_TYPE (prom), ENUM_UNDERLYING_TYPE (arg_type));
7099 if (!abi_version_at_least (6))
7100 arg = prom;
7102 else
7103 arg = cp_perform_integral_promotions (arg, complain);
7106 arg = require_complete_type_sfinae (arg, complain);
7107 arg_type = TREE_TYPE (arg);
7109 if (arg != error_mark_node
7110 /* In a template (or ill-formed code), we can have an incomplete type
7111 even after require_complete_type_sfinae, in which case we don't know
7112 whether it has trivial copy or not. */
7113 && COMPLETE_TYPE_P (arg_type))
7115 /* Build up a real lvalue-to-rvalue conversion in case the
7116 copy constructor is trivial but not callable. */
7117 if (!cp_unevaluated_operand && CLASS_TYPE_P (arg_type))
7118 force_rvalue (arg, complain);
7120 /* [expr.call] 5.2.2/7:
7121 Passing a potentially-evaluated argument of class type (Clause 9)
7122 with a non-trivial copy constructor or a non-trivial destructor
7123 with no corresponding parameter is conditionally-supported, with
7124 implementation-defined semantics.
7126 We support it as pass-by-invisible-reference, just like a normal
7127 value parameter.
7129 If the call appears in the context of a sizeof expression,
7130 it is not potentially-evaluated. */
7131 if (cp_unevaluated_operand == 0
7132 && (type_has_nontrivial_copy_init (arg_type)
7133 || TYPE_HAS_NONTRIVIAL_DESTRUCTOR (arg_type)))
7135 if (complain & tf_warning)
7136 warning (OPT_Wconditionally_supported,
7137 "passing objects of non-trivially-copyable "
7138 "type %q#T through %<...%> is conditionally supported",
7139 arg_type);
7140 return cp_build_addr_expr (arg, complain);
7144 return arg;
7147 /* va_arg (EXPR, TYPE) is a builtin. Make sure it is not abused. */
7149 tree
7150 build_x_va_arg (source_location loc, tree expr, tree type)
7152 if (processing_template_decl)
7154 tree r = build_min (VA_ARG_EXPR, type, expr);
7155 SET_EXPR_LOCATION (r, loc);
7156 return r;
7159 type = complete_type_or_else (type, NULL_TREE);
7161 if (expr == error_mark_node || !type)
7162 return error_mark_node;
7164 expr = mark_lvalue_use (expr);
7166 if (TREE_CODE (type) == REFERENCE_TYPE)
7168 error ("cannot receive reference type %qT through %<...%>", type);
7169 return error_mark_node;
7172 if (type_has_nontrivial_copy_init (type)
7173 || TYPE_HAS_NONTRIVIAL_DESTRUCTOR (type))
7175 /* conditionally-supported behavior [expr.call] 5.2.2/7. Let's treat
7176 it as pass by invisible reference. */
7177 warning_at (loc, OPT_Wconditionally_supported,
7178 "receiving objects of non-trivially-copyable type %q#T "
7179 "through %<...%> is conditionally-supported", type);
7181 tree ref = cp_build_reference_type (type, false);
7182 expr = build_va_arg (loc, expr, ref);
7183 return convert_from_reference (expr);
7186 tree ret = build_va_arg (loc, expr, type);
7187 if (CLASS_TYPE_P (type))
7188 /* Wrap the VA_ARG_EXPR in a TARGET_EXPR now so other code doesn't need to
7189 know how to handle it. */
7190 ret = get_target_expr (ret);
7191 return ret;
7194 /* TYPE has been given to va_arg. Apply the default conversions which
7195 would have happened when passed via ellipsis. Return the promoted
7196 type, or the passed type if there is no change. */
7198 tree
7199 cxx_type_promotes_to (tree type)
7201 tree promote;
7203 /* Perform the array-to-pointer and function-to-pointer
7204 conversions. */
7205 type = type_decays_to (type);
7207 promote = type_promotes_to (type);
7208 if (same_type_p (type, promote))
7209 promote = type;
7211 return promote;
7214 /* ARG is a default argument expression being passed to a parameter of
7215 the indicated TYPE, which is a parameter to FN. PARMNUM is the
7216 zero-based argument number. Do any required conversions. Return
7217 the converted value. */
7219 static GTY(()) vec<tree, va_gc> *default_arg_context;
7220 void
7221 push_defarg_context (tree fn)
7222 { vec_safe_push (default_arg_context, fn); }
7224 void
7225 pop_defarg_context (void)
7226 { default_arg_context->pop (); }
7228 tree
7229 convert_default_arg (tree type, tree arg, tree fn, int parmnum,
7230 tsubst_flags_t complain)
7232 int i;
7233 tree t;
7235 /* See through clones. */
7236 fn = DECL_ORIGIN (fn);
7237 /* And inheriting ctors. */
7238 if (flag_new_inheriting_ctors)
7239 fn = strip_inheriting_ctors (fn);
7241 /* Detect recursion. */
7242 FOR_EACH_VEC_SAFE_ELT (default_arg_context, i, t)
7243 if (t == fn)
7245 if (complain & tf_error)
7246 error ("recursive evaluation of default argument for %q#D", fn);
7247 return error_mark_node;
7250 /* If the ARG is an unparsed default argument expression, the
7251 conversion cannot be performed. */
7252 if (TREE_CODE (arg) == DEFAULT_ARG)
7254 if (complain & tf_error)
7255 error ("call to %qD uses the default argument for parameter %P, which "
7256 "is not yet defined", fn, parmnum);
7257 return error_mark_node;
7260 push_defarg_context (fn);
7262 if (fn && DECL_TEMPLATE_INFO (fn))
7263 arg = tsubst_default_argument (fn, type, arg, complain);
7265 /* Due to:
7267 [dcl.fct.default]
7269 The names in the expression are bound, and the semantic
7270 constraints are checked, at the point where the default
7271 expressions appears.
7273 we must not perform access checks here. */
7274 push_deferring_access_checks (dk_no_check);
7275 /* We must make a copy of ARG, in case subsequent processing
7276 alters any part of it. */
7277 arg = break_out_target_exprs (arg);
7278 arg = convert_for_initialization (0, type, arg, LOOKUP_IMPLICIT,
7279 ICR_DEFAULT_ARGUMENT, fn, parmnum,
7280 complain);
7281 arg = convert_for_arg_passing (type, arg, complain);
7282 pop_deferring_access_checks();
7284 pop_defarg_context ();
7286 return arg;
7289 /* Returns the type which will really be used for passing an argument of
7290 type TYPE. */
7292 tree
7293 type_passed_as (tree type)
7295 /* Pass classes with copy ctors by invisible reference. */
7296 if (TREE_ADDRESSABLE (type))
7298 type = build_reference_type (type);
7299 /* There are no other pointers to this temporary. */
7300 type = cp_build_qualified_type (type, TYPE_QUAL_RESTRICT);
7302 else if (targetm.calls.promote_prototypes (type)
7303 && INTEGRAL_TYPE_P (type)
7304 && COMPLETE_TYPE_P (type)
7305 && tree_int_cst_lt (TYPE_SIZE (type), TYPE_SIZE (integer_type_node)))
7306 type = integer_type_node;
7308 return type;
7311 /* Actually perform the appropriate conversion. */
7313 tree
7314 convert_for_arg_passing (tree type, tree val, tsubst_flags_t complain)
7316 tree bitfield_type;
7318 /* If VAL is a bitfield, then -- since it has already been converted
7319 to TYPE -- it cannot have a precision greater than TYPE.
7321 If it has a smaller precision, we must widen it here. For
7322 example, passing "int f:3;" to a function expecting an "int" will
7323 not result in any conversion before this point.
7325 If the precision is the same we must not risk widening. For
7326 example, the COMPONENT_REF for a 32-bit "long long" bitfield will
7327 often have type "int", even though the C++ type for the field is
7328 "long long". If the value is being passed to a function
7329 expecting an "int", then no conversions will be required. But,
7330 if we call convert_bitfield_to_declared_type, the bitfield will
7331 be converted to "long long". */
7332 bitfield_type = is_bitfield_expr_with_lowered_type (val);
7333 if (bitfield_type
7334 && TYPE_PRECISION (TREE_TYPE (val)) < TYPE_PRECISION (type))
7335 val = convert_to_integer_nofold (TYPE_MAIN_VARIANT (bitfield_type), val);
7337 if (val == error_mark_node)
7339 /* Pass classes with copy ctors by invisible reference. */
7340 else if (TREE_ADDRESSABLE (type))
7341 val = build1 (ADDR_EXPR, build_reference_type (type), val);
7342 else if (targetm.calls.promote_prototypes (type)
7343 && INTEGRAL_TYPE_P (type)
7344 && COMPLETE_TYPE_P (type)
7345 && tree_int_cst_lt (TYPE_SIZE (type), TYPE_SIZE (integer_type_node)))
7346 val = cp_perform_integral_promotions (val, complain);
7347 if ((complain & tf_warning)
7348 && warn_suggest_attribute_format)
7350 tree rhstype = TREE_TYPE (val);
7351 const enum tree_code coder = TREE_CODE (rhstype);
7352 const enum tree_code codel = TREE_CODE (type);
7353 if ((codel == POINTER_TYPE || codel == REFERENCE_TYPE)
7354 && coder == codel
7355 && check_missing_format_attribute (type, rhstype))
7356 warning (OPT_Wsuggest_attribute_format,
7357 "argument of function call might be a candidate for a format attribute");
7359 return val;
7362 /* Returns non-zero iff FN is a function with magic varargs, i.e. ones for
7363 which just decay_conversion or no conversions at all should be done.
7364 This is true for some builtins which don't act like normal functions.
7365 Return 2 if no conversions at all should be done, 1 if just
7366 decay_conversion. Return 3 for special treatment of the 3rd argument
7367 for __builtin_*_overflow_p. */
7370 magic_varargs_p (tree fn)
7372 if (flag_cilkplus && is_cilkplus_reduce_builtin (fn) != BUILT_IN_NONE)
7373 return 2;
7375 if (DECL_BUILT_IN_CLASS (fn) == BUILT_IN_NORMAL)
7376 switch (DECL_FUNCTION_CODE (fn))
7378 case BUILT_IN_CLASSIFY_TYPE:
7379 case BUILT_IN_CONSTANT_P:
7380 case BUILT_IN_NEXT_ARG:
7381 case BUILT_IN_VA_START:
7382 return 1;
7384 case BUILT_IN_ADD_OVERFLOW_P:
7385 case BUILT_IN_SUB_OVERFLOW_P:
7386 case BUILT_IN_MUL_OVERFLOW_P:
7387 return 3;
7389 default:;
7390 return lookup_attribute ("type generic",
7391 TYPE_ATTRIBUTES (TREE_TYPE (fn))) != 0;
7394 return 0;
7397 /* Returns the decl of the dispatcher function if FN is a function version. */
7399 tree
7400 get_function_version_dispatcher (tree fn)
7402 tree dispatcher_decl = NULL;
7404 gcc_assert (TREE_CODE (fn) == FUNCTION_DECL
7405 && DECL_FUNCTION_VERSIONED (fn));
7407 gcc_assert (targetm.get_function_versions_dispatcher);
7408 dispatcher_decl = targetm.get_function_versions_dispatcher (fn);
7410 if (dispatcher_decl == NULL)
7412 error_at (input_location, "use of multiversioned function "
7413 "without a default");
7414 return NULL;
7417 retrofit_lang_decl (dispatcher_decl);
7418 gcc_assert (dispatcher_decl != NULL);
7419 return dispatcher_decl;
7422 /* fn is a function version dispatcher that is marked used. Mark all the
7423 semantically identical function versions it will dispatch as used. */
7425 void
7426 mark_versions_used (tree fn)
7428 struct cgraph_node *node;
7429 struct cgraph_function_version_info *node_v;
7430 struct cgraph_function_version_info *it_v;
7432 gcc_assert (TREE_CODE (fn) == FUNCTION_DECL);
7434 node = cgraph_node::get (fn);
7435 if (node == NULL)
7436 return;
7438 gcc_assert (node->dispatcher_function);
7440 node_v = node->function_version ();
7441 if (node_v == NULL)
7442 return;
7444 /* All semantically identical versions are chained. Traverse and mark each
7445 one of them as used. */
7446 it_v = node_v->next;
7447 while (it_v != NULL)
7449 mark_used (it_v->this_node->decl);
7450 it_v = it_v->next;
7454 /* Build a call to "the copy constructor" for the type of A, even if it
7455 wouldn't be selected by normal overload resolution. Used for
7456 diagnostics. */
7458 static tree
7459 call_copy_ctor (tree a, tsubst_flags_t complain)
7461 tree ctype = TYPE_MAIN_VARIANT (TREE_TYPE (a));
7462 tree binfo = TYPE_BINFO (ctype);
7463 tree copy = get_copy_ctor (ctype, complain);
7464 copy = build_baselink (binfo, binfo, copy, NULL_TREE);
7465 tree ob = build_dummy_object (ctype);
7466 vec<tree, va_gc>* args = make_tree_vector_single (a);
7467 tree r = build_new_method_call (ob, copy, &args, NULL_TREE,
7468 LOOKUP_NORMAL, NULL, complain);
7469 release_tree_vector (args);
7470 return r;
7473 /* Return true iff T refers to a base field. */
7475 static bool
7476 is_base_field_ref (tree t)
7478 STRIP_NOPS (t);
7479 if (TREE_CODE (t) == ADDR_EXPR)
7480 t = TREE_OPERAND (t, 0);
7481 if (TREE_CODE (t) == COMPONENT_REF)
7482 t = TREE_OPERAND (t, 1);
7483 if (TREE_CODE (t) == FIELD_DECL)
7484 return DECL_FIELD_IS_BASE (t);
7485 return false;
7488 /* We can't elide a copy from a function returning by value to a base
7489 subobject, as the callee might clobber tail padding. Return true iff this
7490 could be that case. */
7492 static bool
7493 unsafe_copy_elision_p (tree target, tree exp)
7495 /* Copy elision only happens with a TARGET_EXPR. */
7496 if (TREE_CODE (exp) != TARGET_EXPR)
7497 return false;
7498 tree type = TYPE_MAIN_VARIANT (TREE_TYPE (exp));
7499 /* It's safe to elide the copy for a class with no tail padding. */
7500 if (tree_int_cst_equal (TYPE_SIZE (type), CLASSTYPE_SIZE (type)))
7501 return false;
7502 /* It's safe to elide the copy if we aren't initializing a base object. */
7503 if (!is_base_field_ref (target))
7504 return false;
7505 tree init = TARGET_EXPR_INITIAL (exp);
7506 /* build_compound_expr pushes COMPOUND_EXPR inside TARGET_EXPR. */
7507 while (TREE_CODE (init) == COMPOUND_EXPR)
7508 init = TREE_OPERAND (init, 1);
7509 return (TREE_CODE (init) == AGGR_INIT_EXPR
7510 && !AGGR_INIT_VIA_CTOR_P (init));
7513 /* Subroutine of the various build_*_call functions. Overload resolution
7514 has chosen a winning candidate CAND; build up a CALL_EXPR accordingly.
7515 ARGS is a TREE_LIST of the unconverted arguments to the call. FLAGS is a
7516 bitmask of various LOOKUP_* flags which apply to the call itself. */
7518 static tree
7519 build_over_call (struct z_candidate *cand, int flags, tsubst_flags_t complain)
7521 tree fn = cand->fn;
7522 const vec<tree, va_gc> *args = cand->args;
7523 tree first_arg = cand->first_arg;
7524 conversion **convs = cand->convs;
7525 conversion *conv;
7526 tree parm = TYPE_ARG_TYPES (TREE_TYPE (fn));
7527 int parmlen;
7528 tree val;
7529 int i = 0;
7530 int j = 0;
7531 unsigned int arg_index = 0;
7532 int is_method = 0;
7533 int nargs;
7534 tree *argarray;
7535 bool already_used = false;
7537 /* In a template, there is no need to perform all of the work that
7538 is normally done. We are only interested in the type of the call
7539 expression, i.e., the return type of the function. Any semantic
7540 errors will be deferred until the template is instantiated. */
7541 if (processing_template_decl)
7543 tree expr, addr;
7544 tree return_type;
7545 const tree *argarray;
7546 unsigned int nargs;
7548 return_type = TREE_TYPE (TREE_TYPE (fn));
7549 nargs = vec_safe_length (args);
7550 if (first_arg == NULL_TREE)
7551 argarray = args->address ();
7552 else
7554 tree *alcarray;
7555 unsigned int ix;
7556 tree arg;
7558 ++nargs;
7559 alcarray = XALLOCAVEC (tree, nargs);
7560 alcarray[0] = build_this (first_arg);
7561 FOR_EACH_VEC_SAFE_ELT (args, ix, arg)
7562 alcarray[ix + 1] = arg;
7563 argarray = alcarray;
7566 addr = build_addr_func (fn, complain);
7567 if (addr == error_mark_node)
7568 return error_mark_node;
7569 expr = build_call_array_loc (input_location, return_type,
7570 addr, nargs, argarray);
7571 if (TREE_THIS_VOLATILE (fn) && cfun)
7572 current_function_returns_abnormally = 1;
7573 return convert_from_reference (expr);
7576 /* Give any warnings we noticed during overload resolution. */
7577 if (cand->warnings && (complain & tf_warning))
7579 struct candidate_warning *w;
7580 for (w = cand->warnings; w; w = w->next)
7581 joust (cand, w->loser, 1, complain);
7584 /* OK, we're actually calling this inherited constructor; set its deletedness
7585 appropriately. We can get away with doing this here because calling is
7586 the only way to refer to a constructor. */
7587 if (DECL_INHERITED_CTOR (fn))
7588 deduce_inheriting_ctor (fn);
7590 /* Make =delete work with SFINAE. */
7591 if (DECL_DELETED_FN (fn) && !(complain & tf_error))
7592 return error_mark_node;
7594 if (DECL_FUNCTION_MEMBER_P (fn))
7596 tree access_fn;
7597 /* If FN is a template function, two cases must be considered.
7598 For example:
7600 struct A {
7601 protected:
7602 template <class T> void f();
7604 template <class T> struct B {
7605 protected:
7606 void g();
7608 struct C : A, B<int> {
7609 using A::f; // #1
7610 using B<int>::g; // #2
7613 In case #1 where `A::f' is a member template, DECL_ACCESS is
7614 recorded in the primary template but not in its specialization.
7615 We check access of FN using its primary template.
7617 In case #2, where `B<int>::g' has a DECL_TEMPLATE_INFO simply
7618 because it is a member of class template B, DECL_ACCESS is
7619 recorded in the specialization `B<int>::g'. We cannot use its
7620 primary template because `B<T>::g' and `B<int>::g' may have
7621 different access. */
7622 if (DECL_TEMPLATE_INFO (fn)
7623 && DECL_MEMBER_TEMPLATE_P (DECL_TI_TEMPLATE (fn)))
7624 access_fn = DECL_TI_TEMPLATE (fn);
7625 else
7626 access_fn = fn;
7627 if (!perform_or_defer_access_check (cand->access_path, access_fn,
7628 fn, complain))
7629 return error_mark_node;
7632 /* If we're checking for implicit delete, don't bother with argument
7633 conversions. */
7634 if (flags & LOOKUP_SPECULATIVE)
7636 if (DECL_DELETED_FN (fn))
7638 if (complain & tf_error)
7639 mark_used (fn);
7640 return error_mark_node;
7642 if (cand->viable == 1)
7643 return fn;
7644 else if (!(complain & tf_error))
7645 /* Reject bad conversions now. */
7646 return error_mark_node;
7647 /* else continue to get conversion error. */
7650 /* N3276 magic doesn't apply to nested calls. */
7651 int decltype_flag = (complain & tf_decltype);
7652 complain &= ~tf_decltype;
7654 /* Find maximum size of vector to hold converted arguments. */
7655 parmlen = list_length (parm);
7656 nargs = vec_safe_length (args) + (first_arg != NULL_TREE ? 1 : 0);
7657 if (parmlen > nargs)
7658 nargs = parmlen;
7659 argarray = XALLOCAVEC (tree, nargs);
7661 /* The implicit parameters to a constructor are not considered by overload
7662 resolution, and must be of the proper type. */
7663 if (DECL_CONSTRUCTOR_P (fn))
7665 tree object_arg;
7666 if (first_arg != NULL_TREE)
7668 object_arg = first_arg;
7669 first_arg = NULL_TREE;
7671 else
7673 object_arg = (*args)[arg_index];
7674 ++arg_index;
7676 argarray[j++] = build_this (object_arg);
7677 parm = TREE_CHAIN (parm);
7678 /* We should never try to call the abstract constructor. */
7679 gcc_assert (!DECL_HAS_IN_CHARGE_PARM_P (fn));
7681 if (DECL_HAS_VTT_PARM_P (fn))
7683 argarray[j++] = (*args)[arg_index];
7684 ++arg_index;
7685 parm = TREE_CHAIN (parm);
7688 /* Bypass access control for 'this' parameter. */
7689 else if (TREE_CODE (TREE_TYPE (fn)) == METHOD_TYPE)
7691 tree parmtype = TREE_VALUE (parm);
7692 tree arg = build_this (first_arg != NULL_TREE
7693 ? first_arg
7694 : (*args)[arg_index]);
7695 tree argtype = TREE_TYPE (arg);
7696 tree converted_arg;
7697 tree base_binfo;
7699 if (convs[i]->bad_p)
7701 if (complain & tf_error)
7703 if (permerror (input_location, "passing %qT as %<this%> "
7704 "argument discards qualifiers",
7705 TREE_TYPE (argtype)))
7706 inform (DECL_SOURCE_LOCATION (fn), " in call to %qD", fn);
7708 else
7709 return error_mark_node;
7712 /* See if the function member or the whole class type is declared
7713 final and the call can be devirtualized. */
7714 if (DECL_FINAL_P (fn)
7715 || CLASSTYPE_FINAL (TYPE_METHOD_BASETYPE (TREE_TYPE (fn))))
7716 flags |= LOOKUP_NONVIRTUAL;
7718 /* [class.mfct.nonstatic]: If a nonstatic member function of a class
7719 X is called for an object that is not of type X, or of a type
7720 derived from X, the behavior is undefined.
7722 So we can assume that anything passed as 'this' is non-null, and
7723 optimize accordingly. */
7724 gcc_assert (TYPE_PTR_P (parmtype));
7725 /* Convert to the base in which the function was declared. */
7726 gcc_assert (cand->conversion_path != NULL_TREE);
7727 converted_arg = build_base_path (PLUS_EXPR,
7728 arg,
7729 cand->conversion_path,
7730 1, complain);
7731 /* Check that the base class is accessible. */
7732 if (!accessible_base_p (TREE_TYPE (argtype),
7733 BINFO_TYPE (cand->conversion_path), true))
7735 if (complain & tf_error)
7736 error ("%qT is not an accessible base of %qT",
7737 BINFO_TYPE (cand->conversion_path),
7738 TREE_TYPE (argtype));
7739 else
7740 return error_mark_node;
7742 /* If fn was found by a using declaration, the conversion path
7743 will be to the derived class, not the base declaring fn. We
7744 must convert from derived to base. */
7745 base_binfo = lookup_base (TREE_TYPE (TREE_TYPE (converted_arg)),
7746 TREE_TYPE (parmtype), ba_unique,
7747 NULL, complain);
7748 converted_arg = build_base_path (PLUS_EXPR, converted_arg,
7749 base_binfo, 1, complain);
7751 argarray[j++] = converted_arg;
7752 parm = TREE_CHAIN (parm);
7753 if (first_arg != NULL_TREE)
7754 first_arg = NULL_TREE;
7755 else
7756 ++arg_index;
7757 ++i;
7758 is_method = 1;
7761 gcc_assert (first_arg == NULL_TREE);
7762 for (; arg_index < vec_safe_length (args) && parm;
7763 parm = TREE_CHAIN (parm), ++arg_index, ++i)
7765 tree type = TREE_VALUE (parm);
7766 tree arg = (*args)[arg_index];
7767 bool conversion_warning = true;
7769 conv = convs[i];
7771 /* If the argument is NULL and used to (implicitly) instantiate a
7772 template function (and bind one of the template arguments to
7773 the type of 'long int'), we don't want to warn about passing NULL
7774 to non-pointer argument.
7775 For example, if we have this template function:
7777 template<typename T> void func(T x) {}
7779 we want to warn (when -Wconversion is enabled) in this case:
7781 void foo() {
7782 func<int>(NULL);
7785 but not in this case:
7787 void foo() {
7788 func(NULL);
7791 if (arg == null_node
7792 && DECL_TEMPLATE_INFO (fn)
7793 && cand->template_decl
7794 && !(flags & LOOKUP_EXPLICIT_TMPL_ARGS))
7795 conversion_warning = false;
7797 /* Warn about initializer_list deduction that isn't currently in the
7798 working draft. */
7799 if (cxx_dialect > cxx98
7800 && flag_deduce_init_list
7801 && cand->template_decl
7802 && is_std_init_list (non_reference (type))
7803 && BRACE_ENCLOSED_INITIALIZER_P (arg))
7805 tree tmpl = TI_TEMPLATE (cand->template_decl);
7806 tree realparm = chain_index (j, DECL_ARGUMENTS (cand->fn));
7807 tree patparm = get_pattern_parm (realparm, tmpl);
7808 tree pattype = TREE_TYPE (patparm);
7809 if (PACK_EXPANSION_P (pattype))
7810 pattype = PACK_EXPANSION_PATTERN (pattype);
7811 pattype = non_reference (pattype);
7813 if (TREE_CODE (pattype) == TEMPLATE_TYPE_PARM
7814 && (cand->explicit_targs == NULL_TREE
7815 || (TREE_VEC_LENGTH (cand->explicit_targs)
7816 <= TEMPLATE_TYPE_IDX (pattype))))
7818 pedwarn (input_location, 0, "deducing %qT as %qT",
7819 non_reference (TREE_TYPE (patparm)),
7820 non_reference (type));
7821 pedwarn (DECL_SOURCE_LOCATION (cand->fn), 0,
7822 " in call to %qD", cand->fn);
7823 pedwarn (input_location, 0,
7824 " (you can disable this with -fno-deduce-init-list)");
7828 /* Set user_conv_p on the argument conversions, so rvalue/base handling
7829 knows not to allow any more UDCs. This needs to happen after we
7830 process cand->warnings. */
7831 if (flags & LOOKUP_NO_CONVERSION)
7832 conv->user_conv_p = true;
7834 val = convert_like_with_context (conv, arg, fn, i - is_method,
7835 conversion_warning
7836 ? complain
7837 : complain & (~tf_warning));
7839 val = convert_for_arg_passing (type, val, complain);
7841 if (val == error_mark_node)
7842 return error_mark_node;
7843 else
7844 argarray[j++] = val;
7847 /* Default arguments */
7848 for (; parm && parm != void_list_node; parm = TREE_CHAIN (parm), i++)
7850 if (TREE_VALUE (parm) == error_mark_node)
7851 return error_mark_node;
7852 argarray[j++] = convert_default_arg (TREE_VALUE (parm),
7853 TREE_PURPOSE (parm),
7854 fn, i - is_method,
7855 complain);
7858 /* Ellipsis */
7859 int magic = magic_varargs_p (fn);
7860 for (; arg_index < vec_safe_length (args); ++arg_index)
7862 tree a = (*args)[arg_index];
7863 if ((magic == 3 && arg_index == 2) || magic == 2)
7865 /* Do no conversions for certain magic varargs. */
7866 a = mark_type_use (a);
7867 if (TREE_CODE (a) == FUNCTION_DECL && reject_gcc_builtin (a))
7868 return error_mark_node;
7870 else if (magic != 0)
7871 /* For other magic varargs only do decay_conversion. */
7872 a = decay_conversion (a, complain);
7873 else if (DECL_CONSTRUCTOR_P (fn)
7874 && same_type_ignoring_top_level_qualifiers_p (DECL_CONTEXT (fn),
7875 TREE_TYPE (a)))
7877 /* Avoid infinite recursion trying to call A(...). */
7878 if (complain & tf_error)
7879 /* Try to call the actual copy constructor for a good error. */
7880 call_copy_ctor (a, complain);
7881 return error_mark_node;
7883 else
7884 a = convert_arg_to_ellipsis (a, complain);
7885 if (a == error_mark_node)
7886 return error_mark_node;
7887 argarray[j++] = a;
7890 gcc_assert (j <= nargs);
7891 nargs = j;
7893 /* Avoid to do argument-transformation, if warnings for format, and for
7894 nonnull are disabled. Just in case that at least one of them is active
7895 the check_function_arguments function might warn about something. */
7897 bool warned_p = false;
7898 if (warn_nonnull || warn_format || warn_suggest_attribute_format)
7900 tree *fargs = (!nargs ? argarray
7901 : (tree *) alloca (nargs * sizeof (tree)));
7902 for (j = 0; j < nargs; j++)
7903 fargs[j] = maybe_constant_value (argarray[j]);
7905 warned_p = check_function_arguments (input_location, TREE_TYPE (fn),
7906 nargs, fargs);
7909 if (DECL_INHERITED_CTOR (fn))
7911 /* Check for passing ellipsis arguments to an inherited constructor. We
7912 could handle this by open-coding the inherited constructor rather than
7913 defining it, but let's not bother now. */
7914 if (!cp_unevaluated_operand
7915 && cand->num_convs
7916 && cand->convs[cand->num_convs-1]->ellipsis_p)
7918 if (complain & tf_error)
7920 sorry ("passing arguments to ellipsis of inherited constructor "
7921 "%qD", cand->fn);
7922 inform (DECL_SOURCE_LOCATION (cand->fn), "declared here");
7924 return error_mark_node;
7927 /* A base constructor inheriting from a virtual base doesn't get the
7928 inherited arguments, just this and __vtt. */
7929 if (ctor_omit_inherited_parms (fn))
7930 nargs = 2;
7933 /* Avoid actually calling copy constructors and copy assignment operators,
7934 if possible. */
7936 if (! flag_elide_constructors)
7937 /* Do things the hard way. */;
7938 else if (cand->num_convs == 1
7939 && (DECL_COPY_CONSTRUCTOR_P (fn)
7940 || DECL_MOVE_CONSTRUCTOR_P (fn))
7941 /* It's unsafe to elide the constructor when handling
7942 a noexcept-expression, it may evaluate to the wrong
7943 value (c++/53025). */
7944 && cp_noexcept_operand == 0)
7946 tree targ;
7947 tree arg = argarray[num_artificial_parms_for (fn)];
7948 tree fa;
7949 bool trivial = trivial_fn_p (fn);
7951 /* Pull out the real argument, disregarding const-correctness. */
7952 targ = arg;
7953 while (CONVERT_EXPR_P (targ)
7954 || TREE_CODE (targ) == NON_LVALUE_EXPR)
7955 targ = TREE_OPERAND (targ, 0);
7956 if (TREE_CODE (targ) == ADDR_EXPR)
7958 targ = TREE_OPERAND (targ, 0);
7959 if (!same_type_ignoring_top_level_qualifiers_p
7960 (TREE_TYPE (TREE_TYPE (arg)), TREE_TYPE (targ)))
7961 targ = NULL_TREE;
7963 else
7964 targ = NULL_TREE;
7966 if (targ)
7967 arg = targ;
7968 else
7969 arg = cp_build_indirect_ref (arg, RO_NULL, complain);
7971 /* In C++17 we shouldn't be copying a TARGET_EXPR except into a base
7972 subobject. */
7973 if (CHECKING_P && cxx_dialect >= cxx1z)
7974 gcc_assert (TREE_CODE (arg) != TARGET_EXPR
7975 || seen_error ()
7976 /* See unsafe_copy_elision_p. */
7977 || DECL_BASE_CONSTRUCTOR_P (fn));
7979 /* [class.copy]: the copy constructor is implicitly defined even if
7980 the implementation elided its use. */
7981 if (!trivial || DECL_DELETED_FN (fn))
7983 if (!mark_used (fn, complain) && !(complain & tf_error))
7984 return error_mark_node;
7985 already_used = true;
7988 /* If we're creating a temp and we already have one, don't create a
7989 new one. If we're not creating a temp but we get one, use
7990 INIT_EXPR to collapse the temp into our target. Otherwise, if the
7991 ctor is trivial, do a bitwise copy with a simple TARGET_EXPR for a
7992 temp or an INIT_EXPR otherwise. */
7993 fa = argarray[0];
7994 if (is_dummy_object (fa))
7996 if (TREE_CODE (arg) == TARGET_EXPR)
7997 return arg;
7998 else if (trivial)
7999 return force_target_expr (DECL_CONTEXT (fn), arg, complain);
8001 else if ((trivial || TREE_CODE (arg) == TARGET_EXPR)
8002 && !unsafe_copy_elision_p (fa, arg))
8004 tree to = cp_stabilize_reference (cp_build_indirect_ref (fa,
8005 RO_NULL,
8006 complain));
8008 val = build2 (INIT_EXPR, DECL_CONTEXT (fn), to, arg);
8009 return val;
8012 else if (DECL_OVERLOADED_OPERATOR_P (fn) == NOP_EXPR
8013 && trivial_fn_p (fn)
8014 && !DECL_DELETED_FN (fn))
8016 tree to = cp_stabilize_reference
8017 (cp_build_indirect_ref (argarray[0], RO_NULL, complain));
8018 tree type = TREE_TYPE (to);
8019 tree as_base = CLASSTYPE_AS_BASE (type);
8020 tree arg = argarray[1];
8022 if (is_really_empty_class (type))
8024 /* Avoid copying empty classes. */
8025 val = build2 (COMPOUND_EXPR, type, arg, to);
8026 TREE_NO_WARNING (val) = 1;
8028 else if (tree_int_cst_equal (TYPE_SIZE (type), TYPE_SIZE (as_base)))
8030 arg = cp_build_indirect_ref (arg, RO_NULL, complain);
8031 val = build2 (MODIFY_EXPR, TREE_TYPE (to), to, arg);
8033 else
8035 /* We must only copy the non-tail padding parts. */
8036 tree arg0, arg2, t;
8037 tree array_type, alias_set;
8039 arg2 = TYPE_SIZE_UNIT (as_base);
8040 arg0 = cp_build_addr_expr (to, complain);
8042 array_type = build_array_type (unsigned_char_type_node,
8043 build_index_type
8044 (size_binop (MINUS_EXPR,
8045 arg2, size_int (1))));
8046 alias_set = build_int_cst (build_pointer_type (type), 0);
8047 t = build2 (MODIFY_EXPR, void_type_node,
8048 build2 (MEM_REF, array_type, arg0, alias_set),
8049 build2 (MEM_REF, array_type, arg, alias_set));
8050 val = build2 (COMPOUND_EXPR, TREE_TYPE (to), t, to);
8051 TREE_NO_WARNING (val) = 1;
8054 return val;
8056 else if (!DECL_DELETED_FN (fn)
8057 && trivial_fn_p (fn))
8059 if (DECL_DESTRUCTOR_P (fn))
8060 return fold_convert (void_type_node, argarray[0]);
8061 else if (default_ctor_p (fn))
8063 if (is_dummy_object (argarray[0]))
8064 return force_target_expr (DECL_CONTEXT (fn), void_node, complain);
8065 else
8066 return cp_build_indirect_ref (argarray[0], RO_NULL, complain);
8070 /* For calls to a multi-versioned function, overload resolution
8071 returns the function with the highest target priority, that is,
8072 the version that will checked for dispatching first. If this
8073 version is inlinable, a direct call to this version can be made
8074 otherwise the call should go through the dispatcher. */
8076 if (DECL_FUNCTION_VERSIONED (fn)
8077 && (current_function_decl == NULL
8078 || !targetm.target_option.can_inline_p (current_function_decl, fn)))
8080 fn = get_function_version_dispatcher (fn);
8081 if (fn == NULL)
8082 return NULL;
8083 if (!already_used)
8084 mark_versions_used (fn);
8087 if (!already_used
8088 && !mark_used (fn, complain))
8089 return error_mark_node;
8091 if (DECL_VINDEX (fn) && (flags & LOOKUP_NONVIRTUAL) == 0
8092 /* Don't mess with virtual lookup in instantiate_non_dependent_expr;
8093 virtual functions can't be constexpr. */
8094 && !in_template_function ())
8096 tree t;
8097 tree binfo = lookup_base (TREE_TYPE (TREE_TYPE (argarray[0])),
8098 DECL_CONTEXT (fn),
8099 ba_any, NULL, complain);
8100 gcc_assert (binfo && binfo != error_mark_node);
8102 argarray[0] = build_base_path (PLUS_EXPR, argarray[0], binfo, 1,
8103 complain);
8104 if (TREE_SIDE_EFFECTS (argarray[0]))
8105 argarray[0] = save_expr (argarray[0]);
8106 t = build_pointer_type (TREE_TYPE (fn));
8107 fn = build_vfn_ref (argarray[0], DECL_VINDEX (fn));
8108 TREE_TYPE (fn) = t;
8110 else
8112 fn = build_addr_func (fn, complain);
8113 if (fn == error_mark_node)
8114 return error_mark_node;
8117 tree call = build_cxx_call (fn, nargs, argarray, complain|decltype_flag);
8118 if (call == error_mark_node)
8119 return call;
8120 if (cand->flags & LOOKUP_LIST_INIT_CTOR)
8122 tree c = extract_call_expr (call);
8123 /* build_new_op_1 will clear this when appropriate. */
8124 CALL_EXPR_ORDERED_ARGS (c) = true;
8126 if (warned_p)
8128 tree c = extract_call_expr (call);
8129 if (TREE_CODE (c) == CALL_EXPR)
8130 TREE_NO_WARNING (c) = 1;
8132 return call;
8135 /* Build and return a call to FN, using NARGS arguments in ARGARRAY.
8136 This function performs no overload resolution, conversion, or other
8137 high-level operations. */
8139 tree
8140 build_cxx_call (tree fn, int nargs, tree *argarray,
8141 tsubst_flags_t complain)
8143 tree fndecl;
8145 /* Remember roughly where this call is. */
8146 location_t loc = EXPR_LOC_OR_LOC (fn, input_location);
8147 fn = build_call_a (fn, nargs, argarray);
8148 SET_EXPR_LOCATION (fn, loc);
8150 fndecl = get_callee_fndecl (fn);
8152 /* Check that arguments to builtin functions match the expectations. */
8153 if (fndecl
8154 && DECL_BUILT_IN (fndecl)
8155 && DECL_BUILT_IN_CLASS (fndecl) == BUILT_IN_NORMAL)
8157 int i;
8159 /* We need to take care that values to BUILT_IN_NORMAL
8160 are reduced. */
8161 for (i = 0; i < nargs; i++)
8162 argarray[i] = fold_non_dependent_expr (argarray[i]);
8164 if (!check_builtin_function_arguments (EXPR_LOCATION (fn), vNULL, fndecl,
8165 nargs, argarray))
8166 return error_mark_node;
8169 /* If it is a built-in array notation function, then the return type of
8170 the function is the element type of the array passed in as array
8171 notation (i.e. the first parameter of the function). */
8172 if (flag_cilkplus && TREE_CODE (fn) == CALL_EXPR)
8174 enum built_in_function bif =
8175 is_cilkplus_reduce_builtin (CALL_EXPR_FN (fn));
8176 if (bif == BUILT_IN_CILKPLUS_SEC_REDUCE_ADD
8177 || bif == BUILT_IN_CILKPLUS_SEC_REDUCE_MUL
8178 || bif == BUILT_IN_CILKPLUS_SEC_REDUCE_MAX
8179 || bif == BUILT_IN_CILKPLUS_SEC_REDUCE_MIN
8180 || bif == BUILT_IN_CILKPLUS_SEC_REDUCE
8181 || bif == BUILT_IN_CILKPLUS_SEC_REDUCE_MUTATING)
8183 if (call_expr_nargs (fn) == 0)
8185 error_at (EXPR_LOCATION (fn), "Invalid builtin arguments");
8186 return error_mark_node;
8188 /* for bif == BUILT_IN_CILKPLUS_SEC_REDUCE_ALL_ZERO or
8189 BUILT_IN_CILKPLUS_SEC_REDUCE_ANY_ZERO or
8190 BUILT_IN_CILKPLUS_SEC_REDUCE_ANY_NONZERO or
8191 BUILT_IN_CILKPLUS_SEC_REDUCE_ALL_NONZERO or
8192 BUILT_IN_CILKPLUS_SEC_REDUCE_MIN_IND or
8193 BUILT_IN_CILKPLUS_SEC_REDUCE_MAX_IND
8194 The pre-defined return-type is the correct one. */
8195 tree array_ntn = CALL_EXPR_ARG (fn, 0);
8196 TREE_TYPE (fn) = TREE_TYPE (array_ntn);
8197 return fn;
8201 if (VOID_TYPE_P (TREE_TYPE (fn)))
8202 return fn;
8204 /* 5.2.2/11: If a function call is a prvalue of object type: if the
8205 function call is either the operand of a decltype-specifier or the
8206 right operand of a comma operator that is the operand of a
8207 decltype-specifier, a temporary object is not introduced for the
8208 prvalue. The type of the prvalue may be incomplete. */
8209 if (!(complain & tf_decltype))
8211 fn = require_complete_type_sfinae (fn, complain);
8212 if (fn == error_mark_node)
8213 return error_mark_node;
8215 if (MAYBE_CLASS_TYPE_P (TREE_TYPE (fn)))
8216 fn = build_cplus_new (TREE_TYPE (fn), fn, complain);
8218 return convert_from_reference (fn);
8221 /* Returns the value to use for the in-charge parameter when making a
8222 call to a function with the indicated NAME.
8224 FIXME:Can't we find a neater way to do this mapping? */
8226 tree
8227 in_charge_arg_for_name (tree name)
8229 if (name == base_ctor_identifier
8230 || name == base_dtor_identifier)
8231 return integer_zero_node;
8232 else if (name == complete_ctor_identifier)
8233 return integer_one_node;
8234 else if (name == complete_dtor_identifier)
8235 return integer_two_node;
8236 else if (name == deleting_dtor_identifier)
8237 return integer_three_node;
8239 /* This function should only be called with one of the names listed
8240 above. */
8241 gcc_unreachable ();
8242 return NULL_TREE;
8245 /* We've built up a constructor call RET. Complain if it delegates to the
8246 constructor we're currently compiling. */
8248 static void
8249 check_self_delegation (tree ret)
8251 if (TREE_CODE (ret) == TARGET_EXPR)
8252 ret = TARGET_EXPR_INITIAL (ret);
8253 tree fn = cp_get_callee_fndecl (ret);
8254 if (fn && DECL_ABSTRACT_ORIGIN (fn) == current_function_decl)
8255 error ("constructor delegates to itself");
8258 /* Build a call to a constructor, destructor, or an assignment
8259 operator for INSTANCE, an expression with class type. NAME
8260 indicates the special member function to call; *ARGS are the
8261 arguments. ARGS may be NULL. This may change ARGS. BINFO
8262 indicates the base of INSTANCE that is to be passed as the `this'
8263 parameter to the member function called.
8265 FLAGS are the LOOKUP_* flags to use when processing the call.
8267 If NAME indicates a complete object constructor, INSTANCE may be
8268 NULL_TREE. In this case, the caller will call build_cplus_new to
8269 store the newly constructed object into a VAR_DECL. */
8271 tree
8272 build_special_member_call (tree instance, tree name, vec<tree, va_gc> **args,
8273 tree binfo, int flags, tsubst_flags_t complain)
8275 tree fns;
8276 /* The type of the subobject to be constructed or destroyed. */
8277 tree class_type;
8278 vec<tree, va_gc> *allocated = NULL;
8279 tree ret;
8281 gcc_assert (name == complete_ctor_identifier
8282 || name == base_ctor_identifier
8283 || name == complete_dtor_identifier
8284 || name == base_dtor_identifier
8285 || name == deleting_dtor_identifier
8286 || name == cp_assignment_operator_id (NOP_EXPR));
8287 if (TYPE_P (binfo))
8289 /* Resolve the name. */
8290 if (!complete_type_or_maybe_complain (binfo, NULL_TREE, complain))
8291 return error_mark_node;
8293 binfo = TYPE_BINFO (binfo);
8296 gcc_assert (binfo != NULL_TREE);
8298 class_type = BINFO_TYPE (binfo);
8300 /* Handle the special case where INSTANCE is NULL_TREE. */
8301 if (name == complete_ctor_identifier && !instance)
8302 instance = build_dummy_object (class_type);
8303 else
8305 if (name == complete_dtor_identifier
8306 || name == base_dtor_identifier
8307 || name == deleting_dtor_identifier)
8308 gcc_assert (args == NULL || vec_safe_is_empty (*args));
8310 /* Convert to the base class, if necessary. */
8311 if (!same_type_ignoring_top_level_qualifiers_p
8312 (TREE_TYPE (instance), BINFO_TYPE (binfo)))
8314 if (name != cp_assignment_operator_id (NOP_EXPR))
8315 /* For constructors and destructors, either the base is
8316 non-virtual, or it is virtual but we are doing the
8317 conversion from a constructor or destructor for the
8318 complete object. In either case, we can convert
8319 statically. */
8320 instance = convert_to_base_statically (instance, binfo);
8321 else
8322 /* However, for assignment operators, we must convert
8323 dynamically if the base is virtual. */
8324 instance = build_base_path (PLUS_EXPR, instance,
8325 binfo, /*nonnull=*/1, complain);
8329 gcc_assert (instance != NULL_TREE);
8331 /* In C++17, "If the initializer expression is a prvalue and the
8332 cv-unqualified version of the source type is the same class as the class
8333 of the destination, the initializer expression is used to initialize the
8334 destination object." Handle that here to avoid doing overload
8335 resolution. */
8336 if (cxx_dialect >= cxx1z
8337 && args && vec_safe_length (*args) == 1
8338 && name == complete_ctor_identifier)
8340 tree arg = (**args)[0];
8342 /* FIXME P0135 doesn't say how to handle direct initialization from a
8343 type with a suitable conversion operator. Let's handle it like
8344 copy-initialization, but allowing explict conversions. */
8345 if (!reference_related_p (class_type, TREE_TYPE (arg)))
8346 arg = perform_implicit_conversion_flags (class_type, arg,
8347 tf_warning, flags);
8348 if ((TREE_CODE (arg) == TARGET_EXPR
8349 || TREE_CODE (arg) == CONSTRUCTOR)
8350 && (same_type_ignoring_top_level_qualifiers_p
8351 (class_type, TREE_TYPE (arg))))
8353 if (is_dummy_object (instance))
8354 return arg;
8355 if ((complain & tf_error)
8356 && (flags & LOOKUP_DELEGATING_CONS))
8357 check_self_delegation (arg);
8358 /* Avoid change of behavior on Wunused-var-2.C. */
8359 mark_lvalue_use (instance);
8360 return build2 (INIT_EXPR, class_type, instance, arg);
8364 fns = lookup_fnfields (binfo, name, 1);
8366 /* When making a call to a constructor or destructor for a subobject
8367 that uses virtual base classes, pass down a pointer to a VTT for
8368 the subobject. */
8369 if ((name == base_ctor_identifier
8370 || name == base_dtor_identifier)
8371 && CLASSTYPE_VBASECLASSES (class_type))
8373 tree vtt;
8374 tree sub_vtt;
8376 /* If the current function is a complete object constructor
8377 or destructor, then we fetch the VTT directly.
8378 Otherwise, we look it up using the VTT we were given. */
8379 vtt = DECL_CHAIN (CLASSTYPE_VTABLES (current_class_type));
8380 vtt = decay_conversion (vtt, complain);
8381 if (vtt == error_mark_node)
8382 return error_mark_node;
8383 vtt = build_if_in_charge (vtt, current_vtt_parm);
8384 if (BINFO_SUBVTT_INDEX (binfo))
8385 sub_vtt = fold_build_pointer_plus (vtt, BINFO_SUBVTT_INDEX (binfo));
8386 else
8387 sub_vtt = vtt;
8389 if (args == NULL)
8391 allocated = make_tree_vector ();
8392 args = &allocated;
8395 vec_safe_insert (*args, 0, sub_vtt);
8398 ret = build_new_method_call (instance, fns, args,
8399 TYPE_BINFO (BINFO_TYPE (binfo)),
8400 flags, /*fn=*/NULL,
8401 complain);
8403 if (allocated != NULL)
8404 release_tree_vector (allocated);
8406 if ((complain & tf_error)
8407 && (flags & LOOKUP_DELEGATING_CONS)
8408 && name == complete_ctor_identifier)
8409 check_self_delegation (ret);
8411 return ret;
8414 /* Return the NAME, as a C string. The NAME indicates a function that
8415 is a member of TYPE. *FREE_P is set to true if the caller must
8416 free the memory returned.
8418 Rather than go through all of this, we should simply set the names
8419 of constructors and destructors appropriately, and dispense with
8420 ctor_identifier, dtor_identifier, etc. */
8422 static char *
8423 name_as_c_string (tree name, tree type, bool *free_p)
8425 char *pretty_name;
8427 /* Assume that we will not allocate memory. */
8428 *free_p = false;
8429 /* Constructors and destructors are special. */
8430 if (IDENTIFIER_CTOR_OR_DTOR_P (name))
8432 pretty_name
8433 = CONST_CAST (char *, identifier_to_locale (IDENTIFIER_POINTER (constructor_name (type))));
8434 /* For a destructor, add the '~'. */
8435 if (name == complete_dtor_identifier
8436 || name == base_dtor_identifier
8437 || name == deleting_dtor_identifier)
8439 pretty_name = concat ("~", pretty_name, NULL);
8440 /* Remember that we need to free the memory allocated. */
8441 *free_p = true;
8444 else if (IDENTIFIER_TYPENAME_P (name))
8446 pretty_name = concat ("operator ",
8447 type_as_string_translate (TREE_TYPE (name),
8448 TFF_PLAIN_IDENTIFIER),
8449 NULL);
8450 /* Remember that we need to free the memory allocated. */
8451 *free_p = true;
8453 else
8454 pretty_name = CONST_CAST (char *, identifier_to_locale (IDENTIFIER_POINTER (name)));
8456 return pretty_name;
8459 /* Build a call to "INSTANCE.FN (ARGS)". If FN_P is non-NULL, it will
8460 be set, upon return, to the function called. ARGS may be NULL.
8461 This may change ARGS. */
8463 static tree
8464 build_new_method_call_1 (tree instance, tree fns, vec<tree, va_gc> **args,
8465 tree conversion_path, int flags,
8466 tree *fn_p, tsubst_flags_t complain)
8468 struct z_candidate *candidates = 0, *cand;
8469 tree explicit_targs = NULL_TREE;
8470 tree basetype = NULL_TREE;
8471 tree access_binfo, binfo;
8472 tree optype;
8473 tree first_mem_arg = NULL_TREE;
8474 tree name;
8475 bool skip_first_for_error;
8476 vec<tree, va_gc> *user_args;
8477 tree call;
8478 tree fn;
8479 int template_only = 0;
8480 bool any_viable_p;
8481 tree orig_instance;
8482 tree orig_fns;
8483 vec<tree, va_gc> *orig_args = NULL;
8484 void *p;
8486 gcc_assert (instance != NULL_TREE);
8488 /* We don't know what function we're going to call, yet. */
8489 if (fn_p)
8490 *fn_p = NULL_TREE;
8492 if (error_operand_p (instance)
8493 || !fns || error_operand_p (fns))
8494 return error_mark_node;
8496 if (!BASELINK_P (fns))
8498 if (complain & tf_error)
8499 error ("call to non-function %qD", fns);
8500 return error_mark_node;
8503 orig_instance = instance;
8504 orig_fns = fns;
8506 /* Dismantle the baselink to collect all the information we need. */
8507 if (!conversion_path)
8508 conversion_path = BASELINK_BINFO (fns);
8509 access_binfo = BASELINK_ACCESS_BINFO (fns);
8510 binfo = BASELINK_BINFO (fns);
8511 optype = BASELINK_OPTYPE (fns);
8512 fns = BASELINK_FUNCTIONS (fns);
8513 if (TREE_CODE (fns) == TEMPLATE_ID_EXPR)
8515 explicit_targs = TREE_OPERAND (fns, 1);
8516 fns = TREE_OPERAND (fns, 0);
8517 template_only = 1;
8519 gcc_assert (TREE_CODE (fns) == FUNCTION_DECL
8520 || TREE_CODE (fns) == TEMPLATE_DECL
8521 || TREE_CODE (fns) == OVERLOAD);
8522 fn = get_first_fn (fns);
8523 name = DECL_NAME (fn);
8525 basetype = TYPE_MAIN_VARIANT (TREE_TYPE (instance));
8526 gcc_assert (CLASS_TYPE_P (basetype));
8528 if (processing_template_decl)
8530 orig_args = args == NULL ? NULL : make_tree_vector_copy (*args);
8531 instance = build_non_dependent_expr (instance);
8532 if (args != NULL)
8533 make_args_non_dependent (*args);
8536 user_args = args == NULL ? NULL : *args;
8537 /* Under DR 147 A::A() is an invalid constructor call,
8538 not a functional cast. */
8539 if (DECL_MAYBE_IN_CHARGE_CONSTRUCTOR_P (fn))
8541 if (! (complain & tf_error))
8542 return error_mark_node;
8544 if (permerror (input_location,
8545 "cannot call constructor %<%T::%D%> directly",
8546 basetype, name))
8547 inform (input_location, "for a function-style cast, remove the "
8548 "redundant %<::%D%>", name);
8549 call = build_functional_cast (basetype, build_tree_list_vec (user_args),
8550 complain);
8551 return call;
8554 /* Figure out whether to skip the first argument for the error
8555 message we will display to users if an error occurs. We don't
8556 want to display any compiler-generated arguments. The "this"
8557 pointer hasn't been added yet. However, we must remove the VTT
8558 pointer if this is a call to a base-class constructor or
8559 destructor. */
8560 skip_first_for_error = false;
8561 if (IDENTIFIER_CTOR_OR_DTOR_P (name))
8563 /* Callers should explicitly indicate whether they want to construct
8564 the complete object or just the part without virtual bases. */
8565 gcc_assert (name != ctor_identifier);
8566 /* Similarly for destructors. */
8567 gcc_assert (name != dtor_identifier);
8568 /* Remove the VTT pointer, if present. */
8569 if ((name == base_ctor_identifier || name == base_dtor_identifier)
8570 && CLASSTYPE_VBASECLASSES (basetype))
8571 skip_first_for_error = true;
8574 /* Process the argument list. */
8575 if (args != NULL && *args != NULL)
8577 *args = resolve_args (*args, complain);
8578 if (*args == NULL)
8579 return error_mark_node;
8582 /* Consider the object argument to be used even if we end up selecting a
8583 static member function. */
8584 instance = mark_type_use (instance);
8586 /* It's OK to call destructors and constructors on cv-qualified objects.
8587 Therefore, convert the INSTANCE to the unqualified type, if
8588 necessary. */
8589 if (DECL_DESTRUCTOR_P (fn)
8590 || DECL_CONSTRUCTOR_P (fn))
8592 if (!same_type_p (basetype, TREE_TYPE (instance)))
8594 instance = build_this (instance);
8595 instance = build_nop (build_pointer_type (basetype), instance);
8596 instance = build_fold_indirect_ref (instance);
8599 if (DECL_DESTRUCTOR_P (fn))
8600 name = complete_dtor_identifier;
8602 /* For the overload resolution we need to find the actual `this`
8603 that would be captured if the call turns out to be to a
8604 non-static member function. Do not actually capture it at this
8605 point. */
8606 if (DECL_CONSTRUCTOR_P (fn))
8607 /* Constructors don't use the enclosing 'this'. */
8608 first_mem_arg = instance;
8609 else
8610 first_mem_arg = maybe_resolve_dummy (instance, false);
8612 /* Get the high-water mark for the CONVERSION_OBSTACK. */
8613 p = conversion_obstack_alloc (0);
8615 /* The number of arguments artificial parms in ARGS; we subtract one because
8616 there's no 'this' in ARGS. */
8617 unsigned skip = num_artificial_parms_for (fn) - 1;
8619 /* If CONSTRUCTOR_IS_DIRECT_INIT is set, this was a T{ } form
8620 initializer, not T({ }). */
8621 if (DECL_CONSTRUCTOR_P (fn)
8622 && vec_safe_length (user_args) > skip
8623 && DIRECT_LIST_INIT_P ((*user_args)[skip]))
8625 tree init_list = (*user_args)[skip];
8626 tree init = NULL_TREE;
8628 gcc_assert (user_args->length () == skip + 1
8629 && !(flags & LOOKUP_ONLYCONVERTING));
8631 /* If the initializer list has no elements and T is a class type with
8632 a default constructor, the object is value-initialized. Handle
8633 this here so we don't need to handle it wherever we use
8634 build_special_member_call. */
8635 if (CONSTRUCTOR_NELTS (init_list) == 0
8636 && TYPE_HAS_DEFAULT_CONSTRUCTOR (basetype)
8637 /* For a user-provided default constructor, use the normal
8638 mechanisms so that protected access works. */
8639 && type_has_non_user_provided_default_constructor (basetype)
8640 && !processing_template_decl)
8641 init = build_value_init (basetype, complain);
8643 /* If BASETYPE is an aggregate, we need to do aggregate
8644 initialization. */
8645 else if (CP_AGGREGATE_TYPE_P (basetype))
8647 init = reshape_init (basetype, init_list, complain);
8648 init = digest_init (basetype, init, complain);
8651 if (init)
8653 if (is_dummy_object (instance))
8654 return get_target_expr_sfinae (init, complain);
8655 init = build2 (INIT_EXPR, TREE_TYPE (instance), instance, init);
8656 TREE_SIDE_EFFECTS (init) = true;
8657 return init;
8660 /* Otherwise go ahead with overload resolution. */
8661 add_list_candidates (fns, first_mem_arg, user_args,
8662 basetype, explicit_targs, template_only,
8663 conversion_path, access_binfo, flags,
8664 &candidates, complain);
8666 else
8668 add_candidates (fns, first_mem_arg, user_args, optype,
8669 explicit_targs, template_only, conversion_path,
8670 access_binfo, flags, &candidates, complain);
8672 any_viable_p = false;
8673 candidates = splice_viable (candidates, false, &any_viable_p);
8675 if (!any_viable_p)
8677 if (complain & tf_error)
8679 if (!COMPLETE_OR_OPEN_TYPE_P (basetype))
8680 cxx_incomplete_type_error (instance, basetype);
8681 else if (optype)
8682 error ("no matching function for call to %<%T::operator %T(%A)%#V%>",
8683 basetype, optype, build_tree_list_vec (user_args),
8684 TREE_TYPE (instance));
8685 else
8687 tree arglist = build_tree_list_vec (user_args);
8688 tree errname = name;
8689 if (IDENTIFIER_CTOR_OR_DTOR_P (errname))
8691 tree fn = DECL_ORIGIN (get_first_fn (fns));
8692 errname = DECL_NAME (fn);
8694 if (explicit_targs)
8695 errname = lookup_template_function (errname, explicit_targs);
8696 if (skip_first_for_error)
8697 arglist = TREE_CHAIN (arglist);
8698 error ("no matching function for call to %<%T::%E(%A)%#V%>",
8699 basetype, errname, arglist,
8700 TREE_TYPE (instance));
8702 print_z_candidates (location_of (name), candidates);
8704 call = error_mark_node;
8706 else
8708 cand = tourney (candidates, complain);
8709 if (cand == 0)
8711 char *pretty_name;
8712 bool free_p;
8713 tree arglist;
8715 if (complain & tf_error)
8717 pretty_name = name_as_c_string (name, basetype, &free_p);
8718 arglist = build_tree_list_vec (user_args);
8719 if (skip_first_for_error)
8720 arglist = TREE_CHAIN (arglist);
8721 if (!any_strictly_viable (candidates))
8722 error ("no matching function for call to %<%s(%A)%>",
8723 pretty_name, arglist);
8724 else
8725 error ("call of overloaded %<%s(%A)%> is ambiguous",
8726 pretty_name, arglist);
8727 print_z_candidates (location_of (name), candidates);
8728 if (free_p)
8729 free (pretty_name);
8731 call = error_mark_node;
8733 else
8735 fn = cand->fn;
8736 call = NULL_TREE;
8738 if (!(flags & LOOKUP_NONVIRTUAL)
8739 && DECL_PURE_VIRTUAL_P (fn)
8740 && instance == current_class_ref
8741 && (complain & tf_warning))
8743 /* This is not an error, it is runtime undefined
8744 behavior. */
8745 if (!current_function_decl)
8746 warning (0, "pure virtual %q#D called from "
8747 "non-static data member initializer", fn);
8748 else if (DECL_CONSTRUCTOR_P (current_function_decl)
8749 || DECL_DESTRUCTOR_P (current_function_decl))
8750 warning (0, (DECL_CONSTRUCTOR_P (current_function_decl)
8751 ? "pure virtual %q#D called from constructor"
8752 : "pure virtual %q#D called from destructor"),
8753 fn);
8756 if (TREE_CODE (TREE_TYPE (fn)) == METHOD_TYPE
8757 && !DECL_CONSTRUCTOR_P (fn)
8758 && is_dummy_object (instance))
8760 instance = maybe_resolve_dummy (instance, true);
8761 if (instance == error_mark_node)
8762 call = error_mark_node;
8763 else if (!is_dummy_object (instance))
8765 /* We captured 'this' in the current lambda now that
8766 we know we really need it. */
8767 cand->first_arg = instance;
8769 else if (any_dependent_bases_p ())
8770 /* We can't tell until instantiation time whether we can use
8771 *this as the implicit object argument. */;
8772 else
8774 if (complain & tf_error)
8775 error ("cannot call member function %qD without object",
8776 fn);
8777 call = error_mark_node;
8781 if (call != error_mark_node)
8783 /* Optimize away vtable lookup if we know that this
8784 function can't be overridden. We need to check if
8785 the context and the type where we found fn are the same,
8786 actually FN might be defined in a different class
8787 type because of a using-declaration. In this case, we
8788 do not want to perform a non-virtual call. */
8789 if (DECL_VINDEX (fn) && ! (flags & LOOKUP_NONVIRTUAL)
8790 && same_type_ignoring_top_level_qualifiers_p
8791 (DECL_CONTEXT (fn), BINFO_TYPE (binfo))
8792 && resolves_to_fixed_type_p (instance, 0))
8793 flags |= LOOKUP_NONVIRTUAL;
8794 if (explicit_targs)
8795 flags |= LOOKUP_EXPLICIT_TMPL_ARGS;
8796 /* Now we know what function is being called. */
8797 if (fn_p)
8798 *fn_p = fn;
8799 /* Build the actual CALL_EXPR. */
8800 call = build_over_call (cand, flags, complain);
8801 /* In an expression of the form `a->f()' where `f' turns
8802 out to be a static member function, `a' is
8803 none-the-less evaluated. */
8804 if (TREE_CODE (TREE_TYPE (fn)) != METHOD_TYPE
8805 && !is_dummy_object (instance)
8806 && TREE_SIDE_EFFECTS (instance))
8807 call = build2 (COMPOUND_EXPR, TREE_TYPE (call),
8808 instance, call);
8809 else if (call != error_mark_node
8810 && DECL_DESTRUCTOR_P (cand->fn)
8811 && !VOID_TYPE_P (TREE_TYPE (call)))
8812 /* An explicit call of the form "x->~X()" has type
8813 "void". However, on platforms where destructors
8814 return "this" (i.e., those where
8815 targetm.cxx.cdtor_returns_this is true), such calls
8816 will appear to have a return value of pointer type
8817 to the low-level call machinery. We do not want to
8818 change the low-level machinery, since we want to be
8819 able to optimize "delete f()" on such platforms as
8820 "operator delete(~X(f()))" (rather than generating
8821 "t = f(), ~X(t), operator delete (t)"). */
8822 call = build_nop (void_type_node, call);
8827 if (processing_template_decl && call != error_mark_node)
8829 bool cast_to_void = false;
8831 if (TREE_CODE (call) == COMPOUND_EXPR)
8832 call = TREE_OPERAND (call, 1);
8833 else if (TREE_CODE (call) == NOP_EXPR)
8835 cast_to_void = true;
8836 call = TREE_OPERAND (call, 0);
8838 if (INDIRECT_REF_P (call))
8839 call = TREE_OPERAND (call, 0);
8840 call = (build_min_non_dep_call_vec
8841 (call,
8842 build_min (COMPONENT_REF, TREE_TYPE (CALL_EXPR_FN (call)),
8843 orig_instance, orig_fns, NULL_TREE),
8844 orig_args));
8845 SET_EXPR_LOCATION (call, input_location);
8846 call = convert_from_reference (call);
8847 if (cast_to_void)
8848 call = build_nop (void_type_node, call);
8851 /* Free all the conversions we allocated. */
8852 obstack_free (&conversion_obstack, p);
8854 if (orig_args != NULL)
8855 release_tree_vector (orig_args);
8857 return call;
8860 /* Wrapper for above. */
8862 tree
8863 build_new_method_call (tree instance, tree fns, vec<tree, va_gc> **args,
8864 tree conversion_path, int flags,
8865 tree *fn_p, tsubst_flags_t complain)
8867 tree ret;
8868 bool subtime = timevar_cond_start (TV_OVERLOAD);
8869 ret = build_new_method_call_1 (instance, fns, args, conversion_path, flags,
8870 fn_p, complain);
8871 timevar_cond_stop (TV_OVERLOAD, subtime);
8872 return ret;
8875 /* Returns true iff standard conversion sequence ICS1 is a proper
8876 subsequence of ICS2. */
8878 static bool
8879 is_subseq (conversion *ics1, conversion *ics2)
8881 /* We can assume that a conversion of the same code
8882 between the same types indicates a subsequence since we only get
8883 here if the types we are converting from are the same. */
8885 while (ics1->kind == ck_rvalue
8886 || ics1->kind == ck_lvalue)
8887 ics1 = next_conversion (ics1);
8889 while (1)
8891 while (ics2->kind == ck_rvalue
8892 || ics2->kind == ck_lvalue)
8893 ics2 = next_conversion (ics2);
8895 if (ics2->kind == ck_user
8896 || ics2->kind == ck_ambig
8897 || ics2->kind == ck_aggr
8898 || ics2->kind == ck_list
8899 || ics2->kind == ck_identity)
8900 /* At this point, ICS1 cannot be a proper subsequence of
8901 ICS2. We can get a USER_CONV when we are comparing the
8902 second standard conversion sequence of two user conversion
8903 sequences. */
8904 return false;
8906 ics2 = next_conversion (ics2);
8908 while (ics2->kind == ck_rvalue
8909 || ics2->kind == ck_lvalue)
8910 ics2 = next_conversion (ics2);
8912 if (ics2->kind == ics1->kind
8913 && same_type_p (ics2->type, ics1->type)
8914 && (ics1->kind == ck_identity
8915 || same_type_p (next_conversion (ics2)->type,
8916 next_conversion (ics1)->type)))
8917 return true;
8921 /* Returns nonzero iff DERIVED is derived from BASE. The inputs may
8922 be any _TYPE nodes. */
8924 bool
8925 is_properly_derived_from (tree derived, tree base)
8927 if (!CLASS_TYPE_P (derived) || !CLASS_TYPE_P (base))
8928 return false;
8930 /* We only allow proper derivation here. The DERIVED_FROM_P macro
8931 considers every class derived from itself. */
8932 return (!same_type_ignoring_top_level_qualifiers_p (derived, base)
8933 && DERIVED_FROM_P (base, derived));
8936 /* We build the ICS for an implicit object parameter as a pointer
8937 conversion sequence. However, such a sequence should be compared
8938 as if it were a reference conversion sequence. If ICS is the
8939 implicit conversion sequence for an implicit object parameter,
8940 modify it accordingly. */
8942 static void
8943 maybe_handle_implicit_object (conversion **ics)
8945 if ((*ics)->this_p)
8947 /* [over.match.funcs]
8949 For non-static member functions, the type of the
8950 implicit object parameter is "reference to cv X"
8951 where X is the class of which the function is a
8952 member and cv is the cv-qualification on the member
8953 function declaration. */
8954 conversion *t = *ics;
8955 tree reference_type;
8957 /* The `this' parameter is a pointer to a class type. Make the
8958 implicit conversion talk about a reference to that same class
8959 type. */
8960 reference_type = TREE_TYPE (t->type);
8961 reference_type = build_reference_type (reference_type);
8963 if (t->kind == ck_qual)
8964 t = next_conversion (t);
8965 if (t->kind == ck_ptr)
8966 t = next_conversion (t);
8967 t = build_identity_conv (TREE_TYPE (t->type), NULL_TREE);
8968 t = direct_reference_binding (reference_type, t);
8969 t->this_p = 1;
8970 t->rvaluedness_matches_p = 0;
8971 *ics = t;
8975 /* If *ICS is a REF_BIND set *ICS to the remainder of the conversion,
8976 and return the initial reference binding conversion. Otherwise,
8977 leave *ICS unchanged and return NULL. */
8979 static conversion *
8980 maybe_handle_ref_bind (conversion **ics)
8982 if ((*ics)->kind == ck_ref_bind)
8984 conversion *old_ics = *ics;
8985 *ics = next_conversion (old_ics);
8986 (*ics)->user_conv_p = old_ics->user_conv_p;
8987 return old_ics;
8990 return NULL;
8993 /* Compare two implicit conversion sequences according to the rules set out in
8994 [over.ics.rank]. Return values:
8996 1: ics1 is better than ics2
8997 -1: ics2 is better than ics1
8998 0: ics1 and ics2 are indistinguishable */
9000 static int
9001 compare_ics (conversion *ics1, conversion *ics2)
9003 tree from_type1;
9004 tree from_type2;
9005 tree to_type1;
9006 tree to_type2;
9007 tree deref_from_type1 = NULL_TREE;
9008 tree deref_from_type2 = NULL_TREE;
9009 tree deref_to_type1 = NULL_TREE;
9010 tree deref_to_type2 = NULL_TREE;
9011 conversion_rank rank1, rank2;
9013 /* REF_BINDING is nonzero if the result of the conversion sequence
9014 is a reference type. In that case REF_CONV is the reference
9015 binding conversion. */
9016 conversion *ref_conv1;
9017 conversion *ref_conv2;
9019 /* Compare badness before stripping the reference conversion. */
9020 if (ics1->bad_p > ics2->bad_p)
9021 return -1;
9022 else if (ics1->bad_p < ics2->bad_p)
9023 return 1;
9025 /* Handle implicit object parameters. */
9026 maybe_handle_implicit_object (&ics1);
9027 maybe_handle_implicit_object (&ics2);
9029 /* Handle reference parameters. */
9030 ref_conv1 = maybe_handle_ref_bind (&ics1);
9031 ref_conv2 = maybe_handle_ref_bind (&ics2);
9033 /* List-initialization sequence L1 is a better conversion sequence than
9034 list-initialization sequence L2 if L1 converts to
9035 std::initializer_list<X> for some X and L2 does not. */
9036 if (ics1->kind == ck_list && ics2->kind != ck_list)
9037 return 1;
9038 if (ics2->kind == ck_list && ics1->kind != ck_list)
9039 return -1;
9041 /* [over.ics.rank]
9043 When comparing the basic forms of implicit conversion sequences (as
9044 defined in _over.best.ics_)
9046 --a standard conversion sequence (_over.ics.scs_) is a better
9047 conversion sequence than a user-defined conversion sequence
9048 or an ellipsis conversion sequence, and
9050 --a user-defined conversion sequence (_over.ics.user_) is a
9051 better conversion sequence than an ellipsis conversion sequence
9052 (_over.ics.ellipsis_). */
9053 /* Use BAD_CONVERSION_RANK because we already checked for a badness
9054 mismatch. If both ICS are bad, we try to make a decision based on
9055 what would have happened if they'd been good. This is not an
9056 extension, we'll still give an error when we build up the call; this
9057 just helps us give a more helpful error message. */
9058 rank1 = BAD_CONVERSION_RANK (ics1);
9059 rank2 = BAD_CONVERSION_RANK (ics2);
9061 if (rank1 > rank2)
9062 return -1;
9063 else if (rank1 < rank2)
9064 return 1;
9066 if (ics1->ellipsis_p)
9067 /* Both conversions are ellipsis conversions. */
9068 return 0;
9070 /* User-defined conversion sequence U1 is a better conversion sequence
9071 than another user-defined conversion sequence U2 if they contain the
9072 same user-defined conversion operator or constructor and if the sec-
9073 ond standard conversion sequence of U1 is better than the second
9074 standard conversion sequence of U2. */
9076 /* Handle list-conversion with the same code even though it isn't always
9077 ranked as a user-defined conversion and it doesn't have a second
9078 standard conversion sequence; it will still have the desired effect.
9079 Specifically, we need to do the reference binding comparison at the
9080 end of this function. */
9082 if (ics1->user_conv_p || ics1->kind == ck_list || ics1->kind == ck_aggr)
9084 conversion *t1;
9085 conversion *t2;
9087 for (t1 = ics1; t1->kind != ck_user; t1 = next_conversion (t1))
9088 if (t1->kind == ck_ambig || t1->kind == ck_aggr
9089 || t1->kind == ck_list)
9090 break;
9091 for (t2 = ics2; t2->kind != ck_user; t2 = next_conversion (t2))
9092 if (t2->kind == ck_ambig || t2->kind == ck_aggr
9093 || t2->kind == ck_list)
9094 break;
9096 if (t1->kind != t2->kind)
9097 return 0;
9098 else if (t1->kind == ck_user)
9100 if (t1->cand->fn != t2->cand->fn)
9101 return 0;
9103 else
9105 /* For ambiguous or aggregate conversions, use the target type as
9106 a proxy for the conversion function. */
9107 if (!same_type_ignoring_top_level_qualifiers_p (t1->type, t2->type))
9108 return 0;
9111 /* We can just fall through here, after setting up
9112 FROM_TYPE1 and FROM_TYPE2. */
9113 from_type1 = t1->type;
9114 from_type2 = t2->type;
9116 else
9118 conversion *t1;
9119 conversion *t2;
9121 /* We're dealing with two standard conversion sequences.
9123 [over.ics.rank]
9125 Standard conversion sequence S1 is a better conversion
9126 sequence than standard conversion sequence S2 if
9128 --S1 is a proper subsequence of S2 (comparing the conversion
9129 sequences in the canonical form defined by _over.ics.scs_,
9130 excluding any Lvalue Transformation; the identity
9131 conversion sequence is considered to be a subsequence of
9132 any non-identity conversion sequence */
9134 t1 = ics1;
9135 while (t1->kind != ck_identity)
9136 t1 = next_conversion (t1);
9137 from_type1 = t1->type;
9139 t2 = ics2;
9140 while (t2->kind != ck_identity)
9141 t2 = next_conversion (t2);
9142 from_type2 = t2->type;
9145 /* One sequence can only be a subsequence of the other if they start with
9146 the same type. They can start with different types when comparing the
9147 second standard conversion sequence in two user-defined conversion
9148 sequences. */
9149 if (same_type_p (from_type1, from_type2))
9151 if (is_subseq (ics1, ics2))
9152 return 1;
9153 if (is_subseq (ics2, ics1))
9154 return -1;
9157 /* [over.ics.rank]
9159 Or, if not that,
9161 --the rank of S1 is better than the rank of S2 (by the rules
9162 defined below):
9164 Standard conversion sequences are ordered by their ranks: an Exact
9165 Match is a better conversion than a Promotion, which is a better
9166 conversion than a Conversion.
9168 Two conversion sequences with the same rank are indistinguishable
9169 unless one of the following rules applies:
9171 --A conversion that does not a convert a pointer, pointer to member,
9172 or std::nullptr_t to bool is better than one that does.
9174 The ICS_STD_RANK automatically handles the pointer-to-bool rule,
9175 so that we do not have to check it explicitly. */
9176 if (ics1->rank < ics2->rank)
9177 return 1;
9178 else if (ics2->rank < ics1->rank)
9179 return -1;
9181 to_type1 = ics1->type;
9182 to_type2 = ics2->type;
9184 /* A conversion from scalar arithmetic type to complex is worse than a
9185 conversion between scalar arithmetic types. */
9186 if (same_type_p (from_type1, from_type2)
9187 && ARITHMETIC_TYPE_P (from_type1)
9188 && ARITHMETIC_TYPE_P (to_type1)
9189 && ARITHMETIC_TYPE_P (to_type2)
9190 && ((TREE_CODE (to_type1) == COMPLEX_TYPE)
9191 != (TREE_CODE (to_type2) == COMPLEX_TYPE)))
9193 if (TREE_CODE (to_type1) == COMPLEX_TYPE)
9194 return -1;
9195 else
9196 return 1;
9199 if (TYPE_PTR_P (from_type1)
9200 && TYPE_PTR_P (from_type2)
9201 && TYPE_PTR_P (to_type1)
9202 && TYPE_PTR_P (to_type2))
9204 deref_from_type1 = TREE_TYPE (from_type1);
9205 deref_from_type2 = TREE_TYPE (from_type2);
9206 deref_to_type1 = TREE_TYPE (to_type1);
9207 deref_to_type2 = TREE_TYPE (to_type2);
9209 /* The rules for pointers to members A::* are just like the rules
9210 for pointers A*, except opposite: if B is derived from A then
9211 A::* converts to B::*, not vice versa. For that reason, we
9212 switch the from_ and to_ variables here. */
9213 else if ((TYPE_PTRDATAMEM_P (from_type1) && TYPE_PTRDATAMEM_P (from_type2)
9214 && TYPE_PTRDATAMEM_P (to_type1) && TYPE_PTRDATAMEM_P (to_type2))
9215 || (TYPE_PTRMEMFUNC_P (from_type1)
9216 && TYPE_PTRMEMFUNC_P (from_type2)
9217 && TYPE_PTRMEMFUNC_P (to_type1)
9218 && TYPE_PTRMEMFUNC_P (to_type2)))
9220 deref_to_type1 = TYPE_PTRMEM_CLASS_TYPE (from_type1);
9221 deref_to_type2 = TYPE_PTRMEM_CLASS_TYPE (from_type2);
9222 deref_from_type1 = TYPE_PTRMEM_CLASS_TYPE (to_type1);
9223 deref_from_type2 = TYPE_PTRMEM_CLASS_TYPE (to_type2);
9226 if (deref_from_type1 != NULL_TREE
9227 && RECORD_OR_UNION_CODE_P (TREE_CODE (deref_from_type1))
9228 && RECORD_OR_UNION_CODE_P (TREE_CODE (deref_from_type2)))
9230 /* This was one of the pointer or pointer-like conversions.
9232 [over.ics.rank]
9234 --If class B is derived directly or indirectly from class A,
9235 conversion of B* to A* is better than conversion of B* to
9236 void*, and conversion of A* to void* is better than
9237 conversion of B* to void*. */
9238 if (VOID_TYPE_P (deref_to_type1)
9239 && VOID_TYPE_P (deref_to_type2))
9241 if (is_properly_derived_from (deref_from_type1,
9242 deref_from_type2))
9243 return -1;
9244 else if (is_properly_derived_from (deref_from_type2,
9245 deref_from_type1))
9246 return 1;
9248 else if (VOID_TYPE_P (deref_to_type1)
9249 || VOID_TYPE_P (deref_to_type2))
9251 if (same_type_p (deref_from_type1, deref_from_type2))
9253 if (VOID_TYPE_P (deref_to_type2))
9255 if (is_properly_derived_from (deref_from_type1,
9256 deref_to_type1))
9257 return 1;
9259 /* We know that DEREF_TO_TYPE1 is `void' here. */
9260 else if (is_properly_derived_from (deref_from_type1,
9261 deref_to_type2))
9262 return -1;
9265 else if (RECORD_OR_UNION_CODE_P (TREE_CODE (deref_to_type1))
9266 && RECORD_OR_UNION_CODE_P (TREE_CODE (deref_to_type2)))
9268 /* [over.ics.rank]
9270 --If class B is derived directly or indirectly from class A
9271 and class C is derived directly or indirectly from B,
9273 --conversion of C* to B* is better than conversion of C* to
9276 --conversion of B* to A* is better than conversion of C* to
9277 A* */
9278 if (same_type_p (deref_from_type1, deref_from_type2))
9280 if (is_properly_derived_from (deref_to_type1,
9281 deref_to_type2))
9282 return 1;
9283 else if (is_properly_derived_from (deref_to_type2,
9284 deref_to_type1))
9285 return -1;
9287 else if (same_type_p (deref_to_type1, deref_to_type2))
9289 if (is_properly_derived_from (deref_from_type2,
9290 deref_from_type1))
9291 return 1;
9292 else if (is_properly_derived_from (deref_from_type1,
9293 deref_from_type2))
9294 return -1;
9298 else if (CLASS_TYPE_P (non_reference (from_type1))
9299 && same_type_p (from_type1, from_type2))
9301 tree from = non_reference (from_type1);
9303 /* [over.ics.rank]
9305 --binding of an expression of type C to a reference of type
9306 B& is better than binding an expression of type C to a
9307 reference of type A&
9309 --conversion of C to B is better than conversion of C to A, */
9310 if (is_properly_derived_from (from, to_type1)
9311 && is_properly_derived_from (from, to_type2))
9313 if (is_properly_derived_from (to_type1, to_type2))
9314 return 1;
9315 else if (is_properly_derived_from (to_type2, to_type1))
9316 return -1;
9319 else if (CLASS_TYPE_P (non_reference (to_type1))
9320 && same_type_p (to_type1, to_type2))
9322 tree to = non_reference (to_type1);
9324 /* [over.ics.rank]
9326 --binding of an expression of type B to a reference of type
9327 A& is better than binding an expression of type C to a
9328 reference of type A&,
9330 --conversion of B to A is better than conversion of C to A */
9331 if (is_properly_derived_from (from_type1, to)
9332 && is_properly_derived_from (from_type2, to))
9334 if (is_properly_derived_from (from_type2, from_type1))
9335 return 1;
9336 else if (is_properly_derived_from (from_type1, from_type2))
9337 return -1;
9341 /* [over.ics.rank]
9343 --S1 and S2 differ only in their qualification conversion and yield
9344 similar types T1 and T2 (_conv.qual_), respectively, and the cv-
9345 qualification signature of type T1 is a proper subset of the cv-
9346 qualification signature of type T2 */
9347 if (ics1->kind == ck_qual
9348 && ics2->kind == ck_qual
9349 && same_type_p (from_type1, from_type2))
9351 int result = comp_cv_qual_signature (to_type1, to_type2);
9352 if (result != 0)
9353 return result;
9356 /* [over.ics.rank]
9358 --S1 and S2 are reference bindings (_dcl.init.ref_) and neither refers
9359 to an implicit object parameter of a non-static member function
9360 declared without a ref-qualifier, and either S1 binds an lvalue
9361 reference to an lvalue and S2 binds an rvalue reference or S1 binds an
9362 rvalue reference to an rvalue and S2 binds an lvalue reference (C++0x
9363 draft standard, 13.3.3.2)
9365 --S1 and S2 are reference bindings (_dcl.init.ref_), and the
9366 types to which the references refer are the same type except for
9367 top-level cv-qualifiers, and the type to which the reference
9368 initialized by S2 refers is more cv-qualified than the type to
9369 which the reference initialized by S1 refers.
9371 DR 1328 [over.match.best]: the context is an initialization by
9372 conversion function for direct reference binding (13.3.1.6) of a
9373 reference to function type, the return type of F1 is the same kind of
9374 reference (i.e. lvalue or rvalue) as the reference being initialized,
9375 and the return type of F2 is not. */
9377 if (ref_conv1 && ref_conv2)
9379 if (!ref_conv1->this_p && !ref_conv2->this_p
9380 && (ref_conv1->rvaluedness_matches_p
9381 != ref_conv2->rvaluedness_matches_p)
9382 && (same_type_p (ref_conv1->type, ref_conv2->type)
9383 || (TYPE_REF_IS_RVALUE (ref_conv1->type)
9384 != TYPE_REF_IS_RVALUE (ref_conv2->type))))
9386 if (ref_conv1->bad_p
9387 && !same_type_p (TREE_TYPE (ref_conv1->type),
9388 TREE_TYPE (ref_conv2->type)))
9389 /* Don't prefer a bad conversion that drops cv-quals to a bad
9390 conversion with the wrong rvalueness. */
9391 return 0;
9392 return (ref_conv1->rvaluedness_matches_p
9393 - ref_conv2->rvaluedness_matches_p);
9396 if (same_type_ignoring_top_level_qualifiers_p (to_type1, to_type2))
9398 int q1 = cp_type_quals (TREE_TYPE (ref_conv1->type));
9399 int q2 = cp_type_quals (TREE_TYPE (ref_conv2->type));
9400 if (ref_conv1->bad_p)
9402 /* Prefer the one that drops fewer cv-quals. */
9403 tree ftype = next_conversion (ref_conv1)->type;
9404 int fquals = cp_type_quals (ftype);
9405 q1 ^= fquals;
9406 q2 ^= fquals;
9408 return comp_cv_qualification (q2, q1);
9412 /* Neither conversion sequence is better than the other. */
9413 return 0;
9416 /* The source type for this standard conversion sequence. */
9418 static tree
9419 source_type (conversion *t)
9421 for (;; t = next_conversion (t))
9423 if (t->kind == ck_user
9424 || t->kind == ck_ambig
9425 || t->kind == ck_identity)
9426 return t->type;
9428 gcc_unreachable ();
9431 /* Note a warning about preferring WINNER to LOSER. We do this by storing
9432 a pointer to LOSER and re-running joust to produce the warning if WINNER
9433 is actually used. */
9435 static void
9436 add_warning (struct z_candidate *winner, struct z_candidate *loser)
9438 candidate_warning *cw = (candidate_warning *)
9439 conversion_obstack_alloc (sizeof (candidate_warning));
9440 cw->loser = loser;
9441 cw->next = winner->warnings;
9442 winner->warnings = cw;
9445 /* Compare two candidates for overloading as described in
9446 [over.match.best]. Return values:
9448 1: cand1 is better than cand2
9449 -1: cand2 is better than cand1
9450 0: cand1 and cand2 are indistinguishable */
9452 static int
9453 joust (struct z_candidate *cand1, struct z_candidate *cand2, bool warn,
9454 tsubst_flags_t complain)
9456 int winner = 0;
9457 int off1 = 0, off2 = 0;
9458 size_t i;
9459 size_t len;
9461 /* Candidates that involve bad conversions are always worse than those
9462 that don't. */
9463 if (cand1->viable > cand2->viable)
9464 return 1;
9465 if (cand1->viable < cand2->viable)
9466 return -1;
9468 /* If we have two pseudo-candidates for conversions to the same type,
9469 or two candidates for the same function, arbitrarily pick one. */
9470 if (cand1->fn == cand2->fn
9471 && (IS_TYPE_OR_DECL_P (cand1->fn)))
9472 return 1;
9474 /* Prefer a non-deleted function over an implicitly deleted move
9475 constructor or assignment operator. This differs slightly from the
9476 wording for issue 1402 (which says the move op is ignored by overload
9477 resolution), but this way produces better error messages. */
9478 if (TREE_CODE (cand1->fn) == FUNCTION_DECL
9479 && TREE_CODE (cand2->fn) == FUNCTION_DECL
9480 && DECL_DELETED_FN (cand1->fn) != DECL_DELETED_FN (cand2->fn))
9482 if (DECL_DELETED_FN (cand1->fn) && DECL_DEFAULTED_FN (cand1->fn)
9483 && move_fn_p (cand1->fn))
9484 return -1;
9485 if (DECL_DELETED_FN (cand2->fn) && DECL_DEFAULTED_FN (cand2->fn)
9486 && move_fn_p (cand2->fn))
9487 return 1;
9490 /* a viable function F1
9491 is defined to be a better function than another viable function F2 if
9492 for all arguments i, ICSi(F1) is not a worse conversion sequence than
9493 ICSi(F2), and then */
9495 /* for some argument j, ICSj(F1) is a better conversion sequence than
9496 ICSj(F2) */
9498 /* For comparing static and non-static member functions, we ignore
9499 the implicit object parameter of the non-static function. The
9500 standard says to pretend that the static function has an object
9501 parm, but that won't work with operator overloading. */
9502 len = cand1->num_convs;
9503 if (len != cand2->num_convs)
9505 int static_1 = DECL_STATIC_FUNCTION_P (cand1->fn);
9506 int static_2 = DECL_STATIC_FUNCTION_P (cand2->fn);
9508 if (DECL_CONSTRUCTOR_P (cand1->fn)
9509 && is_list_ctor (cand1->fn) != is_list_ctor (cand2->fn))
9510 /* We're comparing a near-match list constructor and a near-match
9511 non-list constructor. Just treat them as unordered. */
9512 return 0;
9514 gcc_assert (static_1 != static_2);
9516 if (static_1)
9517 off2 = 1;
9518 else
9520 off1 = 1;
9521 --len;
9525 for (i = 0; i < len; ++i)
9527 conversion *t1 = cand1->convs[i + off1];
9528 conversion *t2 = cand2->convs[i + off2];
9529 int comp = compare_ics (t1, t2);
9531 if (comp != 0)
9533 if ((complain & tf_warning)
9534 && warn_sign_promo
9535 && (CONVERSION_RANK (t1) + CONVERSION_RANK (t2)
9536 == cr_std + cr_promotion)
9537 && t1->kind == ck_std
9538 && t2->kind == ck_std
9539 && TREE_CODE (t1->type) == INTEGER_TYPE
9540 && TREE_CODE (t2->type) == INTEGER_TYPE
9541 && (TYPE_PRECISION (t1->type)
9542 == TYPE_PRECISION (t2->type))
9543 && (TYPE_UNSIGNED (next_conversion (t1)->type)
9544 || (TREE_CODE (next_conversion (t1)->type)
9545 == ENUMERAL_TYPE)))
9547 tree type = next_conversion (t1)->type;
9548 tree type1, type2;
9549 struct z_candidate *w, *l;
9550 if (comp > 0)
9551 type1 = t1->type, type2 = t2->type,
9552 w = cand1, l = cand2;
9553 else
9554 type1 = t2->type, type2 = t1->type,
9555 w = cand2, l = cand1;
9557 if (warn)
9559 warning (OPT_Wsign_promo, "passing %qT chooses %qT over %qT",
9560 type, type1, type2);
9561 warning (OPT_Wsign_promo, " in call to %qD", w->fn);
9563 else
9564 add_warning (w, l);
9567 if (winner && comp != winner)
9569 winner = 0;
9570 goto tweak;
9572 winner = comp;
9576 /* warn about confusing overload resolution for user-defined conversions,
9577 either between a constructor and a conversion op, or between two
9578 conversion ops. */
9579 if ((complain & tf_warning)
9580 && winner && warn_conversion && cand1->second_conv
9581 && (!DECL_CONSTRUCTOR_P (cand1->fn) || !DECL_CONSTRUCTOR_P (cand2->fn))
9582 && winner != compare_ics (cand1->second_conv, cand2->second_conv))
9584 struct z_candidate *w, *l;
9585 bool give_warning = false;
9587 if (winner == 1)
9588 w = cand1, l = cand2;
9589 else
9590 w = cand2, l = cand1;
9592 /* We don't want to complain about `X::operator T1 ()'
9593 beating `X::operator T2 () const', when T2 is a no less
9594 cv-qualified version of T1. */
9595 if (DECL_CONTEXT (w->fn) == DECL_CONTEXT (l->fn)
9596 && !DECL_CONSTRUCTOR_P (w->fn) && !DECL_CONSTRUCTOR_P (l->fn))
9598 tree t = TREE_TYPE (TREE_TYPE (l->fn));
9599 tree f = TREE_TYPE (TREE_TYPE (w->fn));
9601 if (TREE_CODE (t) == TREE_CODE (f) && POINTER_TYPE_P (t))
9603 t = TREE_TYPE (t);
9604 f = TREE_TYPE (f);
9606 if (!comp_ptr_ttypes (t, f))
9607 give_warning = true;
9609 else
9610 give_warning = true;
9612 if (!give_warning)
9613 /*NOP*/;
9614 else if (warn)
9616 tree source = source_type (w->convs[0]);
9617 if (! DECL_CONSTRUCTOR_P (w->fn))
9618 source = TREE_TYPE (source);
9619 if (warning (OPT_Wconversion, "choosing %qD over %qD", w->fn, l->fn)
9620 && warning (OPT_Wconversion, " for conversion from %qT to %qT",
9621 source, w->second_conv->type))
9623 inform (input_location, " because conversion sequence for the argument is better");
9626 else
9627 add_warning (w, l);
9630 if (winner)
9631 return winner;
9633 /* DR 495 moved this tiebreaker above the template ones. */
9634 /* or, if not that,
9635 the context is an initialization by user-defined conversion (see
9636 _dcl.init_ and _over.match.user_) and the standard conversion
9637 sequence from the return type of F1 to the destination type (i.e.,
9638 the type of the entity being initialized) is a better conversion
9639 sequence than the standard conversion sequence from the return type
9640 of F2 to the destination type. */
9642 if (cand1->second_conv)
9644 winner = compare_ics (cand1->second_conv, cand2->second_conv);
9645 if (winner)
9646 return winner;
9649 /* F1 is generated from a deduction-guide (13.3.1.8) and F2 is not */
9650 if (deduction_guide_p (cand1->fn))
9652 gcc_assert (deduction_guide_p (cand2->fn));
9653 /* We distinguish between candidates from an explicit deduction guide and
9654 candidates built from a constructor based on DECL_ARTIFICIAL. */
9655 int art1 = DECL_ARTIFICIAL (cand1->fn);
9656 int art2 = DECL_ARTIFICIAL (cand2->fn);
9657 if (art1 != art2)
9658 return art2 - art1;
9661 /* or, if not that,
9662 F1 is a non-template function and F2 is a template function
9663 specialization. */
9665 if (!cand1->template_decl && cand2->template_decl)
9666 return 1;
9667 else if (cand1->template_decl && !cand2->template_decl)
9668 return -1;
9670 /* or, if not that,
9671 F1 and F2 are template functions and the function template for F1 is
9672 more specialized than the template for F2 according to the partial
9673 ordering rules. */
9675 if (cand1->template_decl && cand2->template_decl)
9677 winner = more_specialized_fn
9678 (TI_TEMPLATE (cand1->template_decl),
9679 TI_TEMPLATE (cand2->template_decl),
9680 /* [temp.func.order]: The presence of unused ellipsis and default
9681 arguments has no effect on the partial ordering of function
9682 templates. add_function_candidate() will not have
9683 counted the "this" argument for constructors. */
9684 cand1->num_convs + DECL_CONSTRUCTOR_P (cand1->fn));
9685 if (winner)
9686 return winner;
9689 // C++ Concepts
9690 // or, if not that, F1 is more constrained than F2.
9691 if (flag_concepts && DECL_P (cand1->fn) && DECL_P (cand2->fn))
9693 winner = more_constrained (cand1->fn, cand2->fn);
9694 if (winner)
9695 return winner;
9698 /* or, if not that, F2 is from a using-declaration, F1 is not, and the
9699 conversion sequences are equivalent.
9700 (proposed in http://lists.isocpp.org/core/2016/10/1142.php) */
9701 if (DECL_P (cand1->fn) && DECL_CLASS_SCOPE_P (cand1->fn)
9702 && !DECL_CONV_FN_P (cand1->fn)
9703 && DECL_P (cand2->fn) && DECL_CLASS_SCOPE_P (cand2->fn)
9704 && !DECL_CONV_FN_P (cand2->fn))
9706 bool used1 = (DECL_INHERITED_CTOR (cand1->fn)
9707 || (BINFO_TYPE (cand1->access_path)
9708 != DECL_CONTEXT (cand1->fn)));
9709 bool used2 = (DECL_INHERITED_CTOR (cand2->fn)
9710 || (BINFO_TYPE (cand2->access_path)
9711 != DECL_CONTEXT (cand2->fn)));
9712 if (int diff = used2 - used1)
9714 for (i = 0; i < len; ++i)
9716 conversion *t1 = cand1->convs[i + off1];
9717 conversion *t2 = cand2->convs[i + off2];
9718 if (!same_type_p (t1->type, t2->type))
9719 break;
9721 if (i == len)
9722 return diff;
9726 /* Check whether we can discard a builtin candidate, either because we
9727 have two identical ones or matching builtin and non-builtin candidates.
9729 (Pedantically in the latter case the builtin which matched the user
9730 function should not be added to the overload set, but we spot it here.
9732 [over.match.oper]
9733 ... the builtin candidates include ...
9734 - do not have the same parameter type list as any non-template
9735 non-member candidate. */
9737 if (identifier_p (cand1->fn) || identifier_p (cand2->fn))
9739 for (i = 0; i < len; ++i)
9740 if (!same_type_p (cand1->convs[i]->type,
9741 cand2->convs[i]->type))
9742 break;
9743 if (i == cand1->num_convs)
9745 if (cand1->fn == cand2->fn)
9746 /* Two built-in candidates; arbitrarily pick one. */
9747 return 1;
9748 else if (identifier_p (cand1->fn))
9749 /* cand1 is built-in; prefer cand2. */
9750 return -1;
9751 else
9752 /* cand2 is built-in; prefer cand1. */
9753 return 1;
9757 /* For candidates of a multi-versioned function, make the version with
9758 the highest priority win. This version will be checked for dispatching
9759 first. If this version can be inlined into the caller, the front-end
9760 will simply make a direct call to this function. */
9762 if (TREE_CODE (cand1->fn) == FUNCTION_DECL
9763 && DECL_FUNCTION_VERSIONED (cand1->fn)
9764 && TREE_CODE (cand2->fn) == FUNCTION_DECL
9765 && DECL_FUNCTION_VERSIONED (cand2->fn))
9767 tree f1 = TREE_TYPE (cand1->fn);
9768 tree f2 = TREE_TYPE (cand2->fn);
9769 tree p1 = TYPE_ARG_TYPES (f1);
9770 tree p2 = TYPE_ARG_TYPES (f2);
9772 /* Check if cand1->fn and cand2->fn are versions of the same function. It
9773 is possible that cand1->fn and cand2->fn are function versions but of
9774 different functions. Check types to see if they are versions of the same
9775 function. */
9776 if (compparms (p1, p2)
9777 && same_type_p (TREE_TYPE (f1), TREE_TYPE (f2)))
9779 /* Always make the version with the higher priority, more
9780 specialized, win. */
9781 gcc_assert (targetm.compare_version_priority);
9782 if (targetm.compare_version_priority (cand1->fn, cand2->fn) >= 0)
9783 return 1;
9784 else
9785 return -1;
9789 /* If the two function declarations represent the same function (this can
9790 happen with declarations in multiple scopes and arg-dependent lookup),
9791 arbitrarily choose one. But first make sure the default args we're
9792 using match. */
9793 if (DECL_P (cand1->fn) && DECL_P (cand2->fn)
9794 && equal_functions (cand1->fn, cand2->fn))
9796 tree parms1 = TYPE_ARG_TYPES (TREE_TYPE (cand1->fn));
9797 tree parms2 = TYPE_ARG_TYPES (TREE_TYPE (cand2->fn));
9799 gcc_assert (!DECL_CONSTRUCTOR_P (cand1->fn));
9801 for (i = 0; i < len; ++i)
9803 /* Don't crash if the fn is variadic. */
9804 if (!parms1)
9805 break;
9806 parms1 = TREE_CHAIN (parms1);
9807 parms2 = TREE_CHAIN (parms2);
9810 if (off1)
9811 parms1 = TREE_CHAIN (parms1);
9812 else if (off2)
9813 parms2 = TREE_CHAIN (parms2);
9815 for (; parms1; ++i)
9817 if (!cp_tree_equal (TREE_PURPOSE (parms1),
9818 TREE_PURPOSE (parms2)))
9820 if (warn)
9822 if (complain & tf_error)
9824 if (permerror (input_location,
9825 "default argument mismatch in "
9826 "overload resolution"))
9828 inform (DECL_SOURCE_LOCATION (cand1->fn),
9829 " candidate 1: %q#F", cand1->fn);
9830 inform (DECL_SOURCE_LOCATION (cand2->fn),
9831 " candidate 2: %q#F", cand2->fn);
9834 else
9835 return 0;
9837 else
9838 add_warning (cand1, cand2);
9839 break;
9841 parms1 = TREE_CHAIN (parms1);
9842 parms2 = TREE_CHAIN (parms2);
9845 return 1;
9848 tweak:
9850 /* Extension: If the worst conversion for one candidate is worse than the
9851 worst conversion for the other, take the first. */
9852 if (!pedantic && (complain & tf_warning_or_error))
9854 conversion_rank rank1 = cr_identity, rank2 = cr_identity;
9855 struct z_candidate *w = 0, *l = 0;
9857 for (i = 0; i < len; ++i)
9859 if (CONVERSION_RANK (cand1->convs[i+off1]) > rank1)
9860 rank1 = CONVERSION_RANK (cand1->convs[i+off1]);
9861 if (CONVERSION_RANK (cand2->convs[i + off2]) > rank2)
9862 rank2 = CONVERSION_RANK (cand2->convs[i + off2]);
9864 if (rank1 < rank2)
9865 winner = 1, w = cand1, l = cand2;
9866 if (rank1 > rank2)
9867 winner = -1, w = cand2, l = cand1;
9868 if (winner)
9870 /* Don't choose a deleted function over ambiguity. */
9871 if (DECL_P (w->fn) && DECL_DELETED_FN (w->fn))
9872 return 0;
9873 if (warn)
9875 pedwarn (input_location, 0,
9876 "ISO C++ says that these are ambiguous, even "
9877 "though the worst conversion for the first is better than "
9878 "the worst conversion for the second:");
9879 print_z_candidate (input_location, _("candidate 1:"), w);
9880 print_z_candidate (input_location, _("candidate 2:"), l);
9882 else
9883 add_warning (w, l);
9884 return winner;
9888 gcc_assert (!winner);
9889 return 0;
9892 /* Given a list of candidates for overloading, find the best one, if any.
9893 This algorithm has a worst case of O(2n) (winner is last), and a best
9894 case of O(n/2) (totally ambiguous); much better than a sorting
9895 algorithm. */
9897 static struct z_candidate *
9898 tourney (struct z_candidate *candidates, tsubst_flags_t complain)
9900 struct z_candidate *champ = candidates, *challenger;
9901 int fate;
9902 int champ_compared_to_predecessor = 0;
9904 /* Walk through the list once, comparing each current champ to the next
9905 candidate, knocking out a candidate or two with each comparison. */
9907 for (challenger = champ->next; challenger; )
9909 fate = joust (champ, challenger, 0, complain);
9910 if (fate == 1)
9911 challenger = challenger->next;
9912 else
9914 if (fate == 0)
9916 champ = challenger->next;
9917 if (champ == 0)
9918 return NULL;
9919 champ_compared_to_predecessor = 0;
9921 else
9923 champ = challenger;
9924 champ_compared_to_predecessor = 1;
9927 challenger = champ->next;
9931 /* Make sure the champ is better than all the candidates it hasn't yet
9932 been compared to. */
9934 for (challenger = candidates;
9935 challenger != champ
9936 && !(champ_compared_to_predecessor && challenger->next == champ);
9937 challenger = challenger->next)
9939 fate = joust (champ, challenger, 0, complain);
9940 if (fate != 1)
9941 return NULL;
9944 return champ;
9947 /* Returns nonzero if things of type FROM can be converted to TO. */
9949 bool
9950 can_convert (tree to, tree from, tsubst_flags_t complain)
9952 tree arg = NULL_TREE;
9953 /* implicit_conversion only considers user-defined conversions
9954 if it has an expression for the call argument list. */
9955 if (CLASS_TYPE_P (from) || CLASS_TYPE_P (to))
9956 arg = build1 (CAST_EXPR, from, NULL_TREE);
9957 return can_convert_arg (to, from, arg, LOOKUP_IMPLICIT, complain);
9960 /* Returns nonzero if things of type FROM can be converted to TO with a
9961 standard conversion. */
9963 bool
9964 can_convert_standard (tree to, tree from, tsubst_flags_t complain)
9966 return can_convert_arg (to, from, NULL_TREE, LOOKUP_IMPLICIT, complain);
9969 /* Returns nonzero if ARG (of type FROM) can be converted to TO. */
9971 bool
9972 can_convert_arg (tree to, tree from, tree arg, int flags,
9973 tsubst_flags_t complain)
9975 conversion *t;
9976 void *p;
9977 bool ok_p;
9979 /* Get the high-water mark for the CONVERSION_OBSTACK. */
9980 p = conversion_obstack_alloc (0);
9981 /* We want to discard any access checks done for this test,
9982 as we might not be in the appropriate access context and
9983 we'll do the check again when we actually perform the
9984 conversion. */
9985 push_deferring_access_checks (dk_deferred);
9987 t = implicit_conversion (to, from, arg, /*c_cast_p=*/false,
9988 flags, complain);
9989 ok_p = (t && !t->bad_p);
9991 /* Discard the access checks now. */
9992 pop_deferring_access_checks ();
9993 /* Free all the conversions we allocated. */
9994 obstack_free (&conversion_obstack, p);
9996 return ok_p;
9999 /* Like can_convert_arg, but allows dubious conversions as well. */
10001 bool
10002 can_convert_arg_bad (tree to, tree from, tree arg, int flags,
10003 tsubst_flags_t complain)
10005 conversion *t;
10006 void *p;
10008 /* Get the high-water mark for the CONVERSION_OBSTACK. */
10009 p = conversion_obstack_alloc (0);
10010 /* Try to perform the conversion. */
10011 t = implicit_conversion (to, from, arg, /*c_cast_p=*/false,
10012 flags, complain);
10013 /* Free all the conversions we allocated. */
10014 obstack_free (&conversion_obstack, p);
10016 return t != NULL;
10019 /* Convert EXPR to TYPE. Return the converted expression.
10021 Note that we allow bad conversions here because by the time we get to
10022 this point we are committed to doing the conversion. If we end up
10023 doing a bad conversion, convert_like will complain. */
10025 tree
10026 perform_implicit_conversion_flags (tree type, tree expr,
10027 tsubst_flags_t complain, int flags)
10029 conversion *conv;
10030 void *p;
10031 location_t loc = EXPR_LOC_OR_LOC (expr, input_location);
10033 if (error_operand_p (expr))
10034 return error_mark_node;
10036 /* Get the high-water mark for the CONVERSION_OBSTACK. */
10037 p = conversion_obstack_alloc (0);
10039 conv = implicit_conversion (type, TREE_TYPE (expr), expr,
10040 /*c_cast_p=*/false,
10041 flags, complain);
10043 if (!conv)
10045 if (complain & tf_error)
10047 /* If expr has unknown type, then it is an overloaded function.
10048 Call instantiate_type to get good error messages. */
10049 if (TREE_TYPE (expr) == unknown_type_node)
10050 instantiate_type (type, expr, complain);
10051 else if (invalid_nonstatic_memfn_p (loc, expr, complain))
10052 /* We gave an error. */;
10053 else
10054 error_at (loc, "could not convert %qE from %qT to %qT", expr,
10055 TREE_TYPE (expr), type);
10057 expr = error_mark_node;
10059 else if (processing_template_decl && conv->kind != ck_identity)
10061 /* In a template, we are only concerned about determining the
10062 type of non-dependent expressions, so we do not have to
10063 perform the actual conversion. But for initializers, we
10064 need to be able to perform it at instantiation
10065 (or instantiate_non_dependent_expr) time. */
10066 expr = build1 (IMPLICIT_CONV_EXPR, type, expr);
10067 if (!(flags & LOOKUP_ONLYCONVERTING))
10068 IMPLICIT_CONV_EXPR_DIRECT_INIT (expr) = true;
10070 else
10071 expr = convert_like (conv, expr, complain);
10073 /* Free all the conversions we allocated. */
10074 obstack_free (&conversion_obstack, p);
10076 return expr;
10079 tree
10080 perform_implicit_conversion (tree type, tree expr, tsubst_flags_t complain)
10082 return perform_implicit_conversion_flags (type, expr, complain,
10083 LOOKUP_IMPLICIT);
10086 /* Convert EXPR to TYPE (as a direct-initialization) if that is
10087 permitted. If the conversion is valid, the converted expression is
10088 returned. Otherwise, NULL_TREE is returned, except in the case
10089 that TYPE is a class type; in that case, an error is issued. If
10090 C_CAST_P is true, then this direct-initialization is taking
10091 place as part of a static_cast being attempted as part of a C-style
10092 cast. */
10094 tree
10095 perform_direct_initialization_if_possible (tree type,
10096 tree expr,
10097 bool c_cast_p,
10098 tsubst_flags_t complain)
10100 conversion *conv;
10101 void *p;
10103 if (type == error_mark_node || error_operand_p (expr))
10104 return error_mark_node;
10105 /* [dcl.init]
10107 If the destination type is a (possibly cv-qualified) class type:
10109 -- If the initialization is direct-initialization ...,
10110 constructors are considered. ... If no constructor applies, or
10111 the overload resolution is ambiguous, the initialization is
10112 ill-formed. */
10113 if (CLASS_TYPE_P (type))
10115 vec<tree, va_gc> *args = make_tree_vector_single (expr);
10116 expr = build_special_member_call (NULL_TREE, complete_ctor_identifier,
10117 &args, type, LOOKUP_NORMAL, complain);
10118 release_tree_vector (args);
10119 return build_cplus_new (type, expr, complain);
10122 /* Get the high-water mark for the CONVERSION_OBSTACK. */
10123 p = conversion_obstack_alloc (0);
10125 conv = implicit_conversion (type, TREE_TYPE (expr), expr,
10126 c_cast_p,
10127 LOOKUP_NORMAL, complain);
10128 if (!conv || conv->bad_p)
10129 expr = NULL_TREE;
10130 else
10131 expr = convert_like_real (conv, expr, NULL_TREE, 0, 0,
10132 /*issue_conversion_warnings=*/false,
10133 c_cast_p,
10134 complain);
10136 /* Free all the conversions we allocated. */
10137 obstack_free (&conversion_obstack, p);
10139 return expr;
10142 /* When initializing a reference that lasts longer than a full-expression,
10143 this special rule applies:
10145 [class.temporary]
10147 The temporary to which the reference is bound or the temporary
10148 that is the complete object to which the reference is bound
10149 persists for the lifetime of the reference.
10151 The temporaries created during the evaluation of the expression
10152 initializing the reference, except the temporary to which the
10153 reference is bound, are destroyed at the end of the
10154 full-expression in which they are created.
10156 In that case, we store the converted expression into a new
10157 VAR_DECL in a new scope.
10159 However, we want to be careful not to create temporaries when
10160 they are not required. For example, given:
10162 struct B {};
10163 struct D : public B {};
10164 D f();
10165 const B& b = f();
10167 there is no need to copy the return value from "f"; we can just
10168 extend its lifetime. Similarly, given:
10170 struct S {};
10171 struct T { operator S(); };
10172 T t;
10173 const S& s = t;
10175 we can extend the lifetime of the return value of the conversion
10176 operator.
10178 The next several functions are involved in this lifetime extension. */
10180 /* DECL is a VAR_DECL or FIELD_DECL whose type is a REFERENCE_TYPE. The
10181 reference is being bound to a temporary. Create and return a new
10182 VAR_DECL with the indicated TYPE; this variable will store the value to
10183 which the reference is bound. */
10185 tree
10186 make_temporary_var_for_ref_to_temp (tree decl, tree type)
10188 tree var;
10190 /* Create the variable. */
10191 var = create_temporary_var (type);
10193 /* Register the variable. */
10194 if (VAR_P (decl)
10195 && (TREE_STATIC (decl) || CP_DECL_THREAD_LOCAL_P (decl)))
10197 /* Namespace-scope or local static; give it a mangled name. */
10198 /* FIXME share comdat with decl? */
10199 tree name;
10201 TREE_STATIC (var) = TREE_STATIC (decl);
10202 CP_DECL_THREAD_LOCAL_P (var) = CP_DECL_THREAD_LOCAL_P (decl);
10203 set_decl_tls_model (var, DECL_TLS_MODEL (decl));
10204 name = mangle_ref_init_variable (decl);
10205 DECL_NAME (var) = name;
10206 SET_DECL_ASSEMBLER_NAME (var, name);
10207 var = pushdecl_top_level (var);
10209 else
10210 /* Create a new cleanup level if necessary. */
10211 maybe_push_cleanup_level (type);
10213 return var;
10216 /* EXPR is the initializer for a variable DECL of reference or
10217 std::initializer_list type. Create, push and return a new VAR_DECL
10218 for the initializer so that it will live as long as DECL. Any
10219 cleanup for the new variable is returned through CLEANUP, and the
10220 code to initialize the new variable is returned through INITP. */
10222 static tree
10223 set_up_extended_ref_temp (tree decl, tree expr, vec<tree, va_gc> **cleanups,
10224 tree *initp)
10226 tree init;
10227 tree type;
10228 tree var;
10230 /* Create the temporary variable. */
10231 type = TREE_TYPE (expr);
10232 var = make_temporary_var_for_ref_to_temp (decl, type);
10233 layout_decl (var, 0);
10234 /* If the rvalue is the result of a function call it will be
10235 a TARGET_EXPR. If it is some other construct (such as a
10236 member access expression where the underlying object is
10237 itself the result of a function call), turn it into a
10238 TARGET_EXPR here. It is important that EXPR be a
10239 TARGET_EXPR below since otherwise the INIT_EXPR will
10240 attempt to make a bitwise copy of EXPR to initialize
10241 VAR. */
10242 if (TREE_CODE (expr) != TARGET_EXPR)
10243 expr = get_target_expr (expr);
10245 if (TREE_CODE (decl) == FIELD_DECL
10246 && extra_warnings && !TREE_NO_WARNING (decl))
10248 warning (OPT_Wextra, "a temporary bound to %qD only persists "
10249 "until the constructor exits", decl);
10250 TREE_NO_WARNING (decl) = true;
10253 /* Recursively extend temps in this initializer. */
10254 TARGET_EXPR_INITIAL (expr)
10255 = extend_ref_init_temps (decl, TARGET_EXPR_INITIAL (expr), cleanups);
10257 /* Any reference temp has a non-trivial initializer. */
10258 DECL_NONTRIVIALLY_INITIALIZED_P (var) = true;
10260 /* If the initializer is constant, put it in DECL_INITIAL so we get
10261 static initialization and use in constant expressions. */
10262 init = maybe_constant_init (expr);
10263 if (TREE_CONSTANT (init))
10265 if (literal_type_p (type) && CP_TYPE_CONST_NON_VOLATILE_P (type))
10267 /* 5.19 says that a constant expression can include an
10268 lvalue-rvalue conversion applied to "a glvalue of literal type
10269 that refers to a non-volatile temporary object initialized
10270 with a constant expression". Rather than try to communicate
10271 that this VAR_DECL is a temporary, just mark it constexpr.
10273 Currently this is only useful for initializer_list temporaries,
10274 since reference vars can't appear in constant expressions. */
10275 DECL_DECLARED_CONSTEXPR_P (var) = true;
10276 DECL_INITIALIZED_BY_CONSTANT_EXPRESSION_P (var) = true;
10277 TREE_CONSTANT (var) = true;
10279 DECL_INITIAL (var) = init;
10280 init = NULL_TREE;
10282 else
10283 /* Create the INIT_EXPR that will initialize the temporary
10284 variable. */
10285 init = split_nonconstant_init (var, expr);
10286 if (at_function_scope_p ())
10288 add_decl_expr (var);
10290 if (TREE_STATIC (var))
10291 init = add_stmt_to_compound (init, register_dtor_fn (var));
10292 else
10294 tree cleanup = cxx_maybe_build_cleanup (var, tf_warning_or_error);
10295 if (cleanup)
10296 vec_safe_push (*cleanups, cleanup);
10299 /* We must be careful to destroy the temporary only
10300 after its initialization has taken place. If the
10301 initialization throws an exception, then the
10302 destructor should not be run. We cannot simply
10303 transform INIT into something like:
10305 (INIT, ({ CLEANUP_STMT; }))
10307 because emit_local_var always treats the
10308 initializer as a full-expression. Thus, the
10309 destructor would run too early; it would run at the
10310 end of initializing the reference variable, rather
10311 than at the end of the block enclosing the
10312 reference variable.
10314 The solution is to pass back a cleanup expression
10315 which the caller is responsible for attaching to
10316 the statement tree. */
10318 else
10320 rest_of_decl_compilation (var, /*toplev=*/1, at_eof);
10321 if (TYPE_HAS_NONTRIVIAL_DESTRUCTOR (type))
10323 if (CP_DECL_THREAD_LOCAL_P (var))
10324 tls_aggregates = tree_cons (NULL_TREE, var,
10325 tls_aggregates);
10326 else
10327 static_aggregates = tree_cons (NULL_TREE, var,
10328 static_aggregates);
10330 else
10331 /* Check whether the dtor is callable. */
10332 cxx_maybe_build_cleanup (var, tf_warning_or_error);
10334 /* Avoid -Wunused-variable warning (c++/38958). */
10335 if (TYPE_HAS_NONTRIVIAL_DESTRUCTOR (type)
10336 && VAR_P (decl))
10337 TREE_USED (decl) = DECL_READ_P (decl) = true;
10339 *initp = init;
10340 return var;
10343 /* Convert EXPR to the indicated reference TYPE, in a way suitable for
10344 initializing a variable of that TYPE. */
10346 tree
10347 initialize_reference (tree type, tree expr,
10348 int flags, tsubst_flags_t complain)
10350 conversion *conv;
10351 void *p;
10352 location_t loc = EXPR_LOC_OR_LOC (expr, input_location);
10354 if (type == error_mark_node || error_operand_p (expr))
10355 return error_mark_node;
10357 /* Get the high-water mark for the CONVERSION_OBSTACK. */
10358 p = conversion_obstack_alloc (0);
10360 conv = reference_binding (type, TREE_TYPE (expr), expr, /*c_cast_p=*/false,
10361 flags, complain);
10362 if (!conv || conv->bad_p)
10364 if (complain & tf_error)
10366 if (conv)
10367 convert_like (conv, expr, complain);
10368 else if (!CP_TYPE_CONST_P (TREE_TYPE (type))
10369 && !TYPE_REF_IS_RVALUE (type)
10370 && !lvalue_p (expr))
10371 error_at (loc, "invalid initialization of non-const reference of "
10372 "type %qT from an rvalue of type %qT",
10373 type, TREE_TYPE (expr));
10374 else
10375 error_at (loc, "invalid initialization of reference of type "
10376 "%qT from expression of type %qT", type,
10377 TREE_TYPE (expr));
10379 return error_mark_node;
10382 if (conv->kind == ck_ref_bind)
10383 /* Perform the conversion. */
10384 expr = convert_like (conv, expr, complain);
10385 else if (conv->kind == ck_ambig)
10386 /* We gave an error in build_user_type_conversion_1. */
10387 expr = error_mark_node;
10388 else
10389 gcc_unreachable ();
10391 /* Free all the conversions we allocated. */
10392 obstack_free (&conversion_obstack, p);
10394 return expr;
10397 /* Subroutine of extend_ref_init_temps. Possibly extend one initializer,
10398 which is bound either to a reference or a std::initializer_list. */
10400 static tree
10401 extend_ref_init_temps_1 (tree decl, tree init, vec<tree, va_gc> **cleanups)
10403 tree sub = init;
10404 tree *p;
10405 STRIP_NOPS (sub);
10406 if (TREE_CODE (sub) == COMPOUND_EXPR)
10408 TREE_OPERAND (sub, 1)
10409 = extend_ref_init_temps_1 (decl, TREE_OPERAND (sub, 1), cleanups);
10410 return init;
10412 if (TREE_CODE (sub) != ADDR_EXPR)
10413 return init;
10414 /* Deal with binding to a subobject. */
10415 for (p = &TREE_OPERAND (sub, 0); TREE_CODE (*p) == COMPONENT_REF; )
10416 p = &TREE_OPERAND (*p, 0);
10417 if (TREE_CODE (*p) == TARGET_EXPR)
10419 tree subinit = NULL_TREE;
10420 *p = set_up_extended_ref_temp (decl, *p, cleanups, &subinit);
10421 recompute_tree_invariant_for_addr_expr (sub);
10422 if (init != sub)
10423 init = fold_convert (TREE_TYPE (init), sub);
10424 if (subinit)
10425 init = build2 (COMPOUND_EXPR, TREE_TYPE (init), subinit, init);
10427 return init;
10430 /* INIT is part of the initializer for DECL. If there are any
10431 reference or initializer lists being initialized, extend their
10432 lifetime to match that of DECL. */
10434 tree
10435 extend_ref_init_temps (tree decl, tree init, vec<tree, va_gc> **cleanups)
10437 tree type = TREE_TYPE (init);
10438 if (processing_template_decl)
10439 return init;
10440 if (TREE_CODE (type) == REFERENCE_TYPE)
10441 init = extend_ref_init_temps_1 (decl, init, cleanups);
10442 else
10444 tree ctor = init;
10445 if (TREE_CODE (ctor) == TARGET_EXPR)
10446 ctor = TARGET_EXPR_INITIAL (ctor);
10447 if (TREE_CODE (ctor) == CONSTRUCTOR)
10449 if (is_std_init_list (type))
10451 /* The temporary array underlying a std::initializer_list
10452 is handled like a reference temporary. */
10453 tree array = CONSTRUCTOR_ELT (ctor, 0)->value;
10454 array = extend_ref_init_temps_1 (decl, array, cleanups);
10455 CONSTRUCTOR_ELT (ctor, 0)->value = array;
10457 else
10459 unsigned i;
10460 constructor_elt *p;
10461 vec<constructor_elt, va_gc> *elts = CONSTRUCTOR_ELTS (ctor);
10462 FOR_EACH_VEC_SAFE_ELT (elts, i, p)
10463 p->value = extend_ref_init_temps (decl, p->value, cleanups);
10468 return init;
10471 /* Returns true iff an initializer for TYPE could contain temporaries that
10472 need to be extended because they are bound to references or
10473 std::initializer_list. */
10475 bool
10476 type_has_extended_temps (tree type)
10478 type = strip_array_types (type);
10479 if (TREE_CODE (type) == REFERENCE_TYPE)
10480 return true;
10481 if (CLASS_TYPE_P (type))
10483 if (is_std_init_list (type))
10484 return true;
10485 for (tree f = next_initializable_field (TYPE_FIELDS (type));
10486 f; f = next_initializable_field (DECL_CHAIN (f)))
10487 if (type_has_extended_temps (TREE_TYPE (f)))
10488 return true;
10490 return false;
10493 /* Returns true iff TYPE is some variant of std::initializer_list. */
10495 bool
10496 is_std_init_list (tree type)
10498 /* Look through typedefs. */
10499 if (!TYPE_P (type))
10500 return false;
10501 if (cxx_dialect == cxx98)
10502 return false;
10503 type = TYPE_MAIN_VARIANT (type);
10504 return (CLASS_TYPE_P (type)
10505 && CP_TYPE_CONTEXT (type) == std_node
10506 && strcmp (TYPE_NAME_STRING (type), "initializer_list") == 0);
10509 /* Returns true iff DECL is a list constructor: i.e. a constructor which
10510 will accept an argument list of a single std::initializer_list<T>. */
10512 bool
10513 is_list_ctor (tree decl)
10515 tree args = FUNCTION_FIRST_USER_PARMTYPE (decl);
10516 tree arg;
10518 if (!args || args == void_list_node)
10519 return false;
10521 arg = non_reference (TREE_VALUE (args));
10522 if (!is_std_init_list (arg))
10523 return false;
10525 args = TREE_CHAIN (args);
10527 if (args && args != void_list_node && !TREE_PURPOSE (args))
10528 /* There are more non-defaulted parms. */
10529 return false;
10531 return true;
10534 #include "gt-cp-call.h"