1 /* Definitions for CHILL parsing and type checking.
2 Copyright (C) 1992, 1993, 1994, 1998,
3 1999, 2000, 2001 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. */
25 /* Usage of TREE_LANG_FLAG_?:
27 " TYPE_FIELDS_READONLY (in ARRAY_TYPE, RECORD_TYPE or UNION_TYPE)
28 " C_DECLARED_LABEL_FLAG
29 " C_TYPE_VARIABLE_SIZE
30 2: C_TYPE_FIELDS_VOLATILE (in RECORD_TYPE or UNION_TYPE)
31 " ELSE_LABEL_SPECIFIED (in CASE selector expression)
33 4: CH_USE_SEIZEFILE_RESTRICTED
35 5: CH_DERIVED_FLAG (in EXPR or DECL)
38 /* Usage of TYPE_LANG_FLAG_?:
40 1: C_TYPE_VARIABLE_SIZE
44 5: CH_ENUM_IS_NUMBERED
48 /* Language-dependent contents of an identifier. */
50 struct lang_identifier
52 /* These match the fields in c-tree.h. */
53 struct tree_identifier ignore;
54 tree outer_value, local_value, implicit_decl;
55 tree error_locus, limbo_value;
57 /* These are Chill-specific. */
63 /* Macros for access to language-specific slots in an identifier. */
65 /* The outer_value is a chain of decls (normally a single decl),
66 that have been granted into the scope surrounding all modules. */
67 #define IDENTIFIER_OUTER_VALUE(NODE) \
68 (((struct lang_identifier *)(NODE))->outer_value)
69 #define IDENTIFIER_LOCAL_VALUE(NODE) \
70 (((struct lang_identifier *)(NODE))->local_value)
71 #define IDENTIFIER_IMPLICIT_DECL(NODE) \
72 (((struct lang_identifier *)(NODE))->implicit_decl)
73 #define IDENTIFIER_ERROR_LOCUS(NODE) \
74 (((struct lang_identifier *)(NODE))->error_locus)
75 #define IDENTIFIER_FORBID(NODE) \
76 (((struct lang_identifier *)(NODE))->forbid)
78 /* The nesting level increates by one for every nested 'group'.
79 Predefined declarations have level -1; the global scope is level 0.
81 #define DECL_NESTING_LEVEL(DECL) \
82 ((DECL)->decl.vindex ? TREE_INT_CST_HIGH((DECL)->decl.vindex) : -1)
84 /* Nesting of things that can have an ON-unit attached. */
85 extern int action_nesting_level;
87 /* The DECL_NAME of a FIELD_DECL that represents the ELSE part of a variant. */
88 #define ELSE_VARIANT_NAME ridpointers[(int) RID_ELSE]
90 /* For a LABEL_DECL: action_nesting_level of its target. */
91 #define DECL_ACTION_NESTING_LEVEL(NODE) ((NODE)->decl.u2.i)
93 #define DECL_OLD_PREFIX(DECL) ((DECL)->decl.initial)
94 #define DECL_NEW_PREFIX(DECL) ((DECL)->decl.result)
95 #define DECL_POSTFIX(DECL) ((DECL)->decl.arguments)
96 extern tree ALL_POSTFIX;
97 #define DECL_SEIZEFILE(DECL) ((DECL)->decl.size)
98 #define DECL_POSTFIX_ALL(DECL) (DECL_POSTFIX(DECL) == ALL_POSTFIX)
99 #define DECL_OLD_NAME(DECL) decl_old_name(DECL)
100 /* For a siezefile name this means restricted usage of this file.
101 In this case, the USE_SEIZE_FILE directive will not be copied
102 into the grant file */
103 #define CH_USE_SEIZEFILE_RESTRICTED(NODE) TREE_LANG_FLAG_4(NODE)
104 extern tree decl_old_name PARAMS ((tree));
106 /* for selective granting, mark as already granted */
107 #define CH_ALREADY_GRANTED(NODE) TREE_LANG_FLAG_4(NODE)
109 /* to store the receiving process of that signal
110 at definition time */
111 #define IDENTIFIER_SIGNAL_DEST(NODE) \
112 (((struct lang_identifier *)(NODE))->signal_dest)
114 /* indicates a signal with no data */
115 #define IDENTIFIER_SIGNAL_DATA(NODE) \
116 (((struct lang_identifier *)(NODE))->signal_data)
118 /* In identifiers, C uses the following fields in a special way:
119 TREE_PUBLIC to record that there was a previous local extern decl.
120 TREE_USED to record that such a decl was used.
121 TREE_ADDRESSABLE to record that the address of such a decl was used. */
123 /* Nonzero means reject anything that Z.200 Recommendation forbids. */
126 /* the prototypical CHILL INSTANCE type */
127 extern tree instance_type_node;
129 /* Non-zero if type or expr depends on non-resolved identifier. */
130 #define UNSATISFIED(expr) \
131 (UNSATISFIED_FLAG (expr) || TREE_CODE (expr) == IDENTIFIER_NODE)
132 #define UNSATISFIED_FLAG(expr) TREE_LANG_FLAG_3 (expr)
134 /* Non-zero in a TREE_LIST if part of a labelled structure tuple. */
135 #define TUPLE_NAMED_FIELD(LIST) TREE_LANG_FLAG_1(LIST)
137 /* In an ARRAY_TYPE, RECORD_TYPE or UNION_TYPE, nonzero if any component
139 #define TYPE_FIELDS_READONLY(type) TREE_LANG_FLAG_1 (type)
141 /* True if TYPE has the "read-only property." */
142 #define TYPE_READONLY_PROPERTY(TYPE) \
143 (TYPE_READONLY (TYPE) || TYPE_FIELDS_READONLY (TYPE))
145 /* In a RECORD_TYPE or UNION_TYPE, nonzero if any component is volatile. */
146 #define C_TYPE_FIELDS_VOLATILE(type) TREE_LANG_FLAG_2 (type)
148 /* In a CASE selector expression, nonzero if any alternative specifies (ELSE) for
150 #define ELSE_LABEL_SPECIFIED(expr) TREE_LANG_FLAG_2 (expr)
152 /* CH_CHARS_TYPE_P(TYPE) is true iff TYPE is a character string type.
154 There is no essential difference between a string and a (one-dimensional)
155 character array, at least for non-varying types. I don't know where
156 the Chill designers got the idea that it was useful to make a distinction.
157 (I suspect packing might be involved, but on a byte-adressable machine
158 we don't care.) Since we want the same code to be generated for
159 char arrays as for char strings, we use the same representation for
160 both. But we still need to distinguish them for the sake a Chill
161 type checking. We do that using TYPE_STRING_FLAG. */
163 #define MARK_AS_STRING_TYPE(TYPE) (TYPE_STRING_FLAG (TYPE) = 1)
165 #define CH_CHARS_TYPE_P(type) \
166 (TREE_CODE (type) == ARRAY_TYPE && TREE_CODE(TREE_TYPE(type)) == CHAR_TYPE \
167 && TYPE_STRING_FLAG (type))
169 /* True if TYPE is CHARS(1). */
170 #define CH_CHARS_ONE_P(TYPE) (CH_CHARS_TYPE_P(TYPE) \
171 && integer_zerop (TYPE_MAX_VALUE (TYPE_DOMAIN (TYPE))))
173 /* True if TYPE is a bitstring (BOOLS or BIT) type.
174 The TYPE_STRING_FLAG is used to distinguish a bitstring from a powerset. */
176 #define CH_BOOLS_TYPE_P(type) \
177 (TREE_CODE (type) == SET_TYPE && TYPE_STRING_FLAG (type))
179 /* True if TYPE is BOOLS(1). */
180 #define CH_BOOLS_ONE_P(TYPE) (CH_BOOLS_TYPE_P(TYPE) \
181 && integer_zerop (TYPE_MAX_VALUE (TYPE_DOMAIN (TYPE))))
183 /* Value is nonzero if TYPE is a CHILL string type.
184 See CH_CHARS_TYPE_P and CH_BOOLS_TYPE_P above. */
186 #define CH_STRING_TYPE_P(type) \
187 ((TREE_CODE (type) == ARRAY_TYPE || TREE_CODE (type) == SET_TYPE) \
188 && TYPE_STRING_FLAG (type))
190 /* In a RECORD_TYPE, a sorted array of the fields of the type. */
191 struct lang_type_record
194 tree tasking_code_decl;
202 struct lang_type_record rec;
213 /* A tasking type's corresponding tasking_code_variable has its
214 decl pointer in here. */
215 #define DECL_TASKING_CODE_DECL(DECL) (DECL_LANG_SPECIFIC(DECL))
217 /* A pointer to an as-yet undefined type. */
218 extern tree unknown_type_node;
220 /* The CHILL type INT (either integer_type_node or
221 short_integer_type_node). */
222 extern tree chill_integer_type_node;
223 extern tree chill_unsigned_type_node;
225 /* Nonzero for FIELD_DECL node means that this FIELD_DECL is
226 a member of a union construct. */
227 #define TREE_UNION_ELEM(NODE) ((NODE)->decl.regdecl_flag) /* overloaded! */
229 /* Mark which labels are explicitly declared.
230 These may be shadowed, and may be referenced from nested functions. */
231 #define C_DECLARED_LABEL_FLAG(label) TREE_LANG_FLAG_1 (label)
233 /* Record whether a type was written with nonconstant size.
234 Note that TYPE_SIZE may have simplified to a constant. */
235 #define C_TYPE_VARIABLE_SIZE(type) TYPE_LANG_FLAG_1 (type)
237 #define DECL_WEAK_NAME(DECL) DECL_LANG_FLAG_0(DECL)
239 /* These are for FUNCTION_DECLs. */
240 #define CH_DECL_GENERAL(DECL) DECL_LANG_FLAG_1(DECL)
241 #define CH_DECL_SIMPLE(DECL) DECL_LANG_FLAG_2(DECL)
242 #define CH_DECL_RECURSIVE(DECL) DECL_LANG_FLAG_3(DECL)
243 #define CH_FUNCTION_SETS_RESULT(DECL) DECL_LANG_FLAG_6(DECL)
245 /* For a CONST_DECL, indicates that it was implicitly declared
246 in a SET mode declaration, and it should not be explicitly granted. */
247 #define CH_DECL_ENUM(DECL) DECL_LANG_FLAG_3(DECL)
249 /* in a FIELD_DECL use DECL_LANG_FLAG_4 to mark FORBID in a grant-statement */
250 #define CH_DECL_FORBID(DECL) DECL_LANG_FLAG_4(DECL)
252 /* in an ALIAS_DECL use DECL_LANG_FLAG_4 to mark decl was granted */
253 #define CH_DECL_GRANTED(DECL) DECL_LANG_FLAG_4(DECL)
255 /* (in a non-FIELD_DECL) note that this decl was hidden by push_module(). */
256 #define DECL_HIDDEN_BY_MODULE(decl) DECL_LANG_FLAG_4 (decl)
258 /* Record in each node resulting from a binary operator
259 what operator was specified for it. */
260 #define C_EXP_ORIGINAL_CODE(exp) ((enum tree_code) TREE_COMPLEXITY (exp))
262 /* Store a value in that field. */
263 #define C_SET_EXP_ORIGINAL_CODE(exp, code) \
264 (TREE_COMPLEXITY (exp) = (int)(code))
266 /* Record whether a typedef for type `int' was actually `signed int'. */
267 #define C_TYPEDEF_EXPLICITLY_SIGNED(exp) DECL_LANG_FLAG_1 ((exp))
269 /* For FUNCTION_TYPE, a hidden list of types of arguments. The same as
270 TYPE_ARG_TYPES for functions with prototypes, but created for functions
271 without prototypes. */
272 #define TYPE_ACTUAL_ARG_TYPES(NODE) TYPE_NONCOPIED_PARTS (NODE)
274 /* For FUNCTION_TYPE or METHOD_TYPE, a list of the
275 (names of) exceptions that this type can raise. */
276 #define TYPE_RAISES_EXCEPTIONS(NODE) ((NODE)->type.minval)
278 /* For UNION_TYPE, the list of tag fields that distinguishes the members. */
279 #define TYPE_TAGFIELDS(NODE) ((NODE)->type.minval)
281 /* For RECORD_TYPE, the tag values that select it. */
282 #define TYPE_TAG_VALUES(NODE) TYPE_BINFO(NODE)
284 /* For VAR_DECL, TYPE_DECL, FUNCTION_DECL, indicates that
285 the DECL was read from a seizefile but not seized */
286 #define CH_DECL_NOTDECLARED(DECL) DECL_LANG_FLAG_5(DECL)
288 /* For FUNCTION_DECL's, mark as PROCESSEs. */
289 #define CH_DECL_PROCESS(DECL) DECL_LANG_FLAG_7(DECL)
291 /* For TYPE_DECL's, mark as SIGNALs. */
292 #define CH_DECL_SIGNAL(DECL) DECL_LANG_FLAG_7(DECL)
294 /* Macros using terminology of the CHILL Blue Book. */
296 /* A class is either Null, All, M-value, M-derived, or M-reference,
297 where M is some mode (type). */
300 CH_ALL_CLASS, CH_NULL_CLASS,
301 CH_VALUE_CLASS, CH_DERIVED_CLASS, CH_REFERENCE_CLASS
304 typedef struct ch_class {
305 enum ch_class_kind kind;
306 tree mode; /* The 'M' in M-value, M-derived, or M-reference. */
309 struct mode_chain; /* Forward reference */
311 #define CH_IS_REFERENCE_MODE(MODE) (TREE_CODE (MODE) == POINTER_TYPE)
312 #define CH_IS_BOUND_REFERENCE_MODE(MODE) \
313 (TREE_CODE (MODE) == POINTER_TYPE && TREE_TYPE(MODE) != void_type_node)
314 #define CH_IS_PROCEDURE_MODE(MODE) (TREE_CODE (MODE) == FUNCTION_TYPE)
315 #define CH_IS_INSTANCE_MODE(MODE) (CH_SIMILAR (MODE, instance_type_node))
316 #define CH_IS_BUFFER_MODE(MODE) (TYPE_LANG_FLAG_3(MODE))
317 #define CH_IS_EVENT_MODE(MODE) (TYPE_LANG_FLAG_4(MODE))
318 /* This is TRUE if the set is numbered, which makes pred/succ
320 #define CH_ENUM_IS_NUMBERED(MODE) (TYPE_LANG_FLAG_5(MODE))
322 /* for ACCESS, and TEXT mode */
323 #define CH_IS_ACCESS_MODE(MODE) (TYPE_LANG_FLAG_2(MODE))
324 #define CH_IS_TEXT_MODE(MODE) (TYPE_LANG_FLAG_6(MODE))
325 #define CH_IS_ASSOCIATION_MODE(MODE) (CH_SIMILAR (MODE, association_type_node))
326 #define CH_IS_USAGE_MODE(MODE) (CH_SIMILAR (MODE, usage_type_node))
327 #define CH_IS_WHERE_MODE(MODE) (CH_SIMILAR (MODE, where_type_node))
329 /* for RECORD or ARRAY type */
330 #define CH_TYPE_NONVALUE_P(MODE) (TYPE_LANG_FLAG_0(MODE))
332 /* CH_NOVELTY is the novelty of a mode: NULL_TREE means the novelty is nil;
333 otherwise a TYPE_DECL matching the defining occurrence of a newmode. */
334 #define CH_NOVELTY(MODE) TYPE_CONTEXT(MODE)
336 /* Set the novelty of MODE to NOVELTY (which is assumed to be non-nil). */
337 #define SET_CH_NOVELTY(MODE, NOVELTY) (CH_NOVELTY (MODE) = (NOVELTY))
338 #define SET_CH_NOVELTY_NONNIL(MODE, NOVELTY) (CH_NOVELTY (MODE) = (NOVELTY))
340 /* CH_DERIVED_FLAG is true the class of EXPR is X-derived for some X. */
341 #define CH_DERIVED_FLAG(EXPR) TREE_LANG_FLAG_5(EXPR)
343 #define CH_HAS_REFERENCING_PROPERTY(MODE) \
344 (TREE_CODE (MODE) == POINTER_TYPE) /* incomplete FIXME! */
346 /* CH_COMPATIBLE(EXPR, MODE) is true if the class of EXPR is
347 "compatible" with the type MODE. */
348 #define CH_COMPATIBLE(EXPR, MODE) chill_compatible(EXPR, MODE)
349 #define CH_COMPATIBLE_CLASSES(EXPR1, EXPR2) chill_compatible_classes(EXPR1, EXPR2)
350 #define CH_STATIC_MODE(MODE) 1 /* for now */
351 #define CH_SIMILAR(MODE1, MODE2) chill_similar(MODE1, MODE2, 0)
352 #define CH_ROOT_MODE(MODE) chill_root_mode(MODE)
353 #define CH_RESULTING_CLASS(C1, C2) chill_resulting_class(C1, C2)
354 #define CH_ROOT_RESULTING_CLASS(E1, E2) \
355 CH_RESULTING_CLASS (chill_expr_class(E1), chill_expr_class(E2))
356 #define CH_RESULTING_MODE(MODE1, MODE2) chill_resulting_mode(MODE1, MODE2)
357 #define CH_V_EQUIVALENT(MODE1, MODE2) (CH_SIMILAR(MODE1, MODE2) \
358 && CH_NOVELTY(MODE1) == CH_NOVELTY(MODE2))
359 #define CH_EQUIVALENT(MODE1, MODE2) \
360 (!integer_zerop (chill_equivalent (MODE1, MODE2, 0)))
361 #define CH_RESTRICTABLE_TO(MODE1, MODE2) \
362 CH_EQUIVALENT(MODE1, MODE2) /* && some more stuff FIXME! */
364 /* pass an OFFSET_TYPE or REFERENCE_TYPE's underlying type to SCALAR_P */
365 #define CH_READ_COMPATIBLE(modeM, modeN) chill_read_compatible(modeM, modeN)
367 #define SCALAR_P(TYPE) (TYPE != NULL_TREE \
368 && (TREE_CODE (TYPE) == INTEGER_TYPE \
369 || TREE_CODE (TYPE) == REAL_TYPE \
370 || TREE_CODE (TYPE) == ENUMERAL_TYPE \
371 || TREE_CODE (TYPE) == BOOLEAN_TYPE \
372 || TREE_CODE (TYPE) == CHAR_TYPE \
373 || TREE_CODE (TYPE) == POINTER_TYPE \
374 || TREE_CODE (TYPE) == INSTANCE_TYPE))
375 #define CH_REFERABLE(EXPR) chill_referable(EXPR)
376 #define CH_LOCATION_P(EXPR) chill_location (EXPR)
378 /* Standard named or nameless data types of the C compiler. */
380 /* Nonzero means `$' can be in an identifier. */
382 extern int dollars_in_ident;
384 /* Nonzero means allow type mismatches in conditional expressions;
385 just make their values `void'. */
387 extern int flag_cond_mismatch;
389 /* Nonzero means don't recognize the keyword `asm'. */
391 extern int flag_no_asm;
393 /* Nonzero means warn about implicit declarations. */
395 extern int warn_implicit;
397 /* Nonzero means give string constants the type `const char *'
398 to get extra warnings from them. These warnings will be too numerous
399 to be useful, except in thoroughly ANSIfied programs. */
401 extern int warn_write_strings;
403 /* Nonzero means warn about sizeof (function) or addition/subtraction
404 of function pointers. */
406 extern int warn_pointer_arith;
408 /* Nonzero means warn for all old-style non-prototype function decls. */
410 extern int warn_strict_prototypes;
412 /* Nonzero means warn about multiple (redundant) decls for the same single
413 variable or function. */
415 extern int warn_redundant_decls;
417 /* Nonzero means warn about extern declarations of objects not at
418 file-scope level and about *all* declarations of functions (whether
419 extern or static) not at file-scope level. Note that we exclude
420 implicit function declarations. To get warnings about those, use
423 extern int warn_nested_externs;
425 /* Nonzero means warn about pointer casts that can drop a type qualifier
426 from the pointer target type. */
428 extern int warn_cast_qual;
430 /* Warn about *printf or *scanf format/argument anomalies. */
432 extern int warn_format;
434 /* Warn about a subscript that has type char. */
436 extern int warn_char_subscripts;
438 /* Warn if a type conversion is done that might have confusing results. */
440 extern int warn_conversion;
442 /* Warn if switch labels aren't complete, or are duplicated */
444 extern int warn_switch;
446 /* Nonzero means warn about suggesting putting in ()'s. */
448 extern int warn_parentheses;
450 /* Nonzero means we are reading code that came from a system header file. */
451 extern int system_header_p;
453 /* One means range checking is on; <= 0 off; -1 permanently off. */
454 extern int range_checking;
456 /* 0 means empty checking is off, else it is on */
457 extern int empty_checking;
459 /* 1 means -fruntime-checking specified (default), o means -fno-runtime-checking */
460 extern int runtime_checking_flag;
462 /* Type node for boolean types. */
464 extern tree boolean_type_node;
465 extern tree signed_boolean_type_node;
467 extern tree string_one_type_node;
468 extern tree bitstring_one_type_node, bit_zero_node, bit_one_node;
470 /* a VOID_TYPE node, packaged in a TREE_LIST. */
472 extern tree void_list_node;
474 /* Chill language-specific tree codes. */
475 #define DEFTREECODE(SYM, NAME, TYPE, LENGTH) SYM,
476 enum chill_tree_code {
477 __DUMMY = LAST_AND_UNUSED_TREE_CODE,
478 #include "ch-tree.def"
483 enum chill_built_in_function
485 DUMMY_FIRST_CHILL_BUILT_IN = END_BUILTINS,
491 BUILT_IN_ALLOCATE_GLOBAL_MEMORY,
492 BUILT_IN_ALLOCATE_MEMORY,
499 BUILT_IN_COPY_NUMBER,
514 BUILT_IN_GETASSOCIATION,
516 BUILT_IN_GETTEXTACCESS,
517 BUILT_IN_GETTEXTINDEX,
518 BUILT_IN_GETTEXTRECORD,
523 BUILT_IN_ISASSOCIATED,
537 BUILT_IN_QUEUE_LENGTH,
541 BUILT_IN_RETURN_MEMORY,
543 BUILT_IN_SETTEXTACCESS,
544 BUILT_IN_SETTEXTINDEX,
545 BUILT_IN_SETTEXTRECORD,
546 BUILT_IN_SEQUENCIBLE,
558 BUILT_IN_WRITERECORD,
562 /* name of additional (compiler generated) arguments for
563 functions which may propagate exceptions. */
564 #define CALLER_FILE "__CALLER_FILE__"
565 #define CALLER_LINE "__CALLER_LINE__"
567 /* field-name strings for the fields of the structure which
568 represents a CHILL VARYING array. The angle brackets assure
569 that no user-defined structure can match this one.
570 This field holds, at runtime, the current length of the
571 array, in UNITS, not including the length itself. It's an
573 #define VAR_LENGTH "__var_length"
575 /* This field is statically allocated to the user-defined
576 size, but contains valid array entries starting from the
577 first allocated space, proceeding for VAR_LENGTH bytes.
578 There are no holes in the data; the user isn't allowed
579 to store beyond the first available entry. */
581 #define VAR_DATA "__var_data"
583 /* This field is the name of the array, encapsulated in the CHILL
584 structure used to represent an array type parameter. */
585 /*#define ARRAY_DATA "__array_data"*/
587 /* The CHILL INSTANCE type is composed of two CHILL integer
588 fields, the process_type (set by the user with the
589 process_type compiler directive, and the proc_copy field,
590 which is set by the start_process call's first parameter. */
591 #define INS_PTYPE "__proc_type"
592 #define INS_COPY "__proc_copy"
594 /* This is the actual array type inside the VARYING struct */
595 #define CH_VARYING_ARRAY_TYPE(TYPE) TREE_TYPE (TREE_CHAIN (TYPE_FIELDS (TYPE)))
597 /* Identifiers which hold the VAR_LENGTH and VAR_DATA strings. */
598 extern tree var_length_id;
599 extern tree var_data_id;
601 /* A RANGE_EXPR representing an ELSE in a case label. */
602 extern tree case_else_node;
604 #if 0 /* changed to function */
605 /* return non-zero if type is a compiler-generated VARYING array record */
606 #define CH_VARYING_TYPE_P(type) (TREE_CODE (type) == RECORD_TYPE && \
607 DECL_NAME (TYPE_FIELDS (type)) == \
608 get_identifier (VAR_LENGTH) && \
609 DECL_NAME (TREE_CHAIN (TYPE_FIELDS (type))) == \
610 get_identifier (VAR_DATA) && \
611 TREE_CHAIN (CH_VARYING_ARRAY_TYPE (type)) == NULL_TREE)
615 /* in c-aux-info.c */
616 extern void gen_aux_info_record PARAMS ((tree, int, int, int));
619 extern tree combine_strings PARAMS ((tree));
620 extern void constant_expression_warning PARAMS ((tree));
621 extern void decl_attributes PARAMS ((tree, tree));
622 extern void declare_function_name PARAMS ((void));
624 extern char *get_directive_line PARAMS ((FILE *));
626 extern tree shorten_compare PARAMS ((tree *, tree *, tree *, enum tree_code *));
629 extern tree wchar_type_node, signed_wchar_type_node, unsigned_wchar_type_node;
630 extern tree default_function_type;
631 extern tree double_ftype_double, double_ftype_double_double;
632 extern tree int_ftype_int, long_ftype_long;
633 extern tree void_ftype_ptr_ptr_int, int_ftype_ptr_ptr_int;
634 extern tree void_ftype_ptr_int_int, string_ftype_ptr_ptr;
635 extern tree int_ftype_string_string, int_ftype_cptr_cptr_sizet;
636 /* Nodes for boolean constants TRUE and FALSE */
637 extern tree boolean_true_node, boolean_false_node;
639 extern tree global_function_decl;
642 extern void except_init_pass_2 PARAMS ((void));
643 extern void push_handler PARAMS ((void));
644 extern void pop_handler PARAMS ((int));
647 extern int flag_local_loop_counter;
648 extern void push_loop_block PARAMS ((void));
649 extern void pop_loop_block PARAMS ((void));
650 extern void build_loop_start PARAMS ((tree));
651 extern void top_loop_end_check PARAMS ((tree));
652 extern void build_loop_end PARAMS ((void));
653 extern void build_loop_iterator PARAMS ((tree, tree, tree, tree, int, int, int));
654 extern void begin_loop_scope PARAMS ((void));
655 extern void end_loop_scope PARAMS ((tree));
656 extern void nonvalue_begin_loop_scope PARAMS ((void));
657 extern void nonvalue_end_loop_scope PARAMS ((void));
659 extern tree build_enumerator PARAMS ((tree, tree));
660 extern tree c_build_type_variant PARAMS ((tree, int, int));
661 extern int c_decode_option PARAMS ((int, char **));
662 extern void c_mark_varargs PARAMS ((void));
663 extern void clear_parm_order PARAMS ((void));
664 extern int complete_array_type PARAMS ((tree, tree, int));
665 extern void declare_parm_level PARAMS ((int));
666 extern tree define_label PARAMS ((const char *, int, tree));
667 extern void delete_block PARAMS ((tree));
668 extern void finish_decl PARAMS ((tree));
669 extern tree finish_enum PARAMS ((tree, tree));
670 extern void finish_function PARAMS ((int));
671 extern tree finish_struct PARAMS ((tree, tree));
672 extern tree get_parm_decls PARAMS ((void));
673 extern tree get_parm_info PARAMS ((int));
674 extern tree getdecls PARAMS ((void));
675 extern tree gettags PARAMS ((void));
676 extern int global_bindings_p PARAMS ((void));
677 extern tree grokfield PARAMS ((char *, int, tree, tree, tree));
678 extern tree groktypename PARAMS ((tree));
679 extern tree groktypename_in_parm_context PARAMS ((tree));
680 extern tree implicitly_declare PARAMS ((tree));
681 extern void init_decl_processing PARAMS ((void));
682 extern void insert_block PARAMS ((tree));
683 extern void keep_next_level PARAMS ((void));
684 extern int kept_level_p PARAMS ((void));
685 extern tree lookup_label PARAMS ((tree));
686 extern tree lookup_name PARAMS ((tree));
687 extern tree maybe_build_cleanup PARAMS ((tree));
688 extern void parmlist_tags_warning PARAMS ((void));
689 extern void pending_xref_error PARAMS ((void));
690 extern void pop_chill_function_context PARAMS ((void));
691 extern tree poplevel PARAMS ((int, int, int));
693 extern void print_lang_decl PARAMS ((FILE *,tree, int));
694 extern void print_lang_identifier PARAMS ((FILE *,tree, int));
695 extern void print_lang_type PARAMS ((FILE *,tree, int));
697 extern void push_chill_function_context PARAMS ((void));
698 extern void push_parm_decl PARAMS ((tree));
699 extern tree pushdecl PARAMS ((tree));
700 extern tree pushdecl_top_level PARAMS ((tree));
701 extern void pushlevel PARAMS ((int));
702 extern void set_block PARAMS ((tree));
703 extern tree shadow_label PARAMS ((tree));
704 extern void shadow_record_fields PARAMS ((tree));
705 extern void shadow_tag PARAMS ((tree));
706 extern void shadow_tag_warned PARAMS ((tree, int));
707 extern tree start_enum PARAMS ((tree));
708 extern int start_function PARAMS ((tree, tree, int));
709 extern tree start_decl PARAMS ((tree, tree, int));
710 extern tree start_struct PARAMS ((enum tree_code, tree));
711 extern void store_parm_decls PARAMS ((void));
712 extern tree xref_tag PARAMS ((enum tree_code, tree));
715 extern tree build_array_ref PARAMS ((tree, tree));
716 extern tree build_c_cast PARAMS ((tree, tree));
717 extern tree build_chill_modify_expr PARAMS ((tree, tree));
718 extern tree build_chill_component_ref PARAMS ((tree, tree));
719 extern tree build_component_ref PARAMS ((tree, tree));
720 extern tree build_compound_expr PARAMS ((tree));
721 extern tree build_conditional_expr PARAMS ((tree, tree, tree));
722 extern tree build_function_call PARAMS ((tree, tree));
723 extern tree build_indirect_ref PARAMS ((tree, char *));
724 extern tree build_modify_expr PARAMS ((tree, enum tree_code, tree));
725 extern tree build_unary_op PARAMS ((enum tree_code, tree, int));
726 extern tree c_alignof PARAMS ((tree));
727 extern tree c_alignof_expr PARAMS ((tree));
728 extern void c_expand_asm_operands PARAMS ((tree, tree, tree, tree, int, char *, int));
729 extern tree c_sizeof PARAMS ((tree));
730 extern void c_expand_return PARAMS ((tree));
731 extern tree c_expand_start_case PARAMS ((tree));
732 extern tree common_type PARAMS ((tree, tree));
733 extern tree copy_novelty PARAMS ((tree, tree));
734 extern tree default_conversion PARAMS ((tree));
735 extern void finish_init PARAMS ((void));
736 extern tree parser_build_binary_op PARAMS ((enum tree_code, tree, tree));
737 extern tree pop_init_level PARAMS ((int));
738 extern void process_init_default PARAMS ((tree));
739 extern void process_init_element PARAMS ((tree));
740 extern void push_init_level PARAMS ((int));
741 extern void really_start_incremental_init PARAMS ((tree));
742 extern void set_init_index PARAMS ((tree, tree));
743 extern void set_init_label PARAMS ((tree));
744 extern void start_init PARAMS ((tree, tree, int));
745 extern void store_init_value PARAMS ((tree, tree));
746 extern tree valid_array_index_p PARAMS ((tree, tree, const char *, int));
748 /* in ch/actions.c */
749 extern int grant_only_flag;
750 extern void allocate_lang_decl PARAMS ((tree));
751 extern tree build_chill_abs PARAMS ((tree));
752 extern tree build_chill_array_ref_1 PARAMS ((tree, tree));
753 extern tree build_chill_array_ref PARAMS ((tree, tree));
754 extern tree build_chill_bin_type PARAMS ((tree));
755 extern tree build_chill_binary_op PARAMS ((enum chill_tree_code, tree, tree));
756 extern tree build_chill_card PARAMS ((tree));
757 extern tree build_chill_case_expr PARAMS ((tree, tree, tree));
758 extern tree build_cause_exception PARAMS ((tree, int));
759 extern tree build_chill_exception_decl PARAMS ((const char *));
760 extern tree build_chill_function_call PARAMS ((tree, tree));
761 extern tree build_chill_length PARAMS ((tree));
762 extern tree build_chill_indirect_ref PARAMS ((tree, tree, int));
763 extern tree build_chill_lower PARAMS ((tree));
764 extern tree build_chill_max PARAMS ((tree));
765 extern tree build_chill_min PARAMS ((tree));
766 extern tree build_chill_num PARAMS ((tree));
767 extern tree build_chill_repetition_op PARAMS ((tree, tree));
768 extern tree build_chill_sizeof PARAMS ((tree));
769 extern tree build_chill_slice PARAMS ((tree, tree, tree));
770 extern tree build_chill_slice_with_range PARAMS ((tree, tree, tree));
771 extern tree build_chill_slice_with_length PARAMS ((tree, tree, tree));
772 extern tree build_chill_struct_type PARAMS ((tree));
773 extern tree build_chill_unary_op PARAMS ((enum chill_tree_code, tree));
774 extern tree build_chill_upper PARAMS ((tree));
775 extern tree build_exception_variant PARAMS ((tree, tree));
776 extern tree build_generalized_call PARAMS ((tree, tree));
777 extern tree build_lang_decl PARAMS ((enum chill_tree_code, tree, tree));
778 extern tree build_rts_call PARAMS ((const char *, tree, tree));
779 extern tree build_varying_struct PARAMS ((tree));
780 extern void chill_check_decl PARAMS ((tree));
781 extern tree chill_convert_for_assignment PARAMS ((tree, tree, const char *));
782 extern void chill_expand_return PARAMS ((tree, int));
783 extern void chill_expand_result PARAMS ((tree, int));
784 extern void chill_handle_case_default PARAMS ((void));
785 extern void chill_handle_case_label PARAMS ((tree, tree));
786 extern int chill_varying_string_type_p PARAMS ((tree));
787 extern int chill_varying_type_p PARAMS ((tree));
788 extern int ch_singleton_set PARAMS ((tree));
789 extern tree check_expression PARAMS ((tree, tree, tree));
790 extern void check_missing_cases PARAMS ((tree));
791 extern tree check_non_null PARAMS ((tree));
792 extern tree check_range PARAMS ((tree, tree, tree,tree));
793 extern void cond_type_range_exception PARAMS ((tree));
794 extern void expand_cause_exception PARAMS ((tree));
795 extern tree finish_chill_binary_op PARAMS ((tree));
796 extern tree finish_chill_unary_op PARAMS ((tree));
797 extern tree high_domain_value PARAMS ((tree));
798 extern tree low_domain_value PARAMS ((tree));
799 extern tree maybe_array_ref PARAMS ((tree, tree));
800 extern void maybe_chill_check_decl PARAMS ((tree));
801 extern tree powersetlen PARAMS ((tree));
802 extern tree test_range PARAMS ((tree, tree, tree));
803 /* in ch/convert.c */
804 extern tree build_array_type_for_scalar PARAMS ((tree));
805 extern tree convert PARAMS ((tree, tree));
806 extern tree convert_from_reference PARAMS ((tree));
807 extern tree convert_to_class PARAMS ((ch_class, tree));
808 extern const char *display_int_cst PARAMS ((tree));
811 extern tree build_enumerator PARAMS ((tree, tree));
812 extern tree chill_munge_params PARAMS ((tree, tree, tree));
813 extern tree build_chill_function_type PARAMS ((tree, tree, tree, tree));
814 extern tree decl_temp1 PARAMS ((tree, tree, int, tree, int, int));
815 extern void do_based_decls PARAMS ((tree, tree, tree));
816 extern void do_chill_outparms PARAMS ((void));
817 extern tree do_decl PARAMS ((tree, tree, int, int, tree, int));
818 extern void do_decls PARAMS ((tree, tree, int, int, tree, int));
819 extern void expand_chill_outparms PARAMS ((void));
820 extern void find_granted_decls PARAMS ((void));
821 extern void finish_chill_function PARAMS ((void));
822 extern tree finish_enum PARAMS ((tree, tree));
823 extern void fixup_chill_parms PARAMS ((tree));
824 extern void finish_outer_function PARAMS ((void));
825 extern unsigned get_type_precision PARAMS ((tree, tree));
826 extern tree grok_chill_fixedfields PARAMS ((tree, tree, tree));
827 extern tree grok_chill_variantdefs PARAMS ((tree, tree, tree));
828 extern void layout_enum PARAMS ((tree));
829 /* extern tree lookup_remembered_decl PARAMS ((HOST_WIDE_INT, tree)); */
830 extern void lookup_and_expand_goto PARAMS ((tree));
831 extern tree lookup_tag_fields PARAMS ((tree, tree));
832 extern void lookup_and_handle_exit PARAMS ((tree));
833 extern tree massage_param_node PARAMS ((tree, tree));
834 extern void pop_module PARAMS ((void));
835 extern void print_mode PARAMS ((tree));
836 extern tree push_extern_function PARAMS ((tree, tree, tree, tree, int));
837 extern void push_extern_process PARAMS ((tree, tree, tree, int));
838 extern void push_extern_signal PARAMS ((tree, tree, tree));
839 extern void push_granted PARAMS ((tree, tree));
840 extern tree push_modedef PARAMS ((tree, tree, int));
841 extern tree push_module PARAMS ((tree, int));
842 extern void push_parms PARAMS ((tree, tree, tree));
843 extern void push_syndecl PARAMS ((tree, tree, tree));
844 extern int result_never_set;
845 extern void save_expr_under_name PARAMS ((tree, tree));
846 extern tree set_module_name PARAMS ((tree));
847 extern int start_chill_function PARAMS ((tree, tree, tree, tree, tree));
848 extern void start_outer_function PARAMS ((void));
849 extern void switch_to_pass_2 PARAMS ((void));
852 extern void chill_check_no_handlers PARAMS ((void));
853 extern void chill_finish_on PARAMS ((void));
854 extern void chill_handle_on_labels PARAMS ((tree));
855 extern void chill_reraise_exceptions PARAMS ((tree));
856 extern void chill_start_default_handler PARAMS ((void));
857 extern void chill_start_on PARAMS ((void));
858 extern void expand_goto_except_cleanup PARAMS ((int));
859 extern int is_handled PARAMS ((tree));
862 extern tree build_chill_addr_expr PARAMS ((tree, const char *));
863 extern tree build_chill_arrow_expr PARAMS ((tree, int));
864 extern tree build_component_ref PARAMS ((tree, tree));
865 extern tree build_chill_compound_expr PARAMS ((tree));
866 extern tree build_chill_descr PARAMS ((tree));
867 extern void build_chill_descr_type PARAMS ((void));
868 extern void build_chill_inttime_type PARAMS ((void));
869 extern tree build_compare_expr PARAMS ((enum tree_code,
871 extern tree build_compare_discrete_expr PARAMS ((enum tree_code,
873 extern tree check_case_selector PARAMS ((tree));
874 extern tree check_case_selector_list PARAMS ((tree));
875 extern tree check_have_mode PARAMS ((tree, const char *));
876 extern void init_chill_expand PARAMS ((void));
877 extern void chill_expand_assignment PARAMS ((tree, enum chill_tree_code, tree));
878 extern void expand_assignment_action PARAMS ((tree, enum chill_tree_code, tree));
879 extern int compare_int_csts PARAMS ((enum chill_tree_code,
881 extern void expand_varying_length_assignment PARAMS ((tree, tree));
882 extern tree force_addr_of PARAMS ((tree));
883 extern tree resolve_component_ref PARAMS ((tree));
884 extern tree truthvalue_conversion PARAMS ((tree));
885 extern tree varying_to_slice PARAMS ((tree));
888 extern void chill_finish_compile PARAMS ((void));
889 extern void chill_seize PARAMS ((tree, tree, tree));
890 extern void start_outer_function PARAMS ((void));
891 extern void finish_chill_seize PARAMS ((tree));
892 extern void chill_grant PARAMS ((tree,tree, tree, tree));
893 extern void set_default_grant_file PARAMS ((void));
894 extern void set_identifier_size PARAMS ((int));
895 extern void write_grant_file PARAMS ((void));
896 extern void write_spec_module PARAMS ((tree, tree));
899 extern tree string_index_type_dummy;
900 extern int flag_old_strings;
901 extern void GNU_xref_begin PARAMS ((void));
902 extern void GNU_xref_end PARAMS ((void));
903 extern tree build_chill_array_type PARAMS ((tree, tree, int, tree));
904 extern tree build_chill_struct_type PARAMS ((tree));
905 extern tree build_chill_pointer_type PARAMS ((tree));
906 extern tree build_chill_range_type PARAMS ((tree, tree, tree));
907 extern tree build_chill_reference_type PARAMS ((tree));
908 extern tree build_simple_array_type PARAMS ((tree, tree, tree));
909 extern tree const_expr PARAMS ((tree));
910 extern tree get_identifier3 PARAMS ((const char *, const char *, const char *));
911 extern tree layout_chill_array_type PARAMS ((tree));
912 extern tree layout_chill_range_type PARAMS ((tree, int));
913 extern tree layout_chill_pointer_type PARAMS ((tree));
914 extern tree layout_chill_struct_type PARAMS ((tree));
915 extern tree layout_chill_variants PARAMS ((tree));
916 extern tree layout_powerset_type PARAMS ((tree));
917 extern tree lookup_interface PARAMS ((tree));
918 extern tree maybe_building_objc_message_expr PARAMS ((void));
919 extern void maybe_objc_check_decl PARAMS ((tree));
920 extern int maybe_objc_comptypes PARAMS ((tree, tree));
921 extern int recognize_objc_keyword PARAMS ((void));
924 extern tree use_seizefile_name;
925 extern tree current_seizefile_name;
926 extern tree build_chill_string PARAMS ((int, const char *));
927 extern int check_newline PARAMS ((void));
928 extern tree get_chill_filename PARAMS ((void));
929 extern tree get_chill_linenumber PARAMS ((void));
930 extern void register_seize_path PARAMS ((const char *));
931 extern void reinit_parse_for_function PARAMS ((void));
932 extern void mark_use_seizefile_written PARAMS ((tree));
935 extern void begin_chill_loop PARAMS ((tree, tree));
936 extern tree build_chill_iterator PARAMS ((tree, tree, tree, int, int, int));
937 extern void end_chill_loop PARAMS ((void));
938 extern tree get_unique_identifier PARAMS ((const char *));
941 extern tree access_recordmode PARAMS ((tree));
942 extern void invalidate_access_recordmode PARAMS ((tree));
943 extern tree access_indexmode PARAMS ((tree));
944 extern tree access_dynamic PARAMS ((tree));
945 extern tree association_init_value;
946 extern tree association_type_node;
947 extern tree build_access_mode PARAMS ((tree, tree, int));
948 extern tree build_chill_associate PARAMS ((tree, tree, tree));
949 extern tree build_chill_connect PARAMS ((tree, tree, tree, tree));
950 extern tree build_chill_create PARAMS ((tree));
951 extern tree build_chill_delete PARAMS ((tree));
952 extern tree build_chill_disconnect PARAMS ((tree));
953 extern tree build_chill_dissociate PARAMS ((tree));
954 extern tree build_chill_eoln PARAMS ((tree));
955 extern tree build_chill_existing PARAMS ((tree));
956 extern tree build_chill_gettextaccess PARAMS ((tree));
957 extern tree build_chill_getassociation PARAMS ((tree));
958 extern tree build_chill_gettextindex PARAMS ((tree));
959 extern tree build_chill_gettextrecord PARAMS ((tree));
960 extern tree build_chill_getusage PARAMS ((tree));
961 extern tree build_chill_indexable PARAMS ((tree));
962 extern tree build_chill_isassociated PARAMS ((tree));
963 extern tree build_chill_modify PARAMS ((tree, tree));
964 extern tree build_chill_outoffile PARAMS ((tree));
965 extern tree build_chill_readable PARAMS ((tree));
966 extern tree build_chill_readrecord PARAMS ((tree, tree));
967 extern tree build_chill_readtext PARAMS ((tree, tree));
968 extern tree build_chill_sequencible PARAMS ((tree));
969 extern tree build_chill_settextaccess PARAMS ((tree, tree));
970 extern tree build_chill_settextindex PARAMS ((tree, tree));
971 extern tree build_chill_settextrecord PARAMS ((tree, tree));
972 extern tree build_chill_variable PARAMS ((tree));
973 extern tree build_chill_writeable PARAMS ((tree));
974 extern tree build_chill_writerecord PARAMS ((tree, tree));
975 extern tree build_chill_writetext PARAMS ((tree, tree));
976 extern void build_enum_tables PARAMS ((void));
977 extern tree build_text_mode PARAMS ((tree, tree, int));
978 extern tree check_text_length PARAMS ((tree));
979 extern void init_access_location PARAMS ((tree, tree));
980 extern void init_text_location PARAMS ((tree, tree));
981 extern void inout_init PARAMS ((void));
982 extern tree text_dynamic PARAMS ((tree));
983 extern tree text_indexmode PARAMS ((tree));
984 extern tree text_length PARAMS ((tree));
985 extern tree usage_type_node;
986 extern tree where_type_node;
989 extern tree get_type_of PARAMS ((tree));
990 extern void set_yydebug PARAMS ((int));
991 extern void yyerror PARAMS ((char *));
994 extern int seen_action;
995 extern int build_constructor;
996 extern void possibly_define_exit_label PARAMS ((tree));
997 extern void to_global_binding_level PARAMS ((void));
999 /* in ch/satisfy.c */
1000 extern tree satisfy_decl PARAMS ((tree, int));
1002 /* in ch/tasking.c */
1003 extern void add_taskstuff_to_list PARAMS ((tree, const char *, tree, tree, tree));
1004 extern void process_buffer_decls PARAMS ((tree, tree, int));
1005 extern tree buffer_element_mode PARAMS ((tree));
1006 extern void invalidate_buffer_element_mode PARAMS ((tree));
1007 extern tree build_buffer_descriptor PARAMS ((tree, tree, tree));
1008 extern tree build_buffer_type PARAMS ((tree, tree));
1009 extern void build_delay_action PARAMS ((tree, tree));
1010 extern tree build_delay_case_start PARAMS ((tree, tree));
1011 extern void build_delay_case_end PARAMS ((tree));
1012 extern void build_delay_case_label PARAMS ((tree, int));
1013 extern tree build_event_type PARAMS ((tree));
1014 extern void build_receive_case_end PARAMS ((tree, tree));
1015 extern int build_receive_case_if_generated PARAMS ((void));
1016 extern tree build_receive_case_label PARAMS ((tree, tree));
1017 extern tree build_receive_case_start PARAMS ((tree));
1018 extern void expand_continue_event PARAMS ((tree));
1019 extern void expand_send_buffer PARAMS ((tree, tree, tree, tree, tree));
1020 extern void expand_send_signal PARAMS ((tree, tree, tree, tree, tree));
1021 extern void build_start_process PARAMS ((tree, tree, tree, tree));
1022 extern tree build_copy_number PARAMS ((tree));
1023 extern tree build_gen_code PARAMS ((tree));
1024 extern tree build_gen_inst PARAMS ((tree, tree));
1025 extern tree build_gen_ptype PARAMS ((tree));
1026 extern void build_instance_type PARAMS ((void));
1027 extern tree build_process_header PARAMS ((tree, tree));
1028 extern void build_process_wrapper PARAMS ((tree, tree));
1029 extern tree build_proc_type PARAMS ((tree));
1030 extern tree build_queue_length PARAMS ((tree));
1031 extern tree build_signal_descriptor PARAMS ((tree, tree));
1032 extern tree build_signal_struct_type PARAMS ((tree, tree, tree));
1033 extern tree build_tasking_struct PARAMS ((void));
1034 extern tree chill_taskingcode_type_node;
1035 extern tree check_queue_size PARAMS ((tree));
1036 extern tree generate_tasking_code_variable PARAMS ((tree, tree *, int));
1037 extern tree get_signal_type_name PARAMS ((tree));
1038 extern tree get_struct_type_name PARAMS ((tree));
1039 extern tree get_tasking_code_name PARAMS ((tree));
1040 extern tree make_process_struct PARAMS ((tree, tree));
1041 extern tree make_signal_struct PARAMS ((tree));
1042 extern tree max_queue_size PARAMS ((tree));
1043 extern void tasking_init PARAMS ((void));
1044 extern void tasking_registry PARAMS ((void));
1045 extern void tasking_setup PARAMS ((void));
1047 /* in ch/timing.c */
1048 extern tree abs_timing_type_node;
1049 extern tree after_stack;
1050 extern void build_after_end PARAMS ((void));
1051 extern void build_after_start PARAMS ((tree, int));
1052 extern void build_after_timeout_start PARAMS ((void));
1053 extern void build_at_action PARAMS ((tree));
1054 extern void build_cycle_end PARAMS ((tree));
1055 extern tree build_cycle_start PARAMS ((tree));
1056 extern tree build_timeout_preface PARAMS ((void));
1057 extern void build_timesupervised_call PARAMS ((tree, tree));
1058 extern tree duration_timing_type_node;
1059 extern void timing_init PARAMS ((void));
1062 extern tree build_alias_decl PARAMS ((tree, tree, tree));
1063 extern tree build_bitstring_type PARAMS ((tree));
1064 extern tree build_powerset_type PARAMS ((tree));
1065 extern tree build_string_type PARAMS ((tree, tree));
1066 extern tree decl_check_rename PARAMS ((tree, tree));
1067 extern tree discrete_count PARAMS ((tree));
1068 extern int list_length PARAMS ((tree));
1069 extern tree munge_exit_label PARAMS ((tree));
1070 extern tree save_if_needed PARAMS ((tree));
1072 /* in ch/typeck.c */
1073 extern tree build_array_from_set PARAMS ((tree));
1074 extern tree build_chill_array_ref PARAMS ((tree, tree));
1075 extern tree build_chill_bitref PARAMS ((tree, tree));
1076 extern tree build_chill_cast PARAMS ((tree, tree));
1077 extern tree chill_equivalent PARAMS ((tree, tree, struct mode_chain*));
1078 extern tree build_init_struct PARAMS ((void));
1079 extern tree build_readonly_type PARAMS ((tree));
1080 extern int chill_compatible PARAMS ((tree, tree));
1081 extern int chill_compatible_classes PARAMS ((tree, tree));
1082 extern ch_class chill_expr_class PARAMS ((tree));
1083 extern tree chill_give_type_to_expr PARAMS ((tree, tree));
1084 extern tree chill_expand_tuple PARAMS ((tree, tree));
1085 extern ch_class chill_expr_class PARAMS ((tree));
1086 extern int chill_location PARAMS ((tree));
1087 extern tree chill_max_vary_array_index PARAMS ((tree));
1088 extern int chill_read_compatible PARAMS ((tree, tree));
1089 extern int chill_referable PARAMS ((tree));
1090 extern tree chill_root_mode PARAMS ((tree));
1091 extern ch_class chill_resulting_class PARAMS ((ch_class, ch_class));
1092 extern tree chill_resulting_mode PARAMS ((tree, tree));
1093 extern int chill_similar PARAMS ((tree, tree, struct mode_chain*));
1094 extern int discrete_type_p PARAMS ((tree));
1095 extern tree convert_to_discrete PARAMS ((tree));
1096 extern tree smash_dummy_type PARAMS ((tree));
1097 extern tree string_assignment_condition PARAMS ((tree, tree));
1098 extern tree type_for_mode PARAMS ((enum machine_mode, int));
1099 extern tree type_for_size PARAMS ((unsigned, int));
1100 extern int valid_array_index PARAMS ((tree, tree));
1101 extern void validate_varying_array_ref PARAMS ((tree, tree));
1104 extern void announce_function PARAMS ((tree));
1105 extern int floor_log2_wide PARAMS ((unsigned HOST_WIDE_INT));
1106 extern void rest_of_compilation PARAMS ((tree));
1109 extern void make_function_rtl PARAMS ((tree));
1112 extern void init_iterators PARAMS ((void));
1113 extern int mark_addressable PARAMS ((tree));
1114 extern tree chill_result_decl;
1116 #ifndef SET_WORD_SIZE
1117 #define SET_WORD_SIZE BITS_PER_WORD
1122 struct module *next_module; /* Next module, in order of their beginning. */
1123 struct module *prev_module; /* The surrounding module, if any. */
1125 tree prefix_name; /* Usually same as name, expect for nested modules.
1126 Used to generate DECL_ASSEMBLER_NAMEs. */
1127 /* procedure_seen indicates a procedure or process was declared.
1128 After this, no SEIZE, DCL, SYN, NEWMODE, SYNMODE statement is allowed */
1132 /* The value of current_nesting_level inside the module. */
1135 /* A chain contain one ALIAS_DECL for each 'GRANT foo->bar'.
1136 The DECL_NAME is get_identifier("bar"), and the DECL_INITIAL
1137 is get_identifier("bar"). Only used in pass 1. */
1141 extern struct module *current_module;
1143 /* fold a tree to constant as much as possible */
1144 extern tree deep_fold PARAMS ((tree));
1146 extern const char * const gnuchill_version;
1148 #endif /* ! GCC_CH_TREE_H */