ch-tree.h

gcc-2.95.3 Linux下最常用的C编译器

   to store beyond the first available entry. */

#define VAR_DATA "__var_data"

/* This field is the name of the array, encapsulated in the CHILL
   structure used to represent an array type parameter. */
/*#define ARRAY_DATA "__array_data"*/

/* The CHILL INSTANCE type is composed of two CHILL integer
   fields, the process_type (set by the user with the 
   process_type compiler directive, and the proc_copy field,
   which is set by the start_process call's first parameter. */
#define INS_PTYPE "__proc_type"
#define INS_COPY  "__proc_copy"

/* This is the actual array type inside the VARYING struct */
#define CH_VARYING_ARRAY_TYPE(TYPE) TREE_TYPE (TREE_CHAIN (TYPE_FIELDS (TYPE)))

/* Identifiers which hold the VAR_LENGTH and VAR_DATA strings.  */
extern tree var_length_id;
extern tree var_data_id;

/* A RANGE_EXPR representing an ELSE in a case label. */
extern tree case_else_node;

#if 0   /* changed to function */
/* return non-zero if type is a compiler-generated VARYING array record */
#define CH_VARYING_TYPE_P(type) (TREE_CODE (type) == RECORD_TYPE && \
                           DECL_NAME (TYPE_FIELDS (type)) == \
                                      get_identifier (VAR_LENGTH) && \
                           DECL_NAME (TREE_CHAIN (TYPE_FIELDS (type))) == \
                                      get_identifier (VAR_DATA) && \
                   TREE_CHAIN (CH_VARYING_ARRAY_TYPE (type)) == NULL_TREE)

#endif

/* in c-aux-info.c */
extern void gen_aux_info_record                 PROTO((tree, int, int, int));

/* in c-common.c */
extern tree combine_strings                     PROTO((tree));
extern void constant_expression_warning         PROTO((tree));
extern void decl_attributes                     PROTO((tree, tree));
extern void declare_function_name               PROTO((void));
#ifdef BUFSIZ
extern char *get_directive_line                 PROTO((FILE *));
#endif
extern tree shorten_compare                     PROTO((tree *, tree *, tree *, enum tree_code *));

/* in c-decl.c */
extern tree short_integer_type_node, integer_type_node;
extern tree long_integer_type_node, long_long_integer_type_node;
extern tree short_unsigned_type_node, unsigned_type_node;
extern tree long_unsigned_type_node, long_long_unsigned_type_node;
extern tree ptrdiff_type_node;
extern tree unsigned_char_type_node, signed_char_type_node, char_type_node;
extern tree wchar_type_node, signed_wchar_type_node, unsigned_wchar_type_node;
extern tree float_type_node, double_type_node, long_double_type_node;
extern tree void_type_node, ptr_type_node, const_ptr_type_node;
extern tree default_function_type;
extern tree double_ftype_double, double_ftype_double_double;
extern tree int_ftype_int, long_ftype_long;
extern tree void_ftype_ptr_ptr_int, int_ftype_ptr_ptr_int;
extern tree void_ftype_ptr_int_int, string_ftype_ptr_ptr;
extern tree int_ftype_string_string, int_ftype_cptr_cptr_sizet;
/* Nodes for boolean constants TRUE and FALSE */
extern tree boolean_true_node, boolean_false_node;

extern tree global_function_decl;

/* in except.c */
extern void except_init_pass_2                  PROTO((void));

/* in ch-loop.c */
extern int flag_local_loop_counter;
extern void push_loop_block                     PROTO((void));
extern void pop_loop_block                      PROTO((void));
extern void build_loop_start                    PROTO((tree));
extern void top_loop_end_check			PROTO((tree));
extern void build_loop_end                      PROTO((void));
extern void build_loop_iterator                 PROTO((tree, tree, tree, tree, int, int, int));
extern void begin_loop_scope                    PROTO((void));
extern void end_loop_scope                      PROTO((tree));
extern void nonvalue_begin_loop_scope           PROTO((void));
extern void nonvalue_end_loop_scope             PROTO((void));

extern tree build_enumerator                    PROTO((tree, tree));
extern tree builtin_function                    PROTO((char *, tree, enum built_in_function function_, char *));
extern tree c_build_type_variant                PROTO((tree, int, int));
extern int  c_decode_option                     PROTO((int, char **));
extern void c_mark_varargs                      PROTO((void));
extern void clear_parm_order                    PROTO((void));
extern tree combine_parm_decls                  PROTO((tree, tree, int));
extern int  complete_array_type                 PROTO((tree, tree, int));
extern void declare_parm_level                  PROTO((int));
extern tree define_label                        PROTO((char *, int, tree));
extern void delete_block                        PROTO((tree));
extern void finish_decl                         PROTO((tree));
extern tree finish_enum                         PROTO((tree, tree));
extern void finish_function                     PROTO((int));
extern tree finish_struct                       PROTO((tree, tree));
extern tree get_parm_decls                      PROTO((void));
extern tree get_parm_info                       PROTO((int));
extern tree getdecls                            PROTO((void));
extern tree gettags                             PROTO((void));
extern int  global_bindings_p                   PROTO((void));
extern tree grokfield                           PROTO((char *, int, tree, tree, tree));
extern tree groktypename                        PROTO((tree));
extern tree groktypename_in_parm_context        PROTO((tree));
extern tree implicitly_declare                  PROTO((tree));
extern void init_decl_processing                PROTO((void));
extern void insert_block                        PROTO((tree));
extern void keep_next_level                     PROTO((void));
extern int  kept_level_p                        PROTO((void));
extern tree lookup_label                        PROTO((tree));
extern tree lookup_name                         PROTO((tree));
extern tree maybe_build_cleanup                 PROTO((tree));
extern void parmlist_tags_warning               PROTO((void));
extern void pending_xref_error                  PROTO((void));
extern void pop_chill_function_context          PROTO((void));
extern tree poplevel                            PROTO((int, int, int));
#ifdef BUFSIZ
extern void print_lang_decl                     PROTO((FILE *,tree, int));
extern void print_lang_identifier               PROTO((FILE *,tree, int));
extern void print_lang_type                     PROTO((FILE *,tree, int));
#endif
extern void push_chill_function_context         PROTO((void));
extern void push_parm_decl                      PROTO((tree));
extern tree pushdecl                            PROTO((tree));
extern tree pushdecl_top_level                  PROTO((tree));
extern void pushlevel                           PROTO((int));
extern void set_block                           PROTO((tree));
extern tree shadow_label                        PROTO((tree));
extern void shadow_record_fields                PROTO((tree));
extern void shadow_tag                          PROTO((tree));
extern void shadow_tag_warned                   PROTO((tree, int));
extern tree start_enum                          PROTO((tree));
extern int  start_function                      PROTO((tree, tree, int));
extern tree start_decl                          PROTO((tree, tree, int));
extern tree start_struct                        PROTO((enum tree_code, tree));
extern void store_parm_decls                    PROTO((void));
extern tree xref_tag                            PROTO((enum tree_code, tree));

/* in c-typeck.c */
extern tree build_array_ref                     PROTO((tree, tree));
extern tree build_c_cast                        PROTO((tree, tree));
extern tree build_chill_modify_expr             PROTO((tree, tree));
extern tree build_chill_component_ref           PROTO((tree, tree));
extern tree build_component_ref                 PROTO((tree, tree));
extern tree build_compound_expr                 PROTO((tree));
extern tree build_conditional_expr              PROTO((tree, tree, tree));
extern tree build_function_call                 PROTO((tree, tree));
extern tree build_indirect_ref                  PROTO((tree, char *));
extern tree build_modify_expr                   PROTO((tree, enum tree_code, tree));
extern tree build_unary_op                      PROTO((enum tree_code, tree, int));
extern tree c_alignof                           PROTO((tree));
extern tree c_alignof_expr                      PROTO((tree));
extern void c_expand_asm_operands               PROTO((tree, tree, tree, tree, int, char *, int));
extern tree c_sizeof                            PROTO((tree));
extern void c_expand_return                     PROTO((tree));
extern tree c_expand_start_case                 PROTO((tree));
extern tree common_type                         PROTO((tree, tree));
extern tree copy_novelty                        PROTO((tree, tree));
extern tree default_conversion                  PROTO((tree));
extern void finish_init                         PROTO((void));
extern tree parser_build_binary_op              PROTO((enum tree_code, tree, tree));
extern tree pop_init_level                      PROTO((int));
extern void process_init_default                PROTO((tree));
extern void process_init_element                PROTO((tree));
extern void push_init_level                     PROTO((int));
extern void really_start_incremental_init       PROTO((tree));
extern void set_init_index                      PROTO((tree, tree));
extern void set_init_label                      PROTO((tree));
extern void start_init                          PROTO((tree, tree, int));
extern void store_init_value                    PROTO((tree, tree));
extern tree valid_array_index_p                 PROTO((tree, tree, char *, int));

/* in ch/actions.c */
extern int grant_only_flag;
extern void allocate_lang_decl                  PROTO((tree));
extern tree build_chill_abs                     PROTO((tree));
extern tree build_chill_array_ref_1             PROTO((tree, tree));
extern tree build_chill_array_ref               PROTO((tree, tree));
extern tree build_chill_bin_type                PROTO((tree));
extern tree build_chill_binary_op               PROTO((enum chill_tree_code, tree, tree));
extern tree build_chill_card                    PROTO((tree));
extern tree build_chill_case_expr               PROTO((tree, tree, tree)); 
extern tree build_cause_exception               PROTO((tree, int));
extern tree build_chill_exception_decl          PROTO((char *));
extern tree build_chill_function_call           PROTO((tree, tree));
extern tree build_chill_length                  PROTO((tree));
extern tree build_chill_indirect_ref            PROTO((tree, tree, int));
extern tree build_chill_lower                   PROTO((tree));
extern tree build_chill_max                     PROTO((tree));
extern tree build_chill_min                     PROTO((tree));
extern tree build_chill_num                     PROTO((tree));
extern tree build_chill_repetition_op           PROTO((tree, tree));
extern tree build_chill_sizeof                  PROTO((tree));
extern tree build_chill_slice		        PROTO((tree, tree, tree));
extern tree build_chill_slice_with_range        PROTO((tree, tree, tree));
extern tree build_chill_slice_with_length       PROTO((tree, tree, tree));
extern tree build_chill_struct_type             PROTO((tree));
extern tree build_chill_unary_op                PROTO((enum chill_tree_code, tree));
extern tree build_chill_upper                   PROTO((tree));
extern tree build_exception_variant             PROTO((tree, tree));
extern tree build_generalized_call              PROTO((tree, tree));
extern tree build_lang_decl                     PROTO((enum chill_tree_code, tree, tree));
extern tree build_rts_call                      PROTO((char *, tree, tree));
extern tree build_varying_struct                PROTO((tree));
extern void chill_check_decl                    PROTO((tree));
extern tree chill_convert_for_assignment        PROTO((tree, tree, char*));
extern void chill_expand_return                 PROTO((tree, int));
extern void chill_expand_result                 PROTO((tree, int));
extern void chill_handle_case_default           PROTO((void));
extern void chill_handle_case_label		PROTO((tree, tree));
extern int  chill_varying_string_type_p         PROTO((tree));
extern int  chill_varying_type_p                PROTO((tree));
extern int  ch_singleton_set                    PROTO((tree));
extern tree check_expression                    PROTO((tree, tree, tree));
extern void check_missing_cases                 PROTO((tree));
extern tree check_non_null                      PROTO((tree));
extern tree check_range                         PROTO((tree, tree, tree,tree));
extern void cond_type_range_exception           PROTO((tree));
extern void expand_cause_exception              PROTO((tree));
extern tree finish_chill_binary_op              PROTO((tree));
extern tree finish_chill_unary_op               PROTO((tree));
extern tree high_domain_value                   PROTO((tree));
extern tree low_domain_value                    PROTO((tree));
extern tree maybe_array_ref			PROTO((tree, tree));
extern void maybe_chill_check_decl              PROTO((tree));
extern tree powersetlen                         PROTO((tree));
extern tree test_range                          PROTO((tree, tree, tree));
/* in ch/convert.c */
extern tree build_array_type_for_scalar         PROTO((tree));
extern tree convert                             PROTO((tree, tree));
extern tree convert_from_reference              PROTO((tree));
extern tree convert_to_class                    PROTO((ch_class, tree));
extern char* display_int_cst			PROTO((tree));

/* in ch/decl.c */
extern tree build_enumerator		        PROTO((tree, tree));
extern tree chill_munge_params                  PROTO((tree, tree, tree));
extern tree build_chill_function_type           PROTO((tree, tree, tree, tree));
extern tree decl_temp1                          PROTO((tree, tree, int, tree, int, int));
extern void do_based_decls                      PROTO((tree, tree, tree));
extern void do_chill_outparms                   PROTO((void));
extern tree do_decl                             PROTO((tree, tree, int, int, tree, int));
extern void do_decls                            PROTO((tree, tree, int, int, tree, int));
extern void expand_chill_outparms               PROTO((void));
extern void find_granted_decls		        PROTO((void));
extern void finish_chill_function               PROTO(());
extern tree finish_enum		                PROTO((tree, tree));
extern void fixup_chill_parms                   PROTO((tree));
extern void finish_outer_function               PROTO((void));
extern unsigned get_type_precision              PROTO((tree, tree));
extern tree grok_chill_fixedfields              PROTO((tree, tree, tree));
extern tree grok_chill_variantdefs              PROTO((tree, tree, tree));
extern void layout_enum                         PROTO((tree));
/* extern tree lookup_remembered_decl PROTO((HOST_WIDE_INT, tree)); */
extern void lookup_and_expand_goto		PROTO((tree));
extern tree lookup_tag_fields		        PROTO((tree, tree));
extern void lookup_and_handle_exit              PROTO((tree));
extern tree massage_param_node			PROTO((tree, tree));
extern void pop_module                          PROTO((void));
extern void print_mode                          PROTO((tree));
extern tree push_extern_function                PROTO((tree, tree, tree, tree, int));
extern void push_extern_process                 PROTO((tree, tree, tree, int));
extern void push_extern_signal                  PROTO((tree, tree, tree));
extern void push_granted                        PROTO((tree, tree));
extern tree push_modedef                        PROTO((tree, tree, int));
extern tree push_module                         PROTO((tree, int));
extern void push_parms                          PROTO((tree, tree, tree));
extern void push_syndecl                        PROTO((tree, tree, tree));
extern int result_never_set;
extern void save_expr_under_name                PROTO((tree, tree));
extern tree set_module_name                     PROTO((tree));
extern int  start_chill_function                PROTO((tree, tree, tree, tree, tree));
extern void start_outer_function	        PROTO((void));
extern void switch_to_pass_2 	                PROTO((void));

/* in ch/except.c */
extern void chill_check_no_handlers             PROTO((void));
extern void chill_finish_on                     PROTO((void));
extern void chill_handle_on_labels              PROTO((tree));
extern void chill_reraise_exceptions            PROTO((tree));
extern void chill_start_default_handler         PROTO((void));
extern void chill_start_on                      PROTO((void));
extern void expand_goto_except_cleanup          PROTO((int));
extern int is_handled				PROTO((tree));

/* in ch/expr.c */
extern tree build_chill_addr_expr               PROTO((tree, char *));
extern tree build_chill_arrow_expr              PROTO((tree, int));
extern tree build_component_ref		        PROTO((tree, tree));
extern tree build_chill_compound_expr           PROTO((tree));
extern tree build_chill_descr                   PROTO((tree));
extern void build_chill_descr_type              PROTO((void));
extern void build_chill_inttime_type            PROTO((void));