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