Skip to content

R
riscv-gcc-1
Commit 3b0d91ff by Kaveh R. Ghazi Committed by Kaveh Ghazi
Options

* All files: PROTO -> PARAMS. 

From-SVN: r31456
parent 97715246
Showing with 785 additions and 781 deletions
gcc/ch/ChangeLog
2000-01-17 Kaveh R. Ghazi <ghazi@caip.rutgers.edu>
* All files: PROTO -> PARAMS.
2000-01-10 Kaveh R. Ghazi <ghazi@caip.rutgers.edu> 2000-01-10 Kaveh R. Ghazi <ghazi@caip.rutgers.edu>
* lex.c: Include tm_p.h. * lex.c: Include tm_p.h.
......
gcc/ch/actions.c
...@@ -32,21 +32,21 @@ Boston, MA 02111-1307, USA. */ ...@@ -32,21 +32,21 @@ Boston, MA 02111-1307, USA. */
#include "assert.h" #include "assert.h"
#include "toplev.h" #include "toplev.h"
static int id_cmp PROTO ((tree *, tree *)); static int id_cmp PARAMS ((tree *, tree *));
static void warn_unhandled PROTO ((const char *)); static void warn_unhandled PARAMS ((const char *));
static tree adjust_return_value PROTO ((tree, const char *)); static tree adjust_return_value PARAMS ((tree, const char *));
static tree update_else_range_for_int_const PROTO ((tree, tree)); static tree update_else_range_for_int_const PARAMS ((tree, tree));
static tree update_else_range_for_range PROTO ((tree, tree, tree)); static tree update_else_range_for_range PARAMS ((tree, tree, tree));
static tree update_else_range_for_range_expr PROTO ((tree, tree)); static tree update_else_range_for_range_expr PARAMS ((tree, tree));
static tree update_else_range_for_type PROTO ((tree, tree)); static tree update_else_range_for_type PARAMS ((tree, tree));
static tree compute_else_range PROTO ((tree, tree, int)); static tree compute_else_range PARAMS ((tree, tree, int));
static tree check_case_value PROTO ((tree, tree)); static tree check_case_value PARAMS ((tree, tree));
static void chill_handle_case_label_range PROTO ((tree, tree, tree)); static void chill_handle_case_label_range PARAMS ((tree, tree, tree));
static tree chill_handle_multi_case_label_range PROTO ((tree, tree, tree)); static tree chill_handle_multi_case_label_range PARAMS ((tree, tree, tree));
static tree chill_handle_multi_case_else_label PROTO ((tree)); static tree chill_handle_multi_case_else_label PARAMS ((tree));
static tree chill_handle_multi_case_label PROTO ((tree, tree)); static tree chill_handle_multi_case_label PARAMS ((tree, tree));
static tree chill_handle_multi_case_label_list PROTO ((tree, tree)); static tree chill_handle_multi_case_label_list PARAMS ((tree, tree));
static void print_missing_cases PROTO ((tree, const unsigned char *, long)); static void print_missing_cases PARAMS ((tree, const unsigned char *, long));
#define obstack_chunk_alloc xmalloc #define obstack_chunk_alloc xmalloc
#define obstack_chunk_free free #define obstack_chunk_free free
...@@ -172,7 +172,7 @@ build_exception_variant (type, raises) ...@@ -172,7 +172,7 @@ build_exception_variant (type, raises)
/* NULL terminator for list. */ /* NULL terminator for list. */
a[i] = NULL_TREE; a[i] = NULL_TREE;
qsort (a, i, sizeof (tree), qsort (a, i, sizeof (tree),
(int (*) PROTO((const void*, const void*))) id_cmp); (int (*) PARAMS ((const void*, const void*))) id_cmp);
while (i--) while (i--)
TREE_CHAIN (a[i]) = a[i+1]; TREE_CHAIN (a[i]) = a[i+1];
raises = a[0]; raises = a[0];
......
gcc/ch/actions.h
...@@ -20,15 +20,15 @@ Boston, MA 02111-1307, USA. */ ...@@ -20,15 +20,15 @@ Boston, MA 02111-1307, USA. */
/* used by compile_file */ /* used by compile_file */
void init_chill PROTO((void)); void init_chill PARAMS ((void));
extern int grant_count; extern int grant_count;
extern void push_handler PROTO((void)); extern void push_handler PARAMS ((void));
extern void pop_handler PROTO((int)); extern void pop_handler PARAMS ((int));
extern void push_action PROTO((void)); extern void push_action PARAMS ((void));
extern int chill_handle_single_dimension_case_label PROTO((tree, tree, int *, int *)); extern int chill_handle_single_dimension_case_label PARAMS ((tree, tree, int *, int *));
extern tree build_chill_multi_dimension_case_expr PROTO((tree, tree, tree)); extern tree build_chill_multi_dimension_case_expr PARAMS ((tree, tree, tree));
extern tree build_multi_case_selector_expression PROTO((tree, tree)); extern tree build_multi_case_selector_expression PARAMS ((tree, tree));
extern void compute_else_ranges PROTO((tree, tree)); extern void compute_else_ranges PARAMS ((tree, tree));
gcc/ch/ch-tree.h
...@@ -100,7 +100,7 @@ extern tree ALL_POSTFIX; ...@@ -100,7 +100,7 @@ extern tree ALL_POSTFIX;
In this case, the USE_SEIZE_FILE directive will not be copied In this case, the USE_SEIZE_FILE directive will not be copied
into the grant file */ into the grant file */
#define CH_USE_SEIZEFILE_RESTRICTED(NODE) TREE_LANG_FLAG_4(NODE) #define CH_USE_SEIZEFILE_RESTRICTED(NODE) TREE_LANG_FLAG_4(NODE)
extern tree decl_old_name PROTO ((tree)); extern tree decl_old_name PARAMS ((tree));
/* for selective granting, mark as already granted */ /* for selective granting, mark as already granted */
#define CH_ALREADY_GRANTED(NODE) TREE_LANG_FLAG_4(NODE) #define CH_ALREADY_GRANTED(NODE) TREE_LANG_FLAG_4(NODE)
...@@ -620,17 +620,17 @@ extern tree case_else_node; ...@@ -620,17 +620,17 @@ extern tree case_else_node;
#endif #endif
/* in c-aux-info.c */ /* in c-aux-info.c */
extern void gen_aux_info_record PROTO((tree, int, int, int)); extern void gen_aux_info_record PARAMS ((tree, int, int, int));
/* in c-common.c */ /* in c-common.c */
extern tree combine_strings PROTO((tree)); extern tree combine_strings PARAMS ((tree));
extern void constant_expression_warning PROTO((tree)); extern void constant_expression_warning PARAMS ((tree));
extern void decl_attributes PROTO((tree, tree)); extern void decl_attributes PARAMS ((tree, tree));
extern void declare_function_name PROTO((void)); extern void declare_function_name PARAMS ((void));
#ifdef BUFSIZ #ifdef BUFSIZ
extern char *get_directive_line PROTO((FILE *)); extern char *get_directive_line PARAMS ((FILE *));
#endif #endif
extern tree shorten_compare PROTO((tree *, tree *, tree *, enum tree_code *)); extern tree shorten_compare PARAMS ((tree *, tree *, tree *, enum tree_code *));
/* in c-decl.c */ /* in c-decl.c */
extern tree wchar_type_node, signed_wchar_type_node, unsigned_wchar_type_node; extern tree wchar_type_node, signed_wchar_type_node, unsigned_wchar_type_node;
...@@ -646,495 +646,495 @@ extern tree boolean_true_node, boolean_false_node; ...@@ -646,495 +646,495 @@ extern tree boolean_true_node, boolean_false_node;
extern tree global_function_decl; extern tree global_function_decl;
/* in except.c */ /* in except.c */
extern void except_init_pass_2 PROTO((void)); extern void except_init_pass_2 PARAMS ((void));
extern void push_handler PROTO((void)); extern void push_handler PARAMS ((void));
extern void pop_handler PROTO((int)); extern void pop_handler PARAMS ((int));
/* in ch-loop.c */ /* in ch-loop.c */
extern int flag_local_loop_counter; extern int flag_local_loop_counter;
extern void push_loop_block PROTO((void)); extern void push_loop_block PARAMS ((void));
extern void pop_loop_block PROTO((void)); extern void pop_loop_block PARAMS ((void));
extern void build_loop_start PROTO((tree)); extern void build_loop_start PARAMS ((tree));
extern void top_loop_end_check PROTO((tree)); extern void top_loop_end_check PARAMS ((tree));
extern void build_loop_end PROTO((void)); extern void build_loop_end PARAMS ((void));
extern void build_loop_iterator PROTO((tree, tree, tree, tree, int, int, int)); extern void build_loop_iterator PARAMS ((tree, tree, tree, tree, int, int, int));
extern void begin_loop_scope PROTO((void)); extern void begin_loop_scope PARAMS ((void));
extern void end_loop_scope PROTO((tree)); extern void end_loop_scope PARAMS ((tree));
extern void nonvalue_begin_loop_scope PROTO((void)); extern void nonvalue_begin_loop_scope PARAMS ((void));
extern void nonvalue_end_loop_scope PROTO((void)); extern void nonvalue_end_loop_scope PARAMS ((void));
extern tree build_enumerator PROTO((tree, tree)); extern tree build_enumerator PARAMS ((tree, tree));
extern tree c_build_type_variant PROTO((tree, int, int)); extern tree c_build_type_variant PARAMS ((tree, int, int));
extern int c_decode_option PROTO((int, char **)); extern int c_decode_option PARAMS ((int, char **));
extern void c_mark_varargs PROTO((void)); extern void c_mark_varargs PARAMS ((void));
extern void clear_parm_order PROTO((void)); extern void clear_parm_order PARAMS ((void));
extern tree combine_parm_decls PROTO((tree, tree, int)); extern tree combine_parm_decls PARAMS ((tree, tree, int));
extern int complete_array_type PROTO((tree, tree, int)); extern int complete_array_type PARAMS ((tree, tree, int));
extern void declare_parm_level PROTO((int)); extern void declare_parm_level PARAMS ((int));
extern tree define_label PROTO((char *, int, tree)); extern tree define_label PARAMS ((char *, int, tree));
extern void delete_block PROTO((tree)); extern void delete_block PARAMS ((tree));
extern void finish_decl PROTO((tree)); extern void finish_decl PARAMS ((tree));
extern tree finish_enum PROTO((tree, tree)); extern tree finish_enum PARAMS ((tree, tree));
extern void finish_function PROTO((int)); extern void finish_function PARAMS ((int));
extern tree finish_struct PROTO((tree, tree)); extern tree finish_struct PARAMS ((tree, tree));
extern tree get_parm_decls PROTO((void)); extern tree get_parm_decls PARAMS ((void));
extern tree get_parm_info PROTO((int)); extern tree get_parm_info PARAMS ((int));
extern tree getdecls PROTO((void)); extern tree getdecls PARAMS ((void));
extern tree gettags PROTO((void)); extern tree gettags PARAMS ((void));
extern int global_bindings_p PROTO((void)); extern int global_bindings_p PARAMS ((void));
extern tree grokfield PROTO((char *, int, tree, tree, tree)); extern tree grokfield PARAMS ((char *, int, tree, tree, tree));
extern tree groktypename PROTO((tree)); extern tree groktypename PARAMS ((tree));
extern tree groktypename_in_parm_context PROTO((tree)); extern tree groktypename_in_parm_context PARAMS ((tree));
extern tree implicitly_declare PROTO((tree)); extern tree implicitly_declare PARAMS ((tree));
extern void init_decl_processing PROTO((void)); extern void init_decl_processing PARAMS ((void));
extern void insert_block PROTO((tree)); extern void insert_block PARAMS ((tree));
extern void keep_next_level PROTO((void)); extern void keep_next_level PARAMS ((void));
extern int kept_level_p PROTO((void)); extern int kept_level_p PARAMS ((void));
extern tree lookup_label PROTO((tree)); extern tree lookup_label PARAMS ((tree));
extern tree lookup_name PROTO((tree)); extern tree lookup_name PARAMS ((tree));
extern tree maybe_build_cleanup PROTO((tree)); extern tree maybe_build_cleanup PARAMS ((tree));
extern void parmlist_tags_warning PROTO((void)); extern void parmlist_tags_warning PARAMS ((void));
extern void pending_xref_error PROTO((void)); extern void pending_xref_error PARAMS ((void));
extern void pop_chill_function_context PROTO((void)); extern void pop_chill_function_context PARAMS ((void));
extern tree poplevel PROTO((int, int, int)); extern tree poplevel PARAMS ((int, int, int));
#ifdef BUFSIZ #ifdef BUFSIZ
extern void print_lang_decl PROTO((FILE *,tree, int)); extern void print_lang_decl PARAMS ((FILE *,tree, int));
extern void print_lang_identifier PROTO((FILE *,tree, int)); extern void print_lang_identifier PARAMS ((FILE *,tree, int));
extern void print_lang_type PROTO((FILE *,tree, int)); extern void print_lang_type PARAMS ((FILE *,tree, int));
#endif #endif
extern void push_chill_function_context PROTO((void)); extern void push_chill_function_context PARAMS ((void));
extern void push_parm_decl PROTO((tree)); extern void push_parm_decl PARAMS ((tree));
extern tree pushdecl PROTO((tree)); extern tree pushdecl PARAMS ((tree));
extern tree pushdecl_top_level PROTO((tree)); extern tree pushdecl_top_level PARAMS ((tree));
extern void pushlevel PROTO((int)); extern void pushlevel PARAMS ((int));
extern void set_block PROTO((tree)); extern void set_block PARAMS ((tree));
extern tree shadow_label PROTO((tree)); extern tree shadow_label PARAMS ((tree));
extern void shadow_record_fields PROTO((tree)); extern void shadow_record_fields PARAMS ((tree));
extern void shadow_tag PROTO((tree)); extern void shadow_tag PARAMS ((tree));
extern void shadow_tag_warned PROTO((tree, int)); extern void shadow_tag_warned PARAMS ((tree, int));
extern tree start_enum PROTO((tree)); extern tree start_enum PARAMS ((tree));
extern int start_function PROTO((tree, tree, int)); extern int start_function PARAMS ((tree, tree, int));
extern tree start_decl PROTO((tree, tree, int)); extern tree start_decl PARAMS ((tree, tree, int));
extern tree start_struct PROTO((enum tree_code, tree)); extern tree start_struct PARAMS ((enum tree_code, tree));
extern void store_parm_decls PROTO((void)); extern void store_parm_decls PARAMS ((void));
extern tree xref_tag PROTO((enum tree_code, tree)); extern tree xref_tag PARAMS ((enum tree_code, tree));
/* in c-typeck.c */ /* in c-typeck.c */
extern tree build_array_ref PROTO((tree, tree)); extern tree build_array_ref PARAMS ((tree, tree));
extern tree build_c_cast PROTO((tree, tree)); extern tree build_c_cast PARAMS ((tree, tree));
extern tree build_chill_modify_expr PROTO((tree, tree)); extern tree build_chill_modify_expr PARAMS ((tree, tree));
extern tree build_chill_component_ref PROTO((tree, tree)); extern tree build_chill_component_ref PARAMS ((tree, tree));
extern tree build_component_ref PROTO((tree, tree)); extern tree build_component_ref PARAMS ((tree, tree));
extern tree build_compound_expr PROTO((tree)); extern tree build_compound_expr PARAMS ((tree));
extern tree build_conditional_expr PROTO((tree, tree, tree)); extern tree build_conditional_expr PARAMS ((tree, tree, tree));
extern tree build_function_call PROTO((tree, tree)); extern tree build_function_call PARAMS ((tree, tree));
extern tree build_indirect_ref PROTO((tree, char *)); extern tree build_indirect_ref PARAMS ((tree, char *));
extern tree build_modify_expr PROTO((tree, enum tree_code, tree)); extern tree build_modify_expr PARAMS ((tree, enum tree_code, tree));
extern tree build_unary_op PROTO((enum tree_code, tree, int)); extern tree build_unary_op PARAMS ((enum tree_code, tree, int));
extern tree c_alignof PROTO((tree)); extern tree c_alignof PARAMS ((tree));
extern tree c_alignof_expr PROTO((tree)); extern tree c_alignof_expr PARAMS ((tree));
extern void c_expand_asm_operands PROTO((tree, tree, tree, tree, int, char *, int)); extern void c_expand_asm_operands PARAMS ((tree, tree, tree, tree, int, char *, int));
extern tree c_sizeof PROTO((tree)); extern tree c_sizeof PARAMS ((tree));
extern void c_expand_return PROTO((tree)); extern void c_expand_return PARAMS ((tree));
extern tree c_expand_start_case PROTO((tree)); extern tree c_expand_start_case PARAMS ((tree));
extern tree common_type PROTO((tree, tree)); extern tree common_type PARAMS ((tree, tree));
extern tree copy_novelty PROTO((tree, tree)); extern tree copy_novelty PARAMS ((tree, tree));
extern tree default_conversion PROTO((tree)); extern tree default_conversion PARAMS ((tree));
extern void finish_init PROTO((void)); extern void finish_init PARAMS ((void));
extern tree parser_build_binary_op PROTO((enum tree_code, tree, tree)); extern tree parser_build_binary_op PARAMS ((enum tree_code, tree, tree));
extern tree pop_init_level PROTO((int)); extern tree pop_init_level PARAMS ((int));
extern void process_init_default PROTO((tree)); extern void process_init_default PARAMS ((tree));
extern void process_init_element PROTO((tree)); extern void process_init_element PARAMS ((tree));
extern void push_init_level PROTO((int)); extern void push_init_level PARAMS ((int));
extern void really_start_incremental_init PROTO((tree)); extern void really_start_incremental_init PARAMS ((tree));
extern void set_init_index PROTO((tree, tree)); extern void set_init_index PARAMS ((tree, tree));
extern void set_init_label PROTO((tree)); extern void set_init_label PARAMS ((tree));
extern void start_init PROTO((tree, tree, int)); extern void start_init PARAMS ((tree, tree, int));
extern void store_init_value PROTO((tree, tree)); extern void store_init_value PARAMS ((tree, tree));
extern tree valid_array_index_p PROTO((tree, tree, const char *, int)); extern tree valid_array_index_p PARAMS ((tree, tree, const char *, int));
/* in ch/actions.c */ /* in ch/actions.c */
extern int grant_only_flag; extern int grant_only_flag;
extern void allocate_lang_decl PROTO((tree)); extern void allocate_lang_decl PARAMS ((tree));
extern tree build_chill_abs PROTO((tree)); extern tree build_chill_abs PARAMS ((tree));
extern tree build_chill_array_ref_1 PROTO((tree, tree)); extern tree build_chill_array_ref_1 PARAMS ((tree, tree));
extern tree build_chill_array_ref PROTO((tree, tree)); extern tree build_chill_array_ref PARAMS ((tree, tree));
extern tree build_chill_bin_type PROTO((tree)); extern tree build_chill_bin_type PARAMS ((tree));
extern tree build_chill_binary_op PROTO((enum chill_tree_code, tree, tree)); extern tree build_chill_binary_op PARAMS ((enum chill_tree_code, tree, tree));
extern tree build_chill_card PROTO((tree)); extern tree build_chill_card PARAMS ((tree));
extern tree build_chill_case_expr PROTO((tree, tree, tree)); extern tree build_chill_case_expr PARAMS ((tree, tree, tree));
extern tree build_cause_exception PROTO((tree, int)); extern tree build_cause_exception PARAMS ((tree, int));
extern tree build_chill_exception_decl PROTO((const char *)); extern tree build_chill_exception_decl PARAMS ((const char *));
extern tree build_chill_function_call PROTO((tree, tree)); extern tree build_chill_function_call PARAMS ((tree, tree));
extern tree build_chill_length PROTO((tree)); extern tree build_chill_length PARAMS ((tree));
extern tree build_chill_indirect_ref PROTO((tree, tree, int)); extern tree build_chill_indirect_ref PARAMS ((tree, tree, int));
extern tree build_chill_lower PROTO((tree)); extern tree build_chill_lower PARAMS ((tree));
extern tree build_chill_max PROTO((tree)); extern tree build_chill_max PARAMS ((tree));
extern tree build_chill_min PROTO((tree)); extern tree build_chill_min PARAMS ((tree));
extern tree build_chill_num PROTO((tree)); extern tree build_chill_num PARAMS ((tree));
extern tree build_chill_repetition_op PROTO((tree, tree)); extern tree build_chill_repetition_op PARAMS ((tree, tree));
extern tree build_chill_sizeof PROTO((tree)); extern tree build_chill_sizeof PARAMS ((tree));
extern tree build_chill_slice PROTO((tree, tree, tree)); extern tree build_chill_slice PARAMS ((tree, tree, tree));
extern tree build_chill_slice_with_range PROTO((tree, tree, tree)); extern tree build_chill_slice_with_range PARAMS ((tree, tree, tree));
extern tree build_chill_slice_with_length PROTO((tree, tree, tree)); extern tree build_chill_slice_with_length PARAMS ((tree, tree, tree));
extern tree build_chill_struct_type PROTO((tree)); extern tree build_chill_struct_type PARAMS ((tree));
extern tree build_chill_unary_op PROTO((enum chill_tree_code, tree)); extern tree build_chill_unary_op PARAMS ((enum chill_tree_code, tree));
extern tree build_chill_upper PROTO((tree)); extern tree build_chill_upper PARAMS ((tree));
extern tree build_exception_variant PROTO((tree, tree)); extern tree build_exception_variant PARAMS ((tree, tree));
extern tree build_generalized_call PROTO((tree, tree)); extern tree build_generalized_call PARAMS ((tree, tree));
extern tree build_lang_decl PROTO((enum chill_tree_code, tree, tree)); extern tree build_lang_decl PARAMS ((enum chill_tree_code, tree, tree));
extern tree build_rts_call PROTO((const char *, tree, tree)); extern tree build_rts_call PARAMS ((const char *, tree, tree));
extern tree build_varying_struct PROTO((tree)); extern tree build_varying_struct PARAMS ((tree));
extern void chill_check_decl PROTO((tree)); extern void chill_check_decl PARAMS ((tree));
extern tree chill_convert_for_assignment PROTO((tree, tree, const char *)); extern tree chill_convert_for_assignment PARAMS ((tree, tree, const char *));
extern void chill_expand_return PROTO((tree, int)); extern void chill_expand_return PARAMS ((tree, int));
extern void chill_expand_result PROTO((tree, int)); extern void chill_expand_result PARAMS ((tree, int));
extern void chill_handle_case_default PROTO((void)); extern void chill_handle_case_default PARAMS ((void));
extern void chill_handle_case_label PROTO((tree, tree)); extern void chill_handle_case_label PARAMS ((tree, tree));
extern int chill_varying_string_type_p PROTO((tree)); extern int chill_varying_string_type_p PARAMS ((tree));
extern int chill_varying_type_p PROTO((tree)); extern int chill_varying_type_p PARAMS ((tree));
extern int ch_singleton_set PROTO((tree)); extern int ch_singleton_set PARAMS ((tree));
extern tree check_expression PROTO((tree, tree, tree)); extern tree check_expression PARAMS ((tree, tree, tree));
extern void check_missing_cases PROTO((tree)); extern void check_missing_cases PARAMS ((tree));
extern tree check_non_null PROTO((tree)); extern tree check_non_null PARAMS ((tree));
extern tree check_range PROTO((tree, tree, tree,tree)); extern tree check_range PARAMS ((tree, tree, tree,tree));
extern void cond_type_range_exception PROTO((tree)); extern void cond_type_range_exception PARAMS ((tree));
extern void expand_cause_exception PROTO((tree)); extern void expand_cause_exception PARAMS ((tree));
extern tree finish_chill_binary_op PROTO((tree)); extern tree finish_chill_binary_op PARAMS ((tree));
extern tree finish_chill_unary_op PROTO((tree)); extern tree finish_chill_unary_op PARAMS ((tree));
extern tree high_domain_value PROTO((tree)); extern tree high_domain_value PARAMS ((tree));
extern tree low_domain_value PROTO((tree)); extern tree low_domain_value PARAMS ((tree));
extern tree maybe_array_ref PROTO((tree, tree)); extern tree maybe_array_ref PARAMS ((tree, tree));
extern void maybe_chill_check_decl PROTO((tree)); extern void maybe_chill_check_decl PARAMS ((tree));
extern tree powersetlen PROTO((tree)); extern tree powersetlen PARAMS ((tree));
extern tree test_range PROTO((tree, tree, tree)); extern tree test_range PARAMS ((tree, tree, tree));
/* in ch/convert.c */ /* in ch/convert.c */
extern tree build_array_type_for_scalar PROTO((tree)); extern tree build_array_type_for_scalar PARAMS ((tree));
extern tree convert PROTO((tree, tree)); extern tree convert PARAMS ((tree, tree));
extern tree convert_from_reference PROTO((tree)); extern tree convert_from_reference PARAMS ((tree));
extern tree convert_to_class PROTO((ch_class, tree)); extern tree convert_to_class PARAMS ((ch_class, tree));
extern const char *display_int_cst PROTO((tree)); extern const char *display_int_cst PARAMS ((tree));
/* in ch/decl.c */ /* in ch/decl.c */
extern tree build_enumerator PROTO((tree, tree)); extern tree build_enumerator PARAMS ((tree, tree));
extern tree chill_munge_params PROTO((tree, tree, tree)); extern tree chill_munge_params PARAMS ((tree, tree, tree));
extern tree build_chill_function_type PROTO((tree, tree, tree, tree)); extern tree build_chill_function_type PARAMS ((tree, tree, tree, tree));
extern tree decl_temp1 PROTO((tree, tree, int, tree, int, int)); extern tree decl_temp1 PARAMS ((tree, tree, int, tree, int, int));
extern void do_based_decls PROTO((tree, tree, tree)); extern void do_based_decls PARAMS ((tree, tree, tree));
extern void do_chill_outparms PROTO((void)); extern void do_chill_outparms PARAMS ((void));
extern tree do_decl PROTO((tree, tree, int, int, tree, int)); extern tree do_decl PARAMS ((tree, tree, int, int, tree, int));
extern void do_decls PROTO((tree, tree, int, int, tree, int)); extern void do_decls PARAMS ((tree, tree, int, int, tree, int));
extern void expand_chill_outparms PROTO((void)); extern void expand_chill_outparms PARAMS ((void));
extern void find_granted_decls PROTO((void)); extern void find_granted_decls PARAMS ((void));
extern void finish_chill_function PROTO((void)); extern void finish_chill_function PARAMS ((void));
extern tree finish_enum PROTO((tree, tree)); extern tree finish_enum PARAMS ((tree, tree));
extern void fixup_chill_parms PROTO((tree)); extern void fixup_chill_parms PARAMS ((tree));
extern void finish_outer_function PROTO((void)); extern void finish_outer_function PARAMS ((void));
extern unsigned get_type_precision PROTO((tree, tree)); extern unsigned get_type_precision PARAMS ((tree, tree));
extern tree grok_chill_fixedfields PROTO((tree, tree, tree)); extern tree grok_chill_fixedfields PARAMS ((tree, tree, tree));
extern tree grok_chill_variantdefs PROTO((tree, tree, tree)); extern tree grok_chill_variantdefs PARAMS ((tree, tree, tree));
extern void layout_enum PROTO((tree)); extern void layout_enum PARAMS ((tree));
/* extern tree lookup_remembered_decl PROTO((HOST_WIDE_INT, tree)); */ /* extern tree lookup_remembered_decl PARAMS ((HOST_WIDE_INT, tree)); */
extern void lookup_and_expand_goto PROTO((tree)); extern void lookup_and_expand_goto PARAMS ((tree));
extern tree lookup_tag_fields PROTO((tree, tree)); extern tree lookup_tag_fields PARAMS ((tree, tree));
extern void lookup_and_handle_exit PROTO((tree)); extern void lookup_and_handle_exit PARAMS ((tree));
extern tree massage_param_node PROTO((tree, tree)); extern tree massage_param_node PARAMS ((tree, tree));
extern void pop_module PROTO((void)); extern void pop_module PARAMS ((void));
extern void print_mode PROTO((tree)); extern void print_mode PARAMS ((tree));
extern tree push_extern_function PROTO((tree, tree, tree, tree, int)); extern tree push_extern_function PARAMS ((tree, tree, tree, tree, int));
extern void push_extern_process PROTO((tree, tree, tree, int)); extern void push_extern_process PARAMS ((tree, tree, tree, int));
extern void push_extern_signal PROTO((tree, tree, tree)); extern void push_extern_signal PARAMS ((tree, tree, tree));
extern void push_granted PROTO((tree, tree)); extern void push_granted PARAMS ((tree, tree));
extern tree push_modedef PROTO((tree, tree, int)); extern tree push_modedef PARAMS ((tree, tree, int));
extern tree push_module PROTO((tree, int)); extern tree push_module PARAMS ((tree, int));
extern void push_parms PROTO((tree, tree, tree)); extern void push_parms PARAMS ((tree, tree, tree));
extern void push_syndecl PROTO((tree, tree, tree)); extern void push_syndecl PARAMS ((tree, tree, tree));
extern int result_never_set; extern int result_never_set;
extern void save_expr_under_name PROTO((tree, tree)); extern void save_expr_under_name PARAMS ((tree, tree));
extern tree set_module_name PROTO((tree)); extern tree set_module_name PARAMS ((tree));
extern int start_chill_function PROTO((tree, tree, tree, tree, tree)); extern int start_chill_function PARAMS ((tree, tree, tree, tree, tree));
extern void start_outer_function PROTO((void)); extern void start_outer_function PARAMS ((void));
extern void switch_to_pass_2 PROTO((void)); extern void switch_to_pass_2 PARAMS ((void));
/* in ch/except.c */ /* in ch/except.c */
extern void chill_check_no_handlers PROTO((void)); extern void chill_check_no_handlers PARAMS ((void));
extern void chill_finish_on PROTO((void)); extern void chill_finish_on PARAMS ((void));
extern void chill_handle_on_labels PROTO((tree)); extern void chill_handle_on_labels PARAMS ((tree));
extern void chill_reraise_exceptions PROTO((tree)); extern void chill_reraise_exceptions PARAMS ((tree));
extern void chill_start_default_handler PROTO((void)); extern void chill_start_default_handler PARAMS ((void));
extern void chill_start_on PROTO((void)); extern void chill_start_on PARAMS ((void));
extern void expand_goto_except_cleanup PROTO((int)); extern void expand_goto_except_cleanup PARAMS ((int));
extern int is_handled PROTO((tree)); extern int is_handled PARAMS ((tree));
/* in ch/expr.c */ /* in ch/expr.c */
extern tree build_chill_addr_expr PROTO((tree, const char *)); extern tree build_chill_addr_expr PARAMS ((tree, const char *));
extern tree build_chill_arrow_expr PROTO((tree, int)); extern tree build_chill_arrow_expr PARAMS ((tree, int));
extern tree build_component_ref PROTO((tree, tree)); extern tree build_component_ref PARAMS ((tree, tree));
extern tree build_chill_compound_expr PROTO((tree)); extern tree build_chill_compound_expr PARAMS ((tree));
extern tree build_chill_descr PROTO((tree)); extern tree build_chill_descr PARAMS ((tree));
extern void build_chill_descr_type PROTO((void)); extern void build_chill_descr_type PARAMS ((void));
extern void build_chill_inttime_type PROTO((void)); extern void build_chill_inttime_type PARAMS ((void));
extern tree build_compare_expr PROTO((enum tree_code, extern tree build_compare_expr PARAMS ((enum tree_code,
tree, tree)); tree, tree));
extern tree build_compare_discrete_expr PROTO((enum tree_code, extern tree build_compare_discrete_expr PARAMS ((enum tree_code,
tree, tree)); tree, tree));
extern tree check_case_selector PROTO((tree)); extern tree check_case_selector PARAMS ((tree));
extern tree check_case_selector_list PROTO((tree)); extern tree check_case_selector_list PARAMS ((tree));
extern tree check_have_mode PROTO((tree, const char *)); extern tree check_have_mode PARAMS ((tree, const char *));
extern void init_chill_expand PROTO((void)); extern void init_chill_expand PARAMS ((void));
extern void chill_expand_assignment PROTO((tree, enum chill_tree_code, tree)); extern void chill_expand_assignment PARAMS ((tree, enum chill_tree_code, tree));
extern void expand_assignment_action PROTO((tree, enum chill_tree_code, tree)); extern void expand_assignment_action PARAMS ((tree, enum chill_tree_code, tree));
extern int compare_int_csts PROTO((enum chill_tree_code, extern int compare_int_csts PARAMS ((enum chill_tree_code,
tree, tree)); tree, tree));
extern void expand_varying_length_assignment PROTO((tree, tree)); extern void expand_varying_length_assignment PARAMS ((tree, tree));
extern tree force_addr_of PROTO((tree)); extern tree force_addr_of PARAMS ((tree));
extern tree resolve_component_ref PROTO((tree)); extern tree resolve_component_ref PARAMS ((tree));
extern tree truthvalue_conversion PROTO((tree)); extern tree truthvalue_conversion PARAMS ((tree));
extern tree varying_to_slice PROTO((tree)); extern tree varying_to_slice PARAMS ((tree));
/* in ch/grant.c */ /* in ch/grant.c */
extern void chill_finish_compile PROTO((void)); extern void chill_finish_compile PARAMS ((void));
extern void chill_seize PROTO((tree, tree, tree)); extern void chill_seize PARAMS ((tree, tree, tree));
extern void start_outer_function PROTO((void)); extern void start_outer_function PARAMS ((void));
extern void finish_chill_seize PROTO((tree)); extern void finish_chill_seize PARAMS ((tree));
extern void chill_grant PROTO((tree,tree, tree, tree)); extern void chill_grant PARAMS ((tree,tree, tree, tree));
extern void set_default_grant_file PROTO((void)); extern void set_default_grant_file PARAMS ((void));
extern void set_identifier_size PROTO((int)); extern void set_identifier_size PARAMS ((int));
extern void write_grant_file PROTO((void)); extern void write_grant_file PARAMS ((void));
extern void write_spec_module PROTO((tree, tree)); extern void write_spec_module PARAMS ((tree, tree));
/* in ch/lang.c */ /* in ch/lang.c */
extern tree string_index_type_dummy; extern tree string_index_type_dummy;
extern tree integer_minus_one_node; extern tree integer_minus_one_node;
extern int flag_old_strings; extern int flag_old_strings;
extern void GNU_xref_begin PROTO((void)); extern void GNU_xref_begin PARAMS ((void));
extern void GNU_xref_end PROTO((void)); extern void GNU_xref_end PARAMS ((void));
extern tree build_chill_array_type PROTO((tree, tree, int, tree)); extern tree build_chill_array_type PARAMS ((tree, tree, int, tree));
extern tree build_chill_struct_type PROTO((tree)); extern tree build_chill_struct_type PARAMS ((tree));
extern tree build_chill_pointer_type PROTO((tree)); extern tree build_chill_pointer_type PARAMS ((tree));
extern tree build_chill_range_type PROTO((tree, tree, tree)); extern tree build_chill_range_type PARAMS ((tree, tree, tree));
extern tree build_chill_reference_type PROTO((tree)); extern tree build_chill_reference_type PARAMS ((tree));
extern tree build_simple_array_type PROTO((tree, tree, tree)); extern tree build_simple_array_type PARAMS ((tree, tree, tree));
extern tree const_expr PROTO((tree)); extern tree const_expr PARAMS ((tree));
extern tree get_identifier3 PROTO((const char *, const char *, const char *)); extern tree get_identifier3 PARAMS ((const char *, const char *, const char *));
extern tree layout_chill_array_type PROTO((tree)); extern tree layout_chill_array_type PARAMS ((tree));
extern tree layout_chill_range_type PROTO((tree, int)); extern tree layout_chill_range_type PARAMS ((tree, int));
extern tree layout_chill_pointer_type PROTO((tree)); extern tree layout_chill_pointer_type PARAMS ((tree));
extern tree layout_chill_struct_type PROTO((tree)); extern tree layout_chill_struct_type PARAMS ((tree));
extern tree layout_chill_variants PROTO((tree)); extern tree layout_chill_variants PARAMS ((tree));
extern tree layout_powerset_type PROTO((tree)); extern tree layout_powerset_type PARAMS ((tree));
extern tree lookup_interface PROTO((tree)); extern tree lookup_interface PARAMS ((tree));
extern tree maybe_building_objc_message_expr PROTO((void)); extern tree maybe_building_objc_message_expr PARAMS ((void));
extern void maybe_objc_check_decl PROTO((tree)); extern void maybe_objc_check_decl PARAMS ((tree));
extern int maybe_objc_comptypes PROTO((tree, tree)); extern int maybe_objc_comptypes PARAMS ((tree, tree));
extern int recognize_objc_keyword PROTO((void)); extern int recognize_objc_keyword PARAMS ((void));
/* in ch/lex.l */ /* in ch/lex.l */
extern tree use_seizefile_name; extern tree use_seizefile_name;
extern tree current_seizefile_name; extern tree current_seizefile_name;
extern tree build_chill_string PROTO((int, const char *)); extern tree build_chill_string PARAMS ((int, const char *));
extern int check_newline PROTO((void)); extern int check_newline PARAMS ((void));
extern tree get_chill_filename PROTO((void)); extern tree get_chill_filename PARAMS ((void));
extern tree get_chill_linenumber PROTO((void)); extern tree get_chill_linenumber PARAMS ((void));
extern void register_seize_path PROTO((const char *)); extern void register_seize_path PARAMS ((const char *));
extern void reinit_parse_for_function PROTO((void)); extern void reinit_parse_for_function PARAMS ((void));
extern void mark_use_seizefile_written PROTO((tree)); extern void mark_use_seizefile_written PARAMS ((tree));
/* in ch/loop.c */ /* in ch/loop.c */
extern void begin_chill_loop PROTO((tree, tree)); extern void begin_chill_loop PARAMS ((tree, tree));
extern tree build_chill_iterator PROTO((tree, tree, tree, int, int, int)); extern tree build_chill_iterator PARAMS ((tree, tree, tree, int, int, int));
extern void end_chill_loop PROTO((void)); extern void end_chill_loop PARAMS ((void));
extern tree get_unique_identifier PROTO((const char *)); extern tree get_unique_identifier PARAMS ((const char *));
/* in ch/inout.c */ /* in ch/inout.c */
extern tree access_recordmode PROTO((tree)); extern tree access_recordmode PARAMS ((tree));
extern void invalidate_access_recordmode PROTO((tree)); extern void invalidate_access_recordmode PARAMS ((tree));
extern tree access_indexmode PROTO((tree)); extern tree access_indexmode PARAMS ((tree));
extern tree access_dynamic PROTO((tree)); extern tree access_dynamic PARAMS ((tree));
extern tree association_init_value; extern tree association_init_value;
extern tree association_type_node; extern tree association_type_node;
extern tree build_access_mode PROTO((tree, tree, int)); extern tree build_access_mode PARAMS ((tree, tree, int));
extern tree build_chill_associate PROTO((tree, tree, tree)); extern tree build_chill_associate PARAMS ((tree, tree, tree));
extern tree build_chill_connect PROTO((tree, tree, tree, tree)); extern tree build_chill_connect PARAMS ((tree, tree, tree, tree));
extern tree build_chill_create PROTO((tree)); extern tree build_chill_create PARAMS ((tree));
extern tree build_chill_delete PROTO((tree)); extern tree build_chill_delete PARAMS ((tree));
extern tree build_chill_disconnect PROTO((tree)); extern tree build_chill_disconnect PARAMS ((tree));
extern tree build_chill_dissociate PROTO((tree)); extern tree build_chill_dissociate PARAMS ((tree));
extern tree build_chill_eoln PROTO((tree)); extern tree build_chill_eoln PARAMS ((tree));
extern tree build_chill_existing PROTO((tree)); extern tree build_chill_existing PARAMS ((tree));
extern tree build_chill_gettextaccess PROTO((tree)); extern tree build_chill_gettextaccess PARAMS ((tree));
extern tree build_chill_getassociation PROTO((tree)); extern tree build_chill_getassociation PARAMS ((tree));
extern tree build_chill_gettextindex PROTO((tree)); extern tree build_chill_gettextindex PARAMS ((tree));
extern tree build_chill_gettextrecord PROTO((tree)); extern tree build_chill_gettextrecord PARAMS ((tree));
extern tree build_chill_getusage PROTO((tree)); extern tree build_chill_getusage PARAMS ((tree));
extern tree build_chill_indexable PROTO((tree)); extern tree build_chill_indexable PARAMS ((tree));
extern tree build_chill_isassociated PROTO((tree)); extern tree build_chill_isassociated PARAMS ((tree));
extern tree build_chill_modify PROTO((tree, tree)); extern tree build_chill_modify PARAMS ((tree, tree));
extern tree build_chill_outoffile PROTO((tree)); extern tree build_chill_outoffile PARAMS ((tree));
extern tree build_chill_readable PROTO((tree)); extern tree build_chill_readable PARAMS ((tree));
extern tree build_chill_readrecord PROTO((tree, tree)); extern tree build_chill_readrecord PARAMS ((tree, tree));
extern tree build_chill_readtext PROTO((tree, tree)); extern tree build_chill_readtext PARAMS ((tree, tree));
extern tree build_chill_sequencible PROTO((tree)); extern tree build_chill_sequencible PARAMS ((tree));
extern tree build_chill_settextaccess PROTO((tree, tree)); extern tree build_chill_settextaccess PARAMS ((tree, tree));
extern tree build_chill_settextindex PROTO((tree, tree)); extern tree build_chill_settextindex PARAMS ((tree, tree));
extern tree build_chill_settextrecord PROTO((tree, tree)); extern tree build_chill_settextrecord PARAMS ((tree, tree));
extern tree build_chill_variable PROTO((tree)); extern tree build_chill_variable PARAMS ((tree));
extern tree build_chill_writeable PROTO((tree)); extern tree build_chill_writeable PARAMS ((tree));
extern tree build_chill_writerecord PROTO((tree, tree)); extern tree build_chill_writerecord PARAMS ((tree, tree));
extern tree build_chill_writetext PROTO((tree, tree)); extern tree build_chill_writetext PARAMS ((tree, tree));
extern void build_enum_tables PROTO((void)); extern void build_enum_tables PARAMS ((void));
extern tree build_text_mode PROTO((tree, tree, int)); extern tree build_text_mode PARAMS ((tree, tree, int));
extern tree check_text_length PROTO((tree)); extern tree check_text_length PARAMS ((tree));
extern void init_access_location PROTO((tree, tree)); extern void init_access_location PARAMS ((tree, tree));
extern void init_text_location PROTO((tree, tree)); extern void init_text_location PARAMS ((tree, tree));
extern void inout_init PROTO((void)); extern void inout_init PARAMS ((void));
extern tree text_dynamic PROTO((tree)); extern tree text_dynamic PARAMS ((tree));
extern tree text_indexmode PROTO((tree)); extern tree text_indexmode PARAMS ((tree));
extern tree text_length PROTO((tree)); extern tree text_length PARAMS ((tree));
extern tree usage_type_node; extern tree usage_type_node;
extern tree where_type_node; extern tree where_type_node;
/* in ch/parse.c */ /* in ch/parse.c */
extern tree get_type_of PROTO((tree)); extern tree get_type_of PARAMS ((tree));
extern void set_yydebug PROTO((int)); extern void set_yydebug PARAMS ((int));
extern void yyerror PROTO((char *)); extern void yyerror PARAMS ((char *));
extern int pass; extern int pass;
extern int ignoring; extern int ignoring;
extern int seen_action; extern int seen_action;
extern int build_constructor; extern int build_constructor;
extern void possibly_define_exit_label PROTO((tree)); extern void possibly_define_exit_label PARAMS ((tree));
extern void to_global_binding_level PROTO((void)); extern void to_global_binding_level PARAMS ((void));
/* in ch/satisfy.c */ /* in ch/satisfy.c */
extern tree satisfy_decl PROTO((tree, int)); extern tree satisfy_decl PARAMS ((tree, int));
/* in ch/tasking.c */ /* in ch/tasking.c */
extern void add_taskstuff_to_list PROTO((tree, const char *, tree, tree, tree)); extern void add_taskstuff_to_list PARAMS ((tree, const char *, tree, tree, tree));
extern void process_buffer_decls PROTO((tree, tree, int)); extern void process_buffer_decls PARAMS ((tree, tree, int));
extern tree buffer_element_mode PROTO((tree)); extern tree buffer_element_mode PARAMS ((tree));
extern void invalidate_buffer_element_mode PROTO((tree)); extern void invalidate_buffer_element_mode PARAMS ((tree));
extern tree build_buffer_descriptor PROTO((tree, tree, tree)); extern tree build_buffer_descriptor PARAMS ((tree, tree, tree));
extern tree build_buffer_type PROTO((tree, tree)); extern tree build_buffer_type PARAMS ((tree, tree));
extern void build_delay_action PROTO((tree, tree)); extern void build_delay_action PARAMS ((tree, tree));
extern tree build_delay_case_start PROTO((tree, tree)); extern tree build_delay_case_start PARAMS ((tree, tree));
extern void build_delay_case_end PROTO((tree)); extern void build_delay_case_end PARAMS ((tree));
extern void build_delay_case_label PROTO((tree, int)); extern void build_delay_case_label PARAMS ((tree, int));
extern tree build_event_type PROTO((tree)); extern tree build_event_type PARAMS ((tree));
extern void build_receive_case_end PROTO((tree, tree)); extern void build_receive_case_end PARAMS ((tree, tree));
extern int build_receive_case_if_generated PROTO((void)); extern int build_receive_case_if_generated PARAMS ((void));
extern tree build_receive_case_label PROTO((tree, tree)); extern tree build_receive_case_label PARAMS ((tree, tree));
extern tree build_receive_case_start PROTO((tree)); extern tree build_receive_case_start PARAMS ((tree));
extern void expand_continue_event PROTO((tree)); extern void expand_continue_event PARAMS ((tree));
extern void expand_send_buffer PROTO((tree, tree, tree, tree, tree)); extern void expand_send_buffer PARAMS ((tree, tree, tree, tree, tree));
extern void expand_send_signal PROTO((tree, tree, tree, tree, tree)); extern void expand_send_signal PARAMS ((tree, tree, tree, tree, tree));
extern void build_start_process PROTO((tree, tree, tree, tree)); extern void build_start_process PARAMS ((tree, tree, tree, tree));
extern tree build_copy_number PROTO((tree)); extern tree build_copy_number PARAMS ((tree));
extern tree build_gen_code PROTO((tree)); extern tree build_gen_code PARAMS ((tree));
extern tree build_gen_inst PROTO((tree, tree)); extern tree build_gen_inst PARAMS ((tree, tree));
extern tree build_gen_ptype PROTO((tree)); extern tree build_gen_ptype PARAMS ((tree));
extern void build_instance_type PROTO((void)); extern void build_instance_type PARAMS ((void));
extern tree build_process_header PROTO((tree, tree)); extern tree build_process_header PARAMS ((tree, tree));
extern void build_process_wrapper PROTO((tree, tree)); extern void build_process_wrapper PARAMS ((tree, tree));
extern tree build_proc_type PROTO((tree)); extern tree build_proc_type PARAMS ((tree));
extern tree build_queue_length PROTO((tree)); extern tree build_queue_length PARAMS ((tree));
extern tree build_signal_descriptor PROTO((tree, tree)); extern tree build_signal_descriptor PARAMS ((tree, tree));
extern tree build_signal_struct_type PROTO((tree, tree, tree)); extern tree build_signal_struct_type PARAMS ((tree, tree, tree));
extern tree build_tasking_struct PROTO((void)); extern tree build_tasking_struct PARAMS ((void));
extern tree chill_taskingcode_type_node; extern tree chill_taskingcode_type_node;
extern tree check_queue_size PROTO((tree)); extern tree check_queue_size PARAMS ((tree));
extern tree generate_tasking_code_variable PROTO((tree, tree *, int)); extern tree generate_tasking_code_variable PARAMS ((tree, tree *, int));
extern tree get_signal_type_name PROTO((tree)); extern tree get_signal_type_name PARAMS ((tree));
extern tree get_struct_type_name PROTO((tree)); extern tree get_struct_type_name PARAMS ((tree));
extern tree get_tasking_code_name PROTO((tree)); extern tree get_tasking_code_name PARAMS ((tree));
extern tree make_process_struct PROTO((tree, tree)); extern tree make_process_struct PARAMS ((tree, tree));
extern tree make_signal_struct PROTO((tree)); extern tree make_signal_struct PARAMS ((tree));
extern tree max_queue_size PROTO((tree)); extern tree max_queue_size PARAMS ((tree));
extern void tasking_init PROTO((void)); extern void tasking_init PARAMS ((void));
extern void tasking_registry PROTO((void)); extern void tasking_registry PARAMS ((void));
extern void tasking_setup PROTO((void)); extern void tasking_setup PARAMS ((void));
/* in ch/timing.c */ /* in ch/timing.c */
extern tree abs_timing_type_node; extern tree abs_timing_type_node;
extern tree after_stack; extern tree after_stack;
extern void build_after_end PROTO((void)); extern void build_after_end PARAMS ((void));
extern void build_after_start PROTO((tree, int)); extern void build_after_start PARAMS ((tree, int));
extern void build_after_timeout_start PROTO((void)); extern void build_after_timeout_start PARAMS ((void));
extern void build_at_action PROTO((tree)); extern void build_at_action PARAMS ((tree));
extern void build_cycle_end PROTO((tree)); extern void build_cycle_end PARAMS ((tree));
extern tree build_cycle_start PROTO((tree)); extern tree build_cycle_start PARAMS ((tree));
extern tree build_timeout_preface PROTO((void)); extern tree build_timeout_preface PARAMS ((void));
extern void build_timesupervised_call PROTO((tree, tree)); extern void build_timesupervised_call PARAMS ((tree, tree));
extern tree duration_timing_type_node; extern tree duration_timing_type_node;
extern void timing_init PROTO((void)); extern void timing_init PARAMS ((void));
/* in ch/tree.c */ /* in ch/tree.c */
extern tree build_alias_decl PROTO((tree, tree, tree)); extern tree build_alias_decl PARAMS ((tree, tree, tree));
extern tree build_bitstring_type PROTO((tree)); extern tree build_bitstring_type PARAMS ((tree));
extern tree build_powerset_type PROTO((tree)); extern tree build_powerset_type PARAMS ((tree));
extern tree build_string_type PROTO((tree, tree)); extern tree build_string_type PARAMS ((tree, tree));
extern tree decl_check_rename PROTO((tree, tree)); extern tree decl_check_rename PARAMS ((tree, tree));
extern tree discrete_count PROTO((tree)); extern tree discrete_count PARAMS ((tree));
extern int list_length PROTO((tree)); extern int list_length PARAMS ((tree));
extern tree munge_exit_label PROTO((tree)); extern tree munge_exit_label PARAMS ((tree));
extern tree save_if_needed PROTO((tree)); extern tree save_if_needed PARAMS ((tree));
/* in ch/typeck.c */ /* in ch/typeck.c */
extern tree build_array_from_set PROTO((tree)); extern tree build_array_from_set PARAMS ((tree));
extern tree build_chill_array_ref PROTO((tree, tree)); extern tree build_chill_array_ref PARAMS ((tree, tree));
extern tree build_chill_bitref PROTO((tree, tree)); extern tree build_chill_bitref PARAMS ((tree, tree));
extern tree build_chill_cast PROTO((tree, tree)); extern tree build_chill_cast PARAMS ((tree, tree));
extern tree chill_equivalent PROTO((tree, tree, struct mode_chain*)); extern tree chill_equivalent PARAMS ((tree, tree, struct mode_chain*));
extern tree build_init_struct PROTO((void)); extern tree build_init_struct PARAMS ((void));
extern tree build_readonly_type PROTO((tree)); extern tree build_readonly_type PARAMS ((tree));
extern int chill_compatible PROTO((tree, tree)); extern int chill_compatible PARAMS ((tree, tree));
extern int chill_compatible_classes PROTO((tree, tree)); extern int chill_compatible_classes PARAMS ((tree, tree));
extern ch_class chill_expr_class PROTO((tree)); extern ch_class chill_expr_class PARAMS ((tree));
extern tree chill_give_type_to_expr PROTO((tree, tree)); extern tree chill_give_type_to_expr PARAMS ((tree, tree));
extern tree chill_expand_tuple PROTO((tree, tree)); extern tree chill_expand_tuple PARAMS ((tree, tree));
extern ch_class chill_expr_class PROTO((tree)); extern ch_class chill_expr_class PARAMS ((tree));
extern int chill_location PROTO((tree)); extern int chill_location PARAMS ((tree));
extern tree chill_max_vary_array_index PROTO((tree)); extern tree chill_max_vary_array_index PARAMS ((tree));
extern int chill_read_compatible PROTO((tree, tree)); extern int chill_read_compatible PARAMS ((tree, tree));
extern int chill_referable PROTO((tree)); extern int chill_referable PARAMS ((tree));
extern tree chill_root_mode PROTO((tree)); extern tree chill_root_mode PARAMS ((tree));
extern ch_class chill_resulting_class PROTO((ch_class, ch_class)); extern ch_class chill_resulting_class PARAMS ((ch_class, ch_class));
extern tree chill_resulting_mode PROTO((tree, tree)); extern tree chill_resulting_mode PARAMS ((tree, tree));
extern int chill_similar PROTO((tree, tree, struct mode_chain*)); extern int chill_similar PARAMS ((tree, tree, struct mode_chain*));
extern int discrete_type_p PROTO((tree)); extern int discrete_type_p PARAMS ((tree));
extern tree convert_to_discrete PROTO((tree)); extern tree convert_to_discrete PARAMS ((tree));
extern tree smash_dummy_type PROTO((tree)); extern tree smash_dummy_type PARAMS ((tree));
extern tree string_assignment_condition PROTO((tree, tree)); extern tree string_assignment_condition PARAMS ((tree, tree));
extern tree type_for_mode PROTO((enum machine_mode, int)); extern tree type_for_mode PARAMS ((enum machine_mode, int));
extern tree type_for_size PROTO((unsigned, int)); extern tree type_for_size PARAMS ((unsigned, int));
extern int valid_array_index PROTO((tree, tree)); extern int valid_array_index PARAMS ((tree, tree));
extern void validate_varying_array_ref PROTO((tree, tree)); extern void validate_varying_array_ref PARAMS ((tree, tree));
/* in function.c */ /* in function.c */
extern void expand_function_end PROTO((char *, int, int)); extern void expand_function_end PARAMS ((char *, int, int));
extern void expand_function_start PROTO((tree, int)); extern void expand_function_start PARAMS ((tree, int));
extern void init_function_start PROTO((tree, char *, int)); extern void init_function_start PARAMS ((tree, char *, int));
extern void pop_function_context PROTO((void)); extern void pop_function_context PARAMS ((void));
extern void push_function_context PROTO((void)); extern void push_function_context PARAMS ((void));
/* in integrate.c */ /* in integrate.c */
extern void output_inline_function PROTO((tree)); extern void output_inline_function PARAMS ((tree));
/* in toplev.c */ /* in toplev.c */
extern void announce_function PROTO((tree)); extern void announce_function PARAMS ((tree));
extern int floor_log2_wide PROTO((unsigned HOST_WIDE_INT)); extern int floor_log2_wide PARAMS ((unsigned HOST_WIDE_INT));
extern void rest_of_compilation PROTO((tree)); extern void rest_of_compilation PARAMS ((tree));
/* in varasm.c */ /* in varasm.c */
extern void make_function_rtl PROTO((tree)); extern void make_function_rtl PARAMS ((tree));
/* in ???? */ /* in ???? */
extern void init_iterators PROTO((void)); extern void init_iterators PARAMS ((void));
extern int mark_addressable PROTO((tree)); extern int mark_addressable PARAMS ((tree));
extern tree chill_result_decl; extern tree chill_result_decl;
#ifdef RTX_CODE #ifdef RTX_CODE
extern rtx label_rtx PROTO((tree)); extern rtx label_rtx PARAMS ((tree));
#endif #endif
extern void permanent_allocation PROTO((int)); extern void permanent_allocation PARAMS ((int));
#ifndef SET_WORD_SIZE #ifndef SET_WORD_SIZE
#define SET_WORD_SIZE BITS_PER_WORD #define SET_WORD_SIZE BITS_PER_WORD
...@@ -1164,7 +1164,7 @@ struct module ...@@ -1164,7 +1164,7 @@ struct module
extern struct module *current_module; extern struct module *current_module;
/* fold a tree to constant as much as possible */ /* fold a tree to constant as much as possible */
extern tree deep_fold PROTO((tree)); extern tree deep_fold PARAMS ((tree));
extern const char * const gnuchill_version; extern const char * const gnuchill_version;
......
gcc/ch/convert.c
...@@ -38,18 +38,18 @@ extern tree bit_one_node, bit_zero_node; ...@@ -38,18 +38,18 @@ extern tree bit_one_node, bit_zero_node;
extern tree string_one_type_node; extern tree string_one_type_node;
extern tree bitstring_one_type_node; extern tree bitstring_one_type_node;
static tree convert_to_reference PROTO ((tree, tree)); static tree convert_to_reference PARAMS ((tree, tree));
static tree convert_to_boolean PROTO ((tree, tree)); static tree convert_to_boolean PARAMS ((tree, tree));
static tree convert_to_char PROTO ((tree, tree)); static tree convert_to_char PARAMS ((tree, tree));
#if 0 #if 0
static tree base_type_size_in_bytes PROTO ((tree)); static tree base_type_size_in_bytes PARAMS ((tree));
#endif #endif
static tree remove_tree_element PROTO ((tree, tree *)); static tree remove_tree_element PARAMS ((tree, tree *));
static tree check_ps_range PROTO ((tree, tree, tree)); static tree check_ps_range PARAMS ((tree, tree, tree));
static tree digest_powerset_tuple PROTO ((tree, tree)); static tree digest_powerset_tuple PARAMS ((tree, tree));
static tree digest_structure_tuple PROTO ((tree, tree)); static tree digest_structure_tuple PARAMS ((tree, tree));
static tree digest_array_tuple PROTO ((tree, tree, int)); static tree digest_array_tuple PARAMS ((tree, tree, int));
static tree convert1 PROTO ((tree, tree)); static tree convert1 PARAMS ((tree, tree));
static tree static tree
convert_to_reference (reftype, expr) convert_to_reference (reftype, expr)
......
gcc/ch/decl.c
...@@ -205,12 +205,12 @@ extern struct obstack *saveable_obstack; ...@@ -205,12 +205,12 @@ extern struct obstack *saveable_obstack;
extern tree signal_code; extern tree signal_code;
extern int special_UC; extern int special_UC;
static tree get_next_decl PROTO((void)); static tree get_next_decl PARAMS ((void));
static tree lookup_name_for_seizing PROTO((tree)); static tree lookup_name_for_seizing PARAMS ((tree));
#if 0 #if 0
static tree lookup_name_current_level PROTO((tree)); static tree lookup_name_current_level PARAMS ((tree));
#endif #endif
static void save_decl PROTO((tree)); static void save_decl PARAMS ((tree));
extern struct obstack permanent_obstack; extern struct obstack permanent_obstack;
extern int in_pseudo_module; extern int in_pseudo_module;
...@@ -240,21 +240,21 @@ tree chill_result_decl; ...@@ -240,21 +240,21 @@ tree chill_result_decl;
int result_never_set; int result_never_set;
/* forward declarations */ /* forward declarations */
static void pushdecllist PROTO((tree, int)); static void pushdecllist PARAMS ((tree, int));
static int init_nonvalue_struct PROTO((tree)); static int init_nonvalue_struct PARAMS ((tree));
static int init_nonvalue_array PROTO((tree)); static int init_nonvalue_array PARAMS ((tree));
static void set_nesting_level PROTO((tree, int)); static void set_nesting_level PARAMS ((tree, int));
static tree make_chill_variants PROTO((tree, tree, tree)); static tree make_chill_variants PARAMS ((tree, tree, tree));
static tree fix_identifier PROTO((tree)); static tree fix_identifier PARAMS ((tree));
static void proclaim_decl PROTO((tree, int)); static void proclaim_decl PARAMS ((tree, int));
static tree maybe_acons PROTO((tree, tree)); static tree maybe_acons PARAMS ((tree, tree));
static void push_scope_decls PROTO((int)); static void push_scope_decls PARAMS ((int));
static void pop_scope_decls PROTO((tree, tree)); static void pop_scope_decls PARAMS ((tree, tree));
static tree build_implied_names PROTO((tree)); static tree build_implied_names PARAMS ((tree));
static void bind_sub_modules PROTO((int)); static void bind_sub_modules PARAMS ((int));
static void layout_array_type PROTO((tree)); static void layout_array_type PARAMS ((tree));
static void do_based_decl PROTO((tree, tree, tree)); static void do_based_decl PARAMS ((tree, tree, tree));
static void handle_one_level PROTO((tree, tree)); static void handle_one_level PARAMS ((tree, tree));
int current_nesting_level = BUILTIN_NESTING_LEVEL; int current_nesting_level = BUILTIN_NESTING_LEVEL;
int current_module_nesting_level = 0; int current_module_nesting_level = 0;
...@@ -1545,7 +1545,7 @@ struct tree_pair ...@@ -1545,7 +1545,7 @@ struct tree_pair
tree decl; tree decl;
}; };
static int label_value_cmp PROTO((struct tree_pair *, static int label_value_cmp PARAMS ((struct tree_pair *,
struct tree_pair *)); struct tree_pair *));
/* Function to help qsort sort variant labels by value order. */ /* Function to help qsort sort variant labels by value order. */
...@@ -1739,7 +1739,7 @@ layout_chill_variants (utype) ...@@ -1739,7 +1739,7 @@ layout_chill_variants (utype)
int limit; int limit;
qsort (label_value_array, qsort (label_value_array,
label_index, sizeof (struct tree_pair), label_index, sizeof (struct tree_pair),
(int (*) PROTO ((const void *, const void *))) label_value_cmp); (int (*) PARAMS ((const void *, const void *))) label_value_cmp);
limit = label_index - 1; limit = label_index - 1;
for (label_index = 0; label_index < limit; label_index++) for (label_index = 0; label_index < limit; label_index++)
{ {
...@@ -2493,7 +2493,7 @@ struct path ...@@ -2493,7 +2493,7 @@ struct path
tree node; tree node;
}; };
static tree find_implied_types PROTO((tree, struct path *, tree)); static tree find_implied_types PARAMS ((tree, struct path *, tree));
/* Look for implied types (enumeral types) implied by TYPE (a decl or type). /* Look for implied types (enumeral types) implied by TYPE (a decl or type).
Add these to list. Add these to list.
......
gcc/ch/except.c
...@@ -60,10 +60,10 @@ static tree link_handler_decl; ...@@ -60,10 +60,10 @@ static tree link_handler_decl;
static tree handler_link_pointer_type; static tree handler_link_pointer_type;
static tree unlink_handler_decl; static tree unlink_handler_decl;
static int exceptions_initialized = 0; static int exceptions_initialized = 0;
static void emit_setup_handler PROTO((void)); static void emit_setup_handler PARAMS ((void));
static void initialize_exceptions PROTO((void)); static void initialize_exceptions PARAMS ((void));
static tree start_handler_array PROTO((void)); static tree start_handler_array PARAMS ((void));
static void finish_handler_array PROTO((void)); static void finish_handler_array PARAMS ((void));
static tree char_pointer_type_for_handler; static tree char_pointer_type_for_handler;
/* If this is 1, operations to push and pop on the __exceptionStack /* If this is 1, operations to push and pop on the __exceptionStack
......
gcc/ch/expr.c
...@@ -52,42 +52,42 @@ extern int special_UC; ...@@ -52,42 +52,42 @@ extern int special_UC;
#define DAYS_MAX 49 #define DAYS_MAX 49
/* forward declarations */ /* forward declarations */
static rtx chill_expand_expr PROTO ((tree, rtx, enum machine_mode, static rtx chill_expand_expr PARAMS ((tree, rtx, enum machine_mode,
enum expand_modifier)); enum expand_modifier));
static tree chill_expand_case_expr PROTO ((tree)); static tree chill_expand_case_expr PARAMS ((tree));
static int check_arglist_length PROTO ((tree, int, int, tree)); static int check_arglist_length PARAMS ((tree, int, int, tree));
static tree internal_build_compound_expr PROTO ((tree, int)); static tree internal_build_compound_expr PARAMS ((tree, int));
static int is_really_instance PROTO ((tree)); static int is_really_instance PARAMS ((tree));
static int invalid_operand PROTO ((enum chill_tree_code, static int invalid_operand PARAMS ((enum chill_tree_code,
tree, int)); tree, int));
static int invalid_right_operand PROTO ((enum chill_tree_code, tree)); static int invalid_right_operand PARAMS ((enum chill_tree_code, tree));
static tree build_chill_abstime PROTO ((tree)); static tree build_chill_abstime PARAMS ((tree));
static tree build_allocate_memory_call PROTO ((tree, tree)); static tree build_allocate_memory_call PARAMS ((tree, tree));
static tree build_allocate_global_memory_call PROTO ((tree, tree)); static tree build_allocate_global_memory_call PARAMS ((tree, tree));
static tree build_return_memory PROTO ((tree)); static tree build_return_memory PARAMS ((tree));
static tree build_chill_duration PROTO ((tree, unsigned long, static tree build_chill_duration PARAMS ((tree, unsigned long,
tree, unsigned long)); tree, unsigned long));
static tree build_chill_floatcall PROTO ((tree, const char *, static tree build_chill_floatcall PARAMS ((tree, const char *,
const char *)); const char *));
static tree build_allocate_getstack PROTO ((tree, tree, const char *, static tree build_allocate_getstack PARAMS ((tree, tree, const char *,
const char *, tree, tree)); const char *, tree, tree));
static tree build_chill_allocate PROTO ((tree, tree)); static tree build_chill_allocate PARAMS ((tree, tree));
static tree build_chill_getstack PROTO ((tree, tree)); static tree build_chill_getstack PARAMS ((tree, tree));
static tree build_chill_terminate PROTO ((tree)); static tree build_chill_terminate PARAMS ((tree));
static tree build_chill_inttime PROTO ((tree, tree)); static tree build_chill_inttime PARAMS ((tree, tree));
static tree build_chill_lower_or_upper PROTO ((tree, int)); static tree build_chill_lower_or_upper PARAMS ((tree, int));
static tree build_max_min PROTO ((tree, int)); static tree build_max_min PARAMS ((tree, int));
static tree build_chill_pred_or_succ PROTO ((tree, enum tree_code)); static tree build_chill_pred_or_succ PARAMS ((tree, enum tree_code));
static tree expand_packed_set PROTO ((const char *, int, tree)); static tree expand_packed_set PARAMS ((const char *, int, tree));
static tree fold_set_expr PROTO ((enum chill_tree_code, static tree fold_set_expr PARAMS ((enum chill_tree_code,
tree, tree)); tree, tree));
static tree build_compare_set_expr PROTO ((enum tree_code, tree, tree)); static tree build_compare_set_expr PARAMS ((enum tree_code, tree, tree));
static tree scalar_to_string PROTO ((tree)); static tree scalar_to_string PARAMS ((tree));
static tree build_concat_expr PROTO ((tree, tree)); static tree build_concat_expr PARAMS ((tree, tree));
static tree build_compare_string_expr PROTO ((enum tree_code, tree, tree)); static tree build_compare_string_expr PARAMS ((enum tree_code, tree, tree));
static tree compare_records PROTO ((tree, tree)); static tree compare_records PARAMS ((tree, tree));
static tree string_char_rep PROTO ((int, tree)); static tree string_char_rep PARAMS ((int, tree));
static tree build_boring_bitstring PROTO ((long, int)); static tree build_boring_bitstring PARAMS ((long, int));
/* variable to hold the type the DESCR built-in returns */ /* variable to hold the type the DESCR built-in returns */
static tree descr_type = NULL_TREE; static tree descr_type = NULL_TREE;
......
gcc/ch/grant.c
...@@ -73,44 +73,44 @@ char *grant_file_name; ...@@ -73,44 +73,44 @@ char *grant_file_name;
MYSTRING *gstring = NULL; MYSTRING *gstring = NULL;
MYSTRING *selective_gstring = NULL; MYSTRING *selective_gstring = NULL;
static MYSTRING *decode_decl PROTO((tree)); static MYSTRING *decode_decl PARAMS ((tree));
static MYSTRING *decode_constant PROTO((tree)); static MYSTRING *decode_constant PARAMS ((tree));
static void grant_one_decl PROTO((tree)); static void grant_one_decl PARAMS ((tree));
static MYSTRING *get_type PROTO((tree)); static MYSTRING *get_type PARAMS ((tree));
static MYSTRING *decode_mode PROTO((tree)); static MYSTRING *decode_mode PARAMS ((tree));
static MYSTRING *decode_prefix_rename PROTO((tree)); static MYSTRING *decode_prefix_rename PARAMS ((tree));
static MYSTRING *decode_constant_selective PROTO((tree, tree)); static MYSTRING *decode_constant_selective PARAMS ((tree, tree));
static MYSTRING *decode_mode_selective PROTO((tree, tree)); static MYSTRING *decode_mode_selective PARAMS ((tree, tree));
static MYSTRING *get_type_selective PROTO((tree, tree)); static MYSTRING *get_type_selective PARAMS ((tree, tree));
static MYSTRING *decode_decl_selective PROTO((tree, tree)); static MYSTRING *decode_decl_selective PARAMS ((tree, tree));
static MYSTRING *newstring PROTO((const char *)); static MYSTRING *newstring PARAMS ((const char *));
static void strfree PROTO((MYSTRING *)); static void strfree PARAMS ((MYSTRING *));
static MYSTRING *append PROTO((MYSTRING *, const char *)); static MYSTRING *append PARAMS ((MYSTRING *, const char *));
static MYSTRING *prepend PROTO((MYSTRING *, const char *)); static MYSTRING *prepend PARAMS ((MYSTRING *, const char *));
static void grant_use_seizefile PROTO((const char *)); static void grant_use_seizefile PARAMS ((const char *));
static MYSTRING *decode_layout PROTO((tree)); static MYSTRING *decode_layout PARAMS ((tree));
static MYSTRING *grant_array_type PROTO((tree)); static MYSTRING *grant_array_type PARAMS ((tree));
static MYSTRING *grant_array_type_selective PROTO((tree, tree)); static MYSTRING *grant_array_type_selective PARAMS ((tree, tree));
static MYSTRING *get_tag_value PROTO((tree)); static MYSTRING *get_tag_value PARAMS ((tree));
static MYSTRING *get_tag_value_selective PROTO((tree, tree)); static MYSTRING *get_tag_value_selective PARAMS ((tree, tree));
static MYSTRING *print_enumeral PROTO((tree)); static MYSTRING *print_enumeral PARAMS ((tree));
static MYSTRING *print_enumeral_selective PROTO((tree, tree)); static MYSTRING *print_enumeral_selective PARAMS ((tree, tree));
static MYSTRING *print_integer_type PROTO((tree)); static MYSTRING *print_integer_type PARAMS ((tree));
static tree find_enum_parent PROTO((tree, tree)); static tree find_enum_parent PARAMS ((tree, tree));
static MYSTRING *print_integer_selective PROTO((tree, tree)); static MYSTRING *print_integer_selective PARAMS ((tree, tree));
static MYSTRING *print_struct PROTO((tree)); static MYSTRING *print_struct PARAMS ((tree));
static MYSTRING *print_struct_selective PROTO((tree, tree)); static MYSTRING *print_struct_selective PARAMS ((tree, tree));
static MYSTRING *print_proc_exceptions PROTO((tree)); static MYSTRING *print_proc_exceptions PARAMS ((tree));
static MYSTRING *print_proc_tail PROTO((tree, tree, int)); static MYSTRING *print_proc_tail PARAMS ((tree, tree, int));
static MYSTRING *print_proc_tail_selective PROTO((tree, tree, tree)); static MYSTRING *print_proc_tail_selective PARAMS ((tree, tree, tree));
static tree find_in_decls PROTO((tree, tree)); static tree find_in_decls PARAMS ((tree, tree));
static int in_ridpointers PROTO((tree)); static int in_ridpointers PARAMS ((tree));
static void grant_seized_identifier PROTO((tree)); static void grant_seized_identifier PARAMS ((tree));
static void globalize_decl PROTO((tree)); static void globalize_decl PARAMS ((tree));
static void grant_one_decl_selective PROTO((tree, tree)); static void grant_one_decl_selective PARAMS ((tree, tree));
static int compare_memory_file PROTO((const char *, const char *)); static int compare_memory_file PARAMS ((const char *, const char *));
static int search_in_list PROTO((tree, tree)); static int search_in_list PARAMS ((tree, tree));
static int really_grant_this PROTO((tree, tree)); static int really_grant_this PARAMS ((tree, tree));
/* list of the VAR_DECLs of the module initializer entries */ /* list of the VAR_DECLs of the module initializer entries */
tree module_init_list = NULL_TREE; tree module_init_list = NULL_TREE;
......
gcc/ch/inout.c
...@@ -35,26 +35,26 @@ extern int ignore_case; ...@@ -35,26 +35,26 @@ extern int ignore_case;
/* set non-zero if special words are to be entered in uppercase */ /* set non-zero if special words are to be entered in uppercase */
extern int special_UC; extern int special_UC;
static int intsize_of_charsexpr PROTO ((tree)); static int intsize_of_charsexpr PARAMS ((tree));
static tree add_enum_to_list PROTO ((tree, tree)); static tree add_enum_to_list PARAMS ((tree, tree));
static void build_chill_io_list_type PROTO ((void)); static void build_chill_io_list_type PARAMS ((void));
static void build_io_types PROTO ((void)); static void build_io_types PARAMS ((void));
static void declare_predefined_file PROTO ((const char *, const char *)); static void declare_predefined_file PARAMS ((const char *, const char *));
static tree build_access_part PROTO ((void)); static tree build_access_part PARAMS ((void));
static tree textlocation_mode PROTO ((tree)); static tree textlocation_mode PARAMS ((tree));
static int check_assoc PROTO ((tree, int, const char *)); static int check_assoc PARAMS ((tree, int, const char *));
static tree assoc_call PROTO ((tree, tree, const char *)); static tree assoc_call PARAMS ((tree, tree, const char *));
static int check_transfer PROTO ((tree, int, const char *)); static int check_transfer PARAMS ((tree, int, const char *));
static int connect_process_optionals PROTO ((tree, tree *, tree *, tree)); static int connect_process_optionals PARAMS ((tree, tree *, tree *, tree));
static tree connect_text PROTO ((tree, tree, tree, tree)); static tree connect_text PARAMS ((tree, tree, tree, tree));
static tree connect_access PROTO ((tree, tree, tree, tree)); static tree connect_access PARAMS ((tree, tree, tree, tree));
static int check_access PROTO ((tree, int, const char *)); static int check_access PARAMS ((tree, int, const char *));
static int check_text PROTO ((tree, int, const char *)); static int check_text PARAMS ((tree, int, const char *));
static tree get_final_type_and_range PROTO ((tree, tree *, tree *)); static tree get_final_type_and_range PARAMS ((tree, tree *, tree *));
static void process_io_list PROTO ((tree, tree *, tree *, rtx *, static void process_io_list PARAMS ((tree, tree *, tree *, rtx *,
int, int)); int, int));
static void check_format_string PROTO ((tree, tree, int)); static void check_format_string PARAMS ((tree, tree, int));
static int get_max_size PROTO ((tree)); static int get_max_size PARAMS ((tree));
/* association mode */ /* association mode */
tree association_type_node; tree association_type_node;
...@@ -3807,7 +3807,7 @@ typedef enum ...@@ -3807,7 +3807,7 @@ typedef enum
} convcode_t; } convcode_t;
static convcode_t convcode; static convcode_t convcode;
static tree check_exprlist PROTO ((convcode_t, tree, int, static tree check_exprlist PARAMS ((convcode_t, tree, int,
unsigned long)); unsigned long));
typedef enum typedef enum
...@@ -3844,7 +3844,7 @@ typedef enum { ...@@ -3844,7 +3844,7 @@ typedef enum {
NormalEnd, EndAtParen, TextFailEnd NormalEnd, EndAtParen, TextFailEnd
} formatexit_t; } formatexit_t;
static formatexit_t scanformcont PROTO ((char *, int, char **, int *, static formatexit_t scanformcont PARAMS ((char *, int, char **, int *,
tree, tree *, int, int *)); tree, tree *, int, int *));
/* NOTE: varibale have to be set to False before calling check_format_string */ /* NOTE: varibale have to be set to False before calling check_format_string */
......
gcc/ch/lang.c
...@@ -52,8 +52,8 @@ extern FILE* finput; ...@@ -52,8 +52,8 @@ extern FILE* finput;
extern int maximum_field_alignment; extern int maximum_field_alignment;
static int deep_const_expr PROTO ((tree)); static int deep_const_expr PARAMS ((tree));
static void chill_print_error_function PROTO ((const char *)); static void chill_print_error_function PARAMS ((const char *));
/* return 1 if the expression tree given has all /* return 1 if the expression tree given has all
constant nodes as its leaves; return 0 otherwise. */ constant nodes as its leaves; return 0 otherwise. */
......
gcc/ch/lex.c
...@@ -68,26 +68,26 @@ extern struct obstack permanent_obstack; ...@@ -68,26 +68,26 @@ extern struct obstack permanent_obstack;
extern struct obstack temporary_obstack; extern struct obstack temporary_obstack;
/* forward declarations */ /* forward declarations */
static void close_input_file PROTO((const char *)); static void close_input_file PARAMS ((const char *));
static tree convert_bitstring PROTO((char *)); static tree convert_bitstring PARAMS ((char *));
static tree convert_integer PROTO((char *)); static tree convert_integer PARAMS ((char *));
static void maybe_downcase PROTO((char *)); static void maybe_downcase PARAMS ((char *));
static int maybe_number PROTO((const char *)); static int maybe_number PARAMS ((const char *));
static tree equal_number PROTO((void)); static tree equal_number PARAMS ((void));
static void handle_use_seizefile_directive PROTO((int)); static void handle_use_seizefile_directive PARAMS ((int));
static int handle_name PROTO((tree)); static int handle_name PARAMS ((tree));
static char *readstring PROTO((int, int *)); static char *readstring PARAMS ((int, int *));
static void read_directive PROTO((void)); static void read_directive PARAMS ((void));
static tree read_identifier PROTO((int)); static tree read_identifier PARAMS ((int));
static tree read_number PROTO((int)); static tree read_number PARAMS ((int));
static void skip_c_comment PROTO((void)); static void skip_c_comment PARAMS ((void));
static void skip_line_comment PROTO((void)); static void skip_line_comment PARAMS ((void));
static int skip_whitespace PROTO((void)); static int skip_whitespace PARAMS ((void));
static tree string_or_char PROTO((int, const char *)); static tree string_or_char PARAMS ((int, const char *));
static void ch_lex_init PROTO((void)); static void ch_lex_init PARAMS ((void));
static void skip_directive PROTO((void)); static void skip_directive PARAMS ((void));
static int same_file PROTO((const char *, const char *)); static int same_file PARAMS ((const char *, const char *));
static int getlc PROTO((FILE *)); static int getlc PARAMS ((FILE *));
/* next variables are public, because ch-actions uses them */ /* next variables are public, because ch-actions uses them */
...@@ -294,8 +294,8 @@ finish_parse () ...@@ -294,8 +294,8 @@ finish_parse ()
fclose (finput); fclose (finput);
} }
static int yywrap PROTO ((void)); static int yywrap PARAMS ((void));
static int yy_refill PROTO ((void)); static int yy_refill PARAMS ((void));
#define YY_PUTBACK_SIZE 5 #define YY_PUTBACK_SIZE 5
#define YY_BUF_SIZE 1000 #define YY_BUF_SIZE 1000
......
gcc/ch/lex.h
...@@ -82,9 +82,9 @@ extern tree ridpointers[(int) RID_MAX]; ...@@ -82,9 +82,9 @@ extern tree ridpointers[(int) RID_MAX];
extern char *token_buffer; /* Pointer to token buffer. */ extern char *token_buffer; /* Pointer to token buffer. */
extern tree make_pointer_declarator PROTO((tree, tree)); extern tree make_pointer_declarator PARAMS ((tree, tree));
extern void reinit_parse_for_function PROTO((void)); extern void reinit_parse_for_function PARAMS ((void));
extern int yylex PROTO((void)); extern int yylex PARAMS ((void));
extern tree default_grant_file; extern tree default_grant_file;
extern tree current_grant_file; extern tree current_grant_file;
...@@ -94,4 +94,4 @@ extern tree current_seize_file; ...@@ -94,4 +94,4 @@ extern tree current_seize_file;
extern int chill_at_module_level; extern int chill_at_module_level;
extern tree chill_initializer_name; extern tree chill_initializer_name;
extern void prepare_paren_colon PROTO((void)); extern void prepare_paren_colon PARAMS ((void));
gcc/ch/loop.c
...@@ -36,15 +36,15 @@ Boston, MA 02111-1307, USA. */ ...@@ -36,15 +36,15 @@ Boston, MA 02111-1307, USA. */
int flag_local_loop_counter = 1; int flag_local_loop_counter = 1;
/* forward declarations */ /* forward declarations */
static int declare_temps PROTO((void)); static int declare_temps PARAMS ((void));
static int initialize_iter_var PROTO((void)); static int initialize_iter_var PARAMS ((void));
static void maybe_skip_loop PROTO((void)); static void maybe_skip_loop PARAMS ((void));
static int bottom_loop_end_check PROTO((void)); static int bottom_loop_end_check PARAMS ((void));
static int increment_temps PROTO((void)); static int increment_temps PARAMS ((void));
static tree build_temporary_variable PROTO((const char *, tree)); static tree build_temporary_variable PARAMS ((const char *, tree));
static tree maybe_make_for_temp PROTO((tree, const char *, tree)); static tree maybe_make_for_temp PARAMS ((tree, const char *, tree));
#if 0 #if 0
static tree chill_unsigned_type PROTO((tree)); static tree chill_unsigned_type PARAMS ((tree));
#endif #endif
/* In terms of the parameters passed to build_loop_iterator, /* In terms of the parameters passed to build_loop_iterator,
......
gcc/ch/nloop.c
...@@ -35,26 +35,26 @@ Boston, MA 02111-1307, USA. */ ...@@ -35,26 +35,26 @@ Boston, MA 02111-1307, USA. */
ch-actions.c (lang_decode_option) will set this flag. */ ch-actions.c (lang_decode_option) will set this flag. */
int flag_local_loop_counter = 0; int flag_local_loop_counter = 0;
extern tree chill_truthvalue_conversion PROTO((tree)); extern tree chill_truthvalue_conversion PARAMS ((tree));
extern rtx emit_line_note PROTO((char *, int)); extern rtx emit_line_note PARAMS ((char *, int));
extern void error PROTO((char *, ...)); extern void error PARAMS ((char *, ...));
extern rtx expand_assignment PROTO((tree, tree, int, int)); extern rtx expand_assignment PARAMS ((tree, tree, int, int));
extern void save_expr_under_name PROTO((tree, tree)); extern void save_expr_under_name PARAMS ((tree, tree));
extern void stamp_nesting_label PROTO((tree)); extern void stamp_nesting_label PARAMS ((tree));
extern int int_fits_type_p PROTO((tree, tree)); extern int int_fits_type_p PARAMS ((tree, tree));
extern void warning PROTO((char *, ...)); extern void warning PARAMS ((char *, ...));
/* forward declarations */ /* forward declarations */
static int classify_loop PROTO((void)); static int classify_loop PARAMS ((void));
static int declare_temps PROTO((void)); static int declare_temps PARAMS ((void));
static int initialize_iter_var PROTO((void)); static int initialize_iter_var PARAMS ((void));
static int maybe_skip_loop PROTO((void)); static int maybe_skip_loop PARAMS ((void));
static int top_loop_end_check PROTO((void)); static int top_loop_end_check PARAMS ((void));
static int bottom_loop_end_check PROTO((void)); static int bottom_loop_end_check PARAMS ((void));
static int increment_temps PROTO((void)); static int increment_temps PARAMS ((void));
static tree build_temporary_variable PROTO((char *, tree)); static tree build_temporary_variable PARAMS ((char *, tree));
static tree maybe_make_for_temp PROTO((tree, char *, tree)); static tree maybe_make_for_temp PARAMS ((tree, char *, tree));
static tree chill_unsigned_type PROTO((tree)); static tree chill_unsigned_type PARAMS ((tree));
/* In terms of the parameters passed to build_loop_iterator, /* In terms of the parameters passed to build_loop_iterator,
* there are several types of loops. They are encoded by * there are several types of loops. They are encoded by
......
gcc/ch/parse.c
...@@ -70,28 +70,28 @@ const char * const language_string = "GNU CHILL"; ...@@ -70,28 +70,28 @@ const char * const language_string = "GNU CHILL";
/* Cause the `yydebug' variable to be defined. */ /* Cause the `yydebug' variable to be defined. */
#define YYDEBUG 1 #define YYDEBUG 1
extern struct rtx_def* gen_label_rtx PROTO((void)); extern struct rtx_def* gen_label_rtx PARAMS ((void));
extern void emit_jump PROTO((struct rtx_def *)); extern void emit_jump PARAMS ((struct rtx_def *));
extern struct rtx_def* emit_label PROTO((struct rtx_def *)); extern struct rtx_def* emit_label PARAMS ((struct rtx_def *));
/* This is a hell of a lot easier than getting expr.h included in /* This is a hell of a lot easier than getting expr.h included in
by parse.c. */ by parse.c. */
extern struct rtx_def *expand_expr PROTO((tree, struct rtx_def *, extern struct rtx_def *expand_expr PARAMS ((tree, struct rtx_def *,
enum machine_mode, int)); enum machine_mode, int));
static int parse_action PROTO((void)); static int parse_action PARAMS ((void));
static void ch_parse_init PROTO((void)); static void ch_parse_init PARAMS ((void));
static void check_end_label PROTO((tree, tree)); static void check_end_label PARAMS ((tree, tree));
static void end_function PROTO((void)); static void end_function PARAMS ((void));
static tree build_prefix_clause PROTO((tree)); static tree build_prefix_clause PARAMS ((tree));
static enum terminal PEEK_TOKEN PROTO((void)); static enum terminal PEEK_TOKEN PARAMS ((void));
static int peek_token_ PROTO((int)); static int peek_token_ PARAMS ((int));
static void pushback_token PROTO((int, tree)); static void pushback_token PARAMS ((int, tree));
static void forward_token_ PROTO((void)); static void forward_token_ PARAMS ((void));
static void require PROTO((enum terminal)); static void require PARAMS ((enum terminal));
static int check_token PROTO((enum terminal)); static int check_token PARAMS ((enum terminal));
static int expect PROTO((enum terminal, const char *)); static int expect PARAMS ((enum terminal, const char *));
static void define__PROCNAME__ PROTO((void)); static void define__PROCNAME__ PARAMS ((void));
extern int lineno; extern int lineno;
extern char *input_filename; extern char *input_filename;
...@@ -386,114 +386,114 @@ define__PROCNAME__ () ...@@ -386,114 +386,114 @@ define__PROCNAME__ ()
} }
/* Forward declarations. */ /* Forward declarations. */
static tree parse_expression PROTO((void)); static tree parse_expression PARAMS ((void));
static tree parse_primval PROTO((void)); static tree parse_primval PARAMS ((void));
static tree parse_mode PROTO((void)); static tree parse_mode PARAMS ((void));
static tree parse_opt_mode PROTO((void)); static tree parse_opt_mode PARAMS ((void));
static tree parse_untyped_expr PROTO((void)); static tree parse_untyped_expr PARAMS ((void));
static tree parse_opt_untyped_expr PROTO((void)); static tree parse_opt_untyped_expr PARAMS ((void));
static int parse_definition PROTO((int)); static int parse_definition PARAMS ((int));
static void parse_opt_actions PROTO((void)); static void parse_opt_actions PARAMS ((void));
static void parse_body PROTO((void)); static void parse_body PARAMS ((void));
static tree parse_if_expression_body PROTO((void)); static tree parse_if_expression_body PARAMS ((void));
static tree parse_opt_handler PROTO((void)); static tree parse_opt_handler PARAMS ((void));
static tree parse_opt_name_string PROTO((int)); static tree parse_opt_name_string PARAMS ((int));
static tree parse_simple_name_string PROTO((void)); static tree parse_simple_name_string PARAMS ((void));
static tree parse_name_string PROTO((void)); static tree parse_name_string PARAMS ((void));
static tree parse_defining_occurrence PROTO((void)); static tree parse_defining_occurrence PARAMS ((void));
static tree parse_name PROTO((void)); static tree parse_name PARAMS ((void));
static tree parse_optlabel PROTO((void)); static tree parse_optlabel PARAMS ((void));
static void parse_opt_end_label_semi_colon PROTO((tree)); static void parse_opt_end_label_semi_colon PARAMS ((tree));
static void parse_modulion PROTO((tree)); static void parse_modulion PARAMS ((tree));
static void parse_spec_module PROTO((tree)); static void parse_spec_module PARAMS ((tree));
static void parse_semi_colon PROTO((void)); static void parse_semi_colon PARAMS ((void));
static tree parse_defining_occurrence_list PROTO((void)); static tree parse_defining_occurrence_list PARAMS ((void));
static void parse_mode_definition PROTO((int)); static void parse_mode_definition PARAMS ((int));
static void parse_mode_definition_statement PROTO((int)); static void parse_mode_definition_statement PARAMS ((int));
static void parse_synonym_definition PROTO((void)); static void parse_synonym_definition PARAMS ((void));
static void parse_synonym_definition_statement PROTO((void)); static void parse_synonym_definition_statement PARAMS ((void));
static tree parse_on_exception_list PROTO((void)); static tree parse_on_exception_list PARAMS ((void));
static void parse_on_alternatives PROTO((void)); static void parse_on_alternatives PARAMS ((void));
static void parse_loc_declaration PROTO((int)); static void parse_loc_declaration PARAMS ((int));
static void parse_declaration_statement PROTO((int)); static void parse_declaration_statement PARAMS ((int));
static tree parse_optforbid PROTO((void)); static tree parse_optforbid PARAMS ((void));
static tree parse_postfix PROTO((enum terminal)); static tree parse_postfix PARAMS ((enum terminal));
static tree parse_postfix_list PROTO((enum terminal)); static tree parse_postfix_list PARAMS ((enum terminal));
static void parse_rename_clauses PROTO((enum terminal)); static void parse_rename_clauses PARAMS ((enum terminal));
static tree parse_opt_prefix_clause PROTO((void)); static tree parse_opt_prefix_clause PARAMS ((void));
static void parse_grant_statement PROTO((void)); static void parse_grant_statement PARAMS ((void));
static void parse_seize_statement PROTO((void)); static void parse_seize_statement PARAMS ((void));
static tree parse_param_name_list PROTO((void)); static tree parse_param_name_list PARAMS ((void));
static tree parse_param_attr PROTO((void)); static tree parse_param_attr PARAMS ((void));
static tree parse_formpar PROTO((void)); static tree parse_formpar PARAMS ((void));
static tree parse_formparlist PROTO((void)); static tree parse_formparlist PARAMS ((void));
static tree parse_opt_result_spec PROTO((void)); static tree parse_opt_result_spec PARAMS ((void));
static tree parse_opt_except PROTO((void)); static tree parse_opt_except PARAMS ((void));
static tree parse_opt_recursive PROTO((void)); static tree parse_opt_recursive PARAMS ((void));
static tree parse_procedureattr PROTO((void)); static tree parse_procedureattr PARAMS ((void));
static void parse_proc_body PROTO((tree, tree)); static void parse_proc_body PARAMS ((tree, tree));
static void parse_procedure_definition PROTO((int)); static void parse_procedure_definition PARAMS ((int));
static tree parse_processpar PROTO((void)); static tree parse_processpar PARAMS ((void));
static tree parse_processparlist PROTO((void)); static tree parse_processparlist PARAMS ((void));
static void parse_process_definition PROTO((int)); static void parse_process_definition PARAMS ((int));
static void parse_signal_definition PROTO((void)); static void parse_signal_definition PARAMS ((void));
static void parse_signal_definition_statement PROTO((void)); static void parse_signal_definition_statement PARAMS ((void));
static void parse_then_clause PROTO((void)); static void parse_then_clause PARAMS ((void));
static void parse_opt_else_clause PROTO((void)); static void parse_opt_else_clause PARAMS ((void));
static tree parse_expr_list PROTO((void)); static tree parse_expr_list PARAMS ((void));
static tree parse_range_list_clause PROTO((void)); static tree parse_range_list_clause PARAMS ((void));
static void pushback_paren_expr PROTO((tree)); static void pushback_paren_expr PARAMS ((tree));
static tree parse_case_label PROTO((void)); static tree parse_case_label PARAMS ((void));
static tree parse_case_label_list PROTO((tree, int)); static tree parse_case_label_list PARAMS ((tree, int));
static tree parse_case_label_specification PROTO((tree)); static tree parse_case_label_specification PARAMS ((tree));
static void parse_single_dimension_case_action PROTO((tree)); static void parse_single_dimension_case_action PARAMS ((tree));
static void parse_multi_dimension_case_action PROTO((tree)); static void parse_multi_dimension_case_action PARAMS ((tree));
static void parse_case_action PROTO((tree)); static void parse_case_action PARAMS ((tree));
static tree parse_asm_operands PROTO((void)); static tree parse_asm_operands PARAMS ((void));
static tree parse_asm_clobbers PROTO((void)); static tree parse_asm_clobbers PARAMS ((void));
static void ch_expand_asm_operands PROTO((tree, tree, tree, tree, int, char *, int)); static void ch_expand_asm_operands PARAMS ((tree, tree, tree, tree, int, char *, int));
static void parse_asm_action PROTO((void)); static void parse_asm_action PARAMS ((void));
static void parse_begin_end_block PROTO((tree)); static void parse_begin_end_block PARAMS ((tree));
static void parse_if_action PROTO((tree)); static void parse_if_action PARAMS ((tree));
static void parse_iteration PROTO((void)); static void parse_iteration PARAMS ((void));
static tree parse_delay_case_event_list PROTO((void)); static tree parse_delay_case_event_list PARAMS ((void));
static void parse_delay_case_action PROTO((tree)); static void parse_delay_case_action PARAMS ((tree));
static void parse_do_action PROTO((tree)); static void parse_do_action PARAMS ((tree));
static tree parse_receive_spec PROTO((void)); static tree parse_receive_spec PARAMS ((void));
static void parse_receive_case_action PROTO((tree)); static void parse_receive_case_action PARAMS ((tree));
static void parse_send_action PROTO((void)); static void parse_send_action PARAMS ((void));
static void parse_start_action PROTO((void)); static void parse_start_action PARAMS ((void));
static tree parse_call PROTO((tree)); static tree parse_call PARAMS ((tree));
static tree parse_tuple_fieldname_list PROTO((void)); static tree parse_tuple_fieldname_list PARAMS ((void));
static tree parse_tuple_element PROTO((void)); static tree parse_tuple_element PARAMS ((void));
static tree parse_opt_element_list PROTO((void)); static tree parse_opt_element_list PARAMS ((void));
static tree parse_tuple PROTO((tree)); static tree parse_tuple PARAMS ((tree));
static tree parse_operand6 PROTO((void)); static tree parse_operand6 PARAMS ((void));
static tree parse_operand5 PROTO((void)); static tree parse_operand5 PARAMS ((void));
static tree parse_operand4 PROTO((void)); static tree parse_operand4 PARAMS ((void));
static tree parse_operand3 PROTO((void)); static tree parse_operand3 PARAMS ((void));
static tree parse_operand2 PROTO((void)); static tree parse_operand2 PARAMS ((void));
static tree parse_operand1 PROTO((void)); static tree parse_operand1 PARAMS ((void));
static tree parse_operand0 PROTO((void)); static tree parse_operand0 PARAMS ((void));
static tree parse_case_expression PROTO((void)); static tree parse_case_expression PARAMS ((void));
static tree parse_then_alternative PROTO((void)); static tree parse_then_alternative PARAMS ((void));
static tree parse_else_alternative PROTO((void)); static tree parse_else_alternative PARAMS ((void));
static tree parse_if_expression PROTO((void)); static tree parse_if_expression PARAMS ((void));
static tree parse_index_mode PROTO((void)); static tree parse_index_mode PARAMS ((void));
static tree parse_set_mode PROTO((void)); static tree parse_set_mode PARAMS ((void));
static tree parse_pos PROTO((void)); static tree parse_pos PARAMS ((void));
static tree parse_step PROTO((void)); static tree parse_step PARAMS ((void));
static tree parse_opt_layout PROTO((int)); static tree parse_opt_layout PARAMS ((int));
static tree parse_field_name_list PROTO((void)); static tree parse_field_name_list PARAMS ((void));
static tree parse_fixed_field PROTO((void)); static tree parse_fixed_field PARAMS ((void));
static tree parse_variant_field_list PROTO((void)); static tree parse_variant_field_list PARAMS ((void));
static tree parse_variant_alternative PROTO((void)); static tree parse_variant_alternative PARAMS ((void));
static tree parse_field PROTO((void)); static tree parse_field PARAMS ((void));
static tree parse_structure_mode PROTO((void)); static tree parse_structure_mode PARAMS ((void));
static tree parse_opt_queue_size PROTO((void)); static tree parse_opt_queue_size PARAMS ((void));
static tree parse_procedure_mode PROTO((void)); static tree parse_procedure_mode PARAMS ((void));
static void parse_program PROTO((void)); static void parse_program PARAMS ((void));
static void parse_pass_1_2 PROTO((void)); static void parse_pass_1_2 PARAMS ((void));
static tree static tree
parse_opt_name_string (allow_all) parse_opt_name_string (allow_all)
......
gcc/ch/satisfy.c
...@@ -36,11 +36,11 @@ struct decl_chain ...@@ -36,11 +36,11 @@ struct decl_chain
}; };
/* forward declarations */ /* forward declarations */
static tree satisfy PROTO ((tree, struct decl_chain *)); static tree satisfy PARAMS ((tree, struct decl_chain *));
static void cycle_error_print PROTO ((struct decl_chain *, tree)); static void cycle_error_print PARAMS ((struct decl_chain *, tree));
static tree safe_satisfy_decl PROTO ((tree, struct decl_chain *)); static tree safe_satisfy_decl PARAMS ((tree, struct decl_chain *));
static void satisfy_list PROTO ((tree, struct decl_chain *)); static void satisfy_list PARAMS ((tree, struct decl_chain *));
static void satisfy_list_values PROTO ((tree, struct decl_chain *)); static void satisfy_list_values PARAMS ((tree, struct decl_chain *));
static struct decl_chain dummy_chain; static struct decl_chain dummy_chain;
#define LOOKUP_ONLY (chain==&dummy_chain) #define LOOKUP_ONLY (chain==&dummy_chain)
......
gcc/ch/tasking.c
...@@ -45,18 +45,18 @@ tree chill_taskingcode_type_node; ...@@ -45,18 +45,18 @@ tree chill_taskingcode_type_node;
/* forward declarations */ /* forward declarations */
#if 0 #if 0
static void validate_process_parameters PROTO((tree)); static void validate_process_parameters PARAMS ((tree));
static tree get_struct_variable_name PROTO((tree)); static tree get_struct_variable_name PARAMS ((tree));
static tree decl_tasking_code_variable PROTO((tree, tree *, int)); static tree decl_tasking_code_variable PARAMS ((tree, tree *, int));
#endif #endif
static tree get_struct_debug_type_name PROTO((tree)); static tree get_struct_debug_type_name PARAMS ((tree));
static tree get_process_wrapper_name PROTO((tree)); static tree get_process_wrapper_name PARAMS ((tree));
static tree build_tasking_enum PROTO((void)); static tree build_tasking_enum PARAMS ((void));
static void build_tasking_message_type PROTO((void)); static void build_tasking_message_type PARAMS ((void));
static tree build_receive_signal_case_label PROTO((tree, tree)); static tree build_receive_signal_case_label PARAMS ((tree, tree));
static tree build_receive_buffer_case_label PROTO((tree, tree)); static tree build_receive_buffer_case_label PARAMS ((tree, tree));
static void build_receive_buffer_case_end PROTO((tree, tree)); static void build_receive_buffer_case_end PARAMS ((tree, tree));
static void build_receive_signal_case_end PROTO((tree, tree)); static void build_receive_signal_case_end PARAMS ((tree, tree));
/* list of this module's process, buffer, etc. decls. /* list of this module's process, buffer, etc. decls.
This is a list of TREE_VECs, chain by their TREE_CHAINs. */ This is a list of TREE_VECs, chain by their TREE_CHAINs. */
......
gcc/ch/tree.c
...@@ -34,7 +34,7 @@ extern struct obstack permanent_obstack; ...@@ -34,7 +34,7 @@ extern struct obstack permanent_obstack;
to layout_chill_range_type for the index range of a string. */ to layout_chill_range_type for the index range of a string. */
tree string_index_type_dummy; tree string_index_type_dummy;
static tree make_powerset_type PROTO ((tree)); static tree make_powerset_type PARAMS ((tree));
/* Build a chill string type. /* Build a chill string type.
For a character string, ELT_TYPE==char_type_node; For a character string, ELT_TYPE==char_type_node;
......
gcc/ch/typeck.c
...@@ -40,16 +40,16 @@ Boston, MA 02111-1307, USA. */ ...@@ -40,16 +40,16 @@ Boston, MA 02111-1307, USA. */
#include "output.h" #include "output.h"
/* forward declarations */ /* forward declarations */
static int chill_l_equivalent PROTO((tree, tree, struct mode_chain*)); static int chill_l_equivalent PARAMS ((tree, tree, struct mode_chain*));
static tree extract_constant_from_buffer PROTO((tree, const unsigned char *, int)); static tree extract_constant_from_buffer PARAMS ((tree, const unsigned char *, int));
static int expand_constant_to_buffer PROTO((tree, unsigned char *, int)); static int expand_constant_to_buffer PARAMS ((tree, unsigned char *, int));
static tree build_empty_string PROTO((tree)); static tree build_empty_string PARAMS ((tree));
static tree make_chill_pointer_type PROTO((tree, enum tree_code)); static tree make_chill_pointer_type PARAMS ((tree, enum tree_code));
static tree make_chill_range_type PROTO((tree, tree, tree)); static tree make_chill_range_type PARAMS ((tree, tree, tree));
static void apply_chill_array_layout PROTO((tree)); static void apply_chill_array_layout PARAMS ((tree));
static int field_decl_cmp PROTO((tree *, tree*)); static int field_decl_cmp PARAMS ((tree *, tree*));
static tree make_chill_struct_type PROTO((tree)); static tree make_chill_struct_type PARAMS ((tree));
static int apply_chill_field_layout PROTO((tree, int *)); static int apply_chill_field_layout PARAMS ((tree, int *));
/* /*
* This function checks an array access. * This function checks an array access.
...@@ -3292,7 +3292,7 @@ layout_chill_struct_type (t) ...@@ -3292,7 +3292,7 @@ layout_chill_struct_type (t)
field_array[len++] = x; field_array[len++] = x;
qsort (field_array, len, sizeof (tree), qsort (field_array, len, sizeof (tree),
(int (*) PROTO ((const void *, const void *))) field_decl_cmp); (int (*) PARAMS ((const void *, const void *))) field_decl_cmp);
} }
} }
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment