gcc/cp/typeck.c

   1 /* Build expressions with type checking for C++ compiler.
   2    Copyright (C) 1987, 1988, 1989, 1992, 1993, 1994, 1995, 1996, 1997, 1998,
   3    1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009
   4    Free Software Foundation, Inc.
   5    Hacked by Michael Tiemann (tiemann@cygnus.com)
   6
   7 This file is part of GCC.
   8
   9 GCC is free software; you can redistribute it and/or modify
  10 it under the terms of the GNU General Public License as published by
  11 the Free Software Foundation; either version 3, or (at your option)
  12 any later version.
  13
  14 GCC is distributed in the hope that it will be useful,
  15 but WITHOUT ANY WARRANTY; without even the implied warranty of
  16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17 GNU General Public License for more details.
  18
  19 You should have received a copy of the GNU General Public License
  20 along with GCC; see the file COPYING3.  If not see
  21 <http://www.gnu.org/licenses/>.  */
  22
  23
  24 /* This file is part of the C++ front end.
  25    It contains routines to build C++ expressions given their operands,
  26    including computing the types of the result, C and C++ specific error
  27    checks, and some optimization.  */
  28
  29 #include "config.h"
  30 #include "system.h"
  31 #include "coretypes.h"
  32 #include "tm.h"
  33 #include "tree.h"
  34 #include "rtl.h"
  35 #include "expr.h"
  36 #include "cp-tree.h"
  37 #include "tm_p.h"
  38 #include "flags.h"
  39 #include "output.h"
  40 #include "toplev.h"
  41 #include "diagnostic.h"
  42 #include "intl.h"
  43 #include "target.h"
  44 #include "convert.h"
  45 #include "c-common.h"
  46 #include "params.h"
  47
  48 static tree pfn_from_ptrmemfunc (tree);
  49 static tree delta_from_ptrmemfunc (tree);
  50 static tree convert_for_assignment (tree, tree, const char *, tree, int,
  51                                     tsubst_flags_t, int);
  52 static tree cp_pointer_int_sum (enum tree_code, tree, tree);
  53 static tree rationalize_conditional_expr (enum tree_code, tree,
  54                                           tsubst_flags_t);
  55 static int comp_ptr_ttypes_real (tree, tree, int);
  56 static bool comp_except_types (tree, tree, bool);
  57 static bool comp_array_types (const_tree, const_tree, bool);
  58 static tree pointer_diff (tree, tree, tree);
  59 static tree get_delta_difference (tree, tree, bool, bool);
  60 static void casts_away_constness_r (tree *, tree *);
  61 static bool casts_away_constness (tree, tree);
  62 static void maybe_warn_about_returning_address_of_local (tree);
  63 static tree lookup_destructor (tree, tree, tree);
  64 static int convert_arguments (tree, VEC(tree,gc) **, tree, int,
  65                               tsubst_flags_t);
  66
  67 /* Do `exp = require_complete_type (exp);' to make sure exp
  68    does not have an incomplete type.  (That includes void types.)
  69    Returns the error_mark_node if the VALUE does not have
  70    complete type when this function returns.  */
  71
  72 tree
  73 require_complete_type (tree value)
  74 {
  75   tree type;
  76
  77   if (processing_template_decl || value == error_mark_node)
  78     return value;
  79
  80   if (TREE_CODE (value) == OVERLOAD)
  81     type = unknown_type_node;
  82   else
  83     type = TREE_TYPE (value);
  84
  85   if (type == error_mark_node)
  86     return error_mark_node;
  87
  88   /* First, detect a valid value with a complete type.  */
  89   if (COMPLETE_TYPE_P (type))
  90     return value;
  91
  92   if (complete_type_or_else (type, value))
  93     return value;
  94   else
  95     return error_mark_node;
  96 }
  97
  98 /* Try to complete TYPE, if it is incomplete.  For example, if TYPE is
  99    a template instantiation, do the instantiation.  Returns TYPE,
 100    whether or not it could be completed, unless something goes
 101    horribly wrong, in which case the error_mark_node is returned.  */
 102
 103 tree
 104 complete_type (tree type)
 105 {
 106   if (type == NULL_TREE)
 107     /* Rather than crash, we return something sure to cause an error
 108        at some point.  */
 109     return error_mark_node;
 110
 111   if (type == error_mark_node || COMPLETE_TYPE_P (type))
 112     ;
 113   else if (TREE_CODE (type) == ARRAY_TYPE && TYPE_DOMAIN (type))
 114     {
 115       tree t = complete_type (TREE_TYPE (type));
 116       unsigned int needs_constructing, has_nontrivial_dtor;
 117       if (COMPLETE_TYPE_P (t) && !dependent_type_p (type))
 118         layout_type (type);
 119       needs_constructing
 120         = TYPE_NEEDS_CONSTRUCTING (TYPE_MAIN_VARIANT (t));
 121       has_nontrivial_dtor
 122         = TYPE_HAS_NONTRIVIAL_DESTRUCTOR (TYPE_MAIN_VARIANT (t));
 123       for (t = TYPE_MAIN_VARIANT (type); t; t = TYPE_NEXT_VARIANT (t))
 124         {
 125           TYPE_NEEDS_CONSTRUCTING (t) = needs_constructing;
 126           TYPE_HAS_NONTRIVIAL_DESTRUCTOR (t) = has_nontrivial_dtor;
 127         }
 128     }
 129   else if (CLASS_TYPE_P (type) && CLASSTYPE_TEMPLATE_INSTANTIATION (type))
 130     instantiate_class_template (TYPE_MAIN_VARIANT (type));
 131
 132   return type;
 133 }
 134
 135 /* Like complete_type, but issue an error if the TYPE cannot be completed.
 136    VALUE is used for informative diagnostics.
 137    Returns NULL_TREE if the type cannot be made complete.  */
 138
 139 tree
 140 complete_type_or_else (tree type, tree value)
 141 {
 142   type = complete_type (type);
 143   if (type == error_mark_node)
 144     /* We already issued an error.  */
 145     return NULL_TREE;
 146   else if (!COMPLETE_TYPE_P (type))
 147     {
 148       cxx_incomplete_type_diagnostic (value, type, DK_ERROR);
 149       return NULL_TREE;
 150     }
 151   else
 152     return type;
 153 }
 154
 155 /* Return truthvalue of whether type of EXP is instantiated.  */
 156
 157 int
 158 type_unknown_p (const_tree exp)
 159 {
 160   return (TREE_CODE (exp) == TREE_LIST
 161           || TREE_TYPE (exp) == unknown_type_node);
 162 }
 163
 164 \f
 165 /* Return the common type of two parameter lists.
 166    We assume that comptypes has already been done and returned 1;
 167    if that isn't so, this may crash.
 168
 169    As an optimization, free the space we allocate if the parameter
 170    lists are already common.  */
 171
 172 static tree
 173 commonparms (tree p1, tree p2)
 174 {
 175   tree oldargs = p1, newargs, n;
 176   int i, len;
 177   int any_change = 0;
 178
 179   len = list_length (p1);
 180   newargs = tree_last (p1);
 181
 182   if (newargs == void_list_node)
 183     i = 1;
 184   else
 185     {
 186       i = 0;
 187       newargs = 0;
 188     }
 189
 190   for (; i < len; i++)
 191     newargs = tree_cons (NULL_TREE, NULL_TREE, newargs);
 192
 193   n = newargs;
 194
 195   for (i = 0; p1;
 196        p1 = TREE_CHAIN (p1), p2 = TREE_CHAIN (p2), n = TREE_CHAIN (n), i++)
 197     {
 198       if (TREE_PURPOSE (p1) && !TREE_PURPOSE (p2))
 199         {
 200           TREE_PURPOSE (n) = TREE_PURPOSE (p1);
 201           any_change = 1;
 202         }
 203       else if (! TREE_PURPOSE (p1))
 204         {
 205           if (TREE_PURPOSE (p2))
 206             {
 207               TREE_PURPOSE (n) = TREE_PURPOSE (p2);
 208               any_change = 1;
 209             }
 210         }
 211       else
 212         {
 213           if (1 != simple_cst_equal (TREE_PURPOSE (p1), TREE_PURPOSE (p2)))
 214             any_change = 1;
 215           TREE_PURPOSE (n) = TREE_PURPOSE (p2);
 216         }
 217       if (TREE_VALUE (p1) != TREE_VALUE (p2))
 218         {
 219           any_change = 1;
 220           TREE_VALUE (n) = merge_types (TREE_VALUE (p1), TREE_VALUE (p2));
 221         }
 222       else
 223         TREE_VALUE (n) = TREE_VALUE (p1);
 224     }
 225   if (! any_change)
 226     return oldargs;
 227
 228   return newargs;
 229 }
 230
 231 /* Given a type, perhaps copied for a typedef,
 232    find the "original" version of it.  */
 233 static tree
 234 original_type (tree t)
 235 {
 236   int quals = cp_type_quals (t);
 237   while (t != error_mark_node
 238          && TYPE_NAME (t) != NULL_TREE)
 239     {
 240       tree x = TYPE_NAME (t);
 241       if (TREE_CODE (x) != TYPE_DECL)
 242         break;
 243       x = DECL_ORIGINAL_TYPE (x);
 244       if (x == NULL_TREE)
 245         break;
 246       t = x;
 247     }
 248   return cp_build_qualified_type (t, quals);
 249 }
 250
 251 /* Return the common type for two arithmetic types T1 and T2 under the
 252    usual arithmetic conversions.  The default conversions have already
 253    been applied, and enumerated types converted to their compatible
 254    integer types.  */
 255
 256 static tree
 257 cp_common_type (tree t1, tree t2)
 258 {
 259   enum tree_code code1 = TREE_CODE (t1);
 260   enum tree_code code2 = TREE_CODE (t2);
 261   tree attributes;
 262
 263   /* In what follows, we slightly generalize the rules given in [expr] so
 264      as to deal with `long long' and `complex'.  First, merge the
 265      attributes.  */
 266   attributes = (*targetm.merge_type_attributes) (t1, t2);
 267
 268   if (SCOPED_ENUM_P (t1) || SCOPED_ENUM_P (t2))
 269     {
 270       if (TYPE_MAIN_VARIANT (t1) == TYPE_MAIN_VARIANT (t2))
 271         return build_type_attribute_variant (t1, attributes);
 272       else
 273         return NULL_TREE;
 274     }
 275
 276   /* FIXME: Attributes.  */
 277   gcc_assert (ARITHMETIC_TYPE_P (t1)
 278               || TREE_CODE (t1) == VECTOR_TYPE
 279               || UNSCOPED_ENUM_P (t1));
 280   gcc_assert (ARITHMETIC_TYPE_P (t2)
 281               || TREE_CODE (t2) == VECTOR_TYPE
 282               || UNSCOPED_ENUM_P (t2));
 283
 284   /* If one type is complex, form the common type of the non-complex
 285      components, then make that complex.  Use T1 or T2 if it is the
 286      required type.  */
 287   if (code1 == COMPLEX_TYPE || code2 == COMPLEX_TYPE)
 288     {
 289       tree subtype1 = code1 == COMPLEX_TYPE ? TREE_TYPE (t1) : t1;
 290       tree subtype2 = code2 == COMPLEX_TYPE ? TREE_TYPE (t2) : t2;
 291       tree subtype
 292         = type_after_usual_arithmetic_conversions (subtype1, subtype2);
 293
 294       if (code1 == COMPLEX_TYPE && TREE_TYPE (t1) == subtype)
 295         return build_type_attribute_variant (t1, attributes);
 296       else if (code2 == COMPLEX_TYPE && TREE_TYPE (t2) == subtype)
 297         return build_type_attribute_variant (t2, attributes);
 298       else
 299         return build_type_attribute_variant (build_complex_type (subtype),
 300                                              attributes);
 301     }
 302
 303   if (code1 == VECTOR_TYPE)
 304     {
 305       /* When we get here we should have two vectors of the same size.
 306          Just prefer the unsigned one if present.  */
 307       if (TYPE_UNSIGNED (t1))
 308         return build_type_attribute_variant (t1, attributes);
 309       else
 310         return build_type_attribute_variant (t2, attributes);
 311     }
 312
 313   /* If only one is real, use it as the result.  */
 314   if (code1 == REAL_TYPE && code2 != REAL_TYPE)
 315     return build_type_attribute_variant (t1, attributes);
 316   if (code2 == REAL_TYPE && code1 != REAL_TYPE)
 317     return build_type_attribute_variant (t2, attributes);
 318
 319   /* Both real or both integers; use the one with greater precision.  */
 320   if (TYPE_PRECISION (t1) > TYPE_PRECISION (t2))
 321     return build_type_attribute_variant (t1, attributes);
 322   else if (TYPE_PRECISION (t2) > TYPE_PRECISION (t1))
 323     return build_type_attribute_variant (t2, attributes);
 324
 325   /* The types are the same; no need to do anything fancy.  */
 326   if (TYPE_MAIN_VARIANT (t1) == TYPE_MAIN_VARIANT (t2))
 327     return build_type_attribute_variant (t1, attributes);
 328
 329   if (code1 != REAL_TYPE)
 330     {
 331       /* If one is unsigned long long, then convert the other to unsigned
 332          long long.  */
 333       if (same_type_p (TYPE_MAIN_VARIANT (t1), long_long_unsigned_type_node)
 334           || same_type_p (TYPE_MAIN_VARIANT (t2), long_long_unsigned_type_node))
 335         return build_type_attribute_variant (long_long_unsigned_type_node,
 336                                              attributes);
 337       /* If one is a long long, and the other is an unsigned long, and
 338          long long can represent all the values of an unsigned long, then
 339          convert to a long long.  Otherwise, convert to an unsigned long
 340          long.  Otherwise, if either operand is long long, convert the
 341          other to long long.
 342
 343          Since we're here, we know the TYPE_PRECISION is the same;
 344          therefore converting to long long cannot represent all the values
 345          of an unsigned long, so we choose unsigned long long in that
 346          case.  */
 347       if (same_type_p (TYPE_MAIN_VARIANT (t1), long_long_integer_type_node)
 348           || same_type_p (TYPE_MAIN_VARIANT (t2), long_long_integer_type_node))
 349         {
 350           tree t = ((TYPE_UNSIGNED (t1) || TYPE_UNSIGNED (t2))
 351                     ? long_long_unsigned_type_node
 352                     : long_long_integer_type_node);
 353           return build_type_attribute_variant (t, attributes);
 354         }
 355
 356       /* Go through the same procedure, but for longs.  */
 357       if (same_type_p (TYPE_MAIN_VARIANT (t1), long_unsigned_type_node)
 358           || same_type_p (TYPE_MAIN_VARIANT (t2), long_unsigned_type_node))
 359         return build_type_attribute_variant (long_unsigned_type_node,
 360                                              attributes);
 361       if (same_type_p (TYPE_MAIN_VARIANT (t1), long_integer_type_node)
 362           || same_type_p (TYPE_MAIN_VARIANT (t2), long_integer_type_node))
 363         {
 364           tree t = ((TYPE_UNSIGNED (t1) || TYPE_UNSIGNED (t2))
 365                     ? long_unsigned_type_node : long_integer_type_node);
 366           return build_type_attribute_variant (t, attributes);
 367         }
 368       /* Otherwise prefer the unsigned one.  */
 369       if (TYPE_UNSIGNED (t1))
 370         return build_type_attribute_variant (t1, attributes);
 371       else
 372         return build_type_attribute_variant (t2, attributes);
 373     }
 374   else
 375     {
 376       if (same_type_p (TYPE_MAIN_VARIANT (t1), long_double_type_node)
 377           || same_type_p (TYPE_MAIN_VARIANT (t2), long_double_type_node))
 378         return build_type_attribute_variant (long_double_type_node,
 379                                              attributes);
 380       if (same_type_p (TYPE_MAIN_VARIANT (t1), double_type_node)
 381           || same_type_p (TYPE_MAIN_VARIANT (t2), double_type_node))
 382         return build_type_attribute_variant (double_type_node,
 383                                              attributes);
 384       if (same_type_p (TYPE_MAIN_VARIANT (t1), float_type_node)
 385           || same_type_p (TYPE_MAIN_VARIANT (t2), float_type_node))
 386         return build_type_attribute_variant (float_type_node,
 387                                              attributes);
 388
 389       /* Two floating-point types whose TYPE_MAIN_VARIANTs are none of
 390          the standard C++ floating-point types.  Logic earlier in this
 391          function has already eliminated the possibility that
 392          TYPE_PRECISION (t2) != TYPE_PRECISION (t1), so there's no
 393          compelling reason to choose one or the other.  */
 394       return build_type_attribute_variant (t1, attributes);
 395     }
 396 }
 397
 398 /* T1 and T2 are arithmetic or enumeration types.  Return the type
 399    that will result from the "usual arithmetic conversions" on T1 and
 400    T2 as described in [expr].  */
 401
 402 tree
 403 type_after_usual_arithmetic_conversions (tree t1, tree t2)
 404 {
 405   gcc_assert (ARITHMETIC_TYPE_P (t1)
 406               || TREE_CODE (t1) == VECTOR_TYPE
 407               || UNSCOPED_ENUM_P (t1));
 408   gcc_assert (ARITHMETIC_TYPE_P (t2)
 409               || TREE_CODE (t2) == VECTOR_TYPE
 410               || UNSCOPED_ENUM_P (t2));
 411
 412   /* Perform the integral promotions.  We do not promote real types here.  */
 413   if (INTEGRAL_OR_ENUMERATION_TYPE_P (t1)
 414       && INTEGRAL_OR_ENUMERATION_TYPE_P (t2))
 415     {
 416       t1 = type_promotes_to (t1);
 417       t2 = type_promotes_to (t2);
 418     }
 419
 420   return cp_common_type (t1, t2);
 421 }
 422
 423 /* Subroutine of composite_pointer_type to implement the recursive
 424    case.  See that function for documentation fo the parameters.  */
 425
 426 static tree
 427 composite_pointer_type_r (tree t1, tree t2, const char* location,
 428                           tsubst_flags_t complain)
 429 {
 430   tree pointee1;
 431   tree pointee2;
 432   tree result_type;
 433   tree attributes;
 434
 435   /* Determine the types pointed to by T1 and T2.  */
 436   if (TREE_CODE (t1) == POINTER_TYPE)
 437     {
 438       pointee1 = TREE_TYPE (t1);
 439       pointee2 = TREE_TYPE (t2);
 440     }
 441   else
 442     {
 443       pointee1 = TYPE_PTRMEM_POINTED_TO_TYPE (t1);
 444       pointee2 = TYPE_PTRMEM_POINTED_TO_TYPE (t2);
 445     }
 446
 447   /* [expr.rel]
 448
 449      Otherwise, the composite pointer type is a pointer type
 450      similar (_conv.qual_) to the type of one of the operands,
 451      with a cv-qualification signature (_conv.qual_) that is the
 452      union of the cv-qualification signatures of the operand
 453      types.  */
 454   if (same_type_ignoring_top_level_qualifiers_p (pointee1, pointee2))
 455     result_type = pointee1;
 456   else if ((TREE_CODE (pointee1) == POINTER_TYPE
 457             && TREE_CODE (pointee2) == POINTER_TYPE)
 458            || (TYPE_PTR_TO_MEMBER_P (pointee1)
 459                && TYPE_PTR_TO_MEMBER_P (pointee2)))
 460     result_type = composite_pointer_type_r (pointee1, pointee2, location,
 461                                             complain);
 462   else
 463     {
 464       if (complain & tf_error)
 465         permerror (input_location, "%s between distinct pointer types %qT and %qT "
 466                    "lacks a cast",
 467                    location, t1, t2);
 468       result_type = void_type_node;
 469     }
 470   result_type = cp_build_qualified_type (result_type,
 471                                          (cp_type_quals (pointee1)
 472                                           | cp_type_quals (pointee2)));
 473   /* If the original types were pointers to members, so is the
 474      result.  */
 475   if (TYPE_PTR_TO_MEMBER_P (t1))
 476     {
 477       if (!same_type_p (TYPE_PTRMEM_CLASS_TYPE (t1),
 478                         TYPE_PTRMEM_CLASS_TYPE (t2))
 479           && (complain & tf_error))
 480         permerror (input_location, "%s between distinct pointer types %qT and %qT "
 481                    "lacks a cast",
 482                    location, t1, t2);
 483       result_type = build_ptrmem_type (TYPE_PTRMEM_CLASS_TYPE (t1),
 484                                        result_type);
 485     }
 486   else
 487     result_type = build_pointer_type (result_type);
 488
 489   /* Merge the attributes.  */
 490   attributes = (*targetm.merge_type_attributes) (t1, t2);
 491   return build_type_attribute_variant (result_type, attributes);
 492 }
 493
 494 /* Return the composite pointer type (see [expr.rel]) for T1 and T2.
 495    ARG1 and ARG2 are the values with those types.  The LOCATION is a
 496    string describing the current location, in case an error occurs.
 497
 498    This routine also implements the computation of a common type for
 499    pointers-to-members as per [expr.eq].  */
 500
 501 tree
 502 composite_pointer_type (tree t1, tree t2, tree arg1, tree arg2,
 503                         const char* location, tsubst_flags_t complain)
 504 {
 505   tree class1;
 506   tree class2;
 507
 508   /* [expr.rel]
 509
 510      If one operand is a null pointer constant, the composite pointer
 511      type is the type of the other operand.  */
 512   if (null_ptr_cst_p (arg1))
 513     return t2;
 514   if (null_ptr_cst_p (arg2))
 515     return t1;
 516
 517   /* We have:
 518
 519        [expr.rel]
 520
 521        If one of the operands has type "pointer to cv1 void*", then
 522        the other has type "pointer to cv2T", and the composite pointer
 523        type is "pointer to cv12 void", where cv12 is the union of cv1
 524        and cv2.
 525
 526     If either type is a pointer to void, make sure it is T1.  */
 527   if (TREE_CODE (t2) == POINTER_TYPE && VOID_TYPE_P (TREE_TYPE (t2)))
 528     {
 529       tree t;
 530       t = t1;
 531       t1 = t2;
 532       t2 = t;
 533     }
 534
 535   /* Now, if T1 is a pointer to void, merge the qualifiers.  */
 536   if (TREE_CODE (t1) == POINTER_TYPE && VOID_TYPE_P (TREE_TYPE (t1)))
 537     {
 538       tree attributes;
 539       tree result_type;
 540
 541       if (TYPE_PTRFN_P (t2) && (complain & tf_error))
 542         pedwarn (input_location, OPT_pedantic, "ISO C++ forbids %s "
 543                  "between pointer of type %<void *%> and pointer-to-function",
 544                  location);
 545       result_type
 546         = cp_build_qualified_type (void_type_node,
 547                                    (cp_type_quals (TREE_TYPE (t1))
 548                                     | cp_type_quals (TREE_TYPE (t2))));
 549       result_type = build_pointer_type (result_type);
 550       /* Merge the attributes.  */
 551       attributes = (*targetm.merge_type_attributes) (t1, t2);
 552       return build_type_attribute_variant (result_type, attributes);
 553     }
 554
 555   if (c_dialect_objc () && TREE_CODE (t1) == POINTER_TYPE
 556       && TREE_CODE (t2) == POINTER_TYPE)
 557     {
 558       if (objc_compare_types (t1, t2, -3, NULL_TREE))
 559         return t1;
 560     }
 561
 562   /* [expr.eq] permits the application of a pointer conversion to
 563      bring the pointers to a common type.  */
 564   if (TREE_CODE (t1) == POINTER_TYPE && TREE_CODE (t2) == POINTER_TYPE
 565       && CLASS_TYPE_P (TREE_TYPE (t1))
 566       && CLASS_TYPE_P (TREE_TYPE (t2))
 567       && !same_type_ignoring_top_level_qualifiers_p (TREE_TYPE (t1),
 568                                                      TREE_TYPE (t2)))
 569     {
 570       class1 = TREE_TYPE (t1);
 571       class2 = TREE_TYPE (t2);
 572
 573       if (DERIVED_FROM_P (class1, class2))
 574         t2 = (build_pointer_type
 575               (cp_build_qualified_type (class1, TYPE_QUALS (class2))));
 576       else if (DERIVED_FROM_P (class2, class1))
 577         t1 = (build_pointer_type
 578               (cp_build_qualified_type (class2, TYPE_QUALS (class1))));
 579       else
 580         {
 581           if (complain & tf_error)
 582             error ("%s between distinct pointer types %qT and %qT "
 583                    "lacks a cast", location, t1, t2);
 584           return error_mark_node;
 585         }
 586     }
 587   /* [expr.eq] permits the application of a pointer-to-member
 588      conversion to change the class type of one of the types.  */
 589   else if (TYPE_PTR_TO_MEMBER_P (t1)
 590            && !same_type_p (TYPE_PTRMEM_CLASS_TYPE (t1),
 591                             TYPE_PTRMEM_CLASS_TYPE (t2)))
 592     {
 593       class1 = TYPE_PTRMEM_CLASS_TYPE (t1);
 594       class2 = TYPE_PTRMEM_CLASS_TYPE (t2);
 595
 596       if (DERIVED_FROM_P (class1, class2))
 597         t1 = build_ptrmem_type (class2, TYPE_PTRMEM_POINTED_TO_TYPE (t1));
 598       else if (DERIVED_FROM_P (class2, class1))
 599         t2 = build_ptrmem_type (class1, TYPE_PTRMEM_POINTED_TO_TYPE (t2));
 600       else
 601         {
 602           if (complain & tf_error)
 603             error ("%s between distinct pointer-to-member types %qT and %qT "
 604                    "lacks a cast", location, t1, t2);
 605           return error_mark_node;
 606         }
 607     }
 608
 609   return composite_pointer_type_r (t1, t2, location, complain);
 610 }
 611
 612 /* Return the merged type of two types.
 613    We assume that comptypes has already been done and returned 1;
 614    if that isn't so, this may crash.
 615
 616    This just combines attributes and default arguments; any other
 617    differences would cause the two types to compare unalike.  */
 618
 619 tree
 620 merge_types (tree t1, tree t2)
 621 {
 622   enum tree_code code1;
 623   enum tree_code code2;
 624   tree attributes;
 625
 626   /* Save time if the two types are the same.  */
 627   if (t1 == t2)
 628     return t1;
 629   if (original_type (t1) == original_type (t2))
 630     return t1;
 631
 632   /* If one type is nonsense, use the other.  */
 633   if (t1 == error_mark_node)
 634     return t2;
 635   if (t2 == error_mark_node)
 636     return t1;
 637
 638   /* Merge the attributes.  */
 639   attributes = (*targetm.merge_type_attributes) (t1, t2);
 640
 641   if (TYPE_PTRMEMFUNC_P (t1))
 642     t1 = TYPE_PTRMEMFUNC_FN_TYPE (t1);
 643   if (TYPE_PTRMEMFUNC_P (t2))
 644     t2 = TYPE_PTRMEMFUNC_FN_TYPE (t2);
 645
 646   code1 = TREE_CODE (t1);
 647   code2 = TREE_CODE (t2);
 648   if (code1 != code2)
 649     {
 650       gcc_assert (code1 == TYPENAME_TYPE || code2 == TYPENAME_TYPE);
 651       if (code1 == TYPENAME_TYPE)
 652         {
 653           t1 = resolve_typename_type (t1, /*only_current_p=*/true);
 654           code1 = TREE_CODE (t1);
 655         }
 656       else
 657         {
 658           t2 = resolve_typename_type (t2, /*only_current_p=*/true);
 659           code2 = TREE_CODE (t2);
 660         }
 661     }
 662
 663   switch (code1)
 664     {
 665     case POINTER_TYPE:
 666     case REFERENCE_TYPE:
 667       /* For two pointers, do this recursively on the target type.  */
 668       {
 669         tree target = merge_types (TREE_TYPE (t1), TREE_TYPE (t2));
 670         int quals = cp_type_quals (t1);
 671
 672         if (code1 == POINTER_TYPE)
 673           t1 = build_pointer_type (target);
 674         else
 675           t1 = cp_build_reference_type (target, TYPE_REF_IS_RVALUE (t1));
 676         t1 = build_type_attribute_variant (t1, attributes);
 677         t1 = cp_build_qualified_type (t1, quals);
 678
 679         if (TREE_CODE (target) == METHOD_TYPE)
 680           t1 = build_ptrmemfunc_type (t1);
 681
 682         return t1;
 683       }
 684
 685     case OFFSET_TYPE:
 686       {
 687         int quals;
 688         tree pointee;
 689         quals = cp_type_quals (t1);
 690         pointee = merge_types (TYPE_PTRMEM_POINTED_TO_TYPE (t1),
 691                                TYPE_PTRMEM_POINTED_TO_TYPE (t2));
 692         t1 = build_ptrmem_type (TYPE_PTRMEM_CLASS_TYPE (t1),
 693                                 pointee);
 694         t1 = cp_build_qualified_type (t1, quals);
 695         break;
 696       }
 697
 698     case ARRAY_TYPE:
 699       {
 700         tree elt = merge_types (TREE_TYPE (t1), TREE_TYPE (t2));
 701         /* Save space: see if the result is identical to one of the args.  */
 702         if (elt == TREE_TYPE (t1) && TYPE_DOMAIN (t1))
 703           return build_type_attribute_variant (t1, attributes);
 704         if (elt == TREE_TYPE (t2) && TYPE_DOMAIN (t2))
 705           return build_type_attribute_variant (t2, attributes);
 706         /* Merge the element types, and have a size if either arg has one.  */
 707         t1 = build_cplus_array_type
 708           (elt, TYPE_DOMAIN (TYPE_DOMAIN (t1) ? t1 : t2));
 709         break;
 710       }
 711
 712     case FUNCTION_TYPE:
 713       /* Function types: prefer the one that specified arg types.
 714          If both do, merge the arg types.  Also merge the return types.  */
 715       {
 716         tree valtype = merge_types (TREE_TYPE (t1), TREE_TYPE (t2));
 717         tree p1 = TYPE_ARG_TYPES (t1);
 718         tree p2 = TYPE_ARG_TYPES (t2);
 719         tree rval, raises;
 720
 721         /* Save space: see if the result is identical to one of the args.  */
 722         if (valtype == TREE_TYPE (t1) && ! p2)
 723           return cp_build_type_attribute_variant (t1, attributes);
 724         if (valtype == TREE_TYPE (t2) && ! p1)
 725           return cp_build_type_attribute_variant (t2, attributes);
 726
 727         /* Simple way if one arg fails to specify argument types.  */
 728         if (p1 == NULL_TREE || TREE_VALUE (p1) == void_type_node)
 729           {
 730             rval = build_function_type (valtype, p2);
 731             if ((raises = TYPE_RAISES_EXCEPTIONS (t2)))
 732               rval = build_exception_variant (rval, raises);
 733             return cp_build_type_attribute_variant (rval, attributes);
 734           }
 735         raises = TYPE_RAISES_EXCEPTIONS (t1);
 736         if (p2 == NULL_TREE || TREE_VALUE (p2) == void_type_node)
 737           {
 738             rval = build_function_type (valtype, p1);
 739             if (raises)
 740               rval = build_exception_variant (rval, raises);
 741             return cp_build_type_attribute_variant (rval, attributes);
 742           }
 743
 744         rval = build_function_type (valtype, commonparms (p1, p2));
 745         t1 = build_exception_variant (rval, raises);
 746         break;
 747       }
 748
 749     case METHOD_TYPE:
 750       {
 751         /* Get this value the long way, since TYPE_METHOD_BASETYPE
 752            is just the main variant of this.  */
 753         tree basetype = TREE_TYPE (TREE_VALUE (TYPE_ARG_TYPES (t2)));
 754         tree raises = TYPE_RAISES_EXCEPTIONS (t1);
 755         tree t3;
 756
 757         /* If this was a member function type, get back to the
 758            original type of type member function (i.e., without
 759            the class instance variable up front.  */
 760         t1 = build_function_type (TREE_TYPE (t1),
 761                                   TREE_CHAIN (TYPE_ARG_TYPES (t1)));
 762         t2 = build_function_type (TREE_TYPE (t2),
 763                                   TREE_CHAIN (TYPE_ARG_TYPES (t2)));
 764         t3 = merge_types (t1, t2);
 765         t3 = build_method_type_directly (basetype, TREE_TYPE (t3),
 766                                          TYPE_ARG_TYPES (t3));
 767         t1 = build_exception_variant (t3, raises);
 768         break;
 769       }
 770
 771     case TYPENAME_TYPE:
 772       /* There is no need to merge attributes into a TYPENAME_TYPE.
 773          When the type is instantiated it will have whatever
 774          attributes result from the instantiation.  */
 775       return t1;
 776
 777     default:;
 778     }
 779
 780   if (attribute_list_equal (TYPE_ATTRIBUTES (t1), attributes))
 781     return t1;
 782   else if (attribute_list_equal (TYPE_ATTRIBUTES (t2), attributes))
 783     return t2;
 784   else
 785     return cp_build_type_attribute_variant (t1, attributes);
 786 }
 787
 788 /* Wrapper around cp_common_type that is used by c-common.c and other
 789    front end optimizations that remove promotions.
 790
 791    Return the common type for two arithmetic types T1 and T2 under the
 792    usual arithmetic conversions.  The default conversions have already
 793    been applied, and enumerated types converted to their compatible
 794    integer types.  */
 795
 796 tree
 797 common_type (tree t1, tree t2)
 798 {
 799   /* If one type is nonsense, use the other  */
 800   if (t1 == error_mark_node)
 801     return t2;
 802   if (t2 == error_mark_node)
 803     return t1;
 804
 805   return cp_common_type (t1, t2);
 806 }
 807
 808 /* Return the common type of two pointer types T1 and T2.  This is the
 809    type for the result of most arithmetic operations if the operands
 810    have the given two types.
 811
 812    We assume that comp_target_types has already been done and returned
 813    nonzero; if that isn't so, this may crash.  */
 814
 815 tree
 816 common_pointer_type (tree t1, tree t2)
 817 {
 818   gcc_assert ((TYPE_PTR_P (t1) && TYPE_PTR_P (t2))
 819               || (TYPE_PTRMEM_P (t1) && TYPE_PTRMEM_P (t2))
 820               || (TYPE_PTRMEMFUNC_P (t1) && TYPE_PTRMEMFUNC_P (t2)));
 821
 822   return composite_pointer_type (t1, t2, error_mark_node, error_mark_node,
 823                                  "conversion", tf_warning_or_error);
 824 }
 825 \f
 826 /* Compare two exception specifier types for exactness or subsetness, if
 827    allowed. Returns false for mismatch, true for match (same, or
 828    derived and !exact).
 829
 830    [except.spec] "If a class X ... objects of class X or any class publicly
 831    and unambiguously derived from X. Similarly, if a pointer type Y * ...
 832    exceptions of type Y * or that are pointers to any type publicly and
 833    unambiguously derived from Y. Otherwise a function only allows exceptions
 834    that have the same type ..."
 835    This does not mention cv qualifiers and is different to what throw
 836    [except.throw] and catch [except.catch] will do. They will ignore the
 837    top level cv qualifiers, and allow qualifiers in the pointer to class
 838    example.
 839
 840    We implement the letter of the standard.  */
 841
 842 static bool
 843 comp_except_types (tree a, tree b, bool exact)
 844 {
 845   if (same_type_p (a, b))
 846     return true;
 847   else if (!exact)
 848     {
 849       if (cp_type_quals (a) || cp_type_quals (b))
 850         return false;
 851
 852       if (TREE_CODE (a) == POINTER_TYPE
 853           && TREE_CODE (b) == POINTER_TYPE)
 854         {
 855           a = TREE_TYPE (a);
 856           b = TREE_TYPE (b);
 857           if (cp_type_quals (a) || cp_type_quals (b))
 858             return false;
 859         }
 860
 861       if (TREE_CODE (a) != RECORD_TYPE
 862           || TREE_CODE (b) != RECORD_TYPE)
 863         return false;
 864
 865       if (PUBLICLY_UNIQUELY_DERIVED_P (a, b))
 866         return true;
 867     }
 868   return false;
 869 }
 870
 871 /* Return true if TYPE1 and TYPE2 are equivalent exception specifiers.
 872    If EXACT is false, T2 can be stricter than T1 (according to 15.4/7),
 873    otherwise it must be exact. Exception lists are unordered, but
 874    we've already filtered out duplicates. Most lists will be in order,
 875    we should try to make use of that.  */
 876
 877 bool
 878 comp_except_specs (const_tree t1, const_tree t2, bool exact)
 879 {
 880   const_tree probe;
 881   const_tree base;
 882   int  length = 0;
 883
 884   if (t1 == t2)
 885     return true;
 886
 887   if (t1 == NULL_TREE)                     /* T1 is ...  */
 888     return t2 == NULL_TREE || !exact;
 889   if (!TREE_VALUE (t1))                    /* t1 is EMPTY */
 890     return t2 != NULL_TREE && !TREE_VALUE (t2);
 891   if (t2 == NULL_TREE)                     /* T2 is ...  */
 892     return false;
 893   if (TREE_VALUE (t1) && !TREE_VALUE (t2)) /* T2 is EMPTY, T1 is not */
 894     return !exact;
 895
 896   /* Neither set is ... or EMPTY, make sure each part of T2 is in T1.
 897      Count how many we find, to determine exactness. For exact matching and
 898      ordered T1, T2, this is an O(n) operation, otherwise its worst case is
 899      O(nm).  */
 900   for (base = t1; t2 != NULL_TREE; t2 = TREE_CHAIN (t2))
 901     {
 902       for (probe = base; probe != NULL_TREE; probe = TREE_CHAIN (probe))
 903         {
 904           tree a = TREE_VALUE (probe);
 905           tree b = TREE_VALUE (t2);
 906
 907           if (comp_except_types (a, b, exact))
 908             {
 909               if (probe == base && exact)
 910                 base = TREE_CHAIN (probe);
 911               length++;
 912               break;
 913             }
 914         }
 915       if (probe == NULL_TREE)
 916         return false;
 917     }
 918   return !exact || base == NULL_TREE || length == list_length (t1);
 919 }
 920
 921 /* Compare the array types T1 and T2.  ALLOW_REDECLARATION is true if
 922    [] can match [size].  */
 923
 924 static bool
 925 comp_array_types (const_tree t1, const_tree t2, bool allow_redeclaration)
 926 {
 927   tree d1;
 928   tree d2;
 929   tree max1, max2;
 930
 931   if (t1 == t2)
 932     return true;
 933
 934   /* The type of the array elements must be the same.  */
 935   if (!same_type_p (TREE_TYPE (t1), TREE_TYPE (t2)))
 936     return false;
 937
 938   d1 = TYPE_DOMAIN (t1);
 939   d2 = TYPE_DOMAIN (t2);
 940
 941   if (d1 == d2)
 942     return true;
 943
 944   /* If one of the arrays is dimensionless, and the other has a
 945      dimension, they are of different types.  However, it is valid to
 946      write:
 947
 948        extern int a[];
 949        int a[3];
 950
 951      by [basic.link]:
 952
 953        declarations for an array object can specify
 954        array types that differ by the presence or absence of a major
 955        array bound (_dcl.array_).  */
 956   if (!d1 || !d2)
 957     return allow_redeclaration;
 958
 959   /* Check that the dimensions are the same.  */
 960
 961   if (!cp_tree_equal (TYPE_MIN_VALUE (d1), TYPE_MIN_VALUE (d2)))
 962     return false;
 963   max1 = TYPE_MAX_VALUE (d1);
 964   max2 = TYPE_MAX_VALUE (d2);
 965   if (processing_template_decl && !abi_version_at_least (2)
 966       && !value_dependent_expression_p (max1)
 967       && !value_dependent_expression_p (max2))
 968     {
 969       /* With abi-1 we do not fold non-dependent array bounds, (and
 970          consequently mangle them incorrectly).  We must therefore
 971          fold them here, to verify the domains have the same
 972          value.  */
 973       max1 = fold (max1);
 974       max2 = fold (max2);
 975     }
 976
 977   if (!cp_tree_equal (max1, max2))
 978     return false;
 979
 980   return true;
 981 }
 982
 983 /* Subroutine in comptypes.  */
 984
 985 static bool
 986 structural_comptypes (tree t1, tree t2, int strict)
 987 {
 988   if (t1 == t2)
 989     return true;
 990
 991   /* Suppress errors caused by previously reported errors.  */
 992   if (t1 == error_mark_node || t2 == error_mark_node)
 993     return false;
 994
 995   gcc_assert (TYPE_P (t1) && TYPE_P (t2));
 996
 997   /* TYPENAME_TYPEs should be resolved if the qualifying scope is the
 998      current instantiation.  */
 999   if (TREE_CODE (t1) == TYPENAME_TYPE)
1000     t1 = resolve_typename_type (t1, /*only_current_p=*/true);
1001
1002   if (TREE_CODE (t2) == TYPENAME_TYPE)
1003     t2 = resolve_typename_type (t2, /*only_current_p=*/true);
1004
1005   if (TYPE_PTRMEMFUNC_P (t1))
1006     t1 = TYPE_PTRMEMFUNC_FN_TYPE (t1);
1007   if (TYPE_PTRMEMFUNC_P (t2))
1008     t2 = TYPE_PTRMEMFUNC_FN_TYPE (t2);
1009
1010   /* Different classes of types can't be compatible.  */
1011   if (TREE_CODE (t1) != TREE_CODE (t2))
1012     return false;
1013
1014   /* Qualifiers must match.  For array types, we will check when we
1015      recur on the array element types.  */
1016   if (TREE_CODE (t1) != ARRAY_TYPE
1017       && TYPE_QUALS (t1) != TYPE_QUALS (t2))
1018     return false;
1019   if (TYPE_FOR_JAVA (t1) != TYPE_FOR_JAVA (t2))
1020     return false;
1021
1022   /* Allow for two different type nodes which have essentially the same
1023      definition.  Note that we already checked for equality of the type
1024      qualifiers (just above).  */
1025
1026   if (TREE_CODE (t1) != ARRAY_TYPE
1027       && TYPE_MAIN_VARIANT (t1) == TYPE_MAIN_VARIANT (t2))
1028     return true;
1029
1030   /* Compare the types.  Break out if they could be the same.  */
1031   switch (TREE_CODE (t1))
1032     {
1033     case VOID_TYPE:
1034     case BOOLEAN_TYPE:
1035       /* All void and bool types are the same.  */
1036       break;
1037
1038     case INTEGER_TYPE:
1039     case FIXED_POINT_TYPE:
1040     case REAL_TYPE:
1041       /* With these nodes, we can't determine type equivalence by
1042          looking at what is stored in the nodes themselves, because
1043          two nodes might have different TYPE_MAIN_VARIANTs but still
1044          represent the same type.  For example, wchar_t and int could
1045          have the same properties (TYPE_PRECISION, TYPE_MIN_VALUE,
1046          TYPE_MAX_VALUE, etc.), but have different TYPE_MAIN_VARIANTs
1047          and are distinct types. On the other hand, int and the
1048          following typedef
1049
1050            typedef int INT __attribute((may_alias));
1051
1052          have identical properties, different TYPE_MAIN_VARIANTs, but
1053          represent the same type.  The canonical type system keeps
1054          track of equivalence in this case, so we fall back on it.  */
1055       return TYPE_CANONICAL (t1) == TYPE_CANONICAL (t2);
1056
1057     case TEMPLATE_TEMPLATE_PARM:
1058     case BOUND_TEMPLATE_TEMPLATE_PARM:
1059       if (TEMPLATE_TYPE_IDX (t1) != TEMPLATE_TYPE_IDX (t2)
1060           || TEMPLATE_TYPE_LEVEL (t1) != TEMPLATE_TYPE_LEVEL (t2)
1061           || (TEMPLATE_TYPE_PARAMETER_PACK (t1)
1062               != TEMPLATE_TYPE_PARAMETER_PACK (t2)))
1063         return false;
1064       if (!comp_template_parms
1065           (DECL_TEMPLATE_PARMS (TEMPLATE_TEMPLATE_PARM_TEMPLATE_DECL (t1)),
1066            DECL_TEMPLATE_PARMS (TEMPLATE_TEMPLATE_PARM_TEMPLATE_DECL (t2))))
1067         return false;
1068       if (TREE_CODE (t1) == TEMPLATE_TEMPLATE_PARM)
1069         break;
1070       /* Don't check inheritance.  */
1071       strict = COMPARE_STRICT;
1072       /* Fall through.  */
1073
1074     case RECORD_TYPE:
1075     case UNION_TYPE:
1076       if (TYPE_TEMPLATE_INFO (t1) && TYPE_TEMPLATE_INFO (t2)
1077           && (TYPE_TI_TEMPLATE (t1) == TYPE_TI_TEMPLATE (t2)
1078               || TREE_CODE (t1) == BOUND_TEMPLATE_TEMPLATE_PARM)
1079           && comp_template_args (TYPE_TI_ARGS (t1), TYPE_TI_ARGS (t2)))
1080         break;
1081
1082       if ((strict & COMPARE_BASE) && DERIVED_FROM_P (t1, t2))
1083         break;
1084       else if ((strict & COMPARE_DERIVED) && DERIVED_FROM_P (t2, t1))
1085         break;
1086
1087       return false;
1088
1089     case OFFSET_TYPE:
1090       if (!comptypes (TYPE_OFFSET_BASETYPE (t1), TYPE_OFFSET_BASETYPE (t2),
1091                       strict & ~COMPARE_REDECLARATION))
1092         return false;
1093       if (!same_type_p (TREE_TYPE (t1), TREE_TYPE (t2)))
1094         return false;
1095       break;
1096
1097     case REFERENCE_TYPE:
1098       if (TYPE_REF_IS_RVALUE (t1) != TYPE_REF_IS_RVALUE (t2))
1099         return false;
1100       /* fall through to checks for pointer types */
1101
1102     case POINTER_TYPE:
1103       if (TYPE_MODE (t1) != TYPE_MODE (t2)
1104           || TYPE_REF_CAN_ALIAS_ALL (t1) != TYPE_REF_CAN_ALIAS_ALL (t2)
1105           || !same_type_p (TREE_TYPE (t1), TREE_TYPE (t2)))
1106         return false;
1107       break;
1108
1109     case METHOD_TYPE:
1110     case FUNCTION_TYPE:
1111       if (!same_type_p (TREE_TYPE (t1), TREE_TYPE (t2)))
1112         return false;
1113       if (!compparms (TYPE_ARG_TYPES (t1), TYPE_ARG_TYPES (t2)))
1114         return false;
1115       break;
1116
1117     case ARRAY_TYPE:
1118       /* Target types must match incl. qualifiers.  */
1119       if (!comp_array_types (t1, t2, !!(strict & COMPARE_REDECLARATION)))
1120         return false;
1121       break;
1122
1123     case TEMPLATE_TYPE_PARM:
1124       if (TEMPLATE_TYPE_IDX (t1) != TEMPLATE_TYPE_IDX (t2)
1125           || TEMPLATE_TYPE_LEVEL (t1) != TEMPLATE_TYPE_LEVEL (t2)
1126           || (TEMPLATE_TYPE_PARAMETER_PACK (t1)
1127               != TEMPLATE_TYPE_PARAMETER_PACK (t2)))
1128         return false;
1129       break;
1130
1131     case TYPENAME_TYPE:
1132       if (!cp_tree_equal (TYPENAME_TYPE_FULLNAME (t1),
1133                           TYPENAME_TYPE_FULLNAME (t2)))
1134         return false;
1135       if (!same_type_p (TYPE_CONTEXT (t1), TYPE_CONTEXT (t2)))
1136         return false;
1137       break;
1138
1139     case UNBOUND_CLASS_TEMPLATE:
1140       if (!cp_tree_equal (TYPE_IDENTIFIER (t1), TYPE_IDENTIFIER (t2)))
1141         return false;
1142       if (!same_type_p (TYPE_CONTEXT (t1), TYPE_CONTEXT (t2)))
1143         return false;
1144       break;
1145
1146     case COMPLEX_TYPE:
1147       if (!same_type_p (TREE_TYPE (t1), TREE_TYPE (t2)))
1148         return false;
1149       break;
1150
1151     case VECTOR_TYPE:
1152       if (TYPE_VECTOR_SUBPARTS (t1) != TYPE_VECTOR_SUBPARTS (t2)
1153           || !same_type_p (TREE_TYPE (t1), TREE_TYPE (t2)))
1154         return false;
1155       break;
1156
1157     case TYPE_PACK_EXPANSION:
1158       return same_type_p (PACK_EXPANSION_PATTERN (t1),
1159                           PACK_EXPANSION_PATTERN (t2));
1160
1161     case DECLTYPE_TYPE:
1162       if (DECLTYPE_TYPE_ID_EXPR_OR_MEMBER_ACCESS_P (t1)
1163           != DECLTYPE_TYPE_ID_EXPR_OR_MEMBER_ACCESS_P (t2)
1164           || !cp_tree_equal (DECLTYPE_TYPE_EXPR (t1),
1165                              DECLTYPE_TYPE_EXPR (t2)))
1166         return false;
1167       break;
1168
1169     default:
1170       return false;
1171     }
1172
1173   /* If we get here, we know that from a target independent POV the
1174      types are the same.  Make sure the target attributes are also
1175      the same.  */
1176   return targetm.comp_type_attributes (t1, t2);
1177 }
1178
1179 /* Return true if T1 and T2 are related as allowed by STRICT.  STRICT
1180    is a bitwise-or of the COMPARE_* flags.  */
1181
1182 bool
1183 comptypes (tree t1, tree t2, int strict)
1184 {
1185   if (strict == COMPARE_STRICT)
1186     {
1187       if (t1 == t2)
1188         return true;
1189
1190       if (t1 == error_mark_node || t2 == error_mark_node)
1191         return false;
1192
1193       if (TYPE_STRUCTURAL_EQUALITY_P (t1) || TYPE_STRUCTURAL_EQUALITY_P (t2))
1194         /* At least one of the types requires structural equality, so
1195            perform a deep check. */
1196         return structural_comptypes (t1, t2, strict);
1197
1198 #ifdef ENABLE_CHECKING
1199       if (USE_CANONICAL_TYPES)
1200         {
1201           bool result = structural_comptypes (t1, t2, strict);
1202
1203           if (result && TYPE_CANONICAL (t1) != TYPE_CANONICAL (t2))
1204             /* The two types are structurally equivalent, but their
1205                canonical types were different. This is a failure of the
1206                canonical type propagation code.*/
1207             internal_error
1208               ("canonical types differ for identical types %T and %T",
1209                t1, t2);
1210           else if (!result && TYPE_CANONICAL (t1) == TYPE_CANONICAL (t2))
1211             /* Two types are structurally different, but the canonical
1212                types are the same. This means we were over-eager in
1213                assigning canonical types. */
1214             internal_error
1215               ("same canonical type node for different types %T and %T",
1216                t1, t2);
1217
1218           return result;
1219         }
1220 #else
1221       if (USE_CANONICAL_TYPES)
1222         return TYPE_CANONICAL (t1) == TYPE_CANONICAL (t2);
1223 #endif
1224       else
1225         return structural_comptypes (t1, t2, strict);
1226     }
1227   else if (strict == COMPARE_STRUCTURAL)
1228     return structural_comptypes (t1, t2, COMPARE_STRICT);
1229   else
1230     return structural_comptypes (t1, t2, strict);
1231 }
1232
1233 /* Returns 1 if TYPE1 is at least as qualified as TYPE2.  */
1234
1235 bool
1236 at_least_as_qualified_p (const_tree type1, const_tree type2)
1237 {
1238   int q1 = cp_type_quals (type1);
1239   int q2 = cp_type_quals (type2);
1240
1241   /* All qualifiers for TYPE2 must also appear in TYPE1.  */
1242   return (q1 & q2) == q2;
1243 }
1244
1245 /* Returns 1 if TYPE1 is more cv-qualified than TYPE2, -1 if TYPE2 is
1246    more cv-qualified that TYPE1, and 0 otherwise.  */
1247
1248 int
1249 comp_cv_qualification (const_tree type1, const_tree type2)
1250 {
1251   int q1 = cp_type_quals (type1);
1252   int q2 = cp_type_quals (type2);
1253
1254   if (q1 == q2)
1255     return 0;
1256
1257   if ((q1 & q2) == q2)
1258     return 1;
1259   else if ((q1 & q2) == q1)
1260     return -1;
1261
1262   return 0;
1263 }
1264
1265 /* Returns 1 if the cv-qualification signature of TYPE1 is a proper
1266    subset of the cv-qualification signature of TYPE2, and the types
1267    are similar.  Returns -1 if the other way 'round, and 0 otherwise.  */
1268
1269 int
1270 comp_cv_qual_signature (tree type1, tree type2)
1271 {
1272   if (comp_ptr_ttypes_real (type2, type1, -1))
1273     return 1;
1274   else if (comp_ptr_ttypes_real (type1, type2, -1))
1275     return -1;
1276   else
1277     return 0;
1278 }
1279 \f
1280 /* Subroutines of `comptypes'.  */
1281
1282 /* Return true if two parameter type lists PARMS1 and PARMS2 are
1283    equivalent in the sense that functions with those parameter types
1284    can have equivalent types.  The two lists must be equivalent,
1285    element by element.  */
1286
1287 bool
1288 compparms (const_tree parms1, const_tree parms2)
1289 {
1290   const_tree t1, t2;
1291
1292   /* An unspecified parmlist matches any specified parmlist
1293      whose argument types don't need default promotions.  */
1294
1295   for (t1 = parms1, t2 = parms2;
1296        t1 || t2;
1297        t1 = TREE_CHAIN (t1), t2 = TREE_CHAIN (t2))
1298     {
1299       /* If one parmlist is shorter than the other,
1300          they fail to match.  */
1301       if (!t1 || !t2)
1302         return false;
1303       if (!same_type_p (TREE_VALUE (t1), TREE_VALUE (t2)))
1304         return false;
1305     }
1306   return true;
1307 }
1308
1309 \f
1310 /* Process a sizeof or alignof expression where the operand is a
1311    type.  */
1312
1313 tree
1314 cxx_sizeof_or_alignof_type (tree type, enum tree_code op, bool complain)
1315 {
1316   tree value;
1317   bool dependent_p;
1318
1319   gcc_assert (op == SIZEOF_EXPR || op == ALIGNOF_EXPR);
1320   if (type == error_mark_node)
1321     return error_mark_node;
1322
1323   type = non_reference (type);
1324   if (TREE_CODE (type) == METHOD_TYPE)
1325     {
1326       if (complain)
1327         pedwarn (input_location, pedantic ? OPT_pedantic : OPT_Wpointer_arith,
1328                  "invalid application of %qs to a member function",
1329                  operator_name_info[(int) op].name);
1330       value = size_one_node;
1331     }
1332
1333   dependent_p = dependent_type_p (type);
1334   if (!dependent_p)
1335     complete_type (type);
1336   if (dependent_p
1337       /* VLA types will have a non-constant size.  In the body of an
1338          uninstantiated template, we don't need to try to compute the
1339          value, because the sizeof expression is not an integral
1340          constant expression in that case.  And, if we do try to
1341          compute the value, we'll likely end up with SAVE_EXPRs, which
1342          the template substitution machinery does not expect to see.  */
1343       || (processing_template_decl
1344           && COMPLETE_TYPE_P (type)
1345           && TREE_CODE (TYPE_SIZE (type)) != INTEGER_CST))
1346     {
1347       value = build_min (op, size_type_node, type);
1348       TREE_READONLY (value) = 1;
1349       return value;
1350     }
1351
1352   return c_sizeof_or_alignof_type (input_location, complete_type (type),
1353                                    op == SIZEOF_EXPR,
1354                                    complain);
1355 }
1356
1357 /* Return the size of the type, without producing any warnings for
1358    types whose size cannot be taken.  This routine should be used only
1359    in some other routine that has already produced a diagnostic about
1360    using the size of such a type.  */
1361 tree
1362 cxx_sizeof_nowarn (tree type)
1363 {
1364   if (TREE_CODE (type) == FUNCTION_TYPE
1365       || TREE_CODE (type) == VOID_TYPE
1366       || TREE_CODE (type) == ERROR_MARK)
1367     return size_one_node;
1368   else if (!COMPLETE_TYPE_P (type))
1369     return size_zero_node;
1370   else
1371     return cxx_sizeof_or_alignof_type (type, SIZEOF_EXPR, false);
1372 }
1373
1374 /* Process a sizeof expression where the operand is an expression.  */
1375
1376 static tree
1377 cxx_sizeof_expr (tree e, tsubst_flags_t complain)
1378 {
1379   if (e == error_mark_node)
1380     return error_mark_node;
1381
1382   if (processing_template_decl)
1383     {
1384       e = build_min (SIZEOF_EXPR, size_type_node, e);
1385       TREE_SIDE_EFFECTS (e) = 0;
1386       TREE_READONLY (e) = 1;
1387
1388       return e;
1389     }
1390
1391   if (TREE_CODE (e) == COMPONENT_REF
1392       && TREE_CODE (TREE_OPERAND (e, 1)) == FIELD_DECL
1393       && DECL_C_BIT_FIELD (TREE_OPERAND (e, 1)))
1394     {
1395       if (complain & tf_error)
1396         error ("invalid application of %<sizeof%> to a bit-field");
1397       else
1398         return error_mark_node;
1399       e = char_type_node;
1400     }
1401   else if (is_overloaded_fn (e))
1402     {
1403       if (complain & tf_error)
1404         permerror (input_location, "ISO C++ forbids applying %<sizeof%> to an expression of "
1405                    "function type");
1406       else
1407         return error_mark_node;
1408       e = char_type_node;
1409     }
1410   else if (type_unknown_p (e))
1411     {
1412       if (complain & tf_error)
1413         cxx_incomplete_type_error (e, TREE_TYPE (e));
1414       else
1415         return error_mark_node;
1416       e = char_type_node;
1417     }
1418   else
1419     e = TREE_TYPE (e);
1420
1421   return cxx_sizeof_or_alignof_type (e, SIZEOF_EXPR, complain & tf_error);
1422 }
1423
1424 /* Implement the __alignof keyword: Return the minimum required
1425    alignment of E, measured in bytes.  For VAR_DECL's and
1426    FIELD_DECL's return DECL_ALIGN (which can be set from an
1427    "aligned" __attribute__ specification).  */
1428
1429 static tree
1430 cxx_alignof_expr (tree e, tsubst_flags_t complain)
1431 {
1432   tree t;
1433
1434   if (e == error_mark_node)
1435     return error_mark_node;
1436
1437   if (processing_template_decl)
1438     {
1439       e = build_min (ALIGNOF_EXPR, size_type_node, e);
1440       TREE_SIDE_EFFECTS (e) = 0;
1441       TREE_READONLY (e) = 1;
1442
1443       return e;
1444     }
1445
1446   if (TREE_CODE (e) == VAR_DECL)
1447     t = size_int (DECL_ALIGN_UNIT (e));
1448   else if (TREE_CODE (e) == COMPONENT_REF
1449            && TREE_CODE (TREE_OPERAND (e, 1)) == FIELD_DECL
1450            && DECL_C_BIT_FIELD (TREE_OPERAND (e, 1)))
1451     {
1452       if (complain & tf_error)
1453         error ("invalid application of %<__alignof%> to a bit-field");
1454       else
1455         return error_mark_node;
1456       t = size_one_node;
1457     }
1458   else if (TREE_CODE (e) == COMPONENT_REF
1459            && TREE_CODE (TREE_OPERAND (e, 1)) == FIELD_DECL)
1460     t = size_int (DECL_ALIGN_UNIT (TREE_OPERAND (e, 1)));
1461   else if (is_overloaded_fn (e))
1462     {
1463       if (complain & tf_error)
1464         permerror (input_location, "ISO C++ forbids applying %<__alignof%> to an expression of "
1465                    "function type");
1466       else
1467         return error_mark_node;
1468       if (TREE_CODE (e) == FUNCTION_DECL)
1469         t = size_int (DECL_ALIGN_UNIT (e));
1470       else
1471         t = size_one_node;
1472     }
1473   else if (type_unknown_p (e))
1474     {
1475       if (complain & tf_error)
1476         cxx_incomplete_type_error (e, TREE_TYPE (e));
1477       else
1478         return error_mark_node;
1479       t = size_one_node;
1480     }
1481   else
1482     return cxx_sizeof_or_alignof_type (TREE_TYPE (e), ALIGNOF_EXPR,
1483                                        complain & tf_error);
1484
1485   return fold_convert (size_type_node, t);
1486 }
1487
1488 /* Process a sizeof or alignof expression E with code OP where the operand
1489    is an expression.  */
1490
1491 tree
1492 cxx_sizeof_or_alignof_expr (tree e, enum tree_code op, bool complain)
1493 {
1494   if (op == SIZEOF_EXPR)
1495     return cxx_sizeof_expr (e, complain? tf_warning_or_error : tf_none);
1496   else
1497     return cxx_alignof_expr (e, complain? tf_warning_or_error : tf_none);
1498 }
1499 \f
1500 /* EXPR is being used in a context that is not a function call.
1501    Enforce:
1502
1503      [expr.ref]
1504
1505      The expression can be used only as the left-hand operand of a
1506      member function call.
1507
1508      [expr.mptr.operator]
1509
1510      If the result of .* or ->* is a function, then that result can be
1511      used only as the operand for the function call operator ().
1512
1513    by issuing an error message if appropriate.  Returns true iff EXPR
1514    violates these rules.  */
1515
1516 bool
1517 invalid_nonstatic_memfn_p (const_tree expr, tsubst_flags_t complain)
1518 {
1519   if (expr && DECL_NONSTATIC_MEMBER_FUNCTION_P (expr))
1520     {
1521       if (complain & tf_error)
1522         error ("invalid use of non-static member function");
1523       return true;
1524     }
1525   return false;
1526 }
1527
1528 /* If EXP is a reference to a bitfield, and the type of EXP does not
1529    match the declared type of the bitfield, return the declared type
1530    of the bitfield.  Otherwise, return NULL_TREE.  */
1531
1532 tree
1533 is_bitfield_expr_with_lowered_type (const_tree exp)
1534 {
1535   switch (TREE_CODE (exp))
1536     {
1537     case COND_EXPR:
1538       if (!is_bitfield_expr_with_lowered_type (TREE_OPERAND (exp, 1)
1539                                                ? TREE_OPERAND (exp, 1)
1540                                                : TREE_OPERAND (exp, 0)))
1541         return NULL_TREE;
1542       return is_bitfield_expr_with_lowered_type (TREE_OPERAND (exp, 2));
1543
1544     case COMPOUND_EXPR:
1545       return is_bitfield_expr_with_lowered_type (TREE_OPERAND (exp, 1));
1546
1547     case MODIFY_EXPR:
1548     case SAVE_EXPR:
1549       return is_bitfield_expr_with_lowered_type (TREE_OPERAND (exp, 0));
1550
1551     case COMPONENT_REF:
1552       {
1553         tree field;
1554
1555         field = TREE_OPERAND (exp, 1);
1556         if (TREE_CODE (field) != FIELD_DECL || !DECL_BIT_FIELD_TYPE (field))
1557           return NULL_TREE;
1558         if (same_type_ignoring_top_level_qualifiers_p
1559             (TREE_TYPE (exp), DECL_BIT_FIELD_TYPE (field)))
1560           return NULL_TREE;
1561         return DECL_BIT_FIELD_TYPE (field);
1562       }
1563
1564     CASE_CONVERT:
1565       if (TYPE_MAIN_VARIANT (TREE_TYPE (TREE_OPERAND (exp, 0)))
1566           == TYPE_MAIN_VARIANT (TREE_TYPE (exp)))
1567         return is_bitfield_expr_with_lowered_type (TREE_OPERAND (exp, 0));
1568       /* Fallthrough.  */
1569
1570     default:
1571       return NULL_TREE;
1572     }
1573 }
1574
1575 /* Like is_bitfield_with_lowered_type, except that if EXP is not a
1576    bitfield with a lowered type, the type of EXP is returned, rather
1577    than NULL_TREE.  */
1578
1579 tree
1580 unlowered_expr_type (const_tree exp)
1581 {
1582   tree type;
1583
1584   type = is_bitfield_expr_with_lowered_type (exp);
1585   if (!type)
1586     type = TREE_TYPE (exp);
1587
1588   return type;
1589 }
1590
1591 /* Perform the conversions in [expr] that apply when an lvalue appears
1592    in an rvalue context: the lvalue-to-rvalue, array-to-pointer, and
1593    function-to-pointer conversions.  In addition, manifest constants
1594    are replaced by their values, and bitfield references are converted
1595    to their declared types.
1596
1597    Although the returned value is being used as an rvalue, this
1598    function does not wrap the returned expression in a
1599    NON_LVALUE_EXPR; the caller is expected to be mindful of the fact
1600    that the return value is no longer an lvalue.  */
1601
1602 tree
1603 decay_conversion (tree exp)
1604 {
1605   tree type;
1606   enum tree_code code;
1607
1608   type = TREE_TYPE (exp);
1609   if (type == error_mark_node)
1610     return error_mark_node;
1611
1612   if (type_unknown_p (exp))
1613     {
1614       cxx_incomplete_type_error (exp, TREE_TYPE (exp));
1615       return error_mark_node;
1616     }
1617
1618   exp = decl_constant_value (exp);
1619   if (error_operand_p (exp))
1620     return error_mark_node;
1621
1622   /* build_c_cast puts on a NOP_EXPR to make the result not an lvalue.
1623      Leave such NOP_EXPRs, since RHS is being used in non-lvalue context.  */
1624   code = TREE_CODE (type);
1625   if (code == VOID_TYPE)
1626     {
1627       error ("void value not ignored as it ought to be");
1628       return error_mark_node;
1629     }
1630   if (invalid_nonstatic_memfn_p (exp, tf_warning_or_error))
1631     return error_mark_node;
1632   if (code == FUNCTION_TYPE || is_overloaded_fn (exp))
1633     return cp_build_unary_op (ADDR_EXPR, exp, 0, tf_warning_or_error);
1634   if (code == ARRAY_TYPE)
1635     {
1636       tree adr;
1637       tree ptrtype;
1638
1639       if (TREE_CODE (exp) == INDIRECT_REF)
1640         return build_nop (build_pointer_type (TREE_TYPE (type)),
1641                           TREE_OPERAND (exp, 0));
1642
1643       if (TREE_CODE (exp) == COMPOUND_EXPR)
1644         {
1645           tree op1 = decay_conversion (TREE_OPERAND (exp, 1));
1646           return build2 (COMPOUND_EXPR, TREE_TYPE (op1),
1647                          TREE_OPERAND (exp, 0), op1);
1648         }
1649
1650       if (!lvalue_p (exp)
1651           && ! (TREE_CODE (exp) == CONSTRUCTOR && TREE_STATIC (exp)))
1652         {
1653           error ("invalid use of non-lvalue array");
1654           return error_mark_node;
1655         }
1656
1657       ptrtype = build_pointer_type (TREE_TYPE (type));
1658
1659       if (TREE_CODE (exp) == VAR_DECL)
1660         {
1661           if (!cxx_mark_addressable (exp))
1662             return error_mark_node;
1663           adr = build_nop (ptrtype, build_address (exp));
1664           return adr;
1665         }
1666       /* This way is better for a COMPONENT_REF since it can
1667          simplify the offset for a component.  */
1668       adr = cp_build_unary_op (ADDR_EXPR, exp, 1, tf_warning_or_error);
1669       return cp_convert (ptrtype, adr);
1670     }
1671
1672   /* If a bitfield is used in a context where integral promotion
1673      applies, then the caller is expected to have used
1674      default_conversion.  That function promotes bitfields correctly
1675      before calling this function.  At this point, if we have a
1676      bitfield referenced, we may assume that is not subject to
1677      promotion, and that, therefore, the type of the resulting rvalue
1678      is the declared type of the bitfield.  */
1679   exp = convert_bitfield_to_declared_type (exp);
1680
1681   /* We do not call rvalue() here because we do not want to wrap EXP
1682      in a NON_LVALUE_EXPR.  */
1683
1684   /* [basic.lval]
1685
1686      Non-class rvalues always have cv-unqualified types.  */
1687   type = TREE_TYPE (exp);
1688   if (!CLASS_TYPE_P (type) && cp_type_quals (type))
1689     exp = build_nop (TYPE_MAIN_VARIANT (type), exp);
1690
1691   return exp;
1692 }
1693
1694 /* Perform preparatory conversions, as part of the "usual arithmetic
1695    conversions".  In particular, as per [expr]:
1696
1697      Whenever an lvalue expression appears as an operand of an
1698      operator that expects the rvalue for that operand, the
1699      lvalue-to-rvalue, array-to-pointer, or function-to-pointer
1700      standard conversions are applied to convert the expression to an
1701      rvalue.
1702
1703    In addition, we perform integral promotions here, as those are
1704    applied to both operands to a binary operator before determining
1705    what additional conversions should apply.  */
1706
1707 tree
1708 default_conversion (tree exp)
1709 {
1710   /* Check for target-specific promotions.  */
1711   tree promoted_type = targetm.promoted_type (TREE_TYPE (exp));
1712   if (promoted_type)
1713     exp = cp_convert (promoted_type, exp);
1714   /* Perform the integral promotions first so that bitfield
1715      expressions (which may promote to "int", even if the bitfield is
1716      declared "unsigned") are promoted correctly.  */
1717   else if (INTEGRAL_OR_UNSCOPED_ENUMERATION_TYPE_P (TREE_TYPE (exp)))
1718     exp = perform_integral_promotions (exp);
1719   /* Perform the other conversions.  */
1720   exp = decay_conversion (exp);
1721
1722   return exp;
1723 }
1724
1725 /* EXPR is an expression with an integral or enumeration type.
1726    Perform the integral promotions in [conv.prom], and return the
1727    converted value.  */
1728
1729 tree
1730 perform_integral_promotions (tree expr)
1731 {
1732   tree type;
1733   tree promoted_type;
1734
1735   /* [conv.prom]
1736
1737      If the bitfield has an enumerated type, it is treated as any
1738      other value of that type for promotion purposes.  */
1739   type = is_bitfield_expr_with_lowered_type (expr);
1740   if (!type || TREE_CODE (type) != ENUMERAL_TYPE)
1741     type = TREE_TYPE (expr);
1742   gcc_assert (INTEGRAL_OR_ENUMERATION_TYPE_P (type));
1743   promoted_type = type_promotes_to (type);
1744   if (type != promoted_type)
1745     expr = cp_convert (promoted_type, expr);
1746   return expr;
1747 }
1748
1749 /* Returns nonzero iff exp is a STRING_CST or the result of applying
1750    decay_conversion to one.  */
1751
1752 int
1753 string_conv_p (const_tree totype, const_tree exp, int warn)
1754 {
1755   tree t;
1756
1757   if (TREE_CODE (totype) != POINTER_TYPE)
1758     return 0;
1759
1760   t = TREE_TYPE (totype);
1761   if (!same_type_p (t, char_type_node)
1762       && !same_type_p (t, char16_type_node)
1763       && !same_type_p (t, char32_type_node)
1764       && !same_type_p (t, wchar_type_node))
1765     return 0;
1766
1767   if (TREE_CODE (exp) == STRING_CST)
1768     {
1769       /* Make sure that we don't try to convert between char and wide chars.  */
1770       if (!same_type_p (TYPE_MAIN_VARIANT (TREE_TYPE (TREE_TYPE (exp))), t))
1771         return 0;
1772     }
1773   else
1774     {
1775       /* Is this a string constant which has decayed to 'const char *'?  */
1776       t = build_pointer_type (build_qualified_type (t, TYPE_QUAL_CONST));
1777       if (!same_type_p (TREE_TYPE (exp), t))
1778         return 0;
1779       STRIP_NOPS (exp);
1780       if (TREE_CODE (exp) != ADDR_EXPR
1781           || TREE_CODE (TREE_OPERAND (exp, 0)) != STRING_CST)
1782         return 0;
1783     }
1784
1785   /* This warning is not very useful, as it complains about printf.  */
1786   if (warn)
1787     warning (OPT_Wwrite_strings,
1788              "deprecated conversion from string constant to %qT",
1789              totype);
1790
1791   return 1;
1792 }
1793
1794 /* Given a COND_EXPR, MIN_EXPR, or MAX_EXPR in T, return it in a form that we
1795    can, for example, use as an lvalue.  This code used to be in
1796    unary_complex_lvalue, but we needed it to deal with `a = (d == c) ? b : c'
1797    expressions, where we're dealing with aggregates.  But now it's again only
1798    called from unary_complex_lvalue.  The case (in particular) that led to
1799    this was with CODE == ADDR_EXPR, since it's not an lvalue when we'd
1800    get it there.  */
1801
1802 static tree
1803 rationalize_conditional_expr (enum tree_code code, tree t,
1804                               tsubst_flags_t complain)
1805 {
1806   /* For MIN_EXPR or MAX_EXPR, fold-const.c has arranged things so that
1807      the first operand is always the one to be used if both operands
1808      are equal, so we know what conditional expression this used to be.  */
1809   if (TREE_CODE (t) == MIN_EXPR || TREE_CODE (t) == MAX_EXPR)
1810     {
1811       tree op0 = TREE_OPERAND (t, 0);
1812       tree op1 = TREE_OPERAND (t, 1);
1813
1814       /* The following code is incorrect if either operand side-effects.  */
1815       gcc_assert (!TREE_SIDE_EFFECTS (op0)
1816                   && !TREE_SIDE_EFFECTS (op1));
1817       return
1818         build_conditional_expr (build_x_binary_op ((TREE_CODE (t) == MIN_EXPR
1819                                                     ? LE_EXPR : GE_EXPR),
1820                                                    op0, TREE_CODE (op0),
1821                                                    op1, TREE_CODE (op1),
1822                                                    /*overloaded_p=*/NULL,
1823                                                    complain),
1824                                 cp_build_unary_op (code, op0, 0, complain),
1825                                 cp_build_unary_op (code, op1, 0, complain),
1826                                 complain);
1827     }
1828
1829   return
1830     build_conditional_expr (TREE_OPERAND (t, 0),
1831                             cp_build_unary_op (code, TREE_OPERAND (t, 1), 0,
1832                                                complain),
1833                             cp_build_unary_op (code, TREE_OPERAND (t, 2), 0,
1834                                                complain),
1835                             complain);
1836 }
1837
1838 /* Given the TYPE of an anonymous union field inside T, return the
1839    FIELD_DECL for the field.  If not found return NULL_TREE.  Because
1840    anonymous unions can nest, we must also search all anonymous unions
1841    that are directly reachable.  */
1842
1843 tree
1844 lookup_anon_field (tree t, tree type)
1845 {
1846   tree field;
1847
1848   for (field = TYPE_FIELDS (t); field; field = TREE_CHAIN (field))
1849     {
1850       if (TREE_STATIC (field))
1851         continue;
1852       if (TREE_CODE (field) != FIELD_DECL || DECL_ARTIFICIAL (field))
1853         continue;
1854
1855       /* If we find it directly, return the field.  */
1856       if (DECL_NAME (field) == NULL_TREE
1857           && type == TYPE_MAIN_VARIANT (TREE_TYPE (field)))
1858         {
1859           return field;
1860         }
1861
1862       /* Otherwise, it could be nested, search harder.  */
1863       if (DECL_NAME (field) == NULL_TREE
1864           && ANON_AGGR_TYPE_P (TREE_TYPE (field)))
1865         {
1866           tree subfield = lookup_anon_field (TREE_TYPE (field), type);
1867           if (subfield)
1868             return subfield;
1869         }
1870     }
1871   return NULL_TREE;
1872 }
1873
1874 /* Build an expression representing OBJECT.MEMBER.  OBJECT is an
1875    expression; MEMBER is a DECL or baselink.  If ACCESS_PATH is
1876    non-NULL, it indicates the path to the base used to name MEMBER.
1877    If PRESERVE_REFERENCE is true, the expression returned will have
1878    REFERENCE_TYPE if the MEMBER does.  Otherwise, the expression
1879    returned will have the type referred to by the reference.
1880
1881    This function does not perform access control; that is either done
1882    earlier by the parser when the name of MEMBER is resolved to MEMBER
1883    itself, or later when overload resolution selects one of the
1884    functions indicated by MEMBER.  */
1885
1886 tree
1887 build_class_member_access_expr (tree object, tree member,
1888                                 tree access_path, bool preserve_reference,
1889                                 tsubst_flags_t complain)
1890 {
1891   tree object_type;
1892   tree member_scope;
1893   tree result = NULL_TREE;
1894
1895   if (error_operand_p (object) || error_operand_p (member))
1896     return error_mark_node;
1897
1898   gcc_assert (DECL_P (member) || BASELINK_P (member));
1899
1900   /* [expr.ref]
1901
1902      The type of the first expression shall be "class object" (of a
1903      complete type).  */
1904   object_type = TREE_TYPE (object);
1905   if (!currently_open_class (object_type)
1906       && !complete_type_or_else (object_type, object))
1907     return error_mark_node;
1908   if (!CLASS_TYPE_P (object_type))
1909     {
1910       if (complain & tf_error)
1911         error ("request for member %qD in %qE, which is of non-class type %qT",
1912                member, object, object_type);
1913       return error_mark_node;
1914     }
1915
1916   /* The standard does not seem to actually say that MEMBER must be a
1917      member of OBJECT_TYPE.  However, that is clearly what is
1918      intended.  */
1919   if (DECL_P (member))
1920     {
1921       member_scope = DECL_CLASS_CONTEXT (member);
1922       mark_used (member);
1923       if (TREE_DEPRECATED (member))
1924         warn_deprecated_use (member, NULL_TREE);
1925     }
1926   else
1927     member_scope = BINFO_TYPE (BASELINK_ACCESS_BINFO (member));
1928   /* If MEMBER is from an anonymous aggregate, MEMBER_SCOPE will
1929      presently be the anonymous union.  Go outwards until we find a
1930      type related to OBJECT_TYPE.  */
1931   while (ANON_AGGR_TYPE_P (member_scope)
1932          && !same_type_ignoring_top_level_qualifiers_p (member_scope,
1933                                                         object_type))
1934     member_scope = TYPE_CONTEXT (member_scope);
1935   if (!member_scope || !DERIVED_FROM_P (member_scope, object_type))
1936     {
1937       if (complain & tf_error)
1938         {
1939           if (TREE_CODE (member) == FIELD_DECL)
1940             error ("invalid use of nonstatic data member %qE", member);
1941           else
1942             error ("%qD is not a member of %qT", member, object_type);
1943         }
1944       return error_mark_node;
1945     }
1946
1947   /* Transform `(a, b).x' into `(*(a, &b)).x', `(a ? b : c).x' into
1948      `(*(a ?  &b : &c)).x', and so on.  A COND_EXPR is only an lvalue
1949      in the front end; only _DECLs and _REFs are lvalues in the back end.  */
1950   {
1951     tree temp = unary_complex_lvalue (ADDR_EXPR, object);
1952     if (temp)
1953       object = cp_build_indirect_ref (temp, NULL, complain);
1954   }
1955
1956   /* In [expr.ref], there is an explicit list of the valid choices for
1957      MEMBER.  We check for each of those cases here.  */
1958   if (TREE_CODE (member) == VAR_DECL)
1959     {
1960       /* A static data member.  */
1961       result = member;
1962       /* If OBJECT has side-effects, they are supposed to occur.  */
1963       if (TREE_SIDE_EFFECTS (object))
1964         result = build2 (COMPOUND_EXPR, TREE_TYPE (result), object, result);
1965     }
1966   else if (TREE_CODE (member) == FIELD_DECL)
1967     {
1968       /* A non-static data member.  */
1969       bool null_object_p;
1970       int type_quals;
1971       tree member_type;
1972
1973       null_object_p = (TREE_CODE (object) == INDIRECT_REF
1974                        && integer_zerop (TREE_OPERAND (object, 0)));
1975
1976       /* Convert OBJECT to the type of MEMBER.  */
1977       if (!same_type_p (TYPE_MAIN_VARIANT (object_type),
1978                         TYPE_MAIN_VARIANT (member_scope)))
1979         {
1980           tree binfo;
1981           base_kind kind;
1982
1983           binfo = lookup_base (access_path ? access_path : object_type,
1984                                member_scope, ba_unique,  &kind);
1985           if (binfo == error_mark_node)
1986             return error_mark_node;
1987
1988           /* It is invalid to try to get to a virtual base of a
1989              NULL object.  The most common cause is invalid use of
1990              offsetof macro.  */
1991           if (null_object_p && kind == bk_via_virtual)
1992             {
1993               if (complain & tf_error)
1994                 {
1995                   error ("invalid access to non-static data member %qD of "
1996                          "NULL object",
1997                          member);
1998                   error ("(perhaps the %<offsetof%> macro was used incorrectly)");
1999                 }
2000               return error_mark_node;
2001             }
2002
2003           /* Convert to the base.  */
2004           object = build_base_path (PLUS_EXPR, object, binfo,
2005                                     /*nonnull=*/1);
2006           /* If we found the base successfully then we should be able
2007              to convert to it successfully.  */
2008           gcc_assert (object != error_mark_node);
2009         }
2010
2011       /* Complain about other invalid uses of offsetof, even though they will
2012          give the right answer.  Note that we complain whether or not they
2013          actually used the offsetof macro, since there's no way to know at this
2014          point.  So we just give a warning, instead of a pedwarn.  */
2015       /* Do not produce this warning for base class field references, because
2016          we know for a fact that didn't come from offsetof.  This does occur
2017          in various testsuite cases where a null object is passed where a
2018          vtable access is required.  */
2019       if (null_object_p && warn_invalid_offsetof
2020           && CLASSTYPE_NON_STD_LAYOUT (object_type)
2021           && !DECL_FIELD_IS_BASE (member)
2022           && cp_unevaluated_operand == 0
2023           && (complain & tf_warning))
2024         {
2025           warning (OPT_Winvalid_offsetof,
2026                    "invalid access to non-static data member %qD "
2027                    " of NULL object", member);
2028           warning (OPT_Winvalid_offsetof,
2029                    "(perhaps the %<offsetof%> macro was used incorrectly)");
2030         }
2031
2032       /* If MEMBER is from an anonymous aggregate, we have converted
2033          OBJECT so that it refers to the class containing the
2034          anonymous union.  Generate a reference to the anonymous union
2035          itself, and recur to find MEMBER.  */
2036       if (ANON_AGGR_TYPE_P (DECL_CONTEXT (member))
2037           /* When this code is called from build_field_call, the
2038              object already has the type of the anonymous union.
2039              That is because the COMPONENT_REF was already
2040              constructed, and was then disassembled before calling
2041              build_field_call.  After the function-call code is
2042              cleaned up, this waste can be eliminated.  */
2043           && (!same_type_ignoring_top_level_qualifiers_p
2044               (TREE_TYPE (object), DECL_CONTEXT (member))))
2045         {
2046           tree anonymous_union;
2047
2048           anonymous_union = lookup_anon_field (TREE_TYPE (object),
2049                                                DECL_CONTEXT (member));
2050           object = build_class_member_access_expr (object,
2051                                                    anonymous_union,
2052                                                    /*access_path=*/NULL_TREE,
2053                                                    preserve_reference,
2054                                                    complain);
2055         }
2056
2057       /* Compute the type of the field, as described in [expr.ref].  */
2058       type_quals = TYPE_UNQUALIFIED;
2059       member_type = TREE_TYPE (member);
2060       if (TREE_CODE (member_type) != REFERENCE_TYPE)
2061         {
2062           type_quals = (cp_type_quals (member_type)
2063                         | cp_type_quals (object_type));
2064
2065           /* A field is const (volatile) if the enclosing object, or the
2066              field itself, is const (volatile).  But, a mutable field is
2067              not const, even within a const object.  */
2068           if (DECL_MUTABLE_P (member))
2069             type_quals &= ~TYPE_QUAL_CONST;
2070           member_type = cp_build_qualified_type (member_type, type_quals);
2071         }
2072
2073       result = build3 (COMPONENT_REF, member_type, object, member,
2074                        NULL_TREE);
2075       result = fold_if_not_in_template (result);
2076
2077       /* Mark the expression const or volatile, as appropriate.  Even
2078          though we've dealt with the type above, we still have to mark the
2079          expression itself.  */
2080       if (type_quals & TYPE_QUAL_CONST)
2081         TREE_READONLY (result) = 1;
2082       if (type_quals & TYPE_QUAL_VOLATILE)
2083         TREE_THIS_VOLATILE (result) = 1;
2084     }
2085   else if (BASELINK_P (member))
2086     {
2087       /* The member is a (possibly overloaded) member function.  */
2088       tree functions;
2089       tree type;
2090
2091       /* If the MEMBER is exactly one static member function, then we
2092          know the type of the expression.  Otherwise, we must wait
2093          until overload resolution has been performed.  */
2094       functions = BASELINK_FUNCTIONS (member);
2095       if (TREE_CODE (functions) == FUNCTION_DECL
2096           && DECL_STATIC_FUNCTION_P (functions))
2097         type = TREE_TYPE (functions);
2098       else
2099         type = unknown_type_node;
2100       /* Note that we do not convert OBJECT to the BASELINK_BINFO
2101          base.  That will happen when the function is called.  */
2102       result = build3 (COMPONENT_REF, type, object, member, NULL_TREE);
2103     }
2104   else if (TREE_CODE (member) == CONST_DECL)
2105     {
2106       /* The member is an enumerator.  */
2107       result = member;
2108       /* If OBJECT has side-effects, they are supposed to occur.  */
2109       if (TREE_SIDE_EFFECTS (object))
2110         result = build2 (COMPOUND_EXPR, TREE_TYPE (result),
2111                          object, result);
2112     }
2113   else
2114     {
2115       if (complain & tf_error)
2116         error ("invalid use of %qD", member);
2117       return error_mark_node;
2118     }
2119
2120   if (!preserve_reference)
2121     /* [expr.ref]
2122
2123        If E2 is declared to have type "reference to T", then ... the
2124        type of E1.E2 is T.  */
2125     result = convert_from_reference (result);
2126
2127   return result;
2128 }
2129
2130 /* Return the destructor denoted by OBJECT.SCOPE::DTOR_NAME, or, if
2131    SCOPE is NULL, by OBJECT.DTOR_NAME, where DTOR_NAME is ~type.  */
2132
2133 static tree
2134 lookup_destructor (tree object, tree scope, tree dtor_name)
2135 {
2136   tree object_type = TREE_TYPE (object);
2137   tree dtor_type = TREE_OPERAND (dtor_name, 0);
2138   tree expr;
2139
2140   if (scope && !check_dtor_name (scope, dtor_type))
2141     {
2142       error ("qualified type %qT does not match destructor name ~%qT",
2143              scope, dtor_type);
2144       return error_mark_node;
2145     }
2146   if (TREE_CODE (dtor_type) == IDENTIFIER_NODE)
2147     {
2148       /* In a template, names we can't find a match for are still accepted
2149          destructor names, and we check them here.  */
2150       if (check_dtor_name (object_type, dtor_type))
2151         dtor_type = object_type;
2152       else
2153         {
2154           error ("object type %qT does not match destructor name ~%qT",
2155                  object_type, dtor_type);
2156           return error_mark_node;
2157         }
2158
2159     }
2160   else if (!DERIVED_FROM_P (dtor_type, TYPE_MAIN_VARIANT (object_type)))
2161     {
2162       error ("the type being destroyed is %qT, but the destructor refers to %qT",
2163              TYPE_MAIN_VARIANT (object_type), dtor_type);
2164       return error_mark_node;
2165     }
2166   expr = lookup_member (dtor_type, complete_dtor_identifier,
2167                         /*protect=*/1, /*want_type=*/false);
2168   expr = (adjust_result_of_qualified_name_lookup
2169           (expr, dtor_type, object_type));
2170   return expr;
2171 }
2172
2173 /* An expression of the form "A::template B" has been resolved to
2174    DECL.  Issue a diagnostic if B is not a template or template
2175    specialization.  */
2176
2177 void
2178 check_template_keyword (tree decl)
2179 {
2180   /* The standard says:
2181
2182       [temp.names]
2183
2184       If a name prefixed by the keyword template is not a member
2185       template, the program is ill-formed.
2186
2187      DR 228 removed the restriction that the template be a member
2188      template.
2189
2190      DR 96, if accepted would add the further restriction that explicit
2191      template arguments must be provided if the template keyword is
2192      used, but, as of 2005-10-16, that DR is still in "drafting".  If
2193      this DR is accepted, then the semantic checks here can be
2194      simplified, as the entity named must in fact be a template
2195      specialization, rather than, as at present, a set of overloaded
2196      functions containing at least one template function.  */
2197   if (TREE_CODE (decl) != TEMPLATE_DECL
2198       && TREE_CODE (decl) != TEMPLATE_ID_EXPR)
2199     {
2200       if (!is_overloaded_fn (decl))
2201         permerror (input_location, "%qD is not a template", decl);
2202       else
2203         {
2204           tree fns;
2205           fns = decl;
2206           if (BASELINK_P (fns))
2207             fns = BASELINK_FUNCTIONS (fns);
2208           while (fns)
2209             {
2210               tree fn = OVL_CURRENT (fns);
2211               if (TREE_CODE (fn) == TEMPLATE_DECL
2212                   || TREE_CODE (fn) == TEMPLATE_ID_EXPR)
2213                 break;
2214               if (TREE_CODE (fn) == FUNCTION_DECL
2215                   && DECL_USE_TEMPLATE (fn)
2216                   && PRIMARY_TEMPLATE_P (DECL_TI_TEMPLATE (fn)))
2217                 break;
2218               fns = OVL_NEXT (fns);
2219             }
2220           if (!fns)
2221             permerror (input_location, "%qD is not a template", decl);
2222         }
2223     }
2224 }
2225
2226 /* This function is called by the parser to process a class member
2227    access expression of the form OBJECT.NAME.  NAME is a node used by
2228    the parser to represent a name; it is not yet a DECL.  It may,
2229    however, be a BASELINK where the BASELINK_FUNCTIONS is a
2230    TEMPLATE_ID_EXPR.  Templates must be looked up by the parser, and
2231    there is no reason to do the lookup twice, so the parser keeps the
2232    BASELINK.  TEMPLATE_P is true iff NAME was explicitly declared to
2233    be a template via the use of the "A::template B" syntax.  */
2234
2235 tree
2236 finish_class_member_access_expr (tree object, tree name, bool template_p,
2237                                  tsubst_flags_t complain)
2238 {
2239   tree expr;
2240   tree object_type;
2241   tree member;
2242   tree access_path = NULL_TREE;
2243   tree orig_object = object;
2244   tree orig_name = name;
2245
2246   if (object == error_mark_node || name == error_mark_node)
2247     return error_mark_node;
2248
2249   /* If OBJECT is an ObjC class instance, we must obey ObjC access rules.  */
2250   if (!objc_is_public (object, name))
2251     return error_mark_node;
2252
2253   object_type = TREE_TYPE (object);
2254
2255   if (processing_template_decl)
2256     {
2257       if (/* If OBJECT_TYPE is dependent, so is OBJECT.NAME.  */
2258           dependent_type_p (object_type)
2259           /* If NAME is just an IDENTIFIER_NODE, then the expression
2260              is dependent.  */
2261           || TREE_CODE (object) == IDENTIFIER_NODE
2262           /* If NAME is "f<args>", where either 'f' or 'args' is
2263              dependent, then the expression is dependent.  */
2264           || (TREE_CODE (name) == TEMPLATE_ID_EXPR
2265               && dependent_template_id_p (TREE_OPERAND (name, 0),
2266                                           TREE_OPERAND (name, 1)))
2267           /* If NAME is "T::X" where "T" is dependent, then the
2268              expression is dependent.  */
2269           || (TREE_CODE (name) == SCOPE_REF
2270               && TYPE_P (TREE_OPERAND (name, 0))
2271               && dependent_type_p (TREE_OPERAND (name, 0))))
2272         return build_min_nt (COMPONENT_REF, object, name, NULL_TREE);
2273       object = build_non_dependent_expr (object);
2274     }
2275
2276   /* [expr.ref]
2277
2278      The type of the first expression shall be "class object" (of a
2279      complete type).  */
2280   if (!currently_open_class (object_type)
2281       && !complete_type_or_else (object_type, object))
2282     return error_mark_node;
2283   if (!CLASS_TYPE_P (object_type))
2284     {
2285       if (complain & tf_error)
2286         error ("request for member %qD in %qE, which is of non-class type %qT",
2287                name, object, object_type);
2288       return error_mark_node;
2289     }
2290
2291   if (BASELINK_P (name))
2292     /* A member function that has already been looked up.  */
2293     member = name;
2294   else
2295     {
2296       bool is_template_id = false;
2297       tree template_args = NULL_TREE;
2298       tree scope;
2299
2300       if (TREE_CODE (name) == TEMPLATE_ID_EXPR)
2301         {
2302           is_template_id = true;
2303           template_args = TREE_OPERAND (name, 1);
2304           name = TREE_OPERAND (name, 0);
2305
2306           if (TREE_CODE (name) == OVERLOAD)
2307             name = DECL_NAME (get_first_fn (name));
2308           else if (DECL_P (name))
2309             name = DECL_NAME (name);
2310         }
2311
2312       if (TREE_CODE (name) == SCOPE_REF)
2313         {
2314           /* A qualified name.  The qualifying class or namespace `S'
2315              has already been looked up; it is either a TYPE or a
2316              NAMESPACE_DECL.  */
2317           scope = TREE_OPERAND (name, 0);
2318           name = TREE_OPERAND (name, 1);
2319
2320           /* If SCOPE is a namespace, then the qualified name does not
2321              name a member of OBJECT_TYPE.  */
2322           if (TREE_CODE (scope) == NAMESPACE_DECL)
2323             {
2324               if (complain & tf_error)
2325                 error ("%<%D::%D%> is not a member of %qT",
2326                        scope, name, object_type);
2327               return error_mark_node;
2328             }
2329
2330           gcc_assert (CLASS_TYPE_P (scope));
2331           gcc_assert (TREE_CODE (name) == IDENTIFIER_NODE
2332                       || TREE_CODE (name) == BIT_NOT_EXPR);
2333
2334           /* Find the base of OBJECT_TYPE corresponding to SCOPE.  */
2335           access_path = lookup_base (object_type, scope, ba_check, NULL);
2336           if (access_path == error_mark_node)
2337             return error_mark_node;
2338           if (!access_path)
2339             {
2340               if (complain & tf_error)
2341                 error ("%qT is not a base of %qT", scope, object_type);
2342               return error_mark_node;
2343             }
2344         }
2345       else
2346         {
2347           scope = NULL_TREE;
2348           access_path = object_type;
2349         }
2350
2351       if (TREE_CODE (name) == BIT_NOT_EXPR)
2352         member = lookup_destructor (object, scope, name);
2353       else
2354         {
2355           /* Look up the member.  */
2356           member = lookup_member (access_path, name, /*protect=*/1,
2357                                   /*want_type=*/false);
2358           if (member == NULL_TREE)
2359             {
2360               if (complain & tf_error)
2361                 error ("%qD has no member named %qE", object_type, name);
2362               return error_mark_node;
2363             }
2364           if (member == error_mark_node)
2365             return error_mark_node;
2366         }
2367
2368       if (is_template_id)
2369         {
2370           tree templ = member;
2371
2372           if (BASELINK_P (templ))
2373             templ = lookup_template_function (templ, template_args);
2374           else
2375             {
2376               if (complain & tf_error)
2377                 error ("%qD is not a member template function", name);
2378               return error_mark_node;
2379             }
2380         }
2381     }
2382
2383   if (TREE_DEPRECATED (member))
2384     warn_deprecated_use (member, NULL_TREE);
2385
2386   if (template_p)
2387     check_template_keyword (member);
2388
2389   expr = build_class_member_access_expr (object, member, access_path,
2390                                          /*preserve_reference=*/false,
2391                                          complain);
2392   if (processing_template_decl && expr != error_mark_node)
2393     {
2394       if (BASELINK_P (member))
2395         {
2396           if (TREE_CODE (orig_name) == SCOPE_REF)
2397             BASELINK_QUALIFIED_P (member) = 1;
2398           orig_name = member;
2399         }
2400       return build_min_non_dep (COMPONENT_REF, expr,
2401                                 orig_object, orig_name,
2402                                 NULL_TREE);
2403     }
2404
2405   return expr;
2406 }
2407
2408 /* Return an expression for the MEMBER_NAME field in the internal
2409    representation of PTRMEM, a pointer-to-member function.  (Each
2410    pointer-to-member function type gets its own RECORD_TYPE so it is
2411    more convenient to access the fields by name than by FIELD_DECL.)
2412    This routine converts the NAME to a FIELD_DECL and then creates the
2413    node for the complete expression.  */
2414
2415 tree
2416 build_ptrmemfunc_access_expr (tree ptrmem, tree member_name)
2417 {
2418   tree ptrmem_type;
2419   tree member;
2420   tree member_type;
2421
2422   /* This code is a stripped down version of
2423      build_class_member_access_expr.  It does not work to use that
2424      routine directly because it expects the object to be of class
2425      type.  */
2426   ptrmem_type = TREE_TYPE (ptrmem);
2427   gcc_assert (TYPE_PTRMEMFUNC_P (ptrmem_type));
2428   member = lookup_member (ptrmem_type, member_name, /*protect=*/0,
2429                           /*want_type=*/false);
2430   member_type = cp_build_qualified_type (TREE_TYPE (member),
2431                                          cp_type_quals (ptrmem_type));
2432   return fold_build3 (COMPONENT_REF, member_type,
2433                       ptrmem, member, NULL_TREE);
2434 }
2435
2436 /* Given an expression PTR for a pointer, return an expression
2437    for the value pointed to.
2438    ERRORSTRING is the name of the operator to appear in error messages.
2439
2440    This function may need to overload OPERATOR_FNNAME.
2441    Must also handle REFERENCE_TYPEs for C++.  */
2442
2443 tree
2444 build_x_indirect_ref (tree expr, const char *errorstring,
2445                       tsubst_flags_t complain)
2446 {
2447   tree orig_expr = expr;
2448   tree rval;
2449
2450   if (processing_template_decl)
2451     {
2452       /* Retain the type if we know the operand is a pointer so that
2453          describable_type doesn't make auto deduction break.  */
2454       if (TREE_TYPE (expr) && POINTER_TYPE_P (TREE_TYPE (expr)))
2455         return build_min (INDIRECT_REF, TREE_TYPE (TREE_TYPE (expr)), expr);
2456       if (type_dependent_expression_p (expr))
2457         return build_min_nt (INDIRECT_REF, expr);
2458       expr = build_non_dependent_expr (expr);
2459     }
2460
2461   rval = build_new_op (INDIRECT_REF, LOOKUP_NORMAL, expr, NULL_TREE,
2462                        NULL_TREE, /*overloaded_p=*/NULL, complain);
2463   if (!rval)
2464     rval = cp_build_indirect_ref (expr, errorstring, complain);
2465
2466   if (processing_template_decl && rval != error_mark_node)
2467     return build_min_non_dep (INDIRECT_REF, rval, orig_expr);
2468   else
2469     return rval;
2470 }
2471
2472 /* Helper function called from c-common.  */
2473 tree
2474 build_indirect_ref (location_t loc __attribute__ ((__unused__)),
2475                     tree ptr, const char *errorstring)
2476 {
2477   return cp_build_indirect_ref (ptr, errorstring, tf_warning_or_error);
2478 }
2479
2480 tree
2481 cp_build_indirect_ref (tree ptr, const char *errorstring,
2482                        tsubst_flags_t complain)
2483 {
2484   tree pointer, type;
2485
2486   if (ptr == error_mark_node)
2487     return error_mark_node;
2488
2489   if (ptr == current_class_ptr)
2490     return current_class_ref;
2491
2492   pointer = (TREE_CODE (TREE_TYPE (ptr)) == REFERENCE_TYPE
2493              ? ptr : decay_conversion (ptr));
2494   type = TREE_TYPE (pointer);
2495
2496   if (POINTER_TYPE_P (type))
2497     {
2498       /* [expr.unary.op]
2499
2500          If the type of the expression is "pointer to T," the type
2501          of  the  result  is  "T."  */
2502       tree t = TREE_TYPE (type);
2503
2504       if (CONVERT_EXPR_P (ptr)
2505           || TREE_CODE (ptr) == VIEW_CONVERT_EXPR)
2506         {
2507           /* If a warning is issued, mark it to avoid duplicates from
2508              the backend.  This only needs to be done at
2509              warn_strict_aliasing > 2.  */
2510           if (warn_strict_aliasing > 2)
2511             if (strict_aliasing_warning (TREE_TYPE (TREE_OPERAND (ptr, 0)),
2512                                          type, TREE_OPERAND (ptr, 0)))
2513               TREE_NO_WARNING (ptr) = 1;
2514         }
2515
2516       if (VOID_TYPE_P (t))
2517         {
2518           /* A pointer to incomplete type (other than cv void) can be
2519              dereferenced [expr.unary.op]/1  */
2520           if (complain & tf_error)
2521             error ("%qT is not a pointer-to-object type", type);
2522           return error_mark_node;
2523         }
2524       else if (TREE_CODE (pointer) == ADDR_EXPR
2525                && same_type_p (t, TREE_TYPE (TREE_OPERAND (pointer, 0))))
2526         /* The POINTER was something like `&x'.  We simplify `*&x' to
2527            `x'.  */
2528         return TREE_OPERAND (pointer, 0);
2529       else
2530         {
2531           tree ref = build1 (INDIRECT_REF, t, pointer);
2532
2533           /* We *must* set TREE_READONLY when dereferencing a pointer to const,
2534              so that we get the proper error message if the result is used
2535              to assign to.  Also, &* is supposed to be a no-op.  */
2536           TREE_READONLY (ref) = CP_TYPE_CONST_P (t);
2537           TREE_THIS_VOLATILE (ref) = CP_TYPE_VOLATILE_P (t);
2538           TREE_SIDE_EFFECTS (ref)
2539             = (TREE_THIS_VOLATILE (ref) || TREE_SIDE_EFFECTS (pointer));
2540           return ref;
2541         }
2542     }
2543   else if (!(complain & tf_error))
2544     /* Don't emit any errors; we'll just return ERROR_MARK_NODE later.  */
2545     ;
2546   /* `pointer' won't be an error_mark_node if we were given a
2547      pointer to member, so it's cool to check for this here.  */
2548   else if (TYPE_PTR_TO_MEMBER_P (type))
2549     error ("invalid use of %qs on pointer to member", errorstring);
2550   else if (pointer != error_mark_node)
2551     {
2552       if (errorstring)
2553         error ("invalid type argument of %qs", errorstring);
2554       else
2555         error ("invalid type argument");
2556     }
2557   return error_mark_node;
2558 }
2559
2560 /* This handles expressions of the form "a[i]", which denotes
2561    an array reference.
2562
2563    This is logically equivalent in C to *(a+i), but we may do it differently.
2564    If A is a variable or a member, we generate a primitive ARRAY_REF.
2565    This avoids forcing the array out of registers, and can work on
2566    arrays that are not lvalues (for example, members of structures returned
2567    by functions).
2568
2569    If INDEX is of some user-defined type, it must be converted to
2570    integer type.  Otherwise, to make a compatible PLUS_EXPR, it
2571    will inherit the type of the array, which will be some pointer type.
2572
2573    LOC is the location to use in building the array reference.  */
2574
2575 tree
2576 build_array_ref (location_t loc, tree array, tree idx)
2577 {
2578   tree ret;
2579
2580   if (idx == 0)
2581     {
2582       error_at (loc, "subscript missing in array reference");
2583       return error_mark_node;
2584     }
2585
2586   if (TREE_TYPE (array) == error_mark_node
2587       || TREE_TYPE (idx) == error_mark_node)
2588     return error_mark_node;
2589
2590   /* If ARRAY is a COMPOUND_EXPR or COND_EXPR, move our reference
2591      inside it.  */
2592   switch (TREE_CODE (array))
2593     {
2594     case COMPOUND_EXPR:
2595       {
2596         tree value = build_array_ref (loc, TREE_OPERAND (array, 1), idx);
2597         ret = build2 (COMPOUND_EXPR, TREE_TYPE (value),
2598                       TREE_OPERAND (array, 0), value);
2599         SET_EXPR_LOCATION (ret, loc);
2600         return ret;
2601       }
2602
2603     case COND_EXPR:
2604       ret = build_conditional_expr
2605               (TREE_OPERAND (array, 0),
2606                build_array_ref (loc, TREE_OPERAND (array, 1), idx),
2607                build_array_ref (loc, TREE_OPERAND (array, 2), idx),
2608                tf_warning_or_error);
2609       protected_set_expr_location (ret, loc);
2610       return ret;
2611
2612     default:
2613       break;
2614     }
2615
2616   if (TREE_CODE (TREE_TYPE (array)) == ARRAY_TYPE)
2617     {
2618       tree rval, type;
2619
2620       warn_array_subscript_with_type_char (idx);
2621
2622       if (!INTEGRAL_OR_UNSCOPED_ENUMERATION_TYPE_P (TREE_TYPE (idx)))
2623         {
2624           error_at (loc, "array subscript is not an integer");
2625           return error_mark_node;
2626         }
2627
2628       /* Apply integral promotions *after* noticing character types.
2629          (It is unclear why we do these promotions -- the standard
2630          does not say that we should.  In fact, the natural thing would
2631          seem to be to convert IDX to ptrdiff_t; we're performing
2632          pointer arithmetic.)  */
2633       idx = perform_integral_promotions (idx);
2634
2635       /* An array that is indexed by a non-constant
2636          cannot be stored in a register; we must be able to do
2637          address arithmetic on its address.
2638          Likewise an array of elements of variable size.  */
2639       if (TREE_CODE (idx) != INTEGER_CST
2640           || (COMPLETE_TYPE_P (TREE_TYPE (TREE_TYPE (array)))
2641               && (TREE_CODE (TYPE_SIZE (TREE_TYPE (TREE_TYPE (array))))
2642                   != INTEGER_CST)))
2643         {
2644           if (!cxx_mark_addressable (array))
2645             return error_mark_node;
2646         }
2647
2648       /* An array that is indexed by a constant value which is not within
2649          the array bounds cannot be stored in a register either; because we
2650          would get a crash in store_bit_field/extract_bit_field when trying
2651          to access a non-existent part of the register.  */
2652       if (TREE_CODE (idx) == INTEGER_CST
2653           && TYPE_DOMAIN (TREE_TYPE (array))
2654           && ! int_fits_type_p (idx, TYPE_DOMAIN (TREE_TYPE (array))))
2655         {
2656           if (!cxx_mark_addressable (array))
2657             return error_mark_node;
2658         }
2659
2660       if (!lvalue_p (array))
2661         pedwarn (loc, OPT_pedantic,
2662                  "ISO C++ forbids subscripting non-lvalue array");
2663
2664       /* Note in C++ it is valid to subscript a `register' array, since
2665          it is valid to take the address of something with that
2666          storage specification.  */
2667       if (extra_warnings)
2668         {
2669           tree foo = array;
2670           while (TREE_CODE (foo) == COMPONENT_REF)
2671             foo = TREE_OPERAND (foo, 0);
2672           if (TREE_CODE (foo) == VAR_DECL && DECL_REGISTER (foo))
2673             warning_at (loc, OPT_Wextra,
2674                         "subscripting array declared %<register%>");
2675         }
2676
2677       type = TREE_TYPE (TREE_TYPE (array));
2678       rval = build4 (ARRAY_REF, type, array, idx, NULL_TREE, NULL_TREE);
2679       /* Array ref is const/volatile if the array elements are
2680          or if the array is..  */
2681       TREE_READONLY (rval)
2682         |= (CP_TYPE_CONST_P (type) | TREE_READONLY (array));
2683       TREE_SIDE_EFFECTS (rval)
2684         |= (CP_TYPE_VOLATILE_P (type) | TREE_SIDE_EFFECTS (array));
2685       TREE_THIS_VOLATILE (rval)
2686         |= (CP_TYPE_VOLATILE_P (type) | TREE_THIS_VOLATILE (array));
2687       ret = require_complete_type (fold_if_not_in_template (rval));
2688       protected_set_expr_location (ret, loc);
2689       return ret;
2690     }
2691
2692   {
2693     tree ar = default_conversion (array);
2694     tree ind = default_conversion (idx);
2695
2696     /* Put the integer in IND to simplify error checking.  */
2697     if (TREE_CODE (TREE_TYPE (ar)) == INTEGER_TYPE)
2698       {
2699         tree temp = ar;
2700         ar = ind;
2701         ind = temp;
2702       }
2703
2704     if (ar == error_mark_node)
2705       return ar;
2706
2707     if (TREE_CODE (TREE_TYPE (ar)) != POINTER_TYPE)
2708       {
2709         error_at (loc, "subscripted value is neither array nor pointer");
2710         return error_mark_node;
2711       }
2712     if (TREE_CODE (TREE_TYPE (ind)) != INTEGER_TYPE)
2713       {
2714         error_at (loc, "array subscript is not an integer");
2715         return error_mark_node;
2716       }
2717
2718     warn_array_subscript_with_type_char (idx);
2719
2720     ret = cp_build_indirect_ref (cp_build_binary_op (input_location,
2721                                                      PLUS_EXPR, ar, ind,
2722                                                      tf_warning_or_error),
2723                                  "array indexing",
2724                                  tf_warning_or_error);
2725     protected_set_expr_location (ret, loc);
2726     return ret;
2727   }
2728 }
2729 \f
2730 /* Resolve a pointer to member function.  INSTANCE is the object
2731    instance to use, if the member points to a virtual member.
2732
2733    This used to avoid checking for virtual functions if basetype
2734    has no virtual functions, according to an earlier ANSI draft.
2735    With the final ISO C++ rules, such an optimization is
2736    incorrect: A pointer to a derived member can be static_cast
2737    to pointer-to-base-member, as long as the dynamic object
2738    later has the right member.  */
2739
2740 tree
2741 get_member_function_from_ptrfunc (tree *instance_ptrptr, tree function)
2742 {
2743   if (TREE_CODE (function) == OFFSET_REF)
2744     function = TREE_OPERAND (function, 1);
2745
2746   if (TYPE_PTRMEMFUNC_P (TREE_TYPE (function)))
2747     {
2748       tree idx, delta, e1, e2, e3, vtbl, basetype;
2749       tree fntype = TYPE_PTRMEMFUNC_FN_TYPE (TREE_TYPE (function));
2750
2751       tree instance_ptr = *instance_ptrptr;
2752       tree instance_save_expr = 0;
2753       if (instance_ptr == error_mark_node)
2754         {
2755           if (TREE_CODE (function) == PTRMEM_CST)
2756             {
2757               /* Extracting the function address from a pmf is only
2758                  allowed with -Wno-pmf-conversions. It only works for
2759                  pmf constants.  */
2760               e1 = build_addr_func (PTRMEM_CST_MEMBER (function));
2761               e1 = convert (fntype, e1);
2762               return e1;
2763             }
2764           else
2765             {
2766               error ("object missing in use of %qE", function);
2767               return error_mark_node;
2768             }
2769         }
2770
2771       if (TREE_SIDE_EFFECTS (instance_ptr))
2772         instance_ptr = instance_save_expr = save_expr (instance_ptr);
2773
2774       if (TREE_SIDE_EFFECTS (function))
2775         function = save_expr (function);
2776
2777       /* Start by extracting all the information from the PMF itself.  */
2778       e3 = pfn_from_ptrmemfunc (function);
2779       delta = delta_from_ptrmemfunc (function);
2780       idx = build1 (NOP_EXPR, vtable_index_type, e3);
2781       switch (TARGET_PTRMEMFUNC_VBIT_LOCATION)
2782         {
2783         case ptrmemfunc_vbit_in_pfn:
2784           e1 = cp_build_binary_op (input_location,
2785                                    BIT_AND_EXPR, idx, integer_one_node,
2786                                    tf_warning_or_error);
2787           idx = cp_build_binary_op (input_location,
2788                                     MINUS_EXPR, idx, integer_one_node,
2789                                     tf_warning_or_error);
2790           break;
2791
2792         case ptrmemfunc_vbit_in_delta:
2793           e1 = cp_build_binary_op (input_location,
2794                                    BIT_AND_EXPR, delta, integer_one_node,
2795                                    tf_warning_or_error);
2796           delta = cp_build_binary_op (input_location,
2797                                       RSHIFT_EXPR, delta, integer_one_node,
2798                                       tf_warning_or_error);
2799           break;
2800
2801         default:
2802           gcc_unreachable ();
2803         }
2804
2805       /* Convert down to the right base before using the instance.  A
2806          special case is that in a pointer to member of class C, C may
2807          be incomplete.  In that case, the function will of course be
2808          a member of C, and no conversion is required.  In fact,
2809          lookup_base will fail in that case, because incomplete
2810          classes do not have BINFOs.  */
2811       basetype = TYPE_METHOD_BASETYPE (TREE_TYPE (fntype));
2812       if (!same_type_ignoring_top_level_qualifiers_p
2813           (basetype, TREE_TYPE (TREE_TYPE (instance_ptr))))
2814         {
2815           basetype = lookup_base (TREE_TYPE (TREE_TYPE (instance_ptr)),
2816                                   basetype, ba_check, NULL);
2817           instance_ptr = build_base_path (PLUS_EXPR, instance_ptr, basetype,
2818                                           1);
2819           if (instance_ptr == error_mark_node)
2820             return error_mark_node;
2821         }
2822       /* ...and then the delta in the PMF.  */
2823       instance_ptr = build2 (POINTER_PLUS_EXPR, TREE_TYPE (instance_ptr),
2824                              instance_ptr, fold_convert (sizetype, delta));
2825
2826       /* Hand back the adjusted 'this' argument to our caller.  */
2827       *instance_ptrptr = instance_ptr;
2828
2829       /* Next extract the vtable pointer from the object.  */
2830       vtbl = build1 (NOP_EXPR, build_pointer_type (vtbl_ptr_type_node),
2831                      instance_ptr);
2832       vtbl = cp_build_indirect_ref (vtbl, NULL, tf_warning_or_error);
2833       /* If the object is not dynamic the access invokes undefined
2834          behavior.  As it is not executed in this case silence the
2835          spurious warnings it may provoke.  */
2836       TREE_NO_WARNING (vtbl) = 1;
2837
2838       /* Finally, extract the function pointer from the vtable.  */
2839       e2 = fold_build2 (POINTER_PLUS_EXPR, TREE_TYPE (vtbl), vtbl,
2840                         fold_convert (sizetype, idx));
2841       e2 = cp_build_indirect_ref (e2, NULL, tf_warning_or_error);
2842       TREE_CONSTANT (e2) = 1;
2843
2844       /* When using function descriptors, the address of the
2845          vtable entry is treated as a function pointer.  */
2846       if (TARGET_VTABLE_USES_DESCRIPTORS)
2847         e2 = build1 (NOP_EXPR, TREE_TYPE (e2),
2848                      cp_build_unary_op (ADDR_EXPR, e2, /*noconvert=*/1,
2849                                      tf_warning_or_error));
2850
2851       e2 = fold_convert (TREE_TYPE (e3), e2);
2852       e1 = build_conditional_expr (e1, e2, e3, tf_warning_or_error);
2853
2854       /* Make sure this doesn't get evaluated first inside one of the
2855          branches of the COND_EXPR.  */
2856       if (instance_save_expr)
2857         e1 = build2 (COMPOUND_EXPR, TREE_TYPE (e1),
2858                      instance_save_expr, e1);
2859
2860       function = e1;
2861     }
2862   return function;
2863 }
2864
2865 /* Used by the C-common bits.  */
2866 tree
2867 build_function_call (location_t loc ATTRIBUTE_UNUSED,
2868                      tree function, tree params)
2869 {
2870   return cp_build_function_call (function, params, tf_warning_or_error);
2871 }
2872
2873 /* Used by the C-common bits.  */
2874 tree
2875 build_function_call_vec (location_t loc ATTRIBUTE_UNUSED,
2876                          tree function, VEC(tree,gc) *params,
2877                          VEC(tree,gc) *origtypes ATTRIBUTE_UNUSED)
2878 {
2879   VEC(tree,gc) *orig_params = params;
2880   tree ret = cp_build_function_call_vec (function, &params,
2881                                          tf_warning_or_error);
2882
2883   /* cp_build_function_call_vec can reallocate PARAMS by adding
2884      default arguments.  That should never happen here.  Verify
2885      that.  */
2886   gcc_assert (params == orig_params);
2887
2888   return ret;
2889 }
2890
2891 /* Build a function call using a tree list of arguments.  */
2892
2893 tree
2894 cp_build_function_call (tree function, tree params, tsubst_flags_t complain)
2895 {
2896   VEC(tree,gc) *vec;
2897   tree ret;
2898
2899   vec = make_tree_vector ();
2900   for (; params != NULL_TREE; params = TREE_CHAIN (params))
2901     VEC_safe_push (tree, gc, vec, TREE_VALUE (params));
2902   ret = cp_build_function_call_vec (function, &vec, complain);
2903   release_tree_vector (vec);
2904   return ret;
2905 }
2906
2907 /* Build a function call using a vector of arguments.  PARAMS may be
2908    NULL if there are no parameters.  This changes the contents of
2909    PARAMS.  */
2910
2911 tree
2912 cp_build_function_call_vec (tree function, VEC(tree,gc) **params,
2913                             tsubst_flags_t complain)
2914 {
2915   tree fntype, fndecl;
2916   tree name = NULL_TREE;
2917   int is_method;
2918   tree original = function;
2919   int nargs;
2920   tree *argarray;
2921   tree parm_types;
2922   VEC(tree,gc) *allocated = NULL;
2923   tree ret;
2924
2925   /* For Objective-C, convert any calls via a cast to OBJC_TYPE_REF
2926      expressions, like those used for ObjC messenger dispatches.  */
2927   if (params != NULL && !VEC_empty (tree, *params))
2928     function = objc_rewrite_function_call (function,
2929                                            VEC_index (tree, *params, 0));
2930
2931   /* build_c_cast puts on a NOP_EXPR to make the result not an lvalue.
2932      Strip such NOP_EXPRs, since FUNCTION is used in non-lvalue context.  */
2933   if (TREE_CODE (function) == NOP_EXPR
2934       && TREE_TYPE (function) == TREE_TYPE (TREE_OPERAND (function, 0)))
2935     function = TREE_OPERAND (function, 0);
2936
2937   if (TREE_CODE (function) == FUNCTION_DECL)
2938     {
2939       name = DECL_NAME (function);
2940
2941       mark_used (function);
2942       fndecl = function;
2943
2944       /* Convert anything with function type to a pointer-to-function.  */
2945       if (DECL_MAIN_P (function) && (complain & tf_error))
2946         pedwarn (input_location, OPT_pedantic,
2947                  "ISO C++ forbids calling %<::main%> from within program");
2948
2949       function = build_addr_func (function);
2950     }
2951   else
2952     {
2953       fndecl = NULL_TREE;
2954
2955       function = build_addr_func (function);
2956     }
2957
2958   if (function == error_mark_node)
2959     return error_mark_node;
2960
2961   fntype = TREE_TYPE (function);
2962
2963   if (TYPE_PTRMEMFUNC_P (fntype))
2964     {
2965       if (complain & tf_error)
2966         error ("must use %<.*%> or %<->*%> to call pointer-to-member "
2967                "function in %<%E (...)%>, e.g. %<(... ->* %E) (...)%>",
2968                original, original);
2969       return error_mark_node;
2970     }
2971
2972   is_method = (TREE_CODE (fntype) == POINTER_TYPE
2973                && TREE_CODE (TREE_TYPE (fntype)) == METHOD_TYPE);
2974
2975   if (!((TREE_CODE (fntype) == POINTER_TYPE
2976          && TREE_CODE (TREE_TYPE (fntype)) == FUNCTION_TYPE)
2977         || is_method
2978         || TREE_CODE (function) == TEMPLATE_ID_EXPR))
2979     {
2980       if (complain & tf_error)
2981         error ("%qE cannot be used as a function", original);
2982       return error_mark_node;
2983     }
2984
2985   /* fntype now gets the type of function pointed to.  */
2986   fntype = TREE_TYPE (fntype);
2987   parm_types = TYPE_ARG_TYPES (fntype);
2988
2989   if (params == NULL)
2990     {
2991       allocated = make_tree_vector ();
2992       params = &allocated;
2993     }
2994
2995   nargs = convert_arguments (parm_types, params, fndecl, LOOKUP_NORMAL,
2996                              complain);
2997   if (nargs < 0)
2998     return error_mark_node;
2999
3000   argarray = VEC_address (tree, *params);
3001
3002   /* Check for errors in format strings and inappropriately
3003      null parameters.  */
3004   check_function_arguments (TYPE_ATTRIBUTES (fntype), nargs, argarray,
3005                             parm_types);
3006
3007   ret = build_cxx_call (function, nargs, argarray);
3008
3009   if (allocated != NULL)
3010     release_tree_vector (allocated);
3011
3012   return ret;
3013 }
3014 \f
3015 /* Convert the actual parameter expressions in the list VALUES to the
3016    types in the list TYPELIST.  The converted expressions are stored
3017    back in the VALUES vector.
3018    If parmdecls is exhausted, or when an element has NULL as its type,
3019    perform the default conversions.
3020
3021    NAME is an IDENTIFIER_NODE or 0.  It is used only for error messages.
3022
3023    This is also where warnings about wrong number of args are generated.
3024
3025    Returns the actual number of arguments processed (which might be less
3026    than the length of the vector), or -1 on error.
3027
3028    In C++, unspecified trailing parameters can be filled in with their
3029    default arguments, if such were specified.  Do so here.  */
3030
3031 static int
3032 convert_arguments (tree typelist, VEC(tree,gc) **values, tree fndecl,
3033                    int flags, tsubst_flags_t complain)
3034 {
3035   tree typetail;
3036   const char *called_thing = 0;
3037   unsigned int i;
3038
3039   /* Argument passing is always copy-initialization.  */
3040   flags |= LOOKUP_ONLYCONVERTING;
3041
3042   if (fndecl)
3043     {
3044       if (TREE_CODE (TREE_TYPE (fndecl)) == METHOD_TYPE)
3045         {
3046           if (DECL_NAME (fndecl) == NULL_TREE
3047               || IDENTIFIER_HAS_TYPE_VALUE (DECL_NAME (fndecl)))
3048             called_thing = "constructor";
3049           else
3050             called_thing = "member function";
3051         }
3052       else
3053         called_thing = "function";
3054     }
3055
3056   for (i = 0, typetail = typelist;
3057        i < VEC_length (tree, *values);
3058        i++)
3059     {
3060       tree type = typetail ? TREE_VALUE (typetail) : 0;
3061       tree val = VEC_index (tree, *values, i);
3062
3063       if (val == error_mark_node || type == error_mark_node)
3064         return -1;
3065
3066       if (type == void_type_node)
3067         {
3068           if (complain & tf_error)
3069             {
3070               if (fndecl)
3071                 {
3072                   error ("too many arguments to %s %q+#D",
3073                          called_thing, fndecl);
3074                   error ("at this point in file");
3075                 }
3076               else
3077                 error ("too many arguments to function");
3078               return i;
3079             }
3080           else
3081             return -1;
3082         }
3083
3084       /* build_c_cast puts on a NOP_EXPR to make the result not an lvalue.
3085          Strip such NOP_EXPRs, since VAL is used in non-lvalue context.  */
3086       if (TREE_CODE (val) == NOP_EXPR
3087           && TREE_TYPE (val) == TREE_TYPE (TREE_OPERAND (val, 0))
3088           && (type == 0 || TREE_CODE (type) != REFERENCE_TYPE))
3089         val = TREE_OPERAND (val, 0);
3090
3091       if (type == 0 || TREE_CODE (type) != REFERENCE_TYPE)
3092         {
3093           if (TREE_CODE (TREE_TYPE (val)) == ARRAY_TYPE
3094               || TREE_CODE (TREE_TYPE (val)) == FUNCTION_TYPE
3095               || TREE_CODE (TREE_TYPE (val)) == METHOD_TYPE)
3096             val = decay_conversion (val);
3097         }
3098
3099       if (val == error_mark_node)
3100         return -1;
3101
3102       if (type != 0)
3103         {
3104           /* Formal parm type is specified by a function prototype.  */
3105           tree parmval;
3106
3107           if (!COMPLETE_TYPE_P (complete_type (type)))
3108             {
3109               if (complain & tf_error)
3110                 {
3111                   if (fndecl)
3112                     error ("parameter %P of %qD has incomplete type %qT",
3113                            i, fndecl, type);
3114                   else
3115                     error ("parameter %P has incomplete type %qT", i, type);
3116                 }
3117               parmval = error_mark_node;
3118             }
3119           else
3120             {
3121               parmval = convert_for_initialization
3122                 (NULL_TREE, type, val, flags,
3123                  "argument passing", fndecl, i, complain);
3124               parmval = convert_for_arg_passing (type, parmval);
3125             }
3126
3127           if (parmval == error_mark_node)
3128             return -1;
3129
3130           VEC_replace (tree, *values, i, parmval);
3131         }
3132       else
3133         {
3134           if (fndecl && DECL_BUILT_IN (fndecl)
3135               && DECL_FUNCTION_CODE (fndecl) == BUILT_IN_CONSTANT_P)
3136             /* Don't do ellipsis conversion for __built_in_constant_p
3137                as this will result in spurious errors for non-trivial
3138                types.  */
3139             val = require_complete_type (val);
3140           else
3141             val = convert_arg_to_ellipsis (val);
3142
3143           VEC_replace (tree, *values, i, val);
3144         }
3145
3146       if (typetail)
3147         typetail = TREE_CHAIN (typetail);
3148     }
3149
3150   if (typetail != 0 && typetail != void_list_node)
3151     {
3152       /* See if there are default arguments that can be used.  Because
3153          we hold default arguments in the FUNCTION_TYPE (which is so
3154          wrong), we can see default parameters here from deduced
3155          contexts (and via typeof) for indirect function calls.
3156          Fortunately we know whether we have a function decl to
3157          provide default arguments in a language conformant
3158          manner.  */
3159       if (fndecl && TREE_PURPOSE (typetail)
3160           && TREE_CODE (TREE_PURPOSE (typetail)) != DEFAULT_ARG)
3161         {
3162           for (; typetail != void_list_node; ++i)
3163             {
3164               tree parmval
3165                 = convert_default_arg (TREE_VALUE (typetail),
3166                                        TREE_PURPOSE (typetail),
3167                                        fndecl, i);
3168
3169               if (parmval == error_mark_node)
3170                 return -1;
3171
3172               VEC_safe_push (tree, gc, *values, parmval);
3173               typetail = TREE_CHAIN (typetail);
3174               /* ends with `...'.  */
3175               if (typetail == NULL_TREE)
3176                 break;
3177             }
3178         }
3179       else
3180         {
3181           if (complain & tf_error)
3182             {
3183               if (fndecl)
3184                 {
3185                   error ("too few arguments to %s %q+#D",
3186                          called_thing, fndecl);
3187                   error ("at this point in file");
3188                 }
3189               else
3190                 error ("too few arguments to function");
3191             }
3192           return -1;
3193         }
3194     }
3195
3196   return (int) i;
3197 }
3198 \f
3199 /* Build a binary-operation expression, after performing default
3200    conversions on the operands.  CODE is the kind of expression to
3201    build.  ARG1 and ARG2 are the arguments.  ARG1_CODE and ARG2_CODE
3202    are the tree codes which correspond to ARG1 and ARG2 when issuing
3203    warnings about possibly misplaced parentheses.  They may differ
3204    from the TREE_CODE of ARG1 and ARG2 if the parser has done constant
3205    folding (e.g., if the parser sees "a | 1 + 1", it may call this
3206    routine with ARG2 being an INTEGER_CST and ARG2_CODE == PLUS_EXPR).
3207    To avoid issuing any parentheses warnings, pass ARG1_CODE and/or
3208    ARG2_CODE as ERROR_MARK.  */
3209
3210 tree
3211 build_x_binary_op (enum tree_code code, tree arg1, enum tree_code arg1_code,
3212                    tree arg2, enum tree_code arg2_code, bool *overloaded_p,
3213                    tsubst_flags_t complain)
3214 {
3215   tree orig_arg1;
3216   tree orig_arg2;
3217   tree expr;
3218
3219   orig_arg1 = arg1;
3220   orig_arg2 = arg2;
3221
3222   if (processing_template_decl)
3223     {
3224       if (type_dependent_expression_p (arg1)
3225           || type_dependent_expression_p (arg2))
3226         return build_min_nt (code, arg1, arg2);
3227       arg1 = build_non_dependent_expr (arg1);
3228       arg2 = build_non_dependent_expr (arg2);
3229     }
3230
3231   if (code == DOTSTAR_EXPR)
3232     expr = build_m_component_ref (arg1, arg2);
3233   else
3234     expr = build_new_op (code, LOOKUP_NORMAL, arg1, arg2, NULL_TREE,
3235                          overloaded_p, complain);
3236
3237   /* Check for cases such as x+y<<z which users are likely to
3238      misinterpret.  But don't warn about obj << x + y, since that is a
3239      common idiom for I/O.  */
3240   if (warn_parentheses
3241       && !processing_template_decl
3242       && !error_operand_p (arg1)
3243       && !error_operand_p (arg2)
3244       && (code != LSHIFT_EXPR
3245           || !CLASS_TYPE_P (TREE_TYPE (arg1))))
3246     warn_about_parentheses (code, arg1_code, orig_arg1, arg2_code, orig_arg2);
3247
3248   if (processing_template_decl && expr != error_mark_node)
3249     return build_min_non_dep (code, expr, orig_arg1, orig_arg2);
3250
3251   return expr;
3252 }
3253
3254 /* Build and return an ARRAY_REF expression.  */
3255
3256 tree
3257 build_x_array_ref (tree arg1, tree arg2, tsubst_flags_t complain)
3258 {
3259   tree orig_arg1 = arg1;
3260   tree orig_arg2 = arg2;
3261   tree expr;
3262
3263   if (processing_template_decl)
3264     {
3265       if (type_dependent_expression_p (arg1)
3266           || type_dependent_expression_p (arg2))
3267         return build_min_nt (ARRAY_REF, arg1, arg2,
3268                              NULL_TREE, NULL_TREE);
3269       arg1 = build_non_dependent_expr (arg1);
3270       arg2 = build_non_dependent_expr (arg2);
3271     }
3272
3273   expr = build_new_op (ARRAY_REF, LOOKUP_NORMAL, arg1, arg2, NULL_TREE,
3274                        /*overloaded_p=*/NULL, complain);
3275
3276   if (processing_template_decl && expr != error_mark_node)
3277     return build_min_non_dep (ARRAY_REF, expr, orig_arg1, orig_arg2,
3278                               NULL_TREE, NULL_TREE);
3279   return expr;
3280 }
3281
3282 /* For the c-common bits.  */
3283 tree
3284 build_binary_op (location_t location, enum tree_code code, tree op0, tree op1,
3285                  int convert_p ATTRIBUTE_UNUSED)
3286 {
3287   return cp_build_binary_op (location, code, op0, op1, tf_warning_or_error);
3288 }
3289
3290
3291 /* Build a binary-operation expression without default conversions.
3292    CODE is the kind of expression to build.
3293    LOCATION is the location_t of the operator in the source code.
3294    This function differs from `build' in several ways:
3295    the data type of the result is computed and recorded in it,
3296    warnings are generated if arg data types are invalid,
3297    special handling for addition and subtraction of pointers is known,
3298    and some optimization is done (operations on narrow ints
3299    are done in the narrower type when that gives the same result).
3300    Constant folding is also done before the result is returned.
3301
3302    Note that the operands will never have enumeral types
3303    because either they have just had the default conversions performed
3304    or they have both just been converted to some other type in which
3305    the arithmetic is to be done.
3306
3307    C++: must do special pointer arithmetic when implementing
3308    multiple inheritance, and deal with pointer to member functions.  */
3309
3310 tree
3311 cp_build_binary_op (location_t location,
3312                     enum tree_code code, tree orig_op0, tree orig_op1,
3313                     tsubst_flags_t complain)
3314 {
3315   tree op0, op1;
3316   enum tree_code code0, code1;
3317   tree type0, type1;
3318   const char *invalid_op_diag;
3319
3320   /* Expression code to give to the expression when it is built.
3321      Normally this is CODE, which is what the caller asked for,
3322      but in some special cases we change it.  */
3323   enum tree_code resultcode = code;
3324
3325   /* Data type in which the computation is to be performed.
3326      In the simplest cases this is the common type of the arguments.  */
3327   tree result_type = NULL;
3328
3329   /* Nonzero means operands have already been type-converted
3330      in whatever way is necessary.
3331      Zero means they need to be converted to RESULT_TYPE.  */
3332   int converted = 0;
3333
3334   /* Nonzero means create the expression with this type, rather than
3335      RESULT_TYPE.  */
3336   tree build_type = 0;
3337
3338   /* Nonzero means after finally constructing the expression
3339      convert it to this type.  */
3340   tree final_type = 0;
3341
3342   tree result;
3343
3344   /* Nonzero if this is an operation like MIN or MAX which can
3345      safely be computed in short if both args are promoted shorts.
3346      Also implies COMMON.
3347      -1 indicates a bitwise operation; this makes a difference
3348      in the exact conditions for when it is safe to do the operation
3349      in a narrower mode.  */
3350   int shorten = 0;
3351
3352   /* Nonzero if this is a comparison operation;
3353      if both args are promoted shorts, compare the original shorts.
3354      Also implies COMMON.  */
3355   int short_compare = 0;
3356
3357   /* Nonzero means set RESULT_TYPE to the common type of the args.  */
3358   int common = 0;
3359
3360   /* True if both operands have arithmetic type.  */
3361   bool arithmetic_types_p;
3362
3363   /* Apply default conversions.  */
3364   op0 = orig_op0;
3365   op1 = orig_op1;
3366
3367   if (code == TRUTH_AND_EXPR || code == TRUTH_ANDIF_EXPR
3368       || code == TRUTH_OR_EXPR || code == TRUTH_ORIF_EXPR
3369       || code == TRUTH_XOR_EXPR)
3370     {
3371       if (!really_overloaded_fn (op0))
3372         op0 = decay_conversion (op0);
3373       if (!really_overloaded_fn (op1))
3374         op1 = decay_conversion (op1);
3375     }
3376   else
3377     {
3378       if (!really_overloaded_fn (op0))
3379         op0 = default_conversion (op0);
3380       if (!really_overloaded_fn (op1))
3381         op1 = default_conversion (op1);
3382     }
3383
3384   /* Strip NON_LVALUE_EXPRs, etc., since we aren't using as an lvalue.  */
3385   STRIP_TYPE_NOPS (op0);
3386   STRIP_TYPE_NOPS (op1);
3387
3388   /* DTRT if one side is an overloaded function, but complain about it.  */
3389   if (type_unknown_p (op0))
3390     {
3391       tree t = instantiate_type (TREE_TYPE (op1), op0, tf_none);
3392       if (t != error_mark_node)
3393         {
3394           if (complain & tf_error)
3395             permerror (input_location, "assuming cast to type %qT from overloaded function",
3396                        TREE_TYPE (t));
3397           op0 = t;
3398         }
3399     }
3400   if (type_unknown_p (op1))
3401     {
3402       tree t = instantiate_type (TREE_TYPE (op0), op1, tf_none);
3403       if (t != error_mark_node)
3404         {
3405           if (complain & tf_error)
3406             permerror (input_location, "assuming cast to type %qT from overloaded function",
3407                        TREE_TYPE (t));
3408           op1 = t;
3409         }
3410     }
3411
3412   type0 = TREE_TYPE (op0);
3413   type1 = TREE_TYPE (op1);
3414
3415   /* The expression codes of the data types of the arguments tell us
3416      whether the arguments are integers, floating, pointers, etc.  */
3417   code0 = TREE_CODE (type0);
3418   code1 = TREE_CODE (type1);
3419
3420   /* If an error was already reported for one of the arguments,
3421      avoid reporting another error.  */
3422   if (code0 == ERROR_MARK || code1 == ERROR_MARK)
3423     return error_mark_node;
3424
3425   if ((invalid_op_diag
3426        = targetm.invalid_binary_op (code, type0, type1)))
3427     {
3428       error (invalid_op_diag);
3429       return error_mark_node;
3430     }
3431
3432   /* Issue warnings about peculiar, but valid, uses of NULL.  */
3433   if ((orig_op0 == null_node || orig_op1 == null_node)
3434       /* It's reasonable to use pointer values as operands of &&
3435          and ||, so NULL is no exception.  */
3436       && code != TRUTH_ANDIF_EXPR && code != TRUTH_ORIF_EXPR
3437       && ( /* Both are NULL (or 0) and the operation was not a
3438               comparison or a pointer subtraction.  */
3439           (null_ptr_cst_p (orig_op0) && null_ptr_cst_p (orig_op1)
3440            && code != EQ_EXPR && code != NE_EXPR && code != MINUS_EXPR)
3441           /* Or if one of OP0 or OP1 is neither a pointer nor NULL.  */
3442           || (!null_ptr_cst_p (orig_op0)
3443               && !TYPE_PTR_P (type0) && !TYPE_PTR_TO_MEMBER_P (type0))
3444           || (!null_ptr_cst_p (orig_op1)
3445               && !TYPE_PTR_P (type1) && !TYPE_PTR_TO_MEMBER_P (type1)))
3446       && (complain & tf_warning))
3447     /* Some sort of arithmetic operation involving NULL was
3448        performed.  */
3449     warning (OPT_Wpointer_arith, "NULL used in arithmetic");
3450
3451   switch (code)
3452     {
3453     case MINUS_EXPR:
3454       /* Subtraction of two similar pointers.
3455          We must subtract them as integers, then divide by object size.  */
3456       if (code0 == POINTER_TYPE && code1 == POINTER_TYPE
3457           && same_type_ignoring_top_level_qualifiers_p (TREE_TYPE (type0),
3458                                                         TREE_TYPE (type1)))
3459         return pointer_diff (op0, op1, common_pointer_type (type0, type1));
3460       /* In all other cases except pointer - int, the usual arithmetic
3461          rules apply.  */
3462       else if (!(code0 == POINTER_TYPE && code1 == INTEGER_TYPE))
3463         {
3464           common = 1;
3465           break;
3466         }
3467       /* The pointer - int case is just like pointer + int; fall
3468          through.  */
3469     case PLUS_EXPR:
3470       if ((code0 == POINTER_TYPE || code1 == POINTER_TYPE)
3471           && (code0 == INTEGER_TYPE || code1 == INTEGER_TYPE))
3472         {
3473           tree ptr_operand;
3474           tree int_operand;
3475           ptr_operand = ((code0 == POINTER_TYPE) ? op0 : op1);
3476           int_operand = ((code0 == INTEGER_TYPE) ? op0 : op1);
3477           if (processing_template_decl)
3478             {
3479               result_type = TREE_TYPE (ptr_operand);
3480               break;
3481             }
3482           return cp_pointer_int_sum (code,
3483                                      ptr_operand,
3484                                      int_operand);
3485         }
3486       common = 1;
3487       break;
3488
3489     case MULT_EXPR:
3490       common = 1;
3491       break;
3492
3493     case TRUNC_DIV_EXPR:
3494     case CEIL_DIV_EXPR:
3495     case FLOOR_DIV_EXPR:
3496     case ROUND_DIV_EXPR:
3497     case EXACT_DIV_EXPR:
3498       if ((code0 == INTEGER_TYPE || code0 == REAL_TYPE
3499            || code0 == COMPLEX_TYPE || code0 == VECTOR_TYPE)
3500           && (code1 == INTEGER_TYPE || code1 == REAL_TYPE
3501               || code1 == COMPLEX_TYPE || code1 == VECTOR_TYPE))
3502         {
3503           enum tree_code tcode0 = code0, tcode1 = code1;
3504
3505           warn_for_div_by_zero (location, op1);
3506
3507           if (tcode0 == COMPLEX_TYPE || tcode0 == VECTOR_TYPE)
3508             tcode0 = TREE_CODE (TREE_TYPE (TREE_TYPE (op0)));
3509           if (tcode1 == COMPLEX_TYPE || tcode1 == VECTOR_TYPE)
3510             tcode1 = TREE_CODE (TREE_TYPE (TREE_TYPE (op1)));
3511
3512           if (!(tcode0 == INTEGER_TYPE && tcode1 == INTEGER_TYPE))
3513             resultcode = RDIV_EXPR;
3514           else
3515             /* When dividing two signed integers, we have to promote to int.
3516                unless we divide by a constant != -1.  Note that default
3517                conversion will have been performed on the operands at this
3518                point, so we have to dig out the original type to find out if
3519                it was unsigned.  */
3520             shorten = ((TREE_CODE (op0) == NOP_EXPR
3521                         && TYPE_UNSIGNED (TREE_TYPE (TREE_OPERAND (op0, 0))))
3522                        || (TREE_CODE (op1) == INTEGER_CST
3523                            && ! integer_all_onesp (op1)));
3524
3525           common = 1;
3526         }
3527       break;
3528
3529     case BIT_AND_EXPR:
3530     case BIT_IOR_EXPR:
3531     case BIT_XOR_EXPR:
3532       if ((code0 == INTEGER_TYPE && code1 == INTEGER_TYPE)
3533           || (code0 == VECTOR_TYPE && code1 == VECTOR_TYPE
3534               && !VECTOR_FLOAT_TYPE_P (type0)
3535               && !VECTOR_FLOAT_TYPE_P (type1)))
3536         shorten = -1;
3537       break;
3538
3539     case TRUNC_MOD_EXPR:
3540     case FLOOR_MOD_EXPR:
3541       warn_for_div_by_zero (location, op1);
3542
3543       if (code0 == VECTOR_TYPE && code1 == VECTOR_TYPE
3544           && TREE_CODE (TREE_TYPE (type0)) == INTEGER_TYPE
3545           && TREE_CODE (TREE_TYPE (type1)) == INTEGER_TYPE)
3546         common = 1;
3547       else if (code0 == INTEGER_TYPE && code1 == INTEGER_TYPE)
3548         {
3549           /* Although it would be tempting to shorten always here, that loses
3550              on some targets, since the modulo instruction is undefined if the
3551              quotient can't be represented in the computation mode.  We shorten
3552              only if unsigned or if dividing by something we know != -1.  */
3553           shorten = ((TREE_CODE (op0) == NOP_EXPR
3554                       && TYPE_UNSIGNED (TREE_TYPE (TREE_OPERAND (op0, 0))))
3555                      || (TREE_CODE (op1) == INTEGER_CST
3556                          && ! integer_all_onesp (op1)));
3557           common = 1;
3558         }
3559       break;
3560
3561     case TRUTH_ANDIF_EXPR:
3562     case TRUTH_ORIF_EXPR:
3563     case TRUTH_AND_EXPR:
3564     case TRUTH_OR_EXPR:
3565       result_type = boolean_type_node;
3566       break;
3567
3568       /* Shift operations: result has same type as first operand;
3569          always convert second operand to int.
3570          Also set SHORT_SHIFT if shifting rightward.  */
3571
3572     case RSHIFT_EXPR:
3573       if (code0 == INTEGER_TYPE && code1 == INTEGER_TYPE)
3574         {
3575           result_type = type0;
3576           if (TREE_CODE (op1) == INTEGER_CST)
3577             {
3578               if (tree_int_cst_lt (op1, integer_zero_node))
3579                 {
3580                   if ((complain & tf_warning)
3581                       && c_inhibit_evaluation_warnings == 0)
3582                     warning (0, "right shift count is negative");
3583                 }
3584               else
3585                 {
3586                   if (compare_tree_int (op1, TYPE_PRECISION (type0)) >= 0
3587                       && (complain & tf_warning)
3588                       && c_inhibit_evaluation_warnings == 0)
3589                     warning (0, "right shift count >= width of type");
3590                 }
3591             }
3592           /* Convert the shift-count to an integer, regardless of
3593              size of value being shifted.  */
3594           if (TYPE_MAIN_VARIANT (TREE_TYPE (op1)) != integer_type_node)
3595             op1 = cp_convert (integer_type_node, op1);
3596           /* Avoid converting op1 to result_type later.  */
3597           converted = 1;
3598         }
3599       break;
3600
3601     case LSHIFT_EXPR:
3602       if (code0 == INTEGER_TYPE && code1 == INTEGER_TYPE)
3603         {
3604           result_type = type0;
3605           if (TREE_CODE (op1) == INTEGER_CST)
3606             {
3607               if (tree_int_cst_lt (op1, integer_zero_node))
3608                 {
3609                   if ((complain & tf_warning)
3610                       && c_inhibit_evaluation_warnings == 0)
3611                     warning (0, "left shift count is negative");
3612                 }
3613               else if (compare_tree_int (op1, TYPE_PRECISION (type0)) >= 0)
3614                 {
3615                   if ((complain & tf_warning)
3616                       && c_inhibit_evaluation_warnings == 0)
3617                     warning (0, "left shift count >= width of type");
3618                 }
3619             }
3620           /* Convert the shift-count to an integer, regardless of
3621              size of value being shifted.  */
3622           if (TYPE_MAIN_VARIANT (TREE_TYPE (op1)) != integer_type_node)
3623             op1 = cp_convert (integer_type_node, op1);
3624           /* Avoid converting op1 to result_type later.  */
3625           converted = 1;
3626         }
3627       break;
3628
3629     case RROTATE_EXPR:
3630     case LROTATE_EXPR:
3631       if (code0 == INTEGER_TYPE && code1 == INTEGER_TYPE)
3632         {
3633           result_type = type0;
3634           if (TREE_CODE (op1) == INTEGER_CST)
3635             {
3636               if (tree_int_cst_lt (op1, integer_zero_node))
3637                 {
3638                   if (complain & tf_warning)
3639                     warning (0, (code == LROTATE_EXPR)
3640                                   ? G_("left rotate count is negative")
3641                                   : G_("right rotate count is negative"));
3642                 }
3643               else if (compare_tree_int (op1, TYPE_PRECISION (type0)) >= 0)
3644                 {
3645                   if (complain & tf_warning)
3646                     warning (0, (code == LROTATE_EXPR)
3647                                   ? G_("left rotate count >= width of type")
3648                                   : G_("right rotate count >= width of type"));
3649                 }
3650             }
3651           /* Convert the shift-count to an integer, regardless of
3652              size of value being shifted.  */
3653           if (TYPE_MAIN_VARIANT (TREE_TYPE (op1)) != integer_type_node)
3654             op1 = cp_convert (integer_type_node, op1);
3655         }
3656       break;
3657
3658     case EQ_EXPR:
3659     case NE_EXPR:
3660       if ((complain & tf_warning)
3661           && (FLOAT_TYPE_P (type0) || FLOAT_TYPE_P (type1)))
3662         warning (OPT_Wfloat_equal,
3663                  "comparing floating point with == or != is unsafe");
3664       if ((complain & tf_warning)
3665           && ((TREE_CODE (orig_op0) == STRING_CST && !integer_zerop (op1))
3666               || (TREE_CODE (orig_op1) == STRING_CST && !integer_zerop (op0))))
3667         warning (OPT_Waddress, "comparison with string literal results in unspecified behaviour");
3668
3669       build_type = boolean_type_node;
3670       if ((code0 == INTEGER_TYPE || code0 == REAL_TYPE
3671            || code0 == COMPLEX_TYPE || code0 == ENUMERAL_TYPE)
3672           && (code1 == INTEGER_TYPE || code1 == REAL_TYPE
3673               || code1 == COMPLEX_TYPE || code1 == ENUMERAL_TYPE))
3674         short_compare = 1;
3675       else if ((code0 == POINTER_TYPE && code1 == POINTER_TYPE)
3676                || (TYPE_PTRMEM_P (type0) && TYPE_PTRMEM_P (type1)))
3677         result_type = composite_pointer_type (type0, type1, op0, op1,
3678                                               "comparison", complain);
3679       else if ((code0 == POINTER_TYPE || TYPE_PTRMEM_P (type0))
3680                && null_ptr_cst_p (op1))
3681         {
3682           if (TREE_CODE (op0) == ADDR_EXPR
3683               && decl_with_nonnull_addr_p (TREE_OPERAND (op0, 0)))
3684             {
3685               if (complain & tf_warning)
3686                 warning (OPT_Waddress, "the address of %qD will never be NULL",
3687                          TREE_OPERAND (op0, 0));
3688             }
3689           result_type = type0;
3690         }
3691       else if ((code1 == POINTER_TYPE || TYPE_PTRMEM_P (type1))
3692                && null_ptr_cst_p (op0))
3693         {
3694           if (TREE_CODE (op1) == ADDR_EXPR
3695               && decl_with_nonnull_addr_p (TREE_OPERAND (op1, 0)))
3696             {
3697               if (complain & tf_warning)
3698                 warning (OPT_Waddress, "the address of %qD will never be NULL",
3699                          TREE_OPERAND (op1, 0));
3700             }
3701           result_type = type1;
3702         }
3703       else if (code0 == POINTER_TYPE && code1 == INTEGER_TYPE)
3704         {
3705           result_type = type0;
3706           if (complain & tf_error)
3707             permerror (input_location, "ISO C++ forbids comparison between pointer and integer");
3708           else
3709             return error_mark_node;
3710         }
3711       else if (code0 == INTEGER_TYPE && code1 == POINTER_TYPE)
3712         {
3713           result_type = type1;
3714           if (complain & tf_error)
3715             permerror (input_location, "ISO C++ forbids comparison between pointer and integer");
3716           else
3717             return error_mark_node;
3718         }
3719       else if (TYPE_PTRMEMFUNC_P (type0) && null_ptr_cst_p (op1))
3720         {
3721           if (TARGET_PTRMEMFUNC_VBIT_LOCATION
3722               == ptrmemfunc_vbit_in_delta)
3723             {
3724               tree pfn0 = pfn_from_ptrmemfunc (op0);
3725               tree delta0 = delta_from_ptrmemfunc (op0);
3726               tree e1 = cp_build_binary_op (location,
3727                                             EQ_EXPR,
3728                                             pfn0,
3729                                             fold_convert (TREE_TYPE (pfn0),
3730                                                           integer_zero_node),
3731                                             complain);
3732               tree e2 = cp_build_binary_op (location,
3733                                             BIT_AND_EXPR,
3734                                             delta0,
3735                                             integer_one_node,
3736                                             complain);
3737               e2 = cp_build_binary_op (location,
3738                                        EQ_EXPR, e2, integer_zero_node,
3739                                        complain);
3740               op0 = cp_build_binary_op (location,
3741                                         TRUTH_ANDIF_EXPR, e1, e2,
3742                                         complain);
3743               op1 = cp_convert (TREE_TYPE (op0), integer_one_node);
3744             }
3745           else
3746             {
3747               op0 = build_ptrmemfunc_access_expr (op0, pfn_identifier);
3748               op1 = cp_convert (TREE_TYPE (op0), integer_zero_node);
3749             }
3750           result_type = TREE_TYPE (op0);
3751         }
3752       else if (TYPE_PTRMEMFUNC_P (type1) && null_ptr_cst_p (op0))
3753         return cp_build_binary_op (location, code, op1, op0, complain);
3754       else if (TYPE_PTRMEMFUNC_P (type0) && TYPE_PTRMEMFUNC_P (type1))
3755         {
3756           tree type;
3757           /* E will be the final comparison.  */
3758           tree e;
3759           /* E1 and E2 are for scratch.  */
3760           tree e1;
3761           tree e2;
3762           tree pfn0;
3763           tree pfn1;
3764           tree delta0;
3765           tree delta1;
3766
3767           type = composite_pointer_type (type0, type1, op0, op1, "comparison",
3768                                          complain);
3769
3770           if (!same_type_p (TREE_TYPE (op0), type))
3771             op0 = cp_convert_and_check (type, op0);
3772           if (!same_type_p (TREE_TYPE (op1), type))
3773             op1 = cp_convert_and_check (type, op1);
3774
3775           if (op0 == error_mark_node || op1 == error_mark_node)
3776             return error_mark_node;
3777
3778           if (TREE_SIDE_EFFECTS (op0))
3779             op0 = save_expr (op0);
3780           if (TREE_SIDE_EFFECTS (op1))
3781             op1 = save_expr (op1);
3782
3783           pfn0 = pfn_from_ptrmemfunc (op0);
3784           pfn1 = pfn_from_ptrmemfunc (op1);
3785           delta0 = delta_from_ptrmemfunc (op0);
3786           delta1 = delta_from_ptrmemfunc (op1);
3787           if (TARGET_PTRMEMFUNC_VBIT_LOCATION
3788               == ptrmemfunc_vbit_in_delta)
3789             {
3790               /* We generate:
3791
3792                  (op0.pfn == op1.pfn
3793                   && ((op0.delta == op1.delta)
3794                        || (!op0.pfn && op0.delta & 1 == 0
3795                            && op1.delta & 1 == 0))
3796
3797                  The reason for the `!op0.pfn' bit is that a NULL
3798                  pointer-to-member is any member with a zero PFN and
3799                  LSB of the DELTA field is 0.  */
3800
3801               e1 = cp_build_binary_op (location, BIT_AND_EXPR,
3802                                        delta0,
3803                                        integer_one_node,
3804                                        complain);
3805               e1 = cp_build_binary_op (location,
3806                                        EQ_EXPR, e1, integer_zero_node,
3807                                        complain);
3808               e2 = cp_build_binary_op (location, BIT_AND_EXPR,
3809                                        delta1,
3810                                        integer_one_node,
3811                                        complain);
3812               e2 = cp_build_binary_op (location,
3813                                        EQ_EXPR, e2, integer_zero_node,
3814                                        complain);
3815               e1 = cp_build_binary_op (location,
3816                                        TRUTH_ANDIF_EXPR, e2, e1,
3817                                        complain);
3818               e2 = cp_build_binary_op (location, EQ_EXPR,
3819                                        pfn0,
3820                                        fold_convert (TREE_TYPE (pfn0),
3821                                                      integer_zero_node),
3822                                        complain);
3823               e2 = cp_build_binary_op (location,
3824                                        TRUTH_ANDIF_EXPR, e2, e1, complain);
3825               e1 = cp_build_binary_op (location,
3826                                        EQ_EXPR, delta0, delta1, complain);
3827               e1 = cp_build_binary_op (location,
3828                                        TRUTH_ORIF_EXPR, e1, e2, complain);
3829             }
3830           else
3831             {
3832               /* We generate:
3833
3834                  (op0.pfn == op1.pfn
3835                  && (!op0.pfn || op0.delta == op1.delta))
3836
3837                  The reason for the `!op0.pfn' bit is that a NULL
3838                  pointer-to-member is any member with a zero PFN; the
3839                  DELTA field is unspecified.  */
3840
3841               e1 = cp_build_binary_op (location,
3842                                        EQ_EXPR, delta0, delta1, complain);
3843               e2 = cp_build_binary_op (location,
3844                                        EQ_EXPR,
3845                                        pfn0,
3846                                        fold_convert (TREE_TYPE (pfn0),
3847                                                      integer_zero_node),
3848                                        complain);
3849               e1 = cp_build_binary_op (location,
3850                                        TRUTH_ORIF_EXPR, e1, e2, complain);
3851             }
3852           e2 = build2 (EQ_EXPR, boolean_type_node, pfn0, pfn1);
3853           e = cp_build_binary_op (location,
3854                                   TRUTH_ANDIF_EXPR, e2, e1, complain);
3855           if (code == EQ_EXPR)
3856             return e;
3857           return cp_build_binary_op (location,
3858                                      EQ_EXPR, e, integer_zero_node, complain);
3859         }
3860       else
3861         {
3862           gcc_assert (!TYPE_PTRMEMFUNC_P (type0)
3863                       || !same_type_p (TYPE_PTRMEMFUNC_FN_TYPE (type0),
3864                                        type1));
3865           gcc_assert (!TYPE_PTRMEMFUNC_P (type1)
3866                       || !same_type_p (TYPE_PTRMEMFUNC_FN_TYPE (type1),
3867                                        type0));
3868         }
3869
3870       break;
3871
3872     case MAX_EXPR:
3873     case MIN_EXPR:
3874       if ((code0 == INTEGER_TYPE || code0 == REAL_TYPE)
3875            && (code1 == INTEGER_TYPE || code1 == REAL_TYPE))
3876         shorten = 1;
3877       else if (code0 == POINTER_TYPE && code1 == POINTER_TYPE)
3878         result_type = composite_pointer_type (type0, type1, op0, op1,
3879                                               "comparison", complain);
3880       break;
3881
3882     case LE_EXPR:
3883     case GE_EXPR:
3884     case LT_EXPR:
3885     case GT_EXPR:
3886       if (TREE_CODE (orig_op0) == STRING_CST
3887           || TREE_CODE (orig_op1) == STRING_CST)
3888         {
3889           if (complain & tf_warning)
3890             warning (OPT_Waddress, "comparison with string literal results in unspecified behaviour");
3891         }
3892
3893       build_type = boolean_type_node;
3894       if ((code0 == INTEGER_TYPE || code0 == REAL_TYPE)
3895            && (code1 == INTEGER_TYPE || code1 == REAL_TYPE))
3896         short_compare = 1;
3897       else if (code0 == POINTER_TYPE && code1 == POINTER_TYPE)
3898         result_type = composite_pointer_type (type0, type1, op0, op1,
3899                                               "comparison", complain);
3900       else if (code0 == POINTER_TYPE && TREE_CODE (op1) == INTEGER_CST
3901                && integer_zerop (op1))
3902         result_type = type0;
3903       else if (code1 == POINTER_TYPE && TREE_CODE (op0) == INTEGER_CST
3904                && integer_zerop (op0))
3905         result_type = type1;
3906       else if (code0 == POINTER_TYPE && code1 == INTEGER_TYPE)
3907         {
3908           result_type = type0;
3909           if (complain & tf_error)
3910             permerror (input_location, "ISO C++ forbids comparison between pointer and integer");
3911           else
3912             return error_mark_node;
3913         }
3914       else if (code0 == INTEGER_TYPE && code1 == POINTER_TYPE)
3915         {
3916           result_type = type1;
3917           if (complain & tf_error)
3918             permerror (input_location, "ISO C++ forbids comparison between pointer and integer");
3919           else
3920             return error_mark_node;
3921         }
3922       break;
3923
3924     case UNORDERED_EXPR:
3925     case ORDERED_EXPR:
3926     case UNLT_EXPR:
3927     case UNLE_EXPR:
3928     case UNGT_EXPR:
3929     case UNGE_EXPR:
3930     case UNEQ_EXPR:
3931       build_type = integer_type_node;
3932       if (code0 != REAL_TYPE || code1 != REAL_TYPE)
3933         {
3934           if (complain & tf_error)
3935             error ("unordered comparison on non-floating point argument");
3936           return error_mark_node;
3937         }
3938       common = 1;
3939       break;
3940
3941     default:
3942       break;
3943     }
3944
3945   if (((code0 == INTEGER_TYPE || code0 == REAL_TYPE || code0 == COMPLEX_TYPE
3946         || code0 == ENUMERAL_TYPE)
3947        && (code1 == INTEGER_TYPE || code1 == REAL_TYPE
3948            || code1 == COMPLEX_TYPE || code1 == ENUMERAL_TYPE)))
3949     arithmetic_types_p = 1;
3950   else
3951     {
3952       arithmetic_types_p = 0;
3953       /* Vector arithmetic is only allowed when both sides are vectors.  */
3954       if (code0 == VECTOR_TYPE && code1 == VECTOR_TYPE)
3955         {
3956           if (!tree_int_cst_equal (TYPE_SIZE (type0), TYPE_SIZE (type1))
3957               || !same_scalar_type_ignoring_signedness (TREE_TYPE (type0),
3958                                                         TREE_TYPE (type1)))
3959             {
3960               binary_op_error (location, code, type0, type1);
3961               return error_mark_node;
3962             }
3963           arithmetic_types_p = 1;
3964         }
3965     }
3966   /* Determine the RESULT_TYPE, if it is not already known.  */
3967   if (!result_type
3968       && arithmetic_types_p
3969       && (shorten || common || short_compare))
3970     result_type = cp_common_type (type0, type1);
3971
3972   if (!result_type)
3973     {
3974       if (complain & tf_error)
3975         error ("invalid operands of types %qT and %qT to binary %qO",
3976                TREE_TYPE (orig_op0), TREE_TYPE (orig_op1), code);
3977       return error_mark_node;
3978     }
3979
3980   /* If we're in a template, the only thing we need to know is the
3981      RESULT_TYPE.  */
3982   if (processing_template_decl)
3983     {
3984       /* Since the middle-end checks the type when doing a build2, we
3985          need to build the tree in pieces.  This built tree will never
3986          get out of the front-end as we replace it when instantiating
3987          the template.  */
3988       tree tmp = build2 (resultcode,
3989                          build_type ? build_type : result_type,
3990                          NULL_TREE, op1);
3991       TREE_OPERAND (tmp, 0) = op0;
3992       return tmp;
3993     }
3994
3995   if (arithmetic_types_p)
3996     {
3997       int none_complex = (code0 != COMPLEX_TYPE && code1 != COMPLEX_TYPE);
3998
3999       /* For certain operations (which identify themselves by shorten != 0)
4000          if both args were extended from the same smaller type,
4001          do the arithmetic in that type and then extend.
4002
4003          shorten !=0 and !=1 indicates a bitwise operation.
4004          For them, this optimization is safe only if
4005          both args are zero-extended or both are sign-extended.
4006          Otherwise, we might change the result.
4007          E.g., (short)-1 | (unsigned short)-1 is (int)-1
4008          but calculated in (unsigned short) it would be (unsigned short)-1.  */
4009
4010       if (shorten && none_complex)
4011         {
4012           final_type = result_type;
4013           result_type = shorten_binary_op (result_type, op0, op1,
4014                                            shorten == -1);
4015         }
4016
4017       /* Comparison operations are shortened too but differently.
4018          They identify themselves by setting short_compare = 1.  */
4019
4020       if (short_compare)
4021         {
4022           /* Don't write &op0, etc., because that would prevent op0
4023              from being kept in a register.
4024              Instead, make copies of the our local variables and
4025              pass the copies by reference, then copy them back afterward.  */
4026           tree xop0 = op0, xop1 = op1, xresult_type = result_type;
4027           enum tree_code xresultcode = resultcode;
4028           tree val
4029             = shorten_compare (&xop0, &xop1, &xresult_type, &xresultcode);
4030           if (val != 0)
4031             return cp_convert (boolean_type_node, val);
4032           op0 = xop0, op1 = xop1;
4033           converted = 1;
4034           resultcode = xresultcode;
4035         }
4036
4037       if ((short_compare || code == MIN_EXPR || code == MAX_EXPR)
4038           && warn_sign_compare
4039           && !TREE_NO_WARNING (orig_op0)
4040           && !TREE_NO_WARNING (orig_op1)
4041           /* Do not warn until the template is instantiated; we cannot
4042              bound the ranges of the arguments until that point.  */
4043           && !processing_template_decl
4044           && (complain & tf_warning)
4045           && c_inhibit_evaluation_warnings == 0)
4046         {
4047           warn_for_sign_compare (location, orig_op0, orig_op1, op0, op1,
4048                                  result_type, resultcode);
4049         }
4050     }
4051
4052   /* If CONVERTED is zero, both args will be converted to type RESULT_TYPE.
4053      Then the expression will be built.
4054      It will be given type FINAL_TYPE if that is nonzero;
4055      otherwise, it will be given type RESULT_TYPE.  */
4056   if (! converted)
4057     {
4058       if (TREE_TYPE (op0) != result_type)
4059         op0 = cp_convert_and_check (result_type, op0);
4060       if (TREE_TYPE (op1) != result_type)
4061         op1 = cp_convert_and_check (result_type, op1);
4062
4063       if (op0 == error_mark_node || op1 == error_mark_node)
4064         return error_mark_node;
4065     }
4066
4067   if (build_type == NULL_TREE)
4068     build_type = result_type;
4069
4070   result = build2 (resultcode, build_type, op0, op1);
4071   result = fold_if_not_in_template (result);
4072   if (final_type != 0)
4073     result = cp_convert (final_type, result);
4074
4075   if (TREE_OVERFLOW_P (result)
4076       && !TREE_OVERFLOW_P (op0)
4077       && !TREE_OVERFLOW_P (op1))
4078     overflow_warning (location, result);
4079
4080   return result;
4081 }
4082 \f
4083 /* Return a tree for the sum or difference (RESULTCODE says which)
4084    of pointer PTROP and integer INTOP.  */
4085
4086 static tree
4087 cp_pointer_int_sum (enum tree_code resultcode, tree ptrop, tree intop)
4088 {
4089   tree res_type = TREE_TYPE (ptrop);
4090
4091   /* pointer_int_sum() uses size_in_bytes() on the TREE_TYPE(res_type)
4092      in certain circumstance (when it's valid to do so).  So we need
4093      to make sure it's complete.  We don't need to check here, if we
4094      can actually complete it at all, as those checks will be done in
4095      pointer_int_sum() anyway.  */
4096   complete_type (TREE_TYPE (res_type));
4097
4098   return pointer_int_sum (resultcode, ptrop,
4099                           fold_if_not_in_template (intop));
4100 }
4101
4102 /* Return a tree for the difference of pointers OP0 and OP1.
4103    The resulting tree has type int.  */
4104
4105 static tree
4106 pointer_diff (tree op0, tree op1, tree ptrtype)
4107 {
4108   tree result;
4109   tree restype = ptrdiff_type_node;
4110   tree target_type = TREE_TYPE (ptrtype);
4111
4112   if (!complete_type_or_else (target_type, NULL_TREE))
4113     return error_mark_node;
4114
4115   if (TREE_CODE (target_type) == VOID_TYPE)
4116     permerror (input_location, "ISO C++ forbids using pointer of type %<void *%> in subtraction");
4117   if (TREE_CODE (target_type) == FUNCTION_TYPE)
4118     permerror (input_location, "ISO C++ forbids using pointer to a function in subtraction");
4119   if (TREE_CODE (target_type) == METHOD_TYPE)
4120     permerror (input_location, "ISO C++ forbids using pointer to a method in subtraction");
4121
4122   /* First do the subtraction as integers;
4123      then drop through to build the divide operator.  */
4124
4125   op0 = cp_build_binary_op (input_location,
4126                             MINUS_EXPR,
4127                             cp_convert (restype, op0),
4128                             cp_convert (restype, op1),
4129                             tf_warning_or_error);
4130
4131   /* This generates an error if op1 is a pointer to an incomplete type.  */
4132   if (!COMPLETE_TYPE_P (TREE_TYPE (TREE_TYPE (op1))))
4133     error ("invalid use of a pointer to an incomplete type in pointer arithmetic");
4134
4135   op1 = (TYPE_PTROB_P (ptrtype)
4136          ? size_in_bytes (target_type)
4137          : integer_one_node);
4138
4139   /* Do the division.  */
4140
4141   result = build2 (EXACT_DIV_EXPR, restype, op0, cp_convert (restype, op1));
4142   return fold_if_not_in_template (result);
4143 }
4144 \f
4145 /* Construct and perhaps optimize a tree representation
4146    for a unary operation.  CODE, a tree_code, specifies the operation
4147    and XARG is the operand.  */
4148
4149 tree
4150 build_x_unary_op (enum tree_code code, tree xarg, tsubst_flags_t complain)
4151 {
4152   tree orig_expr = xarg;
4153   tree exp;
4154   int ptrmem = 0;
4155
4156   if (processing_template_decl)
4157     {
4158       if (type_dependent_expression_p (xarg))
4159         return build_min_nt (code, xarg, NULL_TREE);
4160
4161       xarg = build_non_dependent_expr (xarg);
4162     }
4163
4164   exp = NULL_TREE;
4165
4166   /* [expr.unary.op] says:
4167
4168        The address of an object of incomplete type can be taken.
4169
4170      (And is just the ordinary address operator, not an overloaded
4171      "operator &".)  However, if the type is a template
4172      specialization, we must complete the type at this point so that
4173      an overloaded "operator &" will be available if required.  */
4174   if (code == ADDR_EXPR
4175       && TREE_CODE (xarg) != TEMPLATE_ID_EXPR
4176       && ((CLASS_TYPE_P (TREE_TYPE (xarg))
4177            && !COMPLETE_TYPE_P (complete_type (TREE_TYPE (xarg))))
4178           || (TREE_CODE (xarg) == OFFSET_REF)))
4179     /* Don't look for a function.  */;
4180   else
4181     exp = build_new_op (code, LOOKUP_NORMAL, xarg, NULL_TREE, NULL_TREE,
4182                         /*overloaded_p=*/NULL, complain);
4183   if (!exp && code == ADDR_EXPR)
4184     {
4185       if (is_overloaded_fn (xarg))
4186         {
4187           tree fn = get_first_fn (xarg);
4188           if (DECL_CONSTRUCTOR_P (fn) || DECL_DESTRUCTOR_P (fn))
4189             {
4190               const char *type =
4191                 (DECL_CONSTRUCTOR_P (fn) ? "constructor" : "destructor");
4192               error ("taking address of %s %qE", type, xarg);
4193               return error_mark_node;
4194             }
4195         }
4196
4197       /* A pointer to member-function can be formed only by saying
4198          &X::mf.  */
4199       if (!flag_ms_extensions && TREE_CODE (TREE_TYPE (xarg)) == METHOD_TYPE
4200           && (TREE_CODE (xarg) != OFFSET_REF || !PTRMEM_OK_P (xarg)))
4201         {
4202           if (TREE_CODE (xarg) != OFFSET_REF
4203               || !TYPE_P (TREE_OPERAND (xarg, 0)))
4204             {
4205               error ("invalid use of %qE to form a pointer-to-member-function",
4206                      xarg);
4207               if (TREE_CODE (xarg) != OFFSET_REF)
4208                 inform (input_location, "  a qualified-id is required");
4209               return error_mark_node;
4210             }
4211           else
4212             {
4213               error ("parentheses around %qE cannot be used to form a"
4214                      " pointer-to-member-function",
4215                      xarg);
4216               PTRMEM_OK_P (xarg) = 1;
4217             }
4218         }
4219
4220       if (TREE_CODE (xarg) == OFFSET_REF)
4221         {
4222           ptrmem = PTRMEM_OK_P (xarg);
4223
4224           if (!ptrmem && !flag_ms_extensions
4225               && TREE_CODE (TREE_TYPE (TREE_OPERAND (xarg, 1))) == METHOD_TYPE)
4226             {
4227               /* A single non-static member, make sure we don't allow a
4228                  pointer-to-member.  */
4229               xarg = build2 (OFFSET_REF, TREE_TYPE (xarg),
4230                              TREE_OPERAND (xarg, 0),
4231                              ovl_cons (TREE_OPERAND (xarg, 1), NULL_TREE));
4232               PTRMEM_OK_P (xarg) = ptrmem;
4233             }
4234         }
4235       else if (TREE_CODE (xarg) == TARGET_EXPR && (complain & tf_warning))
4236         warning (0, "taking address of temporary");
4237       exp = cp_build_unary_op (ADDR_EXPR, xarg, 0, complain);
4238     }
4239
4240   if (processing_template_decl && exp != error_mark_node)
4241     exp = build_min_non_dep (code, exp, orig_expr,
4242                              /*For {PRE,POST}{INC,DEC}REMENT_EXPR*/NULL_TREE);
4243   if (TREE_CODE (exp) == ADDR_EXPR)
4244     PTRMEM_OK_P (exp) = ptrmem;
4245   return exp;
4246 }
4247
4248 /* Like c_common_truthvalue_conversion, but handle pointer-to-member
4249    constants, where a null value is represented by an INTEGER_CST of
4250    -1.  */
4251
4252 tree
4253 cp_truthvalue_conversion (tree expr)
4254 {
4255   tree type = TREE_TYPE (expr);
4256   if (TYPE_PTRMEM_P (type))
4257     return build_binary_op (EXPR_LOCATION (expr),
4258                             NE_EXPR, expr, integer_zero_node, 1);
4259   else
4260     return c_common_truthvalue_conversion (input_location, expr);
4261 }
4262
4263 /* Just like cp_truthvalue_conversion, but we want a CLEANUP_POINT_EXPR.  */
4264
4265 tree
4266 condition_conversion (tree expr)
4267 {
4268   tree t;
4269   if (processing_template_decl)
4270     return expr;
4271   t = perform_implicit_conversion (boolean_type_node, expr,
4272                                    tf_warning_or_error);
4273   t = fold_build_cleanup_point_expr (boolean_type_node, t);
4274   return t;
4275 }
4276
4277 /* Return an ADDR_EXPR giving the address of T.  This function
4278    attempts no optimizations or simplifications; it is a low-level
4279    primitive.  */
4280
4281 tree
4282 build_address (tree t)
4283 {
4284   tree addr;
4285
4286   if (error_operand_p (t) || !cxx_mark_addressable (t))
4287     return error_mark_node;
4288
4289   addr = build1 (ADDR_EXPR, build_pointer_type (TREE_TYPE (t)), t);
4290
4291   return addr;
4292 }
4293
4294 /* Return a NOP_EXPR converting EXPR to TYPE.  */
4295
4296 tree
4297 build_nop (tree type, tree expr)
4298 {
4299   if (type == error_mark_node || error_operand_p (expr))
4300     return expr;
4301   return build1 (NOP_EXPR, type, expr);
4302 }
4303
4304 /* C++: Must handle pointers to members.
4305
4306    Perhaps type instantiation should be extended to handle conversion
4307    from aggregates to types we don't yet know we want?  (Or are those
4308    cases typically errors which should be reported?)
4309
4310    NOCONVERT nonzero suppresses the default promotions
4311    (such as from short to int).  */
4312
4313 tree
4314 cp_build_unary_op (enum tree_code code, tree xarg, int noconvert,
4315                    tsubst_flags_t complain)
4316 {
4317   /* No default_conversion here.  It causes trouble for ADDR_EXPR.  */
4318   tree arg = xarg;
4319   tree argtype = 0;
4320   const char *errstring = NULL;
4321   tree val;
4322   const char *invalid_op_diag;
4323
4324   if (error_operand_p (arg))
4325     return error_mark_node;
4326
4327   if ((invalid_op_diag
4328        = targetm.invalid_unary_op ((code == UNARY_PLUS_EXPR
4329                                     ? CONVERT_EXPR
4330                                     : code),
4331                                    TREE_TYPE (xarg))))
4332     {
4333       error (invalid_op_diag);
4334       return error_mark_node;
4335     }
4336
4337   switch (code)
4338     {
4339     case UNARY_PLUS_EXPR:
4340     case NEGATE_EXPR:
4341       {
4342         int flags = WANT_ARITH | WANT_ENUM;
4343         /* Unary plus (but not unary minus) is allowed on pointers.  */
4344         if (code == UNARY_PLUS_EXPR)
4345           flags |= WANT_POINTER;
4346         arg = build_expr_type_conversion (flags, arg, true);
4347         if (!arg)
4348           errstring = (code == NEGATE_EXPR
4349                        ? "wrong type argument to unary minus"
4350                        : "wrong type argument to unary plus");
4351         else
4352           {
4353             if (!noconvert && CP_INTEGRAL_TYPE_P (TREE_TYPE (arg)))
4354               arg = perform_integral_promotions (arg);
4355
4356             /* Make sure the result is not an lvalue: a unary plus or minus
4357                expression is always a rvalue.  */
4358             arg = rvalue (arg);
4359           }
4360       }
4361       break;
4362
4363     case BIT_NOT_EXPR:
4364       if (TREE_CODE (TREE_TYPE (arg)) == COMPLEX_TYPE)
4365         {
4366           code = CONJ_EXPR;
4367           if (!noconvert)
4368             arg = default_conversion (arg);
4369         }
4370       else if (!(arg = build_expr_type_conversion (WANT_INT | WANT_ENUM
4371                                                    | WANT_VECTOR,
4372                                                    arg, true)))
4373         errstring = "wrong type argument to bit-complement";
4374       else if (!noconvert && CP_INTEGRAL_TYPE_P (TREE_TYPE (arg)))
4375         arg = perform_integral_promotions (arg);
4376       break;
4377
4378     case ABS_EXPR:
4379       if (!(arg = build_expr_type_conversion (WANT_ARITH | WANT_ENUM, arg, true)))
4380         errstring = "wrong type argument to abs";
4381       else if (!noconvert)
4382         arg = default_conversion (arg);
4383       break;
4384
4385     case CONJ_EXPR:
4386       /* Conjugating a real value is a no-op, but allow it anyway.  */
4387       if (!(arg = build_expr_type_conversion (WANT_ARITH | WANT_ENUM, arg, true)))
4388         errstring = "wrong type argument to conjugation";
4389       else if (!noconvert)
4390         arg = default_conversion (arg);
4391       break;
4392
4393     case TRUTH_NOT_EXPR:
4394       arg = perform_implicit_conversion (boolean_type_node, arg,
4395                                          complain);
4396       val = invert_truthvalue (arg);
4397       if (arg != error_mark_node)
4398         return val;
4399       errstring = "in argument to unary !";
4400       break;
4401
4402     case NOP_EXPR:
4403       break;
4404
4405     case REALPART_EXPR:
4406       if (TREE_CODE (arg) == COMPLEX_CST)
4407         return TREE_REALPART (arg);
4408       else if (TREE_CODE (TREE_TYPE (arg)) == COMPLEX_TYPE)
4409         {
4410           arg = build1 (REALPART_EXPR, TREE_TYPE (TREE_TYPE (arg)), arg);
4411           return fold_if_not_in_template (arg);
4412         }
4413       else
4414         return arg;
4415
4416     case IMAGPART_EXPR:
4417       if (TREE_CODE (arg) == COMPLEX_CST)
4418         return TREE_IMAGPART (arg);
4419       else if (TREE_CODE (TREE_TYPE (arg)) == COMPLEX_TYPE)
4420         {
4421           arg = build1 (IMAGPART_EXPR, TREE_TYPE (TREE_TYPE (arg)), arg);
4422           return fold_if_not_in_template (arg);
4423         }
4424       else
4425         return cp_convert (TREE_TYPE (arg), integer_zero_node);
4426
4427     case PREINCREMENT_EXPR:
4428     case POSTINCREMENT_EXPR:
4429     case PREDECREMENT_EXPR:
4430     case POSTDECREMENT_EXPR:
4431       /* Handle complex lvalues (when permitted)
4432          by reduction to simpler cases.  */
4433
4434       val = unary_complex_lvalue (code, arg);
4435       if (val != 0)
4436         return val;
4437
4438       /* Increment or decrement the real part of the value,
4439          and don't change the imaginary part.  */
4440       if (TREE_CODE (TREE_TYPE (arg)) == COMPLEX_TYPE)
4441         {
4442           tree real, imag;
4443
4444           arg = stabilize_reference (arg);
4445           real = cp_build_unary_op (REALPART_EXPR, arg, 1, complain);
4446           imag = cp_build_unary_op (IMAGPART_EXPR, arg, 1, complain);
4447           real = cp_build_unary_op (code, real, 1, complain);
4448           if (real == error_mark_node || imag == error_mark_node)
4449             return error_mark_node;
4450           return build2 (COMPLEX_EXPR, TREE_TYPE (arg),
4451                          real, imag);
4452         }
4453
4454       /* Report invalid types.  */
4455
4456       if (!(arg = build_expr_type_conversion (WANT_ARITH | WANT_POINTER,
4457                                               arg, true)))
4458         {
4459           if (code == PREINCREMENT_EXPR)
4460             errstring ="no pre-increment operator for type";
4461           else if (code == POSTINCREMENT_EXPR)
4462             errstring ="no post-increment operator for type";
4463           else if (code == PREDECREMENT_EXPR)
4464             errstring ="no pre-decrement operator for type";
4465           else
4466             errstring ="no post-decrement operator for type";
4467           break;
4468         }
4469       else if (arg == error_mark_node)
4470         return error_mark_node;
4471
4472       /* Report something read-only.  */
4473
4474       if (CP_TYPE_CONST_P (TREE_TYPE (arg))
4475           || TREE_READONLY (arg))
4476         {
4477           if (complain & tf_error)
4478             readonly_error (arg, ((code == PREINCREMENT_EXPR
4479                                    || code == POSTINCREMENT_EXPR)
4480                                   ? "increment" : "decrement"));
4481           else
4482             return error_mark_node;
4483         }
4484
4485       {
4486         tree inc;
4487         tree declared_type = unlowered_expr_type (arg);
4488
4489         argtype = TREE_TYPE (arg);
4490
4491         /* ARM $5.2.5 last annotation says this should be forbidden.  */
4492         if (TREE_CODE (argtype) == ENUMERAL_TYPE)
4493           {
4494             if (complain & tf_error)
4495               permerror (input_location, (code == PREINCREMENT_EXPR || code == POSTINCREMENT_EXPR)
4496                          ? G_("ISO C++ forbids incrementing an enum")
4497                          : G_("ISO C++ forbids decrementing an enum"));
4498             else
4499               return error_mark_node;
4500           }
4501
4502         /* Compute the increment.  */
4503
4504         if (TREE_CODE (argtype) == POINTER_TYPE)
4505           {
4506             tree type = complete_type (TREE_TYPE (argtype));
4507
4508             if (!COMPLETE_OR_VOID_TYPE_P (type))
4509               {
4510                 if (complain & tf_error)
4511                   error (((code == PREINCREMENT_EXPR
4512                            || code == POSTINCREMENT_EXPR))
4513                          ? G_("cannot increment a pointer to incomplete type %qT")
4514                          : G_("cannot decrement a pointer to incomplete type %qT"),
4515                          TREE_TYPE (argtype));
4516                 else
4517                   return error_mark_node;
4518               }
4519             else if ((pedantic || warn_pointer_arith)
4520                      && !TYPE_PTROB_P (argtype))
4521               {
4522                 if (complain & tf_error)
4523                   permerror (input_location, (code == PREINCREMENT_EXPR
4524                               || code == POSTINCREMENT_EXPR)
4525                              ? G_("ISO C++ forbids incrementing a pointer of type %qT")
4526                              : G_("ISO C++ forbids decrementing a pointer of type %qT"),
4527                              argtype);
4528                 else
4529                   return error_mark_node;
4530               }
4531
4532             inc = cxx_sizeof_nowarn (TREE_TYPE (argtype));
4533           }
4534         else
4535           inc = integer_one_node;
4536
4537         inc = cp_convert (argtype, inc);
4538
4539         /* Complain about anything else that is not a true lvalue.  */
4540         if (!lvalue_or_else (arg, ((code == PREINCREMENT_EXPR
4541                                     || code == POSTINCREMENT_EXPR)
4542                                    ? lv_increment : lv_decrement),
4543                              complain))
4544           return error_mark_node;
4545
4546         /* Forbid using -- on `bool'.  */
4547         if (same_type_p (declared_type, boolean_type_node))
4548           {
4549             if (code == POSTDECREMENT_EXPR || code == PREDECREMENT_EXPR)
4550               {
4551                 if (complain & tf_error)
4552                   error ("invalid use of Boolean expression as operand "
4553                          "to %<operator--%>");
4554                 return error_mark_node;
4555               }
4556             val = boolean_increment (code, arg);
4557           }
4558         else
4559           val = build2 (code, TREE_TYPE (arg), arg, inc);
4560
4561         TREE_SIDE_EFFECTS (val) = 1;
4562         return val;
4563       }
4564
4565     case ADDR_EXPR:
4566       /* Note that this operation never does default_conversion
4567          regardless of NOCONVERT.  */
4568
4569       argtype = lvalue_type (arg);
4570
4571       if (TREE_CODE (arg) == OFFSET_REF)
4572         goto offset_ref;
4573
4574       if (TREE_CODE (argtype) == REFERENCE_TYPE)
4575         {
4576           tree type = build_pointer_type (TREE_TYPE (argtype));
4577           arg = build1 (CONVERT_EXPR, type, arg);
4578           return arg;
4579         }
4580       else if (pedantic && DECL_MAIN_P (arg))
4581         {
4582           /* ARM $3.4 */
4583           /* Apparently a lot of autoconf scripts for C++ packages do this,
4584              so only complain if -pedantic.  */
4585           if (complain & (flag_pedantic_errors ? tf_error : tf_warning))
4586             pedwarn (input_location, OPT_pedantic,
4587                      "ISO C++ forbids taking address of function %<::main%>");
4588           else if (flag_pedantic_errors)
4589             return error_mark_node;
4590         }
4591
4592       /* Let &* cancel out to simplify resulting code.  */
4593       if (TREE_CODE (arg) == INDIRECT_REF)
4594         {
4595           /* We don't need to have `current_class_ptr' wrapped in a
4596              NON_LVALUE_EXPR node.  */
4597           if (arg == current_class_ref)
4598             return current_class_ptr;
4599
4600           arg = TREE_OPERAND (arg, 0);
4601           if (TREE_CODE (TREE_TYPE (arg)) == REFERENCE_TYPE)
4602             {
4603               tree type = build_pointer_type (TREE_TYPE (TREE_TYPE (arg)));
4604               arg = build1 (CONVERT_EXPR, type, arg);
4605             }
4606           else
4607             /* Don't let this be an lvalue.  */
4608             arg = rvalue (arg);
4609           return arg;
4610         }
4611
4612       /* Uninstantiated types are all functions.  Taking the
4613          address of a function is a no-op, so just return the
4614          argument.  */
4615
4616       gcc_assert (TREE_CODE (arg) != IDENTIFIER_NODE
4617                   || !IDENTIFIER_OPNAME_P (arg));
4618
4619       if (TREE_CODE (arg) == COMPONENT_REF && type_unknown_p (arg)
4620           && !really_overloaded_fn (TREE_OPERAND (arg, 1)))
4621         {
4622           /* They're trying to take the address of a unique non-static
4623              member function.  This is ill-formed (except in MS-land),
4624              but let's try to DTRT.
4625              Note: We only handle unique functions here because we don't
4626              want to complain if there's a static overload; non-unique
4627              cases will be handled by instantiate_type.  But we need to
4628              handle this case here to allow casts on the resulting PMF.
4629              We could defer this in non-MS mode, but it's easier to give
4630              a useful error here.  */
4631
4632           /* Inside constant member functions, the `this' pointer
4633              contains an extra const qualifier.  TYPE_MAIN_VARIANT
4634              is used here to remove this const from the diagnostics
4635              and the created OFFSET_REF.  */
4636           tree base = TYPE_MAIN_VARIANT (TREE_TYPE (TREE_OPERAND (arg, 0)));
4637           tree fn = get_first_fn (TREE_OPERAND (arg, 1));
4638           mark_used (fn);
4639
4640           if (! flag_ms_extensions)
4641             {
4642               tree name = DECL_NAME (fn);
4643               if (!(complain & tf_error))
4644                 return error_mark_node;
4645               else if (current_class_type
4646                        && TREE_OPERAND (arg, 0) == current_class_ref)
4647                   /* An expression like &memfn.  */
4648                 permerror (input_location, "ISO C++ forbids taking the address of an unqualified"
4649                            " or parenthesized non-static member function to form"
4650                            " a pointer to member function.  Say %<&%T::%D%>",
4651                            base, name);
4652               else
4653                 permerror (input_location, "ISO C++ forbids taking the address of a bound member"
4654                            " function to form a pointer to member function."
4655                            "  Say %<&%T::%D%>",
4656                            base, name);
4657             }
4658           arg = build_offset_ref (base, fn, /*address_p=*/true);
4659         }
4660
4661     offset_ref:
4662       if (type_unknown_p (arg))
4663         return build1 (ADDR_EXPR, unknown_type_node, arg);
4664
4665       /* Handle complex lvalues (when permitted)
4666          by reduction to simpler cases.  */
4667       val = unary_complex_lvalue (code, arg);
4668       if (val != 0)
4669         return val;
4670
4671       switch (TREE_CODE (arg))
4672         {
4673         CASE_CONVERT:
4674         case FLOAT_EXPR:
4675         case FIX_TRUNC_EXPR:
4676           /* Even if we're not being pedantic, we cannot allow this
4677              extension when we're instantiating in a SFINAE
4678              context.  */
4679           if (! lvalue_p (arg) && complain == tf_none)
4680             {
4681               if (complain & tf_error)
4682                 permerror (input_location, "ISO C++ forbids taking the address of a cast to a non-lvalue expression");
4683               else
4684                 return error_mark_node;
4685             }
4686           break;
4687
4688         case BASELINK:
4689           arg = BASELINK_FUNCTIONS (arg);
4690           /* Fall through.  */
4691
4692         case OVERLOAD:
4693           arg = OVL_CURRENT (arg);
4694           break;
4695
4696         case OFFSET_REF:
4697           /* Turn a reference to a non-static data member into a
4698              pointer-to-member.  */
4699           {
4700             tree type;
4701             tree t;
4702
4703             if (!PTRMEM_OK_P (arg))
4704               return cp_build_unary_op (code, arg, 0, complain);
4705
4706             t = TREE_OPERAND (arg, 1);
4707             if (TREE_CODE (TREE_TYPE (t)) == REFERENCE_TYPE)
4708               {
4709                 if (complain & tf_error)
4710                   error ("cannot create pointer to reference member %qD", t);
4711                 return error_mark_node;
4712               }
4713
4714             type = build_ptrmem_type (context_for_name_lookup (t),
4715                                       TREE_TYPE (t));
4716             t = make_ptrmem_cst (type, TREE_OPERAND (arg, 1));
4717             return t;
4718           }
4719
4720         default:
4721           break;
4722         }
4723
4724       /* Anything not already handled and not a true memory reference
4725          is an error.  */
4726       if (TREE_CODE (argtype) != FUNCTION_TYPE
4727           && TREE_CODE (argtype) != METHOD_TYPE
4728           && TREE_CODE (arg) != OFFSET_REF
4729           && !lvalue_or_else (arg, lv_addressof, complain))
4730         return error_mark_node;
4731
4732       if (argtype != error_mark_node)
4733         argtype = build_pointer_type (argtype);
4734
4735       /* In a template, we are processing a non-dependent expression
4736          so we can just form an ADDR_EXPR with the correct type.  */
4737       if (processing_template_decl || TREE_CODE (arg) != COMPONENT_REF)
4738         {
4739           val = build_address (arg);
4740           if (TREE_CODE (arg) == OFFSET_REF)
4741             PTRMEM_OK_P (val) = PTRMEM_OK_P (arg);
4742         }
4743       else if (TREE_CODE (TREE_OPERAND (arg, 1)) == BASELINK)
4744         {
4745           tree fn = BASELINK_FUNCTIONS (TREE_OPERAND (arg, 1));
4746
4747           /* We can only get here with a single static member
4748              function.  */
4749           gcc_assert (TREE_CODE (fn) == FUNCTION_DECL
4750                       && DECL_STATIC_FUNCTION_P (fn));
4751           mark_used (fn);
4752           val = build_address (fn);
4753           if (TREE_SIDE_EFFECTS (TREE_OPERAND (arg, 0)))
4754             /* Do not lose object's side effects.  */
4755             val = build2 (COMPOUND_EXPR, TREE_TYPE (val),
4756                           TREE_OPERAND (arg, 0), val);
4757         }
4758       else if (DECL_C_BIT_FIELD (TREE_OPERAND (arg, 1)))
4759         {
4760           if (complain & tf_error)
4761             error ("attempt to take address of bit-field structure member %qD",
4762                    TREE_OPERAND (arg, 1));
4763           return error_mark_node;
4764         }
4765       else
4766         {
4767           tree object = TREE_OPERAND (arg, 0);
4768           tree field = TREE_OPERAND (arg, 1);
4769           gcc_assert (same_type_ignoring_top_level_qualifiers_p
4770                       (TREE_TYPE (object), decl_type_context (field)));
4771           val = build_address (arg);
4772         }
4773
4774       if (TREE_CODE (argtype) == POINTER_TYPE
4775           && TREE_CODE (TREE_TYPE (argtype)) == METHOD_TYPE)
4776         {
4777           build_ptrmemfunc_type (argtype);
4778           val = build_ptrmemfunc (argtype, val, 0,
4779                                   /*c_cast_p=*/false);
4780         }
4781
4782       return val;
4783
4784     default:
4785       break;
4786     }
4787
4788   if (!errstring)
4789     {
4790       if (argtype == 0)
4791         argtype = TREE_TYPE (arg);
4792       return fold_if_not_in_template (build1 (code, argtype, arg));
4793     }
4794
4795   if (complain & tf_error)
4796     error ("%s", errstring);
4797   return error_mark_node;
4798 }
4799
4800 /* Hook for the c-common bits that build a unary op.  */
4801 tree
4802 build_unary_op (location_t location ATTRIBUTE_UNUSED,
4803                 enum tree_code code, tree xarg, int noconvert)
4804 {
4805   return cp_build_unary_op (code, xarg, noconvert, tf_warning_or_error);
4806 }
4807
4808 /* Apply unary lvalue-demanding operator CODE to the expression ARG
4809    for certain kinds of expressions which are not really lvalues
4810    but which we can accept as lvalues.
4811
4812    If ARG is not a kind of expression we can handle, return
4813    NULL_TREE.  */
4814
4815 tree
4816 unary_complex_lvalue (enum tree_code code, tree arg)
4817 {
4818   /* Inside a template, making these kinds of adjustments is
4819      pointless; we are only concerned with the type of the
4820      expression.  */
4821   if (processing_template_decl)
4822     return NULL_TREE;
4823
4824   /* Handle (a, b) used as an "lvalue".  */
4825   if (TREE_CODE (arg) == COMPOUND_EXPR)
4826     {
4827       tree real_result = cp_build_unary_op (code, TREE_OPERAND (arg, 1), 0,
4828                                             tf_warning_or_error);
4829       return build2 (COMPOUND_EXPR, TREE_TYPE (real_result),
4830                      TREE_OPERAND (arg, 0), real_result);
4831     }
4832
4833   /* Handle (a ? b : c) used as an "lvalue".  */
4834   if (TREE_CODE (arg) == COND_EXPR
4835       || TREE_CODE (arg) == MIN_EXPR || TREE_CODE (arg) == MAX_EXPR)
4836     return rationalize_conditional_expr (code, arg, tf_warning_or_error);
4837
4838   /* Handle (a = b), (++a), and (--a) used as an "lvalue".  */
4839   if (TREE_CODE (arg) == MODIFY_EXPR
4840       || TREE_CODE (arg) == PREINCREMENT_EXPR
4841       || TREE_CODE (arg) == PREDECREMENT_EXPR)
4842     {
4843       tree lvalue = TREE_OPERAND (arg, 0);
4844       if (TREE_SIDE_EFFECTS (lvalue))
4845         {
4846           lvalue = stabilize_reference (lvalue);
4847           arg = build2 (TREE_CODE (arg), TREE_TYPE (arg),
4848                         lvalue, TREE_OPERAND (arg, 1));
4849         }
4850       return unary_complex_lvalue
4851         (code, build2 (COMPOUND_EXPR, TREE_TYPE (lvalue), arg, lvalue));
4852     }
4853
4854   if (code != ADDR_EXPR)
4855     return NULL_TREE;
4856
4857   /* Handle (a = b) used as an "lvalue" for `&'.  */
4858   if (TREE_CODE (arg) == MODIFY_EXPR
4859       || TREE_CODE (arg) == INIT_EXPR)
4860     {
4861       tree real_result = cp_build_unary_op (code, TREE_OPERAND (arg, 0), 0,
4862                                             tf_warning_or_error);
4863       arg = build2 (COMPOUND_EXPR, TREE_TYPE (real_result),
4864                     arg, real_result);
4865       TREE_NO_WARNING (arg) = 1;
4866       return arg;
4867     }
4868
4869   if (TREE_CODE (TREE_TYPE (arg)) == FUNCTION_TYPE
4870       || TREE_CODE (TREE_TYPE (arg)) == METHOD_TYPE
4871       || TREE_CODE (arg) == OFFSET_REF)
4872     return NULL_TREE;
4873
4874   /* We permit compiler to make function calls returning
4875      objects of aggregate type look like lvalues.  */
4876   {
4877     tree targ = arg;
4878
4879     if (TREE_CODE (targ) == SAVE_EXPR)
4880       targ = TREE_OPERAND (targ, 0);
4881
4882     if (TREE_CODE (targ) == CALL_EXPR && MAYBE_CLASS_TYPE_P (TREE_TYPE (targ)))
4883       {
4884         if (TREE_CODE (arg) == SAVE_EXPR)
4885           targ = arg;
4886         else
4887           targ = build_cplus_new (TREE_TYPE (arg), arg);
4888         return build1 (ADDR_EXPR, build_pointer_type (TREE_TYPE (arg)), targ);
4889       }
4890
4891     if (TREE_CODE (arg) == SAVE_EXPR && TREE_CODE (targ) == INDIRECT_REF)
4892       return build3 (SAVE_EXPR, build_pointer_type (TREE_TYPE (arg)),
4893                      TREE_OPERAND (targ, 0), current_function_decl, NULL);
4894   }
4895
4896   /* Don't let anything else be handled specially.  */
4897   return NULL_TREE;
4898 }
4899 \f
4900 /* Mark EXP saying that we need to be able to take the
4901    address of it; it should not be allocated in a register.
4902    Value is true if successful.
4903
4904    C++: we do not allow `current_class_ptr' to be addressable.  */
4905
4906 bool
4907 cxx_mark_addressable (tree exp)
4908 {
4909   tree x = exp;
4910
4911   while (1)
4912     switch (TREE_CODE (x))
4913       {
4914       case ADDR_EXPR:
4915       case COMPONENT_REF:
4916       case ARRAY_REF:
4917       case REALPART_EXPR:
4918       case IMAGPART_EXPR:
4919         x = TREE_OPERAND (x, 0);
4920         break;
4921
4922       case PARM_DECL:
4923         if (x == current_class_ptr)
4924           {
4925             error ("cannot take the address of %<this%>, which is an rvalue expression");
4926             TREE_ADDRESSABLE (x) = 1; /* so compiler doesn't die later.  */
4927             return true;
4928           }
4929         /* Fall through.  */
4930
4931       case VAR_DECL:
4932         /* Caller should not be trying to mark initialized
4933            constant fields addressable.  */
4934         gcc_assert (DECL_LANG_SPECIFIC (x) == 0
4935                     || DECL_IN_AGGR_P (x) == 0
4936                     || TREE_STATIC (x)
4937                     || DECL_EXTERNAL (x));
4938         /* Fall through.  */
4939
4940       case CONST_DECL:
4941       case RESULT_DECL:
4942         if (DECL_REGISTER (x) && !TREE_ADDRESSABLE (x)
4943             && !DECL_ARTIFICIAL (x))
4944           {
4945             if (TREE_CODE (x) == VAR_DECL && DECL_HARD_REGISTER (x))
4946               {
4947                 error
4948                   ("address of explicit register variable %qD requested", x);
4949                 return false;
4950               }
4951             else if (extra_warnings)
4952               warning
4953                 (OPT_Wextra, "address requested for %qD, which is declared %<register%>", x);
4954           }
4955         TREE_ADDRESSABLE (x) = 1;
4956         return true;
4957
4958       case FUNCTION_DECL:
4959         TREE_ADDRESSABLE (x) = 1;
4960         return true;
4961
4962       case CONSTRUCTOR:
4963         TREE_ADDRESSABLE (x) = 1;
4964         return true;
4965
4966       case TARGET_EXPR:
4967         TREE_ADDRESSABLE (x) = 1;
4968         cxx_mark_addressable (TREE_OPERAND (x, 0));
4969         return true;
4970
4971       default:
4972         return true;
4973     }
4974 }
4975 \f
4976 /* Build and return a conditional expression IFEXP ? OP1 : OP2.  */
4977
4978 tree
4979 build_x_conditional_expr (tree ifexp, tree op1, tree op2,
4980                           tsubst_flags_t complain)
4981 {
4982   tree orig_ifexp = ifexp;
4983   tree orig_op1 = op1;
4984   tree orig_op2 = op2;
4985   tree expr;
4986
4987   if (processing_template_decl)
4988     {
4989       /* The standard says that the expression is type-dependent if
4990          IFEXP is type-dependent, even though the eventual type of the
4991          expression doesn't dependent on IFEXP.  */
4992       if (type_dependent_expression_p (ifexp)
4993           /* As a GNU extension, the middle operand may be omitted.  */
4994           || (op1 && type_dependent_expression_p (op1))
4995           || type_dependent_expression_p (op2))
4996         return build_min_nt (COND_EXPR, ifexp, op1, op2);
4997       ifexp = build_non_dependent_expr (ifexp);
4998       if (op1)
4999         op1 = build_non_dependent_expr (op1);
5000       op2 = build_non_dependent_expr (op2);
5001     }
5002
5003   expr = build_conditional_expr (ifexp, op1, op2, complain);
5004   if (processing_template_decl && expr != error_mark_node)
5005     return build_min_non_dep (COND_EXPR, expr,
5006                               orig_ifexp, orig_op1, orig_op2);
5007   return expr;
5008 }
5009 \f
5010 /* Given a list of expressions, return a compound expression
5011    that performs them all and returns the value of the last of them.  */
5012
5013 tree build_x_compound_expr_from_list (tree list, const char *msg)
5014 {
5015   tree expr = TREE_VALUE (list);
5016
5017   if (TREE_CHAIN (list))
5018     {
5019       if (msg)
5020         permerror (input_location, "%s expression list treated as compound expression", msg);
5021
5022       for (list = TREE_CHAIN (list); list; list = TREE_CHAIN (list))
5023         expr = build_x_compound_expr (expr, TREE_VALUE (list),
5024                                       tf_warning_or_error);
5025     }
5026
5027   return expr;
5028 }
5029
5030 /* Like build_x_compound_expr_from_list, but using a VEC.  */
5031
5032 tree
5033 build_x_compound_expr_from_vec (VEC(tree,gc) *vec, const char *msg)
5034 {
5035   if (VEC_empty (tree, vec))
5036     return NULL_TREE;
5037   else if (VEC_length (tree, vec) == 1)
5038     return VEC_index (tree, vec, 0);
5039   else
5040     {
5041       tree expr;
5042       unsigned int ix;
5043       tree t;
5044
5045       if (msg != NULL)
5046         permerror (input_location,
5047                    "%s expression list treated as compound expression",
5048                    msg);
5049
5050       expr = VEC_index (tree, vec, 0);
5051       for (ix = 1; VEC_iterate (tree, vec, ix, t); ++ix)
5052         expr = build_x_compound_expr (expr, t, tf_warning_or_error);
5053
5054       return expr;
5055     }
5056 }
5057
5058 /* Handle overloading of the ',' operator when needed.  */
5059
5060 tree
5061 build_x_compound_expr (tree op1, tree op2, tsubst_flags_t complain)
5062 {
5063   tree result;
5064   tree orig_op1 = op1;
5065   tree orig_op2 = op2;
5066
5067   if (processing_template_decl)
5068     {
5069       if (type_dependent_expression_p (op1)
5070           || type_dependent_expression_p (op2))
5071         return build_min_nt (COMPOUND_EXPR, op1, op2);
5072       op1 = build_non_dependent_expr (op1);
5073       op2 = build_non_dependent_expr (op2);
5074     }
5075
5076   result = build_new_op (COMPOUND_EXPR, LOOKUP_NORMAL, op1, op2, NULL_TREE,
5077                          /*overloaded_p=*/NULL, complain);
5078   if (!result)
5079     result = cp_build_compound_expr (op1, op2, complain);
5080
5081   if (processing_template_decl && result != error_mark_node)
5082     return build_min_non_dep (COMPOUND_EXPR, result, orig_op1, orig_op2);
5083
5084   return result;
5085 }
5086
5087 /* Like cp_build_compound_expr, but for the c-common bits.  */
5088
5089 tree
5090 build_compound_expr (location_t loc ATTRIBUTE_UNUSED, tree lhs, tree rhs)
5091 {
5092   return cp_build_compound_expr (lhs, rhs, tf_warning_or_error);
5093 }
5094
5095 /* Build a compound expression.  */
5096
5097 tree
5098 cp_build_compound_expr (tree lhs, tree rhs, tsubst_flags_t complain)
5099 {
5100   lhs = convert_to_void (lhs, "left-hand operand of comma", complain);
5101
5102   if (lhs == error_mark_node || rhs == error_mark_node)
5103     return error_mark_node;
5104
5105   if (TREE_CODE (rhs) == TARGET_EXPR)
5106     {
5107       /* If the rhs is a TARGET_EXPR, then build the compound
5108          expression inside the target_expr's initializer. This
5109          helps the compiler to eliminate unnecessary temporaries.  */
5110       tree init = TREE_OPERAND (rhs, 1);
5111
5112       init = build2 (COMPOUND_EXPR, TREE_TYPE (init), lhs, init);
5113       TREE_OPERAND (rhs, 1) = init;
5114
5115       return rhs;
5116     }
5117
5118   if (type_unknown_p (rhs))
5119     {
5120       error ("no context to resolve type of %qE", rhs);
5121       return error_mark_node;
5122     }
5123
5124   return build2 (COMPOUND_EXPR, TREE_TYPE (rhs), lhs, rhs);
5125 }
5126
5127 /* Issue a diagnostic message if casting from SRC_TYPE to DEST_TYPE
5128    casts away constness.  CAST gives the type of cast.
5129
5130    ??? This function warns for casting away any qualifier not just
5131    const.  We would like to specify exactly what qualifiers are casted
5132    away.
5133 */
5134
5135 static void
5136 check_for_casting_away_constness (tree src_type, tree dest_type,
5137                                   enum tree_code cast)
5138 {
5139   /* C-style casts are allowed to cast away constness.  With
5140      WARN_CAST_QUAL, we still want to issue a warning.  */
5141   if (cast == CAST_EXPR && !warn_cast_qual)
5142       return;
5143
5144   if (!casts_away_constness (src_type, dest_type))
5145     return;
5146
5147   switch (cast)
5148     {
5149     case CAST_EXPR:
5150       warning (OPT_Wcast_qual,
5151                "cast from type %qT to type %qT casts away qualifiers",
5152                src_type, dest_type);
5153       return;
5154
5155     case STATIC_CAST_EXPR:
5156       error ("static_cast from type %qT to type %qT casts away qualifiers",
5157              src_type, dest_type);
5158       return;
5159
5160     case REINTERPRET_CAST_EXPR:
5161       error ("reinterpret_cast from type %qT to type %qT casts away qualifiers",
5162              src_type, dest_type);
5163       return;
5164     default:
5165       gcc_unreachable();
5166     }
5167 }
5168
5169 /* Convert EXPR (an expression with pointer-to-member type) to TYPE
5170    (another pointer-to-member type in the same hierarchy) and return
5171    the converted expression.  If ALLOW_INVERSE_P is permitted, a
5172    pointer-to-derived may be converted to pointer-to-base; otherwise,
5173    only the other direction is permitted.  If C_CAST_P is true, this
5174    conversion is taking place as part of a C-style cast.  */
5175
5176 tree
5177 convert_ptrmem (tree type, tree expr, bool allow_inverse_p,
5178                 bool c_cast_p)
5179 {
5180   if (TYPE_PTRMEM_P (type))
5181     {
5182       tree delta;
5183
5184       if (TREE_CODE (expr) == PTRMEM_CST)
5185         expr = cplus_expand_constant (expr);
5186       delta = get_delta_difference (TYPE_PTRMEM_CLASS_TYPE (TREE_TYPE (expr)),
5187                                     TYPE_PTRMEM_CLASS_TYPE (type),
5188                                     allow_inverse_p,
5189                                     c_cast_p);
5190       if (!integer_zerop (delta))
5191         {
5192           tree cond, op1, op2;
5193
5194           cond = cp_build_binary_op (input_location,
5195                                      EQ_EXPR,
5196                                      expr,
5197                                      build_int_cst (TREE_TYPE (expr), -1),
5198                                      tf_warning_or_error);
5199           op1 = build_nop (ptrdiff_type_node, expr);
5200           op2 = cp_build_binary_op (input_location,
5201                                     PLUS_EXPR, op1, delta,
5202                                     tf_warning_or_error);
5203
5204           expr = fold_build3 (COND_EXPR, ptrdiff_type_node, cond, op1, op2);
5205
5206         }
5207
5208       return build_nop (type, expr);
5209     }
5210   else
5211     return build_ptrmemfunc (TYPE_PTRMEMFUNC_FN_TYPE (type), expr,
5212                              allow_inverse_p, c_cast_p);
5213 }
5214
5215 /* If EXPR is an INTEGER_CST and ORIG is an arithmetic constant, return
5216    a version of EXPR that has TREE_OVERFLOW set if it is set in ORIG.
5217    Otherwise, return EXPR unchanged.  */
5218
5219 static tree
5220 ignore_overflows (tree expr, tree orig)
5221 {
5222   if (TREE_CODE (expr) == INTEGER_CST
5223       && CONSTANT_CLASS_P (orig)
5224       && TREE_CODE (orig) != STRING_CST
5225       && TREE_OVERFLOW (expr) != TREE_OVERFLOW (orig))
5226     {
5227       if (!TREE_OVERFLOW (orig))
5228         /* Ensure constant sharing.  */
5229         expr = build_int_cst_wide (TREE_TYPE (expr),
5230                                    TREE_INT_CST_LOW (expr),
5231                                    TREE_INT_CST_HIGH (expr));
5232       else
5233         {
5234           /* Avoid clobbering a shared constant.  */
5235           expr = copy_node (expr);
5236           TREE_OVERFLOW (expr) = TREE_OVERFLOW (orig);
5237         }
5238     }
5239   return expr;
5240 }
5241
5242 /* Perform a static_cast from EXPR to TYPE.  When C_CAST_P is true,
5243    this static_cast is being attempted as one of the possible casts
5244    allowed by a C-style cast.  (In that case, accessibility of base
5245    classes is not considered, and it is OK to cast away
5246    constness.)  Return the result of the cast.  *VALID_P is set to
5247    indicate whether or not the cast was valid.  */
5248
5249 static tree
5250 build_static_cast_1 (tree type, tree expr, bool c_cast_p,
5251                      bool *valid_p, tsubst_flags_t complain)
5252 {
5253   tree intype;
5254   tree result;
5255   tree orig;
5256
5257   /* Assume the cast is valid.  */
5258   *valid_p = true;
5259
5260   intype = TREE_TYPE (expr);
5261
5262   /* Save casted types in the function's used types hash table.  */
5263   used_types_insert (type);
5264
5265   /* [expr.static.cast]
5266
5267      An lvalue of type "cv1 B", where B is a class type, can be cast
5268      to type "reference to cv2 D", where D is a class derived (clause
5269      _class.derived_) from B, if a valid standard conversion from
5270      "pointer to D" to "pointer to B" exists (_conv.ptr_), cv2 is the
5271      same cv-qualification as, or greater cv-qualification than, cv1,
5272      and B is not a virtual base class of D.  */
5273   /* We check this case before checking the validity of "TYPE t =
5274      EXPR;" below because for this case:
5275
5276        struct B {};
5277        struct D : public B { D(const B&); };
5278        extern B& b;
5279        void f() { static_cast<const D&>(b); }
5280
5281      we want to avoid constructing a new D.  The standard is not
5282      completely clear about this issue, but our interpretation is
5283      consistent with other compilers.  */
5284   if (TREE_CODE (type) == REFERENCE_TYPE
5285       && CLASS_TYPE_P (TREE_TYPE (type))
5286       && CLASS_TYPE_P (intype)
5287       && real_lvalue_p (expr)
5288       && DERIVED_FROM_P (intype, TREE_TYPE (type))
5289       && can_convert (build_pointer_type (TYPE_MAIN_VARIANT (intype)),
5290                       build_pointer_type (TYPE_MAIN_VARIANT
5291                                           (TREE_TYPE (type))))
5292       && (c_cast_p
5293           || at_least_as_qualified_p (TREE_TYPE (type), intype)))
5294     {
5295       tree base;
5296
5297       /* There is a standard conversion from "D*" to "B*" even if "B"
5298          is ambiguous or inaccessible.  If this is really a
5299          static_cast, then we check both for inaccessibility and
5300          ambiguity.  However, if this is a static_cast being performed
5301          because the user wrote a C-style cast, then accessibility is
5302          not considered.  */
5303       base = lookup_base (TREE_TYPE (type), intype,
5304                           c_cast_p ? ba_unique : ba_check,
5305                           NULL);
5306
5307       /* Convert from "B*" to "D*".  This function will check that "B"
5308          is not a virtual base of "D".  */
5309       expr = build_base_path (MINUS_EXPR, build_address (expr),
5310                               base, /*nonnull=*/false);
5311       /* Convert the pointer to a reference -- but then remember that
5312          there are no expressions with reference type in C++.  */
5313       return convert_from_reference (build_nop (type, expr));
5314     }
5315
5316   orig = expr;
5317
5318   /* [expr.static.cast]
5319
5320      An expression e can be explicitly converted to a type T using a
5321      static_cast of the form static_cast<T>(e) if the declaration T
5322      t(e);" is well-formed, for some invented temporary variable
5323      t.  */
5324   result = perform_direct_initialization_if_possible (type, expr,
5325                                                       c_cast_p, complain);
5326   if (result)
5327     {
5328       result = convert_from_reference (result);
5329
5330       /* Ignore any integer overflow caused by the cast.  */
5331       result = ignore_overflows (result, orig);
5332
5333       /* [expr.static.cast]
5334
5335          If T is a reference type, the result is an lvalue; otherwise,
5336          the result is an rvalue.  */
5337       if (TREE_CODE (type) != REFERENCE_TYPE)
5338         result = rvalue (result);
5339       return result;
5340     }
5341
5342   /* [expr.static.cast]
5343
5344      Any expression can be explicitly converted to type cv void.  */
5345   if (TREE_CODE (type) == VOID_TYPE)
5346     return convert_to_void (expr, /*implicit=*/NULL, complain);
5347
5348   /* [expr.static.cast]
5349
5350      The inverse of any standard conversion sequence (clause _conv_),
5351      other than the lvalue-to-rvalue (_conv.lval_), array-to-pointer
5352      (_conv.array_), function-to-pointer (_conv.func_), and boolean
5353      (_conv.bool_) conversions, can be performed explicitly using
5354      static_cast subject to the restriction that the explicit
5355      conversion does not cast away constness (_expr.const.cast_), and
5356      the following additional rules for specific cases:  */
5357   /* For reference, the conversions not excluded are: integral
5358      promotions, floating point promotion, integral conversions,
5359      floating point conversions, floating-integral conversions,
5360      pointer conversions, and pointer to member conversions.  */
5361   /* DR 128
5362
5363      A value of integral _or enumeration_ type can be explicitly
5364      converted to an enumeration type.  */
5365   /* The effect of all that is that any conversion between any two
5366      types which are integral, floating, or enumeration types can be
5367      performed.  */
5368   if ((INTEGRAL_OR_ENUMERATION_TYPE_P (type)
5369        || SCALAR_FLOAT_TYPE_P (type))
5370       && (INTEGRAL_OR_ENUMERATION_TYPE_P (intype)
5371           || SCALAR_FLOAT_TYPE_P (intype)))
5372     {
5373       expr = ocp_convert (type, expr, CONV_C_CAST, LOOKUP_NORMAL);
5374
5375       /* Ignore any integer overflow caused by the cast.  */
5376       expr = ignore_overflows (expr, orig);
5377       return expr;
5378     }
5379
5380   if (TYPE_PTR_P (type) && TYPE_PTR_P (intype)
5381       && CLASS_TYPE_P (TREE_TYPE (type))
5382       && CLASS_TYPE_P (TREE_TYPE (intype))
5383       && can_convert (build_pointer_type (TYPE_MAIN_VARIANT
5384                                           (TREE_TYPE (intype))),
5385                       build_pointer_type (TYPE_MAIN_VARIANT
5386                                           (TREE_TYPE (type)))))
5387     {
5388       tree base;
5389
5390       if (!c_cast_p)
5391         check_for_casting_away_constness (intype, type, STATIC_CAST_EXPR);
5392       base = lookup_base (TREE_TYPE (type), TREE_TYPE (intype),
5393                           c_cast_p ? ba_unique : ba_check,
5394                           NULL);
5395       return build_base_path (MINUS_EXPR, expr, base, /*nonnull=*/false);
5396     }
5397
5398   if ((TYPE_PTRMEM_P (type) && TYPE_PTRMEM_P (intype))
5399       || (TYPE_PTRMEMFUNC_P (type) && TYPE_PTRMEMFUNC_P (intype)))
5400     {
5401       tree c1;
5402       tree c2;
5403       tree t1;
5404       tree t2;
5405
5406       c1 = TYPE_PTRMEM_CLASS_TYPE (intype);
5407       c2 = TYPE_PTRMEM_CLASS_TYPE (type);
5408
5409       if (TYPE_PTRMEM_P (type))
5410         {
5411           t1 = (build_ptrmem_type
5412                 (c1,
5413                  TYPE_MAIN_VARIANT (TYPE_PTRMEM_POINTED_TO_TYPE (intype))));
5414           t2 = (build_ptrmem_type
5415                 (c2,
5416                  TYPE_MAIN_VARIANT (TYPE_PTRMEM_POINTED_TO_TYPE (type))));
5417         }
5418       else
5419         {
5420           t1 = intype;
5421           t2 = type;
5422         }
5423       if (can_convert (t1, t2) || can_convert (t2, t1))
5424         {
5425           if (!c_cast_p)
5426             check_for_casting_away_constness (intype, type, STATIC_CAST_EXPR);
5427           return convert_ptrmem (type, expr, /*allow_inverse_p=*/1,
5428                                  c_cast_p);
5429         }
5430     }
5431
5432   /* [expr.static.cast]
5433
5434      An rvalue of type "pointer to cv void" can be explicitly
5435      converted to a pointer to object type.  A value of type pointer
5436      to object converted to "pointer to cv void" and back to the
5437      original pointer type will have its original value.  */
5438   if (TREE_CODE (intype) == POINTER_TYPE
5439       && VOID_TYPE_P (TREE_TYPE (intype))
5440       && TYPE_PTROB_P (type))
5441     {
5442       if (!c_cast_p)
5443         check_for_casting_away_constness (intype, type, STATIC_CAST_EXPR);
5444       return build_nop (type, expr);
5445     }
5446
5447   *valid_p = false;
5448   return error_mark_node;
5449 }
5450
5451 /* Return an expression representing static_cast<TYPE>(EXPR).  */
5452
5453 tree
5454 build_static_cast (tree type, tree expr, tsubst_flags_t complain)
5455 {
5456   tree result;
5457   bool valid_p;
5458
5459   if (type == error_mark_node || expr == error_mark_node)
5460     return error_mark_node;
5461
5462   if (processing_template_decl)
5463     {
5464       expr = build_min (STATIC_CAST_EXPR, type, expr);
5465       /* We don't know if it will or will not have side effects.  */
5466       TREE_SIDE_EFFECTS (expr) = 1;
5467       return convert_from_reference (expr);
5468     }
5469
5470   /* build_c_cast puts on a NOP_EXPR to make the result not an lvalue.
5471      Strip such NOP_EXPRs if VALUE is being used in non-lvalue context.  */
5472   if (TREE_CODE (type) != REFERENCE_TYPE
5473       && TREE_CODE (expr) == NOP_EXPR
5474       && TREE_TYPE (expr) == TREE_TYPE (TREE_OPERAND (expr, 0)))
5475     expr = TREE_OPERAND (expr, 0);
5476
5477   result = build_static_cast_1 (type, expr, /*c_cast_p=*/false, &valid_p,
5478                                 complain);
5479   if (valid_p)
5480     return result;
5481
5482   if (complain & tf_error)
5483     error ("invalid static_cast from type %qT to type %qT",
5484            TREE_TYPE (expr), type);
5485   return error_mark_node;
5486 }
5487
5488 /* EXPR is an expression with member function or pointer-to-member
5489    function type.  TYPE is a pointer type.  Converting EXPR to TYPE is
5490    not permitted by ISO C++, but we accept it in some modes.  If we
5491    are not in one of those modes, issue a diagnostic.  Return the
5492    converted expression.  */
5493
5494 tree
5495 convert_member_func_to_ptr (tree type, tree expr)
5496 {
5497   tree intype;
5498   tree decl;
5499
5500   intype = TREE_TYPE (expr);
5501   gcc_assert (TYPE_PTRMEMFUNC_P (intype)
5502               || TREE_CODE (intype) == METHOD_TYPE);
5503
5504   if (pedantic || warn_pmf2ptr)
5505     pedwarn (input_location, pedantic ? OPT_pedantic : OPT_Wpmf_conversions,
5506              "converting from %qT to %qT", intype, type);
5507
5508   if (TREE_CODE (intype) == METHOD_TYPE)
5509     expr = build_addr_func (expr);
5510   else if (TREE_CODE (expr) == PTRMEM_CST)
5511     expr = build_address (PTRMEM_CST_MEMBER (expr));
5512   else
5513     {
5514       decl = maybe_dummy_object (TYPE_PTRMEM_CLASS_TYPE (intype), 0);
5515       decl = build_address (decl);
5516       expr = get_member_function_from_ptrfunc (&decl, expr);
5517     }
5518
5519   return build_nop (type, expr);
5520 }
5521
5522 /* Return a representation for a reinterpret_cast from EXPR to TYPE.
5523    If C_CAST_P is true, this reinterpret cast is being done as part of
5524    a C-style cast.  If VALID_P is non-NULL, *VALID_P is set to
5525    indicate whether or not reinterpret_cast was valid.  */
5526
5527 static tree
5528 build_reinterpret_cast_1 (tree type, tree expr, bool c_cast_p,
5529                           bool *valid_p, tsubst_flags_t complain)
5530 {
5531   tree intype;
5532
5533   /* Assume the cast is invalid.  */
5534   if (valid_p)
5535     *valid_p = true;
5536
5537   if (type == error_mark_node || error_operand_p (expr))
5538     return error_mark_node;
5539
5540   intype = TREE_TYPE (expr);
5541
5542   /* Save casted types in the function's used types hash table.  */
5543   used_types_insert (type);
5544
5545   /* [expr.reinterpret.cast]
5546      An lvalue expression of type T1 can be cast to the type
5547      "reference to T2" if an expression of type "pointer to T1" can be
5548      explicitly converted to the type "pointer to T2" using a
5549      reinterpret_cast.  */
5550   if (TREE_CODE (type) == REFERENCE_TYPE)
5551     {
5552       if (! real_lvalue_p (expr))
5553         {
5554           if (complain & tf_error)
5555             error ("invalid cast of an rvalue expression of type "
5556                    "%qT to type %qT",
5557                    intype, type);
5558           return error_mark_node;
5559         }
5560
5561       /* Warn about a reinterpret_cast from "A*" to "B&" if "A" and
5562          "B" are related class types; the reinterpret_cast does not
5563          adjust the pointer.  */
5564       if (TYPE_PTR_P (intype)
5565           && (complain & tf_warning)
5566           && (comptypes (TREE_TYPE (intype), TREE_TYPE (type),
5567                          COMPARE_BASE | COMPARE_DERIVED)))
5568         warning (0, "casting %qT to %qT does not dereference pointer",
5569                  intype, type);
5570
5571       expr = cp_build_unary_op (ADDR_EXPR, expr, 0, complain);
5572       if (expr != error_mark_node)
5573         expr = build_reinterpret_cast_1
5574           (build_pointer_type (TREE_TYPE (type)), expr, c_cast_p,
5575            valid_p, complain);
5576       if (expr != error_mark_node)
5577         expr = cp_build_indirect_ref (expr, 0, complain);
5578       return expr;
5579     }
5580
5581   /* As a G++ extension, we consider conversions from member
5582      functions, and pointers to member functions to
5583      pointer-to-function and pointer-to-void types.  If
5584      -Wno-pmf-conversions has not been specified,
5585      convert_member_func_to_ptr will issue an error message.  */
5586   if ((TYPE_PTRMEMFUNC_P (intype)
5587        || TREE_CODE (intype) == METHOD_TYPE)
5588       && TYPE_PTR_P (type)
5589       && (TREE_CODE (TREE_TYPE (type)) == FUNCTION_TYPE
5590           || VOID_TYPE_P (TREE_TYPE (type))))
5591     return convert_member_func_to_ptr (type, expr);
5592
5593   /* If the cast is not to a reference type, the lvalue-to-rvalue,
5594      array-to-pointer, and function-to-pointer conversions are
5595      performed.  */
5596   expr = decay_conversion (expr);
5597
5598   /* build_c_cast puts on a NOP_EXPR to make the result not an lvalue.
5599      Strip such NOP_EXPRs if VALUE is being used in non-lvalue context.  */
5600   if (TREE_CODE (expr) == NOP_EXPR
5601       && TREE_TYPE (expr) == TREE_TYPE (TREE_OPERAND (expr, 0)))
5602     expr = TREE_OPERAND (expr, 0);
5603
5604   if (error_operand_p (expr))
5605     return error_mark_node;
5606
5607   intype = TREE_TYPE (expr);
5608
5609   /* [expr.reinterpret.cast]
5610      A pointer can be converted to any integral type large enough to
5611      hold it.  */
5612   if (CP_INTEGRAL_TYPE_P (type) && TYPE_PTR_P (intype))
5613     {
5614       if (TYPE_PRECISION (type) < TYPE_PRECISION (intype))
5615         {
5616           if (complain & tf_error)
5617             permerror (input_location, "cast from %qT to %qT loses precision",
5618                        intype, type);
5619           else
5620             return error_mark_node;
5621         }
5622     }
5623   /* [expr.reinterpret.cast]
5624      A value of integral or enumeration type can be explicitly
5625      converted to a pointer.  */
5626   else if (TYPE_PTR_P (type) && INTEGRAL_OR_ENUMERATION_TYPE_P (intype))
5627     /* OK */
5628     ;
5629   else if ((TYPE_PTRFN_P (type) && TYPE_PTRFN_P (intype))
5630            || (TYPE_PTRMEMFUNC_P (type) && TYPE_PTRMEMFUNC_P (intype)))
5631     return fold_if_not_in_template (build_nop (type, expr));
5632   else if ((TYPE_PTRMEM_P (type) && TYPE_PTRMEM_P (intype))
5633            || (TYPE_PTROBV_P (type) && TYPE_PTROBV_P (intype)))
5634     {
5635       tree sexpr = expr;
5636
5637       if (!c_cast_p)
5638         check_for_casting_away_constness (intype, type, REINTERPRET_CAST_EXPR);
5639       /* Warn about possible alignment problems.  */
5640       if (STRICT_ALIGNMENT && warn_cast_align
5641           && (complain & tf_warning)
5642           && !VOID_TYPE_P (type)
5643           && TREE_CODE (TREE_TYPE (intype)) != FUNCTION_TYPE
5644           && COMPLETE_TYPE_P (TREE_TYPE (type))
5645           && COMPLETE_TYPE_P (TREE_TYPE (intype))
5646           && TYPE_ALIGN (TREE_TYPE (type)) > TYPE_ALIGN (TREE_TYPE (intype)))
5647         warning (OPT_Wcast_align, "cast from %qT to %qT "
5648                  "increases required alignment of target type", intype, type);
5649
5650       /* We need to strip nops here, because the front end likes to
5651          create (int *)&a for array-to-pointer decay, instead of &a[0].  */
5652       STRIP_NOPS (sexpr);
5653       if (warn_strict_aliasing <= 2)
5654         strict_aliasing_warning (intype, type, sexpr);
5655
5656       return fold_if_not_in_template (build_nop (type, expr));
5657     }
5658   else if ((TYPE_PTRFN_P (type) && TYPE_PTROBV_P (intype))
5659            || (TYPE_PTRFN_P (intype) && TYPE_PTROBV_P (type)))
5660     {
5661       if (pedantic && (complain & tf_warning))
5662         /* Only issue a warning, as we have always supported this
5663            where possible, and it is necessary in some cases.  DR 195
5664            addresses this issue, but as of 2004/10/26 is still in
5665            drafting.  */
5666         warning (0, "ISO C++ forbids casting between pointer-to-function and pointer-to-object");
5667       return fold_if_not_in_template (build_nop (type, expr));
5668     }
5669   else if (TREE_CODE (type) == VECTOR_TYPE)
5670     return fold_if_not_in_template (convert_to_vector (type, expr));
5671   else if (TREE_CODE (intype) == VECTOR_TYPE
5672            && INTEGRAL_OR_ENUMERATION_TYPE_P (type))
5673     return fold_if_not_in_template (convert_to_integer (type, expr));
5674   else
5675     {
5676       if (valid_p)
5677         *valid_p = false;
5678       if (complain & tf_error)
5679         error ("invalid cast from type %qT to type %qT", intype, type);
5680       return error_mark_node;
5681     }
5682
5683   return cp_convert (type, expr);
5684 }
5685
5686 tree
5687 build_reinterpret_cast (tree type, tree expr, tsubst_flags_t complain)
5688 {
5689   if (type == error_mark_node || expr == error_mark_node)
5690     return error_mark_node;
5691
5692   if (processing_template_decl)
5693     {
5694       tree t = build_min (REINTERPRET_CAST_EXPR, type, expr);
5695
5696       if (!TREE_SIDE_EFFECTS (t)
5697           && type_dependent_expression_p (expr))
5698         /* There might turn out to be side effects inside expr.  */
5699         TREE_SIDE_EFFECTS (t) = 1;
5700       return convert_from_reference (t);
5701     }
5702
5703   return build_reinterpret_cast_1 (type, expr, /*c_cast_p=*/false,
5704                                    /*valid_p=*/NULL, complain);
5705 }
5706
5707 /* Perform a const_cast from EXPR to TYPE.  If the cast is valid,
5708    return an appropriate expression.  Otherwise, return
5709    error_mark_node.  If the cast is not valid, and COMPLAIN is true,
5710    then a diagnostic will be issued.  If VALID_P is non-NULL, we are
5711    performing a C-style cast, its value upon return will indicate
5712    whether or not the conversion succeeded.  */
5713
5714 static tree
5715 build_const_cast_1 (tree dst_type, tree expr, bool complain,
5716                     bool *valid_p)
5717 {
5718   tree src_type;
5719   tree reference_type;
5720
5721   /* Callers are responsible for handling error_mark_node as a
5722      destination type.  */
5723   gcc_assert (dst_type != error_mark_node);
5724   /* In a template, callers should be building syntactic
5725      representations of casts, not using this machinery.  */
5726   gcc_assert (!processing_template_decl);
5727
5728   /* Assume the conversion is invalid.  */
5729   if (valid_p)
5730     *valid_p = false;
5731
5732   if (!POINTER_TYPE_P (dst_type) && !TYPE_PTRMEM_P (dst_type))
5733     {
5734       if (complain)
5735         error ("invalid use of const_cast with type %qT, "
5736                "which is not a pointer, "
5737                "reference, nor a pointer-to-data-member type", dst_type);
5738       return error_mark_node;
5739     }
5740
5741   if (TREE_CODE (TREE_TYPE (dst_type)) == FUNCTION_TYPE)
5742     {
5743       if (complain)
5744         error ("invalid use of const_cast with type %qT, which is a pointer "
5745                "or reference to a function type", dst_type);
5746       return error_mark_node;
5747     }
5748
5749   /* Save casted types in the function's used types hash table.  */
5750   used_types_insert (dst_type);
5751
5752   src_type = TREE_TYPE (expr);
5753   /* Expressions do not really have reference types.  */
5754   if (TREE_CODE (src_type) == REFERENCE_TYPE)
5755     src_type = TREE_TYPE (src_type);
5756
5757   /* [expr.const.cast]
5758
5759      An lvalue of type T1 can be explicitly converted to an lvalue of
5760      type T2 using the cast const_cast<T2&> (where T1 and T2 are object
5761      types) if a pointer to T1 can be explicitly converted to the type
5762      pointer to T2 using a const_cast.  */
5763   if (TREE_CODE (dst_type) == REFERENCE_TYPE)
5764     {
5765       reference_type = dst_type;
5766       if (! real_lvalue_p (expr))
5767         {
5768           if (complain)
5769             error ("invalid const_cast of an rvalue of type %qT to type %qT",
5770                    src_type, dst_type);
5771           return error_mark_node;
5772         }
5773       dst_type = build_pointer_type (TREE_TYPE (dst_type));
5774       src_type = build_pointer_type (src_type);
5775     }
5776   else
5777     {
5778       reference_type = NULL_TREE;
5779       /* If the destination type is not a reference type, the
5780          lvalue-to-rvalue, array-to-pointer, and function-to-pointer
5781          conversions are performed.  */
5782       src_type = type_decays_to (src_type);
5783       if (src_type == error_mark_node)
5784         return error_mark_node;
5785     }
5786
5787   if ((TYPE_PTR_P (src_type) || TYPE_PTRMEM_P (src_type))
5788       && comp_ptr_ttypes_const (dst_type, src_type))
5789     {
5790       if (valid_p)
5791         {
5792           *valid_p = true;
5793           /* This cast is actually a C-style cast.  Issue a warning if
5794              the user is making a potentially unsafe cast.  */
5795           check_for_casting_away_constness (src_type, dst_type, CAST_EXPR);
5796         }
5797       if (reference_type)
5798         {
5799           expr = cp_build_unary_op (ADDR_EXPR, expr, 0,
5800                                     complain? tf_warning_or_error : tf_none);
5801           expr = build_nop (reference_type, expr);
5802           return convert_from_reference (expr);
5803         }
5804       else
5805         {
5806           expr = decay_conversion (expr);
5807           /* build_c_cast puts on a NOP_EXPR to make the result not an
5808              lvalue.  Strip such NOP_EXPRs if VALUE is being used in
5809              non-lvalue context.  */
5810           if (TREE_CODE (expr) == NOP_EXPR
5811               && TREE_TYPE (expr) == TREE_TYPE (TREE_OPERAND (expr, 0)))
5812             expr = TREE_OPERAND (expr, 0);
5813           return build_nop (dst_type, expr);
5814         }
5815     }
5816
5817   if (complain)
5818     error ("invalid const_cast from type %qT to type %qT",
5819            src_type, dst_type);
5820   return error_mark_node;
5821 }
5822
5823 tree
5824 build_const_cast (tree type, tree expr, tsubst_flags_t complain)
5825 {
5826   if (type == error_mark_node || error_operand_p (expr))
5827     return error_mark_node;
5828
5829   if (processing_template_decl)
5830     {
5831       tree t = build_min (CONST_CAST_EXPR, type, expr);
5832
5833       if (!TREE_SIDE_EFFECTS (t)
5834           && type_dependent_expression_p (expr))
5835         /* There might turn out to be side effects inside expr.  */
5836         TREE_SIDE_EFFECTS (t) = 1;
5837       return convert_from_reference (t);
5838     }
5839
5840   return build_const_cast_1 (type, expr, complain & tf_error,
5841                              /*valid_p=*/NULL);
5842 }
5843
5844 /* Like cp_build_c_cast, but for the c-common bits.  */
5845
5846 tree
5847 build_c_cast (location_t loc ATTRIBUTE_UNUSED, tree type, tree expr)
5848 {
5849   return cp_build_c_cast (type, expr, tf_warning_or_error);
5850 }
5851
5852 /* Build an expression representing an explicit C-style cast to type
5853    TYPE of expression EXPR.  */
5854
5855 tree
5856 cp_build_c_cast (tree type, tree expr, tsubst_flags_t complain)
5857 {
5858   tree value = expr;
5859   tree result;
5860   bool valid_p;
5861
5862   if (type == error_mark_node || error_operand_p (expr))
5863     return error_mark_node;
5864
5865   if (processing_template_decl)
5866     {
5867       tree t = build_min (CAST_EXPR, type,
5868                           tree_cons (NULL_TREE, value, NULL_TREE));
5869       /* We don't know if it will or will not have side effects.  */
5870       TREE_SIDE_EFFECTS (t) = 1;
5871       return convert_from_reference (t);
5872     }
5873
5874   /* Casts to a (pointer to a) specific ObjC class (or 'id' or
5875      'Class') should always be retained, because this information aids
5876      in method lookup.  */
5877   if (objc_is_object_ptr (type)
5878       && objc_is_object_ptr (TREE_TYPE (expr)))
5879     return build_nop (type, expr);
5880
5881   /* build_c_cast puts on a NOP_EXPR to make the result not an lvalue.
5882      Strip such NOP_EXPRs if VALUE is being used in non-lvalue context.  */
5883   if (TREE_CODE (type) != REFERENCE_TYPE
5884       && TREE_CODE (value) == NOP_EXPR
5885       && TREE_TYPE (value) == TREE_TYPE (TREE_OPERAND (value, 0)))
5886     value = TREE_OPERAND (value, 0);
5887
5888   if (TREE_CODE (type) == ARRAY_TYPE)
5889     {
5890       /* Allow casting from T1* to T2[] because Cfront allows it.
5891          NIHCL uses it. It is not valid ISO C++ however.  */
5892       if (TREE_CODE (TREE_TYPE (expr)) == POINTER_TYPE)
5893         {
5894           if (complain & tf_error)
5895             permerror (input_location, "ISO C++ forbids casting to an array type %qT", type);
5896           else
5897             return error_mark_node;
5898           type = build_pointer_type (TREE_TYPE (type));
5899         }
5900       else
5901         {
5902           if (complain & tf_error)
5903             error ("ISO C++ forbids casting to an array type %qT", type);
5904           return error_mark_node;
5905         }
5906     }
5907
5908   if (TREE_CODE (type) == FUNCTION_TYPE
5909       || TREE_CODE (type) == METHOD_TYPE)
5910     {
5911       if (complain & tf_error)
5912         error ("invalid cast to function type %qT", type);
5913       return error_mark_node;
5914     }
5915
5916   /* A C-style cast can be a const_cast.  */
5917   result = build_const_cast_1 (type, value, /*complain=*/false,
5918                                &valid_p);
5919   if (valid_p)
5920     return result;
5921
5922   /* Or a static cast.  */
5923   result = build_static_cast_1 (type, value, /*c_cast_p=*/true,
5924                                 &valid_p, complain);
5925   /* Or a reinterpret_cast.  */
5926   if (!valid_p)
5927     result = build_reinterpret_cast_1 (type, value, /*c_cast_p=*/true,
5928                                        &valid_p, complain);
5929   /* The static_cast or reinterpret_cast may be followed by a
5930      const_cast.  */
5931   if (valid_p
5932       /* A valid cast may result in errors if, for example, a
5933          conversion to am ambiguous base class is required.  */
5934       && !error_operand_p (result))
5935     {
5936       tree result_type;
5937
5938       /* Non-class rvalues always have cv-unqualified type.  */
5939       if (!CLASS_TYPE_P (type))
5940         type = TYPE_MAIN_VARIANT (type);
5941       result_type = TREE_TYPE (result);
5942       if (!CLASS_TYPE_P (result_type))
5943         result_type = TYPE_MAIN_VARIANT (result_type);
5944       /* If the type of RESULT does not match TYPE, perform a
5945          const_cast to make it match.  If the static_cast or
5946          reinterpret_cast succeeded, we will differ by at most
5947          cv-qualification, so the follow-on const_cast is guaranteed
5948          to succeed.  */
5949       if (!same_type_p (non_reference (type), non_reference (result_type)))
5950         {
5951           result = build_const_cast_1 (type, result, false, &valid_p);
5952           gcc_assert (valid_p);
5953         }
5954       return result;
5955     }
5956
5957   return error_mark_node;
5958 }
5959 \f
5960 /* For use from the C common bits.  */
5961 tree
5962 build_modify_expr (location_t location ATTRIBUTE_UNUSED,
5963                    tree lhs, tree lhs_origtype ATTRIBUTE_UNUSED,
5964                    enum tree_code modifycode,
5965                    location_t rhs_location ATTRIBUTE_UNUSED, tree rhs,
5966                    tree rhs_origtype ATTRIBUTE_UNUSED)
5967 {
5968   return cp_build_modify_expr (lhs, modifycode, rhs, tf_warning_or_error);
5969 }
5970
5971 /* Build an assignment expression of lvalue LHS from value RHS.
5972    MODIFYCODE is the code for a binary operator that we use
5973    to combine the old value of LHS with RHS to get the new value.
5974    Or else MODIFYCODE is NOP_EXPR meaning do a simple assignment.
5975
5976    C++: If MODIFYCODE is INIT_EXPR, then leave references unbashed.  */
5977
5978 tree
5979 cp_build_modify_expr (tree lhs, enum tree_code modifycode, tree rhs,
5980                       tsubst_flags_t complain)
5981 {
5982   tree result;
5983   tree newrhs = rhs;
5984   tree lhstype = TREE_TYPE (lhs);
5985   tree olhstype = lhstype;
5986   bool plain_assign = (modifycode == NOP_EXPR);
5987
5988   /* Avoid duplicate error messages from operands that had errors.  */
5989   if (error_operand_p (lhs) || error_operand_p (rhs))
5990     return error_mark_node;
5991
5992   /* Handle control structure constructs used as "lvalues".  */
5993   switch (TREE_CODE (lhs))
5994     {
5995       /* Handle --foo = 5; as these are valid constructs in C++.  */
5996     case PREDECREMENT_EXPR:
5997     case PREINCREMENT_EXPR:
5998       if (TREE_SIDE_EFFECTS (TREE_OPERAND (lhs, 0)))
5999         lhs = build2 (TREE_CODE (lhs), TREE_TYPE (lhs),
6000                       stabilize_reference (TREE_OPERAND (lhs, 0)),
6001                       TREE_OPERAND (lhs, 1));
6002       newrhs = cp_build_modify_expr (TREE_OPERAND (lhs, 0),
6003                                      modifycode, rhs, complain);
6004       if (newrhs == error_mark_node)
6005         return error_mark_node;
6006       return build2 (COMPOUND_EXPR, lhstype, lhs, newrhs);
6007
6008       /* Handle (a, b) used as an "lvalue".  */
6009     case COMPOUND_EXPR:
6010       newrhs = cp_build_modify_expr (TREE_OPERAND (lhs, 1),
6011                                      modifycode, rhs, complain);
6012       if (newrhs == error_mark_node)
6013         return error_mark_node;
6014       return build2 (COMPOUND_EXPR, lhstype,
6015                      TREE_OPERAND (lhs, 0), newrhs);
6016
6017     case MODIFY_EXPR:
6018       if (TREE_SIDE_EFFECTS (TREE_OPERAND (lhs, 0)))
6019         lhs = build2 (TREE_CODE (lhs), TREE_TYPE (lhs),
6020                       stabilize_reference (TREE_OPERAND (lhs, 0)),
6021                       TREE_OPERAND (lhs, 1));
6022       newrhs = cp_build_modify_expr (TREE_OPERAND (lhs, 0), modifycode, rhs,
6023                                      complain);
6024       if (newrhs == error_mark_node)
6025         return error_mark_node;
6026       return build2 (COMPOUND_EXPR, lhstype, lhs, newrhs);
6027
6028     case MIN_EXPR:
6029     case MAX_EXPR:
6030       /* MIN_EXPR and MAX_EXPR are currently only permitted as lvalues,
6031          when neither operand has side-effects.  */
6032       if (!lvalue_or_else (lhs, lv_assign, complain))
6033         return error_mark_node;
6034
6035       gcc_assert (!TREE_SIDE_EFFECTS (TREE_OPERAND (lhs, 0))
6036                   && !TREE_SIDE_EFFECTS (TREE_OPERAND (lhs, 1)));
6037
6038       lhs = build3 (COND_EXPR, TREE_TYPE (lhs),
6039                     build2 (TREE_CODE (lhs) == MIN_EXPR ? LE_EXPR : GE_EXPR,
6040                             boolean_type_node,
6041                             TREE_OPERAND (lhs, 0),
6042                             TREE_OPERAND (lhs, 1)),
6043                     TREE_OPERAND (lhs, 0),
6044                     TREE_OPERAND (lhs, 1));
6045       /* Fall through.  */
6046
6047       /* Handle (a ? b : c) used as an "lvalue".  */
6048     case COND_EXPR:
6049       {
6050         /* Produce (a ? (b = rhs) : (c = rhs))
6051            except that the RHS goes through a save-expr
6052            so the code to compute it is only emitted once.  */
6053         tree cond;
6054         tree preeval = NULL_TREE;
6055
6056         if (VOID_TYPE_P (TREE_TYPE (rhs)))
6057           {
6058             if (complain & tf_error)
6059               error ("void value not ignored as it ought to be");
6060             return error_mark_node;
6061           }
6062
6063         rhs = stabilize_expr (rhs, &preeval);
6064
6065         /* Check this here to avoid odd errors when trying to convert
6066            a throw to the type of the COND_EXPR.  */
6067         if (!lvalue_or_else (lhs, lv_assign, complain))
6068           return error_mark_node;
6069
6070         cond = build_conditional_expr
6071           (TREE_OPERAND (lhs, 0),
6072            cp_build_modify_expr (TREE_OPERAND (lhs, 1),
6073                                  modifycode, rhs, complain),
6074            cp_build_modify_expr (TREE_OPERAND (lhs, 2),
6075                                  modifycode, rhs, complain),
6076            complain);
6077
6078         if (cond == error_mark_node)
6079           return cond;
6080         /* Make sure the code to compute the rhs comes out
6081            before the split.  */
6082         if (preeval)
6083           cond = build2 (COMPOUND_EXPR, TREE_TYPE (lhs), preeval, cond);
6084         return cond;
6085       }
6086
6087     default:
6088       break;
6089     }
6090
6091   if (modifycode == INIT_EXPR)
6092     {
6093       if (BRACE_ENCLOSED_INITIALIZER_P (rhs))
6094         /* Do the default thing.  */;
6095       else if (TREE_CODE (rhs) == CONSTRUCTOR)
6096         {
6097           /* Compound literal.  */
6098           if (! same_type_p (TREE_TYPE (rhs), lhstype))
6099             /* Call convert to generate an error; see PR 11063.  */
6100             rhs = convert (lhstype, rhs);
6101           result = build2 (INIT_EXPR, lhstype, lhs, rhs);
6102           TREE_SIDE_EFFECTS (result) = 1;
6103           return result;
6104         }
6105       else if (! MAYBE_CLASS_TYPE_P (lhstype))
6106         /* Do the default thing.  */;
6107       else
6108         {
6109           VEC(tree,gc) *rhs_vec = make_tree_vector_single (rhs);
6110           result = build_special_member_call (lhs, complete_ctor_identifier,
6111                                               &rhs_vec, lhstype, LOOKUP_NORMAL,
6112                                               complain);
6113           release_tree_vector (rhs_vec);
6114           if (result == NULL_TREE)
6115             return error_mark_node;
6116           return result;
6117         }
6118     }
6119   else
6120     {
6121       lhs = require_complete_type (lhs);
6122       if (lhs == error_mark_node)
6123         return error_mark_node;
6124
6125       if (modifycode == NOP_EXPR)
6126         {
6127           /* `operator=' is not an inheritable operator.  */
6128           if (! MAYBE_CLASS_TYPE_P (lhstype))
6129             /* Do the default thing.  */;
6130           else
6131             {
6132               result = build_new_op (MODIFY_EXPR, LOOKUP_NORMAL,
6133                                      lhs, rhs, make_node (NOP_EXPR),
6134                                      /*overloaded_p=*/NULL,
6135                                      complain);
6136               if (result == NULL_TREE)
6137                 return error_mark_node;
6138               return result;
6139             }
6140           lhstype = olhstype;
6141         }
6142       else
6143         {
6144           /* A binary op has been requested.  Combine the old LHS
6145              value with the RHS producing the value we should actually
6146              store into the LHS.  */
6147           gcc_assert (!((TREE_CODE (lhstype) == REFERENCE_TYPE
6148                          && MAYBE_CLASS_TYPE_P (TREE_TYPE (lhstype)))
6149                         || MAYBE_CLASS_TYPE_P (lhstype)));
6150
6151           lhs = stabilize_reference (lhs);
6152           newrhs = cp_build_binary_op (input_location,
6153                                        modifycode, lhs, rhs,
6154                                        complain);
6155           if (newrhs == error_mark_node)
6156             {
6157               if (complain & tf_error)
6158                 error ("  in evaluation of %<%Q(%#T, %#T)%>", modifycode,
6159                        TREE_TYPE (lhs), TREE_TYPE (rhs));
6160               return error_mark_node;
6161             }
6162
6163           /* Now it looks like a plain assignment.  */
6164           modifycode = NOP_EXPR;
6165         }
6166       gcc_assert (TREE_CODE (lhstype) != REFERENCE_TYPE);
6167       gcc_assert (TREE_CODE (TREE_TYPE (newrhs)) != REFERENCE_TYPE);
6168     }
6169
6170   /* The left-hand side must be an lvalue.  */
6171   if (!lvalue_or_else (lhs, lv_assign, complain))
6172     return error_mark_node;
6173
6174   /* Warn about modifying something that is `const'.  Don't warn if
6175      this is initialization.  */
6176   if (modifycode != INIT_EXPR
6177       && (TREE_READONLY (lhs) || CP_TYPE_CONST_P (lhstype)
6178           /* Functions are not modifiable, even though they are
6179              lvalues.  */
6180           || TREE_CODE (TREE_TYPE (lhs)) == FUNCTION_TYPE
6181           || TREE_CODE (TREE_TYPE (lhs)) == METHOD_TYPE
6182           /* If it's an aggregate and any field is const, then it is
6183              effectively const.  */
6184           || (CLASS_TYPE_P (lhstype)
6185               && C_TYPE_FIELDS_READONLY (lhstype))))
6186     {
6187       if (complain & tf_error)
6188         readonly_error (lhs, "assignment");
6189       else
6190         return error_mark_node;
6191     }
6192
6193   /* If storing into a structure or union member, it may have been given a
6194      lowered bitfield type.  We need to convert to the declared type first,
6195      so retrieve it now.  */
6196
6197   olhstype = unlowered_expr_type (lhs);
6198
6199   /* Convert new value to destination type.  */
6200
6201   if (TREE_CODE (lhstype) == ARRAY_TYPE)
6202     {
6203       int from_array;
6204
6205       if (BRACE_ENCLOSED_INITIALIZER_P (rhs))
6206         rhs = digest_init (lhstype, rhs);
6207
6208       else if (!same_or_base_type_p (TYPE_MAIN_VARIANT (lhstype),
6209                                      TYPE_MAIN_VARIANT (TREE_TYPE (rhs))))
6210         {
6211           if (complain & tf_error)
6212             error ("incompatible types in assignment of %qT to %qT",
6213                    TREE_TYPE (rhs), lhstype);
6214           return error_mark_node;
6215         }
6216
6217       /* Allow array assignment in compiler-generated code.  */
6218       else if (!current_function_decl
6219                || !DECL_ARTIFICIAL (current_function_decl))
6220         {
6221           /* This routine is used for both initialization and assignment.
6222              Make sure the diagnostic message differentiates the context.  */
6223           if (complain & tf_error)
6224             {
6225               if (modifycode == INIT_EXPR)
6226                 error ("array used as initializer");
6227               else
6228                 error ("invalid array assignment");
6229             }
6230           return error_mark_node;
6231         }
6232
6233       from_array = TREE_CODE (TREE_TYPE (newrhs)) == ARRAY_TYPE
6234                    ? 1 + (modifycode != INIT_EXPR): 0;
6235       return build_vec_init (lhs, NULL_TREE, newrhs,
6236                              /*explicit_value_init_p=*/false,
6237                              from_array, complain);
6238     }
6239
6240   if (modifycode == INIT_EXPR)
6241     /* Calls with INIT_EXPR are all direct-initialization, so don't set
6242        LOOKUP_ONLYCONVERTING.  */
6243     newrhs = convert_for_initialization (lhs, olhstype, newrhs, LOOKUP_NORMAL,
6244                                          "initialization", NULL_TREE, 0,
6245                                          complain);
6246   else
6247     newrhs = convert_for_assignment (olhstype, newrhs, "assignment",
6248                                      NULL_TREE, 0, complain, LOOKUP_IMPLICIT);
6249
6250   if (!same_type_p (lhstype, olhstype))
6251     newrhs = cp_convert_and_check (lhstype, newrhs);
6252
6253   if (modifycode != INIT_EXPR)
6254     {
6255       if (TREE_CODE (newrhs) == CALL_EXPR
6256           && TYPE_NEEDS_CONSTRUCTING (lhstype))
6257         newrhs = build_cplus_new (lhstype, newrhs);
6258
6259       /* Can't initialize directly from a TARGET_EXPR, since that would
6260          cause the lhs to be constructed twice, and possibly result in
6261          accidental self-initialization.  So we force the TARGET_EXPR to be
6262          expanded without a target.  */
6263       if (TREE_CODE (newrhs) == TARGET_EXPR)
6264         newrhs = build2 (COMPOUND_EXPR, TREE_TYPE (newrhs), newrhs,
6265                          TREE_OPERAND (newrhs, 0));
6266     }
6267
6268   if (newrhs == error_mark_node)
6269     return error_mark_node;
6270
6271   if (c_dialect_objc () && flag_objc_gc)
6272     {
6273       result = objc_generate_write_barrier (lhs, modifycode, newrhs);
6274
6275       if (result)
6276         return result;
6277     }
6278
6279   result = build2 (modifycode == NOP_EXPR ? MODIFY_EXPR : INIT_EXPR,
6280                    lhstype, lhs, newrhs);
6281
6282   TREE_SIDE_EFFECTS (result) = 1;
6283   if (!plain_assign)
6284     TREE_NO_WARNING (result) = 1;
6285
6286   return result;
6287 }
6288
6289 tree
6290 build_x_modify_expr (tree lhs, enum tree_code modifycode, tree rhs,
6291                      tsubst_flags_t complain)
6292 {
6293   if (processing_template_decl)
6294     return build_min_nt (MODOP_EXPR, lhs,
6295                          build_min_nt (modifycode, NULL_TREE, NULL_TREE), rhs);
6296
6297   if (modifycode != NOP_EXPR)
6298     {
6299       tree rval = build_new_op (MODIFY_EXPR, LOOKUP_NORMAL, lhs, rhs,
6300                                 make_node (modifycode),
6301                                 /*overloaded_p=*/NULL,
6302                                 complain);
6303       if (rval)
6304         {
6305           TREE_NO_WARNING (rval) = 1;
6306           return rval;
6307         }
6308     }
6309   return cp_build_modify_expr (lhs, modifycode, rhs, complain);
6310 }
6311
6312 /* Helper function for get_delta_difference which assumes FROM is a base
6313    class of TO.  Returns a delta for the conversion of pointer-to-member
6314    of FROM to pointer-to-member of TO.  If the conversion is invalid,
6315    returns zero.  If FROM is not a base class of TO, returns NULL_TREE.
6316    If C_CAST_P is true, this conversion is taking place as part of a C-style
6317    cast.  */
6318
6319 static tree
6320 get_delta_difference_1 (tree from, tree to, bool c_cast_p)
6321 {
6322   tree binfo;
6323   base_kind kind;
6324
6325   binfo = lookup_base (to, from, c_cast_p ? ba_unique : ba_check, &kind);
6326   if (kind == bk_inaccessible || kind == bk_ambig)
6327     {
6328       error ("   in pointer to member function conversion");
6329       return size_zero_node;
6330     }
6331   else if (binfo)
6332     {
6333       if (kind != bk_via_virtual)
6334         return BINFO_OFFSET (binfo);
6335       else
6336         /* FROM is a virtual base class of TO.  Issue an error or warning
6337            depending on whether or not this is a reinterpret cast.  */
6338         {
6339           error ("pointer to member conversion via virtual base %qT",
6340                  BINFO_TYPE (binfo_from_vbase (binfo)));
6341
6342           return size_zero_node;
6343         }
6344       }
6345     else
6346       return NULL_TREE;
6347 }
6348
6349 /* Get difference in deltas for different pointer to member function
6350    types.  Returns an integer constant of type PTRDIFF_TYPE_NODE.  If
6351    the conversion is invalid, the constant is zero.  If
6352    ALLOW_INVERSE_P is true, then allow reverse conversions as well.
6353    If C_CAST_P is true this conversion is taking place as part of a
6354    C-style cast.
6355
6356    Note that the naming of FROM and TO is kind of backwards; the return
6357    value is what we add to a TO in order to get a FROM.  They are named
6358    this way because we call this function to find out how to convert from
6359    a pointer to member of FROM to a pointer to member of TO.  */
6360
6361 static tree
6362 get_delta_difference (tree from, tree to,
6363                       bool allow_inverse_p,
6364                       bool c_cast_p)
6365 {
6366   tree result;
6367
6368   if (same_type_ignoring_top_level_qualifiers_p (from, to))
6369     /* Pointer to member of incomplete class is permitted*/
6370     result = size_zero_node;
6371   else
6372     result = get_delta_difference_1 (from, to, c_cast_p);
6373
6374   if (!result)
6375   {
6376     if (!allow_inverse_p)
6377       {
6378         error_not_base_type (from, to);
6379         error ("   in pointer to member conversion");
6380         result = size_zero_node;
6381       }
6382     else
6383       {
6384         result = get_delta_difference_1 (to, from, c_cast_p);
6385
6386         if (result)
6387           result = size_diffop (size_zero_node, result);
6388         else
6389           {
6390             error_not_base_type (from, to);
6391             error ("   in pointer to member conversion");
6392             result = size_zero_node;
6393           }
6394       }
6395   }
6396
6397   return fold_if_not_in_template (convert_to_integer (ptrdiff_type_node,
6398                                                       result));
6399 }
6400
6401 /* Return a constructor for the pointer-to-member-function TYPE using
6402    the other components as specified.  */
6403
6404 tree
6405 build_ptrmemfunc1 (tree type, tree delta, tree pfn)
6406 {
6407   tree u = NULL_TREE;
6408   tree delta_field;
6409   tree pfn_field;
6410   VEC(constructor_elt, gc) *v;
6411
6412   /* Pull the FIELD_DECLs out of the type.  */
6413   pfn_field = TYPE_FIELDS (type);
6414   delta_field = TREE_CHAIN (pfn_field);
6415
6416   /* Make sure DELTA has the type we want.  */
6417   delta = convert_and_check (delta_type_node, delta);
6418
6419   /* Convert to the correct target type if necessary.  */
6420   pfn = fold_convert (TREE_TYPE (pfn_field), pfn);
6421
6422   /* Finish creating the initializer.  */
6423   v = VEC_alloc(constructor_elt, gc, 2);
6424   CONSTRUCTOR_APPEND_ELT(v, pfn_field, pfn);
6425   CONSTRUCTOR_APPEND_ELT(v, delta_field, delta);
6426   u = build_constructor (type, v);
6427   TREE_CONSTANT (u) = TREE_CONSTANT (pfn) & TREE_CONSTANT (delta);
6428   TREE_STATIC (u) = (TREE_CONSTANT (u)
6429                      && (initializer_constant_valid_p (pfn, TREE_TYPE (pfn))
6430                          != NULL_TREE)
6431                      && (initializer_constant_valid_p (delta, TREE_TYPE (delta))
6432                          != NULL_TREE));
6433   return u;
6434 }
6435
6436 /* Build a constructor for a pointer to member function.  It can be
6437    used to initialize global variables, local variable, or used
6438    as a value in expressions.  TYPE is the POINTER to METHOD_TYPE we
6439    want to be.
6440
6441    If FORCE is nonzero, then force this conversion, even if
6442    we would rather not do it.  Usually set when using an explicit
6443    cast.  A C-style cast is being processed iff C_CAST_P is true.
6444
6445    Return error_mark_node, if something goes wrong.  */
6446
6447 tree
6448 build_ptrmemfunc (tree type, tree pfn, int force, bool c_cast_p)
6449 {
6450   tree fn;
6451   tree pfn_type;
6452   tree to_type;
6453
6454   if (error_operand_p (pfn))
6455     return error_mark_node;
6456
6457   pfn_type = TREE_TYPE (pfn);
6458   to_type = build_ptrmemfunc_type (type);
6459
6460   /* Handle multiple conversions of pointer to member functions.  */
6461   if (TYPE_PTRMEMFUNC_P (pfn_type))
6462     {
6463       tree delta = NULL_TREE;
6464       tree npfn = NULL_TREE;
6465       tree n;
6466
6467       if (!force
6468           && !can_convert_arg (to_type, TREE_TYPE (pfn), pfn, LOOKUP_NORMAL))
6469         error ("invalid conversion to type %qT from type %qT",
6470                to_type, pfn_type);
6471
6472       n = get_delta_difference (TYPE_PTRMEMFUNC_OBJECT_TYPE (pfn_type),
6473                                 TYPE_PTRMEMFUNC_OBJECT_TYPE (to_type),
6474                                 force,
6475                                 c_cast_p);
6476
6477       /* We don't have to do any conversion to convert a
6478          pointer-to-member to its own type.  But, we don't want to
6479          just return a PTRMEM_CST if there's an explicit cast; that
6480          cast should make the expression an invalid template argument.  */
6481       if (TREE_CODE (pfn) != PTRMEM_CST)
6482         {
6483           if (same_type_p (to_type, pfn_type))
6484             return pfn;
6485           else if (integer_zerop (n))
6486             return build_reinterpret_cast (to_type, pfn,
6487                                            tf_warning_or_error);
6488         }
6489
6490       if (TREE_SIDE_EFFECTS (pfn))
6491         pfn = save_expr (pfn);
6492
6493       /* Obtain the function pointer and the current DELTA.  */
6494       if (TREE_CODE (pfn) == PTRMEM_CST)
6495         expand_ptrmemfunc_cst (pfn, &delta, &npfn);
6496       else
6497         {
6498           npfn = build_ptrmemfunc_access_expr (pfn, pfn_identifier);
6499           delta = build_ptrmemfunc_access_expr (pfn, delta_identifier);
6500         }
6501
6502       /* Just adjust the DELTA field.  */
6503       gcc_assert  (same_type_ignoring_top_level_qualifiers_p
6504                    (TREE_TYPE (delta), ptrdiff_type_node));
6505       if (TARGET_PTRMEMFUNC_VBIT_LOCATION == ptrmemfunc_vbit_in_delta)
6506         n = cp_build_binary_op (input_location,
6507                                 LSHIFT_EXPR, n, integer_one_node,
6508                                 tf_warning_or_error);
6509       delta = cp_build_binary_op (input_location,
6510                                   PLUS_EXPR, delta, n, tf_warning_or_error);
6511       return build_ptrmemfunc1 (to_type, delta, npfn);
6512     }
6513
6514   /* Handle null pointer to member function conversions.  */
6515   if (integer_zerop (pfn))
6516     {
6517       pfn = build_c_cast (input_location, type, integer_zero_node);
6518       return build_ptrmemfunc1 (to_type,
6519                                 integer_zero_node,
6520                                 pfn);
6521     }
6522
6523   if (type_unknown_p (pfn))
6524     return instantiate_type (type, pfn, tf_warning_or_error);
6525
6526   fn = TREE_OPERAND (pfn, 0);
6527   gcc_assert (TREE_CODE (fn) == FUNCTION_DECL
6528               /* In a template, we will have preserved the
6529                  OFFSET_REF.  */
6530               || (processing_template_decl && TREE_CODE (fn) == OFFSET_REF));
6531   return make_ptrmem_cst (to_type, fn);
6532 }
6533
6534 /* Return the DELTA, IDX, PFN, and DELTA2 values for the PTRMEM_CST
6535    given by CST.
6536
6537    ??? There is no consistency as to the types returned for the above
6538    values.  Some code acts as if it were a sizetype and some as if it were
6539    integer_type_node.  */
6540
6541 void
6542 expand_ptrmemfunc_cst (tree cst, tree *delta, tree *pfn)
6543 {
6544   tree type = TREE_TYPE (cst);
6545   tree fn = PTRMEM_CST_MEMBER (cst);
6546   tree ptr_class, fn_class;
6547
6548   gcc_assert (TREE_CODE (fn) == FUNCTION_DECL);
6549
6550   /* The class that the function belongs to.  */
6551   fn_class = DECL_CONTEXT (fn);
6552
6553   /* The class that we're creating a pointer to member of.  */
6554   ptr_class = TYPE_PTRMEMFUNC_OBJECT_TYPE (type);
6555
6556   /* First, calculate the adjustment to the function's class.  */
6557   *delta = get_delta_difference (fn_class, ptr_class, /*force=*/0,
6558                                  /*c_cast_p=*/0);
6559
6560   if (!DECL_VIRTUAL_P (fn))
6561     *pfn = convert (TYPE_PTRMEMFUNC_FN_TYPE (type), build_addr_func (fn));
6562   else
6563     {
6564       /* If we're dealing with a virtual function, we have to adjust 'this'
6565          again, to point to the base which provides the vtable entry for
6566          fn; the call will do the opposite adjustment.  */
6567       tree orig_class = DECL_CONTEXT (fn);
6568       tree binfo = binfo_or_else (orig_class, fn_class);
6569       *delta = build2 (PLUS_EXPR, TREE_TYPE (*delta),
6570                        *delta, BINFO_OFFSET (binfo));
6571       *delta = fold_if_not_in_template (*delta);
6572
6573       /* We set PFN to the vtable offset at which the function can be
6574          found, plus one (unless ptrmemfunc_vbit_in_delta, in which
6575          case delta is shifted left, and then incremented).  */
6576       *pfn = DECL_VINDEX (fn);
6577       *pfn = build2 (MULT_EXPR, integer_type_node, *pfn,
6578                      TYPE_SIZE_UNIT (vtable_entry_type));
6579       *pfn = fold_if_not_in_template (*pfn);
6580
6581       switch (TARGET_PTRMEMFUNC_VBIT_LOCATION)
6582         {
6583         case ptrmemfunc_vbit_in_pfn:
6584           *pfn = build2 (PLUS_EXPR, integer_type_node, *pfn,
6585                          integer_one_node);
6586           *pfn = fold_if_not_in_template (*pfn);
6587           break;
6588
6589         case ptrmemfunc_vbit_in_delta:
6590           *delta = build2 (LSHIFT_EXPR, TREE_TYPE (*delta),
6591                            *delta, integer_one_node);
6592           *delta = fold_if_not_in_template (*delta);
6593           *delta = build2 (PLUS_EXPR, TREE_TYPE (*delta),
6594                            *delta, integer_one_node);
6595           *delta = fold_if_not_in_template (*delta);
6596           break;
6597
6598         default:
6599           gcc_unreachable ();
6600         }
6601
6602       *pfn = build_nop (TYPE_PTRMEMFUNC_FN_TYPE (type), *pfn);
6603       *pfn = fold_if_not_in_template (*pfn);
6604     }
6605 }
6606
6607 /* Return an expression for PFN from the pointer-to-member function
6608    given by T.  */
6609
6610 static tree
6611 pfn_from_ptrmemfunc (tree t)
6612 {
6613   if (TREE_CODE (t) == PTRMEM_CST)
6614     {
6615       tree delta;
6616       tree pfn;
6617
6618       expand_ptrmemfunc_cst (t, &delta, &pfn);
6619       if (pfn)
6620         return pfn;
6621     }
6622
6623   return build_ptrmemfunc_access_expr (t, pfn_identifier);
6624 }
6625
6626 /* Return an expression for DELTA from the pointer-to-member function
6627    given by T.  */
6628
6629 static tree
6630 delta_from_ptrmemfunc (tree t)
6631 {
6632   if (TREE_CODE (t) == PTRMEM_CST)
6633     {
6634       tree delta;
6635       tree pfn;
6636
6637       expand_ptrmemfunc_cst (t, &delta, &pfn);
6638       if (delta)
6639         return delta;
6640     }
6641
6642   return build_ptrmemfunc_access_expr (t, delta_identifier);
6643 }
6644
6645 /* Convert value RHS to type TYPE as preparation for an assignment to
6646    an lvalue of type TYPE.  ERRTYPE is a string to use in error
6647    messages: "assignment", "return", etc.  If FNDECL is non-NULL, we
6648    are doing the conversion in order to pass the PARMNUMth argument of
6649    FNDECL.  */
6650
6651 static tree
6652 convert_for_assignment (tree type, tree rhs,
6653                         const char *errtype, tree fndecl, int parmnum,
6654                         tsubst_flags_t complain, int flags)
6655 {
6656   tree rhstype;
6657   enum tree_code coder;
6658
6659   /* Strip NON_LVALUE_EXPRs since we aren't using as an lvalue.  */
6660   if (TREE_CODE (rhs) == NON_LVALUE_EXPR)
6661     rhs = TREE_OPERAND (rhs, 0);
6662
6663   rhstype = TREE_TYPE (rhs);
6664   coder = TREE_CODE (rhstype);
6665
6666   if (TREE_CODE (type) == VECTOR_TYPE && coder == VECTOR_TYPE
6667       && vector_types_convertible_p (type, rhstype, true))
6668     return convert (type, rhs);
6669
6670   if (rhs == error_mark_node || rhstype == error_mark_node)
6671     return error_mark_node;
6672   if (TREE_CODE (rhs) == TREE_LIST && TREE_VALUE (rhs) == error_mark_node)
6673     return error_mark_node;
6674
6675   /* The RHS of an assignment cannot have void type.  */
6676   if (coder == VOID_TYPE)
6677     {
6678       if (complain & tf_error)
6679         error ("void value not ignored as it ought to be");
6680       return error_mark_node;
6681     }
6682
6683   /* Simplify the RHS if possible.  */
6684   if (TREE_CODE (rhs) == CONST_DECL)
6685     rhs = DECL_INITIAL (rhs);
6686
6687   if (c_dialect_objc ())
6688     {
6689       int parmno;
6690       tree rname = fndecl;
6691
6692       if (!strcmp (errtype, "assignment"))
6693         parmno = -1;
6694       else if (!strcmp (errtype, "initialization"))
6695         parmno = -2;
6696       else
6697         {
6698           tree selector = objc_message_selector ();
6699
6700           parmno = parmnum;
6701
6702           if (selector && parmno > 1)
6703             {
6704               rname = selector;
6705               parmno -= 1;
6706             }
6707         }
6708
6709       if (objc_compare_types (type, rhstype, parmno, rname))
6710         return convert (type, rhs);
6711     }
6712
6713   /* [expr.ass]
6714
6715      The expression is implicitly converted (clause _conv_) to the
6716      cv-unqualified type of the left operand.
6717
6718      We allow bad conversions here because by the time we get to this point
6719      we are committed to doing the conversion.  If we end up doing a bad
6720      conversion, convert_like will complain.  */
6721   if (!can_convert_arg_bad (type, rhstype, rhs, flags))
6722     {
6723       /* When -Wno-pmf-conversions is use, we just silently allow
6724          conversions from pointers-to-members to plain pointers.  If
6725          the conversion doesn't work, cp_convert will complain.  */
6726       if (!warn_pmf2ptr
6727           && TYPE_PTR_P (type)
6728           && TYPE_PTRMEMFUNC_P (rhstype))
6729         rhs = cp_convert (strip_top_quals (type), rhs);
6730       else
6731         {
6732           if (complain & tf_error)
6733             {
6734               /* If the right-hand side has unknown type, then it is an
6735                  overloaded function.  Call instantiate_type to get error
6736                  messages.  */
6737               if (rhstype == unknown_type_node)
6738                 instantiate_type (type, rhs, tf_warning_or_error);
6739               else if (fndecl)
6740                 error ("cannot convert %qT to %qT for argument %qP to %qD",
6741                        rhstype, type, parmnum, fndecl);
6742               else
6743                 error ("cannot convert %qT to %qT in %s", rhstype, type,
6744                        errtype);
6745             }
6746           return error_mark_node;
6747         }
6748     }
6749   if (warn_missing_format_attribute)
6750     {
6751       const enum tree_code codel = TREE_CODE (type);
6752       if ((codel == POINTER_TYPE || codel == REFERENCE_TYPE)
6753           && coder == codel
6754           && check_missing_format_attribute (type, rhstype)
6755           && (complain & tf_warning))
6756         warning (OPT_Wmissing_format_attribute,
6757                  "%s might be a candidate for a format attribute",
6758                  errtype);
6759     }
6760
6761   /* If -Wparentheses, warn about a = b = c when a has type bool and b
6762      does not.  */
6763   if (warn_parentheses
6764       && type == boolean_type_node
6765       && TREE_CODE (rhs) == MODIFY_EXPR
6766       && !TREE_NO_WARNING (rhs)
6767       && TREE_TYPE (rhs) != boolean_type_node
6768       && (complain & tf_warning))
6769     {
6770       warning (OPT_Wparentheses,
6771                "suggest parentheses around assignment used as truth value");
6772       TREE_NO_WARNING (rhs) = 1;
6773     }
6774
6775   return perform_implicit_conversion_flags (strip_top_quals (type), rhs,
6776                                             complain, flags);
6777 }
6778
6779 /* Convert RHS to be of type TYPE.
6780    If EXP is nonzero, it is the target of the initialization.
6781    ERRTYPE is a string to use in error messages.
6782
6783    Two major differences between the behavior of
6784    `convert_for_assignment' and `convert_for_initialization'
6785    are that references are bashed in the former, while
6786    copied in the latter, and aggregates are assigned in
6787    the former (operator=) while initialized in the
6788    latter (X(X&)).
6789
6790    If using constructor make sure no conversion operator exists, if one does
6791    exist, an ambiguity exists.
6792
6793    If flags doesn't include LOOKUP_COMPLAIN, don't complain about anything.  */
6794
6795 tree
6796 convert_for_initialization (tree exp, tree type, tree rhs, int flags,
6797                             const char *errtype, tree fndecl, int parmnum,
6798                             tsubst_flags_t complain)
6799 {
6800   enum tree_code codel = TREE_CODE (type);
6801   tree rhstype;
6802   enum tree_code coder;
6803
6804   /* build_c_cast puts on a NOP_EXPR to make the result not an lvalue.
6805      Strip such NOP_EXPRs, since RHS is used in non-lvalue context.  */
6806   if (TREE_CODE (rhs) == NOP_EXPR
6807       && TREE_TYPE (rhs) == TREE_TYPE (TREE_OPERAND (rhs, 0))
6808       && codel != REFERENCE_TYPE)
6809     rhs = TREE_OPERAND (rhs, 0);
6810
6811   if (type == error_mark_node
6812       || rhs == error_mark_node
6813       || (TREE_CODE (rhs) == TREE_LIST && TREE_VALUE (rhs) == error_mark_node))
6814     return error_mark_node;
6815
6816   if ((TREE_CODE (TREE_TYPE (rhs)) == ARRAY_TYPE
6817        && TREE_CODE (type) != ARRAY_TYPE
6818        && (TREE_CODE (type) != REFERENCE_TYPE
6819            || TREE_CODE (TREE_TYPE (type)) != ARRAY_TYPE))
6820       || (TREE_CODE (TREE_TYPE (rhs)) == FUNCTION_TYPE
6821           && (TREE_CODE (type) != REFERENCE_TYPE
6822               || TREE_CODE (TREE_TYPE (type)) != FUNCTION_TYPE))
6823       || TREE_CODE (TREE_TYPE (rhs)) == METHOD_TYPE)
6824     rhs = decay_conversion (rhs);
6825
6826   rhstype = TREE_TYPE (rhs);
6827   coder = TREE_CODE (rhstype);
6828
6829   if (coder == ERROR_MARK)
6830     return error_mark_node;
6831
6832   /* We accept references to incomplete types, so we can
6833      return here before checking if RHS is of complete type.  */
6834
6835   if (codel == REFERENCE_TYPE)
6836     {
6837       /* This should eventually happen in convert_arguments.  */
6838       int savew = 0, savee = 0;
6839
6840       if (fndecl)
6841         savew = warningcount, savee = errorcount;
6842       rhs = initialize_reference (type, rhs, /*decl=*/NULL_TREE,
6843                                   /*cleanup=*/NULL);
6844       if (fndecl)
6845         {
6846           if (warningcount > savew)
6847             warning (0, "in passing argument %P of %q+D", parmnum, fndecl);
6848           else if (errorcount > savee)
6849             error ("in passing argument %P of %q+D", parmnum, fndecl);
6850         }
6851       return rhs;
6852     }
6853
6854   if (exp != 0)
6855     exp = require_complete_type (exp);
6856   if (exp == error_mark_node)
6857     return error_mark_node;
6858
6859   rhstype = non_reference (rhstype);
6860
6861   type = complete_type (type);
6862
6863   if (MAYBE_CLASS_TYPE_P (type))
6864     return ocp_convert (type, rhs, CONV_IMPLICIT|CONV_FORCE_TEMP, flags);
6865
6866   return convert_for_assignment (type, rhs, errtype, fndecl, parmnum,
6867                                  complain, flags);
6868 }
6869 \f
6870 /* If RETVAL is the address of, or a reference to, a local variable or
6871    temporary give an appropriate warning.  */
6872
6873 static void
6874 maybe_warn_about_returning_address_of_local (tree retval)
6875 {
6876   tree valtype = TREE_TYPE (DECL_RESULT (current_function_decl));
6877   tree whats_returned = retval;
6878
6879   for (;;)
6880     {
6881       if (TREE_CODE (whats_returned) == COMPOUND_EXPR)
6882         whats_returned = TREE_OPERAND (whats_returned, 1);
6883       else if (CONVERT_EXPR_P (whats_returned)
6884                || TREE_CODE (whats_returned) == NON_LVALUE_EXPR)
6885         whats_returned = TREE_OPERAND (whats_returned, 0);
6886       else
6887         break;
6888     }
6889
6890   if (TREE_CODE (whats_returned) != ADDR_EXPR)
6891     return;
6892   whats_returned = TREE_OPERAND (whats_returned, 0);
6893
6894   if (TREE_CODE (valtype) == REFERENCE_TYPE)
6895     {
6896       if (TREE_CODE (whats_returned) == AGGR_INIT_EXPR
6897           || TREE_CODE (whats_returned) == TARGET_EXPR)
6898         {
6899           warning (0, "returning reference to temporary");
6900           return;
6901         }
6902       if (TREE_CODE (whats_returned) == VAR_DECL
6903           && DECL_NAME (whats_returned)
6904           && TEMP_NAME_P (DECL_NAME (whats_returned)))
6905         {
6906           warning (0, "reference to non-lvalue returned");
6907           return;
6908         }
6909     }
6910
6911   while (TREE_CODE (whats_returned) == COMPONENT_REF
6912          || TREE_CODE (whats_returned) == ARRAY_REF)
6913     whats_returned = TREE_OPERAND (whats_returned, 0);
6914
6915   if (DECL_P (whats_returned)
6916       && DECL_NAME (whats_returned)
6917       && DECL_FUNCTION_SCOPE_P (whats_returned)
6918       && !(TREE_STATIC (whats_returned)
6919            || TREE_PUBLIC (whats_returned)))
6920     {
6921       if (TREE_CODE (valtype) == REFERENCE_TYPE)
6922         warning (0, "reference to local variable %q+D returned",
6923                  whats_returned);
6924       else
6925         warning (0, "address of local variable %q+D returned",
6926                  whats_returned);
6927       return;
6928     }
6929 }
6930
6931 /* Check that returning RETVAL from the current function is valid.
6932    Return an expression explicitly showing all conversions required to
6933    change RETVAL into the function return type, and to assign it to
6934    the DECL_RESULT for the function.  Set *NO_WARNING to true if
6935    code reaches end of non-void function warning shouldn't be issued
6936    on this RETURN_EXPR.  */
6937
6938 tree
6939 check_return_expr (tree retval, bool *no_warning)
6940 {
6941   tree result;
6942   /* The type actually returned by the function, after any
6943      promotions.  */
6944   tree valtype;
6945   int fn_returns_value_p;
6946   bool named_return_value_okay_p;
6947
6948   *no_warning = false;
6949
6950   /* A `volatile' function is one that isn't supposed to return, ever.
6951      (This is a G++ extension, used to get better code for functions
6952      that call the `volatile' function.)  */
6953   if (TREE_THIS_VOLATILE (current_function_decl))
6954     warning (0, "function declared %<noreturn%> has a %<return%> statement");
6955
6956   /* Check for various simple errors.  */
6957   if (DECL_DESTRUCTOR_P (current_function_decl))
6958     {
6959       if (retval)
6960         error ("returning a value from a destructor");
6961       return NULL_TREE;
6962     }
6963   else if (DECL_CONSTRUCTOR_P (current_function_decl))
6964     {
6965       if (in_function_try_handler)
6966         /* If a return statement appears in a handler of the
6967            function-try-block of a constructor, the program is ill-formed.  */
6968         error ("cannot return from a handler of a function-try-block of a constructor");
6969       else if (retval)
6970         /* You can't return a value from a constructor.  */
6971         error ("returning a value from a constructor");
6972       return NULL_TREE;
6973     }
6974
6975   if (processing_template_decl)
6976     {
6977       current_function_returns_value = 1;
6978       if (check_for_bare_parameter_packs (retval))
6979         retval = error_mark_node;
6980       return retval;
6981     }
6982
6983   /* When no explicit return-value is given in a function with a named
6984      return value, the named return value is used.  */
6985   result = DECL_RESULT (current_function_decl);
6986   valtype = TREE_TYPE (result);
6987   gcc_assert (valtype != NULL_TREE);
6988   fn_returns_value_p = !VOID_TYPE_P (valtype);
6989   if (!retval && DECL_NAME (result) && fn_returns_value_p)
6990     retval = result;
6991
6992   /* Check for a return statement with no return value in a function
6993      that's supposed to return a value.  */
6994   if (!retval && fn_returns_value_p)
6995     {
6996       permerror (input_location, "return-statement with no value, in function returning %qT",
6997                  valtype);
6998       /* Clear this, so finish_function won't say that we reach the
6999          end of a non-void function (which we don't, we gave a
7000          return!).  */
7001       current_function_returns_null = 0;
7002       /* And signal caller that TREE_NO_WARNING should be set on the
7003          RETURN_EXPR to avoid control reaches end of non-void function
7004          warnings in tree-cfg.c.  */
7005       *no_warning = true;
7006     }
7007   /* Check for a return statement with a value in a function that
7008      isn't supposed to return a value.  */
7009   else if (retval && !fn_returns_value_p)
7010     {
7011       if (VOID_TYPE_P (TREE_TYPE (retval)))
7012         /* You can return a `void' value from a function of `void'
7013            type.  In that case, we have to evaluate the expression for
7014            its side-effects.  */
7015           finish_expr_stmt (retval);
7016       else
7017         permerror (input_location, "return-statement with a value, in function "
7018                    "returning 'void'");
7019       current_function_returns_null = 1;
7020
7021       /* There's really no value to return, after all.  */
7022       return NULL_TREE;
7023     }
7024   else if (!retval)
7025     /* Remember that this function can sometimes return without a
7026        value.  */
7027     current_function_returns_null = 1;
7028   else
7029     /* Remember that this function did return a value.  */
7030     current_function_returns_value = 1;
7031
7032   /* Check for erroneous operands -- but after giving ourselves a
7033      chance to provide an error about returning a value from a void
7034      function.  */
7035   if (error_operand_p (retval))
7036     {
7037       current_function_return_value = error_mark_node;
7038       return error_mark_node;
7039     }
7040
7041   /* Only operator new(...) throw(), can return NULL [expr.new/13].  */
7042   if ((DECL_OVERLOADED_OPERATOR_P (current_function_decl) == NEW_EXPR
7043        || DECL_OVERLOADED_OPERATOR_P (current_function_decl) == VEC_NEW_EXPR)
7044       && !TYPE_NOTHROW_P (TREE_TYPE (current_function_decl))
7045       && ! flag_check_new
7046       && retval && null_ptr_cst_p (retval))
7047     warning (0, "%<operator new%> must not return NULL unless it is "
7048              "declared %<throw()%> (or -fcheck-new is in effect)");
7049
7050   /* Effective C++ rule 15.  See also start_function.  */
7051   if (warn_ecpp
7052       && DECL_NAME (current_function_decl) == ansi_assopname(NOP_EXPR))
7053     {
7054       bool warn = true;
7055
7056       /* The function return type must be a reference to the current
7057         class.  */
7058       if (TREE_CODE (valtype) == REFERENCE_TYPE
7059           && same_type_ignoring_top_level_qualifiers_p
7060               (TREE_TYPE (valtype), TREE_TYPE (current_class_ref)))
7061         {
7062           /* Returning '*this' is obviously OK.  */
7063           if (retval == current_class_ref)
7064             warn = false;
7065           /* If we are calling a function whose return type is the same of
7066              the current class reference, it is ok.  */
7067           else if (TREE_CODE (retval) == INDIRECT_REF
7068                    && TREE_CODE (TREE_OPERAND (retval, 0)) == CALL_EXPR)
7069             warn = false;
7070         }
7071
7072       if (warn)
7073         warning (OPT_Weffc__, "%<operator=%> should return a reference to %<*this%>");
7074     }
7075
7076   /* The fabled Named Return Value optimization, as per [class.copy]/15:
7077
7078      [...]      For  a function with a class return type, if the expression
7079      in the return statement is the name of a local  object,  and  the  cv-
7080      unqualified  type  of  the  local  object  is the same as the function
7081      return type, an implementation is permitted to omit creating the  tem-
7082      porary  object  to  hold  the function return value [...]
7083
7084      So, if this is a value-returning function that always returns the same
7085      local variable, remember it.
7086
7087      It might be nice to be more flexible, and choose the first suitable
7088      variable even if the function sometimes returns something else, but
7089      then we run the risk of clobbering the variable we chose if the other
7090      returned expression uses the chosen variable somehow.  And people expect
7091      this restriction, anyway.  (jason 2000-11-19)
7092
7093      See finish_function and finalize_nrv for the rest of this optimization.  */
7094
7095   named_return_value_okay_p =
7096     (retval != NULL_TREE
7097      /* Must be a local, automatic variable.  */
7098      && TREE_CODE (retval) == VAR_DECL
7099      && DECL_CONTEXT (retval) == current_function_decl
7100      && ! TREE_STATIC (retval)
7101      && ! DECL_ANON_UNION_VAR_P (retval)
7102      && (DECL_ALIGN (retval)
7103          >= DECL_ALIGN (DECL_RESULT (current_function_decl)))
7104      /* The cv-unqualified type of the returned value must be the
7105         same as the cv-unqualified return type of the
7106         function.  */
7107      && same_type_p ((TYPE_MAIN_VARIANT (TREE_TYPE (retval))),
7108                      (TYPE_MAIN_VARIANT
7109                       (TREE_TYPE (TREE_TYPE (current_function_decl)))))
7110      /* And the returned value must be non-volatile.  */
7111      && ! TYPE_VOLATILE (TREE_TYPE (retval)));
7112
7113   if (fn_returns_value_p && flag_elide_constructors)
7114     {
7115       if (named_return_value_okay_p
7116           && (current_function_return_value == NULL_TREE
7117               || current_function_return_value == retval))
7118         current_function_return_value = retval;
7119       else
7120         current_function_return_value = error_mark_node;
7121     }
7122
7123   /* We don't need to do any conversions when there's nothing being
7124      returned.  */
7125   if (!retval)
7126     return NULL_TREE;
7127
7128   /* Do any required conversions.  */
7129   if (retval == result || DECL_CONSTRUCTOR_P (current_function_decl))
7130     /* No conversions are required.  */
7131     ;
7132   else
7133     {
7134       /* The type the function is declared to return.  */
7135       tree functype = TREE_TYPE (TREE_TYPE (current_function_decl));
7136       int flags = LOOKUP_NORMAL | LOOKUP_ONLYCONVERTING;
7137
7138       /* The functype's return type will have been set to void, if it
7139          was an incomplete type.  Just treat this as 'return;' */
7140       if (VOID_TYPE_P (functype))
7141         return error_mark_node;
7142
7143       /* Under C++0x [12.8/16 class.copy], a returned lvalue is sometimes
7144          treated as an rvalue for the purposes of overload resolution to
7145          favor move constructors over copy constructors.  */
7146       if ((cxx_dialect != cxx98)
7147           && named_return_value_okay_p
7148           /* The variable must not have the `volatile' qualifier.  */
7149           && !(cp_type_quals (TREE_TYPE (retval)) & TYPE_QUAL_VOLATILE)
7150           /* The return type must be a class type.  */
7151           && CLASS_TYPE_P (TREE_TYPE (TREE_TYPE (current_function_decl))))
7152         flags = flags | LOOKUP_PREFER_RVALUE;
7153
7154       /* First convert the value to the function's return type, then
7155          to the type of return value's location to handle the
7156          case that functype is smaller than the valtype.  */
7157       retval = convert_for_initialization
7158         (NULL_TREE, functype, retval, flags, "return", NULL_TREE, 0,
7159          tf_warning_or_error);
7160       retval = convert (valtype, retval);
7161
7162       /* If the conversion failed, treat this just like `return;'.  */
7163       if (retval == error_mark_node)
7164         return retval;
7165       /* We can't initialize a register from a AGGR_INIT_EXPR.  */
7166       else if (! cfun->returns_struct
7167                && TREE_CODE (retval) == TARGET_EXPR
7168                && TREE_CODE (TREE_OPERAND (retval, 1)) == AGGR_INIT_EXPR)
7169         retval = build2 (COMPOUND_EXPR, TREE_TYPE (retval), retval,
7170                          TREE_OPERAND (retval, 0));
7171       else
7172         maybe_warn_about_returning_address_of_local (retval);
7173     }
7174
7175   /* Actually copy the value returned into the appropriate location.  */
7176   if (retval && retval != result)
7177     retval = build2 (INIT_EXPR, TREE_TYPE (result), result, retval);
7178
7179   return retval;
7180 }
7181
7182 \f
7183 /* Returns nonzero if the pointer-type FROM can be converted to the
7184    pointer-type TO via a qualification conversion.  If CONSTP is -1,
7185    then we return nonzero if the pointers are similar, and the
7186    cv-qualification signature of FROM is a proper subset of that of TO.
7187
7188    If CONSTP is positive, then all outer pointers have been
7189    const-qualified.  */
7190
7191 static int
7192 comp_ptr_ttypes_real (tree to, tree from, int constp)
7193 {
7194   bool to_more_cv_qualified = false;
7195   bool is_opaque_pointer = false;
7196
7197   for (; ; to = TREE_TYPE (to), from = TREE_TYPE (from))
7198     {
7199       if (TREE_CODE (to) != TREE_CODE (from))
7200         return 0;
7201
7202       if (TREE_CODE (from) == OFFSET_TYPE
7203           && !same_type_p (TYPE_OFFSET_BASETYPE (from),
7204                            TYPE_OFFSET_BASETYPE (to)))
7205         return 0;
7206
7207       /* Const and volatile mean something different for function types,
7208          so the usual checks are not appropriate.  */
7209       if (TREE_CODE (to) != FUNCTION_TYPE && TREE_CODE (to) != METHOD_TYPE)
7210         {
7211           /* In Objective-C++, some types may have been 'volatilized' by
7212              the compiler for EH; when comparing them here, the volatile
7213              qualification must be ignored.  */
7214           bool objc_quals_match = objc_type_quals_match (to, from);
7215
7216           if (!at_least_as_qualified_p (to, from) && !objc_quals_match)
7217             return 0;
7218
7219           if (!at_least_as_qualified_p (from, to) && !objc_quals_match)
7220             {
7221               if (constp == 0)
7222                 return 0;
7223               to_more_cv_qualified = true;
7224             }
7225
7226           if (constp > 0)
7227             constp &= TYPE_READONLY (to);
7228         }
7229
7230       if (TREE_CODE (to) == VECTOR_TYPE)
7231         is_opaque_pointer = vector_targets_convertible_p (to, from);
7232
7233       if (TREE_CODE (to) != POINTER_TYPE && !TYPE_PTRMEM_P (to))
7234         return ((constp >= 0 || to_more_cv_qualified)
7235                 && (is_opaque_pointer
7236                     || same_type_ignoring_top_level_qualifiers_p (to, from)));
7237     }
7238 }
7239
7240 /* When comparing, say, char ** to char const **, this function takes
7241    the 'char *' and 'char const *'.  Do not pass non-pointer/reference
7242    types to this function.  */
7243
7244 int
7245 comp_ptr_ttypes (tree to, tree from)
7246 {
7247   return comp_ptr_ttypes_real (to, from, 1);
7248 }
7249
7250 /* Returns 1 if to and from are (possibly multi-level) pointers to the same
7251    type or inheritance-related types, regardless of cv-quals.  */
7252
7253 int
7254 ptr_reasonably_similar (const_tree to, const_tree from)
7255 {
7256   for (; ; to = TREE_TYPE (to), from = TREE_TYPE (from))
7257     {
7258       /* Any target type is similar enough to void.  */
7259       if (TREE_CODE (to) == VOID_TYPE
7260           || TREE_CODE (from) == VOID_TYPE)
7261         return 1;
7262
7263       if (TREE_CODE (to) != TREE_CODE (from))
7264         return 0;
7265
7266       if (TREE_CODE (from) == OFFSET_TYPE
7267           && comptypes (TYPE_OFFSET_BASETYPE (to),
7268                         TYPE_OFFSET_BASETYPE (from),
7269                         COMPARE_BASE | COMPARE_DERIVED))
7270         continue;
7271
7272       if (TREE_CODE (to) == VECTOR_TYPE
7273           && vector_types_convertible_p (to, from, false))
7274         return 1;
7275
7276       if (TREE_CODE (to) == INTEGER_TYPE
7277           && TYPE_PRECISION (to) == TYPE_PRECISION (from))
7278         return 1;
7279
7280       if (TREE_CODE (to) == FUNCTION_TYPE)
7281         return 1;
7282
7283       if (TREE_CODE (to) != POINTER_TYPE)
7284         return comptypes
7285           (TYPE_MAIN_VARIANT (to), TYPE_MAIN_VARIANT (from),
7286            COMPARE_BASE | COMPARE_DERIVED);
7287     }
7288 }
7289
7290 /* Return true if TO and FROM (both of which are POINTER_TYPEs or
7291    pointer-to-member types) are the same, ignoring cv-qualification at
7292    all levels.  */
7293
7294 bool
7295 comp_ptr_ttypes_const (tree to, tree from)
7296 {
7297   bool is_opaque_pointer = false;
7298
7299   for (; ; to = TREE_TYPE (to), from = TREE_TYPE (from))
7300     {
7301       if (TREE_CODE (to) != TREE_CODE (from))
7302         return false;
7303
7304       if (TREE_CODE (from) == OFFSET_TYPE
7305           && same_type_p (TYPE_OFFSET_BASETYPE (from),
7306                           TYPE_OFFSET_BASETYPE (to)))
7307           continue;
7308
7309       if (TREE_CODE (to) == VECTOR_TYPE)
7310         is_opaque_pointer = vector_targets_convertible_p (to, from);
7311
7312       if (TREE_CODE (to) != POINTER_TYPE)
7313         return (is_opaque_pointer
7314                 || same_type_ignoring_top_level_qualifiers_p (to, from));
7315     }
7316 }
7317
7318 /* Returns the type qualifiers for this type, including the qualifiers on the
7319    elements for an array type.  */
7320
7321 int
7322 cp_type_quals (const_tree type)
7323 {
7324   /* This CONST_CAST is okay because strip_array_types returns its
7325      argument unmodified and we assign it to a const_tree.  */
7326   type = strip_array_types (CONST_CAST_TREE(type));
7327   if (type == error_mark_node)
7328     return TYPE_UNQUALIFIED;
7329   return TYPE_QUALS (type);
7330 }
7331
7332 /* Returns nonzero if the TYPE is const from a C++ perspective: look inside
7333    arrays.  */
7334
7335 bool
7336 cp_type_readonly (const_tree type)
7337 {
7338   /* This CONST_CAST is okay because strip_array_types returns its
7339      argument unmodified and we assign it to a const_tree.  */
7340   type = strip_array_types (CONST_CAST_TREE(type));
7341   return TYPE_READONLY (type);
7342 }
7343
7344 /* Returns nonzero if the TYPE contains a mutable member.  */
7345
7346 bool
7347 cp_has_mutable_p (const_tree type)
7348 {
7349   /* This CONST_CAST is okay because strip_array_types returns its
7350      argument unmodified and we assign it to a const_tree.  */
7351   type = strip_array_types (CONST_CAST_TREE(type));
7352
7353   return CLASS_TYPE_P (type) && CLASSTYPE_HAS_MUTABLE (type);
7354 }
7355
7356 /* Set TREE_READONLY and TREE_VOLATILE on DECL as indicated by the
7357    TYPE_QUALS.  For a VAR_DECL, this may be an optimistic
7358    approximation.  In particular, consider:
7359
7360      int f();
7361      struct S { int i; };
7362      const S s = { f(); }
7363
7364    Here, we will make "s" as TREE_READONLY (because it is declared
7365    "const") -- only to reverse ourselves upon seeing that the
7366    initializer is non-constant.  */
7367
7368 void
7369 cp_apply_type_quals_to_decl (int type_quals, tree decl)
7370 {
7371   tree type = TREE_TYPE (decl);
7372
7373   if (type == error_mark_node)
7374     return;
7375
7376   if (TREE_CODE (decl) == TYPE_DECL)
7377     return;
7378
7379   if (TREE_CODE (type) == FUNCTION_TYPE
7380       && type_quals != TYPE_UNQUALIFIED)
7381     {
7382       /* This was an error in C++98 (cv-qualifiers cannot be added to
7383          a function type), but DR 295 makes the code well-formed by
7384          dropping the extra qualifiers. */
7385       if (pedantic)
7386         {
7387           tree bad_type = build_qualified_type (type, type_quals);
7388           pedwarn (input_location, OPT_pedantic,
7389                    "ignoring %qV qualifiers added to function type %qT",
7390                    bad_type, type);
7391         }
7392
7393       TREE_TYPE (decl) = TYPE_MAIN_VARIANT (type);
7394       return;
7395     }
7396
7397   /* Avoid setting TREE_READONLY incorrectly.  */
7398   if (/* If the object has a constructor, the constructor may modify
7399          the object.  */
7400       TYPE_NEEDS_CONSTRUCTING (type)
7401       /* If the type isn't complete, we don't know yet if it will need
7402          constructing.  */
7403       || !COMPLETE_TYPE_P (type)
7404       /* If the type has a mutable component, that component might be
7405          modified.  */
7406       || TYPE_HAS_MUTABLE_P (type))
7407     type_quals &= ~TYPE_QUAL_CONST;
7408
7409   c_apply_type_quals_to_decl (type_quals, decl);
7410 }
7411
7412 /* Subroutine of casts_away_constness.  Make T1 and T2 point at
7413    exemplar types such that casting T1 to T2 is casting away constness
7414    if and only if there is no implicit conversion from T1 to T2.  */
7415
7416 static void
7417 casts_away_constness_r (tree *t1, tree *t2)
7418 {
7419   int quals1;
7420   int quals2;
7421
7422   /* [expr.const.cast]
7423
7424      For multi-level pointer to members and multi-level mixed pointers
7425      and pointers to members (conv.qual), the "member" aspect of a
7426      pointer to member level is ignored when determining if a const
7427      cv-qualifier has been cast away.  */
7428   /* [expr.const.cast]
7429
7430      For  two  pointer types:
7431
7432             X1 is T1cv1,1 * ... cv1,N *   where T1 is not a pointer type
7433             X2 is T2cv2,1 * ... cv2,M *   where T2 is not a pointer type
7434             K is min(N,M)
7435
7436      casting from X1 to X2 casts away constness if, for a non-pointer
7437      type T there does not exist an implicit conversion (clause
7438      _conv_) from:
7439
7440             Tcv1,(N-K+1) * cv1,(N-K+2) * ... cv1,N *
7441
7442      to
7443
7444             Tcv2,(M-K+1) * cv2,(M-K+2) * ... cv2,M *.  */
7445   if ((!TYPE_PTR_P (*t1) && !TYPE_PTRMEM_P (*t1))
7446       || (!TYPE_PTR_P (*t2) && !TYPE_PTRMEM_P (*t2)))
7447     {
7448       *t1 = cp_build_qualified_type (void_type_node,
7449                                      cp_type_quals (*t1));
7450       *t2 = cp_build_qualified_type (void_type_node,
7451                                      cp_type_quals (*t2));
7452       return;
7453     }
7454
7455   quals1 = cp_type_quals (*t1);
7456   quals2 = cp_type_quals (*t2);
7457
7458   if (TYPE_PTRMEM_P (*t1))
7459     *t1 = TYPE_PTRMEM_POINTED_TO_TYPE (*t1);
7460   else
7461     *t1 = TREE_TYPE (*t1);
7462   if (TYPE_PTRMEM_P (*t2))
7463     *t2 = TYPE_PTRMEM_POINTED_TO_TYPE (*t2);
7464   else
7465     *t2 = TREE_TYPE (*t2);
7466
7467   casts_away_constness_r (t1, t2);
7468   *t1 = build_pointer_type (*t1);
7469   *t2 = build_pointer_type (*t2);
7470   *t1 = cp_build_qualified_type (*t1, quals1);
7471   *t2 = cp_build_qualified_type (*t2, quals2);
7472 }
7473
7474 /* Returns nonzero if casting from TYPE1 to TYPE2 casts away
7475    constness.
7476
7477    ??? This function returns non-zero if casting away qualifiers not
7478    just const.  We would like to return to the caller exactly which
7479    qualifiers are casted away to give more accurate diagnostics.
7480 */
7481
7482 static bool
7483 casts_away_constness (tree t1, tree t2)
7484 {
7485   if (TREE_CODE (t2) == REFERENCE_TYPE)
7486     {
7487       /* [expr.const.cast]
7488
7489          Casting from an lvalue of type T1 to an lvalue of type T2
7490          using a reference cast casts away constness if a cast from an
7491          rvalue of type "pointer to T1" to the type "pointer to T2"
7492          casts away constness.  */
7493       t1 = (TREE_CODE (t1) == REFERENCE_TYPE ? TREE_TYPE (t1) : t1);
7494       return casts_away_constness (build_pointer_type (t1),
7495                                    build_pointer_type (TREE_TYPE (t2)));
7496     }
7497
7498   if (TYPE_PTRMEM_P (t1) && TYPE_PTRMEM_P (t2))
7499     /* [expr.const.cast]
7500
7501        Casting from an rvalue of type "pointer to data member of X
7502        of type T1" to the type "pointer to data member of Y of type
7503        T2" casts away constness if a cast from an rvalue of type
7504        "pointer to T1" to the type "pointer to T2" casts away
7505        constness.  */
7506     return casts_away_constness
7507       (build_pointer_type (TYPE_PTRMEM_POINTED_TO_TYPE (t1)),
7508        build_pointer_type (TYPE_PTRMEM_POINTED_TO_TYPE (t2)));
7509
7510   /* Casting away constness is only something that makes sense for
7511      pointer or reference types.  */
7512   if (TREE_CODE (t1) != POINTER_TYPE
7513       || TREE_CODE (t2) != POINTER_TYPE)
7514     return false;
7515
7516   /* Top-level qualifiers don't matter.  */
7517   t1 = TYPE_MAIN_VARIANT (t1);
7518   t2 = TYPE_MAIN_VARIANT (t2);
7519   casts_away_constness_r (&t1, &t2);
7520   if (!can_convert (t2, t1))
7521     return true;
7522
7523   return false;
7524 }
7525
7526 /* If T is a REFERENCE_TYPE return the type to which T refers.
7527    Otherwise, return T itself.  */
7528
7529 tree
7530 non_reference (tree t)
7531 {
7532   if (TREE_CODE (t) == REFERENCE_TYPE)
7533     t = TREE_TYPE (t);
7534   return t;
7535 }
7536
7537
7538 /* Return nonzero if REF is an lvalue valid for this language;
7539    otherwise, print an error message and return zero.  USE says
7540    how the lvalue is being used and so selects the error message.  */
7541
7542 int
7543 lvalue_or_else (tree ref, enum lvalue_use use, tsubst_flags_t complain)
7544 {
7545   int win = lvalue_p (ref);
7546
7547   if (!win && (complain & tf_error))
7548     lvalue_error (use);
7549
7550   return win;
7551 }