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