b65b495218a0301a81978fc258687d58370af154
[platform/upstream/gcc.git] / gcc / c-common.h
1 /* Definitions for c-common.c.
2    Copyright (C) 1987, 1993, 1994, 1995, 1997, 1998,
3    1999, 2000 Free Software Foundation, Inc.
4
5 This file is part of GNU CC.
6
7 GNU CC is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2, or (at your option)
10 any later version.
11
12 GNU CC is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15 GNU General Public License for more details.
16
17 You should have received a copy of the GNU General Public License
18 along with GNU CC; see the file COPYING.  If not, write to
19 the Free Software Foundation, 59 Temple Place - Suite 330,
20 Boston, MA 02111-1307, USA.  */
21
22 /* Usage of TREE_LANG_FLAG_?:
23    0: COMPOUND_STMT_NO_SCOPE (in COMPOUND_STMT).
24       TREE_NEGATED_INT (in INTEGER_CST).
25       IDENTIFIER_MARKED (used by search routines).
26       SCOPE_BEGIN_P (in SCOPE_STMT)
27       DECL_PRETTY_FUNCTION_P (in VAR_DECL)
28       NEW_FOR_SCOPE_P (in FOR_STMT)
29    1: C_DECLARED_LABEL_FLAG (in LABEL_DECL)
30       STMT_IS_FULL_EXPR_P (in _STMT)
31    2: STMT_LINENO_FOR_FN_P (in _STMT)
32    3: SCOPE_NO_CLEANUPS_P (in SCOPE_STMT)
33    4: SCOPE_PARTIAL_P (in SCOPE_STMT)
34 */
35
36 /* Reserved identifiers.  */
37
38 enum rid
39 {
40   RID_UNUSED,
41   RID_INT,
42   RID_CHAR,
43   RID_FLOAT,
44   RID_DOUBLE,
45   RID_VOID,
46   RID_UNUSED1,
47
48   /* The first seven are in the order of most frequently used,
49      as emiprically determined.  */
50   RID_FIRST_MODIFIER,
51   RID_EXTERN = RID_FIRST_MODIFIER,
52   RID_CONST,
53   RID_LONG,
54   RID_TYPEDEF,
55   RID_UNSIGNED,
56   RID_SHORT,
57   RID_INLINE,
58   RID_AUTO,
59   RID_STATIC,
60   RID_REGISTER,
61   RID_SIGNED,
62   RID_RESTRICT,
63   RID_VOLATILE,
64   RID_BOUNDED,
65   RID_UNBOUNDED,
66   RID_NOALIAS,
67   RID_ITERATOR,
68   RID_COMPLEX,
69
70   RID_IN,
71   RID_OUT,
72   RID_INOUT,
73   RID_BYCOPY,
74   RID_BYREF,
75   RID_ONEWAY,
76   RID_ID,
77
78   RID_MAX
79 };
80
81 #define NORID RID_UNUSED
82
83 /* The elements of `ridpointers' are identifier nodes for the reserved
84    type names and storage classes.  It is indexed by a RID_... value.  */
85 extern tree *ridpointers;
86
87 /* Standard named or nameless data types of the C compiler.  */
88
89 enum c_tree_index
90 {
91     CTI_WCHAR_TYPE,
92     CTI_SIGNED_WCHAR_TYPE,
93     CTI_UNSIGNED_WCHAR_TYPE,
94     CTI_WIDEST_INT_LIT_TYPE,
95     CTI_WIDEST_UINT_LIT_TYPE,
96
97     CTI_CHAR_ARRAY_TYPE,
98     CTI_WCHAR_ARRAY_TYPE,
99     CTI_INT_ARRAY_TYPE,
100     CTI_STRING_TYPE,
101     CTI_CONST_STRING_TYPE,
102
103     CTI_BOOLEAN_TYPE,
104     CTI_BOOLEAN_TRUE,
105     CTI_BOOLEAN_FALSE,
106     CTI_DEFAULT_FUNCTION_TYPE,
107     CTI_VOID_LIST,
108
109     CTI_VOID_FTYPE,
110     CTI_VOID_FTYPE_PTR,
111     CTI_INT_FTYPE_INT,
112     CTI_PTR_FTYPE_SIZETYPE,
113
114     CTI_G77_INTEGER_TYPE,
115     CTI_G77_UINTEGER_TYPE,
116     CTI_G77_LONGINT_TYPE,
117     CTI_G77_ULONGINT_TYPE,
118
119     CTI_MAX
120 };
121
122 #define wchar_type_node                 c_global_trees[CTI_WCHAR_TYPE]
123 #define signed_wchar_type_node          c_global_trees[CTI_SIGNED_WCHAR_TYPE]
124 #define unsigned_wchar_type_node        c_global_trees[CTI_UNSIGNED_WCHAR_TYPE]
125 #define widest_integer_literal_type_node c_global_trees[CTI_WIDEST_INT_LIT_TYPE]
126 #define widest_unsigned_literal_type_node c_global_trees[CTI_WIDEST_UINT_LIT_TYPE]
127
128 #define boolean_type_node               c_global_trees[CTI_BOOLEAN_TYPE]
129 #define boolean_true_node               c_global_trees[CTI_BOOLEAN_TRUE]
130 #define boolean_false_node              c_global_trees[CTI_BOOLEAN_FALSE]
131
132 #define char_array_type_node            c_global_trees[CTI_CHAR_ARRAY_TYPE]
133 #define wchar_array_type_node           c_global_trees[CTI_WCHAR_ARRAY_TYPE]
134 #define int_array_type_node             c_global_trees[CTI_INT_ARRAY_TYPE]
135 #define string_type_node                c_global_trees[CTI_STRING_TYPE]
136 #define const_string_type_node          c_global_trees[CTI_CONST_STRING_TYPE]
137
138 #define default_function_type           c_global_trees[CTI_DEFAULT_FUNCTION_TYPE]
139 #define void_list_node                  c_global_trees[CTI_VOID_LIST]
140 #define void_ftype                      c_global_trees[CTI_VOID_FTYPE]
141 #define void_ftype_ptr                  c_global_trees[CTI_VOID_FTYPE_PTR]
142 #define int_ftype_int                   c_global_trees[CTI_INT_FTYPE_INT]
143 #define ptr_ftype_sizetype              c_global_trees[CTI_PTR_FTYPE_SIZETYPE]
144
145 /* g77 integer types, which which must be kept in sync with f/com.h */
146 #define g77_integer_type_node           c_global_trees[CTI_G77_INTEGER_TYPE]
147 #define g77_uinteger_type_node          c_global_trees[CTI_G77_UINTEGER_TYPE]
148 #define g77_longint_type_node           c_global_trees[CTI_G77_LONGINT_TYPE]
149 #define g77_ulongint_type_node          c_global_trees[CTI_G77_ULONGINT_TYPE]
150
151 extern tree c_global_trees[CTI_MAX];
152
153 typedef enum c_language_kind
154 {
155   clk_c,           /* A dialect of C: K&R C, ANSI/ISO C89, C2000,
156                        etc. */
157   clk_cplusplus,   /* ANSI/ISO C++ */
158   clk_objective_c  /* Objective C */
159
160 c_language_kind;
161
162 /* The variant of the C language being processed.  Each C language
163    front-end defines this variable.  */
164
165 extern c_language_kind c_language;
166
167 /* Nonzero means give string constants the type `const char *', rather
168    than `char *'.  */
169
170 extern int flag_const_strings;
171
172 /* Warn about *printf or *scanf format/argument anomalies. */
173
174 extern int warn_format;
175
176 /* Nonzero means do some things the same way PCC does.  */
177
178 extern int flag_traditional;
179
180 /* Nonzero means use the ISO C99 dialect of C.  */
181
182 extern int flag_isoc99;
183
184 /* Nonzero means warn about suggesting putting in ()'s.  */
185
186 extern int warn_parentheses;
187
188 /* Warn if a type conversion is done that might have confusing results.  */
189
190 extern int warn_conversion;
191
192 /* C types are partitioned into three subsets: object, function, and
193    incomplete types.  */
194 #define C_TYPE_OBJECT_P(type) \
195   (TREE_CODE (type) != FUNCTION_TYPE && TYPE_SIZE (type))
196
197 #define C_TYPE_INCOMPLETE_P(type) \
198   (TREE_CODE (type) != FUNCTION_TYPE && TYPE_SIZE (type) == 0)
199
200 #define C_TYPE_FUNCTION_P(type) \
201   (TREE_CODE (type) == FUNCTION_TYPE)
202
203 /* For convenience we define a single macro to identify the class of
204    object or incomplete types.  */
205 #define C_TYPE_OBJECT_OR_INCOMPLETE_P(type) \
206   (!C_TYPE_FUNCTION_P (type))
207
208 /* Record in each node resulting from a binary operator
209    what operator was specified for it.  */
210 #define C_EXP_ORIGINAL_CODE(exp) ((enum tree_code) TREE_COMPLEXITY (exp))
211
212 /* Pointer to function to generate the VAR_DECL for __FUNCTION__ etc.
213    ID is the identifier to use, NAME is the string.
214    TYPE_DEP indicates whether it depends on type of the function or not
215    (i.e. __PRETTY_FUNCTION__).  */
216
217 extern tree (*make_fname_decl)                  PARAMS ((tree, const char *, int));
218
219 extern void declare_function_name               PARAMS ((void));
220 extern void decl_attributes                     PARAMS ((tree, tree, tree));
221 extern void init_function_format_info           PARAMS ((void));
222 extern void check_function_format               PARAMS ((tree, tree, tree));
223 extern void c_apply_type_quals_to_decl          PARAMS ((int, tree));
224 /* Print an error message for invalid operands to arith operation CODE.
225    NOP_EXPR is used as a special case (see truthvalue_conversion).  */
226 extern void binary_op_error                     PARAMS ((enum tree_code));
227 extern void c_expand_expr_stmt                  PARAMS ((tree));
228 extern void c_expand_start_cond                 PARAMS ((tree, int, int));
229 extern void c_expand_start_else                 PARAMS ((void));
230 extern void c_expand_end_cond                   PARAMS ((void));
231 /* Validate the expression after `case' and apply default promotions.  */
232 extern tree check_case_value                    PARAMS ((tree));
233 /* Concatenate a list of STRING_CST nodes into one STRING_CST.  */
234 extern tree combine_strings                     PARAMS ((tree));
235 extern void constant_expression_warning         PARAMS ((tree));
236 extern tree convert_and_check                   PARAMS ((tree, tree));
237 extern void overflow_warning                    PARAMS ((tree));
238 extern void unsigned_conversion_warning         PARAMS ((tree, tree));
239
240 /* Read the rest of the current #-directive line.  */
241 #if USE_CPPLIB
242 extern char *get_directive_line                 PARAMS ((void));
243 #define GET_DIRECTIVE_LINE() get_directive_line ()
244 #else
245 extern char *get_directive_line                 PARAMS ((FILE *));
246 #define GET_DIRECTIVE_LINE() get_directive_line (finput)
247 #endif
248
249 /* Subroutine of build_binary_op, used for comparison operations.
250    See if the operands have both been converted from subword integer types
251    and, if so, perhaps change them both back to their original type.  */
252 extern tree shorten_compare                     PARAMS ((tree *, tree *, tree *, enum tree_code *));
253 /* Prepare expr to be an argument of a TRUTH_NOT_EXPR,
254    or validate its data type for an `if' or `while' statement or ?..: exp. */
255 extern tree truthvalue_conversion               PARAMS ((tree));
256 extern tree type_for_mode                       PARAMS ((enum machine_mode, int));
257 extern tree type_for_size                       PARAMS ((unsigned, int));
258
259 /* Build tree nodes and builtin functions common to both C and C++ language
260    frontends.  */
261 extern void c_common_nodes_and_builtins         PARAMS ((int, int, int));
262
263 extern tree build_va_arg                        PARAMS ((tree, tree));
264
265 /* Nonzero if the type T promotes to itself.
266    ANSI C states explicitly the list of types that promote;
267    in particular, short promotes to int even if they have the same width.  */
268 #define C_PROMOTING_INTEGER_TYPE_P(t)                           \
269   (TREE_CODE ((t)) == INTEGER_TYPE                              \
270    && (TYPE_MAIN_VARIANT (t) == char_type_node                  \
271        || TYPE_MAIN_VARIANT (t) == signed_char_type_node        \
272        || TYPE_MAIN_VARIANT (t) == unsigned_char_type_node      \
273        || TYPE_MAIN_VARIANT (t) == short_integer_type_node      \
274        || TYPE_MAIN_VARIANT (t) == short_unsigned_type_node))
275
276 extern int self_promoting_args_p                PARAMS ((tree));
277 extern tree simple_type_promotes_to             PARAMS ((tree));
278
279 /* These macros provide convenient access to the various _STMT nodes
280    created when parsing template declarations.  */
281
282 /* IF_STMT accessors. These give access to the condtion of the if
283    statement, the then block of the if statement, and the else block
284    of the if stsatement if it exists. */
285 #define IF_COND(NODE)           TREE_OPERAND (IF_STMT_CHECK (NODE), 0)
286 #define THEN_CLAUSE(NODE)       TREE_OPERAND (IF_STMT_CHECK (NODE), 1)
287 #define ELSE_CLAUSE(NODE)       TREE_OPERAND (IF_STMT_CHECK (NODE), 2)
288
289 /* WHILE_STMT accessors. These give access to the condtion of the
290    while statement and the body of the while statement, respectively. */
291 #define WHILE_COND(NODE)        TREE_OPERAND (WHILE_STMT_CHECK (NODE), 0)
292 #define WHILE_BODY(NODE)        TREE_OPERAND (WHILE_STMT_CHECK (NODE), 1)
293
294 /* DO_STMT accessors. These give access to the condition of the do
295    statement and the body of the do statement, respectively. */
296 #define DO_COND(NODE)           TREE_OPERAND (DO_STMT_CHECK (NODE), 0)
297 #define DO_BODY(NODE)           TREE_OPERAND (DO_STMT_CHECK (NODE), 1)
298
299 /* RETURN_STMT accessor. This gives the expression associated with a
300    return statement. */
301 #define RETURN_EXPR(NODE)       TREE_OPERAND (RETURN_STMT_CHECK (NODE), 0)
302
303 /* EXPR_STMT accessor. This gives the expression associated with an
304    expression statement. */
305 #define EXPR_STMT_EXPR(NODE)    TREE_OPERAND (EXPR_STMT_CHECK (NODE), 0)
306
307 /* FOR_STMT accessors. These give access to the init statement,
308    condition, update expression, and body of the for statement,
309    respectively. */
310 #define FOR_INIT_STMT(NODE)     TREE_OPERAND (FOR_STMT_CHECK (NODE), 0)
311 #define FOR_COND(NODE)          TREE_OPERAND (FOR_STMT_CHECK (NODE), 1)
312 #define FOR_EXPR(NODE)          TREE_OPERAND (FOR_STMT_CHECK (NODE), 2)
313 #define FOR_BODY(NODE)          TREE_OPERAND (FOR_STMT_CHECK (NODE), 3)
314
315 /* SWITCH_STMT accessors. These give access to the condition and body
316    of the switch statement, respectively. */
317 #define SWITCH_COND(NODE)       TREE_OPERAND (SWITCH_STMT_CHECK (NODE), 0)
318 #define SWITCH_BODY(NODE)       TREE_OPERAND (SWITCH_STMT_CHECK (NODE), 1)
319
320 /* CASE_LABEL accessors. These give access to the high and low values
321    of a case label, respectively. */
322 #define CASE_LOW(NODE)          TREE_OPERAND (CASE_LABEL_CHECK (NODE), 0)
323 #define CASE_HIGH(NODE)         TREE_OPERAND (CASE_LABEL_CHECK (NODE), 1)
324
325 /* GOTO_STMT accessor. This gives access to the label associated with
326    a goto statement. */
327 #define GOTO_DESTINATION(NODE)  TREE_OPERAND (GOTO_STMT_CHECK (NODE), 0)
328
329 /* COMPOUND_STMT accessor. This gives access to the TREE_LIST of
330    statements assocated with a compound statement. The result is the
331    first statement in the list. Succeeding nodes can be acccessed by
332    calling TREE_CHAIN on a node in the list. */
333 #define COMPOUND_BODY(NODE)     TREE_OPERAND (COMPOUND_STMT_CHECK (NODE), 0)
334
335 /* ASM_STMT accessors. ASM_STRING returns a STRING_CST for the
336    instruction (e.g., "mov x, y"). ASM_OUTPUTS, ASM_INPUTS, and
337    ASM_CLOBBERS represent the outputs, inputs, and clobbers for the
338    statement. */
339 #define ASM_CV_QUAL(NODE)       TREE_OPERAND (ASM_STMT_CHECK (NODE), 0)
340 #define ASM_STRING(NODE)        TREE_OPERAND (ASM_STMT_CHECK (NODE), 1)
341 #define ASM_OUTPUTS(NODE)       TREE_OPERAND (ASM_STMT_CHECK (NODE), 2)
342 #define ASM_INPUTS(NODE)        TREE_OPERAND (ASM_STMT_CHECK (NODE), 3)
343 #define ASM_CLOBBERS(NODE)      TREE_OPERAND (ASM_STMT_CHECK (NODE), 4)
344
345 /* DECL_STMT accessor. This gives access to the DECL associated with
346    the given declaration statement. */ 
347 #define DECL_STMT_DECL(NODE)    TREE_OPERAND (DECL_STMT_CHECK (NODE), 0)
348
349 /* STMT_EXPR accessor. */
350 #define STMT_EXPR_STMT(NODE)    TREE_OPERAND (STMT_EXPR_CHECK (NODE), 0)
351
352 /* LABEL_STMT accessor. This gives access to the label associated with
353    the given label statement. */
354 #define LABEL_STMT_LABEL(NODE)  TREE_OPERAND (LABEL_STMT_CHECK (NODE), 0)
355
356 /* Nonzero if this SCOPE_STMT is for the beginning of a scope.  */
357 #define SCOPE_BEGIN_P(NODE) \
358   (TREE_LANG_FLAG_0 (SCOPE_STMT_CHECK (NODE))) 
359
360 /* Nonzero if this SCOPE_STMT is for the end of a scope.  */
361 #define SCOPE_END_P(NODE) \
362   (!SCOPE_BEGIN_P (SCOPE_STMT_CHECK (NODE)))
363
364 /* The BLOCK containing the declarations contained in this scope.  */
365 #define SCOPE_STMT_BLOCK(NODE) \
366   (TREE_OPERAND (SCOPE_STMT_CHECK (NODE), 0))
367
368 /* Nonzero for a SCOPE_STMT if there were no variables in this scope.  */
369 #define SCOPE_NULLIFIED_P(NODE) \
370   (SCOPE_STMT_BLOCK ((NODE)) == NULL_TREE)
371
372 /* Nonzero for a SCOPE_STMT which represents a lexical scope, but
373    which should be treated as non-existant from the point of view of
374    running cleanup actions.  */
375 #define SCOPE_NO_CLEANUPS_P(NODE) \
376   (TREE_LANG_FLAG_3 (SCOPE_STMT_CHECK (NODE)))
377
378 /* Nonzero for a SCOPE_STMT if this statement is for a partial scope.
379    For example, in:
380   
381      S s;
382      l:
383      S s2;
384      goto l;
385
386    there is (implicitly) a new scope after `l', even though there are
387    no curly braces.  In particular, when we hit the goto, we must
388    destroy s2 and then re-construct it.  For the implicit scope,
389    SCOPE_PARTIAL_P will be set.  */
390 #define SCOPE_PARTIAL_P(NODE) \
391   (TREE_LANG_FLAG_4 (SCOPE_STMT_CHECK (NODE)))
392
393 /* Nonzero for an ASM_STMT if the assembly statement is volatile.  */
394 #define ASM_VOLATILE_P(NODE)                    \
395   (ASM_CV_QUAL (ASM_STMT_CHECK (NODE)) != NULL_TREE)
396
397 /* The line-number at which a statement began.  But if
398    STMT_LINENO_FOR_FN_P does holds, then this macro gives the
399    line number for the end of the current function instead.  */
400 #define STMT_LINENO(NODE)                       \
401   (TREE_COMPLEXITY ((NODE)))
402
403 /* If non-zero, the STMT_LINENO for NODE is the line at which the
404    function ended.  */
405 #define STMT_LINENO_FOR_FN_P(NODE)              \
406   (TREE_LANG_FLAG_2 ((NODE)))
407
408 /* Nonzero if we want the new ISO rules for pushing a new scope for `for'
409    initialization variables. */
410 #define NEW_FOR_SCOPE_P(NODE) (TREE_LANG_FLAG_0 (NODE)) 
411
412 #define DEFTREECODE(SYM, NAME, TYPE, LENGTH) SYM,
413
414 enum c_tree_code {
415   C_DUMMY_TREE_CODE = LAST_AND_UNUSED_TREE_CODE,
416 #include "c-common.def"
417   LAST_C_TREE_CODE
418 };
419
420 #undef DEFTREECODE
421
422 extern void add_c_tree_codes                    PARAMS ((void));
423 extern void genrtl_do_pushlevel                 PARAMS ((void));
424 extern void genrtl_clear_out_block              PARAMS ((void));
425 extern void genrtl_goto_stmt                    PARAMS ((tree));
426 extern void genrtl_expr_stmt                    PARAMS ((tree));
427 extern void genrtl_decl_stmt                    PARAMS ((tree));
428 extern void genrtl_if_stmt                      PARAMS ((tree));
429 extern void genrtl_while_stmt                   PARAMS ((tree));
430 extern void genrtl_do_stmt                      PARAMS ((tree));
431 extern void genrtl_return_stmt                  PARAMS ((tree));
432 extern void genrtl_for_stmt                     PARAMS ((tree));
433 extern void genrtl_break_stmt                   PARAMS ((void));
434 extern void genrtl_continue_stmt                PARAMS ((void));
435 extern void genrtl_scope_stmt                   PARAMS ((tree));
436 extern void genrtl_switch_stmt                  PARAMS ((tree));
437 extern void genrtl_case_label                   PARAMS ((tree, tree));
438 extern void genrtl_compound_stmt                PARAMS ((tree));
439 extern void genrtl_asm_stmt                     PARAMS ((tree, tree,
440                                                          tree, tree,
441                                                          tree));
442 extern void genrtl_decl_cleanup                 PARAMS ((tree, tree));
443 extern int stmts_are_full_exprs_p               PARAMS ((void));
444 typedef void (*expand_expr_stmt_fn)             PARAMS ((tree));
445 extern expand_expr_stmt_fn lang_expand_expr_stmt;
446 extern int anon_aggr_type_p                     PARAMS ((tree));
447
448 /* For a VAR_DECL that is an anonymous union, these are the various
449    sub-variables that make up the anonymous union.  */
450 #define DECL_ANON_UNION_ELEMS(NODE) DECL_ARGUMENTS ((NODE))
451
452 extern void emit_local_var                      PARAMS ((tree));
453 extern void make_rtl_for_local_static           PARAMS ((tree));
454 extern tree expand_cond                         PARAMS ((tree));
455 extern tree expand_stmt                         PARAMS ((tree));
456 extern tree lang_expand_stmt                    PARAMS ((tree));
457 extern void c_expand_return                     PARAMS ((tree));
458 extern tree c_expand_start_case                 PARAMS ((tree));
459 extern void do_case                             PARAMS ((tree, tree));
460 extern tree build_stmt                          PARAMS ((enum tree_code, ...));
461 extern tree build_case_label                    PARAMS ((tree, tree));
462 extern tree build_continue_stmt                 PARAMS ((void));
463 extern tree build_break_stmt                    PARAMS ((void));
464 extern tree build_return_stmt                   PARAMS ((tree));
465
466 #define COMPOUND_STMT_NO_SCOPE(NODE)    TREE_LANG_FLAG_0 (NODE)
467
468 extern void c_expand_asm_operands               PARAMS ((tree, tree, tree, tree, int, const char *, int));
469 extern int current_function_name_declared       PARAMS ((void));
470 extern void set_current_function_name_declared  PARAMS ((int));
471
472 /* These functions must be defined by each front-end which implements
473    a variant of the C language.  They are used in c-common.c.  */
474
475 extern tree build_unary_op                      PARAMS ((enum tree_code,
476                                                          tree, int));
477 extern tree build_binary_op                     PARAMS ((enum tree_code,
478                                                          tree, tree, int));
479 extern int lvalue_p                             PARAMS ((tree));
480 extern tree default_conversion                  PARAMS ((tree));
481
482 /* Given two integer or real types, return the type for their sum.
483    Given two compatible ANSI C types, returns the merged type.  */
484
485 extern tree common_type                         PARAMS ((tree, tree));