gcc/cp/typeck.c

   1 /* Build expressions with type checking for C++ compiler.
   2    Copyright (C) 1987, 1988, 1989, 1992, 1993, 1994, 1995, 1996, 1997, 1998,
   3    1999, 2000, 2001, 2002, 2003, 2004, 2005 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, 51 Franklin Street, Fifth Floor,
  21 Boston, MA 02110-1301, 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 #include "c-common.h"
  45
  46 static tree convert_for_assignment (tree, tree, const char *, tree, int);
  47 static tree cp_pointer_int_sum (enum tree_code, tree, tree);
  48 static tree rationalize_conditional_expr (enum tree_code, tree);
  49 static int comp_ptr_ttypes_real (tree, tree, int);
  50 static int comp_ptr_ttypes_const (tree, tree);
  51 static bool comp_except_types (tree, tree, bool);
  52 static bool comp_array_types (tree, tree, bool);
  53 static tree common_base_type (tree, tree);
  54 static tree pointer_diff (tree, tree, tree);
  55 static tree get_delta_difference (tree, tree, bool, bool);
  56 static void casts_away_constness_r (tree *, tree *);
  57 static bool casts_away_constness (tree, tree);
  58 static void maybe_warn_about_returning_address_of_local (tree);
  59 static tree lookup_destructor (tree, tree, tree);
  60 static tree convert_arguments (tree, tree, tree, int);
  61
  62 /* Do `exp = require_complete_type (exp);' to make sure exp
  63    does not have an incomplete type.  (That includes void types.)
  64    Returns the error_mark_node if the VALUE does not have
  65    complete type when this function returns.  */
  66
  67 tree
  68 require_complete_type (tree value)
  69 {
  70   tree type;
  71
  72   if (processing_template_decl || value == error_mark_node)
  73     return value;
  74
  75   if (TREE_CODE (value) == OVERLOAD)
  76     type = unknown_type_node;
  77   else
  78     type = TREE_TYPE (value);
  79
  80   if (type == error_mark_node)
  81     return error_mark_node;
  82
  83   /* First, detect a valid value with a complete type.  */
  84   if (COMPLETE_TYPE_P (type))
  85     return value;
  86
  87   if (complete_type_or_else (type, value))
  88     return value;
  89   else
  90     return error_mark_node;
  91 }
  92
  93 /* Try to complete TYPE, if it is incomplete.  For example, if TYPE is
  94    a template instantiation, do the instantiation.  Returns TYPE,
  95    whether or not it could be completed, unless something goes
  96    horribly wrong, in which case the error_mark_node is returned.  */
  97
  98 tree
  99 complete_type (tree type)
 100 {
 101   if (type == NULL_TREE)
 102     /* Rather than crash, we return something sure to cause an error
 103        at some point.  */
 104     return error_mark_node;
 105
 106   if (type == error_mark_node || COMPLETE_TYPE_P (type))
 107     ;
 108   else if (TREE_CODE (type) == ARRAY_TYPE && TYPE_DOMAIN (type))
 109     {
 110       tree t = complete_type (TREE_TYPE (type));
 111       if (COMPLETE_TYPE_P (t) && !dependent_type_p (type))
 112         layout_type (type);
 113       TYPE_NEEDS_CONSTRUCTING (type)
 114         = TYPE_NEEDS_CONSTRUCTING (TYPE_MAIN_VARIANT (t));
 115       TYPE_HAS_NONTRIVIAL_DESTRUCTOR (type)
 116         = TYPE_HAS_NONTRIVIAL_DESTRUCTOR (TYPE_MAIN_VARIANT (t));
 117     }
 118   else if (CLASS_TYPE_P (type) && CLASSTYPE_TEMPLATE_INSTANTIATION (type))
 119     instantiate_class_template (TYPE_MAIN_VARIANT (type));
 120
 121   return type;
 122 }
 123
 124 /* Like complete_type, but issue an error if the TYPE cannot be completed.
 125    VALUE is used for informative diagnostics.
 126    Returns NULL_TREE if the type cannot be made complete.  */
 127
 128 tree
 129 complete_type_or_else (tree type, tree value)
 130 {
 131   type = complete_type (type);
 132   if (type == error_mark_node)
 133     /* We already issued an error.  */
 134     return NULL_TREE;
 135   else if (!COMPLETE_TYPE_P (type))
 136     {
 137       cxx_incomplete_type_diagnostic (value, type, 0);
 138       return NULL_TREE;
 139     }
 140   else
 141     return type;
 142 }
 143
 144 /* Return truthvalue of whether type of EXP is instantiated.  */
 145
 146 int
 147 type_unknown_p (tree exp)
 148 {
 149   return (TREE_CODE (exp) == TREE_LIST
 150           || TREE_TYPE (exp) == unknown_type_node);
 151 }
 152
 153 \f
 154 /* Return the common type of two parameter lists.
 155    We assume that comptypes has already been done and returned 1;
 156    if that isn't so, this may crash.
 157
 158    As an optimization, free the space we allocate if the parameter
 159    lists are already common.  */
 160
 161 static tree
 162 commonparms (tree p1, tree p2)
 163 {
 164   tree oldargs = p1, newargs, n;
 165   int i, len;
 166   int any_change = 0;
 167
 168   len = list_length (p1);
 169   newargs = tree_last (p1);
 170
 171   if (newargs == void_list_node)
 172     i = 1;
 173   else
 174     {
 175       i = 0;
 176       newargs = 0;
 177     }
 178
 179   for (; i < len; i++)
 180     newargs = tree_cons (NULL_TREE, NULL_TREE, newargs);
 181
 182   n = newargs;
 183
 184   for (i = 0; p1;
 185        p1 = TREE_CHAIN (p1), p2 = TREE_CHAIN (p2), n = TREE_CHAIN (n), i++)
 186     {
 187       if (TREE_PURPOSE (p1) && !TREE_PURPOSE (p2))
 188         {
 189           TREE_PURPOSE (n) = TREE_PURPOSE (p1);
 190           any_change = 1;
 191         }
 192       else if (! TREE_PURPOSE (p1))
 193         {
 194           if (TREE_PURPOSE (p2))
 195             {
 196               TREE_PURPOSE (n) = TREE_PURPOSE (p2);
 197               any_change = 1;
 198             }
 199         }
 200       else
 201         {
 202           if (1 != simple_cst_equal (TREE_PURPOSE (p1), TREE_PURPOSE (p2)))
 203             any_change = 1;
 204           TREE_PURPOSE (n) = TREE_PURPOSE (p2);
 205         }
 206       if (TREE_VALUE (p1) != TREE_VALUE (p2))
 207         {
 208           any_change = 1;
 209           TREE_VALUE (n) = merge_types (TREE_VALUE (p1), TREE_VALUE (p2));
 210         }
 211       else
 212         TREE_VALUE (n) = TREE_VALUE (p1);
 213     }
 214   if (! any_change)
 215     return oldargs;
 216
 217   return newargs;
 218 }
 219
 220 /* Given a type, perhaps copied for a typedef,
 221    find the "original" version of it.  */
 222 tree
 223 original_type (tree t)
 224 {
 225   while (TYPE_NAME (t) != NULL_TREE)
 226     {
 227       tree x = TYPE_NAME (t);
 228       if (TREE_CODE (x) != TYPE_DECL)
 229         break;
 230       x = DECL_ORIGINAL_TYPE (x);
 231       if (x == NULL_TREE)
 232         break;
 233       t = x;
 234     }
 235   return t;
 236 }
 237
 238 /* T1 and T2 are arithmetic or enumeration types.  Return the type
 239    that will result from the "usual arithmetic conversions" on T1 and
 240    T2 as described in [expr].  */
 241
 242 tree
 243 type_after_usual_arithmetic_conversions (tree t1, tree t2)
 244 {
 245   enum tree_code code1 = TREE_CODE (t1);
 246   enum tree_code code2 = TREE_CODE (t2);
 247   tree attributes;
 248
 249   /* FIXME: Attributes.  */
 250   gcc_assert (ARITHMETIC_TYPE_P (t1)
 251               || TREE_CODE (t1) == COMPLEX_TYPE
 252               || TREE_CODE (t1) == VECTOR_TYPE
 253               || TREE_CODE (t1) == ENUMERAL_TYPE);
 254   gcc_assert (ARITHMETIC_TYPE_P (t2)
 255               || TREE_CODE (t2) == COMPLEX_TYPE
 256               || TREE_CODE (t1) == VECTOR_TYPE
 257               || TREE_CODE (t2) == ENUMERAL_TYPE);
 258
 259   /* In what follows, we slightly generalize the rules given in [expr] so
 260      as to deal with `long long' and `complex'.  First, merge the
 261      attributes.  */
 262   attributes = (*targetm.merge_type_attributes) (t1, t2);
 263
 264   /* If one type is complex, form the common type of the non-complex
 265      components, then make that complex.  Use T1 or T2 if it is the
 266      required type.  */
 267   if (code1 == COMPLEX_TYPE || code2 == COMPLEX_TYPE)
 268     {
 269       tree subtype1 = code1 == COMPLEX_TYPE ? TREE_TYPE (t1) : t1;
 270       tree subtype2 = code2 == COMPLEX_TYPE ? TREE_TYPE (t2) : t2;
 271       tree subtype
 272         = type_after_usual_arithmetic_conversions (subtype1, subtype2);
 273
 274       if (code1 == COMPLEX_TYPE && TREE_TYPE (t1) == subtype)
 275         return build_type_attribute_variant (t1, attributes);
 276       else if (code2 == COMPLEX_TYPE && TREE_TYPE (t2) == subtype)
 277         return build_type_attribute_variant (t2, attributes);
 278       else
 279         return build_type_attribute_variant (build_complex_type (subtype),
 280                                              attributes);
 281     }
 282
 283   if (code1 == VECTOR_TYPE)
 284     {
 285       /* When we get here we should have two vectors of the same size.
 286          Just prefer the unsigned one if present.  */
 287       if (TYPE_UNSIGNED (t1))
 288         return build_type_attribute_variant (t1, attributes);
 289       else
 290         return build_type_attribute_variant (t2, attributes);
 291     }
 292
 293   /* If only one is real, use it as the result.  */
 294   if (code1 == REAL_TYPE && code2 != REAL_TYPE)
 295     return build_type_attribute_variant (t1, attributes);
 296   if (code2 == REAL_TYPE && code1 != REAL_TYPE)
 297     return build_type_attribute_variant (t2, attributes);
 298
 299   /* Perform the integral promotions.  */
 300   if (code1 != REAL_TYPE)
 301     {
 302       t1 = type_promotes_to (t1);
 303       t2 = type_promotes_to (t2);
 304     }
 305
 306   /* Both real or both integers; use the one with greater precision.  */
 307   if (TYPE_PRECISION (t1) > TYPE_PRECISION (t2))
 308     return build_type_attribute_variant (t1, attributes);
 309   else if (TYPE_PRECISION (t2) > TYPE_PRECISION (t1))
 310     return build_type_attribute_variant (t2, attributes);
 311
 312   /* The types are the same; no need to do anything fancy.  */
 313   if (TYPE_MAIN_VARIANT (t1) == TYPE_MAIN_VARIANT (t2))
 314     return build_type_attribute_variant (t1, attributes);
 315
 316   if (code1 != REAL_TYPE)
 317     {
 318       /* If one is a sizetype, use it so size_binop doesn't blow up.  */
 319       if (TYPE_IS_SIZETYPE (t1) > TYPE_IS_SIZETYPE (t2))
 320         return build_type_attribute_variant (t1, attributes);
 321       if (TYPE_IS_SIZETYPE (t2) > TYPE_IS_SIZETYPE (t1))
 322         return build_type_attribute_variant (t2, attributes);
 323
 324       /* If one is unsigned long long, then convert the other to unsigned
 325          long long.  */
 326       if (same_type_p (TYPE_MAIN_VARIANT (t1), long_long_unsigned_type_node)
 327           || same_type_p (TYPE_MAIN_VARIANT (t2), long_long_unsigned_type_node))
 328         return build_type_attribute_variant (long_long_unsigned_type_node,
 329                                              attributes);
 330       /* If one is a long long, and the other is an unsigned long, and
 331          long long can represent all the values of an unsigned long, then
 332          convert to a long long.  Otherwise, convert to an unsigned long
 333          long.  Otherwise, if either operand is long long, convert the
 334          other to long long.
 335
 336          Since we're here, we know the TYPE_PRECISION is the same;
 337          therefore converting to long long cannot represent all the values
 338          of an unsigned long, so we choose unsigned long long in that
 339          case.  */
 340       if (same_type_p (TYPE_MAIN_VARIANT (t1), long_long_integer_type_node)
 341           || same_type_p (TYPE_MAIN_VARIANT (t2), long_long_integer_type_node))
 342         {
 343           tree t = ((TYPE_UNSIGNED (t1) || TYPE_UNSIGNED (t2))
 344                     ? long_long_unsigned_type_node
 345                     : long_long_integer_type_node);
 346           return build_type_attribute_variant (t, attributes);
 347         }
 348
 349       /* Go through the same procedure, but for longs.  */
 350       if (same_type_p (TYPE_MAIN_VARIANT (t1), long_unsigned_type_node)
 351           || same_type_p (TYPE_MAIN_VARIANT (t2), long_unsigned_type_node))
 352         return build_type_attribute_variant (long_unsigned_type_node,
 353                                              attributes);
 354       if (same_type_p (TYPE_MAIN_VARIANT (t1), long_integer_type_node)
 355           || same_type_p (TYPE_MAIN_VARIANT (t2), long_integer_type_node))
 356         {
 357           tree t = ((TYPE_UNSIGNED (t1) || TYPE_UNSIGNED (t2))
 358                     ? long_unsigned_type_node : long_integer_type_node);
 359           return build_type_attribute_variant (t, attributes);
 360         }
 361       /* Otherwise prefer the unsigned one.  */
 362       if (TYPE_UNSIGNED (t1))
 363         return build_type_attribute_variant (t1, attributes);
 364       else
 365         return build_type_attribute_variant (t2, attributes);
 366     }
 367   else
 368     {
 369       if (same_type_p (TYPE_MAIN_VARIANT (t1), long_double_type_node)
 370           || same_type_p (TYPE_MAIN_VARIANT (t2), long_double_type_node))
 371         return build_type_attribute_variant (long_double_type_node,
 372                                              attributes);
 373       if (same_type_p (TYPE_MAIN_VARIANT (t1), double_type_node)
 374           || same_type_p (TYPE_MAIN_VARIANT (t2), double_type_node))
 375         return build_type_attribute_variant (double_type_node,
 376                                              attributes);
 377       if (same_type_p (TYPE_MAIN_VARIANT (t1), float_type_node)
 378           || same_type_p (TYPE_MAIN_VARIANT (t2), float_type_node))
 379         return build_type_attribute_variant (float_type_node,
 380                                              attributes);
 381
 382       /* Two floating-point types whose TYPE_MAIN_VARIANTs are none of
 383          the standard C++ floating-point types.  Logic earlier in this
 384          function has already eliminated the possibility that
 385          TYPE_PRECISION (t2) != TYPE_PRECISION (t1), so there's no
 386          compelling reason to choose one or the other.  */
 387       return build_type_attribute_variant (t1, attributes);
 388     }
 389 }
 390
 391 /* Subroutine of composite_pointer_type to implement the recursive
 392    case.  See that function for documentation fo the parameters.  */
 393
 394 static tree
 395 composite_pointer_type_r (tree t1, tree t2, const char* location)
 396 {
 397   tree pointee1;
 398   tree pointee2;
 399   tree result_type;
 400   tree attributes;
 401
 402   /* Determine the types pointed to by T1 and T2.  */
 403   if (TREE_CODE (t1) == POINTER_TYPE)
 404     {
 405       pointee1 = TREE_TYPE (t1);
 406       pointee2 = TREE_TYPE (t2);
 407     }
 408   else
 409     {
 410       pointee1 = TYPE_PTRMEM_POINTED_TO_TYPE (t1);
 411       pointee2 = TYPE_PTRMEM_POINTED_TO_TYPE (t2);
 412     }
 413
 414   /* [expr.rel]
 415
 416      Otherwise, the composite pointer type is a pointer type
 417      similar (_conv.qual_) to the type of one of the operands,
 418      with a cv-qualification signature (_conv.qual_) that is the
 419      union of the cv-qualification signatures of the operand
 420      types.  */
 421   if (same_type_ignoring_top_level_qualifiers_p (pointee1, pointee2))
 422     result_type = pointee1;
 423   else if ((TREE_CODE (pointee1) == POINTER_TYPE
 424             && TREE_CODE (pointee2) == POINTER_TYPE)
 425            || (TYPE_PTR_TO_MEMBER_P (pointee1)
 426                && TYPE_PTR_TO_MEMBER_P (pointee2)))
 427     result_type = composite_pointer_type_r (pointee1, pointee2, location);
 428   else
 429     {
 430       pedwarn ("%s between distinct pointer types %qT and %qT "
 431                "lacks a cast",
 432                location, t1, t2);
 433       result_type = void_type_node;
 434     }
 435   result_type = cp_build_qualified_type (result_type,
 436                                          (cp_type_quals (pointee1)
 437                                           | cp_type_quals (pointee2)));
 438   /* If the original types were pointers to members, so is the
 439      result.  */
 440   if (TYPE_PTR_TO_MEMBER_P (t1))
 441     {
 442       if (!same_type_p (TYPE_PTRMEM_CLASS_TYPE (t1),
 443                         TYPE_PTRMEM_CLASS_TYPE (t2)))
 444         pedwarn ("%s between distinct pointer types %qT and %qT "
 445                  "lacks a cast",
 446                  location, t1, t2);
 447       result_type = build_ptrmem_type (TYPE_PTRMEM_CLASS_TYPE (t1),
 448                                        result_type);
 449     }
 450   else
 451     result_type = build_pointer_type (result_type);
 452
 453   /* Merge the attributes.  */
 454   attributes = (*targetm.merge_type_attributes) (t1, t2);
 455   return build_type_attribute_variant (result_type, attributes);
 456 }
 457
 458 /* Return the composite pointer type (see [expr.rel]) for T1 and T2.
 459    ARG1 and ARG2 are the values with those types.  The LOCATION is a
 460    string describing the current location, in case an error occurs.
 461
 462    This routine also implements the computation of a common type for
 463    pointers-to-members as per [expr.eq].  */
 464
 465 tree
 466 composite_pointer_type (tree t1, tree t2, tree arg1, tree arg2,
 467                         const char* location)
 468 {
 469   tree class1;
 470   tree class2;
 471
 472   /* [expr.rel]
 473
 474      If one operand is a null pointer constant, the composite pointer
 475      type is the type of the other operand.  */
 476   if (null_ptr_cst_p (arg1))
 477     return t2;
 478   if (null_ptr_cst_p (arg2))
 479     return t1;
 480
 481   /* We have:
 482
 483        [expr.rel]
 484
 485        If one of the operands has type "pointer to cv1 void*", then
 486        the other has type "pointer to cv2T", and the composite pointer
 487        type is "pointer to cv12 void", where cv12 is the union of cv1
 488        and cv2.
 489
 490     If either type is a pointer to void, make sure it is T1.  */
 491   if (TREE_CODE (t2) == POINTER_TYPE && VOID_TYPE_P (TREE_TYPE (t2)))
 492     {
 493       tree t;
 494       t = t1;
 495       t1 = t2;
 496       t2 = t;
 497     }
 498
 499   /* Now, if T1 is a pointer to void, merge the qualifiers.  */
 500   if (TREE_CODE (t1) == POINTER_TYPE && VOID_TYPE_P (TREE_TYPE (t1)))
 501     {
 502       tree attributes;
 503       tree result_type;
 504
 505       if (pedantic && TYPE_PTRFN_P (t2))
 506         pedwarn ("ISO C++ forbids %s between pointer of type %<void *%> "
 507                  "and pointer-to-function", location);
 508       result_type
 509         = cp_build_qualified_type (void_type_node,
 510                                    (cp_type_quals (TREE_TYPE (t1))
 511                                     | cp_type_quals (TREE_TYPE (t2))));
 512       result_type = build_pointer_type (result_type);
 513       /* Merge the attributes.  */
 514       attributes = (*targetm.merge_type_attributes) (t1, t2);
 515       return build_type_attribute_variant (result_type, attributes);
 516     }
 517
 518   if (c_dialect_objc () && TREE_CODE (t1) == POINTER_TYPE
 519       && TREE_CODE (t2) == POINTER_TYPE)
 520     {
 521       if (objc_compare_types (t1, t2, -3, NULL_TREE))
 522         return t1;
 523     }
 524
 525   /* [expr.eq] permits the application of a pointer conversion to
 526      bring the pointers to a common type.  */
 527   if (TREE_CODE (t1) == POINTER_TYPE && TREE_CODE (t2) == POINTER_TYPE
 528       && CLASS_TYPE_P (TREE_TYPE (t1))
 529       && CLASS_TYPE_P (TREE_TYPE (t2))
 530       && !same_type_ignoring_top_level_qualifiers_p (TREE_TYPE (t1),
 531                                                      TREE_TYPE (t2)))
 532     {
 533       class1 = TREE_TYPE (t1);
 534       class2 = TREE_TYPE (t2);
 535
 536       if (DERIVED_FROM_P (class1, class2))
 537         t2 = (build_pointer_type
 538               (cp_build_qualified_type (class1, TYPE_QUALS (class2))));
 539       else if (DERIVED_FROM_P (class2, class1))
 540         t1 = (build_pointer_type
 541               (cp_build_qualified_type (class2, TYPE_QUALS (class1))));
 542       else
 543         {
 544           error ("%s between distinct pointer types %qT and %qT "
 545                  "lacks a cast", location, t1, t2);
 546           return error_mark_node;
 547         }
 548     }
 549   /* [expr.eq] permits the application of a pointer-to-member
 550      conversion to change the class type of one of the types.  */
 551   else if (TYPE_PTR_TO_MEMBER_P (t1)
 552            && !same_type_p (TYPE_PTRMEM_CLASS_TYPE (t1),
 553                             TYPE_PTRMEM_CLASS_TYPE (t2)))
 554     {
 555       class1 = TYPE_PTRMEM_CLASS_TYPE (t1);
 556       class2 = TYPE_PTRMEM_CLASS_TYPE (t2);
 557
 558       if (DERIVED_FROM_P (class1, class2))
 559         t1 = build_ptrmem_type (class2, TYPE_PTRMEM_POINTED_TO_TYPE (t1));
 560       else if (DERIVED_FROM_P (class2, class1))
 561         t2 = build_ptrmem_type (class1, TYPE_PTRMEM_POINTED_TO_TYPE (t2));
 562       else
 563         {
 564           error ("%s between distinct pointer-to-member types %qT and %qT "
 565                  "lacks a cast", location, t1, t2);
 566           return error_mark_node;
 567         }
 568     }
 569
 570   return composite_pointer_type_r (t1, t2, location);
 571 }
 572
 573 /* Return the merged type of two types.
 574    We assume that comptypes has already been done and returned 1;
 575    if that isn't so, this may crash.
 576
 577    This just combines attributes and default arguments; any other
 578    differences would cause the two types to compare unalike.  */
 579
 580 tree
 581 merge_types (tree t1, tree t2)
 582 {
 583   enum tree_code code1;
 584   enum tree_code code2;
 585   tree attributes;
 586
 587   /* Save time if the two types are the same.  */
 588   if (t1 == t2)
 589     return t1;
 590   if (original_type (t1) == original_type (t2))
 591     return t1;
 592
 593   /* If one type is nonsense, use the other.  */
 594   if (t1 == error_mark_node)
 595     return t2;
 596   if (t2 == error_mark_node)
 597     return t1;
 598
 599   /* Merge the attributes.  */
 600   attributes = (*targetm.merge_type_attributes) (t1, t2);
 601
 602   if (TYPE_PTRMEMFUNC_P (t1))
 603     t1 = TYPE_PTRMEMFUNC_FN_TYPE (t1);
 604   if (TYPE_PTRMEMFUNC_P (t2))
 605     t2 = TYPE_PTRMEMFUNC_FN_TYPE (t2);
 606
 607   code1 = TREE_CODE (t1);
 608   code2 = TREE_CODE (t2);
 609
 610   switch (code1)
 611     {
 612     case POINTER_TYPE:
 613     case REFERENCE_TYPE:
 614       /* For two pointers, do this recursively on the target type.  */
 615       {
 616         tree target = merge_types (TREE_TYPE (t1), TREE_TYPE (t2));
 617         int quals = cp_type_quals (t1);
 618
 619         if (code1 == POINTER_TYPE)
 620           t1 = build_pointer_type (target);
 621         else
 622           t1 = build_reference_type (target);
 623         t1 = build_type_attribute_variant (t1, attributes);
 624         t1 = cp_build_qualified_type (t1, quals);
 625
 626         if (TREE_CODE (target) == METHOD_TYPE)
 627           t1 = build_ptrmemfunc_type (t1);
 628
 629         return t1;
 630       }
 631
 632     case OFFSET_TYPE:
 633       {
 634         int quals;
 635         tree pointee;
 636         quals = cp_type_quals (t1);
 637         pointee = merge_types (TYPE_PTRMEM_POINTED_TO_TYPE (t1),
 638                                TYPE_PTRMEM_POINTED_TO_TYPE (t2));
 639         t1 = build_ptrmem_type (TYPE_PTRMEM_CLASS_TYPE (t1),
 640                                 pointee);
 641         t1 = cp_build_qualified_type (t1, quals);
 642         break;
 643       }
 644
 645     case ARRAY_TYPE:
 646       {
 647         tree elt = merge_types (TREE_TYPE (t1), TREE_TYPE (t2));
 648         /* Save space: see if the result is identical to one of the args.  */
 649         if (elt == TREE_TYPE (t1) && TYPE_DOMAIN (t1))
 650           return build_type_attribute_variant (t1, attributes);
 651         if (elt == TREE_TYPE (t2) && TYPE_DOMAIN (t2))
 652           return build_type_attribute_variant (t2, attributes);
 653         /* Merge the element types, and have a size if either arg has one.  */
 654         t1 = build_cplus_array_type
 655           (elt, TYPE_DOMAIN (TYPE_DOMAIN (t1) ? t1 : t2));
 656         break;
 657       }
 658
 659     case FUNCTION_TYPE:
 660       /* Function types: prefer the one that specified arg types.
 661          If both do, merge the arg types.  Also merge the return types.  */
 662       {
 663         tree valtype = merge_types (TREE_TYPE (t1), TREE_TYPE (t2));
 664         tree p1 = TYPE_ARG_TYPES (t1);
 665         tree p2 = TYPE_ARG_TYPES (t2);
 666         tree rval, raises;
 667
 668         /* Save space: see if the result is identical to one of the args.  */
 669         if (valtype == TREE_TYPE (t1) && ! p2)
 670           return cp_build_type_attribute_variant (t1, attributes);
 671         if (valtype == TREE_TYPE (t2) && ! p1)
 672           return cp_build_type_attribute_variant (t2, attributes);
 673
 674         /* Simple way if one arg fails to specify argument types.  */
 675         if (p1 == NULL_TREE || TREE_VALUE (p1) == void_type_node)
 676           {
 677             rval = build_function_type (valtype, p2);
 678             if ((raises = TYPE_RAISES_EXCEPTIONS (t2)))
 679               rval = build_exception_variant (rval, raises);
 680             return cp_build_type_attribute_variant (rval, attributes);
 681           }
 682         raises = TYPE_RAISES_EXCEPTIONS (t1);
 683         if (p2 == NULL_TREE || TREE_VALUE (p2) == void_type_node)
 684           {
 685             rval = build_function_type (valtype, p1);
 686             if (raises)
 687               rval = build_exception_variant (rval, raises);
 688             return cp_build_type_attribute_variant (rval, attributes);
 689           }
 690
 691         rval = build_function_type (valtype, commonparms (p1, p2));
 692         t1 = build_exception_variant (rval, raises);
 693         break;
 694       }
 695
 696     case METHOD_TYPE:
 697       {
 698         /* Get this value the long way, since TYPE_METHOD_BASETYPE
 699            is just the main variant of this.  */
 700         tree basetype = TREE_TYPE (TREE_VALUE (TYPE_ARG_TYPES (t2)));
 701         tree raises = TYPE_RAISES_EXCEPTIONS (t1);
 702         tree t3;
 703
 704         /* If this was a member function type, get back to the
 705            original type of type member function (i.e., without
 706            the class instance variable up front.  */
 707         t1 = build_function_type (TREE_TYPE (t1),
 708                                   TREE_CHAIN (TYPE_ARG_TYPES (t1)));
 709         t2 = build_function_type (TREE_TYPE (t2),
 710                                   TREE_CHAIN (TYPE_ARG_TYPES (t2)));
 711         t3 = merge_types (t1, t2);
 712         t3 = build_method_type_directly (basetype, TREE_TYPE (t3),
 713                                          TYPE_ARG_TYPES (t3));
 714         t1 = build_exception_variant (t3, raises);
 715         break;
 716       }
 717
 718     case TYPENAME_TYPE:
 719       /* There is no need to merge attributes into a TYPENAME_TYPE.
 720          When the type is instantiated it will have whatever
 721          attributes result from the instantiation.  */
 722       return t1;
 723
 724     default:;
 725     }
 726   return cp_build_type_attribute_variant (t1, attributes);
 727 }
 728
 729 /* Return the common type of two types.
 730    We assume that comptypes has already been done and returned 1;
 731    if that isn't so, this may crash.
 732
 733    This is the type for the result of most arithmetic operations
 734    if the operands have the given two types.  */
 735
 736 tree
 737 common_type (tree t1, tree t2)
 738 {
 739   enum tree_code code1;
 740   enum tree_code code2;
 741
 742   /* If one type is nonsense, bail.  */
 743   if (t1 == error_mark_node || t2 == error_mark_node)
 744     return error_mark_node;
 745
 746   code1 = TREE_CODE (t1);
 747   code2 = TREE_CODE (t2);
 748
 749   if ((ARITHMETIC_TYPE_P (t1) || code1 == ENUMERAL_TYPE
 750        || code1 == COMPLEX_TYPE || code1 == VECTOR_TYPE)
 751       && (ARITHMETIC_TYPE_P (t2) || code2 == ENUMERAL_TYPE
 752           || code2 == COMPLEX_TYPE || code2 == VECTOR_TYPE))
 753     return type_after_usual_arithmetic_conversions (t1, t2);
 754
 755   else if ((TYPE_PTR_P (t1) && TYPE_PTR_P (t2))
 756            || (TYPE_PTRMEM_P (t1) && TYPE_PTRMEM_P (t2))
 757            || (TYPE_PTRMEMFUNC_P (t1) && TYPE_PTRMEMFUNC_P (t2)))
 758     return composite_pointer_type (t1, t2, error_mark_node, error_mark_node,
 759                                    "conversion");
 760   else
 761     gcc_unreachable ();
 762 }
 763 \f
 764 /* Compare two exception specifier types for exactness or subsetness, if
 765    allowed. Returns false for mismatch, true for match (same, or
 766    derived and !exact).
 767
 768    [except.spec] "If a class X ... objects of class X or any class publicly
 769    and unambiguously derived from X. Similarly, if a pointer type Y * ...
 770    exceptions of type Y * or that are pointers to any type publicly and
 771    unambiguously derived from Y. Otherwise a function only allows exceptions
 772    that have the same type ..."
 773    This does not mention cv qualifiers and is different to what throw
 774    [except.throw] and catch [except.catch] will do. They will ignore the
 775    top level cv qualifiers, and allow qualifiers in the pointer to class
 776    example.
 777
 778    We implement the letter of the standard.  */
 779
 780 static bool
 781 comp_except_types (tree a, tree b, bool exact)
 782 {
 783   if (same_type_p (a, b))
 784     return true;
 785   else if (!exact)
 786     {
 787       if (cp_type_quals (a) || cp_type_quals (b))
 788         return false;
 789
 790       if (TREE_CODE (a) == POINTER_TYPE
 791           && TREE_CODE (b) == POINTER_TYPE)
 792         {
 793           a = TREE_TYPE (a);
 794           b = TREE_TYPE (b);
 795           if (cp_type_quals (a) || cp_type_quals (b))
 796             return false;
 797         }
 798
 799       if (TREE_CODE (a) != RECORD_TYPE
 800           || TREE_CODE (b) != RECORD_TYPE)
 801         return false;
 802
 803       if (PUBLICLY_UNIQUELY_DERIVED_P (a, b))
 804         return true;
 805     }
 806   return false;
 807 }
 808
 809 /* Return true if TYPE1 and TYPE2 are equivalent exception specifiers.
 810    If EXACT is false, T2 can be stricter than T1 (according to 15.4/7),
 811    otherwise it must be exact. Exception lists are unordered, but
 812    we've already filtered out duplicates. Most lists will be in order,
 813    we should try to make use of that.  */
 814
 815 bool
 816 comp_except_specs (tree t1, tree t2, bool exact)
 817 {
 818   tree probe;
 819   tree base;
 820   int  length = 0;
 821
 822   if (t1 == t2)
 823     return true;
 824
 825   if (t1 == NULL_TREE)                     /* T1 is ...  */
 826     return t2 == NULL_TREE || !exact;
 827   if (!TREE_VALUE (t1))                    /* t1 is EMPTY */
 828     return t2 != NULL_TREE && !TREE_VALUE (t2);
 829   if (t2 == NULL_TREE)                     /* T2 is ...  */
 830     return false;
 831   if (TREE_VALUE (t1) && !TREE_VALUE (t2)) /* T2 is EMPTY, T1 is not */
 832     return !exact;
 833
 834   /* Neither set is ... or EMPTY, make sure each part of T2 is in T1.
 835      Count how many we find, to determine exactness. For exact matching and
 836      ordered T1, T2, this is an O(n) operation, otherwise its worst case is
 837      O(nm).  */
 838   for (base = t1; t2 != NULL_TREE; t2 = TREE_CHAIN (t2))
 839     {
 840       for (probe = base; probe != NULL_TREE; probe = TREE_CHAIN (probe))
 841         {
 842           tree a = TREE_VALUE (probe);
 843           tree b = TREE_VALUE (t2);
 844
 845           if (comp_except_types (a, b, exact))
 846             {
 847               if (probe == base && exact)
 848                 base = TREE_CHAIN (probe);
 849               length++;
 850               break;
 851             }
 852         }
 853       if (probe == NULL_TREE)
 854         return false;
 855     }
 856   return !exact || base == NULL_TREE || length == list_length (t1);
 857 }
 858
 859 /* Compare the array types T1 and T2.  ALLOW_REDECLARATION is true if
 860    [] can match [size].  */
 861
 862 static bool
 863 comp_array_types (tree t1, tree t2, bool allow_redeclaration)
 864 {
 865   tree d1;
 866   tree d2;
 867   tree max1, max2;
 868
 869   if (t1 == t2)
 870     return true;
 871
 872   /* The type of the array elements must be the same.  */
 873   if (!same_type_p (TREE_TYPE (t1), TREE_TYPE (t2)))
 874     return false;
 875
 876   d1 = TYPE_DOMAIN (t1);
 877   d2 = TYPE_DOMAIN (t2);
 878
 879   if (d1 == d2)
 880     return true;
 881
 882   /* If one of the arrays is dimensionless, and the other has a
 883      dimension, they are of different types.  However, it is valid to
 884      write:
 885
 886        extern int a[];
 887        int a[3];
 888
 889      by [basic.link]:
 890
 891        declarations for an array object can specify
 892        array types that differ by the presence or absence of a major
 893        array bound (_dcl.array_).  */
 894   if (!d1 || !d2)
 895     return allow_redeclaration;
 896
 897   /* Check that the dimensions are the same.  */
 898
 899   if (!cp_tree_equal (TYPE_MIN_VALUE (d1), TYPE_MIN_VALUE (d2)))
 900     return false;
 901   max1 = TYPE_MAX_VALUE (d1);
 902   max2 = TYPE_MAX_VALUE (d2);
 903   if (processing_template_decl && !abi_version_at_least (2)
 904       && !value_dependent_expression_p (max1)
 905       && !value_dependent_expression_p (max2))
 906     {
 907       /* With abi-1 we do not fold non-dependent array bounds, (and
 908          consequently mangle them incorrectly).  We must therefore
 909          fold them here, to verify the domains have the same
 910          value.  */
 911       max1 = fold (max1);
 912       max2 = fold (max2);
 913     }
 914
 915   if (!cp_tree_equal (max1, max2))
 916     return false;
 917
 918   return true;
 919 }
 920
 921 /* Return true if T1 and T2 are related as allowed by STRICT.  STRICT
 922    is a bitwise-or of the COMPARE_* flags.  */
 923
 924 bool
 925 comptypes (tree t1, tree t2, int strict)
 926 {
 927   if (t1 == t2)
 928     return true;
 929
 930   /* Suppress errors caused by previously reported errors.  */
 931   if (t1 == error_mark_node || t2 == error_mark_node)
 932     return false;
 933
 934   gcc_assert (TYPE_P (t1) && TYPE_P (t2));
 935
 936   /* TYPENAME_TYPEs should be resolved if the qualifying scope is the
 937      current instantiation.  */
 938   if (TREE_CODE (t1) == TYPENAME_TYPE)
 939     {
 940       tree resolved = resolve_typename_type (t1, /*only_current_p=*/true);
 941
 942       if (resolved != error_mark_node)
 943         t1 = resolved;
 944     }
 945
 946   if (TREE_CODE (t2) == TYPENAME_TYPE)
 947     {
 948       tree resolved = resolve_typename_type (t2, /*only_current_p=*/true);
 949
 950       if (resolved != error_mark_node)
 951         t2 = resolved;
 952     }
 953
 954   /* If either type is the internal version of sizetype, use the
 955      language version.  */
 956   if (TREE_CODE (t1) == INTEGER_TYPE && TYPE_IS_SIZETYPE (t1)
 957       && TYPE_ORIG_SIZE_TYPE (t1))
 958     t1 = TYPE_ORIG_SIZE_TYPE (t1);
 959
 960   if (TREE_CODE (t2) == INTEGER_TYPE && TYPE_IS_SIZETYPE (t2)
 961       && TYPE_ORIG_SIZE_TYPE (t2))
 962     t2 = TYPE_ORIG_SIZE_TYPE (t2);
 963
 964   if (TYPE_PTRMEMFUNC_P (t1))
 965     t1 = TYPE_PTRMEMFUNC_FN_TYPE (t1);
 966   if (TYPE_PTRMEMFUNC_P (t2))
 967     t2 = TYPE_PTRMEMFUNC_FN_TYPE (t2);
 968
 969   /* Different classes of types can't be compatible.  */
 970   if (TREE_CODE (t1) != TREE_CODE (t2))
 971     return false;
 972
 973   /* Qualifiers must match.  For array types, we will check when we
 974      recur on the array element types.  */
 975   if (TREE_CODE (t1) != ARRAY_TYPE
 976       && TYPE_QUALS (t1) != TYPE_QUALS (t2))
 977     return false;
 978   if (TYPE_FOR_JAVA (t1) != TYPE_FOR_JAVA (t2))
 979     return false;
 980
 981   /* Allow for two different type nodes which have essentially the same
 982      definition.  Note that we already checked for equality of the type
 983      qualifiers (just above).  */
 984
 985   if (TREE_CODE (t1) != ARRAY_TYPE
 986       && TYPE_MAIN_VARIANT (t1) == TYPE_MAIN_VARIANT (t2))
 987     return true;
 988
 989   /* Compare the types.  Break out if they could be the same.  */
 990   switch (TREE_CODE (t1))
 991     {
 992     case TEMPLATE_TEMPLATE_PARM:
 993     case BOUND_TEMPLATE_TEMPLATE_PARM:
 994       if (TEMPLATE_TYPE_IDX (t1) != TEMPLATE_TYPE_IDX (t2)
 995           || TEMPLATE_TYPE_LEVEL (t1) != TEMPLATE_TYPE_LEVEL (t2))
 996         return false;
 997       if (!comp_template_parms
 998           (DECL_TEMPLATE_PARMS (TEMPLATE_TEMPLATE_PARM_TEMPLATE_DECL (t1)),
 999            DECL_TEMPLATE_PARMS (TEMPLATE_TEMPLATE_PARM_TEMPLATE_DECL (t2))))
1000         return false;
1001       if (TREE_CODE (t1) == TEMPLATE_TEMPLATE_PARM)
1002         break;
1003       /* Don't check inheritance.  */
1004       strict = COMPARE_STRICT;
1005       /* Fall through.  */
1006
1007     case RECORD_TYPE:
1008     case UNION_TYPE:
1009       if (TYPE_TEMPLATE_INFO (t1) && TYPE_TEMPLATE_INFO (t2)
1010           && (TYPE_TI_TEMPLATE (t1) == TYPE_TI_TEMPLATE (t2)
1011               || TREE_CODE (t1) == BOUND_TEMPLATE_TEMPLATE_PARM)
1012           && comp_template_args (TYPE_TI_ARGS (t1), TYPE_TI_ARGS (t2)))
1013         break;
1014
1015       if ((strict & COMPARE_BASE) && DERIVED_FROM_P (t1, t2))
1016         break;
1017       else if ((strict & COMPARE_DERIVED) && DERIVED_FROM_P (t2, t1))
1018         break;
1019
1020       return false;
1021
1022     case OFFSET_TYPE:
1023       if (!comptypes (TYPE_OFFSET_BASETYPE (t1), TYPE_OFFSET_BASETYPE (t2),
1024                       strict & ~COMPARE_REDECLARATION))
1025         return false;
1026       if (!same_type_p (TREE_TYPE (t1), TREE_TYPE (t2)))
1027         return false;
1028       break;
1029
1030     case POINTER_TYPE:
1031     case REFERENCE_TYPE:
1032       if (TYPE_MODE (t1) != TYPE_MODE (t2)
1033           || TYPE_REF_CAN_ALIAS_ALL (t1) != TYPE_REF_CAN_ALIAS_ALL (t2)
1034           || !same_type_p (TREE_TYPE (t1), TREE_TYPE (t2)))
1035         return false;
1036       break;
1037
1038     case METHOD_TYPE:
1039     case FUNCTION_TYPE:
1040       if (!same_type_p (TREE_TYPE (t1), TREE_TYPE (t2)))
1041         return false;
1042       if (!compparms (TYPE_ARG_TYPES (t1), TYPE_ARG_TYPES (t2)))
1043         return false;
1044       break;
1045
1046     case ARRAY_TYPE:
1047       /* Target types must match incl. qualifiers.  */
1048       if (!comp_array_types (t1, t2, !!(strict & COMPARE_REDECLARATION)))
1049         return false;
1050       break;
1051
1052     case TEMPLATE_TYPE_PARM:
1053       if (TEMPLATE_TYPE_IDX (t1) != TEMPLATE_TYPE_IDX (t2)
1054           || TEMPLATE_TYPE_LEVEL (t1) != TEMPLATE_TYPE_LEVEL (t2))
1055         return false;
1056       break;
1057
1058     case TYPENAME_TYPE:
1059       if (!cp_tree_equal (TYPENAME_TYPE_FULLNAME (t1),
1060                           TYPENAME_TYPE_FULLNAME (t2)))
1061         return false;
1062       if (!same_type_p (TYPE_CONTEXT (t1), TYPE_CONTEXT (t2)))
1063         return false;
1064       break;
1065
1066     case UNBOUND_CLASS_TEMPLATE:
1067       if (!cp_tree_equal (TYPE_IDENTIFIER (t1), TYPE_IDENTIFIER (t2)))
1068         return false;
1069       if (!same_type_p (TYPE_CONTEXT (t1), TYPE_CONTEXT (t2)))
1070         return false;
1071       break;
1072
1073     case COMPLEX_TYPE:
1074       if (!same_type_p (TREE_TYPE (t1), TREE_TYPE (t2)))
1075         return false;
1076       break;
1077
1078     case VECTOR_TYPE:
1079       if (TYPE_VECTOR_SUBPARTS (t1) != TYPE_VECTOR_SUBPARTS (t2)
1080           || !same_type_p (TREE_TYPE (t1), TREE_TYPE (t2)))
1081         return false;
1082       break;
1083
1084     default:
1085       return false;
1086     }
1087
1088   /* If we get here, we know that from a target independent POV the
1089      types are the same.  Make sure the target attributes are also
1090      the same.  */
1091   return targetm.comp_type_attributes (t1, t2);
1092 }
1093
1094 /* Returns 1 if TYPE1 is at least as qualified as TYPE2.  */
1095
1096 bool
1097 at_least_as_qualified_p (tree type1, tree type2)
1098 {
1099   int q1 = cp_type_quals (type1);
1100   int q2 = cp_type_quals (type2);
1101
1102   /* All qualifiers for TYPE2 must also appear in TYPE1.  */
1103   return (q1 & q2) == q2;
1104 }
1105
1106 /* Returns 1 if TYPE1 is more cv-qualified than TYPE2, -1 if TYPE2 is
1107    more cv-qualified that TYPE1, and 0 otherwise.  */
1108
1109 int
1110 comp_cv_qualification (tree type1, tree type2)
1111 {
1112   int q1 = cp_type_quals (type1);
1113   int q2 = cp_type_quals (type2);
1114
1115   if (q1 == q2)
1116     return 0;
1117
1118   if ((q1 & q2) == q2)
1119     return 1;
1120   else if ((q1 & q2) == q1)
1121     return -1;
1122
1123   return 0;
1124 }
1125
1126 /* Returns 1 if the cv-qualification signature of TYPE1 is a proper
1127    subset of the cv-qualification signature of TYPE2, and the types
1128    are similar.  Returns -1 if the other way 'round, and 0 otherwise.  */
1129
1130 int
1131 comp_cv_qual_signature (tree type1, tree type2)
1132 {
1133   if (comp_ptr_ttypes_real (type2, type1, -1))
1134     return 1;
1135   else if (comp_ptr_ttypes_real (type1, type2, -1))
1136     return -1;
1137   else
1138     return 0;
1139 }
1140
1141 /* If two types share a common base type, return that basetype.
1142    If there is not a unique most-derived base type, this function
1143    returns ERROR_MARK_NODE.  */
1144
1145 static tree
1146 common_base_type (tree tt1, tree tt2)
1147 {
1148   tree best = NULL_TREE;
1149   int i;
1150
1151   /* If one is a baseclass of another, that's good enough.  */
1152   if (UNIQUELY_DERIVED_FROM_P (tt1, tt2))
1153     return tt1;
1154   if (UNIQUELY_DERIVED_FROM_P (tt2, tt1))
1155     return tt2;
1156
1157   /* Otherwise, try to find a unique baseclass of TT1
1158      that is shared by TT2, and follow that down.  */
1159   for (i = BINFO_N_BASE_BINFOS (TYPE_BINFO (tt1))-1; i >= 0; i--)
1160     {
1161       tree basetype = BINFO_TYPE (BINFO_BASE_BINFO (TYPE_BINFO (tt1), i));
1162       tree trial = common_base_type (basetype, tt2);
1163
1164       if (trial)
1165         {
1166           if (trial == error_mark_node)
1167             return trial;
1168           if (best == NULL_TREE)
1169             best = trial;
1170           else if (best != trial)
1171             return error_mark_node;
1172         }
1173     }
1174
1175   /* Same for TT2.  */
1176   for (i = BINFO_N_BASE_BINFOS (TYPE_BINFO (tt2))-1; i >= 0; i--)
1177     {
1178       tree basetype = BINFO_TYPE (BINFO_BASE_BINFO (TYPE_BINFO (tt2), i));
1179       tree trial = common_base_type (tt1, basetype);
1180
1181       if (trial)
1182         {
1183           if (trial == error_mark_node)
1184             return trial;
1185           if (best == NULL_TREE)
1186             best = trial;
1187           else if (best != trial)
1188             return error_mark_node;
1189         }
1190     }
1191   return best;
1192 }
1193 \f
1194 /* Subroutines of `comptypes'.  */
1195
1196 /* Return true if two parameter type lists PARMS1 and PARMS2 are
1197    equivalent in the sense that functions with those parameter types
1198    can have equivalent types.  The two lists must be equivalent,
1199    element by element.  */
1200
1201 bool
1202 compparms (tree parms1, tree parms2)
1203 {
1204   tree t1, t2;
1205
1206   /* An unspecified parmlist matches any specified parmlist
1207      whose argument types don't need default promotions.  */
1208
1209   for (t1 = parms1, t2 = parms2;
1210        t1 || t2;
1211        t1 = TREE_CHAIN (t1), t2 = TREE_CHAIN (t2))
1212     {
1213       /* If one parmlist is shorter than the other,
1214          they fail to match.  */
1215       if (!t1 || !t2)
1216         return false;
1217       if (!same_type_p (TREE_VALUE (t1), TREE_VALUE (t2)))
1218         return false;
1219     }
1220   return true;
1221 }
1222
1223 \f
1224 /* Process a sizeof or alignof expression where the operand is a
1225    type.  */
1226
1227 tree
1228 cxx_sizeof_or_alignof_type (tree type, enum tree_code op, bool complain)
1229 {
1230   enum tree_code type_code;
1231   tree value;
1232   const char *op_name;
1233
1234   gcc_assert (op == SIZEOF_EXPR || op == ALIGNOF_EXPR);
1235   if (type == error_mark_node)
1236     return error_mark_node;
1237
1238   if (dependent_type_p (type))
1239     {
1240       value = build_min (op, size_type_node, type);
1241       TREE_READONLY (value) = 1;
1242       return value;
1243     }
1244
1245   op_name = operator_name_info[(int) op].name;
1246
1247   type = non_reference (type);
1248   type_code = TREE_CODE (type);
1249
1250   if (type_code == METHOD_TYPE)
1251     {
1252       if (complain && (pedantic || warn_pointer_arith))
1253         pedwarn ("invalid application of %qs to a member function", op_name);
1254       value = size_one_node;
1255     }
1256   else
1257     value = c_sizeof_or_alignof_type (complete_type (type),
1258                                       op == SIZEOF_EXPR,
1259                                       complain);
1260
1261   return value;
1262 }
1263
1264 /* Process a sizeof or alignof expression where the operand is an
1265    expression.  */
1266
1267 tree
1268 cxx_sizeof_or_alignof_expr (tree e, enum tree_code op)
1269 {
1270   const char *op_name = operator_name_info[(int) op].name;
1271
1272   if (e == error_mark_node)
1273     return error_mark_node;
1274
1275   if (processing_template_decl)
1276     {
1277       e = build_min (op, size_type_node, e);
1278       TREE_SIDE_EFFECTS (e) = 0;
1279       TREE_READONLY (e) = 1;
1280
1281       return e;
1282     }
1283
1284   if (TREE_CODE (e) == COMPONENT_REF
1285       && TREE_CODE (TREE_OPERAND (e, 1)) == FIELD_DECL
1286       && DECL_C_BIT_FIELD (TREE_OPERAND (e, 1)))
1287     {
1288       error ("invalid application of %qs to a bit-field", op_name);
1289       e = char_type_node;
1290     }
1291   else if (is_overloaded_fn (e))
1292     {
1293       pedwarn ("ISO C++ forbids applying %qs to an expression of "
1294                "function type", op_name);
1295       e = char_type_node;
1296     }
1297   else if (type_unknown_p (e))
1298     {
1299       cxx_incomplete_type_error (e, TREE_TYPE (e));
1300       e = char_type_node;
1301     }
1302   else
1303     e = TREE_TYPE (e);
1304
1305   return cxx_sizeof_or_alignof_type (e, op, true);
1306 }
1307
1308 \f
1309 /* EXPR is being used in a context that is not a function call.
1310    Enforce:
1311
1312      [expr.ref]
1313
1314      The expression can be used only as the left-hand operand of a
1315      member function call.
1316
1317      [expr.mptr.operator]
1318
1319      If the result of .* or ->* is a function, then that result can be
1320      used only as the operand for the function call operator ().
1321
1322    by issuing an error message if appropriate.  Returns true iff EXPR
1323    violates these rules.  */
1324
1325 bool
1326 invalid_nonstatic_memfn_p (tree expr)
1327 {
1328   if (TREE_CODE (TREE_TYPE (expr)) == METHOD_TYPE)
1329     {
1330       error ("invalid use of non-static member function");
1331       return true;
1332     }
1333   return false;
1334 }
1335
1336 /* Perform the conversions in [expr] that apply when an lvalue appears
1337    in an rvalue context: the lvalue-to-rvalue, array-to-pointer, and
1338    function-to-pointer conversions.
1339
1340    In addition manifest constants are replaced by their values.  */
1341
1342 tree
1343 decay_conversion (tree exp)
1344 {
1345   tree type;
1346   enum tree_code code;
1347
1348   type = TREE_TYPE (exp);
1349   code = TREE_CODE (type);
1350
1351   if (type == error_mark_node)
1352     return error_mark_node;
1353
1354   if (type_unknown_p (exp))
1355     {
1356       cxx_incomplete_type_error (exp, TREE_TYPE (exp));
1357       return error_mark_node;
1358     }
1359
1360   exp = integral_constant_value (exp);
1361
1362   /* build_c_cast puts on a NOP_EXPR to make the result not an lvalue.
1363      Leave such NOP_EXPRs, since RHS is being used in non-lvalue context.  */
1364
1365   if (code == VOID_TYPE)
1366     {
1367       error ("void value not ignored as it ought to be");
1368       return error_mark_node;
1369     }
1370   if (invalid_nonstatic_memfn_p (exp))
1371     return error_mark_node;
1372   if (code == FUNCTION_TYPE || is_overloaded_fn (exp))
1373     return build_unary_op (ADDR_EXPR, exp, 0);
1374   if (code == ARRAY_TYPE)
1375     {
1376       tree adr;
1377       tree ptrtype;
1378
1379       if (TREE_CODE (exp) == INDIRECT_REF)
1380         return build_nop (build_pointer_type (TREE_TYPE (type)),
1381                           TREE_OPERAND (exp, 0));
1382
1383       if (TREE_CODE (exp) == COMPOUND_EXPR)
1384         {
1385           tree op1 = decay_conversion (TREE_OPERAND (exp, 1));
1386           return build2 (COMPOUND_EXPR, TREE_TYPE (op1),
1387                          TREE_OPERAND (exp, 0), op1);
1388         }
1389
1390       if (!lvalue_p (exp)
1391           && ! (TREE_CODE (exp) == CONSTRUCTOR && TREE_STATIC (exp)))
1392         {
1393           error ("invalid use of non-lvalue array");
1394           return error_mark_node;
1395         }
1396
1397       ptrtype = build_pointer_type (TREE_TYPE (type));
1398
1399       if (TREE_CODE (exp) == VAR_DECL)
1400         {
1401           if (!cxx_mark_addressable (exp))
1402             return error_mark_node;
1403           adr = build_nop (ptrtype, build_address (exp));
1404           return adr;
1405         }
1406       /* This way is better for a COMPONENT_REF since it can
1407          simplify the offset for a component.  */
1408       adr = build_unary_op (ADDR_EXPR, exp, 1);
1409       return cp_convert (ptrtype, adr);
1410     }
1411
1412   /* [basic.lval]: Class rvalues can have cv-qualified types; non-class
1413      rvalues always have cv-unqualified types.  */
1414   if (! CLASS_TYPE_P (type))
1415     exp = cp_convert (TYPE_MAIN_VARIANT (type), exp);
1416
1417   return exp;
1418 }
1419
1420 tree
1421 default_conversion (tree exp)
1422 {
1423   exp = decay_conversion (exp);
1424
1425   if (INTEGRAL_OR_ENUMERATION_TYPE_P (TREE_TYPE (exp)))
1426     exp = perform_integral_promotions (exp);
1427
1428   return exp;
1429 }
1430
1431 /* EXPR is an expression with an integral or enumeration type.
1432    Perform the integral promotions in [conv.prom], and return the
1433    converted value.  */
1434
1435 tree
1436 perform_integral_promotions (tree expr)
1437 {
1438   tree type;
1439   tree promoted_type;
1440
1441   type = TREE_TYPE (expr);
1442   gcc_assert (INTEGRAL_OR_ENUMERATION_TYPE_P (type));
1443   promoted_type = type_promotes_to (type);
1444   if (type != promoted_type)
1445     expr = cp_convert (promoted_type, expr);
1446   return expr;
1447 }
1448
1449 /* Take the address of an inline function without setting TREE_ADDRESSABLE
1450    or TREE_USED.  */
1451
1452 tree
1453 inline_conversion (tree exp)
1454 {
1455   if (TREE_CODE (exp) == FUNCTION_DECL)
1456     exp = build1 (ADDR_EXPR, build_pointer_type (TREE_TYPE (exp)), exp);
1457
1458   return exp;
1459 }
1460
1461 /* Returns nonzero iff exp is a STRING_CST or the result of applying
1462    decay_conversion to one.  */
1463
1464 int
1465 string_conv_p (tree totype, tree exp, int warn)
1466 {
1467   tree t;
1468
1469   if (! flag_const_strings || TREE_CODE (totype) != POINTER_TYPE)
1470     return 0;
1471
1472   t = TREE_TYPE (totype);
1473   if (!same_type_p (t, char_type_node)
1474       && !same_type_p (t, wchar_type_node))
1475     return 0;
1476
1477   if (TREE_CODE (exp) == STRING_CST)
1478     {
1479       /* Make sure that we don't try to convert between char and wchar_t.  */
1480       if (!same_type_p (TYPE_MAIN_VARIANT (TREE_TYPE (TREE_TYPE (exp))), t))
1481         return 0;
1482     }
1483   else
1484     {
1485       /* Is this a string constant which has decayed to 'const char *'?  */
1486       t = build_pointer_type (build_qualified_type (t, TYPE_QUAL_CONST));
1487       if (!same_type_p (TREE_TYPE (exp), t))
1488         return 0;
1489       STRIP_NOPS (exp);
1490       if (TREE_CODE (exp) != ADDR_EXPR
1491           || TREE_CODE (TREE_OPERAND (exp, 0)) != STRING_CST)
1492         return 0;
1493     }
1494
1495   /* This warning is not very useful, as it complains about printf.  */
1496   if (warn && warn_write_strings)
1497     warning (0, "deprecated conversion from string constant to %qT'", totype);
1498
1499   return 1;
1500 }
1501
1502 /* Given a COND_EXPR, MIN_EXPR, or MAX_EXPR in T, return it in a form that we
1503    can, for example, use as an lvalue.  This code used to be in
1504    unary_complex_lvalue, but we needed it to deal with `a = (d == c) ? b : c'
1505    expressions, where we're dealing with aggregates.  But now it's again only
1506    called from unary_complex_lvalue.  The case (in particular) that led to
1507    this was with CODE == ADDR_EXPR, since it's not an lvalue when we'd
1508    get it there.  */
1509
1510 static tree
1511 rationalize_conditional_expr (enum tree_code code, tree t)
1512 {
1513   /* For MIN_EXPR or MAX_EXPR, fold-const.c has arranged things so that
1514      the first operand is always the one to be used if both operands
1515      are equal, so we know what conditional expression this used to be.  */
1516   if (TREE_CODE (t) == MIN_EXPR || TREE_CODE (t) == MAX_EXPR)
1517     {
1518       /* The following code is incorrect if either operand side-effects.  */
1519       gcc_assert (!TREE_SIDE_EFFECTS (TREE_OPERAND (t, 0))
1520                   && !TREE_SIDE_EFFECTS (TREE_OPERAND (t, 1)));
1521       return
1522         build_conditional_expr (build_x_binary_op ((TREE_CODE (t) == MIN_EXPR
1523                                                     ? LE_EXPR : GE_EXPR),
1524                                                    TREE_OPERAND (t, 0),
1525                                                    TREE_OPERAND (t, 1),
1526                                                    /*overloaded_p=*/NULL),
1527                             build_unary_op (code, TREE_OPERAND (t, 0), 0),
1528                             build_unary_op (code, TREE_OPERAND (t, 1), 0));
1529     }
1530
1531   return
1532     build_conditional_expr (TREE_OPERAND (t, 0),
1533                             build_unary_op (code, TREE_OPERAND (t, 1), 0),
1534                             build_unary_op (code, TREE_OPERAND (t, 2), 0));
1535 }
1536
1537 /* Given the TYPE of an anonymous union field inside T, return the
1538    FIELD_DECL for the field.  If not found return NULL_TREE.  Because
1539    anonymous unions can nest, we must also search all anonymous unions
1540    that are directly reachable.  */
1541
1542 tree
1543 lookup_anon_field (tree t, tree type)
1544 {
1545   tree field;
1546
1547   for (field = TYPE_FIELDS (t); field; field = TREE_CHAIN (field))
1548     {
1549       if (TREE_STATIC (field))
1550         continue;
1551       if (TREE_CODE (field) != FIELD_DECL || DECL_ARTIFICIAL (field))
1552         continue;
1553
1554       /* If we find it directly, return the field.  */
1555       if (DECL_NAME (field) == NULL_TREE
1556           && type == TYPE_MAIN_VARIANT (TREE_TYPE (field)))
1557         {
1558           return field;
1559         }
1560
1561       /* Otherwise, it could be nested, search harder.  */
1562       if (DECL_NAME (field) == NULL_TREE
1563           && ANON_AGGR_TYPE_P (TREE_TYPE (field)))
1564         {
1565           tree subfield = lookup_anon_field (TREE_TYPE (field), type);
1566           if (subfield)
1567             return subfield;
1568         }
1569     }
1570   return NULL_TREE;
1571 }
1572
1573 /* Build an expression representing OBJECT.MEMBER.  OBJECT is an
1574    expression; MEMBER is a DECL or baselink.  If ACCESS_PATH is
1575    non-NULL, it indicates the path to the base used to name MEMBER.
1576    If PRESERVE_REFERENCE is true, the expression returned will have
1577    REFERENCE_TYPE if the MEMBER does.  Otherwise, the expression
1578    returned will have the type referred to by the reference.
1579
1580    This function does not perform access control; that is either done
1581    earlier by the parser when the name of MEMBER is resolved to MEMBER
1582    itself, or later when overload resolution selects one of the
1583    functions indicated by MEMBER.  */
1584
1585 tree
1586 build_class_member_access_expr (tree object, tree member,
1587                                 tree access_path, bool preserve_reference)
1588 {
1589   tree object_type;
1590   tree member_scope;
1591   tree result = NULL_TREE;
1592
1593   if (object == error_mark_node || member == error_mark_node)
1594     return error_mark_node;
1595
1596   gcc_assert (DECL_P (member) || BASELINK_P (member));
1597
1598   /* [expr.ref]
1599
1600      The type of the first expression shall be "class object" (of a
1601      complete type).  */
1602   object_type = TREE_TYPE (object);
1603   if (!currently_open_class (object_type)
1604       && !complete_type_or_else (object_type, object))
1605     return error_mark_node;
1606   if (!CLASS_TYPE_P (object_type))
1607     {
1608       error ("request for member %qD in %qE, which is of non-class type %qT",
1609              member, object, object_type);
1610       return error_mark_node;
1611     }
1612
1613   /* The standard does not seem to actually say that MEMBER must be a
1614      member of OBJECT_TYPE.  However, that is clearly what is
1615      intended.  */
1616   if (DECL_P (member))
1617     {
1618       member_scope = DECL_CLASS_CONTEXT (member);
1619       mark_used (member);
1620       if (TREE_DEPRECATED (member))
1621         warn_deprecated_use (member);
1622     }
1623   else
1624     member_scope = BINFO_TYPE (BASELINK_BINFO (member));
1625   /* If MEMBER is from an anonymous aggregate, MEMBER_SCOPE will
1626      presently be the anonymous union.  Go outwards until we find a
1627      type related to OBJECT_TYPE.  */
1628   while (ANON_AGGR_TYPE_P (member_scope)
1629          && !same_type_ignoring_top_level_qualifiers_p (member_scope,
1630                                                         object_type))
1631     member_scope = TYPE_CONTEXT (member_scope);
1632   if (!member_scope || !DERIVED_FROM_P (member_scope, object_type))
1633     {
1634       if (TREE_CODE (member) == FIELD_DECL)
1635         error ("invalid use of nonstatic data member %qE", member);
1636       else
1637         error ("%qD is not a member of %qT", member, object_type);
1638       return error_mark_node;
1639     }
1640
1641   /* Transform `(a, b).x' into `(*(a, &b)).x', `(a ? b : c).x' into
1642      `(*(a ?  &b : &c)).x', and so on.  A COND_EXPR is only an lvalue
1643      in the frontend; only _DECLs and _REFs are lvalues in the backend.  */
1644   {
1645     tree temp = unary_complex_lvalue (ADDR_EXPR, object);
1646     if (temp)
1647       object = build_indirect_ref (temp, NULL);
1648   }
1649
1650   /* In [expr.ref], there is an explicit list of the valid choices for
1651      MEMBER.  We check for each of those cases here.  */
1652   if (TREE_CODE (member) == VAR_DECL)
1653     {
1654       /* A static data member.  */
1655       result = member;
1656       /* If OBJECT has side-effects, they are supposed to occur.  */
1657       if (TREE_SIDE_EFFECTS (object))
1658         result = build2 (COMPOUND_EXPR, TREE_TYPE (result), object, result);
1659     }
1660   else if (TREE_CODE (member) == FIELD_DECL)
1661     {
1662       /* A non-static data member.  */
1663       bool null_object_p;
1664       int type_quals;
1665       tree member_type;
1666
1667       null_object_p = (TREE_CODE (object) == INDIRECT_REF
1668                        && integer_zerop (TREE_OPERAND (object, 0)));
1669
1670       /* Convert OBJECT to the type of MEMBER.  */
1671       if (!same_type_p (TYPE_MAIN_VARIANT (object_type),
1672                         TYPE_MAIN_VARIANT (member_scope)))
1673         {
1674           tree binfo;
1675           base_kind kind;
1676
1677           binfo = lookup_base (access_path ? access_path : object_type,
1678                                member_scope, ba_unique,  &kind);
1679           if (binfo == error_mark_node)
1680             return error_mark_node;
1681
1682           /* It is invalid to try to get to a virtual base of a
1683              NULL object.  The most common cause is invalid use of
1684              offsetof macro.  */
1685           if (null_object_p && kind == bk_via_virtual)
1686             {
1687               error ("invalid access to non-static data member %qD of "
1688                      "NULL object",
1689                      member);
1690               error ("(perhaps the %<offsetof%> macro was used incorrectly)");
1691               return error_mark_node;
1692             }
1693
1694           /* Convert to the base.  */
1695           object = build_base_path (PLUS_EXPR, object, binfo,
1696                                     /*nonnull=*/1);
1697           /* If we found the base successfully then we should be able
1698              to convert to it successfully.  */
1699           gcc_assert (object != error_mark_node);
1700         }
1701
1702       /* Complain about other invalid uses of offsetof, even though they will
1703          give the right answer.  Note that we complain whether or not they
1704          actually used the offsetof macro, since there's no way to know at this
1705          point.  So we just give a warning, instead of a pedwarn.  */
1706       /* Do not produce this warning for base class field references, because
1707          we know for a fact that didn't come from offsetof.  This does occur
1708          in various testsuite cases where a null object is passed where a
1709          vtable access is required.  */
1710       if (null_object_p && warn_invalid_offsetof
1711           && CLASSTYPE_NON_POD_P (object_type)
1712           && !DECL_FIELD_IS_BASE (member)
1713           && !skip_evaluation)
1714         {
1715           warning (0, "invalid access to non-static data member %qD of NULL object",
1716                    member);
1717           warning (0, "(perhaps the %<offsetof%> macro was used incorrectly)");
1718         }
1719
1720       /* If MEMBER is from an anonymous aggregate, we have converted
1721          OBJECT so that it refers to the class containing the
1722          anonymous union.  Generate a reference to the anonymous union
1723          itself, and recur to find MEMBER.  */
1724       if (ANON_AGGR_TYPE_P (DECL_CONTEXT (member))
1725           /* When this code is called from build_field_call, the
1726              object already has the type of the anonymous union.
1727              That is because the COMPONENT_REF was already
1728              constructed, and was then disassembled before calling
1729              build_field_call.  After the function-call code is
1730              cleaned up, this waste can be eliminated.  */
1731           && (!same_type_ignoring_top_level_qualifiers_p
1732               (TREE_TYPE (object), DECL_CONTEXT (member))))
1733         {
1734           tree anonymous_union;
1735
1736           anonymous_union = lookup_anon_field (TREE_TYPE (object),
1737                                                DECL_CONTEXT (member));
1738           object = build_class_member_access_expr (object,
1739                                                    anonymous_union,
1740                                                    /*access_path=*/NULL_TREE,
1741                                                    preserve_reference);
1742         }
1743
1744       /* Compute the type of the field, as described in [expr.ref].  */
1745       type_quals = TYPE_UNQUALIFIED;
1746       member_type = TREE_TYPE (member);
1747       if (TREE_CODE (member_type) != REFERENCE_TYPE)
1748         {
1749           type_quals = (cp_type_quals (member_type)
1750                         | cp_type_quals (object_type));
1751
1752           /* A field is const (volatile) if the enclosing object, or the
1753              field itself, is const (volatile).  But, a mutable field is
1754              not const, even within a const object.  */
1755           if (DECL_MUTABLE_P (member))
1756             type_quals &= ~TYPE_QUAL_CONST;
1757           member_type = cp_build_qualified_type (member_type, type_quals);
1758         }
1759
1760       result = build3 (COMPONENT_REF, member_type, object, member,
1761                        NULL_TREE);
1762       result = fold_if_not_in_template (result);
1763
1764       /* Mark the expression const or volatile, as appropriate.  Even
1765          though we've dealt with the type above, we still have to mark the
1766          expression itself.  */
1767       if (type_quals & TYPE_QUAL_CONST)
1768         TREE_READONLY (result) = 1;
1769       if (type_quals & TYPE_QUAL_VOLATILE)
1770         TREE_THIS_VOLATILE (result) = 1;
1771     }
1772   else if (BASELINK_P (member))
1773     {
1774       /* The member is a (possibly overloaded) member function.  */
1775       tree functions;
1776       tree type;
1777
1778       /* If the MEMBER is exactly one static member function, then we
1779          know the type of the expression.  Otherwise, we must wait
1780          until overload resolution has been performed.  */
1781       functions = BASELINK_FUNCTIONS (member);
1782       if (TREE_CODE (functions) == FUNCTION_DECL
1783           && DECL_STATIC_FUNCTION_P (functions))
1784         type = TREE_TYPE (functions);
1785       else
1786         type = unknown_type_node;
1787       /* Note that we do not convert OBJECT to the BASELINK_BINFO
1788          base.  That will happen when the function is called.  */
1789       result = build3 (COMPONENT_REF, type, object, member, NULL_TREE);
1790     }
1791   else if (TREE_CODE (member) == CONST_DECL)
1792     {
1793       /* The member is an enumerator.  */
1794       result = member;
1795       /* If OBJECT has side-effects, they are supposed to occur.  */
1796       if (TREE_SIDE_EFFECTS (object))
1797         result = build2 (COMPOUND_EXPR, TREE_TYPE (result),
1798                          object, result);
1799     }
1800   else
1801     {
1802       error ("invalid use of %qD", member);
1803       return error_mark_node;
1804     }
1805
1806   if (!preserve_reference)
1807     /* [expr.ref]
1808
1809        If E2 is declared to have type "reference to T", then ... the
1810        type of E1.E2 is T.  */
1811     result = convert_from_reference (result);
1812
1813   return result;
1814 }
1815
1816 /* Return the destructor denoted by OBJECT.SCOPE::~DTOR_NAME, or, if
1817    SCOPE is NULL, by OBJECT.~DTOR_NAME.  */
1818
1819 static tree
1820 lookup_destructor (tree object, tree scope, tree dtor_name)
1821 {
1822   tree object_type = TREE_TYPE (object);
1823   tree dtor_type = TREE_OPERAND (dtor_name, 0);
1824   tree expr;
1825
1826   if (scope && !check_dtor_name (scope, dtor_name))
1827     {
1828       error ("qualified type %qT does not match destructor name ~%qT",
1829              scope, dtor_type);
1830       return error_mark_node;
1831     }
1832   if (!DERIVED_FROM_P (dtor_type, TYPE_MAIN_VARIANT (object_type)))
1833     {
1834       error ("the type being destroyed is %qT, but the destructor refers to %qT",
1835              TYPE_MAIN_VARIANT (object_type), dtor_type);
1836       return error_mark_node;
1837     }
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   /* If OBJECT is an ObjC class instance, we must obey ObjC access rules.  */
1867   if (!objc_is_public (object, name))
1868     return error_mark_node;
1869
1870   object_type = TREE_TYPE (object);
1871
1872   if (processing_template_decl)
1873     {
1874       if (/* If OBJECT_TYPE is dependent, so is OBJECT.NAME.  */
1875           dependent_type_p (object_type)
1876           /* If NAME is just an IDENTIFIER_NODE, then the expression
1877              is dependent.  */
1878           || TREE_CODE (object) == IDENTIFIER_NODE
1879           /* If NAME is "f<args>", where either 'f' or 'args' is
1880              dependent, then the expression is dependent.  */
1881           || (TREE_CODE (name) == TEMPLATE_ID_EXPR
1882               && dependent_template_id_p (TREE_OPERAND (name, 0),
1883                                           TREE_OPERAND (name, 1)))
1884           /* If NAME is "T::X" where "T" is dependent, then the
1885              expression is dependent.  */
1886           || (TREE_CODE (name) == SCOPE_REF
1887               && TYPE_P (TREE_OPERAND (name, 0))
1888               && dependent_type_p (TREE_OPERAND (name, 0))))
1889         return build_min_nt (COMPONENT_REF, object, name, NULL_TREE);
1890       object = build_non_dependent_expr (object);
1891     }
1892
1893   /* [expr.ref]
1894
1895      The type of the first expression shall be "class object" (of a
1896      complete type).  */
1897   if (!currently_open_class (object_type)
1898       && !complete_type_or_else (object_type, object))
1899     return error_mark_node;
1900   if (!CLASS_TYPE_P (object_type))
1901     {
1902       error ("request for member %qD in %qE, which is of non-class type %qT",
1903              name, object, object_type);
1904       return error_mark_node;
1905     }
1906
1907   if (BASELINK_P (name))
1908     {
1909       /* A member function that has already been looked up.  */
1910       gcc_assert (TREE_CODE (BASELINK_FUNCTIONS (name)) == TEMPLATE_ID_EXPR);
1911       member = name;
1912     }
1913   else
1914     {
1915       bool is_template_id = false;
1916       tree template_args = NULL_TREE;
1917       tree scope;
1918
1919       if (TREE_CODE (name) == TEMPLATE_ID_EXPR)
1920         {
1921           is_template_id = true;
1922           template_args = TREE_OPERAND (name, 1);
1923           name = TREE_OPERAND (name, 0);
1924
1925           if (TREE_CODE (name) == OVERLOAD)
1926             name = DECL_NAME (get_first_fn (name));
1927           else if (DECL_P (name))
1928             name = DECL_NAME (name);
1929         }
1930
1931       if (TREE_CODE (name) == SCOPE_REF)
1932         {
1933           /* A qualified name.  The qualifying class or namespace `S' has
1934              already been looked up; it is either a TYPE or a
1935              NAMESPACE_DECL.  The member name is either an IDENTIFIER_NODE
1936              or a BIT_NOT_EXPR.  */
1937           scope = TREE_OPERAND (name, 0);
1938           name = TREE_OPERAND (name, 1);
1939           gcc_assert (CLASS_TYPE_P (scope)
1940                       || TREE_CODE (scope) == NAMESPACE_DECL);
1941           gcc_assert (TREE_CODE (name) == IDENTIFIER_NODE
1942                       || TREE_CODE (name) == BIT_NOT_EXPR);
1943
1944           /* If SCOPE is a namespace, then the qualified name does not
1945              name a member of OBJECT_TYPE.  */
1946           if (TREE_CODE (scope) == NAMESPACE_DECL)
1947             {
1948               error ("%<%D::%D%> is not a member of %qT",
1949                      scope, name, object_type);
1950               return error_mark_node;
1951             }
1952
1953           /* Find the base of OBJECT_TYPE corresponding to SCOPE.  */
1954           access_path = lookup_base (object_type, scope, ba_check, NULL);
1955           if (access_path == error_mark_node)
1956             return error_mark_node;
1957           if (!access_path)
1958             {
1959               error ("%qT is not a base of %qT", scope, object_type);
1960               return error_mark_node;
1961             }
1962         }
1963       else
1964         {
1965           scope = NULL_TREE;
1966           access_path = object_type;
1967         }
1968
1969       if (TREE_CODE (name) == BIT_NOT_EXPR)
1970         member = lookup_destructor (object, scope, name);
1971       else
1972         {
1973           /* Look up the member.  */
1974           member = lookup_member (access_path, name, /*protect=*/1,
1975                                   /*want_type=*/false);
1976           if (member == NULL_TREE)
1977             {
1978               error ("%qD has no member named %qE", object_type, name);
1979               return error_mark_node;
1980             }
1981           if (member == error_mark_node)
1982             return error_mark_node;
1983         }
1984
1985       if (is_template_id)
1986         {
1987           tree template = member;
1988
1989           if (BASELINK_P (template))
1990             template = lookup_template_function (template, template_args);
1991           else
1992             {
1993               error ("%qD is not a member template function", name);
1994               return error_mark_node;
1995             }
1996         }
1997     }
1998
1999   if (TREE_DEPRECATED (member))
2000     warn_deprecated_use (member);
2001
2002   expr = build_class_member_access_expr (object, member, access_path,
2003                                          /*preserve_reference=*/false);
2004   if (processing_template_decl && expr != error_mark_node)
2005     return build_min_non_dep (COMPONENT_REF, expr,
2006                               orig_object, orig_name, NULL_TREE);
2007   return expr;
2008 }
2009
2010 /* Return an expression for the MEMBER_NAME field in the internal
2011    representation of PTRMEM, a pointer-to-member function.  (Each
2012    pointer-to-member function type gets its own RECORD_TYPE so it is
2013    more convenient to access the fields by name than by FIELD_DECL.)
2014    This routine converts the NAME to a FIELD_DECL and then creates the
2015    node for the complete expression.  */
2016
2017 tree
2018 build_ptrmemfunc_access_expr (tree ptrmem, tree member_name)
2019 {
2020   tree ptrmem_type;
2021   tree member;
2022   tree member_type;
2023
2024   /* This code is a stripped down version of
2025      build_class_member_access_expr.  It does not work to use that
2026      routine directly because it expects the object to be of class
2027      type.  */
2028   ptrmem_type = TREE_TYPE (ptrmem);
2029   gcc_assert (TYPE_PTRMEMFUNC_P (ptrmem_type));
2030   member = lookup_member (ptrmem_type, member_name, /*protect=*/0,
2031                           /*want_type=*/false);
2032   member_type = cp_build_qualified_type (TREE_TYPE (member),
2033                                          cp_type_quals (ptrmem_type));
2034   return fold_build3 (COMPONENT_REF, member_type,
2035                       ptrmem, member, NULL_TREE);
2036 }
2037
2038 /* Given an expression PTR for a pointer, return an expression
2039    for the value pointed to.
2040    ERRORSTRING is the name of the operator to appear in error messages.
2041
2042    This function may need to overload OPERATOR_FNNAME.
2043    Must also handle REFERENCE_TYPEs for C++.  */
2044
2045 tree
2046 build_x_indirect_ref (tree expr, const char *errorstring)
2047 {
2048   tree orig_expr = expr;
2049   tree rval;
2050
2051   if (processing_template_decl)
2052     {
2053       if (type_dependent_expression_p (expr))
2054         return build_min_nt (INDIRECT_REF, expr);
2055       expr = build_non_dependent_expr (expr);
2056     }
2057
2058   rval = build_new_op (INDIRECT_REF, LOOKUP_NORMAL, expr, NULL_TREE,
2059                        NULL_TREE, /*overloaded_p=*/NULL);
2060   if (!rval)
2061     rval = build_indirect_ref (expr, errorstring);
2062
2063   if (processing_template_decl && rval != error_mark_node)
2064     return build_min_non_dep (INDIRECT_REF, rval, orig_expr);
2065   else
2066     return rval;
2067 }
2068
2069 tree
2070 build_indirect_ref (tree ptr, const char *errorstring)
2071 {
2072   tree pointer, type;
2073
2074   if (ptr == error_mark_node)
2075     return error_mark_node;
2076
2077   if (ptr == current_class_ptr)
2078     return current_class_ref;
2079
2080   pointer = (TREE_CODE (TREE_TYPE (ptr)) == REFERENCE_TYPE
2081              ? ptr : decay_conversion (ptr));
2082   type = TREE_TYPE (pointer);
2083
2084   if (POINTER_TYPE_P (type))
2085     {
2086       /* [expr.unary.op]
2087
2088          If the type of the expression is "pointer to T," the type
2089          of  the  result  is  "T."
2090
2091          We must use the canonical variant because certain parts of
2092          the back end, like fold, do pointer comparisons between
2093          types.  */
2094       tree t = canonical_type_variant (TREE_TYPE (type));
2095
2096       if (VOID_TYPE_P (t))
2097         {
2098           /* A pointer to incomplete type (other than cv void) can be
2099              dereferenced [expr.unary.op]/1  */
2100           error ("%qT is not a pointer-to-object type", type);
2101           return error_mark_node;
2102         }
2103       else if (TREE_CODE (pointer) == ADDR_EXPR
2104                && same_type_p (t, TREE_TYPE (TREE_OPERAND (pointer, 0))))
2105         /* The POINTER was something like `&x'.  We simplify `*&x' to
2106            `x'.  */
2107         return TREE_OPERAND (pointer, 0);
2108       else
2109         {
2110           tree ref = build1 (INDIRECT_REF, t, pointer);
2111
2112           /* We *must* set TREE_READONLY when dereferencing a pointer to const,
2113              so that we get the proper error message if the result is used
2114              to assign to.  Also, &* is supposed to be a no-op.  */
2115           TREE_READONLY (ref) = CP_TYPE_CONST_P (t);
2116           TREE_THIS_VOLATILE (ref) = CP_TYPE_VOLATILE_P (t);
2117           TREE_SIDE_EFFECTS (ref)
2118             = (TREE_THIS_VOLATILE (ref) || TREE_SIDE_EFFECTS (pointer));
2119           return ref;
2120         }
2121     }
2122   /* `pointer' won't be an error_mark_node if we were given a
2123      pointer to member, so it's cool to check for this here.  */
2124   else if (TYPE_PTR_TO_MEMBER_P (type))
2125     error ("invalid use of %qs on pointer to member", errorstring);
2126   else if (pointer != error_mark_node)
2127     {
2128       if (errorstring)
2129         error ("invalid type argument of %qs", errorstring);
2130       else
2131         error ("invalid type argument");
2132     }
2133   return error_mark_node;
2134 }
2135
2136 /* This handles expressions of the form "a[i]", which denotes
2137    an array reference.
2138
2139    This is logically equivalent in C to *(a+i), but we may do it differently.
2140    If A is a variable or a member, we generate a primitive ARRAY_REF.
2141    This avoids forcing the array out of registers, and can work on
2142    arrays that are not lvalues (for example, members of structures returned
2143    by functions).
2144
2145    If INDEX is of some user-defined type, it must be converted to
2146    integer type.  Otherwise, to make a compatible PLUS_EXPR, it
2147    will inherit the type of the array, which will be some pointer type.  */
2148
2149 tree
2150 build_array_ref (tree array, tree idx)
2151 {
2152   if (idx == 0)
2153     {
2154       error ("subscript missing in array reference");
2155       return error_mark_node;
2156     }
2157
2158   if (TREE_TYPE (array) == error_mark_node
2159       || TREE_TYPE (idx) == error_mark_node)
2160     return error_mark_node;
2161
2162   /* If ARRAY is a COMPOUND_EXPR or COND_EXPR, move our reference
2163      inside it.  */
2164   switch (TREE_CODE (array))
2165     {
2166     case COMPOUND_EXPR:
2167       {
2168         tree value = build_array_ref (TREE_OPERAND (array, 1), idx);
2169         return build2 (COMPOUND_EXPR, TREE_TYPE (value),
2170                        TREE_OPERAND (array, 0), value);
2171       }
2172
2173     case COND_EXPR:
2174       return build_conditional_expr
2175         (TREE_OPERAND (array, 0),
2176          build_array_ref (TREE_OPERAND (array, 1), idx),
2177          build_array_ref (TREE_OPERAND (array, 2), idx));
2178
2179     default:
2180       break;
2181     }
2182
2183   if (TREE_CODE (TREE_TYPE (array)) == ARRAY_TYPE)
2184     {
2185       tree rval, type;
2186
2187       /* Subscripting with type char is likely to lose
2188          on a machine where chars are signed.
2189          So warn on any machine, but optionally.
2190          Don't warn for unsigned char since that type is safe.
2191          Don't warn for signed char because anyone who uses that
2192          must have done so deliberately.  */
2193       if (warn_char_subscripts
2194           && TYPE_MAIN_VARIANT (TREE_TYPE (idx)) == char_type_node)
2195         warning (0, "array subscript has type %<char%>");
2196
2197       if (!INTEGRAL_OR_ENUMERATION_TYPE_P (TREE_TYPE (idx)))
2198         {
2199           error ("array subscript is not an integer");
2200           return error_mark_node;
2201         }
2202
2203       /* Apply integral promotions *after* noticing character types.
2204          (It is unclear why we do these promotions -- the standard
2205          does not say that we should.  In fact, the natural thing would
2206          seem to be to convert IDX to ptrdiff_t; we're performing
2207          pointer arithmetic.)  */
2208       idx = perform_integral_promotions (idx);
2209
2210       /* An array that is indexed by a non-constant
2211          cannot be stored in a register; we must be able to do
2212          address arithmetic on its address.
2213          Likewise an array of elements of variable size.  */
2214       if (TREE_CODE (idx) != INTEGER_CST
2215           || (COMPLETE_TYPE_P (TREE_TYPE (TREE_TYPE (array)))
2216               && (TREE_CODE (TYPE_SIZE (TREE_TYPE (TREE_TYPE (array))))
2217                   != INTEGER_CST)))
2218         {
2219           if (!cxx_mark_addressable (array))
2220             return error_mark_node;
2221         }
2222
2223       /* An array that is indexed by a constant value which is not within
2224          the array bounds cannot be stored in a register either; because we
2225          would get a crash in store_bit_field/extract_bit_field when trying
2226          to access a non-existent part of the register.  */
2227       if (TREE_CODE (idx) == INTEGER_CST
2228           && TYPE_DOMAIN (TREE_TYPE (array))
2229           && ! int_fits_type_p (idx, TYPE_DOMAIN (TREE_TYPE (array))))
2230         {
2231           if (!cxx_mark_addressable (array))
2232             return error_mark_node;
2233         }
2234
2235       if (pedantic && !lvalue_p (array))
2236         pedwarn ("ISO C++ forbids subscripting non-lvalue array");
2237
2238       /* Note in C++ it is valid to subscript a `register' array, since
2239          it is valid to take the address of something with that
2240          storage specification.  */
2241       if (extra_warnings)
2242         {
2243           tree foo = array;
2244           while (TREE_CODE (foo) == COMPONENT_REF)
2245             foo = TREE_OPERAND (foo, 0);
2246           if (TREE_CODE (foo) == VAR_DECL && DECL_REGISTER (foo))
2247             warning (0, "subscripting array declared %<register%>");
2248         }
2249
2250       type = TREE_TYPE (TREE_TYPE (array));
2251       rval = build4 (ARRAY_REF, type, array, idx, NULL_TREE, NULL_TREE);
2252       /* Array ref is const/volatile if the array elements are
2253          or if the array is..  */
2254       TREE_READONLY (rval)
2255         |= (CP_TYPE_CONST_P (type) | TREE_READONLY (array));
2256       TREE_SIDE_EFFECTS (rval)
2257         |= (CP_TYPE_VOLATILE_P (type) | TREE_SIDE_EFFECTS (array));
2258       TREE_THIS_VOLATILE (rval)
2259         |= (CP_TYPE_VOLATILE_P (type) | TREE_THIS_VOLATILE (array));
2260       return require_complete_type (fold_if_not_in_template (rval));
2261     }
2262
2263   {
2264     tree ar = default_conversion (array);
2265     tree ind = default_conversion (idx);
2266
2267     /* Put the integer in IND to simplify error checking.  */
2268     if (TREE_CODE (TREE_TYPE (ar)) == INTEGER_TYPE)
2269       {
2270         tree temp = ar;
2271         ar = ind;
2272         ind = temp;
2273       }
2274
2275     if (ar == error_mark_node)
2276       return ar;
2277
2278     if (TREE_CODE (TREE_TYPE (ar)) != POINTER_TYPE)
2279       {
2280         error ("subscripted value is neither array nor pointer");
2281         return error_mark_node;
2282       }
2283     if (TREE_CODE (TREE_TYPE (ind)) != INTEGER_TYPE)
2284       {
2285         error ("array subscript is not an integer");
2286         return error_mark_node;
2287       }
2288
2289     return build_indirect_ref (cp_build_binary_op (PLUS_EXPR, ar, ind),
2290                                "array indexing");
2291   }
2292 }
2293 \f
2294 /* Resolve a pointer to member function.  INSTANCE is the object
2295    instance to use, if the member points to a virtual member.
2296
2297    This used to avoid checking for virtual functions if basetype
2298    has no virtual functions, according to an earlier ANSI draft.
2299    With the final ISO C++ rules, such an optimization is
2300    incorrect: A pointer to a derived member can be static_cast
2301    to pointer-to-base-member, as long as the dynamic object
2302    later has the right member.  */
2303
2304 tree
2305 get_member_function_from_ptrfunc (tree *instance_ptrptr, tree function)
2306 {
2307   if (TREE_CODE (function) == OFFSET_REF)
2308     function = TREE_OPERAND (function, 1);
2309
2310   if (TYPE_PTRMEMFUNC_P (TREE_TYPE (function)))
2311     {
2312       tree idx, delta, e1, e2, e3, vtbl, basetype;
2313       tree fntype = TYPE_PTRMEMFUNC_FN_TYPE (TREE_TYPE (function));
2314
2315       tree instance_ptr = *instance_ptrptr;
2316       tree instance_save_expr = 0;
2317       if (instance_ptr == error_mark_node)
2318         {
2319           if (TREE_CODE (function) == PTRMEM_CST)
2320             {
2321               /* Extracting the function address from a pmf is only
2322                  allowed with -Wno-pmf-conversions. It only works for
2323                  pmf constants.  */
2324               e1 = build_addr_func (PTRMEM_CST_MEMBER (function));
2325               e1 = convert (fntype, e1);
2326               return e1;
2327             }
2328           else
2329             {
2330               error ("object missing in use of %qE", function);
2331               return error_mark_node;
2332             }
2333         }
2334
2335       if (TREE_SIDE_EFFECTS (instance_ptr))
2336         instance_ptr = instance_save_expr = save_expr (instance_ptr);
2337
2338       if (TREE_SIDE_EFFECTS (function))
2339         function = save_expr (function);
2340
2341       /* Start by extracting all the information from the PMF itself.  */
2342       e3 = pfn_from_ptrmemfunc (function);
2343       delta = build_ptrmemfunc_access_expr (function, delta_identifier);
2344       idx = build1 (NOP_EXPR, vtable_index_type, e3);
2345       switch (TARGET_PTRMEMFUNC_VBIT_LOCATION)
2346         {
2347         case ptrmemfunc_vbit_in_pfn:
2348           e1 = cp_build_binary_op (BIT_AND_EXPR, idx, integer_one_node);
2349           idx = cp_build_binary_op (MINUS_EXPR, idx, integer_one_node);
2350           break;
2351
2352         case ptrmemfunc_vbit_in_delta:
2353           e1 = cp_build_binary_op (BIT_AND_EXPR, delta, integer_one_node);
2354           delta = cp_build_binary_op (RSHIFT_EXPR, delta, integer_one_node);
2355           break;
2356
2357         default:
2358           gcc_unreachable ();
2359         }
2360
2361       /* Convert down to the right base before using the instance.  A
2362          special case is that in a pointer to member of class C, C may
2363          be incomplete.  In that case, the function will of course be
2364          a member of C, and no conversion is required.  In fact,
2365          lookup_base will fail in that case, because incomplete
2366          classes do not have BINFOs.  */
2367       basetype = TYPE_METHOD_BASETYPE (TREE_TYPE (fntype));
2368       if (!same_type_ignoring_top_level_qualifiers_p
2369           (basetype, TREE_TYPE (TREE_TYPE (instance_ptr))))
2370         {
2371           basetype = lookup_base (TREE_TYPE (TREE_TYPE (instance_ptr)),
2372                                   basetype, ba_check, NULL);
2373           instance_ptr = build_base_path (PLUS_EXPR, instance_ptr, basetype,
2374                                           1);
2375           if (instance_ptr == error_mark_node)
2376             return error_mark_node;
2377         }
2378       /* ...and then the delta in the PMF.  */
2379       instance_ptr = build2 (PLUS_EXPR, TREE_TYPE (instance_ptr),
2380                              instance_ptr, delta);
2381
2382       /* Hand back the adjusted 'this' argument to our caller.  */
2383       *instance_ptrptr = instance_ptr;
2384
2385       /* Next extract the vtable pointer from the object.  */
2386       vtbl = build1 (NOP_EXPR, build_pointer_type (vtbl_ptr_type_node),
2387                      instance_ptr);
2388       vtbl = build_indirect_ref (vtbl, NULL);
2389
2390       /* Finally, extract the function pointer from the vtable.  */
2391       e2 = fold_build2 (PLUS_EXPR, TREE_TYPE (vtbl), vtbl, idx);
2392       e2 = build_indirect_ref (e2, NULL);
2393       TREE_CONSTANT (e2) = 1;
2394       TREE_INVARIANT (e2) = 1;
2395
2396       /* When using function descriptors, the address of the
2397          vtable entry is treated as a function pointer.  */
2398       if (TARGET_VTABLE_USES_DESCRIPTORS)
2399         e2 = build1 (NOP_EXPR, TREE_TYPE (e2),
2400                      build_unary_op (ADDR_EXPR, e2, /*noconvert=*/1));
2401
2402       TREE_TYPE (e2) = TREE_TYPE (e3);
2403       e1 = build_conditional_expr (e1, e2, e3);
2404
2405       /* Make sure this doesn't get evaluated first inside one of the
2406          branches of the COND_EXPR.  */
2407       if (instance_save_expr)
2408         e1 = build2 (COMPOUND_EXPR, TREE_TYPE (e1),
2409                      instance_save_expr, e1);
2410
2411       function = e1;
2412     }
2413   return function;
2414 }
2415
2416 tree
2417 build_function_call (tree function, tree params)
2418 {
2419   tree fntype, fndecl;
2420   tree coerced_params;
2421   tree name = NULL_TREE;
2422   int is_method;
2423   tree original = function;
2424
2425   /* For Objective-C, convert any calls via a cast to OBJC_TYPE_REF
2426      expressions, like those used for ObjC messenger dispatches.  */
2427   function = objc_rewrite_function_call (function, params);
2428
2429   /* build_c_cast puts on a NOP_EXPR to make the result not an lvalue.
2430      Strip such NOP_EXPRs, since FUNCTION is used in non-lvalue context.  */
2431   if (TREE_CODE (function) == NOP_EXPR
2432       && TREE_TYPE (function) == TREE_TYPE (TREE_OPERAND (function, 0)))
2433     function = TREE_OPERAND (function, 0);
2434
2435   if (TREE_CODE (function) == FUNCTION_DECL)
2436     {
2437       name = DECL_NAME (function);
2438
2439       mark_used (function);
2440       fndecl = function;
2441
2442       /* Convert anything with function type to a pointer-to-function.  */
2443       if (pedantic && DECL_MAIN_P (function))
2444         pedwarn ("ISO C++ forbids calling %<::main%> from within program");
2445
2446       /* Differs from default_conversion by not setting TREE_ADDRESSABLE
2447          (because calling an inline function does not mean the function
2448          needs to be separately compiled).  */
2449
2450       if (DECL_INLINE (function))
2451         function = inline_conversion (function);
2452       else
2453         function = build_addr_func (function);
2454     }
2455   else
2456     {
2457       fndecl = NULL_TREE;
2458
2459       function = build_addr_func (function);
2460     }
2461
2462   if (function == error_mark_node)
2463     return error_mark_node;
2464
2465   fntype = TREE_TYPE (function);
2466
2467   if (TYPE_PTRMEMFUNC_P (fntype))
2468     {
2469       error ("must use %<.*%> or %<->*%> to call pointer-to-member "
2470              "function in %<%E (...)%>",
2471              original);
2472       return error_mark_node;
2473     }
2474
2475   is_method = (TREE_CODE (fntype) == POINTER_TYPE
2476                && TREE_CODE (TREE_TYPE (fntype)) == METHOD_TYPE);
2477
2478   if (!((TREE_CODE (fntype) == POINTER_TYPE
2479          && TREE_CODE (TREE_TYPE (fntype)) == FUNCTION_TYPE)
2480         || is_method
2481         || TREE_CODE (function) == TEMPLATE_ID_EXPR))
2482     {
2483       error ("%qE cannot be used as a function", original);
2484       return error_mark_node;
2485     }
2486
2487   /* fntype now gets the type of function pointed to.  */
2488   fntype = TREE_TYPE (fntype);
2489
2490   /* Convert the parameters to the types declared in the
2491      function prototype, or apply default promotions.  */
2492
2493   coerced_params = convert_arguments (TYPE_ARG_TYPES (fntype),
2494                                       params, fndecl, LOOKUP_NORMAL);
2495   if (coerced_params == error_mark_node)
2496     return error_mark_node;
2497
2498   /* Check for errors in format strings and inappropriately
2499      null parameters.  */
2500
2501   check_function_arguments (TYPE_ATTRIBUTES (fntype), coerced_params,
2502                             TYPE_ARG_TYPES (fntype));
2503
2504   return build_cxx_call (function, coerced_params);
2505 }
2506 \f
2507 /* Convert the actual parameter expressions in the list VALUES
2508    to the types in the list TYPELIST.
2509    If parmdecls is exhausted, or when an element has NULL as its type,
2510    perform the default conversions.
2511
2512    NAME is an IDENTIFIER_NODE or 0.  It is used only for error messages.
2513
2514    This is also where warnings about wrong number of args are generated.
2515
2516    Return a list of expressions for the parameters as converted.
2517
2518    Both VALUES and the returned value are chains of TREE_LIST nodes
2519    with the elements of the list in the TREE_VALUE slots of those nodes.
2520
2521    In C++, unspecified trailing parameters can be filled in with their
2522    default arguments, if such were specified.  Do so here.  */
2523
2524 static tree
2525 convert_arguments (tree typelist, tree values, tree fndecl, int flags)
2526 {
2527   tree typetail, valtail;
2528   tree result = NULL_TREE;
2529   const char *called_thing = 0;
2530   int i = 0;
2531
2532   /* Argument passing is always copy-initialization.  */
2533   flags |= LOOKUP_ONLYCONVERTING;
2534
2535   if (fndecl)
2536     {
2537       if (TREE_CODE (TREE_TYPE (fndecl)) == METHOD_TYPE)
2538         {
2539           if (DECL_NAME (fndecl) == NULL_TREE
2540               || IDENTIFIER_HAS_TYPE_VALUE (DECL_NAME (fndecl)))
2541             called_thing = "constructor";
2542           else
2543             called_thing = "member function";
2544         }
2545       else
2546         called_thing = "function";
2547     }
2548
2549   for (valtail = values, typetail = typelist;
2550        valtail;
2551        valtail = TREE_CHAIN (valtail), i++)
2552     {
2553       tree type = typetail ? TREE_VALUE (typetail) : 0;
2554       tree val = TREE_VALUE (valtail);
2555
2556       if (val == error_mark_node)
2557         return error_mark_node;
2558
2559       if (type == void_type_node)
2560         {
2561           if (fndecl)
2562             {
2563               cp_error_at ("too many arguments to %s %q+#D", called_thing,
2564                            fndecl);
2565               error ("at this point in file");
2566             }
2567           else
2568             error ("too many arguments to function");
2569           /* In case anybody wants to know if this argument
2570              list is valid.  */
2571           if (result)
2572             TREE_TYPE (tree_last (result)) = error_mark_node;
2573           break;
2574         }
2575
2576       /* build_c_cast puts on a NOP_EXPR to make the result not an lvalue.
2577          Strip such NOP_EXPRs, since VAL is used in non-lvalue context.  */
2578       if (TREE_CODE (val) == NOP_EXPR
2579           && TREE_TYPE (val) == TREE_TYPE (TREE_OPERAND (val, 0))
2580           && (type == 0 || TREE_CODE (type) != REFERENCE_TYPE))
2581         val = TREE_OPERAND (val, 0);
2582
2583       if (type == 0 || TREE_CODE (type) != REFERENCE_TYPE)
2584         {
2585           if (TREE_CODE (TREE_TYPE (val)) == ARRAY_TYPE
2586               || TREE_CODE (TREE_TYPE (val)) == FUNCTION_TYPE
2587               || TREE_CODE (TREE_TYPE (val)) == METHOD_TYPE)
2588             val = decay_conversion (val);
2589         }
2590
2591       if (val == error_mark_node)
2592         return error_mark_node;
2593
2594       if (type != 0)
2595         {
2596           /* Formal parm type is specified by a function prototype.  */
2597           tree parmval;
2598
2599           if (!COMPLETE_TYPE_P (complete_type (type)))
2600             {
2601               if (fndecl)
2602                 error ("parameter %P of %qD has incomplete type %qT",
2603                        i, fndecl, type);
2604               else
2605                 error ("parameter %P has incomplete type %qT", i, type);
2606               parmval = error_mark_node;
2607             }
2608           else
2609             {
2610               parmval = convert_for_initialization
2611                 (NULL_TREE, type, val, flags,
2612                  "argument passing", fndecl, i);
2613               parmval = convert_for_arg_passing (type, parmval);
2614             }
2615
2616           if (parmval == error_mark_node)
2617             return error_mark_node;
2618
2619           result = tree_cons (NULL_TREE, parmval, result);
2620         }
2621       else
2622         {
2623           if (fndecl && DECL_BUILT_IN (fndecl)
2624               && DECL_FUNCTION_CODE (fndecl) == BUILT_IN_CONSTANT_P)
2625             /* Don't do ellipsis conversion for __built_in_constant_p
2626                as this will result in spurious warnings for non-POD
2627                types.  */
2628             val = require_complete_type (val);
2629           else
2630             val = convert_arg_to_ellipsis (val);
2631
2632           result = tree_cons (NULL_TREE, val, result);
2633         }
2634
2635       if (typetail)
2636         typetail = TREE_CHAIN (typetail);
2637     }
2638
2639   if (typetail != 0 && typetail != void_list_node)
2640     {
2641       /* See if there are default arguments that can be used.  */
2642       if (TREE_PURPOSE (typetail)
2643           && TREE_CODE (TREE_PURPOSE (typetail)) != DEFAULT_ARG)
2644         {
2645           for (; typetail != void_list_node; ++i)
2646             {
2647               tree parmval
2648                 = convert_default_arg (TREE_VALUE (typetail),
2649                                        TREE_PURPOSE (typetail),
2650                                        fndecl, i);
2651
2652               if (parmval == error_mark_node)
2653                 return error_mark_node;
2654
2655               result = tree_cons (0, parmval, result);
2656               typetail = TREE_CHAIN (typetail);
2657               /* ends with `...'.  */
2658               if (typetail == NULL_TREE)
2659                 break;
2660             }
2661         }
2662       else
2663         {
2664           if (fndecl)
2665             {
2666               cp_error_at ("too few arguments to %s %q+#D",
2667                            called_thing, fndecl);
2668               error ("at this point in file");
2669             }
2670           else
2671             error ("too few arguments to function");
2672           return error_mark_list;
2673         }
2674     }
2675
2676   return nreverse (result);
2677 }
2678 \f
2679 /* Build a binary-operation expression, after performing default
2680    conversions on the operands.  CODE is the kind of expression to build.  */
2681
2682 tree
2683 build_x_binary_op (enum tree_code code, tree arg1, tree arg2,
2684                    bool *overloaded_p)
2685 {
2686   tree orig_arg1;
2687   tree orig_arg2;
2688   tree expr;
2689
2690   orig_arg1 = arg1;
2691   orig_arg2 = arg2;
2692
2693   if (processing_template_decl)
2694     {
2695       if (type_dependent_expression_p (arg1)
2696           || type_dependent_expression_p (arg2))
2697         return build_min_nt (code, arg1, arg2);
2698       arg1 = build_non_dependent_expr (arg1);
2699       arg2 = build_non_dependent_expr (arg2);
2700     }
2701
2702   if (code == DOTSTAR_EXPR)
2703     expr = build_m_component_ref (arg1, arg2);
2704   else
2705     expr = build_new_op (code, LOOKUP_NORMAL, arg1, arg2, NULL_TREE,
2706                          overloaded_p);
2707
2708   if (processing_template_decl && expr != error_mark_node)
2709     return build_min_non_dep (code, expr, orig_arg1, orig_arg2);
2710
2711   return expr;
2712 }
2713
2714 /* Build a binary-operation expression without default conversions.
2715    CODE is the kind of expression to build.
2716    This function differs from `build' in several ways:
2717    the data type of the result is computed and recorded in it,
2718    warnings are generated if arg data types are invalid,
2719    special handling for addition and subtraction of pointers is known,
2720    and some optimization is done (operations on narrow ints
2721    are done in the narrower type when that gives the same result).
2722    Constant folding is also done before the result is returned.
2723
2724    Note that the operands will never have enumeral types
2725    because either they have just had the default conversions performed
2726    or they have both just been converted to some other type in which
2727    the arithmetic is to be done.
2728
2729    C++: must do special pointer arithmetic when implementing
2730    multiple inheritance, and deal with pointer to member functions.  */
2731
2732 tree
2733 build_binary_op (enum tree_code code, tree orig_op0, tree orig_op1,
2734                  int convert_p ATTRIBUTE_UNUSED)
2735 {
2736   tree op0, op1;
2737   enum tree_code code0, code1;
2738   tree type0, type1;
2739   const char *invalid_op_diag;
2740
2741   /* Expression code to give to the expression when it is built.
2742      Normally this is CODE, which is what the caller asked for,
2743      but in some special cases we change it.  */
2744   enum tree_code resultcode = code;
2745
2746   /* Data type in which the computation is to be performed.
2747      In the simplest cases this is the common type of the arguments.  */
2748   tree result_type = NULL;
2749
2750   /* Nonzero means operands have already been type-converted
2751      in whatever way is necessary.
2752      Zero means they need to be converted to RESULT_TYPE.  */
2753   int converted = 0;
2754
2755   /* Nonzero means create the expression with this type, rather than
2756      RESULT_TYPE.  */
2757   tree build_type = 0;
2758
2759   /* Nonzero means after finally constructing the expression
2760      convert it to this type.  */
2761   tree final_type = 0;
2762
2763   tree result;
2764
2765   /* Nonzero if this is an operation like MIN or MAX which can
2766      safely be computed in short if both args are promoted shorts.
2767      Also implies COMMON.
2768      -1 indicates a bitwise operation; this makes a difference
2769      in the exact conditions for when it is safe to do the operation
2770      in a narrower mode.  */
2771   int shorten = 0;
2772
2773   /* Nonzero if this is a comparison operation;
2774      if both args are promoted shorts, compare the original shorts.
2775      Also implies COMMON.  */
2776   int short_compare = 0;
2777
2778   /* Nonzero if this is a right-shift operation, which can be computed on the
2779      original short and then promoted if the operand is a promoted short.  */
2780   int short_shift = 0;
2781
2782   /* Nonzero means set RESULT_TYPE to the common type of the args.  */
2783   int common = 0;
2784
2785   /* True if both operands have arithmetic type.  */
2786   bool arithmetic_types_p;
2787
2788   /* Apply default conversions.  */
2789   op0 = orig_op0;
2790   op1 = orig_op1;
2791
2792   if (code == TRUTH_AND_EXPR || code == TRUTH_ANDIF_EXPR
2793       || code == TRUTH_OR_EXPR || code == TRUTH_ORIF_EXPR
2794       || code == TRUTH_XOR_EXPR)
2795     {
2796       if (!really_overloaded_fn (op0))
2797         op0 = decay_conversion (op0);
2798       if (!really_overloaded_fn (op1))
2799         op1 = decay_conversion (op1);
2800     }
2801   else
2802     {
2803       if (!really_overloaded_fn (op0))
2804         op0 = default_conversion (op0);
2805       if (!really_overloaded_fn (op1))
2806         op1 = default_conversion (op1);
2807     }
2808
2809   /* Strip NON_LVALUE_EXPRs, etc., since we aren't using as an lvalue.  */
2810   STRIP_TYPE_NOPS (op0);
2811   STRIP_TYPE_NOPS (op1);
2812
2813   /* DTRT if one side is an overloaded function, but complain about it.  */
2814   if (type_unknown_p (op0))
2815     {
2816       tree t = instantiate_type (TREE_TYPE (op1), op0, tf_none);
2817       if (t != error_mark_node)
2818         {
2819           pedwarn ("assuming cast to type %qT from overloaded function",
2820                    TREE_TYPE (t));
2821           op0 = t;
2822         }
2823     }
2824   if (type_unknown_p (op1))
2825     {
2826       tree t = instantiate_type (TREE_TYPE (op0), op1, tf_none);
2827       if (t != error_mark_node)
2828         {
2829           pedwarn ("assuming cast to type %qT from overloaded function",
2830                    TREE_TYPE (t));
2831           op1 = t;
2832         }
2833     }
2834
2835   type0 = TREE_TYPE (op0);
2836   type1 = TREE_TYPE (op1);
2837
2838   /* The expression codes of the data types of the arguments tell us
2839      whether the arguments are integers, floating, pointers, etc.  */
2840   code0 = TREE_CODE (type0);
2841   code1 = TREE_CODE (type1);
2842
2843   /* If an error was already reported for one of the arguments,
2844      avoid reporting another error.  */
2845
2846   if (code0 == ERROR_MARK || code1 == ERROR_MARK)
2847     return error_mark_node;
2848
2849   if ((invalid_op_diag
2850        = targetm.invalid_binary_op (code, type0, type1)))
2851     {
2852       error (invalid_op_diag);
2853       return error_mark_node;
2854     }
2855
2856   switch (code)
2857     {
2858     case PLUS_EXPR:
2859       /* Handle the pointer + int case.  */
2860       if (code0 == POINTER_TYPE && code1 == INTEGER_TYPE)
2861         return cp_pointer_int_sum (PLUS_EXPR, op0, op1);
2862       else if (code1 == POINTER_TYPE && code0 == INTEGER_TYPE)
2863         return cp_pointer_int_sum (PLUS_EXPR, op1, op0);
2864       else
2865         common = 1;
2866       break;
2867
2868     case MINUS_EXPR:
2869       /* Subtraction of two similar pointers.
2870          We must subtract them as integers, then divide by object size.  */
2871       if (code0 == POINTER_TYPE && code1 == POINTER_TYPE
2872           && same_type_ignoring_top_level_qualifiers_p (TREE_TYPE (type0),
2873                                                         TREE_TYPE (type1)))
2874         return pointer_diff (op0, op1, common_type (type0, type1));
2875       /* Handle pointer minus int.  Just like pointer plus int.  */
2876       else if (code0 == POINTER_TYPE && code1 == INTEGER_TYPE)
2877         return cp_pointer_int_sum (MINUS_EXPR, op0, op1);
2878       else
2879         common = 1;
2880       break;
2881
2882     case MULT_EXPR:
2883       common = 1;
2884       break;
2885
2886     case TRUNC_DIV_EXPR:
2887     case CEIL_DIV_EXPR:
2888     case FLOOR_DIV_EXPR:
2889     case ROUND_DIV_EXPR:
2890     case EXACT_DIV_EXPR:
2891       if ((code0 == INTEGER_TYPE || code0 == REAL_TYPE
2892            || code0 == COMPLEX_TYPE || code0 == VECTOR_TYPE)
2893           && (code1 == INTEGER_TYPE || code1 == REAL_TYPE
2894               || code1 == COMPLEX_TYPE || code1 == VECTOR_TYPE))
2895         {
2896           if (TREE_CODE (op1) == INTEGER_CST && integer_zerop (op1))
2897             warning (0, "division by zero in %<%E / 0%>", op0);
2898           else if (TREE_CODE (op1) == REAL_CST && real_zerop (op1))
2899             warning (0, "division by zero in %<%E / 0.%>", op0);
2900
2901           if (code0 == COMPLEX_TYPE || code0 == VECTOR_TYPE)
2902             code0 = TREE_CODE (TREE_TYPE (TREE_TYPE (op0)));
2903           if (code1 == COMPLEX_TYPE || code1 == VECTOR_TYPE)
2904             code1 = TREE_CODE (TREE_TYPE (TREE_TYPE (op1)));
2905
2906           if (!(code0 == INTEGER_TYPE && code1 == INTEGER_TYPE))
2907             resultcode = RDIV_EXPR;
2908           else
2909             /* When dividing two signed integers, we have to promote to int.
2910                unless we divide by a constant != -1.  Note that default
2911                conversion will have been performed on the operands at this
2912                point, so we have to dig out the original type to find out if
2913                it was unsigned.  */
2914             shorten = ((TREE_CODE (op0) == NOP_EXPR
2915                         && TYPE_UNSIGNED (TREE_TYPE (TREE_OPERAND (op0, 0))))
2916                        || (TREE_CODE (op1) == INTEGER_CST
2917                            && ! integer_all_onesp (op1)));
2918
2919           common = 1;
2920         }
2921       break;
2922
2923     case BIT_AND_EXPR:
2924     case BIT_IOR_EXPR:
2925     case BIT_XOR_EXPR:
2926       if ((code0 == INTEGER_TYPE && code1 == INTEGER_TYPE)
2927           || (code0 == VECTOR_TYPE && code1 == VECTOR_TYPE))
2928         shorten = -1;
2929       break;
2930
2931     case TRUNC_MOD_EXPR:
2932     case FLOOR_MOD_EXPR:
2933       if (code1 == INTEGER_TYPE && integer_zerop (op1))
2934         warning (0, "division by zero in %<%E %% 0%>", op0);
2935       else if (code1 == REAL_TYPE && real_zerop (op1))
2936         warning (0, "division by zero in %<%E %% 0.%>", op0);
2937
2938       if (code0 == INTEGER_TYPE && code1 == INTEGER_TYPE)
2939         {
2940           /* Although it would be tempting to shorten always here, that loses
2941              on some targets, since the modulo instruction is undefined if the
2942              quotient can't be represented in the computation mode.  We shorten
2943              only if unsigned or if dividing by something we know != -1.  */
2944           shorten = ((TREE_CODE (op0) == NOP_EXPR
2945                       && TYPE_UNSIGNED (TREE_TYPE (TREE_OPERAND (op0, 0))))
2946                      || (TREE_CODE (op1) == INTEGER_CST
2947                          && ! integer_all_onesp (op1)));
2948           common = 1;
2949         }
2950       break;
2951
2952     case TRUTH_ANDIF_EXPR:
2953     case TRUTH_ORIF_EXPR:
2954     case TRUTH_AND_EXPR:
2955     case TRUTH_OR_EXPR:
2956       result_type = boolean_type_node;
2957       break;
2958
2959       /* Shift operations: result has same type as first operand;
2960          always convert second operand to int.
2961          Also set SHORT_SHIFT if shifting rightward.  */
2962
2963     case RSHIFT_EXPR:
2964       if (code0 == INTEGER_TYPE && code1 == INTEGER_TYPE)
2965         {
2966           result_type = type0;
2967           if (TREE_CODE (op1) == INTEGER_CST)
2968             {
2969               if (tree_int_cst_lt (op1, integer_zero_node))
2970                 warning (0, "right shift count is negative");
2971               else
2972                 {
2973                   if (! integer_zerop (op1))
2974                     short_shift = 1;
2975                   if (compare_tree_int (op1, TYPE_PRECISION (type0)) >= 0)
2976                     warning (0, "right shift count >= width of type");
2977                 }
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 LSHIFT_EXPR:
2989       if (code0 == INTEGER_TYPE && code1 == INTEGER_TYPE)
2990         {
2991           result_type = type0;
2992           if (TREE_CODE (op1) == INTEGER_CST)
2993             {
2994               if (tree_int_cst_lt (op1, integer_zero_node))
2995                 warning (0, "left shift count is negative");
2996               else if (compare_tree_int (op1, TYPE_PRECISION (type0)) >= 0)
2997                 warning (0, "left shift count >= width of type");
2998             }
2999           /* Convert the shift-count to an integer, regardless of
3000              size of value being shifted.  */
3001           if (TYPE_MAIN_VARIANT (TREE_TYPE (op1)) != integer_type_node)
3002             op1 = cp_convert (integer_type_node, op1);
3003           /* Avoid converting op1 to result_type later.  */
3004           converted = 1;
3005         }
3006       break;
3007
3008     case RROTATE_EXPR:
3009     case LROTATE_EXPR:
3010       if (code0 == INTEGER_TYPE && code1 == INTEGER_TYPE)
3011         {
3012           result_type = type0;
3013           if (TREE_CODE (op1) == INTEGER_CST)
3014             {
3015               if (tree_int_cst_lt (op1, integer_zero_node))
3016                 warning (0, "%s rotate count is negative",
3017                          (code == LROTATE_EXPR) ? "left" : "right");
3018               else if (compare_tree_int (op1, TYPE_PRECISION (type0)) >= 0)
3019                 warning (0, "%s rotate count >= width of type",
3020                          (code == LROTATE_EXPR) ? "left" : "right");
3021             }
3022           /* Convert the shift-count to an integer, regardless of
3023              size of value being shifted.  */
3024           if (TYPE_MAIN_VARIANT (TREE_TYPE (op1)) != integer_type_node)
3025             op1 = cp_convert (integer_type_node, op1);
3026         }
3027       break;
3028
3029     case EQ_EXPR:
3030     case NE_EXPR:
3031       if (warn_float_equal && (code0 == REAL_TYPE || code1 == REAL_TYPE))
3032         warning (0, "comparing floating point with == or != is unsafe");
3033
3034       build_type = boolean_type_node;
3035       if ((code0 == INTEGER_TYPE || code0 == REAL_TYPE
3036            || code0 == COMPLEX_TYPE)
3037           && (code1 == INTEGER_TYPE || code1 == REAL_TYPE
3038               || code1 == COMPLEX_TYPE))
3039         short_compare = 1;
3040       else if ((code0 == POINTER_TYPE && code1 == POINTER_TYPE)
3041                || (TYPE_PTRMEM_P (type0) && TYPE_PTRMEM_P (type1)))
3042         result_type = composite_pointer_type (type0, type1, op0, op1,
3043                                               "comparison");
3044       else if ((code0 == POINTER_TYPE || TYPE_PTRMEM_P (type0))
3045                && null_ptr_cst_p (op1))
3046         result_type = type0;
3047       else if ((code1 == POINTER_TYPE || TYPE_PTRMEM_P (type1))
3048                && null_ptr_cst_p (op0))
3049         result_type = type1;
3050       else if (code0 == POINTER_TYPE && code1 == INTEGER_TYPE)
3051         {
3052           result_type = type0;
3053           error ("ISO C++ forbids comparison between pointer and integer");
3054         }
3055       else if (code0 == INTEGER_TYPE && code1 == POINTER_TYPE)
3056         {
3057           result_type = type1;
3058           error ("ISO C++ forbids comparison between pointer and integer");
3059         }
3060       else if (TYPE_PTRMEMFUNC_P (type0) && null_ptr_cst_p (op1))
3061         {
3062           op0 = build_ptrmemfunc_access_expr (op0, pfn_identifier);
3063           op1 = cp_convert (TREE_TYPE (op0), integer_zero_node);
3064           result_type = TREE_TYPE (op0);
3065         }
3066       else if (TYPE_PTRMEMFUNC_P (type1) && null_ptr_cst_p (op0))
3067         return cp_build_binary_op (code, op1, op0);
3068       else if (TYPE_PTRMEMFUNC_P (type0) && TYPE_PTRMEMFUNC_P (type1)
3069                && same_type_p (type0, type1))
3070         {
3071           /* E will be the final comparison.  */
3072           tree e;
3073           /* E1 and E2 are for scratch.  */
3074           tree e1;
3075           tree e2;
3076           tree pfn0;
3077           tree pfn1;
3078           tree delta0;
3079           tree delta1;
3080
3081           if (TREE_SIDE_EFFECTS (op0))
3082             op0 = save_expr (op0);
3083           if (TREE_SIDE_EFFECTS (op1))
3084             op1 = save_expr (op1);
3085
3086           /* We generate:
3087
3088              (op0.pfn == op1.pfn
3089               && (!op0.pfn || op0.delta == op1.delta))
3090
3091              The reason for the `!op0.pfn' bit is that a NULL
3092              pointer-to-member is any member with a zero PFN; the
3093              DELTA field is unspecified.  */
3094           pfn0 = pfn_from_ptrmemfunc (op0);
3095           pfn1 = pfn_from_ptrmemfunc (op1);
3096           delta0 = build_ptrmemfunc_access_expr (op0,
3097                                                  delta_identifier);
3098           delta1 = build_ptrmemfunc_access_expr (op1,
3099                                                  delta_identifier);
3100           e1 = cp_build_binary_op (EQ_EXPR, delta0, delta1);
3101           e2 = cp_build_binary_op (EQ_EXPR,
3102                                    pfn0,
3103                                    cp_convert (TREE_TYPE (pfn0),
3104                                                integer_zero_node));
3105           e1 = cp_build_binary_op (TRUTH_ORIF_EXPR, e1, e2);
3106           e2 = build2 (EQ_EXPR, boolean_type_node, pfn0, pfn1);
3107           e = cp_build_binary_op (TRUTH_ANDIF_EXPR, e2, e1);
3108           if (code == EQ_EXPR)
3109             return e;
3110           return cp_build_binary_op (EQ_EXPR, e, integer_zero_node);
3111         }
3112       else
3113         {
3114           gcc_assert (!TYPE_PTRMEMFUNC_P (type0)
3115                       || !same_type_p (TYPE_PTRMEMFUNC_FN_TYPE (type0),
3116                                        type1));
3117           gcc_assert (!TYPE_PTRMEMFUNC_P (type1)
3118                       || !same_type_p (TYPE_PTRMEMFUNC_FN_TYPE (type1),
3119                                        type0));
3120         }
3121
3122       break;
3123
3124     case MAX_EXPR:
3125     case MIN_EXPR:
3126       if ((code0 == INTEGER_TYPE || code0 == REAL_TYPE)
3127            && (code1 == INTEGER_TYPE || code1 == REAL_TYPE))
3128         shorten = 1;
3129       else if (code0 == POINTER_TYPE && code1 == POINTER_TYPE)
3130         result_type = composite_pointer_type (type0, type1, op0, op1,
3131                                               "comparison");
3132       break;
3133
3134     case LE_EXPR:
3135     case GE_EXPR:
3136     case LT_EXPR:
3137     case GT_EXPR:
3138       build_type = boolean_type_node;
3139       if ((code0 == INTEGER_TYPE || code0 == REAL_TYPE)
3140            && (code1 == INTEGER_TYPE || code1 == REAL_TYPE))
3141         short_compare = 1;
3142       else if (code0 == POINTER_TYPE && code1 == POINTER_TYPE)
3143         result_type = composite_pointer_type (type0, type1, op0, op1,
3144                                               "comparison");
3145       else if (code0 == POINTER_TYPE && TREE_CODE (op1) == INTEGER_CST
3146                && integer_zerop (op1))
3147         result_type = type0;
3148       else if (code1 == POINTER_TYPE && TREE_CODE (op0) == INTEGER_CST
3149                && integer_zerop (op0))
3150         result_type = type1;
3151       else if (code0 == POINTER_TYPE && code1 == INTEGER_TYPE)
3152         {
3153           result_type = type0;
3154           pedwarn ("ISO C++ forbids comparison between pointer and integer");
3155         }
3156       else if (code0 == INTEGER_TYPE && code1 == POINTER_TYPE)
3157         {
3158           result_type = type1;
3159           pedwarn ("ISO C++ forbids comparison between pointer and integer");
3160         }
3161       break;
3162
3163     case UNORDERED_EXPR:
3164     case ORDERED_EXPR:
3165     case UNLT_EXPR:
3166     case UNLE_EXPR:
3167     case UNGT_EXPR:
3168     case UNGE_EXPR:
3169     case UNEQ_EXPR:
3170       build_type = integer_type_node;
3171       if (code0 != REAL_TYPE || code1 != REAL_TYPE)
3172         {
3173           error ("unordered comparison on non-floating point argument");
3174           return error_mark_node;
3175         }
3176       common = 1;
3177       break;
3178
3179     default:
3180       break;
3181     }
3182
3183   if (((code0 == INTEGER_TYPE || code0 == REAL_TYPE || code0 == COMPLEX_TYPE)
3184        && (code1 == INTEGER_TYPE || code1 == REAL_TYPE
3185            || code1 == COMPLEX_TYPE)))
3186     arithmetic_types_p = 1;
3187   else
3188     {
3189       arithmetic_types_p = 0;
3190       /* Vector arithmetic is only allowed when both sides are vectors.  */
3191       if (code0 == VECTOR_TYPE && code1 == VECTOR_TYPE)
3192         {
3193           if (!tree_int_cst_equal (TYPE_SIZE (type0), TYPE_SIZE (type1))
3194               || !same_scalar_type_ignoring_signedness (TREE_TYPE (type0),
3195                                                         TREE_TYPE (type1)))
3196             {
3197               binary_op_error (code);
3198               return error_mark_node;
3199             }
3200           arithmetic_types_p = 1;
3201         }
3202     }
3203   /* Determine the RESULT_TYPE, if it is not already known.  */
3204   if (!result_type
3205       && arithmetic_types_p
3206       && (shorten || common || short_compare))
3207     result_type = common_type (type0, type1);
3208
3209   if (!result_type)
3210     {
3211       error ("invalid operands of types %qT and %qT to binary %qO",
3212              TREE_TYPE (orig_op0), TREE_TYPE (orig_op1), code);
3213       return error_mark_node;
3214     }
3215
3216   /* If we're in a template, the only thing we need to know is the
3217      RESULT_TYPE.  */
3218   if (processing_template_decl)
3219     return build2 (resultcode,
3220                    build_type ? build_type : result_type,
3221                    op0, op1);
3222
3223   if (arithmetic_types_p)
3224     {
3225       int none_complex = (code0 != COMPLEX_TYPE && code1 != COMPLEX_TYPE);
3226
3227       /* For certain operations (which identify themselves by shorten != 0)
3228          if both args were extended from the same smaller type,
3229          do the arithmetic in that type and then extend.
3230
3231          shorten !=0 and !=1 indicates a bitwise operation.
3232          For them, this optimization is safe only if
3233          both args are zero-extended or both are sign-extended.
3234          Otherwise, we might change the result.
3235          Eg, (short)-1 | (unsigned short)-1 is (int)-1
3236          but calculated in (unsigned short) it would be (unsigned short)-1.  */
3237
3238       if (shorten && none_complex)
3239         {
3240           int unsigned0, unsigned1;
3241           tree arg0 = get_narrower (op0, &unsigned0);
3242           tree arg1 = get_narrower (op1, &unsigned1);
3243           /* UNS is 1 if the operation to be done is an unsigned one.  */
3244           int uns = TYPE_UNSIGNED (result_type);
3245           tree type;
3246
3247           final_type = result_type;
3248
3249           /* Handle the case that OP0 does not *contain* a conversion
3250              but it *requires* conversion to FINAL_TYPE.  */
3251
3252           if (op0 == arg0 && TREE_TYPE (op0) != final_type)
3253             unsigned0 = TYPE_UNSIGNED (TREE_TYPE (op0));
3254           if (op1 == arg1 && TREE_TYPE (op1) != final_type)
3255             unsigned1 = TYPE_UNSIGNED (TREE_TYPE (op1));
3256
3257           /* Now UNSIGNED0 is 1 if ARG0 zero-extends to FINAL_TYPE.  */
3258
3259           /* For bitwise operations, signedness of nominal type
3260              does not matter.  Consider only how operands were extended.  */
3261           if (shorten == -1)
3262             uns = unsigned0;
3263
3264           /* Note that in all three cases below we refrain from optimizing
3265              an unsigned operation on sign-extended args.
3266              That would not be valid.  */
3267
3268           /* Both args variable: if both extended in same way
3269              from same width, do it in that width.
3270              Do it unsigned if args were zero-extended.  */
3271           if ((TYPE_PRECISION (TREE_TYPE (arg0))
3272                < TYPE_PRECISION (result_type))
3273               && (TYPE_PRECISION (TREE_TYPE (arg1))
3274                   == TYPE_PRECISION (TREE_TYPE (arg0)))
3275               && unsigned0 == unsigned1
3276               && (unsigned0 || !uns))
3277             result_type = c_common_signed_or_unsigned_type
3278               (unsigned0, common_type (TREE_TYPE (arg0), TREE_TYPE (arg1)));
3279           else if (TREE_CODE (arg0) == INTEGER_CST
3280                    && (unsigned1 || !uns)
3281                    && (TYPE_PRECISION (TREE_TYPE (arg1))
3282                        < TYPE_PRECISION (result_type))
3283                    && (type = c_common_signed_or_unsigned_type
3284                        (unsigned1, TREE_TYPE (arg1)),
3285                        int_fits_type_p (arg0, type)))
3286             result_type = type;
3287           else if (TREE_CODE (arg1) == INTEGER_CST
3288                    && (unsigned0 || !uns)
3289                    && (TYPE_PRECISION (TREE_TYPE (arg0))
3290                        < TYPE_PRECISION (result_type))
3291                    && (type = c_common_signed_or_unsigned_type
3292                        (unsigned0, TREE_TYPE (arg0)),
3293                        int_fits_type_p (arg1, type)))
3294             result_type = type;
3295         }
3296
3297       /* Shifts can be shortened if shifting right.  */
3298
3299       if (short_shift)
3300         {
3301           int unsigned_arg;
3302           tree arg0 = get_narrower (op0, &unsigned_arg);
3303
3304           final_type = result_type;
3305
3306           if (arg0 == op0 && final_type == TREE_TYPE (op0))
3307             unsigned_arg = TYPE_UNSIGNED (TREE_TYPE (op0));
3308
3309           if (TYPE_PRECISION (TREE_TYPE (arg0)) < TYPE_PRECISION (result_type)
3310               /* We can shorten only if the shift count is less than the
3311                  number of bits in the smaller type size.  */
3312               && compare_tree_int (op1, TYPE_PRECISION (TREE_TYPE (arg0))) < 0
3313               /* If arg is sign-extended and then unsigned-shifted,
3314                  we can simulate this with a signed shift in arg's type
3315                  only if the extended result is at least twice as wide
3316                  as the arg.  Otherwise, the shift could use up all the
3317                  ones made by sign-extension and bring in zeros.
3318                  We can't optimize that case at all, but in most machines
3319                  it never happens because available widths are 2**N.  */
3320               && (!TYPE_UNSIGNED (final_type)
3321                   || unsigned_arg
3322                   || (((unsigned) 2 * TYPE_PRECISION (TREE_TYPE (arg0)))
3323                       <= TYPE_PRECISION (result_type))))
3324             {
3325               /* Do an unsigned shift if the operand was zero-extended.  */
3326               result_type
3327                 = c_common_signed_or_unsigned_type (unsigned_arg,
3328                                                     TREE_TYPE (arg0));
3329               /* Convert value-to-be-shifted to that type.  */
3330               if (TREE_TYPE (op0) != result_type)
3331                 op0 = cp_convert (result_type, op0);
3332               converted = 1;
3333             }
3334         }
3335
3336       /* Comparison operations are shortened too but differently.
3337          They identify themselves by setting short_compare = 1.  */
3338
3339       if (short_compare)
3340         {
3341           /* Don't write &op0, etc., because that would prevent op0
3342              from being kept in a register.
3343              Instead, make copies of the our local variables and
3344              pass the copies by reference, then copy them back afterward.  */
3345           tree xop0 = op0, xop1 = op1, xresult_type = result_type;
3346           enum tree_code xresultcode = resultcode;
3347           tree val
3348             = shorten_compare (&xop0, &xop1, &xresult_type, &xresultcode);
3349           if (val != 0)
3350             return cp_convert (boolean_type_node, val);
3351           op0 = xop0, op1 = xop1;
3352           converted = 1;
3353           resultcode = xresultcode;
3354         }
3355
3356       if ((short_compare || code == MIN_EXPR || code == MAX_EXPR)
3357           && warn_sign_compare
3358           /* Do not warn until the template is instantiated; we cannot
3359              bound the ranges of the arguments until that point.  */
3360           && !processing_template_decl)
3361         {
3362           int op0_signed = !TYPE_UNSIGNED (TREE_TYPE (orig_op0));
3363           int op1_signed = !TYPE_UNSIGNED (TREE_TYPE (orig_op1));
3364
3365           int unsignedp0, unsignedp1;
3366           tree primop0 = get_narrower (op0, &unsignedp0);
3367           tree primop1 = get_narrower (op1, &unsignedp1);
3368
3369           /* Check for comparison of different enum types.  */
3370           if (TREE_CODE (TREE_TYPE (orig_op0)) == ENUMERAL_TYPE
3371               && TREE_CODE (TREE_TYPE (orig_op1)) == ENUMERAL_TYPE
3372               && TYPE_MAIN_VARIANT (TREE_TYPE (orig_op0))
3373                  != TYPE_MAIN_VARIANT (TREE_TYPE (orig_op1)))
3374             {
3375               warning (0, "comparison between types %q#T and %q#T",
3376                        TREE_TYPE (orig_op0), TREE_TYPE (orig_op1));
3377             }
3378
3379           /* Give warnings for comparisons between signed and unsigned
3380              quantities that may fail.  */
3381           /* Do the checking based on the original operand trees, so that
3382              casts will be considered, but default promotions won't be.  */
3383
3384           /* Do not warn if the comparison is being done in a signed type,
3385              since the signed type will only be chosen if it can represent
3386              all the values of the unsigned type.  */
3387           if (!TYPE_UNSIGNED (result_type))
3388             /* OK */;
3389           /* Do not warn if both operands are unsigned.  */
3390           else if (op0_signed == op1_signed)
3391             /* OK */;
3392           /* Do not warn if the signed quantity is an unsuffixed
3393              integer literal (or some static constant expression
3394              involving such literals or a conditional expression
3395              involving such literals) and it is non-negative.  */
3396           else if ((op0_signed && tree_expr_nonnegative_p (orig_op0))
3397                    || (op1_signed && tree_expr_nonnegative_p (orig_op1)))
3398             /* OK */;
3399           /* Do not warn if the comparison is an equality operation,
3400              the unsigned quantity is an integral constant and it does
3401              not use the most significant bit of result_type.  */
3402           else if ((resultcode == EQ_EXPR || resultcode == NE_EXPR)
3403                    && ((op0_signed && TREE_CODE (orig_op1) == INTEGER_CST
3404                         && int_fits_type_p (orig_op1, c_common_signed_type
3405                                             (result_type)))
3406                         || (op1_signed && TREE_CODE (orig_op0) == INTEGER_CST
3407                             && int_fits_type_p (orig_op0, c_common_signed_type
3408                                                 (result_type)))))
3409             /* OK */;
3410           else
3411             warning (0, "comparison between signed and unsigned integer expressions");
3412
3413           /* Warn if two unsigned values are being compared in a size
3414              larger than their original size, and one (and only one) is the
3415              result of a `~' operator.  This comparison will always fail.
3416
3417              Also warn if one operand is a constant, and the constant does not
3418              have all bits set that are set in the ~ operand when it is
3419              extended.  */
3420
3421           if ((TREE_CODE (primop0) == BIT_NOT_EXPR)
3422               ^ (TREE_CODE (primop1) == BIT_NOT_EXPR))
3423             {
3424               if (TREE_CODE (primop0) == BIT_NOT_EXPR)
3425                 primop0 = get_narrower (TREE_OPERAND (op0, 0), &unsignedp0);
3426               if (TREE_CODE (primop1) == BIT_NOT_EXPR)
3427                 primop1 = get_narrower (TREE_OPERAND (op1, 0), &unsignedp1);
3428
3429               if (host_integerp (primop0, 0) || host_integerp (primop1, 0))
3430                 {
3431                   tree primop;
3432                   HOST_WIDE_INT constant, mask;
3433                   int unsignedp;
3434                   unsigned int bits;
3435
3436                   if (host_integerp (primop0, 0))
3437                     {
3438                       primop = primop1;
3439                       unsignedp = unsignedp1;
3440                       constant = tree_low_cst (primop0, 0);
3441                     }
3442                   else
3443                     {
3444                       primop = primop0;
3445                       unsignedp = unsignedp0;
3446                       constant = tree_low_cst (primop1, 0);
3447                     }
3448