ch-tree.h

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

extern tree build_compare_expr			PROTO((enum tree_code,
						       tree, tree));
extern tree build_compare_discrete_expr		PROTO((enum tree_code,
						       tree, tree));
extern tree check_case_selector                 PROTO((tree));
extern tree check_case_selector_list            PROTO((tree));
extern tree check_have_mode                     PROTO((tree, char*));
extern void init_chill_expand                   PROTO((void));
extern void chill_expand_assignment             PROTO((tree, enum chill_tree_code, tree));
extern void expand_assignment_action            PROTO((tree, enum chill_tree_code, tree));
extern int compare_int_csts			PROTO((enum chill_tree_code,
						       tree, tree));
extern void expand_varying_length_assignment    PROTO((tree, tree));
extern tree force_addr_of			PROTO((tree));
extern tree resolve_component_ref               PROTO((tree));
extern tree truthvalue_conversion               PROTO((tree));
extern tree varying_to_slice		        PROTO((tree));

/* in ch/grant.c */
extern void chill_finish_compile                PROTO((void));
extern void chill_seize                         PROTO((tree, tree, tree));
extern void start_outer_function	        PROTO((void));
extern void finish_chill_seize                  PROTO((tree));
extern void chill_grant                         PROTO((tree,tree, tree, tree));
extern void set_default_grant_file              PROTO((void));
extern void set_identifier_size                 PROTO((int));
extern void write_grant_file                    PROTO((void));
extern void write_spec_module                   PROTO((tree, tree));

/* in ch/lang.c */
extern tree string_index_type_dummy;
extern tree integer_minus_one_node;
extern int  flag_old_strings;
extern void GNU_xref_begin                      PROTO((void));
extern void GNU_xref_end                        PROTO((void));
extern tree build_chill_array_type              PROTO((tree, tree, int, tree));
extern tree build_chill_struct_type             PROTO((tree));
extern tree build_chill_pointer_type            PROTO((tree));
extern tree build_chill_range_type              PROTO((tree, tree, tree));
extern tree build_chill_reference_type          PROTO((tree));
extern tree build_simple_array_type             PROTO((tree, tree, tree));
extern tree const_expr                          PROTO((tree));
extern tree get_identifier3			PROTO((char*, char*, char*));
extern tree layout_chill_array_type             PROTO((tree));
extern tree layout_chill_range_type             PROTO((tree, int));
extern tree layout_chill_pointer_type           PROTO((tree));
extern tree layout_chill_struct_type            PROTO((tree));
extern tree layout_chill_variants               PROTO((tree));
extern tree layout_powerset_type                PROTO((tree));
extern tree lookup_interface                    PROTO((tree));
extern tree maybe_building_objc_message_expr    PROTO((void));
extern void maybe_objc_check_decl               PROTO((tree));
extern int  maybe_objc_comptypes                PROTO((tree, tree));
extern int  recognize_objc_keyword              PROTO((void));

/* in ch/lex.l */
extern tree use_seizefile_name;
extern tree current_seizefile_name;
extern tree build_chill_string                  PROTO((int, char *));
extern int  check_newline                       PROTO((void));
extern tree get_chill_filename                  PROTO((void)); 
extern tree get_chill_linenumber                PROTO((void));       
extern void register_seize_path                 PROTO((char *));
extern void reinit_parse_for_function           PROTO((void));
extern void mark_use_seizefile_written          PROTO((tree));

/* in ch/loop.c */
extern void begin_chill_loop                    PROTO((tree, tree));
extern tree build_chill_iterator                PROTO((tree, tree, tree, int, int, int));
extern void end_chill_loop                      PROTO((void));
extern tree get_unique_identifier               PROTO((char *));

/* in ch/inout.c */
extern tree access_recordmode                   PROTO((tree));
extern void invalidate_access_recordmode        PROTO((tree));
extern tree access_indexmode                    PROTO((tree));
extern tree access_dynamic                      PROTO((tree));
extern tree association_init_value;
extern tree association_type_node;
extern tree build_access_mode                   PROTO((tree, tree, int));
extern tree build_chill_associate               PROTO((tree, tree, tree));
extern tree build_chill_connect                 PROTO((tree, tree, tree, tree));
extern tree build_chill_create                  PROTO((tree));
extern tree build_chill_delete                  PROTO((tree));
extern tree build_chill_disconnect              PROTO((tree));
extern tree build_chill_dissociate              PROTO((tree));
extern tree build_chill_eoln                    PROTO((tree)); 
extern tree build_chill_existing                PROTO((tree));
extern tree build_chill_gettextaccess           PROTO((tree)); 
extern tree build_chill_getassociation          PROTO((tree)); 
extern tree build_chill_gettextindex            PROTO((tree)); 
extern tree build_chill_gettextrecord           PROTO((tree)); 
extern tree build_chill_getusage                PROTO((tree)); 
extern tree build_chill_indexable               PROTO((tree)); 
extern tree build_chill_isassociated            PROTO((tree)); 
extern tree build_chill_modify                  PROTO((tree, tree));
extern tree build_chill_outoffile               PROTO((tree)); 
extern tree build_chill_readable                PROTO((tree));
extern tree build_chill_readrecord              PROTO((tree, tree));
extern tree build_chill_readtext                PROTO((tree, tree));
extern tree build_chill_sequencible             PROTO((tree)); 
extern tree build_chill_settextaccess           PROTO((tree, tree));
extern tree build_chill_settextindex            PROTO((tree, tree));
extern tree build_chill_settextrecord           PROTO((tree, tree));
extern tree build_chill_variable                PROTO((tree)); 
extern tree build_chill_writeable               PROTO((tree));
extern tree build_chill_writerecord             PROTO((tree, tree));
extern tree build_chill_writetext               PROTO((tree, tree));
extern void build_enum_tables                   PROTO((void));
extern tree build_text_mode                     PROTO((tree, tree, int));
extern tree check_text_length                   PROTO((tree));
extern void init_access_location                PROTO((tree, tree));
extern void init_text_location                  PROTO((tree, tree));
extern void inout_init                          PROTO((void));
extern tree text_dynamic                        PROTO((tree));
extern tree text_indexmode                      PROTO((tree));
extern tree text_length                         PROTO((tree));
extern tree usage_type_node;
extern tree where_type_node;

/* in ch/parse.c */
extern tree get_type_of                         PROTO((tree));
extern void set_yydebug                         PROTO((int));
extern void yyerror                             PROTO((char *));
extern int  pass;
extern int ignoring;
extern int seen_action;
extern int build_constructor;
extern void possibly_define_exit_label          PROTO((tree));
extern void to_global_binding_level             PROTO((void));

/* in ch/satisfy.c */
extern tree satisfy_decl 	                PROTO((tree, int));

/* in ch/tasking.c */
extern void add_taskstuff_to_list               PROTO((tree, char *, tree, tree, tree));
extern void process_buffer_decls                PROTO((tree, tree, int));
extern tree buffer_element_mode                 PROTO((tree));
extern void invalidate_buffer_element_mode      PROTO((tree));
extern tree build_buffer_descriptor             PROTO((tree, tree, tree));
extern tree build_buffer_type                   PROTO((tree, tree));
extern void build_delay_action                  PROTO((tree, tree));
extern tree build_delay_case_start              PROTO((tree, tree));
extern void build_delay_case_end                PROTO((tree));
extern void build_delay_case_label              PROTO((tree, int));
extern tree build_event_type                    PROTO((tree));
extern void build_receive_case_end              PROTO((tree, tree));
extern int  build_receive_case_if_generated     PROTO((void));
extern tree build_receive_case_label            PROTO((tree, tree));
extern tree build_receive_case_start            PROTO((tree));
extern void expand_continue_event               PROTO((tree));
extern void expand_send_buffer                  PROTO((tree, tree, tree, tree, tree));
extern void expand_send_signal                  PROTO((tree, tree, tree, tree, tree));
extern void build_start_process                 PROTO((tree, tree, tree, tree));
extern tree build_copy_number                   PROTO((tree));
extern tree build_gen_code                      PROTO((tree));
extern tree build_gen_inst                      PROTO((tree, tree));
extern tree build_gen_ptype                     PROTO((tree));
extern void build_instance_type                 PROTO((void));
extern tree build_process_header                PROTO((tree, tree));
extern void build_process_wrapper               PROTO((tree, tree));
extern tree build_proc_type                     PROTO((tree));
extern tree build_queue_length                  PROTO((tree));
extern tree build_signal_descriptor             PROTO((tree, tree));
extern tree build_signal_struct_type            PROTO((tree, tree, tree));
extern tree build_tasking_struct                PROTO((void));
extern tree chill_taskingcode_type_node;
extern tree check_queue_size                    PROTO((tree));
extern tree generate_tasking_code_variable      PROTO((tree, tree *, int));
extern tree get_signal_type_name                PROTO((tree));
extern tree get_struct_type_name                PROTO((tree));
extern tree get_tasking_code_name               PROTO((tree));
extern tree make_process_struct                 PROTO((tree, tree));
extern tree make_signal_struct                  PROTO((tree));
extern tree max_queue_size                      PROTO((tree));
extern void tasking_init                        PROTO((void));
extern void tasking_registry                    PROTO((void));
extern void tasking_setup                       PROTO((void));

/* in ch/timing.c */
extern tree abs_timing_type_node;
extern tree after_stack;
extern void build_after_end                     PROTO((void));
extern void build_after_start                   PROTO((tree, int));
extern void build_after_timeout_start           PROTO((void));
extern void build_at_action                     PROTO((tree));
extern void build_cycle_end                     PROTO((tree));
extern tree build_cycle_start                   PROTO((tree));
extern tree build_timeout_preface               PROTO((void));
extern void build_timesupervised_call           PROTO((tree, tree));
extern tree duration_timing_type_node;
extern void timing_init                         PROTO((void));

/* in ch/tree.c */
extern tree build_alias_decl			PROTO((tree, tree, tree));
extern tree build_bitstring_type                PROTO((tree));
extern tree build_powerset_type                 PROTO((tree));
extern tree build_string_type                   PROTO((tree, tree));
extern tree decl_check_rename			PROTO((tree, tree));
extern tree discrete_count                      PROTO((tree));
extern int  list_length                         PROTO((tree));
extern tree munge_exit_label			PROTO((tree));
extern tree save_if_needed			PROTO((tree));

/* in ch/typeck.c */
extern tree build_array_from_set                PROTO((tree));
extern tree build_chill_array_ref               PROTO((tree, tree));
extern tree build_chill_bitref                  PROTO((tree, tree));
extern tree build_chill_cast                    PROTO((tree, tree));
extern tree chill_equivalent	                PROTO((tree, tree, struct mode_chain*));
extern tree build_init_struct                   PROTO((void));
extern tree build_readonly_type                 PROTO((tree));
extern int  chill_compatible                    PROTO((tree, tree));
extern int  chill_compatible_classes            PROTO((tree, tree));
extern ch_class chill_expr_class                PROTO((tree));
extern tree chill_give_type_to_expr             PROTO((tree, tree));
extern tree chill_expand_tuple                  PROTO((tree, tree));
extern ch_class chill_expr_class                PROTO((tree));
extern int  chill_location                      PROTO((tree));
extern tree chill_max_vary_array_index		PROTO((tree));
extern int  chill_read_compatible               PROTO((tree, tree));
extern int  chill_referable                     PROTO((tree));
extern tree chill_root_mode	                PROTO((tree));
extern ch_class chill_resulting_class           PROTO((ch_class, ch_class));
extern tree chill_resulting_mode                PROTO((tree, tree));
extern int  chill_similar	                PROTO((tree, tree, struct mode_chain*));
extern int  discrete_type_p			PROTO((tree));
extern tree initializer_constant_valid_p        PROTO((tree, tree));
extern tree convert_to_discrete                 PROTO((tree));
extern tree smash_dummy_type                    PROTO((tree));
extern tree string_assignment_condition         PROTO((tree, tree));
extern tree type_for_mode                       PROTO((enum machine_mode, int));
extern tree type_for_size                       PROTO((unsigned, int));
extern int  valid_array_index                   PROTO((tree, tree));
extern void validate_varying_array_ref          PROTO((tree, tree));

/* in function.c */
extern void expand_function_end                 PROTO((char *, int, int));
extern void expand_function_start               PROTO((tree, int));
extern void init_function_start                 PROTO((tree, char *, int));
extern void pop_function_context                PROTO((void));
extern void push_function_context               PROTO((void));

/* in integrate.c */
extern void output_inline_function              PROTO((tree));

/* in stmt.c */
extern void remember_end_note                   PROTO((tree));

/* in toplev.c */
extern void announce_function                   PROTO((tree));
extern int  floor_log2_wide                     PROTO((unsigned HOST_WIDE_INT));
extern void rest_of_compilation                 PROTO((tree));

/* in varasm.c */
extern void make_function_rtl                   PROTO((tree));

/* in ???? */
extern void init_iterators                      PROTO((void));
extern int  mark_addressable			PROTO((tree));
extern tree chill_result_decl;
#ifdef RTX_CODE
extern rtx label_rtx                            PROTO((tree));
#endif
extern void permanent_allocation                PROTO((int));

#ifndef SET_WORD_SIZE
#define SET_WORD_SIZE BITS_PER_WORD
#endif

struct module
{
  struct module *next_module;  /* Next module, in order of their beginning. */
  struct module *prev_module;  /* The surrounding module, if any. */
  tree name;
  tree prefix_name; /* Usually same as name, expect for nested modules.
		       Used to generate DECL_ASSEMBLER_NAMEs. */	       
  /* procedure_seen indicates a procedure or process was declared.
     After this, no SEIZE, DCL, SYN, NEWMODE, SYNMODE statement is allowed */
  int procedure_seen;
  int is_spec_module;

  /* The value of current_nesting_level inside the module. */
  int nesting_level;

  /* A chain contain one ALIAS_DECL for each 'GRANT foo->bar'.
     The DECL_NAME is get_identifier("bar"), and the DECL_INITIAL
     is get_identifier("bar").  Only used in pass 1. */
  tree granted_decls;
};

extern struct module *current_module;

/* fold a tree to constant as much as possible */
extern tree deep_fold PROTO((tree));
#endif