1 /* Definitions for c-common.c.
2 Copyright (C) 1987, 1993, 1994, 1995, 1997, 1998,
3 1999, 2000 Free Software Foundation, Inc.
5 This file is part of GNU CC.
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)
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.
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. */
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)
36 /* Reserved identifiers. */
48 /* The first seven are in the order of most frequently used,
49 as emiprically determined. */
51 RID_EXTERN
= RID_FIRST_MODIFIER
,
81 #define NORID RID_UNUSED
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
;
87 /* Standard named or nameless data types of the C compiler. */
92 CTI_SIGNED_WCHAR_TYPE
,
93 CTI_UNSIGNED_WCHAR_TYPE
,
95 CTI_SIGNED_SIZE_TYPE
, /* For format checking only. */
96 CTI_UNSIGNED_PTRDIFF_TYPE
, /* For format checking only. */
97 CTI_WIDEST_INT_LIT_TYPE
,
98 CTI_WIDEST_UINT_LIT_TYPE
,
101 CTI_WCHAR_ARRAY_TYPE
,
104 CTI_CONST_STRING_TYPE
,
109 CTI_DEFAULT_FUNCTION_TYPE
,
115 CTI_PTR_FTYPE_SIZETYPE
,
117 CTI_G77_INTEGER_TYPE
,
118 CTI_G77_UINTEGER_TYPE
,
119 CTI_G77_LONGINT_TYPE
,
120 CTI_G77_ULONGINT_TYPE
,
125 #define wchar_type_node c_global_trees[CTI_WCHAR_TYPE]
126 #define signed_wchar_type_node c_global_trees[CTI_SIGNED_WCHAR_TYPE]
127 #define unsigned_wchar_type_node c_global_trees[CTI_UNSIGNED_WCHAR_TYPE]
128 #define wint_type_node c_global_trees[CTI_WINT_TYPE]
129 #define signed_size_type_node c_global_trees[CTI_SIGNED_SIZE_TYPE]
130 #define unsigned_ptrdiff_type_node c_global_trees[CTI_UNSIGNED_PTRDIFF_TYPE]
131 #define widest_integer_literal_type_node c_global_trees[CTI_WIDEST_INT_LIT_TYPE]
132 #define widest_unsigned_literal_type_node c_global_trees[CTI_WIDEST_UINT_LIT_TYPE]
134 #define boolean_type_node c_global_trees[CTI_BOOLEAN_TYPE]
135 #define boolean_true_node c_global_trees[CTI_BOOLEAN_TRUE]
136 #define boolean_false_node c_global_trees[CTI_BOOLEAN_FALSE]
138 #define char_array_type_node c_global_trees[CTI_CHAR_ARRAY_TYPE]
139 #define wchar_array_type_node c_global_trees[CTI_WCHAR_ARRAY_TYPE]
140 #define int_array_type_node c_global_trees[CTI_INT_ARRAY_TYPE]
141 #define string_type_node c_global_trees[CTI_STRING_TYPE]
142 #define const_string_type_node c_global_trees[CTI_CONST_STRING_TYPE]
144 #define default_function_type c_global_trees[CTI_DEFAULT_FUNCTION_TYPE]
145 #define void_list_node c_global_trees[CTI_VOID_LIST]
146 #define void_ftype c_global_trees[CTI_VOID_FTYPE]
147 #define void_ftype_ptr c_global_trees[CTI_VOID_FTYPE_PTR]
148 #define int_ftype_int c_global_trees[CTI_INT_FTYPE_INT]
149 #define ptr_ftype_sizetype c_global_trees[CTI_PTR_FTYPE_SIZETYPE]
151 /* g77 integer types, which which must be kept in sync with f/com.h */
152 #define g77_integer_type_node c_global_trees[CTI_G77_INTEGER_TYPE]
153 #define g77_uinteger_type_node c_global_trees[CTI_G77_UINTEGER_TYPE]
154 #define g77_longint_type_node c_global_trees[CTI_G77_LONGINT_TYPE]
155 #define g77_ulongint_type_node c_global_trees[CTI_G77_ULONGINT_TYPE]
157 extern tree c_global_trees
[CTI_MAX
];
159 typedef enum c_language_kind
161 clk_c
, /* A dialect of C: K&R C, ANSI/ISO C89, C2000,
163 clk_cplusplus
, /* ANSI/ISO C++ */
164 clk_objective_c
/* Objective C */
168 /* The variant of the C language being processed. Each C language
169 front-end defines this variable. */
171 extern c_language_kind c_language
;
173 /* Nonzero means give string constants the type `const char *', rather
176 extern int flag_const_strings
;
178 /* Warn about *printf or *scanf format/argument anomalies. */
180 extern int warn_format
;
182 /* Nonzero means do some things the same way PCC does. */
184 extern int flag_traditional
;
186 /* Nonzero means enable C89 Amendment 1 features, other than digraphs. */
188 extern int flag_isoc94
;
190 /* Nonzero means use the ISO C99 dialect of C. */
192 extern int flag_isoc99
;
194 /* Nonzero means accept digraphs. */
196 extern int flag_digraphs
;
198 /* Nonzero means environment is hosted (i.e., not freestanding) */
200 extern int flag_hosted
;
202 /* Nonzero means add default format_arg attributes for functions not
205 extern int flag_noniso_default_format_attributes
;
207 /* Nonzero means warn about suggesting putting in ()'s. */
209 extern int warn_parentheses
;
211 /* Warn if a type conversion is done that might have confusing results. */
213 extern int warn_conversion
;
215 /* C types are partitioned into three subsets: object, function, and
217 #define C_TYPE_OBJECT_P(type) \
218 (TREE_CODE (type) != FUNCTION_TYPE && TYPE_SIZE (type))
220 #define C_TYPE_INCOMPLETE_P(type) \
221 (TREE_CODE (type) != FUNCTION_TYPE && TYPE_SIZE (type) == 0)
223 #define C_TYPE_FUNCTION_P(type) \
224 (TREE_CODE (type) == FUNCTION_TYPE)
226 /* For convenience we define a single macro to identify the class of
227 object or incomplete types. */
228 #define C_TYPE_OBJECT_OR_INCOMPLETE_P(type) \
229 (!C_TYPE_FUNCTION_P (type))
231 /* Record in each node resulting from a binary operator
232 what operator was specified for it. */
233 #define C_EXP_ORIGINAL_CODE(exp) ((enum tree_code) TREE_COMPLEXITY (exp))
235 /* Pointer to function to generate the VAR_DECL for __FUNCTION__ etc.
236 ID is the identifier to use, NAME is the string.
237 TYPE_DEP indicates whether it depends on type of the function or not
238 (i.e. __PRETTY_FUNCTION__). */
240 extern tree (*make_fname_decl
) PARAMS ((tree
, const char *, int));
242 extern void declare_function_name
PARAMS ((void));
243 extern void decl_attributes
PARAMS ((tree
, tree
, tree
));
244 extern void init_function_format_info
PARAMS ((void));
245 extern void check_function_format
PARAMS ((tree
, tree
, tree
));
246 extern void c_apply_type_quals_to_decl
PARAMS ((int, tree
));
247 /* Print an error message for invalid operands to arith operation CODE.
248 NOP_EXPR is used as a special case (see truthvalue_conversion). */
249 extern void binary_op_error
PARAMS ((enum tree_code
));
250 extern void c_expand_expr_stmt
PARAMS ((tree
));
251 extern void c_expand_start_cond
PARAMS ((tree
, int, int));
252 extern void c_expand_start_else
PARAMS ((void));
253 extern void c_expand_end_cond
PARAMS ((void));
254 /* Validate the expression after `case' and apply default promotions. */
255 extern tree check_case_value
PARAMS ((tree
));
256 /* Concatenate a list of STRING_CST nodes into one STRING_CST. */
257 extern tree combine_strings
PARAMS ((tree
));
258 extern void constant_expression_warning
PARAMS ((tree
));
259 extern tree convert_and_check
PARAMS ((tree
, tree
));
260 extern void overflow_warning
PARAMS ((tree
));
261 extern void unsigned_conversion_warning
PARAMS ((tree
, tree
));
263 /* Read the rest of the current #-directive line. */
265 extern char *get_directive_line
PARAMS ((void));
266 #define GET_DIRECTIVE_LINE() get_directive_line ()
268 extern char *get_directive_line
PARAMS ((FILE *));
269 #define GET_DIRECTIVE_LINE() get_directive_line (finput)
272 /* Subroutine of build_binary_op, used for comparison operations.
273 See if the operands have both been converted from subword integer types
274 and, if so, perhaps change them both back to their original type. */
275 extern tree shorten_compare
PARAMS ((tree
*, tree
*, tree
*, enum tree_code
*));
276 /* Prepare expr to be an argument of a TRUTH_NOT_EXPR,
277 or validate its data type for an `if' or `while' statement or ?..: exp. */
278 extern tree truthvalue_conversion
PARAMS ((tree
));
279 extern tree type_for_mode
PARAMS ((enum machine_mode
, int));
280 extern tree type_for_size
PARAMS ((unsigned, int));
282 extern unsigned int min_precision
PARAMS ((tree
, int));
284 /* Add qualifiers to a type, in the fashion for C. */
285 extern tree c_build_qualified_type
PARAMS ((tree
, int));
287 /* Build tree nodes and builtin functions common to both C and C++ language
289 extern void c_common_nodes_and_builtins
PARAMS ((int, int, int));
291 extern tree build_va_arg
PARAMS ((tree
, tree
));
293 /* Nonzero if the type T promotes to itself.
294 ANSI C states explicitly the list of types that promote;
295 in particular, short promotes to int even if they have the same width. */
296 #define C_PROMOTING_INTEGER_TYPE_P(t) \
297 (TREE_CODE ((t)) == INTEGER_TYPE \
298 && (TYPE_MAIN_VARIANT (t) == char_type_node \
299 || TYPE_MAIN_VARIANT (t) == signed_char_type_node \
300 || TYPE_MAIN_VARIANT (t) == unsigned_char_type_node \
301 || TYPE_MAIN_VARIANT (t) == short_integer_type_node \
302 || TYPE_MAIN_VARIANT (t) == short_unsigned_type_node))
304 extern int self_promoting_args_p
PARAMS ((tree
));
305 extern tree simple_type_promotes_to
PARAMS ((tree
));
307 /* These macros provide convenient access to the various _STMT nodes
308 created when parsing template declarations. */
310 /* IF_STMT accessors. These give access to the condtion of the if
311 statement, the then block of the if statement, and the else block
312 of the if stsatement if it exists. */
313 #define IF_COND(NODE) TREE_OPERAND (IF_STMT_CHECK (NODE), 0)
314 #define THEN_CLAUSE(NODE) TREE_OPERAND (IF_STMT_CHECK (NODE), 1)
315 #define ELSE_CLAUSE(NODE) TREE_OPERAND (IF_STMT_CHECK (NODE), 2)
317 /* WHILE_STMT accessors. These give access to the condtion of the
318 while statement and the body of the while statement, respectively. */
319 #define WHILE_COND(NODE) TREE_OPERAND (WHILE_STMT_CHECK (NODE), 0)
320 #define WHILE_BODY(NODE) TREE_OPERAND (WHILE_STMT_CHECK (NODE), 1)
322 /* DO_STMT accessors. These give access to the condition of the do
323 statement and the body of the do statement, respectively. */
324 #define DO_COND(NODE) TREE_OPERAND (DO_STMT_CHECK (NODE), 0)
325 #define DO_BODY(NODE) TREE_OPERAND (DO_STMT_CHECK (NODE), 1)
327 /* RETURN_STMT accessor. This gives the expression associated with a
329 #define RETURN_EXPR(NODE) TREE_OPERAND (RETURN_STMT_CHECK (NODE), 0)
331 /* EXPR_STMT accessor. This gives the expression associated with an
332 expression statement. */
333 #define EXPR_STMT_EXPR(NODE) TREE_OPERAND (EXPR_STMT_CHECK (NODE), 0)
335 /* FOR_STMT accessors. These give access to the init statement,
336 condition, update expression, and body of the for statement,
338 #define FOR_INIT_STMT(NODE) TREE_OPERAND (FOR_STMT_CHECK (NODE), 0)
339 #define FOR_COND(NODE) TREE_OPERAND (FOR_STMT_CHECK (NODE), 1)
340 #define FOR_EXPR(NODE) TREE_OPERAND (FOR_STMT_CHECK (NODE), 2)
341 #define FOR_BODY(NODE) TREE_OPERAND (FOR_STMT_CHECK (NODE), 3)
343 /* SWITCH_STMT accessors. These give access to the condition and body
344 of the switch statement, respectively. */
345 #define SWITCH_COND(NODE) TREE_OPERAND (SWITCH_STMT_CHECK (NODE), 0)
346 #define SWITCH_BODY(NODE) TREE_OPERAND (SWITCH_STMT_CHECK (NODE), 1)
348 /* CASE_LABEL accessors. These give access to the high and low values
349 of a case label, respectively. */
350 #define CASE_LOW(NODE) TREE_OPERAND (CASE_LABEL_CHECK (NODE), 0)
351 #define CASE_HIGH(NODE) TREE_OPERAND (CASE_LABEL_CHECK (NODE), 1)
353 /* GOTO_STMT accessor. This gives access to the label associated with
355 #define GOTO_DESTINATION(NODE) TREE_OPERAND (GOTO_STMT_CHECK (NODE), 0)
357 /* COMPOUND_STMT accessor. This gives access to the TREE_LIST of
358 statements assocated with a compound statement. The result is the
359 first statement in the list. Succeeding nodes can be acccessed by
360 calling TREE_CHAIN on a node in the list. */
361 #define COMPOUND_BODY(NODE) TREE_OPERAND (COMPOUND_STMT_CHECK (NODE), 0)
363 /* ASM_STMT accessors. ASM_STRING returns a STRING_CST for the
364 instruction (e.g., "mov x, y"). ASM_OUTPUTS, ASM_INPUTS, and
365 ASM_CLOBBERS represent the outputs, inputs, and clobbers for the
367 #define ASM_CV_QUAL(NODE) TREE_OPERAND (ASM_STMT_CHECK (NODE), 0)
368 #define ASM_STRING(NODE) TREE_OPERAND (ASM_STMT_CHECK (NODE), 1)
369 #define ASM_OUTPUTS(NODE) TREE_OPERAND (ASM_STMT_CHECK (NODE), 2)
370 #define ASM_INPUTS(NODE) TREE_OPERAND (ASM_STMT_CHECK (NODE), 3)
371 #define ASM_CLOBBERS(NODE) TREE_OPERAND (ASM_STMT_CHECK (NODE), 4)
373 /* DECL_STMT accessor. This gives access to the DECL associated with
374 the given declaration statement. */
375 #define DECL_STMT_DECL(NODE) TREE_OPERAND (DECL_STMT_CHECK (NODE), 0)
377 /* STMT_EXPR accessor. */
378 #define STMT_EXPR_STMT(NODE) TREE_OPERAND (STMT_EXPR_CHECK (NODE), 0)
380 /* LABEL_STMT accessor. This gives access to the label associated with
381 the given label statement. */
382 #define LABEL_STMT_LABEL(NODE) TREE_OPERAND (LABEL_STMT_CHECK (NODE), 0)
384 /* Nonzero if this SCOPE_STMT is for the beginning of a scope. */
385 #define SCOPE_BEGIN_P(NODE) \
386 (TREE_LANG_FLAG_0 (SCOPE_STMT_CHECK (NODE)))
388 /* Nonzero if this SCOPE_STMT is for the end of a scope. */
389 #define SCOPE_END_P(NODE) \
390 (!SCOPE_BEGIN_P (SCOPE_STMT_CHECK (NODE)))
392 /* The BLOCK containing the declarations contained in this scope. */
393 #define SCOPE_STMT_BLOCK(NODE) \
394 (TREE_OPERAND (SCOPE_STMT_CHECK (NODE), 0))
396 /* Nonzero for a SCOPE_STMT if there were no variables in this scope. */
397 #define SCOPE_NULLIFIED_P(NODE) \
398 (SCOPE_STMT_BLOCK ((NODE)) == NULL_TREE)
400 /* Nonzero for a SCOPE_STMT which represents a lexical scope, but
401 which should be treated as non-existant from the point of view of
402 running cleanup actions. */
403 #define SCOPE_NO_CLEANUPS_P(NODE) \
404 (TREE_LANG_FLAG_3 (SCOPE_STMT_CHECK (NODE)))
406 /* Nonzero for a SCOPE_STMT if this statement is for a partial scope.
414 there is (implicitly) a new scope after `l', even though there are
415 no curly braces. In particular, when we hit the goto, we must
416 destroy s2 and then re-construct it. For the implicit scope,
417 SCOPE_PARTIAL_P will be set. */
418 #define SCOPE_PARTIAL_P(NODE) \
419 (TREE_LANG_FLAG_4 (SCOPE_STMT_CHECK (NODE)))
421 /* Nonzero for an ASM_STMT if the assembly statement is volatile. */
422 #define ASM_VOLATILE_P(NODE) \
423 (ASM_CV_QUAL (ASM_STMT_CHECK (NODE)) != NULL_TREE)
425 /* The line-number at which a statement began. But if
426 STMT_LINENO_FOR_FN_P does holds, then this macro gives the
427 line number for the end of the current function instead. */
428 #define STMT_LINENO(NODE) \
429 (TREE_COMPLEXITY ((NODE)))
431 /* If non-zero, the STMT_LINENO for NODE is the line at which the
433 #define STMT_LINENO_FOR_FN_P(NODE) \
434 (TREE_LANG_FLAG_2 ((NODE)))
436 /* Nonzero if we want the new ISO rules for pushing a new scope for `for'
437 initialization variables. */
438 #define NEW_FOR_SCOPE_P(NODE) (TREE_LANG_FLAG_0 (NODE))
440 #define DEFTREECODE(SYM, NAME, TYPE, LENGTH) SYM,
443 C_DUMMY_TREE_CODE
= LAST_AND_UNUSED_TREE_CODE
,
444 #include "c-common.def"
450 extern void add_c_tree_codes
PARAMS ((void));
451 extern void genrtl_do_pushlevel
PARAMS ((void));
452 extern void genrtl_clear_out_block
PARAMS ((void));
453 extern void genrtl_goto_stmt
PARAMS ((tree
));
454 extern void genrtl_expr_stmt
PARAMS ((tree
));
455 extern void genrtl_decl_stmt
PARAMS ((tree
));
456 extern void genrtl_if_stmt
PARAMS ((tree
));
457 extern void genrtl_while_stmt
PARAMS ((tree
));
458 extern void genrtl_do_stmt
PARAMS ((tree
));
459 extern void genrtl_return_stmt
PARAMS ((tree
));
460 extern void genrtl_for_stmt
PARAMS ((tree
));
461 extern void genrtl_break_stmt
PARAMS ((void));
462 extern void genrtl_continue_stmt
PARAMS ((void));
463 extern void genrtl_scope_stmt
PARAMS ((tree
));
464 extern void genrtl_switch_stmt
PARAMS ((tree
));
465 extern void genrtl_case_label
PARAMS ((tree
, tree
));
466 extern void genrtl_compound_stmt
PARAMS ((tree
));
467 extern void genrtl_asm_stmt
PARAMS ((tree
, tree
,
470 extern void genrtl_decl_cleanup
PARAMS ((tree
, tree
));
471 extern int stmts_are_full_exprs_p
PARAMS ((void));
472 typedef void (*expand_expr_stmt_fn
) PARAMS ((tree
));
473 extern expand_expr_stmt_fn lang_expand_expr_stmt
;
474 extern int anon_aggr_type_p
PARAMS ((tree
));
476 /* For a VAR_DECL that is an anonymous union, these are the various
477 sub-variables that make up the anonymous union. */
478 #define DECL_ANON_UNION_ELEMS(NODE) DECL_ARGUMENTS ((NODE))
480 extern void emit_local_var
PARAMS ((tree
));
481 extern void make_rtl_for_local_static
PARAMS ((tree
));
482 extern tree expand_cond
PARAMS ((tree
));
483 extern tree expand_stmt
PARAMS ((tree
));
484 extern tree lang_expand_stmt
PARAMS ((tree
));
485 extern void c_expand_return
PARAMS ((tree
));
486 extern tree c_expand_start_case
PARAMS ((tree
));
487 extern void do_case
PARAMS ((tree
, tree
));
488 extern tree build_stmt
PARAMS ((enum tree_code
, ...));
489 extern tree build_case_label
PARAMS ((tree
, tree
));
490 extern tree build_continue_stmt
PARAMS ((void));
491 extern tree build_break_stmt
PARAMS ((void));
492 extern tree build_return_stmt
PARAMS ((tree
));
494 #define COMPOUND_STMT_NO_SCOPE(NODE) TREE_LANG_FLAG_0 (NODE)
496 extern void c_expand_asm_operands
PARAMS ((tree
, tree
, tree
, tree
, int, const char *, int));
497 extern int current_function_name_declared
PARAMS ((void));
498 extern void set_current_function_name_declared
PARAMS ((int));
500 /* These functions must be defined by each front-end which implements
501 a variant of the C language. They are used in c-common.c. */
503 extern tree build_unary_op
PARAMS ((enum tree_code
,
505 extern tree build_binary_op
PARAMS ((enum tree_code
,
507 extern int lvalue_p
PARAMS ((tree
));
508 extern tree default_conversion
PARAMS ((tree
));
510 /* Given two integer or real types, return the type for their sum.
511 Given two compatible ANSI C types, returns the merged type. */
513 extern tree common_type
PARAMS ((tree
, tree
));