OSDN Git Service

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